From 97037aa011112ef35dec9cf8d38f8dd6178f576e Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Mon, 10 Jul 2023 14:52:49 +0000
Subject: [PATCH] Built site for AMR: 2.0.0.9030@a4e2e25

---
 404.html                                  |   2 +-
 LICENSE-text.html                         |   2 +-
 articles/AMR.html                         |  10 +-
 articles/EUCAST.html                      |   2 +-
 articles/MDR.html                         |  56 ++---
 articles/PCA.html                         |   2 +-
 articles/WHONET.html                      |   2 +-
 articles/datasets.html                    |  24 +--
 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                           |  16 +-
 pkgdown.yml                               |   2 +-
 reference/AMR-deprecated.html             |   2 +-
 reference/AMR-options.html                |   2 +-
 reference/AMR.html                        |   2 +-
 reference/Rplot002.png                    | Bin 24129 -> 16897 bytes
 reference/Rplot003.png                    | Bin 17281 -> 16761 bytes
 reference/Rplot004.png                    | Bin 22686 -> 13938 bytes
 reference/Rplot005.png                    | Bin 13308 -> 17513 bytes
 reference/Rplot006.png                    | Bin 13300 -> 10754 bytes
 reference/Rplot007.png                    | Bin 12598 -> 6966 bytes
 reference/Rplot008.png                    | Bin 20844 -> 11960 bytes
 reference/Rplot009.png                    | Bin 8525 -> 16761 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 |  12 +-
 reference/antibiotics.html                |   2 +-
 reference/as.ab.html                      |   2 +-
 reference/as.av.html                      |   2 +-
 reference/as.disk.html                    |  25 +--
 reference/as.mic-1.png                    | Bin 21698 -> 34551 bytes
 reference/as.mic-2.png                    | Bin 33660 -> 53212 bytes
 reference/as.mic-3.png                    | Bin 51912 -> 51911 bytes
 reference/as.mic-4.png                    | Bin 50615 -> 52685 bytes
 reference/as.mic-5.png                    | Bin 51466 -> 0 bytes
 reference/as.mic.html                     |  22 +-
 reference/as.mo.html                      |   7 +-
 reference/as.sir.html                     | 247 ++++++++-------------
 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       |   8 +-
 reference/count.html                      |   4 +-
 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                | 105 ++++-----
 reference/ggplot_pca.html                 |   2 +-
 reference/ggplot_sir.html                 |   2 +-
 reference/guess_ab_col.html               |   2 +-
 reference/index.html                      |   2 +-
 reference/intrinsic_resistant.html        |   4 +-
 reference/italicise_taxonomy.html         |   2 +-
 reference/join.html                       |   2 +-
 reference/key_antimicrobials.html         |   2 +-
 reference/kurtosis.html                   |   6 +-
 reference/like.html                       |  50 +----
 reference/mdro.html                       |  32 +--
 reference/mean_amr_distance.html          |  86 ++------
 reference/microorganisms.codes.html       |  86 +-------
 reference/microorganisms.groups.html      |  28 +--
 reference/microorganisms.html             |  21 +-
 reference/mo_matching_score.html          |  24 +--
 reference/mo_property.html                | 251 ++++++----------------
 reference/mo_source.html                  |   2 +-
 reference/pca-1.png                       | Bin 47751 -> 0 bytes
 reference/pca-2.png                       | Bin 89714 -> 0 bytes
 reference/pca.html                        |  21 +-
 reference/plot-1.png                      | Bin 25913 -> 0 bytes
 reference/plot-2.png                      | Bin 27080 -> 0 bytes
 reference/plot-3.png                      | Bin 27589 -> 0 bytes
 reference/plot-4.png                      | Bin 39036 -> 0 bytes
 reference/plot-5.png                      | Bin 39730 -> 0 bytes
 reference/plot-6.png                      | Bin 38934 -> 0 bytes
 reference/plot-7.png                      | Bin 36890 -> 0 bytes
 reference/plot-8.png                      | Bin 60701 -> 0 bytes
 reference/plot-9.png                      | Bin 26187 -> 0 bytes
 reference/plot.html                       |  39 +++-
 reference/proportion.html                 | 103 +++------
 reference/random.html                     |  36 +---
 reference/resistance_predict-1.png        | Bin 43787 -> 0 bytes
 reference/resistance_predict-2.png        | Bin 71780 -> 0 bytes
 reference/resistance_predict-3.png        | Bin 47085 -> 0 bytes
 reference/resistance_predict-4.png        | Bin 70542 -> 0 bytes
 reference/resistance_predict.html         |  31 +--
 reference/skewness.html                   |   4 +-
 reference/translate.html                  |  35 ++-
 search.json                               |   2 +-
 105 files changed, 515 insertions(+), 994 deletions(-)
 delete mode 100644 reference/as.mic-5.png
 delete mode 100644 reference/pca-1.png
 delete mode 100644 reference/pca-2.png
 delete mode 100644 reference/plot-1.png
 delete mode 100644 reference/plot-2.png
 delete mode 100644 reference/plot-3.png
 delete mode 100644 reference/plot-4.png
 delete mode 100644 reference/plot-5.png
 delete mode 100644 reference/plot-6.png
 delete mode 100644 reference/plot-7.png
 delete mode 100644 reference/plot-8.png
 delete mode 100644 reference/plot-9.png
 delete mode 100644 reference/resistance_predict-1.png
 delete mode 100644 reference/resistance_predict-2.png
 delete mode 100644 reference/resistance_predict-3.png
 delete mode 100644 reference/resistance_predict-4.png

diff --git a/404.html b/404.html
index 0976f49c..e2e0087f 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 8b40bcc3..428b80fb 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 f18dff4c..8a4e529c 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -204,7 +204,7 @@
 website update since they are based on randomly created values and the
 page was written in <a href="https://rmarkdown.rstudio.com/" class="external-link">R
 Markdown</a>. However, the methodology remains unchanged. This page was
-generated on 08 July 2023.</p>
+generated on 10 July 2023.</p>
 <div class="section level2">
 <h2 id="introduction">Introduction<a class="anchor" aria-label="anchor" href="#introduction"></a>
 </h2>
@@ -260,21 +260,21 @@ make the structure of your data generally look like this:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">2023-07-08</td>
+<td align="center">2023-07-10</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">S</td>
 </tr>
 <tr class="even">
-<td align="center">2023-07-08</td>
+<td align="center">2023-07-10</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">R</td>
 </tr>
 <tr class="odd">
-<td align="center">2023-07-08</td>
+<td align="center">2023-07-10</td>
 <td align="center">efgh</td>
 <td align="center">Escherichia coli</td>
 <td align="center">R</td>
diff --git a/articles/EUCAST.html b/articles/EUCAST.html
index 49103e80..a1c5a161 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 e3057d39..8f72c4d5 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -402,17 +402,17 @@ 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         R            R          R            I            I</span></span>
-<span><span class="co">#&gt; 2          I         R            I          I            S            I</span></span>
-<span><span class="co">#&gt; 3          I         R            R          I            I            S</span></span>
-<span><span class="co">#&gt; 4          R         I            I          S            S            I</span></span>
-<span><span class="co">#&gt; 5          S         I            R          S            I            I</span></span>
-<span><span class="co">#&gt; 6          S         S            I          I            R            I</span></span>
+<span><span class="co">#&gt; 1          I         I            R          I            S            S</span></span>
+<span><span class="co">#&gt; 2          R         R            S          I            S            S</span></span>
+<span><span class="co">#&gt; 3          R         S            S          S            S            R</span></span>
+<span><span class="co">#&gt; 4          S         I            S          S            I            S</span></span>
+<span><span class="co">#&gt; 5          S         I            R          R            R            R</span></span>
+<span><span class="co">#&gt; 6          R         R            I          R            R            S</span></span>
 <span><span class="co">#&gt;   kanamycin</span></span>
 <span><span class="co">#&gt; 1         R</span></span>
-<span><span class="co">#&gt; 2         S</span></span>
-<span><span class="co">#&gt; 3         S</span></span>
-<span><span class="co">#&gt; 4         S</span></span>
+<span><span class="co">#&gt; 2         R</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; 5         R</span></span>
 <span><span class="co">#&gt; 6         R</span></span></code></pre></div>
 <p>We can now add the interpretation of MDR-TB to our data set. You can
@@ -455,40 +455,40 @@ Unique: 5</p>
 <tr class="odd">
 <td align="left">1</td>
 <td align="left">Mono-resistant</td>
-<td align="right">3196</td>
-<td align="right">63.92%</td>
-<td align="right">3196</td>
-<td align="right">63.92%</td>
+<td align="right">3172</td>
+<td align="right">63.44%</td>
+<td align="right">3172</td>
+<td align="right">63.44%</td>
 </tr>
 <tr class="even">
 <td align="left">2</td>
 <td align="left">Negative</td>
-<td align="right">1028</td>
-<td align="right">20.56%</td>
-<td align="right">4224</td>
-<td align="right">84.48%</td>
+<td align="right">1056</td>
+<td align="right">21.12%</td>
+<td align="right">4228</td>
+<td align="right">84.56%</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">4670</td>
-<td align="right">93.40%</td>
+<td align="right">423</td>
+<td align="right">8.46%</td>
+<td align="right">4651</td>
+<td align="right">93.02%</td>
 </tr>
 <tr class="even">
 <td align="left">4</td>
 <td align="left">Poly-resistant</td>
-<td align="right">231</td>
-<td align="right">4.62%</td>
-<td align="right">4901</td>
-<td align="right">98.02%</td>
+<td align="right">251</td>
+<td align="right">5.02%</td>
+<td align="right">4902</td>
+<td align="right">98.04%</td>
 </tr>
 <tr class="odd">
 <td align="left">5</td>
 <td align="left">Extensively drug-resistant</td>
-<td align="right">99</td>
-<td align="right">1.98%</td>
+<td align="right">98</td>
+<td align="right">1.96%</td>
 <td align="right">5000</td>
 <td align="right">100.00%</td>
 </tr>
diff --git a/articles/PCA.html b/articles/PCA.html
index 52ec8471..38705eff 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 58ddce64..118d133d 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 f0e7094d..26b527fb 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -193,7 +193,7 @@
   <main id="main" class="col-md-9"><div class="page-header">
       <img src="../logo.svg" class="logo" alt=""><h1>Data sets for download / own use</h1>
             
-            <h4 data-toc-skip class="date">08 July 2023</h4>
+            <h4 data-toc-skip class="date">10 July 2023</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/HEAD/vignettes/datasets.Rmd" class="external-link"><code>vignettes/datasets.Rmd</code></a></small>
       <div class="d-none name"><code>datasets.Rmd</code></div>
@@ -913,43 +913,43 @@ inhibitors</td>
 <code>clinical_breakpoints</code>: Interpretation from MIC values
 &amp; disk diameters to SIR<a class="anchor" aria-label="anchor" href="#clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir"></a>
 </h2>
-<p>A data set with 28 454 rows and 12 columns, containing the following
+<p>A data set with 28 885 rows and 12 columns, containing the following
 column names:<br><em>guideline</em>, <em>type</em>, <em>method</em>, <em>site</em>,
 <em>mo</em>, <em>rank_index</em>, <em>ab</em>, <em>ref_tbl</em>,
 <em>disk_dose</em>, <em>breakpoint_S</em>, <em>breakpoint_R</em>, and
 <em>uti</em>.</p>
 <p>This data set is in R available as <code>clinical_breakpoints</code>,
 after you load the <code>AMR</code> package.</p>
-<p>It was last updated on 8 July 2023 15:30:05 UTC. Find more info about
-the structure of this data set <a href="https://msberends.github.io/AMR/reference/clinical_breakpoints.html">here</a>.</p>
+<p>It was last updated on 10 July 2023 11:41:52 UTC. Find more info
+about the structure of this data set <a href="https://msberends.github.io/AMR/reference/clinical_breakpoints.html">here</a>.</p>
 <p><strong>Direct download links:</strong></p>
 <ul>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.rds" class="external-link">original
-R Data Structure (RDS) file</a> (57 kB)<br>
+R Data Structure (RDS) file</a> (59 kB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.txt" class="external-link">tab-separated
 text file</a> (3.2 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.xlsx" class="external-link">Microsoft
-Excel workbook</a> (1.2 MB)<br>
+Excel workbook</a> (1.3 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.feather" class="external-link">Apache
-Feather file</a> (1.1 MB)<br>
+Feather file</a> (1.2 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.parquet" class="external-link">Apache
-Parquet file</a> (92 kB)<br>
+Parquet file</a> (87 kB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.sas" class="external-link">SAS
 data (SAS) file</a> (3.6 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.xpt" class="external-link">SAS
-transport (XPT) file</a> (7.6 MB)<br>
+transport (XPT) file</a> (7.7 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.sav" class="external-link">IBM
 SPSS Statistics data file</a> (4.4 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/../data-raw/clinical_breakpoints.dta" class="external-link">Stata
-DTA file</a> (7.5 MB)</li>
+DTA file</a> (7.6 MB)</li>
 </ul>
 <div class="section level3">
 <h3 id="source-3">Source<a class="anchor" aria-label="anchor" href="#source-3"></a>
@@ -1139,7 +1139,7 @@ DTA file</a> (9.5 MB)</li>
 <h3 id="source-4">Source<a class="anchor" aria-label="anchor" href="#source-4"></a>
 </h3>
 <p>This data set contains all defined intrinsic resistance by EUCAST of
-all bug-drug combinations, and is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes/" class="external-link">‘EUCAST
+all bug-drug combinations, and is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes" class="external-link">‘EUCAST
 Expert Rules’ and ‘EUCAST Intrinsic Resistance and Unusual Phenotypes’
 v3.3</a> (2021).</p>
 </div>
diff --git a/articles/index.html b/articles/index.html
index fd4ef6f0..50bee29d 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 b3bb029c..1c0e094c 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 d813e2c3..10812204 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 141636f4..e8c90808 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 7c0841d6..b3da1f3d 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 5fe53c55..2a9851ce 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 7dbee0c0..aa023c85 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <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,9 +159,9 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.0.0.9028" id="amr-2009028">AMR 2.0.0.9028<a class="anchor" aria-label="anchor" href="#amr-2009028"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.0.0.9030" id="amr-2009030">AMR 2.0.0.9030<a class="anchor" aria-label="anchor" href="#amr-2009030"></a></h2>
 <div class="section level3">
-<h3 id="new-2-0-0-9028">New<a class="anchor" aria-label="anchor" href="#new-2-0-0-9028"></a></h3>
+<h3 id="new-2-0-0-9030">New<a class="anchor" aria-label="anchor" href="#new-2-0-0-9030"></a></h3>
 <ul><li>Clinical breakpoints and intrinsic resistance of EUCAST 2023 and CLSI 2023 have been added for <code><a href="../reference/as.sir.html">as.sir()</a></code>. EUCAST 2023 (v13.0) is now the new default guideline for all MIC and disks diffusion interpretations</li>
 <li>The EUCAST dosage guideline of v13.0 has been added to the <code>dosage</code> data set</li>
 <li>ECOFF: the <code>clinical_breakpoints</code> data set now contains epidemiological cut-off (ECOFF) values. These ECOFFs can be used for MIC/disk interpretation using <code>as.sir(..., breakpoint_type = "ECOFF")</code>, which is an important new addition for veterinary microbiology.</li>
@@ -176,10 +176,16 @@
 <li>Added microbial codes for Gram-negative/positive anaerobic bacteria</li>
 </ul></div>
 <div class="section level3">
-<h3 id="changed-2-0-0-9028">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9028"></a></h3>
+<h3 id="changed-2-0-0-9030">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9030"></a></h3>
 <ul><li>Updated algorithm of <code><a href="../reference/as.mo.html">as.mo()</a></code> by giving more weight to fungi</li>
 <li>
 <code><a href="../reference/mo_property.html">mo_rank()</a></code> now returns <code>NA</code> for ‘unknown’ microorganisms (<code>B_ANAER</code>, <code>B_ANAER-NEG</code>, <code>B_ANAER-POS</code>, <code>B_GRAMN</code>, <code>B_GRAMP</code>, <code>F_FUNGUS</code>, <code>F_YEAST</code>, and <code>UNKNOWN</code>)</li>
+<li>When printing MO codes in a tibble, a mouse-hover now shows the full name of the microorganism</li>
+<li>Plots for MIC and disk diffusion values:
+<ul><li>Now have settable arguments for breakpoint type and PK/PD, like <code><a href="../reference/as.sir.html">as.sir()</a></code>
+</li>
+<li>Will now contain the name of the guideline table in the subtitle of the plot</li>
+</ul></li>
 <li>Fixed formatting for <code><a href="../reference/as.sir.html">sir_interpretation_history()</a></code>
 </li>
 <li>Fixed some WHONET codes for microorganisms and consequently a couple of entries in <code>clinical_breakpoints</code>
@@ -198,6 +204,8 @@
 </li>
 <li>Fixed bug for indicating UTIs in <code><a href="../reference/as.sir.html">as.sir()</a></code>
 </li>
+<li>Greatly improved speed of <code><a href="../reference/as.sir.html">as.sir()</a></code>
+</li>
 </ul></div>
 </div>
     <div class="section level2">
diff --git a/pkgdown.yml b/pkgdown.yml
index d4a70c7c..8cc6d1f6 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-07-08T19:06Z
+last_built: 2023-07-10T14:49Z
 urls:
   reference: https://msberends.github.io/AMR/reference
   article: https://msberends.github.io/AMR/articles
diff --git a/reference/AMR-deprecated.html b/reference/AMR-deprecated.html
index f3057e05..6ee8c5e5 100644
--- a/reference/AMR-deprecated.html
+++ b/reference/AMR-deprecated.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/AMR-options.html b/reference/AMR-options.html
index b21b2e20..3d1e4546 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 27cd5dc2..703f1a4d 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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/Rplot002.png b/reference/Rplot002.png
index 971d667689fa5c489d6ed37cf57105f730cbab9b..8c752534d6a752ce251432ead6ec988ab0cf3cfa 100644
GIT binary patch
literal 16897
zcmd742UHVn+buky_o~u62nYfqARUBAQ$RrJO#$gudX4msNDobV6HrQ|6N-W&y$PX;
zbZJrogz^tQ=bW#;@Av%wf7bcVti=jzGLvK`_r0%u?Y-|rJ=RbrC88$+0Dx3g1*#1I
zkcF#10z7a}z*t)f_<;BPp)wSF1h*5#<{<Ea&_%`IB>)gpUHw5uW&_UvfE7@M-hbkq
z^=sD8|Jrh^-0tAr+UAVV83IDqw~?hO9KpfS1ZzrVAAdR6iRV?y@wa-r*=cU!q73bg
zMkb=`4-cLjY3evu<dsxbgnkPxU{~Y6WvJQ;yKWT2PSY4MgO(iJN#JZKY@Pz90u+Ax
zw41i{4($K>hW4px&i(dlfL|W^zkBP75g)$(L|69(en`g+K!}7xih`iq7v(QIFU;2M
z2B1-h04ZR~%izI-Psb{pHChB8CTiZ@s-E2Z+Sg}fhdK)3He{fr9DZDsy+(xfN<PgI
z#mv^d^CJ!8-xj41`6c|>HHgh^LBZS{8v_ygRyBe<%4&_Xn}_s`jg9wc!?pbKJt!$D
zNv*2x8|(33gja2jGWHnI5#T(xva$-o5z?GIL}LV!w5zBU91^vw`UVFDT^Lte<yk2-
z>R!>9db2fGRBQ&{f0q$y(;cH!P;C-$IL=hQNo$LD7nZ<YB<<#HG%CVdbS)}XR7B(#
z)?+Lnu>De3eN-1-+^A0Qp`+$q(cWe(l>HODcs9chB_TCGklV0Vb{Ef8TrqV_^u+U1
zP+Mwg<yu@?Py7k0m@uPCHO$5I+2oPE?1gSV!j)k%C$)V)_rcZvqo|U5?Lq7HDC+v`
zqbCdR-gV(CSvB3f4wrMkz~I05Hk(<x729MsI8-o9Eqm%E{M~OaWv5O<wwddxTtbfy
z?!p#HGSqeC22vri5^#dNCq%NVk4_M=!7&1xTRUis;HXEd7*$j<mOfw}Web-;IC>o&
zHJ<(M^8y;!#}VWLIewyrN8POCwxvXAsi`-!l0s6_1hBhXGXzw^ew{ZXxN{?X$bsWW
z;SaSt#oupU4m2+1a79g%=??fokTWD{g`uwIlL-TuANRJ^#ysD<nG(a!z`fl+FO5#t
ze<+K+(>1~865|QNg%{JMY6ptZl7ycHUg83e&CJ@d<!f!>Tfj~I)Ov|wVW70U+zmTj
zTTkz!=4hP~TlYiY#peh?aGbaZ^Y|eVj($|PKl0n-!mgL4j*pE&0qL>PHX3AMM`=uC
zq)jP3<xU6%I4VR*%-Px5acPm@peGW7MMXwlGY6<CDS45=O?Gx|7~~NYS_ojLM@FhZ
z@PsHS6S4l!ogiW}_bc{!$0p{3OCLn~eF?|%Z_NA-G9{CIVLRK=r7$`=Dst=@F#0wl
zb*VF)j?4S^%pGwG4;P*dPLsBKj3E?AozWOqrBvce5~b^Un$TnefpOfSp?Yq{5D%Wv
z5_kyh&hTDR87_eYm7cSN%aeB7DS@#p(bHZ>6M|SzTb`j$TIWB~yoew)02`17C>^dp
z<Zge>@!|dIhY@enJML_|FRZUUb-u^(kos8PRm_QAjtJQG6pGe7Z$0S^V3G9`DW>)J
z$zP01a8c7BfEIP<4)Au?-ez;yjQ;WN*LLfaB`2(h%zZKZjl-G(r%6r)c5@e*K!Bs%
z%1@u&#5+^#EaX;CQg6P0rbM_sH|1$*urvHRJ^6UC%9Al#lE=+feDrw1^>B1{OFVn=
zAqT*+JXUSc=wySH?y$BNsp@`Ii_eI?i_9V8=lvpKmmoI$ds2!${m$1g=WN~JRl_cC
z1Xt)t=R1=4*!Tze1#FT-J4<<bXDrY6`ly(=*4;QiH+k%O6U5<=m`mQ2knt0Za@dYs
z@bZ)T;AX}REReI@>MZ1!S^Q0I)eOFg#!Pbs6U$f6rMbIA!eV%mWUBGu2WW4Vn^Rg;
zfPRp8Xob=~`5k&XT4eH=_s8%(CvspR7Q#p+9hA(#V12O}<65(fR<~Nqd34H53c*9*
zGYW!dzLiQhvmst;V&`C5rY4mDhn}QU*%6GUrHw_4aEyiIM@KEu@N#dcvMOM1Botn8
zEQS-uYD;WhJ!$`Qb@j43*^Ld>?1*Y32L3hJ`u#(oT`!M|jPL)zOuC-JlSR!$3W1e{
z$Crf%`r}e%hmLqMy95Saq-cLtwjRte;Rz);@o%dIUl_{PZP_Ih4b-KkrD-N873dMN
zt*G#R^lLTcxOWeY*Ck{(`jqAhz+WTC8BWhHq<dU*C={{;i_RL0Z8JkD`s0`Cz9Y`v
z3=F2|;Klt(+Oiy>-cQvUHAd?MCF1W^=H=zx8J5fqJYA1!s=DMKM-X3Ld~MLl^>v?n
zOKwN-2EO9Zc;Z(<T^|>;xL2!Y>a*SQXtGd&r@eG}=ic0@dp_ceJ#$XV<+f3Ybpt1t
zp{C5s9?#1XQ;jjtiOY*IdyyT!ukPx%7_(fzFf`MoJ9F7(UR2oWKsmO-m+91SK8fjH
zHEof4D#zBXC(wTO+e=uBI)K$N;_dA|J8U6x;L#|5nsyTf%`v=KmAA;o#^yWjTO0ty
ztx9-trHJ~=Op50rRt683Cd+IMW0u6*RqGuscH#|MQOrk->ztWMzp!_LaFCG%=6a=@
z<~2UOb`r_N3kTnH3zc*?^MY<>;(NVcng?PdfdR?gz@#Pd1Wt$8PgM{hb}Vtf`6>_m
z5(&ZL4VsuwWLEjil7`cAp-&AAGMI?M+LqlKzv=U@V7U;()PWnea0KFG?)*;sqshZ*
z6;5p;a|n#9*mmVRVs;8uQdd{UgoHmqNjG>qxfdE+>Bvj!8M{8{l#tN(S&ta;er=&L
ztY}jCW%b$IVMdkmb<NE@lk;y~OyK`1T071`6}djNcP3?S`|ek(TL-O{@S5FKjjJnq
z0v1_>Equ{jsG;9At68to@GvkS;G7KTFSbQsr<)s0y!a<b{stklAkR94iyZZ8v@+lW
z-bI?}>gZ5Ib{}hEOo614zlN2NaQrA0h~;<w&q4FQR123f0oX{%rzGkxad=*3RUFjM
z;eje1q)=#2Fhn{w;Q6rjJy=xvX7B6s<F49rdscROA?DzJRa(gJQ^!#VYG$1!WT|lG
zH^n~^PtQgXNmn<K<Okk?MJYw@n0d|`P`OoYNDALqktRIT^`L{E|6sHE_hoCr53FIf
z*W5W}Tb4l<X*BxY^OUxQDfWj>khAQ_>SC?3Mf9RVZ=(M9(T{sA&({=q$})sQ!1|W_
zB3FuwhDGp;tQ+Q0R~YGCH2{#CosA!j+fMtzuWsHIOEuG4tFD@zYyjTie8@C)e23(<
zPM!YyvFNqqFJoA1fFx5?h2N2}pL(BX-padS05-q9)$NS-H2?CQ(f_%_K%%Tke7F9`
z_%=-A%svwcf>0<n7f!zR56#tUi&Lo-2#*J@x(H$rWvilS;mGNA3yLJF_E}U^_9E>~
zA9nzG+QnupD#@3`@s^FV65;?~Ap$PBLXVf;8Pv)enV4)H`?pysL@oo{A007A(b3U+
zi7J)_6wfQI44#@+Po|`$eH=q<;g1?HP!8{<r)-AbgnbE*k59*W?MqGzh_EdT<790&
z%VT-x-HzRij(wD(q4;PTtD&Xk>`9Mn)>N%EjhLutK;USx`YMQd*ng2u+>j0w$WTj^
z3x*98A|<rHX117CCuU|ge;10Kb{~HL75RRO!Vavx8(sb}GqH$}Utr*KnZc}IJ1Y2&
z@zdjKzjk8N`GiuO4RXA_1%t5T$71A9$n<P6{YnMHo+gtV<KyEatNUSL6d;VKzhtzw
zVx@>oNl7`UL`w56OR{y};9YJyJ3GVbah)T^!CHiF&eYi^HCI;NUjB%wtG+mFn3+Z4
z2Ru@IL-G9l^st26?sO*=9RttS4=2{{x*f_rCEXpke{L-EJ!LU^?6tvE!JGaruS_qi
zxX8`NSUh7U1xfuOXUiW&AU?*MOgj@ob6XG~>lw+f<(G!>e9y!+Mcp5X9t0WW@b@Mt
z_k54CNa|N?Ime)POk2ENJ10%la_ew+;iC3rnDYzXVp~aIVjxGRd8In&d^4kU>%W4^
zso~)}gvg~bM1admixvkLtZ2v>$Wa*+L-jJXR@HKKT`$w(IVe*RCU-2!5pCOLskUxl
z7oEPD<BI#{n_|?qtfQBMWy|LQ7waG@SVpOOlZ*sA)mMl6(TwmrXcUlIv~kaArePD(
zl5r8uV>&HsXANKRXX|b^NIkS46*&it;l<|<)O=#B3_fNQ``8a++N!Z(e_>~3qDtX4
z<V%G}E?~RXv3XzrV}Q%vOa)tgsGvgEWA8@`C!x7N(%Z{D>0o|$jT3HF%j&r<;YQJ4
zkzfF6Eo_`XrM-aulpx*Csf7xD%4bG<e=@kuqAQ<a=U;Q;&}-9&pAsDOE1SsF_#O2+
ziNX}BRd{JKi|Mdjn){aR-c?u6L*7n_^m_u-{C(3Tz|*HsodBJUjg2E)_ykX=HzD%d
z5}_IUxI%n)@Fdy-<dKv~m%gPhEsSW*0#-vfsL}27ulVk<AZMje@&57=k>TxiOu?qj
zo{spiuz)n9)Osvr^s$wws3;{sept7IE5vK!L0M!JM59CSFlwR{TW`=O$FJ)S0YqA~
zl{SHSty3;!wxph7c(=z|Qi~``ppAkaY0DiYQ2ZVt5xS|wVB@eJC@7{pxq!urvp|L9
z$)+)9rRN2~pp3Kexbs7x;i36hhlGTHjVoPd1@SL3sfL64^Yo<E4&~35+-49;Qa%#%
ze8`&LUf3&R@4Ra6%#h<{Og6>qNVO|k=6b)1;jU8SZsn-juCYDsAR_cJd|~D>JAEMd
z4n2A8#DYMSV6ls$Dwz|{dK=m9<h<i2?w)1VH5HIrQ=_--dLn9O8_==Ak4RrdUb6tG
zi(I5>%v3zQPq#;#2ZQg3yuuU<yGJSI*JX!ab;w^pbpF4oTlklf^luv&X_f7uc5FQ-
zSy;0dq9c)o|FY{sfPcmfX!mc&c8&S);dX3w+vuA;$*4#h8<!&cPl4@0;mK|~JC5q3
z1J%{lmzjgBMmIzC$rb`p2<Ph3Qd*WMs2CC3gkkE_<wIW+A0MBGj;KH(lX_A_>mqF^
zkOMc3RVH^|%<bSA`0DvAsJkOag+wz)3Xc!%@eE|CAf<etY!fHxLYUX&4)$1_jt~cf
ziA_KnFo&-MO-@d>ukWASBx1YC5UzEN1kafdZ0(ujl&t@-O6T9ctx8T#+t2^7%1QZO
zggxd=M2lrBte^ed&n)dA;AkH=B4ZqPHbfAMTE{8HS9RdZ6Ck-@TE1TI+ZbYhz!k8Y
zDD=f8i8H}&z-~<+#n|alKq`U=y&fAM85tg2hwD=P_3PJ}s;a7NpzuGa1t2XY`0zlj
zQ9w?v9qF2d1_g;uOT&*&v*IR`?HP8NQuD`swn;hl@$EKj6e(0ek|hM-P<&rm;g{gq
z75gT1_NB+G*=P7^Z3vc^zon0R(;Wcujn}nnjR8U%3t5abbsf_u<L&_<Vxzh2?A9dx
zFCKOr-Jc#B(k)$2deg7ieBRvHC^a|WuBzsq<#rmjIXR!<!W=l#<n^^fpL3Lp*Yy>5
z&)GHz_?&i0?d4)ne)#&E<nICN<Ch;UR(4D!U{!KFw{Op890jlO*pe?i=Bevl+B<^)
zg~`g#mH#Liq@<+HKr&dwciNwh)}<8NI)T#2dwzS{vnF>FazZv!&3bjO_Z*)29)n*!
z6seJxipt85@@sQt7XGsai~rHU$lh89>%bS+XXlF)D?j~qEniZAgO3`EN{jH!$(dVL
zLSXfnI7RzrW)fKso!1$kY$LSrmzo%P)#J&NE3PTSD4pfN%pU*Jq<B-Sh}ccD#^<%R
zB*$_;i>BUcGqz8EtWtqVMrlNR>Napg`|GAI$TBGa0yYFz11|C=5F?^)ghCDPpv{Um
zeH}TecyZqYNUBkhmky}yUt2nchQ74OY8}Ueg&&Q2*wZxlFIgqvDoyxjc@8wp-$$eT
zyy}+}r<`W|lpuh4ma=k=fXk;9?BiZqY#maX0TJVdyh16L_6w)Ys4zi5rDxB#m2lPa
zqI_B!Na04jN>Yq)C%c&$5t6dM0;K0IzDX7$+xC%~lIGX1|E&WI^t!03Igom_&I~Rs
zDg&{g7y{knW5|(QJ!;mis0yKaxLNYH4`dnG$BH{!r>Cb(09<|40bdBzmHL6lPoFO1
z2^CdUIpr4H#wkRm0pDWD=O5AUOt`4#-~%q<i=93NGv`P5uE6WY6_b;8(Pbk#Airq4
z=>E?5POh5PEbDblTad?mfbWHQng$fg9aXmt0Vkm|-g}9_jQ@;u8-TrBqMbDPe~Tva
zk5KNP$}|m6Xyl>Es{IlLVqLB^PbU)zF~5lm%I)9&1WSWRzJJZx=Y8O31xVgQVZ`m;
zPdw<7aX?=F?^Gap!+C5m^_Q}+c|e>AiGxCr|9#d;nW$z<yiifqWOoe~!PwL2(hnEy
z2NwP=&i#+>894Hmz6;Et7}|iho2Mc@uDW<wuk^vTnFaFgKNm1Hc#8;du(qF|Jl|nV
z40#rBg%>F^`*bJSoCs2kSY!w&Q9>du_hCKTqYL76RVt)}d0d$hxg7kK#l+fB>;udF
z-MgW}Ch@||Y{sg&G_Ds%AKM>PR8%N`PO>CWH3A;;nkYn$J{q059qKK0jVJ)B#_Nj`
zRZr4Z8y*^ZPb^Oe9G_npiK-jf!dJxDy7BsIQa@Mk4+dTAXK-<Gsh1&I&%0PW)NN_$
zq=w^*{nXUd$T;ncXdU*Yr^erauti(aIPg%6JYoQDd#&|Qt@xpK{^7U%i`K%z?zB=z
zh0V6C><@{15$nrSCtk^xt3je#MiYy(jcgLaH7loC!{lk#eilm8cwd~I>_b{|UcKSb
zn8y0<npN3U6=XT_&L9a6hqpL=^h>1pK?r;VzT=oD7TenUVL-;(=WbFR2W2k;ZUFkv
z;V<GHQQ55lSIvKrIk39JWGs!gllObRt1Nn8qrq=%Xb5-FSg9^I!CRQSk~5jPPkn7|
z*Kz++KL3!uH&nRJ?H4NRCTKy`F@*W}R~q13KREZ_?bw}fdsXwb^J$^Zp4Q){Wm|<@
zmMsmDGE@l~{l)!qg9Fd@deGS3C1qu0Pt{IZRXBg^|G#LWCp7OHr5?Tn<aTNuKs|J?
z&(6+{9bn$DohLTemfQpzN$t2*$iE-%|3>sYlQpM5N=<|JJ8?_03kXx(n7%LlyJbT-
z(gvVKiu`JoboyaK@a?gQ@=XHs+70?h8*^_0_}|k^^QrT&^{bmAMN}{iSB;@N`*T1|
z=fD->EsR~C)r-I!G4wWQ5L`*H!W{ur4pIf8!XWcngLbo&9|GP)@}jUC06Dtul4{m3
z=^21NI4~htxDG`4p4!Wx&F~jAfJ)#uAdS6%FSChJ*JR;b%S^G%jzTbPpP+Bbe(&2t
zRqwE^Jpe8s=J#NOMYKDxD;anV`e{ePG<^FlBdIw9ECzB$15<LxpO^%a-%53_KzNkA
zN&^~JFH8Y)fCr%1FqpqQc()?~-0N}VYjX~K<8d@A<{Nkfq~k6ytjV5bm747|+{8K-
zhV4VL=4#`JF?4^ujg8Pb9nueAbl+)>$7c1rID|tMe1QlE4rGRWA-Dn4&M<lT0N6Qr
zCkU7a<~kl8sUrs3P!o_Dd~>-bv>^=^kJ^ynoCwg4HS}s*=I7<Qj`RE;*`J$*r^CN(
zO@|J;0}Q{!I0F~3Z5ciCCdIw&9E3~mp$V3`!eBta8kr?{KOC|HKFU<AUg`kXu)Nz!
zDxKTCogw<s+g&pPKrY^{q1+M^#g+J7WJH3b2e#G%gAN1S+s#g;WxeG*1K(iU2o^SF
z(1(y?pErSDCZ@bl)!5?LvwpShO6X@xP|?pQ$buIzhxZ;I$pDyY$o#t4+a&n&4es9e
z4u=?1Pa@d1S5e^A`{u8jnN1!v&XO$<%Uu3AoYf85{MEcwgA+h?7;{-*ZZ+6`VfP(o
zft2}Qs=de)uIWA|F>SD>yKupb{G80*%(+EIMk<9rft=k2Ru@9<6<%ij%PubW+=tg6
z4kv(z#NRL1yuTxl_R$2)-(m_T!P)`<I~?syEFO){nzMHa+2*~sPZ{j-J`^S?l>-;_
zO@kF~*rkx&{yIJISZ>muq69q4d7V%^jpw9I`&Qkm*O8j}7&{j7w|+Zb*3*38%%X>Y
zpX}r6B?auR--T%L2WEEmd`h;b0L@#>6HX>%+*(_xo(0_g>c}JQ0HP*lq#cj|DaCPl
z@aOc6x%+3gWsmXldDkwA^9IZL?Sz;%Q{E3ee0UxF1j<H$ITOs-J*atDN~RD0EDWt^
zQm!~8y2kuY9-T%a$gmb&-Lz4zWnf^?FLO`I0mV!T$mTj{P&}7_VL(~9H9!BkKPS}`
zPpH1Vfo{s=rpNN~^6h#@Ove%}IVh-+J424yVTyq1#z~MqcyVTNm_};(pZdB2MQ6T>
zid{kIxuX+*>M)8V(k>n%ypWHe&~haJ*M?HOEKI)V^G5*o`tXdlzNdx>yh2Y;>|<JR
z3Y<|OFW+Kfb|T`QKxW+7`DhgU`$YPkiP!>d3?_(7CQBsZYlT6N5TxN31m-!(ZrK#i
zW0KuW0s{kIEs5{oV!diJ>m>p7LDo&1*7r2UuG!DjZ~NWepiCfpQLaeg(81@=pF_Dj
z<fa2%E-DrW9)YAPXXrCn+Tf`HcjsfmgiYR1QM(T|epy*mj+oE&{vP$BiIc0?uSW3F
z)WV`uP`O&Rj>F#a8<tC0V*8q3T->PkA?W?J8#K5q&OI7)j}2bCkTu7jjVKJNMr3uQ
z@W67R=&*Zl=!Wn=OjMbmAm;8?Rz=KL672rTz#Hx8IZyS`!enicf9w#Bd6=m1*1itL
z9yUAg(x{Ob4yC;_kLC|mIsHBqKJ2GdW&_JPkYHbqJUO~c+9~>aGI~*ix>M%0&ya^n
z;YI;+9Qc)!dr4w`=X9_*Nh6<T&C=|NzcJP;m<9aB<53aNiM)=y4TwSX3vH*T=K?{G
zQrKkDo+D9(x9M`k;I9&=?767+@F6)+s!`t`60>SbYV#29C8J`>YmIlHJS_RAK=lE}
zDO1s7HXhIY-VAhE)F-jJ+y~vh=hpmZzBNAj@9mbK0ynJ??4qXRUb5#gBM-blIlaC7
zsPA}zs<~^rsVY@Yp#5{Zp$AjXx~hB7ae1|wWz%bS)dL#Wx<R?9?fqB8eix*Xws4w^
zVmdMPeIXcQU(JQ-zxDs<fb#P48K8J<e0*zEq*9Au4-|R!79T>PB3Xr!P#+1{GN1-=
zz}XdmG2qoaM<L9Vg4<2``wSuG56)`9s!srm@SR3K4?Rl(DKCd!IXX0u5E-$pDJKX;
zGv5L2;_SCiApSR+H0A8>qf=CFjhce{h6#j*G{4{t1u#$4+P({mjMNamBU7W(UGr_J
zwVmSmy!pgSVQ`kT?komEkYRwSs<Q-G&V<X14ERjge=zQxGqG9incr}y0uKWD2y7c2
zX!a=R&oRSw3uPn2li)F7V-s&NwMyI*k4gS#7Jx&e91SbU$7Ib87J#U6g%vnuSjTKY
z?QkoNF*a<{2Go=3aj+XjvT@$iAT!tIIKUnG)XBGC)xa(ZtQz7?i!8FO1|iP|N9B<1
z9hJKoLlYl%J!pU)(&L-sHzjno;Vf{_zL+P>vLip%G(V=IOr-yaB?O$&A|tL(3a=@B
zn;Zvkfa<C>5Qt??42$_|Cpv`cYA5m91=#|gJIfnp-Kz>N@<c-BQui&!<=}lM=%VK5
zRWZ%_bxM>I(>?OP>KelHTY*4IFU-qwB2}90|42OMvB8s;R>YNRi4${K&_tpB78HFF
zWq-<YLma8dHpC@nLsCOY8b|$~nX|h(L++iHoWbXPI}jjw#z!i&n9CRs*wT~^sfrWq
zN|#{rnKZ*ENUReCJ>$=Ml9JClw?2Pw-j+WKTSYhXdp6)I5F|edB0X)Of}(#toKB0h
zX;@+wV&Vdy=}0rXzdL^KZGwROVu>>>7W&~*N=~{w7c)jk8?avz-&T9`!XwPJukIbc
z{LV$D=9(l_S9b$5s(SnPHd!4We>a@G;5c4T(R)TU!Si6NB930y%wO?9kQV8F4I-~(
zLA#$a$kt%Rm+yz}^7twq+qxM~ZT2xS?0a6<cP~u#ZkEjTsh2OZy*orKzqsI3CX5xV
zrDn3$#BucX%z5BX>sHb|Hp^d(g*>|KynE;_PtfrBh9aKg>%3j$5lko2VV)5EQzy}E
zU3slPh!uRB*!^PC=gY|gQSq_zqo)B5(E0h8tUdu%#?pXz&jVDNP5N^{M~%HN$&K85
z{$3loI9YIz4{jKUH#5|qFZ+ZiL-*G7(frdJED?SqygX+=doZnXq)cDpV-GOjT^PIJ
zMlK5&xo}hC&`wSM@ZJI0y*6kU4t9Ec{`DJ39en_BiQ}W&J*R3V;5O9t9(@Cu&kav)
zQ&s{Fn(^Ny+{U{&x)I&J#})d~QQ2ibv$sur4@K59l4jEYN?pUQo6h9=3@O+F?rcYb
zmk{HUSj9zdIXu?A;dsk{sPNi4{P(u-Ni|+M)X>mlvcFpZXIBuxgdg5itxV!OQYfas
zW-o8TqrZqp_o^Hf(Xe4gV&V-``QK9?a?uZr&?6^J{Ty$=h85f+LI+nfc|y}2XqB{t
zXj>{<TKs)Q=(D*((>aP-zWfzRi6QMOl}X$ZXl^o2gQwr&386jhJU$=2GKcalk|(GI
z17zn*1X^}GBS56WLO2TE5)?FB6W54wL<y#)q-5vWPJ<4>U4=-!qU22xb<CS3@lkqk
zqpoxYWg}}W?>pn3m&}As_9*h7<VW7&>`d~9YpVFv^)fVe_i}zoOW*3^;=QBcr7V{#
zSH-1;Dvw{8(d%R~h?)-1+?STf`&1A;O<jLp?ikcDU}FPq*>Vp{oHu}H&!?1b4Rkff
zD2&iia%TrQJkdfm=482)2f~X}Oao7rGw=TKMKwQz28>Sru#Jv~N4*97CLpio^YebS
zEj(E}Iy^kw1W*HzJLvgx+iA5?k&lFIVql;{BrtnW7V`@cMogojTE7+EwPQy3*6A_6
z2=o)|J!(rsoSVTAB}=|gb=6&6=>K#EySBi5#O=kZT<l}$RsFFqteD&KoKG%w^b%<y
zLw=$YP>os*ag=Mi74$8Esy?i!mRQ~tJn+Y*!tG0+i_+lmC+D6!bF&#yzH2sMZ*C*v
z8<PAR|H`PCDYl(s3k5OrU+U$>zp9roTp%^QIKu*Ul!&hcUZReP$!w|}ikLZ|!JgCP
zsV&%T{v`lCF1FYD1j#Dg-_>{IZ0+$4k1tJ5wA_CWHh=n{kj2GsRhqjR_RU?UyzbL;
zlP@c;#vY>TK~uSD65;qK<OI!jM9qT|?0>2AAMbL36+lDyci?L)gX^wx)xdl9w$|d}
zn^+5ZIY+HvLCzNd%f{1VN0t9i0?L11Fb4L}0|JG1WyC5CpGHWA&d-H2?nuYp%1&4t
zm=!<hn^*9j>CKSCFSubESQvz%9(-%R)F<>pLwW9S5~9HKE@vd_FIzMa!(^H5MW$BX
zj<+~MDdkO2rAjSyR3-KJY^xe+>liUQ2LU3PoL*62agCdW$X4MD%V4hQX|8vJokl(+
zn#t+@?y??*{~_sG0rBJGbp}8^ge2@Q(69a<pudnIOcxQf?^jo881k!;hP}y8@Zin^
z0LZf)a#Ozl(-Ir_Qw`<>shY?VQ&OfN+Dcaz0-g%+dYJaJ|ME)$r>W?*xpS9nVKVl<
zkPlw7iN~@A%&~1JIsj~F{(_7y#^at!R8?H&>(&J-f=X`pIR0)jrq6AtozT@^WxY9f
z`KY_tAAspDP{GeicEg9U!dSpuMF6mS;@=la(Fd7vMjdTkzkYp*Be54uOd0mol!KNf
zsINPhIikpmE5yLEyPV-G$%<oa5yKY32CR9JH>AZvhxQI~wT{0eK;lE<J%W@5tX{Ik
zk{`Kopu9R|PM-YKJEip9X8}Jw(Nc>o9UYC8DX6m4ylVxdK?~DRM`u(9Y&zIMJ@#)X
z`ZSco=2v*G#QwegjM+wFsu$B+KlIy;(q~o1UAh*+6gP+seCBVa^L3>(rv6-DF<Wa>
z5yZHyTJm-`iDmGo5Kouz-k#($_=;EO;;tr1SNihb0nW9ulAK#Ejm9jh^&KTrWVw^H
zPVF8;%ECCd3ea{P@x5ZG<0UF^0e+98BjGA==N9U{bJQ6%4@O9WHrq6J;==^{zz9j~
zxG{q>FYRRo)Dd0x>*Pfywand7(J~hV-{uE~eYIau$MOE=?S%U;tijh<v0gp@Wmm9J
zU3MC#z=na_S4kvC!Pl^D1IWLN^v3{axX4S{lb=cbAoi#%*u!rYCFkemJ)?n90lS#<
zk9Kgxh)BPqLL_Ob)oqz_{WLx!H3`9SPhyiQRRZ$g=Ha(^>n&eumo{rEbEdCHC-+iK
zms;)%so5+En<U&S5NYL{lC~sFoJ?I0zV>C(q=YLIpL7V61XU9K^VE}s4_O$drltk~
zbHG}E8Vv(Qzk2mdv0465Z}ri-E$y#H{C!RRBK<~wbLar3tFVhzQ<d`{#Vm(ffgj?M
z3o2$kP5rnDvi|jB-P9p6scg5-j6cN@%H5I(db%YHpkFjFKQ#@g`tg~VO7vUMyCVpJ
z|IJa{GFI5Ub7_OCYCZzDLbr{TZS@6suR^<-7;emZ>*XU(D(sAapI14aP~;&)Rl95b
zh9u92x@>$f6ac1K!ZYFU=}-#2y83#@^1p$ce;m?$DK86<)+C&dqu+u9O1a*{$(s^W
zv2!1@q=~KFX=}f;-F$|>=KUfhKRQY!40K5mj+h5PPFvsYf8SDIr6*T4MUGUW*@;J7
zhuThE#kZKi>EB`N81k|K_tX3Zkz{T_9_Cu=o<*}<3kTQq<&Ld*rQ^`={U_wFB86d~
z4p;Pg?FX?imAcQg>U<186wL&4?eL+1<5{dUUNN`H;}5QUF83Qwk~!&lj~%$x*rq<w
zyvg>&VqJW2gLQe>eyfpbwvizs@PajVe=tNSwk|FtGW-Uf&@gb&daTe+W2)koh}&vO
z63lR~Lv-(2D58aMa7qVqz*u9tr|#bReJp@2d{ndl=TM{yC3u$W+D<2N;+7P(spWk^
zewYx+FS845OEYQWDp#(^mXFl^m-`f<4<kSX5)zP<OX^}}4+EP3UYju7-D@`hz<5bb
z`^ZaEg4AN?Lbnr<HR99Dd%ke+1Z|siDwnJd?Yhw(|N8GKh5yZQ%&W=?ItfCIy)HQ5
z;D7)&2F%w4FE_Nd7C+7@t;VSH7@ukZ@;_&pY)JJZMOl>gn9Rb(ZgDS(Qd1@xf~mYw
z5kah7X_x?8cf#$yay%e+@Z%$b4~)ojgyX!amew6vswjtR3h(OqE52?XHvRtnJ9Qdy
zZr)_~Fk;5O8afdC@WQGw_Va?f$NjZgd<IML;0fgoE%!ckiYcYyK2G+0Hg?cSMIH44
z(qK%)m*-m3Wz%LA14z6C{%by}u4jTxDK!(k&{xfRyumP}O!Ibk^q#y@{`bpl7UuE6
zfDN3#3ekYI*xRKHQd*CxqF&x?uR_h;@&4W%8S1>-Mi5{ajb>l1c}Uv^Hq}|Z-Aa!}
zTSkRqmls_c#$2;*fNi({AD@)sXq}JtSL;xUYBk<TTlf)Ik83d)off%iICy%vsY#<S
zRx&-ukQd(~=gtUsYdMsRFdAxfrFN@s#Ok<hw0KJ(cr)3RcZZt^KYP&OYHkemT<fs4
zj~E@knj1C-bn+c<)Sz=d<aw2s^1Id5ih=?Pi`+L9Ev;Fc%Z9>U&(q1+zRX8hHyNts
ztlP;fH|PaY(N#1zw>=iRV2PT(7z=b6S#hz}Dz?{t2A9I@UiR??3TmMQ4Uck80{Nxc
z=XM%qdgu2Svw{PnrrRc4HfLVDA6x|vt+vy>tbN@Kbq<rX13|&W-TtOsK6xQV#(WWt
zxqLWU#{w!>>GL~sRR2{{P!ADwc`^Ix)2A36$2#7zJ1j_SZtVu^jdd7>OWf^nl5keV
z#XvL+B2NHWbc4j>47H+Bd&hTQ0}J9HN@3Tme)|tCllO${<hlx-2P5}lmIIkbAQ95B
zr}cMIZ=U|oS<vRu5O?Q>1r1)AkqO~q;_>_AP)GddiE>!ta$vLYfotX@f-kPcjLR-Y
zrIAqH>56gdlx``nHpY6Cof5Jktp7w0u^LueXEszg-3FHu<mQNge-kr5IznU4)7G0z
z8KR(S5Psl&w@5!D3L)i(;Wup&Ct0X`f->D*>nc%Xn924_T<!o{ah2~k{y^D@5kUgO
zRGKMCYlELPpLK`vPyTdbz^07UeC#?g0GzHVT!B)923<s_X5g>TjW@8CAJKeN17AQ#
zg%Ayd7w}N1Ns=dwBP>_+6MRiZY}LiciFGS~eFeEUWAp>^gZ&nltE#x8)Ybf^AG<6K
z0Wgc&jTr-84aQZ~8O4NPGH4tOCTyWGnOE-XE?-}b7`FV=rzw7eIWkw7n~Ps)3`0?}
zI&i_r(w0&9FKw;r)V!#z!idZEQx}Wn#N1lJRs!%s+@C+VQci9=LRwz*!%0<knQQ+u
ztM#vZBa+w^RBHZjNTmP&ZXOoYCZqZI_-aEs%!vWo@I)qX8OD_jno7u)irp}e*h2B$
zy7gI^JrOjs>r<_sf)cWxsp*_H3c>P7&k=n4@*+oaaS8(WDa00~!daD9#{X)!DPa>J
zWUdd}9Nc2-X5?M=yb3|Dtjw9yDmgZ7T#05xBVeqWdjb>kcS0TF!_hhZzrScPCs;d`
zlZv^EneA$qT2Mp?xf9A8wFjPeLLJEwTT+-=o6a&uPm;XlE8`Tgo$bPU;|rM0xMo+i
z2dc|eUCqQzh2Ov(Su1yn!5F}Dzm$mvXs%iob6c-?O;$T=jt_2mwu=N^oFN{KL0NjC
z01I2uwN|-*&iCTl+k2MiNEaTKAzs3_d3^{uxM7Kw8X7OHvhQePi7Q7^ab`q3UxWt&
z92~G1k4XtID0c!6RMT^?gbw2Li;^Q7ppKHEJsrKria*`;QVAFGpPUDGEYJW#u)F*P
z5dP5bL<={7On`qx#L>|?^B<>%-MIm?@-2SvgT;!xC~mwU9K{4|=);E(ssBvAK42yj
zj68_{>_%{9NA%dSz`y{UNfME>a&TNxQPD%H`rBX(0vF&-U?s&D#6z)MJexZFOEE^^
z$_IilliyZ*GEi;2^_Le~nHwyoewV-K%t45j<mCK<cw=+Z3$PJWuLT|X|2ZcakjYI=
zO#$#?Q6e@|ETOxy{$NlmJPFJ-pb%T@&EIO?T?cf#1uM$Rq5$vGk^n)N>iRoyRfvjc
z4*oyQ5&ZYH!T-jL{rfTJSF!l-!SvP(_=^}@xED4B*!z{F7oSwk?^HtoaDkPu`u^RF
zD)7>Il7#7zV3(Fp@x104?E}E@Dsln_TPyxJIjGh@!B)Qz(8<ZTx>G!((3|&kO-<W|
z{zh4Ex&+HQH{{r(eCv#3<moZgdQ&3A<nnQ$edmes-1l})J3rpBz^`V(Oi6daq4A(;
zZtv19<{r15U(4n$opXeu#no;dX#;%!sW4}5JB$S;?<Km2-REjW6tVP_6xc|C$;qRN
zi2$0gqOq%kSq21-F%ry6kIMt&m;5ij@>QQ%U)ACU;l?|>%ZbQI5p^}*2cUx`0B`{d
zXpHl?h+~m092H8z0Gb5!L6=8IM~Yyu4P7`rFqOlYwe^MW;8asAjn=23o0hWr<9U;S
zwFoi-TQ=vOk_Vw;r#12CGJ$8kU%q~wE@=u+<oVkZs7It<1K7N4aF>!&OVaW{X5nuo
ze9S;J``^3Kv*tCy5_?zo)yG7({CiwY$H9lbnu*e?btsr}sU~9E#$gSmxO`zSfhxEE
z8k*xe?}YM9+%SCdL;7G)q#s;Tmw^B)8TZpk1;rRpvnkIgKB=Mj@dBKaq@PcHyF|50
zj}Q;o6DLC{*l)xTvW2R6w0Hd6KM}a0aE61N0=C~fV)VFcwl+5GD$B}jqa9I7V6Nq9
z>k?hJ@2I5UUy6qE&emfd5#O!pdZw~%ntR)K)=T-am$vEl=SjP0SqN~NK)y+cwBxm!
z_~3MRcK>y+`9K`F_CPk~!WMN@*D<5Pe}h^eZ8J2NCc`)G?KisNt0cKCzznW5qes5Q
zarrYKnosSUkEZRpnflK0`VJ?}<ZjZ(1%itNHwWY{&nCbgI7L@icLfaIEX^G;IJYF?
zF0cTFeaq3Go`1MsDM7uDwV;ba>`0|bbtgzM;THMLC`69uJzjeWY+qNf(f-PTl1`;L
zb^oSVzD2$=^Bn<(sz*f_K-x|^;W<K?O6M!^7%y%Oz;h|6+H8;f^n4!7lPQ5EP#<^-
z+`#tMAlQ4G?3P0DV>Q((pt`1Jgqj2|2p<WqrP&IjF+Kj&esNg61bH$57u{?tE-q%-
zY`U=MaUH1Vw~xEBcUM>Exr<sTkz~BfopUk^ZD9wp&x(>W!zeD<iq3do=;`U{Dq9DK
zShCONpfy-lZ0q&TwDoj%W4r>gu-=BkbGZxqr2Q2X9o&FVzy&puJ+03pK!pBW_v{#K
zyqR%bvTfmMz_BPmVwpqIb!;a@`wjm+gFJ=2x{(oTa%r^>v1OZ)PQzP79VDf7UfuHh
zE40UT0xSJi=y3wLM5MuMCj8k9?fm?*+bl!OCntqBJ&E%>X62iwOCBB`n6tokxf?N#
z>uYP?g2NV{YTk(!+vcQ(e~{xV$}$Akyf6@j0gQ*@`nQUVE#WH=faV#jJ&3LQV^J~}
z!ch)Pct22xe4YH;W#=3+L$Kg;aMtFCx=_piK*$z2(;R?8^c<cCtThEDB)ffP9gM?f
zJSjMngYZ)+_~Xex8{B7K-wgiCB0ncVas$$Wp~qeznB3`p{voC)nfTG@nSpa07;7?|
z@6iWEFV2Jgv(3s9ubK04cg7`dT#<3yQf(8HN=SOM@8L$5LgaKyOG|~thxFIlP2hT}
zfcWGZLS$L3^`Pu0*Q`+xartOTOgF^`6v15slOkIw;MX~oYPIFbxLObX+Y?6N6{e6^
znyd}TgL&9`?XTPpsDWBXKd_6UW{%!)jH!ko&%q_It7H@DqUzKEUBx>Hi22d4DKJRu
zgzcg@SmV$oG!Um$V2x%9;<;wXU(_;=*h)C6a%SDXMu5`^-YSY84*(y)slUJ9<eHpW
z2Aqbidr*CpB(wO$u;!GhCxgGp_!+HIl$8Pbr-WwbOBGJxg7zLQd;87Y{Nc4A0JbE)
zY(MdCYGU4k%f#Xy$x_Z^o`dB%lq>3t2u1|nZl=B+Gc{hu9*K=TrXcW(nmC?E*H4;e
z=2|)^BXZZ!lwj(&(BA3CCa5c+FtSHf=d%01e^=f2a*4-sNlE@)-ev*3?U_tpyOX+c
zGHIka@5)`i4qbr>TX*B_7OQ6p;5-IPpT61&I}8QLkJcT6dSranrZYHI+n?y^Nhw6$
ztF5i|02C$<T|gn9qln~l*t)Iu*KF;t?~WY_*hGM5j7y6WY)}jES!{DY7`P_RzFLKI
zgkYf=Y_S`GP+R!EU!ZKc5%|12BlnDs93Xuiq_iqR7s0_;%A<8{J=ypon(<5gIJ^A_
zgxEb8zIMM}(+Vz<2AuKV5i)lTz~*1B#MaP+=NcT0J*OVhp|#FmU9c#}#l_vf5^g6|
zd4neJB4QI{C<y9Qc$s=!SGon$v_FSZOu5G39bhIsWOzcwsb^WXvry=ZfS`HsD`y}6
zPURpswZv=ka#U)L;}jD>#3sT9ZFEGz9Z{W#t)A0(w)=5kK99}s@9^-NR;+OfJ;&B3
zaIIYue;^~+0tyu1>V_W|+thJNENR+-b0Yl$Y@z5*V!;`36}K3Jyb%bL>I#v9L~Iv9
zerT#`C`FI!nbfSveRweb{rtDzGk@gWAZBhMC{h`nV)or*CHRy?li>SnJO`)#7`T34
zaIduT@nhcGbp*lJZwK={@lR$Sqar5^KNK>Gvp4-dQP{tO&DOX5>(@6Yv952Nm*<DL
zuhoh^$KK(7S1)0|br!By9=*4>$7S(NMIg=3uF?drNjT$?*c<+J%ti33PeBy)2Q%!>
zP1wkxphuSBfR3}Xvr*pTbfVw|T|Ym}OV->+H@P=l+wu#rioQBm$}r({OtKOPe@;J9
zTQ@Q^G}V=Q!GELKE|zX<dpjrmG(gv_apr-=w=X|DrW`ye#jPt%LZ_>PtgTmr@4Of?
z#8BRISKGT7-ZZItG`ysou<0{5b2`>mH~xFV4qW@jPY_&JFJ@oaPfkL@7&*aK-r30S
zcNx`tV`6gh<0Sfg=}<uVu1d)$Q`-*tcr)XOxcj9jOaJxAGwX?IfrUW!ME#FG3fDbI
z!QT>yy82xJ2QY^KZi%F;5Y5hI@!hv-@SrbX8mVyo6U>bbcL`ZQ+N%deye&SzUe`-s
z=TzhW01Bnomi6z)?&<V!HOHdGYlC>XbahU;UXJ%;bDYWG$PgM6pd0C`V#v73e{|jp
z#2N_QytPa`6hfQ^$Iq#(?*yqvoFzlmaNHvO0ONc7d)gwg!~(-#b4d&EABFX~F5tfx
zoUtYlXHcz`GIk;!oyR59`{KndMC@RepcbuSF+@=(B1PVS!@uZTDTCawIK24^*EnmT
zry*SEt(#>n-9kWvCZ0I`R2xeJo`28bi)yTh@}GVb4Osk>rnf0=-R)pSQyyVEyvF1&
z;q!xE1jsIFuC?yGJ*%xt0Gd0u&KvL=zcVacdyPD-i-6HQ{T&cT+{;4BaEm=No!;Em
z^QAm~m9j6kw;opj#GAm<^<}-*UF3<2pPY+C%{jIUgEz51#B_1Roo^XKcduGHhT+Eq
j<9jeF@ej7%2{d&*n@LJaQ#9w*FFB|_(12Dcm<RtqtnTgz

literal 24129
zcmcG$1zc5aw=cQ~X^<9>5TsP3L68z81d$L?N=iBeB&9{9LqbA&q0*hwk|H84-6AL;
z-5_^N-*2C@-}8NEfBW2fu0MR?#T9eS`8;F%Ys_FZ6$N4fIsz05MXY#B_AUyAF@yZY
z!-3y;4K}=jZ#c%c6=dN%{5iN;>jU5L?Qdy2qELk7$X|^9N$+D6>H<npR{EY>^2(%#
zr^e2S)cUX}hp1vqWyT%5TN&A$@qQKhSroRDlvKi(tc)BD`tXzRJn$l(j=CoOnrnZM
zSaZijvQC*Y@k`)c`o}EjbUY2pa-GX83lXvXgo-i3RgT_1+wo-q?<_T<lVdjBB^f1I
zvpPG)(vp++4m`gsvSjDx`UM3A-BlVCL$R=+W5_6Y$;hHe5_~Vs9(zlfXv_1`42s42
zt7}p<{@y8?wHM*F>}RcSQ4IbukToxLdZ1bqsX91S@3B$8=EY-lbUs^bt&XCiqQX5;
znuD2r#{1TG@S+JR9ySYOng#986NbT|q1n}{X?aISfv@@6nY#2FAz2d<K96~6WcRpP
zCYd<qj;a?^J=Q}Fj_3S$qwol+xtdhHH!12{(qnqlZ#6kCetE&w_0p6!F)=ZL-&9FP
z^(#;PHhIHFxZU<ao#ntgqprBC_#V?HKlJrSM@OrF)hrjA_oTjQF!$*q4bqR;sFS3v
zd^{PFSJXhq9+T6v*swch4KK&!wXIIT5_&cD$?dO>nU+>o&ELC|)OB>|cGgNh@p>M6
zuYbTL8;@iV!_kgY*V4jE&l@t{{MM<};Q6$5>uZ5-;8u?mQ-&HIiq~`B-c6iQP*9L)
ze~Xm36^=OsJ=5d!TL8|d9{0KLJ!z4l+%<StuU@?re(~XJz1sK(w{H^`R?iV6JAc)d
zuqtrpGZw9xd~9N3vc3F%Z_<_NSL3O-_;&A2#fZyZ1=?jer(05|1IyEoUS*&;tG`9x
zUT?xWD{JHP`(V-G$J=<Tj*<&_ZnH1W*&nS|&Ch&zj`EF*qgGB5CN8SqrDIj>*Y_B>
zbIoYs)2rZp3)vH4PI6vU5IXzhbbR`^u!(ki;ltYU#y}b7;~%O%&6Zgy0m;eqpHsxn
zF-9sJ9laK^wuhH)eq8nF=U|SA=YH{S)vs>bdWp5)M{6C(dhnb-Kkdual_2R=vwL`k
zklI4%OMm~}<C8U?$RMvzv6r+eZD@1z@}g2w!f*4`QyO^fXhx3oh|Cjx`~Kay4=txg
z`PLvUuV|A$QF*^F(i^*IIP~z)T{)5ejH=X$U}5dA>n3Jq=*r5<p1q}&mDWh_?The>
zxn##LA9U^NhvrWr>`GTw1$OR7bTm#aZq258{E{{@Vh$i-2r)SM`GD*ksn@F?8^)`4
zAN<ZFT(e_@>v2{)ZlnJ;&rVHRKmZOUHTB$-$66a)Q-_t2lAuOac<UbVEuwdKk^(+|
zR=#)tKDwlY%&y^py*-jCa$-VHeDmYQlZbA3ug?NKtsH5dXo=I=K&JMqRTJb7-Ya-K
z=IW5THnr)!R=;QeMRZa2MAyI+4^=hsgpiJou6J+{JN?QfDY%9buge38X#L_1ylIE^
z9Em+8nHr8J*X9z<Q$O@(+`O3T`c>O}HpO-7$FMnvQmk~0Z_7Q+w%WCZP&H0}zDMmA
z<BQ!%fkh361ZiHov=NLFAzNR>RF{?KU26H9f8MJ*{F!HAXV;;jDnS(`+q~Cc{MR-6
z))}(_*REx4Pa*jY)6;Kc`zPM}o{}~r#TY&ZT?XzG)*kz_fgACS$7gJ9ZMBLGrDYY;
zm`;`y_V?!_OH8|{=_TAL;h5jMJPF--k8{`MgCXfziEUCwj}^Y^$;Zf=_G(aYb{5*)
z+Uo1?_j8^0I;SeJb1%}1$w#WBs%KDFl=1Wss!7Z8j`7-5{YZuNITA+kAh?(n)28lq
zT1Ot=q7>E_rA}#mj^~+X_l_=d7e?&Co6lD@o?OM2ZhC%Ja%A543JuX*Ne5#Kg{t_o
zM;#GH{cjX$#9X+3E-#nZjtj3$)}D)$`Yj@Pdc5V`W>%uL-hSS0Cge(?@Azta2a``&
z2crj(&&jgE{N+81o^ZCYlUcV<M`b;dEtj&A`P2EaYq;rs_G+hRe`KZMpz2P4A7vL7
zwig?<xQn~OJBchNJMvl$awfa~%t1<yySVvMZwA>pKG{ndB$!o`E=dG8gp#^1qcr18
zD;gT~k32j)Y6)(vuB?Q)JychZa{u;`tfIdDVfU9W_o2p6JD(1`yQ6W<c5HBQt6?i;
zEt|=E-zaUPVdtyvPgS2ojn$1eiZO%Nrrd6N&=cWkqH>3qH6L=v6WnmFos`%e7+(C@
zZCf?@PI9A_A{YLkIe(U#cHK+re&^!ik{iQ*=Pqo!A@4>75y`ZktP@)}?UzwPq<9wN
z&8FG8R-b#`<o0#(jV((sM(*x?{d&LP^F1M#M8+biBafAmjzI+`FF~t1qm+~sD@)6q
zT+R@9i=TT(Lw%VF){!j^P@?2L>U>VUHKSRDC<!dbz2Us(!R~cxe59eNd2%#;TBz^2
z(PpKupIQU8Ibq?e?t53C#|Dv+r@G<`1-ZHIeRAh=P7iu~+-=rWX{TJqZGVPPUAYIx
zN=-?b{p`k#`pr*QhG3~HoosgT3?(NgGah-t_PU4qd9>EZB$Ub^=8}CgkR<%@8rp<b
zP-y1u?Rcw-&tku-v7kitR5UWcnnk^Q_3EwAnXb~XmcX-_Z{MDAsbxsIX4lT(I`Pc9
zsGb@YvD)BK$BEa}My2g|0P-u6K&(=(`A=7hTA|}zOpQrPD>@OI5YOi%c%77FR5toD
zF>&-!qnB5qmNzWbn{lQI-DY*`&4eR0&R4jo2~mcvL1ZW1kx-5)si>smOjm_wRe0-z
zcM=aT9;b}j2-}XoWWI?)!9E+SociRHeze>LU6%)X<_F`F8*!#1t1eKIG8Giib#>ya
z(`IF~(BgDFQHEus<wr9o;kIMtmdJY*)@>@q#>UEqugP}R^PF6@L(xcii#Pl}TxJ|U
z(hWde=;Al)New^xReQF(yIbUBdmytRet5Z!_}YZ8Tqt!$O%0u7T2Y51Ji|IRK7Mc6
zk(}*Qx?<BTQyo{=ehbrY-?LK3q)EcIn5b{xzTJpsg@y-ZV^vC1lh1wI0@YOQFuxAF
zlQ{2wfsCBo8Tm*?hMjMH!&`&%uh*fjaX0K6bLo`h!JDriow&`1Uvrn>W8k@V?VNtm
zwVz&-zdZ}5{CTweK3o8dK(XN|O?r63C@Lxn{l>oaWO&`{{WH&Z#q(Vo`#q~0ZoQ+U
zIktq;98MzieA8lyM^F-vdi(py)m4aziQS-Y&qrLE8u8wYNi+PCEV{qma&`mCv;5=(
zpHC8+-0#0dXWwbqh?`9obzFy~$=G<%ZRhS)lqg_6XD)R_`>WyT@#jPV+^T7BkH|&O
z-BI)E?f%=izn=x+81}Nx{9;vXj%K^fYyO2kJ2zxy#m4jWXu5;P=is(my*|pfYoQtI
ztT;+jv&3~xKVPSUz`K#@#sl&__j-wF6N8@fqEAd(>&4QSrxK>u0$XN%J56LXG$?-6
z?@f98#M!TGE%qpQc!)ur&r0(Sd06YRbMW5yhyMJ}o};~8Mg-r$Mkul9W5Iqd?d0Mz
z_p5e|aorpf9Y4QOlqP6NjvxnYOboa-6CP{z)w2QTS*$`%UIm@JSj+tW?VGF(ljsvx
z=yc~E+_^qAa=%b7xTfYhmwp|MUE_&x;rs8evl-$KFYn!Z4X>3703*m2>r#tROMtYd
zrk-QBkovTFTL_iNlW%y`Tw17f>y-_7trC~jF~%NP9AmyxXZvmteZnR}O&@%5g-hZW
ze*PLJD)s4iTB7s9L{KwH`1$$mC!L39f94ehT)?B@GseCyCZ>M>en40l5tm*y=^A{1
zNWL^L3A@?m7jB0?vM#!>jjg)W!6iVDk73og!*W5@T%gpkkzU%usCil&f>;E4#3^nD
z5J}&;Lo6RbKf1W66x%R0KlH$$?MsT75j^MD`^DX5S?Xm0xhoy>1$ytvCDYEHIdg{d
z@?{w_GqXqvcX1UbALtj=U$?5oq)F|!y07igguc!m*<BqE94#}S-x)Rt<P4#a^b|?;
z+*DLf6&JO-ay$Qt>f7dKnPjis(fzqlo^sn@?v|6Iy+^R>v?{D#x#TNF`wtuVFu>pX
zxZbmj;&|}V?X>2}O&lyCY3aL~nk+0zev`GX^8i|cMf0yv{i@qinQ$7oBXYD-<{bW9
zMN+v*R#x^pP5GT(_%7d$tt>1128-R0g@uKI7lVR~?1wLYLQv2x+`k^T<l(#_*c5e7
zR@UTR{hhGbUHt0$dWH-&PUfRepFa5wFW(vY9o=SJVzI?{KC#>ECMRXc^@I8-e{+69
z9$&+IrCcp0{FWMibcsV&;R%gnL9*(yW@hYq-0@Qx+m{$VQ7pawRbF3TKkYcV%r>-e
zsSB<qzq^g<5q3VOQmYJ#L+0dkd6w=()<!sq3=f+q&6i3}nv+s#WG_b9?*fgaiemJI
z5cKRk_HU0cx<pn*HO--Q2h4{Y>rO!wOEoWr+}YTN7A%F6G9NEW{O>-ZAtpNuOFzbc
zu$JJUAg88(b5{QL6!JLV6K^SKU}~D0LyxY0eEpj4a{?b0kcfe}-q6Z|iVCVSvu<RI
zqfh|vt%nQm+zWzp9}rcH&DF(^Y#BSBqj9qFq@<+2!9jnjEBBks%8aHPyws~OnxJtM
zyKNYMTU-Qu^{6F)I6FUI`LE|2DQ%O;@$qLdiP)p4sHjNg$S62eWWBs3o;W&s*j%}E
zNm^T*7C1;?X(>OH667UJe$vh@7d1vKbj4$#5FX*!BXP~B#N5=B);q&Pozkd8i-;+U
zRgpKTyI70MJ&-)+0v-wlUEh(lBp3~gjo0KOY5mO~F`OYUO|{o}jmfbw(46n?Jl(C#
zu8qR;^M&%&l9qJ$VQNPeK_Htr22;_|Ic7Y}dz#@j#HeJItT-)eD=Rg1^=GgJGRw;;
zp*#)iJ5D`a%*f8hL)m}2l+`r9!OHqIKcCCV$>{<m0h@_Wr*VbO?A8I1&&zQeVSgEB
zz?StlgF8+5rAe`&G{Mh`&?lAI;WHwKHe@AdZk{z|)XEyd!Y?2|;qv>|J10(6)W<Jh
z0*05NVbaLuc9m6y_PyblnVU1t*RQ9`ln-wPaIU7WAMyF~XU6fGyu7@drlxFG*49XA
z%r|IcluT32Q>3D%Mi&>8qGq1FpV>R2AkWLq#lv|HU-+X2rO>J2Xj(W7<<v<DUJ#{?
zpx($~#<Aj~Iq4)-W*R%PqZFgDH8qKuIC`BiRRcvZF3=FsHIT>r+*~QBOzG9{)zsA7
z-)lS#2MU^zk%57F86O{r(1iyN5NyH5#-?8N;)M*eps;ZBti55gKfYGAJ+sT&l<mHm
zG7xV!yxhJ#b+20{#3CFVxR0yG*M$s|x&tC2NLq${%Sua0iE#S*`Z8QO`Cy~s`MoTj
z=hV)>f9128z{KM!*p8h51{!koqFF`gNy^L1ml%}NR$M%E1Ye1zsFYV!&^F*C|J*De
zwNXDxu&4hA#s5FvED65<^;6jEu|(9(%H9vRMa;9o_2cJH=Twr}jpt&I!S}nc#2}xh
z%uXSz?$1egbX}EF?jIkcdBL)3e23(%>MR>$xH2g={91S+k;DP>hP-^hY`oGP=cl_a
zB+5tF^my3hl@WPdT}w+#Gwx0JEFmnzSSso3?oB_6xov9lak;vl=){`C4>lD#aJD||
z_(oFLUN!XnQ!Q)$w(tMlNBOIO{=28JN?;tFcpuN6^=aDvF|Yw()OsAY2=AkIA}-xZ
zW!?Kl|Dt}lAob%?{5H0pu5M^3PXi54!#)dKND_wY{@=fw2?_}rL02svwHc|hV?r5@
zSK4aTx$yyg0`5~{)Pe&HlwC{~)=aDb+YzzS?b{C1UVF0$_W>?f;<5J_A;@SnCYsZD
zt~EHjs7OIk5g+P3uicb*?5kHFmUmdBq?p(>dPw)6o27`kVxqnv{QKKCR@VE{qyP?C
z6_q~zj%KTSS=|S9Bc>BOv<(d_4|V|jGoIg6Mym;b;swR%*)ED3I<1#NSg@seJ(F*^
z$C@W_b*WLxL1|HPei~xDUGun~!d_k;htYFg8r6i$<ms!%`9??->!Bjg@yHJ+<Acow
zRL$$`E0-_xdhFW7#>E-`K0X+;ZaCh&T?fbp<qL)85ilwIV4-B++75GBH0SQ&3%X!d
zMN2Ykkq!CU5rJs?=3<=!_rU%vr-P}1x8g15g5}ROr1Kq$3Jxud>ORG@3Q_vBwuiLT
z4+t!S5`+{D0rM}i01rNOb@4s<c5C&$v$HcNH@Cd4?bY`1^MO0d!;e6#P%qK~#pc-C
zN5=SbXXmr=RZzo};mov|m1SgRwyfhmy?>t?Q0n#T*SAU7*vm$Vq)EwL=-EPttX_=T
z1dOkK6^oSwT#wYYmLSEyZ%#3B#>gq7?am)g=z;>`47FQpYRFj|vk@M#sbn12=*Ncw
zMNnqm)9yU{Fc3tTZwm{|P!WfQhAb>Cr4<!}caMSjx3|l~mRC;T#UMP#-TG^?cHrH?
zi=d!vsk`^FRH(oDhKCBxv>FqOlxSh8h=29X94Np6&>$<p_s?+Q->vq4fiV8|6lHf@
zdo-(}A6FOtX#52{XhWoOj|}4drONu^FH*|!WlXD<CMf^d5a3NzCY9@3U%+SGbxq_#
zbIOonw{+lNux)Tnw|=Us7`;t$@!h?6b30Ksi7(=O*|`LA>g1JD@SmDS6FeWYOb$a$
zO^V+qtk2P$q}a??=VDnq0XPJoK4gD>0nd`mT<dyUB1y?R{`RRaLzaI~2XfsS?rF*)
z=mS>vapC|o2FK=+BK4mIJv%R$sBEd8dc)W!zLWg-35|rx1&L1rT$BXNlmtH*<dt){
zd#0?$+aFuAv9Qp+`M*;;{&qGmDK_;;?9sndO^aZ=9cOXdcW7|Xusw_x)Uw3Cfe@#w
z))fG-@A==7m5sftsM@3u$@l{FzKynXe8#PKE2Cw&z^W`jzXZk%ys+4AS`ziIamZhF
z$XsdnyjH>e1m%ZzkN6Ye8TK<x829eoyFn?ZoGe1Nv$MnbFR+Mp(dw^?Vf_|RJ<p<$
zPWA<KU;oz2isYqbWyFoW^%wB|K#)ETfF;67Min|cutB6rQ5UW@xJr}0jETu~<@8d@
zdL+p3NrSRY|D5wRa`<&hN`Whl7wm!nnT+i5m{i|Y7csi?=N(onhJo_ZKX~X&g>cf<
zHNOiM9FkcB!3Y#uvO*VTXE(t|2fa4rU~AF3=%D>t!?WmUa?}lJX^gS)aSC#4*r|2;
zc115tDXBxx03KN5Jv1pBMS49`9;+fLHpT}-HQ0gCrnJzk^ot&>sU60WbYydee1tAO
za&R#bx-D>%9g<8{;9cwP^+=ujvtxJTR^UjNmzVimR<tG@Iv5a&S@LwtEcxm8M6G&v
zA^C8+7k83`Gk~<u2|=L&5GV_UhWe_GKNOml#VyMRg9!WJ<V2yW^|<#>e*3rP=3e&u
zkUp#03Vr>9Veh(-@E>3TO8Pc*%D<uKnh5pGj!TN<_cVo|2oK|nGt6Q88uD7~D=Fu8
z4cG`POr~yoG-ai@&<Q`D2m*XEyAW^C?vGFLH;5va*Nyp5bLXGS30gE1%1I;k(9%%0
zBx@;7a!d?X)wu0GT`@2Q1%<#_>n3e&ZGchGm3zfv6QGk}OWzuCh~>JUM+Ha!xJnn!
zC7f%b>3iIY<n$!CIyySYhXB0=G-bFB-<+=Zef?^-PiGIuYgYEbtZZlGi^CtL^SAo)
ze`nt%Y?I8$CU$?<KPMIu5104jM_)AO9|)+-j^~#S>kp)7fa7S3m1S{tN@hHn=7>xa
z{P?WN$HP$0U&Ol!0(QNCCo>jne!UeRMN3N?U~pLon$5T<?<$4;1=3q1*9%LzGBY!u
zFJo{7afaxf6?xXYjFHt+Q~aZpv6!n1N)7S@U|j_T++i$9Kxn=g!qNzT^ZU>I?f=WC
zM}cq-!Y2KEM`Xvudq+fnsJ{uIL7IE@!A&Lq_l}Fk-LHl4urU#;3PL81C&;`AE$9sj
zvUsWFPVCl`Dgo|L|L^feA1PG&yLUJOW}lltM=Uqp(b3iAv;NA(rCo}Rf-O`G73od;
z@YGZUaAq3N=f=N|jfD*BdtA*~yDclrQ3YT<>Y{=%cn(_cpRm1CPV@upE_m%)W=;<N
zmHYX=-DWKfUPmYtV4aq^w$P}ww6l%Vk;LbP(}DfuZ0uB8RCl(vV*ou)jWtdD@<l}?
zMFsc@7A{HpzXLi_RxA@`=4U}T!$8qUxC<t$Ec(uuYH?M==Pq&Iu>wAV=ZAt)vRqjE
zrC3obnpKO7x?rIx8*pl;iC>#>AFOF;Y8UY8^}}dibei-xcx2uV6p>T+zknAINpUN3
zlPJcNHUtgu7W#y$dYJz39qoY8a!U&C+7*6O&@Fl>R*@+x9C17bB<Xp<HE_hx)#WWM
zF9C-ust3A&k@uho2SrIqITNd)BAPLRC?tq(xW8<08WK#wVGQC&@%So7d5=l-Uz7wR
za9+^enDA5t{2bBf5d>3*SURwf7!1;Ai!?Z0>TwFvAjSSznoPaOela#H{ayMS5Rq=4
zmGH0qRYQof-(FJx7bxi9U!x$x&kIjJtnG2IegPB$nm+dP5B@7W+BU-H0r&v10|LrS
zLxj%Eya@%7AG$s^vr&h7DbiKC&EW9}uj@8@KD<067KWV4mf0J(Z-*kJ<#AQZ{071c
zl2tgy#>QYN0gi&!p9K%^Hd`){U~74aNG{+M-SbHPUm4Zdv`hvmv<JkMG-}31^rBkV
zHR0AF0x~jn^qV(0$;$Z{=g(O;1-H@J8<*fDyX9jjWLXn~LK4LC{~!KQ8qxXScLC(u
zThXyEPuOnn3!L{7m4QCUpGedgSN5mbAZ$oUnLXxGMu!Lg+m=1<|G?13J&v91UHp`C
zeQ>UTiKA)i3zK&7wKRwP3ngfwTQ$a+!V3yv<mHB3oA#uLlsx1N0M`h)tP2YZ?tw#j
z_M1Y7d)$h5n<Mv3)G67n&MC)lD#wdFD|F26qd-cmNl2>IfF#D15I;lSgqL0~8e?Tw
zd9<6;Mzitv+s+xZg8CS`yX%5#io2>?3|l0OPDp9-Bbt!IFw<x4KaTlk^6YeE-#m7I
zrg%$#210~mO+|mYOkutA*R65NiSxurfB&8qbmHO&GBPsSvlP5+dgZU*_Z0;N2i*<F
zA2EcQ@dBJ)5>UI{1NjZXBsst0QoAbxDzMba4^`)|prDU#{l6L44f!3vE8C2go+&6O
za9hd<EH?ardAuGdH7J%}-3?j|sPebtxSqAlHZ{K>boicV{*!^4EGnZI$A(nQ^;au=
z2r$|F4S9n==YP~0%@(kBhbEjeBtiTsKNx)ygM))J6OKJYVyrAIEk>BaK}gwo`<BgE
z7m71*vNsw4mt&Qcn{d=MHDA=#)dkr;efkv0!q-b6yD71=8$P$co{}J7P7)G|RIW(y
z;$}YJG7XAx!9PbQq!a^(AYqauLLu@Z7%)nH*R{LBP?h?<5$Ui#BMnOZ5=n2Z&3|M8
z7)Z#-*wiDj!PzN!vY<5Kb9w?;DuLGs6J>a`yJ}xMSq%!eeGBom?duiPDKs&it>13T
zI*~6$$$|302THWfcx6Gyw)V3dsPoqzw<7dGGw=Reu3J$4KfF`G^xheI;Nev|Y9kLS
z$>l3oV(2Kz$odS=xpL&+xbQMe1h$9D<$CrRIAs6_Y)K42zBcQoOLiHvyhIoQ?V&j2
zwXf9S(nS+fQvfye@87@A&dY0g^*}!ukvGSy>>`iuRN75Pj6bd=23^Gdy&lT<KM8B>
zYj(D_ZTZ?|#U`EPsD~8$MWAe_r-j1>FGjnVHh^!57>i*{Qj7-P2W;&T4532SUuVFd
zcA2mPwLcgPC`wpaydV%^I9*j8{!4e8fdlveZA9(vT|e9LN~4XrHa8G%5!UQ5FF$3+
z4$V(dEi<3NyhICL1s~8TDw-84msR9Ez-NPWD8yjAhF7i*s7k$nmITV|GsGKeXkdKx
z>XpUg$A7#b=t!SaCC(r1tqliAJ6Bl^T^0v*7Uc`J!}-NDAMXhVxr>VAKzCMT_KZMY
zYoqT2hNG$35^ug=tr945M*3FLnj`~|mP=RTKAAjazn|MBKuNGeqlvwJ7wf(z6?Z%#
zdSpoEDxOU1e13j@^;9)<N#LukU`6_+ogOceaa@-sE$>jtqUeg}!R;NA1q<<SlH69e
zoi_!@V*UDH{vI)?av_M-O*}x#7eK71WZEo6z#p~OuV--px*Lcx2!Y4FsT~JceRjhQ
zL1zHoz~FNaB#U8Hgx-TM=EJH1O#Tnm%~XXw#~9hMevS}2UT7P+v&SH|o|aY+Vnau^
zXj}~NI@uXM@t%h+?+FHs8@MJLAkG_st0}TK;fVBIC@KVC63D<_YPJ6P^QW4&cJSDk
z4q^)}4;KZ(kx9yeK`3lj+O^;}y|(5mUIGRS5MHEaov?+XIRSD8s5a&1T9wdgSDRUG
zi`-$?(23>nEe{enKH_u#qep0QQu2EuGBRz!F5z~x@7~&UTJbd(5qeH8u2zt25b}S#
z8Q&-i^Z-_q`oo9ed4)BXjlXC8MXeD@0@3P<4KYAy@u>H^0DD?NeGP-j4kX_FHXiS1
z@WAQcyHx>nA+aCn>{V1qK#-d)614rRI~rhp`SeMKmqyTYAQ2>i3wZcq5z%c{70oun
zS#mKse{YLRB}Ca|qpQ2+)jKo)0uxUa;iqH)cJcv>3CQ)I=m$V~cJUjqv11em9hzX3
zgjM&PCwO64p@XQwKBhOJc9EdJ`lh-6yd=Iq^BmYrYu(eWVpz6F4VC4jY(^~6dmX?h
z1(#$CFp|2>j@M3q^Ay(a>KxDDO5HFw=eS>>^I|CP!J~<4hnxt$tKi+9OW=Ei!>*j*
z`}3#O;PCJ=13A=qts+NhFqE)i>G0I8V@e);qkx{=yPjgXjn2LNxZ%JoU$=@R@GMh1
zkj3Xok83*DQ{K35!PYYbpKt&7USni|Zq-kye|_nc75Imzzt>KSA9aubiU93n_8Bf?
zQ|u)TM8-lS`UiRra=G(@<*Jeg*w7is#sNSSL)p-?|8VBIoDeTCSAefF5Hvy=f}HO*
z7tCRQun@mYPfOM}LoS4I3h$=?$s52<ZN?wKrSoOJ888F>e*59hvIaeR1627Bz@BW%
zw76)lJ7ueo5l;Ysdc$UrzAR%5#RZWF@u`I{raia1_b1o9aUn+Xoay+&oE<zfC+JE6
z5yN##fZu_`%P&AWf)xfnX!vYP;4*{G1Uj5=p#YZ!-5UDZ7s(#MNxZ2}=~DAE3mgQ)
z$r@)Q!P8%p_#5#c5&s!74H!#wHzeWHr(}W(;fZE9lqOAZn+KsB!b2hDcj}DJ>Dgl-
zxeFwbvVP#1Am+*q&c-%LXplwkk0{^q@$m|0508PgMYY44pSgMVLz)kMFyO%1{(2FE
zN2?eGnX2lAI9(*kVEbDM2n6I|j#uq`TEN*afesvt3us<YYx`CcoOD(sr2%Od@;~{j
z{W(HZ(^6li1GFVW5b-QW-$NVucndv+#VBk;gBX!WBO5az_q*^$kQeDh`8`7~!&2S4
z%^V~7s<HkTy|{CIny{BDi!+3@O`k(g0Q<j5#L~|2{vl$;23=%y+W$<&u=LOFkCZ$@
z1l9XR`r&9a3$%WT>Xp*2Xj0SDuUI75m}8DR<oaht7{0!^6TjnYs;v?V=xN8d0O&uU
z-A1ca#$^nJm|gq?oGg!D?{SOjHVFV)Kf}UBJm9*$DGxvcHLU~ClQI<|tvGB$+xq9F
zGKaT=KWZH+L%C`OFg<JkhJ}#@Y*{2pLMC(!vak5gphh(~^3GxT*0w7V5fRxH?q#F-
zZ1eWfB*Qx4Q}nlGbIu81tWCV9(8yA015{iQGrK<9QsQ&^I~H4kg9Bt*?YN7T+FaBv
zdktr?F@f4a-Y0T|8&4)u$8o=;Z%vFseX~`$37l*(B(X+zQQl%4;ByQkWy*xCdMmgW
zUgE#^=S5srXrLtkBrk0I?OuQLJgKH8I5;y~2kysL>t=$vx_~qHl9xdYk5w_yBA8Rt
zn0=-@=~`xSv6@GI?qyYiSaKw`_cmTX1VM5lkhyU{9Mo*8vp6AWi#ubp2URW2@a;`9
zq`*L4;S6a$>Xv<e<1@A%bTWuXtZsnc{psnmOKgzudAgVq2#xi(|86EH0dxvp_wA+f
z+cUH5tHp5MpnHMWwC&y~`Y<4yOq~he?MMGxWaD2TZ7Qgm3IXI}wEVRoCnS8y{}}jG
zbCLJX6(A)LubYX}ef$C99vQA$9LiwdK=A40H)EGV2zq4s#4INGIb%?mtlANcG9AGS
zwFeIZ0S|4=cbqSzo_+G3T$to9qb6zImxA@m73-#XU)9*$+-jh0hz4(~tFBH4ddo<r
zf{($x??di$k_ccjH(z!??kXjU=@gvVsEB5jWBq1AlA#pu&_oh=5&fzsyWf<)c;JVu
zuI~8`45kjVGC2mqiAA;&Rz;EJ{IY0rO7&7mfM9XQUoqB&$~NUTPpq6KSwDTGU13E9
zStn@Th9z3CfwRjW<^rk!v0wg9Sl{dNmQ%ABVf80)`5{L^wwLZ(cqNclz-$JJ>P)o1
ziPr3^I>@k8*aDVw=zh1b;ihI_P$abF;^bsFT=<X%sDJu0HkCErD`;Zi1}|lF!xiJ;
zHpBGZ?BsCRUpG45?~uYli9>f+)1(qkB1TpjXzuT0u@xzKVmcAQVGg286d?Y9`uF@w
zQ60IQoZQJ&N2-JepfTE#tCR#8AcVsK1e1)uteLix)Zb&i*TG@I@>BP-M^jr{+eocz
zk?{5{O-+O;!_tRdHn=b~wc&Plq<Xs!m;U>P+xk~syIBx4<h{MU2N$<p&W?ce->1M7
zPQz$YHO^=HDYn|!0>CG%CzANC7a&T^L1>S@7n`2L{jA8V6&J`_guhM??{{zVXbSG|
zXzC+gVuTCQnsGC*oHpq7>(|hjnHBFwzQ%}xPVJ)Sv08!UUcl9r4GJWZ#RF~PR<u6^
z$HWS~z)(c$!I<2whYuNm1aQ|Zp)uNGxq-EUlIT%CO<$mxq~X%v$quIxAd<s}Gv{U?
zm*&r^=mrS|H4P0cR5gHM4e|?7sod2wn8~hFPZ2+dmnKY1dS$9!%ovADQxmbB)i|B{
zRjeG3_rLQ_*}aRo13L-qPzjG+gfXa5o<Tw_urN?4Btv(!g9FfRe`>D*H{CiXxAF93
z?GHY$14*PBVuB8k4+VF&yt4970tWF&Tz~0-aZ-1(I}WYpipn<u@)S~a$|$&yP~_TA
zbhP7`LyTML24<Zt<`=+U-8uj*SAsL9@5b6SM^Aybd6JQOp>2Mfo0}BwF%YdWhV<yz
z{Qq>j+!kIvK%{EmLjPfSO?htJfh}n>QB4Nun`3)Q)}0RWA(BTc0tE)ofV?<3IOy$3
zQ^|cm&;;;R&JfJ9(J+upQtw@fZF^lRQ0EpHwRVj{jzRzf7ZZcapn+bu(k6Imz0B!H
zfA!Qis87wn!OkMlSl}%ZB=jP_At3}o=pc9vG=P3EZ8@)8X#u#TcK<#Ow8P`$<Ln1j
zkSc<UfQtftB55RXw<Yf@O}%BW2|r}CXc{QuI74*u<*6mxjfXCqYBR2Xl0(9rur(bZ
z;}>@R8VM|9hap4PwW;vRO5v-);2(NIau?PQjhcAQ1;x8c58QtiXxCO%B(*d;N|O@#
zcw(NW$g(kfET!+8dnAik5!~31*k=&Nk3?uv-RAHIzkWrsv-{t#HPQ~B4@^pdvjUol
zKV;zKSV{hCvQP%fU>yVtQN9rDF#@yAp=~f}U4k?7n&pdgFRoqxE2NQhyG1HO>zsZm
z*V*dNrrPZ<&gqM!4`V*;INFfd($&=^_9F7nY8CXGx{of^DFE|wOwM@kn~mU)Xy2As
zG?@=b!tSQ>1u`#u|BePW1DYw|6UcrcY+&PHF|Ff7J~wv`A#if%9)jKIhrrG6pA)ll
za-^R=6@?T}jzm>qA#(Dv3kupGUsmjWf~11kte!d0L_5$L(cJaf7NTN9(O-A6xUuI;
zG28SE3lZWkTDe`64-3lUsL0K=u(4@{#tD%Ii0)1=7w5}@br`^OiTO{~z~gfQb;Go$
z=iRSc-U5NlZ1;7DZd%#d1w!qe4-=T#aC;dQMaEb4*k=WLu<NArIf(Qj;Y>uddv*a2
zs*x<jTnlS{UWQd{(R22N47{H#$b1M+h9q=)dHEpegDbM`GysTTC)lry@WGk|`n0!Q
zjG$sjdsMJC09Qqf7vM#mc%lW)jnkguu%%@~w6P>1s8?b=%#9RTBnuT474>X$^9f=<
z-!cv3E5WhR%g5k|17?JciB&`Mu<G%{$bCXW!Wb7O(G=?@tXH2my5Rx$bq0MK4}V@k
zHQl*3>2K$?tcwJxbFxxjC*uVZ<)^2kpnR{cB0__@*fDDo$kb+L-+j%RL*h_4(Ujn#
zSzBKLZyz}wd&{_GTJuSf1~V+jYxi94U7Qb2^u0<QdjAUYA$<!;*n)E%$lnq|0|0bw
z`0*t(s^<DGwBPb7MEaxo9pVF|Vx-(MChmfXc7%s!7U103lfCJ{>9yf@dDUbQKH6E5
z%elF`V`TYNN8Qw+ZR?qQORa4~ndzCC^Ka-pZoy*h<mcfz3o%zvAa8%vFB-P5!VL)t
z;dPjkMYa}rJ8$2<b#QGy+#XP^c$MK>NH-1pJ*8M3k0Z0;*R?>3C&1c3al8I}!+UFn
zR0yN1H2>ixSG#vm`C1UdJt!-W_1&cw*}=))hd<l{pWG$Imags4fI$E`_1>weLZJr=
zc?V0(Qc|b>?3I?*)}d~QdIQ&reTEhPPsjxLHy9*A)mc*~-i~{xj-S440|^OCN?81o
z5(=K*8^H^7BAS{TF=@xxAn$NvK0^@@5UdYssLqB7eCZV{j|t%nffS6qi;FPIVtEB7
z1R!<!@D~#Y=&3>3IpAniAAt(&=XJDe1h4rKjvbILIBygTKhuZDPrk43FI#B1Y<ib%
zwA%QYZQkKw@;T;1sw@<GOcW9rhnb6WZZJaN6tVKnOgITC@1Xbs?S`&a5U{f0MkHme
zrlqZ&_!Z--XOsiveOfCbuj*DBp8h_;gXL~%`2oSfPd813bJ&B>oUpEB&CSgtrzU6d
zJ<;7n?VH02pRwz_j$9@n^obY`EZ4DNC2&aahD-yAzIOE>0PJmPb;{pOL|_UR;5vAF
zOH#@`>zGHr##e>6Ult(i2qrJU;`Ez*960$na(M@WSqc&K!Ar%|c-V-28Aij$(l^`h
zAd{h1v<HONF_Lj?R)0*~l~olQBXE2qV-E}Mj;6R1=AV%L^yzO`S%pL(XIr=?hG<Tf
zD_01?)j||IXtvcpHs#-~q)FA()Ogc}FNgGJI=)78V*Qk6WF!%SOcmoae(x}ORL5Tb
z_ml6fL5aS=MG=&GuT6$y2}0&b9<~@31CrzV_HE`t<Ke3*BXxQ-u`2<`yc5%Jb5LEJ
zt|MCDRkE&9dOiw$ADACOS~u)uFv|gc5gm!LD(<nd)EbOn^~DF3>l9$=TstzMa%9g3
zWet#qp3linz*V&`{zC&13}VHOiz>>m1r>)Q&ONte=emd&*=1*A<KMNwzinet-|bHY
zs}mjq7~(wOK_neqT3UKoZy=|>ez;tupe%0;MsT;#aI3^);XVN)HjV3_xo}V*BLSrt
zzW&@<wRhI%d`26~RkP-rjrQ{uSoKH26H6SqF_XXnN1yQFy;xLxph*R;CajCG`gx}u
z<|JkIFvw*$RaF4c^w7Hy$fGp3N-Ez;!6-vz`?YeNG}ofckG29G&&5Y!fBmzBl2d6k
zYfguKmOcMtJG*PgD|%Q_NlD|G@2rKB<{NlcLDqv$0C}pp@&T2WAhL@@>H=c4{%hA1
ztotQ@dv6&s$qX$jYyBZy4meya&jpgYKX!M^J$_s$Jkh!E#Iim=d`yqwtYS36cRfK9
zg?<E+Ko=Dv!aNe2s;1m;-$sG3AmX${3W4Q06MyBCH=IgE8ZIPXneXvMjzMw;fiWWu
zUbVaP3=jp~1#u~QCdk6D=Bz6wDWBK_NcrnbsIGLw<+lf2dJZrvn7l9@<52$_ekMzk
zf}sUCVQ`h7SH64o>rlY|=RUiwb{z5a8wLT4Y44*|EhyrxH1+N6?Qd|YB4u4(oGsEZ
z-d5~oQv_>@&of+}QqERV_hJky1gvOIJFNIEr%!J9cQ9f-yi+_oH3VfGp9wO`ckjlG
z-Y}ab2o<I$*tesw5Qkx;I{l)r))Ly$4^x9pgp)KR-z%5DcHGm<j!3KAlJ!==>eIa{
zVTL(X_f&v@kg%d7H<ylEl-P;h$WA8X<?LEY4x+}H>|^KWS~WMOnc#64ATD(D?j(n?
z0my^EXN+A6*PRkM+%YvN+lmD|sm`5iF)opH`u;?O{-x>rX+E$p5ZVaSG$H6F<C2-^
z+uVveEF`CK{m-Hrj;5@-XX7${4LAp!-j<J8UZqz2J3R~mX`@x%#g9@>ailn7y|a6%
z<z;i4=tJ`2zAk}e-*CpPP7@`ar!HyS0%T>5Y(Hg~wGl%O!t@ys$^sw(ZlIIi1|y6D
z1d=fHyQdy`N_rk|bN~{&rBwIBp7}gA*ex->9u!146`^0|A$Rw&Gz>^HYyMD1)i^63
z#d`nS+lVJ{<AN_tt58AMy%~5l1vx1h?Z8Hv;~7j0*znbQg>M8OEHgtvIcMOx;oE_6
zO;B)~W*1O$dT#ElovE4)l%|~OASfFE0wMt7<AMzb;-*%OljQ^hV-ROOymi5Qx}fBg
zy!!gd^@<b|Bq$B?3r&>2t+4JyXVu%ca$=1E!xm<kQcr>6!TcRU7wutSXlF!TmLqGu
zo<C~<A87oJdxgKvx6$|HIgr?di1f3r1t@Tc00#0b!>}ZjjsTd@d9W-FkTL+7X@e8h
ziI+&kX@)7eR=4FYSSC9TugC$I@>LYFE=J!&rvhGtv-2KZT6(v39cpGs?e{|fbqd=P
zJ4YvgmCZ3FgW<3s8Q38~EF4LyZr5Dq2)QVclrPd!Vh<ow4B9L1_L#+;JuFKJydomD
zu1()Z%wF)E>BFy8>zy2F>EJV<fRjdEDXeB;dq$>yC`N0xNSEy}-=2|^qqsastv`B+
z5%L7q?Icz55Rs#MT+Jy5g30LukIx50Ldem`lA)AC#-Kn3J$skxJQ*=dpV=b8S!boa
z(f2sb5J!W!-2O^g57>~r5aoc3I#;0=f*{E1tFfM;c2`E9gEJt}H+z>Hjto>gG9-)w
z3kn(*SmCU{L>~kPp?^qD;4djLPEu?d()=2XKR))<^FCO>^7hiu&}f}k<7~xFmNzyV
zK!#Dk8v%lGTT@)tDH?oJ8h(=?;iP+RX#aH|j(Pj621-b*W@Jcva4FuM&~OTnVfF+8
zbEMwm8t_y=uxGOd5|`92g(TpEb<fleQNkdg^lx@TC}d;3LFtDtfSKu>1Q2{_UD4y%
zI+-tqSv<sdFDui~<*9k|h7~>_5O@m<3kX2~;Ipu{Zh@S9w<y!y3uc%NAO_CtxI4gr
zhP-m8P(mOzY19VH3hs!IoOLA_4x4<ur|6*qMp8AXiM?OH;y}owc9L;;8R!QPW)_`u
z&DL!3adGU|^{%UY#s&a!mkO6mz0uh~8PivI;!<*KxMYzln%IdfXzD)3`H%D;ftLcy
z=Yb4##nB<9Zkj~yJ<S(g3;iTcEG(J9@RYhz4VL?^botoQHz3uB1O;LA0Sx@Sp^yO;
zv8#nAHq#9ZVEg&^EItRJ3P2EByk7L1Y~08Md^dna3D=!3gEdt+X-E4%D|XP_(71gT
zh4!Q+ZxYySaMF;K2GA#rR)D>*k2?g7h#+IU{AoRbz*zyYI2yl{Y+ccIh7rq0Al8y~
zlZA(eW4UJ{`G-cB+AHr65)wi*a&RBtu^}^5pI-|Rf=!9hJ0xbeItHSF6bs8tV@nDE
zRb&Rh5MVH}tCLmC$GD!P*#L8E18qM7@cnA@+eUN+FK}TPwR5^rLR2~0ZwxT|n%z_w
zj2o<$<mO_%Hew^iONR+E4_lChU^^BYw-Jok2(OG+okbPH030&Zad2<|EpDXP2n$TV
zd2cBe^c1LPM6~?au*ngB5dvq=fdqm)X^)eG@$u8ApM8(Uj7wT2vYa11x`;qUBs5@G
zze5czoPzcpbDNDhluN|T-`$6;AqNY3!mbnvlPv2_BcW^*3YUcb28;lKzStT}p$?}N
zVp)(vHG;kZYac=Za)?y(?&Yg150Ftu4Ak-QqErXaOBz?@KH%ajD=YphR}!1|EW=cg
zL<9XEm5|)IUtBRsNqLT}Ubo{P-J_I)aVjK&e&Ycfq;5bRyS+SU8at~Z&q(bAaMl=X
zC&1pwa1F33y^b6-ryKZFeN$7A$GABRmk2RaS#3|AHGC4_;NURou(zu?g!S?-l|+Yn
z2jD-D>7r5(nmlXqUz2OcQPX%MxU{JBtN3wv|FGfgFiUg_fd2-F@@==9l|jZ(E`Q%x
z_D@Kf#``<l9~*AK*vW6mO6YhnI-2#v<0=ISAGn<Gg$x2L?^qEkEjgc#fZ}lI8Ve#S
zm{tT$K0QA+=(BLoGOjq(A=5xG`}?u8Q_&*-#_1=4sFraq>f3|k3}Ec4ae`C~b2>VR
zmI(8jx8u3Pk1pH5d;;Rs0X+tV3e0Jr83;6Y{2a>T1At^RR<5YK!kiBz9OM{;grns`
z5fTmo8c58bdfmk^Vcbbci}@eGfSD)+jfCVSA*ztuW@R#)K_eeIV8Z`a?kVQ2P?46#
zw1zn%RlI0$%nf<*B0CTX2byK<!}3cZ#`_@{y|03B`K`6VHc@8RXmv$6IzRv1;lwQ8
z=R0@q03;6kTIx{uJJuYsog-I+r#8(7J&?|4FG7!u%K%nH#5kA>7R9o{OoVN3Wo1<i
ze!8AhpBxNt%IoVh{=@N$i;D|N)P>LdPg#<$(L7{P`XGiwYAt~Hd_c*g4y(OLn9^;2
zx~b|r`B(wKWZWar0bsnC?g57=z~}Etc4#<9P!53AQh;+4m;aJNMlJJRCW1c150^4I
zd3ZWNg+Nrc+001E{)-KgZ2vP>cg2-CP!*hMhEC+Z07>0()EXP6e*!ji-Xnp3EX07c
zJDq<V#FkZ;WeEC15C^av%uG<Ge$Moeil-oB^r25BVvU-Q9LP{)qH!apS-RW^g==NH
zktr+H-D)Bx6!{TR!z^BbRs&IpCy_a^M;fW1=Ba44@p#^zcT?vX{k@fTIs*+6r?<jv
z0j!?rmluM9aPof5M{aFxiTXGvLluV82=x+Y+r4ObJX2fL^E}s71rdmyFx$*)_Br8=
zGbWZhOb(6~)!=%8;IYb=MSGDY<m%Y*(5wkGgnqPql8Oq<hQd<3h;Hlt;nXgX^Ksm+
zv0$gYa@1!3!&&d%<@#?FR6?at>!2RXdnBi&F>UO_AdHF<udM9zSFDOai@ye3PYqjU
z0vE)j87jUXSjkYPAMLNt!W6KL-Vu_e2ZONub$QQX3rw-|I)49b;!iJu;h3w)g8p{h
z`{WUfm$J<}(U4fmB7p|b<JOnKE}qVuz`cI-$ftOmkt_-WRyurv8!5-d$=9oLhq4jM
z9>X8<86@Vpzy7A42}Y5kJ~*xQYO1OE!W0|C`Acp-h$aRv5ZDk<<Y#capFZ`o(<tJw
z!&KAr<${|J+&)r>IkAB|oFL-B0^0B&YAuoGT!%y+`<2T{9!_R`HVG`Gph!L78vXOj
zWLOF?FxWDS>V5UH)^*8PMi`<f5OHV+&+>EPG)U@vIEfPZ;m;sZXz`MehZ88~MRzR^
z@l=16M8ypwOm>#*!A@&N#5a=o1w7A=F7K2EI)@;s<doK$y<%=4DriofZkRa*v=D<Y
zs))Spt&1Tnz!YJ0_63X>1Tm{3DS*7Bw=w0a0PjQ#g)TnA=Rw(SA2CBtDCde3YY1fM
zI71wYWTUN+oVUL}gF+`cw`%QVA>@Avcs49dASy-bUw%ndVx9<SQw?>l9Z*bnZ6+z4
zQAAK}w}Di0h0Y^MFhh0@l7IhPrBB$!7a_%CwPARm9rxFm2Zb!9Tp@1qjoBSvm{~@q
z(;j}siZd0x`f1>C)%nX`e%0r<get*;xJlVoo^ZWP3M@R`Df@JE!5JbVKV)9)@JB<o
zKNv4CeF+%&-A?Iunr~A`MohgKv7f(vy8vT3D3}|nV7D$B?(&}?Mn=xq!nwN0V*H>4
z+LBmDc0AhG_3ms%UhWcwzDwT^Crpv|=0A+#OtVbNCcVu&D$e?l{4x>F<44k(p8i+y
z@z<6p_>mW)?Kf2Yh#1PT)b6)G&YC1Y#!p0&p#69E{9(PPx%~CNI4`EipHz2_E$`4-
zjZh#@Bvz^y(#C26Bg2U)@H6t(953u;D#usH+&|7DhnlpRBY?c)(i<wqKzi!boZHcF
z-ZWlAp4)eNE;Z*0Rdj=zHTX?Hr+B>%oxmSB?X84J&Hsp>=j%hiGwXi+0#qs#3d-cy
z!iPyKq%aC}m-`348)$k+s1qi-<=_NoLg?%NEPx*0&u$Ugh6$IlxA))b@16<D5;u=w
zS`_>^TogibUc%XVxsNRktXh3~;1=|XPp@yO$nG;L?Hyf_r;N~`jPaImmw{9=t0KSW
zQ&6n4`{pU-$o@pAQI=cvSPvJU%Blay$iZS<tjTL&_H$WMCzp_l4Z}26cfQ<s&`&7k
zay<p^_aW+A$o><20we?kx?+NqPs8r(=eTE$=i9?kzDUd!5Egzg#4i)NzX$Dy-HK-Y
zSeg&9VuG|8Y-uDR-OTq6J<t}6WQ-vm<eEm(VX<E=_$RQ!(d1}Rhb<(>_BQu2+;7Ea
z7W6+k$gm@3HP|L-NZ~@tk4E&#o81W*)ulXlF0-<d8s51DLJNq!m0ckj-*u*OI_)Km
z<C7;dF15r$YGQQ%m?UHR_TNit1Lof$xyY^<J!3BdW4kc><5fDo3JRusU>^rWWx=?(
z*&})8O@lb3Tx^7OBUcse9LGx@;ldhH19=UKFB0zou=Nj7985n*WuYacz~ckD5Apy7
zyD}2j1FQ5`xy2J0tN2+IJLDVlLdbCbAHynKUwtVeg=UtV@?aN|sjL3?CbIrERq^kh
z5;KL7%n81^y7FgdNb`dD!yZ!-+6GpRRRx{5sElGX%IRvRxyh^ug)>a`K*eQM4B%1y
zGY<G?ppu9Q;zkEk7@%I<P^W|$pG!#k;C<Uj;yWfvIcX$+@EeKo50}QW;y=65w2rS8
zXX-DL;qNWgnVx(3&)C$gztJ{?GqG*9ML^Wa&HYEFm=GHi(oNv@tjl>virl4^j^+%B
zF80sKwUXJ3=gQ4xp(LRFAJD4RY+Hm%PBC;7oBXI&xzZ^};9-O71&M~E)8VPfHeqK*
zLzH*pmibX@>wzP!ZKaL%#~ZQowALM!&B-A-bTK-KF52ljc_sFJ5tbIA<w<B}TM8TF
z+HAv^1Q#+Yzt@Fq7HXBHX%}AI(-<-(>}odj6MjR?6|DHknBp|KEc7EcvqQ4)>YB(?
zreMMdRTX`o-%s?@9({bUwDH-g&}CQR8pJ*1Le4;OV#OeYs&)&L8p=-;HW&0i7JMxv
z=}%q^H7bbJ5V_WhO-RLz_WiG)@U7mLN53uzOnE>yz>Eaz>&wb0klJHyeVb><>EzHE
z1|esV8{oW)!xw|n)^HJ0N>qANgl-T-M^X+j8A3+z!X6$O77=0W=0*c@8SfnmEG#UP
zZ)z$df{|ceA97UYUy`LCJ$m%l3nbsqwtK@#0QWI~FBm8fym0{~r;bGExA*okVTVHU
zXym;k2Y7yD!LraYGAsoyBDWdZhgcpK3gPcxiwx4r!k~JHir$yRXNGNR+VN2d52J+_
zY$g+hP9?l3hd!GuQW+HL^5x5{9G!()-?P!2assKqZCt|g{Yim7ls+=iT-tyTaoJ;@
zTNvY&;Yj!r(0mA5S*&l;eJ(FQzZC>+4CP5Q#9F`$z=f36bBJ2LZTt?FxE#zHqrj7*
zMD8u3^5oD{5_rnRc|*|`9rGVRmt!!X0R!|FD|te4ax8<XN=+daYHp+Y8>^$^d%a#k
zVhRe1(o7Rb3Xq1&n|36`<mSRqjHsB;w;0RUL9#5!(ZL+Qy$DfPsfj|OMn=cLs!LXn
zK-DJ?42~E@<gPJ*Kc88?Mj;upWDy5U!0t=Ge#zgw*-~EgV|n=|P)>Ibj}mZ&ot&MG
zo;=|{iFlizPXu5X<-4)r&}v+gY*Jx+9@>0^uLf<3K1?~aRN8h#X2DdLjEH2GskR(n
zDk@}dk@GFh6Y2ps>YHC>%wa)(IWlir>`7CAcyFrrp(W@CM8w1yFl(n@bPkvW2-e^_
zDz3q-s>AA-5cKx^hqcro1Xp_=JW-$UW@ce|&0{2X!hbnbPah*bKK>#-$;GH!-@dsW
z7{6vm_hru)`Nm(>4UlD--Pet(DZGgnRrWNNCudx1)?UjcHa}!GE(gxlfhW8XoIuUH
zckfa%Nq}NyY-96z<3ZC4M%4kq0astUwo}~yyF2EuE!Jy-TdfO+HN2Bde_NdrOeC$i
zS26Poq3<k7Wj;nky?SQ}fq{^@mA$7S=o|ky_zkX0m!cTh@&?HxRoMM~NzoSVWi(GP
zeLLnIj_>BYVC+#|Y(n$QxQVBhIqMO(+z_N&aBmVta}o?=eaRSfZ)$@9-4d9~rIA+;
zGlw4_=}i_c|DJK()=Za>X6C8|6oO0tFAKr{u5w6E5sFZULcW)UhDb%%yy`zyhdkH+
zR2_Ux_=5+sR2Riqpv`<(sP`pqX#%2G43kpZm3@8cL}$-t!fg}YSsEJ}qENj91JB{6
z4lvJukveo1?hFDZ?`KzJ9M^AvU?-e%A+wN)o?i9>DWGRWYB@YQQrFOU4)?G^Y-1=5
zus1-3=`Bwr<I$`3h5MOdpnxmc!}#Af)=W~&0He=`5-G9+g4L71wo|aO?rKss4YEwC
zyvx1pPde~Do8m_eiKZrlRBDrg<6tLvW2DU+qR-}NdMM+&gjOGCQBb*y3#9125$rB#
zWA?vwT3=d94!SZ9uXE^iQar<s2nMY(Ghztezxw?e#!lwoW^6d9e7FS$+-b}}<q1A>
zx}{DZWzv8n0dv203fE2xv;WIvlgALKQm0(1;TBW6pPPGK(){O+i@OR+ZmZ^8m+0W7
z`ActoA$#sH*NQ|D(6zPaAtW)txb`o0F*(GWQN>_#Bf$<7ucTyzy-0G59-taHF;Hzp
zMfDpJ-UV9-{@hn=uo>lNCC8V|R3BCU{$}~QKWR{#acSn~&Q%v=`F8Jl^53C|x+Uup
zCYqB=kk<2na$Xz4-@(E7qkN_OL|9OwZn4L}6LNazEnk1nA18d$a}_L?!5oc|Qd2_i
zhc*5%X9prZkTg(XGTyyoueak*Y^|^!h6D>tHR&K3n9YT*ADe(sbcp;{x4W{r+B-TN
zT^8;_zQ$hU^OYI;St|R-8w4U%cONvt6fd&F7YM51tV6@7!)yq*d|jr0M(oHSg_Ml!
z>fQfOE$^RK`i&Tdna7r|apXF?kMNkWiCTQ$iF#-W-g!R0>T>)9J{@L)j(kt&T~SA&
z$W6In=j_~{`y1GjuQOHNaT55GM)csPTj;x@AfaE(1&u}Yuf>x*DY*4gnccC*+m0p5
z{#Yjt;09x)SOe^g8~ll~;*9ao4=QbM;?3?S=QP{9s~G0`rli8Xokl8G_mgipgqbUe
zGrD?WoO2h~u-i2M#;N5eUSca|{=yQ3$gU@z7+I-h1BCG4<Oa!u=*z-ci{)H-ob41h
z)Q{=kQr`Sx{B-i!oZBj)L~7!fp)U=K^0Kn!w@Us`0m46@t-m1(%QF)&N`T0@6%}yT
zyc+M5>i|>j!GuL=bor-9dg<Ipc6D9U-6jwfX&4#h;Z8it1FcO>C{%h@7A_0`KuAFW
z;+6o+dq+k%FCz6r-;%%K$IQ$HFhwZkK7eM_J3So<4lU$+AA$Ugq_<efpTW(3-gSrV
z!=0pN;MQ&^UkGZ=5E|^us64q8;@98bpG<!x&7TzXc<7>R{=P;ufW2WEE8<~X*g}u0
zM19g$S7#PgbZO&Pppv`vdc*0x-d~UGS&U)0m?sly&Yzg<TpNqoup`UyZ;AkN=QCuO
z0@WmV2blpB?OfP8um?&J_I!boF%lPKW+zW0h_qaYx@Gv}$z7LNQCM)y*nkCAI31t-
z*H}P<FN^~PaxXJINlPgg?BaV%8&0*8z0O|kE|<<ARy^GGBpoQs<m4on5DB|(1_n$Z
z!}X1iheD7cBQK9ICMM>GD;Hp;A6JI{(e}TU{<qtH*D?uZhqb{UBpSC#Yp<zERj1Db
z0y&sG5U`8!=1Nqa8>_H}eymmNauo&}9pI(}=;{+0NIDxdyBwO{qkdn9$<4!~AVM$C
z67{ijW3x^04wR%00}LMBN}^!d=8dW^P7eb~S<JUM4enNzG|v{VaB3&M3%<q5BG#S^
z21d^!+*&6Z+GlihG<tt2<FDcn(TK^t?e_W|{(zvl&EhH6e*^RWn<f3vsG9QRiGQ#x
zi+R^(J;W{c4~H8gAYYDP6&8Q{<GcPSWSj<mGXqLr9UL`POTursRbvO-Fb#>GbVfvL
z@`Wv~uk-4=|6oIIZ50on!k9)CwGVe^i-4pqOp1Su;LnmlP?wsfbGu7{A^xW9z>_^n
zxa-k#fRRX{W^lX&mJB_4Fg7FHU~p8O`o-R~57Q|mMvI-7?<4;YH(r~AyE71a!`;O`
zMU+|`!^^kBZJb&hm&7-y1rf3!=R<fsUS2@~hP*$y+KKW@N|M|eFns-Pg)>w}kWP+^
z`Z==rP1T`?(40SiQ&aO5{7X9=Iv{AX`bi~$zY2)fc2)Y{c!Sf}BXFHyx<?*jY=>9}
zT3i9ZDL|6$D*Zm;n)6BU-4;U+9N)XDjjhiwy8B*yS$xZRZoX6WFzUsZ_a!BK03eZ@
zUfxhp=tw@|e!5E@rOdtxqp2eqY9B%WWu&DoIm>YU|LNo0qoK~jFg|WwwpmH%NUh7E
zqPA#6F^C$|rfuca{=rnDMdgHIlyMuBTyo1gX{uQhEw;8Z729B}8FCr2v8|*~Go=t|
zM>FKsw9i-ncJ@#Gq2KxazTWTqKJVvwg3$EVAT)xDd$w#e5tNF{r61al$xDVG+xfL{
zzPq+(1}*wVOP3zTzz}0lwKvKU|A%uYV~`)rnn1?T{<xr^6qWs%?TLDPG*<C${?n?8
z`uc5PKS2G!w5Gs1+J3^jRrK%PlOsIaAXhB~F?!<>lr{2?!t;5iVHWJDB2~;<@s%-M
zrya+mt=a8>(P`B74r&3DOc43j-e{IeGwUR;jXXu4mWs|NTs+q+i?RrO1^fx7Q4_a#
z<1vnjIr2O#K0oR+ybeXUET0`E#_PyjwgEni!aCr4*frDL?S0jHd^FM^r$B1Jlewz4
z7U^<G{W}}hi*COeGRvDRnQx0^SAA$;taae3lqBKEE=^j51>0enD&|gG6Q}e<&hw}A
zC^EBgXPt-_MWf;3k&P0x1n!AurlzI@hFe0NXXoIcO9A?gV5{xW@t{;e^8d#l`}>ID
zM{9|L@S?5XWwyNJsEEAsQq3M2_VspjdIrMLd|p=M9k*bscMquc=4Xz*GWpoT80<^b
zsLb(w(H|65RxZPY!WS%8N-f}M+<ANG7P*o5>0cUCi&rbK!m0x<UKZ9XNpKO@)T~}@
zSzPSDn3rBYgIv=TgrOMtYu;ZZVP`_2?a|Ar8@OYc<=2+ju>RDx+NT}mCj%pW8ip84
z6aD_`!NLZz-^KSPh(0DQvR$w}P<38&8SlD*Mnz6vf1G^A?58`v({>FsB{Z^^kn)@k
za;JiqduRMMH1-wmXa)zs_wDd!&V+(MKP(m!y$;78kpzt}#JJ-ysmI5$&&DXL!<+W<
z#M>o1VQ8Wh3O;<Er!I09pJ&NcUQAVkf8(}4QnIqL=KL!7_rJTl)8?CTC}Lrmd9JJ<
z0}k1BKoYwR#`Hkd39W+QLx7qHQImAt{~?x-ED19@*?kLh7icjWRj2OJg;7W8low_@
zwRx{-4|=SkB8%B!AL%_17H6@{A_zYNms`YoOEG(Pq2<0}B8`#B7j!~<R?|EyYimI8
z7^4kxWyJKpb8Uvv1|!--!;%r_*w|QQo4>}eG~^zQN_b$3velbw_}Opf;o+h4>8`^b
zGo}5UEW!EGcm0xHLHG3WS(cib8YEl8gKD5wtApZafiTKi^R4aO+-S5U;`E$KKec0T
z%*wn4IVSXtgA&pQ&W}N^1s1jE_~suTILeuz#HkH+EiInSVI+SK%^Y?Wz~dte`%j6&
zIwrkBt2wUwBjndZWnQoCyq02!6^yMraJ&g}Nn|=E6=LwByT5B})GbVyU=inz$9f}F
z!mgXW6h%>*83RAT@I`WX(E1O!dRz1X_L%JHmROBfC2tMrF%(n=LV=+-4h^kwo4Av!
z#S`BZ!_9!>LcDt@t@aa(({S1XdjuO2-k{u!jE*)f<|=h?{5q;fF&n%D^pF0ggBOiy
ziP*s4*tiYikH00(2zEtTE(mnB8#EPo{jvRRik8m!`4*f-)dfg+6}5rj=$$iGh6`Qc
z8^J;6Aac||Kdmf5`bgWda)wyqNyw-F)O{a=3??N$s^oHr$&t2Ag28;}cP%Xos0~}e
z+~OiXVrnjxyAOV2jB7E^0~eJ7_dKOEJh-_(f{(&M0#~M|rw_lCqBMm3&H_(`hdkBH
z&0uOn0;&SKPmH6G>sXZ~Pej=yZ2;uZjT?vmiaXYPa^&%g`xn+3uUK&p-2W9@F<dz>
zNC4sFq!Z>jB?3_tm@_8Zqa|mOlaoV^Q#A0~DY~VaO;%P`bMdp;j?Z}$A7LH>s_n2c
z4PnllF-z`5g`lXmcFQj|<3~ghe4Fn0LhoT7h9;a+v>?r>5{t5Ob30l#ZQS^?=Hqb1
zA@aeP=xa2%GfO|2Ezkw=fhu`HQeM*)e=Erc1(V~NgUUg|VGx=+e6u&{dN~qI9ZAjr
znzP^seNUbMWK~}3h@VGVL3FOz`gRHudPHA0(D3W}!W~0<Q-fLP+j`#fC;=>^9CLU5
zw(@}9&B#A&jmf?u95G<j(Wt%!oBGF|Hb;mKsAAmKCQf$>lmuu+<v`wb1y}!BSJzpw
zSe#YOg6OCJ9x1*ZGwklEgCs^Pe)vZL1D_6|XxUgcMm`Rs%-K1J5)WZHz<8bp`JCFk
zZwE-?-Xg9W$#agtMG6T63egL;V8&!Kn26fA4<uNs3cKD|IXaMj#A4wbp}Y{wUzzE;
zPMab4q7_R8le!4CjDcHvG>2`|xH8xEG@+p<-yU&y8TDd*kFEkSEe>979I7xC8YRoG
zI#SQ))<Ke^u*&6raXtR-AX8Re{XgaM^d}uN9rIr^-|8(v0z75s_T5Y&BjEIZv+(mS

diff --git a/reference/Rplot003.png b/reference/Rplot003.png
index 1ed92087b83bcbc9368dc7aced49497e52ca06b2..73fc7bc85b11db1ccf54d8378fb4bbcc250f3f96 100644
GIT binary patch
literal 16761
zcmd742{@E}-#0#zREjp)LYFK_Swga3A`GJJ+n7ov#+rQ@Ty<R}BxB7Q4YG`VMz*2U
zNMte?yQyqh2ZO;F^Zs1d{T$D8-|ut(pZj@_=RMxPqZ+1h&d+(Czt8vkS-xU!ni?EE
zEO;0KfgFVz>X}0zY~S|&9y|b^LH6NOz{7#N#s+%e5qxavHb#JlL*9mVz7Po4iM_vU
zq_OZF2;?jTs;6Tal(jGx8kRhj&0^90iQ+GR7e6EZ^f9M~rK_eh0`}`kgr)=?9d*s@
zLL(;ABM?#7AJ9l%5)6HTK}3u^!B9xU)_GE|&-zA}Bp<#c;`YaI2+khEd9z!b4b{;#
zIzUYjKlbCulNT?!KFx0hP3lbJ%j+wM{)v;CbWLBP;h#(VKmCVW_5nOl-gmldb!llS
z0Q&6X-6;$P^Kus#6%|z)uP|WTpnUK#LSpFMNJd5mp~$@0AWp&fM2w!VhlfXPNr_v)
zvHf+62oDHkp`r;nrh`BrY>w?OAf)GVkB)!+D*uk(*Ye_Np>xHrtEyJe?jxkxH4Z|0
zO&PYLk4z?9kde_AjQu#hh=73u5c754R&=!rB^us)#2-a-aBxsuUte!YR#H9@)1(lT
zi47=Ln3hH?lIG^-67TTihrvgZM`W~U_}iw^()qPt$^;-$&3<akG%mR&@636%sLZ@0
z-(a?gz^w5N4Wd2b1`aIRqg0~b&|E{Lg+OcC!c$xB#n~kqia+2Pb-9otI3GMduo@3r
z*^cc$DYErNLHBAlGc`VF<6~jOmN5>eV5WU#>4l56h|@xb<IiHj{`Jq-MT4~*M)DFa
zs#b5Wx5P^a+>mw8_FkJ-+5P^*rWz}}l}VoH#JTg|0^czh_TJUY{p!>Lc4+vy-DaDG
z*zB5CE>rzj8Is6wTDm$XytuWUlA3zOIHc;J#GS~;9F+>ws!$uKy|io8Ot5jBLMErz
zJXJKIofxAhMl&zA%tp_mWNFA2v4f8nnaFNU`sjdocAD2hd`&n0Cb`k;X;E#<Tybe>
zXM?1W%WhjgYU@E2*Q2~J=A6x=incyc=(b*>@gp(Zo%IT{rlrEpYOF_=>iQk13tzps
z)LkKKO4w>k#4N$xL&(L{Bh3;viORY<H$c<Y+UVw`zb$7UI@<C2R|-9}44b>Kv}8({
zSm~8;?a9Ah0Ucgo>{>&krB1|1)p#VKr>Cb+K$A|(I==0uHBAxH4J5MF<ipq?SJRJl
z9QOuy%n%N|R24NnIdUa%X*3x<!WbSf%D8&UpAAykB6ynk1Ogs^iDZL#M?wxjTG{sT
zLm-?7Z$ltw&i+4nQg^PWJGoH1%1JS249(Zr>s5aVI+oX8<TRQen>+p{S}o*^%@K&F
z9*i%NNuj}9H3xfMH(v3ZEj6&3?fPuqJe1VaHFIT=<TVR*_P4f*vCcAoy_nZe9Pk)O
znJ`#*#CW@Ms~Oex(|O`E`0tmVA<Y&RrN+Wvj{H%pAUwxTbnlBsTv+ppj(^d|fGpDF
zyn5cEp5hgX?Xv|+i8~&#;<G!q6krkeQaVw;<%>lo=3>=kPv06*Z~w{gavyk^QXmKy
z?0IJ4_Go-+tGrfL$R=@pqpIqSXAsr`9#pSOQ4g?u*V+D6a3|9JuB-U`lPcZ(oV_(t
z%Z3`9L(4fII*{_L>Gz&#^0rFv;}4zu{n?4@aXp{jB%-qnT8}&XQKmg%@(m^hg!3NQ
zP7i3v+jGV9&)@XL@Jej2Qq=wQ??ZcLo*?CavJF{9r!8%~v%T^}^p$3%L^019bFIFV
zeGFxAREdG(%hZvi3|dGLekG(xR#3QiZH@%<ga_)Sn2OxWH)CO7UK{uP`oEt$W0`<d
zUS_i^=XAcG6WqzH);w!$*TFAs9Qf^(KIB}*$qNA@c}@!7-biHn>Zi`;>Acg}-1zyX
zC^uU^<mchvE$T($By>w@xx=q&Q=D!*@S~v<!J4;HIq%7+q13!AyL6@^9rnvd*4;M~
zeUTD8ed%4+BHM8Axy~ruuiqfIDk0?<OuUti4Qtds6pv;ddi+fv>h|#A+hKm+X0*eT
zvu|<5#jar&QbIoP*N7(?Dh-gy`lTf$4>)za9rE1RA+6ZQFiuApjH!iKgjp1t2;7f@
zUQtpyL;2r8)K3lho5J)(#G(uqi>><n`Evr{ZdLFfC0vk5rp`O3jbjPzrSIjNi2S}8
z*p1Ufnzf+wmFPQzBKzMt12}CD%2DaJXGAJY6UoB`IWx#BN7_07Dt6W^(&}26i@zI+
zuV#liCv4A8M2oCsHWqSkp*M8NwD(0?>;0kC*!YOe@d<=T#Pa0bfyrytAtnsCT+4JF
z05tosc7gtgh~1xJX_I>G$J?7XjCOKGI>`Y$#1@#)NRy{Y72?sI327=a<cl9`%iTkY
z`Rb#}Y+q&2EOQ<lcW|eiUe+-{<fm=<5;f^lcl&<NJ{)jZEz!`=DB}VYPgSu;ycRsR
znKNUDz_=n14ws7cQ9o8Tm2+mk(2*<&=dNdZVhW+(v^0qbp0?%oEy8mQaxreViYFxR
zs4oV(6{Vte*41{ux6%++VL&Yz>s6BM=jS8y=yjQMFXa(N7fQzk8VR0ebHsg*x4OeW
z{t~N@RBuSCJos(ZzckG=>&)&i@D>xv8fm!bk><xO2NBa<FQ+>0t+wR%yvgmjmyaq(
z)tZxz5NWAv^w{=^89lMY;9|=XQ<5JvZ3_=SzW?3Eu9m;Qzk|f3Zk1_*ol8-4XQR8|
z&~g*4`)>e!h(n{J3LYcgsI~{s#<8#jnF8TVYw82xa+v_l^0=Uhl$pR9?%BHo6Q9#v
zShaJ)Dq-qWipkqsmB|^Zz7OiD49&5zF}XkPY-)3zz8K{Ek60{GTwh<WM?(L>#aB+#
z@Tymsz6CAfJ_3h8xFtE%_j!7FETYy@Rkm)3pYRp`BJkE@X|!G%T1UrLq$pM0+yi56
zevuhhHpn3HSSti_^;ZZx<Qs(T2qcnyzdSg||L~Ky1~^`M4;#yvr_3((m(QP%isKua
zY&ZZ3Qa||Z$sn)dgEYg8Zw=4I>?+_p-Tp@*mF-tKj{e(PyblZVONwNA_i^zSTYmNz
z{#aSnRIMBG$zPz=^LT5k{K~qotm^pZoW+Lccjc|=#@arx1C<V0kN@-X61mSl_pmZE
zW<6u~Lx^Ty&pBvFn1fq8PRMDokKpH(OKq<D;)6Xe=>!%K`W;}Z$imMam{7x7|LYQ^
zDy96F#KrCBZ;Z_ZWn^YkoegIDj!UTHa<%gHWK4^DQvKfaYYGUTSg-w&EQoaZLKY+L
zlRe%FsZ=TJ_o;e1Jg%xwiEwT#S8K8aFAqkv#P#zzE#0*G@DpKRg?RL_Tf33R9XiJz
zoy=GDaKY@bU@M+VOkDFKq{DN32m-n8uC9lK1O>~l5FF)Z$!8Cid$_p?<{A}<C=f0}
z#ZP<zNYYbMQZl4-Y}ESGFyuBo`{u3urwW1s${{sUN$UrL9Ak<kq=fT9g}PDUW!0Hz
zg+eE%#3gD><Ud;AIefY`K0e;y_dEQiFE8KkE3qooYJN2JISIVu6@KUEpr>?hXl!g5
z92^WXSIgFF<M&O)ZhQvao9+GkQ)RXnuT+3L>(^i6<l^sX?hCI~EI>GU+T4gKsyJiS
z?96!f9NjI%n<V~^@O-^gXzA3&$llpCvY|N2&DFK)=+UE^gmi8qO)~n<)fOyP*#Zt{
z8AB~FSmSsFGdo0@wT(@}k+$W2GMSv?&Ty=MbRX*C;xcYV9||Gz@L(KipI;DN_c}tH
z`%uqN#%{}o3c;OQ@w)7%_!G`Xz8Kx<c6ddcUm$P2n2NjI)>Fs%<&-a_olzedH;n{&
zW1e?oxi=WBDS;uR$i(l@vWc@!3gu!hEj1-ZYu}`uDb>uT#QW-aIhx5v?*QZB$lF5`
zk1%b&&JR?;6%pjJvWUQ2S2?)8eT?PvifNxn3Zw8yTmmQb^Qbm+)~tQKE;PplgDu2h
zJg{g%=(F~T0f6NcIx{U!LFPovhlSr5qd1QdJt%!zD0HIO!r(|61V@N9YLIgnNw%H(
zSuipZ>zF9?+GNsp$~L<D+;dUwxj&?yfv2)hK36qUCFe<+Kbp+wTHX{2HG*zw8?Dx0
zhft)$Nk*sZ&Kg|FezXx`+@J<;(dE%xGlvpS<He3xR=S9WQF0%|1-pnPZst)LKG0i4
z+U`S4^MypiupT-Sv7JLlUfV-y)kMR|ddmw|QnNbFUH4IVA%KQ;>KgzB;pgY?Gtc=Q
zn^Q%v=T*BO?LFPqXirj!bxe?n2(O%7?X6LE2TiE~O6%5SNLHo3wovGdZrXiBCjRzr
zTieg(R}~Hl6RScsd#x)LX6}!}J&9KyFL0(h`XtP&y@0(dXE&8hN^n59Y~gd0{XCQe
zVfcqV`2*q}8_0-Kblb_84@s!L(NRY+SJL}GxCVlA>PGo#Z_pNW$uPEoN3dR33FK72
zY4d1ys<?l&b#91HtZaD5#PfMwwj-h(>Kx7YI#3>{ZqX*qM8mE`C6{lwdf%Bs@v-p%
zyfx{=wSJBT%)0?(j-6cwEu~_pd^YSss1aX+?8wT(giJ@A)|GNc7ps)n!U1(<Y(uS~
zB3q^QH?`Zh&5kxK(Yij9vMR!a-9sNLmy74$7~aZ%>+F1MY}u^{zx*f~AGq-5nl<-r
zZ9NFPS6l16mc*3CK3O3@pP4<_X;Z0_UT9=8lG^9KKNo=o>J^xlo$pCwjpr#|Fy4QA
z^K9gA$QO$TuL{`Th`7s?9q<G9>NT6V(yuimy%$!{PZiXH^<uP`bpd;=s#SD?w-P&~
z{8($N$Z+qxR$$<bnbx{r&Iqrs)tuDlf&B*IJ|89sc=7*q0r(#)D#tGMJ)c<FlqL_S
zFzYml>K>pn5|xyc96jRdok$p+V~!(zeM(v>Mw)ly>`;c{8Gy;Ywz9IS0j(S6CYJYF
z;KTL$wBdF7J$<-Vz7Z93p(mn+R4i3j^k=JR5KJ|9fWnbji?jrp0krMAR8dG}uFT+Z
zZ?VK6z|Kf#4;o2~RfGG^1)!qj-%wH9U+Kz~oMh7?Ie9|XeGIYyhr42JXSdb!7bZ3f
z69WtUM}`+0HfQ7Q>#+u?wFhSUy}7n6oi>+iLnL1Iv=dTfR=Ra-n>34y>WX-^#S0rH
z6ME#xUX&`L3$Dm-<>zHPo1}e^1-`@K2d@B@|GB)pd_ZEzQ2es$k+!WproX+t4L8bg
z!@%6)f<N0g);2VR+~bd`z~OKk_eKUt1;#w_dSY<Uu*{pWRzAhF7%zmbkmugo>UmJl
zyr#BP!Cb6U-NIb=%2=@Rz~A4V=bIA`D`QJ63kVM_Yw14S8(-ZVp?aCgL-gV8;KWbW
z_dD^Km|_f~(={Q$OSqwG!})d7rw@+vmCBp5Ln#%_whO4N!GOUY7g>i5Y}x!W<~cU$
z$^-L{vK=wK#xgq<7aam@aaR~mQqw!ou`tw0#P0X^5l$P$6-{0|4dJiL%a_(4^ZgDx
zr4gCbF&Rf9k>G|XEP2g~{-+w?;4tC_RYsjkXs=k&@WN9WastlQ;wNH;*y+46dMHA=
z)M~sPsoCSxiKV}>n}=SrfNm(!>Tfiz*@cj7HHU{@{|8pHmY4CU`D->=`kYa%gs>56
zY4~e_D8By29SSo%V$~M#Bdsd(w0)AtouHri#huo~YMjh~nqCsDh__M1Moe?e0d%1k
zj>t)aR?n{k{}LfwhW)O!OBR+lYQ(XSX1fmxduPk<_C0~|szt_QH&7g0r$=R>g!CD4
zn1pKqS|DfU(kzw#Ka~fBXT0X;=5U7FckntY-D-?$9SnM2PTU?_lS(+>Q^X>dtAt)|
zm|H%+x9@jpQvt9#O^lbRpft4MuHzr&{5E+mbwyS`Tq$ifD0hBPK_9@9T)C#Lpc(bl
zCkrgxkhgQW|KL^MIXhG#@1N=cB@DFLCUALHuDGxTP!591i{`7wb~HvWN?U_3`5Bwf
zC|N;^@qY>lylYlpK@%Yb-M-FRydHbHS<<zJ%5abn&M_3vN&YAL0qkmCzTSj!NZQY5
zKD>>K>S}YdE>dx1FEf!+KqJeaqFLEW<}Kj^zhpR8%}-=?@ZJ(`=c<I<wv~B!_@aI7
zPbk!kdo<NheA+NW(R*aH-q!-<NkzbAT<`uezYo%?T+aTV_k#Zq^@p=_4G_rr!Y{n%
zaxD2%8_QqwldTer8q3-0LAw~065-yoa}T=LDj#q@)lXk~1UvBP+bN~L1Lj|Ka@j%Y
z%Rq}7tJ#yj>l|}`_%9OGUl4$(7Ch!y=HPRbzeZZT!=F<hwDRK%s_)-fYVX(>^CN*k
zNCHxyz@Ji|4Y*nMq&}CA|AD9Ods|z(b_z;a;DJK{Z%b;E&!P+uXB1adunN${fSMB0
zi^{OZrKP0?QFk`o02-U&kU+u%pFr_dZ67eV<X-yoaTcgkn`)FsHmK499j6-k4dU)S
z!aP~pEiaP4_~^Q)t$^Hs+GxIrb1dw|xtvoSSZ>O#>cOe27H%d=Gt`d|q6W>Rp`hS?
z&<<+B0CchB;WrA?h7|e$zq6BxWRhqlIb%0~NGrpVYq3~Ns^vN8O3;oVkv7f1vrq~T
zu8Sq6YkKFlu$a_@(&A#f6t4xFaaP_>H1504G2xIz5|B)f4h?rxmo7H9lr|4asQSF&
z(^MT$b64B#8%&=Ol?#BH`ke_}<wSsX9EgSERpmd{yOx7)hj<3B`zufN!#|O&arbZB
zCvhi~)z{u#6IMPav+Bg9;W1q6ipn{E4a)!OHrtt~@4leBVt2{%A$+hZweC+%PVSN?
zj7rU3fXYaGS=R7^MzDf3!cE0byi7AHm=nK|=J%4y-~|_+O7&f;pTWP<d>igHQC1_D
z+{B0qw`PdSb*=UF_uv0>hr=$-W?lz~tJ1c160p}I7sLqI<q6`*{7(|93acNbmdYAe
z$Ur*00k-<zq{CEy|F9{UG^O!$jK}cf;6*{n0XCM~NMS<x+uB``0spg&kDCu~kB3rW
za<fxl$^N#8mJFkUC8yelJqXkl2EN6L^gTxJ2Nde&=_#A2<of;nAM+YS2hX@*OHwg=
z8y_U{2~-Epk!>jMndsN~%Hw}0t1kdq{U$iT_D}g~E@#}6@pb>*X_UO?#qoQu+Jl7r
zXLQRuA(cQ^JhQeN_Vf3i%W5A1Z@i6`f(<}!69J+8XQJb3^I<hH*Jo%Sb{v+s{0syV
z6&+^Ks-4_--Zc}AK>~ig7Heof-SBkZ`OT(PVYY~yr1Q`_zr+Ilvhp%&Zgnlj$o}H&
z`}b)z1I|24byBopsjcUcEth7OubqZK_)i;gM^?q!JL4f*79_4Yq~(jBjD3(-lvWFD
z0V@1l@pbb?wEFgNOU3x>4iTuz`no2ZG=aLZzE0m>YOy2@i2ECspw=SMUTcfgb|f;n
zz{~DA@_|re5p~{fQRB1lsMoUePl35FZOW)!WnviJ5D(dn3^CJDfo2TRIUudSvL~D&
z-txNnJar9)rW<anKs)<|Y+1h)>o@;$#foIR9yQEhEWu@F4N&?<MjMM%*7_n<2bwD=
zPj1Ect8S<UxvwMP7iNz@;pWuY8F%LPjIs`CMm$?`_9tGUd-ThnZ)s|jadFleWok}6
z#}0u!+G<AI^fQL@IK_o8bZj8k)vuEZP&mW6RKHSmFXt$W%D&CgA$1}dh!iD{ueMC2
z@1pPW;BhD=rPit005fAOm{dUdHA#Z`YqOl;(k&|c<KNb~bEqO6e63$l<yKxL5jZLk
z%^WYY<LlUWg=IR{#=`YUa($tb_9f#tcXIK#cbp+qD=H!}4t-$#Ky~%n7cB9eb8Ziv
zdS_0vjd2q`@-3WQQ_d9^V&-cgfpjFn0~9HmD7i?M1BrJ|^CC-XU8IB^vK(-)k71vW
znL~!JA6?giZ@&o85>>y{j%1yk)n+V>oSjWQ!+f;2b~8gY{bqw2ZA&WK1Dqgd$PJR2
zMDzLC8&EUjkc+I^Ksm~NL+E1IwW0aOqmW-);sT;v640>+YBBuFOe_-4T$*PHF68Uf
z)fsJ@PzHW|(mp(<#hC!hEil7{vx}bUqB4eIM`hNoOsen0TQ?^h)Dn|^;WsuiqzZw2
zlBFD9&PItOu9>cDiS8J^lL7aa4es^m6MZ}+HH3(4vHp1t+=-^u9Lvn%Eo(>mJcfGY
zk&_O1-EIC)r(4%m@thEduDAoFh%+qWNdWSD|G-DCDqyF%QFl5v{c0zNcQk$FH)c8I
zn!}ckrTVpgqMupjt5x)lN0(j)GSc?%J)a(SaO3qJ674Rf>OpwEk_W8w$7g=Spnc|$
z3|U|RBs}8qwxG0t^D|{&-Awg;+1(=wfixYhAAkCq<<a!u$Y#zm2juqC$xx{>2XWzB
zaeFI1dtp{;c<Yc}QXd1Vo9k!Sck?q{tgN?>G2P4aaHh!g1DE}A2n2|9#{G;AU1siO
zzc=Fq&T%SrmBV{td};GBmn{D+YinFRbsBf}puVxWu5MdDA$?wAOmP1@?2Q{YCM=5k
z&JofjV)XLsK?84ZWu>fs@bSn-fIH|DsKHQ{tZNe5fU&FjW>TFa+mgz8Ji>$o4Vj-&
zS^_$V_LH;cg^%G+#wi$p`lx_X6BH6MGb-xk<9F_^CgaT=9E3{C%61-JJe^smlEel%
zqeM2`u0(%9?b?tU$5Iv70Gg;6hvcFiB#_pmTyZ8PX9@6EIG!3Y#7}F9(Yw2c`=Cbb
zfHG`?L^9<hZeYo>$^?!37??c_rg`~Dn+@>VY7Q{>n*A94*I%{>NSYjvi1zNgP<m|_
zdxo;py{*+LJGsX#h<So*#L|!x=*!<+9?z>M-|=KLSirv=NiZX6Xqa!8JI;I4QdK0~
z4@I{lq|Gi|(x#VornxY^*HUj(q#RAKdeI$gMckZQol2su8yEFzYq54{1E*gX))hN6
z=W?DYp(n2qM^hDRS2>m=jMc204c_yV(Ag8{=OfcD+Ew2m{d}qDqL1pBj8F#JxEDs5
zx%gko!RHd6R*_Sugw&G-c6R$Yv5trz0yR>iIG>yHgvp(uW$yf$xYZT3VK?PCf|k9a
z_AuyjkLH$xPbDo*dML^Nsh*f5T$EGRlG^^wh(wk6LUPc~{1%x?<?%CDX9Wc#>nN$<
z%zmXaJ&808=PuuWCIdGo`2EeQ6OQ%<g;Yo!J1OM*SJmwt_r!3DIk%a>U@+h_g1#D5
z-N!$yC-n`|gB54gMm4?i<4olqK~0--W`o84YOD7_PsTbV3Yo3Bvli)d4@Up0wYf=3
z7vBfF+A!oQTF!?91!RN7L>bk%vz)59q?5xEo>rvP+L8?V7>4%}C{ZLjGmwF&OfYs&
zLjmdeQ4xFk5`dit6ndSJnnt3bhBWlcmoE}1$xDuJy|ZV6JL44+jMV&ZZ|;M5%Xb9s
z4=X|&h&Nj_6FFO|i`2Ove^a<0yawp=KXlZkcUI2}L*&Dz)c48WqWZV6-i#ZgqCUC`
zK_G`O!66aw<}?wcdGo++X5}|tHi-NYuv3`7Kw0_YX^||GX11{Fd9nK-XZSBC_RULL
zOj8$`@e1=%)j8}?JS3-doc=icIw=UMEgN(lh`)sQTQv7R^!w)Kh=*mu>d73!zk=JT
z1GQT?j;Jhzh8UXXSH#nQKM;ARo7Rv}dFS5B_&CMZs|p?U%f;EqM7hXAc3@ezy~erJ
zikpLUxdHH4;31yY)J&fyG<dIF_dRgD&3}F{REHfBIl3`<YRYxg_TRDqYg)~Gpy3Yv
zeseKwm_|nt-d=L~$-B_}3W(+g1BTCv>0R>-;epGOtJ#n72BBL{UxD}inrgV6iY^jw
zZuhyQy9dRR(27#JbKXHX<W~ixeseDLYvH&Bi8CdPEi5*KatPF|yIc(X^c%Y0nvMiT
z`e&~=C=_h#S^}~w(`O)&KZZ-j&wW1(<@_@9VTS7)A>Wb>(ppY7+8&P_Va=7ixYohj
zI)&0IA2)vCnN*8;_}57f;odyGE;45vwhu@-y0XB1<LnRZ@jX8~{UZf*{>zn(7GGc9
zJ-rWdb@}%@?!K1A4jUny1TD?qr_S6A0HFE>RTcsdCbOFTj^Ty*A-Ab<2-t2Ry3}#N
z=j><R*8A5n`yi2bByAugXGXw!j(wt=g46a2@*jO%f)<y0o!eL%zTAVpdu8UzND^sU
zbhP{^oLPt>Hou^SL*yMNL**VGaV}Q&Dw%oNQZk>|ZploPyiR!DL&ywh9<7*;V!g1j
zD)v!vD#FA@)HpM~dCVRavhwL3x)9o4HRrgANXZTgBQw}qy>%exR1mzH?pfUROTNPa
zRQ3`LPZVJ+Xv}G`<lfFzkL`X<w-%<2;8@t!F}`Qa{tb#|nFmkV&5xnPzNfL2qDtS=
zD_vVSeUpd^ea9Vq88Y(wV+g@B#pJ39fi`KCEK^gUIe)xTTDqe#cd|zAjayU&Dki#^
zITMJOR50LsbNAG6PL9AK6_3P4(~`m|ZE<Ju=JhVa2aDTvYiv<mzyrN_+3g<r-0e&w
zSLV73^v;{E?Rdeh1kvzLT**rxkC&m*mmP+!f;$+#<2;;^ni`5Ir$(ncHfiLDsRvf%
z7WkA)4$cM{`Gl7(F3U*r3~qw)tf5$y@e+lq+hOa*d34Qay{zNmJ`(!q!3QB_bBT6S
zbE_ROkF6DAP1JnO8XLDYFg=l|`7T4hA9v<Le%|sQPq}%&jRQ3vLVmsd%+70;{RrQm
zzGwn5E-0r&n^ZfGyXc~MfX)^b`<Szm%HVTAXb%B|JP!r>yp51^d72;M*#3bl%F6L(
z1?CC-&Z$6inFemaLo2KPg|i1eM@AIjg26$Bg$UY7-77K7^eV|k;Q6$U*nEZHH-E%-
zipO6mR1p{acOC8j+g<R26PmZ*6P~VjN$XyYVZsx_2|{*|*53+WRWQ6BKHMx)1Uzs9
zun_D49r?YS%8vYzktb(^%JBGIej=^V9w91E*cq~K?4vaiqwZX-2MT;Jj(N!ew{R62
z@kwO~ZZRf7!+E|DncG@O5JTDPn*l6dd^brRWRBFuod>9W2FNH84clKg+&#E(9_3+8
zE+dtjProD?%b;rX<AyRYi=5f>2KXFP?%1MiP$Io5WGa?ElQ*!J5Cn0Ls~5|Ix0jzP
zWK%C-egcP-*3_`)kaqm(kZyDi_VxMMs%1O%lSn7F@p8~=^3rDBe<^WoHBy*M1vH{|
zggL%y1lP2p1?7tNyT&Mv>$5O7NBQ5d_VWw3C&lkkzx9`WiV_kMz13LF{$BrBw9GR{
z)JbAN!|9adWXG2nj~fjx#c28|p!$f+Ej4XDp40X0CX<~(-lSyjl`W<?R;TMZecaT1
z-GeU~iyz-`HeRrW6!p#~*dtoLGs4dof1oqx;}il78;nRsP({G>NEB_6gxr%cdea5w
z#cI%A3D`6v{Q9x|>f!SC_V({nQ&YRcoXuM1pUVcf{a`B>cLj{tZr~mun;mxtei)tq
zLv`T$QgHG6ocW;$H0H*Xee^8Xw97MKsA`fW18JcO?po9)#iZHKSZ?o%+oFUQhT?dE
z{W?kqADcUOy+3;p|F3xjoKbRs5+>zqh$aKg_&}Jp0V(UZMc<k38_<U43M2*{^YINA
z1Y)y!6||!NkD@C7jI;hb>i#JzT}}T3Hs;2fl{*#S+5c%s)Ozi!;Cj<C3b!-K_bjf2
z{7FU&{VBa?cr__krpEJ0$peB_z>k&kPW|J+^sVGGM~qt%6(g($&LtFYpS$raPWW}a
z%2>5=ZidjVt|qbhRf+LDuYkI~a7%;1IqeOd6p@HH0JPce)dnLr8u_HaoLA3$yRC=R
zpIgnmho5Y1+Yemj&^G()JVHgf<%}%c7$fpRLM9rZIz831pk4I!7Z$Z>^}^@-cdKB-
zq*BVwkE*P*C*vRXRxI6OEVht-PItyCvtPBYggkGbh_*+-llm^r3h5jRgP{O){7Y8o
z8(@W=PyPoiw^6+o9kxq372sE*=mYoC<u75FnY~%4O}d|dTp~Bz$x1OS#YDqoQM<+A
zT!L!DW|B@1@5M;qGTB25E?v4b4(w4+kPJyb3xwO(cdG`|LGVuQ%3nSJ@lPM1x%w|3
zKvm{+>=zkJ806-`#9QZTMA)LU9k4##b-dZ$>H1Du7O3Q~4G#a&G097|Wvhy&J$nV|
zk}vh<1LMXEa={T*#?j{r`JFfM5xQn(#5(X+0(bavoI1<4fCVVz%m5mobvtgW2IT5y
zf^(0yc|QV*_^P}5_7|^k#mj>6;b$q4En~Q;$tg{T3W3#^3(*?RB$c=f@B27huGg4%
zPfhU>4_~7s--Wo~_2FA5chwz6Fv9a%c*$O0)4i-m79Vo5Byl3*1!l2uL#1U@pfEuO
z<l~yo*$2?4tdw<dxYRGDUSB???j58s#RfU^e(;m_)O?zW<daz0hKCjkZtqPwklcfy
zNj2Vnjn1V+u$Y;^#d+TPU%*@ADWUjO2Sm}dP@tuf+AU38jhD<6tW&wN0I#&Feeu#=
zn@PQwEBcf6(Z>nuwS((#FTaoN17BTsE>YXl3i}g(Cf1YRC5gSf%QtC=U6FLiWWCc5
z4&Gu%9sDLHvw7Ux*f_Qhc-&?J&bvQ?$7RUFrNDyaLsD7_slgN}ap}LnE62FN+#e;P
zL~xXxZ3KE-M5D7Qz$`9|%aYJs{X$WQh<iiRMTfRp4qAEY+7~ep>&O*#Z`fG_Ht13g
z{hR<Ye~_d8HaZvcuwkd#-J_SUD`N0-4h)0|<*f%W={{TWL&Jra(g$RV8-N;jCr%dT
zGduN{puP})HH;Eb0TLml)|fdZLe{|0Q2nESDG;)BV{>2m-rgr8XXl55dIM9!eY3?o
zqVk3#0@ALGZeA)FXp)A0E~5;Ncy-sMg!p4SQEXRlR$6@3Ikux?KKpGE(9Y**Rrb0s
z+3G41vm5vgEK2fpiR^8!qxhwowYN}J_?FtTAo1s>k5LQGeu}CE>lbaX%nsx%+5O6S
zs#q0W2RBQ=jn$b*7?^r1DMDnuh2<-Y4#4PkA){#EiKYZNO-Mt(PY0xA1!b8iiFxUL
ze69tHur27mPIv1nivB3@2*M8B$`SeH1~ceTLSzN231z0$I3Z{TUDdaisd<2DdYy3d
zt;dX_%oH^{e=ymiFWBbQT!Ip>ml!1L+~3U6tu<Ps<AmM14qU?EMqg?$#)!4!8Nb~=
zF4G2@(O1vamy(Om<jn~jmHo{5?HJpUg*?=u=*3NZzAU}p`#x1oXJR@mcpyHf=vIw(
zEu!UQg3XQRy#o;L@USz#{GBHMe=kDw-*!-S#TS0|HOL`h^Y}G?iQLe<z}MKhx4wxa
z!~peY9W#&z!Ca?&#f3)9zcGij?w+-OBMjtlPbd#`?lNHqE|&N(5&d`J;mm&;9Of;-
zX{OlI3PW<XN*hFiP5MP$&1Zd*l7~p;f7Xtcz1l&xkN3o1lQ0miqU}~-ZY{)F1dMi<
z!Q@7=EpK#27!po-h=Amq*}HvL4?b=ePwCE5RYaLcdNog?j0vGRd<uj!ys;k%eu04z
zReKp^5TA?sGd`E{xA>f0m94u|-du=7nblgQkJ@Ad(RHMm=MA_?pT!C8k%+Vc-?U*b
zR)I;d$vJH`-NcM4P!6pNednKx%wp$x1N>c?HlEh^nGCD&Y1faLT#(x>=E-gH6ne|)
z*pKDZ+1X;Qwn|N~xVicH1mHB5U^m#DyK+G)MU%*I=Z{Jn86Hk`86g5Y^!XLS#m_3^
zy&WD_ErU2$5}urG&x{f~cVRMKuz0ak#QgeLA8_mn(R!$RNt%01=6d_U!+F#c3fqjt
z?@AQFBXnPGaDN>4e~jDNoDuY&x(}2`F~XpbzFF91hY@zzqB4)4{}~+d$r%XYx>19c
z;-ej|q2X|>|HKEWP+Y=Ze%VA;nzC9|QdRK)!Ej;>PmF(BvpfY5x;x&gWo!3Y;(Rq0
z=}(&rl<?r+dwExx#w4{U)!J`z-UY+F34@LKetdICop<5j+XN6}VNC~*f7vsdgEa8x
zmNkhrWcyw+8E0=EFaB|21))LAq%wAm3F$z6xVzDsje)m>e;KTDc9|0LvwAe51l1Ot
z>oEKrynmGT-q?-RAvbAdv)5l-P<6|{;8t{jxh*Iyn6jdAT}q^|JX*wR26o8mile;v
z`tRhzHu<gwNi)ehRuWo{yW>|z{f(D>6kkkRr)Eb5bo(|)KL1GZdvu*Y3fL^TUy`;9
z(06=>r;2kHTY}(abDTrN=H&8ZOFQ6I+P++9+M0am?urj5q}x2Z#S>sv30Vr2t&>PG
z8uOzz(*q1qe;3u>X0%VN_=+WdYTC=ZxHh0W!zdL8AKwm*$hE6^ux=QlMH%d+HcUJW
zW`ujgFW;GY=L|0G*v2KzUH<-iho*miXbTMU(l7%%VtA(EKs8E}+C-}^?*N6OT7>OP
z9LfCho+?z)e03&dbiVqILAifA{&u)c)x6Jr3(4j?DlL3>z~@uc*_{4*GTRdGg4Ne^
z`f*nsNd7$!{holL0GzD1|EkZrm(xDAa1dC1A7zrKRHs4Ca<9)FneNWcMEQln8TQbV
zTvmJ#2!s9qhnDF-4~+lzFfTykA7>u~{=2zdVYWIPE`USlrd!;WD{F6X;?Q569Y0if
z&(bdFo#l#CaIr(ci}y0Z*4E)lf9vZYAUhYZU*p$8R_4E&$mn6xDcbqKJ6#B4$9Yh~
zwqJL6=wAJUnU>gezcV#E7qf`#_NQ)!s?D2=_}wLx0)9hTvJKsgGARN6qr&Id=R_>G
zil?1ob?5Niw8;;N1y#;qORQ(Y6QVxKeoC}3mN8|1uD<U;TbGfR4)z1ID*Mmvd@eF@
z&km*jS38)ImYND|qM@*fGXm0>V9PeC$Q0)r&*M^s6&?4zeV;A}!e>>IA*2IG6Cff&
zF*$F}%->wR&OQJ6NWxFm(OA<IzlS*7Qxn%W-&cN}{Q2;u-0axawm(2`{S$1C_pTqk
z{r3`U9RQL4e4jNmGz>^6PYStg!vY=86Gv6n6bD(qn>Un~%g$$*ILK4opp=V%o4X%Y
zl$&ylZk%Bn>gS%{>rd0?oSbZI0_|`(z!|kKN>c^UPu__()QzvStf&2(rHLwu1=Kbc
z=e0XLBj^6M-Cy`q`KyY@8_1S+dqxN7>F;TXXe0lncI)5rx0?I7AHVWj#{H+;%MNU>
zav$OU3nAP8c8Boa%KhG4gLv-63+T)M3Y}$ua&>c4>!LGT06x~EEP=bRj%1zuSiUD{
zUT}k`C@Go9|5dRK=N`JdYe;9C!f(f^cG@$HKuW!=x_b5XUcFYB2lmvUi2^4Ayhi&-
z+s4_0BBd1-+F+;$ga<g|6e4hB*>w$S4alT=f~<JX;%;Z^rOflQ(OZPzU;35j@QcDy
z-2P0)>!&X7BQS#Wc6W~i$vTmZ_9YJkUQp}^dSWA5)~XvF?jH0257p_9Ig@We;{83E
zRDJa5)N7|M@<t~na~!LcRB{2_Gg(gdyTi4sbN!%}eyv&>(<JLZgC%iM<wUmzP8vIB
zuC8;nE%#DGDPSrlE~C<-HvNemB5*%`CYWrG0NR(eaY-T?c=Yiz!89Z#qJzIi45SG~
zf>;=bI!}<yZIGs1rJl!pRX37}YT9N066$Of;^l6;(>#VTzMyZsbM@yrtLV3~cUqP^
z5~CZyqXlrRKq9*B)-Coyep(i~R2-A6)JAKPV0r-L&jN5Gmtxcp&5)hFOrgs>K07#0
zX{R$6QK`H&4}kie_lC$O2NE*M&`czSa$$B^PizG(uB@U00@t<P-{1R#sF4am<HBs;
zZ{LBw@qhktn@3=P<A?!}22W}b)h``s(+<rEv=>XXU1%so_I&-i%;DTMATHqCr4AT$
zY&qgW6h0UZ!lV2H*tZ|l7ILTzkPo>U3@Q`7v7CdE_GW&cBMr$?aPBGsgzR(PAUxvj
z1FrsEoaKdeKIgcOdzT6P&Z}cy=YfIL)Xq=41f{<4gB{ziJ(yPIU~k_9WWXDTAD^{`
z!y|N9VNsRikIRk0M((p`*s~VzT~-b0KuL^%?{975k=BF#krhbEVu2Ah!d?m3!bcRK
z!7S8$ufVQr6}ne+>#yLc^drM-b!QJs@=RTQX+qF@-Gkh1K2N3`JVmVJzD=PgB>P2U
zHzrU~;*p>Yv^KVHZp6jP;e&pR)KhNOuaS&-phdlK5W!2!3K(`3ma!=>%LGCH`v}Cm
zQv!3X*DMVhqJxUpfBn)#QW34p=L{2vo!tK}kkT!Dpu6!H2XDwYAw3j0W-UhBg$jfk
z@)AF7aVJmigW9A}#Q6b9pm#x6ku8@FK90&0EIM|_4o%@W)dQ9WO*0Tnq~5>$QV4`^
zoIw(DLR{H6Lt-z!>p>m{LwpY4{Mxv5XW0#d#E%8k2eD|@twHOGVD;wiDmjt56uYlZ
zGy>|m-2z5RBEY<!Orqh%y(t-x!j2fQ53NTJlwoJ+qHH{}XciyYo`F`F22HUjYR%2X
zW#)Qknw%NW$9ooF$ZaNgU<?SJ4j`%`0^MHxRwaQnB7p%I&^78qoh6vDXn~%GYa}rF
z2WOvYaqBN>6o>s_?1oA(Z=yEtWdq@Z4=BW?5}3rkORk>a;1S%872uM9lLZ2Hts_Ho
z5j!jGQorAMt4FFLq(=bo&gs{t+FlIUYTX4#&U|SyZ8Wv13L@7v=Mq0PbMeVK@+GuS
zfTxQ+MsUp;i!Ku2XWKxsKJDvb29k%J_f8AAAQFqKzVajX>TPu9QPem_bBCou*r~(f
zz**-6ySz?8(iJmCiim)w8HX4mSri~nX^o7=DX<2#!;kHc=H6ui_ff?TVJ7ecd#FH|
z=QHa%>4<Zelz99cqxsWTVBTML^SUt9#xUd)KTQX*_+0hg<(G6@L=oU**}H-uSk&}R
z+ZkMjj5lLDyXynJ+SIZBT0UAddk)wsuCA^t;@L<bCc7&Ty1+bAgM3m4Kf<FUS=z$1
zmRyeV`v5-U2H5p;PoNJBq<;j1F<SROC%X}8B5<r*f3lufmE@7OmNI+noRf1`JlJ3!
z7-f{Don3Ghb_0L*V9DdN>7#Y5vZDO$kptwjvt%%_6nL~hOOvShr0v1-AW8`wZ6aO)
zp1jtB_n4}(U4YH{Z3{n{$u*G#JyQjkq|#+FMw0y9z-)>FK|Ed|;)SKeYz8=t0Q*3x
z?fl)i`j2#`2q-S7(p~u@3DxB8n2&drftk7S8%<<XJH;rwx-s|l^XJdupc9KoMav%%
z;*)dQAuWYlA6BM=t88)k<&Gn3k<B^W$=m{*cYHQ00)aWy=AD*H{f!P_PGy<J_z^2t
z-mOq4JmJD%85Z>xopSRyK+ZHOa1z+5Nn2#ql$6Ygtsj^<2<5Xy$nk4%LKA;ee!vju
zq%#KK#BaearLJ%?<fEcHd(hP96c?is`k##gClsD64km`MwY9&44A+*4B&{82+h6%<
z?!m#qdMGgGsR=~GJS;Bs*K`qA406og;fnVW=Qyci125WImcoNzV`Jm<v#L;DhT1@Q
zv87u*x}qyfwZ<H^f{d`I&>Q^_U^3zk|HfLs9JIyN!{f{O&K-m2X9PlWR5qJvA{Yz)
zs2St!M_>*j1}!?}P;m_tize>Zxe3Az#r1PMkH6^<X{RNVIxP0)M?{pUux;Z;ma08I
zEVxb_V5s9=4AYe|`b>)sES>;_2Y=LeJN7yUgd!n*l`V7QCrkT8jGvJ6a|>#$I#DEy
z^^QeJNlB3$8Lf`Xou4VbiRjg)2nWzvu5l}I3h_F}f^?3hpFOxFq7i*jc{-zaDV!CM
zIOE034Qaa)8LyCgxXs&yB03IYdH{z8$Ht_xO(_TrvzE$$5z>c&k>h(Gh?}RN*`Qgl
z5p>=i<FA?EX}uFIyn%4;ibhh*w(%_YcTy?s&GhlcaeiNL=^dB$%x{-k9L`g?4|7>0
zp+zu84-dDt-tdK9CfG_dc532lq~`tJaqz``x_6n!9uZ+~WwkB^)dW9Ci%*r)6XM}}
zrC<(227?vCU@?Srm%srEtx1X&FA%TK%2k+VP{ZksqNq`3nRrr%mw>aZ&|8mrG6o@m
z1S1kyQVxri3$VRH(D}h8zQw+|$W(cG_X(@Tw_hn}=iP+9SfW(agN>o}fyN>=HMMXL
z42BK{7XXC=<brxeBl=xHO{!`H3v%XzZ2ctaH5j(IUOvyyy{9$+{w*2^<J=J4**&VQ
zVFNh@a(^y{4IohB{wb$@Z`d7jJ6BKqlFWN#wRB1!E{!2t0y1uc2r1(^l#(0Iw!Xxo
zoEM+%g;{)alb0UpiLNbI<UW2}#bZL{ioiPl&<6v0WdxKB!4@eDLUUdEhDOHQSaG<z
zb{N`{<Ry+ZbW8J#4oMJfkt;TBPWv>9hM7&J8rff%MIh<*b|i6Vg7J1Hx`P!F8h8X{
zb&A7#CwEp#nsg$H_rWz|XQj7&sMv2`f1bGZ<HwKT!QrgfW5@M$l^Yv4o;lnU(~o_k
zliBy`ymA(8Ib@M>I>vHWdoxIsIz}5G>TagL3sx<U6OgjcT4F;))DyYC8k-!u5>tNL
z_xdifl@>N$8i%P%qp#NG)ElGLD4GX6XIO{wF=BeZjBrH7Kz}Oc`{?l)#5&ZcjC>gV
zMDuzoHp)Iaxs3EU>C0<7wMh<)O+OWP?BwHlRlIgZGshC|gy;R|W|6_e#}dUG!S51a
z+xxu$UUG0TN!~GGf+1>+2s>+C$oO#BM>HsHAcNO?f^GTfd8f{gTMdvj1x39)_ptK2
zA}5-ELty3vCO+up`G}@}@wtCo7@}pV3fu1l(Z0Hnul$t5R_)~IV{))RXAtyMzqLqX
zWM^=*`y##Zs#6{_uzEh-8HweBKb73}FEzV5%;CnKE{V%;j7jmNRXtbuW<RZXsLYaH
zpV|J)-2!Hn?h?vWfUB~*H253R-}89-+%aFsMK<l2z*ecM8%-@R32O?%gW$nd@mob}
z;9ZHaI2c>b1FfXiYrKp@{2bxO;rZJE@3SPJDDi*%Lz-RT{N}VTOsM$@FvuVf=yg-Q
J@@uyr|1auvDG>kw

literal 17281
zcmb`v2UJtt*Cw72iu5K$Iuby7S2`*Y2%#uNq$5giQF={K(Vzkns#K*)2kFwHAiPME
zE;SKEY9RCubNPK`{$*y(n)xP+tc1(Gr|k0VefD_{(RYn>>1nuVKp+r3Tn}af0)Yt^
z?@N@xmGF_)B;bS65upnMK7rSvb`uKtphoIh`hq~TEEjL^&`iV$2qXZ4!)}=cWe{hA
z8*Kc;4>tE_eD;zgC8?RfcVK&*ms!{@f1JE;&0J>n#EtFA*UbC*R%|1$ldiJ8c>QAw
zlH#~<@7<59f-jgjE|+}1#BwQ;>7U#G*e>pOExz?#f9$+IJ^fzAcO$$l%Oy+A<^B7C
z_X@sR+qV7tv{)$ozxtynKMroe>3(K-{7m(E(7BI6S;?-7+n(<<Su_6ugxN(#R%;lu
zQZmusRo-E`BA07<!^##X)Lqu{azM?B9~!&6U`b_S<S_<TjNTSI*<Pl|0<Tk^v8CSc
z8Yk*`3#l*`R{IWdzIlz`wj<mk*f<zHcXZ81GHkhr8wD&JaxLo-5I7bG_Mg<ApDIy}
z8$a5>w5wchUW!wPzmkIVHJlY!bykTTjprO6v}#)?H-d^zx9T|(CpKhESEo!??bEDK
z%uh<slh$%Y{K4-aeEP{vXnx_<h<Nk6PR%Kp)v;2@mHfH=X0`*^XK#hw)87gEx7@ew
zVi$a$(lCeS=cV6YX%3gO+=up=lZh`B!b<sjRNrw)_}j!Nk1-II|M(Yhc$Ms_*)`j%
z9G*VK&0mgCuFoIix7bPT!S0Hhhu(}Ck!&MN|L(9=Pt_pXh`J=3>)MvWWUgY3aZlNf
zoO!)Bk*$2loiKF==lf<)%$(P3`H2>JYsNH6Fv>n$S7cS%pllT!K^68gvyJm`T!TC4
z29kd>N|`^^tY)JMr_`Y}PK6GX-SIW;3%%Fvu;O#}s{m3V#k{c?8OPF=V-YL+@;YI@
zgJb{J)x+f1)i!Lljr$K9d`;F5?HHy(o{%xtMelw2Dl^|K{VVHA(&W;{>jQ}Ib}>7_
zO{$Gr37I7ouhedg^3B`)NWq?A4{UZ=7KMm8k53!fVuktJRd7_8?Iz{}Xg<QIR<&TK
zb$Or*iEkV<6S62yo=qB<7{om$7|oqt%TL<~3Tboir7$XUZ1WLC;cq-!y#IUwWvP*B
zwQq4b!rZ@btWC=@Q1G5@J>%x@@U+{t`l9imdgkt?q=T+~x0lIluTdZGZ#O7lyYg7?
ziV<<v*zof>*Hwv#86M=_tuKKhJ=sRY{j8DsK;t<TGGzzyjXNs&v)f~4HrX<)8*+EL
zOuXpMv)1-Ca$e5kMtlnp<@x&b?JbN+{qUm2W7p5?Y0%{G=<QiXNpaulq<&Me(bi7x
zU$rdAv*ubRLnW1~-G!|8l@^^XVyh?`pt}uiSBr0M_f#jGP9}`^fM2n<*cD+NV-LR0
zP}?L)qH33FJ;DvXZ_@2sa<6mhRC`-!x|}Dj1sX+rjYf1Kh!*-0ZAu-Cc`leg_C@5)
z%C&uDE(zjiAU}|n-dMO;E&ei%sBhfJ(Mig#Y4=vn<HIXCUS-qKGH3E;+YRw%fd%tY
zyK$#YMgE5}Luo8=wsO6`79lb}#CG%3vqJjoQ!x8&fpRZ*B3>2j9SgRL5`NE8eF`&r
zo$ceka+sApx$*7s%(=woFa5=$#Q0{NR+^CTs6_<A0<u@IzKG#MH@gq?mGjJ7n+~+Z
z-=-h!>;4i5?Lj0g^j&U6B(ePTFY>3#w-Y*_ujlJZj4ezXm_&BTruhq<X59My3xD6y
zx)#4VH(+*@EFHPHe=JQ(`*UV#W`r9ynQ~_Em84&kdG?Y0p7Le|d8@V=e1Vwq<=nv?
z-)1<*n{{H#xF(?AzfT5%Eid`gNwu&|jdm>%jm;W05<6;DYRg7mZKM<(4?t1dUO~%`
zPW_|1?jPHkl~4p(JUw@NDH7dW+r-(99f?>DC{QcLcr@%k%o`d=iCyUbvr(e2UN96~
zJnHdwL^UUGgeD`kv?=M@lgnLq`xbL2AE}cagt#BxxvaT(NFF4z8GO|A_)x;kqUHUW
zdLF*sMHsc}ZxCF2RvI&+H_u!2yLJ8$nBg8>et7l){~`S48K-#i)TjgZS8{c;Gf3s7
zAesYi0&Nj-8LIs1+p9d`#s%)9V@$x*n`<?1c<61w%{kvzH&*5a^ug!4CoJI{_lU~V
zGOd1b-y?IpmLEy&3YPD+a2lQI4hWDQ&izWc`$eOu%{AD<@t>qd`+np`yIxXgtNwuP
zvij(Xl8$)x&!@P!X#Q9x;gvbgVwD@CJoDZ-!=i;Y!6TJFGvuDa5#&6#KE{xy%nGNE
zhfQ`k+yf2r?FvmKcNK?%K9aN_!lS~APh;cq=!4#UJJhK77P0L7>8aPqdpR&;(m6;S
z_K|B9f~!tA-Y?kGK&CE!(F%^e(oIZ$eEOM7qr3sutQEC=_-Kx{*&%hj_)pfz>0JLK
z+0Xkq*ps*{_8j6muNj`t(u;1taDC(b7Zi-GLT>u_-F-u;J4c6m`ZEI-F&u$cC)r|x
zVru+8FBzPTt!&3f%%)@9tuTA-8|*}dn|{z|uE$vhBjTqYe~c^3`)k=2f2m)R8Tp&~
zI_6LHnB-QUbdSWE0su3@S`hEtr!hvY#1j#nWCHg$a+}%xNKx!@w&9sK#hFUuIU9{|
z?|a;8^pH4=ds-Kh6(WTT$nm31QZqK+ZqO1zWq<#<@^MG&y*Ab>yNG1fKB4n5b4d#`
zq)SW6_)}XFF7r|$P3BImoTpHPzqXli9c$NJL-RG{1|(5Sbiq+mqVaqHhI+1nVeoxE
z;*5Tw)2uUzxaMbeVkG|3Dok@L%UE#vRAxb@tPy&c-X?O0Ftblnk36WF(W!|f3wwUM
zyJ)P-tTb)Fs@f8s=$*oR-lkvVG8cL*JB5FDa{Bapi@YP5bVc^<;|+V$rH-8|IjRR@
zgoin&%kpzQjj9ta+=CzI@#rqhUhMrj#L+xWg=OD-gh5TDKWlem%93m4l_0sn*lO(3
zgUy(D{yioah>VavGYT5J?{rx|akQCZ_r4e1hW?(0;KYU@9nry}8@Zv~=xfqni22io
zR$go)D<|J`c6AF^Tsh@BbpIZaBh){NyNB~JJsw%z-gM0Q(KPabE>7O>W@3pBso7pc
zI>u6W2dt8wdH!|$SV3#rrEFq{MPps?sQ9hU7e=GAy_c`!FauMgPIZPtt&4Fc$5#As
z6KYY`{8{&stgcl8Pt4Gr9UWB0UoOmoc1N(+k6X%6w`Mn?NtAC#zWAstSc3KbEd-a$
zEW#|BU+3+B?KB+mznk^6yY;A|<y9kZfPE<TKoPV%E?n_YxY9_PKgh|3hK|eyGKH3?
zrq{*hZ7%zL(5O98zDM)&TE5l<2?K=}=kEOubi<@adPK%S0zrk~daxF`kpRn%YaiIo
z>iJ?kG=~2<PU)t7u6;xPpv;3?5`%w3=}3HYeZP1g7@KLwjd?_lGj-cxq3AZq?4{`x
ze}O)S>&Ppl>+VxJr&a`8r7%tS(62zbO6VI7?_{F~ytr<h3QhuT8fg#FBFjp7XoH20
z-l>KX-b7mBC}4{v66jGJ9JkpW0>_#?;*K_v?TCBk^15!I;;Y943MsgFvL%~e_0BU*
zNJHdO^d1eN{m#@4MfIz2?8+xg7SfH#bMW3(%HKg(r;xzxDxBdsrsrPDgqKja+pY!V
z>e;S^8eFNgo>wX78@Pg??G3<9jn2yyEp!K34)RE5k{m%RI@U4}+~v%Xrs!M?ek10G
zOw7wXp?qNGJawDEs1!sWdduUgO4KKn5XHvuYg5R)0;S(na}REwBwSmldfb$^vPN~H
zwmI(~@$~o_X-@JvR?)1w25kRsx*zI%n+w`mG)u4iW`$}_`7LKdZXySWF-Bb9%`=F8
za|WJn__j9U(R_QnnLZ$qYK-{jP_)}k8M&)t!yTl=?6R$3KB39Ch+uH#;-{R%&X<MJ
z{8itTY>Zu)-sH(W=Gt5h4~fa%w;}xC(kdKz`<I#6);L0xBQ#o43M&;+Yq78gUBQ}3
z#DPW0@B$IN-ok%JTGiT9p=@r+<jr&q$)CJiFa5fm_<~WiIMJSd8f)n{^lKYIcvt%T
zotfQ*iZCd4l(-d2NbUxy4|f*BppVT9*^~zob@`u?)XJzULt!*>wM?1t{`Nz(Fnr$N
zUz0$*TL)93`R3$bA4l$X?0&^UW4QZ<DAhq3nbQT}85qkf*6A)_1PI{nnzC*~Y~GU+
z%i<5Oe4mbi^{{4$N5Wu~#3~3-RK9c3vol@C^`WO317=voazzC7fy7OY&F3FRE}qJN
zkDW>p_dLGcp7Rb`1WwB*4?6>ZXXxEEDBS%WU<n)i&c{yl(YLXAl)#K7;X^MR$&#UB
z5D^Dp1`hv~uS83#yN^Q21|+Jzd<4cD?n2?>KFz{}VBA-yx;~2QH)Pr2*dJUz)CY^*
zWr-BHZ<L)^;U<=KU<5W1%vuSBUy=RqUpaj;fh(--YLVL5;~AVIVZVrIPkB}`cq`@w
z^#kk(-DKpQq6KdUUH3yd2W$6W+Dfs;HpVB^E5##wS*jhMZ2hE>PGh(9u=*jivZ-Gd
zUMI^Gk$$CsQNO;Aw{SlA{3ec<4S@qRmr8AOGx4!t=ffq)b&(!xbUoQ=_ZCX{hRKvY
z`Ly}Ip2CH6%vUXOcHO7<9bbIy!Y=S2)uP<zd2xNXyvK)+30DZokAoHNea@^j02*`;
z$6iaio#^QTiG%j25WH~42@AY9Q~_V;-On41yNte`z$}M4{N+hSBU`s~U~2CqQ5?z&
zwWl#f#}%Mfa`nP2aI6cU3@$AZ=KP;wO{-)dQf~YF?!%3XnVs4(swah<pdj`jKE34O
zl-*CAK%XPiB9P&PV=35_N9&6;A^p<BqWevex!0fsp~%8Wyhu-av|U@UG1+*2G8H-r
z=i|=N`a=$kF!4R+CkV6EwPjrEz6~AmQ`)?N8CtXS#~^YalO^YMhOm*oj%=}9h5tp=
zYJpl)C(q<R2sNUvlH3TSk-Z%UHZE-gTx~695Wg&A15d;C_6O|3Rg&b=kciZWl0!k)
zsg>E5^piQ5a%DB%OKRP*!KYP-oKXxir0@F^)M;9xQRX`*kjq$KpDlHfnI|}M8?^z^
zNt3^#J)$gLQv8y~n4@4mQi7SJC@6)6+H#2Wm#j&6-#YsGD6#u#ET_L1KHg29beo1)
zt_!jj^K%G!{fVYul<*4eQ((91fm2dEZ1`TR!HOh?#oYe(oRi{j3~muE>b}EeilP0z
zA=*k1ie9)(sJ<+nmSQ&RgsTG7JBM=e`J4ecd-iR&+!$10tg&Yedv@k`+CK7NtaO+;
zfMxz!R@YDI-9FD-(f(erZ>3QR=wmcDIy4ehUb*p&Wp&bn^Nr$I290{!mt7_;o$a1%
znaT47*yt9N;1k(o+LIs#wRcNV@}NF2A#~v;aB>|`8dQ=Sti37Q6=JkX6=CswQS(^?
zXM~aa%yDEkvvvzx6UVP6nB@H@Zq2EPlbZweP3uNAZ~j&UhGP#lvnuvlUVqD1X2NF%
zLQwk28znB4CSrY9w6Q29v7hlrI1kA==f~p8W9#Zr?sz&57GZo$2L&<RgETFwpm=zj
z4!lpPFG{FqJ$D$Y3X8v8$W(MClWZ+zIvWNZ4Rh>euKul_A?ZWqo&OGvzX`=#CoIej
z99?(Jm}}-CAp*iFdEG|Rgu!@&9nLdlBo&ei$vx=1Pk!~*ji%%1!)wNZllE<0{Vi7l
zM|I}-br6F`PrZ5=nRu&=1dBV{j8CfLx!f3Yd`)I&anCR7=LgEwymV!ba>m~2a8X7H
z-(pBjn+#M#Mz|j$b6y<hb9G25!2on@!aTWy*EgeWd37*HG)kPVOG3Gt2D2Qv^JeXH
z<3g`Y)-^p$9S?b3b<g)hRW5~c;!-X+p6U3SLD(5o`;~N<pmqhBGTDK@`+3QgH1q&`
z=G=q8ic5EAZWwtBOh(&pxedd4avVm`$@$@S+t?!M7l_B$W-O6k@|3q@fo{mP*T|bG
zQ@#l!2IT&k`=-~bq(wR}EN>ZBeeY~5Bc|i+jbIDm`era;^w+F7xGw>%hLQRE5axDZ
zMqnc7cE~K*yKq<yH*g2t8oT8>eW)4bK9~F_`Fv3AQgh;xF=()+>e}uviRglu>Q%mc
zMFyoFCp``b5C?~i2s92#NS1qB)#B!?6YH>LUpYC?->pRpbN#_WwHXJ3vqpY<$HDH6
z3AeYB%pUcbkZH!do)d+nZ~dtE+GEWW|C<t=p~z0WMQ1^?DHKE#6=_Zx&6OP{=4YRi
zS@V2|51wT_#5pWUeL&}kj`qOxKj4?1Z2kC~dDLEwB$qQ%MSsAN^FxEy3ocoKa6D9;
zh<&6nw#Fc7C?%7F3>Sk{>wlTq=7zn3Vmc=8e9ZkVK+>NR2Vt)NDj#`NK{m#e(g5db
z2V{&&NPX%dlS6J(@{v1zBB>)Trn`H~3D#A-@tCP+q2p)B;e%F+6CrK2p9WBc=qJ_N
z`TZ>z7Was`t*%I!!abDOrjY!`VTZ6>IPe%<=FH!Nk<)~Pt^(GeDx2tqIe%<t>P5;!
zH0+7YjlSo7ojD&}BG$_ypRxX@D&N3qan-f@Gq>Eg@joM9EOBi^2juEh5AIz}Hdc7T
zid1_NyVVjNC+PlgD---iOBb*2eK%F|6!tRtnXnrMXtoC<KH!T%#Mgm_F>h8ku7>F0
zO}=kSx-2~&aeFnae$KRLdenu>)1kV3xVJ0m=*G?+{ncTsRrhV>9|1<JdjXK2-RW@B
z{Z755lXJB0>~JogwfN=F{U42qS$P7qZH2Pc`gXCCF&RoMs1J9|(_$CO=^Wh>XD}Z2
z8~L&W#ZV=)YMYle=+yYU#I9=^!#^L4QJrX1X1Q8V!weEhV|0$oqMb8##v|%~bQM&U
zo<CSAd$Z(0;?B`oh-j{}GSRun2yQ)9OIRYv>zNI%Q)YZWXl6K|B&fj1e%;>jBvu??
zjt=qA<opiCXOfSK3I|wN!}AL3o6}N34!R=D@U+T{7TA%-Pq_s;U-LrsudPORsPlP=
z6!%)hhku)*v%y2FMtVwq1$!@d!?s^t3^)-@h55bKFQRJi&k7GhB;RtIUKXqJMt>9F
z#E!@Uc4{=GZ>F6dX6})lkCc*uN%g4aoZ4c!ir=%4Xfa>;*+qL$@S1^^^uJ<79-d7+
z2cW^@LqSL9?0ICT6#R;7GWiKRp$+p@{*3#8Do2-O5&0+*^+Q@QMj?eMvz#4VAsF%j
zVbZRI=-zsSyLVY69<KwPFN_|nTo>xpPlmeLxF)lZ!f1FOZY6{+%Fr%5?U<Gq?M-6j
zu;~lB8PJ#uOs%*|nU`%$2R@*6)JbJ0I3@DW=uZT(4!->Ia;d}5YGFn<kNbdej->|A
z%xd;n<>mfE+%1@O)$kd-_&s1Y{2)8n$?(jZ)OWvGVT-9g5dL0iMK+apsS_@Oo6p@e
z2h}S}bq3Bg2t=GF4%|@_T5CWO+BBN$!bf!Ung_B_H)2o78NQEmBZioO(bO}wWEFz=
z1&gy8g`5}O8}C?|`zl9qew6fL7>xI>`OC7{qEPFtN;>0G-`Dde%YMAHW<`sBBccA+
zj1bp-I#s#-A&&-d#gy&Kc2|cyv-o}=#iv?2hwHxI-L1KiU((uR7#J)dmu?X;y`=){
z>qm$;cUIvF(a)o?5##0L;%=Vqd*r2mx1}7tr)#=C^##rBn=ZXbxpAqq{3}rRdY+iI
z(>m>hK(+UG2eU7DP}&)o)o&P^S!5fT1zNao*xj_z^k=$f4Rxba0DI)|iKNj+Xulmk
z4JABwv}zyZg0f6J@5pG51A9crK8P99PIS%IE1SA2nB13GUN&Lld@dtf6Nuut_geEq
z@0lpLjXYK$4Jb<|Cr(%laXOHVl|P_YXZ*z*bRB6*pMAUtD=eIk<X}-y)Ua${<d61^
zo;^U3N9eyDyI-ytp`tcUr_OK^`u-GQULVL5&iA?&Y>%j`6*-ooY_${&fE)IED3889
z!VK9dJh;>GRDyIf>Xc7Z`u(v?PU2B0!K;JLK7U#dI=B;vq<TVaS2cG!wCXWOYG*|4
z<-rp)CuV2QN?Ti7<H~Frw|r|uyy5xp(fN~y^!FV31+bgh;%mndgu6NPLGtl9yx}rj
zk1yYE3i%}TP}=f~-}0M1JnB6COH<R7m6g@f^73KtNRg>=>-v{faid{nryq$$jW*s#
zdqgE_?KGqT&g6O>b9+Sud62>rVrV0S-Be@`rYFN0x_VtWj<=SAmOTtLln3`ZTqrLu
zPX>Nf-}px;PW@?Lnv%!seS4rkT6P(`lVRYm-h_@a>-yI4)1zIgGP{;94K#Kp6e12v
zx2Y;KmW0D-NqTj^6=QDYEbcqM%)UGaf$i?JG4qbh-ZFa=H<>7A>U_Dv!_CcYd1WPp
zT5fWJDRiS{KSsg1_h9>`(9Fz?@A1)*w<x9YM7Q889(mvO>Be&nx1qc-UbTP|hv5Rl
z3ah37Vt6gamaE4AS6r_G%lVbrF#Q+q__*4~<;n<WqL4H=lnqIxq~8iM);iruFfBC7
zOtHJ6tem>Ky4v(H2%nEg;hUbAc+Yn&Dmj_mxj&=PqG-{s%JI&AbMW?<akgelQ*CXM
zjdUQvyNS5h^!4jkm(w|pwxCKIgC=6#lpP?~&bjYzL@R8Y##Fsy5F!qvQx?$(k1em%
z?Pvrt;^y+6k<zc+IL)IJpzjv{tv}s|*9p@X7q&-BEGndC>)YB;Fi1Ha1H;)WptU9|
z>-lGIfUy)9ydTmGT%YcVwp-Wci8uiEEPg$TJ9h3(mE(84!oxE?G&6JhF-gKAtLe=v
zQ6(u>5~+Y};A#PETD7-zaw2|hI`Y#SPJ_8Ru9nWrb3CWa2}c+}MMrx!()ISCp~s_T
zWo1-*`}?Rrds9AI6(g-4<K-<rgE@Ds0XuT3tLbnfZfp#AO*d>V=I?E+t*JM+w1oe2
z=;P-05HJqmiicSmp?kZ&i~Y7gXU`T<hF-_(O&c6X$Hy`<!=2M1YgJtl{(EZ^C^cEx
zpY?9T1w;{#7&Z~Y4^3E2OD!|e|C}N0`Y@(5OLU^qt1>(FP7%A2Xs1noc5VeTYp^T%
zdc%CI7EqDlr_dL{H~X)S@v6(pR)$R0xX}VO{xnYO>_8?YBqUa<cB9T~s&#yLxVpKd
zWOV@E(AK6^58Q99Pt<bh&k!>0=0Mlg)s5}#?TxdJJ27r<rL={Oev6`wTU%T61gkm^
zWS#mDiNxdSu<gDLF^==ERQ&22@w$9&#FdrF)!(o9%fEx<hot4eDfNj<PHB8)OAwf7
zPFii7A!vi5)%am*XJKTLSu3p2YCsh06>{mHVRSZFtLW=?$qOZqF?CqYvOU~JC_JDs
z+^6kyZ~JfW`|Va0-@j|afPoK9O{GtL0Y+;hy<cE*%t%MKqu?jc@U)TV^z<~2W24D$
zd1!fiaX{-Ty!GY|VK#h!22Y)6fa^(-Y4hBi`(B~;=bg5dwUt%5eOtt-?YKSa^y4T`
zy_tsyVau-T=O0>G?jQ{jLVN?8GWbAoGs4a=8rv%^u5`BLN!XAD--z+3XbI^4?9^j4
z1B_x^O--$hw4Hr^@+k5BV<*6=7mc#i4|~I+RZ@BehXE0LP1TjW-uH5I3pOfRboKC%
zP|4aG%10Pa1CDDyK02Dj53cn8{Vi%h>u>6#R#J8L>6&&vU$y7NXIAIFH2)_qE{khY
z)^#Ti?Jwz3zWXzQ`}cjPhX6=g@Z$L$l2p&GT*WYOOuiY{9HciYs=ro3S7uea!a}%8
zxGmm`3|K9zKl8P=p4y3`<!G(0t*r&d;}z%qtMXxRQC{FNvA)9c^W$zKR_C=}RrBvn
z1~mLvMgj}4GEBmMEvubdvRu8n<|t%>zLxAy`LvZZH8oj-FVxR5Txe_`2#jVxV)jP9
z|5&MI)56onK4Xntv#1#;D^fUxY4km<=_;S_B<CnktD((MjjsC)<x98r(r-Kj1Dat0
zK7-!K=D^QD!7#^y7fP(Z!O};YRQ!tS{GdxKtMPF+cECR%piU%zA(Dzej8vgdoW|qN
zf8lT-FE20cvHjiMq&1sH<nM14iwQC}LqkJ*c9w@1dHhH2iOxLf;vHw-K>dl=mBt6+
z!z&Qd!yyxU#3}sFPi;mGEjRm=0H9Lrqal|;7?0j7*Nv=atp*pVc#_-czin$4jpxMQ
z+Ih(r!z0J%-zvVH0^3+Qd)(MI@_ZzyekNdQF*GD3qB8t=@0^k^Q#1Ui+heR$Oy#PD
zkI#l^z}m0Pzhb5ZCn}JQUsaEg0N@Hwy#b_F$X?+Ayq1@il<9tnfj62qTD7v|9(86f
z`eiA)4b=c~%>43S4Btg~%T|BX`L;(@RrO0qXs8Sx@YNFRp1&azfCLfRz3AM(yP=Mp
zT~?E@9m+Az$^hadp1F^w&1vyU(V6FHu{q=Z{(jrzik7`E1x-z%&i3~BSioB{>q2%{
zRuROu;O)Ou08oCmKjU&nM@B~47#k1lzuDJV`INgS!}o#Q;b>?1d-!G00|3#FryG55
z7-VaP>jMHtNT;a%SuV_OZ3A9&AYnicWx$)*(sErpj%r>C+(x6E+gm4$+u-7SBNBVx
z@pjZnIL0GkTlkX;hMFs}3UKY|&wx!^-jo@9)4JxQcY#QVLc{cd6)*4q-~t2;{OL|;
znw*?mA`*FR>b++e*PFNd@s~HIhK5X@&Mw+`7mB!p0L(lOUIDOwJH=*!>e_@?{Y?4Q
za@@7Ckdw`>3Y$uYulH_xT+Ez`FNm;PkB>Osf2roIRI!<iM!lQXS4sIuY&0nYHtHP*
zzu*hjQ7RL<kNyE-H6IrbPsYsDROoLU4krNwj?ESGlKV3@?sy>b_&fmGowv2M-QE`d
zdv+GV7rIuZh9Kf6CW6hLM5<i*@EC7$+;;F?=4>o0biJ`AH#e8U0RVnmM6zUKaYcpC
z*U4HBL;#&FkPd9Z6eh0|Q2H^R1)eeW<dROmdvN(h3+y?(Dix2H_4;J4ygCxk5wh$4
zlMcw>%kv{3s;2`GSdE^36sHj|b+o%`Z{?1^i0YMvg^MqCK*A6R#B-{y>@jv4kj9y6
zcGxyxLRNt7;q{_>j*?~U&+=RLXOCMB?eGKY+r7L1fS*@BUHDPK==+bm0BfaU2qY+Y
z@<mD_Y+qEQ?*PIU@&g|*<z=4<1TEda{h3V`E-o$z6iUk)7}42MZrqt+(W$TS%4gq3
zo<^H;vtgapoI7u36I%bc1CuTbCDx9km@@SPp8|f^>IWb%esygvLmmi80RVFH`|AxH
zDS#0%fh<voGzKA&Ps&o3d{BKGyB_uaQ_?Ffo3Nch-8Pr5Sl-3D+FIMsfWr;{px@d&
zn2)oU1M)M|;oOMb{e4DHeCuiY_hV_>FFPNSPj1eL@d7Uxf0W?(LmBHj&o}`8_rI8J
zkowox*Jbv0cgvdQW7W!~StC{>j*0toXJ==P+kgAikh?3RZBo_Q;y@WOrk+e$woxmJ
zGfP41Znwa_Q8%(I5RlB&Re%;j_E%M3Cix8;-e{Qz;_a00*Jl)6^))p$>wv!>XP@m9
zww*1=pc;o=`4dD8kGzWd?SZ%iN#rEY&&{2m2d;5Fed1?fVX+EiOZ|d6<=k`cv>D!C
z0G^iNdwD1K3r|C#&MN@L$+R5)O*bz4n`#c!kGU%TRK7Bycz$CV*-nisv9h)v;N#&@
zubhs(G2>@?{+dmq+^WWPup0=GQXmZtjpvM-2ZTa>B7SV_x>|UVx%+9N$?-t?jg6N8
zt{e7f6|}Up_ybz;(VW8wwVD;bQpRm9^t8$Q{_Sn!=HcPdb1prauGCcrr=o@3);NJH
zl4^-AvxY!#KY-}xou(eVwdmV89b1?kal{McWvvAxtw3x!jsuLcSwv$607M^e007m@
zeIUJA8pj{zUd+tS&H_1DxV&7zH>NJ$!08ykPZqbrb`RGks<nm(2dn-Rq<e>0=RaCn
zS#js(;qly9UFBX!c1f~Uj!d(I7EMzHmym?Un-NECF*s{^48qVGKs<X$GMEu0oFLOt
zI|vB)ivuvN4f2Z^PkF=hS7qHaIU695sc4m!b5A5vb{vmK`E0gI+%H|a$PVJ9vZ~zU
zH1>iN?#hGteS76L@IZ*y1mrfxP-=OBKt9czoozg4m@dAHVbp=fP4#eXB9m|Hp*?kM
z9wXk33(0|6`;7yqOMqMQ`*?Y2Je=>0agu2a0Ze~ZA^d0uvE5Rd&{LSzc)B;$X5PFp
zR%X2~J<2!3b!RD4^@S8*yM*w)iN!ZXLqQi#WOw+Dqm?u-VNotQQ4+R1ls`;GNqP3r
z!NFl4SV1IQBt_>Ir|~X5<dRDDL}f6BivVPjvpO~=7Mr>=E2AZC^p!wpq*YZ@EA*Ug
zK1=}|K_!-jw|T7G_V^WqLD`}3N)HgL22I`1fd(1<0s__*AB|?H_!{MQIN8493t5`G
z@EgViQR8(_506{`Vzz*UH1jMW`{d7^cK#=O7d3fiIF`f;+aR`!uc;mYp*6E=K=U}P
z5x_kqAo-b^QX}CYj2SlWi^<8!v-0hM$vi(UG99ffReyJvv*Hq<>oFiLkyhIR7E89(
z&V5oss-NfpdxQILU*ti}fVuGd%zW8B2G$JQKwLO?CQjA@L9FRfSM0$4-d?M4xTTq~
zvGIkOWlPnb11Z41SnD5^D}rk>AYkjm&C$9gWLE>{PGEK{9{+q?TUXcW2IT80z=Q+n
z85kH!t?SpnS^Ko?o|qi_;9J9offio9-NfVZ*{eiiOKt(xT~T1qz-0JAt^4Rg$^Eh~
z&H4FGKqL%hMp`t6k5|~Af4QRIJgp2YvF@XRAU>U7ta*5Fp@HE_wC+b6vUM^BK}vya
zT?4-}Zo(oiw)2HZ5!foaTWDy1IQObbOpg3LZ}G00i`Y0cIT<oi<2GErzP4sl1K^!R
zWLrfjQpqF(?E>Z(VIWZ9WPqCZdmJ8&2TN0FA`Gmg-8`Epf*uZjIU6}$cpF)#XlT=|
z_~!i52~~Vy=i52*6LW$u?mb<mk<^BwBNO_Z+|C;R6RL!Z#=ZR$LA$9XsI~J`V9;5#
zh~YIWNvwS>Tc|k4uyyF5GV0q0J}lQiMh~z$jx<r%=NNL@{@Hol$Z?F(GoK2kdHW-o
zDZy~uT2!u;7~B!`afUv~5S~P&SEuka@~)ul*O$@)Kx^oMnK(EQ<ieC$X=J=-Nq)lF
zz}8R>eqyU%qm@bT2`Tr)dFU6ffgOyZrdr?M5sA5#U;IIfK|PxjwP!}qBOLrW^H1b#
ztEM!flK$}XcuSek2TK|o?Y<75sBU>s9B)E>AO+NP1V~!o5cEuuYzUlwn$89RJy*lb
zj{W;yb4^}Ve$+Qfqu|WT1)o=QHMN%V<vyCR?Sx%Dyq$QH>XXk_6zB3EHdyy@ddH4O
z53sBsBGs>+9AVuz{Blh1pN-L+T(1qY3-}11kQk>ux=SNOsJSeq9rf|6&O@e#O9#Lr
z=P(8*d_Zf-Rnjk-_HJwPit0bFo*%m2mPkTd$nT^qiwB(LTdg*-t6}((UNLu{nmJzU
z<p=XaMFdk6>lAbL47jTGg$W!t)M*-0UAJ2Vf=?wdFTz+zd<0vZngRxa&HM7nSs>Pk
zKo48qv4DkomdVs<F$YNuip`ri>KR~Gie;FIL)gxGk4UHPQ--;t^DrfUh64|t6svhX
zC16Wrj*Czo`3U3j^t`z9Nd|ZtWTWlZd4wF?qgRU1fcGu(UXJjrCo>hZ*-OmT3^&f}
zP1MI(+9Vts5>V(C%!_jvubsAuZ>Vx3ob`4QdB&(xV`fLbt}etky0~x(leh6!@?w9~
zjI7^2;rKpb1}6H+Bl@dys~#P_rAH5TT=`YQWj9(`dS&(K#Zj~Iy>0Ov)uu!sP1NBn
z%5$znr>3iGed>znXzmmh=`kj&$lIwYHZi?6PC32g@l@ujwAzvB;1N*lRraRbtC$Op
zxX9l)9yFAI_1(qOG5u+W<jvfJDt;cHPad=1f(zXf2fI8mTqh$8%1`kj>JTP&GNepk
zlUXNs<Zj|cy}$o{W`|N^Nwmk)xI)d$N@+dsZBw~g&^G4Q&5XCVfSupOe`~=K_X-_~
zsl(e{J=8L+p+(g(REW9FDYGc6)J{`|y|`_@+t-oAY1000(o(x=;}Ui~9^DjenVNBA
zU?Nq+dTy~5p>y(cpkmcE2$n_ylw4ZTJ){3oC<;3It@w|KQjCcgj%idraIoRe6q%&{
z3`%Nnc~uwZf%U)G#{Mo$n2$Wq-&)Wq!yzKGM`U9e$!;*G2(~0FMTN6Jp~q{n68r6?
zwjaQYYh56rBKtrU^-ZwN=L{j|n3CPpgER-gr)?a+t@$uT9|#hz<YYdUam*_=EebFE
zq!5WhtfT0H7^1*hXIu>&td)74hvZ1Jr){jM3@0wYX5B2=blNQ&E?uAvwvL~1G8AX=
zsbLQp9k2akjV{61KR+EAo9U?N(_*G>ld1JWf6Nqx7R}ma`-8a7_5HuCP?aORW41IM
zOPAY3Lu~CYok(mVwjbd*fTaNx?r+iO_aX)<O47+mJ6w7^laBU>U2T=kz2Hl{0cyIS
zwyTt;8z2$paq#|QfNw(Y!|3?8;iO^26cbyzVVIl^RrRM=)KpZecGkxQhtqjMlJlJR
zF3FjDXo8JJ(zZeXLSAZ^`E7-Z?Ow#w5f?01jPC;F+&^ld17$f|fsW>uO#c`?Y##Lo
z07A$eW#6Lo&ssB6d4Bgkw!|tveZ`V{x=;(*D3skIl;LUtDng8f7&x1@8U2yS(I!H<
zq+HVa5I)qPM4g&x)%yHXOm9W{7zvXYtxp}Kd2cStbsnAi4S}s$^+tH75yXMAr#{_V
z@L+yxR4V6htZEk&c-Eqb{6x;tuQ-lX`_>sYRfKdv*&z(4ndzwg&NMpgh0A!XLgo46
z>a`fVeDdb!si%+lD$z><B&5(YEcA4u7KeB}=4CL0QbC5#f4f&^rjHXf{qp(?e-N6p
zvADh?0B%CexOqtJ_VluI>@cTk5&c0h4A^UeZ8YabyV1l^&Qf@S_9}eCu!@7b%zdbQ
zZxOs)sR?xuBZ0{=g3w$6$|f@s{M*?~9&~ReCjsh~QJjdjhcwr^&a~i45{?7!rdC>E
z6I<LatM=bMiHl%}@_2g#k_|2Qyw@pieyf7=?6d2P1a_Axv%1wZ?gJFwRI25FtVC+c
z@porQ(#KU$d6S*dA5h%m)wsly?uoiiiVdL@g>%K1bs)cTLBxd#U6G4qw2?Cy?~S;;
zI=oF6U>jWH#qVR0;ZGBwF)~tX>K#b#sA<`o53f0n{z48jlNpGHzyJ~*9NXDi&zz#N
z;A4up$GF|Yk%aoBQvytl52^k1JQz0vOWF~ivm!XxJX>n9{UL|TjiJ4RO`8?Q#hLW*
z!shxy$wm!<oftuqCZVtcV?o6{f0KV2-4HM;bL~9xJ^XO+G1ToU7ii3hw*zJ_2Ie>Z
zorVYJd^w^dOu+`0oNL}M1=#=4$<clfg}*OJM5|r1DQ!tk4S!_)*$%6?$wLL~1EZwx
zRUh;N8V<|mEO=o4DG@zf?Gg6+(=3tVEWaE`tI|fF5-@)vZd6hPnFG!^=0H|%l}~=c
zQFJ`c+7|F-vo9$xdS%{{N;b>v3tdqVHmVP{<-bJ%$LbWBkew}G8V90=cvA7R{(-bX
znqH@+(kpM!$E&=FP`BQ6hz<Pr)_@E1Dds*DAZD~VF8Oz{>H}n3c}u)bZ&;!cZXe>~
zdD8})SLH=ZQgSf)te&D*mk#)p0cqkrfMSbKlon%HLu8d6wlhvM<8xh(e#-|fG9GH4
zAN}KJS@!h+^(zeo=+Kxc_hC4F&}X^ddRUQ9><;$_x9Dh2v31N||IF(E)6sNX>g1(=
zeFv-fB$Fnr#dSui=s1N8g|Bqw`d~uVTJi86@Z1*!x<tYgKl|w>S3WQ|MG_l9(!pb}
zZq5mqt&r|cMwTqlm5lI|y`AIK+|dgm_)y1PF|dr=gUbMl_A=vIyHB4-7U4Whrz)tj
z-2Ltf-4g@&Fe9aB49cpF_&YmkXAbViLb$RR26yO71dfWS?HW7Shbo!b7ZO)ePQd2L
zErtV<wn`Ftq#U`l7tTGX!9#E(^oCGT_>uX5`ysPB4<+vbW*4PTePELV89OI~bbqmj
z6ppH0ySm9p=EBNhZ$E(^PlOgd1V(xYi{{7)Rqi0C-$klwm$b)0%0YZ0<+Rpzh2u$3
zG1ep&WXMSTt(?eXrH=1IwE+r9DWuuwFs^&M;p}p1!^{3ariD#2xq*a`1n!ZYu?^;W
zn&eZ(+?E&|TusLrIM7t`57sub_kS<;gb&^2NEmdgPYSuUAyE8m5lo8~#fbk7xk4^Y
z){5w@^Aox^$yd4~0E|6H-~1;P$cK^-vVIl2v5J1a!lX-ult(g<XmZAPD<b*9110UN
zaBN}`FiCwvagIMeS925y9K&~QZ`wTbqp0Lkj!tFSe5Tr50EHVaKe>9Ppw=||>*pIR
z`3@L<ih;{s+4j%JE9oC#%_OU@696;v0dGJ<v=&=pj-XWv7zTS6&^Y*C`{F>Hg`1eB
z!3<tDgAWAd%Kv(elv_Nlvg|-l`mXGpBm?V%?`fYob`)?`Fvg`|z@Lv)JBQ$O4Nnwh
zIex*QCneE;WB`Z-^o-ZGd3Egiw4~6f<0j7{Q_58@Z~^!gt45{0VPfYiUjb5%{8Sc|
zC%=Clz!AF%Anlb@gGbo0J2*jH_UkeHB^#Z$iM1%Ufnmg3UR!;jsGuYa|6vB8!*!Ap
zVIJm>R1Nkjd%{C|&HhJ(<b+*JXo9tvE*Y&ZX9^JIfc~=+Jlh&O>b@(*&OiGTATl_X
z!5<oO!%^L}0+I}kkpOfp6dILD5r%OM%+fIv4rHm8%Y=m0UAUH6U=oXL2QsmOf}NRF
zSQ0YELj5_J5+lA*9Zfz>zjHVHmKGHL!zMpc*+`%O+8o1~ekBJM;+*+t@?TrN07LFR
zFivUGQvxcQMZANY8nDMtmvwP~Qy`LxKP<8e+g;m1dzYB<EG7r92X~CTfZ#$`b|$e<
zC7XN}Qa%nZy1(6mwb$+)wD$0UzRWps8}xeDz<yBp9~LNg>)Ue}^??Phtb=o~_WG3r
zanh9!61A<#nJqlDR#>xAv94#cU>;pFhzuwT#8+<0GZh)goFF$%7RGY$B-0MSs9pf0
zys3<+$^{Fk!d`R6HQIIGAWA#Rzg%R>--!Lugup6Z2f~F5ONxLktk-B~`K8Wf-tvBm
zSx|Gs*9s}Pi8CL00dybWu6*bMn5ckZ$a_Gf&B^TaesAUSIfTrAiw72g*T$(=@6tT?
zxk%h=Mgd--EwC=BAn!*=Rft=?+)9|eKuaKv3kbtPi~7Z5UI+t(&klgYXF>@qbD>VS
z|Ff?jro(WLMr{a|PIXd`Pk1Y!Zf^mW-ZF@g1Y7{~`8Y^op-D=!ETkV7GzFO013(@V
zl>gOU|CfXPps@=2u|z%#;-NgDIk;XaG<-qT{pc(Ow*P+-dMDkJ$-`8&5%XPO3lJm3
z0@71`>4K99up7hv1C)^5NcKvs-cLYo3|5i#5IngvnJM}dU8EFp=36Chja3}^j>AgY
zHCXE7n7mp!z#EW$DkJc^&?KNME(>6zJP;%bSp-#pj3^@LPc8-7y?g>tb2)&Wco|A(
zFb5N$cW^1C5m~J97@#DsDZRvJf)SV1O>4p<=<V9C155L&-br-2lR&HjKp6ADh%Yg6
zc;SEk8~YeYCGq5ERKMPEzL<~pY>$T)wO%lhYEGr8Vk!TUrDHrID=7Jjwp1q3>+(~o
zKT1=eMZbYNWP~W^{&UsB(?A=fgha3nY|{`jo$55G8Ujb+^|6Yv|4-Jg+Cw<@wc$ae
zGCL?Pd1CLuXIo%NlnYQ&D7w8gqf)KV!MNZcUZ5b6aUs2bkvu>ln2%x`RAUeqXLcY}
z@c${9SxJd$L=F6RHU}UH89)-lbs{$ah%N&Ns+6hZJo*NA9(dk)r2X&H(W3fg;8z#I
z8H5_#Tjk~h*xCLg0Mm$vz)7IMc@i855-?*|;PFgA8WL!w?o&QTO@bZaw!t@Gh!?D8
z{g-v8f6<IA&yiuzIp;0^ec-yk8fQ2N+2~`}EM;MMakMksGZ1`k;yhJ|E~0;X2UwJP
zB$Lzqw0}4?O#kLKKzaoT&=;iFhXAef{|4#x|4W<wndJ{s+7l<dm7humwR!xf?=WJm
z#ehta`(j<;WC?J%|7$+`zx1B}-wl)13?JSCi*wvVTm{+(q9%W_u;6kZyMRyu<n>DW
z2Kj%n#mfNs7b?^!M(`jhNU}(!O7%BDUR<04T)qJrC({+~x!}jUfF+{Ir2zQ(z!s!N
zGIS7;rTE2|YL&aF#ZmHE7_MzgC)qt0m7Y&d2T<jiffO~2aG9W)1B6vz32w;(kOlu0
zvk7K|aa<gF(dl1-Xb`XmM+bH!_zCq88&C{`5)K}>0DV`*z{EJ`biXRxnOYntD0u=g
ziLIxUzQGbOe@Fwk;pL}iXBTAxbIk!bOt;)5i*~vRF$f22zmJT8^6%R@mC0znk$mq$
zvJF0`x4;nqr*A1}aF&60?jWPOx%1TZ521+zGH??^MN_gY#%6Zq|2aASi4>^|eGXN1
zo}u7Lw{-=gu^qr}k|ARNpPAL1=@8@{Km9o61`=5K?vSJ~VA;8VD<*rUK;5PRmJ&d`
zN;eiPV0Yj{@-cJ>!ns@kFV3czPM8L`;f|h505=@>9w;!uO?VX%+$0b(;Ay&!jr0h_
zvs?ZeAnXgtO^*E$0g{GMNpk?r46psm{(inS|GB$$nMCbaQ&zQhH|P0e&^UaDp7S5o
zcd8!3lo`w2s_!UMJNgweV|00M#&U86s(XM#BJs|=|6C*XcO2LhQ+oeUMN_KKK8Sxp
z7lQ<mYD=HHzDxhi@Zpvws9AnhfXhKpF0d&e{-V?WX`E5tTl)uSW!dG#z7x#4sQh(c
zJxBr9p=`7~AmYM%^SPgbT!cWK?34awm`cC2NIxen>q3V9|M;lK%9;S-6)ySDM&z9-
z>quiV?#QM{j#!7|#tzuT;gq&gY<QkH?<%tEFqo$6Nl5e}-}+{ZVw$h&^poquD!fFO
zK*j7=I^2e(?JdUh3mN@XXSBcQN*^x<H>VRb+@E<sG$Fl$ni;w*+F$Z@lMX?fAJ@tD
zpqkB17LBJ8INBACGYnl|X*;jW>@qGCQChLLxqJVOFU>++wPpXZYh3kxpmk2e($VIN
z)+1ys$H^o`Sf13Lm*f>7X^}AZVAe|6+7mG0)ZF`=W>eVx{_-Q<b>(fNTtCO+y-iEb
zWtFI{u8H17Ka1Gv>G|}-uy0F_QW4pmt12y=K@-xN0k_{@dPIz+$OJMxfRKLKfxS|&
zb|4e?rg)kGNnc5SK#fEawP&4{AC>)87QaHAUv<k{tl{blGSUsrs6A01nR2~oZ>w`k
zB~urQR}1)E#TrYk94dvQz!gT@zh+`(rW2`emcp%x*SEd;H20n%jOT%2nB3?4VZf}r
zkUGZ)Arncysu|Aeg}EC2Rw%v|H^r*tkZgyr%wZJNS$7iD%pK%T9(TcdpE&0E2?>*{
zEq|qaV|iNvSV{dL20zCUJ2+NeOhz^LypF4#oWJH$6IYR9t5P`XUf`=bIbXWF_%Ta|
z)uU)%%u79E_#EntPNT}W^U=NK{eatFpwXktgU?Bd0x4E)F$Way&y>QH2iq&th~Fur
zW7#dm{Y!;3VjXkC!!*`bRCtR@2QIY2m;EZ_iec%(Y@tc#kxCyp4q{Jf#P$18{>vjy
z<dp>!dHCgqcL(Mw*#{0Amf!aR2wpHXBU(}z!R=+hGuImZF2H>LCaq?e5$Cxd)+}Du
z=Xa^j93JFzk<w(0kxzRdp%KuWF&sdMxvBdZuTHSQA&P@a6QkiB72m-x?WhihMl`)(
z{y&`wd;zU><wJXH9VtLP%eU)cEj<eMQf=&a?Dn6>=QdAQDQ4eIYEI8{JJl@uHO$-G
z^34ExS#;H61Z?<0NpSXkS<U|CD%?Qy%3o{rIJ*W)A=C8#_#}ADH;%}_%VkrLAkdO$
zkRpH@Otv^xhlii1$)*`3`y_#5Ln0U_Tp4UDTmdN<pV~(5NghF!VYZXH0h}Bk#xbG~
zi@eUMPNXU+gDSHkfn0aYmM)C%0iyv~1l<YbCxZdieKM-#ARCFwXL?_P_dzL;gjJ4m
zD15#h3Y?B`!toH8b6^?uWCvzZU3ltVgLOP)&H9)L$gHyY$k`!OV3n(a`%LD25MXOL
zJPzUw-&;1^vrqJFdUabq847RzN0bl+OL~fUe_FsQ{3jU3ridFz=(-IwzDsMG_RH!O
z{>~6*Enm=O<tSH(H#m!`S$1NUdIvm(!EPYX+T8pFigEzuZj;Cc8?t3oH`;M;RhXz_
zJ|H8B66ApTy~~vj0A2qFNA1n!se-h}ZapT1wtHq%W|%)b_9O@?y>Z?d+O&}LngxL%
z)EEC3pw2XS%|lE9Ky<bYa9E+yfX0;|mS3W^>q;G<EA^nzys>?e`jm08WJjX;+VJ(>
zJ(F|9OT=_jaoS>E*A%0tNCZ^R@H@F=6uSe;ap+lyGH=7PZw<Y+-KQErt_pCph~#$g
zL%EEu*JUH3;JBUO3JRlAZJwb|spx!J)`Re;sO#}e6@nrX4^)3FW+4*&P}x@F+KF{k
zXkv$Kyc@(^eZ!Mb0>s%@=ta;ugC~%s68G&Ke|4uv&LsG|un4ys%h&iF>p1X|XbEVR
zieUTq5B3EA^4U@Gq?h)jm`Su`f3Gt4HCSdrir%vZTs>vTmjfuI*ok<<O*)++*+w(x
zY_d@YE-3BjQ)@9ZwnCr6lwbRvSG!wMK5nn}ixlhCGbwQ7^HOEpz0=z!fbGAX^E#C8
z-j`OXiNy)nmWQab%9mI@cY6azRi*~Di9maTeL{F4i?A+cU*LQ;@y&c-$FWjU(8i=m
zoWy=a^6Rp+N8)V8v`Ef->35sMxkyPgn~3+H3W&OCm$DpPqc_BXgZ&XjLrVhpj=1{I
zVBf@cdD77gSHId&NLF0`mAJtqyhQAP(#8p|)&r+S>BAEAb{JWB`xrpd2*)F-d#Y5*
zoCmTb@YTow*{~@eyQ9-Dl&Qd((i4*nm!e<ADg`x01a4dj+M95~ax9rA3yvC5EPa;z
zO@O3J1NWD$m9lU=cSqnPFvSyggq{wbrtQcUjQbQ%Jh~w6>Uy&ucA)Eoitq<ItAQEX
z(|}P`vgeGX%Y>gNUsEv>ntjDyTtY(?q;yZ8NO|_`T4VB?Y7@^<9@EJ|oMFdt;N|?O
zK4XF6n*0LbWD-rQp24_9Oc-^;L4e(01P6<fVJ5753*-PH$&%t=MI<iA{@G@G=FzHg
zk$u79puq1wk)jxuvweU-Y~KI8LmjsvP$2X|55ovyWYVG;OAKm#>V*pgjk5|*Fq+uT
zNwZDq&A`pnw7@*3j-hIs&kGx3fF;AjK9EtL>ZSkmnHcJG{=R$#=g;nUpIrPW4fq`+
KSov*-Xa5ZgaI8Q8

diff --git a/reference/Rplot004.png b/reference/Rplot004.png
index 4e8840a7f02d52149583ef1a58282ccfef71614c..1414bc34af8d5735726e56e93476770061491243 100644
GIT binary patch
literal 13938
zcmdUWcUV)~zU@Nnh-?cILBK7c2+~AArRl~(=pcxOCPraHDAH>HMPW;oAXNdC0Mder
zp%YL9Hd3OYL~2lk7+Syt0)&t^ai4q6x%ZuW?mqXAd*9>xAYW#(7Atej-yGvN#>jnh
z(~E*TMR!6FB#1CLX9+=kV;jHQw}KH&FEJH7Y`t!D@f>&rKP&om5#V9RErYAR5G1g7
z<Cl*-621mOhatqdvsOWmXGbC)+gW3H3+x)Tx=eVT*l%~w?7eNifPR>}<F^w#I*$nI
z1<aMY*SZ=#b?x&cD7xu$2w@%_mla*h!a4d6%PmSDTsfMDSQ<?@^BY|Brw8XAMm{^D
zem8Q*-L>wyna*J*7Zu?2sr$w+pE4_MIFi~>l69e^8g|&+z(6pmLCyE#rXN@O-~4mS
zUDeBvKRY{noWtR;4K0r(!*bhi?9}%tvU0nxIw^ywigpUhgKLFdy?C(=QDZmvGpcj&
z@b+44`;GdVnqY5ObXCL0K?s7C)oa$?HkRoTiFV3UokZt%Tq^4ILv<G2KX?5V4l_GD
z>yl=hMxu$pP)e`+Jxyd%?iUmkp!eQ?_gxby0zr9K!!}o0%W<U-#C63!`}Mp`%F)*Z
z!pKoq&tnHdotBTIXHTO#_w^6@D=I3cJd+F2NNL~oP;87t<*hFhiA3gw7tRoj`F&+A
zNx5<DdlY^ehQ4q-(y<xIc~AEsF-r;k4{iI0hU)Ce`w@nPJ(@u|Rd3l`mv~jNsKZz6
zYP;-|0`Jg*bMYEWcWF7End=`gg-K&`@kouyfkLhIuWb{9GI}fD?t87Y7q~9s+wa|;
z9AB+;SP0cqplB>UB^18aW_Pr2yujaMHpG4F<xoSg8#>Cq*$u0r<=@|UVT3n5EaGsQ
z^GtkV(A05pq5`$DCZ@|_JHHqoVQ?9kLL$bC5T1~bV2{ng>m%eWDj<zkZE1Q4;t^bt
zrR`Ow>dc<Msn6}9vszwWaSv8XN2i`}Bol}Xv+d3EAIx)&lxl7~!Woq$G@w78Pwxm}
z$ImMzT;?w;E4xX%VMFs$O75gh**_2%cN``XzH4`KV{t;gHE`Lz${xHWE!~AobO&K}
z>M;j{5b68N@XS?7uAXK(dZ_PIU^y=Bbo$qKMO24{^?h@L)r0=xa$e^owyYBMu9b1k
zBO)R+vQ2Yk5jr|LL-5%p3@;MrdiE#xqgBS(+S*!Cc$Xc)t<RLi)PSKRlKo6wmp4JT
zjvY*v8dKRN)}bhL=UNdizb{SEw(^)Ped*1TIMzA-oIM1^Uq*ci{t1FEh;4#F(6;T@
zAn4HHNIvLRB(xQ3;`@Jf@C#w^*6~c^*RNl%6%v+?BY3dr&t2GuhWTkQlqc2?4U5(c
z@bi28uwz2vcx$QPohJ&J#;uPYJrap=3bHM8<A<6ES>k+EuV2?wkeselzLSSs;@b->
zi_|RtV_8iySGKff2$T_QQ`&DlD=MOAojdZf{<1$Gq#~Mu^f;Mqs(I1EFG+RM4n3=w
zL-RP^I+OV9S1(v}QYC?qJr_I*#<{H-l2_4`;2ic#xmf4Lr6o_fsxC$tO{)j>@>8RY
z7^gZ{Ph+u+jq#oPjnON2Lq|E}OLH#L9zTm?P%*6!+aykwjH=f>@W`xZ(<meJ**+eH
z_!?9|M|pSvGTX@KI@Ok1>49ENl2D`sv_`Dk9)B51`x-*|`W9b7WqxHcxw)xmEvC^3
zv7IJ5WuGEIk{*&A<>CYN9LsW5CzX|JzG8X!izY$VU8ZNZoqgd*wnKc!G>#y}Y!G9i
zIWA>{f~u;(I^0q0L(@X9d2O$I3=Ro~(%5?TMYZ3f9NKKcvu`DRt)?@dG(vx!K{?#W
zGxR;ao-Z;g>uS9DmiACp30XUSh~txj>zT4m78_q`SnDuke)teEpN(xj2PK8l?{!)1
zAF-}{X<q#cIb-|Sf>u@ekh(%hHL~%Sr}I8KQ*Y3H$0B3=0s<0A&J_`2Np0L;p8k~X
z*MKv@9tg>)3V7~#I-7X%K%63J!lw*7X;j<K=I(HUNr+DM3=W2zA!oUv=8%3C;idJ&
z&fhPjJA}9noEqp`dBiJ;mOXVL^-86e<3w;qsDHz>cfL2ZV@OC%DEE1w4&FG-X_~ZK
zO=u;AGXDN+?)oj}5O1AYJnHf`AuHd?#f26`Wp7*MaB}ZI`zC3Fw_Ewe%#5UgsKZe8
z4!a_M+H4CiDk&*BOYXETxjYMYnJCrCJqX&vXk`d$!-5s)ay(NPk<gqDCf$lmCg1Ex
zQ|v(0VqRcka0dy+0#M|~YwnK=w?Nk({`@~slwa@yXJ%(S9zQ_8XL|+OU)0%O|EU9y
zh9W6ZkZv^h&D$11Y(X79&(xt;lQ><w6*_tS@twbJ6DPL_#_vfo)ms$V=Tq}|`t+0&
zWw`)Dj>309yW^m(t-nQ7FBhwo&YZ_jKi`J(FK0>qc;(Uu2s(KN;)li{zFklx|7H~k
z+Wk}0zaLb`NWNfjjHJ1ls*~LV6)q9a>*}-&^DT|yRW%W{>bsi7v`(KkeLvwNbP(0Q
z_3VdKW0~=;uCBOdmHM(Y0v|MH*_9YMG&Dq&KbocH((T<pD68Qy=yzE@HOn*plzOs(
zaoX$hh6ZkDm~LYe%=alF01dX66YA>rDF*N~O0g2yA)~<kqA^$aUtT#z85!{a03506
zoJ$L?cqWHT2B7ZY;Sp$<g)Xyqi4T5@ti$K$-?ZF+p5%Ny^R~~>@N3sg&FfrFNq8;k
zcAsO;AZx9E54F&u9aa&}UF~_V&ZRae8;^<$PuV>X6Kp+kIV<L^4e#mEeyR;EcKF43
zt6Av@q1@pH%y35a?tI+%^@VYTt|;yoYRHAkZs8j5`FC_#aEzrgarp}~?tr3vXk*-9
z(N(DYYK61e>FgXjCmilN`}mY^8h1WMFKo!XjuzaHM2CciRvBd-LD2nHx00Bbmx;W1
zRcF*so8yeCg6GHH9K_B6$j19lnjTW%b59US_cN=hJaxZdoFYDG3$E*A_q%X?;YlZ+
zE$Jk^+ELp9jD6DMvW%>qBnsY%ng$b9H0DqwPZ%!-yXNCj`PBPP`^{<F2U5zpn2%Hh
z(z1-&TXd;Bjny+~bJw!qve*(PB1d&H`|M9)18nYVTs19N??u0Z<mNYR7;2-_d@!|5
z`e?SP<Ds~g9B{MCuo5b*b_#SRsPvEq6a(q^apIN3fYwvghbG(OLWv3#6|af!(pX&^
zT8Q1sM}Bciwhi9NhBjPouzDtY+WW02hI_Y8qQ25@Xf0KNs27dj!o8m$P+nJKH-zu5
z36&;n0C?#FUiULTp~RkY`@7rHp<5b{FrCP{-`U(!oY?rna&%5kjt4e?LyR~>etmd*
zrGcf5jZG9Tv*dEwAU$|=E2>ip+kGl)ehW0#^~AaG2?cK-YEHiS&uTuB&G*mC;UCt>
z|L)+z4=l{}C>uG!0&9!5#A2<%Qw<eWTZiHFewAHbGvB_QJeuC2b0hw$*ygh~$1~$K
zH8quYH_ulh`?f-nXmx?H!`mg&d*u*B29F9RH5cG9y*1;~zWeXKuCK2rRaI5xW|C+w
zVjC1UTqV<3CMzrJfb`z`6MyWKPn`L*aTOI6Mdjs;QwWX!$aL|9fNa&t9q8HGw6rvY
z#eSVf?Kif*_dt)-`d<PtOtlhY*2qTOdLPf&D%GHnmm(5Z=GeH-oX85{EIsBJ@NS3L
ze0}Hb;C>-L_~cLFv(E}V%qVqm+1)u|gDcaNh}s$LwP~WbTA;AcqEh>Prl{<4u3h8$
zS09fhqmdn#e&2X+4zH_&7sQRxTN#!5wrU2bBdM?caQ%fY{*#Zol-%9j*P`K9(On;W
zelThl;0fs`&SS}RmS7I8Y#zfqi0W)Ty!}ABr^11_n+d8(HewY|dDooo2BKK6`Y&gt
zL|L35j80TzD=N#$+V3hbwEj8?o9q1CQ28!>rC5A105n$ndM#P|3R>zC{xhuiQ{Xq7
zi#{8(%9*kdawzHNb1x;>l-bpM4?rCMdv-i)-sX22<9+OaZBEAoQo1YMuZ+Rj_f|#w
zL~kL1;Gcw3wh{BAJd0CGuTM&3b;lcO#DW%P;8bRnPjCgU`!txkvtqNwCxq%w(;Vbn
z9RO)L@^YGDW|I}OqF}R@jO&@U!|pQ^Wa)%t3^lt*OHYBPvf7mk#K7SorW?ioNqrV^
zXD!&FjS*DXYC~b6%Ol(fks<lugyQx)irC)1zP`h*lf~900e}v?fiZu>`5HEhK#?ef
zNm68JNJyo@pk?i`?RWCAX=zHfmF`zf$+J<jTJWytHvtQ-Zsq(B!0W$Au79fos59lt
zzI)$x|M_uyiiMDtZDL0qo-cJz6V&=p&%JT(7((#}nC_>D5b3qMteTGg`tSJr?JV7G
zGn{p8gk!2-7S7cPM*Nc$SrH8=a(>p9`8!(#WDIL{VxKW7rB^F#v47*oJ`oYTHUO!l
zP8zc!K~)5a*2^%K*=J&661UNIBKx*LO~0B~K%VaI+O}j`^jjP3^_QPY<zg@2IG*{7
zt?f`Yb`puE97N^3=*Od7T{HKe|5%Y}?EGX{ql_Sv(tg59OlzlSLg>J&M<-=Q{3-Sc
z6KN4=2d+FFZ8>=ze#upWRYnSpeFm0Rbn1e9SF@t1O6BO5Q(q7-4Vm+d_x*K;TtpM@
z+pIOpEu`eG!Kou7IvVSU3&~kqUJx_@=(n)Bv;<W%mx=*4sJZ_d4_6u(7>38C0^<QY
zkD0Q@MXiO*2GscB)8DTrfWhD*yP=z0ju>Nh$d-Y9oH5lx0;^p)*W2{^calU&Ai{Je
zbm(fM&dv7^t!gS=IRU0Ycohwa42R>yiG7z^tJbV*D!oH<yxtGKOjfrsJGq{CG)2Y=
zqdZ?9%$!7o)bEyldai5J$=GLwU=lgbq#PX-bF!;FIy(AZYep#CUfDGTcMt3m;#0Y%
zh02L7*E@V`>`HJeSo|U;;ulzSO!TUqPrG#EhduQXUVjv7=!Nj|3zEw6yIxmTre&uD
zE2JwYvuZY)(DJ;saj-ejQa3tNwgOhyoCZD;i!~ld7!8{yObkwz+b#U1kL_pAa=yxz
zyEOvLtWWJ=yT#WFEjR8ahIO@;3|+3n^H226SbqqlV%Txm^-yrloKiwAz;5akojxGr
zTE*aOgPRE4xfTca_xD#f$f|McE6xUeluE1i5&C2D25erj?6CoD$*nk?ZM34TysIny
z6(GtJ@DbflM168RvVRMJk9wj1w0~XJzIKS|>9!cCd2U73JNY)>_$=98s8)%;Y0u$E
z?@rFgUV2-{H+PDEZ&Y$+HJ-02`Sbo0|A2)409dO~VLxN?A%tw&vFS4VQ=o$u>`RPn
zJXT~+K8x74wGn7FdsAMI`tMOUXL5@JHm?m~6I1s0z1j{nJ-U3>5}m5+jX=Zg9XLLT
zAv2%3i8mTYAGlp?;>oxo6$QZAb_jaic{z<l5g=Vhva(f})la*^L9dBpS$X8)IB<WX
zK?Qo^n<eGqpcAJK)77Fd$|<Z2T>3UnXw-Ch3d<G2fvX$UI+FDSJsBlY7^?zC_0FMV
znoCV%6tl%Ci@EvmX0x-(R;og|>8wKQCH8Mt0%Po=pq;h)mb5XT6y+Nx9a6rmDwmYb
zipK>St*Rl!tag?16kTIuf7Y-e?~sok^b*A9K4b|aQs6hYRk3+ntJsk^q4ap`!K(bX
z8Zk*_Z*s+?yV6(@R@z)UJoQ7kNjgge+nwq+I0mChI!7cK5TI_uENMDhI=kqL6h8#X
zujJrdtixtMaIpo3uc93FyVLv#I34V&^oTsY9=jM}P3AcvcskV$@wnjTR?#V2*GJ85
ziHOyDoQSoyTZ1wA>v67O7nUV0?D#<Y$rt`R<d7H!V^7h6CVQ->m1>`!#_|^EjPyNh
zu17n2A3XC7HR1?eOkSc!qZk&;JNZdt?F>Ulo_L_$z_1ARyL?X-8GH_%(0NX~e9mXg
ztrs3ajh1>TudlT940|IO>8$bQnIC75kfjS*X&>WB2@Cb{K|wk@<%wzEB4bJA#3x^v
z`9f2DG!)JH3fl=0p;PT?NLCbHwH}<De<_*nR~vh=!twF~RAHBpUx`@F!WBw$k>nJt
zL>X}?#%9*T;A+F_-B+5+S`ehaGeli`8{FQ4T>0`VO>A3Z^sw5p`mk_wxZYv9RFq?W
zbdrCy$8O2GGUHqyuA$`qQrOyQJ3+C<(^guWh!!muH#f>2eaN~`sqls%a|eRdSRGsk
zPS2Ltm8>UB3iCncR&#Rf3=74`{4X^O4}#KWDDoxF4x*OWD7W~RuhUY`DwVmO2WyjW
zVpDb5TM`6ayZcaJEUcXrQBEPwPf5NLcnLvK*g$R@VkM|Kp)d6EwV4zlJIu(dJ;&%K
zd4s-95&1U!6a(ZDpeL!w#kM7;&&*eC7e7^^j@>@Cw;{?yP+nKaT{`>umx($EY7(<L
z8mYClG2&`VmE=|7a^KAI50Vg6zdKdwovPo#@_W*H`-tFj9=O@Otvye+ownExLDFBa
z>-y#4n?4!~>$!f@SBeuw^f}!1$H$7~5*^FKr_R+DfRB2(EB&=;i<yMz>cgi+A>xuj
zdV|&iV@r7>KY%V#Ow*G+R=%xSMcZKm>Gq;JO|YJV&GW5^iHRvbHN*O?8HBSx`AMg=
z2l@IkzW`RNHTaSb@(R&QVOb!QjY4kBb5!#OkA5qSl{~k`!FKoZ)*iPuzv^H2heany
zf7Tj-`MMoR&N$}k7#hmSTnP)mtvdM&dbS@x;;(LQwKB;D$MmwY`Jh8;Iq9rAY=F_K
z3qqt?(dDbP)}}cu%K=ekxSD~JG+a%W8mU&D^ukbiVyI3%ARnCgGko{`R&K5T^yuEC
zwz}d3&a|Z7tyYB4Fa~#%Safx~MZ^7*`I5;zRr>{cG->PZKEPPB5;O^9?PEiA%*QSQ
zsPU8&g)O2~YgY-~I@&#Y=(Cp#$oFbuZI0iI1jXKmpA2Dl47DaCTz#Nq^7`0XZ?s@V
z@nQ#!>DVyysw1E`uYgkI*h1n@w9=O5`d3ZFm%8z-1!BYXTckd3vs!B!m)bc-KvN_h
z`h~f;xEy=bweBIGdb$~jjvmw@RrDi!{)xVP<(P9RVZ1m&ynR<=_@ZhV`EgL|q4pS$
zL;K=Yg}uZ^RauWM)N}TiEbCqOAgDRC?J|=IhqHy-PLndCr7~l{;l+#IV?M%qTWzpJ
zS=Z!sn#;cWBI~-S?x{X4Wv_WQ1>Ey<L<T!FhXxo6_CHac<aNn4e<)8xpY4>v!Bs47
z?uYX9aRM7SJ6*Qe_4}vi9|i{p?eQL??<b7liqE~yd(On|Y{Z`wq9S$mFVHr$;T(ls
z+77M~0A*jEA;+&?{@OauA46o`>%RxY;zw0JD~<-D`##s>y%^b=_Q?*jwTXFt<+#@4
z9gXIUU)=HsrM`$smnE}8<#qR-`qE*(N{qP8;P4X}jN}tPZ@-hvX0hB;UJtRk{Mdpm
zXJ4HECjxR&z~-=YTnxP7QVT7rN`fBUtP*B*Q=(z>|D{*8{+{OtHGQ(4-ClhbP^<N)
zv0ez#eT5zn^qc_h^Lb%v2<vBIYSiLHmd$3U31&XKpT#g(-6!n0Y29C#e_6=Qen04t
zpZ?UL<Fa#nEzh0`tMG+S2djZiyu+&g0P8YB7P0EqrLYOAcP&M}9BwsHIz6~3g__+V
zb@js|fGN60WM%6xp?+<Ikm1g)L)9`Tpm^^b3h%O5OaGzS)z%O+JpaNAoMwU>pYiXT
zAankUzKY*U6TjR!1VLlgeVeL{TH?I5^S%(C=v`*U0vzXe3s3}n+I%4S@ttse3Q)Sn
z<c#}D%tFJ>$Tz_Ht<SO-5QQQ&zimbA5GK{Hr;Q^o*by#$DDi*z<IRGrfe4;FeFuUO
zVAt_m3E%>+a5Ss6D{^l|AagTGiv_hEA=cW`7-R4etDXl*9|Lq>QFIMi{DuAvWe840
zGYmnJx$?RPmAt)oLuWAJ<_iWvcW|gl-!COwZiU(xg9|4F7_9!%&WM;Qet<06-!v}W
z;Mh`ictnPNZA5+(bZysj)}eVtd5I~buuZ^Tlfskt%zKqA7tjpIF4H!<Aqds{+4QW)
z)Ya`^@?~T9){Va(@#z&)S!&;NjAk-%OZn}fVteuO`--Qz`KWoHYfxmK?{(+qa%p=;
zZK7tLA)huLZw)~ztyVj)**XC_1mo+&-`xU1ZvQO<VK>{=KngfV3S|Vzso7bNbexqu
z;T_C31!oJSyq9@-<2XAd_5)RCkDoT%x8FEEIy_u|a#!<EVnC;hjERCVeTcjK+w40z
z=hAl2C_(e9eJ3Kz>%YJE#wKbO!1e;ytyXoi_uLWHn#M-n_=ar;^!<S!`o5&`AEw!P
zV5zN$9Sm%rm{pz5thjhX_Cg~chN}g1P^jLtAWh6H-!j5)eT7CP0%~pyixvP)kaFCg
z(fk`0rzwpl<mSFsZZN*lY2|i0@<K?&g}e;h+_=k(JZ0(3(wQ%#`k^xYU=t{475yGD
zdfeZurZRO~pr($-ty{)n?<TJ%?0Xd_W2$S8pEcq*K4#hJ+A=E~^4{d%Ptz|Ow_SZt
zz=V*PDHR&UbPV;^g}QyRj0l_YySLrA+9Y(tSFBNGZ=Otju`@4TTwGih=$Tz3BO}QS
z4i=7{RnP>70x$2MC=bj!DtAsT-9BKT(+$O*3;x`Iy`1oEcY@^>*C$V(KAm~&K3v5k
zNsripjv?sf0}eu8zq#JW!)zC8<Op48qpLTYSPc;s71h0hpIupNI*nl9eG#VGpBi};
z0?5(t13n)78iPtjHQmyu7G`Hg^-cwT!Hv3cb0XGP^cSCRE4QwIx@k<x6*RA%%{8!$
zVsLU*T8DrBtB*Hp&ijW-Mc732$B_|n|G+>-xyI6(*XT!CFJtYdRCw1T&GMPYowhaF
zwhW}*ecbae+F|Hmd?hX9LQ*}U#*nEJF%kO<Fa~Zm4bC{NE4OyivKh+zSLM6-hf4-Z
zo<tp9wu4140GlmAwdAeJTFjr(1CI(iLQtZ#f3U9H_B)B#+;l@Ea**gg@ai#cXxmVr
zL6${QEd<@V_y3g;c&7fcm}z0pr82@0e9>sNP-PeI?4P7jCDs5asxMba0Sz$VuG6QJ
zF5QpE;o`ZDyplT*bYSa77QisSpzyDX;0*+4@DJ@lAbvx8r~-<?xl5ON)Is$Imra44
z@5J+gJ@XId<~*l4>rd^JDCq`p=ZhAvkEFEk2LL?x@B{@}*9~LdB?Q<T8Fk>~VspA~
z9Os{?^arh~No?CVqeNpeaQECPbaT_~J=FA%zpJ&{HimP*_;~Pw$MOZjv!=^IS8uH1
z?2{i{?N9Ai%Ta#VfDrdB2wLb-=xTOZS`T@@F6RiufRlMn!!u@=Gh*gOhQxNh+K>lp
z?oalc;T`pgkd5vdVh-Ld!pfA5vMk^Oa?KWO_+h#pqk%m-LiZcoMF{?94%~cJ#FHRx
z-BF}g)nIj7%edMJjX5uAbc3O<k6r2K6A8(XgiHPX)Jdmj3k4f;piIciqu|+N)h^Do
z{R1h*m&@Sko0RMKLPWkA#4R{qMYq{ZYlg2abENk)`8yW}2BT{0>KaTQX<$CVm?#pn
z5{WJsx-&LTWKdO>>lx!4p5TVyU^d}Xa~UB7L*Y|dD=NE$8b(!V5zNGnGMBl7bj-p0
ztrFj=J?(0u|4nBAhFTIBnydE_WD*H$3ddK^Gzj>-F>s`Q@*ep&jX@#Qq5<vm<_hNe
z_}ghuC5i^n^Bb_pjeVr`+f;&$W7URFUhYid;}Cfgz>CxH8m*_oeCfby(Omo!Jg58P
zUEsxeZB^IWA|Cy@87ms2{D)Vb53D%bv=l$iHO_8?nw#}Th=Py7|5vx`UljBH*F1IL
zlmq8X#301n5?H;CcMg9``;(aJW-SIm_`aF#0AMdRtGFA(_ohgj)J+wam;&dmCqcDv
zx6%-0bTr&qH`no6e9Z@Bo%$c5JRSkx+kyTuWw(pk4igy>r;`naPpGJT5Iz5KRArZ>
z2O6z4!mO|9ALJyc>b>g6Gqo8gi~U^y@<+@)wWcZMdR?%dOCI&I726&)de2W}N)e^<
z%sXKmb{pxFC4P3D*l=l%F%;+nR>$XeSM;eDWwKdupfvrjQQ{T(V`M0GG9u3E@l+<K
zOIF(!KPwO#SU-F3ZPVQiS6upjnj^3OE<&q=fN^6l1>W@7UlM4d<fqXvVM9A%`pKp&
zm#`Fww6)DG{);ItbR0NjByAGM9VBOPJ#?E*RHin%OueC@VMy8}83!OIiWaO8MvZ8N
zRj6*i(~>V1y3it$tM~ctz5~``e!fd%K!iO=&pw!N1kJSApPHSbIG`T^r;q!C-5_0{
z#?d+}h9~iRIFjr|0pMRbSs|7uw_4)kp)BkZXn4A60}kIcJ@u;B{J56y<8cbDiEt|h
z!0G;ejyH34;a#m8H(nKV!a&3aHpsG_XP{C#r*kBb+F*u_S2aV_I*?@$0y-pHtzNx9
z474=bM!hnn?ZN(d7u2iZ;?>u`evHKBT8o9QYcfunIN0x=%dWsSu*gOo-R(fz>yY3(
z6!+b-aswb&MpqwCdzX_gaDem*%(K-g`y>Trk?+dlle{AvM#GxC-irpZc2h%^&NglD
zFYn^um?IKNjbAzIXHI8_+x}}d`G$*`_g=g0(B?Om2qUBPzmKu>{xE0xN4Nc_=JEfo
zG4>DtJ8;XYD=K`$fQIgXFof?NSIad1*Rk?%c`*HszX|hy$%Fl~;7aez_Udy^-$381
zp%D8_IMcY`Lw|ojAr2Ize`|(pDPbCkM9Q4EV1ea+P_F7}D5D|pItn#@zHjS{&TCHn
z#aG)d-V(W>EENn&wXxK0$b%C|<l3yfx)j`rfR)#fwbzD-;yn)XU#IM```UsRQot(d
z3eCywb@6C0^7-<x^_`bhR?MRSJ&`1knUVrUcaoMeO_6-wU;gyz=VU;vXUjKAPiNDz
za6eLwRq<cA)f6w_GB}XiiW7VdOTFJqiE8nc?)3FB3>&7Sq$6cvYUhO~KX2Zr$COS;
zfOLO85D_EasUIhzRa35_@ysPlBv--Jt)?==7=?SeaOUgl<&%!&Eq$wtY<9%Cy?k~q
z{({#~otLoq^w$XTFC=FFZbE(!Jr1~r-vP0ZcO~M`7;5fM(Vw3_)!i`l5Qf%bE}(|0
z?Q&{dzOt{e?&HGHX!H*|Y-KMZw*(Y!{UPC;qK&41UHBm82}t+M`{5(>(dfU)>(->h
z;sO$Ldbis2s_ZeoHI)E48L7RNfLVV#^_tTY5ghDBm_BXpVB)xCma`s7SkmWmxdUJ;
za`;!OOM)*3@U5_`KW#RWR#ddF{Cg7Gu|Yx;{=Xuje}qW<g~m1-M>e+sn8|tYo{t~B
zUokk1Aez_#KMJB?KsP(nFue(Sk~1aR^tZ0?Dw(*nw4}ydS=)r_yw^Wi23pLIy}f=W
zN0P5NkicX-*Sth}1BmCJ>-W}I7pGkeR(%NG;mOllb2<8)QC0F{(gju0xro8AFGBAL
zI#``s--T9%a*&KHyNp9|;%nT3eU%T<b#-1Ox|z@ovr>Rdo$iO&mTqg_X6fiUW>W_v
z<mCf29*jSxoD3hTUr-zZFy>0_7T8*v&<9{I9KD9iZOl_$@F9d-?B}k8QaPiJ{eWG{
zJCNR#63RCd|EprsyEWF-0pc^cMH<~hVzS?66ZT!GU)OxZhG#A2yvwL=)F~~IIi&3E
z`+=d}*y6t<?`@2XiNF2Z=W3qA)!BG7EDp?SYewPU*-~ysg*_r|*I!Q5*x{|oVF(Jy
zHU7M-SzjL$M%9D6Vsy}3p(h8XRuA3!(`)y?8Oa5QMM~YU6Hz&k54wpQTDI8vk4f4j
zEzRwB)bZ#LDX@_`9z^LXw!=`P2RFaz!J~^~-f)SkyPDhaXz%;MC$*_;v-{6}?axw2
z&-vR6Tu85;-ekwb@GMZBF;Ry<o!ARVKE>zh>E5)CiE#IL)qB6ZfuW2Eix({AQ$wl%
z2a|5FC(D9Pkt}wwuC8uq2v~fbD!cZ9{E$HOlFR1lGI~9r7)AYq9{P>Io*dsujJy~O
zk>+sIkiFI&T!~>?uI%3XDIlSg%iu^pd_9QNnp;e~Ivp(M0;jdIxwoC-!VgA&E=@jE
zXfBr#q`e-^Q=amdyuEs`XQRJ3ik*AWPjn>zw)vKq7b5^MBt!|ANVVw>(wR<pSW-@0
zRa^;Mzx49TOtCLXCy-iT@(8J=rS<4|W~W6G_iKt-VhT$Dp&^kZvh&{C-}>#6f|LF9
zVbQq}ItmZx0u^@_FNTYuE`tl#OJ$ux#k-VYZgx_9FFM8rKi60{=r#dLIQA<i97H6G
zl0^#-I9)B|ZR!1(vHKc=(sKQ!^8TIo8qI(dGdVfAPud@Wgwy#@ogV#zsjV5dcMdOu
z(47kkz$OKrUq;}0105!U6{ENI8G$|RLdxN;fOei|bnE~pT`qQ1c=MaA8^;fNxw@{@
z6P8XRhDr(Pg5rEa$~V4A_9N?BV9d7uL25E<26PMMpI$iWhr<Ij(mMztIqds=B{qz!
z4Iu<L#%1{vR`-}|GGXZ;%D4`<56-=hySEUuHWjAJtIFpz0<iKjtbNbsvJF;W!NuFP
zK_sPdiox(oX4T`u5gkhmDvy%S6b3gWq%)47A<u2F<0k1WePYSQ_8YDWqB<qnY__uK
zAmiK-Z+llBxL-9O^?260S{$GZ2qVwTZKMZ{3w!8b_}!bRZMlkpwma@zOJHycd#_O&
z(Pi9(?(XgacMS!)dR0_Q|KL3$qY+NuB>tI7g)syB2ah_zbjLtr*_u&G2q1k}#o|*~
zPqy+#onY%XYcOi9YaJh!onWTo>+IiJuIIk&&(V47yAM&WEyvr35J*s!eBd`c#yj7_
zxwkQ!o}TN0h={}Vv#3rlTeRaq47e&!^lTWF&BHuzJ$k7isM!nkNYg9lY4aLSuuttZ
zHKv3vw<Nhc2rqCeA1wG3zmHRWC2SZf4J3dZ9pv`M6Dpm$AD?2p==V%x^@B9-<3r~^
zx^BpORBFV{{pYJlnQDbC%=$La-D%5ize5Amcww^Z5ksSO_;HsrvmYsi0J#GjB$~0K
z`NgSS%~zv_ltbm+o|nDeim1|1S8qV$mIj#GYTEA6Ns0*H$<9;FFs3(xvP(%U*8o16
zN}^G9!*~?~Ge^*~f?!g*KP)BQ$N>vJQdI^WAAH5K0w=Z+HcIQZX_#z*`NsW_(|OgF
zT#NnLZe{ja2JnK-XK#hl!-W{R9TVNU!?V9qi5MO@G4BfYnVg$rg>#o$OkG*88x_Qv
zTwV>#IPT&)9G`SFoZ8-eYifFhV~aM~f4;m1laBX_4=!dgFrXqUtv*%Rv?{aNztfm5
z6gN-9>8=SM+ZgK7d#(-$GnbpIo|H92UMsU#36q4k7^05_ij^$!G_6SUTqT<xu}uD6
zQik9dXx+1wi@MlcKJ;ueR#yoDVgii0xkL~oAb|=N0`0vNs?)43Nm4T91{gdO7#Mh?
zY*u+k&!tiV3FrZ-iB9ngaKUf>IXP;r?%%+na2;vaw_+odpKI(qqi|*c0Rb9_<3t8Y
zY;8q-1f0)f|9SqXMI$l>Fv};$IeM;S-0#f#&$R5MUvr+x)f$tjGt|b$vt*m%E}OE+
z^W=+fRor(q&p$R?jB#3yqy?9N2|5K}x%~w<+$4fNUzH~)rol1-8))r&B!}<@Q^FyF
z=xjs(pj_-T0i$$Vv_Nadf^=NsH-=<f%W8tE*QJG)Y!N}nh-GSBQBnKDp{nEKHnlo^
zZl2LgY~dJAs3=MsWgH5Nc7R38>}vKBq{bXqzdTsj%;hy)Nae`a?}#4&-wy}_fs6L2
zz<O^~Cx2_kzTH)(y19)*NDd7+K?hM-T5iO8L1ks-DeMw^X({{zj0rG6ArO+y4f|e|
zpxQXi2?uUaZhu%|aW!YI&hbQRn9QRt&v{Hl5^f;Vc(Un*rwQmQ2d*4jYVjU#<rcyZ
zqDrm8c^wJ9aOUf4Z|>Z`_seH+*CI}6YVyp<XMnziQJO?AU%l<K2=tD#=vgJSM=Olk
z)4a&m_A(-<f;b{itu<`nj(}2-xlf>NyK@E4ExxAGZ{RlnHeeJ~GdNl}DIO;`bgqUZ
ziaM}LY_xB=R48x1F;A8z&25sp8(#<syRk&9e;Sh1OT=)99%UW?+#<n>2XZ;%5K*XE
z+*wIsoyT`F+TOp<y0D;!u3$$|JpjH>lAU8(NM+RSj+a>DCFp3|K)sm^PK7kacevVH
zYDrt;2V#2}7?W2|mtHc>!;R(*uN(9M!`DK~$TAl<p7_Mej{Iwl-L*ViXrj+Z25#Gh
z7Y8796=%mS3992#@(!E7WJ%3X&6|<XnDAzm#GCu1C!{g9*m4`aFq{P$gRPaGP4$b3
zy_n$mu($Y&?G4>LO3r(ahp$b^h1)1ArMOJ2L<-9YQL&YiiucWoO+P9Afc0zU>`clD
z)0S=98_gGruSFm&d7BZu6DLP)wo$~xLxQi(PZvfJKpu10AKMLETQL+?E|C+CI;KG1
zFD!XCpd{$?Z(AEQh7HXoc9*H4ZmswT>sOy87lkaY3_kTQFbp}zWA+B-#R}~-y|lph
zhV^EB-?ky55`7IDuC@&w)`&|g{!X7*kk@_wn`D6y1gX1NX&>(@3A&q+&T@?M(7)KE
zuaw5p6>gqh$4)f!SNmlPJ%>Hi&pA}t9co>#F@GzexwYE3W!p~uNu$;AH{tm|4<0+J
zR$7pOBN>HQlslZCKDVc->CvXbC*GwYg}CzPu;PR$stzJ$>yVN1tcwvb_sRR*6rHea
zp11w%UOkJ2Bdg8Ii$@!l<jsF19xi?K7Ebbu(JdX<!4?Sir(jw0FJ?O>*1})KUK|vX
zC<uV^cJald`YuY3sJjoO!?|-#{YMRuQgjf5;A`BY{Cs(BR!Uw1qlbJ-)j&9=uwLUF
zOM>7!y+2YBSIj^vqPZVqN2X(U7cV2MNcC^B`2GR2Yx=gp<5N{f5=Xz)jBUJ*IB$9m
J|I4*I{|DUwO0oa|

literal 22686
zcmb@u1z1(@nm4=&QIrM&Nl8(VP>_%i2|*Cth;)Y_-Cd&6h@t{YNq0-vrUXSn8l*v_
zyGy=%dH!eS%sXf1%zW?brI(iod#}Bo=eh4+-7EOM(jCIHG-pvL6rsGFv<eD^HG%v&
zg9l&n?yY+Zf8iM^+>wUA;n%)YwJ-dIZzreeh(etsL;hfOkNO;;P#011(vqrfaZ96~
zUgQtQB-T0=BjsbG#uO^4hM0|>XmN*DsA<_&gyhIv%@uTdt}C;HrL&W<lAj~Kz@3wO
zz@gi}jTdsU>Mq(z#_5#0B(7vg8usm^tI>LqA0NN|)otSAyT(eKB=3>*IrUxV;r0gG
zyAG2&Go>H49q+Eso+;*PzsSs-97Oh($S){JE<DCBI4Fn$gR5BEG4FIclJ#SGIVb(y
zf>)*&BE%0kB45Aev;M)K))XA{?z-7jPC?z-g99siF%Jrfll@N5<ztV9y2BMIclXL}
z!<T3Iuv{f=PbSeg(d{$42UZ11-Ol&X=qJ7>hvU37;e!?SDMt2A>aO|2?+(k#%cr-P
zm^12E!Vlago}69_lsKBq9ZM19()xI&{`YplTcW3`9PDIkwYy{I<RdT2laY~=^LZa^
z=^Y!_x-4tyxJ^EfUlBC^M6fhilrqpk%blTLkebRmV%J0{<nU8YqjRXw@(ga>i&0^5
zI+x`i&l7)dWqh|NjbAw&^IVmTWL+AmypH|qd4K#OWxhAgV{>y%nf36?*jU=N*`)lW
z-OXz6LznvHZ{NPXWX0Fi)I=$5Yw0+C6VNENcsuTs=yPzH{oZ@r@?k<0wTKf(t{Nv1
zqxi`52FbRxBCA0}>(ki;Pa>rZa>~$C=cu@w-&}rRaP1v4%^m%D2eD(1cZ%#f_ATeB
z1#NT!)pAsl*G0-ce!M6yUZ-#<ezex)_Vd-9wcZEH&xNz=ET=z(S1gwe`~Md071(kU
zt=O9iU2i5=-m~^S-X5_3%oe>T-s*pGB3y6`Q{%pAw=~Fy^80Mk7<S?M8uCF?y7pew
z9`6hn*^E|=anPWnTcok^P-qJ8llr5Lb|!f;B6^XZhn2(2pH7ZCPYjxaNagO`Ye8;$
zPT#`e{-<zSKKBh1R#w)DgT;c@&#y0eOWdrjzB=d=A-Zv9%=g3_SqQjA*UdV%=<Ch9
znDs-i3kp(M_UEpL!fMTHR64NTy?giNn>WuCxGQlbj@G0C2k*R~3;y_#pG&hCmmwlU
zVP;{;<8i6h(MELrvu}^2OikI+l@nh?>-$^~9I?ZJbw}&zjm--$x!m;GZ`Wt$<0GAJ
zjcC1;=+!;xW#*!Z$N8Xe(e2kdQ6LVn=o+fHxR}>&;?~i6gzwfNcGr-A*n`Yn?T_Z9
zzd92mo}Z(FJ)WyuePiyBPTY$cR@QB;;dGJZ05`v&;Nh_sT(aBDTXkO8Sgh>q$(fmF
zoSmKb_NF8F9(|=wO-q}6XO=MUU<L05E6iPYyrVt-TUp|mf2C%#!$x=a)?t9due#CN
zF*qH*ygo;JeiDmIG}xGU*RkNHK;o37BrHr;>JcoU(_FWbynMs3ZGAYLDjIk}iNm4J
zwJ)3n1{0VkK8NA7f<%elJDSm7lzO#|*s(l67l(C9oY2{n)6T}bCfFVx?QgC(5la}X
zj@6o5Sv5BYlY2jXtfi%82m4}r)OB3O(vnlpW1g*^b*gsvyhZ&T26x;69Y?~tqYVY2
zc%^!Y?oQE7f;gp1bVR4itcLt&6MgHNYRfVbeQ4l)MBl%EUkJ-t|3tk0XohF~o8Y)X
z>kE41ozkN977nK=vvtHOU6z-Z-4?Pk3ay5&ef;>*V5Gu6J|QJF75Ck{cf9Wu_l`C@
z*Si&XoZVKhuU`85I>A<fWp3(9xnn=~or&(I3xVsXvwC#F{JYz=<JUVy|C}A)<3;^R
zCz0bio%nfM-$Pmk&n3Py{(i9N#ZA$9J3B61+GPYhHEY=KV`GsD6~-V&^Y-oA!CFtj
z7Yt${^~cM$dn?teRTQy$1+8}&y`ORBS72YgdUfwttSxf2N5`watNqTzA8k3FtPs1-
zdaRCCQ$58aT<8+ORr0p?I$CdC-)QH-K_R#6&6_s{YZDFhJMlNHX+A|TM#RO@#W{8e
zS4;-biY#4+-B!=TCr!%K>Q}v5r;T@U(MjZjAD4Wjj;7}Pp}VDJ4#BOm;boszLTcVy
z`2_{h+S=MPP^&5{D}^TxJ7f5y#;TkxGY)k<mrFMW^nFJk*Ccvv1RuqYAAQ>O`0?@a
z27G{@o}*)9+&C|-Z^T*^X_%lK6ciK!cjt3;8b-W#M>o##)Ld*Y=JFI}aG&||wz$FI
z<+4k)DBPHR*b2)V!Zqu{bVTEwaBr^Qywv56wvFAT`BF?*tXNF9CxRz3W>I?JV{;?c
zdq6QtO26m2^UQJ7Rc&^O!=)0e>Fwg-Wd|FZ{H1j_6U`{ojGoI8Gy-3Cf6xv<dGIc<
zw6HJ<mu0CQwHYsi3sv>mpNX!fi{)zHcrRf2GnBhZuA{B(Wdxlt*+$i=>XnSu;i1Lr
zzEF6twik<<excZh{l8FH%Q>(H3l^nbpm+5q9Z{w4$?xL!naF~gjl27Sj6N@k>4Yw3
zq^G;Mjh`INN?b$jxAW8!P<Q@5KAd@ia~kjH0=lAE@toWK#!Q{sFaJ~L)~d&kJ9bMx
zeUe4ps`oke(rt)jo&5RvHEc^cIXR@*7aBBR>%i7SHZb;>#L9w?*$>!0`PC~Ttd}lH
zMY8I+&%71#*vcFihwWVF>scKr#y}h<%R+#M6s4Orwq`SDXVmKt&a=w<D`hm%+SWYL
zt#*+t7{EaV5YqO~IL0Wl6HxP_B3buetP}a;v#Y+VYScEvd)iQbm5uEb>U(eR&tb}?
z_d8q1BAb(ejLFH#*dDbEk*rKiOjw7ztE;>(IapYlc5UO80%5!8d!Y<?sl9d^s%eIy
zyca^vLawl_ql1Wgd`NG%!)e<C2NT0*Y&X>$Of+2WL5OuLlJ#r+O)6rEBVM>}pRE+e
zQ=-vu_U;LeK4Vje`T!@DC@`f-{E|}KEgv7B=r8hrt2MrpZ1RnXCr4&pP)r7^oH<b!
z1q9C1gyX5@oL9=|*-hkXrxviFKuy2_Z-wOx*<Kt-DJ&#Okqtk)*P2pt{PTL%8q^i;
zsySw)%FCvZLNjFa-a>zuP&B)%pz!qDqjPTh<(xBTKOH_#tF5J{6|~tJ)+c$!oyY?3
zbV)g3tNLW2mS^DgHTQUT`cAI$K8xq0HoMlFW0w?_l!)9{?CQp$`VqYT{L?iadT$s~
z8HV|s1<UkL4hAZqIInFF=ua;e)D!LL=~k}1a#(MnI=!^9ydqG8{AY&5G5*Q%_zC@%
zPKjCPCnz!6Bfclc$Pe<`j@1wyE<rtr)^U*UJSW|Y!}r=xIit(`zLr*q=St=2VlI};
zm+=M1y{<EO%rOmG-9Y)Z7&VY9i(+X;*>BCEbM@;P;PYa#SZzv%L|8v}?9hsPRgBl(
zoan9P%jgOI`P0O_REwXVf1=?u<C24BO%aby1xa3B-b>R9o;ynoNm79#SJgQ($}6fI
zejCin-M!oRR$VU`Suwa(F4gqA<G#KT?YIDM%orr#kc)1#vDj7W*onj=-ORq{p5T5d
zMRm5|Sf?kWfPg@s?cv&F)B1cyqDv0j=;&a7o_1hJ$XPDkDvFceyY=?led?#_Dtd>U
zBT^stq))<)+a2zIZ7JloX3$m~2J0&_;jUJo7k+Tyfxt6NmRW==K&pGOH=GA;KZRWo
z<0eKcH=AJN`B@g!QnJ6s*Y{dKg_?kCZkT9z%I9<B*4)}U9YAY?QT9D}0A<{;DWJio
zoP~#nczu0cqsEO7s%$$^r<Y6F_*6?MQg{!;$L_%~{ZVRZ4-3Zv2LetimCt&pzEcht
zr&=y1h?K={rE-=T4w9*<DYdwlTgJ@7)%bX%^|drSJ^kwCOFw*acBgq_&CF}3s$Q6B
zmD|w6mOR*9jljaeyU52^)Wo>8A~d{vI6VIQ7p=ROh$M+!E4{0e8)a#^QBHpTr;$p>
zby%QV6fy+#A{0Dzd(8Qjzux=RawX+^vcj8A`k&**z*4LZ_YV&grl;fWjyMwc7wE4Z
z=34O6c)?0ktbd~Q#y=h`GA6;rV!87|G?a|gIq{-vzbZ5H*{9jrS47t^I82O-A<qt1
zs)@_TeQt7BOkm4QU)(mtW@lzrx%JgWlAM%O<~q9pGc)rkUM%>>Wk38F0Pa|d7-?zg
zvj%_rzS*46T`aH2kf5OChlRnf4!p2!tgW99FRO`!6_U!3YUT9{9;dzES{xw05qmX#
zQIMoxcv0tG@BLXQHh?>ucEl6?#26yRZ=;H2DP)3@se4QbWPguu2iJ1qWIcbsNats<
zs6&F=?;h4Y?}Syp$-qlW`U?BsxP!EGD(YWcB8vQ9{m33a^yg76?ZIW2rbi{u`QQ_W
zJgklKi&wf75*muu(IJRvo!%`eF245ly}&t6_53Ziid(~9A6@_T_1)9%ZWUAp*+}}m
zSP#zT4?C;l5y)12kgnJO*t_u2xA#gB?i-&k@jdQlMG$MncE7eEKTQ+EB~sFs7kUbq
zNLItqD(4E=hR0>J;j(Zx4Yn8hc&Q08^Ye)+2vIJpW8rBE(ahJclf%i@F0+zEqtUj{
zse6%D)2FVV1m6}&MBj)Mfs!FQrxWM|lPy&G()aEWD#Zys0XR3c-pWYq87D1Gar0yC
zaX|81VvnVzC0aw{44MLc|GwXsFLwc8IuAz0$A{O{h<;6!V03qPFC4OJ`}*~n+Av=;
zvG^V;M=cK<#Rb)ZoLzCwzGi!STgYW8X1omgT+Qy7r$(WHB*yqRVBZf}S)Xl(e|?L6
z6&cw*E#yy%i{*duR>8pTf#;o@Xo{`^{d${G%AixZj@$k2Iy!OPNz!pN3rAn|3=8y>
zF=isi$!Gmhno&45IDT7OPWnbyIXR^a4Viv*#D|WI=)e_xcl`>Olg|KyLSa5gJ~b%S
z@}$$((V=6N-x!XHiwir)U2$>lP!DeQV4)!n9Z{gIwwhYMW(#Q;N67biC!blBP@m(2
zq`W*rn{w^>`^+KE`5hty7Nt<c?go<CTV!rtcMMY>Bwu^UBvokGg!l93PlLt&ytdBH
zJ4QxEfz}y0nVGlHXwon3?L{V^$*jg|E)WGa4KTNT`EpxLjS_`1DvH|<blF)N+B+OS
zc@YqRmztW25FDUgbUNJXm}9e!xM0{fu+|tTMq*-r%If#y&H#=O5*a?ORr+NUO<7OR
zn?Ht!-x9GU_v*}|RJCXQFBWzfzfsCKS5d1@Zf9@LH)11r!)7E10nRM4VYg&u@es<Q
zqT-*EUv+k9Xov(isp$q!`EYnumB`Ouzl?yeY5*N^aCB_?LBFeivaJt28&A)3S%89)
z(&)>Z%Oto=bHAZ54whNd0w0t@hzc|*Sqlq`!6_Ez<Uy7;@0#gaK`l&|B8AM{w#UcP
z(#!OBo72+Mlhe}J((5mrPW~mL3|+Rx2yGg#5Q$qon(xFxnh_u(NKF8Hn!apP_`feG
z|N6B4ryBIvk9atX8L-VcRecDhZ^f1*`Osy4F=XK|pEZPeYI=Hd-R;fa?xg?4%&HCn
zn()7EJJG>aheTxzcXa3?Rx5{m<oEu5%AUn%c<?cHqqM`F^ZU2``tHv@>Bq(!JarGM
z&6)q}YV)72|JERRVb6Rsf_lEj36tB_AD7vBYHD79+VT7?r~2(EQ<UG3)u%XNM}Prm
zQFhg%gC8G1sE}fXGF4G{X<}o;LC2{}#%=SPU{cS#-O-*s_5V>v@K8%*wX_P++%k_I
zu><i!SQlVEyFfXp3HCqi5-$RCMz9({?*PmEO1y^;AId2zO2e^}MoUXdVqM|neDz-y
zhlK?TI#D+g6fcM$sp;tf)zl$y<hAlBJ!<vfbSaVG%0=Ra%cj6SNc$yn8Wpe9Dxyv*
zNn%vjA;V{<Ex3d)BreXNEWXc*GC15>hL2arZ8p){vRkL5tlXOYFb5U4kj%}+)eK$n
zRcvf1FzJIA!gdp=G51+|6b8P^XE%Ydqmn`=bKvD+G=AN~Wccd!-u~vCKd|^vd$uU<
z+3nzM5n{C)k}vLOK}~0Ho4^v?`YwgsNGK4GIupX7wEvu)HQrmBtn=o)a)sBVjpR*q
z^fUr8p^zc!kKZ`aRmyX5N@lDfAE0a|4J>x`_ou^Wihln-Br1yXZ|aqFR%J&|ceg>2
zhN>oXIDi@;X*Fjhbr9m=5a3A#E|Xq(_E1MBtkQ9I3Q)-{3yUk)u3dW>6B85}Nd}<Z
z#LVn)$F+JiGbcyN!QtAc7xbYmp;Rf^*>~USUWc`+X70x(qAK$<rqaeN<Twg^48S%#
zCsekmQ$z_(j?}psSMmQzNBoC9`uz$$W~keo|0S#ZJa3~c$+H+9V_qoe89kB|ecNJa
z3YorsVN_p#rCN?@d~2qG>Eb57MwF?WC_`G)8Co=jaa~vv{NrI%ymNkCaY=`9`BE|0
z>5;Kn^1{~X;Q8lqwRuSz+{V1cTusX^Ir&Q#`HraUJV!LeLv@=1je<=BG1{WxUzcF7
z8!2Ka-a=J<dUK@$XSHUNNQXPRdy<57TZG*pL<A8HZK~$kbG1s(o}=W#%tY%mY%!cA
zMeDcVDxzEFos6K(^2UBcp>p~{K*lkKl79A%taNX6jNj#K&=8!c!wgHc){l3`IVng<
z(Qdq04^-u02MW)|O_u{eAO!h9l>-#aH3RJQ%o4AC2gO8jdSLF2r>J!N0KO9i2M6B`
zl#%YuIXH5}P<RFqT<}-d_dfsm^XEdXJicSEi=<hwZWN_P?iM1<%)g(r0MPoc>RoaV
zpplBvmBPeJ%=mky1A0wg-(5#*X)VO|l;`FWlsx*@_~k99_kTbkQJFy5AF$qr!f@VE
zhz>SU6EIXb98ZEoe^c+^jtmZ-ktA6IA;JhYK8TfPfSb|K&=h)XTTm0=sj92v{ByYR
zr`DWzsMN_UC};(UTjYD<)7#ev+xyPakzryG3pY2B)^b)4a0_^y-v0h%pk&D$$sazT
zKpFv_D66N(fT&=AE`YR{JbHBSLTuD?wKfn$2YOVY+q#iroDkng%l$VO&jf{rJ`f2D
z>M`dB`k^v&SI*+kZqS{D#&kE3)c#ezBQTltboQ8Uk2LbsP#F#nfMy@<D9FptmyS0W
zj1CzpWAO3uk&o{@pc{B}<fY@>_fW`w>e(vv&^>N14-XNwJgrj`s#MPZC$M-<r5Cic
zWQDqQ^82{!#}AqnBM#X=1uU>B2@d-}fxg6`RawwTXfS)OqjP_yQpVGsc~y}&L7~#|
z)jEijmjdu7+UaIbY{{B@B!!*lAh{jrin0+5;it|~P5>?Z1PTB`AdH#<2-`k?ZU9d7
zDlu`@RZ&LfR7gn3eLcMwz_$!Ge|@tPqWiwMjZ$J81+f7K#YL&0=xZ*6ekPlOo=M&+
z=1Qrp)pdS=&aUjh$}H=UL7T+yGJ`N2+A?K1?^6DJ*`d<I`i6MC5*1v<DpmwFA2vdd
z9(|2@0)U^^xb=n1zd;6UptF|Wurs)|bam+w?cHTbgG;Z58X7^}PX(wvL9Nr0j*iz6
zi3{LjZ*T91(oz8n+s9`dKFapXSeRoi{v#T|(_s|q|Btm$#tC)*qtLKOwCM%lo8}f4
zx8dbP8I%i}1uS|q^(^-;5a3Z01P~2Z(vXpoZeNCa@Tg>eWpSsE#|mK_y_euXjGy_X
zQK8>~R5^6}j6+gZ7XH0^_xN130}yJG9O8=W_}~FKXpwJ-E?FTYLC&5bqE#^Fi&4?m
z4})y;PsmS(Jhrx$v9`Xd$o?RaUa{{1^6C_50N0O7F2HYldwV#p*|En22*pW0gEXWD
z)ePm+S)YVEYmpb_-~xE2pl}Wt0KAo|y?*&k<ja}rrKP0}RyTI%<*zY6K`yA{ef!J?
zo34OT))4uh&%gp#Q$BT{pT~nF@6V5DTiu8)D9!oQ)n5A?`3aGkWuqIh$jaXhBqs+p
z)j#hfNp<tZDX6$9U0XjIzk3IBgak!IsE@YE3k+0VJd>U8_@}x0)aZT%wF7j2OqPb{
zVHZ=a9;36f4KKAvUR;Au^r08FOQntuv5>5M<g>D}8-3x)s*drV?RlR>BGR}0ScY1-
z<jLrW?({mF4qKJ!g<k%yg}Ft*3SdpdbL?T@*GG=MUZg?J$fvk66VK6PaxEz>?RiQJ
zOBh_XoavHFbwQ{wC1u%a4)VEFF*m77hO7d<J$fKQhYbV_t!N3faL7v5(b2ItoL}uG
zz^G*ECNq~qJa&U*j%kO=2|FR9gMF6;Z@T+^yTCVP@HL~>=Tah!jt{nB38=+9_z`sS
z^{Zl<R0_v0ClSMI?+k9l3V+Cs0LmIdcGGpG84<#uFrYBO<d@b!>Yf-fOMEDFE#$`7
zg=|H3axHD`w?u&+LHIEoci%)s9Yhukm?e6r-{+?Y2Z<kQA(dnhDSSe-(L!(5-p|*{
zM|j@|7(_K1f;ecPh4BjrG?-jlUr(Y=sT&##PVUXsEJ2V0LT*Lki9pfc8(sCuaMDP9
z2{#y#mjTX5!A5&+OJH;k-V?M4r0eW$^(dnsJa`&wQ-u#7?tutb$i?#EWlt};@KF0q
zLULX-1u*BH^m`AME#xdrOSSAbe#-X_3^*1OoX7X1+Iq!u=e~~4(qRD*f7E?7wE)eM
zM~0xi*3I_)BPXpRwE6Mz@(2?dsZ8APazK}PGtvw|_y(N8uKyO_6PrQYO9)Y9oEQ5I
z!G55=X7ayj2qDzaNZ-GwQB_l$0-ZtUK)Hpv|CDw4@T-IbB1w|_+S;Lwjkkl6gZ%xm
z;d_{G-lPRq86)8<zOk`kP%`xL-8=leGUFidWE!BpVWB|7yY1oOks3m354%05?{>ie
zf}ZgGQSy<1=KsR)s1H5!M)@7JyDqTpSNr{CQ`X-;Ai*`~r|IkPN$;~@3hBDeK4?*z
z47^xaSeOKNGIyLuV~9D*uiR!dB<n#2w%<6#W9S2V85tSIec2CDO3r91;6E!Pm2Ka?
zwKP6I=iQ1BAKDvMDAd;KI3u+95LG?|$Oa`3ax(hYK}P_d;iund^zO%^PGoA#JJ~LH
z!=fV6M<qk*?DCP=E1V%ls%%MeAyMP@u#LO!FeX)2UO*v051^kB#t+L-SYP_?)%I&H
zD<i=QJhc=kWG7h-7Gl9QBf96t=H~HE!9ORO6<gg3-m9iX8h|sI(FCBHWd6Vs&dSPy
zx@B%_s}Ai*#W6l3Ep2;WWS9HUjGv}@q?Rj$`J>iV0I)GBq2luL@`c08Xucxw+z0^y
zcqK~2ehY9Nb3a`^>N2cZThL%|X0L^lS-(6xC+CmXr)Oqj0@4*J8yg!4+0fE=j=wIu
zq`*xEctd^Dg^Q9$FAQ|0K9^Qf^f=I{fFD1!#)iYMF+`khjbL2u&b|-5gud=5UdWzV
zCrR?<p__h0i&5~rZMcOE;ok^knsRx72jKREs3^S9mTt3!k(&yA^Sdsdx0kOP<n+-*
zQQA2>3n124g%0<elL!Hw5Xo!yduOYB;gFTtj<4+Q(?XfBsom}`328Fm#Tf894KmQv
zuS!dM2Z4s0cZ-5hH>39zSNmYKYr$$L8YuP)MhPO=$IqTU^J|5(PCY+AZ*F4)L>$;^
z%nfU;K_e6B0t?uyXQiRKs^vVKw^Pk2Ej@2-ZQa(^c1HMqmrc3roP5#nvXIY_kn9V(
z3v1M{`9WKO8=9NTMZhR7n){UL9TdgeP}S@DZS?19B4moWrb{}-rJ#w3G7z)MH-caj
z20DY^VQWhZc*OOd>(GYaK+0vzUZW<U<~P4Tm?(XJHpZ1XnFN{-w9f48>_UKH^{<Lj
z!{Al}7=r!?_S(m?vSff+bHDvBUIdvFfDo9Z0G$vN=H=yun{pK5e)aEJ0HW}#P=`-u
z94fuYAHhvcYeGK<v7ou7#rek%Q6O}IJd%$}gn#lOFc;BU_-S5&1tri)>nWqoFU{9x
za*atq;Ne?x%dJzzT!-vm%^yDwekXq`d31fc74bHK7D=Ua8O(i8s+jOU=f5Ih)O-d?
z*&*9xeuqDGUI|<Ax%V83J1e81p#LTTUX%a{smNjGZkkkb5BxCVTY@3cI@uIxSfml-
z#UdSLx-?XB8tectE^ovV-icr!to*eO*Y@(&t0#MVZlFrAvauP0AxIilwOe#bk%B#x
z@@iv(n5S1kqQ}Bz9q_v36cirtUMU{3f^Yz=_OAu0+Fa1LxubJ>4s*v2E6i+i^72|L
zXA@|V#pHEfPz9j_(TxQJN(ZLY&O(W%2K+m@w?6GNOhZe%zB6n)4Svkq+vqHH+j}vR
zPrx&!zv(gowht)lzzZtol0*I3rz$FhVBgl0et`v{7Im}Bm<@@Dh{%4TYW5VG5&>{Q
z5-O_MKPC+*h-eOGX9poVxX3tOmahv73s6%RX)7L;4}&lL0xa><Bl;w`;K<;CcK@V(
z#$PR`#SaU|U+E<&(uErVF&K2j33FV%DkCL@qw?T^Jy7QDeNQ#-CtU4?8eDLYVZG2I
zapK>m*PR|ePk(xv*o9g^PhX#LBL<Xm!?u@9@NM8)-JekjgT`oh&2~%_2|8$$JR;<-
z{7DwZD4{q1(g<LV|7R2UJ;fqzmX(%vs@i24fp@U6p)*Li5EH}6`eUtRB*erF&bv#a
zn?YG?yg}vk(HNWkYziEd`qJF2-O{qMMst1#3P+wFb>2uv_Ir>c>J7pMXlrK==&W5_
zZV=H4`9XWF7`2g$d{$FaBNs4oi4Th$ojC1MZFnOVP(j6#J`d=di@XD+O_LbtmM>qw
zCSL<h<SFd2{a>FMM4Zf{tMdEuJ1-f8%aZq4o;v4`%2T67l;{5}R#1KHSpEYJ!emnl
zs;^V7(1#?00MMis1qa3JaJd{#HDXCQI5_z08HdaEFu5-{iI|v}IMIw_p5S;=B&y|v
zS3S!cSoB<W<<%GhOc!M;oW4pQlzb+ll^ou*<!`*VVDozWN__N?Ie&6#>BEM$Mg@{*
zg`&|T-QE6Ri;t9FJkHmx29(4L0RBTO;sOgf&5;0baT1{?BO`kWB1GA2x)_6Uuh{F+
zSYJ<n=h5ALT(C}!JR+SyvFI{4stRjxtJlfO`$MwpMAUmeT+xhTI&)j2&Izns*SeqQ
z;;QNbi5Wl5b)`IIxDLSs0@@n{r->Pw;e0{10aM7{W`5K-AJ1GOD2I?6kj|tjv;kM4
z)zw=iA2P*>x|5wIqJ#d1!)w$W^fHtHcR_afuB)wz3K_d%jGdajiaG3~RH2AgoRXoi
z*O!!Gxn*@NIo^Xdi35facu5Fv10Tw+@1goB-6iAROf)dnAlt(C;B;o9Q<yJYJJkR%
zKEz&#4nhIX0A&I-QBjHPW|9#At&{wc(q7e1@JoOE_;FufKO#3b*RK@{+9Y^8cYuk(
z#Ud(FSXh``z&%L-nrLbJ^eeu=rl8b7L4itl)_uIFwzgKPyry*;zcPdb1t}B*ur_PS
zc(xe;xQ3h&Ak1F40&fOJ)c!q#_1B3<taAsYW2SpbzB`(ctZ>)3RG1#{7-6#~7Zz*f
z)y<p;Wquil;6Yb+_Y|$+2((8~?I_NlKPC1Ebl1$xObirEkj5p#Xa$v=JHND^h4)!-
zw$T6GX;Io}z>7;yJ>z_|w@wtX>(qahk%}r1EGD~W4!}{;W9-2B6FuJQ0n3;JoNRFl
z3JRx#)(DTpp7|}pY?W!bUm(&$?1&r;Jg`#14r+Fvji+)tL8r(j)zys^D2NXlTnQ0l
zA}<6t5$XyS3I~s1;*3nlU6A?r=9PUzK*UDfa(5R-Y{wD!;j?$riQtyOQ3o=*{WQC7
z{}(NiW6@(2vO~?rIVyd>OnCj;HD0H=`}NP4DoxTnoa8W&+0XzljKTdUDO71Fkd&xG
z+i`KwUM9eV{si7I#YTf|vYb|(moQXS?*eTtt+lC8o@-cvn$W5N!9ztj{cy7Pc=$S1
zfVrjRpC|`VX*^LlxQg%j@qsi>udnIle{pI{2Bd<Rs)e4rD?~kJl{(yB;O8O1i9%5S
zgHFj)-2HIjbqq;k1{eY1;Yc5NQMK>ssjaIUZ+oQ`x*YUl+<2KQ;8ICphlhqX!KM}w
zi*Q9>$mkj3w0|)Eoe8TR+%rj6;Ak9IuACLV9l_B}$)({3b_u53Ckyf)oxZ;vpQnU~
z!HoxQ7%%Qf!wHPB(0cgBxagOenHfN9t^2cyj9W3A9XE-AE<A0T^kbEW{xqF;^KAC;
zaT|9uCwtUM@*tnpAaAZl5w=1Um!z>V3*tP*+SX~#7aF}7wNbyfaSB|VFGQi#st+GN
zSHu8_q`qNA4Z8jJdS724C_H3IDvam(vC7NKo6Px{Sy*sjBLE1Qj*$2xECXx)Onvz)
zXv0=FXjN2H-Vmj=a@VZge)ION^Px~mR}iG8Uc{*3gSJrKsLUaz+YAo>(cB%01^cj6
z1}uqtK)<9xhIyHo7y;j^s;W8xfuiQqj9z};hda)Ptnk^Iz#t8unljShqD0;LcYXU{
zW&GW@N1$$<PD@Ke{kDywK1&RkxmDsfDFOx%g9>;ZDWsw92A(H{n^v*$g%iP~2HmOh
zZr~ulB?@k|f-utFZv9C(qt70ezW4U|8`eK49E@JV4rk)#?$~`FN`2q<+#q({YTaR>
zaVrthG?79Dg|5hcT2=?5BctL^Mr~RFm4zaP3iNE0QmM#a>KJ6KZh{{t3;pLWKW+-{
zTmY!{RQg^Ghu;i8!fOH@!~-<~rF7MP2Xb4}u(0Yv#cPnvIV?2mWEfvW(uEZ(Rf|xn
z(+yN9xB(gi`B`_qeDe=%JMh@YUgtJi0|oMslJCq78CJA1t|Df*-1d%*4L52ppi|#v
z$W%<E0a_Z8wK|OCLH$p(HaxG9$G|f+ij2S-|9!aHnkxU=gF;)M>5Tul;QH7GVtNA=
zhEMVYbR9hjb!8w^fT6Yzww^;iV@+&)rEhRB2>fP7h!igMIc}>~EF4+271Ql_z6X@a
z#FW(TykaLb;Usc19Dvi+2|4%bQHG5{IA_j}DI9GPTWPbgD7V^~;WGTH-ML9^rSjen
zf3R9Bc-JTJ;u)WU>P>|?m+G$X-~EP4%#6Q(kVL5TtZULK$+g;lY6C3p2CiR{*vE&q
z>($!4(R7l`aXX`DpAc{U>Zwzw_9mVZAB}m!>!2OQUPneE9-+5v+TPwCk?$OAZ(jSU
z=9i`g0P>La2HJA8Q(oT!XsyX%RVdEc=LU3%Ch;?z;Qj;9j~5?fZNG-(vB0sr6=ez<
zCzM#^bNB4-fJ58_-7(q7;2qeD=KR@SUimrB439zNs#RlbsM9#5hyiK9rzgV{WY1c0
z`zh&YWl@Cejn~m5d4jQ8&m!kVHN_ZSETEjXAY)PnL={xadgCisuH08ueFm)p$+E->
z+6FXDuAPU|+caQpQlw#YFeJRn^T^ZFv!H$#a+pD;?NLe4#o&^mf;2rP7N?GK+<wN@
z4*H2<uo)0sx8M7-$W89;RYh`ZkOPzKMAo*QyP5z>JxVG3HIf0f8@4Xr_OP1F-7J}O
zsb;xWo7y@(za@$wIBlu{n{wmbmC=}Mrgy&^Ll*VfXtiq!uv-Wa8Gj0U!V!YzGfn4e
zhef|)gubo5AleN!rl+;ho9nZ^YiDEpJRRRSg13RBB^`e$0zaZ77TY2@*j@~5ZkC3?
z+eCIw{%seRGF#t&=3G7;5+Jt$ZiH}T@x!I-Q11-;b2WX+&l(LO_2t6#M-vbk1k*|~
zkmre+h-2B+&=&vtljBuGc}#C5f^f~_-7=U7*&#^tAVcXne6nuyN6B{NKe?T1)Ya9e
ziGBBQz*$9de__;o%w$E*!8BSJFtgrregS_AF*>hk`2(le7-d-h($Vp$BmSo6u}+uP
zEF6Bsv~Tx>Dr*b^a%NVR<lVbx!EcosTM&Wf3}k<PcL?!`4Gj%7rp^fhEbFr{KCso~
zovi9}Dw7ST>9Zu1c-nw^+VI`bGn#!WM%-Hjs)ny*M$aU4!cQRKc(8FK*BLeVpW0h%
zA_lmNit}JKg<Ej;&iR`lEe8Mqf<1~T(XbUDcX{u7)WY{9Df<Zw7RcqGV*vx<HoE1l
zguxZ{+_8e4)x7(mYIs=|EcB0B*1g^eOd-#JZ%s3v?43^V+K>mmXvDsiUS}yO8u%p;
z&H9FSK)wL2`IKisM1ncLV(KiyKdo*M(C`Pn&bpsS&WlwKB83|SA6|jxvA;QM3>9dv
zg~taA78NRqL^mIq%yUp<5UK5MVAmyx`v9JX3q%O>PlKpic{;1NK6bzjm;Gk!C_Q?f
z7Yo9TM-UonMath|UilQ1dogth=45XB>QN*p3x*sXygKBI6yIGt1<5(AU2ydw!_Zu0
z+&bY>?cLc##2_lv`0BM5XiD))r$JU4SY(n{k&YT6^ay~A5dssDJo7?dPLWZ|S<#(A
zV~|>jJ?~5Ry3z|fG~3?4r>#wkuvL(3_~-ZlzsiCl0ZHa(pkPgpICh#wU)#PCE{h`{
z=_TJEYgb#Y{&uehDu6HKhY`9C_a3OhMDV2q%+`DlpYLxkBvPWTV=t3B&C2}T*_r<U
zv`dk&^F>;DOc5XhLUy;c!hSm0L7GcO0$lAr3sPW+3i%nAhUGq*S94An%Ygs`Os=k#
zNr{oB-hJ~|Ce1=;>q{ebez5=w`7X6t05@){wY&G#)lUNlf(!+OiumV#6A}{c0X~`D
zjaz|?7KE*TDs`UEi%5M&%P6&=6>nLpRi8g~{e(WRmVMNNVE)C;6%6z|BKb(<<{un$
zy^rJ}eLfCpeC7Jj?nqa}!okDUr4j{f0oemkLn>^4n~O6`>rTc8Y;UD{cqA|9y~|3L
z!QdV(m2@T-7n3nWT>3fHBTX?3)%GUWpds+uhYx48GiMb2FB&vH!-vF0VEfDzm&?!D
zuc<!($iVi~=ehN<%&3XU0Gkr`NpN%!1QSI>*;9Mwt3Fz#lyk=S%0L$weJXY=k*791
zxd}2aNJ+_6+V^hx;f??$nD@fy4h04sh@&a^3>$HgA`Dsr$hXk&b*R)^lo;=E$*TmK
zw7Zv8=SyMhL0$qv750#PX1;W()pdICQOP9SE(CXULE!{{URG3tIiv=updfD|!DHC*
z)J5C&@)yPuLa&os=8gqER0+gAg5!(mq;7yhi(rnx>*RPBrF2ix8!~f-la0@r?%X0n
zFMV!n!$8cLrmTgU!$BIorI0-qd@06&rJ$$pWsSs(e%fg-g3B)Je5rHUn|ApDKU-Q~
zcKo&-n!h@DD{s);lR=Ge*Uz(tM&%>B9?xnZml|wzkV(HBUP<O)2A7>7;tp8ySF{#K
z=AD?ixw)5SyB4>zbHQz`R-L5@|5VWD@vHt&>zo?cyeDGBY6V@}4>M2eaD#2hcNa!9
zN=sX|1gCE$mv&g+pj~qD)aZmDKO}6jwJ{mWH|#yyOG~(oG^3jIBqk@0b6Yo7-9Pm6
zkl=ttkjW!lVyThQ189s0G^sT=QS`v3<YdodV8a){w17?gDkv~0vvZ^4j@JQ~(imml
z?s!9#{u|aT<uZe;+1u<BP`js)S%5n4L$9Yr0Yvl*f>-HDUungOKTLKt3hrSXLJun{
zIk~{M!YP>SQI=={k-=*igp)=F3es0(HLn%j$QRz}wshU_k2xrNnV4=pT*k!7*}kh4
zH6t$A_#&un@#|rMR$f$z&?_T&8PKnx_>C`$dG34w>1Ih1EOvF})q1kaY$n)xz*3<3
zPdZfE4d}WWLVX)7wNy_vVqxA8-u%7zZnU}P<gWL<He694L0&sUX29}p0gZ{`(T79C
ze4dsxD@Zm)(#xyHmMqddu_1WQ%K0F;-<)4ZF*c~<$2*)j?0Xvp0gv&6Yv59#V}m|d
zZw>b@M!=FX!EFkk8>WH8b>$1Cw|wCn0KSnzgKjSH+2%xHAcKad8D+>z4VhBWnw=k(
zr1+6RZ=hCBO-)sV5TSYSD`~nR--J-dah@oy_POzT38e(l;O6G$%$S_09HtiT{D4%@
z2rQ{SzBg-Bk%~X9O?dfd%n@X==p=kbcB`PffLMwko}&*W;MhgI)cua&nF!w_;}M7U
ztMET=%cTQgP~f2|00T3VT?AX5>+BGAM`!1sBHn(r90>v=1^_@WEEE#GuXe(&9(@5U
zfr5%^dRF43@*krx2fyBdITmx>j0lpvSSXlCh`nLGfChi2@Yk<LqMKi@Bld#N-sI`D
zCMK0UB}S?4#cik}5;?EGCWz63*<8C?+GQ>cY8a9#MfC2zzCKV!Kdp>b7dg$VAnALE
zfx)N?4*)MGwORJ$lb+t*XJBFQ-?)(s8X=?a5nlo#BSI?lZlG+c2$1IXnMR1IAhaS*
zT+I@K;G-g+AwRm_uWf4xAyp)ciT)qBAs5yr50Oy~sEjBOd61zGXU>GW=IZ<9dIgB6
zPmU}3HpQ|@a~5v%Eh(v|whf*jqJV`(30$|<CqDrql5m*e!2cNEM4}T9J_IOYPF7Ej
zB|xZSK!z6n%B&szyd*K-A3QxZ1qnsO+k(LqN|5Py6@L9IX9Om&U`7BRh0G;T3)vZz
z8!af{O8RkxWXBnG9)@O>U3l53ISYxz4K{tA&=xWQ-@RJ>s@tM*q_1%$*ZQhyvWhyM
zC^1OE3QEB`Ala-x)B&l+ULZn^ii1Ay2KAN~68az$Af5=4K?A}Fo(P}Up51ue`Sa%y
zvkE?pJpfu`u*v}^d0-^S{wj`R1)Hn&Ck)733s{8SvsDmKL<nWkKxZGhg&QjyiFg3T
zu=7|->q}@opo}5eCBPn#UjRJmyx0tq*A^iLv{z8xN&aUEohue~N#xt6aN!Iv@Fiim
zHP?k)BgBUS$B%vqLNFxtE|WG!;-D)6G2xIi=?3!(q>PLafc1}HYUhPX7*o+Hy6Qn}
zHU0RUBms&u+L$8U*#<2PlWo2`Bf0{nsqBYLqd|zC2Kf(P`5EMJuaI3statrI2Uri3
z(kNHN3?)QM(X39EZMpzfz{_tse-1LU7PwYe3Xwmx1J<_gFu_M!1GFN;ehu<0)Reqf
zp4Bk`5%k7CzJ%B8^}OvOd3_&j_~&=paBD!Kfp8QHv=8W!btgeVL32yb=uYWE&=AQH
zq}+*kp(+YLmQ7N8Y6K1oaBi6^ln|orJM+#j8a!J#XLsJdHh~E7^9OC*bJ{kQr$A`K
zWU)2Y2$7y9CG8r*f9IE{W|=w#1A;1VmCPC=O)tOz+^eAHkT({9;s&MP=xYq0oV@(H
zH7&@ugHPe*L!6naKg`1Yg)t}!2vclY=j7y^^SnO_nEE)qJxt(_i<s>oW+F)fV|@I7
zGJkI%QY<7eCT;D^9l{J>x&rCqXE6niXo8V`!gqe<0H8sP9=FttN?Boc7i9pQ`QLL)
z@Q=Q?y35Y_pNiXy3D8JHX+m|#xVEG82PW%=2{xqEo_#jis2wXYBZk)CDOg<c6VYFp
z%vJ@b|C^ALBUpwu#Bj5C^pVmBg?<E*D;o7aVlY5>J_-eclD(`Z*dSbU{NX&Rsz@Ba
zJ(`F3{b%^U%*ER;{JD8}0%cPg04u`umm6r~;IhiK$U?NC1a2UJN|(p9NJLDz4L7%E
zUgRqdeS5?a)NPr&ZMa^rt0rL}Y`Zo;H@Eq`x(?~i2Uun!-8M-LWF(7SDJ}?-D-6jT
zQ%J~tXL*<f+7~JM>)CgHu3%sS<@f+2B%o)2gd@qw0SWTt{BuL6YGKd?3}CRMU;|y>
zSBdEB?L~&UbhO_G&G~{(g$%Hbd2QZv6HSn7k>dLVj$%axwYskJd7HZZM~Vre7sh>0
zYP$^~e9moxT?Z<RJv0sQH9&nD_m$QKW^{aR+~@G>!s22VY&|5{elVAUq_9#eUV48~
z%MnnqzaOSm?Q#_k`f=GqRaFiOLQ?eBnIUXErF%i+BO`Rd8XS0|UYp<M1_~0#%YZ6e
z`P+BA^8?o+h|l=bMK-pUa%-@#42eUGT9J7O`Pb|K8_qp`{FqwUftA5$&oHeCcCHTe
zdT6&^2lE+_Gp@4+$x2M53#K)mwlexc$NY!f7K`z>e~6Fcty%r}n0041We$AqLI8*G
zPkh_jZAwIQh=ak8zdjJY+i;mR(8rBh08KRE>BE=oD|O7Rt+(kd`DqYd-<P8fzUPOk
zDjF2%o;Jvw1@Iu~XoJP3=OA2E<t-i}j&qtw8uC~f*Vvd3^qEc@o~NX2G`Y5~w+g;m
zOH0eB_-6=O*uj=Cgs=k256ne~2j8ZU0nOtB^d<oJZSCz%Fa`K3I{GxYoL|3w_3LCP
z&@Lx}nW?j=3D^2VdUoZ6k>!{JGD#8=M#cgsYEpn6k&%&ah@?m%_YL__yr+`$yv$03
z&MPj}IRE9|@5>{P{q_ii*u7FOrNl5v65R1c03b-l50k~c0Qd}<G6ESxqrxs}H3s<P
z6aetkC<t6b3fqY@y-xZc(p%AQ-r$0bywyaTqcOXX>j)GuqbKWc`Q(AcZJ%<7T7Px}
zNKnZ~7C!D_UmCAxL?r7vFZc39oH4kAYPlL%k|aPSk=8y5^Mx%iZUyer(>(2RW(kS$
z)fgb3pz0^p)X;%Y+W^HMnj4TzEEMb&&}48>8eCB^zrTZp1f#kzOqeDWETkC)BFjT{
z7lDC4IZ6=Jbt`L)YCE3JeDmA&Yj1A{%M}T=Bd-CjJ+*|7R|NZH#qWbfG=x8p@CH~2
z9G5Rk{$rZ!8Kl_8e*;2-O(>_N^a+?p5yb4Ez3oTxTn6QfaB-mEj<t1OcM>EhHT~%f
z9LA8_2Z<ROA0Kfz;(<^Q=t0(1Wv)}oN;;MM_rxp852^YQVms6z$RklP=+iYo_6>#A
zA<hc&w$VYX{YBuNul^!mUqqr=@m;EQkuWeJl1RcH8z+wO+x8HH)X-{O9{6KFLYr{u
zgp0Y1H-3K3%+B7hZU@#5k`SN6&o(^?M)JZ9P}D5;jOosh+gS~`7vj<tp3{ml1tl5G
zgAd?BpuUfcEbYGU&8VxZYuZW$%8Muh=V2@*bM>sy8BRE@$nff_^P@-U<BL$Qo=IE_
z5dmFJPFeYmw|A|rHYB6LSW7Zcg|NT_46Y6+;`2h85qmv}zn>u)T!@;1!UaGJK+gxH
zB5eyZCE~D)^dQzf@QBI7)%sSL4H6QG56TRT@yi;<l|<xa7$*<PR9<uvz6~vF!5axs
z{e5`mzsi38ect9nr*bnSx*_oLhKR)qK$dLE6OQcF>c~F{u)x-7^xu*m=lnk`hzywX
z|24f}P~Yw?js<B%?mN^etn#;E=u?sB0cFtp#Sv{Af&NOZXckp~^I9P!27S-(PNPuN
z?8tKgsQ3XTFvs|%#5GOcGB!3Ye<5r?g*#&78Uq)eJchxgOEb~@1e4BwQ17Q2&+#-v
zj~akZg4AEAEp~urj1ftG@;MbV#Z_oEROEJV4i<6>)<9+;2Xu){aU)VEqN^}PR01bh
zgLVQA6a#2Uh%{L}>H&$nHUsPzDt}Gb9+!CoUzXf0C@8oC#>{vb7*WU&HP<=<8w}wa
zK|47Gq~@rM@Q<o-;lc%wY<7pEAeIet->m=sje=utEX5@yFqMK`tA|WtO@PuT_5D}|
z-7K~{@)Wv0$lf5%AhW~}XtBagfosVpgTd3cL{nDCx%DQ3V6)X|)p@vFM8_BTXotfG
z!^S{Uf<t-gs9})V2RE4@5x5#`%jT`kCr_Mag(v#^)oNh82g&Cn6KQ{>W{?n?7)@dT
z;x`x-Wfphz9nclhER2BB=S3NVFZ3nLT?LPQqGR!>Y}lp=CJd*lWdQ?09{lFP(vsaj
zo`kR5=E>raZ=68-_hFOijo5Y2_&KT1lRBS=oB|_T2s5taTwz{8nNM&p#3VB#?kXxa
z1K;vanK>nSOG}F;zwW@|ISWg2KI9!2ngEw0Q!R))=Q{2!h>U?e%+HkSrP|)_dl}TL
z7|Du|yNa18?KecvgQ_ksU7di)9k4ZH@TA;88uA)$|MG>`vY#tgr;=>!2?!<^9DjY4
zeEj$_3bX8D47s*RqE|sd98--6eh*Ys3T;M3YW9D{LK}PDW&Z5n*csu|20s`rKw<u(
zW)K=~gb;Uo)K$c5a}9!HL`v1gZC<NK43gB|n&H1{Qi|rK^ioG)G{Tc1uu#Y>&b8~;
zSv13f$dGA;vZjx3EH0kGW|cp?cOl3W8BVICf#Ck15d~&8aksULKAW-Q1|V0$WJL44
zqwg923D5Y1gclEU)Ubs5WOOw&kZcz-Oj3YLvPJI*4@4Mm#6|Qw7)4}36SSD~zbA@_
z&3tn444{L#X~&kWAgw?1ZKB_eO)Zl8MIr_jHNcaD>C$Ehoj(Oh(HLNDjF{&Q@b<u2
zTNU)ygOD(iD+fy;&iD8JV2%5Acw_-lt={;gw=lWd(v+eGG8gbQgyM`@W5}|Ix)pow
z@!>9ls-Sdn@bKILf8l>fXbd*kpkn0+Q8~SN;Ak0i)nL1?l15AFN#QBFVdsv@4}d(A
z&-}~bx_=lYfc^E~B;NmC^={=jq0AH@{zqZF>-h|BmPP5GNI1fOu_9R|bCx$5du$Bj
zbILpV<OrP^xbAH4lfn4;pZF3oaR7k^#b~}a&|Uw4_aF|)$#S*lI=)3q#ar^f_Zv25
z#%gtF`CLr!SLh>ZCZ=Hg7ED>)S~^iW&D?$sc)`M#<@1Zq-0cpS<)UF%Bmv!m1Y7?+
zu;hO;V!`s&>c;8#^FU;JpW+MM21myZf(=O03B==10IKtyU<fDmBKyP{P0$(<A03iK
zN!i(F5y=>y-SLJf6yCKFmktXA+kYFmgBqxo1Q1>Bu_A^P{KS4k>j4<<1>sxfZ(oKC
zJdjvvm=Z(Ahy*PA_sXK*zD2AOcrZqq?fuAqHc>=y69nSwm8x^FWx$q09>@WS3%iC>
zR2=j)fWcXp@ZEm4y+TZU&`$_of5t5tA^>w3Dav}aG<Z+3Ku$sVfgxl(-<^g`4}wDq
zU=p+xiWL$Tqp=!yB>cLL!67#I_Fe!8PHi_6bRGYXuS8yPgaA&F1!oA+*Z)V!QD`9C
zdS2@?D2x=b*fV$#0k2An5GSA{H;{3vz2jh(0MvUa>8^VeGT>)krVn5S+{bdJ@x*rZ
zw^8hs6QLKr9zPOnN^=(n<37!Y5k0%eP0knMAKySN(BQN{M<T$iv&Z95bdHDr{oZNC
z-b~VaH7t#)LD!grPUxu=$&J$Ia3v*Ai?CZ61kx_{Cycig|BhLFleJi~U8Db*+ohwY
zWVOe(HDi{p|4xI!cc%-QvjGX0UVjc7E+NCbn4W`&ojl;8d~K@P^qZ)EdOfv1QN%eL
z0=btSuaP-Jo;Bn=CqLBDJe|sG$1$MjslhNsWGZM;$57#iVgg8`Oh1=d$BVjmJ6+bK
zA_{bdj0#%6rZOa<x@6X;Uf<i>J6++kh~Sne50A1>y>Ii5J@JIewJhj_QqaQYU0q?8
z_(!p6DD2AKk&#@86dFcAIR2rtb14wdG++}sSy}S%GG}qIBU52bfGXULoLa9S3vPB(
zZlZ3re{(m@;h;sBro3Y`Z<Ar_Q{~MUECmCLRqn)}w-X|ECKaZAh}}99#C{YSK8@nm
z&DP*bhjV$Jii(rsY*tyBny#+y6}Y$vW%kz#b948F==veu_fTKI07yz|6BWu&XTqL+
zf0p^z!G%IoO}LDO<z)fgyZtiEq|UCcmIekG_~<jg5~$9fzswL(T|8@3yF3w)aQbOO
z*zWHBO#>8);G!QEiq{W?hr*z+sZl7LGygxnh%u}3^KD<<h2OE<#v>q@x!3AxMjeiE
zYDT4je3PbfxhKu!ZLH_Yx|`0ZW5IxB)tg*Lsm?oxx(QoYBje+p9vI;-W!Bp}JHNI>
zlHOHR&Pr{%7<Z0VF%;5zBs{)q5UlVWfS4o-2W5c5B0%|J;qt;`ok(EDmHO8I?u(d;
z({{|S?sHMX-l8oV10<IM3iwB0mBKGr<V9d;7Zm7xs0ebAk)Kn=fiACelcM}`X?Ia&
z*4iMbc0&ZZXISLsP3NC&qyqf>9MlBad3pCDd%L@nL2OimMsk;x3<7%95DspwhUZQd
zcSPqgnrNPM9!LceU8V{DQq1)&Q9{4kbyW=>&;-MS+i>DDi;Gpn#Kf*#zWl0Fu(-L_
zb9Vs}EU#E07Cis;dgs@E{^E}5^|sl~%RD@tu&T50(2rr4PXo8OQ)X9|D`_i}W;1?`
zXN7%rn~N;r-}_1IEdjwyU|vey6Ko40L!akVGl%-7Rq0@Qzy~R|elTX)<N<H=KsSBe
zvQW}Ky&m?XMn`ZfqC2aAO3==+lda2<%E7pkO$tj#O)dSZc3Ea}@@-I_;3UwL)k6#q
z>KQ1x(NOL30Of#1ewpNqTqJ~iKEO1O9C8$@s;f)H1Fed<6rS9=1*tJOaaD4x$q5Mz
zgaiaJ+-x}`Bb&*|%mX_k|8`WN3LqPFxMU-WlQQ%%aQf`5tS)HxFdCS9pCc6*H?X!W
zkWIvHyi?3hNs*eg(*O-r4TuWFA72vbqfib{THpPgJ%;TTEZyjIVfxcIGpSc{(xaoJ
z!p9v#<bu03nVE9yZX<8STsJS+<?o786Fd?<=dyb5G#m-$|7S;HcJp(w!>;$U*6CNB
zvk&z266RI@tYVq<zSryDrXuWHBei0#EP`8JAH&{nT~}g%EnNE|)l_rCO>|*(RZusC
z6bA?AF8k~B_O>g6yCe2=9xK;u<|+pkzg2j5pDvsh5*`(5wg0)f@8Izw#h&g?mg*O0
zM^{+5%CcF#f&u4EhR8)RSGr5nJ0rC&=TI12+5g>P`KM>iuLxyhWu*#yqd#9aRxf)V
z$TMWpDq(Z6Jhsalhf%{e)nF7VjFts!WN0W00(F^5Ns<i)_aS)^nF>KnF?f6pY;-j9
ztM9<1AL{B_C&MxM^tQ8^Sj=heWpY<0S9>=oD5W6Myp4{|fujLWkn)3*($~|I0<)m|
zUMvd0LsF38Z24~RUGq5$YOW1GXrqZ}Ws(2V*(s<azXP=gnn91L3B8!BZRgX550iI`
zI|;?0mR=~Q#h*x0=;)p}XFGQYyxszaA0zR2(05YMc^XBxVSKO~#s_;MDnUhX2I8hb
z<JIsRx{7A5cr{mhr1h|f`$j6PB{v<>A`IK7)VVpH7jrf1Joc$SI5<#@j&!z}bBE<V
z@;M1wmc_2f%~ga)6QE^ep2K62;6w{p`NGqOpgxpB2s}@(RtvHbpwT_JNb-{PJOxGS
zIA6=OJsVkYZYPsAT`T&^+b{D}v*sfruH_w`LA0|gLN99c3KoBfu?~3pEXdDhg^l2V
zU8%-Fp#qXcRaKQLy!TkNB70v~SCXAjE`)}1>gx0$(FKWh6si(49Y*=>wRC<WmUdLy
zt&1PV#`K^*>#~xeU0uuZ@bKURJhWMHN26cC3Fh=%=^rM7&%;ao)y+4t9_Rn6Rs2Jz
zVLx_w2HQJ@+a-<@CfzzZ`CdosdC0?vMQn%op%q+Fyte0W@R}ANKR%#o7H^7l4a-h_
zx5-mi^=dRgOifp~AP8N4ar?#K%Juv0zF%fzw;o_PVAvra#)ss6>c^cfw?#r}x~lat
zD51IynP-BkI`md-mW&@7h~k05_cq=5`1mUv9CkA|jmwi~S9)N}+6gUv$$9su$JpW1
zXqJM;-(tiE)ovd057cD^MMY>RL7<yjA4sIIlHtRD!tXSdta`f8;K#XQjMk!JiK3r=
zY{Dch)UbKv1ArFx+rf&P$?w%er0BvEF?zp$|B#>04M}*#?g`V(|9DPVhs#PqWxJ|V
z!RsB?^~uPH#<KHzc*gAOb`4KG4UJ65*3Ltcrx(<Q-l3uSkOXoJZ(}jn^Cm<1E#D0h
zVTy2BQ_U!tD=h%L8bK}ba}{3Y;F1_4jdJIujG`T#NbDzmR>Lkbo%jYO@zX*-s+@C-
ziZnztlxu6YTz!d!ql#jv;WJ1?z`J&8c-FyPK$Kt+uf4+CNiR7)lu#@=&?Di=Dg{7A
z<Ly6Pm|sR9Q;~5XY+6Uh5_o8eKRSXhs)*M%SFDpiAwik@<mavzjN$&MaW6siB*4Pe
z$+Nh;#TNew1<9+}+ZVz6SXf%ZjZXu;e#_XXC<Zb-=`dEcJYIjo(`qzz;otAdZ)7%^
z5-hedH3-<Nz+vO`=tyM30?1(Y&w+y9IphI7a4nmK*1((}z$GVzpek(l@iEVlfRnDn
zXSS+e?=4l~e#0i(_Y(gWE7<Au*w4})kD$VDd=+`nRw?L)0Jaw4seXNsdr5^J|F|nz
z=Iry^TA;cDT95Vl3h_<T;WFk|K}bLt&h?h~aM?C&ibZgl`m}9pO^xniQd=+ZPLP35
zT?9%&%6v~o4(u|3sj$&3tgL!_vmR`Nh5_&)8yatv>0=0)MdC^HnF9xgjhF}GE0a7l
z4RvMZ2p<rO3=?|@C$`ol>HI?J#5`0%W9R~}A{W#aT}b+F93Iaf!!Lk7Dy(E(pe2@C
z^j%pVtya%cy$iRZ2k<oe<Fyj^*PmG@&mEmR+Cd@71*_pGez!-S@H8HdS8}QKu*y&~
zJUy%R+-J^v!<#}4>jC*Q$K;yulm_azu+LLe^m}2)bhtNS-cUzb)ZWiSne*|f1GBPk
ze7peEfeYDWZMwL;6DsgoVUFAbUgkUj9^5XFTG-@~r{5s~D%jLeH`nXap4el=5QsWK
z@GsG-0rq1H3l+G$`D?}LX=yU>>M1KHF!}xwRAKaPd1>i95(13q{{1S+!_&j#BP25G
z=@d{n7~GAHo2zq>!}+ZoG1S$?G+g%Z{{0Ub2_APNonYD!e45M;A8vs?<K(dfFbXcV
zak7xX_h|j(;|oQ))(h+MRwpgL>(8zDF08(|sjAFN-3t>ovR=;?vjAVmTtv_#M0Ag4
zTj81>LK}p5yE7;v#}GC>fXPZH5Q-LHd<GExk8;~Y*2fS|1W*a9)m>2kI~!D!li6*P
zCID_JQ0G3+*{5{P6|#w+grV^K@RLhQ9+<^DN2N9><UlXZ1O+4?o(f@MU|`U^x3Xe0
zR3^5x2q{9E?L7#*KwIA5-`6TMcmn-9<?@5{Iat6R7|a*20!_OQ9;=uI&ICGQ0G{Un
zk1CYz$xt3BHf=`|y>FwU79gr67a`9|rd4bb42PA$YfTc+J{uW6a*v?x0SUG7Si)fZ
zkmUXI+f2Ifc+7>B6^5P707{a5h?gEJQt7!RArE)k-rABoIC-~V-f5g(rDP^9)hgz(
zWqy!-8yME7*^JcG|8Gz9?;ij*`3)R_a|kPe&Av+ymY(_dukP*5&F;V%?DfDYEcc%I
zMyaPZTwNp7*;4lA#>9^|fFtx%QX_u>kN6SobTI*r#lO9=(HR&~?ZC+g^PE!c<Aq;<
zVGgPt<JOm7sq$Z22;356Rq<f~a8>44;2N2w&3V8E=&sl6c8l~M2d2QK`uqO`0YxqY
z3!C-8jW(`I6Tf@}owvCcIF$Pf*b?~y971~q9HWx?_8C}5#{s=7SQ;^HDR7zhOJG<A
z0w?u%ZCkkB2ku867N%W~y0ov{y}K5;9N+I_MU6`=aMzY^{k|$SU<KqO0GxCB1zgv2
z`98350&LO%S8y&l|HjXBn(+hRc$(HspDf_8!C|Le+qZ}N+kAAXI@sIT$Y=}fw(J5<
z2ZlyO{Mc>^T(${3f-n|%2+A(tKr66LNIN%Y=DzPQE&71@IW-cvPGIt53$LX?z(V2h
zwBu8jglH`V29EYruaku`cY&js%fIgV`L_-@+k11{+7K<%r21vg4TEEs8_!n+F8A07
zS_Ap@`*+a74$1e<=BB2Zz|FFYula(q(WZ=xi!SebU$ra!0B~=8YtHR!z*C>T0M9#n
zwdu58aDM)Jpa}4Ihy}od1TFr`@3;H^r`Y!Em0&GBy=l3(e*r^Mg_rF!aQNBy*-y~E
zsw!X+GIjoZ;LcvPSm0XkUBHzipkfP@4uOM+FE;{v?u&t|gI5J;0Bg^$z`=7~>uVX)
z7x>SySO^RZf8g?o`O|bFKlQ(s>INR376lx@-LALy%caD8rM55MzO4dwZtUjgUrF8|
zCB*O`U)H7~0Mtzao}l78eUdS_U;F^vYQWm<{KL-|5y?{Acw3tR2s~Z=T-G@yGywoq
CFR9`H

diff --git a/reference/Rplot005.png b/reference/Rplot005.png
index ca49e1cc76b65d3873dafb87cf6fd1f3467e6bf2..2e4f99f9d23fa9157cbde17a37247b29d770498e 100644
GIT binary patch
literal 17513
zcmdUX2UJt*y6p-`?}8v*aHBK@3DTQ@qJV&aA{|8ty@y_+(%c}3Qlv&oK&1B$QKU!-
zB}nfG0YdK(%3JJn?>pzbd(S=ljB&@i@2xQy86zZNt(E_u-~8sBA8&ND)MzN#C;<SV
zd2nA<7XTpB=Rf46;4=XOjd9=u>2nP=Rqzo!4pr)czy}JK`-biSKy~r_2hu+gcnknn
zfCs8~^u1G7Cj9)F=F=56Z~-vq2NEy82iNgZ?%r!rF3?qqe`0e>Hu)l@e8rPMdEfpt
zcRTy^g85-Cy|Ld%BOEKj;_dQC@O+QEG<zxabyZ`OdnunVQSrVCy+Bm6wzh&H5U#!{
zv{fdu-r|*;>bcHcT2{6$2mQ^*+S&^S;r;JEWNO0qWzqFM+oiLc2Mhpth_d0OOP7`~
zgp9sLWuEU3f%wtNhRcX$nS%0ikB@Uw>>>1dH#!9)RCyc6$Hz%39jCSf%NQ6KQa}G9
zaDK|j$mp(IMbOVqb}jYUcx2H(_uyv|1bUz9>WVei+2-oo#naDTL=B|f|Lr1WShGQ>
za{BzbBntyW-<z(XXiF5-`Esah8opLYP*AYHrKN?A=;QOtt;VJ~0;oYso=PFq;KKYo
zjhpHI+uwix{e>5m_udGsY;<%~p+7qDO}Lg%uKw~m@@OE($O9+!a|Z@#3e#Oq#g6H!
zqhc>kJk0y@Wt8j_Iq<w>m{(w)5-aXS!IM@gY=39rW7Hgzx<Jt4gX!3-Wppc@doNZL
z+=%Z;nn~3^hLK+Fv%Ww#XuZ_+uA}1t-*&{T4D=w0{p4k<%AHi!_cM2X=$i#r$z~Gs
zdH=HLwXxm8cfAwl|2;=pS|F8G8SV^waNTLKtJg@p^ip6GzGe8O(kE)Py;<Z#`R#l}
z2)!&|LS{jQsL}2CsT>|!h?T)bw>(c^4J{dWO<@JHA=Mq?-40`wQvz8_*qn8e4GNL1
zFC%5IccmYGXt-Rr&ZF<%ceTf%kM-Gl{SOizE0fRA*P<^RXH@X!gNZX1wl89Z^eo}l
zE+$_4;cCc<OsL94y#P+>&5R6GDsXC#flhx2-=$+9<H(!UflW-;$&!5Y`&&mDsLq-1
zR1bt0VVm>-HDEBi>CMX=5pV$z6cXAevJrh)#)>BIEUkn~(f}PD9mhaxzDdm%BDU0s
zyo3TB+_lBW%PW(()5%cmIQDWa+c>`B0{Z=A_6_68E{KbH+erm*Z&&RmFK-6p<0cLW
zBe(!co}E9~qKU5Y^7bQ0G*wlzAXFd2!|xL_i!w08kP2IXOP}T`T2)n*tr+npJY3x3
z|LPmiIkG^iNnm}^;cUn2f~pHyp9%XsBU1sLk8-Rg8}0663IiN}Ojp#gIXk;g^p%mq
zCXN(ya0)rHk_>%HmJq$7wE{=3s`MX+2lkGb6q~@o?kSGAI(YZYAkS1#=HY4AAs3sZ
z)KNjqO!pKUYuaH?^@o#8NjBWsno7<@vJc@4k96Ij__dw`Z?oyIMbRB&{@r<D%tRIt
zWUz#|bWQ-wtNAs|>hNqQ%=NGdatbFaP$<|s)gL;t1THhb(>_@m|HkL5$4JA$EV?U5
zW07UPcGU9mTYpi#=Rqe>iQz~IuvnO0NtBmwb-M5W`MB#Vou^lw$9?bp@q}fkWB2Bl
z#tO!<6}^PppH2thVGhc}-eq;ECAl>(U$fuj5ZnG@Kzm|<+gbDME#&4(GsOO)9vzS6
zxV2%gl0`@L@#uw-+2T(Qm0H74n+u4vD1^Jp%bjk&sIK~Fs*|G`2p6_X{)ttPX_zxd
zjfc~nJx7CR@+RN;&Rxj>OR2P>5-kt^+O>B9?)qzknX8fT96aqPw_S41*-rjf&!#Xw
znU^JqrRp7z3nq=Y_JOx=-#B;M<{L}NEgHMuY4?`c_H2<Rsbayw9M6yqZ@rE;E%5K&
zJUi3nJX|{YG0uaxg*m)<a;0zAbz=41ZNUQzrNb;8;yC1@Dw-(U%oHkKU$#xKvfN%*
z9Ic<vBy;2^Q`k(iHFYviVUem|c=b(W*HX3rb53f>`2xUsauw<#dXCjjmi7)qB7*i>
zV>Ig4-ko?m&kfi|xSf5uDjTB(u4S2P0TVpziI?s>RJ*kM{a#bYS<amjV=&Rf@J4}N
zPG}kg$d1lVLZ<Gr8&EY`89)W7X7+_BhbIHV6^?$cwzf;6ZLSiOJWq_{A2YvE^{=U^
zp>h~&Y|C>1H%P6ICr?y;eZ96I>QvmeKkKV<xT-iCC(GM=YLq<p!j#jAfVX^nd~<ra
z1HwGt`P6geWA6XPL>pE_9irUX&~aB))q|JbjD{nk#m#i+q>O%+7d2q2+i^oVoOB2t
zJzUvPQ(b)^EHKZ68qiY?XNlFdN5u}+75bSye*75jWqCR;62xkIxmBd0U5Ha{p}uiW
zT%>hPNRnQ&BJxz{HHP}0hUFE%v$Q)h(5!9JHsi3g$t<W!ak_$#&e@Zvuu#>n@8W;i
zsu;tq$$zeO?@DsfE_Km!-#QBa@F8I!k*D5k$b!Ln6W`VA)>^INBpSQ-+=1u2WR5nn
zaV(-F7nYX#s!}+Q0?h<~Fr_LmuX1ljLm*C9UH|dpRbrhBK*>{wm{_+E+oZZ+dTkJy
zuDELo%rgwZgK&4vSfdGL_&p?u(gAU_)-B0e+;wI9(hYOYGAYTXRcD&1tQWOrUEKTH
z8^9XCPRndPw8~uwRbl)57RSQboA}lIZ13~R)vztN_5FF8$q((6lFME6a>Zv3<{5m(
zu+Z<tSo1do;<T0UEbNksS)_&<ZiK-l$7g%Nitpl^oB#!6qE=3TdM;kLv-Yca_g&5&
zLL)hN!Yg9UqMlMwP+~MG&-cf`TDha2QWP+-GV=8(CHn_)Nq(Bj=Y<Tlw2=(xw@IH5
zRLULIIxx~_?W5nq2AlGs&0qW5`3<sLm%FB`*VY)K73$Prp|w7Gn3orgyi_@woC)D%
zU+{42&qApZ47&46T{`^z$*L`_5~-}8gM9WlHqQBhCRVd`Zqu|7KY6s68Qu8U(6EL@
z>9uWAH*oK1e8qoS23`u9gAo66VMJgNtk)92%R=mpP9vge`5`~kN{2+^>BcC6JtT5V
z@DB!n;8wf;KZW}KwZy#?*F@+Z3d}D@PLuPec3$UYBNw*tjXp#sku`G<_*$z9^0}<r
zr80zv%eCqC{<REE3)t{3_nEh*6{W<g<GZF0`iVXdvc7C*1b6vzUuuHcwO}e07%8$x
z2fYrzcV+8>_MLxR=wiYKC0nU-8oe#L2UzIxYpk5HC}3l|DoJEHWp9LYH$oD``iB9V
z=%hR^34cQ`Gd3yzOX3WDuGLkQKI5U+aC1c!((W0DhLYOk?9PE_Zx;wqoR7`;^yj?T
z1CwWi-|+W-IpI?RPc}BFhUn;e@@?Hn9i7ypJ|^K6t7pFPK#P3mdxL0>liu9~Pd{Vs
z9jR!)h}X$;&1XvnX0pfg&QTo`GVU&WU4`4Lnw2x!WOG&da!k&(rTl~i`>=(T#rk!+
zif(L>@1TXB(rYY5GnPo=p*scQj9FPu%60a8QEWm&9movR>1VG28jfRTCPqdwU9Kr_
zmBW9=TgBbwWiWSgS|b{(T;CL9XXqo`z9F(>7sWFntRh}0JuZ_~cXhh`Q+{nzpj78E
zZ2ZUR-dbzO5N-D%4<P;*;GPbPPRRiA^ZonxSkoc+^@mB~)!Eq#dB&9vhc4o51uV*u
zv?0nQo8HHv;7c|^Mw;;lBdz!g0^&e$oHv{2<=y($^>u`-R+i{=vvDCph^}&yjXonV
z@DZkaU2|$oYIihayom_iSovbZU6#&301Z3MJoO+Pe`_I5Ox*#o)5OFi#rbmU(2dTc
zKykK{Qu^5k0`nt<c&-vhKX+HxO+(!d0rlLRV0saL)S$XRk(cRy{g*Fame*RxORXZB
za&v97SbWOt?TJ++PJA+0EcfFmFBtFnA5B&6D&%-cRB>?~)5Xacz(W1okDh9MwU>cX
zpNyG@Sv8y-CCWg{nP{erC4B}JQdtGZ*f26H*<p)a8#5LdA;thh8X0J$|8e@}slMDf
zG(_Yy^@<;NRkK(Q{rtI#R16C2{{uxiAw@<N%Pzvq?3PK{R2I8g4?e^@PSnC3a3_E8
zX%OoP024$>nA!L@l*zNCg_}IzvGG<n+BwQlC@Ut!_4@W?eqp9v#%nO2Tb|}MFW*t2
zKbRLc$|wr;T#i*Ig<D_#?JW~f5Jb&}Nu9Q5m67`dRe9cPOACPDq(MA`W{@n{t>C>H
zsYJA@U1R6Ic$J%u^@l{kI-9K!+X$)mw&93M7;P%?w3SF}cAC##gjLc46VNkUd2*(S
zjr=(<&=sS5N`r<2mB2?Kls`_z+_GfYD)gDK7YB?KVG9(BJ%o-`t`1^+vcby1j<~J{
zv)fy-2++d50IQWB`A?IbcBrw(y^qHm6C|OE-su=>-Q3Y#l!5(;rAx86SVvrLNkh*P
zXB*rr+Iwe2UIwa}YZ4gca?9j=vk#j&ni&>BRZN%4-@FslhJ`A}O#UV)QMuHmbkbQS
zU#rTyS+8r?Xq!X<L<A_9!>z35%>bHgTM6RJ&kP480Dd8%ZQ{#iZu1?)x*c{r->(6T
zVx0+#uQPJ?J+e*s6zb-tXTz4q?h&u{5V`|%Pg!Cd$++<TLHrD<GIFv+W(~e@Dnw_U
zR+X?l1%fXT8-K%i0jMsTJ2e6_>pSjx)YmqyZzpHERqgF`46RLKefGx+aAxlrpRQ(O
ziGcrvXnH#V24Ugia|FbjqtAGP0>oi;DXz%$1iJPD$t|($S($r`u|=tTtHU+wd(9!)
zX~(xlGV(*rtgmM<f(&r+@{7iGM!;8whzle=FSP1byBB(nGk+ewS0=#lt(0XVXCuiE
z6EHX08&{VZW(<n_YfiJBsoS=RtFEbLv4bBFu((F<ZEh?kwcA2$FE)j(ad0^0h8%CM
zjmEpH5d8qjWy_)A*cr@ujx$JZSmwp^;U;~oAbrd=VT%lfT5B6`7;e9_bzy1>>wmS3
z=nV}E?b2Sk$AT5P2!@Ko%>B+x!jU8&Lx9c(_Fee@_3q-oqv25~B8_T!&LW7a^q7p-
zHPbgVJdCyxuhk)UWkjGV9Yt>5xWTy~g}KM`-LA8=gEuBzL{if0rQ_JXcU(6WVf6i1
zd#~G*lMA((Fd9tlF8-?9sprqUu*RWxx^qq9zu9lTN}m}5uFMN=Iu~&rVd}rFC<Yda
z+DEUAgGD<GriPBUYOopeL|3i?h&r%MG>^KMc{PMSQzcyof@u9Wu>FtizuCMD^ZuYj
zblqM>D9QOECj3Z#$Oy4GZ;bTJ<%+Lu+k;<vb@nZv*0yaTI-|KT|GmQ}xKcm5?>$Hk
z+Waq4IUDMEJPJ+jU3F7V^84>o&~}ok%twQf;o%<J^%oYplUbbX?S;VR|H$ycgCFyM
z27`_2JXdv^MH}&VwXP<LyLmN;3%id-IM+*8?`_1au+H`P;fJ)Jm~Z?XK@Lx1=RPcz
zAGbEp1!gps2<#s%cF}~fC9CN5u<!4ET5-T7Xdllvn<t<AaO~a;E-JaPR^)6)N$Rh#
zKhDt125obBZKyT((Vfn_BrxFTJ5S}JoDVsm)FAS95E_t93MvR>_RZ<FC$BxM!&zwU
zBUxyj`x9q&_2rtrK7`@BT(U(xM9tY;Q(3>&nG0<384=4s#otO-NpN<l`-mSqLan>J
zv6&^gWFRYEi@pEb0x8i;GC)aSSL>gVV&P`diy*mgXtxCv%#Ahd7sPW=K8w;MK91?C
z#+lkEssP6ub*F}2{Oh4=2BsgRrvlELPg8?@<}08qCT=k&CAVM$lLy1d%rX%vFMLGN
zsh%dg*FvKTSfKIt_9O71-PY&=zxfIQ1U<0PTY+q97Ny=@yDxY%xYyT6=7y?Pgl?vX
zHMzh~{$Otn7^%5f;<~*(YX<anj7=VkGRHt-`s3VZH`Hw>7+ix#uLs)<CVu61mTwNP
zda=}H!S9tI6g<~5oU8w(JHmBov0j0QIonpjW^4}!e9FrD<$)T2$6HNUBrRk_;R4Jr
zAf5_)CO*3?%h8qyv3N~CD+qXvR!;bqlkBkE_VX-O$gy=>DEG5VZhK36z%J55HyGbA
zxDj&R6s|9ACbNHd{Ri$)7|<kM-V<rC(mZ86+tZ!sep~2w`dGz{*<4l}riKF>m&z3O
zi}%fL{{|cK`!~kECGwi?(+|2SQ;UPwEX!S2;=Y)g`|ftiKskipM!H$q<zuL$@M~O~
zi)BV$?b-S_71gRQ7eZh6z#NJsit>jN(+fRDRqw~;KvmN3J72uSZWw!=K|30up|0Lq
zS4dF8t%CAQL&?*8u${05no5N2*@4)&xWlPH!s;y{gF+MTh?XyLy0?KrI{m}FUrFgR
zsi{-k1^$rf*?RQMZ5F1$r3nGbL6Q(jPf2HMRz`-t+#gt?!u<SkQVZh+@y^nC;OTp5
z$B|MiS_DC6t%&5)E)zef*9;vf{0|E@{{o~=V>uDwi>g%t!=ghEb4*iNjUJ~163dZF
zCy}5KH4t%j@<LNEcR%vkD21S~aW<4_7n=6!Kj>82NMexd3L>T;QjBQwu}XaA-$<y{
z|42TavyuRXtyGY*8kSkl1Jyn7iReP3iZ2iVRABG(d|%Yz*QbwebLJNiU`48<u2J&b
ze57v5{zg@K#>G33pUG(L@gF+cOBe|U`GuPoHn5m25};WW<8JD87d&dgR{aj32lnV8
z^kZ?l_S;)qq&0<vd*H81>u$yAf|BjG^}CY>l@1iYnra^7^S*JSj_DMSU6f#<l;s!L
zf(L3j{g-0*R;Tj|HzEc}3&wa-;|c;~$5W#SrnWW{v>}D$HdC~MYhEFft1is+2d&L?
zISrQy+-C=BU+U{k@MHN}chgRk1W^9U;ZRNNxJa<~jhOrX_XPN4))RCEQL&%@u`G)p
zD&jWQ*VmuBJ2`4t*1Iz(9STz6$D`|Nj~>NbZ?XueK;NLRa8k$H6Ms|w!rNT58~xS3
zL?nDV=Cx6kikx$?V24m|Eob2a*;2!r46u=h4s6s(`{*upxxfW&fBSTs2y>Z9({Go|
zZ+ReB4^qF_w=qE6Lpcne;0%4{Z$10{O{Sfl9dBS$P$B(n4^T*4OoBE6TSUy^f5jyk
zmC{&ze*Rl?ZWcMQPyeN6F$Pw-7%6%<Q%6M|w4t2Jnx$KT*C+}!goVCF#XKt1eET!;
ztLwzXRjvTfXbiQUU;^^03H4CoR~)p`AlYCL-zB;lGtU^ev*4_4j!K=*e!GpU`ZqFp
zd_B!OgBHD(l$3N2H9*JF=95)g>L!99#fm3GB8&fh%R?d!Yux4`0#+6D&lwREiSrtu
z&Lg(DBTds;x<=$;kYK9;2>(c_bQlpMLkDo~4-s9Sw*uD|@5Ddb%SbZKfw%0|3Ces%
z6=oNj@52P-j`A_&s=s)cMIT9;3GpkbFWAeg{HoQ(U-}&0ZY)Rg@V{#GclHErh|#|R
zDq`7>eOSW6!xsm7#~3!8A+dlBq<4H1)Tai10L5Bf<aFMRW(}N>AZD}$U?g&1NmccF
zzBq!lp=*w~m=c{+AMHNgxh7+7K8O!kS|vYV0q%LTBErM9C{F3nrDWok&Lqc=0NK7q
z0}Hr6Xkx%S<Q}sF#iUBoh^xS9uj|=a`iYGg#q?g3j|ka@972V2yECe-h-5<rcni2e
z<VdC~qc#JFZqd~yN)9)FoVX!7vbifZDc`XwV?LzU>)tmRMt~d}h~USrH(c6)^#)Sb
zGNJ3EL_kqQGf^!nA-#cr8?r*QaSJ%3`NXywvg-)kwGk;104V#+?4Yt-+z=N@#2w%w
z=iEuHWjzgW3biy$++NrfwH~s{oFf2;H^3>`Y7Vk4xyZfY9?=0QA_7PmDT$2cvI-z%
zRS{_cQgmn*AX1Hx24P@$q&-ONO}tvf=}U>$0lv)TVMBlgK#KYbt%U$0`i0!-ZsZ}7
zxVX-;o)XZj6V7v=Olw`Kbs$Ek0?WOD1HRITS56C^9$bj2PbVZl9+a=szgSqUZ4Br)
zh9p3qM(#anYMhG*5C439DRTXBYf}gyqiFGq8{kqR#MlF?C~y0=08_f1n|BHJF&7a0
zqg1RDU1QjfrU~*Tb5k=mip>N~@CCTe9ZCd=jbisI@y0rE8W_8~`eBmtAP8decCUF$
zB>hAu6<iNbv-(brGOWuLn~s=Aks<-4>k8bm6=7`(WYe;o(Qk>W^TG~&*~;*x<`-O;
zN29HSBKC;8*2Jtwsiw_<B8WFTS_6>SZyZ${8XJ3e(R-i5YQ!}eJas*`^?2AtbPjaQ
zPiBtL!fBp*I==byXHMO?6X`}pRFS4>0=)cI-Oak{WS`n(5%(O6yKO^#VsdXS&ll+P
z@^uD(E(FbVt0ij+*hAC~floFA5=2tmt371vn{wb1dsMd;<)+Qna7nZ`aLuo1=nnWg
zExw6M8y~#)bxpKq&5NkFD6~O=h#{4zR%m*btMNLxS_1ngB8qicr-GX1JaI$&WV}qE
zWAdZ03WsP4@iIRY281t|Q-FJlHCw*azgld7wQYNt23g~)7lb?fw3v&?lUdu&Jn^w0
zu^=B6nF9CE4(+o8e|1!;2kzk0QZ7P6_Vnb&=u}`<Z(wStKHc`YA#-bSNtq)xVKXUt
zQ@%3+ygA4nPrm#*AVq=x{G`PWfMc%pK%&0O<w5<u1|Ffy+6@ilc;0ez|098VLN4R2
zKdu6T1@i9_uG7H-J9>3En#m@Si@u;bGso#Ym~SZk)uK3k&N{+z>=2-Tdyj>Z$BC$T
zpmMbZg+euRw2klwKXo*GV))y|&H06eo5hZVv^i4=28Mv?2BK*^Knocj*j#^rs?zJF
zC=a6F1Q&W+Q=rz|BLP&S<(TJ{O#eTjc1Odk!1a_>!i{c%*Z>=r01N&t_N<mLJ)>y_
zC{Tbq!ya%TaZxiTU6UdTWJFw4J{~U32gP%~1W@q)Ub)&0+LW*d0y+Gsw2R91pJI)K
zQ1z4WiEU8K`BKO3zB*cwbLih#+E`>Zb@={)`C1e%8Xw?r(n1q@Q4Nz=3@QVpl5x9s
zrH<7Y>enHC{#v301csWR`{Ryt_C>G}5FKZc^9U7j0d?^q-OX>W1+If{DLY9YRc@Zj
zfHqgYz=uDP<OExS=9eiABf2tXk*VsaK(E93gdwi=IT62=msry{8G<)g-7^eJ9zk@h
zt@pGKu}^#;j4<cyDb*5hNPTr`4!|-`?t2rDDsEJ3lhpg}E;9p%+Y8;$i*LT~gFHkE
zH6R-zg3?zPc=Y&j1)UND@cntoUEPjL*|uvJmE{}_2VZsFqG_gA&$XB`C|ZxzCCys#
zoxnrpDbwqXniOCz6Q7ur@tzy3{Y8GVO1X%&RRBeFR7I?XSVbUo)$w(r-zkbYv*;lx
zeP`H>=!j>R8#p7EHU!FpsBZ%KWTM<>M<W-wZ5l4Q5UnfB+>mwR{_y+nltbd()v>yi
zJf1)`Et(l{N5$sJ;v)WPp4tR$od{yZ%N)m?R#RZDk*vEwNAztK^Ur^8pFSEH`bVX?
z{i@JCR2Ewv^fkU?q6c&GYA_l|)vaOnJ}db5EWk0xj53~;;eRVW&E;zG+WHrbdM?QM
zX2G$ohudQw)|V}`iO4;mCs|TQB)&nk-nS5s0fp#2`4|QB(0=jmh=*9sq->wdN|jcI
zMNghQStIGSNV0|^7~-uQi4moxVv2}!t}b^4mCvl~KqSgj<_{X6TGznRr$}va6|voS
z>hFTwZ*?4-jC9&F69zSQiw6tkR-N(Ez#6`~i5dO5@#c9Qef_!Ws)gd{)IQ;?_cZ>u
zh90$Zp!v-glsOfFAQeKKnr68<`;lFd3J3sXVR-lC7>|8!{9M*ljxQ4b>!&d!h!&mD
zcY23<|Mj^=Yw8dlm=0N8A3}iuD6nYdy>Hap3>;&|q(FT<Cv-9jp-4TAv<adc)CYQi
zVwttM+v#t@$-|0Ll8~D1-{yQ)-l+|)udK^)Gl7Vx5g#5NCAivAOuyDX=YJqzjBazk
zv3MbB?iC04aXW>Rl-1O$EOWyo(?{nul-Cz2SH~<4Ucqj@NY1CJp^8u7U5RSesV9`<
zd;t>QxgEux!gH#zqi}<WUYU?Ml$cbuQ#Yw~M=^A+{`{SNgdGh)k*t_=6-nW*drlGP
z5t4nUB|5^Oalv-qT!jF;sGoiky91&OQ6ts583kD2Y_8OBnrrk1${c0&gBKkE)RRsN
zlq<5*Zp?z`DPEk^7x-HW&2-jb$^m%BFO+oY85kN2ZXnF9#!p2|@6`9}L12&rukt36
zB`)9wF?iA8i%h*(ceEE+-MFW(Upc>`I?yCljM$TuuLA<bTwKq;yVi$a^w|Uh^P{&Z
z((Bu|@3@xh^)9`nR#sKz*1Q|7aKbz)@>sKN+D7D?9q_65w4)5O{_?|yn+169hzoLv
zXlZRI!BV29sZHXqj!Xc{%9fF{!8h<e^3wgip`N|pJyNn=PCRuulN5>+A-HK{-^0mX
z?@FHSu#hpIEtX`56=?YRa)7;HMwR^?tU&%@?(SSlf@k3P$k|>>essVu>$!aBq(k6z
z31~mC)-UGup=;)7X=`@tpmY<Pc(1~r%j;q{YF1HDB3x8}sECaHc6wc46+PPB6vx9W
z6IYDLh1n`GGp`8N?=AN?H#OoqYupQmljNTrcg?X1`Y*NA;p30DT8VFqOuoN8|32h|
zGfqpBrm1#+J6Cewbe`Sl#k{%s9y_cJgJoL_SiEyq%oEhn)VLx!(VZy^?NfRN!9EJP
zdC;3D*11j@R9v#VJ{IQTcfmwls&7n6P4LX$c5fiUnMxbEWp~mOKN&onk899)Xts<`
zj2Y-GiqsLfp0lAAk*TasatuB-xSQPSks7wB|CK0Pp)*bNRLM&X{iC+|YqMfQ9;N!>
za*%i1QpnUv>ue!*YoVv6z_q2>tNe*G$E>1XSAQCp<c9s-w)|+=z1h4ej)M1E)oZPM
zai=Ag@eAhe^Ngmr2dk?ATp1rOQGN7fO7j`PVAi*rj!*=@BoQ5PsawAW*D))OMqqB>
zRM&aCmrTVR6L~r0utGh&AY{nY9X1gi1ZPJC2@ExMsd$t=hcNaL`mu=&Q&w0r>78v9
zQhwtEIX=xTxp0OElE*(PUd)s9{L95$%dqSpf?fsh5%bN{Q97|4xSw@ar<`gIWe?S`
zc=w2UZV_mz#sNy=Y^MCd)f8ymu}YSN_;^}(4p=7r^9n0NtC;)W6OxnbKvmGM9uvPb
zneI4yoR2LJypSnGV}RRw6K*r@ZG<j^_0STvvnXc)SJ>W0G5r~jW?>oAyxmlgbdl`s
zOEafyd~x54xPG#}3=by_-*DTo5kEpj2kvC<gFb-%aHV_|sQI}43GaHYz_`ju7=f#A
zPtsMdkI}M|=i{bVek(=<MtMeKg(lTy!M?Ike4KX)>noA*sHRk5)n<aHGojI=aiNSC
z?$lx9hBYesDA~1<QyMZ^#lNb-7eK+UeP*_|;Bocc7S+rT&v&|*j|u@t5`S?m!YV;w
zz*{ixi-3rT*F)?DfPZ(5t~gd#0Hyl)@lOTdE<hjA!u&wM;A3`;2Ki>Wl_8Z_+cDn!
ztQNo3DZ&jl#s-|%ZK^nqKb|+n=yiKDDVwap{WgWcV#PD0Evz0x{fvjsf43ZK-k137
zar4;K{TxOZ=<qVN`<x`ze*=ANxqcnlLcUb4Y-sba#h#)<vayE_EVN^xmcr5YoNO!^
zh8SPN{VMmlwRd_#FmAY<5QQlt(n9GP2%?;z53wZEk`K2*Rhj#*L8jF0w&x|C)Xh)V
zq%hO~7BI0&vaWO-TR*lq_y6YS=O3E=N<BH4`*CgF?u17_R}~Mo-|~h{jY*){5(wI@
zwVZ4d9uaG+^gb`{x~mHojLqm6Yjh3>DP+QBL7Qcgm#N$-j78V6TXE=k`@AzQP+tz{
zTh3IA5)Z)ZA-A#+59oTdZWzYz>Wx(fR63Fc(+fF{oj&?=HVcThFT}3+d4P_jwSN<s
zT<Rhu{EdG?$_x6{F*lE;ltJwLAB-gZ3kuiY#;RUwdjY%|9}L}kCSB$l=qA2!<Xkyk
zVvQ)vHml9?nV(~+avJrG*kFZ^Kw<tvL8sLLZ#C8%CLAN8F-PrT&fTfpep+5mTU=l|
zYf(yEu_7>KyB`xROPEUguv-#6?vMg+P41?X^9)*$d(9GXo2@8tZ_Y3#SFy8p@mP}X
zWO@JmFCCq1qzFlb;Y@B}bLHPn9O%sZ$7v}rN_nlk_USWBrkmKU3jv;@a{w^?)wg+{
zxU|^9V5Y(#f$MZv-W-$a-ZHpCF$X*C^#7oERCTrU%)<b$r!7f|?0fHHFzYPhZ?nO&
zpkVXD3bp)qb%MB(HY*NP$|71q1yOrM;l$NoUXdH}CjqSEp6UR%GK>G><HUKd5XIr)
zqy1GC&?BbxUtDRv3mWKO4x&<XD&%UH@c?2_Vk#z#D>+e8r1D9yd&*V1{FEg5-Py5k
z*qnN!voe$<j|AT5hL9?8M;Q^AS7BEA1gd3&0|Vn+U`&Sy@t5dic-x$0Y;0_#HcFQ<
zgg${ERrpqwH{C@_PLYZ7#y*&vh+!$c9;w(n!BAXgiL<5IS2!pp4>jvfWg&0@9J$Ba
zs5hKN0eNd-Ucx(<eicy!WqTXW{T{Y%Q!pv@J!tPEiWr&ZK~G#ljTLV~YF-QCq71oK
z`zQJuo9?9Bul*IKVD;pzWd6ys4=uqgVo_<<eScy4$pWZ~qfBC1^Me#H8j~*0CPMyV
zeJJsnmzdc`D4rUGq2QS!b{rk&K;jHvj^on+ncHA<<JyRBWN5VbfT6zqCcdw`qZ@2#
zt~TbI`Y4!#el+8o;FBfoprdyzmU=yM0kmNCiGUo_pt+I$TR%dd3h(_BJ7Ze@SwN#O
zYJf?kR2_X;n5H1eMMXC&R`+VTHG-Np{@zOrbxml|LxJ1(V4)5I?xfA_*hC)T$ZIJ5
zvPo(;9d))58R!cQ%Pd_%@RFXkD<kOxQ(2F7X&<Yj>MzR*3E>3*;c3XiA%lyLPYvkc
zcLq`NoZdu@XU5iIO7qz@u_gnX_3IJmV15%yZ5cKv1qB@Fl}$*dwZ<xq8!+TR88_%!
z#!5-~T#5h5$oF^~%4gsV-m0x;FP6)v(;+g@`zX7i1hbP;40Vj!lSuUksNKl$zjP(v
zxKdgF6KCMr=+(~af)oX^FKn+@+s+*y{*mh3T2bc6wl%X$vM$Ze&VE3?`38Kr5f>Nd
z2ND06Jwj~}Y-KnGe9F)7qO<7gh!di_FOU~PpA2YT{=CJvtlcfd-E@HV3arjvtJ63g
z-WtMTh=8i@nBA)5+3Z?&=Uf}J{hg;kxO2XALqMZ3x0BCS?)FahwLeloHe;1YV){jy
z39y3(;$LWip^U!`0rhPzA2s%jOB?)QEhnyTb|nTb6?*Staby_QI>CLt7-QN=cu&<g
zX!gX#Bsp7Wo2{(G+}fl3t3e0Y3Tfm~@L*;jFWXapZqY~PaG$B`hywYBtxMkf@@c@k
zFL~U|Nv<RJ7%;9`iZ0deX`xd$qos=)0s{`V+Jk6&jp+L*UXf^eP>W6NQvefOkhA>?
zq^)t?S}A7VyHcCO|H|RFh`CpH564WdA7b);-#(j*cv8By@!_r4+057oH0Q)Z$sjbm
z9OPFZrgB2KeJth&y7s-9{RvIZ+~W2}8gRwaretGeUX1|k2o(YOwDb($Us(`z79$#|
zk{+RO%qVZKq*@D7@gsh@?NZQ&!3FJV?C*<Ded_5MLG<(-sxF9MqRggh+JDOq&6&qU
z%O}Vx?)^B`R#)Y|@c&;i0t2<^AH0nxao<`mU7`b&2ES7^onKIjo2l#Ko_WA^zvY&o
zt|VWuNwPWk*?`n;s96`B>g5$WJ1U)8d<eF6wcbzA;8LcZW(6FT!)1j#1<4S9((o=Q
zN<tbbVtj0IZK)^DJwJ|y)tvsQDudvc)qjk(+=pQ#z55I@J08Bt@4RXF(XXY;F%@e(
zq>p4j=pD(!s#5?qrcJhy>eA97ibfolbiceb;|4R&uHZRUIy#fmf0T4i12aYOX09!l
znzLd<{}i4N-Foo%m5#Ldw%@k{;t|Hyo)sDUF=GP#RPkZ_L78z<sYu<<0y>y#QuJO_
zzMk{X1ux8pQNn^voX0n~<jvfjXwEY6vm_zp<=$N$FlHTkIXvWJ_F=OQzlWY!V#-YI
z8pBwnBnt}*k`I-V5$mf?zWGYmt{`^HcL?4CdgWi%oKoQU!Bm0Z&pW)9l=NpFqi$k3
z4HfuZ3r{mAU!57-Tv%S(<>O7T@`d5?0ZnJ8(ONwz>v@VbtMDMvPr#Kv=7c<h<C2YX
zhUO2+r}Z-CaE=qRvrgpdXcPD$*mRXf_v;TG0u~dzXb4r#{;LIDuCJ7{dv-|1>Yp|>
z+IeDI8$HA{V4-*Van#Ubid0s%et|Q{5XEwrOVSP>6-|&XEVK%%wGo~S2JS`s$-g)E
z-(Tt~ZhP>eWrj@#nqqsw__c1WS!6-%(Rd^))YJQx#BLWJhqx=uOmG&M*FGOH0F#xe
z-~NdSWdVo72~<>6I6sCR9U0Ey_YMvG?xUyjbv<1IUCvyw36IY@(k860jM!ZjVaEm@
zW$w%Et>1qZy?YR5Zf@GpPJY0SNs`A$p?3sibGlQa0<@jwI>|{=3vv(4ylfiBkI=;C
zKF<$NSS|(p`ljggpz;YUiZR$uUgfCD4~zs<2#v_t7|ZxXf%2d!+{IJtt0LUmTe?ri
zp~?-@oA|7HtAX_gW}*n%Or?eY_<Bh{21ES@F)Gb<o*l58?Z#C-2!>m?OMH*GO8gQG
zc~SA~dEdIpnF<CrID6*fb98gZklwRz?g5~|C~YbLPqi|X1bdCob3RinkSoj)rq-8R
zY1>?_f#EB`)s*PeO2;bSxLeqjHf}lzK3XlVaI0O_2S1NBfBZD|u>KEODKLDh@+;<2
zrmpU}zXhLPgW&@2;JI4`;yQa6Zia$!$!*rLylx>deEM;(ed~=nFW7LDGme+Lp86NS
z+RxLc5?LuJDL(+GokRcKY};#~@iu&JX#;GUSO-$kZ>9N;fX<UA3uL0!^Br+yS+U?0
z#Y5m4wf^Bn1_m1O9<4j)F*aKd_h3+^ya;HB<^1gsf=?VM=zu|QDpydX`G0r#;9p?+
z)7y5_=Xv6mxy`EpJ!MGg`8xk|>N;0ZDJVTHEr5|^&>c>89E0$DZ%D=d)rST?m1JeT
z@E43r;tQ@;6{xs=@lEiznT@z~9h(}1nsX=PLK-IocHb+|@^Y(BA-?eQ=g;>+j8P=F
z_#Ffn`sa1Jc8+FdlUIh|Q|G_(l<fVWt&qq_e&L!QL+L~EpxYO5eqdJ6iv8Xg-B1BL
z7*Ax^lG{h=9}B0lQqlx9?}Ja~LYoz53-0>qy9HyYGb5+lxeJUXwP2x5d`a4hi`kSO
z)>2bQ_~=9YAScM50*vRXnX5teW^$1h$CPiJu<_iXX{yN<^m`wkkKnL}69tCps(S?f
z6Lq_djOe95Fyt50ofFHkO0{r)nj|6jA-zXo*QPcO)vkU76Buct7l9-&*T_a5{Ek^#
z2Fk?x@(BR4uE-q{_iu#^{fRv0M@fK3ot}b@);<|og@BjRnVDyt<>jy#S0yYGoWL3a
ziV<YPh*Kqszf-l>|3=mR>qwBXEH3euWot5!VfG>!?54kFf4`$0RY*|(*Y@MH|H^L;
z9^}OS`+k&tG0-FzaH;(7MuPq&tC@Vba#d-_7EFmkihpw-1$i<Dun!+Mrvi0>^Y!C#
z9xwd=GJN-s#*;*+NjN}f3sm>Ni+3AC!u$LCXR>V@xguKPAxfaJm6+|*t%L)01h)Ic
zM(F=@W=<haz5AlFNk;4_;~#;KgAN`3a{nvt;5MZZzx9qvNI;-w96oUsWE?kd-c-;~
zm%b~o8%sY+f*LRqnBOhLrx}1T-HD00A#jgSqMaMs7x?-1YqW+VN(dcviCne^MjqBS
z4{`$F_rWaLyBon!)g#cZkXp$m4tp$<1#Q04uG%=GvDl?kq?>L%M6=i>`hBCyS|!WF
z+FK~K;{p0M=xqp`bO-X7h_rf|?&l$oe_cOYY8f7YPAT2g{O2jN?al7)?l3oZcjtXx
zV<qy)m^&h&;NmCvlhdt4w@?U7ZSWw+Aa}n-^ET>UxauD`!60{unv`x4<08n`+a#(S
z&iOZ?3<5aV_n!uQ!Ae0=>~sYR+L}Jkl=dBk{(guJqGV{8$c_FOCuG3&PWK5Fj|Al7
zJHtj$H~;TF2Go?j5PFZmNgM%GeLH-DB`cQ2Fup?FD|`Pc+uJ};-ctdT$z2;k6KDw|
zPA@a)SK>HEQd_q8ebvPy+cpg(Z9aKV3Ve0Fm}N>1Jji;x#k;$e!_Ufv?KOfThYSlR
z;_Pq%QFF(p<UIXL<@CzolUzec5Wd@j=@rQ~cmT=K%9G^%vX!kZH$y!=Xlv!F4j4tx
z$Lub()u%ZnJQbGE7pSP(_T-IeHwOd68qU$3PuH>a?ep`#UisU3Ak05KFATOxLqy)1
z0+-|lt$Z6eYq7|&R`Ko^2@lT79SQZPCR#G7%nHc$fHO1dfhlq}sT>bTa<&gCLXjVJ
z%Bj@E<no8GNr>{CS{W%*<LsO}>P(S#*U~`gDvDCi{T^|%_Ooke{0-=Nauci|QfpRC
zJN+7W09gn>vL`_+2YZs_bET3BaTgpu^%16PH*ppr@@be<4sQe9${@%=F1@lKYSM6_
z<T!o*x$I8m@#(k(r~m?J@ovGf%FL4r4v`KwL?DX|klIf|JslDH>{u{WD@YM6X5c~$
z1NezWxzFcp<kfT4Lg>9f4e>QtP)R^^ZUCOE=S~IfWOAPz4Hg)OK|V@?GYzu#c6Mvv
znbQuzMZmDl<8!-uetsf1_J|kJpq|?)8;z(VT{;eVtnSFDd<;&cx&xCoc6LV|AhG<S
z_+$_q^VIEN=k{AEX^xiPy9^wo@THLB>xe`3TvO%ni$Dm_NNrKrgG>IPj%rM(IlX=R
zb`X&ZIKPxYbZ`UMv62l@PIm^&y&OP*e1`~wXLF>ruvZFx7cYlzstZVNdwLxrgH8`)
zz=BNbQb|9n2wuuDW*3};Fz-s4!fl_3r)rr;a0Nzz`-iAmH0>!E6MFenm{}tSJ7#QT
zG`YA2Ybnite7*v|)}B2UfbW6xK;Pb|5~2M9X_@&^3rX3AbkomwHqXq-H=ERRdBM)&
zW42ETJ#Tuf%=n=<V18kPTIRF~6kx5r@YjN?Gu;m>9qCq&&YoRvT~*JeBKV9|qh)31
z%}GTK$X#g=Upbpt<WEh*|1xB3PE^f?hAM~moPVof9x^AlPy^yv@t~2!l5-Am!kU+x
z%Nmk-d<tJ!GFi{Gl8M^APLs6;)Ph>G2JqpJ8><{X4^GG-)pM}Q0`o|4Cay+3mkr3#
zP7=4R#@E8`fpaHvT*%ehwSW)T9(H`tRWJwl$B)wdlS2Gy12{iI!Snsb8&zI#j2NJ&
z4TA}xP94TP3mwOB@W`pv+|L+-7!-KQMjIxwSOkyP{k_l%3m*YQ!O=Tc<#2YuWaQQj
zAtp-Gcj_pG0r&~yoA3Up0q`y<4oRDtSL%U#N|!u_URjRp3JW>|6!#?E{b&X}8I;FC
z*&MWooAzU;;1hl7xqRt5pW93G31UNa_~WQK6Yp|lW@~F}m~QSs5P-nf@`30u3NJ@q
zDjJk$qMQJytQ-4$WGxe?F6h{e?e$t7o*Af9fZS_)JN3|;=X+Gw+4@Ks47XeCv@YCK
zcNVQL2v0W{y9O<qlk%%QU4iePB_<~mY|B|-v<O4>Ttm|#2qGr2qz+j!8F(hM?P0pU
zCf0y-R3gU3-k1hywLg<m$sgpv9dH5wf%#exXof^14f>aMrod@NQ=adghK7cuz_ZKu
zO6%*#AFH=OJ9em11Ib`+U_mUH{-V;wHg8`o@<*m-W@|*lkSm0fLi_7&u3sSIa?X?W
zq5wE$G7z;s1vLg$HaAnrkr-}Z5R3<A^>rW7v5B|G>3YhqkLRrZs$H808pj3(ev!F&
zIgfSbtrAV!gAm{_me#8m2(Hfi0tVMEzM%li?X!g4z@B4tUr^MSyu7({o?N7(J~39}
zMBKOr4#KO&>K5W_6JBT;sG~yY4Ou^&2Knu?j9Oo6bv-8hddOHVAmN(61^~pH=l>Vr
zcWRU%hNi*gO6=$>GydN*ZOT4SPEtP#mKI?uN${<qa^^52SARr*>F%98gWLkqM<O!A
zANe)Q!-H;uP8+rL+pgI1A{N|3!k+L0l`&yc0zv74k9%4QuHN~>cG`9}&Jlm0_Gky0
zI1zg0hLeBh?_Ez7^6Ivo@#~}H6M4AZ)WBF>{?ASEvdF}@ah>y;H71pAHOIEYp`_9h
z_Ii2yQ-b#XPkvmoX!Ar{?{$Gp1pb4}d9cg6+rc33qfvnbW80=XrY6GL^Q^bGSF+{#
z=FMqjZf<U~wS<#(CpU0%a)Pz??3FfvW4ht>kL*7tCQ8Gs)$)EW4`FJk(9^$uz2M`2
z!XKv&%ivFH$8B>HeKe$gJ2v$>&2tai-hO|5c6Qc*qiua>cQ=4an29pPa$?wgCSNJ@
zIMp2#L>0K(HnS4DD+G~0UNoBLVH_j~p@|Qv>FBt_)=moa^L`q1uWasAs-xVPy}wF(
zF^?*q5)%`{x>g?H#<>r2_4+qwHl5=2o(4U2X1bdrnX~)$=eFa}@$s<-N84STNsDxq
zsDwnNh=a=KmPUu8Q^pua2M-SquUviK&tpC-7h0aXI_K)k46Mq%!1ofIaeWm;F`Zq~
zlH~sHdvKDgGL;}b1&{VnRkT3@Pj(E4Xa#0yD*rs0Fu1BU&FkXGZdHbUVt7-O%)b#c
zO#X4=yNPNRvFA$FC#yDZt|s#DmX7i3OBP_DvU32^={ZO>fUrfExNXO9xKK+G9n;i@
zao^Sg=%&x^F7W5&xVfWQ&>9cAgwR~mveO3BQCTK3){22|K(|f*^-v<&)&XNMax?Fh
zd~(N`-Sm7`W7UUY7hfNq!$b`?(4AVUy^a|BFvZ;}l1JWnHIJxjT3b1Knk8!S85|d%
z)=|(lp5hS1Jw>q()EU;88AsPZq<*0ErlgM_d@VR&e3krutKo+`H=vU1=J%e14l*Z>
zG;5>`(v5L^bPr5!&QU9h70jrG-=5C=RdYmMy{0hD;E&t2vhy2;<XEPC^NNKlUbsa!
zJ48x5|4L?WPMc|YjU-L010~z1U?J8nKx9UYDJlJZaQ8DYa}BQzrBP*G0NVIK>vn>i
zHNyTq4y!?E$!#+gZ_@U>?Ea&6R6uc-rH?M*DEMcd(#Zw6H^|>Hvud@w$?$QS@sGdU
z0V#%hjK$V)G`B6cb4*>h!>wh6RUI3d0&Qgj1&0Ge8M!~H{>BhOa#s6zckIJK-+u13
z`9QKsl0eAmx9BXql{O%9?T`a7qkFDR?DsNg(<|f1@wGIl4E&>`eQ;BeYexPjqyCHN
R^Zyv~;I5Wxp|ZuR{{{3)F#Z4l

literal 13308
zcmch81z40_yY9@;EhQx&N(e}&)F6s5q!QAhNJvXd4vK=Lj&w?gbjJWA2z=7rF^F^x
zH4J@TzJH&y_xaDh_I37k_C9klyo<NiTKDrj_Y-UJ>8X|q1t~Kr2n3>lsXo>LfxzhN
zFEJr-CSbHB4mc3LR9ATn9D&ctqoyF>K;o)u<PHLn(OiGQ!*hY>Akb|P?D0cApVaNS
zx2Y!jbGW?$4I7y>FEwxDd$F1!kmuj@#)(L?97*pHhlRge%ZA)ZF;)bBVZTReTyXm~
zG4Wq_-enPIS+aw{nX$Rb<xj_lKkSgD^=kwMrLwGOsfs4OMx-R2AT7#}h*@{{onygY
zQmeBRoG`@y^G{K#Zm<pd$7K0g){BMpmu7PprVV-~ayq}pxLM&j&ff_(vQ?g}1Q@i=
z{Oc7i;0j`zXC1^z-xZXwv8_Nni+?|o%>Zx4CaQ`Z11g6kl9>`XCQ9_b4-p(<$Fo&l
zY6ho*Bf-v~ct{m|;7^zpyHeeTC|bahPq>oo;0vUM=sw7tKx^RO#MG>=<NkX`yx`TW
z#!^Ci8K$e0q57a-%z-fR^P;s2{h>1(O9~9c6<lu4bM(ltwhy&e@nZE!`%W)&UE=aw
z+VUM3pAxh!=A6`0c#&%LBkBb8%`SBp@*3^@4Lm7#szD|!`FsMJy*CbG!E4Vxer+kT
z*cEUvS&p;S{`Ap|zN4Cn<8^W525;v;w#-iC?^$lilAzAcGe2=hH-`9!*ws_Kk?i9R
zP7C-@g%6=h`v!b$sGQZ^KaWyck}o4pB5msg<ipF1jhie#$bJzNM!|3MmZ8a%6E-It
zk9mY-o_u$Fj1wP97gxB&5~we}H9lFc0cjDDbbKMcm0$6qZ>U`R$u3c6o(Q+(ywgxQ
zJDmvoo{U!*MQdn3t*dR%?K5`+P|QzrhOho&Y|#qddWV4%YZvbzM?Y5uF7tDrLN47L
z4ZR?OUe}%GRKCg9b&+K7Nf^vJ6B<-grBR`#X^XFTV-eGQ>3!($8ZBcH)@+_^WhmpT
zr980r8mZ=Y?2wn@t7I$oQ1wQ`Z+~RifLASfWkA$t=__*o_t+EOPUWG4x~$bDt9G#?
z|IdR(fobKp;)k78zl`wG=~nbKeeY4`dq7+6TU8Sh;A=pOC4g)Z&O&Y}cCk-;q)$vu
zyCI#UD0(jUqFdRu)=sw=D9XT;e8MHB;Zb7QRo0)KV24O{;nIkTIc-C3Sv+=73nN7<
zuP>X%n!Q5$=UJ9}3hSL639qriIURz#rGgBFe>6}V+vbEVYPdaia*c?OyJ~C0y_3>d
znUOv}ZIZmJg~?5)Mx(BtiV2nu^WD)81FI&4Q-P4wM|MA;V8`JP(i5PG$7Q>pHhl1X
zWSOxKr-R%tm2h|>jbul*muuu<6f7AMS_bjn2JsPkZrqkfHku*X!74Y5q2GxG*oo(&
zdPr1;AgP+tyB_3=sBe;L?$lw+&*nh7b}oAq;ArmZMwzO2gF1N9Uk5kNKn+cQRe1t<
z)=*==n=7k&XyavvCu(&HWv!NEtwy}G7V0#2(N2sZYkYcqF?7HYvQX*-$E)h(^?K{=
z*`Ug03wiER`_7fGTRZq9B-_$~1o|^+#5zz>^;LHEo-L@AKr+{=$KA|Sac$fbf`m=(
zzNO_bl6(G&bs=nH3R<+p*v6}n#%sg$N*&LF=u%bHbcDC%JC14E1X)teqe*<wEX7d>
z)sP<Cm{1-k<EWSiZD~!m`hgY|D;zuS@9x}Z_y^y3CWX$Zk7W*0_l;rXOR%_W4k|o8
z<6M;Mw`qGQ(LB_G5}Z5V3iLqwJ{R%y#wP7dC%A6tm7a#;W$?F)`-RJdH}NHN(mQc3
zBBFcXL4$$j>$j)1!Nv?!gMnj(Zro_ksAGp}i?~82=?1b4`Lxosm>K%zV%dr6{W<t=
zNZW@8%xm?j$s}g8*=s)CI?(BXk^Z_U>r`@620x2O^*@&(Z9|hudsX=}8eLEViI5bn
z`;eX7B~Ror_w3<f#l3N*CAKH^G!x=7=7I;}mW&8Jh-Zj9)SEN)cLf{f1C93Gz=}wF
zg@8XcmUdE5KiNg(nA<(uxhZF^<H8t;XSZ(9U`ifzGAVbtho4c8d)v+!QY^l^6LiPa
zi>B?QeL~rjoHO;9RVvOk(6v?*e)TD@N@#mk?)YwMkp$e8x3`Hbat3ru3pY|v&$|1&
zS^{%&YeZjY`7MespB3&9oKMW)WBBB(k6cus`$dTRgDa)_=7scUC&Fzp;~B)OP3ao-
zCqJNet@`M+5Op$1yeOlQezqVybY+3#olNEF80^gNi|A+rLz$0Q2a;U`{jPNg`&1oq
zg4z8}t&k>e>oa>jZ870bt}3}i*@=PlQB|^wD*l3tziF6eKv&@_V(ukNO(foA#&mrP
z+tuux`i^sZ1F7sCk_<SXXq@}lgY@$L)uBLLQeuM?`<^29wg;V8pPFMVcB;fa)QS+p
zc49*KJp#m;Yd?Oj7V}mOuZ!kLZB6C>Xb^lA(Vfnns!qO`b#H=3aAl8XaiDGUZKoOD
zEVZT;eI|YS-pvj(7E^?b=e@-?>IU*V=k-)~XL~JgXL3otACzHyQtymWRO&&CDmmEF
zPB$ex{51#Zm%3a;!9s36mjjR9Fn*deGaCT^tiinhQ}%AS!;MTbq!=Et3bk#c#6s9d
zD#FtIX0ibJHujIbV@Y8z4PmOByy&tae~RdpY+mL-mPIx59{9FhD|Ro<thg!tc)>(U
zY{#PN<8qNZ<BPXcch12+?=UK@!R1=NMX1kuPb$`bCX7Ye`Lx`0&2)-f6Jx(~sBkVX
z>F?dfCDp23Z}wuAj?|lAf~Hg>zG3_KPKXo#lGn7!%+wOi*qoA~0n5*iR9Q>x_mA9a
z;rd!G)QE?+&UZQA(TChL&HIjxx5JHx@ZYYvVa$<q@%pt}o!)-bl^;4ZB;eEQwisMr
z2tTJhTZE@9T209z_bIYx-RCYLu@tji-V*!!3Y1ax0^@CW`Bm!>D0?e+^&hI7=H>JU
z+dLy~SK8twz0KiNAO&T+hb7$Aa1|O~iu4EtXsWA#4M05TNn2*(xeBuEw|(a04I8uU
z(h|(A51!Y87X@|q5=G+&1J~7vd!(w0Me9B}W?Io~s??`E%XGT0T<^K4p|soXI$c*1
z8hk+f>B`_)Kt}=B{VI36)~_QkWz0u>t=f>Q%nVAqkL5F)PU|WbldN+T+VG3rlC{=e
z&czSzGl6a;Ss}G)1GmobGQKr`mvncUXUHBHqoFi5iZ^>0@4pn3;L5sqKmzS=0#i{N
zyRm0B(@T9Vw-7$ll4aU^92*e0B@x1Yp#Afs6N4s?33I)0@_0kY^P|M#H?{beH=DJn
z1Cbma4MCCR8e-mOQ<2dE`z6EzgT1(pQP!(o29lsK$=lW9y91~Gr82r9P)3Om!K0)h
ze`luV=!uLWLZp%(P47{@J@uku{)=aGq12SleAQ8!oYnmXv^2kc+N@Q&s2hF7mRuCO
z=A->ZOQzUqX@WW((e(w<nsD!|#fHwg#Pamv5Geg-M>jTR1%^<2DelU!sDhzxQ+TvC
znd>Kz$?wiquC1pK87*a%p`n@+GqiVa0{YYZDi?*51@k<yHlZ<Y(+qi4o;Zkz@V*L=
z2<K^`lBRW$D}70MeoCGBA!+@2-)!FQ{MyAWrFRZ@JQiwi7*9%s+_e&$i%l5}L_MW_
zapj|~*A+M<_p?b{JMZENX~#G)`FcC1^9a{)4XoKax3LGGF+7%BnG)vgQGU#sAK1#E
z&YX*3OIw0#Hq&31e3Z!ENG#R|YqSBhYo^_0!bi!m#ji!}%Nb8odK{qf{QgPfw=Ua`
zo6wCwXj`RkI3}NSp}r<$`vn(9TgipO<D!!eQQcojo6LDc;`LDdKa66Jm?Y9-hW&Cz
z)*som9v5-K$Q<nL^SDG7{p(CNOLP+9T(E7L9+LUUhlm{f>%Y|CB!>UmtY^v7&QMsJ
zw2HaNP+BTBthiG%VeZFjRG6suwxRZYdi}g@Z{kq(Lf{!ILf#*{H5K)hTk}+dM&yVy
z?Sidd^Ik@a7oCUJgsFSq<jKJ*)nEEvy&_%6%AqGLC7-CyR-{@_J}q2b9(#lCo7R^H
zjut$V0+BNcTQ0uoV)ecl2)aB7l9G_9k(7`qNfxnsG7<_sU!+eOSYc_MG_)N^pTjK+
z1)b1R$sZ1G&m|cw8`#O>&R3yV-IEnoWX?o>I}NK7HvOq@jY^Lw2dAfv-BDnoTQW}5
z)!O82a<~$QvSzRDheWK^-~8QUEwEm(TKVpmOfC)%o5LB0^W_1hJzk$(SdW*TlunZ1
z!3SE<qb+SG@nQu(obGOMLBK(uRFH`0#%PylyRnIh!+hY`HpP=j#tKO>#|VL1pYsj|
z3*;eym&2q@ij!c&T2@55y`!U}?CDx|M&loZx>x<>>E@M?xl7Al#3xVS5yQ0IuI&#D
z=8UetKk@8bq420?jm~Gw&TRc6*i+p*r$X6<u>mtbz77Z$2V5LY1ik5?H=vuPyzU&l
zUvj)~z9MBc@4Hz-vC^M**4mRGq^+4Q_qOgmrOet7w|-qye^!R+=yBzSjgp*^eud4g
z7frk8E!&nS>Q%aB&Dd$7QsjPjko8Av7owB#Hx~2Uu^Csd;2ak$#{F|P*}+pW+K$pW
zr6na+=BW?dSKve0Dy{VF&vkW22!$<C@Y?C=>3BW9IKo8fH@~xz#B80@<(mP@*^984
zbw{Iu4Jg?a&by=*{0}~Y%8>hNS5Z>)IKM)@jg`j6MwTTr#VPAhHs7_qptG5UXti9O
zx>^5&J{Cc9WW8XV+8jbH*LnVBgn*XcQj`?44WM-5FWN$uB!SntP%#Rl6QCFC+I9GU
zT{`|^aHA6TaJ`Br(_)1RpS{7fu#Dx8tWz?S{HkGn^~YpaQ&ZDHYSy*A;ZZ216O*jh
zR&t7S<NA-+BY70^=a_bAJd^E+rqqQXGHA}GJLbVkVsmnGa^M$W01dd`5p^NQE>dDP
zy>`<tLRnixy|yN+2q|y*ET61qKq+NPmwJR+{i}Qoek0!=j1RCu1t)5g)cwzT>q?fB
zWA3diNzHkT{F2>89x%9%rLneGzaIIhl_<O@4ObUx_K4_p>y^6d*q9g{tsGj7VNASW
zZ0ynUOmiY?7#BI*2Gnp0vXfO?TMG;**~5P_La3$Q&&g@Kblsy7JL^6mUuMx7_!<rf
zp{j{{0_Q#FIZ=>c5%{+K?ZHY~x#f>{r_IOnXR+Ba3a4%SWk|R0@2M1UExfvU=fZJn
zx!3lTSSZ%CHD#N@>N5=E>5ICGaB_0GaCC5R=%Y6<tyq7ZpH|zIWSf362|O;kv!0)!
z;I}<pQ{%T?GqIkZ<~4m%2T(y-CG`8bn-dY!$@m!nlH@L62&oMN3TOU=su}+KzeYY%
zvNlSNxJ7Sh{y3WuK(Ttyiuj%$uFv!)iLL(8h~S^_azCE)w!rT92)UeXRSg8@*VNS5
zw1tqYW(1zDFMKLnnyRvun)jM<+ST;#Pkpdd*)<TmJR?bVKjnC%ujU$RCNUfF=KXH|
z8HIyhv4y^!-+c`2fYu780?OI@2p|mjwT8+&j2CBEcMeEgbznt3m9bu*9a!1j{^B?|
zJC)3w)j*kvJI~g~xv%zbV_aN%1nT?`|F&uG*0Z?+7eG-hq*qhj(}{clbN%Spv|TG?
zJMqQgoQTcGa_er4oZDZYIUXq_Y2`c2Oi$~4Hz+HWUy2m7VFNl)xxTw;t7*3-Cf%)@
zcffk%m!Rz4Puh&Kl9GVkF3Y{&9iB})jhiG@wgdBp!0ZEo*&l;rw(FOoV{8Kdh?eY~
zo}PM~SMlAS@cR74r5R5nUG4<>l}Gzh`&wE6|Fs77Nla*PdBG-o1M9Xt{Z5t>pnHRl
zsGR&~-*nBf?_&FF=8BD~^1RNr>w;WZgVr9gpB^6!K%wP@g@qCeGW`;lgPD&^_BE}J
zHpXf?IIB%(j7v|#Is>E)_66wLa}&%@ap)iK%Ti=KH;%<%ybI@B)gxLxvJrLP0ohM&
z`V7b)BT-ID4U+_O$`_|c>M^$-xLyA4h*&r~K%BgIuvOl^62&C8awNM`ZzYcElUhJt
zeBw!$mT!tSUD~baVsqI7xYPT-QRSb+@$vD2ypi?0%q%Q3*9?nY3}tUw2TZPYD>IZW
z83*V-Mfd1eGwiUs5QS;wt6yl1lUQEeT4reA`2oK{shmxBEbmvbx%E9EQ%y}=x|Fzh
zbqDl&+rKC&z(mq3l|6zpNC4>-U?f|0Zp+;qQBhG&RW^OoMb~Fbn|7FMUUr0MVlF+;
za7!^|bzN+J$T#g2Qd`Zy>0`mP1c#>Ac6N4tD@nErm9C3zr-0RsL62wMWt{<G^OKb<
znJzITKdFFLH`Lac9)O=37)&IWrTdHc?|;pZJ1nm1Kivb!-{;T9*!P7qd46$dZfrB_
zALFiwn*v4NDNhBtEiLtvy^oWzZL(7_{1)cr_J98RvU~RXa?2Kawp5s(-sn);DA=@B
z2~7*YPN|e$duyM)-yG~Gf2qXNCwtkPXGhD}?-V@Cz8S?VVQ&vGhl@(|t+yN~gO>fc
zIi12$fs3=_*38Vz#kn_2oz32K)?QP=L~Ql0C;Q8r*4QOB_g;}Ic7M!|7{DQ$`CVNc
zGt5%ePT8b1vs^j8Q7`p2YLIF6U2SLg;W>LVMIlsj-%Ivh^*j~y9Mj;v5O9nI5N*9S
z+aO=e526K$*TXr=n`Nz+GZYjQQW|M8o^^S7c^v@2vH-U)tFU^G&I;7cy7h-q-!1Lk
z+U=>Eiv$#=b*U=`>i1Ps@}z@=C)L#o_?Y;!F8J*>XD?MOGedRbU6?`diKs4_%wioB
zM6F9oN+jApQZz|V*j8F4iduKyd{0PW?AiZdRW4{qnE|La#sr;*DII(*+i{fWb1)b<
z#U3yG3hcdF3iy7lY<K+5ao5BU!z@wMAml{LXKvBNGMv9>L%y+m?T9=&nQZ;HF3)za
z0v_Zaw2=vsO9TAw)v_FK!sj*WEW#&oCI6`>=i3Jf35idR?X_?&&z^A;m*%2rMA_)q
zNk}~Bku`7<wxO<pLU3}S@bANPAb&T%m6?%jO2`qbBSuTnHOzlkD|K9kiMK%Hzn)1J
zR%WUqMx`S0l7oZ5{K2}F-6{NRUpQd_D0X;S_5=mW6Gb;&HfjxYP)Hs>v=>{zjOIa&
z4LQ)3bHc1$g@o^SVaVW{!N_BhIH15L#U>5ao;nWpNEd}6s-sEG=w4ZNWPRo=g!s;E
z6H^hk#N|8Qz&KdicVvATT@{aH#0m`i*Tj0}P1K&Zu2}a3>UPV-A=BM>yYB{@L@@5g
zpyc0nE8s=mGkT1OeWb}(GgH5tF6xY)j8fBCK-k*u4=)>Nf;3Rg8rls^?NQ3n353)8
za>MmPMmhweqoazS*d%J2OR{yC#)cu6%pY73Pb~@+IblU1_OHR(9H#JW!GTAJ9P`{{
z#0(cfw_vFu9fDI|v8Ea>D=T_38UC09rt?8h9n#-&qEws0NArObMz14q9os5&{42u$
z2JHW;<_3cD+s|4&Y_D$ZUEzGU%z~d!D2mH29C`UQ>c)`OMKwp-xy8DO@Ua;h44>tT
z^vY#LbpoqrueXs`gzbSI=#TAZaYb#reTfIdMPuBSuwQFVB)H|ZF9Ts}1X;r~UVov+
zA4v($@tt2rK3GTSbHmL3C|JS}G?svzdBMN~|HaLx2_7JkZ1`RH9Gn_;2ThIkLYLq#
z0X3^XMY#k>eql03kST=*VJZGbuq|BvE14!DXZU;kP0Sbyi*hh(XUBJjT!Q_}habWa
zdV+u~*(i`{`Hq2lf-s%3X96U+@HLTeY@$8<D7YsJ&^+HLdl+gJBBUJi+>&CD5J}!k
z(64bHxX}I07z?h0Fet}7R18w0F(2>nJq177kEO`-y>u;b;j0etn$T(UR@R}?6(Esz
zetWnU9RulF;hjlz6;6l^d)Ce(H1DdnwED4l!o`Vq!=w?}a9KjIJAa8i*S8Q-4nXjI
zXQp)(RDsmp6q#=xx|?v9c$Go@ligazM$j)K+R$C(#b1cg<I#g%*F)YBW_6vUobXLv
zvq~wT($5LY)e{gvmw^i*%SUmfj}bX)1powe--0orw<rF6HO=?ZN#Fg;2AFXUFynj=
zoj_gXYjaa7;sOH(pZ|X*WB(>E`_DE<xmXo@eNjJ9&M0EE6S@r5tf>C(4ImLWKqB*m
zK1`EfL$E)&A?OwXQdPAd!Fj|CTxcQ05p$5>o!_b_l_tjFyYga|Unza%EIb5;=t6{K
z_Pe@SZgF@zfa;@5fKw4__328|;B>w5?&oJ-=wvu)jHQ|2t?P^?d}OvCnP{%5Jjt>f
zM17$+qB{OwvTYH53QitzieNxC0fHOjfdy#RaH36ut>6|ayD{J7jU*uhbVdX0St^1m
zH?RT*X@NC`R2TmFRQ|3RLyrIs*;@Yo;5=iX>+2Hg&3mHA(+l&ND8XO&@VVWTOYA%E
ziTENJ*oHeW)C}-BYrUxN6?3`mp|1;C42I7I(`f*>!5p%sy2f2fu+q`J1LM2{=vaX<
zjcez-96Ue{G)2qe0OOw0UDG9rFd&my(0@}CZm))F0$Jcmewt^8%u=Qjk8;t+a>ACM
z0_I_emib0fPlmHV_n?H}^1)Szf3dLm<yYvtC>k`WB>@Lh89p1>25*)A*?^DbuAH^(
z<0I8({i`4EH?)dNN;CmJsjWSfRZl2u&eJ<8v{jXmWHZ+_s8e3Icg(gv>2?Sv$o*cm
z`aK?Bj?|E?*_>X!l|^0(uRWsJmI-5=UKy3$m@{wR8=pd{uz9#t$D&h2s@;lNAk#zz
zXwRWK*<CJ|g&dz3o!->&^Ehf#Vb7qPwJ4JDdk^S!9XKB%1<C;D;bq|O5Gqj48oZKs
z2Sj>=3iBk<De|&<LS^a>q-Y7nExT9e>k?ewHRM$^oi;IP-h4)${1$IZKB%ZaHv^dB
z46cob1(|bK>v`j~P*sCl!CKma;y?|k%-9&!L#!g-wM|U^se795+6P+e0UVIQ1tYo*
z(|Mq$&QJ}wMYT+P|69VvI>CU~OrTRk0gGh8t$0Kb3i?l~fLHkT6w*RIc>{NIG4`7^
zN<ZX%_Euv&=WAAvc-0Y<7-}N81RfB~6Z|3Mz{`mqFi?s#F0_m#&Eh*oDlh}&Q7{$c
zJ-jtmL=rIQ5+xE`C`uNUPcmUYPhOwwYCovdR+GdN_do%-nya)5hC))Q=o;zFYBE#+
zZ?Df6t9WJlbJawhJ`5NrEK_i;1TJJlAxk=0>c4pH<mv3eSMjd8A@#Ds`NAaXh-xj;
z8o1Q&3$tD))a3q$yD*)Fr}w}Ms?t|=+>%>9N<D@M&XV^^W`nliW3Vkm`$j2Tf(Ykx
z(hl&pH-9YL0M8GS9efl_fSOgiwgwl2d*BI>ELawFWMr+|bMrckP|U<X4?tU?gn~Qb
zNK_CxEt$aj*v)b<#`(j`FPwz~_dMthx5AadUDSwX;C3YdUIpO~uG;8_Mlm`~G(KP)
zgX_J)R`L<RnC$5`-nDS@EeNShaa)I3OACW>+^$5f@{5*b>mg?}4B24DFZqs)X$yhR
z5IN!ZV&QcKhI9|fFpQW7=<le9s4`-MKd01~uXi>Q@o#<2cf60m$f)qbbV&3zxA6@i
zb;>bOa3Q*rhO=w7_}uCVfU4{{&ecSZkw<T=U6d-eRz5ilbOA9u_en-@#_4C`BcU&#
zTX#dUV>zld2JSz)MPXf_i^wU`zX!HZlLl?NR4>r48=*r)e?HrK_#EIv(hoG4drA=u
z)3mROkpGa08fpU1BHX-=x|AY-(bXx*3IKP4A3)_5nyu}j;YDzM@N&rJBXvZMCm@_w
zvMu#``b9f5E4uH0Vb1>KQgCCY=SBno;FHV%)LoL2h2Et{D1FpV(w~4_%AOYx_*+N6
zXuUJb^S4M#=Tp)8=mIzVJ1`v!odSYXv-mrvtPZ{>ZGcEz0N@P3M-|5<AuO!^wZ+sh
z#3&J<>2WRV?|=?IN);pkA;Je^l!}h&yO!L?6@Y5l(y5iRL!9xs!R>H);)&3CFe9BG
zU=M<PqmcO<lhi(dKCPnOqUw5>07_~$%e;wMM7bNan?n@LT3k6{8!V(;XcZEe^o}Ch
zVwvn8dctrxgnExs4vBDaq$(!B7Acwn2-*V(%A$PQN{A<jZi3u<=u{}mMKH#Pr(&pz
zXHycWG{Hy$VGxM+^YvZ;#YT-0Aa4CFBim=kkLCv!DgHF^FE=Q5t)mLojwXW3APgWV
zess)7V2TdF6whe2WPS0a1(|DUq^ro^q>{)nHK&u`B0Z<|VZ`Yr<pH|#lGO8|1?d*#
zK9?yGGujC4f@<K3UV3YJSBc@!zO7{?^7*%*FGsh?Q<L)@IWhS=g!c;XU>zA14h=>}
zYvT%9nC)?!$ppKppP8OQeK6TIN1p9!dQc|;fj)<X`*ZIxCPpMyXB4dd7Mew+uM9*r
z>S~&Yk#>8RxkcI?ys>Z<YGdSJ%aw$Fo^%VrES~=-*XTX{keyZWOlAK!UyjZ>eE+!N
z3%^Xuiq&(rl2X_oNr{>F)`20^P29z_(+|`1_g)-rN;p+64G2wtqdUUuJzwl_5%S$g
z;^s?$hf<}Kw}(;rFZFPp$@}exh%u|_Cxjc=-EB?(d;>g9Or*j}Xln9N`jWyQTu+XZ
zcO}Q%S-iK^70jOS0x$@!yr*P7qM7=q@=6St5tJL+$~xSduv~WWW>^#|c?}4q%XI&t
z!O{e;#TTn{r1)=)7|ZP70V0|J=4Jt@#a~gO0^*4~AFyB{0zy5$8-VLX06cgHoq)<i
z`TCG40aTs$l;JQYYd`4Ey_p=jzm4dR8mb+xjJio5tqgGRT?2;08Kd3Z!pFA(h2iQj
zby``nj!^=x<h`1p0kV{i9`76Dl+_Dxj<_Q>bdnq4HFqWOgP|Jr-0q#(M!R6_J(I`4
zv)~3A%sl<yk9G$9Q(E;OMf#+3RMN1!@C!III?yt(5*VYNF%Su*v-&l&Vr0t6gsFY#
zajrD~Gnk#1#-8$^T0$Ij@Jy-Bi6>jbe7!&l$@yFDDD^ptr_Bq4KaQ?a)N-FB6t#?x
z*T#3Krvwoe-`7t=_{IR<@r~aNXV4cB*2(XG4Yc4PKj%B*V|HYI=9-tjR%|^8#5Tu7
z^63Xan^#V9W8@^Rv@D+&Zp4oI>FGk!RqK}*MZXD1BBOtsl$I&Sm=fMVl*j5`T^6q3
zVVQL+Pn|CgQYGZ{D>pcgM8^>DGQ#Kx^My2h>|3-+90g#e`$h5i{z}1>3m^ynYqt~k
zR6yk+!^{0R&LbIlj_VL~^S?9%{pXh{*6^U;{=-3EN2h;uZpT^SPEmT_=y5j6cL6Gm
z1VXnUa6JRgY#c)iCkl?gv-ukT$uchs?5GasSIIGy9XpRd9$&8o`?X2rX!u)(0Z(1s
z)YeE}9l}O-j-N<;4l<;ra3R=PQ<C=sW%TIQ@?z|ymUMZZNR3~;X!?OyS5#J_nUK{o
zVNkLTb@<i&)nxHhXOySVcT{qe9ctN|cr_vX64#VlP*&5>;I-^f25t5lLc{=1s1?TJ
zBS~?D!fc6zsd(qPEJx=Of17WX$xxy0kwjsqgV&Vr#lxcpET_ku%WCgxiZ)U&xtmiz
zVY;y~O2KmwP2IFBT2D7tV%8YRwD6#=BHuGX-y~s642aOB(co_iQvkQ}#Q?c(R}Bqi
zcVp7$FrY%<StJ6s?QI7<Dy&(r#uHfk8RhwBT>rQAoBwQ{@Xs$(l;A=?Ln)xpYZuWd
zBUDZf1Q3iVAebvEVHO+>M$YxRB*5nSz|~ME7%+cIPZ-gSh8vTViI40^S}7vAInhu^
z9k^AUPZ}`)5@Q;S4|;6vNbVa&BD-I!`u|S1Fdbe%c9-(y92lF!OA|#IUo)!S`<3a?
z$1$eSpeG(uioiPxfh;hH2<N|bVO=qy0?OBuyamMV-+>s=1rOS->%~%D`wsAHdR~Cl
z3jX}V4}j*YbX@|O5c%&6;s22u6y)L0{@dz|o;hH7U10TKez??ifo8YN2Oy`oXJ*6T
z$AS3gR2arVkSU1<Sc`DjtiTq6sgSc?3cf0S6bam<0c1lkROZm81nLc{1BeI=nw}2G
zq1WZCH^JW<nKC$GT>3zM@S?3{L3!v*+*QUEjB&WF|4QBkfNLD@i3jvC09XDsT%pIi
z#{|-3iJC`00Y3=SQ-A44C@rKtMFr0z?F0geDFAjtJKm?Yl`o$G(1FKdugg(l|6Gpx
zk9hMxeebt?PW0Wcl!}NPoef?RT<708S1eFGxxFuOTmKuf<u6}C2+JQ{mbu)p`Kzfs
zPn>_PIEHlad7DhG8Y7sT_f1+E#6jIOU+)M|M{RHmS#_zEd=o@vnRkZV2Pqpz=~58n
zcuc)1;UQaee<Y#U&L;p^7XV)g>Zj>&jZ!h4qtGQ#X<#7*F<N)pS9e<Gza6y%msQuv
z9DNVuhJ^Jwic=lR<9mvSe=QTYwH^zalnIV`%{iOIZ1mf@Kd?IO*)=^|Xpql6v+&h+
z;u|YJV&aM7(}x6Zrk^ESv|yzI8Af^Zdp<&IzV2J`|IhjpE>^4CrAYO<R;60Q2^4Go
zzvP#VIe1}A1h>Fjgpr_|;22OHo(mUa0-!+#K-I!5*a!te+gpmday_Mz!`n(SwFA`8
z9H^v~5!Mo!_b^}HcBREoq2I?*sv&aR0P2%t_L0?|Ixj#n65-{q@UoE3PIuIU4CjX%
z9TQsRj-Gfcr1WI1)KH+pd(Udt50Sd*=ey^fdQR@V8x|>A`Nqa?#U$<eMj{MG<K5U+
zN?z{_`VAwT{VuYpdMC?kKi2Auwr1s)K+8EL?bhRjT59&=4OUupfqH@QuoJ77(|u#)
z%G@?|uL~iNO%O5f1bS{g-`bRCy_3-I<758lkv&k}adCDov6xAX9%$bPl9Mc}{dq9>
zBE?a?uKDthRI3=VYC_g!y#DtyJaw!0@yN>=S%&7f#~BL($`?6>u)1m_8+*0Q(C>I2
z?NhH`@k7&G>MZc%-%e&t*uEqN^L;N(Gc$GG4ec_snKDl&hx6k%9c^8gY34GUP_C5F
z_&9!pp9^(0)xAOcIWEUSMi>0gu|)CK^AkBE5#|k-b!6rj+i4DJqQT>}dM4w(&-eO?
z0+lDJQcqr#fyapg!RPlf>w&;}Ob6vna`kx_2*BPFV44d|fof+q_d3Xp5&w{fbJ032
zlK=m12kWTV1*2Uw8_)7Rm;OB*P`~BZ%6!X6evWXJDhdM6=u1{-IT6i13Oiu4OffXF
z-7H|H3ukY;s3^NTTYmY%Qitn3zmDyJD=%v+(U{N3VgE`dkADVP-y?0Df_H7nama2J
z-xeqOk5(rP91$$COqFlq*4J)@+6$SKBDe{8#K-bHUk62ia{YEQk+>R!SJ}yL!^)MJ
zh|?yLyfZ85LE9EH@-dF0>f6he7o_Ft%a8btD`uYgpWB})cuP{rFP@oh)tZ+q*m9xq
zWfmB@Ay=h}_vhl|soIGx=BFpiBj8s2OnOq9cwXJi&wFKxZZ`amIittyk#-E5O&th-
zz_6~tNJ~QPuM})wtz_m0W*j(e%CDcz7Ebr849T1lzIeaOD?0O7MzWZGQXtr{F^j!i
z9^*C~?4fJBSEh}7=!<+w?P=EXww}chd`{13vHq>Gpz3Ilwq;=N?b@e>)%5a`@1!1B
zm*OvNb4FvgC*+WzTbgT>(;!3qS^dTO#;lK+n3Kp`*7A$&?wPpOC%7LPc%gct1%iCy
zR5xgT2%_xUs2n9W9NB!^jvq|O9mejui_G`}*fR9pbbZSTYz{6~lld$-O(va+v2tg{
z=vq2wQPX>IloR4$*Q3nDmEms?!!}Ke>SXJxJO`ghgVsnbuha;}l+*r}(Q0yN`hLI;
z?~L!SM0n3;6KWYoG(>R#*QTYMo@B>?TrIMwmyhw<sAG8sD^g1G?{Qy>mxFLju1`Pw
z-Uu%(elOYPrSBA;bPeHZN@)6FKq=O#IY$GvT*XmNfO!QBqCFU;*oLiumP=vsAK&eE
z5`DoGl$4(2Pu5{U<PR>0nJ=SCRg<pIOZJeY>Y~NM#zE|aEtKcE2=L9!#O;FV)`1Tz
znZR#(YZHSwX@skSv5c=cUPce|DtTK%mN9*D=(CWhAOcr`MY%Tn5!JA!xad{eKyf}H
zK#>Zoa9}Kc`W+8mExhOg*GOQCCL1?cjQA|@ige3x>V~X-ubiT1P=+ipbWFgGqe&Td
zx9abul>cz!%)et=IugkQ<U1?2t;GI<+Ea>XXG@B5_CexVwq|H?%E<Q|rGs%6e?sYR
zN+XRVjOLlI3mFPDWk7|r$Kbx9B>^S38Ci!^9yoQ{sBRslNX{D0?34Cx6$(%B>fX5a
z^|t6%lhD^U#k6yu+RgL5e!`TO0_i8(5qi^nVoL0vuQZ|~WC?j*^PR|x=oD-fybA^r
z;K(R3YD2>xiN8l?n0;teRd(y{a8`Ik4|sYr$Hk6%Oe|CBD10R@86FoMP3t*8t&#+_
za29r*$(CD<mp=@_mlE}5cd22eKq{)<`TF|m>j}-a+2CCgfzrNx4R=OYp>p#2^v_$Z
zH~0rMT<qyo__s?Aac9&hwYH4V$fe-BR=WosDRVTe<g>)ZVcp!F-8SHi@Q*?SfuPai
zB_w#3sjo{7O@%5bZnU9p^tqzAPpB2~``nCfRZoeZ?i;wCGkJgk{{H2WsiL8?z|bML
zr)Z%6v^J=0C24{mZq~@;;@wG9ABhQlhVVt2l1PjBx2_#|C=D|{#8t38R((YqteO2r
zl*H$*lDf4<@M|p|4}l5D3^k&Sp|V>HwxMGgV>m@nQ6HwjqK&eM+Q|Frvor$oA(f8D
zyl;KL!4VnVH&YXGF>nz~w4UhGDC@#h6Otp%?|@TBm1VuAgqRcMQDfhaQyXUxJz2UW
zz%AI}d{ONv$%;msA(0>6l9%eJJ``N;fMnNV!0c0<>=K?o0q#j~V$Sg-K}q@s{d~r~
zVH6+Q>|4~JOfoJ1!q@T)FClcF+)=5v9mfLA*xoHn59CetP(_5;SpY{`M~X=DXVub(
zjX)+GwX3RQsylq_nVA8Y)@^iT>}`)79^0MjkkD6gX)K!V4_x^(32>B|5`F^Z{2VW$
zVt(6mRJRO3qPvry*fh|KDWIl8mJ<e^JnJ=!@;2+V(C{0G)cZ_gC_l!H46<03MUjNW
z50!-A)9;2ir(*Do?bugOL&j}pt2XIg2VRdPbx<_QFFM+6t><N#!B@WwdxKRc3#AAb
ziOgKN;6di7p7fn}lV>(<3g;AAU3_gri+!jC;!WX%mt7Wmx4qy}K0#y+i9Qq7=Nz0>
zRA%zmT@NXuvyo6<u$<bYi?{d-3sa<@=fGM3_VQ;v0V=fWW7MWsPI-Lv8HtK*97DL2
z)wAftT0-;9m-o$*>W<(n@OF}(CiWL^S7+)>|B?+U#ezcunl6ZY{zMopjd{E|@2B)Q
z<H@8qg)If!^2uo)Jq0$Ka{}Vc2;%nm(LcbqfG95$RmQz>=H6=RF@$VAl1BJK-BMJf
zQQRZUa|q9w{9}XZV_Ii&|L<gbHb_lXwT!5j(~QzzT`%7lcv#P$QeVmyhrOI3n#_zC
z=}A;i3>}~`UXehBuKAP?-<me5?})UBoXM)^U)K$JUz?+q1RtZ7d#I{)K%&x_t}Xpi
zdd9KswPKmd5+$UxpV^jzWBuauV0gc^3;I=CODh>Mk+J6l$ul#45)~ecu?`;&PLzD`
zdy=`zpm6imnHV$Gii6r4^@)Ssz`GQ;t{O#}Bk_n~9)g)%=?@yEm;6Gqkzy(jy(I%h
z*zO$O)7$WNW<gUb8Pot(zv(Y}J8FhfUwf4`{`0J-6N9}1J3U28yn0~$>H42|V9HvL
JOO-6&{SOtaIo<#O

diff --git a/reference/Rplot006.png b/reference/Rplot006.png
index 02ed157883968efe98eda6b421b2b3fd8ca46a31..af5a59f3c5453b82a225d1c60957c04008b7d302 100644
GIT binary patch
literal 10754
zcmdUVcT`i`y6-|o6tQd@5h*I6E7Czh5Jg}GsY)?4H40+ry+zQy1?dtDNVfzKB25TA
z0XGPWKqLq#B>@p*L<pEbgb=t3_df64cit)9bN@MKjj>o6a|~Af=J#te&dS1MtFV|b
z003J-QzIJy5ExtAH*JJQFmK5?=&<p!nTZi}gto=gjZx5Hv#;re007vsb8Q!(j^0=X
zfCB(%WOzO_XL=M9=@fL6HOFFg!E@8$x6}2vI0zOXB|U>uhiznS2=|Ze(jKi)Hk)=C
zl$a9;VvZ(|zF<iNf_x***~(5)zdGn@rt{?<@XU3*v*a{&>CImGb^SJy!$VXCT>V%x
zujA~+C!6EEEN*zQ!<t>#omW1E++a(%XwVmP)dP&z{kYG6@sF>+YR7TIfB^RAo}L~O
z_8y|Zn89Amqw&--yNK=gr({NV#*Ev53onPWva)1Fg>T0usuF%Z@UozfdBw|X`h$vy
zkM4jc0Em}2p>hx8Q>3=FRt&+|qn*R*nOz#Ft_#KIujk+~Nl8iSyoOST!^$e{PFG4t
z(=Ce5X=-ZP7upo>>B!mwL{D7s-^BP*yeyMy+I8pAwX6F1ERSo~>YS-LMu+B>Q)@4v
zbrV&yONkOeK|!d;^5MtxDIwf>V7vbJvCpls+nc>MsjqLjV}E#W)O;SdiSb}cT)Nw8
z?<~Oq?Mfp}hvg9mvdG?OAD<{Y>ISgWt;$S~;>hH!*rB>GhC2?I<y2Y8=gfrBL_c)u
z-D}sc^cZP#r9~A^i320=!k)hvb`9^l-5ijMQYj%20<d|3xhQ;GX>^jRBivcqgM`1G
z$0*fm|9b3O4Q=kdXRynmR0nJM-Cty!4>1+#+>YNag+2-CD#&nYaHck{T_ISL;(X;w
zMq`gaOOkq2R`ZOP)Z*0DvVgJgL0uiuGOxINZ}fD3Zf>sgd(Q<g?Aw8X8fU5`ox9yM
zOKijQLb7)n-bvYB#v>e!p4vuX4~U@#z=j9UA_V}QOmTMOgI;aBmX=NKp5Dt6+n=p7
zZjQMkC;|X0D!WwxV4GD70O*_)SPzT=&}j7ff7e0yM3zpjMbVcpUsk%2x~|lWR+VKT
zu=9%ApctwwBhU;MW0w8*YBE7-KLC`ys99G=AT)L%c~VvG6#af!AMVwao>y1Y`Vv*$
z3v7!0unU@6T0MvNCTvMm6}^D2g{u0zxp_AZD%vwn_0VgQyk95V<5oqq-pzjp3wTIe
zaD(3Ve$;}Ib+xugYwUh8G1^!dO&mRaqW!)r60NI8;RWtKqdqh|Jh-6Au#8&j^N2J0
z;JWtBEmmLf-7Ugq%W8job_rI_DqGZjaCIOk`MFB_a=F=25=Xl%AW@@o`qs8v7n||N
zupfCh9uu{S<A3MsQIKf!hzMR4R@T%;E8F=)7!5(^){3EKw%oetH<^>im`-~1dD!o&
zB;s+19#0wEt)g-&i8l9jz4h+V>Ej(2IULT{;M_~__|oVIO>OOznJ-_KBGocE5#ixj
zY*}ix3-uI*ZO2W1?N-I!8P^tn>Y>$9=1$Olk!&C<(t4VN`Z6`O-4wYe<kQ0nLfDMX
z;69-49535Mn>6LjI(~4)<$2P(WC3mH%nO+2#;U3S^zJjRWOk2kz7HBbtn87(;t9dc
zx8Ay#2A}k=R|NYU9UVhL^J)iRRTfl1+~gLZ<rTaJ)gnDw_NhK0@vHyfF+k_?j{;T>
zkXYYwRA1=dxmN#rPQB8R<6>6Lu=?JK^_YRD7wl`RtBo?xenO(U=CR(JTYWvwo$LE}
z>f!8NRkxrW8|nj(=RPehbrz2q_wsXF5404#vulBRrn_mp8zm1@LJVdv%}-HY|4%Bn
zt!AC_-UOkYaYhdd3SPLWWqPB!^eJpNsC3oxDO?Q=jS*#!WMWM#tm-{-*xKG+TPyxi
z5qmK*#5JJIwV8Z<b%o!zR=CGk`JehsR%ZkURRJAp(3jul&;w7yNK@j!Rt7M77-e-I
z;`LW&4(V6!nJuv;xIoRd4?|CZm*$;_SSU4EU8GQENOZOyx>R#|dYXdBIsif~GL8|Z
zgrU=~C)OX`bn68!KvFMsHV8Wtuf(<*!q9Z53QPG9r(l5i`xER(mf+Hs!DAayR6H1U
zn5jB=%vfyKU>li5(QI#$*>vkFndL4cbArP2K~HNM?r>u8R<Pgv=t<an-EIt-opDEQ
zpL*y*<+tA_z(;q-j6bYXYxl5ckDM_Mu7~=&xT==+O0rN!ee%r-d(V#O#)gI)mr6;$
zbNR}kS=y_QLp3!u)7XXY<fxO>w+A+9fi}t+1gr*$NDPW)grSpEr{K=MkJ66<!1_2Z
zK|N~ax{by<b}cX<fBi<FML-w^07CK?A%J`kEdcmNulsi%#QK@%bh}Y%2g+FdQFhao
z;h`bP?w{?qJBoT<ekre=>Gx?2=hUlT*DNYSo*4MzQ#(Cacv^5&2lJGs(ZI2!AeMMV
zTy$?+Z&qIXbiQ=-gq5e#81!OeE;&fVTq5GL*RJ~0l^*?g{`>eN?})j(%26LfkWmjD
zv7A#ODa!Bb*tQvR+ePOYyG)cqUx${C4$FYyAFZt4&nfUb68)B*_nbaTS^WI)ma>7@
zy{BpJ8=yJo>JK%rL2>=a@B2Wlza}E$Xs=jR2nuQ*mz8;Y?mlA)@uV5@r!SvB-@j)H
z*B4#uj1%LUK6#v3OXrRjt7mrZMLVxYz1G1@ES?UJFel2|%LURGce!Xjy;iV&B|K&2
zlQxetubrm|hLd-ASa=ajl6s3@QKx99Q~TRWehVhJzsnc?P&@Iv*@|bkNpmO}nsI@r
zF&Msj*=YzRM1Ae;2Y-jqQOXoc9N^Gqevq7ng#~vR^SgLYt;RNX6OPRC(QF?P-SGTF
zXFb#jGF07ABbl+MzP-7rTBd&SGb!vWZfE;7&u5(GZ(BxBT&F$b*`km=Py5^{PkQT7
zC7gQtOyAQiMe~wx93yvYM!ro!MtmxqX%H+i@Jw`@qM}a-E38QAQlhW_lP`LluDEa9
z5{JW*KY*q&I*GV|3895CxbRo7sxwqg?0^~aa~SOl?dIR)NZ-G$G%PJGWx$Ul9An>o
z*RNN5jvDL4IN7v>6ksVBFSVVEn1?=XS!Q@VoY{1)gp*1C+V8%7&wNT>2Lh|F<CnO$
zOX{9KkCW@<!UKlVw{mm&Q9gg5lLK9F^xZq1bJXqOQ9lVubqk+VZL^$gm*m*b<M^yG
zog+*p&qv?f-~=m>6t#Q}v^hn!FG}f8p&fToZ*N)(VkN4Ax!wCKqJN3a7*T!SuNRV<
z>O6B?2rx<PPHLVov}^e+`XAL6ZeGbr<B<*QskJgB7wTITk&vrunNZIgG;5F%X)Q1}
zH&5Gg`}foB_xlZZe55i1pVia^`@v#rUu13tfQ-vZV}e`u<{V;1Snnob`b%sh;0kH4
z&Z@WP;1C7vLBYW;gU}bLayZ<hwk8VrzQ=Pd`rp2FN<|ddwc*x8fuX0Mle061jF0+y
z#1%xqcd9><M`ltO5n^Iu-WeJl$l*(g?>$SWpAZQ9_n+zQTZ|+(mLDr6%H~t-U*N*z
z&y=oao!#B&)B%i{_QJ6tBYq}CXco<Vew?z`5s5qmK}ps-;djVvjrJT!4Ft5`mxKC0
z&8Jk8#Er;vFC`X|Nc;=nF1SK=xAL5xPXUYPn54=TG_0ue?}=cMxL-H#lJ&d;fmXP;
z%jy1o+!5ySjev<u6Mj5j_UwJ%U!jYshRlrAW3?K3RH<!tE!MleK=@8pz9xELO3U-z
z-LjGr<h8`bN<11~no<3R-PBK-sCxgk$>>n!BP;p0W(`JETQVzUbL*@X>;4)=+zbY-
zvAo7ChBCH#BxoDpeYR2i`^Uxn?_Fwx$9$LLr=8z~j0O!_fX(kKF16~Tr|FPtTlM^D
z7S<-Bx4{JU10d7)sHoWN%ibT=@$1v*-v2EHYdPs^a{sP|BegAlcxWO4VmU8W-Ux?g
z;*CKe83}n;0Qii%TiqUX2iCUIv=J$=8izk8bH*<Q0CFnA;r-iHWEDJccy5~%<B1gS
zrQfe%E*)1M?3pz%%Mx=3fR;N}LF@DuD%`}MMAMa-n{h6CHbATrASs6Q+nFuJ;rD_O
zGDnWmSGVHq(nhgl8%an~9EDFSr*J!mLrj-$;W60jGNaPWm~WAE<rHfvl*zohyKBm*
zGg+_D-mcyxS=V2ba|*XKdkmD?Keo87^Q7SN4P3CHHh5hby7wpN>-}?zY^?KSJqUOM
zEXNN-+bTX?J>qc-A){qNWh&x^8eb0=$zaT=4xsbo;tElZ&d2H_=NxdTsijQz%MQE6
za3cN!b|nSTn9ma%<TVw7OK4CO5sq0@rLBljLaa6_jwyrcaDF{LQ<0<w01phfh;U>9
zciX762Nv!~<{WpWN|}X&Hbr<xIH~k9k8YQ^nu(|1W4t!YifBX4Cr|tINK5G+WXgiN
zwn$=6hDKS6AI{BmsSx2~I%CHaG`vca&SyOkIp1;&G_$=vZ<zrR8%|NthlbMcVGZze
zD|~Cvz{+D1S!$zjqdt<Jx`h-{!f}C1D?GM2NJy#VcZYpMQ508m9#JJ}LY-WRV`bC{
z>|R23wypy6H1@{)pO4Xu;~3)7Cs)rE6dVVDs5_E4npxn<f(ZhJ5ZJ^KAo=SBdm9X|
zoTa*V4!gleM<{hGpY*;}Y9qpbMG)R!RXn1?>vZsF#Iq3LHq<Rx$yCm4izSaZ-_OD2
zVFUB<rxi($-YGJJI+h+tKmS{bVq$}RDK$HaK6Ttw9ICaWw#+@x^Fd)5jMf5V{3HVF
zbMH)S1Gj_W35bqgYhUDT0-~|rxp;!B$Jn}b1dm+XA+Z67PQ{n6BRiJo#7}wiS27K0
zd(ejfz&M&LT=y`43IHzN;n=pkh@XlovTvUIlJFtP0f<&ZYhEbO{wi5&lGs~%8pkkF
zd!stm+^cjO4R=<8*y3z_9~|=yR^uvT-GUo>&9yBK6n}@vdO~G3LPf6nr93*j(;%am
zGbc@;hAAiT6NRAn7rkQ9)*B&KetXZL0#u7JFHgGv-f)4suk{z`CWS$e-m64Eso`AU
zBi1l<^~pnxH`x`+=b0b-xSw%8xi8zZHUR)6_9PTBY%5l+h&fei_BOYp@uqOy+%-9u
zii^(`9vdeOom-i|2#YBKZDiBx2VemtyyNdGPD5|sYSdfF>s?8_AhE$vIoCoCjYf;c
zUJ4!V)z<>Xe&g2REy1B99?pvl@ahBSH_nQfU*_`7vWn@edF_Kx(?1J~>EAP{+YJk_
zQ^bkMdAOob6J3`p>snv|sl;H%KOrF#f&}sIGyxz-BQK3307k$uwp87b_I=^&OQQp@
z%4vZKcuTXTdVKlTV1HB>14CcUQT;?P+!3kpGdxZ|f&BO}3ev+}TNmb>hvvsp=vw2V
z-1=mJmQ;FoBx4e7u&}+Tu}2m5;_}=un?Z@{4NBGzEa6~UQW1^#W|mgZ8?h(Rt9I1=
zw#d!&a;m80_L6A(au<vh)uX$+JFcv(jN-1A8Ss>NG-|bi5jKECLmojsPQwuU?ETlB
zkn~<6H}}H=Tz70pP-2{g?`%ivUZ1t3NT8dZNA?Ovr{NefmiL<N<BTppV8w)tpHReX
zErX9LF@^anA-i(kY*dU>Ci%AvE3K{wy<)IaS-jjlMp*m(BY#KRms6E;36XTEU63B4
zsm{;OH^Pa_5BE7itSclHZxEcjK6?Lzwmyu^4A52%$eq{_T#Nsr@4dR@D-`$oWJh#H
zNnlom!8s=G<payp5OV59(pd|bRT&U<>%jLQN5|n{Fd~v}aKPjGjt$vxg^bs>U>0p?
zsG*hJ1i6YqSmh^&p*ppY{q_B{Zw$WHbm)+WW0RkS<QlB0J$voU0LJcA*3X6Lg;L9-
zOZ!E@6v@`zghXq%C*N{Rq4{cG3{lf&E2cCk*ER=PTgf5o_snXaU;5nJuZY<=g^$t{
z0$O}wpUoYj6q(YBB*A5#;+|QdiEV;_&LutRR|YZDAtJVScXgi>j3gjBqHDpd!_47I
zxphE}O0Y|64S4QOaxm|ugVG6|d#M&M=;UG8JR7FELx9YQ0}Ar=j$;o6F8;=D>QVQ+
z=MYpqynm_`Yy2s@Vx!_k#9km8Cf;5DpfPZ_+(*ckEr&gc4p7WZL=g~-TPuNI;{X6A
za9LMW0|Gqy#b86JzWN7{aVMO{>AXaVkVy*I@BaBku<|wNsd{&U3b=(P@~~g}LG3rn
zpQRAtrUe0pjJCD^Xl1y<`37LN3_o?^@M&)d3cYbX{{FQPlD5n);SqH3O&L|0nFaw>
zWEH~w_jSO<x-*lnGtLi5U~KkX6Xo2-=G_ZSK?t?VSo8=0Fc+co$jvFKfz(LL<&%OV
zI)@biAe1O7gCTw3rqm1X%vcc)t;TOJ=KO*mhD(Uo{OFT>iS^_Q1qI|b?E?aU%Eu)~
z2(}SY;mPn(ok&0ELHD_!MFT0m8=;vS`beHASNwao$%&hlDI%A0c6Fjjo6#w70#%n1
zUT!8g&V-Cf6ZgwErng|r{BkFZ-nt5;hz;z9+OZ0MPsKDN7ywi@Y&^beF96&T_*bmU
zrh(dnTQ}3WM{5UMMrkyfJouBAjC;bl{{0Jk!d=8ky=#;UE*lt9-xEFI_*5`*aWW$X
z8<?e9xOO(TEY(j>&ns${RaLPY+S}VRUtIP}SN(JdJssP}3@j-u{1ks)k$9-bsrBK^
z>-_|HE(=lz?#4_)ne<rbUbKMR&NwA^N*<rIb-&i(!>jtz@sDs2sV#c=a6A}<x`#yj
z{qBLG<c5ZZO6%Pxaw&{PUY1XHmZrPe(uJJN*v|ALAxX!%Bjt5#oy&D~sn6B1s&LM%
zEI=fN5jLOU63&$UgY(uE7keNo9Y)?zsXG_RN5N+USv1}WO4R_ek49U0ir>8Eo@77<
z9hJ*3ZNJaEb-=;t7$b^580D2~5VgXoQ`=skO`gk^x*JGXbII@P^M}nsW|q@f5YdHE
zPH;yK4(>BPq&|E1aT;_Y2ei-K-CzlpbBw}HcSM(OzBP87&ds=&!t*|ylAmD;uh}hp
zI~?ThN0ng%&%t8kKCZ$BuBYNB%K`vjS@*>B`fY3W3=48b$D~?S&O&B^SE9$(*4YFv
zFRx*l={d}5G``qyhbQ)L7~^9`N1$f2ap$mbC>|v!k{J3ldM@j`_<x!gp51NnY`{C?
ztpYPfMWp$sYxgQdw26?NXt<*Z7ISI->-#E8Tp&_5Ei?VqmBM|f9z=o71biCp>6vrk
z@Lo|EN*TI{Sy5jxl=mo|D}Eba=MVW-dUw18M+lIQxI~V6VkIwbQD9T`6H=`H#<#Tm
zM043RR*Ej$Ds*LW|7yoQ1;Uyhdzo;Q%=@5;Ua`!NdY!E8?Cd-qLFds%e>mWKD_A_%
zT@D?)GCkACqCpj8&cfs|E}%<2{$7N0!}i@3|7v2e1vCv1?u@noCwE}1XS{V6rDkBS
zGXs{```Cmo9k))>&28*pM<Mhmj?FjtCP}Kz-}HR4i3?c=HkGk4QQ%@7%XlpyT64kE
zf4JZ`P+hiIZ(&G*jqIDaSh^QPu1R`#|MqK{Q#*8Sya*O~$K{7Ck?EvMtuc_z7&1+7
zj>7x|2I^S976qbjwvpFK7CQ*6mzGqz*d+U(<#R(ZLz_#aYH=-jUYs;v%D6T?bk2o5
ziexrS$xgkJBe;^i-aqrp(wy?d%oBDw83~SAsg=cH=uxqFA-IHAd*qQ#xAy*grsJz2
zi3z+nQ(t7PWS>`3j+qW~j+{Gqg6m|%y20hxC-HhyZV)D4=l6bnAL|;#Yfn<p)S5{n
z7SQuUFW=iHK3jc*pY|<OK_pS9l3%sGb#`1ugaFmJ4tS2vC3DSt{_xjvKEr<+6MrME
z^qX9loKB=>(?<$~BtsEgnj`YPMK1EKbc)_w$?GT9cJ{6(%rl&|oU^qG;God<@GQOh
zCzYrOmpm5qK8PXZMG4B`k5||RQ#pEaz|8&e&>eJc^Ib$i8Ea;yEalNPA6U$GZ4Hg4
z=j^6q149vss?F5{!J&CvrhL3xb!~0=G&&D551MGOJ}vRgl>WEHUPZY9J%c^Ix$93e
zQcaAR)qRJ|bCGYfn~zyYExw%5w{O|6rB{5u^UIi_<)Etps7?Fc<V_07Sy{~QP>M&a
ze$?_=A!_+pFmH=uvkX=r=r50ZEcJxs`OQ`DNGr-)`mRpV>uVZ@VycRP6%WXN-1`GU
zf(<h=J+*j#6t;I4gM9)DDkuMGPIW~$WF~Tk(`VUy=u_9}%OBdLG!YHYgSNF1LIj<d
zD?CeUWo`2`**)`?tDGi?HV&6MdDm)rA&MJ@6jSfI^?ZHHC2OBC%di-r7U(*+nIy`Z
zBQaBbmPeaff23%h0c#PLm!Ok=`moL6z0LlE&LPujcnFBqpArW*82aY2cxIg)7;OX;
zqUHYouoL^C6DEfyno@tnPigALubpCB=9HjZswl_5^95Ev`>brpBAK2Gx#Zq|Ix1AZ
zqXcMuK>FHRfPa*6$z5Mu2dLb=bZn#E&b5$0&#ooZJo3B1e^x#)GBTpq0L6Rda40|R
zg{X-M_P?(bpcWPuzPf#C{2;39%YjY)%)sLp932~VL|TVGbZ!Kq(Uqmq?8W7^X_ur*
zpC%pozjh!v^bhA8Fc!LFSh((#B@1VCNcCrE(Ps!b^a~mqmOfm18QB#)v%Ksmceaim
zBmyLVrSW_Ap$8&8)+}{vTU(+xWYO^;kno6k9PR1`xqpNIgbLMTf`aBfu=*!*GE)Xt
z_zcU((Kl1kELtX8hV%+5#m`^AF5}_Cq4&3<1@@zAOdE`;;oz1N6vxpB*FP%H?g!z?
zFm34M@>MUvB)>?Ub9G%!#CQ3+=_CIS^+7Fhd`3Aj+L7qYDRBsEmXxp2xs9bn`;g$^
z;Hy>dYl%dnS4MRQm%kocxY4iz#QN7e;qc7T(o!gkc0?y$kYnEJ{3ZyDUAeqb^48<$
z!Z6sJfBT(1DoZaI|Nep0Uj=73FC85_D;rSC;zd9L{~5dwG9O-W`E<9c_l`0OkoN$M
zz8>!pgruL?z`8%X`9I0|U-*7n6Gk$z?B@{TC(6g$eS+4%#Kgo5%XC)`1jA5Tj%Zyd
zWob9I<^)2kQfAP+wf1X4eKy_|SuGjybb_Pa^Sw6136iYs>J$xEl3VwrIYhXPcc00x
z`}*v4o<Fo$WZ%HL8i-*}{bLSOHnP%kbA2P^pfszk6;`qYYi$pfSRZ}5T}1CwsLJ)X
zPbA9J6OCGtE&s2$r)B&RcJBERcFJJOzG0#uYb7?k14=GUsafM)BEU)Un0c7*PY{zI
z;v7=0|LXSZ6(=FUxZ$j<dN-6JK9*l9V1$W6)!7*&3(T3-Z3D!QM$)6cj|5QoFD6n9
zRz|G4Ga)jX8!=PQmW*1SlUr&mcQ{OjvZ8x=d3mBIDB0f%wMop2QNw^vSjD=H@I`V|
zA!Hk?|E{w9&R2h7GQ)MH;fh+=rAmioD4=Lk5oui*kBo$LnzIm)yek3vu!GP-hZV@4
zDjFzr9=@PFnS)n?kNPCmcOxT;R6l(>uxW){UtbS(Hg+TS*}xF%yuCf$3gW{(5O*nr
z#8~7J9D?6H-Wn?xnin!o#_(p=R+hX%HkwiwR7Bi4GvUg+g_}!6s1Xr6HbBmbK_855
zKQLr~<8W5^JbGjB^w5Wj)j<K3k9vawz#tNd)B{CVXJZW_p=|6?P0hjy?AyLR)KjAE
z+Der{WTPQ<AM`74=b7FqNI5=(ZtR<UJXt$p;p=e<`v$bSsL;roLxApV<Z9w#Y@|Nj
zIj{9C6rOmO@}UHVcnQ|?<o+sm;gl`SCDV|41X^t6BhkL90bDi`K((z=-(eZe?_|1H
zDL)fG70zPo`IwuTnL$aWB#X&hWTmI4zl5>heeQj{3w!oZ>Su2ckGQAA+)1ilACi|y
z3_d@Jf}!-lQS4W#EDEfurl3FuTYZLl9~D*xBunj9G1fzMnLL&k6OFkP1d9PtU3@6>
zqn;ezlklSPDKUQ*vs$4l>y=oEU8t?Cjd}-T7q3M{RNdgtdkO|>?U5}|{!ZsgCCqPz
z0P-)}683Jj8?1(DM#Pi#x9i<sj8$9@Sq9U3V605;@jI0u7}Bxd{Y{As|GRvxxoJbx
zrYguOVBKneHIs(ji)iq_J3+YIwGKG?INDE5_l%7-H3hyHKKYi=kG*lI_zcwrd~J)=
zym8uwgvcM{$Geb}YLPav_@nn~>#eDQVDnwhJ^a2&KiqIvMm1TF-iqm}vZTu6Tn^|R
zWF7-?MbE|8;)4lHW7BkMV@BiajE>Itka+S=#Rqf_9?jq+f1AG!I%9jzGtXR0z$e%u
z`F81!lVu|`FBf|<<~BmcNrrit<lj^ik_}=9nA{MIJ%RIRY+jLc;J%$?6k?IgG7FD*
zQOBH2l)`cp=9?qJsu4#OvE`}|w!YhkvnxD<v%7N!Ty-IrhX{_K^YC24c^B^aksDV8
z?7i6;ihHh>n<T&cqy|cTmA0S%B}LV>KvbBdoXW9>o=OI(q!49P_!~YOKK)k7{e70a
zFihuQ#TGF+LapgiI-&sSyut*<9Ldc^m!Gc10ZXgt71FhFE)#Q7IL<GiCT3*N*^loB
zCfE+`$vy8;FwC12VcpXp=EzAi-A%gG3CjWT2&HKu7irz-2@%1>wEiOas9&2G{T}D$
z;JZQ-sv;<K{`kho!+G}1@6*R|cJ%FBb??8J{EDUch>jnLK$sfVTmSNK5|(y=`2c?v
lTO)~b`%8)Z_oMIf_f@lt50i0CzPfAU;28^}vQrmt{TK9`Wl8`5

literal 13300
zcmcJ02UJsCmv)MD=~a*-MS4-BNDHEZ0R;^L3Q}x<NbjBG6-B9v6zS4LI!Nyk1e6Y;
z*H8llNa!U%{>%H#n)%kOZ_WSzYi3v}_vYSv?zwwE``ORg=kVdaz79PtH!TPRqKDtP
zg#dxT*t0h^CGbnYU}G%sMfprm=N9k{{2kt`3j)4qobNn#1A*vR&fegGsla0pNB{)C
zb>pFT^7@p|my0iJN;d0k?%ny#Ktq#c&;8z>R`6p<2L}anv%~@tDJ7Bg9!>S*BKxg#
zH{L>N&z-NMrtV;=6cFg(U^o{^{Z9Il@QX_{mp-qo5TdHab6@!;!3|7$7f#JhEHUOr
zCp(4;=DRzjVajM>_<#Fl)GMw@N3^vch4z<VR4?S`6Yw$>aZwLlJm8`Nxt*)Xw&hQ;
z0aIfhb^m^Z{_IGGr@jgpzPLG(?OPXt{DYoccA+nU_gt%k8X{ZKQdm2y7d_XaSZZ$t
zQ6{tB+m~_XmZPl(KccRuz5Dxfdrz?AP!uu&U5px1xx&AT9z$QmN@GbB(`m){%H)?H
z^ZALcY<O+~qi08i+nDJz`D4z0Vt(d`iB7Q@@+JB;Itm3AnY;O@QX2iB^eIleWuq&h
zGI?<-c2N*6ag+6_P!ku|or9m(S*k&g6cU$0G%2fjY$=DsrZKbyykWZ|wzV(Ors%$9
z56UkFqt(TnJRCuUKm8^7naLVA#kln{lot<Pvd#C1^+r5T+Z`EokGj>;v;6Do?*L1F
z?Av9J>#dwtx1`cg{UwxEuddm5su5m+BHy<)C2n7@*#;ARudOYQme6H9-T(D2wyeI>
zTqZh8=223~B@5bu-W)&wBaFp0#W4CN6>iVh_Kzw-Gh951O5C1s`$u}$)?WAH1510k
z*poIYZATAZcIl|Kag@&PBWgkMrj#{=Iu>t<z53+2q}>-gjc+nWEF&#?#aTo(oHqHT
zTWN_^&stpRoNGGkCKm-gc$(Z-yRE@#Os4K+$Uv~53sbs)Jy+6R%ILODW|JT8!=dTg
zVY6Dx)&7~IWv65L>5K-F!o<Ckw+Q(gVoZly$9@+G(iP`jdG*ASgD4|&0s=c+p6={t
zEfXG;&W<VbFq;k$nBrQr#_1)t-9i^1ZftF=xqg!9ffP*JUw@i5tq>f50!=`apnd}`
zH<QGPY9?l>xRue8$q29G-TPW2Hip;KD8gm89v{Xe*%;@({P_CDj+d8}yQrJr$CA5^
z=j=gu!`~T1o-zo#EAZbI+vtw5bf2H=ytc17;2Q5`6Cd`_g~Mvs(+Sefq<9KN<@OV0
zS!=JA4Tq}tdTvjfp?b+CYlm&-;hWZLhl!;)%e7x5I_Wo0U{ry(Y=4rWk8)UjWT1gO
z>P<?an{33uYxY9pRoC}f12w~!Zym2OrWieIQS46mCf`{n-+4PvnXbgQ>@+wN6~b%^
z<7YM1V5;TeWRA?BI0y>f*4JTXIB%DEl@s-dt(CGmd5>d80L!G6pC8j29LJ4L2sWOf
zTp$Sc8rfY~uoGG{X-K@kY;o>g{O0w?O&?AJ6_5O$+E2os_bQ2YwMVHklYTA}G=d#Q
z+Rzr)F)?-Zs&!AYLd!t;N@jPJ*%w)`(B=mv9>Mf3d+rI_G;i&1T|2pk<*+hWsZ=xh
z6-6_ZNQc~~CaH_EhPKMTY*W?<Ez@C}cWxHf$c`yH@A?uskAyMPj?l%-7#*{$OHW^0
zzs=h0Pq-zvYQVx!UfbAJ%|wf*M|%dJ)cLV6uyq>sY;AP7e)^kj5IH{84G(!jdHbKx
z;a?TvM9(Owq4$A%ee)*`2NSC#nMN-!6$^*_<k9SDj8PqnenkgokeIWrlE1Y<zow7L
z14H_4F<TF9d0yF8>e=tJc6rYim$%g7_VSf0K%$;=4N0s;JA>?uOp(4Dch?YvmAq~m
z9aUUd5Un%Stm;_w_8n&Zl+d)f!CURywI)JO>~@5(E-I-6e?e#SHIGndc-Qsd%&IcX
zQlKLpZxCA+wNmaEs^hnjBPY`zoIk&}$#@cWua5s|f<g94yN%@R^2Vh*rsCIFi`dxq
zbz|L>-$im}E*CmND7`its#ts6))}TQsE!maI0<KEs0sLsI(5r;JFBF=nY=|>xlJGJ
z7F`uS#|UBwYdxiM=AXS9%haRPC==Qr<(%q0Sxkdt#hFrZ@dUILm8S_!-8#5YN;^A{
z;Ki9xd0{lo`N8Mjfz2X=G-zW2&TZ)CD8xAXeELZ<J5T>K%Z26~Gn(Cgq9hGZs~5_p
z^pPlwqdQS~mO()rOKU|rt2Vk#UHIuh1gg|?7_L=1=M$)kb7RaoIr=%lq!=?cv2=ne
z`5E5Cj~yR9W=kadW8$}NH=D<~^4_$)UI9{N*+B2u#>^8kUR4U&|FU70(f(9%g{aiL
z^?v5+reibjyQSOP3F}YAl=jw3_n$B=D$<Qg8=M|KbEH*c?D}?cnS-fFe<+TXzxnzf
zGN&JJlbY@IN`Yhk)Tn6^^SZifnn*JF*vu;4cJ!*&&z|WA;?pYcoEzO5FHS>J-?uf~
zQQqfjzWuOB<jL{8M|0F$FWS3x;e7)JI+)%Mt!Z$d5tjHtI=0tf#!K#)Y-&#R>a;zG
zyRrQd&nwwS#muH`Cp6|`yTO*bCQPQ{c&1u@C6P(R5>!e5v}DJkQ#oguG%_F)H&)c<
zU;2)z=(5K-Ub+Ly2Wv}e+bM$OagmYTHpBF#hvL`Bhu>ta*_$7<kMXk-v|FekpPv!<
zH4mPCYDi>#aH>cBHjB?&ERl=~j(bM7J#gqJvZaF}E*%Rrm3=PdIoxURF2iWV$V*vv
zT?!_5<^}Vsk>79GUOpxueC8N0u^p}9e#IMk#@{LBAdb+$7Pe}b4%E{3XFrV+*Qw)|
z)k2*8TB<w6r`ezAR7XGFQ;e8kHm!JEg_$1jNr@Bll$<4(Yug{>xgVpl`Pw*2Bpmp$
zf-05MbA@jXR-~$!6_>+k3QK+lXZS#$zS-t@YB_ooeDbU?IKWz#*_6`IcIJMeJ}Khd
zkF<DMj$q@>kri*z)GKJC2a^StwM>YD%_$*mG0CLkZ8GaP-LI$DG5qZGQG~Q7NyJPM
zKOvNTJV_^*UwVYqQKE!%UHW*<)%?x<>eHw`yN>AzZ-ZvWnCro2#Crm4{prCQJ@GU=
zM>#;!Y~$ndGmuYL^^|#<uvkgE-8%WE1m^Xi{Nj)KVS&k5J6oy1VaT|w2hFTsjJfgH
zgl^?P>3ap{jlgs1i(d#qj}5AaX5E{~PGakI;8fwA`X`zP>BBL&lfyygxUnc(a$|SS
zyh6!{V3%Lxt4lj~ud&qTJAI(<l@Z##&tYXWpdIX37vGV5$`c&n$&bwsrpLfgP@0+U
z2f-QgZ~E3B>)5UYM)vtmC~#XEENcV`i3T=4Vp4o&Df+~*)bg6WO1ja-rn;U=^z-1j
ziQyQHgZ#c@G7PW|!L98?k^6LLwB$-ZZm9zVi`Y_A>QLW*PozhMWa4&%Ba}2Pv68{V
z9(x;_oz!pbb+2{X&`9^K?JWL^Y_buY4H@JPUL;xdkhWV3M32#Tm}>`fbhc}r?x^v>
z^63wh)^E#M?i19SQTjJCMoG+pziy0@eb3K2-VtxUdYx%Bv`@uSSL}Tfi;SU4V&70w
ziYNWne#}BgrFD?D*wJGrkdF41VX#K{J6w{dv{snv&4UM51QZ>kM%Cb}i>`H~A4+Mk
zl)Zq4vDcI{cQ<85F9n}iMX~OktY1u8I<Hmg|E>g;7xpdXwyn7S<#MJU<~=qT7Z_f>
z6jxI^cUZvP+O2ZAL!^$e8uoM^me%Lm>8a2bf8$->Dt_&l(~UX(ZNf?Tn#0K{OGD}n
zG3OJSsj9-@)L=GeiS?-%d|x2?eo!;&cHx8Ysmxi?wr{Xcdpxo+JgTRu{lSa-O3mU|
zYrNPyILr8Fsn9H1di7Tl_Z~KX>exJR$!CsK?%7Z2;%L7|BmFBoc%FW)aF`iw-d~+V
zP5LI<zsV8)hMM#NPovI4M>9eNQxlEXGVe=TTG-RHpWFz3xvMs-15ba2r=AHBL0i(m
zG}5<~etaCHQ^1s>V<fBOV)Hqo{%ZWXBOE>W$-K|>K_~T8hGbdUXMN58N>yiV#njg6
z6-WPhv6o(-l&%+T%;092J2)t;QJuac+@Pz@VFgFj{j&Q@>G?-taWJqK&0+<P`;SfI
zsI6u?*#h5R%sSx_jAr%TE+-7CYtB}P>+lM}nImRgEyB#WGV`m^^Nl(}<IuNzNs8BI
zs@JP#0{5z2=9k(-0tkLHq*Z?MLAxqwsV8MZ*>SS^d5%F^;BE5h2`p97!Ia#sIAQPN
zf0S#O!=QmncJmBaD{XhA;(`Spn?zk-`qD%w>($_QA5rsY6N!KFW7gQrL1Di*=mbwJ
zecs*(^IRLHm^$=vs^8R}aSFhjS$4}rrGCxM7OB{%#izPW`{2yU#1=*;=T7M=wPbgF
z^H1h`j2Z`6-o-8hJw3hE0X^9%u@wEFRrmh3wzeJdoaC+Iqobp{{@$J^cXBYf>id)1
zc*7k1lT|bdYGdKIUJ)O~4-3=>x{o;=jy1J3_<DrbRd|Gq{m!4_G3R2*HC1oX6iCmj
zD9rC)UB2<NX>xPzxq({HZO=z4Df$iMQ_}16Jc{-{_K$ecmqIRX9m@u8hDl$(m$-9l
z!zK%}LQb~s8y=49cyU$1?UeNE1FMaF_3S%NhKtJ18!I_!fls}HrjPK&P35BOmdJ14
zzIAma$oE2(kCroMbXC%dLS;#=OSn|OjSHurEzM6`E|~?*8qP1N?cTLp8!Z)eEbCUJ
zD{Gm<w`ajW4<}!DTjDOW?mpVfxE;3It2`g>&>qE47Gtw8vGY+!trklTS#g%L#O7t5
zcFikUEVk#^kISAayUb|^;1LN7GrcRAoZ_p`e!WjPoU^YOGT#1Xkk)9iL41&@9k2!X
z==JBgxHtx$&mUMtBU99Tw#2BVBX)<)2<3p!*Cuv%ca?1T>FMc}taH+?y&6c|bisVP
zhi@VQSc0DUtKfm9Wsn<SH2_wHL7s`}H$zVCR|j+7gx&L7P7m2o2s%ABl&vQ=<C78-
z9Xm$GeYXCHQnkVSHYRH#Kz@XVeT(ky?k1k=t_wa<8b{06$^BNhKN>(Mr=8k)y^`-s
zdD`GEsUAnFZg9Em^y@g$Id8UdI(Y-2abPi<o<G{fdkyua-wg7^+*67OZ(_9S`f{aR
z+Pt>BsL#J)vyCTU-iI?ZDTQFaM#Fm9fAKFm87_L~gV_*5UsDiyW^iO=#{aCrFHVPS
z9ka6`{CtSB2QoCoWC7UaOD0`^8wdBFp4+}}8|X?uYSl2T(Bz}pG}(@<7`B7wV0gbp
z6!V{u_ANDB7k)o}L&fN5eulq$scMJ)YwiI0wD9oq@J<U8*OAYN&fEdKuEBG#aa2D5
zAKh$3g8%#~9{=j~YtrDp&&lqHrHXae7aVDC-On%};G}zhCW!nL#QDVe=ZtLK+K(wv
z;9;kwqukTxV5*#ZNqevr_am&wi1~gE;KG}xW@e0?ZI6GvfX|n<^ZC6}Nzw2wtQbzD
z{P^d^>cEQo>ZDt5ik#ix_xLi*Mma{mDhIRjMpQr98}CpxRe7WI6&-yPY2mZM>OOGd
z%-KPu3Hvf}&}UHtzTIg*Lc{?Oqfs?WiLV1a0Q>Q$5gNvx46N+@OgmY#Nehj8ZeBWS
zo)EG|7Oi^_UX==jcG0X;<Kfcpu`-)9;#yg6s@qb6jedBOtgll*?qSCXnFH|4Uf)f|
zsaI1TBPo7+V>V5`fX~CdXWw!vre1m8_TlUSG5V_OyIP&1mJEOiI_uq40*I3}Zc)j=
zamp}G*&<n+gkLymFTSk+OOspvC!<bHC)Nbu`7mApMrc$C_1mXjGXeXnV=G&Ql5dAu
zmnUnZoz(xxMA;Qcsz*>fQg2)C&y4R%RCxWO(FGtu7^TCHKbM`Bc=my=om{E=GzHk_
zGPIy!Z@hDSd>m0`)9Y9dJe?<uv{p7R>3-R3X57rFLBVRY<f$HLb#?Vre&ZLb!SP&f
zPO7ihOk)7K47Lu~OXGV{(MFu*$*RfB7|_R4Bm41ZEoBw}`qEz))hva8av$c=V*&c$
zJM4A}+}=DrA>{y(4#Rym(0Hsc<2PReNjut%mi07QO8+8m_^se%(9mFA-nQ>6kK(A+
z8~n5{zEC<&+RXT@-@M5V;D)2s{CO35%eQmZW+et{o4+g!U?)4qE$`?_Tvz}iX87Mi
zQT}p`q>R2T@t79i&W&RLfjaR4u^0~Aot$$x7W;C5*L5UHzDIeU%;&T4X@cK(IURN}
z=y<ceI}O$ZrY)8{{M)1mTY!uH&7j(bhKAMv)sO`0E`6w5`Ie+e?(u5e*2?Ab@bDmu
zUj^*4dNOm+rgXUgfD@rr>3dC_jJc`T{*)J?1fZR+NXE1?);sGi&TW5w{YR%vRe41P
zuX_u<QnJqgT=brpqC@)Z^=-wyk`@L(1r7WB!pcMsfR5}Z1_q*i0eFU7Q&5nWRv;|4
zZLF!q{5aX0XsT;rP@OEb`uSH220(4X-6iDG(o&_l=h$N08fDPVa=(GQXX94u`b3oz
z4;lv}ALdvDo$Q8*-b*Z>m~d*Esy}PQ59q>Lj6)5Fp;$<mOs(xWz{(63<+lA_o5&{w
zsPT&g_mG1lm-z^#$lAG3$zeSpKkZNZ6~FouE%IimJ86V^u~2ez_gsgW32mY1{RWTh
zoJ|2Kk-Q)>m_HnL^kLS+gSRd&zN&n<kUVz9%`K-10R5?Zhj@<vArMidUa;^P=+j_9
zr(X-JrjIgv{P%zqb#*(KRsUcP%Bbe-Sh~^{#ot6w!53@~14(A=QkscnfX5p7ltAW-
zRSnq5KSc(f9CbG=XN1X!pV{#-tEm1(K)Ux5t^ldOSaZ2&(xsi3)Oftr*^~gJggM}J
zbC@>~yI)kdQLERPydGUDYLM!G(`M<C-5<U)ez}@(*KQySKJ&-(=P8y7rhM@A4MU;_
z;Lu(k4gZ7Uco}mQ+vUD=a_ZHW9Z}mA8UXJcIM!^(%5DJptp~)V=1u$yNa<Z^r#m?_
z8x<oKI%jt`0U|g>{vAD!=g`(-C&>~Z2HaZZgku@4RJ_5W^H~mXJw3#cn}AE>q$@|~
zX8$(HE6lfD*^0YAIz8&vE6sdKfYy1q2czOrabN!NR<<e8XO{}+|3%et>^N#Qgn_qK
z%?l6`2WLUIFw(eJQJm(xnhUdYbhIcZG?JzpPml1j>pdRXeZG*P$0oiRd`+x%@>dhO
zl!(^nLjm5%f0dKssdCn7(#wGwwyQ34zg*&<xc<Rx7GY8V5+dsWkrQbeNnZjqw-E^B
zDfJkK*rKks2p%u&V6LIlJ(Z}URT_K;?Uy9oY(8oA$BU1V6$rrFb?*$m$j#b}SO%RW
zgz)(;`@wNSLwT`Q=A|H$Hx!SeV}wc}Yd0Q63yYv3Qg8%B3jOb!#+BR1nYK42!tiw!
z5B>7LYb~pPjv!{BH(TKorM0<tqRU;m=*vMt&^VANF5D^CS36p`@Z1Ktkxku+vIr`Z
zbE0d0rZ#JT>bR?kNKhPKtiJ5)2q@27o?{BGXq$s56kPMCUxjXTR?!4o^;dMY+xrc6
z33#+b@#yUvM@G_g@aVj+Ra249PS`BSyfH-)RiJr=y>Ov>VhH{959iw-UbVLN!5f$Y
zS${t^Ja=I?M(+V1^`vQ=dk|zpTFwz7SMclt9Kn}+bmX8zCNA`!3|o{5ZgLzG+%3pM
zLzW;Zbi-YPnhPxvFZJWW<Fsm5t7RV}*s~Dg-}{7&MkZ7wVvQuFvCqW=KL@wji3q|G
z3WK_I2d>Q&%G|VS!thliyWHxNjNjE^`EhTB;YRm?lMy<X`5(ke3B&WEO~uhQN|wJB
zY9t=tiGC<jfk2ADO>-XspSnoE_F3ot=QlNP4$wRt<+6H$axsI*=f#Ig*n2m%)xMFu
zAcu+bJ(+huYSe9u$#UJTgdAUyt3p@b)_l$G_TXi}t0;wcPs&Grr{9aE_1-JLP#jc0
z2$2%M&`=0!x}Z*b!MO0&L!YGctMR8trm-Z>RCx#OZ_j=T=YF1~`cJs|CkXxbH@Tzr
z1+0~wK_$|1=f6;?QA{#)-IbFC5K?4pingS*pfCm(fqOtj5N=dF(&bO~WjJDS2yhX%
zl^b?Fc{U328P$%8$V-V4hEHV!mk1&E>B30@+_G>)@dHVUgO24Z$$QBN^eURYUl|_l
z8v*zX2PxKxx>j=D7CL>-8f<epE&;gstMMK<2Su0Jo~OyL#eDkxvr8iK21OfvmS>=|
z?c&2V(wGq)4L&rB@0&5L^JK<yKYJZWhmEU>W7bMWoVg`rufcnP*cigV-B(`EvdJN1
z_bT~1?(@V989P5O!EAu=7<vZo!D(WLuYM!x?fk}pnh#qMf{B2tJ8XSyMt?G}ly4+F
zy<P18`;w@^y4feI=)9sF_dnBL+#%7zMu@_4WE90}Sh!Pxu^_O26WEufN~D2NZ>j%l
zm|DhjSuX#!1|B&Jcx2IdF4+GfO0Nm0Xm)|DoUF{OxQH4=CL-rog`f36h*X=t0y~|r
zr?Cf1Q8q%lzzmR6xL8lL@Gf`70OVA<L?N9TddyPI&Bf@?Ud?u3d^Hyy{m=&pq;`-~
zt3~fQ&!|-Lh3XGmw8Uw&I7M3_<>biFxjGE?+tC}+uu^i;Uw1|3UJBecU#d;eGnEOa
z+%+q#+5GdZwpJtdJ!4<=t0X`hEm{^mRD+w24eEj$*_AI=Yxo9$)?0tb5)lb58z1-%
zFKUifJ#kB1U4@Z5WgScUdxR(fPw<4r{UBRfe&B2m%%m#1dK{%1e&N9<Mo^_6_U%5-
z|3^JyR`^x6Apo&!SY~YA^6mt>dihWv9V{FjEu32i+{^-G4`04q1hsB&n@YL^P^U*G
z;EBg>(ZFaw%kFzD=A-ccHe39Ig$5DeX-Z{|N20zBjLxb=-mjN(vjEUA0A`K?6+w@n
zUf>zZMv7xfE~@0%Cw2h5EDFn|dO?+x93T@&7)`4;4UvsV>1=VqMUlc&Le4QvEOO9n
z_d>N@ix(hfS0&j?3Z=Jan{RgpndN$~URWjVO~HoxN&*)JEBkA0|5TupJ6hKc?Xp3P
zR2;W^VUeeSEGG`&cX1bRLfCc4{BY<qc*D?l`Vn65;r%FX`R@pD6B%QJGew$c(4QQg
z+BZ1y?j`89Cdu!vWV@xElIYNHVnfGx&KydwOi>N~0;&i3(^vD1(tCgHQkKuq(TG5o
zu)`5~9+}!ZW|jLzuZ^UpuQ&O-JZ}9f7k6hUJ0x%=jGeA(VaBOy%e}Q3K;sX_gNIgr
z*n3)f9%k5!U+E9ji6;w)&%(J|cG(oi%(LHd)zYXN{neFuHo|a(QeG_N$?w0iSU(Eq
zst)RM0?AX7oes#PG$kOt=orwy+(f$eK>0ugv{}zurq@&50q0+5lSJo34Kr|QR2E=G
zaO&kJ5(oe$4@x2a3eGG<>RB1B=g49v$3tMs!&tL40Bs583ro$(e3b)&EiWYlKHLpu
z$7+u|{YAVun_3@`F&i!Xih>RQSLBTHp?|ZwuNiW?RzV237y?Yxv6kW(Ss2i((5{W)
zaNzDVz=@3lxLqx&M!@B_a_L;Mbi?C?;pX>OwJthPyfga(WHWF!tuypvt~NkAg?Dv5
zZsgDuVkdR7d1(sz>0LzNd2pa%gS<G3ClvLR$Mgp(v$n4R$|-zi-iI@m{P6oemJYp-
zR7Jwkz{~`H`~>~<`SX%;j?~j9K%5Kdu0t(&M|mDmdGl0rei^z~Qx53`g+SUt^Qal{
zYX~P8CM(nyiJk=lpI)t|`LS;FLojf^ICLhumpVS<BK=*eJ;6!lTvchXV;J9SNJ#8q
zBNgC%s{7R*K+-Z|mqeRDEYDd)S<FyOo|}Z)4|n^tHqafHho*_b5ml0v2JWob?&POV
zP#%w)eBDz_hS6DxMg^c5=*4Jxd$O%}wog$h5aoyhx+8C_i`G728_j`!W<`=%5CQUw
zaREpcq)4UBqR)K9^yNdL5n$*?r83JHn$|saZ1!?-t4VYg?Q+*THE{M@Z&fXzE{8qa
z(M47X#Q^0wz_zt#(xE&$H+F(qH@X}lZj5xIyu5T?m6{6^uyQ8A#D*yX=t>-VN>ph~
zT7OXMMVCWDE07}#7!q=VdVeTZ7}v(-0RpkUKU)g`m;Cw&+{mmP8JTmD_qOc?z343V
z`#|TVn!DF~&z*wpX}Un3_)`F`t5X1SveC*`=So!MsJ<9QoH4?>ZVJ_TV&D!yOza4K
zFaTEF_JE%RPXiUe`xk)=hEU@D+r7|YP!h;sdj<0u2nA6#RoWvvtgw}#)%DrQnJFa9
z{U)FIxPg-{m<km1fsZuX%@0i1-7SS2vtvt_eN+-XX^C$ff6tT9#N|U5^c7%YoqRd@
z$o+|u|2JXy2k~KwsXL@~>NMy(NLc1<tmkEC_|EZpEBBqpAQFTO3B=H+Nx~6=KyRp?
z_x4g*fJ_09Uy3rJHktNKaz4UrjaFal%jr_~gXRF~ncLaYgf-?N`+Q;u!zpiWt=7IE
zp@2=C&r}iD!ukWsO~v3}TU7e=&f7W6@c8%-|DVn4sJF49kDJHuy`j?hnCB!m{ANr%
zp|Uclsw=5UCwnee4M3pD^Im@8i^w6WFH`hB$>%2NjycoANOoHLZtwa88>_pN_ish{
zGl1R|-j9o}ofv=3dl0d!y;l4DcBr129$jz1{!Y|<3pdq{rA?=$MYXob9P}=k5H^#x
zf2?<sYXRm{S)emJKY=}PGP3vEo21E6Fp-Gsh%W|ls$f?#mp=)zwdwkDD2MlTC#yFf
zIXAE9lkbWBKFg|yw8X2r1l)RLW^@jC;&$4UQpfYhO8$|6VLMHbAxrhC{Pg*Q8VQIv
zj0-=&R}K1&ka{tk2hY$%)g}0VZu%gKLHuhY_XhxaSO1JadiYXjsMi?PEE@jis|86k
zfhm;WitR=JH0r(+ofWIu2$?Ki{Rf6eV;=&5IQ;L6!oOP(m|3TO{Zr1$OMpU++W(_H
zfI%Z;K=#bMSLcV;L+zpV6!jGLaktJGGair`#q55kZdNAPKg+wqSV60(t8@0?HH6iq
zH5zYz?|#D!78Nm5R9wveAlG}v-3)*HRyrQ6C&6xrAOJd1+0hTXGK%L!@^<(WLeQ@P
z;Rn@tjH(~(+_lVJsqgHW_Vv!5GvAsp;n3JUrt*Rm8%uo4n$C=)B^qmTA5hzd(K~%T
zj>Av%3#A!R-+t7QZ;*Brr|!jNRO(%I>eF^LwfK=T5Cw&7*w;v*Oq>@koOIb4;eq)i
zoa;BF3)V>gT|EQs%#VF93?I5LsdIz#`DU!}u8Mj(kWU8j|MTOBe;S`?7II?8fCV;i
zgqQ6d71Zx+&4AR|d}tHp0D3<!5txIY`ff~1e2TV2!WPcMz}{@O((?M2R^BL={0AiI
z(^UKWJKwYRk&En+;^IE{(7$QhlNqH7oVy&2Bq_WdusF0a`VjrY)|<OJlhvh?iUAn6
znPXREmU39McO2?%y3m1X4h8w04+W=H`DO9jtAB}zetU`#nS<x?dUQwV6kfF(Gyukf
zCs{0;1JcqSdeecp*2Qg(HRBK7LkK{BJ;!<j<Rd{8!k)_f@)7f0a0AH|=#AxOwLJ`&
znQ`2%88UI`suE4#c1+j=&yd>ju{4)+D+d*>71R(8P%V`c)>b0T(v}Cz7=2iklL1~P
zzd~j#9_fJUN3(ssG6n#Dl@Cy>k$S8Q9kn0szZZe8df1hMY`WXd6kNl@LXR5&D<l4k
z%>S?T!2i#$NK*-P3n~SL>c>l?%8<ODb%Eg90G{4kibzScL`$N*vA$M{L`kcrEEYhu
zsGceEg&Z`O6=k}}v4-4V_mSjtla$Aoau)zqUJmHcB#6`PUK^+bnyPeUBIbgP6E+4I
zfkQX&c7FkZh5&#Hg9xGaGe$(g3Cli0at;4ZY90zVfbm%_FkVVy@R#2^3LV{sB0uLR
z0VFe(4-CNwP)>F(FP@V6(3(5ZgX@5PdJ+y~!a@8_@L36>`1wCiP5sj>)&Jn;eLae5
z*%AslvEFLl{G`yoJ4Q>iwYuaiLgaIH?Kz;zPyHL%msZXRa)O_uY>?Ji39KvjmH_61
zvL&by;Eiu+a-n7<V2iV$<wX_i^u~jAAe>MWXuG>$k3F^(GEWKO_qqZDjFATf$migI
zrtOT83s@46(eS9FtMm0d>RT5;=kdOwKr8x%Yfz081HwLqGM)FE@jrmn2>l-0yvO2f
zfpWn?Px8Nn0o^Pzrj^rt{mDfy?;rIBy|Xex?7RP^V!}U2U?&FRZ#6&zR50M`*`S$!
z8*l=3hFg(;k2s~|^<h>Kka=x)iA;m0Dl%<7%!Kklsn7W57lgujD5a6|k{No7wmrtq
z0<cskiXXDV9=`n&`xP>;0X=Szyb+?Pq)|3i0`4~Nk!Yu*<4|fUdogB$w2@>t%zM{%
z1DbRGcv4&FPPPP#(~6%wNy>*bC4^FyWVye30~j+vkI(8ao#9tR&LVqu#4m^5_PbM^
z<3uk#p~G+c`ubZXSpA-5nXm4C(+<DK?rwLQ>Uv#^q!H3)nxxs8G;%uaaYHiO^l*+`
z`|Cg`FZ!&IbH*DBEc2o!B4;J2EMr<A7yjQB{QpnH{_As*@3L6mUtqWhvZp%_T>=|`
ztDy3%U4Tpr&5z|E#-mJ7M#$Gld1O9P8!KY<#PuJ;;Q>e^<>*CkRhxrM^b4$uRi>RN
zpeVg^V<Bn~?<RCLW5(v<D35YBy80)&Fr|wQdAo2Ws<MWB=vB8h?Y~qZ<wVJ0V=3GF
z!aD7EvPomv%yI<r;h<AK;b{08p_NkF&*gNkR=1~R?WHuYuYsw&17Ypz%kkf}Y!0#S
zo2n}c8A}8dZD)<h$u$d0K|#c)fL<xL9#>f#|DqH$CYltqYrt-%?Y0y!aNa*T;N;Jb
z;m2f;@y}&RN%(jZ!9YE|S{EO^%NmS&{6W^9=5KN7EnYvQF?&63GpYeb0)`(B3i)N%
zp;F=Wro<j;uO2_b1}q5Z--|mhP0eOLFq$el1>)UiPHwcu^>0zoC85X*NfwRA4J)vd
zR#NV}cf-2BdZjF<V=Pi5o%lI>1D3|RnoY>X&$jz&U;LRnz*i0rGp3R@7>^!Goz95_
zAftX18zyws2N~49>@lmFtSJ!W|LB<S)OiTY_vZvP39V7}IF1?u6(c8P7)uA>8;e4|
zgG;lV2+BtsC+6pqc_ZS5b4Tuoq-gTxLjtI8A7rv%bpNaQ`~O%oyL%S~HO*-E+75U6
zv#tEiZY(xuRPFq^(-3E+ye9DTyd=}HHqbuHRz2savSQI7`8x+&Cx7!vX|d2`$tm2b
z-R`o<H^jEHIPb_C)B0DwxjxG@c(>BOKXVDb29MH=Ud~YHOI^9AF2~O`bh6?OZ}jn|
zR1W<}szpDsy6=IJ$mKh@BFFX}S_v^l8M%Iw#0A9!yKa#+N-ob<rsJ6u^@Z}2tRF0P
zwJf3)hYSks7Xzc_FeBqfPwe=7n~$Dscr_T0*oa`y=>}b>grpW~$(YBgGTx+?bTYRe
zeT!xux(h7pfLL~2Fzz9LH(uz3ZFr#_jXJXPU2(In%_@DL*+{U#qod^5l#tX~4bG#Y
z{jA-ZtlELkwiLVu2hICzV}x6m6{YCylQd;g`p?-j)F-$Lnm?2v57F>sHJM0f_DEi1
z^n!+=LXh|JQyz-O9>I2kcdu(Os=EYi(9C!YArVb&M~HgWe2#^rkP+lf>Zu#ALEFf>
zykrxbEb68&2A%RnqQ}o<;>e}J^wyN4If-x&M5zz*K6NEHjzzJg;`^Z5S&K7jJ2AU8
z$$uNQ)0(c@Z=K>UrG~!BC;f5oXj(~W4MX+0FR`}TttV`cD38@vZq<H&bZP>o56<wA
zshCJHTMg>dRt7EWT1DB348gOP(nSk;50}z&3VPKS>nyHtU^jMeVol(p{S;*=CnkpR
zQRpbhTcAIjRyED}+#-$pnl)a$;|~nl1(t!fnTQwnEO(K=Mi3kF6c)Q~78duu1zIfZ
ztvEF=7Nc|Czd%#Ks1^@cs)VyIig*GvMpG@@AHJpfrX;-ScCS=p>y{IU0m_{@k`K*c
zVkpWL$zGZjYu5O~R&v4lqH~Y}tJKZwGnuBAX<^-Gtpj~5;&u_3^)J7>V+&^JPFT9u
ztotB8w7bQ*IX>u$v-GT5vneM2qgP@i&SrxpLKc8g7UB>Z4owwx7uTm?`0g5+9V5@E
z3c*m50{J181&*O2vGR=fC-83n04)Gl;6DFvQS+adoFk;afY!$7T|}Wb>n;@u57n=u
z#L>^NaIAm;;E_CqUG(ez8C@ReaRJYqF5(`ZE}5o4ORV-LG6xwDeOFh(h7-Hy7@7jH
zh6L1#Hwy1^Q9;SPe(FrspZc^;sY;COC-eIc3L;RipBEF(nIc8d>S&^1TAc_HBFA$e
zzFt`P>`G5)+oDEK=%SY<o0o<&<$56rVD3zu2Oz|<uW#?Y(2uOrahb!scwRtP&*o<?
z5m@xBMr)IN(-O;K#UK|!3_{Lz+IV3zk}pP5ME?0a5sOyz*^;(7j7g*f)>_u70YhBL
zh(L5VI<fR=FI0z#cFs3A0{7l_67MdBP68<{d@!S0yE7`l>8jFq*Oq4Lo~=hLPbS0f
zTS4;{R2xEFCNQjp)~C+MPLAJiGOOcp_4^mb<6E)IyK~8}j75&c4n*aodaJcI-Pk+X
zL&^MnV10^2>ehqz$)ksH2COAaw&4~zNH4dgOL%sxhpGOZk2SKtft9(HHF|Nnh+;4C
zkC*MUih*UEm+Y}NxVxmA*oppaU={dq8Tu<r%{7n`81F8q9s1F4qY*!nnfyZ=8r9xb
zs4I3rKIgfJq40)bb^7tF$bdt4)S+5BokxROnz_`OjW|fK0*0>agFup2Ck|nSTR!Bn
zvP135E?_$ACl?LvxREE%F?Y<PNqDnWVCfiJBRH6T_hmmZJy@o{Iv&;g%OdEG-^h~Q
zb<BqD=y%zOwxCN#;abz+IGv~j^YBlvjn@wEYW)mX<voy*lkN567rGcTeEy=2?W-l<
z;F54!k93YOOUI(tQ^tJez?c^u@6+%>NT5D9Ln$L8H&qurf6i51du7qE=h_=;m|&I+
zus&L}6BLF_gIY$u>xL?JCTzH&CrU^1S!?B!kkZdusF+M!NUXIFlc;ZJJ<@Y1w5_e8
zAqmy72#pYvaTvFymj>9M5P}0m;Jwj(l>{PGU_^<!uy&ieRj%mav8$W(UeFi4g9ih#
zLL-(!<>j!Oqx+=$sFhRQ_9>Rfi&AN>-^OAL$ljl`EF7qxl3#ejtb&?vJQUR_HVlp%
z{@K4>LES1)2P=8Rxg&>_9*-)SPPo6Y?IFzw%;4P{p?-2_H0rTqI8dt#5-4v>q@e=w
za`Wudrh{%MQ%hCR`3j_ex6be(=$!_jnF9UQSUS@m9zSVymEH|HkR<YI$!ZHZ-_c*w
z>ZHQn!QNBhQ;UDisTJ?#*a&nCfzez(Tn;OT*n{(P5~%#otAVA2$_KyoO;e<R+rWN0
zm?=*6pyKdRHyZOqCn!Ht<aj^^x_lc2ti0ZAWDnSgNC|)NdkP&ET(o6EO_lIcU1t;8
z^4?XKIrP>Q*;{FDR-*IqpI_&aTQ-9EVcQw|O_LvbkD=)l{x3hh;)5~>krj)Q7Y*$b
zBT%Z;bzHzO?Uo~5L!3w~o~ikUaW*#-)quK5bM1#?9Sgl^UpYGGS2o}r5n>JEwt{d9
wQaCm@(s^}^741la6a3HY^IvgRmc#+Mn7LkS;s{f8_Rl-;+xoYPw5<O6KX{<2S^xk5

diff --git a/reference/Rplot007.png b/reference/Rplot007.png
index 531ee415296c624927899b2002a0ba6ebf82c7e9..5faaddb2a72dc45f2aa19e8d18bcacd10d650de4 100644
GIT binary patch
literal 6966
zcmdT}2T+sgx(>3++F((dR1fS5ii(IUou~xjE(*HRi$M@VktQXfC8(=JT8?W$X%VuD
zQkN#3;2MYu5)mRuhe$ICAwYmY%K3ixoSA#(-n%n*_spGhGLuP2{{PGWzu)t|PvPbn
zd*t>ls#{<%*!J&EB7T6uq{g7<mz%&RiM=g%!OJEeJ0t?Uf``Dm5f5HAho5wdgu%A%
zfSywChH*j|O!fVDh~tjf9L_L4Er*{t#-kfm<?#nn`(nb!4katf`gU!1G?b}S&^wI?
z-hB7rl`o&@T^`?GRMlJL^2E{Wr^imY!2>_)ak{H^S3asUyXI-CR;xm|mh$75)e(Dd
z-u6jow<jL+l971Ehcv;b>fw5W4c=EVq+EL3GXE!GG8&yXZM2x1yV6x<Ze-(j&kqI*
zaq7^7!5-^KZA$uL!#3FFFH~SVqH5xk$z*cGr{1SA+?en6Q?wfz8ho%=lX!)F-j?R{
zv|UCe)A2L2vo{O$DrqL@8q3yFXMOt|lkT};`#^r2<=WcX#7sB&1NqDq_fn<BsW(-5
z8U=bO_rDFk$4`(mLU$>QZ4UoZ6}IEcL$I&E@`jz<-3t5bu_US8S76e|HvHF1`P~Ed
zZJocRgDm)Psa*pzB%ggWq$sEg_VyO|c&I*-OrgLv<JlD^I3ZTu0{ctRY3XCM*{rnm
z7z_qU?l$36E9yHV5L71@FGc(k5`Sb@qh%o@sOCN#k6Tu8{8=w0usKi1yhW{4C%KCD
zr1NP3VWhHClYF>Fu(g0i?x>{QU*5NUer~vtDPHFi)k5q35*Huuus$$Q6FfR{!No=0
zGOqgdaNgo4eq0V_BsMft_G~f3rz^*_C*IN+Z~58_{xa{XQT;-eo|uWxn)e4q+o$5c
zR&=B_RoNipfX6fHP6rElbIe@YBfHFuM9w=qgLDF6e0+RX)Ec$P&#irCCIDRMLt!TR
z`<__KV2!0q6+7?x?J5mSkmT$GMJV%XoWS6wF$KlN`u7faC{gCOQqC|QOFd*dDvf<(
zcMpNb<DIgllQO2F|4{iMsQm8!{Kp&s0p8{;!ok6z5o7*{5%g`Xoy^`8pMmn}@KU8x
z_FqiMam|`Wk9nfVqJa3Mj>@#!k+|aF#@u&cZ=*1nMlUl&sdH*xULJsqjUBGAvb(!m
zrF2Yenu~u~a$-<gofq??z=b=c8JgMUZK;#OmRf!KcoD2NZ~lkD{~uG_--QT(Dd-?F
zXyIJU$S$JQT7Xmb#-t2Kw<KkQ^Xejzs3L;dZW1+fM%^l*?za{$in~_hegJe!L3ug1
zx`(pHD7QsWZIrzfj7Jk98K8?5ZRBmvQrRD>s*tbFW%xUsc~GENKydEN`_?G_&L;(%
zoHulqHQ2eXl$boQvBNzAo`1@dBdwsPpq6{%ZxmG1Lvd3}Zyz*ge@dy`Up&MyE!RsS
z5CRh$6(mb-gnUV+rR_Jb2__FL5sbL<^aY`0?F!v0m)kMDCHPKxC5)Jn(M~2>sREz`
zcV>Od@<O4S<DwCWZE|w7ZZfiXAO!iOkJTM;WP*Bg=Lho7vw<~2n=yr>hY#;4?3xg}
z1=s9}P~8(06;=HcE&G9y`HY^!)z_Mf=VK@D_E!g<8;b7p>b`W;ceEwZDMS@!X75K&
z!cU=bd&CO{lFFhtQpb>yy>kCH?HMSZ3KQ>9O>YmBEYA&RTRMA0`N_drmueCO3o5Fr
zps<$l%T$thmel?z^L&<tQ#=68tgO1pSHbT~Zbq}-`w`zA-LUOg(evleSNSLjzyFsD
z*1bVJ)5heU>8uThCZVzxITia1H$)rywx_Wp2EI>{I$0Ii^BBvnp!v)V)%)Uq<bNtI
z_a`!xz(QG#a}D~hE7S7x^DFR~UNLUVt|5Q<pN3$QybNsbjT<*69*Nd{yjOecYAe{n
ztrOOfYx{DF62DMMI)ZP(pc5o-uSB45FZlWs){0#{_Oi$SiN=xwIqAkDgi?>%XNeT>
z>$G}q%R1mwEL$RHxpam-N|9L7J?{D4@iQ$GSqMJfj_5d0o5rgAeCWzZJo5vZluoFX
zUhg!bQ#UGmo|(0>&oxs_mea~8E8{gkJeedlW72m%KBNRivC`I#nH$=L8BN3>5b7r3
zyH(R|J0BS7YGTK(^c<`T?kmI2)lX|{`>Zc>Dtu`f1cJ)0T{juUF37O3uoBk_?F<cb
zC3$%@<Ips7Zd2rt(UwCnjY8+*wx7PS^YQlH{l3&gS>L&YKp@P`&AGND#HyRe?AJ_~
zf35-^jhzo<ZQ%Uga}_b10Tp%iw2;APZO=jmeE?1)_zV|h=}~bSv|!-m>$|*{Iz%du
zNh22)>S}A};nrqdtNc&@eJAa=&Vj3DGF(vUmHV03mCvh~H#36T0F4zef`D>~7!0Xx
zYfo46{ZQ!#b&=ZWs%^sfR+I@#05&C~I-t7%!bpjGO%S`9Rn~YA+;m<AR_u}KdHK6b
zBTc4C2R&6}WQDB8$l<7-(-i<?GaOF3Em_`xBD_3=mxv5OD_UDygDztlkp!J?^yyMP
zsTo(UP;*6NtI~c5u{kmBC=|*wf!8K4&s${@DZy%9US7QU7jm>0a&TeZ`f9szi(%OZ
z3uz#(xN2j(mV;YhSUh+K7`^?*cD0F*uWoa)WMGf4uZT3}S11zE>igOjMbau&cjAUx
zC}DIpeUxy0tMaqpqcF1}nzE;Y)~tqPTF{kcNd7f&fR!jc1nzw*J1iqRti=?xmfFfN
z29=hUM&(MxT-w592d%m1W>aX<&gRJYI<NahDFxvY_HICRh8y2k>7}gpev`VVI^Dh5
z8c@_S_X=gDncL>lvT&C`SRI<SQXUmA*ZPXq_|R76@MTjApiQqLRbK--DG=X?4JQo*
z)eN`|!;^z+0!~j@oH_+)aM!sp-sAlpdbkBj0XDd=uD08K6|NKK?_}b%-V~P92LOax
zdzU$pi5Fxt?NDn!cw)z|g97r1cnh#v-3HHlk4E=O%z=(<XlyLxbKdm?32qDbUW$r3
zVxQY4s(Sy^=u_wq+kM!k*y%S1R7fk^=dW(uIw1pJJ>I#Bq4k3cWzvWapS)pjUyT^I
zlGb_)yH;yHRH0q0w!uy*XRJvbDsASqt3liTjOzlm4^%jSJ)%gGpRAc8T3?||$I_Sf
zp5&s#!w-QTI-;6>-#Bcf&R@YBX4cibGNMMeTEB#7(&$I$#qK#+H+J>=6<(VG&JY?F
z^W!g=4NWlVw-IH{%LA?yTp|L&9;!E*YgwNo5KO|yjzP;Aq3tc^Tcr!V{QJthcteqN
z8w7QkGf1;~dEw&4ubs=!Ycw}ESNOE0n8dJM5eVUPE#dJ_5*#j`my?8h{%aa@nf)PR
zb$%SX_{Nyo`}ABz{0i9L2%(D{>~Yy$eV29}qQwpxQA;cS%|ed@Tmu@%K!Li}1Tg}i
z=bA?PH?4gtK6}rvY5v!(zJ;~!rTvwDcGd2sdL4&D8#&J^${|4w4y$hG4Pc};J=8hi
zUafcZQvX-Q&ZVm6oCa1|YW!TiE~HM=ZJE`JsLQXusfb;ia;*!$0EU-0dnr4#Vehlh
zVO3BHsLv-eQ5l@US|H#F^^w!<H+SkzEOZ#aSpwWAkFy(E>p$g=GFyC~U)@-Nrswt8
zvskRuRD%{1ZEa1wkcSB&11YSDTOG%)jwd^qCk6xroT!T3^mp3>2^C0?y}QGYl{Y%5
zF4>e4xf1&`O!}|DyXYwm8RducrW6ze4mbdA0XMx(M3QJs2FK&p9?-qpKhY6Oo}S~5
z9GzC!M*)vmFvP#cLy1Qd#(u4z8nVR7!ln=X=4@K4m)q6Cs9=%~wxB>!m_uM%8w$g4
zaN%2Pxi+zAeRQ!2y{7OpX$lOj)D8oR1w@@(4bkz<V0KQA#B<Zpq{O4zBeHBGy2Vaq
z&+y}ZgIZwRLOV7p=8U$#eS0PcFBYJiw?pfD#&c>aaH2H=p}#&7J(RdIEH581)_Nu2
zh^isFD+e%xjD2G#WEY^{BM?A=iHU!G@$%)#lJm`Gz}5J+r6@+Q`z!h@e374LW7tSj
z1YNHc7L^11o!!0tH?Lf|;#wQ(1rdn0HfUR4!NMeT26q0rjIX!1H~TQ!OhMFp&Y=z1
zBVW)`fEAPmpM|8}x^)Z7sp*?2NIjTBTCXRiS|`iqiqe>rIM|`+QqTIsnz0{mK^|^t
zX$iQsKLEnIi4=Xvyq?F4_^ZvM>&^X5v5RhWU2ye3+oUSBfjR8MD01>G^ui2BN6;--
zsFi*l1>FHTF=D%e^<N(i8&Th?e9(eJEDCLyecay=9lW%>YzqLGiNcvG?RWi3OYjm2
z`8r-bJ@Fs}`>MQhJ=$U+YUd#f3w0z>Gi3T;VG|IViHV6!vmd+n#>pmr6Ql$0(!6G*
z@}Pdd{hRuAX%c0bLAMo-YS~X9P9X%{k{y$u==NCi#c4XxJw!-nLUV<hCDAN(X@Sp$
z9BC0wcgMd%wkHZs<w^aM+JNm?H8}zMLBU4eOTxh;($XY48(E88VvQ${w@7W;-3Hvd
zPdncAzNM{d^27hD<^I>W4&Xn5@(MVb4cL{;2y&`%gUy`0yRoi20P>_mSZ2CY$PSp9
zvkOD5gfY@MTi&$rJs7p01dG!y&4ZEd&F6_g(H9plOq!q-Y;IX@;4&|9Nq%P$rZ*Q4
z83KAsRE3Y6QVj990(Aq>I7HkMnRneF;li(j>nJ$ZP_`xd@~?vr_N5dMD%m;7CB^WB
z3qwsam2wH<ach3Sc87^$r(QyZdY@yewJM~s_$m*mvG?znm6gp{rt&Xdu0GI;=eyt)
z<>g<zco8x4Hh*&%SCCjvgXgN}%*WhUH*)t&5H`u-ekP+YQc+*nUjR}fg1x^bELdm3
z{H_z<gdH$NbzHmO2js;oT~eAySo61lzda^_JtsS^ZL6bDD6fHxr(OOxlJS2cs`+!c
z@#2hJIICb7zs%koR_MG~^}_KzgApCWN}$Hs`vJ+-9j(MNbu6dNeBJee+RNh4l#NB)
zzZv-1ssqaaP68l1wEec<#fu+H-q#m0E}QsoQ3Ja79J(T}=Byz1wJj2<AFB@3O__Jr
zY=^JrpNXaZ+`axIg!^6F{QvM1Alovg2;S5!c9}C-C`sHMKeyk&sWf&?My?$Q&Rvj6
zaI5lf3odVV{+ugCIo0I%q41VC@ig8lsK(tBjNFRI=`L5G$NT%>qFDzdg8J@}9dnT+
z5&pP>d9zWuEnC;&6xRHl%~=JF=-x57!D@JCwlP<lgpaxyc*j~Ri+XdQxaWOUBRZnf
zER}Cjv*c^|&K$i%H>lj+gTD62&S%Q4ME5pXPrtz>ksCjn3RE6#qAk@|A{O!FB=d5-
zR}Q$#Y?gTp`!~;02c$}IzaQ-hBdB|DP)%A|8pM=RtPgHr7MMm(QGq+JLO!_M1>DaQ
zhH!5;)@ga$>O`tR22BfZaj=nHi4_Z`nZ8=<{edXTr=ntDrLfq34Z-NsJ{BYj<mAxA
z6B|cjk5%U7=7Y@OmpsSvN-eK0xI_p!jKMI9rL2Zo)WA3zHWqbP<Er?fg*2}AH+Fyq
z3H$7mV?ad%5!CklnoJcke*?%elC75VA=$XBcdkn)Sk$<h2dh>8GZ-BZ$F}O|=s*-5
zGk5tl)C-_dW>~Ba&Ffo$fCFX@5?KD=R)9^`L1s{)NL4R|9r5^1ON$jr#zHDY?htpG
ztR>RJar$rv0H5Ep+@iP&s=WgQC@qV*+>7AkO)@e}$jNYVD~&$ZkA|{gAmeqAn$E?X
z7rrwP{QxDc!2e~v@rT|4b!G)Xf+il9xeUd_*iAVf$DUu~Vel)M558yQ!7i2Pa(1^W
zu2;d=t5h^JG}a|RMloOB(&3t+-0m6XU6cFGvw=j(wwRIiwnP|pyE(5B!_Dxo+67Wr
zw8h#Cd1uyLQfOu0A~+4QcNyk$gwxqaPX{=gkzg)tpv}^>#PiAWyk%n^aKrl&O}__h
zFBXgIfMw7h+=D*)fmM&?P0Vn)#B?>|_I&GPNb%nd$;M=}`8np8(500XnlI5(2`FbG
zXcp&ZA!bCdGEl0-LK4nQTl=#Xq3T-61NiyE70Xc+u~%j+Gu`;Jz$Mg@<V8%l*f$NN
zNI)+!mj}a$bi8;mV&UVfo`cNEuQ=UZd^U@<=sy45`!aqSVP<YF!<KAV??Q;oLh@2T
z00tyW+D=`2YAr>?aea2lt@FO2P8pCwCb0__6Be^ap)Ye{9;}!R@mKJY72e0&4())1
z6b+h}erQ^HXUAz$6{g0Npxy34CJ9hA?w72K99Q~qBZhXMc4&u0NSCMsQ65r%J}0}O
zQf3B05`NTWdW^0)=UBuZ2962x1U!Apf__Asq6-yD#iPZ*UxVBs6|%qj<xM+W&c}k#
zV;4!pMl-X5%Xo9<ul7V*B9TaDH&QDd;za*9S&XjYZ$nNmuS`Q--Er>#59H$1u3U59
z*>{gP4M91+!aB>%R>E;P8VH6^Gz0O30muWPDdQmi=rCc7Uo<8cvxeb|`(1z8od;C$
zDgz~AKmaEYipyKfo`sES){f%hk7U1Dg*<4C7(m6rN^o%~j#XNL;f^eOJ`KEdxNq^U
z%lVrCCv89{DguZDtJc?|fAsX}skpg;8hrraA>8`sOr?%p*)f1=GnvL}K$c?L|C*EE
zNZGb+8<j3*(=(b6TmaHXIL8%-E;zP2PDZz$$p<=|rX}HN(K0E*$vS}33G-2bJ>WNX
zMbh4v9%oNnFRP!*sslr4;<bKx8b~Av2I01{$E~k}o>fLA7y@;AX!+T77}q8#{{(7%
zpl@Q0RZfJy39X;Jhh>%4Rw6e%)|0xC0=ZLAII%X4Rg2S~>dIAv4)*~u%?Dqpb9dms
mZb<s#zv;|>P}ICcin%wi=4<^|<KW+3u<vZ_5oIU5ul@}<U{>J(

literal 12598
zcmd6N2UL^kx^B?1jE-iuilS&xK|w_j6{Vxnr3pxHqfu#wUK0q+xHThHK#X*e-iI#T
zG7=H#At)h$(n3Orlz<Qd_x;`boORE>_uRYIK4-6WTon0}{QuY9_kG^yc^+Of(%G@?
zz%~>LwL?!=(-egg8bQ9dZiXu%)TRXZwfUyLjwbwuf6E&6q44WRPhD#t6l(h}<XfnR
zL0m<l4x{umFJBK#;V=k~sl1T&*?zkKr^OEYAF`z08$LW3FSS+u%t=E-akm8Xe9E7;
zyOJ&RZf-M)thU&#&^H#CYx0+dvfsl@2$4BgZM8;)>ZA_8y=J1hHQ-|+qn1bv_4F^_
zey-wN#e8aKIX^h%&5eKwen_YqmwVemIe;wJvK57T{FuJ@0}92A+WHF$C4D%IkoVxh
z=EkKVLUpbX>RlMh|5Cu#=0Fvhw4p6wGi`2!4XWKe+4?wRAyikp7g_|SQncwSyR^Ba
zG*rMY$jj@B+<&gpt-plo7ptr3Gx4GO<*yt4dh{fxI+VHBrT6OFuNQlS=o_moXUWu0
zpEb9za2=?08E7Qb5SQwQT?Suxv3hf3Fo7e#?i@X~>qo&#e>3g(zldMAw9IYh*EgF<
z?P2+*-H-H}*66}vV-6~shO8`f%Mxd|AB%4-8f_9R(pP9TO?{usJr#;B9exHsKUFxj
zahKrBZTe#wer<WOf+ng?Y*6D*S5UbyMq;z$L(QX;oOoQi5NZy4EDY}YeE+#S%xtoQ
zsgF+uaXxvN*?w`@z<#)^3%MbOUc-(FUCnIz_GP<$sDPKx9-V!G!84Dju6-L-@?}2C
zF-|Y(&eU<6pJ=yfCN@@k443F&f;7cK7ED}I#n!%(R>tCu7e153T)9JyN|Px*=V1~?
zlQ!?HC~E8YUc-wnoPny9k$dRM0Iq|*=c`S~`^%#VFm`rv%}~#pfNw@_TwxW~&AmS*
z{L^OM%Z+HM15qb;J#^-=`tV<0ZK+V>rpzdQUJRxBR);9jols#a`?n`0CmZ_tRVn&1
zyS(}jsRe)3J)3b&%J0*!8@EJC?A}R=l4~(YS7S7+t+4ai>g%gMqqBhqM`LyE{g)U4
z$&zV-N9EHbdItsuZWLX<w>eQ=FlB5#nZ&hf5%KwSo17Rh98#m9t`mK*Rmn&RHeN19
zeJzl+R2n>f>JH4ug&Z>9ez6@EZnV<pOv_U_Y|B$)b-{Ta!Og8O_STo#KqI;&U2P+3
ztn<C<NO<_RV(SX+nnCXfnZ^av(^h{R_A~ZaUlYIyyLLvz;IyNy?I}H_z^}is%87!N
zY~tc_a6w7Q6S`p1|F>7qzRbRmaDl~*%PJ@+puVYwJ+AlXusqS{;)7e1XiXvfJwI(W
zx3>N?r9i3s{6N%~+qm>zB(qa}-A*}RhWg1V{j?skb;z^(sML4dCH9vHS=u6pK9A9O
zkK^A$mUPvcAiMzcSfH92>&2;k8`+rZ)v_Ns$}ARZ&$j#2fq{a#Id8q53=NWmp1i#L
zrYLhuOUW2Y<~1pa^iIo^&EC{pW3l^hZrs0e#Qgg8v8tK;+_VBXwXkwlvW*LI#KnsA
z)^YC>u(4nMd}veSo~j*v@I+~U;l-gqjTqHMs}>uFQp;{<SVaD0fDc10anYKuu8l&~
zmU*|;hVcE1ZK_TRZ-v=^_OxofW!l%*m!uX_H&e%!d3#e%E7PPsRoT+g&P$6#c)Ofe
zQbOyqbSw^<pEz-Fr+(Z{F}0%5Wpb$3YGXMLJB()+ySlqSk<&IbG+Y@KTYuWSQZr1f
zpXf|4U7nw0vkFU}_%19DI-f5{N;(kK=)n0@q2n{z(Qf0kvM_~TnaWKtI4=B9)3@I~
z;Lt_N-GAHbt0=VS1%u+^;sX$q8-5KV&c&xQQv-%#`w0s>m&1im?Rltq{+E}i9S6?q
zCL|=-l;6@Lw*=3%O8UXK+v~snxb24xE6L5vq9G8bkK4viYU^8{wyD$=*N*I(%1tjB
z7_cd}t2KQ?LU+0_AgZ0apKB$Zx$)b|5?6ML`R0{AS*CA!GQAWI91_dO+LY50FM6a^
zyEBlj@aa^w+~*K@gTz**tEF<zp)L{aTBhp5P^b|Fm7p!CuuY9>VdAmB+sRlCghHG+
z#)$4ib*X;+`8*1>cVUI_5{3GB3AGXRi;&Py@a7-Rz-6oDJ)0bsHldiO&xVYcwQf|{
z8<DL>R}^!vv4upS7vdGR`{b!p3Az&0o}MqdAvN^kx;iDuI-RjArk%`;f`Y5FfrDij
z6-<n)o15`BjH|2bLBW;Cf`XH<t5wz2N~X<{3nM(dxxGEd84a5ruAM0vjD}nntNUl{
z3LF`8b8{unkuY&yb_wt2pEmarAD=~E{*QzF8AfjPk0bx*FFMe7U*dKR4i;tWlP4;R
zIw#G}CSE@p%k=#OA<~{CUs%|?F)U6z%w$)$^L034TBV{tZH{o*jk@|P>6sAfk1*6`
z)XNPUkb3j?LiNvHED9F$w6?Y$V!yB}`K`Y_fifD~Htv1*Cvw}kb4cqlW^g7mv|`+L
zxHWCQ*xnhv9Q~PxKg2+1D?EvmTX>{(0x$KpOhPeK?OU)Kg{2%)FX>lIs>TINpAt&Z
zm6&tLE&lZitvx|byG4Z3;#tp#rjer;9~m4!B>F}~{KUFo<W}c0O{S6*Okqazj||JD
zs5xZsCa70Nc|Bh`ocfJ_nbo8k*f^C*yNaTW&NlSBY#)L9nbTYRTq8|+aHD#Aw9#UU
z2QG$U)`eeoR<=$(kjY77JPcN=+_Z}PRE&+uzF@R8GFC>tpdG+@#a+s6OqmS(XV>e$
zxZM8(J}za0(#bSoK!I{~cJ3;_-4<@X7ZrxdcNS{6@n*AOih_x3!`I(})zbZE2Ca*F
zP^blkp_{@7l>Li{YxC*s3=*d27}@UmI=^|ncjVPQvwp`AUSC|+xef&lNP&b`qf{Er
zKd2<}1w&^YbK=w~ALKCgog(~B8D-p&ks-Iu3PxrF$L5z0($O+xefOGr3Dw7Bva)G9
z#v5wv7!MCY4ABhfPn=gzK)2pH%Nf_&J_6|nQmcO4Q0RKdv0V>$_OCN_)UTf2x9$F1
z3D>*!y1l)9S6wY6z^ljO!!?gaQv>Q51w}>E396Nql?rFYum(duC*BgbZoU^z8HF4W
zP0b|@DlqO*MorF$WRZ*({)#zy^5mW<ZQ+Qwa}NE;Icabf8a#d=%5|zIJL#f_1F5Z3
zaq^&^sr24nC}MLZbpOthM-x7P+Hy3He*P%ZSi41%&{0!O89m|L7%UO5cPw6y((*M>
z<!p<>(7kwysWJ1Fh<NKKY^zAGI3Cs`da)}t=2&_sd2#OfCeQN+%r!Lb6%-cw0qDsu
zDJika7D6$-!uP&}l6A_WNXkMHg~Fd7+VbzI^Pf*Z-!t#O;^TohV^pgC@%U||H;Sj-
zB2A9QUUPGE%WbQ(lYye{>xXaDR^wle`!cJ*7h<;TdiYlx8yjy2HNa~JqWtUZN+!<>
z1#eLB9{YWwJ=t=hZhU+^Nj;R<&0f5|1&yKF2QbVR>Y(z~0VI!b*mubv0Vuz1+8*u@
z@G?xOZZuk1$v*nOIYoYt*{@IVm&k3|;o;%G(c-VeL7T%j&IPJ?*QYMm|2gh0ObwOZ
z>vLCaxg)y^V`FPOZ=)u5f8p9Y{OQxDgHERxn$D1d0~;M`8SX(U7#-HqUonI3HKVG5
zDwt)#+U_P&dHLC(#tzMBI_C+U(@{^lba>=r@IdD=vz*5&VNr71?q3Nio%F9acW`ik
zXT!0EYT-HkfX4AJEGm-bVqSm#Lwx?kEl1xPjKsJqxmxsIaK8`hh14zeN`{njklG7|
zJ5)moK+qo{pE@iDtLYHnVE!Ma(4n-3p3>WTtNe}KZ?AqC7!TZf;J;pD{xRv5a(+}O
zuC2A6pX}^(u_m`2n_}+E3TT;}cNuC3vQH8X8**8iVc@@gCi&Q0NT+85Y7s!Jvw8--
ztK9l!ROjA_E1pg^M*I2sC8-kp$rJw1nX^K7BfDSS+Y*69?!Lz3VM9k^brrnp$Nb4N
zmko3AU-5)s>FmD&k$=Ux|IhFFNFFvYJ826F)p(VL!koJkxmVVq=*g2OrtJWj9FDl5
zF3QV8xEuB681|~KjjFREWSgY=8lVg9F5mpeFt^`vo#)7gCbV~{X-Spg+iQrx)*%A7
z(X<_nWbWR5H}+#Ii2}S}byA%y(Vl$K*rQ?gfqUK5af;*?)FtEbcK`9+#wr<`w(n&Y
z6qfWrz?^sPI;_`|r58WuUti_<`E{JZE>u|BaW~Wwci2&k_$?z?&5_h*FGGet=};;F
z4OMFz=@|(vMzs6p{_&5?ao0^uJ`WbbAU~IH{;D{c65o3pcL6t$#SLBO7nGLve||%%
zS5t<Bl~;tm%nw%Ej~(-_H6>TA*EZ5<76O)KbB|zYxb*$|_g^~T(HMAi=&0y$*ZOMb
zI&-?B^N9p*sKI)ly|2l@ZFRwdS^HBtaqPEhRbP7thZ3QUo5xg5YWU1lztW5B$1zYh
z<}jx$zenGk{ZQ)wq~hG@W8^mTYv}t$WUdG%hEgV{f-%;^BOqk)aO%fNjSN-a-1&?y
zZ2ooCTXmyJe${BTZ_hd)!^5LA0DU4o2NWAYW!v#xKOz9W-+@rP8I37Q7fd@rCw0{x
zfw=lgD^oTB3_r^zK~`mHV#KYp)?ckY0h(%<G-cvv168<QDM|VnY^|fQ4HPd|nfoRE
z0|QA*3P$bOr`Y2Kr^5uqW-Rt`0g?iASoL-?wTzhtf+tJ<{QVF2G2z^gwGz7?R<_;V
zF=A$<sO3mp&c5J2n0M=JK1qzIFzP6x@!+R!KDW74D`M}|8?-vLp4(J7)tj4J;@A{i
zD{*3P#1v2to8+OlN^j^_^&Zn5!j8WdiC?mV1O%PgoCCKjLjy@sLjy=D#Nlv5Y(-w(
z1DMA(G}5M}>es?#q3HQcqhr##?)9_HA@FJx#kMIv*~WR5KM#SnhpGV}x`uN^<fj~g
zMs+Wr4X}EY62tX<3H{HGg9_Jn?AUQYE%*gwb@Jq6C~K;4YH|#d&%4p2Lsn-ghcKr)
z7ce9GGPRmyJ8wNNr>&?<=*RM5P8})vx7(h$EHJyXlh6=CS7=K@Vk&{xoKn2B^Cvc-
zE|td0hlv5*aN4oSuI1_9V~VZORdJ`?RN>&0tes+d`=hi|Q-$FO+tE-v?_c?QEE)}O
znWhqGaDt0rEVN=<dG|quJ{m1YMpVf+Z!~@b>RE2vftMGDgDZ&Z{NaGWwE)OU(Z<^#
zPGsCrrO=RX+_KX^;2!C<(6$3^a~f_#%{QwGU0<Ve0klID1Ox*aw%}{+xJkgwj45bp
zawxMh=ywclv?#X8_G8l$T;1VyE9;Gc%&rXRDQhadMz!CLda153Goy*}`(eUbkTVoK
zpWQ6`=tZsxwSsg!ChLac4pg1u`9RZv#fr<mhM{hSRM9qmRWLmp=sTWZ>H2l#Rg$7l
z&gkxqsArPwh4?=P=v8iHz*J^FLa1l`@9^kASW`ekaao#2GpwX@T3TA-3;<cANkbq)
z>OHh?@s9mLc$$>k^Ib1cC<Sr1*R;OA>=04Y<cW!i=f+!6VMB-AQ0w$&L9#z*Ae$S)
zCB$XHF+3silPj&r`dA`-TGgC}YU0sst3vpTR6?l7i_e>Ph@3&%muC^>O*`^EhMNXz
zeVkZJ_Vxbxj?KisFE3kl<e2^wrkf)_=}vpnG3fb_KNBn+PV^1JN|(V(TRWv@Ll@{a
z+7flPg_*v-oDMk5qM#O-IIQ1_ns|C=?q9^U^Kx=>_RPbKE#Ivi{Qqxq+vI$<3>`R&
zf8TyLS`ot8nKg@IzbRcop~7Lx#;Ho?{3WijV2Dc1T3NwUBsW2lCG)hbV$@dhSZp>R
zNM8Z3->t8}9B2yr{E5w|OEC%ZVe4N>>P&>QYKamRj-l}2OuUC`<+maE0<Om?J%l#p
z4T$*HOP4--D&*F|5r44uMRx6ZVJ}-=ZG|b$`B;|OJ8maKe&5#C*V7Yc#xTj$cKP=8
zvwey^w;RSH+q_!dJ3hxiV_PD-|G4o6XqN?~cqkT+F7bhJFmu#PGPJf%gur`ZX8*Wl
zg~#^6w*%;~fEKWW(v#?vmLG4dR$JKH)>`MsUdUA!<oAw4qF5z11E}#SP$sShruz2i
z*{3>?AtTwk*J|;2JSBEf#lhs4Fe#s=%kN12>|<f`@bvGzDRiz|f7m*rau;fbSn$`&
z-E7z;*N=bP0Dy?+RP~2DG}qN7p=Rzt0OrDGJ@4oA<{Gzd2n3Rh5^~yIZh_rjYWssH
zZ8D78yiRQV`g%Ly`+v&?sI{4Z=0fX=JFTO$KuhJW38BJDT33GdmD+Q%PX$hjdC$;B
zga$QJ_ZX<mzZDNBp+;Bq<@UYOx`Ne&(%|gBU4p{_RD`E?%VZe(kdg$Pw_9fuS85F*
zsp%a@Drmxmuq`_e=D~XF#Q|B84zJ0G?LnbXXZ1y2riZQt<xdJhE_&_r|K<rU(`2!p
z5OjKiY46&D``>W<+eT-7MG8O86*CrZ9A7T649BDlKwDHunI<iYX`30~=y@C`$;wo;
z5$~`t(M~z&E|iw*Tq9=GWMwaO6e?n8c{h%QH4dqx+0@NY+yIwGW0)NNyZde9ac$%8
z35});BUB=QJ$NN(DJ3S@t%jGx#b+~LwTd2;T+%o~siJdapkbjnvl;m-3|@*q%gR+b
zmv9B0tt3`wj?y_AOYMB9`8rk(h{U6@zd!HJ1F9rCWb8EzA1VoQt0}=FkIv<HNbdvP
z)bs^@hCnVB+Wh@*rsgvqjSh^?O8vZ50e|<KU=0TU72n8ML>?3V_9nDy@H3h!`*yjD
zrjg%4G6*gDitNVT{~S{N_YpDwvOegaA3U_W_qL#sS^+iF_3mA13u{18S<oQjaK#oy
zRvAFRU2bo0AE@zgEW5f9)ioNJDrI9~alCnW_;a~3x4|sV_x*`nrpNlChZz}=mt@W}
zz!q?nTSZ27L!gNPYD^Dmqs93H9N$zx67aZ_vASdDwS$6cA+`88s5x>7o_O`K@{n!a
zO{8m5Sys}tDW&BZXiJb=0hEzxmychBP9i!b?xd_NFlY%#2g1{@6`T7!zdQzTOsy$7
zIT@0ivVBPx(pb+W8JAr3lHRmI2u1=WLdkTP<4>LrmeN9h+EZ0uY+J*ksIQf+4X^V<
zk+$8F!R*dFrYC?L<@t+beCti43=Kx0N?Nbp^}OnVsHiBLM!a7)+tKT-aNV~r5r^2X
zMB)oLRI!srT+*Vd%F>_@9?)5YS_{JBy7cBGj9GcRs!Qzp5y~rN?P>hl;F~XRBX}hB
z)eI)Dw07cvVdB|irG9`B3zmYVfinfwrrj;oE_hOTxEpZt)pD_vI-K8%)yZ*==?VO!
zXbfp;k9-&~{Q2gE7E@LI4!r<w<nMfVO7*j}_e=N=y#QL}x1|oCpz1>-=!(PnWi`oZ
z!++z(KJKXKRn>h?I;fdxQUwHsKl+8BjJmsHOD+LPq2|(i+v>S#e~6`Q8%gt2dtAOn
zZ$H;%-|4WLyPuvb`b@lI^IU=Ntz$lq2sb|f_&L{ED7a<6lk?kf;kPFtWyQ4c|L2oj
z4b_sM2Y#$@iXjTvj+2!|kh3KAW0mZyb8@t682+~8iOpm8P@6rk=pBz&3jXHV&8}mp
z9R9uM%kLZin+VYF&8gJ#k`O>|U?^6DHaIxtj4biZO-wR?)zK9!hA1#J0R3hW`50iu
z#IcpUu7LrTZirs=(lwxdfGbD#&$M|D#ncuJfeE?nHu~2~FJo7-RdVmWdM3`JF9G8P
z>3&Ku;$Kg=j>a|Tn$4juv`FpQmQ9QS9w>4*&`#U#@7YN@lt0{rplq`vTwiqDLGF=V
z58+*kdtU<M%FOUl<v`l(AocQ(BpNK{VI*#^-i!EG&>e^W=bxRwZJaBr6a)=RhoI~<
z;)=_DY`8TN4B0?tdJL-}O<SkxQVM8bh`@O>0bnQPgbj-Ou}s4(*C>I`p^df1SK;W@
zJNro>JiWQ0b@VT_b|qBx+{fNO<+7I^%cYcXsUk+5&3mwaq}LCNNa92A%oUNLn>%Q0
zN1VuQeuElaW;q725{6IDT;9G<#=xF96g275_3ZN7B<=Sf%dmZrrQujH!%vk+;X^>}
z0=4aG+;O9nJRmFfg+zLdwkQrjPi4qE<I*FsWB=JKCN?E#B9TR}DMc7i)o;N~*U^*d
zp-m5Vh*~Vjbtti=c^tYW5M$8`a7@iq4boJsLC}$15y7cGPDoJf(Eu=4KssTT<NW9E
zf6)@l<OF}^3!)c(-ui>mg6Dusu5d_XHFA<iRSf{h=B5+z-4y3~91noQ!Zj0<?hF#Z
z9C#CGl6ip7f#rhhfErns<8GE&4UF66=o-^z81<H=4Rhfojf>wUB|xwKB+<C)AO9Tn
zx_>33fnCpV=S}tM5SC_6xA^w{jj_6>uOA`KV|;HsD`9_hSo*4&Bt)r!oQwyEQczs1
z`k8R~hnIOM)X(n`FF;;?em5w*hw^0)agOYb$gisEi(OI8*aEU2i{+|A0G$r%7<}k=
zz!3=RyM%9qcC`m&+=KbDAV&OhChwOsfrH~(gspYZV8B4A9}>?&lSWMSet+Un$<lK0
z9DLy;{BuQ7VY@9%dcV%K$@Y(v9UVTzL35_t@LksbM-J<s)?QxTj+Dzjcm@;0eithq
zR7y5D?)UBM4d^?S&J<<>847$1G%^#q0#hDBlP|&49m5fR4=8agA9`&jd=B(0NHhic
z`CeH~W5MXzK)Z}<@47KpG9JOcVkb3#b(Pv<3i7r%?->3a)az?d?x9G3m$<G0fpY1v
z=c@3;4`m>!`^?l%Dk-(7E)8PS@T?OQ7AVDZgA|4CvK7#>5wZJi#6D$<(8-R}J9A^L
z(R~+No&w6~Re^|#?i(({k`k5t3b4E=xru1ynKOuZfaTSA47)eYMtLY$42xhVI#S&Z
zh>9L6Y{t<q_;hRSQ$(&3S9;Tv#@onnYc{QTB6)Z<=le}0)t4Vy*Lr8eP40fWDN{SP
zi^3AcewhAL(e4q-x23Q=248ds^XbF>MNM)ot8dg-?*;MtEF)~<zbC?%KA@>GZWDIZ
z>H-UW|4Pz%mpCl;uUC#hY-wtccKT%zZPB|WjeN73d@D&e-aMEBJAr=|5qfDjonXsQ
zfm5kN5CQALj|>fPJUl>)l|Za2o2tj^O6_{cWIL|c!8)ohd4i8a@%z;SQA$H^z?XrL
zYC0^+s26apAsjbHpRA_qNf<!QO)Gt+N~Vr+(O{-9GgdVR;=nhHsDiOP8rucj8NjkB
zXSBFZG&M|UW4J}dSf|iN6v|=K4pf*hZDZj0`vk<>z+31wKE+6#HRu;31c6u(64D60
zCbV@vCFw4SzGNJu&K$b2?{8h5@7&i&qS0vA(EvuwFVjz@<Km4Ob~ThT)jf6pNYtHk
z=P!=h6PL&LQ{GqZ@SZv{%t>goJJ;79P*g%~mmrU37oNps-n6avFNVW{p|E5f8ms`F
zA{6bpw3y|0)tner$!&gLM=tmE_ZMblTn2m=7v8L1-d@!e64$9HEgU*LMzD?TT|3Fr
zubV@h92K6Quf*$07+|rP%P=vYIyE{Tt-A0?Phyv1UuUI(6B`UK^IaO~L;-(kUlr-e
zlf4x;--iEIW2r{Z5#b+UEIJQsWcb<I*nEh(IOGf~>pf^kkLjzP2ASM@;KHZs%Q={y
zR=*+xpLQJ?tgz|DeTmiPa);`p!cQECN&=~hJ_r=5Rw*u0j<7f_7qL(FLhG%bhSj;Y
zJM?OtR$<6=b*I14o|B0NN#OQ)J<X`U=w~grs8e0L7n?rjz0+ynVz)C@+M(ei^tP}5
zyjk{JOXqm?(SE^g9_DNGA?5Ratn0w{8$x=9`?XE2++_o`m%?_k$*JH$PYpWtbu%-w
z1<Vr}`+~yKCL7tNZ#RdKjWUZAJaQ*gazEEjrk%>0fec*$T76!5`P_?IjIsqi5aFbD
zJ=CP(;&Gz4SQ%Y{N4SziR!%(IYMIuqm4h=kn5s4@D{^SGf!cHe&$s~90=mCA3CNni
zoUy7Lpt$qzPHI|0x$p~gbo-B!QcE}PxATd5@YDY1>)&G5ufYa^`hRkY=_FOjNXGG(
zdehg=vlUENd}Lv+@?nPcq)m1*{a)zZx9XZIc;3Zu81J(8V;8^#fpjq-@Z})_9~+DX
z{pUJWGJ$MLRSwvjo!+r$K!fhbsnOvhF|s)QDL#M!WRxmlkvZU2+BaD1V<tA}J#7_d
zI@+FiP6x6as68KQxpsKwd*ZwE{RV#L+KVg7w&l|gWzn_YdXKymO7$Ob@vgPgDyBPV
zY2Ekd4i)RmHeLrmi-U>dAwrSCq-F+UWk4>11?K8~&9X(EoLZ$?<LFd^6Tbymgvt3<
zkxb2_NAy5Rv?;r(MG8e^3MHeQzfYG0>k=>&q|+kO$e*b{Aa_&Ks6U|Ep@ettbi7L=
z3?C|?1yK2B@O-Q)H0#t?CXqxXGiUTvHB5A6ky8l7pKv7(w6DFVZL$hW>aKE|`0li_
z0opRyY92#8&nS~I+diRF+vUv|zH^__m#J076*#JSp=Buz=%WJQoWKusoM-1Ghmho%
zIx(~Y^TGwoP@bht#T`Q^=kYTs%<x!o9ao^B4#>MczTh!rM-{}nlo)a1eSJDBJ#Lmg
zeIjlB9GqvG@y88KL3q@TI&dt1p73&c&|<8vxoERzGf{Be+B!e+oRce9jg-b8n;{+^
zAoy-KsL{tE)2u9ot_Rrrf4V(Tjk9eTR}vNP#fycmmO-wU2VNIa0lQ7MS=tqiGoEww
z>obS?Olc%lb`g7U$v3A-zVyrxG$uv|lHrGXcSFOd&A_mL-A;A>!?`2{ubTs9S?bMa
zzHryqxZ|^d=OIWdv9|{{r}D17BQo!PKk#j8vRUp<<%eY7K5`KiZbQs=-s4w`t;()U
zrUs<l=}57ruEd?c`R7&v47CQa*qyemHgHM{x?{r1p)XE#JiLPYRE}_12w8gJ?#E}n
zM#{x`eDPkph%#euRnj?5ay99hq`_0qL7l7q{%D1Cdbr)vKJG@uf5G<90Os}L(f=JQ
zzcVQr-pHZ`q`fW?TOHYAPvjeCAkPJaa|-)L@rN_s{;d3576=?Oo}ZwMiZ>6JLN2n6
z15Y2hm;Q^leaRjpRo?YOz(Mzp1Kw(34=lyAz2goBZSN?Hl*7-y-N)-IC7J_E2*Euy
zN4E+uE~J0{$cqRG4p|;2Bm7VBXFjyeJj99hK3EzocIwhBQqeQQ;jq|>K$Q}JcT=J3
zOQB|D#08Kfht*~+!6u9?X!GsJr|#bztdOeY-o0Tj4NY{+lhd|2Abc2tXR5Smr2r8`
z-2Gw-{_T;f%VY5?K*HHp;yLmcF1UidDekOTM7*Ri?Z>(HvUeMWA{z$%={UrPcT5lV
zup4?}VA@|$c^q!gHvv(wSkv71=!nL7VBbR)x^?!GZOd-nN3zfCD1|-WsooE&MiD?j
zH*iMg6MlH8c_lXu?@C&x0vS#0s4}|nX+ru$E>U9Y?LJ2;7!u@fy#4_<P<evmUE$Pe
zA-y-gpPewwwLF_hg{k<y+O#jPuFeK5V^|VN1+<qZvW_L7=DT*JDB8U6yuqr2^aOTA
zu_d9kjBC1xjSrFQ;Q3&S$p_H~ZfX>A-O&k~!(K*42foMxXaSc6#A3&0wW<!t{0kh9
zP+LT#2C~vD^pD#G3GT`V>0B_1%HtQD;hkVYntEdEZgT!W`wJqUW2YNRv8nUTHv*k&
zCwUy-fCI7=)RTUgO;zyn+|DIhlpKCE>Y`Ezw;H@cpe-0t&KMoGRzGpT*$KGR<9oIx
zg65O#sc;t@XdV#kcV{4_%+qW=_G2US^YYF>WfQ?hO3VW;NY*@hqZ*J^OZ1`S0>5c*
zDAmVfb)P~_>HXo}<#~ijNB)MYGqBpLE{K<Fc^atV4&4XshLNzaaDKW^aePTBa7O-0
zlff(2FFZ3IQbv)Ic?T5ud^FLcIYq7oh#D%l%<97ehu(jeQP&5&OU13$U1pAs!#7p|
zPa=Z=9&x{-_bpe3rDI5+%Iu%JDLfjLdP@eJq?I9)N)u(OfTYfW+im{U7BOGu+ozd)
zXHYEfbf&2uhoTIMK_Z;wM9rhIe*CK8ol`5S{*jYugbr!D7iUISaP-<oYtev?qOvOI
z+0%g$+L_1z@9-Bn$1yR<6b#`5(pp792K;mN%f4n^!O)tO3eB(I-U(#P$BRlSPq+Ru
z2BrPR@q;^)YliS`Dyv`LOf<}QoNIYnBs93DT?mZ}kB~DCpk3*&(;cbG?a(y1N4B00
z^T~%5S`<og=>TZ6mTW=%dQa?Wl;}lFO^RI3n<y_cv-n!@S%NVwUeC<LB(~sKzJ>?`
z%ykp@&}wH|M9z7A(cHc5el)u{Kfe`RsH(W(+UTIWov`r}%EQY>19))H#>U<Pjh2-z
zQ2~Ne5xrF4@9cB8xl?66azA)=W|xDZnmrZuXpr+`l(B1YlUG)hFF03h@^qruBF_g=
z#*9q4S+>(h&>t$WtN@jb%KfzA+XGQ|usw@le$yU0Zk$%6Jo7>WCJzpd>QGDx=Sb(>
zHfWG{4j=yFU$3lEG_d$;Dz1lUi7WBjmg>_as1)4w4!(S?4*klb*`3b@8Co0Ms+Z_B
z9{m7jk{9WL+L0m|aMsSTeTq_}U`{PhBgJUxx)Q$a^8H}j%~{)zH8mC<s}n@0(#ej*
ze8ejZB8-W|u5KN%5b9^EciGw{f<q9EF5qAW6~U#{jjzs_y%VW8W97_+r}RRD<io;(
zFr+k<74L1cS90?Pk)ZiNm4W8aX7Th=`llD5PC5q9YOxX;8GRL<YNxP~{?i{b_QACm
zlW00f4#p7sapxgg5m^yNPnOe0<Y1W>BO8{3n=08mMb2CTn`YheMDn>cIiyU|-Rli6
zGJNB~6)QQ#Bz35R{TZ14pqLYSh#GUMwBb2&0s;_PlLznyaWw}uZmSje>q-L0^Yd2Z
z3)I>s{!E*T;L3{rBv1xjlIg*5{Ytn|Fd)w(URo#si=Uj#`Z+_5w!mPtPrbc~8<w`P
zwM||+*cI}ZmkJr@Aql^KeB!`)=W8`V!hT91WCMWicU&8HWCb+y?OQ}w9YK9Z#8^;u
zpsBPdbpSAN2Pjz<oL^epG5zxBa{)7UKx#RID!HFr3tk()&-eGSe%mgC@BldmiO+kD
z)$L&s)zW3Ta*Yn9h$jo&vln?G<v7{b&`;ZdU3docnoajEL%st6_>cJFJ}>1gLe@>t
ztCXOyn46hp!qW3!pldoSiAMz4K5uqhWVTACe;}wrO@ytth6$Pj@(_;FHj{mg2SKf`
ztIKmx38X|w=*9wliCuUo^9zu&RJgO<jkC9Zdif*xmL1pT$V#wYe&7(Nry0crz$e+i
zZoymw+4?dYLJq+I2$T|!QF#u`@D%h9@1`=oA%56T<+p=|eRP(zQ5z+nLCXQ-hi=ku
zrQL(rTP(JN$(i_&`27KMd_f(w3cQcl7{$3?F$%Na3ICV>SN&%-^iXyGyL{y_5Svjb
OJuM^6k}JRb_P+p45xC<3

diff --git a/reference/Rplot008.png b/reference/Rplot008.png
index bd9f3b06d2404c702eae05a63eefa065b6dace80..37ec3da1340d8a0304d72f938f91a600718dd6fe 100644
GIT binary patch
literal 11960
zcmdUV2UJtry7fi`R8TA+ND)f_0clE;YC{MJNY_w;MnQ-)=_P=uaKwNTnu35z=p`zI
zo&@Cx2NBWGq=q73fDolc2#~k%-1lyK_ucdE`0pFz&lt%ji@meU`qupBH|KZng1OQ5
zZDQLX2-*%eK5GR*T*DjhExcd^(@9PN8{R9XMrXkmyq3?@MS{&%ALC1Y5X8TG<IP1K
zj97)B0}%Y|DVyLYj6qDeL>Gqno%z_Qw7U}4yn`2&wA1?f^sl;`V|SK$UgYxK)VGgk
zIZnf|fy5wrtenhv!|=pp3Z=lb;Pf+AR$k}fr)Ol6Jr&gs$BtHiemnA7M91?M<ZdPF
za-$(CK3kgM@nH>RAFODX`jQlOls+FpTA+G-c-%`9aHWJzSZ?}xrT^lGO68+5r;}k}
z>^nn4LxZ?v^L*JaH*0RauDqcUR<1f>2M;o|tT>C4)GjS8^$gX|jvNpzml0@8I4_fQ
z<Hij~3Byl%%?{!aB&)y-7J1k@zT=!_^0B7y;_y(7j7)dziQ}2(7AY0^L}Gw>uKV57
zm!GLlTtPGVAD@>Q{P@wwNjuZow?2Ri@;PRj)o^WlGAGd(=GyFAe=MzadqqXXfULXo
zp~T>juWD!p0`>lQcOTKr%q(e4D?&A`b<sZbcJuzQ8*g6U<}(Q1gyxO%C0sbN%5K(Q
zdbw6ME$VH46_RQ~u)AkH+viJ&-8Sjn9UbLnR5kdv=;6KX^L8s_%3IO$g943j$6Mb|
z&gTbbv6el$1hChbYZ0?gRy2{>UuqK&pBGI<>Q`4n(&`a~jFPgtc2l8k%_Nq$TJU0{
z{pyYO$CT<Yd_<v5(HW`*`oivaHi}X4s_mw=aH<UazHYk%3frsh-{-<PutmuXwp(Ft
zIlLUtgDYcUBCiM;^6|1A1ADJININ-~rr&xw6TcMl0ABlRfF$u@1g2kda($gsL$c}@
zXUqqhdKCG>&7UljQYaDc*2MSwIPuBr9Hec+(3n--5k*y1RmxkU1x>7if>?I&x^Nmz
z*8QAljD>x=3|vxDG63fq5D>ulrt3{ob<M%gw>FAEQ7^w#w@34;Xk+tty--JlzFT{c
zzy^N}sbixooX1ABwt#sR-y{k_d|O-~Na8>gn5Za-7i!@8e>rF~D1P@Me^#g&GAx7w
za~~V3->bWrzE`ix+JK>`Rkp+DFufLnaylLe?p?U8x3&`7BRJ*frZIJ9yBvvX@N{W1
zXn(gi<B9dcEIxnxq*;f36*CFuG;s0fms_8wbaZxnouP*dU0xkQ>P4YYr60^?JLlI6
zS2EHBzk(kzvyiSBsdqOb{URlG^y`YXtldlF;V*^|x0WkK?WOrvl-db*nEU5lJ|wpt
z8FnwI28^k$H*$+6j~n}=zDGm6K5qmxH_hHJEeoFr5H4A`LW_znbXN>>Cy*DY&X{l$
zgek4#>r+I7;wI4s)#coK0p29C@14Ql7PCSeR18*j1ln?=cDbG6hK3<70Z3hCAlKfG
z>Zv^2)m|-u9=I%`21&#|OG9NQn%L;>@~k!`Wa&NZv9+GM<|HJT4<<%y{~4v`TK98P
zzocDBL52n#sMIDZJ<Aj;uqA5U+t~p5Jb9<wEH-OZa!1v>ZedEw*`S~f*-NPIWG4FE
zUsKWF*k#l9Ai3_tb?l))dRKhDdFRI4k8fMi{MjD~$2Y5hE65>9OjBDH8=XVd!wyNk
z9sBbYM{(QsGZR~`Qo+)sz3g_Dqu;j_8dQS!-dJ))y)VVh#y!6dcW~%m2-oLStGb$r
z#z=zY-~0J<wN~8oup(Q49%Z(kn+G~O{qGW&q$WOOvXxNhks29#vKeh3)S8|=HqXyD
z>Fen0)6Tze<fvMc<Bd|x!K4<vxR_X(X?}-7k*x>_)Z0awH$^s|LP<1pu3~E%5MlX~
zAsJZJx>2nmNyAS`ii(PEAz7O32=)ur30eset=G=>muM~z3k~hIM@$%S<_+4<!*(M}
z?b;eH27U-4<KWCb)h@6SzcqzOEq_|#S%08FY+DY^_ujT#YvPG&Gkx4G8;BWh>^GWn
z!!9G!oC15>JuLU^DC|@Esv^KLNtcC_nN<jMl01L-PXJn2Sh$g-W`>JCQ2lnkK84Km
zR&BbmrP0TC`IugNzhv`w%_7_5DydzIvyl|M@2-YL0;T>$!WdgYV~0SvBei<V@K&A5
zQVc3^^;hFHUS8h7gibzL=dN~)x3_op$DSTm@6}^;K>-1n^dQVV32&G+S-NjVWb^CX
zduOj0>SueWR-B|Rl9?9R=U*FKvL_}cFgQE=I#-vYp*ff#s~+{vclb2qkMHAYNaye6
zqX3G=Ch}UXv)LmP$kh(Qx5pv4qCVB(rKP2<WG0KXwB&Vf?8p6LyVB5_y1KApyc3zp
zOj0{6(3me>n3I!ZPAw@bE0Y8lq1kjJ**_xW$0kT6)u&(B<w-C&9}1`B>tv*OF()^F
zfb*4+(l>NHyUM}JI^Oi=8!=|O^(^gM)U@`6eLY-%S{PB>AP%7&AX*`<lhDRsd&8!t
zdjo9cRrp%N$ssUPFY=X$_Mx2t`x<ubYG}~<9yEyzPe_pzNjtc&IM%TT!rpQE_+LkZ
zwf6Tv`9}sDIvzq;1&eHL6pC8(^R%Rwa>|}QPP{RvAZ}56eLq8=mw1_;fX-;u6;t~D
zo@*|mGtvJlY8Fh9o?>W78F~;_mE{yXayNTwW(Hf{JJZ(m$U%Bg*zgmsva*uC9KP<0
zdY`T$pmXf;`ByJr`uYkP4m1csDy|z#tFLcmKm7YZjUVk=DaN%U&ur4Qy!Ua_qvIX)
z1six6!oguuXxrVpO^@!E5|ytWd+dMaOk)7uKh%&owFw%&dV#ph=h=nNX~wX*%*;%U
zjJ73l)KYMkrcT0GN{yq})7;!~eK<(5Xps0WqI)#d)y)#de!O*5>Os0c&d~5I>aPo8
zzW<q8s~CND*+EWc<Lea?pS<!KtYz7Hu#+;CL%KVw4;Z=1Oqol1=_H3Sh&`1^@F{E%
zWT|J%KipMpPuaKm^-&rN1xEvfs9TLSSRLuT&B&U(gf6Ai>Af=U=`fyCKKCa>6fiW}
z6>RU$n32)BYqK;8M*uEpR}8{DBefumxpeFM_kCf`gLjZgU+g_h_Z@#}QCZ1z;wHTI
zy9I1e*NW0%uEP+6x7$(<B^URxPSRMD;;131n2|v;lMjc>np`tLGt4fFt|v0tRmll#
zeQEfqosQ|ou&nmU`8HgH3%16YiZrtHe~M7wG}aPrs~}bWDy_OKXD_yky8XUaHAv^H
zwhDphRb9a!>Dzk-eunv_t^_XD;^JB{aS1_Vv0;jEnWX8uy1FWpzH#=tKK%F_m2d=3
zTU&by);2XY)i)9{6pDI(4nDbu4AOX!N8Qt&l1t@CYRZ}X*vr-DsjueTTho*Q3#sZ{
zFTx-H9U-~Pxc}8C{5Pfke@-WGT?n6@o53V&ZeM4F4Dk#O4z`2X&4^d6GO1OFdoJzi
z>De*AygJtONd2;CAc)<oDAd^Kk+|7HJ5LCzwj)A28o$ZG<=}G|j&f~XU3RN$`SEyF
zx4aH|A&Eqa?EF2gI9|urd`7Sh!0M@e_H3ljUz_wC@spSqARs{xfUsJ@--b<bHx4B}
z0!aPNQAzV7m3lK99|AaO(<3(!{2A%#GR?lLSCrDG2^HXbPgbfiOy8OTc->dRQoZ(c
z{H^-wV;-Zo3-7IaPIqTI7cwfH`l%tkh_o-iHdB*0lVH@zSICLdIWVwl)y4nja?$<<
z3<h)Gs<1Oix&?ve%@50RD<$UT=euR#-El&jUn>H5UBE=%S9Luj8gsujEyWnNf>pJ!
z-9Yts&ELDq&;=>CUl9aYmv%Xbx7v8@3)^vIefd+k>)vg5ZxajnVv7SIaWta~pm?o4
z4*Qq9_4sGiEzzcX?)@4Uu1`DaehWX1p=FC2e!BHqzpbs!+oZPcojNy)3Id!{hc9>R
zvE*-ONrfLvYOz@@c|`GeD~Y43E4AF)P70$$vTd`28v-N?N{ZZ0RaI7gNL(0vP5C3?
zoffMMK`6MbQ3IHG3)9fraD-?~D@;)#yE1%vt{xv|${?6%=cI#~8W#H>QpF#^_1}}q
z|J9x+U#0Vd8i0)VHV)0k@3RylWwp6_YcvhW)60&;rB)D$W&ltgh@-miT>cE$6)rwL
z{(jDp+Wd4PxL2#LO~E5??k2$o#hbs!+7X;drnpzVGv`t79|PD1;mVXEg6AwJv`s_|
zrBvCy{s0tgUe~WzYh;=e3hbO9=!rnl-iAV(DP4G^z9<=&{I_*i7BR3?bz&cy(U+H(
z*WxQddDJ?-qM+D;K;Nu!bRv52Hoem6@-CS^<ne3LZWb*vvdF66zRQ04<`ek7B#8|S
zU+Q(^2kF9B(c{fQTYeX`CslObnZ~LTM@94jva%Ijy6*-{w;h2tv#@B_fOo*;wnRIC
zf{D&v--~)5qaq-ZraYf$wEsj{Uxj-{@dh<&`&^D1HRTqj^e3E1GrNw^_B`DoW#>^G
z=@)h;TT<$hU)!&8v@DH~E0^&R^ONn_%Jf39<U7Ye0?|sywt(%<uKxChzx{K4h+ke=
znOCCfL^kX%sFKt_qDrkwbu+TK^q=fZ@gi|f75)>@yCnzw`aSKdhMWsM*NcSf)Xnvc
z)+0C{rZpTp<~GR7rLGUr5#L_(A(Ix$+cGqnFS{d@vfDYRzbVm7t&EI}GVzz3oSbyP
z{d;43kI+}=zVSdVM^z68ajEP*x^Yeg9i?*(O&;_ZLrpBG(o}0*8`U*cHtEBCCI5yO
z{VzlKuwH`7LH9Deb!*<D4M75enqm{rH3XS@q*NfOWU3$p-QJDsu2Fivt%&S=I6jI~
zj1Pjx6<^v6xpay>?9@G-jmLN4^zGJeCM=U;mvqt>wUxkbltb?4)cGL@%O8+4OhO~Z
zjJZ}1!VN6HJDj?>!UefpST5^J#xqT)k}DjjRi=!{oYCvAkkm9&3?X@efD24r3CmsX
zF<Gg{>*2(t^^Vd_bH_0`okqed-Gb%sO_+nol@RmTb2Vq!+Xs0_#&2~8l;~AP7il@i
ztf0u#Z=F7R;`&StAShWu>V$LAl?&#H6^7JU>9qv>qC9UmCsobt?amBYx{&Z0Mo#YX
zaooBc^(q{bJHAGv&P5!cSG^l5uJ`UxX_Z(Rk|&wNYcEhamcA^%+=$!L>ef^#<Jyx{
zwh8n5v%@7!%YAZDY*<_B0u9z?`8|URf*M24Qt!)W=`6g!cffk7?N8@nPKW7ca1w47
zxA6Maa-?%NXDi%5K~Y)Oef=RzY({6`SS&f{G!<zYYWCK0It7<!_toC35>F@&K7ErC
zhurdRTC$dGbPW&9KCC$V)`sIx=Yyg~1d>UW*C-Z=S4|=f6zFyG369qCF{2`;o@e+%
zr7XWY!Vb$7UpY{Gnl_SpVu7T5bWPvstzP|u)V`P{1wf_l+YYp4CNE6m*4MU7huNIl
zHf)gSpA*+O$0-}VAPGeUT{-#I@7_{jaQNai;Rk8@MQ55(lY+;YdvNR3YTkC#%*F+A
zug7O-Y&p1Fp;kJ{;VqYIu2`#Q%7P-?AY~yAF9i?1`K3$$l?fa<YapGeK#z)}9jP?d
z9t)-kon-u6OA2B4rnNm@UsN1?@inF&lvqgOm8!UA{$^d2e_IUNYa?+qAIu$Xp-2Te
z8LMN}HaR~Z)r__<iGwMYh8ltZ<32q2%UA^bfoUiuuK6~yU}I2d5sgiV$W7$FC_l>{
zLNHE4kf?<`&$lz${t9KW3rjk;9i6-4z#yMIk58)#feUKbY9$xNe~rMgiOmjP<ncYU
z7kUcw<7noK-~vn&Lb#gNzw-4Ayjb0ws^)?97x*C<aKtAbp8<3N$Yk{DmAI>s%ts<F
zM8s|`$GrSbyZljK7X`YFus4kdf)YA>xCZQ2FjaABQkR68ewRe^Kx78<#nkO;9`>x?
zn?jNa=Yq6OovYo`orxQ=z7H<<NK*2GnPljuPe+Bb)fVK^3^R=nXWj|86{ndUaWOVa
zdzTII5Cj1!sk`XMmuIi@1v2x3zBRCu293D}LQD9at9?fBD=RBbxdtpFOEtrd^zhG1
z2A0Hh7&ml|BxSmSf$K<n9$njSeXfsZFn{#+FPsegiBPtm*n{5?>}E@$+;?w+@>D0@
z`)ljjQnR|dyHEW0^4?JeZb<ZarRj<-ybiYZ7=M2t)o(OjZPV;S|GW4)7zRNVlwKSE
zq%<Hpe~HF2Kw+25RRq$cci-#vl_0zyzsU_McNRR|t<(vP4QWEuRTdVy-;`)pp14^P
zcZw3o=nIlfYDvh!L_)Cx-zQp+)3D9WHOYQfdz9D%D~rNX2}3o0=(Qi8w^7IGd4|~z
zl!ztcwQYCbXqMH_y|YJKcIb2#kIqM-goEIm%>J9^C5fAUSishz;|`BV75r!z%h@)p
zj_#gGQ_Cfh^geA=*+3diATE_o3jQ-T_ShJPC04F~wHIt~D3Nr3(DP`d1-4xBP!~0o
z;Hm@LeJ?R<JM&GmO}IcAOz#jKL0aqGoYM#9FaHc*J&8(V8Y`vU2m0QkZu{{jU1hoq
zJOidUr|aG3Lir0dF^=Z{XEjkxQ<I`pIG@=KokYCw7(Wen+bBJ<rVPHdBhk+OVY!vd
z#dfQ=fV}VlEjUYNc0b?~tS%c9)q}~|US8?(a55%h7vh8OZ6JE#sAgggd3!FCEwW6e
zG1==GIGLEsKcoN^bC71tVIl!<xh$%$_>c9)tN2~t)^PjN79xZn@KJm!_!FLgh1>pE
z+8r};4Bq-KUlB<Lw>4zNE*6ueQMsV89^=Eq+QJ0(n!2zuTuh`6Q22sMFd^PH^$TCE
z<(+Q_1a&EFf?Om--9;7%#w%vR7F--1VeTJI9wI!Ds3h<1<+S%FNs%S<;;6tUzlEMl
zO57A&6UT~<I7Rh`(>9<X$}$H%zAZy-`Nze{2l2%GC%;9XO9ZEIgmVf<)i2IV>&eR<
zCHh)iheRiJ2`oJg^Ai2;<@iNA(|1`7xO4G|n;t#nfu3$l7<c}N(T)+n2|-b30CMgS
z_HKG<_%`fRWbKqN7o@VohT#m<2A5!?a{iU-S)T1sgQ}KU?2a(~L+(W&&gzQ>`Ng29
zG5`DcinuUmgQ@D&JzjXHkAh!CnHxL%t`y-ZxCJa;P^WDCj=1~gdTXkwy#C%eKnyym
z%)%e%qxXZDeIR$3=Ub-y&{lpZ3US}mpw(tTQZEl%!N0O;1A<?~@ij_&ec*x$N-^>Y
zcVtb(j<?^Fl8bUcTLD~(4YQ^8yjx%Qw7+Z9>cgdbiVE`0R;nIusiy>hOVh291TI?P
z=mq5HR%1XJeHu5if1HS3Gj6uP=>&jYL8Cq%y$h|UA*@rS0YQ_pEV+Fq*eRZIYs&R}
z&opwi2<AQ)-&3@n*6!<gFu_(LKS(--G7oTa=7G7(iJW(d=5P9>TZ)1wdWX^O0z*3l
z8g$ZV>v1dDYl4#Dt8jJ9E3?9KH}~PT!O*eR*vP#W><&)pn`!Usqq%7X>mre-!s^KR
zU+DSnCe86hVN&)d5(4ulx+#a~Kz_lVYvl34m=!}RD;JBwK2w9HoRe&+@QdIV<-V7-
zXfG~R(Oy=1trYexvjnfRNRb3NNljy1AT2EW{hbOKWR-Etao5h;(1x0kO`mrhmxP9_
zH0S;IwI^x%M#Hx2Y?|dfQ1o#8Qap?8AhLBh1uZ>Q)5#8;3zY=q#%1Lp*Y4b(<H|o*
zyF(O8=zDQ^m_;)3R^n9h4h@vX6dM$+XW#fV>m6b5Y@L&?-#hWtszGl<A}-7bS#co9
zYP9QIL3&fqnyuZokks%*+<nU1l$5v;M^I7JE)~eevOXx=8M!2EhWNJ2tafS}+=^pS
z`LzxF;JqMq@YpGbyhk@HwTi`VXvDl{lp9T+93zfyz3z;<ZBD`zE|spYJ9Jo2KFPKA
zM#}g15V*zn+pjzqym_fx>nz0G@KW^VKD)-=a`~*NK-gVRW%Ot+$ME~>+m5N~J9Yud
z82e7SQEYbiQEPkF(!Q~aB!h61MUf{8N#~Cw7LC0s@%;tjjoRZ<ZTjMdKB32J?Uhio
zSTJL|**XzvOY<}MlodIXXjj^Ohriu=ZCPsgPY0lUD$*`LuC1-&@mu4Ifafc*-(T*i
zK8ju)IR^Vr2jb}z*9?2zw)aM5*f-{eO~qu_VQ8G^u#WETz*;8TKrq^+26pY(V?2{h
zv19=6z^AZ?E4<6rzRNWI3Rce8>hG+nXBRI1UjLt#NrG#tsX3;Z=iA$qD?yNB@f7^x
zy|bgWHGY#rbs_T;hPf2CzcQ%)L80V5SR3GG8u~mP6v<sZEV9OO?&)k${yz^n-9hc|
zF0HGv>Yt<y41IPR+o=Bu=bx-Fz;N-85X6W1`iYH_gO2FDa|TptK;p<3*><-L6jLvm
zY#i(l6;8<Yab%@q$aqTm&$7i+d4Z6!a2be_Z*oXs%!{8FW_9F=i~YeF_$D!Me%4AL
zXM!h5hK23)W-l@LJS+uw*b^Zop=~{v(3CIih@*ucSZldWkG%ivY#sk>@ZTx~4jdJ2
z9i6ccA3l(}iuQ@N?kz!_7_N;$(5ouF*H@Q?4HPB_2vx7FAaan)@UTxm*Q_l=)JHTX
za=)SFvAE~Ss(C=zQT7iC@=mE}WvyXwu6Hi~sDK6d`**_AySloFjq~-3O^@PnACv`=
z0Htv01HS;-x$;%dhBDxdB!`DMQ%Si?_R^V__cx~h?)1OMx%%hw)xYAK9k^7=!*|Lj
zofue*cZMV5o`2=XCI2yP0I{JBAiB;qToxsZ8CrVG4%9GlYSO?)dH-kC3%6A9yEMQb
zuPWkzM*ap|gP53@X)1jo&ZCP5YG`Tb9Mub_aXQx5*C{6X9U@J>^*V9SWgQTR4}g7S
z5tlBb-cv52dqT5Vbgcw8*1|#wq2ehslEY3)YWX7TapAbiM0f~GA-h*x<U=4(`B$&J
zT9@*^{$#JM$MgV^QO4D~l~~qtcX^K(W##3<7pa6!0)e2s@}t>+T)tO*<Y5sbIu%A^
zDdQG6FwEq$*!_LNn_oNJVuoZ9yVJ9>vOIBlaI2l0tAewtsH`=`rbpW^iz?}te7<@!
zni%M;j^=GD3Pp*rYL%X!OW)nX+QGUs0>5_)A@apI>AS0g&Rkmj);%)1NAE#pFN+>T
z>FDT?%rZ3AQh_m~*B<s75oQg7@e6xhF?Wn?v2mg_ncep$=Qo^NDN$5e+Cq<|kYqt%
zd_(YyA(?j{fGcr+qZh!X>s@onjC9#_0S}7k-}qeIi_obN*%dd4OZRZZ?P>b@S8^|#
z%-IE`UQO?z`W{ig<snj-X22f^d09{>plrJWPZ?P*+`)H#q=P$8swfHXn;UPP$IU7d
zDe`pe@6#Cd|5e!kG?s5&CGG{_Ziw5T;{Q=}J`G5^CIGHUy`p}__`2su5Y+B&4ZZAk
z1262QJu#P!09<QmXea?%ndQ;N3q_%A#ks(PxhiB>__Hp-78A&!e`-Z2SM#($qo<#o
ze)i&{sNYNC(%nC4VoHD3#Lg=Y{mNQv&+ni+u-WX4u|MJ+ey9zY9&*Fd%M5{YI8PiT
zWUbAe<ec4r+H3SYdwp%+xdao>?0zDH8>3;~St}#bCqA?`KX1JUfGzMN6@Z-D-t$~W
z!iwnhQCen8H0`@CGXV(9JO6piD<MCl38c!kWNY)9%Ab1dH1{$a<}?f%7lQLR4M7BB
z%?Of}!%&|YPHZCxGgg*{e7%m50`U<|k3{|x<t1AgpaBB8p;fVrajFv`a7}n0%sp{3
z1kK9^Smb^v@nT~8WQMfjLw^#Jy(j00w#w(pJ~V-mwlMb7*WtG-)%^-EzW2n1;I+9{
zWx|h3svz{MyBDkH=1+4fM=H4oih+9wPm*yu<nDg#arhu>ZT-NO53{qgL-OuvOg0cu
zwlscohfjU|T9BkxTwIKfoeY_dR~47eMD8a8t|<-X76_f8x8)^JI~si+<FAc(q$(q`
z()_&(*KFZ#HpL)coAWyI{j0{_|E&PLVfIIHw|FR4lSr7;K(Y0L1FYS1vt}R)cI|)V
zaP0C?O4AWFw0tKzU;5g;_eS6!D9bHNL1NU}XXClq(beUf;U9E0p2qGEy>2C+Qj6yW
zwB`fD+bcW#BckV8=dWSbbmYY<ufdd*KCi(=t7ByWrxKoIrw4C19Sre8q?6NN)AIZz
zv((T`3%{3ZbuS<>;f((g&y}(bQcTPe7wCv?0j#i@^XS5D?y<w6uE8xKIP>Dp)Q9l5
zVp7PnLun-}X(u%+3TR-WC7p$OE}C(F7M-uhXTUsh6~E2btKatg-J!GlGQaE!=Z86g
zQufy)aXSQ-+`YUa;8vBX;AY-#ICV*CN=payKGiY%BfD?50aF?fm6yMp($CoqW$hfo
zgKJV7jW@+pmp%d$+yQOS)!*L_Ja)eSotpvVlNfXU|1OAslFl*he`CMRzlXIvo#1)`
zNXil>vWm$@CSUFA>oaFzIFqM#9!<jopk2UlG(DU^qXyBY1N!jC*a)JV2Rd2$7(u=S
za683Uf(dZGB{em*T(>>LtrP=h*&DcTS(6y;gt1;dJ-um#HVUwmkHZF?T7l~}O2+6I
zeCs<&{<P7>@w)R)>Ab9(XL0A!qMnY@RF#J1bh_h@uXkEF-&+e8J|wQZ^<AyAcl3Q5
z*$u!LS2CV)2~FGf&ssND0bA||%`890e}-xHjqs}J-R9e})5FujR(o-AQOB`IWq+62
zUw4Ha|Gf7fxD8S?mY^}hzBL`x>@n&4x&JUg{)-)ezaQ4n(ps(LqSoSCt|^Z4O7XWB
zGBkztzOLNp_5e0%owOWi<ogY%aVdE<g{wbo5h6e7Spoib(<6#N<BRg}tiwb$IWmQ~
zWDRDbl<07O%-S8ZSIJSUkW7xSFKk^u5|@|Ue%y+EePBmQw>y4OAbMCA&B%LA(QB`J
zT35%u<nHfv`<Z+x4fOLNwWu0gx;;GDy?+O1<BS@|Sr;KgIn?{A1U1i!q6#HTA-#Qu
zmPHk2u8x?+u8!8pePwG!#brflYHvlY3&yo22qWFizl)YJ>?p}HOobO;;heUlyACKU
zYzh^n=^JTi690*`{oVGe2%|okQ#<{;Yt5fHZW+$maK=m#k6XuiN43bx31j>*bcB1d
zj)xIhxZcxg1FngI&3Jf{bFo_E$ECA}d<Q|F1+zHtS=TXt3|2LJ5fkaQbF-=ZqEs11
z%{$g)T8$d`5D%U!FPdR0&(ITV>wk)SHm&(a1KwGw{p1EX<<(LQI*2qG(v3iGsI~xT
z*ksCY*E|y*AJ`J1nP@za2(Cu{Mp9#6|HdlQ_4adfbDOD{LIr(Z0c`-TkwS*nfX%DH
z7eNn}L}76C8<1;(7W}~8L#nO+8CBap-Hy(AKqiw7fdg1a{W`?kD2Jq&^uxA9H&Hd{
zpr5b_9C1T~T`=})#F!eum2>y6NCD_ZFrgx=OW$Yy-UmAKXZBzP%sga4g_%4Nl&sSw
zMC2UCAk}7)y-qz6M;`W4OmNO!+?U)seuc&g(`%o{H&&g=UHVin$-CVt|5?Wy72O-+
z#>cw*itS4g0R%OT%GWz%OKDFJ_FpC7lVQtb&Rt-RY8ML0@|eE~<%>RW@k;3$7Eb{E
z7Wdzozrlf`fi2wy7gK3+6p9(4*rnUC-&tUvO&?QH`8XUhbQm{>yNV5o6pb;EoS{*v
zuZE2or*@WXYkW~!iT0h5FMU7^j5CpSg|C<h8CDg|&<vOFIi&REeyWm`FHK^yrNp$&
z&UBX(iHieT36Tfmp7X^h`Biw{Hi;>t8FLu75BzWxjmZwMR{XEEsG=kdD=mJln}UZe
zN{r1}*Z}!PqTJ6`ck6_c(I-tg`m?E2zfLRMI$d<q%y{MX))JnR!akBJO|`V73h?BO
zdMRabM5w`GiwpKz5=<C|vA_||qz&f6Fi5L>{2-28I$H4E8>VhLm9}tAlB}R9?Ouv+
zPn)PYLp=)T$kPp^+msd+vL{W13F6GOg{ybRXA*4)qat^*jr)LM);g7a1UPFf_Br>V
zXLV_8Q-k&t4?d`&MjV!D9g0c8-!~yx<5plK`?t!^GI2_lz6%cfy~gWq@=cz|QN!Gg
zJLo7&KQF26tfSTLj?<W8)RC>_Bjkd!fo0{Ix?&+uT+74@rYvUI7JcuLUL(iQNV=!q
zDhsz9Uf_bBPGRE?cL1gR*JwONnYcY6iqA=&zDGW$r}0`xEU(Y9F6G&k3p-XmJq#&(
z=#RQvYjtL5%tV-SL;!Js9+|q55_>%dKkzVpH*Ot4Mdt=o;LL@&1hCs?qMI%*M!+MB
zuN35&Q1swQri^jHlo!A#`}8g77jf<O#M#TMC3sqL=Y?mbl$pf`(u#Jz_Wo9H6K5%D
zeL$Z*SD00TmyJ0(`G(5uu$6E(2))zC_2ep;16ztRef?kuS&44{K&3qj$mGBs6ZjEa
zUo!f=KVCk8oGp<@vxC!c3)XN#ffjE64Eqk=K&dM!#eec)NH)$t6~Bg?O|2N$LT_}O
e|J_UW0Y|X^MiBpHq?r50KjDVvXUk5zME?hy)%Jt{

literal 20844
zcmd742UHbnmn~X|0t%7^RI(_jAfQMNl0-z3NRlidIZKWzl7oPPl7k?Ub50Uf1Vq9n
zN69&7xU0_jyI*&YzJ33GZ;XD|fue49?W(WVx7J*9&Q<;ja#H8dT{?##$a(1p5|0rC
zYYhF3hXeoP-d*z^zTrHRk&=M#@M}-J(i6U&wSJ&(hamW*=x?mw!ybnSLXSvGh(2+O
zT^x3PN8a<5d-Zckj`njpZuMZV0+!R~n@@A3vq%_RlwjPa5p4=~3c9BF8b_akEVx-B
znBmf<q(6P4*Xd*`GU?48rgXoo0Q@^y&#81HwKFT0cUr2nK0Z&Y4Ez#*-N?yf#`;Bu
z<#1|6MMBQ}Qziy)goK2o_-6kCAu$O_oF7%4goFgGE>apH!HAX6f!oCu>e?@JtNe5f
zw}t6zZNr^xD|h^p!x@pmYAwcOGA!&enu|VR+ofGzcVx-551*_kS4v1QpXym4jQtkL
zrZH_#>F4+D$`JN7M#lAfzW8HX3z*4FoueCKNyKS#aRIM!i3T<%)_6TuU(+SJ?kw}p
zeTuN|5Zd`fvt9isTxNB%OJ0AV$b^N3rOtUK&bLG4ggUoo|Aw5%(TjKQ-;ZNzkL{nj
zem5Wu6<o)Y<C`LX7a2J*IC{)oKW^Rb(fo{4)AMKxee*}7cz=wxYqt8wG~dL+;LPg`
zr<cnn35RT3+45L#>K|O@Hm|!Hr5Vo6M(R&bj7LxEk06$nOWeC|!tg~v!%r>~b*qg(
zZM?xZB_rd<u>fso!^{T5$495WRp-Qpg!#=%{7O1iR#QW(^jWUy$NQU|zkYeW!KX|+
zGgw-)#U{Z>@<c^tB0^sHYmNJX^-?irU_-X6(aQ5cLvXE;EIm8BX?Jas(`i+Au`eGR
zmRiiv@T$j7<*435Z}#?Wo>8|u!pFP%=KTd{d<kjlRcqES1ks5I8|fJR{O~eIt8!v>
zykWOR<oG3gB=^mT{ouQpvd07s_ar6HR5-4LNYS~I7sT#OT^4fT()K*ErxteWi!ZSp
z=GXMto5I6+jd<yt>|-7<k@~ev?jDSugtXAQvMyNtW;?nzw23cQVn6jF2<|FD=Swaw
zF2CetMnw&cL33>_tvH0femqZT>08*9Q(k@&jAD2U&7pMcy}3G89ixRtp$g=ZOcBzq
z1EHRW`fJ@v^8HI##QAEh+1a#0E`DefT|D?WFC$1>`dL{;<s4GaLEs8^yQ@*ds`|aX
z<`)l<ogur4tipEEOx4`>zU6#0O#GPRo$8MdT6K;KoOXsC??igSayIVN>{LHLlDT->
zz^|{`we-l5m4XcMHi_oLDCcmJlEfMFchg$4kk=1d)dsJ)%?NzBZFr8>ZB^8jXa&{|
z?~T~@2o3V?-8%#cp%pTfU-+FGcytn-mXw~(Vj+K<ieMn>91Z^qJVZfF&6qA@YtM}r
zZq`8jR6Ze{a1dNg-ONUR7p(P2hE3|>s;`KIo*u(B+30u9XK3`>WBGRXIy?y(PH!*v
zzdkzH(Qou4**=tw;nw@{?mEk@TRt5#4U&{v-amdkY}w*@Z>Gg}@d`<&|EGqyGeQR6
zhz~nX4v7%m$>w0*rJ}CYy_tlRq9XEfYpQ%T0*_icL_tFXAA!SIDr=;srYex1ftRAw
zXfU?8M6}*|RNJ;aJw57C-??(Sqh6=VL_KSZzFT&<-kSen?lDV1cp)8}krX{~U3;8B
zzU|b*A$yG0Tc)%3CRa+)s8}0uUC|q>d#Rv&!E>)wXBEOjSl>M(gE8zupC`|eJLY@E
zkGuCF6-fK;|H;hCYLsEGHt_Z8m=R|peQBu9a^prlgtpB}^$y%!CepJ%V|a+7v>en2
zwAa?q7cZ!4zTDfG8Dzc%XE|PTu-xk6Zmy_Ea;svName%Jh(nePF4J+u*(kI5eX_}=
z<;oS|AZk8RGG;k*2U(kIj-&289&ln4QMHFxbIK;pxmK7&Lnx!mnvs#7lha(~yiw45
z*W=JhaO3BlJXZWQC+eLMSF3>!h1oZm^_dv?!(OB#%Y&ut&+@5!i0DG@(R;0Uo*e9s
zo*e0<n@)xtW+-P8hqiQPYw&E&c4D77b4IPoDL<1t!DHWKbG`@PDBk(nsh7yD>dnV)
z8!@9rJ4|=f%WbbZEDgL-VDT<&=g03#lQr8ai>^4@9<-TDjhd+1XcuRtXzf4wqV)M$
zXR;(OoLFbEnX0P`L}-CwD~HRbv9}n5rt4C1*>toSoW19<+u}em{>yvFOspMYbMWOT
zZjr$X{&+OB@tDFaR73py{01a^2hc=2&q`I7O&;39ApJP-#A7W`CzivVo-w(1oWYop
zk&(!n=mX?rYyw^M9~@r(etv>=2%4V}?7v?aqb8&k^b5NpH9$m3CG1v)(b^Z|lqG{O
zanzC*q-}v@+CN_s%bGxxX7cP;qA1^B)m&PPf{xDU^wC^UnrzH-5#l%LcNVO%SiS4;
z*{i(ZP>jTQV?%ZwO|Y}iB(A+g_G&Wbd2090(|R7-KvZ;NFs|!g->%p!jn;}R`AZ5X
z<n~)!jpMf-L)!TlSTXLu?P(x{v@-{73*3aMd94xs=AiEb(=V}c6Ekj{!^dATfzz`p
zX<t}a&{L;y6V@qoeRkj`d{EQhU*ep&CL?NNV-wgBJ5pwIrCne}ker-c7c$LuS5C;1
z%)E|F>6IfieZq+*L!#eZcC3wY!0)c8;Ma7SOGOJv(8W8ye*GFVE|(YHJ58zW#1Ie=
zV2$3(x|i77RWVjI7ul;;#e7t~(l=(Uu?`CpjtFk5WYr~{92!CL&(bI*guPU&8+|Q=
znlF5VwynjiC4`2GLl;5*R9k*t7s{a#a2SI#lVA+XJE`6tFw4$ZXdn_Xj}q$Gw!Eo9
z*UmQ+n`IaeA*boS)nn52sH^eoYuv70=NpL{E_wI6Owh~ZoPFLAAFOk{9%Z7_%@~G<
zUg_aDk>@>kccFN<b!k@hg44*N@ZxAKo%{Y~{)xx_+~=-+5<=g6=Z)v)eR)`rFeG5_
zE!P}ax*o$NbGYxn=<exBN=`nds%8H^WlAMW?Iop-8;MjXZPQ(h=Ignx&x0GyK^G&o
z6N!@LT4P#>OXbAHUn`KO_KS}yJ$(4k+fW^f0+%cqtOhZ2+>3B3&S&0zB^EJSa$Q_&
z_4w?5Bh{{fGYOvBcnpn@ftsMqGsFFCisiGDfC5vtKc9I9Nn#23z-yBX<>}eCw+s$K
zY;0G&iHnPipY`SGF_QY@F?g$$+opaH@vI>h^AmlIb5^!XLR#9tY${Si0;<bGW<~~S
z1hYKFS6v0;=xdPCswrBEpSNA=%v5FPd@-w#Z`c|+sT~UCBms^n9=PGKG7{J8%QNC6
zj>jNz`y+X%(DnzoTVB7oWS=~F0-slQa(vK))^D4mElgm2y_n5HcIklq$F%F{hV#>|
zcJcq~!s1=q<4c{^p4p7L@A#W^rTK@4lddfmb_4(rDy_(F3Zxutt=(uB5bNSfGKoe%
z!fEQg>Qid7GzV{D$e3#lbjJ!W7J6j~E^$4m+MAAXpyRe2>dR_NYv-LLP}I>$;Lf%h
zt(lnZOkvx`@_KMB!lVn!&q*-eE{0Of?=0ChKiC(65TEMi!xcU8HJ&FPoX;Blf?Cfq
zNXW_t!w25$y)EkwfiRIAc#BjFkHlX>f`h84RJOGMzMJRg%0>zFF67qUx>b9)USwjF
z;O-E(5SV^vP5}!N>vWLSGX`(8eEMP`Ykwl-&vkJ%eNOPWQDMJuji4cKM(AL%aN9Rt
zk1DyUN)u9;4B&x$SdW7Sr-?@Y<cf-?cnrT!@ebY=!&`%_tMMp7SZi^lTElHCQ|CgO
zN!nHqmu$YlcT)7&1D=ks5avT=owVX<Hf&lIPvBr{<GyqON#ee=J1$jYukgKDTOA(k
zxe2>!5nSeeL@nr)r%pHh^Wzm-m)WG}bU6{%WJ#lRJjwxaUGSF>i?wOKn4Fe&A7XE)
z+^$JrrRvI~F7kY}N1E1O&rATSad3yQDG@Q4fkR|uWIP>K>6%hvZ6&q0w@?1`=~L6z
z+b?lXGyt&1a>y!mcX#`(uiJ(_U~2p%9bsE?HnD$yVX!n;fxJn320{-nOu);|V&m@J
zyAx(Q2hk9!Y#Jqg<#sb^ZM6{QO;C85wLSI>^8rRsM2W;BH4wjzt?ad|-o}UZyw87r
zDB4T8A8eW*m)4s4^8=?iLaej@J4(XB!eXGxET{aw`Do3sO|2h)G9hK%WJ_oV?@3?c
z!!tR=VnZ*wWVf|f^XZ&oc&sSwrhn$2l(5P`iP59FKY(l5g|wGE`XTSJPNt})#&W!o
zaMIUx40sY<*K@L6-pMQz6$?3JaErd;()sll8VOud?IPN#udjbjw{3>WDHfU4fm&7M
z9BFvAc64+RU-U<!=<CK|$5FNtt5HkLLBCOgKg6QJqDGg{`&`eX1x9MZKzWg)CrI7_
zggrvPy)?+|O`HrD?m&g#Nu`ixQj(FK){4*22!YgCJ`;cQ(4!WzN|V?3-gbbqOt2VX
z+!jM+Ht6kpG55Pkn_YJB(RYfvFH7mynXzImVmuGmTAENWQaW5}HTqnK#njZa5jMhg
z%kn7-PQxGXifU-&5s~$8S0;=^4n7_^8X6iFBD8m&KPp6o9m>-n5Ipz05*FD>uET=q
zAxfVyNgmk3Q}2{k2h4K$JgD5eMrE%`KRj@M6xrqLu{es@#_ztfxX5sN#C=EW#nQk9
z2omIyeEZ(;iidCMsK;dh9vY>VlD9t=wU$27$+0Qk6dd*^V;-oT(}Hj_*~rMuwCPnh
z5><Rhv2Z;0n#lTiZ)P&dm$n`@Hx{B%Vs5hL+zbbu9j@dF2n@tRA`O!=GR}R~C5FQ`
z6?O>6Y{z^iJ|*P3Ex~n3(#D1p@-KpP8j}xK*uPF@$u`ZLTStFVNnYs9U9(<ja&!Ti
zl+7jwM)yR0p+Wj;+y!ny6+5u%;>x#QP+<vp1^teA_@^T7m~f`E;=Y8EOr$0%Rx%5k
zk%qfR$3^RKMFp(lT}4@gRm7)6PWCz!6&2C0Q46D}to#O2+~@Z<Z{BQ3S4>&`b|rKS
zHdJ4}zEt33`}Fa_ij=sx_`ph;R>h02kdQIvF)P1QWqPNgACsSn(zHE$yp`+8KpQ&P
zRcbNl6CuYxS9T!XjY73sP>z>MM?)Yf(ZXIrE{RknI8FFdbjW!um(S39*FoY%E6W%(
z92WT_P$nmvD0L*Dqw*$(GI6zC<iyQ5Ix?TVJaP}Rs~4w!^B9C`)4S_R#DPtK^hoed
z6XTuMg{?sr=tFSvRk0c7*<gu<rHZ1Qfa7u_RH!JMnluyMlf#X*h=jw_zC?65$cvQ`
z8upsqX9KuQ2qdt}fKQ7~MoO*du08sIAaDn9DQ;=@JtJO%*Pw#h42*s$%+u(Ce1cvd
ziV~Zens{H#5<|9nt(bEE?t*xl1Cj{2eYY#&*xTT?zZ$F0iu;P|?wq`50CWlm1hZ)t
zv<n5Tw;EdLJclN#A~hX{?VTX%^`ftZe`kV^^E=r&Ii_Qh{!!6pHBxm^=U@Qy_R+N^
zc0Ofg<+7EU1B6RktQ5L{gT+brgYEI7olz+hlP{AsSam`>L)b{!LQduHG~CysvF_Xb
zYSk`xVg2CG<`5cuEllAp479kAOD{$mel1`{5l(|IQE3#=0088-DY*a+L>yUCLbCKc
zoTO{Y(`)eVm?6{I`=Q!6dc4iUAh97{97xGdF*P;yZ1z{u1blkwg0V>-MCb*`a-<%$
zI-2%9%G*ipkDz5|D|A0_;Itg#tz@^V-ima8umOz#TF(hC-j+B#-l?U;Xxas9jY568
z27MP3Aix1>wU&^~FTa2Pe(oz!=scU`8%=Y`WB$u$Z{pzE?<UdLAf-SX7|;ieYIQq$
zl7W!D0cucj8NY?(JQMFKm!(}jkmCybX98N-l<J@C9&7kEzonV`Yu(f2e4bXk_~PEj
zwY3v{*X*y-0O+#`f*mka*luU22a{#hT5}Ou#N*q=T`#oJ|NI?Q!xZnntzJn4Y15*2
zI)8h4_$DNz$Rd-LW1K9LX!msPOThsv(EBGB6+MB5)DKctzwk@;o`lGfy~|cr`ArdX
z_k*Yy&^N-`n)PPoN5Orqxu%l+^t}o<hG8~3`qF_!<C9w7^Ov7@h}iz|L!lD@mq*cD
z-;ddNFt#WZJKEnOla!R4h&Ib10ZO4@#-cAzlvTTmS3kjzKTz&~w_cx!kF5B!S#C8&
zEo?=_Cr|#^tMbR99ZOTd1@+K-B=$Iew-7JVN4-LE8>0ODYQFJXAY>#Y?qQt&Nn7!6
z`i)<Q_v>{Oz6_q?Pcpd_{@tL^H<m89yV_N0$IOyVIy^BWW71X4D8=N`qplb3AKzzW
z5Q~-3#;~?3kY8oj-`I2GAeh9z%dH-%QPnoLw!Y^E{a((3qH<5oo0Q7|$@jvUF!~Wp
zXQR`m49)l4Mrk|x#FE}-Zu>pGX@wR0fN2%wu#nY>K=uJ5ioRkqN|Xwktq8fUl%@;2
z&!n~K8K-OX=t>LZBaN)l0#=C>MJe}Adzwz;ZhMx~uSE}<4=mF&&S_zmd~cVb*}`8!
z)6<%QoSYiN-zL$;1%(x}g#<5D*3^t_;aUR~0M~K&hK)=MGrn`66)GFf1U~}6y8PHy
zQByNWg0XW#C@a)=bj3H#B&X$C>uu;KP0h@-da(cOxZi9on9NTdnUPpxv%*^3*vm8R
zxgmJGJ89B|OGxdfoT&oak5w%XkqV(Uak#UqUie&ZzWdAG{5cYmPD<?&B2gokPw}j+
z&=8l<F=M)+zsz&nvwal9eZK3neCcP6$Tv_rE+ZVae;&YL>TE=wntm=m_41zfyvhCt
zZl3kMcOP^)K18{!-z_O9D5&aAS>Qi+?%eug)tY7%ZSD9d7cN<GJv}|``G-O;zh%2+
zr?}Nv9eLEI*jAa*I;U!RU{i>Vb$A}%xpCu0^qCj)d4-1RY9;0uw^v3(<Aq#L84JGH
zDXl#^e@~z4Gi^(xjI{JwVDCl<MSUCeRJYPI0svf7^Vv2k3n2<mp9VlrhN-pk5lgC~
zc}0lx+L`aPx{8WVid1NY@M$dtg}0^RzxH<LAOui;5U8CTk;TA(07&ebC)4vg2T2(>
zE?v5$*>k1!HdMz&Db)(}20UPz*mu8-cbXoSddH%sW|M>_mz!t|k}k@ZK%=O>Q}USE
zj_b%PoawtqbdVlZh{&He#M>e~5)rt;mD$X6M|>si>|#QDPo-oRTBWpfK4EH2+~bz)
z7k)1IrDsoV-To91aIOkimk-<)mxPZtm5^W}FP$1UzMQJ{htN_0!-DPC^h~YDn8d3&
zq6pTC!*2Rf<D`x23T&+OJFN?}tH47<%U<Sx!P1+h-etbO*k6csxWmN82;|FIt42`?
zi9c9493&)Rxc@@p!d7(l!g};iyf83j@<5`y<}`ArRVnq40jXG|p278$2c!nV>GA1p
zKoamL&8v~~m>*VV@>>d7P}Ot>6G<_c-V{77`%fJGzkfdeop%7&Oid)INc|qRd;zP#
ztptD8*0)S^_)79!`$N4~r5|hWe`0y4-4dD65$slT{6)BYNj`&?!8^0!@zIZ-&u&$;
zas%Hn{HJuSq#_N=bC?qbnG`kVIIviyNx5Y0G*y(9F?4^vjJ+7JEO9}~a&UK7`X1X?
z%qa;sN1prX7Sd+%AobN1I{gSkK6ZU<MA`nt!H%E1hfA|`>Qmg4zNv++4k_blyBH=@
z8JcTeZ;0V8hy2(-@&ML@%BPYj>B$2=3m!6M<)np*1s8;#iU63kIxbm^djV^!eFB&4
z>ogPRiyAECVuG}e)wrKbE)g_X4>N0FpinKiFiDGviegQyl`XJSR^&8r5HwD%Wlh<(
zIo5yYe`k2{t1bt7uBY&5DXhz~5(~L)53Qov8qdGU#Q&c8`Rj!j9|{xac$<>z#^-|y
zvvu><f`*K_>}a%Hk?7p>{8ADU1Y>d!_YDL-wRlF`c+8&)Hut^PSmn#G9~+MGAR$q_
zLi_69vPu8-hy7>#)Bo5z{;+wG`JaZprU0<Dwcz)3ws!R;fHZvZ&eIq17^2x?%!J{B
zj3P>r?L9ZOV$%zMF>lprX*hs!)CvsFzWPcJZDGjYKlW+5QcPX0W3$?I=Na($Zw)U3
zN%b{^M&MVjj)>F-TWdW~DhLAYG5>T&!b%y@n>TNAcG8se*Y@0U=EKnF1!A{bS?G)K
zg$oy^sAJR>yz*L0fN7$inJr|Je#`W|vrl624&H`w^PY<Mg>x716>b+@#ic)kJ7o^B
zYaH!!kN$0;Id{t)Zf3}Cniz)G+aR>O`l{P&yXIGEL4iOWOv#@yqnTQ8k8v4>@E&GP
zE_t_u2&;7QL@-IWjcE2y%Y=KoE|=pXV><_+VvMD?y?S-3@fqibw7Il})q^9%OO16p
zgH}?Jm;i@nM<fQ)Gca6C5#O_>B)H})vL7&=`ZHSyi=uORYxUB%PTB0`&|fYMv)iv@
zr(n4rbpgd?Y_EYNnp|=drmNR;)G>r8hQ>i#`vmw>kewPh3L*m=hiZ>ODlkegRKG7O
zDyrQanY)vnvjB^#=)3X~Gzirtl46w@T<evQ>U@W#rvy|S2p~fWz((UvHB8b}+~!nB
z9S1>oZ!f>85*}6;mz~FhDIk!Uq;0iAiBE~)VYWVfNc*@U{_x>7hN&c)@x%_fmTMZ3
znWKWSCHm?V;om<kY_YZ4YHRaIo4Q?v3SRBV>}}0e;%06pHy}-O^@o%zfQ#u&c?pZ_
zxkjR@ki@5=beciGSe^Tva0;n-G4~3V4jOfA=n(GLdK^I&$}{dv4%z_DmA|rT87uc`
zaYhqxX!0$ab6rcdM;;<T;KkYe6?82N|22mCPj>GA^k(v!x5pJ!c0K*O(#jy#!W5SF
z)w>4<tXFCd?<Qv5{KV6XeZOkzc0o{Cj(EWRJD9EmnYu4Vyek4EB=*M44hUV2&t`qs
zMWdLL9i8hk7m{bb2V+$^TvzZcn!1fV<C_m_mh)}`W}07bm6+?FsB5zvQ4G@I-U=*#
z(z94wAyilQ+|*muUm{OyY%zSbqeNH9#U6#zYj&q(+~C5UgmM9VdZeKto6+7;P74K;
z|Ebvss2zs={bpn;<7rBAgNn)*putsq*UN)*Pm!D@V8W@g^(qxXMUJ>4`D_KDa@%q5
z`5*naT<q>+wqo_8nC8kxV)}XAN2ilBOh@)5x+D1?A@~f$guXQId$`Vnkl~|ez)lqm
zSOsFi%bKddnyl6f^a@_8gq#Jx`zai<cg*;%Q?$Aa=aWI>&M1WzfMk{s?aRYlS{Bxk
zh79wGH0qH++f15GzJl$*^nJ}CN_t*K3Dg$r@;HD?PJ$s$f(JYwAFyu7>cj@LO!Bqd
zYQ6nJ%dtAdYtm_S8n!J1z#QSdBM)>7Q4op#^DyDRQ<nc5P~_fL1-3+s4EK$srqS=b
zI*oU~MV=A*_*3l~Z7lLFsbrScaCLdyw94_1Li3(5syfscWKqn>Ak&+4L-(t%n0gZE
z&RhR6xZC|L=Hd)Kmxr3sU>VuV4Td_zQl74dt|?(hwZz3)Ir3s%_m_VzlyuQH=6{c!
z65CeJK$f>0au~GO9t{=VXW8GJ(?6jJY(h~R;`Mj$Fjyf2VtTyU1|q!oCn6tUJ5q;o
zFThXm+`MDf%lasezc{;6OhRJwO{b;2ctF!L#wXcD|KbH;VQ2S+lspY2Awg>tdkZ8M
zl#h3<FjOxC#uy6$X14`M_{ns(zmhS7_qV6FE}mm>q1HE+W+8v|_=$HO6N9T+zezMs
zbvla?pL96!xi_|<Y*as6`~Fb7hZ|lDNKX7FI-2c=Lt^Fb`FIKMI+B^QwT0Y+jwNv#
zZMZ_3r^{rc$R$PTiM?_b)LSL*?pQ5Bk+EA0XA%u(l3HL<O^CDp9ReZRO6vS&_|$H8
z=}0|K&06sDE+yYMD0yhR0i^ThVt-e>2<TeKJ$3bqr2gJ1B~O&!K;%Dnre#I&x&%W=
zihhDXNV9$Oa%%x~uzVL6l~35($1e`<KI0YgK6>|lbTUgS0zglxX^ng{ty3FICPp9j
z;NERn3^O}msk$E{MgXErq9>PbT~6qTigF>Bd}$KRVP{^sXWYuw7Q6Kz{ErjOl#2-e
z_$M0RsHDTGbFpQ+h8zOZl?Sc@FmsxTb3`dOBi0C)D?G!65r!9)(jH;`qQU{CA!K0V
z;0W4G4%;^hg7FDN>uLnHAws`3foKVWDpjt_0rGd)2DaL50#!X+t`ONjvk_?~zqrnG
z;<{rZq*X7+8ma^GQ#g-pxswWp2k(#79e-sJDgD;_;Y^@Mah1&33P6+TqeoBM;laXy
zabqTE_{Qg;9!Ua)HakUgFpCVWJLT5<6>r4cZgDxMXtlq}$;hY&dejV!J*X{=NFCS#
z0M5Mpc*ls5HuUq-5h-L_m8AmQApjwp3z&}M!Id3-5TX$;5YGmfO~C#U$Kpiu|FUuT
zKV*b&m+CC(XysrVu(e*Q6Zawb3cY5aG1q|h5d$M5KZC*fv9=f<RL+LQr(LevkXr=8
zyn0_!LZbVN;d$MJ4qxerYvUlJF<X|6<Dhm9DiIICW02EJR8K(j<WG%d);r6PXVP`;
za8^p>6!J4cgbo#|twEP5b)G?g<mTPMpP%Dh&JhXk(m!vH^~a@iBNlSmM3A6Mch42D
zPJU-jFprWWC2?15nzT7w7!#Iwl+t4#G~apoO_Bnwt0awRFS0yPe6z&7|CDUk?=%2N
zK0ZF&OH?F^Qft1UCC?niwKAhTzYIz{FP^t2S0@rpa9jW0R=@L_NEku9cP)aUgX<~4
zSw(#tQeALLv%3c8b!EGvhl7A!<z52kO{YJ-8KMI;u+z!W&Qh)8V&6+pPV?FXU?qaN
z&HKEtaS07#>HH;DK}9Xr4;}gfH-3L>Ax3r-IL6*=jTzC<s))N@bgqk>nlCyf%a$t^
ztQ*er{3W`kgbEL6yI*1CAJ5h-CuNT7b_$O)iAJS0l5=myHuhG5pJ$*VcsA1>hYCoo
z#ZP)~$~GwDbxv4>+>u@RS%6~==*4=h4r|D5qpfVM`LYfCJ=XTe^`#yj=susy%AWTD
zw&~=k`LdNRkn+aH#`hS*>Y{2kuOf9o`L1<J(WSD*d@*-5xl~c@vQ^*cPc~S56hc1}
z%=<*S3EFfJrSQ^Cdov^b{8&PPsb4%`N9s&I$N5~isWSFnRr@P2(Mxk$l@3j)>>1hi
zWE<2`l+Hhk^p)A9xEr<tm%ss@46y5<IzQM3c!pn)0a1beClc)1V>i<-3B3~dQ$qLm
zU7jc_>y1=7&w|{HQr>`IkvfagVW002%qieQY9nN?J>Fkv`|-J``@YfpyIvq6gpgdh
z58j}}#KgK|=z=VAv$6;hJdewd96REL)($s1&@cv`UjPI;JOrh3D;!tiOU%;>J`!%J
zsHi-H&qMtPS?YzW>#gki_1<UGb8|rk7C?~Ps`YaetZH7?yg{lu?iax0l%a)zoxECy
zO{Duh{3_z*OY4GnQ#Gd%q|%WrS@p=6_wpuRg4=JHAsqlPWg=Ncf%6CH^(YjK0NPQv
zwDLfmD>4Cp2<jL>HxF=;mqCx{=HKd8ieVdltX?}B8Y*&3C5Bf8#sr7{&J?K>5PCr&
zYKFBXXf1%q_?_dH&x+4py-CX2`il5el(x%tujZT20qAwiyf#!v5J|<`!qT~^>*WKp
zK@j0^44VOy&&8@b5ad*-c1FaWt5Zu0RU5v5pQc0=YGbYdENmRE1OL3#0_0bzl}^>}
zMBr>sCM6*azd@8vnKi?Y)>fN-!zjJgv9D$D8oIjT82ba_O<?ka>=$~I5)%<P;9#j0
zE&`q;lqUZm;CKu5e<1gEmWS71-M9wtbUYEhs&qLnjHw{jp~Pj&l*;ENplw%=qg*{I
zkO1wUlzjSh8r(8IVUr_S3GS!&z6xk=wN^|q*Cpz`U5P#4O=saQsn1*=ZKKux4D_M&
z%*@v&(dw<zgClP?cjYxk>5yk54aDvR2`@gIT!L0Bgtkq{q1u6@dv`i^>UMs&wqK+>
zo#`UYto`z>O22ob*h%l6vjKqy)HBp6GU;#yZS4>sY%xa86qJ-#C;~z8Fk;(D_y^Zg
z@;BF#ZPa`FuilUx^bWoSji=@Kt(n3m_MT7Fn*$Unr&uZf#&jw6K&Iyik3xN!KGd(S
z)KCnG2`Z>hR$*UB1;qgMmXTe1v|4eKMy|Io17)5LaM#mHKRse1wHUk!Jd)fkGsL%H
ze0v@jipD+Qh{a*wS1sT7eYa7;$Z&doeqKRSbBOln`-5<%79uZb#vs0g6WGo8ZW7<y
z#&#|TP|1=+{4D%54=yDrK-0Qz;Y<v~cw7QD<7$zkD=y}MxF3fIe=i_VkBqD4*1KTI
zZ&-R|vsZQ96MDnM=PQNDEI{&F5z(H-d7ZNWUZ#qinJOj@mdcaw5B`SO-`8C4U=BLZ
zGB2fPxM(I&N@#!Izcm6ZF6t*-8Y~^G)!Lft!gbwVG>K}zd)3>zN-D?X(zATE<x#Jc
z&LK*%nSVg<*3oTfM(e-szR;55y3}@b*_sunl<w<)gxz+YlYnAaB^vb7*La8STLaKm
zD8M8y@Ixc%&cw2ndY#n2?D)KzvNCWlv9(xI&)5>&T?8lAoZ9nS3kb9@P`lj@UjP}@
zZB-|y!&5uDQle3oXQV?N((<&rin08NDLI5?VP+f@=ru4jUH~bk`19TBYr$YDWR@nq
zwKPa%ZA0)#@%^E_AAe95*5US`)#o^|Ti#yD*5V9|4@t!C3GX7hi)QvTDx)pP>2=KY
zdEx@v9V!6_^8vP>+*Tt&Kp}9ikfT&als%Et*H>rK)6>25sLH@+vi4hseY|>S#4NW4
zkbwPDb?h?v1Yswrp7|Do+#k~X&)`%1nR;{|Wf`@4#eWS~I!Zxi;&fP43%blh2z3+y
zox1B5oUM1MUIPwzbLcIeGLe3@>nN|htmz8$$lrBJWc#`_b99z#oh+S|p*lq*yH0yV
zp5N2eZ&Dhodc$Es8y6%^w(B<2a4x)`h*avRTS!=G2oU;cg<)y6ZO4r|+5f57&cF1l
zqqN$$y7OnL{m;84cVsG`$(?+4Uh48UnELVFX|q!bi%a`W0U+%mr^(>Hayw=a7Y2+9
zpx8k@L}_ox07N2(dBX|VL)~D-Tm>C+5=^F6HZg6*Y(|-dcLa5K%@Ceyk&I*()Fjtg
zXe19Ed`g?Z{qC^t#uQ%S;6JxMh*DOs5%fLy{X&@tDXZ!(`)C@aFF<PRD)WI%_3v63
z$<4N9XaqZMcQz$-5f{oJXg4oyCY#5B8`%DHeAMEjpQ~N{3k)dW44uvnei9e=)kf>c
zeRWLq^eI8*c)xTZ@Dn70(T1&kVW8M-K=C1h+W+#NHJz(k|8dhqHP3B#+}CNNjRy<4
z%wyRIs0Kkm%Ob)dq9p*_1hzDsG?R(67)ziCU(zgsS8I8w9Q87R9}kQpp&1!BP%|Fd
zMZBTZHWs-vRx)VW@aKEPQmbkV?K2MufxnB)qsR6@g6bU~?(stDKt;HNX$iJqRC`9<
zcR1%Sc|#p3Q;%aSt_7$s2$DM3>_+$69TzWuH@M_#1}G1zwmxv&R1h7gPZw1bY33bq
z8Iwb@va(nw+d?7rcP}b>f_UAy(IFE0`}gA^kAo$s?N_{h`nrIM%xN_u_(WAzAINW~
zy{RZpz53JO8q<gRiFm1MJ42YV-s7ci&djX|fD+o10|J|t)7VSgJaCU7b>c)q-tTX!
z4!Bzm<gm8>UDvOD;eSKSL4b{ly0SdO-WG!;SoZ?;iN)wI1*3v5YK|%7*D$R$>WBv)
z9B<8Do7F^4<#K`iy>_nc-fu2=F0GMlb8qa1JOQ?>e+K7RUsd^(l#?Y`sld4^UpV)V
z@@t?Dz^Dqfm({QAOiqT1G=m_#2K!haA_Vb*s;R%bI^I`gLN?+&L$kRuiYC>i)nY?+
zC-9hYnEYmPbpibvxBw<;AT_qD=PpQ!at*9oC}`YB$Ue`EO0w#aoW{TCK~(CurxCzG
z%2w;~@5DE}`*H;Ld2@NVvOim=FnG$zU>I9P`R)=On7(rX?C=P5QwQJY)UES+p3u60
z$@PW04sKK}$Kf~N^T0;-x0eD@!xswLzzwpvj!$_@!r7VcR^{St0$M>Tc#SjO^VoT|
z!ji708cKCO*ovW>0Y9wX!S)j3<>Q01xim-#=&K2=o>+-%KR)8pIwkhUJEyH*XDbG+
zItT1-liE6L!C1R1e6moD9fxeB3JpUnPC%8HgjN()vZZL9nU+Q-T0&A&`QzS7L@NDy
zC?iuS{HtybJ9pzN2SE$befI0uMR}>)k2rifgkK$wt>qS_WodYvBDjRJ*WQ26ecAW7
z5tjpF)<w(|E1)r-ii(OMBK^MYTfk!v>>ne<8?-*Nb`N`RN2f86pBta;9MZ>_QHlna
z9$Ji?m05aY+`p65Jn~X|X8H5m2YW)q4^4V+1LeN5BQUVM+`n#R&ga5wRQ{-)<$8;J
zJC(ov!Oi^D2%791TqM%tNUZzf*`d6(m7MwVts=eM`=#+^OVuY$%huDQe{A<$qG-$9
zSEKTaY$+pE4TT#7D3v4gpLI*}wWiWGk8N&zsj3?4IV%Hh3zeQw&EbH@o9+Z(Uxll%
zkB;29c{5+Xh49e_j-<8$boc+mx>=%rIXkQ)-)K1d2=zFC&wj$^vL%ABJ}trn!w77c
z)CC`)A#Vd7A_DSa(w=AFNiR~f)vKYXu5LodlW@m~5WF|dDF5~noE$`e1~w`#$A6pY
zD?G;01lR(JW6+aM(1{ov9N%RcpvPk_fb<TUelzqF!8dcONDEl?*Cv|ODjh7)0+B9G
z{8Y89VoCB~^v>%V1mGf=0u<EM{bA#Y;=N2b-u(Q_zPft<KJXz>_<k*2D=WwP$V!J1
z3QLdp=4=rLo(r(w{0%`E80Qtdi602=$@tA<m*X3aRZe2nt#s(;reA@kv(jOyzWa+(
zK9~j$mQl0gS7;9gQtc!pXkMo8pMJJtl$~4G)JB~?`NL&MAM)bvg3bw8ofb_#S_a;S
zOKCSeKZauYrI2f4c)}rXp)DbT6NX-<D?S~yOM+%s<op>LyH4nQtjF$ck49Yy!=roG
zg$3_~WRwU{+DC5;tU^s?Hj~!S)s?D_`uWK@p&(wGIqr1g8uLA%A+#_y;940FcmQ_=
z5>ZjYh1l>fRZ6mS%n$aW?s}aZt$0puVRTxi+hW$1tUNCt?5s$Q*0>L5TETi30dxeP
z8>_`YuE*9*An8#;Y8R~W&*bR@99V_-XH%Zr8{AltfKtO@Gto#fQ_LNEasC7vn%a%H
z6;Mgx-2_l6(vAcr7#U4n0bfF9k{T$|uq;25kud>Q$tGCGzdA3A?e0&HrZilTqkrFO
zA;*^^+1e_XN(MQc*9}k~3>XTaKM+?`B&mV(AGA>Y_tgVf_mUxhfSMwQs|`-TxM&Hj
zzyd%045gs|Ju^zD5j6Zgj<ND9Nu15+sSNtD?vMdt6@2ICO@Bt;#YYx#M@zX@P=6H6
zTdaXA9y)|ryLLXbsX~|Ipub8C59)oKfFoK3>q{&Ke@6;*!tH??aS3+7RdUJv1kUf(
zx{S%&ovAXE<|DDkc=GCzpqikcqjNN`y1jY+GWTCbA{8l_DJ7!BQdWF1Jk%6S1+x^O
z96^`$To5k9#J-42UXdJ}0!STrCVUc(7LA~^fOAZ=>+=xwcoeV~z$*<bkx6UZEOgYo
z)Fri8S4qzvps6?%QgNx1aXGX#!2iGu3RIvvFD!+gpF1k1Pis<ff3a(p5d*p}TP$e(
zO>01u*yIdItOc7$&<k?AJ{Z%{cAn<wN&ky-GOfVeUdWxn2g{X2NFM9~Fv)z<`in{c
z0n6yb6YY>7m<Epz9BU8aj!wYbt6XSU_}+8EpLw;BOuo;P=;H0uaPra`HQ>oZ4QB{f
z%;$_7+!g}{Cr3b-aGBN4r5yMW(wNFyRSfxOH3^LY0Qq%%!VcuiQtw3+E}o(Lii*-N
zgG8u6g%OK1REsn`@q7qgfyx))S5GfA<@BnA@f0xZVi{MJux_1PFaLY@^%qms?YRx<
zvQjks{CEcofieok)k5X@)_e~dFl%jA9%SfAPh#iz`|%^v;pq1F)3?NS79{ti4;4xd
zVO-eo+AsvLVB%<QlJWm2cG_-hlF<D38?}K?r4yW@yDpoX6_>lQie(V?f5)_L7C8eG
zP|V&9o<IVJ#XddUJa8`L>0)^`yM~9*iHs<^7O+D8pQ)m4J9nDcs>vyO{oqJJjG>X~
zETiLE5b&E6=cZU8lYyC{y)r`Gqjn+x%qgq~eEaVzzKQ%vT*1q<?z&z{lT=z0enLio
zgLT(6;ezB#;8L5Xw>jg!IIP>G#OQM1by=VE_S(}VDX=UZhW08b-?h@WTYm}$6zT9-
ziwFr?(+xz9#-W52AJ9m{@zFtN;f!Z38+WyS0F$(dCpG|m<kE`PL)v~JN@6xT?ZPp7
zC7D}T51FSbRUscftz5*y4j#`id0ObT1UI@jM=KDz^D&gj^&`2m=nM>5uZGo`UsR2M
z@u0s^9pfkAN>H*Q2BQa78G33T)}h4{ZjY}Iyc_sh=PE*sxuQ4l{mBErF0s#{?G*KW
zyi?Zso(UYJ9QAs$X>+Ep3t90yt*J}}2}=*^!XBI!`>q{`iWz71aC2MpLthGL!%Ww>
zH7~nkbf5&IAJy`Lf6FAEZ$r+?8LQ~$BhAx)ieYRCgc?QlL>uOp-|#IwXjcCn@tFdc
z?O**Au5sYa(FL12uiGw%=gC!wO|h62EFx-N;!Kt7hcVMT2b`|k<_9ZK40#SLU<xAr
z&SYF35Ox1yGU9(snf|AgJXC&Ti6hU!o#+hO$TpxhHuie=sDxMN!EJ?s)a(kWKYU7R
zyy1REu`5xh4b<;5wH~BD*bt3+4}waVKEW7!bQFcS%SKO7;llAs?PH(4$0n3&J8VB)
zOZ{qCGV0Ioj--`p_HdqT=8iq`P`nzt_Ww<UyR9QT8w3s~(sK;gq=|3MgS7UP#oIe0
zdFrNHoOCvG>x!dL$vt}HI{B%L;hxEjy)pbZUU}zu;=&EfZ7vg6R1#vrJ@<-scLjrJ
zKr-*ZGI`VR-PA7*wibnQV9NU7b5L56vjAT7w}y_RUCPRBgJAn2J|*2?FXT}>x;At6
zZ&!ymbO{bmRJypJTvFW+;W6c!-zUDuN`YOk_pM&`@Kl-!BMG7S?Y1DyE`Qil`Nyc(
zjes;qJkBxX@dy$&)i}qCt{25$)g#{+^Ag;p^&P|ukzgc#xc&5n76>*WC6xv~ms5D(
zKe`5!6<`L}?7`*=VS84V%S;=3g_^LTfK_!1N?>XJn+83Jl#f<<<4;&A3UyS07^o0V
z?j8GkO6Q-7fPb0T`M)bJ|C6&yEV0K%F&T~H5SA7O+}GqkWBKk_c)*2!2F{38tD-0y
z21h0Sl!NUGbcts@8OqQ@LQhu*O%wROqE((lF8{!9Z>r(=2DnB1ls0T$$w)(TO3IY7
zva<dvnBdUcTc1MhRcZ1Gmhw=jQBoC21X30p7ZsBw&^@sliPYb66aLV`=@V%jjiZjy
zdr0aX=whJmleX~S#yM6>5Q$D}VHmjB*!3e`3>&g}Wn{dyrwK?d%K(1`2)=w@%9kT@
z7T{**f5|Y-m1lOhyK<KsJU@}$_B0i&<vCJaMa^4Fw&nrJf9%a`ygTfLzT}fQf6+Rn
zhW8RRNCWX=y#4$?q-!I2*JHpW=Md;P|C)D_T9OVwE!$;VGaliLcO6ioBt{DpvHv!p
zl0Y|cP5g$AeuO=Zbkr70z$sab-uHq`_UqeGf!^~jG*Hm)wH;%zwieI?$?Z?yH#Oh;
z>i`J{hi@`6e%TLi^*vtrwM5C0XfxRRY`NBp(`zm;5!UkKqi1u!Q_<xEyGXO`mtW))
zwRD}3`_U<_e>GAR0$&RG`Y#omuu>SGjhYbK-u~^I7-JJ^ovIwd$BbA!bdF+p(1wZz
zNc<J~vfVule+uHA1PN1e2rKl;2F5@$yEH$a*qm&A(5bGYLzHB&5}botOMqUr>*nEs
z*MVt7EqmzB$sT!7mcx80I5{V$eX9?KTD7!jP{WfjSa9yv%xDHkFm5kA)z)4{H;?f~
zVWQ*mkpEO`)Z~wwxe_n{OGwQNjujutKng5lLFr6@<#&wQVJb*|@Zc)U%4H3>5jlbX
zSgr86Y~fs?Q3uZIXhadDemSNp!vDjd-2e64?mzK}q-#6YT?Zu?G{yJt4KIQQ3HJRd
z)>^u=QAYq@-o6%Xyn41?QYa%s>^zQM`i<~g^N^fnFdMhIzmM~G-0$Kt{!0HT?_8sX
zPAF?DT7|urE98OJRVWOVRV1&JMYlwc9GIK^A(@LSYhr-ze)TnR0X9r@Y5tklqPw!C
z8rz;N_y434lGTaff%GC}=q^kLq&4WB+8h*i?s)VRfmmU92IJQ}z_%0TCqe)58WZK#
zr``zi(8>&4W9k?`31VCIP(3ORMv{NU6Aw<Kc!C7z42E}$gRn~hA9OkxsYhlWt3|$f
zz!dHpV-L8R(X@={3z#Ip^XX!qW-@JI9`@kVn$XN+Q}enL_lsB7k$=h&@siN);$x-X
z+p=|18n@d+=lEG0yxz^NpOt+1;f3Mltq}fmN@{8a2a_nT`7$HJujP(Tm79Yz55bKa
zCV|T&ip&^J?A=L=y3Ct*+U2#dKCbbrCA1^gs3PAeyNcK=OO@xG;kyTu1H_x?a{=yn
z`KK#8;YI(~gPZ^V$77KU0<Gr1@z901{$*zBn#R&pQhE)o8#;pstu9O;wA@WVffk_G
zkxEDQe^6M@e^R-@Fj~kAJ_Fjgz(f-bF!`{6Fn=7*RK6Sqe<N?Q7lQnnDi0n6W#w-L
z2T@F;`gSsrQ&mB1#UbmQCEX=|R7}lviZCK{`mLCfxLgd~x08~%&@GAXr{Ttv`ZX)H
zC&GXYaKJx}K2iX<z6R(YSBz^6)geJ62-+2+Gs2Ub)d>vcxwrLWz7PckiAP*8zS459
z8&f}2^95`Y3OMI|H8sy|RF~2RNi>5O^Od3c$A!5O{PpkHVTX%X)K2;n@?%+BiNy>S
zBmQ(Hh3sC+x^nk{N6}S%A-U$Xcn^wC3Jh8Mj);MAhp13^E;Ca#rNkl`-lTQ2Z2_y1
zmQ*<DD{|^ndepD{+#}0lUkiUv8s|uw@FZHcQ<gtTCf&Tn(l{M`GG;6oUtUeEf3wq`
zfPKZM`ux`Jr{(la;b7q}JOnrWJ>5O(l!abD{P9bOs$QT6mxMbgXv#J?+l=0iA$6)x
zODFKheuc`8bhwwD{QPT|D=&94M6B$E5bOKul<)Si9ZojZQsZZxik%TU7=Q;>wFv~w
zJP^}@s5nnCC%6?%?p^oMODrkrRgAfM^(vrrjsiDhUN9{%NRz_T0Wv{rMOi!;e4PL!
z#d7neIAn0J(<#e?9Lw4&#zbnP9GYeVz>U|1%g&fr8Mvh@QXvLM9FEC(dBo5UQv{Z0
zNMY=Ek33oiwXTITB~?{X15=UHVFRZ2`>Yh=f--#q;H-yXg8797t-s9OGBS!vN|PD1
z^tCG*>XCmL8Qp-l#Qq@IIqjQR`M>k#os5oDw-hPY*dQkq1K4aqGJPNJ498-hr;#DJ
zL|*D;*~P+mSxcdBsEUJrgq>6U4^d&$Y~Le^6RIm;%kj*wykU4H8u!tL3ODfKPeyE#
z!u-Wkr*Q}jHXZg4k3TGhifOpCzkDAy6Ty0MX>P||d;hmDtz5^Ni->*@XUVVOa1k#9
zBcm$<0)t!j#>OmYtD3uWr<qD0pT?8$17|Z8K4MuH#M!KdSYtnj@29*jbHF<(kRh*&
z`a$`~7|u^B{h%`lk1o826)D3)--}gu{-1xVSHL@MhC_<{esd2UT~~8+0{%F{uV23g
zG;_tY(K8wsKb7QzVL%`ez^ERUOpQ>{&`7GOeV8bhee{T)g$0j+fg!+l(Lvzn^E>qo
z4Hu@6x^Lg`V9uPF{L|u2{o0yMdXH(7U17g@o*HYw%zX)}ix))=4E|*OlqEiG3<5SE
zMc^5SN*bUD0&J-Xaqmk>kzBZt%7R<AXP4Pynxt~G@?l1I!XP}AA^ph>N&VZ`@Y(M1
z@$mt@kj4x2Q4kod$eQ?QXlUMj{P=~}*N;U=D6XQi^1=+*N>GX66YuBZ;`h+ZC&7!e
zFgluceC*N02a_;Ql$26<XTX=R36$OScFvf#P0*0vHa$~}-I~wL{SAY9<TD>0T?5YN
zactM<s66Zh<ydivBFIwwcGE!<v5-k(VW>d_{{km>sS_pFUw7um_SR1&P)B$v*tN5G
zjex(%>o*UuOHN4%i;vIY#YJx4z76(|Bwpt0*G*I$F1Iu{KZ6H71lS?E(9H)p?qJ`0
z`0(7OOZ5bGwRUKC_md_*aKnCUZ&#^0xQM`P6Dn#o@vW_`;hjIP9GlW(s>gNd!VFRe
z_lV^3<xJidT@GD0H#dqK&&(}{xjp}i8w%2qGi_+3)LD#rWvko_x_<?}s0n=+w&UYz
zF-!MTNWef4{vI27|Ni~A@83mDOs*gH>y2G+H7!mqE2DxH2laf*%yM{mnB!9Lx3)G(
zd;8)+cOB28yS8?A;N|7immRTnYg2z1naiKr%XRzqsgzE?*jQ?iw7#|5z-UW@FP#TV
z<+Z~8#eG_f;R@x>A%1>-)E3cT%=PTWizf~t-Nj2cW#$LA-(4}XIB<zi&9boKv+d>9
zFV&<EMPg)O_Jv-NTxi5`_7{UKFLi+}4h~LwK|we~&0TKp-|$EY!=6oe+D9i$EPWfd
zR)7(Bt#aF@6>3HDIheHo(*U#^uV24@qOC2L%<>piyRFU5Z$H+ad>)E+n`-^?ecbvN
zh#R8tBL#L@DmUZ!?E_%uYQa%RsqoshYw0yL+P^2Or$FlX)z|kSIrht^tfepN4|})&
zP+v83o!?+}v~bm6|LcT*Sey{{eILZS^}O&RCnu+eXS<cDoUw8Gf}Ou<@g@E^ITcxd
ze}7|B(|Xh#6&6OKS!ONzSkAzJiSf!6EF_9urx_eP0f~w9pVHDM4)-<+Yz2F+mtND^
zvo$^C_4X|>-Ya^6&*kM8O-xKYFcWO82DkN~r15$jmMzA@4K*+{{La7HHn{U(ejq+N
z^@W9i-McJ{x+CYv%9791k8&dN_e{U$wns)%pwe9d9UTRQ4{Qr_7#TEbj}3Ewm!^{0
z1T%&~0|QT~2ykk3xcu>CWo6;c=TMSG7iq|)KHe){_@xx0Ibs?fy|Tm!VbNFRd}n`u
z|Ikz|-qy$0mxPXveeX2BQlXf*xT2O;Fy!~T=Y`|*J(&fz5{iv=b%?gp_!;sG7xc`{
zAE~q(JjQHyvzD8=nuZJ&FU>he7M7&uP&Q8oo*DM?$E!U#7Jv<8X!OFtp<b6GF)0a4
zUTBN_sfNad9)seidbdC7a!@@VQX!Y57IGm6QOi+4KTJEf1=t-?31btJuP{hsF!gQx
zx{O>+ZVULSgiybdnAj<P0Rh7)E*_pq7%%ndG?p+k%hd6d-&T%znEL8|%33Ca(~r)D
zEn-O$9gn@M@cf(rSTf122U>&i1%I+EbnZ&44|>has6)_3HuNp&in<YeH|7!}mppyu
zOwy-Mja%ZbYZH>2+uMv+uSz<E^qV)sB(wMSwnJl6lO9mA9&wLtO(V5)rR3xYA!ov)
zX8geF()Ph-d58~|rd&?I8Ps7`ASn^+!(AIlMuOlg{npyLv6s`J8dACv_bw|bi6M9I
zu^IGF^)OV6Tl_TmV5OE0W<7H{hJV#ePd|ZaCos<^Y&o^=?~Hopn_+HwdwbL0xkCmK
z6SGDWUm6X+Py->TrRYp%f(^}HbPR09>o@uNpRU7xBqJlc;{1;-sl)de16y+7l`&eE
z`j(!HuDn7k)AY^%Sg2M{&8*BAGjG^4+3D!eg-1j%;GKd(;juf8i(V0=l!rfJ?>r3M
zk7w6*p1M#gQo)3Q2T19b4$izFXzn|)!H)ktF)=}pcS=l54DPSOlPBJgg3B$)XlR5c
zTb}*VY%^KcPYYQC?I{U*ewEA%u(?oa7oLfvd;23(=;U?JlD+6w&FHq~(ZNCd;-^cP
z&Yg!<VDk!>=dP!U2)(>2XjnSfiNW9&_6L=ea0~8^y+(&VAbzz535bYfggd>TD7DNk
zE=st$33|n}u?Y%lb{Z~OHc_AA>^0YH{yhgyHdL{F&ejnFxf&+4jM`iDf`%K<JJI43
z68b<K$$fs^Y21i%m1xU4x)&1SmuJ*L3k(SPD|&i9zJ7gen1Dm;$kMjR$sw7vv^47W
zRa8}-aTxvM80_rqY;0~WVQ$WPTGR{nCFI;QqQnYdwgDQ%B=pQ!Va@kFEiEm0js-Rv
zL<$OHC9TTDr@^?#^J`%X+T8O4gM&itoulQjm+@YC&CVKEf$Ep{G}}_Y2ZIsM#Z1Ce
zcp6~v4IQ_;Dif&-%3qnsQH9wcxRCW>VjPc%s6{_i$Orb}<&~-pLUZoR-KKX>i&|?D
z)OD4#uR-vkRVmb!^wBl4Wq4{!>EL0u;tx%(OXne>4O{95wI!7c_j5%U!6Yfvh6#tk
z+}h)ZA3uJ~$!(~wN3*r6Dy0yNR~r=er%fS{=jVcXMiN2mm#rK%Eq)9a56SxNu;u51
zg4@51xw@LIe|-Cv`0^zdBjfFuws&ve-jk4UsEmWBm5fKyP*B{L_){osRMYl6<--T6
z`Q_znisWFQ3<$cPGAIZ`_tNB&aLUPzjS@|EHofkPeVjMg*&Q!urlt8vD1HJHTe#fk
z6ma@|gnz*l-#(1yYldo-TGE^+Ab8s_o>)^O{P4j8ILqt2ynPm|I)kSY!EF^vc^)*L
z)4ETGk9%iV9OU4}b$51hW)n8|El%PH$~&9YUA%ZPCpYf=6!<t_z_Uk`z!?o<Rr^xY
zCB$N&$R8fh!W=poE94qE;<h1+!End48Fl^m`STORJ&Z#%Jxl7zR3!^r!CA}{Hadn_
zyDlO!YF`Owl$Xb$+7&<GO~Lk*EBm_i$5tTGSU5Su;0~O@#Z>}7$l%V;^5Mot@4>1Z
z?dpg9{rzCL9T|~B9;9@Z9b-XCWhk{V8tC1V31_aklqYg`zcNnA!$TO5r6tM88TZS3
zYb|s_@zd;#jHi~Cme5IYG+O@rF(`c<j6S6X>Z_9=;_s*V`NETj<dT>ZW}VmeY5TE)
zT8(<^4iP6F3snIf-4;h5Wvr~&QO&xyS4EALqNudAvPamN_5H&shgT<1@i0SB9zZ_R
zEq<zX;`eQG?<1Vm;2G8@H!hHpk%6D)eCSTwlazN$UNN7eW9PV%gYx^op5Nux%~x9m
z2}}>BgIHKuH_L+MK8w4!@WWIT2QTmJ_A3|_{mW7bBUoM9*5`4s;jv!<AkBLDfgpW7
zvw3Vx7oe(Ydv}V7d(TW(N=^<TCA;=%l5yba>Ot{M>@+^i`8rw-=M1PAzWU6$fs2$$
zSoMTi`lV81Gqad&{HBSfKu%%dWlYH(=jo3|s{j$dWhkDj91ek41#+rwPc4YkvToz)
zqeld=oxkeVfezR?JRJPt!v~YWBY;E1r?DW7!IU@p;J7q*f@?fHl;F35M>SLqRtkv{
zuR@BR^k<H*3%@EuOiIdFIRcXKr_|K(5P@ZD*V1`;_e;SzZEbB%ATlR*%>h>N13!rL
z<bgmGBzP!9XTrk59z1+l4;G_T`R&^1lif)o7(2iBxl5GzG@6y_+Ct61HvHS3I5OA5
zC_Et{6z2R}GZX`0Y)K!gmYp!6{^GS7Ds27IzogbKc@gj|H^v5sy?_4(5QDTU4VC`7
k%|99zN6~+xCpp2M!~N8|lq5ioJ~UBUQcfaAO!w9Q0=Ish4FCWD

diff --git a/reference/Rplot009.png b/reference/Rplot009.png
index 41748d64de9b17d76286908ebf60a4a818d73170..73fc7bc85b11db1ccf54d8378fb4bbcc250f3f96 100644
GIT binary patch
literal 16761
zcmd742{@E}-#0#zREjp)LYFK_Swga3A`GJJ+n7ov#+rQ@Ty<R}BxB7Q4YG`VMz*2U
zNMte?yQyqh2ZO;F^Zs1d{T$D8-|ut(pZj@_=RMxPqZ+1h&d+(Czt8vkS-xU!ni?EE
zEO;0KfgFVz>X}0zY~S|&9y|b^LH6NOz{7#N#s+%e5qxavHb#JlL*9mVz7Po4iM_vU
zq_OZF2;?jTs;6Tal(jGx8kRhj&0^90iQ+GR7e6EZ^f9M~rK_eh0`}`kgr)=?9d*s@
zLL(;ABM?#7AJ9l%5)6HTK}3u^!B9xU)_GE|&-zA}Bp<#c;`YaI2+khEd9z!b4b{;#
zIzUYjKlbCulNT?!KFx0hP3lbJ%j+wM{)v;CbWLBP;h#(VKmCVW_5nOl-gmldb!llS
z0Q&6X-6;$P^Kus#6%|z)uP|WTpnUK#LSpFMNJd5mp~$@0AWp&fM2w!VhlfXPNr_v)
zvHf+62oDHkp`r;nrh`BrY>w?OAf)GVkB)!+D*uk(*Ye_Np>xHrtEyJe?jxkxH4Z|0
zO&PYLk4z?9kde_AjQu#hh=73u5c754R&=!rB^us)#2-a-aBxsuUte!YR#H9@)1(lT
zi47=Ln3hH?lIG^-67TTihrvgZM`W~U_}iw^()qPt$^;-$&3<akG%mR&@636%sLZ@0
z-(a?gz^w5N4Wd2b1`aIRqg0~b&|E{Lg+OcC!c$xB#n~kqia+2Pb-9otI3GMduo@3r
z*^cc$DYErNLHBAlGc`VF<6~jOmN5>eV5WU#>4l56h|@xb<IiHj{`Jq-MT4~*M)DFa
zs#b5Wx5P^a+>mw8_FkJ-+5P^*rWz}}l}VoH#JTg|0^czh_TJUY{p!>Lc4+vy-DaDG
z*zB5CE>rzj8Is6wTDm$XytuWUlA3zOIHc;J#GS~;9F+>ws!$uKy|io8Ot5jBLMErz
zJXJKIofxAhMl&zA%tp_mWNFA2v4f8nnaFNU`sjdocAD2hd`&n0Cb`k;X;E#<Tybe>
zXM?1W%WhjgYU@E2*Q2~J=A6x=incyc=(b*>@gp(Zo%IT{rlrEpYOF_=>iQk13tzps
z)LkKKO4w>k#4N$xL&(L{Bh3;viORY<H$c<Y+UVw`zb$7UI@<C2R|-9}44b>Kv}8({
zSm~8;?a9Ah0Ucgo>{>&krB1|1)p#VKr>Cb+K$A|(I==0uHBAxH4J5MF<ipq?SJRJl
z9QOuy%n%N|R24NnIdUa%X*3x<!WbSf%D8&UpAAykB6ynk1Ogs^iDZL#M?wxjTG{sT
zLm-?7Z$ltw&i+4nQg^PWJGoH1%1JS249(Zr>s5aVI+oX8<TRQen>+p{S}o*^%@K&F
z9*i%NNuj}9H3xfMH(v3ZEj6&3?fPuqJe1VaHFIT=<TVR*_P4f*vCcAoy_nZe9Pk)O
znJ`#*#CW@Ms~Oex(|O`E`0tmVA<Y&RrN+Wvj{H%pAUwxTbnlBsTv+ppj(^d|fGpDF
zyn5cEp5hgX?Xv|+i8~&#;<G!q6krkeQaVw;<%>lo=3>=kPv06*Z~w{gavyk^QXmKy
z?0IJ4_Go-+tGrfL$R=@pqpIqSXAsr`9#pSOQ4g?u*V+D6a3|9JuB-U`lPcZ(oV_(t
z%Z3`9L(4fII*{_L>Gz&#^0rFv;}4zu{n?4@aXp{jB%-qnT8}&XQKmg%@(m^hg!3NQ
zP7i3v+jGV9&)@XL@Jej2Qq=wQ??ZcLo*?CavJF{9r!8%~v%T^}^p$3%L^019bFIFV
zeGFxAREdG(%hZvi3|dGLekG(xR#3QiZH@%<ga_)Sn2OxWH)CO7UK{uP`oEt$W0`<d
zUS_i^=XAcG6WqzH);w!$*TFAs9Qf^(KIB}*$qNA@c}@!7-biHn>Zi`;>Acg}-1zyX
zC^uU^<mchvE$T($By>w@xx=q&Q=D!*@S~v<!J4;HIq%7+q13!AyL6@^9rnvd*4;M~
zeUTD8ed%4+BHM8Axy~ruuiqfIDk0?<OuUti4Qtds6pv;ddi+fv>h|#A+hKm+X0*eT
zvu|<5#jar&QbIoP*N7(?Dh-gy`lTf$4>)za9rE1RA+6ZQFiuApjH!iKgjp1t2;7f@
zUQtpyL;2r8)K3lho5J)(#G(uqi>><n`Evr{ZdLFfC0vk5rp`O3jbjPzrSIjNi2S}8
z*p1Ufnzf+wmFPQzBKzMt12}CD%2DaJXGAJY6UoB`IWx#BN7_07Dt6W^(&}26i@zI+
zuV#liCv4A8M2oCsHWqSkp*M8NwD(0?>;0kC*!YOe@d<=T#Pa0bfyrytAtnsCT+4JF
z05tosc7gtgh~1xJX_I>G$J?7XjCOKGI>`Y$#1@#)NRy{Y72?sI327=a<cl9`%iTkY
z`Rb#}Y+q&2EOQ<lcW|eiUe+-{<fm=<5;f^lcl&<NJ{)jZEz!`=DB}VYPgSu;ycRsR
znKNUDz_=n14ws7cQ9o8Tm2+mk(2*<&=dNdZVhW+(v^0qbp0?%oEy8mQaxreViYFxR
zs4oV(6{Vte*41{ux6%++VL&Yz>s6BM=jS8y=yjQMFXa(N7fQzk8VR0ebHsg*x4OeW
z{t~N@RBuSCJos(ZzckG=>&)&i@D>xv8fm!bk><xO2NBa<FQ+>0t+wR%yvgmjmyaq(
z)tZxz5NWAv^w{=^89lMY;9|=XQ<5JvZ3_=SzW?3Eu9m;Qzk|f3Zk1_*ol8-4XQR8|
z&~g*4`)>e!h(n{J3LYcgsI~{s#<8#jnF8TVYw82xa+v_l^0=Uhl$pR9?%BHo6Q9#v
zShaJ)Dq-qWipkqsmB|^Zz7OiD49&5zF}XkPY-)3zz8K{Ek60{GTwh<WM?(L>#aB+#
z@Tymsz6CAfJ_3h8xFtE%_j!7FETYy@Rkm)3pYRp`BJkE@X|!G%T1UrLq$pM0+yi56
zevuhhHpn3HSSti_^;ZZx<Qs(T2qcnyzdSg||L~Ky1~^`M4;#yvr_3((m(QP%isKua
zY&ZZ3Qa||Z$sn)dgEYg8Zw=4I>?+_p-Tp@*mF-tKj{e(PyblZVONwNA_i^zSTYmNz
z{#aSnRIMBG$zPz=^LT5k{K~qotm^pZoW+Lccjc|=#@arx1C<V0kN@-X61mSl_pmZE
zW<6u~Lx^Ty&pBvFn1fq8PRMDokKpH(OKq<D;)6Xe=>!%K`W;}Z$imMam{7x7|LYQ^
zDy96F#KrCBZ;Z_ZWn^YkoegIDj!UTHa<%gHWK4^DQvKfaYYGUTSg-w&EQoaZLKY+L
zlRe%FsZ=TJ_o;e1Jg%xwiEwT#S8K8aFAqkv#P#zzE#0*G@DpKRg?RL_Tf33R9XiJz
zoy=GDaKY@bU@M+VOkDFKq{DN32m-n8uC9lK1O>~l5FF)Z$!8Cid$_p?<{A}<C=f0}
z#ZP<zNYYbMQZl4-Y}ESGFyuBo`{u3urwW1s${{sUN$UrL9Ak<kq=fT9g}PDUW!0Hz
zg+eE%#3gD><Ud;AIefY`K0e;y_dEQiFE8KkE3qooYJN2JISIVu6@KUEpr>?hXl!g5
z92^WXSIgFF<M&O)ZhQvao9+GkQ)RXnuT+3L>(^i6<l^sX?hCI~EI>GU+T4gKsyJiS
z?96!f9NjI%n<V~^@O-^gXzA3&$llpCvY|N2&DFK)=+UE^gmi8qO)~n<)fOyP*#Zt{
z8AB~FSmSsFGdo0@wT(@}k+$W2GMSv?&Ty=MbRX*C;xcYV9||Gz@L(KipI;DN_c}tH
z`%uqN#%{}o3c;OQ@w)7%_!G`Xz8Kx<c6ddcUm$P2n2NjI)>Fs%<&-a_olzedH;n{&
zW1e?oxi=WBDS;uR$i(l@vWc@!3gu!hEj1-ZYu}`uDb>uT#QW-aIhx5v?*QZB$lF5`
zk1%b&&JR?;6%pjJvWUQ2S2?)8eT?PvifNxn3Zw8yTmmQb^Qbm+)~tQKE;PplgDu2h
zJg{g%=(F~T0f6NcIx{U!LFPovhlSr5qd1QdJt%!zD0HIO!r(|61V@N9YLIgnNw%H(
zSuipZ>zF9?+GNsp$~L<D+;dUwxj&?yfv2)hK36qUCFe<+Kbp+wTHX{2HG*zw8?Dx0
zhft)$Nk*sZ&Kg|FezXx`+@J<;(dE%xGlvpS<He3xR=S9WQF0%|1-pnPZst)LKG0i4
z+U`S4^MypiupT-Sv7JLlUfV-y)kMR|ddmw|QnNbFUH4IVA%KQ;>KgzB;pgY?Gtc=Q
zn^Q%v=T*BO?LFPqXirj!bxe?n2(O%7?X6LE2TiE~O6%5SNLHo3wovGdZrXiBCjRzr
zTieg(R}~Hl6RScsd#x)LX6}!}J&9KyFL0(h`XtP&y@0(dXE&8hN^n59Y~gd0{XCQe
zVfcqV`2*q}8_0-Kblb_84@s!L(NRY+SJL}GxCVlA>PGo#Z_pNW$uPEoN3dR33FK72
zY4d1ys<?l&b#91HtZaD5#PfMwwj-h(>Kx7YI#3>{ZqX*qM8mE`C6{lwdf%Bs@v-p%
zyfx{=wSJBT%)0?(j-6cwEu~_pd^YSss1aX+?8wT(giJ@A)|GNc7ps)n!U1(<Y(uS~
zB3q^QH?`Zh&5kxK(Yij9vMR!a-9sNLmy74$7~aZ%>+F1MY}u^{zx*f~AGq-5nl<-r
zZ9NFPS6l16mc*3CK3O3@pP4<_X;Z0_UT9=8lG^9KKNo=o>J^xlo$pCwjpr#|Fy4QA
z^K9gA$QO$TuL{`Th`7s?9q<G9>NT6V(yuimy%$!{PZiXH^<uP`bpd;=s#SD?w-P&~
z{8($N$Z+qxR$$<bnbx{r&Iqrs)tuDlf&B*IJ|89sc=7*q0r(#)D#tGMJ)c<FlqL_S
zFzYml>K>pn5|xyc96jRdok$p+V~!(zeM(v>Mw)ly>`;c{8Gy;Ywz9IS0j(S6CYJYF
z;KTL$wBdF7J$<-Vz7Z93p(mn+R4i3j^k=JR5KJ|9fWnbji?jrp0krMAR8dG}uFT+Z
zZ?VK6z|Kf#4;o2~RfGG^1)!qj-%wH9U+Kz~oMh7?Ie9|XeGIYyhr42JXSdb!7bZ3f
z69WtUM}`+0HfQ7Q>#+u?wFhSUy}7n6oi>+iLnL1Iv=dTfR=Ra-n>34y>WX-^#S0rH
z6ME#xUX&`L3$Dm-<>zHPo1}e^1-`@K2d@B@|GB)pd_ZEzQ2es$k+!WproX+t4L8bg
z!@%6)f<N0g);2VR+~bd`z~OKk_eKUt1;#w_dSY<Uu*{pWRzAhF7%zmbkmugo>UmJl
zyr#BP!Cb6U-NIb=%2=@Rz~A4V=bIA`D`QJ63kVM_Yw14S8(-ZVp?aCgL-gV8;KWbW
z_dD^Km|_f~(={Q$OSqwG!})d7rw@+vmCBp5Ln#%_whO4N!GOUY7g>i5Y}x!W<~cU$
z$^-L{vK=wK#xgq<7aam@aaR~mQqw!ou`tw0#P0X^5l$P$6-{0|4dJiL%a_(4^ZgDx
zr4gCbF&Rf9k>G|XEP2g~{-+w?;4tC_RYsjkXs=k&@WN9WastlQ;wNH;*y+46dMHA=
z)M~sPsoCSxiKV}>n}=SrfNm(!>Tfiz*@cj7HHU{@{|8pHmY4CU`D->=`kYa%gs>56
zY4~e_D8By29SSo%V$~M#Bdsd(w0)AtouHri#huo~YMjh~nqCsDh__M1Moe?e0d%1k
zj>t)aR?n{k{}LfwhW)O!OBR+lYQ(XSX1fmxduPk<_C0~|szt_QH&7g0r$=R>g!CD4
zn1pKqS|DfU(kzw#Ka~fBXT0X;=5U7FckntY-D-?$9SnM2PTU?_lS(+>Q^X>dtAt)|
zm|H%+x9@jpQvt9#O^lbRpft4MuHzr&{5E+mbwyS`Tq$ifD0hBPK_9@9T)C#Lpc(bl
zCkrgxkhgQW|KL^MIXhG#@1N=cB@DFLCUALHuDGxTP!591i{`7wb~HvWN?U_3`5Bwf
zC|N;^@qY>lylYlpK@%Yb-M-FRydHbHS<<zJ%5abn&M_3vN&YAL0qkmCzTSj!NZQY5
zKD>>K>S}YdE>dx1FEf!+KqJeaqFLEW<}Kj^zhpR8%}-=?@ZJ(`=c<I<wv~B!_@aI7
zPbk!kdo<NheA+NW(R*aH-q!-<NkzbAT<`uezYo%?T+aTV_k#Zq^@p=_4G_rr!Y{n%
zaxD2%8_QqwldTer8q3-0LAw~065-yoa}T=LDj#q@)lXk~1UvBP+bN~L1Lj|Ka@j%Y
z%Rq}7tJ#yj>l|}`_%9OGUl4$(7Ch!y=HPRbzeZZT!=F<hwDRK%s_)-fYVX(>^CN*k
zNCHxyz@Ji|4Y*nMq&}CA|AD9Ods|z(b_z;a;DJK{Z%b;E&!P+uXB1adunN${fSMB0
zi^{OZrKP0?QFk`o02-U&kU+u%pFr_dZ67eV<X-yoaTcgkn`)FsHmK499j6-k4dU)S
z!aP~pEiaP4_~^Q)t$^Hs+GxIrb1dw|xtvoSSZ>O#>cOe27H%d=Gt`d|q6W>Rp`hS?
z&<<+B0CchB;WrA?h7|e$zq6BxWRhqlIb%0~NGrpVYq3~Ns^vN8O3;oVkv7f1vrq~T
zu8Sq6YkKFlu$a_@(&A#f6t4xFaaP_>H1504G2xIz5|B)f4h?rxmo7H9lr|4asQSF&
z(^MT$b64B#8%&=Ol?#BH`ke_}<wSsX9EgSERpmd{yOx7)hj<3B`zufN!#|O&arbZB
zCvhi~)z{u#6IMPav+Bg9;W1q6ipn{E4a)!OHrtt~@4leBVt2{%A$+hZweC+%PVSN?
zj7rU3fXYaGS=R7^MzDf3!cE0byi7AHm=nK|=J%4y-~|_+O7&f;pTWP<d>igHQC1_D
z+{B0qw`PdSb*=UF_uv0>hr=$-W?lz~tJ1c160p}I7sLqI<q6`*{7(|93acNbmdYAe
z$Ur*00k-<zq{CEy|F9{UG^O!$jK}cf;6*{n0XCM~NMS<x+uB``0spg&kDCu~kB3rW
za<fxl$^N#8mJFkUC8yelJqXkl2EN6L^gTxJ2Nde&=_#A2<of;nAM+YS2hX@*OHwg=
z8y_U{2~-Epk!>jMndsN~%Hw}0t1kdq{U$iT_D}g~E@#}6@pb>*X_UO?#qoQu+Jl7r
zXLQRuA(cQ^JhQeN_Vf3i%W5A1Z@i6`f(<}!69J+8XQJb3^I<hH*Jo%Sb{v+s{0syV
z6&+^Ks-4_--Zc}AK>~ig7Heof-SBkZ`OT(PVYY~yr1Q`_zr+Ilvhp%&Zgnlj$o}H&
z`}b)z1I|24byBopsjcUcEth7OubqZK_)i;gM^?q!JL4f*79_4Yq~(jBjD3(-lvWFD
z0V@1l@pbb?wEFgNOU3x>4iTuz`no2ZG=aLZzE0m>YOy2@i2ECspw=SMUTcfgb|f;n
zz{~DA@_|re5p~{fQRB1lsMoUePl35FZOW)!WnviJ5D(dn3^CJDfo2TRIUudSvL~D&
z-txNnJar9)rW<anKs)<|Y+1h)>o@;$#foIR9yQEhEWu@F4N&?<MjMM%*7_n<2bwD=
zPj1Ect8S<UxvwMP7iNz@;pWuY8F%LPjIs`CMm$?`_9tGUd-ThnZ)s|jadFleWok}6
z#}0u!+G<AI^fQL@IK_o8bZj8k)vuEZP&mW6RKHSmFXt$W%D&CgA$1}dh!iD{ueMC2
z@1pPW;BhD=rPit005fAOm{dUdHA#Z`YqOl;(k&|c<KNb~bEqO6e63$l<yKxL5jZLk
z%^WYY<LlUWg=IR{#=`YUa($tb_9f#tcXIK#cbp+qD=H!}4t-$#Ky~%n7cB9eb8Ziv
zdS_0vjd2q`@-3WQQ_d9^V&-cgfpjFn0~9HmD7i?M1BrJ|^CC-XU8IB^vK(-)k71vW
znL~!JA6?giZ@&o85>>y{j%1yk)n+V>oSjWQ!+f;2b~8gY{bqw2ZA&WK1Dqgd$PJR2
zMDzLC8&EUjkc+I^Ksm~NL+E1IwW0aOqmW-);sT;v640>+YBBuFOe_-4T$*PHF68Uf
z)fsJ@PzHW|(mp(<#hC!hEil7{vx}bUqB4eIM`hNoOsen0TQ?^h)Dn|^;WsuiqzZw2
zlBFD9&PItOu9>cDiS8J^lL7aa4es^m6MZ}+HH3(4vHp1t+=-^u9Lvn%Eo(>mJcfGY
zk&_O1-EIC)r(4%m@thEduDAoFh%+qWNdWSD|G-DCDqyF%QFl5v{c0zNcQk$FH)c8I
zn!}ckrTVpgqMupjt5x)lN0(j)GSc?%J)a(SaO3qJ674Rf>OpwEk_W8w$7g=Spnc|$
z3|U|RBs}8qwxG0t^D|{&-Awg;+1(=wfixYhAAkCq<<a!u$Y#zm2juqC$xx{>2XWzB
zaeFI1dtp{;c<Yc}QXd1Vo9k!Sck?q{tgN?>G2P4aaHh!g1DE}A2n2|9#{G;AU1siO
zzc=Fq&T%SrmBV{td};GBmn{D+YinFRbsBf}puVxWu5MdDA$?wAOmP1@?2Q{YCM=5k
z&JofjV)XLsK?84ZWu>fs@bSn-fIH|DsKHQ{tZNe5fU&FjW>TFa+mgz8Ji>$o4Vj-&
zS^_$V_LH;cg^%G+#wi$p`lx_X6BH6MGb-xk<9F_^CgaT=9E3{C%61-JJe^smlEel%
zqeM2`u0(%9?b?tU$5Iv70Gg;6hvcFiB#_pmTyZ8PX9@6EIG!3Y#7}F9(Yw2c`=Cbb
zfHG`?L^9<hZeYo>$^?!37??c_rg`~Dn+@>VY7Q{>n*A94*I%{>NSYjvi1zNgP<m|_
zdxo;py{*+LJGsX#h<So*#L|!x=*!<+9?z>M-|=KLSirv=NiZX6Xqa!8JI;I4QdK0~
z4@I{lq|Gi|(x#VornxY^*HUj(q#RAKdeI$gMckZQol2su8yEFzYq54{1E*gX))hN6
z=W?DYp(n2qM^hDRS2>m=jMc204c_yV(Ag8{=OfcD+Ew2m{d}qDqL1pBj8F#JxEDs5
zx%gko!RHd6R*_Sugw&G-c6R$Yv5trz0yR>iIG>yHgvp(uW$yf$xYZT3VK?PCf|k9a
z_AuyjkLH$xPbDo*dML^Nsh*f5T$EGRlG^^wh(wk6LUPc~{1%x?<?%CDX9Wc#>nN$<
z%zmXaJ&808=PuuWCIdGo`2EeQ6OQ%<g;Yo!J1OM*SJmwt_r!3DIk%a>U@+h_g1#D5
z-N!$yC-n`|gB54gMm4?i<4olqK~0--W`o84YOD7_PsTbV3Yo3Bvli)d4@Up0wYf=3
z7vBfF+A!oQTF!?91!RN7L>bk%vz)59q?5xEo>rvP+L8?V7>4%}C{ZLjGmwF&OfYs&
zLjmdeQ4xFk5`dit6ndSJnnt3bhBWlcmoE}1$xDuJy|ZV6JL44+jMV&ZZ|;M5%Xb9s
z4=X|&h&Nj_6FFO|i`2Ove^a<0yawp=KXlZkcUI2}L*&Dz)c48WqWZV6-i#ZgqCUC`
zK_G`O!66aw<}?wcdGo++X5}|tHi-NYuv3`7Kw0_YX^||GX11{Fd9nK-XZSBC_RULL
zOj8$`@e1=%)j8}?JS3-doc=icIw=UMEgN(lh`)sQTQv7R^!w)Kh=*mu>d73!zk=JT
z1GQT?j;Jhzh8UXXSH#nQKM;ARo7Rv}dFS5B_&CMZs|p?U%f;EqM7hXAc3@ezy~erJ
zikpLUxdHH4;31yY)J&fyG<dIF_dRgD&3}F{REHfBIl3`<YRYxg_TRDqYg)~Gpy3Yv
zeseKwm_|nt-d=L~$-B_}3W(+g1BTCv>0R>-;epGOtJ#n72BBL{UxD}inrgV6iY^jw
zZuhyQy9dRR(27#JbKXHX<W~ixeseDLYvH&Bi8CdPEi5*KatPF|yIc(X^c%Y0nvMiT
z`e&~=C=_h#S^}~w(`O)&KZZ-j&wW1(<@_@9VTS7)A>Wb>(ppY7+8&P_Va=7ixYohj
zI)&0IA2)vCnN*8;_}57f;odyGE;45vwhu@-y0XB1<LnRZ@jX8~{UZf*{>zn(7GGc9
zJ-rWdb@}%@?!K1A4jUny1TD?qr_S6A0HFE>RTcsdCbOFTj^Ty*A-Ab<2-t2Ry3}#N
z=j><R*8A5n`yi2bByAugXGXw!j(wt=g46a2@*jO%f)<y0o!eL%zTAVpdu8UzND^sU
zbhP{^oLPt>Hou^SL*yMNL**VGaV}Q&Dw%oNQZk>|ZploPyiR!DL&ywh9<7*;V!g1j
zD)v!vD#FA@)HpM~dCVRavhwL3x)9o4HRrgANXZTgBQw}qy>%exR1mzH?pfUROTNPa
zRQ3`LPZVJ+Xv}G`<lfFzkL`X<w-%<2;8@t!F}`Qa{tb#|nFmkV&5xnPzNfL2qDtS=
zD_vVSeUpd^ea9Vq88Y(wV+g@B#pJ39fi`KCEK^gUIe)xTTDqe#cd|zAjayU&Dki#^
zITMJOR50LsbNAG6PL9AK6_3P4(~`m|ZE<Ju=JhVa2aDTvYiv<mzyrN_+3g<r-0e&w
zSLV73^v;{E?Rdeh1kvzLT**rxkC&m*mmP+!f;$+#<2;;^ni`5Ir$(ncHfiLDsRvf%
z7WkA)4$cM{`Gl7(F3U*r3~qw)tf5$y@e+lq+hOa*d34Qay{zNmJ`(!q!3QB_bBT6S
zbE_ROkF6DAP1JnO8XLDYFg=l|`7T4hA9v<Le%|sQPq}%&jRQ3vLVmsd%+70;{RrQm
zzGwn5E-0r&n^ZfGyXc~MfX)^b`<Szm%HVTAXb%B|JP!r>yp51^d72;M*#3bl%F6L(
z1?CC-&Z$6inFemaLo2KPg|i1eM@AIjg26$Bg$UY7-77K7^eV|k;Q6$U*nEZHH-E%-
zipO6mR1p{acOC8j+g<R26PmZ*6P~VjN$XyYVZsx_2|{*|*53+WRWQ6BKHMx)1Uzs9
zun_D49r?YS%8vYzktb(^%JBGIej=^V9w91E*cq~K?4vaiqwZX-2MT;Jj(N!ew{R62
z@kwO~ZZRf7!+E|DncG@O5JTDPn*l6dd^brRWRBFuod>9W2FNH84clKg+&#E(9_3+8
zE+dtjProD?%b;rX<AyRYi=5f>2KXFP?%1MiP$Io5WGa?ElQ*!J5Cn0Ls~5|Ix0jzP
zWK%C-egcP-*3_`)kaqm(kZyDi_VxMMs%1O%lSn7F@p8~=^3rDBe<^WoHBy*M1vH{|
zggL%y1lP2p1?7tNyT&Mv>$5O7NBQ5d_VWw3C&lkkzx9`WiV_kMz13LF{$BrBw9GR{
z)JbAN!|9adWXG2nj~fjx#c28|p!$f+Ej4XDp40X0CX<~(-lSyjl`W<?R;TMZecaT1
z-GeU~iyz-`HeRrW6!p#~*dtoLGs4dof1oqx;}il78;nRsP({G>NEB_6gxr%cdea5w
z#cI%A3D`6v{Q9x|>f!SC_V({nQ&YRcoXuM1pUVcf{a`B>cLj{tZr~mun;mxtei)tq
zLv`T$QgHG6ocW;$H0H*Xee^8Xw97MKsA`fW18JcO?po9)#iZHKSZ?o%+oFUQhT?dE
z{W?kqADcUOy+3;p|F3xjoKbRs5+>zqh$aKg_&}Jp0V(UZMc<k38_<U43M2*{^YINA
z1Y)y!6||!NkD@C7jI;hb>i#JzT}}T3Hs;2fl{*#S+5c%s)Ozi!;Cj<C3b!-K_bjf2
z{7FU&{VBa?cr__krpEJ0$peB_z>k&kPW|J+^sVGGM~qt%6(g($&LtFYpS$raPWW}a
z%2>5=ZidjVt|qbhRf+LDuYkI~a7%;1IqeOd6p@HH0JPce)dnLr8u_HaoLA3$yRC=R
zpIgnmho5Y1+Yemj&^G()JVHgf<%}%c7$fpRLM9rZIz831pk4I!7Z$Z>^}^@-cdKB-
zq*BVwkE*P*C*vRXRxI6OEVht-PItyCvtPBYggkGbh_*+-llm^r3h5jRgP{O){7Y8o
z8(@W=PyPoiw^6+o9kxq372sE*=mYoC<u75FnY~%4O}d|dTp~Bz$x1OS#YDqoQM<+A
zT!L!DW|B@1@5M;qGTB25E?v4b4(w4+kPJyb3xwO(cdG`|LGVuQ%3nSJ@lPM1x%w|3
zKvm{+>=zkJ806-`#9QZTMA)LU9k4##b-dZ$>H1Du7O3Q~4G#a&G097|Wvhy&J$nV|
zk}vh<1LMXEa={T*#?j{r`JFfM5xQn(#5(X+0(bavoI1<4fCVVz%m5mobvtgW2IT5y
zf^(0yc|QV*_^P}5_7|^k#mj>6;b$q4En~Q;$tg{T3W3#^3(*?RB$c=f@B27huGg4%
zPfhU>4_~7s--Wo~_2FA5chwz6Fv9a%c*$O0)4i-m79Vo5Byl3*1!l2uL#1U@pfEuO
z<l~yo*$2?4tdw<dxYRGDUSB???j58s#RfU^e(;m_)O?zW<daz0hKCjkZtqPwklcfy
zNj2Vnjn1V+u$Y;^#d+TPU%*@ADWUjO2Sm}dP@tuf+AU38jhD<6tW&wN0I#&Feeu#=
zn@PQwEBcf6(Z>nuwS((#FTaoN17BTsE>YXl3i}g(Cf1YRC5gSf%QtC=U6FLiWWCc5
z4&Gu%9sDLHvw7Ux*f_Qhc-&?J&bvQ?$7RUFrNDyaLsD7_slgN}ap}LnE62FN+#e;P
zL~xXxZ3KE-M5D7Qz$`9|%aYJs{X$WQh<iiRMTfRp4qAEY+7~ep>&O*#Z`fG_Ht13g
z{hR<Ye~_d8HaZvcuwkd#-J_SUD`N0-4h)0|<*f%W={{TWL&Jra(g$RV8-N;jCr%dT
zGduN{puP})HH;Eb0TLml)|fdZLe{|0Q2nESDG;)BV{>2m-rgr8XXl55dIM9!eY3?o
zqVk3#0@ALGZeA)FXp)A0E~5;Ncy-sMg!p4SQEXRlR$6@3Ikux?KKpGE(9Y**Rrb0s
z+3G41vm5vgEK2fpiR^8!qxhwowYN}J_?FtTAo1s>k5LQGeu}CE>lbaX%nsx%+5O6S
zs#q0W2RBQ=jn$b*7?^r1DMDnuh2<-Y4#4PkA){#EiKYZNO-Mt(PY0xA1!b8iiFxUL
ze69tHur27mPIv1nivB3@2*M8B$`SeH1~ceTLSzN231z0$I3Z{TUDdaisd<2DdYy3d
zt;dX_%oH^{e=ymiFWBbQT!Ip>ml!1L+~3U6tu<Ps<AmM14qU?EMqg?$#)!4!8Nb~=
zF4G2@(O1vamy(Om<jn~jmHo{5?HJpUg*?=u=*3NZzAU}p`#x1oXJR@mcpyHf=vIw(
zEu!UQg3XQRy#o;L@USz#{GBHMe=kDw-*!-S#TS0|HOL`h^Y}G?iQLe<z}MKhx4wxa
z!~peY9W#&z!Ca?&#f3)9zcGij?w+-OBMjtlPbd#`?lNHqE|&N(5&d`J;mm&;9Of;-
zX{OlI3PW<XN*hFiP5MP$&1Zd*l7~p;f7Xtcz1l&xkN3o1lQ0miqU}~-ZY{)F1dMi<
z!Q@7=EpK#27!po-h=Amq*}HvL4?b=ePwCE5RYaLcdNog?j0vGRd<uj!ys;k%eu04z
zReKp^5TA?sGd`E{xA>f0m94u|-du=7nblgQkJ@Ad(RHMm=MA_?pT!C8k%+Vc-?U*b
zR)I;d$vJH`-NcM4P!6pNednKx%wp$x1N>c?HlEh^nGCD&Y1faLT#(x>=E-gH6ne|)
z*pKDZ+1X;Qwn|N~xVicH1mHB5U^m#DyK+G)MU%*I=Z{Jn86Hk`86g5Y^!XLS#m_3^
zy&WD_ErU2$5}urG&x{f~cVRMKuz0ak#QgeLA8_mn(R!$RNt%01=6d_U!+F#c3fqjt
z?@AQFBXnPGaDN>4e~jDNoDuY&x(}2`F~XpbzFF91hY@zzqB4)4{}~+d$r%XYx>19c
z;-ej|q2X|>|HKEWP+Y=Ze%VA;nzC9|QdRK)!Ej;>PmF(BvpfY5x;x&gWo!3Y;(Rq0
z=}(&rl<?r+dwExx#w4{U)!J`z-UY+F34@LKetdICop<5j+XN6}VNC~*f7vsdgEa8x
zmNkhrWcyw+8E0=EFaB|21))LAq%wAm3F$z6xVzDsje)m>e;KTDc9|0LvwAe51l1Ot
z>oEKrynmGT-q?-RAvbAdv)5l-P<6|{;8t{jxh*Iyn6jdAT}q^|JX*wR26o8mile;v
z`tRhzHu<gwNi)ehRuWo{yW>|z{f(D>6kkkRr)Eb5bo(|)KL1GZdvu*Y3fL^TUy`;9
z(06=>r;2kHTY}(abDTrN=H&8ZOFQ6I+P++9+M0am?urj5q}x2Z#S>sv30Vr2t&>PG
z8uOzz(*q1qe;3u>X0%VN_=+WdYTC=ZxHh0W!zdL8AKwm*$hE6^ux=QlMH%d+HcUJW
zW`ujgFW;GY=L|0G*v2KzUH<-iho*miXbTMU(l7%%VtA(EKs8E}+C-}^?*N6OT7>OP
z9LfCho+?z)e03&dbiVqILAifA{&u)c)x6Jr3(4j?DlL3>z~@uc*_{4*GTRdGg4Ne^
z`f*nsNd7$!{holL0GzD1|EkZrm(xDAa1dC1A7zrKRHs4Ca<9)FneNWcMEQln8TQbV
zTvmJ#2!s9qhnDF-4~+lzFfTykA7>u~{=2zdVYWIPE`USlrd!;WD{F6X;?Q569Y0if
z&(bdFo#l#CaIr(ci}y0Z*4E)lf9vZYAUhYZU*p$8R_4E&$mn6xDcbqKJ6#B4$9Yh~
zwqJL6=wAJUnU>gezcV#E7qf`#_NQ)!s?D2=_}wLx0)9hTvJKsgGARN6qr&Id=R_>G
zil?1ob?5Niw8;;N1y#;qORQ(Y6QVxKeoC}3mN8|1uD<U;TbGfR4)z1ID*Mmvd@eF@
z&km*jS38)ImYND|qM@*fGXm0>V9PeC$Q0)r&*M^s6&?4zeV;A}!e>>IA*2IG6Cff&
zF*$F}%->wR&OQJ6NWxFm(OA<IzlS*7Qxn%W-&cN}{Q2;u-0axawm(2`{S$1C_pTqk
z{r3`U9RQL4e4jNmGz>^6PYStg!vY=86Gv6n6bD(qn>Un~%g$$*ILK4opp=V%o4X%Y
zl$&ylZk%Bn>gS%{>rd0?oSbZI0_|`(z!|kKN>c^UPu__()QzvStf&2(rHLwu1=Kbc
z=e0XLBj^6M-Cy`q`KyY@8_1S+dqxN7>F;TXXe0lncI)5rx0?I7AHVWj#{H+;%MNU>
zav$OU3nAP8c8Boa%KhG4gLv-63+T)M3Y}$ua&>c4>!LGT06x~EEP=bRj%1zuSiUD{
zUT}k`C@Go9|5dRK=N`JdYe;9C!f(f^cG@$HKuW!=x_b5XUcFYB2lmvUi2^4Ayhi&-
z+s4_0BBd1-+F+;$ga<g|6e4hB*>w$S4alT=f~<JX;%;Z^rOflQ(OZPzU;35j@QcDy
z-2P0)>!&X7BQS#Wc6W~i$vTmZ_9YJkUQp}^dSWA5)~XvF?jH0257p_9Ig@We;{83E
zRDJa5)N7|M@<t~na~!LcRB{2_Gg(gdyTi4sbN!%}eyv&>(<JLZgC%iM<wUmzP8vIB
zuC8;nE%#DGDPSrlE~C<-HvNemB5*%`CYWrG0NR(eaY-T?c=Yiz!89Z#qJzIi45SG~
zf>;=bI!}<yZIGs1rJl!pRX37}YT9N066$Of;^l6;(>#VTzMyZsbM@yrtLV3~cUqP^
z5~CZyqXlrRKq9*B)-Coyep(i~R2-A6)JAKPV0r-L&jN5Gmtxcp&5)hFOrgs>K07#0
zX{R$6QK`H&4}kie_lC$O2NE*M&`czSa$$B^PizG(uB@U00@t<P-{1R#sF4am<HBs;
zZ{LBw@qhktn@3=P<A?!}22W}b)h``s(+<rEv=>XXU1%so_I&-i%;DTMATHqCr4AT$
zY&qgW6h0UZ!lV2H*tZ|l7ILTzkPo>U3@Q`7v7CdE_GW&cBMr$?aPBGsgzR(PAUxvj
z1FrsEoaKdeKIgcOdzT6P&Z}cy=YfIL)Xq=41f{<4gB{ziJ(yPIU~k_9WWXDTAD^{`
z!y|N9VNsRikIRk0M((p`*s~VzT~-b0KuL^%?{975k=BF#krhbEVu2Ah!d?m3!bcRK
z!7S8$ufVQr6}ne+>#yLc^drM-b!QJs@=RTQX+qF@-Gkh1K2N3`JVmVJzD=PgB>P2U
zHzrU~;*p>Yv^KVHZp6jP;e&pR)KhNOuaS&-phdlK5W!2!3K(`3ma!=>%LGCH`v}Cm
zQv!3X*DMVhqJxUpfBn)#QW34p=L{2vo!tK}kkT!Dpu6!H2XDwYAw3j0W-UhBg$jfk
z@)AF7aVJmigW9A}#Q6b9pm#x6ku8@FK90&0EIM|_4o%@W)dQ9WO*0Tnq~5>$QV4`^
zoIw(DLR{H6Lt-z!>p>m{LwpY4{Mxv5XW0#d#E%8k2eD|@twHOGVD;wiDmjt56uYlZ
zGy>|m-2z5RBEY<!Orqh%y(t-x!j2fQ53NTJlwoJ+qHH{}XciyYo`F`F22HUjYR%2X
zW#)Qknw%NW$9ooF$ZaNgU<?SJ4j`%`0^MHxRwaQnB7p%I&^78qoh6vDXn~%GYa}rF
z2WOvYaqBN>6o>s_?1oA(Z=yEtWdq@Z4=BW?5}3rkORk>a;1S%872uM9lLZ2Hts_Ho
z5j!jGQorAMt4FFLq(=bo&gs{t+FlIUYTX4#&U|SyZ8Wv13L@7v=Mq0PbMeVK@+GuS
zfTxQ+MsUp;i!Ku2XWKxsKJDvb29k%J_f8AAAQFqKzVajX>TPu9QPem_bBCou*r~(f
zz**-6ySz?8(iJmCiim)w8HX4mSri~nX^o7=DX<2#!;kHc=H6ui_ff?TVJ7ecd#FH|
z=QHa%>4<Zelz99cqxsWTVBTML^SUt9#xUd)KTQX*_+0hg<(G6@L=oU**}H-uSk&}R
z+ZkMjj5lLDyXynJ+SIZBT0UAddk)wsuCA^t;@L<bCc7&Ty1+bAgM3m4Kf<FUS=z$1
zmRyeV`v5-U2H5p;PoNJBq<;j1F<SROC%X}8B5<r*f3lufmE@7OmNI+noRf1`JlJ3!
z7-f{Don3Ghb_0L*V9DdN>7#Y5vZDO$kptwjvt%%_6nL~hOOvShr0v1-AW8`wZ6aO)
zp1jtB_n4}(U4YH{Z3{n{$u*G#JyQjkq|#+FMw0y9z-)>FK|Ed|;)SKeYz8=t0Q*3x
z?fl)i`j2#`2q-S7(p~u@3DxB8n2&drftk7S8%<<XJH;rwx-s|l^XJdupc9KoMav%%
z;*)dQAuWYlA6BM=t88)k<&Gn3k<B^W$=m{*cYHQ00)aWy=AD*H{f!P_PGy<J_z^2t
z-mOq4JmJD%85Z>xopSRyK+ZHOa1z+5Nn2#ql$6Ygtsj^<2<5Xy$nk4%LKA;ee!vju
zq%#KK#BaearLJ%?<fEcHd(hP96c?is`k##gClsD64km`MwY9&44A+*4B&{82+h6%<
z?!m#qdMGgGsR=~GJS;Bs*K`qA406og;fnVW=Qyci125WImcoNzV`Jm<v#L;DhT1@Q
zv87u*x}qyfwZ<H^f{d`I&>Q^_U^3zk|HfLs9JIyN!{f{O&K-m2X9PlWR5qJvA{Yz)
zs2St!M_>*j1}!?}P;m_tize>Zxe3Az#r1PMkH6^<X{RNVIxP0)M?{pUux;Z;ma08I
zEVxb_V5s9=4AYe|`b>)sES>;_2Y=LeJN7yUgd!n*l`V7QCrkT8jGvJ6a|>#$I#DEy
z^^QeJNlB3$8Lf`Xou4VbiRjg)2nWzvu5l}I3h_F}f^?3hpFOxFq7i*jc{-zaDV!CM
zIOE034Qaa)8LyCgxXs&yB03IYdH{z8$Ht_xO(_TrvzE$$5z>c&k>h(Gh?}RN*`Qgl
z5p>=i<FA?EX}uFIyn%4;ibhh*w(%_YcTy?s&GhlcaeiNL=^dB$%x{-k9L`g?4|7>0
zp+zu84-dDt-tdK9CfG_dc532lq~`tJaqz``x_6n!9uZ+~WwkB^)dW9Ci%*r)6XM}}
zrC<(227?vCU@?Srm%srEtx1X&FA%TK%2k+VP{ZksqNq`3nRrr%mw>aZ&|8mrG6o@m
z1S1kyQVxri3$VRH(D}h8zQw+|$W(cG_X(@Tw_hn}=iP+9SfW(agN>o}fyN>=HMMXL
z42BK{7XXC=<brxeBl=xHO{!`H3v%XzZ2ctaH5j(IUOvyyy{9$+{w*2^<J=J4**&VQ
zVFNh@a(^y{4IohB{wb$@Z`d7jJ6BKqlFWN#wRB1!E{!2t0y1uc2r1(^l#(0Iw!Xxo
zoEM+%g;{)alb0UpiLNbI<UW2}#bZL{ioiPl&<6v0WdxKB!4@eDLUUdEhDOHQSaG<z
zb{N`{<Ry+ZbW8J#4oMJfkt;TBPWv>9hM7&J8rff%MIh<*b|i6Vg7J1Hx`P!F8h8X{
zb&A7#CwEp#nsg$H_rWz|XQj7&sMv2`f1bGZ<HwKT!QrgfW5@M$l^Yv4o;lnU(~o_k
zliBy`ymA(8Ib@M>I>vHWdoxIsIz}5G>TagL3sx<U6OgjcT4F;))DyYC8k-!u5>tNL
z_xdifl@>N$8i%P%qp#NG)ElGLD4GX6XIO{wF=BeZjBrH7Kz}Oc`{?l)#5&ZcjC>gV
zMDuzoHp)Iaxs3EU>C0<7wMh<)O+OWP?BwHlRlIgZGshC|gy;R|W|6_e#}dUG!S51a
z+xxu$UUG0TN!~GGf+1>+2s>+C$oO#BM>HsHAcNO?f^GTfd8f{gTMdvj1x39)_ptK2
zA}5-ELty3vCO+up`G}@}@wtCo7@}pV3fu1l(Z0Hnul$t5R_)~IV{))RXAtyMzqLqX
zWM^=*`y##Zs#6{_uzEh-8HweBKb73}FEzV5%;CnKE{V%;j7jmNRXtbuW<RZXsLYaH
zpV|J)-2!Hn?h?vWfUB~*H253R-}89-+%aFsMK<l2z*ecM8%-@R32O?%gW$nd@mob}
z;9ZHaI2c>b1FfXiYrKp@{2bxO;rZJE@3SPJDDi*%Lz-RT{N}VTOsM$@FvuVf=yg-Q
J@@uyr|1auvDG>kw

literal 8525
zcmeHt2{_by-}fJp7AYxZKO!WYgzQ@i$u6>2i0n0F9aN{B6rymlj5V^2o$Oj9Ikqfg
z8DmR>iLs5bd%n{-_j|qf`=0xG?(4eW=e@4yd0*Gee=hv}{=enBd=`%l^|e^`a_&VC
zghfYN(-=YMMrm(mCin@ur#==wm~QB5X~HLbt(~t4fsZ|2+7>7T*~dnE(|s8Z-b4_7
zL`PHI)GujvIMB<KvbD2-lOGr^s<~J6xoKae(P@t3XCe#29W`AqWS14a)^^<N4Udl-
zv~0G`j4Tk(X#cdCub)>|X8Y{ui&Gq}Q+`}lM6qi;>T{Milh_0}&O}>j$kqg^G^nn(
zZL={aB8j!<5{dSYUVfiVqRLw={w`mmqeM(Pj386S^%R)kvgWR12*R-I%?G^Kdlt*m
zn-P>_Na)>zqx#p5zrB3&gl*sM&~c6u-c<Iw`FH#JP9R7)w^k#9923b!8de5ftEbYR
zutzn^IDTfICDbYUTAhmhQb#4^-DB82v)pZflMGqYebqgUpM8E(?@PCVYC(=kc5ZsQ
zM!a2c)ynsQ44hqvjs3@`U831Z=_A`Kl?8qAZ8s^a6H%o6(spBk=uXz)d4^sbE@e4i
z+(6wRL0ZQ^neqZ#w_<t4)YSR?BbH|CZ>rl1ta=I3IlVqCEG*#{GhCdVp9v15sl(x#
z0`O9x;!)*(3*)t@NFGJA-rnA-)*RDI(b}2=ZWZS@_($&2Bl`En*mfV__Noh@+>w!y
zkzl5;^d;L?dX2q<i3=OtRoxt89UglhW`jo8)l9}&;q}f9zo<cve|U_|&HapC8E}$#
z-ts1lFSuWbZ4b5IKB_7!>!j~!Bi*^6Rj<n16Cd&R_0&3Yl_I&en@7R>lcUseD(p^;
zu4LVErc<(lPp(zD%M}mop%WM1BrEz>^D{3>oJ-cPxqAAWi>oUNCvH*lVK`{1O>4N)
zzb@YT&SR^(0G~wC-S(=k46T}-O`>X5YeYnZeoU)_)a=}Ym5RfN*Le8J#;^lCchKw0
zw>PL{)tL&0-3R1!u=VvSzQY`LL1Thdj~+1*@ge7_gRX^>9wWu}VPaxpr~x-w-{HcL
zEmvxfiNR!_aEpwrY=tH6R(A3?m5uMEhcUfX84R`F(_d;^U8f0wWS@}D2|iSOhw4rc
z_3dsx?xk(d`n9YYA|`Oqx)Qa<fG4Opdn(c)!dPd0_2!A&1-5mTzQaE8Ck-(9RVZRE
z7ONj)YHptGr-Z$FI<6*Uq#iA#v#~PUYJ)4ZYrr>;d0mAiM3Z-R^qw}|`0OARlL^nV
zj_IlKCF4bhwFT3MYkY})fdZu!j-Q_W#52rNP3g0ube?Bzk<aE)yz5MCPtJu?8m{*k
zR?x#JS;WT1LR3`G<mQ#3H&zZvHoRI{dAr~tjHFJ4&)9TkXhrp%?NB<Q6R@*ImAUbO
zd3K;w>#?Q=g+g(0b2BZptrOIN{frm9VrGWvtY&-s%jeIZP3`Ooz2vNmEUcIsUK0Iz
zZ081?QVN`<bE8z&wRPhqdL@Gwp5P};a$bCl;L0v{#myw4+Koimzi@fhrqQCS+1gfw
z-Ppv$WbRHY&R4O7HPQ+8jK^Hs?n0&K2=<7W+1DF~9&7e=cBb+(_hcLJ=_Sb-u`11n
zewi*yNJx+lTye7r*`gFghDT|osGz+kBF@chZ;(6c-cC2(V+fdkyL)I$elV!?=sU=Z
zY%N}Y%_ybCUp;CUKH@1aFJIKt)631zH-!li>H=i~SH9P_Cdl1RKYIEqJnqG%SIdnI
ztY1A`J^8#>?$WCnm`T&|N;&+>$;Bme_xsfg8Ae-Qg;l$1$n|-KQw_VPTjRt{pbmu6
zF?bK&%Fcmw-^U@Ll;fkawcM?+^!r(#w~QPjoDnk+cfB$=>+ZQju7RbPd{L9EDcH7N
zMh@%L?X3+WHmZ3dVC*5sa&KYql?6ZRvrg?j;+6OqUkmC;NJEADP!??P6Uq9k=C=Nh
zc|%LH584U($W)6GjxffHAR=$l<>{G_RN<c*-L+pCFDezbg|Mn_dUZ)~A)RQiy_`_@
zxak;>YoW;BT~c2MXV8;(GaxS#?6>Y@r|+46`(StMrC0gQQ!4?~xdLy6f{!0Bl8g*9
zgGS5+q7B{M3n(HYH(-M8Rrtc3rpHg3Zn$p`I_Rta-LU`5Q~s52`5lzioLY9>+a_y~
z3Yw?xK#Hgz6iIBejQaA5sp*uoeZPF4J)#yC>lQkx<LW}aYH&|NN^00anI7Th_|Kcx
zzp|tsf17%Zj!@~D64R3D@n(z(ie6@~duzNTZh5-9{MuW3dE(ykO9)b3aG&vw=SaO}
zh1*L^$hJQeRPFNe@|euQLCe|U8uKSd#f?uNHSzKBnLE=i&!`R&%zPF})!O6pQKPlB
z^~hsQK^-Xa2|r)IA2fnnU6?5MA(^r8D452SxeZ7uFL$1g$&^QZn@VuSiuUiH=C>+x
zOj~`Z@e_rF>j-%2@o?*5<gZOP`c8NUPJ36kk@j(px(`)MV*=;89OG@W!o&CKxcE4b
z{B84EX+7_XxlJrr(c0^(gHjSA{UwH*QZFy7r>MUAor<Q+4w=I&`!Z60l?kg%OMB}V
zGbhOzaf<r@pATA{A*fxR=-d>3Bw#YuybPuo!K-ZffQjYH=U6crXe$Ml<(IBpxl*;E
zB@m5|Ui>3Q_sZ_eE(_#UA@X$Bru5r6N1-B#I>M*=T^spAHj80nv-A?PSh!@JSLerK
zwgVILAUC_S^h|7QZ045FB8c)!V))mgL=8SVC+k$w4v}(SoVCf_A>|id-oR+evElpV
zjZ1=TNhMmgv~ZW#SLaYWebjZS+&lQd4;b<PFAP7C=o0)f!XuJ+DueCl-ip)StPg{>
zUzB{?`mn8`f+6aR`+s=}z1h*x@sy;bWdGvk9}%`zZ`VmQ5M5F-zz~ZYo|#)%ycAqe
z5)HLSA2yMuYj=>k^vd|56=old$lk!u?7cdFoph#}afEs#;^Khar&cOjp6G{R|8X7x
z?c&J)R@eUJ^!zV70IjZ6xF^!W-yj9s^n|0b+I?+tGC>7h4IPf3Xq{%Z2T`lMQiP<S
z+U03=<*2x2W_7g!dZCHqFY3x4w;wsROphKhcXWJpN=!`XAC;5<ic8(<_>-8->F#XT
z@BPJ$i6?j*_R-F;q(q7`-Q5f&<?WJ^Kc;zG!xmy9Ce!fs=*z~PQ&Sk9_UTx2TO+BL
zFUT8JBnT?p%;I!*3bs|E=5mbpXVL7}IXOAkN)L`=gqZK&R|&ZU$YXEV`|pxpuh`m3
z5V<>^)64apJHxooOE$50yy=OI&x~o)jbc3IFRIAUBNnc#>+c`w#2nyNdj0X^M~#S#
zr$1s%m1zBEy=uB~W`$!B7CW(X<zAWF4PC}Smeq_Xl`k<uy3+O^_X|DOnH?<Gjp-@0
zQ>CHv!LnPqd3mkL!L%m4WF1{AzBc;y0faH5mF-8y>g^C)h<-!-#TA{Yv0@I3s4nr<
z`a(^CG^pdyT|bO3yh%a<mM`LcHAHKvyo^gI8uQ@)k1wCNMg`V*co5`8QY{^?azGhW
zXL%l#pf`En=%5q8uc4TWMQcwjwo2kULbg%p_33OI84d&y688)}5&diZTAQa!TY^mW
zM5Lnk#%!f4Kz$%bdgg7r5j7nbs@~Oh`2wp-{f714LO~rG93l8kunY%p%qFXFBgm^$
z<PnD8nVf8C-#Kga#?VL~z6#|7SV$*EqHfuEt-f$=iRjz%3?`UROE)*t&>-u9f9)lQ
zp9$z#@}BBU)92Zbgc`?D*_Vs1zmE(j!|4caQ9UovBcX?%pKIi>^}8O1Wk8T-Vb9R_
zWAjE0Pv0-q>hmxop%{M8(1w-r!s+*{s=wP1s(te6w<(3b>xS^G>RQit>%-*W?0u58
zh9+5;qsbeV)!sP(;_I*pEJ$cf?77DCVF!A#HZ^7bOE;l)3S;~<(hLb<2oie0xiTxw
zP}{yaayHxo_~V(ydZt>()}zpaL^&gX(+N;n5hN+8R;v*@N;i<Xa}k^}xqt3>;I3NF
z5tWEzXVUX-!VxsX5sd6?Qv;@7#Ye7NTtg7AJByh6m^1c|I5{~5b9xIi-CSH|@HqhE
zZu>J>+u4m=0Uq6%;XOsBBg1}){cRNJy|;e<?aa(jrRQ8VG{L{Elnx`~8b=5q6_^$7
z%ng)gcZbm<sXdb{^E179GG3#Nct>Iq0Cxqn2!dR)As`07{j3hnxT=+eD>RpS`F%MJ
z9_`~l!l>*?P=d&Q)qSfiN!~=vEWdNG+_lC<7XHkPfUxo^UG;3(s*v?0<X=9S;lK1v
zl<l#1uN&-kK7^i}SL&DPWg}drk~j;3MA{J$GO%Ro?Ss24OC0uizJoa-i%k7XwfJVp
zeOf_kmz&tHmnd7%4FELtMfpZzk>y}rU}bujvr`*Aq81fRW%lcNZS;c&xyj}M7!}fu
z^KOA1d{I(MM|gAFo}?JINPyV)HYB98StE#o7UA7Vw#Tv|`*Q};&WG()IS74Toq+62
z8-#qB8?Nzb=JC~z!Jt<xAi>*yJCmXN2p(+;TNM?uY41K#uS_j%s3ZjBG3`I57D|W6
z>G+52p9XT++n%h5iuWZG3WB%Reg2FvtwzB5J?8a`M_{P)^<>wvcMmPA?l_vaF(GO#
zpSebt+7%7puyEhn5+{?oljKpRwzh;TrF4j4$>5fJhL;==e+6A2X*Opdo|H8RxX?;~
z`e*Dvz6Q`&MPg#*#ZRAy+h-P;{QB}O;D{^P4}_s`z|;Qfl(|D94<e!T5O8}ApL~tQ
zO8EM3ty3<Ye4ebr4w))JPAr0{WIIUZz+S#Q>*NBE%d+OK`~R45$QH>i0BS%vqy!N6
zw#0J=(b}0NOnbuKGj2_={s|Bvr~Q;XlrL6}`eT$j>_dJk{6^jO!#FAFP>CDvDQ@jn
zwKa3qx-AaI#AILF?ESsQ3dv@tVo&ui{)r3k^BaP?@CU{MVBiEJ_$f&clOP}RwWe2Y
z6kkom5z#EGU0Qs-OC73({QNf&gx#2cgivcndY>LYYieeer7ak<u^U13^$8}ON$C(>
zs51XuK_h7Dqza+LQ8%820Z}vPx)}<bIB{cjbE$(|avgG66moe#L`w4+I|f2SNCOa?
zgS)Dt5-AWKe?&w1@llX;T)uvaj>)8PGZl{tR~)uI1<Dj#-_20p@BLl9KN57F^Jfsk
znE&rzH2Pp|T|*`Mwz96u7vlE@P-0N}wx=AGFU8*(E0VtB7N7qFVNg@7bqWz9chUiN
zGDY20?iQ`a#7||9zE$;Ysg`4eB1lIMYx+;Q+ymZ{lcNJ605A1}W&a3-XbBt=x2m}O
zgVmB;U0usTixRgi(=NVx8PuzXmO=<JZ1%cy-||+UUSUp7*Drexf8D767{ylzEy)GC
zM@;6-jEg(|jZuvBov+#~$9_)rLhTy3FTSs-V@WACKHdsitsejm1^rtcrMz@DnP;~>
zxd)nVGP2G`TVn34C>8cjCM0myt$j=UaoVo)qi-3lB<bcXf<}Zzc)o6VUhcQ!iC<7!
z7`N!?y0UXlLAmj-Fa=HP0P*V&OabZ>yIb9Hj<OKp7f;<}t$u)AwB2LP`&&NTwfqO0
z8<iiRu%kQYZWR9}5dFyr$FXeF2^&>dzn+_=pPXx;vZndh&_ZnL(0qww>tOA6H3{48
zgR?RJbcGJ-ELiww;le+GDE=GV!fe6Xd76E13w0lLOHJX^Q8x>b;CiwcX9VvK!-Mn2
zD{5oAPu;)}TV!NJI2GKKFX8qH36fV+ghe|@zg#zbs??!aTqxwvo#%ex@F;YitgNj2
z;!z0oG)NDzmw2cX?<hN_Q==n_*VD)2j60OJdV8ofpH~z{0`{|?A>#L-#aoD1)g==U
zMI!qyb@li#%%mnp^<hwZ+G_F??s$j%?frNZ`#R}eaX`=EhCNJ3BR3sfkpH(YYVo`L
z{*J1c=d&T9>3!35*n)yy5bMgFy9A(bUokiLT{%UEhy<jy+p6p7MV!3+8~+GZCV11&
zeYpAxpt@K=XkMUuOsYVBUn5aW-#DfP%0&|meo8@2@vbIiDBDoDr<ajRrOEF!@j|j;
zvxGNb>L;Bq(4)QEWN?tZ7DQ=OPyY{1KutQ!1f=*kd>op2?3%5L*9F)!Y|$4#i>YoC
zb?g^+KFP@3eWxiRYb%Yl6`n5_Oz~D2Ua7VgZV=g6Bc`}cevVyl_pQ&EY>m&$&AkLd
z{&PXVn{KjVIsp0QzCD|I1B(+&*3T=BmOSd5_(ONdEhs4GWxQ~jH>y=W8^mjpQFYzb
z(^*$f-|e9!Z*zJz1aFxd8KvFo&dQ<n`E`qRGRJ)Y6kc+tM~Ex~0FE=dqe2yD{$L?}
z_TGWqbQ#L<J|Rah!CiWS21BL)kCgv=>1%<FG{xA(rGz(Q$ko}|5aeA!wqlt6DQ0>e
zIWINPo@tBuK0o$;QON+DhZ5j9q~5&v^sXr=etMxs$4Z?#`W|xFzIH9F>kD9K&*@Ov
zxC|AMT)%;(DUMOfD^Mwaz1fxkO|E5}T^brMbivdjiRvi<5VU$A^NK+tb&$HH%oL9I
zCnjeb{;KJH@(%^jr1J-t5)w#kn^|b)!%=W{g#dz-16Qs_{UT5fXuWQICa=#vReN@*
z(f}T7lC9tSeW285epH<led(z1s_ut4aVu#MfVZZ!RAY$#eG{pl7}c*S(}(x}{_-p(
z!ZYZ+YhQjB*dnhNCYr6HOk-f14>@7{vj}LaO@U2K9Qi6;(hHzMuAg6sTGsj%OVqF4
zAl<%nluqJMcG8{j;PvhlnpxDLwDc6@-kZv7p&m0UL!P+B$yUmwWQYaW1f{&$4u?kB
z*dA+2gH~^Yrt}Wh`j=AVkZRG6rLX=NY{PbdxLrLyAStHFwNdB>Fw}&zPLYB%(y%_z
z5qwkWQ0N@iywDa9HBeJPUX{GrU*~_cj?o`m`afeC!w-8Ge3K79{>3kEw_y<T&zAs4
z8i4|^4HgU^Zeo1FFRxXYvp}O+B3VCWxjM4^X=#Uw71#yjPHwF^zJ1MS&s$L^xel>&
z(Laq@Y*!>teM|K0I}xRH$J)*<>S+)7GPgAvzAS0-`3mUYwRw3t>piuN8lh$`k2yYA
z?P(tD5gN(gC?bj?w)fI(w#SEsT|jLw@OYvru)Z;}gH?aPL|Yk9@8^Qkb2Vf$K$$-x
z&*<Q;g2*@s7dW#l+FhVU41(o@@f+VmA&=OBA?Kf$@hL892!2TOX26dDZ^ehyHyKC$
zqAPg|Fu)Hn9%6+QE`~LvxeP<@l{}O@O}n6l3(2=X9<Ls~zt7U$q}2zAAI)F`*M#Qu
zfIkr#IKtDh4RS?SWj#e4#DS^LVud{oJ6mM4)>~ERXzj1R4S9V<3zb)Wued4KcbAV;
zFHXf3udEfX&~=J(8w!98HY^lxJ)VT}nD`js0l2@wBmV1AN!#xw1Nj@^7Y<huF^M$=
z`T4&ysz0mYj%r553snI%dgCTbA_OhzaXe|lgZ(xEw_6omySLHi8I0<gkb3!)>*s5s
zfnfDmiC6mjcPLYnT5p!Z>D54W>jiSz=2&V0MxaLg<&##!zT2B?G^Y=+$OnK`jo@r%
z+;od;alofvc!J+tTN=X0#XZ`8e0*hg$QQpM47Y;C*8{3Fj!}K|E}1ZUF_L?_WZ=8e
z5RM?r?LQLKs<McB;aM|O?YR{Esj_2fmLath!s_E;1En#u{HtS0C@>?>Iea>Z>+k=q
z#>O~L@^f7vwcX}G*!zMwABWIHRh6LCA}%Qh?YUq@-#Krbjqk8g)KJm&2Q`4+hLTK-
zCFFq7`T~D*ovYwywpQZxJo5TmR5EG~!lizw)_=+9>^9`mZ7}Sx`@-I1VF!or4!OH~
z=<2#NzB#es1Z-YE27Xf&5@T&+GyLyPU5+s#W;Ch$Jgagh)DnoF#l<_&nn>k1TUVck
zxI(%|8az9C`E5}ka~?Tzq>6+d@mw<4kSBiKXx=9GE>={`5iM(jhwt3%Sc(jA55!?@
z0v20@%RxnZWi0AGSf&G}ErXR$S>*Q=z#xep)jD8ZRfV+63$Z=6_b{n<clIBNJY6%;
z;^teA4o>elH0pQg+KXR+QBTL{N*Ku|wxP$cSZv<|R+av=W-1A109BeX(P??Ai^fuG
zLfGwrUDIR<FbD6-6U)4(jcsl>9RXdfYGad97!r%phb9^T!XV|9Bs!;8$~fmmde>`s
zffL6YygGK@U8^*1!-+Nu2=~iiiF&U_c+9$=Fa6tLFQHWwOKS5*eGmj0qx~;H$33iC
zs1X|`Xi;Yvs&oOCOUbVYhNJmqclma}PrlV(biII3hLX}qdj@iiavMh3YI1V2fbdJN
zu^e}w>du-0jcx-&ptbFz64w1QD)r>Nke%&nDB_fLQX$`waFF+=$Dc@=LA?S)RN4do
z<~e3ZTbybDQgdH{Rkju%+7w2B#09MW`^M@@MVf^ix5~GYs7>z4p}C-xj>zw*RI&Ny
zV~BTdg?=K#C^P8&hj$%Q%O0QNaOV08q}I5@aK=4;=2>wB7c3UhxuCC!)wp*5-vAV%
BwH5#X

diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index 7ec112e8..b1aade18 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 76640078..9d7d9984 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 f663d88b..7de8b7a6 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 f636f901..3f8f0c70 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 df4abb77..5b9348ea 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 5cb4c5ae..d2bcb2b3 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 c8a38bfb..f359a659 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <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  1992-10-07  30  30.75068          7</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1965-08-18  57  57.88767         34</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1988-10-10  34  34.74247         11</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1945-12-13  77  77.56712         54</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1934-04-13  89  89.23562         65</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1973-08-13  49  49.90137         26</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1945-05-18  78  78.13973         54</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1949-08-21  73  73.87945         50</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1939-12-12  83  83.56986         60</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1941-03-27  82  82.28219         58</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1931-12-21  91  91.55068         68</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1942-05-14  81  81.15616         57</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1958-04-02  65  65.27123         41</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1947-07-06  76  76.01096         52</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1953-12-17  69  69.56164         46</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1988-05-23  35  35.13151         11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1987-03-04  36  36.35068         12</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1945-08-19  77  77.89041         54</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1959-03-20  64  64.30685         40</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1957-04-12  66  66.24384         42</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 1c2a1ec9..04126785 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 55a4acf2..bf4b2836 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 0afef540..37a5f2d6 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -279,7 +279,7 @@ In short, if you have a column name that resembles an antimicrobial drug, it wil
 <p>The <code>ab_class()</code> function can be used to filter/select on a manually defined antibiotic class. It searches for results in the <a href="antibiotics.html">antibiotics</a> data set within the columns <code>group</code>, <code>atc_group1</code> and <code>atc_group2</code>.</p>
 <p>The <code>ab_selector()</code> function can be used to internally filter the <a href="antibiotics.html">antibiotics</a> data set on any results, see <em>Examples</em>. It allows for filtering on a (part of) a certain name, and/or a group name or even a minimum of DDDs for oral treatment. This function yields the highest flexibility, but is also the least user-friendly, since it requires a hard-coded filter to set.</p>
 <p>The <code>administrable_per_os()</code> and <code>administrable_iv()</code> functions also rely on the <a href="antibiotics.html">antibiotics</a> data set - antibiotic columns will be matched where a DDD (defined daily dose) for resp. oral and IV treatment is available in the <a href="antibiotics.html">antibiotics</a> data set.</p>
-<p>The <code>not_intrinsic_resistant()</code> function can be used to only select antibiotic columns that pose no intrinsic resistance for the microorganisms in the data set. For example, if a data set contains only microorganism codes or names of <em>E. coli</em> and <em>K. pneumoniae</em> and contains a column "vancomycin", this column will be removed (or rather, unselected) using this function. It currently applies <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes/" class="external-link">'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3</a> (2021) to determine intrinsic resistance, using the <code><a href="eucast_rules.html">eucast_rules()</a></code> function internally. Because of this determination, this function is quite slow in terms of performance.</p>
+<p>The <code>not_intrinsic_resistant()</code> function can be used to only select antibiotic columns that pose no intrinsic resistance for the microorganisms in the data set. For example, if a data set contains only microorganism codes or names of <em>E. coli</em> and <em>K. pneumoniae</em> and contains a column "vancomycin", this column will be removed (or rather, unselected) using this function. It currently applies <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes" class="external-link">'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3</a> (2021) to determine intrinsic resistance, using the <code><a href="eucast_rules.html">eucast_rules()</a></code> function internally. Because of this determination, this function is quite slow in terms of performance.</p>
     </div>
     <div class="section level2">
     <h2 id="full-list-of-supported-antibiotic-classes">Full list of supported (antibiotic) classes<a class="anchor" aria-label="anchor" href="#full-list-of-supported-antibiotic-classes"></a></h2>
@@ -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> S     </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;">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;">4</span> R     </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 4b889b09..4a99b04d 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 1b36907c..b2e404c4 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 1453bc09..516732e1 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 2748baa1..f7c4d875 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <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,8 +241,7 @@
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] R</span>
 <span class="r-in"><span></span></span>
@@ -250,26 +249,18 @@
 <span class="r-in"><span><span class="fu"><a href="as.sir.html">as.sir</a></span><span class="op">(</span><span class="va">df</span>, uti <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism AMP  CIP GEN TOB</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli   S &lt;NA&gt;   S   S</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism  AMP  CIP  GEN  TOB</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/as.mic-1.png b/reference/as.mic-1.png
index 24b5977f255ec0405d4f61383ee3d2d3835cc390..228b623cdf007872631c686612e52d90289a6216 100644
GIT binary patch
literal 34551
zcmeFZcT|(x*Di`%><U{D3)K=pML+@R5k(Xt2+~3iB2Bsop#=!)7NkpPMkxwN3%$31
zO7GH3DAFY%gqi@M+!frvbH984IOClE?mgpMV?e@N);rf+b3XH#bG?heC+f<lj&mMo
zVq!W4Q&G}lVmjo(#B}i4(Zk>fA?C{x_&EGbRapsqg0^|T5)D3%y-+c5VPfJ5VEh~i
zpINqKV!Fr#Q@W?)5w|ev>3wE>r*YZ6K;~%OMcSpbzmB(9p5{>cJKb*sC-oX0Y-lK2
zm)u|Yx&9!oJ1B?)_wJnTnf#>sgPJTEetrj{?!P<w^6G2uO9GIgalY{j?gmy?xv(EU
zNShuD=CvI(x$(}nj*f!F%?_H-fqkL=``3SK0BGQR4}Y|@{1~p~bLQaA%P~QI-3w>H
z;p=)2b&oI<RCn>dR%$ItJ(ox1FWIV6K5z)rjgw`ZVhTv9cu6rE$vr;x7Za0o%Fj3F
zz`?r@oJnSJ@C;4xo%_e{?<W{nf_5#4S@h30rj)Dx&%xKb*MFP#?Hl8fD{NKZz&qWK
zDLwo<np%9Y+Yp~i^Bk~92-!KKN4xtb%vvRr-zGZ+i%E!%GM&(*<ff)nV=7>>n%&1R
zFZs#u*A!qBRWH@<*+*fmF#;KtDVH#ZRctNlSH7eK!b9%y4W|odgr-bcP`^84KC0MW
zomYW<#gwQTimdYDMQy56@URje>AHV~)u}MRJmTi17_{2yTfP<vzYK$3?l;ireikl!
z52g*VZ2WtC?dtM_9-VGE&1c8ZYSF!y8<6y`U({ZA3*`)n!E9liQ<@#E(VD|cULi42
zQ~8T0&UiUJg7#|*%+U&!v~Z6?7^(tI8qyZ+@_OM4tk1%W*noK=*KBAC#Uk?ad$HNS
zUGBFnz3Wu{m?CE$a%Dx6&2rRN7OrI$;_UDqwgP|fTI#AzavPmAodg-+iR!Ijn>xhA
zq~fVoz(66<J_!C&#{H0)Js}sl9c!`Dj>e>bl<_(~L$%#&^Sj3lOHEfG!tZsU4J(f!
z?Ge47e_UR1i|X^u+>TKx_V@!4er4tBzaCHLLtn{~lIvnsSjSFaM#5T%-|1=?XMy22
zv?JKDcERSg7wu8=%W)#}N3nI4(AnIcDXjpco(1bz(7XRJN+s2$j%e2qH8EkM?sr#b
z-iVp!CD=u4#P(`-tB0>3pjuOpmu4Sb4`UlQ!F&{oy4n^46B)ZMZmeht@dyuMo8l5P
zKai$+yh%-hY8EBi#a3mlDyyBp{`_(5+ACEqJMI=erPrmG846%DmSc!xW4Fa%KUIX}
ziOl@#uIVoM%9}mV$zZAPq}z@pb!=TuED^&SqSe4E)eP;>vt;Xx=;nYnlhWLH$sYVO
zTpqn#zg<Fn|6>p-H*%RNOtG?vNN-`cjGmv#9hSVy^`Cy3Om(UAg}YrRJmQZDu_tSG
zQkb1el;zSqdvPSq+?vi?Tc?51-+lBfiJ?&?al*{{U*WP-CWyVRWc94bf(McO8PTl;
z!YjO`rDB#Uvi+98dW@jNoCsR=TF;$uOJSjF{vIiY4DWz7rxO{2d+~&DNt`#EJ(qck
zEq0()p19Gs`8lGoU|<@}I-t}?)u%e2T(^c*+zh1l@FU;%KGt%_-ik4L)Dn4tB2^Xl
zDHT@4m#Y&DrslKO`(Hp~e&=!nGpYnG(ZA2Ex0JofN^LC2z5ZoKf5z(u;qUu9`YqD1
zSP3<&ccB)j$8!(^g|iuF8H4(IdEd81QP7xZ)D0mw&-hC}wj)(Erd?q@ke$TNe4VI2
zPw8Ifvj=i}$msivziU(vw{$cggTICHwsJN;QHYp0oTF{auc|GK0FpdXe$6nMfRDnw
zts<BxxWOx>{84iQ%6TF!q!8~4L$B)lR;HZAh-DYp^e1O7ZmI6uY9{kBa5odTZ4iI9
zi-B8IN{`U3v!Y)y)oup;_q0sHE0k3;`K(dOu*}(lg-#4Frf4iksA{gnDBhwDW1;Y2
z5@<pCc?3fl-@ZH#X)KVk!~`J3_(x|=rE?O1M)O)pHW*%w&)KrPt#_96`=PH&AU27O
z1+%w$a~BxiqQ&+{f*?e+&TK(ej9O>sC(DM4;ysPHOOYFR#qLtfL%kOvn82R)Cos{b
zy63D4KaH)r^9$LYx7xLhJBsA;U7D|F9>%07hFhXzhR)`WUy0`V7ck!!%(jfo@@{T4
zC3g&oAYWrR%X*tv(#3xyXJ0s0CpDOyt<THPOQQCqK&D*1q?<7?uSy5f5awl8!4PKa
z(J=Sd_~)>t;#+lww#BBG=bNvG0VQ9Y`GeO1nR=F9-*^`uHdU75B6Tr{phES)6lalE
zF@C(TO|IJIHEXQd-<*%UE_S&6*b(v<JAm^+6-XHAGJNCxOO+*n{lA`YL|t&4cuFbW
zj7-r!g9@LZST<mHL|&CFzAw5Jwi3xd8hKZ)L~sUr)=6T2Sa(}4F|5b$zCn3P1STv-
zLOjfi0+aosc==_Cu|R{aX3LDKETTL7SjlQ(3Ke73_=HNqh(yx$8}bMF#Sx1+%p^TG
zhF4q@OwK$AKAEoHd)0P6yO=-zTBPfCv>Ka~UN;LY5w`WDTL%jpyiRb(3_l`Xvw7F1
zWE*PH5WRD^yA@;A49SjMj_hm5h3vpV)FDGSRJR^k{eE-Kf{KmuPJ90VLsZ=gO*z4j
zjOkUh`tbJ6Ery-_ueQ5M-I@E5^5O$#ALDa-tRSNLiT)>gf?n=E+gBf>zq>(y-06R{
z@Bi0z>CE$(3RO-)o4^z(2x}iN%^!v#O^A=*>s-#zs}J~H>6an|+0n2<sdDq4z}=|G
zjI^cLRHR&%sX<4CE8@H@QEj$0rW{2)!OE7CT)%p@FhhtMbD8r)^f|Qv%Rt9Hak0cV
zA5Z6we;vHTrJlH%n>BEx;pgr-_>fCdl<HcgfYztHvc#bLFi5<8wCT0NniAMYq4|4Q
za%V})p)+*fU~jc|w_*&%=%j0~O^jRfLNE=oBXT3=c_yp^(QVx?nH?eVP;2M7t=z?o
zU|<neM(fA<g$odN=gmg~H$Ju9akSj2#E#I)3HddTy8|#e(NU!CFcTUqT)!Y|Jxaw;
zD5FHR{3Ld#up?kFj>w@pd}IC~c2$`VCd2DYm>i1ju^5{p-pXR2%Uuo`_1Q+)%@*^h
zHrD7DorbMmx>{MjAJcyms#02#aIzWH1j#3Bv@YMa%%t-J`edoxBx<q&gnj(hoorDo
zd0j5%O#~kOQTB$a1wFi!7~-lgsg;ku<5gbg>2~r~R$fa2NmBqz`KW?EA!M5RyZPr0
zEaYWT$(-TL!CO&Clsp&z*=ESEq-^U-#bzm~b$$oe3{!y&qeDeJt+$Y{s518T^y1zA
z{+ds%K8cNN))6UTyvR`zUJKQ&-s^?x-4VRE64MVVBnCE|CC!!VbPKQSa@QA%hL^-Z
zr}OVH3_~|PO;O<}Tt!xOHsDc3iUfA-Y1$*N+Uq?ENxqr<2OX5J7mYTOz9Hfp4O>-~
zc()hKHv%$Q>K>FRHX2%SG)_WHzHDS}=2csi3{do09!}5&|IWYBMc!-5oa%k^Q~hZD
zFis*a@z|I}jolB+CP>X|jAZ@!DRFqYBJ5o2+SA9Sytg66k*@J6b4gjsV(xCt{3e|D
z4Wwkmj?G;XYc8}EqhHb%xU><i7zi&#L>_oMmh348z1ahqxfWF=6kUFF)|xN?tGF+)
z`9Y|V^&p(yd2Q`ZX|Rn(onQpB({z5~wVs1RWA2r%zYhJC%j^`Uc<xy>##Jfm1EsX3
zgmy`?)awA&ydpp`@yqA7e4^X(l?0z_Z#%>h&5SU_r2Dy~EnI=#sAy4eNlO_^Fk(Fv
zZ&`whX<g};^=7Zim_3W75knd3;KFXe;mC{8(=P~P9>5dC6Z@@cWAW1k@`f5pqQ3kd
zJG(hDwT1)d#A;76Tlyb=!R~u6S2e1{d>LDubLmc2Yx`-j=HH)FT1{HE6BPsX(~MTq
z^jq=%7gUNIL@5SHL4hYyAC=gu92<S_zYPm+x}-TmoNYO2W5$QRomBTpKzu<lf?D%F
z?zw%wZ-PeT{CA$HwK7$#2YVIhhA*UBlIfzNZU{gX=_>imC#;`wmcA!FHWhdI`7=L`
z$~mH<A0AMMbA)#0c3&Mq<|SCeZO%l`{X3R}iT&=e>)RhRNVucE=z$Rn=-z#+Dy`-<
z<E%NY>d<v#f%(<v-+3W!LQ&62Gg`Bfq)h~t`56SI;)k>JPhTo@5OrJ0xBd$$)N>Yw
z%c_y9e{x47b<Pn5J7K|=@K%#p^j=4~`vj&%=w^wE3;(I&-D*U)=CQ0R-G5<u>(TvR
zPyvUSbdCbv?-vx6{1d$!AXLrAJ24_K{m~IWc5k+yfU@wypE2mXG7YtQ=CLD>CEQbp
z+`P4Jqcjw0;dMNl)oAazjK*4br(rI%V{&sCU4Zd$ycU`^8l1JB8%bxqf-<e<T=u#<
z+dmTk5r#h(i(|F$(yM>T<$VR_-m*}+1Pc{Gz7ve06;-4tG;a?U3$9<t{#}|0|L0Es
z>bYb6PFKV)ML;KdSg;AB1FcXq*OWGgmc8it_+sVRv-5VyUl6^~?72-be7P6Q%U~9|
zaZliamXN=6IA-k}mX`OV8;(u6hl*VZzbav%cN>O|S_{;5kL6JHC@+*B&dDN&o>g_h
zwa<%{&YpuA3P;{mlYDi$Q_|l~aCOMotiBLF>+w>~?FUUGMSm>#g^U<pr8R0}*|ckW
zD<{7%YQFqB%&C>T)5&PBdhlzQPuR(;UX+P9&EfrpJ<^%j<2<T+$c!4T*+CV(tIcF(
zLRXYwrvm?z(t<<Ta}u3ev)g$(RvW1@V&~4rV~7z8$Bql?J+*g4z^@*FUj2^zM<^Dy
zohGz~XQV@)gW@xPlF`j=K?{-y92DFBSnQa18tiU$1U;)~V!c$k*T^Co7E4pIvBY!)
z>pP*tSEwFU7~0>b0*i#O7RFDy?O0knw4cj2HyJr7D+O+Hd4>l{$v@h0K0T9+PaA0Q
z(Moh!QTN{z-tH%zJ=Tj>8KYYj-;XytKI*u*_D=05p)`jUu@<8m-wu+^*qoo|!yLoM
z<$4PVJ8#s)q^q{&SY|#}7MWrRB#vOHX2d|P@DR`AD#BH)(u7C2>{qe--<4K|8=g}h
zr0~Kw=XotNz1|(JskXDPDeN!4xlnwd-;Qf0?&OJ@(VergV$10vmpCD-JLZWlS8nUt
z)B6&R-WX#})FX7Ml@P~%6;zcdp3^mID0fr{c%Gj2^G=9-LoKO4qUie;?MRT5{qhVP
z-*h4aATwod=#H|?=&ipgf1kpv+2Pt+Z<Vkz)cM-v+G^q&4=hK}Q0%8V2KgkN*1LS1
z|KQn{%|<tmows86>B}g#Q8QuDi1|yO%(HO`Z6Dsa?Ub;P6xt0X`z$M~*s20cK7IXp
zaz*bS{Fu&{>F#_MvdQ(x6g$W4+Juv7*^1^o)iVV==K|`*4O0bkq4`f7u**VDLFw$R
zC|T81W&Ll41Nmb3`q!A<MK;w38@l>x2<VUa!6`l8E0I@QqlZclU}-P&QjD$;xBD`+
zZ}bofs}<>mIcnj=;2$m4{`IBz1oCYuQkB+j`Ni96vC@M2tpN5pagOy^A#rUywBwma
z=kk)<8?nf#qP|y&UzT2~L)WjnppxsK@!=Y;tzl0zL8xTdTekUnPKsoU?ZECrcC<|5
zAiHi~#9EQ!+`y7j$$;cTg0G;I(F|qfs&?No1Y^dip0lN9xieRbC?ktMKJdb=aBaRa
zCbK(1dLT=zymls6J0!j~2F0Ic3cs39)+0C)o4h-jEf?X=oagk##-Y@$@G$e8<(G2Q
zgJS32ESQ%(InrP|U~<*vUQ6|RHjQvAlw7=*z96SjRpJ~jYo+p8*szhRoe#m=kWu#V
zgS_4IfITd-cpB06_lby?93Sgu&IHW3?PR}HADOwnb}&Cp)t+iUR>&PQgl`!Un0=|b
zBtUQ!f6MmL!2%<T%SOws{|FJd82Q<C>r%qkCt~E%Ad@26nvl$1lSA51RDwNgx&98~
z3oTiP&RTkU^Z98__n47LqPmyS46O+=WA5y#?;YOiS+m`4=v!P{Fs|Qf)wI*UB9|?O
zcC~TGs8&wQ#EDqwP^n(^Y>#6U6LB711N;S{m<#mYu)b@7(K$~<X$Z4i0-<d1i~41P
z6D`WM!u*?6B8eQVg$QplZwqJ6H66d*z1yfaJ<3P@=b7WV4=*7*f?2*BQ%A6MDTF-E
zi0iW7Kc)SQ7pgUBS=0Ib<DXb(csbqMo&di;TXu}HgSa6c6*6$Bv_*Z%pN}2^U00ov
z|1z$^;}KVfy7fyDm!M6VS271#xE;-rwI%V=MO;93r|>IQrgz`YGa`Y7AOgd~dh27r
z%!rFcxT1nI-jQbq7l-~fY|fe!aY3)Q*)(eoAr@$$03j@vib3!5_uy6zVJ%iZtyBwl
zKgKGSKH}xe&-$b`Ns`+{$<08IhvuJm{JL)Zcy}a-Cz#g^eZ&HTatx<jCQ6njkQ#of
zrz)O1c(`RvJ@hT~OaEEySlYb+F{*TQL}KI(m}s-{Q5lUzcJ21Ugj)7K>XSoq7XExM
zY^AD3=%;h_>Zuj=Y{5Rq$%*=+B9MyEa<ThXgX?h(6E|XE(vRrjKE&JK4S}9Ds*A2Q
ztRND@J=ms}msTqqs#ndbS>i6P+K@I4Wt>za+73mQh*3=M4Hi^j7Gq=_Mb|EMSXi`r
zOZ8$d7;OYX2CUJC%{Pr9-EOJWnw#(WUAWNGG|e(HT;4_u>Lc{VC*%lZ=SF18USu1J
za{J5pU)U){F}grP%Ip)8%<w;vfemnuAD!;`-tK=fDS-t0N&bR`o?WL_vkS4__LBqD
zef8>8Z_nf7{P$Bmdw0}R^+KjQPj>qj%RR6<Ii75R!GE&!H+!M_1D5JOVItOCMINph
z7>yTk7@9&?pS2uaHk?}V0@SZW-^tuZqXT-ZGcbQQH+!y?<I(vtDD^>aapXA{OMy}%
zga*+Q#V-3QM5CUK2m076T%AiPgCL6&uFyyq#3K9q-k0-~G<lsdVnvzySVWJr!w0JW
zzGe8uyerT|<mKcKMCLXb8C(xHnOzk#NF6{$DAJ!MwxLRm#t2+Fv228fLJPKAku&l7
zqju0eZt6!odUpP9SIKxFG{dY25r<g|NkTsy5xHE4;dZ5yCkNag-~BRSak=qSY+Ie)
zjM%Y<rIkVumrF!PY(jD$KQih<Fe<T4QZ1tQdb2)z^d%R$y<CXTjrqUI6D!?~I;nY3
z$AyHBh-1qZ!zCQoT^E=w`~%C?XZ3eS3>&{+Tp8?)D0lg-`5^JAV}9GMmE^WVABTb*
zq(9qZPuvya_?Xv08GP0?=rtyc7Ag3LkDUXld6bDo1_G)H9P>h?@|f#XNx59-b7aeP
zXv+f9bF^CbWpL|Df)#1=Xs1^GDsFTsus`8F&3;6$X>A*?A#hJewFAF+IWp6Y@-bBN
zS!k@$q<YZakrX41ANp*MWW>yms|sNM&aF|cP@Bb9J(%s^V8b$N47@Aw$(}>k4?R>M
zZJNi<*c|82xFYCE;-R`Du?by$7HqNx$H_wUy%5v4(WL|P5>#{P%8`P11Gs0X(Pt5A
zovn!$n9Mhpn74gJ=uW9-<D2hvlL*fTT)4*St!Ph;xfs(BBNs&*_LXwOh{pUAX|&QG
z9DgHxM(#(o(WRB`Ujy##*Tl}rLFT3^^t)@aYs`6^N>sF}QwWy+o%y1Fl|N>INBkv*
zx9WU9e|y;U2qNk@?f&3+1iQ!E!hpL=#4o%~1oak6e;rOym(xlZL<D_0BKlf{xxxrd
z?3_Cq)B9jH$*_oA5CDHC8Kqc||G*__eL+v-*AivcBm6Xzv^}Hjqm%O04DIeN99?w<
z8q-&lP(!;q)&HhxF|_yMBRX{jn(+16oN^_y2>tT6Z#m7;?y7idu7%gb+Yy_$5_6t}
zCu)iy$%y;D>xi7A_?eN&pSXac><5G6fg`hAQ5XLDlCQ=(zY5Ah_$ObCEF97dI@JSZ
zq%IsE#q1TUVu!_=2|O6Lhc^ld@`x@JBDEQ!Kz1V=(Q2LUy9afOoWpKsERffOW-PEU
z<{nD{4!bKZ6Ohk8O9<v~ea|ab1==T{dGsNRb~W;nIQ6SVLu#>UAx&di(#xSH)|*tG
zZ=F#$gwOhfiV>qcW+zeFPqzXNc}$~X_v&22UaWpAy_H_s*nAcX6XU1we&hJQC^KR@
z3nhR3jV~zm-yuu-x_(TF%&O6=h=Qe%pD%Qp#jtSG<#iomHn$gJ%71PpRH5>Q@85cy
z`>U)fMRhBF-MuK-C;xbjO0AL|)8CBBzF&~e)t<_SVv(10dubi>ysZn&s+Xav3n^_*
z@+}fN>DJoQ8@RwnC8K_AthGeU?v44&r1kLWkrS=F=G1H01kLel63!pVbxn`Xq6$(^
z=z2yb=nBXgz(4Oey$RQQk{Y}ENem`K$KwUFLPq7faB0R6xrz1c5mZuXVM4sGx1g+J
zQT)$6!?8fl%8}zdgY3A1(gC5Efb6-w$ay6G;p~sVQ6u?_;`7)u<4OpIKDQP;`zr4W
zl&@DSmKqS~jW%5PlJVBPtU0%YuWZ(={1dkWKNX?bL|2kt^NrswA4X@nl`fam@{7s)
z`Q+z|p#)M}Ln3?=Qgp?d@8`<N+VdaxaZi}nN-b8TTSkXFD7#$s9aov1R8_{V8i`^N
zo$9rxhXVU}R;rueT_W)G0lFRH(9~1Ys$I=pZXu=@`WHd5Ed9Au3j`JxxyJfnZ_x(#
z#ObsCXzEYakQaR%A4BYeYFD1m8g@1|`<xt)=wD4cKH3tOWkK+HVii(rAU0K9Eh5hA
z#Ev~SaCr!CIl_i)pSgn|r-=myS;=}dD6aKf>n}8gM%q)$GAE!CWW+lJ`(F=bzkB%(
zB!~EL<@V_JxqXVQ?@B$xDJVPayZo_tUxjDsmm6bQTDu`TkH1W35H^0Qvkg6L9{C~i
z*5Bw|uUhwN|G1Pt-jTwWW(Hx4f9e>q?p*-P5pM%cyza8=Zl2hBuGuqd0F)7SJH5sP
zUDVfz&5q+;FHljEmn~H)y0_?8a$nzh6p1x<$y2+Whf`COhqD@VCQr+&HA4GW#buY|
zAVVei!TS<Xt(9r0>(}337_U~E<-Vy)*ANrLPE}R3`O;jr=^k;A`3EFQ+VuF7$Bp`(
z>g*3d(UK`$amUivkJ-}8o7%rS)iB!vftVJxtc9oVWvzSVz8kRqC!2NxOUNYi{mQl!
z5Xp~~S*PZc++XNh(Q&$|Dpq3bm1$a!v3%8Tbaj$+pW&=zn3dgIYM?2ZnvWP4xhA@>
zegj*l^W=-cq(h@oZfx^fcR}M0PN0Y2s;rMv5B%0z8#8`gT>c+?&8o#%r`;8z5=sL<
z7RiQFdmJw2Yv5RnbdFoEfN=^%o{>}hvZHz5%Day*Yn_D!*Q5Pq#{;iOh!t=V@=$=e
zD;2GN*7bd-e1l?ODJye>bhdxi1VemV|MAi)f*K)lkB;_VEF~(b8V}FJVfLc&ctn0y
zUJO3-rvvQ(7J=J~-jqLt{PmNm3sMkT@T`;+pZ#-ALC>l{sWM>a-8(PpuJiE2Trv$~
z-Y3-e3MN2M!KoGH-yH=x5d{M)0!18+$P1j4*WOZ<QE43dn9ZEcA713H^OFwT{b5i8
zLpf|G42>P@o|sCrYK`l;a|}0d;}KWlwXJ;K#~&5xj&COUv=qhWUaj}bT3wS6@I<~1
z%lOQ~ohpbeS%p9aRuMDTT^ElvEzm#J4)e?x{e}HvxL|hMu%XMX3L`^J?gR9hHhPAP
z?wV95A#+bm1~$yXMIX<u_Ug_)bKcmid3GUL4jyhuTCWH`1}6S4$Na_BE28ITZaq9Q
zc9=`}g2yMdXWwjmK26{GZg``)&acfO0C8)t|Er_eu`#9LY{AICSz0_*-dc&lMn0>F
z$;ZV%b@pn5{|=}y(&&^+s^gTo;&UD1A$}&PMy+GY*<ayDqgu8082!rCNbbNjohaD|
zc5&e%ghIb1SNEA=Q^(p{|Cru<fl><7voGcH<bF^f!~Xu$f8GUXEf3u@W+bz!qT%Ng
zqRX#7+vCagDD65+_9?IX5{3`WmX9gNpF=FH-nWjOaZ|jS{yQ;}z)iGng>>UfN_Dyd
zoZqw2b8I-NTU|k+@ma+RjXcku_l&WWCJaq%t1L+dJtvTSmN~sr^4mPB90|Rxb0v0O
zMI5^xhKtZ*yMXB6b?9TI2Lc}a;>PzgbQdk(mbl~BD+bQvn*}^-$4j+%%Jy0<s!3JP
z-sx2+o{PpQU;9%gV7Blof(rMT=O|glwT4@G`AWKGoKqFc3u}A93@TIavWoiWZzp@*
zXjU?E$MWfYvh?ls=8yEVnbZ`-GCNg~4`;127w^@XM2Hl$*!S+z1x!+<=H;<8%h<Nv
z@?OKz_;2eK(KY32tUtW5w5I`WO4547Z<i#rE`28$=ks4!;H#Jj^tZ>3y#b57%3suS
zTSXzGf|P%1uZiK4B@IcVkjST`v>nuw!#{@INzlHZhShzR<=JoArZsTclI{liVX^bh
z+||4K!=X3kZgY8C+B@CIkAt{ubF`{0tQIJmdk~<+QIT0Cc9P^n*~hcgg?PB}s>PjP
zb@rQH4(3^uw_KI6doCiawd{&ryz0;x2NO$-rjRAIhZn0vJc|9tBx`afCttM5`?NBb
zPqysa<BuB#jAz6AVPg0_nm!@_o)ue-P%%3EnJ7oZuXQgEA6A&akXxZ{j*h^0Y4{gj
zyl?5K&TL1xyTzSOOEKuYbu0IM;iNiLI>dwD#j!xN<Bm{|k!<?UvL4^Y*)>m*NEuPz
z%d2>|)VP3#M{qqHUf-*mu~H(fR2TXA5EEqa3U<{YJClW3x^2k)%*k}(-Rs{1#0c=T
z%!7=@$|s&+ZQ|~X^u1Ycl%DR9zqn^-o4wDPlTRgFH+(l%39k5N76_K~brJ%_O6T+%
zm;;ztME4>t^ru|*_XTH}Ui^J!e}RxmI;*^0mhrC4|EWz$1;<#KmF_+C=DQ*0qaKnQ
zI5WR@bW9A~xbGfV98}(anc|z-MGY-dCJTr?DgPibjHRDvF^E5JKrmFpc7K2IlkrvS
z%>HsB<Ex4$BPG~x7a!~|Q8K>!oq52xcq8Y201LXUsma50rX{*BK1N~dcXGCz`=Wf7
zRr|-iCU8PVPL4kGFqAWNaSTuAr;VW~%Y+h#R@Y4TwJzoHkMZ$P=c$I!q2`7U&rhlt
zH-_=-oj=MfFpi?&8<j=ux{~V2ukJow5$}}m8R=Y4vMq~0xJ4zSd@ug}fqS#5qa$H3
zT{9VVgoWFKdd}24f>i9N&~ebWPSZfT`T)~i35M)`xe4gq&D7QyVUo+%d|Hj?h;t+P
zlxc~1V^|1~a&$dSVP}5#t7`17*FcU*XlqN0nChcPVS@#ht@(+*Tl3|#5tq(%Dwz=O
zYDgQ*H#fa{?OMjI=RZH6U=I}?I{z!nq|&YS;Hz)b0erq?#YWhbm6bK{<JVf?M<{q+
z)gRn4hh)hc$2BR#V6aeOqmm*Y+NirIWu$zyFj+a=kyPUQugu%>)#jUV@aQ)(lHer*
zw?D!!R*-Up_~$9;J$gu!B@{)ivaR($#dGl0-DSox^z_`Esiv{9x3jbJay@Avw`O5;
zF0p14$m~<19xwYTuHR>|e9qBfq-;58b9F9pbtcxdUj<TaVeVI0P*A`S_3q8{YB-|)
zlj5q510^gxvTY|1zj?FJ*by%mp!VVBM89FNZ8q!SH#Q7Km{#vljT(6?eB+L6zq`W0
z)0WutU&VFW*Yzh!2ia-|LP?_Q!l1LpMuBL}c0mKs=ax!0P$0!~7HfUSVZ7SM3=W6i
z6cQ2|%rYpP9N$@V=Nk83ZKuVEn(js!aY>DNObKBm><9B)CPO=O&%gg**%|}oIC=O;
zDCce42fB@~gC>wHM`IHb5WKsTs;a62vs(Y`L>ZS^Q~r#qD*34{Wj+TATmif4m*}i>
z_>L5Ci;p3hEWmytj-3h6SB0H-=-XsM>A<pGyh(+t!7dnI`{R_w54X%aVpHsL@zl{K
zOL42V=Mb2Ujm^w}iTh}U(iGRNXLSSaqe#83?akHBp$a4^>hLMfh2Y{G(_2hOf`N(W
zc8t1@?|hn^d}iu}P5t^c+7#KREACV_;a?osOOriPm*g_nQMtOZB1s-D#x2L1`VQ%I
zUru}340IX-F!I;ayTH5r&QJ%<!;3ekBQ-=;T;he`S-&GxUc0Z(wj1E!*+fVFcm2vD
zq9P(JDq3LvM6X|e)Y;xHtO}{l%F22=*AcH^nD_Miw*X$R^c|q|bB%^lL+3Mfan!bI
zANorL`a+?C>wLGR`}9itCn@XOHr*B&NOV+`G22n**HmB_1x0d{s>0gd3~iLtaMAo=
zB6?RwR8Y`b8Mtc=@6D&*;<}QRMVnh&T|%s>3q!>Z!+A%A6cqOK2&GO=31Ci!Ki_+k
zOJAE8N40&pwdeB4u{{A=*$<_S^jHrSSem#2)6fC)ui2COSkKsN{wrSyx6F!anww$K
zb7#8$DK6RF)x^CjymC0Ng0atf-@(<@RgJM?JH2Eu)9q>TZo|r*ptB=LQvc3Z{PI*|
zDfb=kjf2$lUrNV)>A&R`%cf!x5vMpM^vi8}Qc?Wk2E8jYt*B7&kUP0!?}YSnvUpVq
z%PJP=l-Ec2yz@Gf9t0oWDDTKOZ|tw0@aJl%GZGz^xrmsbpTAdX$(Wj;D-q_`BUb$g
za{>v-`c)ZWpmOx~a--4XPm<&mT^t-a2*j&hTU%S%S|{boO@)YCDJ<8qyNq_|PRzYO
zaPYAG1xfosZ17oOVl_aY)IOZvUcPpk`l^6>+(x2#m`rL@4!Z_eCH!`QfxlY%W@cuo
z5M8Hk{ZMqIci0?hxib^kwRl7YW8}9my})h0%E-vfM6_zik&Cja;{XGf4fZxW(WwD~
zcc;42G!pqwoV{^=W3iHwa8~1);L!Qk-=97#Y7UEwiH(l_T5QuZ8v_)GJcY*R<>ifi
zylqF!HYl9!&8^<DU7=HI_N**MT{@xe-;A8_$Om<;LtK*fzc;p5JKftlJDt`6(rBDC
zl?GT?t(~g2d4I$1!Gi}wIKAA(JGQ;)i;)74x9m4pX3*i@i3@?LV_u|e_MFPaiW4+4
zf!4Z_D(ANFoJu7)u{r>p|K_<mJ8CuVYl=Wrk4qkT^S$Wl&GWmIki2!}_#4*~O3b5w
z@2VW)=jX>_T&bGK-crr%l>TDd0R*(zEAo-5s?ap|-@*K<G2Hof133+t-a_lnXoMv@
zly&2@^5sUIq`3oWosX+XL31u%%k}4IXgawx;GyGcLns%aW@9p#oCd)1`S;g{(2gJq
zm|0w)bBmcbgiJYBEjP$f7e|c<h!PZS(cfjZt^6}Ud~09OOD*}>#$@0r5PQu}f(c_e
zU{GwAVK$C{DPWf8(-L{Fz_JaC4ar4S3?shnH0GTT!P6HjWBbxI%@rwQcu{Vsmn(rG
z^l1$v!9?$sv#{$|ul_!-0aY-6*EqgQEtMqoXOli+u?7-WZ69g?6iyU$cXtQ7Q^uec
zizDT=Ic1YU&g-Osab5$b!926kg=xodUg+2c0FB+}8b?ckiwgy?^6kDzei&NKnk)XS
z?w!c~R9RVBO)O2+^6e6Fx&ARRF^DRFNtZP4Y)(5A+xBg_jaDE9S-GW`<V!uqJ?G-b
zfq6R&{Bw-makSE%@(Yimu_Q=4PYNsZdQLa|`0>Nbhfc-gva)VG#^luOZoPhbQ#u_O
z)++z}E}g=6;f_t;Z2PA@w$AFHG_w9izJk{Gz+xAqLF-`{)OYk|IkR(-i(hO~QqmeM
zQsDMHp_DR;(E%bmNR7Ox<;;~0OgMrGz0zfVy=&Dk(qn+5bFK(XSEXph@1$crX&N<-
zbSgP^kU;%$LUg1z1r{lK{KN@TybpC~z_VToN$kbh_GguQu1q&y0aGbgR#vt#2~c;l
z0YJ%PU{cD)ZbOzeBc78q8D=KG+S7XX0c{Yi-rXXZL*@YpkN$>R?QU<HgQ5Fs-@Erc
zHz+vRt^;_>PvC(PFQ-*3t*t4G!^I?exco{Jy3&nY(TdA9-6879@n@u@OuyTQSl|+n
ze(9Z{OT4RdoeGAS4w<>QSjS3oi7u5?US4hqG&?>7G<(p$4gj`t1H<v~5EI|cnQ)Dd
z5;p1^D`7lxix;FEM}8~~xRHlB&MWwCABA}VOWy0vHLc+zTY7qWS`Hvk4&R5Y6MY6i
z{M#96<U`9p2UfJ_%sF=H@1qMwMbEp)4#P#8Gm^wF_X8Y%4;9YEXB(CJS^-|x7{Vi0
z(wAL2wxv2LBrKe5j1dzP!w?UBQXx2Q5A(fyd}EG@(EU{v&2yC5OSNWgaQo{N3;=iy
z2$>BENvFPG+B`3INn>PE*<@JDV6G<l-s*ztangb-#f<peDpI*nc|x>m>ATlD5sG;7
z<fmmbhF{rrab(l)i!CGr(6RAs1b(Y}$;Z8!Kh}P@)M@+*pqM<B7R?xOz|0UwYu^0G
zbvX*&(YxZsc=gNFezc<aEriEstxImCMFObU0$469eyv+o3WNw7Z5J08^t_KDAV_s_
zGA<(0Gf~<J<y%CY#<H!Dd_-hoBA;HTQO&b=%79d%F)09&`FQN&0Vm}#LLd?}@m}lX
z{IJ07I(CgB5n<tW$DY*os--&ZG9W4kpZkcj%bV{{hoi1(f0T}%2MibegFUMxM%ZX~
z1lURjW^Id<>mH0Wnw+pE_>x)c1Y%t7O4HqTmr`s&=$j~Wp4y#prK3|UIt~UlM6}(C
zZu0yVnn(&#R##W|1TlQ>QTN(>kBNflITP2eGil5_?=Ri2j!Xg3xs6gy7r{+lKE(8E
zNpYWxKLdnH2BQNcPKRC;1sb5twqaK(z^Y7ZKm;6DXHYrE(F%Mt2+n6u9_~p1<o1&(
zdS~6=alIDh!@<G9@2ad-aI0<#gbPF*0G$tsiQ{R&(pXtJCDJLtuRbme=GWe)zCCfS
z<b4Xey0n>Z))cd-e%|M=5D+&~jUGO12)=OPf~d8HMHTl^W<)-3B!d}q2*KmbqH$A2
z2?)HGu)7_Ij2#<VnB&Kf57)72S8dx9a(7-0*153!{`sX=jed5UfpO<Vj6HNq9Y<3E
zE9ou!_4>r_9RR+=UHub{o)^ddV`IxMCh8!mz{>&vg4W!7b2z!MuuyQAzyY#|&UiVR
zJOfc*_=L;4EtCz-uLExMc~l#~Cq7}y`5=?u;C@O|-PG201Cs)Lui^GRZGbzE0RJfQ
z9jo#bWd!(vl(e*1Soa&&JHKV^j5p3_ftdR>upv(E<nr_WEQ94AZ%+iclZTO88VWnT
zt}Rj5(C1}ce-929+tqYed9KO<^dFTh=m30r6_NpFAPmnOzr8UPuKZ{gz6$1Yfia(q
zAHc;=l1?8@Y-@73K>#9DP!sG&%ACJIz})nO+|KdX7%DNPAIuM&<9?rzu-ode@#^ly
zL6EwP0#=Cn3K+LbOKYpRNclA8QxcvJaP-O0E7*O~!lf|4G2g8!3Qb1u?P|0GUs$4z
zqtW&tCpm?xyj;?L``)Mcc(QDpqM@OoVx%4LE%y+RK!3aRd5I8exE`LCDd7)j4Z0G<
ziRAulqu3?2$55}ejd|c2arw`?l3pD;bcj6C;xJaV8Eb@+bN&5G`mn`=h9?Nb;s+1l
z$%%G~nSk}6?f~j}4lu^m6=2$=&N!LE8GupVD?nWu7i3;qqyb}XXK;+f!q&N&8FEYt
z7}o=G^Yd0fZ;MJMLWc^iYdG!jD&y!qpHrolMx~C~A}}x|a_lB(%VP2Xpb1WngQ>Z0
zi;r!2jC{jTM+rL{&MY2t@$LyWeVMwYfY<B}0(MhFZi={4<0@nnF?XO;8Usz8gtF@N
zSJ(qHlUa$@LzF+nbSUg?TZ2Sk_$`l|+lUDu-ddH7u8hzfciXQ2vqvcp6O#@%WBWi#
zUh3mdi<lH21#&NIp~AXl{Ls+QG5$xxMK*<A?H_Na<ro%c2BsVeEHMSWm|)HvWi}Sn
z-vZ;bd!z-2_b)05z#mEYx3#q;VK5j@h3%#LCEED<;B$Nz97Y-8;mr}&F?o-rU+tJX
z@#5AU5g--x_FA5--#I62C;@Chq>?`a{5}MLAqSqN@BGNXU?@2MWY14<?)3$6tE+&V
zpMf0{lu!UEMF|EjE&K@#!5PyFOf)w>1~9G^ukQjqZjc&k<99~>UJ0=o(s*k~)$TR3
zGuHxM@sGgywJGkOAdyQ%Q5QBFK=3;Z1xZQ`m(0s)2S-bx75QIh156urvgTd|8O9Rk
z*1pCfY=vO)vPiGJP>{}bX0%C-d-sU-53)rp{0X)DM0b#HcPU^U%;ydsM5^HOSZj%$
zt#zYMDtK)TC~_1eBFTVE6ss4J!JwIUX*GNCml)LQB~LICP_|Q$j0eGIHv>zeRZapf
zBzpDg)pR;QUOuT8zrOKZCWUd{CdPRXNL|T|8o*8nG(hL9fgyOhiCJwdP2eb%l<ERN
zVk#IJUi04eoWkBY2a_ugL-aSl9b}CHJZm+b%du=C1%w6R5Gh{RM<9j_$TG+TFtI``
zXdgxigU@$k;t<Al%yX`t)f5h-y9^tyK;rCJM}lk#p{Deyr&KW6of{<6y$U2qKf})P
zOahc@Q4Tr3{NOTjNBW3Lw|O{}Iu0`Mlf%_MsMfRuugv<}1IDYN+T}s=tY!6@nvGEe
z&u<ju1A5$94h~D0*29PXQ_?Mzs#SIT>({R%*+SccP3QgwR8*N!Jy0<N_#kcDd$n;a
zESlURlxvIvr3ca{r|NlQ9i6Cz$jHL+^C5ty+lqm7>=n>CJ<GJlcRaykGO*GXXy`hO
zQLF(uxfEA8P+|)RCQ?x;5m%HuUf7XpSrry;z;@`g#B&-U%?%(W^wVev=R*UO!LI>A
zMsQ*<r~xZW%R{j@3|`jt>6!W<e0_aQ)7%&Z8#hNs$1V`hViG}|CV+Xb)WE=Vj16{D
zKRFUX^c<6AB;5ekcgAwGK^*XjMR?6CfCQ(Wv>&+!a!vQT53<VN!~uqY`s>x*7wg16
znZ2!nnlQl69S&BenE)z4GXc4GxWa0ixD<4EW2zLeso1@0kfd8DyllBv32w_vPrvE|
zGSYI8^bl_WGD9i^Ax}AOQdmf+b+I?2$7iZBoDbFY;G9E53NYg22{0ut=0G@gFv<Pn
zZUhJ14^okBpRJFtZ#4jcep&;UlksWn=TP0t4wcJxXzn&niRXEgX2C?Yvc{^!r1*o+
z`alx?15j9>JiyRR6_&moj77M#-=@h$tFFnvSL1Hx)((t2G6Jc{d7juahDYV1K)S)m
zw-S+!JnlDk7^!g*FtV=z{o1{!Bb3!W7V;Y%m#itgP5<&E1}J?y2TCQ^8Gu>^n2md)
zwDYr7P}eBA=<NxB|Du9IjRu&IL{PaJL_!(rE(J;2n}df>4$c-;rKCU{06nu-=>~+b
z;zq*x$k2%hWnP1|VY}Sy(Gmy3t<sT~tp~v`Rgd^zzrMfO+hkOvh)wGbLj_;QChLQb
zR8fcRava89)ShCMdj9ii4Z;PGzaN4|CH5IR-;eN}!~)vrWZm{*nb71V2&@iWy9YJ<
z@y{m644Zs*)&~Oi163PV{D@q!wFYEvx=p;(dowxwjx4(A{iX0z7sM=TEE&*025M^b
z%K;%}o3o$x_8C7Q7ZnmtW83vbMMY0RO!Itm_!Qg`R5B0)r)XasM12<k9RmqIFUaz+
z!!_tVQ>T%#{HY?F9?m$_V!2Umte^|8ie#8lc!pBvL3K70y`s+fpI`1v$#496vkK2e
zjQW7OhI=SL)*2*8>z8mKU^^ODxX$M$*Pj=y>9_=TgoOQh+y2GxvZ*k+)JNSL%Tsh^
zk;;`8p_=$RK3m9G6StvA5Z-pCo34b9ypM>`jEjjmn*}IvI4BevO8~e}0}R8Z{yr;o
z+ADa2T|?fPQNOWu1$4s;IPN5IBHI2W(7+7HdhzuAsvj_m@!@q@BynvQAg9YHNG9fF
zi|G>qeAOPn{lo8onuImC=X3;DPfw33;Ahn!^rH7`qst&$GhGcwZ%?_TRWQQjCq{Oa
z1B|REOR`m5T>M11EHRxCihPOf0Lu9bIso^*qhI!7Lf1MT*?-~`m*n>KD_4@Gp-_Al
zDElff{9+fB9CtTBeP#DoNumfafUlq^QC1BkcH(ocJN>DrySs%^4O^#-?|m({8(>iY
zES=@UbQVas<pebn<dcAk5_NJBJB?3oet;toyhjheaYkNM0WSn#M)}^w4}fW8fLA^!
z5GJa2$GeYtYEG{JQtew8(R3>s<Rn^2q@Wp>3j3h~XFY%j<{(U%GI($dP<bzyb5Va5
zo~;c~%UjIW%T1W7FSXc2vK(Og^`ef63L<>o)0>0FS_7G3$pzfVUd?1lhhbN5U*BC0
zP(7qs_ov-_{83`F)qUJ&z!yYhJ>=qu%!KoG=g*A#axth%hOrB%l_5cbPQuCZrlbbl
zIieDG<V6!oR9IN}OEY*-fZ(5WCX^StB?GINPyMvDiC+YjtjaM)uMA!Fz=%vo(t_j}
zw}KMp<v+}|0@#uiH(;rJXi!jp!vN6HPGtD`TazszAt963v{S2yb6y8F(k^!%V4DM#
zd_R>CYi1@U?^5s0m1Rr=9X|#_D|DJBdtf6sspCJ_tbw;u_M6|CdWaoE1GNsA+hE7d
z83BWXOm%O00l4h9_eqRBmUj=GIQ&KiW2^h`+Cw5(doX0IJ^b%Bzgn1~?vWSgTQE9C
z-MplUlnAi<B_49^qD@8$YnJuD-QDHK3D4`ozUMW{!`iR3>|9Gy+n5rEDZ{n?BNh{E
z9pVt_(p{q8tqCs&Z@~YfQ1VDNiOqa}S1Hg!?XWR9F=dqBMtQJCAwtJQ3pQv+Q<Z(J
zB?=3F(3_~A(Y3#=hq26*nN8K`Ncj45uu<?@R4>mtcxqv-mzPpj8shCkQ2W_$Kgq}W
zEh#SgyUOImvYk(j6$!_L+yiUO7z_Q3cG)NWiB?Hy?aISph3}}W#tPYhXw=a7&3~6x
zQa%>_e(*k}9m8peo>SS9dFFXn%Vw}9zGcu>W!QWtUNj?F<JLo$!W2zRw~xNwU9Hr%
ze_lrV=z|wSF`JH?N?LTVkalDPp=Am?q{{=+W2P5ZTflxjmV?E$yCQD-h_lO1X<{XK
zGw>4V;hd{T$joL{ha+Rl&yt1<EDetQ`$d${>e&8%Jf`bR$Hsz6Rkch=6bbAE$7OQl
zyeA}f=C~1Dq$g6cHJ8c!MQqBEX${t~TVNwhQAYss08?J#?Cne&DmFe-_N2bQsB!Y1
z{dRt4Eo0~`HV_Y?F{$JH9)<iI{P{T&Z!uYNk@^~!kNX&E1Zt3gmod%TXgNOooLTF~
zFFqP>w|`sJ`(N1}s{F|O-5epCH}|n-V&**$BQH>C!w|-PUq*XBsj>vG+Qj%e?f7KH
zu~$VtGuCU*t67aa_V04vUE)-Ac~I%a1quR|gF_CEyF?l@w%~x~cSafP5G{RV_2Do~
z_EIx49`sxV8Ti-gFV;tZr_&)ws*Q;dzlqb%PO%0FcnzbyPf}S*jX~=n|NIFC$jeBS
z{<QzcHe*Hv-fxUs{+0Q^ZnXOU;>E~a&fWjK3-JF(`Ttwy|GLrr|152M+beXRTgJpA
z@f3x4*Taf_cP)-;Tf|&UZaMJkywVfR3rcq%Jh>NzQd;}rOuZW9_fjVP*V4<fUoTF-
z64KLD@=xY|@b|sDv*sU8|78{hfk5WhcFc8asKithjkkZScwme|BkAV)W>O0iw))0Q
zis3$_3~PYU-_(x%Sp&Cv^ljhKZ)*Pq%KZRDuxx+)x-H6YA6K5HGXL>;asEF6^ux6S
z`@3lWy9*|!|A{WN4^^QJN0C34_u*1HEaR^sO8VFnlP5bW$oRm9eN_H+J~hD^g(nX6
zrQvGQ7po7^_Jil$p0~NBnF(4xX0C*TxB=aBa0SD7nJ%CGlRsS#Py#X&b8~b@)4bMy
zTU*0x5I&h(Bw_;l*q?bxxQ+bjWx4L&=ff3a=ke@*9;&HSXRoY`4C_M*Rx|!@3X>ny
zT*$iHw_vN7xYcKZI~U^XMkZoUwMuO}tRwpZjr8|z;#*E3k1D^hE<S&2k@&HXrc2@5
z+2+Cx=p<(N7F2wf?A;F^H&F!q*~JHae7dFfN4*+z40awN@2w9LM{LL4&hB%Qn}P(M
zrG(y=kWmHWujA0nJzYG$Vkky$Uk5ku6F8Q}s?6LL>rdG&Cdh3KDd^I0>KTrDQ1`V$
zg6^E2wSxwBUx};v(FZ7fnE`r0kpp?vi_O7_K3}%#i4A>FoSts19wn1kJKhBE&_%0z
zV7h<D!&DXzny!1gZ;e^WV&d(#AJA!JpOo%EW`eQL+W9H(GOusHx84ZmurscHN~LN@
zbX+)9h(za@!50TD`^0hMxH|=5w-n@U(L<?!c0~`qO+D@*YA^k2c#w-T2JV4G)*o(=
zFB?kQf1q1o#$RLiMVvll(<^!I9CS~<(Y}BD#YtcfPFV?Xd_ib?KQyN1!;2e?6MiO^
znSL~0_RxK5_Kh<>Z{bf=9sH1CwUnR__3hd<URSmoSv=hrD?D7IYa*iw-S4q-Oy>Z_
zB-7Ni2<^y2Fsa$%3#NX`M1M?A7+oMHQ~6bK`yJ_5WW+q*DAA<PkOmhylBov;GA#uw
z9oEr$iCHZ0J@}3*vO%_C!ydUjxqtnF84z?XbeLk&=*D-x*qt6Y>|5ofxBeR*^R?{$
zdJ*vlQ7%?z9~o|HgG);<6b}^IfBTwDm0|BIVE55m57G7Y)mnc|ESFgZl|&|{yocIv
z1E=^8=NLA+9Z@FRJ=SSecX_l<PbTqYSLd6ZrG#cG>n0+$7w9+z)uw&J%lfW!Z}M$2
z^%{^lMU%b?dhQv?jb=|a8O&p$2yrQnhU=oWMpL|ok~;5mS*;%TWVnW(E;;de+<+8w
zq;6^ESak#0QPOsARjGJEV*HM+LQci+t3DzQ(wd{<I6*io4y=_AZCNQfMdxN#m)a=K
zp+t7^!_4NOqgB^ff7*FLk;=bWTt0gt*82k+P<Lxn1l?j(Gfi_v^xZCflK?hg+V|)i
zed<&zOICg4L$aPa7}o0TWa@Z!H|1$9W$JD%WvLP;3J;%O`g$W~LXcB&?%L?=h6!WN
ziSx&H-7<}I#$~(o(fTH+r2G&4=Q2%=-A?cKyjQh_e?X5oMQYk@cP`o7A|6p5FukcM
zEZ6Q4vtk(YWuw`DC_CIqKav*Qhju8xM2XBCkZ4aMjUz@Yy&C@=LvbcwMc=8)&G|Hu
z%CniPq7_979+X43$)&=%@bxIUv8+gqL8*y6``&T%q{|Mu@s4)2?up74U{uzbX*zp8
z&O4TUxe_;ImgcW)A=11Q*H0u9c9qwc18s+FSh5QDzWa}N7IXesY1ECqePc8)>pe{&
za~%6T%SeK`N>5#amx<}7_PAHFIDMFea2c|EvQzsuQSQu=`eIjU*}b%c-xA_--|O{w
zrOzz=RoN7ko2QYnYw5a^mZ@<&PGw={)E5d`g1LI?1<e$fn2;A1Z^dn#=-P$|kkj`u
zUGJ`6=ffpPnmuON*Ef-ymfuhhkh#Qi<q==_`s2PG92d`W;hZi_-@eiaZ`WJhFI!TX
z>7`QJee^c-Y|YOiv^e9&rwyqrCq$j3uMNud6>@d7d8DYGRRFH>+yAzedm);q*r}ky
zA=mzB<9I>Y?sS~xS;kHJgPB90DLKAHvOdn`6O%80Z-v7tLrL^8n=xtIahrn#biSF@
z+GbDGzC$mZB`hQNR5MSUjZJR<Jxbnn=-q8N73K_EzkSN?{Qf06#pt0!3kUdet5IFm
z-t1G`*2p<xjYGxdeG&EkUUJ00={q67Nzy(gXtaOFU<^Me<0RAIUq-jz(6Wf|zEGU@
zK>nypX(~74xZkKX(T_&Ljb}TSe<vUM6Ta;vX4p<CAa*(>c^CIRJ&#4Z{TCj&9@4db
z0%w{treo6kBIy?6ekK74-EZ{TWGYvt3$9g=lZ$c8FZqLQpuZD$F<<<PKg6K*F~?E@
z)OL@qWd5haAb@@0p~FW6IQQ|?Pgjj&soJ&oj!)99{m`Xf53Fldnd~C?UoXhms(nCb
z&Fm52-0#-U{KNHM*;}uO{C%e~rSwV@U+nKOX9~+hCpja^&Xb72q|%HrxKGIz_=hvM
z!&cu168C!_TnA3cXB_VuMaVVrnNs=_OTRTmsY)>9XUYpr{rDXf8rZOZ_0v#rb&YhF
z^!~Z5h<{c3f72mt;jR}cE|~#vQ@zpZis4CWkFrlkjyj@f+=yo+$#DNRx33uo$HZ|8
z*^8zA)wJ}4n&%3iw{U@Wf8^;)HBOrFIwkJhII%bfpWjO&_5@R1GJV+l|EP-u^tWjD
z;T5W3a!V+a3qFvOBi$gW2iGtt>daY`)fC=;2I>b;+Nj~N=i^#Fs>tu0C8*8xonL{r
zf1bh481rpgg=*Qn2J#&-+i{nFMWg-$CS&y>xs-dk@D0x1eLmeM?Z4hs<K0_r|HeE{
z_TD~7Goc#5W9pNsfdF!&H0k%*`~C<i$e2Ul-aD)B5>1L*+)B?En@asx$%K^2^j!1G
z#;{@0PwD#};s-SYAq}8+VP=o=Ksd0_IAY^NpMO~-=_W9(W@1J#^+Mk#9Dz5PvP+c1
zm4-T^o*}!GiuZ@Sa0~<%T@6P|o>3!RO6DEScuC?akyt=HlpPmBzTM}fuD{PKz9ld`
z-x7&fkLz+6kW1?HF+Apm^R28fMLzxU=O1cO|G9Q>EK?{`P)8~^0q#S+>Qnvm?}f3F
zt%-W@LLz8cJ-fo3w1a(}A|h#$S*<9=TG`6};eBTE;T!x=m3gc#-?%^hkG8c_5&Qpk
zh{@04^1oy_1BBNymtv>a&SUc5&+m7+KVw{(kpkzfgWm5Sda9A9^e4cpJqG%S$QHhF
zr?}$&`UfIsFkv^BD9rxnoz*;RhPGeC@1T>s;OiSiI?gov4)lMhy8t{Y2_SI`u{9HI
zQ;~Op@wlfN`m>x>M{t6|!&3iOd+!0%)Y|<EgP^ELlOs{8SU^Ptm0php5D^gR9Yi{z
z2qClp3W7*GiV8}Jf=UTZS|AAlK|yMygwP2h1_B`zLm(mKZt%SC|J?b{{bs(Id%yYS
z&YNMF$<DK%ti8%_{nmQ+eo}#TOZu(C?%pcXs`VxVO5%mG-OfSmF}u*_$S*}KzQ2iq
zOTtTllqvZ*!@Mnb#qR!A#Wjge9SyLxJF<J=a!q$Ey$b<KEpNJK2>Csxe><ry+yU}k
zltDq1n@^xM0z#Oxc&drTZ^D?jW8Fo5XH%#)zXiQm=kmX0zm(~<;Xq3P=%#Px-_|?7
zql=t`S<uk;RdO|65C17?Y3H$E4j0_3b3_>R`poWkR_b>-{H=9k!T(ilqKr2jTC$>K
zdzHF{vqaK&o(tztlmpy|eLGjF&!)W!&v|L*SaYe(@3~w)0BFGcmT;^NS`mFWgsE#4
zV+pI*u$ibq#XzWLa8G&0uFV0I1c<!t#5=~!7g|h-q!aAd85rC)*HXJldJg75v&S=K
zOLpDG#dHTC%}bCLgrdnw!Es6XaqS-u$yj`oRiR}-S-H-?bpb?LE8;SU(r#s4>YB}!
zj8*1to%%0T0UsmNM*{!?79dqCrS#9!8Vc5TcwDC$)9If9nr1pwmscBNDp70t`kz4v
zDOiUMeVibqj<VJMISo8*6rdfRd}9uXi0wHB-1wj7^Ta>e3C>7Fz`|VDg~bYNcps_z
z3m9Iu4gWWQtV=a@y>@V#D2TAWRuoAgzsFnR#Y)(Y5~cp;6J@P&vs?fr?~?hqVgN*U
z)n6(r$+Se;kB44`(7()j^;Rr34gW?A$d2Z&=~w_j3vESVc+&bwf70^FSiZ{<k9O{h
z=im@ioINyojo+%m)&X0Hih!j0I77@JEBU*I=E$x*!bu(el<+70yF7N+g<`cm$^Xid
zGCNr^hx`^#P%iC=to=eMOlRac=3=~>RJ;BLfv!PL>MK53YxI;TW3nJ(JD(Lxu8=AJ
zZCC5;`$-84%H5wO647w`_w3{nQ-x8Sx7vZ-yvX4TBujLK>%OI9$qN-l{x*(i)c2!f
z4z}9veL85=!ap$$>U;VP%!nqB-|IWPG+VG9_g}69IQ(D{YlGY@ie!E*g5mzHY5?GI
zVzpEEKjZkzt0vwTtmpnyt*liuW)(mv$lSjJbnzJAuAuZ$*>X3uxjseUf3hsYjM;rM
zIuw6yY~t=<^u#|Us}QfHHl<M{HGP`={+U5QX`{Fj6DddCp+l3wB~oHEq2Cc$+6s87
zETZtjsHa6hxqoB|mWiO2PO6|NNqD_~x~7$O!wX1AfMp|saUC*RghL>@N<cODFVzt&
zn$%tY&OI&9IjJx3;rL*Eq$BmQ4&D3oa2bO_j>bPYu&`_XVc`#l!Vu*}dABDp5q7kZ
zf?u0gfx32#oCq4*9Z+e)M0$-2Sm>hbb4DvKP!I4eEZX`0<|%ssl@wYsMJPsT8zb)c
zc3IS}i*Sels@1j5t?{DTmz~_5WgyFk&q>zsH_P$>PLmR^?fDJ#!~1}@3R1Nd>U~+e
zV@vM>Sx&EDz44!9W;>W>oxCn}Z)ZC<0Bl}n1CAeYgGMHIlO6E{Yo@IDZ|{6syk{76
zp$+8|#L~yJOZhDV5IPtyDcm)glHJVaLIBQ$1w#7G{B=K~)_#{}&G7)C*af9nuoC{z
zr0*@Iog2S7c0G{!<=@0c<?ymj{)_h#+xJ?2(-fP;RBjB;cQ)Rq{b1Om=G}Ab{Yp-Y
zrq#R@+)Yri#%j|$r3vsFPWpe}?-_0Cpaj@DLY|MAI$VPngtKLU7WmFwmsP};^K{MN
z*Ve%`z!E;dA{*Nd|6X9YT>JDGhF$lGvU8Xt>zn?=(TZ1?-(BvZo_`Jc|D@-{%yi^f
z2u1o#<+B*>BD=ijd}b^(di$-0ci$w^&R|DE7ijgra`=C1oedEuB0P<?@@@lF5AYNu
zH)d@5T3OB?;PQ2AsL$)b&3(ctA05{%Nfy@5q0&)FP-~DpdS^ug6%ARhN+udP*uVlu
z^eVNvF{NLqmQ%VbS)^N9lU5rK654xv*Oq>+!~mmRRM95a9*2>iEfD9hB@t^?$u0{A
z!jOc>5`>C++oh{znbycMlN^`QY?UY!edR#gsE=xe#-;{g>BoXY<Vfvp$g&HliON;G
zu@f?t7M_-cdH25`$PF$Vc<IQ?OKqB~+FpAihwy(H3pL#-JLncj=NjrAM^wkkg#cz|
zRM^V*OOKop(WQ*;>oed6vFJ4zdgU4x3>0^ckS|9Xm!{L5LU%YxO4KIal!B)>%v5!`
zOh-D?^R^iUaNsk)ld_AW5f#UP%Bu7PFc7Fz44TojNkyPl^fwDZr^P}S8exOm<oA}l
zKD4N@XR?g`$&5Mfe&qK79h0g$nvS!!Umy1V!xfWUmqR;Kxqtwf(?O<cLzcp6yTIL@
z_1{SSe|nt%Rp9(b7yr@4f7Ss2<oJJR;{R`mk)7m1L70@8AWVQf?_6{N!GGc7g<Zr-
z6khgkg5j;LryR83p<2(urkonzMTFDZ$R+X>yQw{kkCVF2s3Rj0Vih0R6i_B`K0tz4
z;U4R|Y05SZie5zISvS_WC89x=pbOjDud7Qy)-f-ecFE~qZvxR;WejW|E#2C*1Y4!i
zI86=gAv2O=Ol`)a(d2ef531y9CHa-T({AUdat6pKlc^<eQOB73t>-5_Evcm!=8ZBP
z)avV5j`)D{40iV%iR}qlA9}u9@pV4};9A>ba66X_LU1jJ&y<ko@fAQdzbLb?E1`!8
z0Pst?KI~PQ_6Wws-|HUhZ&+OyTm&|NI%XzYd?BO#C={Vx!sz(0`6n?VIi^DMlg-%o
zf*9JW&dO`T1@xg3ey7?a1<{_gU|?<HqMBH!B~VGG%ZO4zVnd3ao|{*JTA60fxAD{n
zJ3O(y-eb<!F5?(DKWi=!9!GvuCT?08jH!+YTVQ_}?Hg}o^pI-~wB5B+D36Zr<YcGE
zY|_g^^TQ1^KY{rDIzEP4lCb15k4%anykV<T{urGFawZ@3<Jlbk)$Xzw2xKE@IE1Fh
z{G9OZZb2LKbC=4+-Ut{N()-yh+V%TNT?-mfzOkj}xU!iH<kiGTdc502*>rruqL%Ym
z2q#t5!uevK&8>w{W8vj!3}gHSk3e3~wqB-*qPQ@sgh5YgL%Bk5QM_PT4Ft*#vcm0_
zYd+!rFeqzMRmriLxkPqiuRKyPQ4$w^y=udpz~@eRPGN+NY0zyiNZ%1_2~2`pr3C3u
z$Tq+aA{XsLIU}2$Ed(5Ds1A(~VYi9$i1vJzDjw-~x0I&#7Ue$B6R2g==$ZeqZq(TR
zz}$%Xq_Z*2-^Ce%=q65h^IK5C!BW6O?+z1pfhKh?s6@b6ZBkjx#J{t5^%YrII1S1o
zYY3;cE9uz5qFYvadk;<K&cXPEZ9XW{A`g8CIwPpDdYvc+xd~ZIYP+kEX(5#ti1Ag9
z+TYc?I!|tK2XUgm6o`eU@gP)H;}3}i-JvD)+2|_$-EI&cD8|1p<E{?yW;qLEA+)x>
zqnV!iyYzf9{H52hB*`)+<}+BTD9@Q?lnmiQ$cYZ==@d+#Isq-iBBl{WZc`SGcNaQ;
z*Kv#6_!n6MCxFv`|3*Mrcgw`r**|H(>WSJ;JaRxN<V;Z${@Oej`YPbYnc$d?ox{y0
z?nw!=YQ?UO6OmR(U$ttcvFOl3W9jty&m?PVu@ia&T2lSHUA8m)|DIR(FxDN!;rF!|
z54991U23S`?j;A5kgTLe9x^c=v{^g_fwm%9A|+T`9(V(SVlNhG??`}VqAVf3-|JX-
zz^IlnPK{M4KMCc$+qw4I^(X_#0{I<T7if|wlx<g`yd>OO{-|RDJI&y!6$NZy<u9*(
z-;hTM!7B7a**NK<RH21b5!NqcYy`iz>ullywVyeKWs{^O#FCSC5h?(JAU`2bA%OKn
zOoSuti}5&*X1gIDj)hj)nxNWDV5Zq4B+)dQGk)1_xqK#NHjL9nKm&=Y(Wvj7wa#AW
z%Hfe9ZSz~HI?dP!IJVj(UdXgax0$I&`tI*YQ~mjXY_Q4+8uL7c8!?a~ZKq){p)E`g
z%7-YhyXR;LOmb~?5&Me@8@eNR_p*3!?|>CGIDjD7B0<&J_7|pq>RnA3!luVKUbBfj
z4{Q&;p2e(P2W{(mqqsWV_hJ$+=mzIp4Co6KY|OhDb3c{V;&FaKU5=Q`!%1C29${+z
zoHZ%i0s|H2Ud-B$tYB>2eK>Q%_bBt5UNbtfRF<f11FO?mJL;zH#4&uWcWzmAAKPl;
z{WL;aRtaOKc0b{3oD7N@fY^S^m`$k2nnIyQ^Al*2g4&f4X4g0%nPe2cBe}h@Vp>jK
zz-MFh`^Lv{{}&hAH3>!tYDKxK=-RJ@iZAI4+V%AT!{@r9degWjHBFUd2C`RcU*vkr
zt%rBF8{!j1w?6<&)9_g65}*Kr6(tx)S#F{gmKdmP^$4(<)XGrCv^YG~@8^}u0!)2`
zPwRbgRqzHoWG*23X6s>zrom~p?)KL2i@1v{&AT%J9(iQJZhQe+MJg{UrTz3YVCf81
znh&1~@Lst3c)&i~JfxCQ;Pwmckx2cqRN0v&Ye^NO!G<lqw3wY=Q`h7VvyL>WybPZ8
zmD3!sqlb5Qy;WVOmYUpZ)`X_1LkoKrgH8RjUW9uwfmPtF8q~zJ8DH0nahH)t=R2NG
z&1nurKCBJIa8&XW5Zk_q6>mc(4=)tEy3$re^ANB*(5tNnB>8D91$!HURidD?t|+^@
zeJ*&t2xn(vL8~`oOTpjhtG#yD^#qJ2L!8JSs=~SH_)m0BtqmoQabwngW(7k>yLIRW
z`eROZj=rP)p{eYlPU?IrpHx^5cJN8v)J9yanE(Cr?Y!c6tKP*p^@a%AUkP7ux@Ih^
z)+^)ET{=dyWhLeyihyc2xB5#&iDycAOqbP>TE0mwA9zrT4qM&Fxi;aVK-#F3Jyfq!
zC6cDj>o;x(*sC>(&(pX9ST3K+wBa2H>h2iEl1T=HnDSP3dgb?iGbRE7vI1Eu6faFE
z&cKl9`-9l9j2-t<YuP3*hz_CD!=86#i-~kk9e{t{{!<R34dY`q-5rdnb@8sQi+DN0
zXE!zzHc&JLww^~eMc|64v=3*6v7f8p)gH^e*~c)EI|f;dGWFTej4o=8<Gmb4!d)aS
zRrkS`di2L67KdeVcLS|x@d+bT11uGbna2D9^+E~rQ%^ztXFp<HAFhZia40P*Vyl4W
z_!n#lY4sC15wTDagppNQ{ObcM2b#hRA1Z3A&556{IVlOa;~Atz{89MRb&~ZwG&#Xk
zPrwQupvF62Yac#ds1jwjh3X449eo%v{TE=dc1~)5YWFFo1;nuR0dcJ)0IYV5TQfZt
z8eq4elb%cYP_`vO4f%`%tVqfVrjN|&(61CwdZ!+uLJ=^&sgTI~ttq6FQ|U2PjN$}B
zf9h~KozxzDw{>AlpzfKb!{qX(W)DD_>osDkrL46iY>4dYtAq^ci72j_G=lK!@AoG!
zE|C-rU_(_pB<#sHZE&N2UuxZ@c(qzro|ww%KN%YB^D&_`oCF)X1;+#TEF4LzStKp0
z5gjS_4Qbkx-jTz>fXhV=p>b}W8gE}5%fsn(;`U<Dac;d6?gh+oxFncf`UNa&nO@}7
zx2(KnYFXhEh6^i5B2O5bcx6p6?D?iiPjPRdR#Rh)m(n}(8$?`}d%N7%77iW|AJ`H8
zov&rOpIRjAsY0c5X>?gn4BtI;=<%6~xCxKcT9`*o4}?G~8uCY6eGJ1pr?hS7Df>ff
z$?6hJIx{W7G{qGm&s0Yb#nQjcs%K+#Kb$5`*sGv$ZY1>@Eu5^qZ6fRz0B&kO$F+f@
zELLA=y1!Z|^EN^%KpWw@$&Vd0<fA@v9`1{QR+KC`=ibi=dU<47=l+X}(P(cOhg|^;
zAiqEa-QuObt<X}c*X+eo$cL4fl)8};RU!K$SGUMs<GTJ}>8(~Vk!9zuG)992o5-Q!
zHi8>Tv}$qyZfrKLXYt_*SbPhi+WDwAt#FXQ@DJD}2~O%{)l-<HCXR;S;)`jIlqdi^
z0~*-ffc6W4GYbnS(eI|ONBC~)t`Nd=b@K*9(~Q_y1r|%fD~pC6C>2?j^vfDy&KXZ8
z&g^wD)mY6yH~HE~`Ib+Pce>dw_%)lR*1Z}yH0gXSb@N#QEjf*Jpa6WKOmZynQnIjU
zXq0tDZyB(5Of~LNnDf*LB?pHt{vgj5FfnhY)mv8&gwfMd7uSZv*J}@7-&#4x`iGB(
z7f|?N^6XkZUqyKTGJE<5Ifow(39pP8zFte+>)aQZmy_CE;`kD9;qUd3L@G%@rBneU
zlm?2`_Kn)dT)8qFU;*`umToh$4;P0zUSppmtYH`;cxCtfA1ho(Qm)N3*4I+%d&$dj
zi0smS`saj7_HA}MIN!;p#{||ZIbXxCJN?71)vFF@E78a1fKZxu1vH4WF0AM`ZPpCf
zLFLq?VEE*8yT5`rjh@wXk<9$mjdkdGJ1gom*yq_A-P3<=EK9Ryl`lQ6EI`|%otJ~p
z*=YL#ziyUJ$fh5S7cZY_HNntAycm_LPuR9zSZ+sK@(7wg5|j<uC?qQQQKYvr^v77;
zqKqlOLH0w4^+Dfib9lAEWv6Ss9WJ5!fQ(!BYR9<8%A#(s_q5LgX;`&A2R)!qZ%C&s
zyCG+^3)8iR>~Tr0>koxRJ#^V72D)Y=y2|2({`iho<fuaJs!d*f8yLVR@h?3k>`B2z
z$%g8U8?*xOV)qAAzgfRm<_^7@ZLAc5<9VnAl>cQiI}f5;Qk#7uet2p*iT*ZdyPig=
zZyTEgFf~2rtU4i%JG3sBk)!>3<(W$Q$WP|aIc^M^-~j-r*3>s3pLAO3_G*TuV09}g
zmeoRkD-kCKhHma#TF8Nn6Z~r{Tn{7wFvs=%D}A0?5nV)+cdT=y;t0S40b1pt(zi`B
zdt+yS8o;PkHqLtez2;M>#gx6HXX*@?V5<?JN?!Y<JV@IxV>>&|xQ#sSNf0ay*&q<2
zn`k(Ps4rejblF?>Q=Tz`1Bvy?ZgG&b*tfMbhi!7pre+riFE5#x?|5VzCskiTxBj0p
z9t9(ZVxduK360{*lQq+@Ur%MXv~5_Pv>#*<G4V+BB)o#4ZQzETQ-c9N*HJpq0o=#d
z3+#jiT8r`85dG@o>*`P7|M8CBS$0j%s(3!0e60ZMjJ`S5GkR-(kR4DXtmC}hG|N5H
z+ibe>X`avx>bUG%zehXD>@SvxmRWAx@^F(CT3*sIrvMUiV<Hm)g!I159H*z$HEstn
z@<ylGQtP9K`3T^Rgs}~1=-mA`(x10ptFX03iaDv54cxYWonryE_Ul(hP?wf3Po^no
zx=PavYwqB(#rC`_*jzDdGOelQ$q>^%jsl3vIJ~b7>L4JQy7tA&nN5!8hr?E&Vi;4K
z<lK!M3C&f6GrYr4Ec77YhnHq`(!(R2^TvYzMHL<tfSm`)6%^c2nsyA!y?0a~^cQ_N
z#vW$gnu4G3!)UdBA|ulJa4UP7Kl=|>hT=BlPLkxS-#l6f*{C`kP>QX3@#jyJL^Lt5
zlF>VpvRQ961Y(r&4c0v6%D=1`RrlRoC9uiOp!d(MDB4%@XxXBmY1y_BErFlS8jsAN
z^C4`9g4Z7aw*q1O9h;`#Y<>%#j@NS(@UbEIMNLiBrnR>X9bR6NG^eg*smj`B@5YVC
zdIMAJ<#&x57NTSfx%zfHiBFameI=0{6V~jJocC&_bQG$j74TChZu2dltO?ox(wGpy
zBNZVrOjwpDYKCsy@d9cG$ggihz*UKi5|$yeo+_9?D))?OQaW^VEsdQtC6LZw_nu>|
z*J3jsiKE8X&bVp2^NmR?+)s5Igf<OrN2-Tx4p>Sm+;ZRH?~-m?T!?Xcu<9ytxaO?0
z{m84jyYTj?1G^L?3XIpGi%4M46IL$Z;L8_#zPO2EKZa(wgD$;w>$&Mf31enRFdcMv
zSp1uSIU@o6G>jIy7S<D~%}I?A@DQ+~YjoNeEMbO%ZNVhS6u`GD+;a+lBIf+yl;~bb
zIimLH?Dqs=BL;(T|JLScXK#%qK=2Kl(VDvj%{XcDU90D+<icvTZE`qL&8j)Fv`Y%f
zND`4ysPx`xAXWNT_;1|oqANu;lExD%;u@<XY-v1vJVzsY5Te+$XgGOH3@Zs;NT|30
ztBLTX^^+A4rt-!5>mPvc*J)yq5{}8zOP0PVqJO;RbC!pB(kk$5Lg1wi1(UETj><9h
zpFeI$75h&vzumqjHuORp!Ek6j>=<LqYT9I1W^Y}gy-uJ(aNyZ6rX8QKW^cu$6U(^O
zx9yQp@!|iUmb<a+rpCzhXYWb`)V6b9O}uDdwUWeg@I5Ii5<k8FvG4Wt&TC3KC)B+j
zClR?)(m(U`3GUC=cl*q9<<R52$4?G_di-YplQ&n){*W#g6c!Y^vghC-xtS%C?Rv|?
zr9mr*CBzy+Ta3~r4Za#1KvEkmgV7OW0&?laDZ^*~_xu&Zs++}^3sNyA#(78LqZN5_
z#_l%6F|4H^H|-)`lGR-gZpgS!rBjh-#om`aU><0vAJ9hXJrk*&$BG>{9G!E#A`<(W
zYl+)K6cgPvzCem434CqR8hOb#Ff2_oD=hf}qYAWHc!FSWOS*N)IVUvhtZQtjcRn5o
zR9hAz`Vf)LqC|b77Ez6OR!P&^XG>&;=`yUMfX6kE_VApVr_)CMk~9|XH4ARG&!0lB
z9Ak<R?_Hf@9BPvVZ164#a#|5Swhmrq1Rr#Y8IIiwHq2W{@Lv3jQDlz)jzx|gCEE+(
zq0z~+{A6d?-~s6y&xa!2lWG2obp;zaR&^7cn1p5M&=1=bYMkpB<_}$xN38t;ChRT_
zJU@_k5BBq7A9ak8GNE#gL=@_L`tEd3z}HiTurOFpls$(6xk~z(l8gd}f5C`4ShMBK
zl$)ma(|1?+xk7LCOU+kHYa8Kg=^VP0H(QzyOl9W<+)}PSOZeVl{!GaPZW@i{wy{0Q
zerv|ac?~H&o^m_FFD^8-BweF6WVjI2lqvM{Mp~hR8dumk>Bs1l<(SRYA1fKLP0}fn
z&t*Q{(UiT#C3Umkc~3On&7PsO7o%YqBW^QgrY$S03*DDDVJ5NTqxynVEy$SX+Zm!2
zjTbtY?kz=A8s<tjic{U6Bp4!uMM!1yu<)b2g^n9$t7wf64=e{YoqwC)VqJrP=}Ao!
z=CARWI+UBC;_JQIgmuqFnxXBK@7wb`5g?zez#+-)a8=~T(R-P55Zt@ySftN;>XCcN
z4|Bv=(F#PaX1@3@Y2`d7oRW@xy=LTbsf{zPuJ4tbYn#Vn<#{{96qikiJk5>GJ<aX0
z6LO<<z83V0FCzEEh|k7!##4;UEkSTF{ZW<6!WkIvK6*vIM&bS|p9W&HpAnq-wj?T9
zk0JhfTha2oaW6L?36f%QFQ04g)jGD}a%cOzYxzipAY(36dDMCx$-G8n#VaHZox%n1
zM_ul00;jHWN{TjqSd!q@D?hGjf_Px8e+F?Qvpskan?1TO?DVpF3zHSy5^@Bvg33g8
z1aBvp2lKL0Z~|<YZ6(ZLL|aVd4i821Gj+U11KheE$jUHdRF;KXTCA(%*C^icUz$79
zJ{3_XN^lLsMX;)cZJYMZd+nazTJC48zS`g*9%+8mJkjhJPw#kokCYRaU$^93J^m}E
zqBdUVsIO*o<SmQIUis&;fR>B(R`xb?Js@3A=SjV*snZdxJDs2J4=7qXE9y@_(G6=6
zr{$kWB;R=JPsjx>tl}H2t%y^lq-7trfTxBcWQNrUmTFS#bQU2}e4SsH2ou583L$;S
zHzOx}yAFUh;>cQe<26((&S*|zZ{J?xdJsSeqloRll7C5$wVZs~z3kp}I7wM~UFvG{
zX;_cBFIFZ1>0rNpv?}M4qXe#wv2>{g#0z0`Wy^J{WA%?&b84oz>L$XZlqkrLYeuWH
zK$nfPwQe-01pU=c3|58Mwy};X?JfDLc>tc2F2nt;tFt~sP*GcrF)`rtoOh&X)Ko-^
z5E`qx9W$HyF9mFJP!CoKT@O$Q?>Xek-KphjAsix1Y|K);Q{20kT5VUlh7qMr7#@WL
zU+-Dhe*13e0vBdxGV{Z0?y#{rUdLbZMN-7Zcrwu+C82&Vw}3mTPB!Hng2@=*sZnT}
zaz1vuS0w&Tm*46}<{|#jt7<$G**}`%rU_+g7YV&85Qx?o87)@?nlnOHaZoR{+?Ybm
zZoLdd-pB;@hm1v<G^OJCmV1R6U##S7)h%V4$E@IsWCuG!Nl`b*`Ui!1ImlW?{Dou9
zgi#hr1?C{zjK21q-TaU=#=mTmL92$>+|JtpGLcy>jG)K`LxuZK_Q*2zD+~k77Ed&1
z`y)9M1^sh#PH_Jb>ggKzz3t@!Mks7wrR^P(OmlF@!<%dOK(!08ZU?R;dtY7lMmjJ%
z9~wCB3u|vwFjhXWT-OIe&Dr191t#*1Z7tBS78Ic{a1PijCnXS!Um+GIxtoUzZR&Bp
z53Geg7(Grm(s@kFdA9mwooPbc8{ceY#zBuiLlu@AMW5?rCXgrOAYcm<%Qr<yLE<<w
z=2CIP>Nel7@UYU^0FARu!*~VecK*8@x`F$+UKZK4{hhYCVK`He;VSMW)*h__lR7jI
zU@pZyd0owEOi+KJusz6^7~YJ_zi$dI?kO$_zM2hqNU*nK(D7eSkAyR~ZsnY?M;xaZ
zB_7s~F%|j%4!guVB{pv*+bqWOMpZ5hn;gD0qi}X@;Q0*zjmTzZvGkQb>XV0$=O5vW
z?}0Fmd&2_WY@N8P?s|l&M7?HLvZm4U$oeVQ@bcACKm4k(P1q-!8YxGfu=WN(S$xZB
zqdUs_cD@<y@u%(O_`SRXm_j~VStaM9v)lb1^0S{}&l2JJ804L;)3>9W0^D1LlEVd3
zSK+o#RV8h0J^9B@1RV$Gg^~_X7-4CnP^lMk)W1q3&V3BFXv3Y!Yf@6~Y1wAgKhy$K
zJqPHY6j^miN8;53c=paFINmEG=X~?{?KpU|aLZs1`sS<pa}nEw_~w|W$B6mBy3QU<
zrfj&v`EYD9M}U^H2_6)*gYa!dXPPzj>Ww4v_((|mW3#&F7%*$j$r9ej1qB!caLp@R
z<m?mKd3Pn%it}OAv{juC#LaRbK*oUp*%xL&*$EIY5hBc8FLz8ooNxylc6*F-@^b!G
z1>!3@MbR$cHpi)^DO`EqzOQ>k+&P8!b51DXVg}D6zgjh@_-kLa4R@3Re8FFfybe3!
z&UZK+b>ZOf&o9X5>}#Laz*JHZ=OhZaR960~z?m>Cf+OI!ktJ4EUX?v<!r?xf>fxj;
z%!cCbQ%Vmm`wPv=qnU4jOWe}^+GTgn{MpNRSCVkXDephl;(0-_nZo`bjlZ01)R_v>
zT>229w@fvdzmnXdT)Z~QiNkSCrAmV2{SKqg-4sC0VtK{Jur(tf#+<#Nev`m`*^!&n
z%kfWN&ImdeS<~Wbo6-60xT3F3lJzwnnkJ9?aS9#5Vb7zXhItyRpVk_LIy)Cu!|M8=
zGxH*o=4M03=QE?&?ZjYXvPw%%$8GWP6dFy^Sa}|4T$<JoP7|%@w}gw+r_OGFC&h?i
zL&xDs3Wm|;JXkxkp^CF`)Vr?(1-}Sl7=MeVC;jM@k4}bmzYZ<me8yOPbw&dB3F@%A
zcDF?jmWeg3CyM@<Jk#jyT^_oSLT6?k36BwbkMKVY9=ikVTn>Aij-@3#ymH4Leh>A3
zJ9#eqDN8#*n)^zLgUEY&>DNe!W#(&e19!cGVN(Hd^K8`@shDe7Ji#`;!Rgj1x2;MS
zX4HMACZ7A9d!)Jl!FyM&*h()@ycxc_qfTaIDZQ@2%ZU0%v0drMbh=lmVUw}3(E0+U
znGl;j637lnUbXI#8hd$x`J<j~5)@0fe&6sUb?tIca8+=p<=}!5Xz**sP0;r(>FMN8
zK}q!R!iz(4hRJ!HPKI}!{dvl7^amJ6FWm}7{5*rC4Oz+_wSs&c(#u^a2+_ImoDj-<
zZR5l2e+Ps8D#PP#IX1$dOSbR*C1QqJ>YPIw%$Ep-tEzf+*%2EJBcLjnvM_~~Jx+rD
za3|dIQit{=R?#~6Z&x&367YR)DWj`O@woTkv+@2<Wg+&G;Np@$ou#OKHW|^puKpuZ
zLTU4c%@5+k->)%sg&RM3@lRd|8If&gL7x~*vdgD^+kptYbko_nz{w_TN$Lk@GjB%7
z$X%FYQo7-obIFZ<{T_~rQ^lt96kMe69^;A|lI%Qxf5#Up9+0@FLEl_Tl&n=zUNfi!
z@J85kopW>tEmKHz^zw%xF7^>^NhMX%8OUHCX)4Ml`F(DyPk#WCJNlL?tO%UkXxhfv
z7BpqpUyF*#ZY&7NFlz!o=34Y^b3mSw_W{U>A&en9vbWv$f$Hh`n70#~=Z*|+jw{%+
z>@x!BuQw$n-)B!g)Jh4n7?V_X7ETWZYxIBYl)r~el)4t0y>^rM_!La2)l^=PdH1;v
z>d~spYMQ50RAe+hL@@3%b5s7RU}eY9(DS1iMEPbFLxv1dFP^?~v*q!GcNMUqP2#$7
z1l;e0lMT4N-+`5!9zL<RSJEkW@7JHwY`v;fbFKUAp^F50!{paHHis|CiWx)2N6H!t
zX#+W_ceE6y>XcWl%dE;fXn`WVQno)w%uw?uuIiO+!*fnETYkPhkI6-MZ<{e*yNX&)
zfBr!_*iyE{k*J4*kKfT=IdPMxzc)WLBTUQ9_v=H<*yX6^pqGBHlUX)utd>*cRn$4h
znk8uSOss<7!~E)a1;d%X%CXzd_Tao<IwPN9W)Xx*J2Q$-6^>q5Ih~)TmuH^)=ok_A
z?3Y2ds_(s^+pIQ8a^^d|t{uAuZ1O&~w+XYa)(^IRzFqJH)AgWfu~MEq$t#yP^;(f3
zaMfilL3$yH>n7x<VG77H%3E*pSXFofC)TXm*f=WA@0}B>az--)4&};3THt8S(1LbS
zfA80RL(RPK6{VvA;%{><XTS%Vjr7kH${A1bv}Q?*Q6kjwYZytVl_={SnQaLXRSg9*
zUuI-_w4}cYOtV%}o@|ZXQD|n`RKd3C)2~&YZJ0bqt#ukbQ*4$qBu^=yckr8?_=O%G
zYV&yMhhKu7b+&{(soWTRc^c;%q;_QZ?T-d;;-M-wTgR~R1)*#F+17Y2nSFL9b}Dgy
z!B*#%w(FI%v6`_92|g1pz7Oc9=3xicVhWM!@LOx)u&(ZE#bKIF%lBsx5Hfqux-@TR
zp$sML=NG6eCihW6TlPlabDiXf;BUQxX`3e#N~?=yfTF5Yb|F3Ta@eW0j96ix=OcRA
zvW=!HL1xdR0|Uy6M5NZL&q%4~<}nw-f>zi3iG|ndeE(qT&$~9oK7V(*W7iUE@v#;f
zF~me3PwQ)I@#?AOQ~UUj^Bz7g%bk0HW7`K~Y|f*?6TJ@;>xW7>)`H2(lxZ?$Q657a
zg<i0IOe>Xvn_l*L8eYF*u`hieCdcp8f=oOwy|rV{;eq(ranBC@!9C)JtVa)CKZ!dD
zf86icUoQ4Q7ufgo*v9F=gO#9ZqZc7hi;I7(NH#C*kLjXvpnr7ce4aUmmfW!UwQ+(N
za`n%P5}&m6j!HN1Ebk-E?wuXy*b07@Cmkgnc60T07<SqC04Kxkz}n52gq5C8V?SVu
zDdEH}!w4hd-InpTdG)A$VMhbCmg8Q#hxYw6q-GdLDc_{x?d3`w4{kx9O`bK>P4?pk
zc=mJ2DULkn0?gT}h8Er4jV3?%p1fD@0^UT_pmqr4Mbxvvr-}kvf${g9q+SFM$3_9A
zaFx&%x%~UR6=u{Wvu*3t;@;|lElbcOkA8TUf77^(&&(SNf0fYST6{Q52JHO$G1IB<
zgc4A4U0{eDT5=A`&D@iDn+462J@2D-!xFwvt^VC&!#$?o1-41NnJZ*eRUqog`DJyl
zrUmhZOPN2(n6UV&5=@HX;p(OB_OWc<&V{wGp?S1iEH$-0UGSj=NcD{D#1j#T#k;!M
z7=Z)|GV<l1S&anfy{Y%xo?;DBd>!MSHK`wEr9Yc%`xHsVeKs(oVygCq#rz6mKdh1z
z(sur}2?xcrm7iSDwH#YHJxe+Kf=*B-XP(j%|0HMF-$uPaoWGY${G%Z$@aY!oW6cf6
z`b0tQ4J$otL2P=>?Ww)-Let@08S+hYxU%>^nU>0((Q>Y%@tbC%Hmykw?XnOX!bm*F
za3<oC{*p|$t9^)P>nTaxu=sT70zJ*9*RJIcf%ZEA??|`<&U?}p)>l6O9`3+}snW+@
zE2d8_mGopx$}XTX15=KtT+N&RC~sLVdp?bk%^AKVeJkKFyNB?{56x4X4gB>eSIrL{
z3{$*Ss1_Xb9_MY-bV@#a2i)yMvDdN=&XmO`Qz7xhzJ_?-;fehx!)oh$I1&3no$%x1
z<=C{!z-jdUHK*v(AGOA1JbC*2&*fg*c=qNT2UN^evJbX@ZEuCiC{)1p`OobAyf+&Q
z^=-kA<EH5xnGlC5N_=0&n2=S8Zm!~qRh^cg`n~mkDH_aU4Y2|oO>$=g`qMlosSl7G
znukBcHpB`(wlm%MK7WuXb$~S&$JJ?Tnni%fwQQl_d$toRE2`t0@sSS-_n`NXE@GRf
z6#;eRT*)G=pSlV+WcPxEu-svS%csc{Xyz`US!)>354O~t%UEoWZ+PguH!62oUC~G_
zQ`}eu*4o?W>+gAOK34)R6ZP?ufBPxjm>XH6`a3N5RB?ZSO_(qG)Rm+AA#&5>flfHE
zw~-dU!=r%|`Z!NBu$!_c?3M-liuRzwZgWng*u3N6L4o-O`DZd+$zOW~G=V;b8RbTu
zg5KI0sVm{jQ1RZIWb85OrI$O?8!Bt3oPQJKjsrhc3itS`zmoSY*k1o*jw0(;1XlCI
zaolW2FevS#V{uu>XsDL}&1grccX}RA1jkvNwzpj^;e5}OKJuT)Ir%fTC(_^Osqq7x
z&}f6OYp=_GQbXDP;OMFAq2<{Ha3NG2Chl7uUM<3U_qzB36>a}IIcX*QQ2N<(RXv-}
z0e1{m{BN#=m-%VFgL}LjeO<YKN~_Wu5NuaY;qo)hXpyjc@YHATga(1avmf`}dv_+o
zvLr4Hl%sH_#pjtwlf(nvy*dXRjQ0O5KY89JRAu?j)#En5$NlI3{~-<Bfo@B6oyXMw
Tbo^`gIUPeilk4SIT^{}qP)Hl1

literal 21698
zcmeIaX;f2L*De}6&{D80OHmZC$|$1J3rKHQLXbwK?*fW|NGD)`5J*r|%92I{(swG2
z5c)1a2mw(rv?3%l0fG`h5=bx@0trd(Ccf|YdG0v($Gu~mALrb6jUmCk*IIk7**x=E
zbM5fts-=n4FS5UYKp-iI>80x+(6(?8Xv@v*62KKo%F89-L*nKYlS{xS(AF;EP{7BI
zyQYpIAdp<_#=lL8Gv7Qxpd%p2rSmr7Sql?UwVq+Fb8BI?CFpY(wnL6QjFmpJ=LuTE
z$Km#otrxaP6cp?z`}0QenXX-NXZ3#dN9gukxLx4CaKFRH+4)jt?8hsV{f^srTsXSP
z!}rgrBL{xpv}gN;aML5j21DyXmKKZ2+?=M}{K=#!7Nd>~UCXIK5vamKmC}5pHBz9A
zSj_+Y_+O)e)*hCvq+P>gOHX0Sf@j&fZ?Jp1#U@ZCenlC#2?TP8i6RO2wYbgWCcdPF
za;e535NXm=2asjKw5X0JJ*}u*r3#9cdoK+If!r~r_3h#P^`XG{n9;VK8xpHs+YH<R
zfuf%TU)ll!SufGVqr)z3TqfVKf<ZY)N!v&}NRlNwHWiq1H_tu~%$!{!hG{3T<@C{w
z?G?t^<$<hn(%zE5ik3QF3jH0uiJn*zW+TG$dbGK)4>|O4I=_VVrZ0^f4Cjo&6D3W;
zJCsN|cGRJT;i=3Lz74n3vOJ);#X$hC$sN!y;o7@VXf<IM2^)e{E>7CYIed=buM2l9
zt4rE9wm=PM|JGtbUF+QY+UNwk&a#&Ts=gV@B!o&YGnw}c7lgtHTIGf*2<@FGWH_80
zuRma<e&qw$54+`N4n8eUwF`5qTp83~uW9sb)5F%Y`<KsgTKyNqejNIcTOWLGMUwQb
zH<Vs}>?-12Bp#<j*@sKfWzBzOJzf=T6DU^~@$7vUrav%RuaV^kV@eK@M}~_s9yNDw
z58rKvqAbke(B6K*i!mfe%7`kcl?Eruf<R9Xy9w-IeX^Z|vQdR1LiMOZw%gNA8!K0o
zuP<8xlj=V(=Am26o2K{q9!BNTcVh;zrLW&J4N*cHq^f!y5->K%eZr2?hI`I<dMIuA
z$?Naf=W@+fR2sE2ba6`X!eXUyK(0AAupYOzr#G~L8CX9J4}_(9weeqSqU@VmP><@c
z!ICVy?_#^_za7{-$+e??JZ-LD9`X5Fhk{?I1S71!lT{`R;>>KDmRU4)4Qxf+gbiNf
z@#pD1(vpulwRXz54J|Z0T-+Ycib|G8VMZNW5g3mQ{Otwy>mFUFR(>{VuQMfqj3;?w
z45l;obp-y^ihCj049MP^P<dhsU+B0!B3~5NmK8(tuuoey+}V+f%_DFmnxFRh3xaFh
z!=CHgi)K%FbSx3D5xJ?_J983iv9DvBJ@gQ5A^RV(i&WFN$<GmoU%PGiMq24#n^<9`
z8r}m}TFRX~`wV4z8pF?{7*gRCj!RiP_ZxWQqVnS(J@-~l(+O=wj6aw&h-hmb+~0#>
ze=tlK0Bi$>4*>I+Ea%v^h*lry5^B4+ZVqbRWvZU~86FtP@?chtvJo~+e-R^J+lAk4
zo9nE`&Dbw;N|>MB#$^&L3`;wQc-ufD$x+<_KoIHIGBUDFaOl4_O_MN@D8>U_4}YVx
z9&LCX9ijAayq;$pKCI$~5Lfb4``bF6q)Wou&uQy>tO-ew-afuuf^%<_&bM_=h7;iW
zlnbppL9Ks2g__rWJ$5VCZHB+Ny7yL?>s^*={pU4b*p~;0T&MQ+x;RJTB)zdWVPs^X
zd|ux_Sm<P4<_3!PKQ^@u<o>)uxgm`50HIUH#vgs#QS&_e0|G-WZt<l->$}8~hYGhH
z0!9DDJkfcuv@=y^+<CEw;@N;~!z0RW2rnlb3P%q9a;1n2=&FA2(q>TQU}R_;-rELI
zk9q!j6_6p(t$n?-d>M|w*q?3?C6NRrg5@g2>~OVkh`R9rhhH|Sf<XGc79_WdVAdoF
zP8sR`6KkX3JTs|F^4U3Sl-Ja$mm9{Sui7&44ZJn_-sP6Z`dItSnuESOMp>qS^Niov
z5xxmD@&p;sh8K}f8@Sv;!HD6DrF1}CJ{A*6D2m`n<iO|;5UIdwnG!j+u;m8`@A4bM
zQ0`8U8e{{?LSJ3MINLXdVZHQ?QO%={*jQn9xLeH>R}y1or#kUP-j_Ug2bsr<_cD~%
zLr(R0smkH*Zs~WrH_O6Sum!Fq)bZAuk^qOhtoOY_=zan67LLCSaGhvkL|~2aERx2N
z+&LRLcQQoUuBbv|Ze&{sv|-ATK)5e#32Un%2g^BBuB1V+L?inqyI{YXkBB<LFsqb#
zMgif%c}UkZf%gquSRy!Gtibl<qVgho(ZK9!hxIqsU993?zhxzX`AB(ku?d}MC-Te=
zk+!LDnwb>Rl}W=H+g|Eu>q~sjA$1S0WxaHBZBO%<?Kl2jU3)QQ!^LUa#gj;D>j!*J
zXz^XXLVE4QPx$PcnXSp6moi`!l@MGzS9R=EM_WUr;TBK(zZhmLGG##S!CRYwG;#}T
zYiw<p7cr+di^ua)l;>}Iq9#i_6XiX}B{6~JEtPF^;|_-T5&g0q!ke%lOs;41em9>`
zDAQj1ENVkXX<6df0M)m3W@ZmWm~q~Dy_{~(eAJ+5H*9NfmugR#SUBcKSsWzAU^?xn
z!wY}i@jjz(zfw)-kZ>7~$eG^?)->gzhM1;2JzP^U@2QuG!usVJx0<o_!e_?C%xi{q
zO>ZI`U<9wu)8l)@M%loI|7ml7y>faZZKnMlbF_Sh+P(>N;Qfzu2>?{bhN6IW+zbf3
z|Fj<(&~MH0)T!Jl=bU}r)tF!xd>M9)^EW+>-e1x^i`obPkb5R@%SrCAi@lAvygE~K
z_GZsgQ?(vE69|5w<uxHV+_J-ClQt6wBjzY3?jST5!>o?S18f6uuRE;8l|L5kOBfQl
zA`{pgy>$wgYMWTzS0Q8_oh5`i<0Ln_jTFd_FSd{F)Q?>Gc2w^$z2%PD?2S{U%V|f+
zjr^2Qsf|A8j7L9TUGcVW5FMQ`YKVIOpbqJ&#!R2C-?4Gmyf^3d?i)!e6)I`NyGw-Z
zzxm!aD4o@H3zCVwBjX0ic9|zd;wBDF4;a)oHH_)MbyBq9Vsfmb?mXmxrk>5&P^%Y?
zuS%AeA*-5#M&p4Q{oZ-&H8WOL_c0X)7sHmy&&)pCD=}@P7Ld8qb!-uFc$#NL88HUw
zQ}KsHxwhrs%2`l>39uT!j+PCLW@)?$bowkTGl_)y^!(v=Xo%YIIf2Z2Pukb}_G>SX
zNpGfS>>+QCzR0wJeS#=*O1%wzNAYT5qn@d-UajGw1<z{0XZQcQ6o9X=De7ey_J&p+
zo}axVYKG1uV-Q#^{ga<Zs$^Yatj-{Ij2{qQtBK~OJST677Ezxl=8XI$<666*oyPxQ
zVibG=$P}RZ4+p$Usz<21=+oMb<Q!>HPfIhgZbNm^PikVq7y?I*)hx%SZ2e}{Tz&oY
z?v>qi!q_cw8g6~JBOE))$Dnj86o$Gsu^8kAva2LVQfKh@jqz$x3AaZgPzG=MsWc~V
zDLOYGSb5{R`<I2Oi3kP%Q1go<tY2`MqBQ-KcH@5Wkf6<zWnm$l%I9RBDdz!PQ1zU=
zb>jvQoBGOuPN8DwX_brB{2xR1zuD|>K&}Fsd2+Ov*SWvi05hQN-AIc-OFOZVmH-W2
z+Q=<H`*+m;XNv#m;y-@zpBVYy4KMg96Cg(D+q{+=KCT;h2D;)c$y$lH%gM#`+e>10
z+ZfwsHz#P7W6E=XfVRr<sR<+15+fJERoK`%E~F&Ye%OwR%Wv5j9R1|CrGP{h23j>G
z6w>2K6*JyqJS}~$7Q~RV7j#W67hx2&DDM$0`Y1_emW!;6ututE3~iO&{u_33um1YY
zT7YA=^Ao&YGO4x%#|dl%BeF*`V{w*KBSzf)W7q|W(EBK(H@Wsvut(}{6)hOvBYGzW
zb#3ChtII?^NvgaJPD(su`E|W=&CTlY4Ipi}XY^r^4SHUq@ptvHb|Nd-dsBuXj+gM9
zeA7V3#@JZ^FlW%^KY_%Ocwh)s=|0{@SIiJ>;rvC?#AKGt^{|u&MW0qx@ADr&9|n?0
z;k0+j&XkF*r}XN+T^O~uSB$USKh48=iHx^~f;O?pI8mOkOSZ%9`b2TW`5H}lV2N-z
z<q*3ij~5uf>^7_#u%fzCLH37W31v;IU!LkO_h_b0>?Cy>3%@}{yy4+>Z%woZMx~L4
zUSUy<zf}7T?X!0oz)f<>Ww~>^PNzqQF(#V&zDZ&f%9vxPcSS*A9yPBIrR-xPUq&pO
z`WjXPdu)@l5rFy~Ud0-(f6fl+)9nt3p_gFF^?qMUV6HFsvl^xoDCj!J-2NzLNbF{)
zyX3b&E6TW|=ka9GEqEpGK0RzM7gZXu_P3!}^ZKn0n^=c37JGg_AiAg^KNRNL*-R-Z
zvS;O>ghaZir$T+hkZL-14&m2eo}6?#3S)WDXCiybN|F;btjkTI6G^1yepRBg*T#I&
zja6YWldmIeYc!ovMZ9|D@Q$JN{_}#5Qayy?2y<BP*~N|dK>F_;J~JFiS1=V)Eqreh
zzr+_KV^@^$y|j3(H4phoVz}XD#3c?kGw=uJQ|kC7-1wTnyhhVY^^J<cxPBdvOQPBn
z><uH{%~`g2W4!w+bOLW?tJ?3zAdz>)E5nVnJRimt@M6|rT)HEPP-2-$MRlz=l}9*o
z4w2?en4c47-8mfqt>Am9I*VDv$fxYu+zMos9zNn0cDF9ePH>@S`Vf*3;Rlu9D9M5<
zRVYC=Z~c3rXI6UX`E<z=g8Vq@I)_PrN;*a|#J*JA=oC$)Fl+7-obcrl?lpN~U-Rj6
zCH*$6vOdg;pEppr1)6pB#3q(dnl&QeY@6;Y6Pj>d(uK~G`!?>iZuPfs<wtwrLMj47
zXPNLAguRVbX#%FDkyqD-4=gV)?i<O`7B8{T<J6W(eOs!v0M4=R?He`>MY4QJBHM|g
zh<h+cSRU^#CyU-gk6Etj?CBH-t(sbBE3Qbdi1)$^2cr)8$uR$5VRBq1>LMVVd0X<@
zEzVHeTv7bEcp<H{#X~;XNtuge!EkTrjP!(q-~uPN#H!4r*Gif`s7;a+%PW1xt`*^5
zBlAYeb#&qOqi#&5PUUP{ueLaGR3^pmTapjX8x5FnW3K4m)#)18wJ{2WIdE!9kW1>u
zgw<9}G-1}V_Y8|A9JvPAx?j#mJU57Zn^k>C+~3`!W2_BfzQF(s=rG?bu7KpT%+n$%
zALWQ`S2+zl2<gjV&2b3O&gMZ3N~c1U-*ht{DIOl$T$ONpwfwxG9@c~4=OO8)c=7dx
zUp%%o&+VosmU&EeO4iBLi4|Mg4n#$a1V@UI#^s!kTKT!N;%+*Htj?OsYhnC+d03i0
zO;!)w0EwS3vlNEBfvE+O9EJEH@m{jETn*6IXdZGvZ&vUw583&1cY@X%)p8Y=_N-2O
zV}sT8j^`0#c}DgDN+CGl?=7vBkqE_>t~VBxNLNb2q+9r5BySVCSk><KBRXH4RLgQ~
z41<MhigUx>CA)2~wxWh6?w(~~Ew6YFU%X^svavR2SO_PLKAf;BjH45K6a3F=j7Ryy
zn2}=K1~JsUTAg8e5tgt}P6_?-zK(G<0(XiYTatO1DHh1x{=o9zk6#krK+h5^-&kg#
zL@(^5qr|ryipqWoj}0(=^P{NTRF!!9hXFJHZ<}hhYtAqU)<KdZDXL_8Se-RoUnn+u
zbhh_GH1`_`2<Gvr$bWHj*?9P+_NOIb_22G_S$s6?fUhJ=$FAZ)WJ^77lx|g0VJB%4
zAuWDX2w>BGg&}*pIa|rgPGbLw-WLbE)Se{4*?nwWtgVq?pp&;Wop9L4LOf{yhC|}c
zM=?x&#g16Hfs8C^`d$;Ky&D~(w*fYAGk(*5=;r}R^x-*9g<Y8Zzf!H8x?QU?M-@XY
zXF9st8s2*M!=cW;ZFx>^yw^hBvE0AA#K^(bUJwLpmmP-lOa<bnFN6c)SYcKwmIM<e
zit*on1c^k4!7H&+qy5j2r6+N5wLcc<yAg7OrVR1W%F78qH2mKinRsBW&-==At{K)x
zn8J$IxQfypS&nl06~=aQ<F9}k7|=rVtF}y9V{~k+T-rxMFvI<fBD=tYjX$(2=ihTw
zmO0?3$W$8_e0uN=sP3p$xVbJKtoqmez|!b2s~Wim#eQP~zR4bjrO(>Vj$g;$gXTIK
z2Iv3l5s#`iPny8a=HZ)wVo$nO4}y}19Q)bd`{jpJ-vqc$H(N>3O%i_&5Mf>m?{9>p
zOb?%zhy42U81A7Voq)UX(<WcVf$u&H7!HrTs!)>v@06lj#r-r3UwA%>zK0v&tj0Pd
z!Qo&2cc1_xqB`?h?#eCa=)a-rT^H~FK)APn#S3D1FGx>f`Z0@B0GX(2JMb?D)Qbb)
zr6ppt*{HFpBx32L2iKPB9CdeTBGKMWuK0&mTyK;{W9i4_j7+$t^mfu*iT>^m7wCio
zzN%f-0};kixV-Q~Wcve}Q}_ZsLIh_Dhd8W0`#@R}XG^d#tZIV2Gx}kjN9tQ9OELi_
zAb%C#+!O$CBH#TBMhy|d$R94is11Bd7KC#Kml>;Gb8M!6XkU2^aGV3Q%ayj9SRdm_
z-q_E&;>mDbBPM6Wzg1fNo6KsF_ekx=ti)CJ*&Zzw534){ED`FssBj}&{ld+S?$NGo
zd!)qU_G$s{_te?hAu<wX2_zMjWtPw%#xac&-(8ReoHw;RWc?||-cI!mvJ$A>?mWu*
z5k{v@GyZ<Ov5?7Y*>-}U=|{cdF}SxH{Zobxf_KfxbFhKm5MmM1vOEd57GKBk4qjo1
zN4q~rkz1NHc#~UM`vaMd-yQ`r=lQ6&pPIzeq~&=^HYdss*{ha`@g{nQlUFN(K<|y|
zC*bpc=<>J^)s$gSq30zvy<$^jlZfe4h(zV_W_|`&H_~GNplhNtW@m|N!oNMJ5(t78
z8~iJP53qjw0iJ33RiR5c6AP=4>dszuwU4UPJNs!_EPH4+;OvR<|BldFV60fek*)ua
z<pmG?t;K7koabbxUOqNltjlP~LBKby>QMQ0b~U6;8XHrz=AZq60`9K><mShD>H87N
zBEC)WjY}u5M^)=N2wv0Q(t~2uE3y)Q_?H|2RU!n8O4pgqt$5Q?#QXk>2kNEX>xihD
zJT9E%3-FfzcG;t{37GP7=JlvIj(2g_8xSA7OHfV%AD{x)U$Xb-kP+n2hv0&7`m9z@
zBh0AYt8J;~f4Dst!|Mk!<HZ;r?!QtJ5NU>iR}~yOo1G;%9zS=NYbo_N^q!YDego9n
z{yQ`BTh2$d>CGC3UKM@*IqCxs3=yE&)sJ<<%Am%p>xDlXk80zpUtv{lWEW+BN&#0{
z!An?6v!0^@Ae;JM-B#qHK4ctz(^qCRetHP+%)ycTNiRqym>5z_i3yDFzDA}GkmCQ#
zX@O86`<XBuNzRzS926GIt6!@_`<CpS3lSUJAr_z$XK8y$7fU*|^i#QHAVoUi8+k>&
zq2GTA6L-;e?~!YcJzP3zNXW6xzB*AbW*t@6gftQp$!Lp_f1<;_y4RfJ@|2O{h;A*{
zT=`eD`6ZPBTql$hN3ZJbqu~eF`FkZj`brbBhZVZ3egq^#131OHQ<I7@43hHb2UJp#
z>x3_zv0DE3y8xcFe_?Q~dgAQ{lbY;?_Pg9GJ39!CytmCrSWRlBSjx)FK<FYe7F!MB
z!nH*bz658h0~}hU&<mD%J@n^4>%*v|ebXX|WL?r<dSj9z!5RG7no%ox$n!9U>|E5H
ztHu#O<NvZGhh#FY-{3wuEXld}vt!_?c`ZRPzK4x3D2O8k*8$)!Cx({>>(LLmin{sp
zEZp66>%@)oD>zl{4OQo7#MYPKJOX&y_;~^OzpM@TzpC6&MXBZCNT|OgYm}5I_3xTK
z831YSGO2r(LnPUfV(bs%DtMFhm>3qanfE`iLR;1OCEX@(TZM8X`w6((ESugzkC#Ip
zq~I_jwVVGE`EA-JmNIFLgps69O#iJebMNd(8Lxo;gj9BP<%fb##T{I-n{W}_=0wwH
zNU&3JYfd%p+&0qk+>gD0Ls67-EwdAoo8#80qn{cUSQ8SOUH5}LJpdp@-ySi`kun*_
zRq+-~`^9s*2LMaBLK4F9-UH{vs_RfEA8dxAe{52EH=^I`D&@zqex(%fU#j*SE7_lT
zOVn~6a{OnaqhK4DK1|4P{ZSfq1|EQ=&y!|I#iUqFr#=6&i+H`!_p3IKT$%Ho&=y6q
z=-H$)5^!eL$9VleqcQ5F_E~XS1Ra%K{#z^=sD8jfKb)oUNlz?v=>TAFi=$;?%xabO
z2Tuuv(h7@9nMYT|;NPm}2cC-Zk9B)f@6>u~t9Xi$n;volck}BWwu-0ldpr4hw^%1r
z38p{JYW`nTZQn#?W{Fzq_4`_ky`((s*u$9%;{B%k@Q7b4qSw?zdbDQXviL!vnY|Lt
zeguHbY)6SS4v8O`;(K%xOH%u6Vo-C@m~q8o_=behu6{?)FCM+j5-%YdM!_xoSo_Go
znZzaCD`AXmb#}xB_{P+EKzSwB>fUO>4-)r!&r<b%t1{@wSzN5bSrKF6vV$)s+Z9Mc
zH%8-^b~hJ9%v5Ir!$xLS>?(>|d^Rpdmh+y|ySoD(mMKn6KoyDuC^T8`#DNcbt~Q29
zniflw9pU^ron*aH-H5ogaRwUg$?u@Uy8|BB;){9No;q#hy};=~qRsB~VX9M9R1!n(
zHa{_P^)uZb<8j%6u|^ui7%SW;D+@IzJ(7Wr?9Ewv=*hhRTkh2fBOXf~IxBJpYVz(O
z3B`JX?}NJq(0Kjm;g*%UsIM0lP7=Z<wYD}pvnJ%E!&%OP8Mf1C<sl3=u9j>)hcZ0-
zDZ-fv<u=*x20EusNRaMtkxZG`P@c(I;p()YWlfq!OR|E7?)0ls@3Zl&Iwi@8NhSZ-
zTuyHXP8(t+IL3}nVpnTTI0}?|P?~T0o$bV=y|r(8*JK&@1>LQO;e6SFwYrDAp>xni
zMQ3HT;%GUH^0%+pn0se`_~=HtOKiIT&CUyigcYWNOFgE1uaG;Q>7w!cq57rAYNp#C
zp1=L~u0I~{4}Ye9A}@N^gI#40l)vtL@TW%m)78zJRp0KEGWh4$myZI{4<$?de*XBA
ze8}sq+y8hbeX-%8OE3#Aa<H{3vo5}2Pb#;r>tBn^@iz9(4Y4c3hmyt+ivmpD@aC^4
zHi=VBbi!{x4pjbg;XnESAm%^rAO@-bM8p60XwdT`Z98%Zl3*HagT_OokFQ-rD=3b-
z+-Tgu@MtZ?R-8Z^J#Iu)1+Nu=u{qCH+|bRML_|{LN#e_bR57jox@*(qB8&j8unfjO
zo)08B3r`RqL2|NaasxHuobk7MIJWyTTIV=CtV1$P)q=e^*?-N_JUA3h_@`e?w*Nl&
zITU^#ZDLPAog!K%jcX9qm2%swAeLVR<AZ#DF+><*#+qn}1;gh*T@e><N)0zn&fo&j
zMfL<^{Q?<QH##fn7OLEU_STEV5@pb4@ZbC22u1o3ODD^qjr0>;{_B)$OQ#*90>bWu
zNcW|6z67h9vx`Vnd93@7)h6r(dLZl>{myC?G6_Vn>?4n)onf0o?>pNus7`7XtT<xW
zsC+uj$7gQmeP1pTih0yr|9;dvH+y&F)E1121Vma+uQtvPb&RM09>vA=q*H*$K-h&T
zZ2okzdXJ;3u^HPLB79l4OSS3iD+As@V!$c={rA4Tm%(Pwz|hUgF^nDLPF)C6x5l_w
zyDJ;L?udTv^x<h}b~eq?-)r@OO!E<w!$Fra9W{y+M5~=wy7@tg2$z+G0fL`gq=-*-
zGi#A?xqIKYQj49<iu8{7GxT>rQ~J+nUnhB!$$9Ua>HCA=Wvmwyx<qBCzGV~TIqWVs
zGqWuXrI(*IMiswrW~OPp{DU#q=cC$+;DU>4lVuk5v=+C96JF2|lDp*%guZTkr=6n%
zuP#Db#;-$-U(mjX|Kcx~oksfrHun3Y!WrD?x^wMg3$6$cVx^+TITWfe^a{{lyP}Se
zOsl7^cIY_upi^o&x^B;CpH7uGd?_h!Blop|=gOLX^-GMmm2sC@%>?iMT1M3-&h7ue
z7y`R3lo1q(QTspm?nj{4?~O4&H>A_XQ`k=Rhi?6v=N+}~jP7>s@;yqlcrD3l(oLhG
zysK2--{GUj^9!19_a~yWs5g<Fh2{ZW5shHtU&^y#7tk1Nn!;kk5#nyA9#;O>He5mr
z`qTXaDSxWR#{}fL+u?sM!Cj9L<DI*nt}Ix6@;bB9kgR&cQB|b)Byb?_SR%yduuf9s
z@nav<65Ep^tGgIG%96$55M2cXlcU7_(SEO$&WBc(?BbJ&TLxZ>DNv~4#WQ}1nn{tj
zz6OeNXsYOS>xgNI<7<$vh7X-Z=6?n|p<@dTnrv|PXs&8S!$u5(hM3v3e|AND?yEU$
z&dys@IV-+OB%uuyJ%iskZpKNXo7IR~Si*;m8?8+mm)h?f&e14m&O<CM(nke6rD=}v
ztmpnO%jm33ng>4Dzt>K@_Yu$Yf6R}MHx6M`Kx(N+(FSLTThLjPd_fkN1z|r1yScs9
zPP7Pa2V>0u{c0wSH}gdCXqS&ia^t~@;6@A8T+uVyemp@gg@%C`Wz*y!M$c%Sn#n;{
zXic<%8qpP<l|@?uQ%%{UV3sAj9Gu$sOtJO`E^*Z47<^*aym1aKKsoik*O(r*Iwxgx
zc0kS^!e&9r9R-W|V43p5v$d^S-a5*--U-v-BCz+dMiX=<U~;so;u;^!vS2>}r>a&;
zkvl&tbqalya{2z~@v{XvQK~aeq8O#Q2dHdxDq~x;>(@AN>ao$R%I33+$onDW<VFAE
zjnMXH`SBwa!fIn;`=MFH9kXYCPC1fE21+ecH~FPs(xQ5j7o}7ce1j-whG!dJaB54n
z69eFXm9N8d8$SJ3wS72i0(dcrJCuB6yw*Q5{JwuB)F^${e_iqVgSzPkC}_l!nLev1
z#OC97cG+$V=XYxs(%?zSPro{{Bc0mWZ~wG|_589F8UteWVdH?Q*V1<xQMQnpK!G}q
zvkT>(^^LoIpM|0JOik!|?N|ypz7~M?jU#q*Hn*w-N7hdsh%_QDUYC~|O$vUkHhz&-
zno=J{04rFqo0Cm?tSp0XRqU#P{%UxHNU`306?-MP49t(<S3YN(b~`F1DwFxa^oItF
z4o)?gkU|@?&FRcH*zcAaR)h6-NU@c#fkkucm1iLQF@p`e3;=eCRn#?}(G)C#=l+Vu
zGF(DJhpWfNHLE!_EoX^GuNy5R@n=sGd(j3)MBn|RJIGz5kepnN!<|ys>DD4mf?3zE
za{WXy?^}X8yb%g=sLr)ykAuTpVCT{6HzX9<s`+PRUmMhzaeI?5-*7a_oZ0qA0&%MF
zwk9#NBVS+J`B0;?)raLJuv_sbqx`bBZ?|I%yci%>zQ+SjZBNK4MzK$(3HE#7LO-Nh
zXLGabTt<kuQ-1G6>ZemRBA%6E;~h)^<)D1Jh6@p9=lX2lLFB8zal`X_%Vj`bcNf8g
z=VcxzvK!yB!Jh7%h+X{<>d+!2ed=ZIig&6*xu@hGLXQ`su+DtlVza?puSyi{=1~=o
zG~S-T7<p|A$5}*&h28lCs7TR!37#{~&jbZx8)wJU_xpt8+Td5J!JT!^wQ|#8n&G)d
zFW8Sd)lVr8tY8S+SBtkT2jg2!yB9_!U4!qT-OLWIufGCUm^J>*aORwTp<@wzDNx|6
zWO%+qH<@;f#Ns;Iy{vEZF5ygf=C2{^kZ;cCWRiF~-YR>})Ho+Px+5*d44Q5Pc9qU=
zr0JICx78ozhqH#X(FPcvV0U$0g4$ijIwT()cqP~e9d^9Y*({Np&HU$%Aa>{MOvEPl
z4>ur470=Sl-aXyk*Cl$~VgqlY3}b@vmFIcZCEt@aUwP^js#?RyA4NtsnT0Lyn3uj1
z9PnagZ1MNK<+n(krSi=ag_11hP;IY=z)))@#K72ji%i5)Xs&Nxw)dnq_cDp0t%+ox
z{%3EJfo=hpzZAv2pA1(D$X+>q7^;Zvb$2r!y?_L4a$Ppg`8eDW-5oO1F@u31HHkZ<
zmJw!VF+=3w*|f#x(vu!ZkhBEZu?kPE<ZkH;Lz<tAd@nR*=0~1tN~cLG)jWeL#|Vu6
zoS}TNvRN~P?U;GgVym#>)FdTCqKaj;@yvy#cnC97<KR|?$%gsHW~(Lxp0&-bYF-rW
zomw;+&eHF1_6G{Aj6UZJjiDv+$%+#>*`KE2tH^bINKQ_$N_J=HM6Okh&WwR*b=MbZ
z$?Gi#9FiH^-0gADt`TFInXdQ`$CQ%(m<UgZWPE!#=FoSzCOgd5CnK)EQ9YS;t%m7v
zv3u8r!_Pmp1{S)Qx<#4slF;iOg@jJ36}vU1`<HgRs2=jBNl3R4OvuO{b$->oH9RcW
zkzzm|%-IzY-g5JuXj^!g1R!WPASlbe0^!ICj8%k(qq#)}k5NJB-G$?tP;3F42}WFx
zz_y$`wyGPsD?5pHE#3dXgT*Feg_WgU58l3JuQ`l07KY$K3uc|i;Fr1<IPHof-AU^{
z`%$}Y;bfojf+{n$PE(GNe9N^4p<39|BkwMw3B_z7>2Za=2Jw`pP$0P3rPERA2Sh`r
z1b}m=WX9zef18?co%LUKFcy4<w<NWlUC`Pzncc26*QXws$#0^=5+RMD`o>8WSZIny
zq@;alco%+&qQS%S-O&ie#;)W@yM0qp?;aXJvqSY<0K^C_F!B0M<S0X!Xr@-FTaUX!
z#>yGtWlo0Y#HG`xwtxF_lB!eW_^UA0T4E{i(^bMBgR0W*djOFXvS@IK<&}ebnU%@Y
zUn`S?aPm2{w|<5yOv045Pa=rL)Ue9z<mvuFY)kI{R_^g>`x0|kxo%hroH9-*g>v(g
zpM1|4dLojaTk}aUYg7@Kmahxt%;!0{faBZ3b*v*+jJ(?X0lW___#DVI%F-~hvyVC+
z6Xi2@Xz2@G%az{7e|54ytT4{)Om7lq*d>J)q?F{i0P$H(unfM8?zf*e%4Tlk%_qPN
zy?puTX6)GPBc;w=7-08+=oy@?LTYPlztjxBptos~8PeOh+(VgdsfutFRjnr$#I;4f
zNaj_l5|yj#hG)Fcv9&fU6I02_@Zi~bTinS*N>)KxS!IjsUR|qim+t~5cH-<>;rs=d
zcl`Lo&YR8pF@m#Y=XsyM86-llH;(PP;FrHEbD*EKaK^X6vWNT>!>}^N=^PuOT8Z9m
z>)M%A%23x|c;lCSx7tT7V+Jts+J=d(c0<+<qn^>ycFb=L$Mpg>J_FeJtsg!V;eDLy
z(b8<jCw-05g`gT9W4-SMj_8+`-db*iNmzyZdDVYQb5#Z98>Fl=MkCZG+*&eeiRkt3
zU1mC&sh(F?B+r<lZq+kc)hb8Eez~wfBnP%pQ)bVv7THxGF2{V=Df#4fHU#oA9nhUg
zapyD5gFO+yPECyN_W>NQ(|hT!QB`xusaA?VV9!Fpo}HeII!dia#Hv$Z%9Hlc7(*p|
zu3OT;-WO2@GkP$`q*zr-h{i~2(V572fHmw1NT%(!-i&LHe?OeG9y*&j`d#T@Ps(V=
z1_lku{MsLQwLH^yzCRmYk>PuEdyqqy&ZHo6GHX<}oL3ii=NYo0=$5_eZw`Tsh@OP&
zyM2~N{3o?v?^t5GJgtY9=Hh^C0ewy!hG%+w67uR(GvEzC(wOxR=`V$bxhMEf+<ff6
zXmd#EqMCv6%#Oc5^S`66upjnl-x~#hr=M<laADZ_P<|L5r1m}sjJ>kvwe*im<DRvf
zXp>`&5$)^szA1gym@{tvSIem-pNuO$xAb@n9C>G3&G}Y0?75QjlvM#mbxO>~s@5lF
z2O&PbYm%>d-CRGm5>pSS#2s(NY1Rz@-bV+qn!Bg5_@SPS-~|keh~zXCZkmipcsy}<
z3V*&U>ig0|LMEgomo^Fs(D0t5z)(h*L5u;_=vWz`#Dj}hf)kU|%}ug<j5F8=KIB)a
zVKJL@4V*iP2A&tvSHQXiGsN5uADKGSU%$Ko=axW4T|L8h@vpjG6Z1HVo(u#t^J>Zs
z*Tm5qCbt;oQ@AxRk8B`B4gBlir3#xSCpN^YHO)i>aK`o)<{SR$%xDid^y;&dl2rqV
z<%rTv`|Vxx#r?*XWUW^Ir<48E+-H3Ng?f-+!LIbn{#Fkq-#EgZ^SYYTpTG6l<u&}t
ziN73~?`h34mpZ+Cr-kSq>RrRit~s{3yy%Wq{YuN~QWoXmaq_pcGAUyo3}QZ3sRH0~
ziZ;cdY4KE$UsyVj>wKPTb2pKEsX4^Cl~fy_{!DyY_R4BpODEC|jVSo;FhQh$KB%3v
z9;-g@q6(^AXj1av4kgBAHFj<0xEMOezF4(EJA3{5tkJF>de-mw+6yJPk$TLxM^G)3
z^x4KEO_%Fe>>`<mDP>aJbL+s)AKd69A@yYs1gT9_tl<b6DGw-*AppBHIzoJUz0X-O
z-{lN9@sS}uIQxZ0xg&ltwy!eqbSl6*2SNeXlzyv>;u69%e_GoZTd?ar2_=wB8b2AM
z%HbB8(*<O|vfW&_+K+P9+!6rig9bVBJ-aQ_&n~J!%Cp(`?urZmPWk(ie>LnxZ7(>t
z?`z(M)sKyt!d=!1loXk;tEejm{&15*)HFBKmN#r}ihVwMeCNDsQQ`+iqZCvpppl-&
zp3v;2rV81qdsk$}s{ip=+2g@BK6`@_nC3m_;E*|IM;_DwsLhpVEdO7`GxHXs(q%A(
za62fs=}VQ8RjDhAw9RLr0ZL3N#}bmhg$Onn_#<Y{DYv*?suiX+oz31mmii*pap|=3
zqiorLW-rI%T2QVj{9QA|s6WwUVAO~b)swJuDZvSurcssONw9m}3lK{mM}PSVFc1w5
zvkQd)Cm-%7=QK~Jcy~DT=)Z3Ou^MK2(+vh*F}Cdw9Vyuf>RGs`lvuldr)%2KJKsP$
z)DlgwVDpl9#!bw|C?&oYMWWrz;RZ}vvPr&*DZBB<o=B$RP27Sd@Oa^0Xq5SUQ1CDq
zYdP;4?AP_WU=F-C2Nr30Y7o1f$F)HV_sVq-u5iFQmTT8VZA#N!IcYS6(#3oDQ$#nD
zs1XP>m&Ur@F>H7=hOsz(T`x2%l?D`@6lb!&Ext(p?f;k!>;I~S+@=b_lITceY+w?n
zMzuixuqnH5|8lks!LG`}ojY1K_b?ue%B^PgL;bIX=1(WN<gkU4Uhh3OeXTVFcF-XG
z$xhAf=j2R-A!xj2vry$?h4C}mroEpOCY_}-iz-8$-fO3qmm`ev78IAuu4yTAC+i!Z
zw;}l7_G59*hf`@cAkY`Inhh|m2D@1R+vR@q;Mktf@>_h^x3g*39$Z~E{}I^xJK3$N
z>p|(qoaB(9`(P`KaPsmYJ{~B^6+5H$eFMHm<lvlZUaea@4u3qHYxsrZZDESaOP$Sv
z|Ds=H>z6c7ZwedqADL{qgJ1=yQz0DReH3%EXKx4-R`m@N*-Y7kQI?0WE?G34>qg#W
zE1AR?cz5$5N+TYkVm`{6D{nZBxyRT=@9D)5u%r$szH6>!Cv8h5X6^B=Xxr7r$MfYG
zwDaAkx3_A;-O*1qD7uTXO8Cg!=H%ZtC1t&!>ESu{U)9WkQ`X<jHvTR^S@n@qWMgmF
z3>r%L578C$x@VxE|If>t)MON`K=p%eT%-}0s4n%1N^mm9eb!zn_<mIn_BdGi&OXX5
z?$sh3>!p$hc=)19^B=_Q>kk@Y3tUnafC@%EL|BnL8B-}8O3}Sxg|=TIi=5GcWtFEf
zwa;nB9I{(3?IXH=`R!zX5_&uYLIHeg|5f9+VG(u0Q&LcbrRpNJ@H@|6<I<Mzi^+e;
zlKnFwItmtUFBsm8%AL6^LD>^SNS}Gl@-a%q)6VlU-Oay*^-e`KP5;wfZKl&T6?NAC
zE6N{R<;I-h6z^vPhjvbORFKOlVyx!&VDsR1I?OnCcGIMfW)!R2{ra;oI~2hcZEO(?
z?Yd>+X372stdn`Y@2`4z1lqpHy!4(UTJ`vv0Nk1IVY&!yaEj=SURNUmv;>Z}E=*p$
zOsda41G7TAm3*S!=w0!&8w@a_l<%B=Q1*1F>{hTqwyrlmId950DT|5_cqgr2L;I>W
z^u9)*2!A@qq_pq-L*A5KuMQ6cH%6gTxom2#26+KtP5-JTn;baq&8>k5!86@2yCX!#
zdPJ)Ie8uDu5x5b`$tbk?HIDsl*JM#h(&4Ie(ATGz1unJB6<1}VM^dxlOgO>7v*Dk_
z!Z`m3rwoe|Vew!>y2hS~zwjE_nb(I|=y@x}`nud@dC3|wW$ZHqS%?({TCfX}pH!?A
zWd*tc+q01duKR#Tn3KM}bFHNc&Pe+kbJt`pWN&xbmCW!L;6yWa3)t9{J&`<38`d~G
zH(qp-F)y{e=!S58eqGYnUot$`W+v?V&NZNds9X{VDo>|DNvx!ZDnnfAEIT>#AArgD
z>}}g6`ECWgCaUH<4hvrsJVBi0Ywy0oPS`=A<d*4_TBTiYQM5ckiO1Zt=rBUweSvg|
z4zuNJV2*E^)MmWZpxbFsz`n6X<5N~+vq$%j%nn$y%TvSRK5#Q2MgvoIgrwiVvfeg^
z>zV3sxumkWZ0hYw5oAZhcejwD#}x-d2VYi?-|UO*a3u3b?IsLQ&pdr}oHG+vL|a~v
zfJf>PcTg(-ts`7#{vl|~v)|PGFg;NgijKaoEmbf^+O`DyzzlS#+}OL!f~_ArXM!MR
zt>0TnROZ+b>aCBMmENPm;m~Mo3lwhlLlv^pOU&*($pOudX0JfA-O0VlPzz%4=4J)6
z`QjnkW3Ie%z_P1UeHg^7BGcr|X{vvRA0iz%shCW4?EP)Z|Fz2L*8#_Rw=^sCeV+<I
zt<~vb8%>{m9aF-0WwZ!kd%JX+sjTd0{kGN*RQL!2N;4@Y8=@;Is7w`p=`jv`9}?R&
zTIdN>Q%Mt1KKs8iRHrvL#}<75?w`@mwa(e^IE$>`Gv$9h(AQ#1bEXpKOG8T6_%OJY
zVwdegZmccV#26?T99t}*ygM}0g|9YIHa0&vS1&>&fml0idAP(?6lK$-;lZIA)w*ZE
ziy<FheFg<yKdv%QrN#Y{HQpFuA=>lab1Se@{R_fOWq+kzHaqt@*-y$cvTnv7sYRSX
zA0|;|0Xp?ZOx`Ci37tBiD5!hvc9r6>)q8_4+3`E&l{H&&6MzFaZf^D;dgM7&mJg4{
z5`eAU4U#suz<i98cyazX=U$dw5!Ytz%t6(lqt4v5f53@W2UT7o-5$p{aAlLIZv-u1
z;uh=8&aXE&^cQ~;_9U}&918^5^Ee%{3?{O0+dp1aa;&*mFs|0cHNjtKXGPuWRB8@%
z5^J$m%^L2cEi2l}Q!NhCKkMPye&5+R4>QBkE&i0M+!}ew<snK-sv`VO7avxaJjoMq
zzpa9~mh2ZNsl&B4vn@Vz549Pz>b?RC(*2K_<`7($cF@t7#$R}_d7%=XpmY7Pe?wHg
z{2@UBBpNGyPC@I7sQbWNix3?go(8Z8_eYnvg$LRS{B3@%LQRJtC3Kp*e_6^&{id@g
zwy5VO)e13@QV+N6iXT4VP3zLRIqjuv{HJr^0h7hf>MhNbM%9`OtybJ^SBJ|JW?nm&
zpxS>_;Fb37Um0u(?ejlgV>M)h@(KB?Lvo8Yy1CR0apN*-$C+lT%xst8{#e%vGf{_<
z4<qM=MMtGvfporq;Y84dQ~^@ODa=Z~i-jBvy&acSV$gyfm`+_;1Zs{^-Ftk-Ci@+M
zG)7-My;2Yd*H=2B!vgyb_U-T|6Fsx9Wb*u8P;1p|>_?C1I0{7iO7}(AR*u6(A44;@
zh8vTw@LSYHZkMC6^0MAzGC{yWfwt_vsR>iKd4#6DJe8StQn0s#pn9rRe^KJg6WcLO
z=dszc<9>lhV?HZsCmEp3)}S^8__e=9s`{<C><z!!()^UX;WxMHK`f6Vzh%1Z*eMMp
zJFk9AbKsj#B64yq5Dw(b-$4f_SqSYD7d5s!#O+K2AIqayEmIH8>URZQ^fW-;Z+@)I
z-vC@PKEO@ySOtU*9e%yJzMXE;m8<hb<PSK{rpZE1=>D)`wz0=MQR==a{~AjbhRfI`
zfp8)48S;hy7v~ZY)!Pg@EPHaU7R0i})K2FZIRHy-k$~U60^hvw%W{IE1nB9Ad1DX+
zZBl4(lVZ>P&SM-)ot8{DI=X6X&qzA{DAP03Eo({C3l`Z3jPBe_8Y{wZAc^Cu?Us~O
z03lD(?XE`<tb!pDns}DQyicPX{Se28GxZM`cpH~MN&X&-j?BNIn`2#O>~5YBYs*lT
zO)7lyd1~$cHnwbi54R@1$$2++>5CHF;*$u?65V1q7P4L?t0yH5wDpdaBn-4T0*37?
zBU2W%jC!l-v`~~KN5)uWH0_JUSwxz$=3aso($K?U8pyBcYshjZk%DG(z%^<KIj|v~
zvhAw@@P>%pOhpM$`fc%EK_XAg6e81wx-*Y`(F%49lLQMAQ=1_W&L-DVE67ELW@Gge
z^{O>Pk8Fp^0(Z^m_8~BwB&QMP852)nNB``%t?9F`NxZV6d_zT|m2ApPI|Mo8ENb5)
zqJD5^cd`oNVstA`Jw{To=b&|-gxsg(iKCha%szifZvA9Xj@Iz8zaC-BVkxI`Qo1oS
z=jy)a{+_PwIDIl<VC*!fKJcg~A?G<Q2GWvqiY5BXmgh6wS?`$+3&t52>9z99s){dD
z`n11&-PNa*YgyCuJx9Wa$J-l(RGE3&ws@Vj{Djir8r`>dYMZ-lOEzs9&ne;}bCTO$
zXFN3^Q*4slM`|<cJpGoh))^fJ%aTLays9WGo+<3IR{`1jh7dH(m&6MlKj&8G6sV`k
z!(uo-hU^xji;m@{Z1f~gsgdpR9(yId^^{Vgl|t9LiX2ZccGS8z0AP);U|4xYZip0H
z);rv9?6t;ru>AAi#_6iD_E)I2=cqrHr>*4CjWn7uj6$MuMRBJLn?(rBaGY#R*ufM>
zMJzw01TiTJ?-&m7&I~uN6V6CbEb4Rkij8Jy;E*#hvoz3=&dpy`wFQNq*)VCbXm!~~
z>3*RJ2PuN2EPp+@aLXd*IqajmhhNEz!{vj!`y3t*+cT^V@Z1b7IZLZkHG0W3Hw;xV
zzPIs%c80@@w^2oTatO3$h~km7ekH{^c8tu?bCf)Q<wMY(zP!;ayR!aI46GC^T2Kwt
zcFq;;SlV1^rqDC>cv>gPpbje(6;6CRsgzO6pY{@Y39>(_O-Pk+92L&zm`q?6_e;51
zbAgvBi>A-W+*%4>P0|SOSxW;aek~&yFYi{q%Fnzbc%n>8Ev52xOOXbsvAe$}4e{5E
ztsg|!oc5P`QYD>}Lc4?KEGHS9m^o{7yr7ervulMfd+G$WX_)9Zv=`&*?N>s=P?rn$
zW=*(9pusUg9|!}^_0|(1qPPDoZ>smlOlJB)gE9UX>346FlFk`iM9lX=uT$Pp6Gxmo
z6A#bjka(p@+v7DBBZ5&9ZX+(L&I)t#bKma>b}s*Z=byP1B=ZV<2w=k{LeblldTXm!
z_qes1#S?lhxpmzd+u2b4Wy!-_Z?&HHuGO&BN3hx+eu*$2W^5VU4Q83{_=jn=hOT8w
zA?nTy+occVE&INhka+QScK^&Hlh5;!u`clIo!6LJh7bUg?*$4-H8Q?8U{?j0QzJ&_
zfL;CO$~)~kzslTVc=Vp0#gTZZEcD6}IMMm0qeF{Z7F#rJ9U(e)Ozqxe7NvNLnMDVr
zRMB>QM#+ckrKS>wUUzNR=>5Xd_*y)iJMzsDp9|2*s+9WWnGG-#_SFv7+?$x}zrj&E
zVC8ruR|i-tg#BzA+c9M$pDgs|VHuqoQCY*W765<jYG%T!i!UCGlXJC_#|CIyZx%pw
zjhNcU1f;>!zzfk5{B^gvQ)3tCiq|p{PVGLoHGGo;UiB8^)+yDlJBpMspA~O4Uv9Q0
z(vB0KOe{)}TShf~)`D0bSSA=kCZDx&sF{O)vz#E6uL6T(gB41QXzD5Jh_(3TPNltO
z$B6GCed(BcNv_Xn@9`Y{qBzk6s%Py{dXx(_NV`UB1a_y3hPF_|QcQz8cRgT7F;<Y$
znB2GFKsiY^_kFG{Bhaiy{WiC-c}^!MB(o-C<}C1@2k=)GeA360*6JZSgGc&3li?E#
z+UZHRGSN_%nYybWhoCf#u;lg&EDRdB%aRb`aMp~|yKD>xPKe$*@?v9wb-l^aHmLPh
z<IJqAgZ_naKI7acVDDSMg3lTp`}#cxEP^ARcKmiYn|2B!pVoF)3Sr&xe%+MCib7RR
z)f+))M7bJ`I#Zn*Ux^Wyy5jlm8rw}5AUi(bm1E@VAZ%YBBlVA^^r;W1Vlp)?G)jx;
zQ9=#OrDZ~(&uO7bZYAFp)5pFFkWayc7i>r2Mf4%*nZ^W`_hL6h*vu0MAkfs`t}bxh
zCr#)7fCHV9XwQ$bbybO?L1$_v`_a^?h>GIQoyHo+&WUKrK?S0d6deiH>CQF-pnm5c
zC>Q}Nm>r}vprompG#(@;o2DtX>~i^s6K^5$7B`&O2u(wA$yN(x)T1%-!1i?4{I@WO
z{Kq4N_+1^pprYzU-7E26W2&>U>L3CGylqVRnxv$&BNI~Ic+QC6Iuk;Ecuz9Ir-QS7
z%zkE>DM2wTFcYo%kIgz`z7Ga8v!DfX+|?OUiH4<<N?)EN$E&LW$pG@x8^+`t$nCN6
zo!xJoi8P*V;PO$3QPzC!vR7CB<0Ny;AS9To4p;c99C*kKb<?b(^7stJoSm|3b8gZK
zj)*YqGkILU_Hr9LWA>$zp?W40g<og>y>7RL)Go&H(UEuBqJWwK{h}sq(CxB?UPGK9
z3vd|h<YYvT_GRV%QnK5?g>-&K*50v_q;9=bZJ7BB>Y<{1S6F6va7MPh$`!UEiM3G#
z>>!Cu>O}2y?G<+kj`tXQL49qavWvx)^;3xcN4^<Uxg4cK?DtgL(RX65XdEnBu225k
zv*FCK?Muc*`G^Z>`?^XzH~;%~h0yT8gE`;l-X@>p7agJrz9-+<t1YACzNH_?LTgvX
z$<EfB-BJ3=H)bT2JVp{Cs&B|q`^WAlcb2(TyBpc(@A|exJHwb?t4mhhgk^kVZ^U=x
zA4HEs`8ZUD9Hsl@GJvXu$TYV6u>u+P<h~To4Amm@1Rj2ekBY^?$$Vjt>Y?XMBtBO%
zDKfMpc!8KFG<WX6=W@%*{W(E=5H1I#3R;jBJ=6HTW6(OFWq0A$#L4vFEr`Kn`R03+
z`(W?F@e`ud<WAD=LUWhZ2gyOIqR1X!Z`cW<tMvmj@1jVEnldQtTG!cEVde)_SI41i
zDi-qvYeUI93ZTG?4BA6&OIMO2?-42dP%{?MH^0Y5)RZj$+}I4R0Mr^=lGV*v<5##v
z5TwCz0t{gsD*zJ*(JqRf+taxDTVF{RM1K4J4J-;XGmKb!7%5#4$B1z0T5Sr1umhF&
zO~%LWa?s!~v*6cYR@cfl={a5L*>8`NgZy)IuY2=ym-*H$TN~`qq7*MazDJ`1k?mJv
ze3{#le8ZMJO307fx4sG%9W9U>$qiP4-;`+A$+E%EQW~p;Nph%k_WQ0-#C6u(-1W!x
z8?XAL(P@5BwQ@(4<X)<n>*_T7zW4OGVmL&+c2T7Nl1H7uHo8E9m+$boj%^#?Vu((N
zu#h<ahym24S|i|BCFWxH+PS3s<*FDHbx<pTeN@9}6(=`2L|GZ0R`LL*&wI)6{`KQ3
z?Vs+=rMdWn-@iol0X3Vy+pQnx&gZgn&ivWi86iSYwNo&x)m>eoqJ4fF-!Ax?7N0!D
z^w!vZa-&Ya$(LcIH23!wNCGs-@v^Q4@Rmgv{AO2L8$`EXE>&ZeyLK>(A$?2B@SfsY
zdvbO5A^gVIZlZTEGtWPJ4ehho@ffs=Vw(Og&=v7bK7C-WE~r~zXWdhkV3qzbP?NZ5
z=d$tVW!!t?e^~->>^SE1@2#6NB*MAgT1iD4Dyl7%UV>)PVCq$}AESmL>?LrZCHsA{
uJF_i$NB3j~E!BE+8_@0lC#{veF3KtJ_`uN_eZR3}$X}M1$}hM-_`d);0*Sf+

diff --git a/reference/as.mic-2.png b/reference/as.mic-2.png
index ea1472a9870f65b58cd258e98f0b5745d2c96c06..bec5faca3fec304cae382c8d2b144714cce41bde 100644
GIT binary patch
literal 53212
zcmeFZ2{hOH+b*oRDB6_<g<YA2goMzf`UxTPSjn6r^Q>7U^fQG}5t%d3R6?c{Av4K5
zW}cnv+txYHbJqK;^{)4Q{%4(Y)?@9xYxDCR@6UZ-_jO(O$6Z$D!Zu1eN(u^!ZKR9m
z<S8gN*ilfdyS{lNzSA7=atwcLyngAzIsA#QxwE;h_+yLtMO8}*3VJu<-!<OdzjP@m
z{-z+EJFQ^%e5lpdNkMUW<(KWT8|3Y=_dk2QQ8~4K*M2q$m20O@-IDt#`4{b%(YsI5
zI}_h#Y@j`2C7~i~C9(e2hF$mB?*6@TJ^Q7kL(C7pl~v9yJ#B9ZB}KjF4f;9dbh77H
zmapSTcDSS7NK2*uXHnMjy*lfEUlaw!qZ3~{saO9_A$yX^Zp}ac^Y@vj9UK1n>+Q`F
zclWG*<j}4yTC0D3B>S)YFy|w=i1THpnH8p)gM&$h)V3#dSy)+1g=KPExpkzn&aVCE
zDn3L>X01EbZ!R2aapC}3q0={Pq-*uoI7A%ARzG#>{-O6&yWV%azn9Q?kW40jpkKXZ
z4xt@+v>zi$zBfFd@}6(av8J*;L93*t6?TBy?Ev+K2aJ^K{y9%K<Nu5M&Rm~kJ8CMO
zm2N+wN1D?~<5o+%c=q8|x!NdcT1LhsD(<XPhtGR{$uMbls!z4-l@Xn3u{3H(42@Nc
zi~9KST&qO|ms-jVcMWdki^-mJ0_7gv#GM<4<U7s`gs&_{&rc7>oqs~de*CzSySsZ%
zPp~on^^cpmaF%G9P|5^e$@gC)E=>J+%rg)hmneVc%-tP3ch+T^X-fwklZc6lDNbzY
zwlFMuxXocCyZ2kN&V{;o)hk=JY{?l)so=L8yUL}Sa;~wl(IwMXI8>?ma}ZzYykqa@
z(1b!qF||xnO}*sR7a#U&E1v{y^Ao|gH~yT;l4P>4uk~l4-oBi{#M+l<-4;#x^eXo*
zbuq5UDk%8jK|b8JKWe7kwcTvaI5GP?r&7FZx>4QQlJUL>Z=>;_W#q{2ioi|J4Ti@$
zi*hDDi=^vS1>d&L5jsGv7$eUdnNobs^J@i9VSIGBOOshpU!MV&MwYB#tCjDMuC9c_
zTn%ms35mIul71_r_jflq{BUQrnjP!B&CA5ZWYCspKTsR(UG3muv53d?r9MHuf@$|Z
zxAAVLsNJQq@$L%iU&VViNsUO>5GM)Z(=YG08t4fzqkh)nA89>UAETV4^?G+N-qAP2
ziH~ote$khgXV<aVzFs_M+Fsy1HQj9HrZI}Ei@mdM(?;nxlJe)zKO|n&Oq(Om&-ur%
zP8R<YhPOTLtv6%0U;I_-9~2ZrO)qS)G(S~dS?O2NEpKC!fw;sOcE%0iISAbRew0f+
zLke#vSky5?=J|<((Y5T+wK4ZL(F}w+jwF{SY2~X8)+cb@@^qXTQ4HkP%v+xR>3i8|
zVS2c{yqsLoO|I?#hPz2KZs4v86;amAwc+~ZvQ9P2{3V{RuBcgU)DxUBe!8N(ye7wb
z&}ynq`BJ%A?<=FPuO9S#4vlkOm}VCdQRfc4WN&XTY(3ytFh9VVZdhBwA!5}h8+y{d
z#@I2WibcoMlQ(B!BsZZjNh7;vKDRgG>S$|?=W6O0J9js8*OLQ6^2YV?Ulo-#U(e3k
z;dK!aOfPKp<+AwF4S&lM2Z9BR1L%(5d_&w_o8zcrsIc`edin&sYXQTWbE*2((*xNe
zmOYg_iuF9@3SE}sd(({@>PK30r^-2#`VjC+8XC`Ey?RCb(*67EHSIbdAQ*Ggt`~b8
z+aLD6)4cD_CWg0RGsDfw`;Xt0b)%+_pML!Kac!Nlb^?y%z^r^$E?R~@K`mXfaB=+c
zNX{U)fJu`=a&oeVhX=Vz@5*pfx^=CzpkY_Z6Qx!>lF_^guXbTkw|j3JZ(e({db5AO
zSC^#YH+a#Y?b<qO_ZG2Jw=~l}I+b}@Z0;ORGp#Dd!6Au5q=vc9_eV2(@CXU1imxoD
zPA!I*6?~oR4cC4pe95RPSU`!UE-ULqRfu4<Sq;Ciuo@PW>=QbHGl?rD`^^-v*cS^}
z!mJDN*y|@!F2)8#tNatwvbTIXxR|}gm+iiUC59Eze~VST)Szjr`EDG?$_%(1b}}X}
zFYkKk%==A@Diy7{wlj2;e`|;>j-550b7u{ct&3G$7vTNmNgWkWo-9kULYz{Sq#dJ(
zjg*j(kZwx&#mB36+O6K$;;6kPyY$hvNUeN_`tfaoE!)!s^_`sZ8Z6z4<c2zTC?#qb
za*5A&+$)ZaNVAujtk1O_^~vaO%XfS_<Lm1ip%|ysAD2{6gXEB=Q%e0hGV;^jF2&EC
z<|-AqKY3)S$9YK?JyuWn)Eg^ji*DcTzP=UfXEIV!M=H$o_Uhz4)X$pz@wmFFV2QWH
z0HI%RSxxF&YxwPr+|y}ZlO}%A`M!wqswysdCkZY_(rN;G@#E^Fhw?k(1x-m6f#=@0
zy{wB<7B^m)j=n0j!I5)e=l=cs$HlP7ghVI5ob5hzS}pAQKSl9W@#(vnJJ_B{$y~ln
zbA@T;%F(F!_;{ZTDuL5ESY}Tc#oHX(kXN}ha}+jFANYdh_tQ$a+amjhXEFnVi*kv=
z<Hi5T1`iI>aol<HhK*QMbWzukYO(etzU$=RmeTP|NHxf&XXx~&`@TjTtP^*fzG-aV
z@$OErh^^@tt=bD-2e!nFyyCe0=dP~5++@c5_4TDa#`g8`s@FV!x(ZwMUFC9}>kd3<
zlIk=!?o*zimEWYcJgB`w$Nw^zOn&9ddikM3ruzG9EFbn!{S!hQtUL1jKjzQ08FTSy
z<*77hm{95P&u!eg_bON6csXbJ=g-tCZJp)@L*J7R)`bQK8*w!cPrvA9l@8t|pO17^
zZ=t8Br=qipA})?8?MP71tnUugHWeLhN{^#v6gyDzC{iX=I0luBJns7%Yd)Z&dt9}C
zZ^U1R&-YFC*B-1JwvR{1Z&tCH8}B~I>QyZ=deV3f8J5!c$Z8GR(k6Kbi)m$frZAzm
z)Qi40yEiOukG7K>g21<^^KE_i&z}Y>%S-dfiQl3xGj?}(`;(+>ay73+%cO@@hl^_u
zH)l2=_~OgHp+upC)n!}iONWbz{>(8eT(U8qOK;Gs#e=sV>p0DMXUP0Sn)8CqwtdIW
zq4He$G^J%-r&vGEnUwbmE6Xvxwee5JLlSV;K>nGpc3svHwawOWSf1-eq2+5FwjnYf
zF8bE3Tf#^n-wIt_xwP`Kq;zt+yhQRI8mVNOh9>3=a1@u6aNuLOSd*r-<dS51K~s&3
zQ`19@R}e!fVTH@{gTg=#x~Yxv4m|mj^2R5BxG}n@pk8cMGsFGU?%BgilDu^33hIMy
zW-~r_1OLrzu0xtn-Ld+fPu<NVV>RaDun_<x4@Gv7=0qQ_OeMMYH|mFPQ?prKoO2jT
zE<F?5pqJX;Y*siW89zTU5SKJCoY}4<B_;JG1@}QbUdpA`Zi})`^G}`Ty9Rz~DE)y6
ziXZ4HJ{O?a5Lt76szE#b>ie~bKs6!-qeL2gd-IZjL?+D{b&M;s7pzBGR25_WhMSp?
z@puYmUokk1ot6$2R=gB&<SQySZYz3vxH%5>jwm>afFyXy_chFroTnzL#f^(SXdOoL
zXVUbl=;%cq6p(S1km<kSy>8ok^whTf$B)S8<vUE(B<qy&>wiArjJn^HqWf4T?Bu?H
zKM6EjVjs}uz11kA*hPPqfA#ObG34ss|MFPRv-;O_Y&-H+|GNF<#j!&-)H6*L6%-WQ
z8BqqDvuIWm*qiMa{~Z|pb07{t@elNW!1#;4zW1x|hvGjz$G-)&e~$AXUeJHShs}g6
zI^L~8{Nf*zwmhMhPQQJD6|W^8?~b_~E*7g@SYTaQz<?@EZJYJi%alCZLv@G|?%dWy
z)7G2^B7WDihclWHf=IJT$C@t~rhjdGB(Nj9IrD-ygIGggT5FV4&>?&p%ioVlisIc$
zpr0QT{vQbG)83sU<`fjCgf0L_ypD=88fnR<J9gs{H^QEoiRq16x)A}OiAZstZqzUT
z^l2<NpZ7eq+gWP2t|RB2ZT9JWOVz*p8(HVsC3`W7o6@Hyxz+Y>wf*$h%R>dWNJO+p
z=SD|w4Sb6+chmY*^ZHV^`3bAx^oEBbeuwx<RDQMFbv@C|2(K}SNToGqvdFxIY(tg6
zX_$+WW$^RUQ}iA43+*df2F?x+4#}Up+g%nCWHle}=1Qqw87rbWSR9BXX~KtS_sL{0
zn`#N?Ow9V=q5J*qHHkJYvdhwxaz66?!1v?`VCVzIrKNG#iXP@*jZXm|4@7v2)hsV9
zB;5C@?LVTlu*Yd~up#MFvT&%(@b~1ic;@wQuN8eu)D&T6Vc`%H)7qnH^%Ury!5LXc
zBF83MgPSNu>o!p<0BidD_`EPq%2y(i#>McJ*YsD6jAE7IRbKXnyK1>Eb}`lge-c;V
zvNS({+|cH-U=n)b)}fzWoZDDsp1;)+tai5T`|^I&yZ6rL+V9_0LS2{V2HFb?d#b~e
z;^U7LE=<R>`c0Ui--%U92p+P@-LYfGWbI|~4M#?od5u2Y-=a(B`2GUWzt#H<d)}C}
z7trzPc@nr1uXdxTSd3kg8<VE%(v(qaPI|%0vLiYYrby>C6t^WSUwr)hTu6t(u4Bz%
z_P!#$)FAzE=lUBrZtRNH2MAZn{`vFg(F3H$h55mxvqr2lIz5#^ozy~y6h6*;Zb~<P
zJgId{9DP;R*%^!ZNkh(z2UL3=iab9gVl(uNb_LCeHp>EA!g1mK$>$GMPirP$mv}kF
zY?2ur=1_j|7%J3swip*zf=cf=atCEyx_Re^L!~I7*G(oq9rj*-L|v`HQX84HE8W@3
zDy^)ta;u@b&UkY&0{mcRd!GG-CvVBm?rz$+B`Pt8nGt%6cvBpdI%Wj%8-!)CDPi<m
z%#|pts5OK02%2g&DG7TsZ$|Ouc+GH^l_gu_!orp1+^HELrl!#qB?+Mb^drGMg^M-4
z1)_snYzj~r%FkW6pl)s2oWXT<ZfNLc+z2XMpy7~&5Rc7h8~xFdA9)O>BP${M1x;^0
zm(hQ>L_u-8{0T!Ia~e8P0i$mhYojmI#N?rC$hy_#G;LwjlosR3d#t2yyn=^kShnJU
z>&ilVy@k9y*}~E?LB~ei!ouRi-fK5vAB~1Gx-KSvYECn(JufFGr@LMH7gBPCTES$^
zrJ}v0U*D3n+a1g_ZCkB%Q@m@8B2xb{W}>VwU^dK5OXJU<ZZalE;z7sWxbsleP^;QG
zNXRmZ37!9?@=^Es;yv2;(@acF6B7&Ojh1@FSGL4BMUqG)Ijq8UE+hK7x-meKO&KQY
z?{WZAUf{ik`9Jgc5u_jX755?eI?=qMvhrK_@+7Ot_qQ*<TOR?a2^Fyg<dDZjrla`0
z2w%aP3S?4D($YjR=c#wOblB$d<2^j}8}?|tAeM#hG0!tVXa3Kgy(w~|QT{%`NI~I8
zy(5o#40SOEhd{AST|RE~jcsXhq8k6>i}njAP*Ms&!HV8MwOe66vM8x=nS*^LBMoVd
zjfEvjHmJ{_Ex<=9K~0w{{KTzSUuf18FoYa8q11loV%KIm?<T%@(DSLEcA8w{_|5i>
z+vxm^T7lPa;Wb3t@|Zh^&0wyx$j!})d%unXnj-lp0zN4PVZGhm{V2A9Oi$=Vl!!K&
z$#8M@*Fh6;-SS-~?FE|TT|0M12)5as1yZ<z2dlvy_*^EsrnYvfePvlW++{vyBMn15
z+7A*MAFA)4eOaVarc(ia3cJNt7AJhX8@PCR!Oc9WL9R?UYZueKapP0JRe84syQrw9
zw$rZ%4UXgW>Sq1~sB8G1tYbYpc8x>;`YBWe4p!C+=$`;yzoLsyNLjaW>zK&>^M)l%
zBy^~Cp8NRHbSriv9dPjQT*e2%M>OSF#}O$lZU{v_soix&G_8ax;%;vYo-klU!ScK@
znze5nwx#s8yW*A`Q}yFemdKGMPxcR@22aH{gwu#G%98nSeA-^P!Wp16R4`ChRaNJ{
zlXbF)M!c_#HQcXCFST5JqLNRm=)7M5+Rj0@I~N%2?<a!|yY2eAeoq$pR<=fzPN`Qt
zmvW$ng}V@1;ET<sjVZ->E6WSI2d>S1dwF)#;WA|BYO{TAMc2|f&+;p1VQCAJrKSez
zis&WXTkLy7&y!;SK(o%WXBtGLbepy#JOYjKsojdc58E6ra{@KsQbF4tFnqQA`lE-b
zw?t<Sg!O^7(gO~zpFl^xp|!xUHcDv@aq6~9{Y{(0AXnT75za=fFHbnnr^U!cJfyvs
z)ZEH<>{z_|T-T2umA|@5o$IH*oTX8nk_tJVAf?0MK}5~T`{xYV`nPXGBLDVH!Pm#<
zs=ugt$El|SK}WCMO)s#Y=;<M#IK6LeKR;I3l>JC}!gngk%a;X-S4Nj|tvXEfLAn2p
zM-T5dn|*(K&_IKN;)TVlxEs6)nz>4-^Z|aZao^{s2J5g4eKPXFF<G@c&(O{<fF+41
z?LBVRreUxYB^?q!HKKK-In%6x0NZW$y{bE(NCoq=_x<E47--71O$xK`*_VE^QU2Gj
zUt(td&BS-mnrT{A2}oYND2p{*m+xqs58lXyHROASNl1FqXu*OEd9pt`e0T7>S0{GH
z(z1q$I!?2JbFj%3HK6fAG<@->c6Ky54N^=k$13K$H$wv6grju*F~kT`Y3xN&?v#|2
z$zP?6gP%o4zv0bAqudc$(sjNzd=lZUniLrQBhME7OuT-W{duD9f{y~kHbxt$#m>%t
zuvAS+US8fWER35p0A9|0kSI1Rm&4*2L>=B>0eL)mqKKkghmMUv0Fp8?)Zfom?2Q0W
z?L+z^GMr+no-_e-kYXIh%UIJ*TZIdobIoFgYF<B9R7NU(xOLwvFo&U*pM{7zT-{I=
zn3s3b8C(wNlxGA=BFZ_*mj%3p?8VF-4GHSXHo2_>LeJ2G(}>NU0tb-ElGB)?d+FtP
zQr@`aJBNz1`!_tU+Z%yL)`vE*)_JBi8qAmm0jEJJf(cA0T%Jm50<3!Hyz2s~={)(^
zv19zM%TBG9)uMno#B;E2)D0y1h^aYyS)W|zT$|wmOXoL9w@zdE=A(Wvlfbod)?{>(
zR5hxpEHa1vm9=76q=VmJbtus^6U<ph26(5YLf1m37-R+`P!kuEB|K0t4bghmTh1gq
zsAXHcw)XPG;|A3-rP_evIAEE5<T?jsby*2&p608Z4+-cp=L=UB#0Rr`w;#Q;S7)-t
zvbsOHl)=}}mHTE>8VO*8(r`iBbxAQOD9FRhO9|KN!I0&_m@AG`)}nUDGt808Z|wEL
za~{kKKW?HH(?CN(!SQIUJK%8hyF2R=v}?uZe)`JC@O?k0it0K!V0{$SL!qx2Xo#Xk
zluwr##kYybOM7A?R8#eo?4xT9!|Z;z-`*+x@#DwYq2eh#-~0S>65ySAS<+CF-AniC
z=zV@}=)cf$k7lueVT9o<8kcb)Aq0uc#ZsFpfre*TwS`G;&95XL$1`x;VbK5loPC$^
zo6%4Ji(uwU0ka7re(o~mO;~{mc5Qfx*BiR5gsTvEXB?h@oas;XLf!~IZql^A)uoKg
z{2*g$XdC~v59@vX{dLhO_GEg!z7)9eWEi^PdVYg1e_uU7;2@E|9_wE&L6r@r7qNK;
zT5wlvQENnb>LN1juwdf&m-8<_;=A8`+Ne-CC})LtNsyXK_Ueeu_Z^N4j4v!jhF=_M
zPjz-q*L;(d%rnwPmJT_-O(ijJri1J8V0QFQR+-uOc2OZs#G3WeL~*~BS~D=`%Wqv&
zwlrEgo~l@{v_;76R0)hi7Lg4CM|{9Qsp{6&)>a&edi5RoK{2o}tQcoM#>>mg!opG#
zubG>1Zh^CcA+KaF9~!^HUe6>4ls#o0@SGwcLqkJ{=xdRsJeg_>T~|`+9NA8?#(H{r
zaa-MF9)54^$qT$petKibM#MJ(yheE6d-bg-O%pv;zJB7z>#GFYo$7V$dP8mb!P*uM
z*4ET~10F#O%5R`~B}(d7<GQlc3ynSp&&Io3E#5kDfLN(w%d=fC7LLS_OZf0?TO9@y
z$dQht`O0W+xzbEBO<R9jWP|9Vcb@HZV-C(U#&Q{G$+mnKmWTI|L9ok}m6g{=S$7d_
z*KAl-Wu*dvPyz#$qi(JLA*5$;%W>dh&7;2#$KT?)m)&ufigL*WMI@*1)#FK&(M_$(
z<V)P_lY-T4FSgO~%Yt$PSxQ-G-Eymx-o-KHGTLsCutcl8wuINX{z(3>lKo;0_R|NN
z(J^!94jm&1;5g6#o<<;>-sB~9`IcYa|6qqPP~n%o%>7?4Fs7G?aJiE+s*n|;MMkoU
z2ABt{QS;L+x+TL0Pc~=jRs=k#cdId7cAETpfgFh(z1uK%{O3)L>fY*bGcLyrf5*!2
zo}OEonVIKW#lQ)G4SC9hNVXM5p^7QpYiit(m>%GqPgA%wtxlTj+9C)9c2$$e(DB{m
zG{v{Tf%j;{-Ucj9MS_SyqlSOFU7pt=@YO2bJ9MCnYQ^y!@amXIsIGNT18Dc}SC4d-
zfnp-RymFIS&hPtK#X=Wn>!I&*^2>uNyYtgft9aO5KNRB^{2hRzU##71`%q|y{qhd&
z;Cw@m8mcSg<i?wNXh2w)nTxYDxIuU79KZSfDsq>uKf$?FJJZI;A){f53lUZJfkSMf
zW^R4l5Q31X*H2J$feD6MvTG-Yn;X>3GMlB<)Pk#*GR)fBE*{HlbBJrV*<61wGwny&
zr%!Jk&K@_euS5f+G6+IT&!o_>mZdPc=jYF7U|U0owMyg!^k-cb*`5{M$NKyG^$<@z
z5BHnC9Z<`-8C2~+^e)y?#DPgNG8qFE6%~A}m&5qmohF{_J9_n$yTh2|oM@gn7V%(y
zm-&gxYVnnu!GdO{{&Qf278z_+Cl1td`-N2(91wH*9vcCS(u17FU+T>$h%8>u%P8*B
z;shcxO20acMNqK8cmb@SL%J$dj7lUMDcl_Z7Brk-Kfhh6AaJk}U6F|t*&ZTe+819<
zZLIw0zOxGP=!u7eW3mVdHS*)OIWmFD&P*{eGph~~tqqp6F*U<U1NuuirYb6gfQ&wR
zvTD1i%i$x|QeVG*?E!pF|FK1(tzmxr+xhp`1xlWszPB+5H($ZT${K<Th+9I5s=~vo
z0wzfiMy}oxZhb#C(uB``{DyJ!vuAtx3~QJyfopvO1NDKPg;3e+)+vw;Ya-pNbGM#s
zZU7e+*Xs0Zh<1N`ptJqRdv&D-OToYjU6f@5rXZY;R?QXs(|%Hv?P%MY!8!B|`E4|p
zMW_54vu;J;t+L(n>>PRT*i*UBSmRqMgJY%sK3ksY-CSzx6U<Pq>wnGW@<s4pr)1&b
zsXlPR{N2f=$y%k8M2c2lhBC)C?wHH}z#%M5$g;%P>Bn82i;ndZXrCG<hZ<`g&{EFq
ziJR#Mzr1$&vh42UJyWUWmNz@mfYKT^%i1l6?=h%^N-b;uw1ev*z^3}j4T4I4tz;(W
zYqiXx2K+1#sO^%inApLzqhMfMfc?HYG^lusaM$JR>SNr26<g_rzj4e!8(TP{Oy?W#
zuXi%6=t5SZojtYo7)s*86Fvo*=voalg=@SQ@UhHkp<6#b9vY2c8>P=}HT9ww=}8R(
zmr}(c=rlWas8mi3M2|`FHISaoO6x=^S&|B7e^A9yyY3vHB}x{vuH?9`$(I+WmFQ7^
zc-?3ir&UK5Mhi2`kw5GcE?vHyS>Q7-dCpPTVbb8;`uEUYbrKMM4qx2wwR9)tj^vyf
zEWZNilg>6j*{{PCge%yc>xKOF^zemvlfk;U-U+^zVW?B-<?}h#t*r$BWmDPCx0+2V
z0=Vj3?rj_H2;#rR%63oG6#Q|xwZF~X%=pA!Q?zs`12fhkE1MXdt|o|E4=B9LSso88
zv`ddz`1<zRSxZos!9tcjvll{)fBf+Rh`O%bqJOsm>mkH6r|jaKxYk^bi8x-hM|Hb*
zeHf8V{CPg#*L(T#X9ZM-_?aX}JJ#w_bZ|4b%c{o1I;uW@J`T7YIu&u>ZzV$GJ!1f6
z*yu<p@~`vqW?IS_8o34y%PQ5!`ERypRj&xOIZad@GTHA@St%8_3}z+c+u$Y&il^QO
z={ycXbyq`rvQfFdm*2pr-CgPW_3L>o>(w)Es=mu1pff1mIgP-eAj8&q$D(b5ZxGR9
z72vx25r?u?R?F%}AlFWNzdRu+5*EOvZd4OVB9EJyfKFI3-PZaAf{Ey_k2{&YgplLC
zPmVu|T#>f<$&N;mYWEQzCa5FlUFRyaCG)CJX}Qel)`3mv&2g9-=!eAT8|h=p$wP&V
zCXDW9ss(5vGhyBlg;-WGR^eA{G;(hJ_-NsZR^(nS$6*0uJ70qAah{)KuTQosXp2)y
z7<V-O^<a;d0oR^9ld0E%TJp#n_$`9oWCwT{T?Tai8$u^ZjFoBu*)F~ta`hnAE6v`*
z+`J@pkBWbyW}q&Pl~k{P;g(;TNto-hy|F!dlldaX<&I23(M{++>qbqhHfq`~zWmEu
zER)AHmmWz`joPNd>Gb>0`ff$H>K{I09~_+fS?0^!eVGgl(R^mmEW3NRaicT+STB0|
z2Ed+t7AtaO#0BpGRJJb&;s|^%4k>Vc)OAIj@@pWMj^}yLy)RK**}1u8z?6tpn^bqc
z0v|`0riF#YC33*)n0p!H%t8a7UPx6G`q6<T*Cpe3)&46Bg)6>gqjuLc-HLP}%xn2}
zG~GO2TwEN3OK(cnaZ@yfpni}>dkWXWN$_F6q{78C$!n>ll>(C8K1}2XA!8d&<)G(K
zA7y-K0CKtjg5<_(*Xb))t`zM!`<C}pV%85z<3`JqSF}xYhmRKydL0nD&Ls|^ZOtI*
z;>EW+5<>*ds84V@-SU?>dH8}?TES6o@E9O;p)IMU8OVJig`tNaaFrZ*KWosOoMK{a
zgH$E0w(VT(;-@vuPfAzo&<PkR#JF^hy}oMk;&0m>hx~qpRGhiBW9LY6|4C~wm~?{4
zctQk|Trk%Y@}jH_U6b+dA#Tl_*#qIiyU+?K?VlcOxE!cy6V#p()-`b4;LAHTn-d4>
zRcZ->9~vzj9cH4}b#wq2jPt8w6=JSGxvW066!!G#HRf)F=WCc9SgtOHbyKnI|0l6r
zZ9%xzba{&>!q%Y$2ZvT~Osi=F5HS<!H}S;lpJtMhnwqfpyw`z!{9Ckv|BSOcdj0hm
z=7leuF%i^0>3ZMY+neWi-=tNYnv#MFc!X5*j916WB?CSM&CGU}TqeVotXro`weo*>
za89Du5wr|(Vlcl^V$Sny2M@mIAWE!&SzAjljYszbFiOY^0^o=6u2H(B33bXTVCrV3
zY{{D$sez62r{kG;X&-<ZM9{s#y%_>NFei@Q{I&T0b;lGF3(I+e0j#d3y-ag*?Do{z
zIn>TN#P6YSeWJxKbjfFm0kYNSntnCzWEN1Te;sNz6MLV^B0(A)0-g>ldtg3gaT2oD
zx<qd;uMCI04Ix7>Z*`TpG}yBgogvxTP0MmTX4tCx*JYSW(0{txFAb+wi&5E+KOtm4
za4fYTbK(I^Gzdck{1ojxdp9`lT0(89w;-`vY<aLibypmk75S%a3Xdx^2YEKtp1I8e
zouhO2K7M#WmB1i<hat>&Z+7F&<IJqA#wY_uUtZinc6*KV7mHGX%;m1-x?~-$&2Ky0
zq|4l?4WaK)`W@D4hT~!RN1Pke41Lpw=H^l$1`jU%u*mj<&jVEK;M0(hxRw@;LFb;i
z;JO6$24lvsom+?&;B?o_5p8peL;w-_4wY81g(1GWm@5}FbF9AJ-?DQOG2M@J@W8<<
zht}4jkeu<P_nbNC3-d4IVea(+dkzT`H?_5Go$l9|zBYmF<zQ$nA&EMhjs^`;r3WVU
z+RGg+QwwOAD1N+0y#mEHu-yXG9oesaog>u2gLRq-Y67U2BzOk004^dYC#{A7I|oHA
zC#nP;^To>_V`WT@wre9|<k1lOKYxB;tV#K`ByF5>Vv^Rt26PGKYBn>Uc!r-j5evAj
z5Uo*mb~e$u6Z8~9svi(H2Q)81wjQce*FwC+f*D8Ai-PtRBfc_MeLB+}b__J|v8>@v
z^7702GPpW_GI__i3&NU<ePyNX)Jjr-&5%U55N~v0E(#?@`Hn4Z*T;r<3BS+_zUP4t
zWF71uHtqc8e96|3t<0oK_ux08@zqR%y0L73vAHTtw0Y2G;K$fdvSNL{ZG{En`-k$I
z{TC{pN506Hx|iHMOebvh#*0BT7U|RwVj@AI00l&WyutcWQ-gJ;;dq$)IqggZw{kw!
zZvd{hbz6(PV6pjZ{KlQk^qg|~<V1W$s#~Ermc2_1_hpk^N0dmxV0TUPr|J*2GHA4{
zHzPIc5s1NpjdT~Q=Bpa_iAfLr+*!JwgDSZjeh583E$33n**{fc+2@aD_<q`x-a#$!
zKuOlR_M)~kKLaAclguvt8idl3SxyjN#ZAgs6M*B1wr%#MO-WF<golb6142U+5V!--
zUlg%C(!r~0T78u`otX=^iMgBg>)k1fwrtDj^dYkouWBB#`@o7&{PANS2$DK9j(KF)
z_akB)G)_y~CxD{{f#<)0ic|y<aj0&F@ZH2jhmo0v+Y7bPm~9a%TUcHgy+no-_x|li
zhFDM#DiwP)%ufdm6)mYMja`tzD|26OmQ1J=nF?sVl5TNT2SAxxuQ6(oP1ux3ln#&0
z{zhJ`Pf6kxr5cyo>sQQWr2AJjg42N6uvL2+JxM$*r_%cP=57mBoxu{s792JW1<nfu
z%?5`Q5VmvnEF`C;`mVVR-z=T7F7jRf_~^Fi_!;SpTr<u@@NO|K?lI6Tb8LoVQT#ZV
znI%AF`1y(RpF+}5{A~GXb9HmrV-9w9lKgU(Qy7U!yG47e<78jwl&$TN;~~;A(R`6%
z-Xj;@x9P*x^wiIldc$DxuxbHV(g!<YyJMc*EzSWgE;{{Phdf?AN)%X-Bk2yK4q?$F
zOeqSB2k9i6jxWrNW(M4QvSjG_71e;7-Sx!g>f{TrSJFqB12uk3C{3Lj-tDPh{V7%G
z`6X}}@w(MF9R3bVau<>7Q&MV}SX!8IWFB0%MA6e&WCwVq6@H=k7Erx<#mLMld!K-S
zD4XFXL%eqAL;)G5t#sontRqZWwf&QH^`G`sHyr&kTgUt)h7AOe(UZ|aETPonC04im
zduUcnAuFYnc<wvQzOuOaHLDpkf~ghXUc0(GeiB3P4*;~}xZouQlI{v}a#rN*jOBkw
z4O)bj2FsBSluWu4fG7Lm!(H(sg&jU?H$XCORO2Smh*WE7j@&x9RQCCEJy<KIZq}{k
zuLR8uOML?Z^q!EwWKq$hkr@yG>uW~P3ua3Y9c3LHa+nMu`{sbw{g!5U1&>)8U7VJv
zZfjTR29YSRFMI~0ksg(nQeT=)a}z2Z_ABEft_#iW@x5V1H|(a5Q|snkaBXoP0P(v1
zq!&b|IMyF<EOn%RP8GaHYW@&9*#~y+Y579%^SG1ga&J{y!~OB1;aDQnRjV@Qz`o~}
zpXK~H6yuk2G`Nl9KcNQF<_0R0noIcp+8?h!baw+){Lj}(*92RJ2hCcBf4{p|Q#Y57
zb_<>S8n2pqhHkzaWNK=F^EO4f-3=308(3W-N4l4Oo|0k+__=sQ8XQIldhr<a#T?LA
z2;WVx)6~zoqR+^PKQdbglrLib8FsPTy|+j@930hKmOO;l%S-&Kxx~{CzWAwMyWC3<
zp=;d!YJ7X`UgRQU#pjakN`!mz#p!$Ty}-S$Pg#1X{ChtJydNQKzWzJ$#t5Z3VGEs1
zxLCq|)2xF(n<Z>VT4F%|`x~r45uC~CuD$|Z@*y?7ktoga7^T1Q{L>wT6IGJW5a3yT
z8d)HvAnpFK+FMy&yd`}Z&8Al*B|UB)4+-GWPDJz#Jmx8og*^|zrVgBO;g<E)=e!(S
z)U?s1zuB^rWmc1M|Nb~=+?UE%j`5*AD%9l^uGVUN$#RHF*lG4{luRhyTQ@)6^Puk1
z!otCH*QYoR8IcH`^fB#O85u8u0>igIgY+%pJD7Av+8)Y8Ujc6+{bgySEngj2(fMVe
zzP`S?=vfilkppQA)#C*$?Hs=|^GxJ<!WClWSP<g4gUR;TOVpZ!3=-FvO+ru$RVpe1
zd1lm!Cb9uEFLU?GMTNKesrm~xpd-Ibzi;AthCV^H%g=H7g-ShPMm27NvXcK<M;qeC
zO-(bXFHT+p8chuosG-u&Psqu;c+bf?wCmrvp(1_;UIej7=Y_89C2-%WuW}@dz<~XZ
zHGnarmaJspCnbZtzN@Brzs?)aLC%<_({Jz<v1cnA$ktZkr7cEsPqXTmC(VUR=su<J
z+y$FWEg%smyLef1l=S{WlGcoVAKra=>-MYi%QS2t2QswO%N9gcf=`Z)7y#%64Z+@g
z?!>+8B6!d!fagJTzKV#b!cmNIdc9+Od<hmP<~^UD9@hKyqc{qT+j+A6Kuk0xe8ufz
zafx7^&I}5gwiqM?f*{Qe5;Ozj&;z;q8SXh1KImF_6XK*A5;dJmMpPT#-`li~K_9|J
zgA4JFETP5gc=CcS7-}zU-+JK07d6J6J9Xr*Tyd_i`|pC<=rSByiVc-Pd=*E+u-t1o
zCh#;I64VQvveQkW28eZ4mX#%!Lqac&hr`XGRg*gqY{LB@UY&<AP;->?Mj9$=p<in!
z9Yew4$Kv9{T`4&OoU*X9mu+P@nI%gvVL!UwF(1IhgeeG|rQp@<l%tN*Lq1)T`rYOJ
zQ0|nI!h(*Q1Vj7tDFZ=Pve!2>)CA74s)Wooqv7aFf!tcnqm8MhgXyziS`2|CjKB@?
zvaFmWl%F}U9#x^XZHD>h!)%7WUo$BLy1o4i2&nPmvEw0CO>WIt1o>jxEHcmgtWSa*
zd5#=N+|T4_d;7&>;>)u-@9doN#n<|`qh)?M^}EtIAm=+42O)!cmWfAW6`LS(Z*b?0
zow*Wmep_72P-E)7jHlv==&n+4N9Ph(xMWxkA1-RLnHg#Ad3u52S5qlOILhMAMs5(B
zG+AxRxetE8EqjzK1<1EH;1Z<m=_$Azb{T7jxy<*oCUr52Ib}8GJ7$8)E_t>%@dFxf
z4_f`B$jVCDw(ZUhW}&YERa`fcjsd`Ioy%$&?jM{OMelq(DStXxHQym!$l~Xtvhs3*
zDBA10q9t?b5+5{pK|<s(3PB3o*gC3imapsI4)fNhUk?v~>@#Y>bp}HpqRmY#T<qpi
zdM+Kz&r49iS`)ap5G*}M&6(C-2h|dO_|N&A=dDs<qJ(RBUs826*w0kQ8Pf^4@@gTv
zs3c22JNjN<^M6tazVp&58-_-|te*e~vd<3#-k4MywGx(w81eK5?9$~DLwGTfk&(}!
zS_JLUvU~rrxY$0_jBwN>&(K!_B;Cx<Y+WIy2JFz+oI$ggzPyI3JR)*S8?eWQR<|lW
zK6pdN_Swqqa4Feq3GVr!(@o3X&r|A`4VmmN9S(z!Pi1h^HoBjdjNW4NZxjixR;=PA
zTIAC+V1o0tc(k`b2!T#}=2NMH+|E37=Ti<VIfX+T9SFKOj=K7z^V<tZxk65}<}XjQ
zl+|4ICNSekF950U9KK;;3}eq0ev@1<Xw7Me8+>_j$T<U*Jx`V%oXgw#T;B(G>;kGk
zf1Xy2%1c8*T$u=8S^p#%xnB>+pngKzWscck{|5P*4EAU5woL+1@;KFZHWsL=s!Et<
z%7RT2RH7eYY;^i16?~DhKhMkEofkH~U+TTcB#*7M2*@nCasG;0!vu=5%Am`_aHdZ)
zA6|2lDY{p!K@U1#CO*5d4xefDfGurMsdmk!yCT+|>#gxZYmwD_yqsZC)Mt)Dueqlw
zv)7w)10z96mX($LQf=68mUqpcK%|e`zB5~8?1c0)@qvoR&Y8i1#Xi%ddH1-!g6c=D
zvHZV=L}%~=74aOu4KoY%?JMzkb={*b(VJ@tKmzYG#7MJ?-4PKHQ!qQKWk%CBKt!8_
z5qnlsJKw?D1gZL4iEjv>zL&tuXX3yOEAtJ7R<K?Bmy1<!gn?4C9&S>UUp_KLh(Xy)
zXzb#fUjtl>2<*&l2CMDt)!(-p=0>zBjf2zjt^}txH_^NBd}~a~*a635Un0+idEd?C
zK*3ajmHfsRXTsnP&r1kFa~QNf7qa|@HS@wc%Z-Ztlc>}gcr6ss*A+JJ*GaqCc#JeR
z%BzhsY9zgu_97N_8Wb3!3pG3WWWS&i5aPZ1ZtiwiR0}hA1O^_b+&w5Q*cwT+WiEs8
zXywCu*(;!ANMcpxFl?53cJwsnQK+*_uvq<`KOeGX+i9E24+BQ;_G2&eO5SV0zg7Ry
zG;HU$4Li&2hs{r{^|~Miy4-m0{i|@XVC_V{*jeUZGPQ_&UEixhj4rT5P(>lO>YoiI
z!RF&$Vn`2P7?!)z&~Sw$TT*Uem(0bBUw}(@Sgrj?$ky;6oZ#f0`(dUMy=L7;12An5
zSkA^*mUz({KXG&I`*KjzWv;t^Z2ySRE~4{#yUnn3j$tes$(`V_@G*70iH*<Ex(4&l
zzI0>Y@O6e8it_KuEj^UoXt?#DY4w2W6+r7)fQEz@nt7U0UHMiz{!d3#-o6{<x>vF*
zX-^L>u@bDqO@h@2;>m_VI^Xo{bo3ihyH?<DU91%yyeDJ)jHpBXknQcUG|uK!C8s%z
z?G|JRtmw9OT*e^7x_aWOby6EW{n{PBD35xgeDXn4uZ26{O1hDv4kREL0;&)$2`>-s
z=Fz%2T&qo^ML4MVzySfNG5S7xMqC6*N{SyDgKsB`)Y0E+qO?Tc`;ed@)p#wV-z?2M
zTnUwU_R^>T(&!MRA>tV}ro6U?)K~?;M%g+rT7lm7_nm=qyG9)J;zeQ}g&&c{hvs#n
zIqnVkv-9MA!d3?F=0(j)!4F8kOF_01z)VM)Av~GH4MPVb-m4yLl0C3WZL>RxDV(F^
z%5^j+w@*G3t)Kz=GH5i<lw(T<u1+=YJYxw0c`s;6g6tnDTyaT7{0=^+w$8fqip{h+
zi?F#7KAI>fC?zlfqHhUuV|4j`L^b7O@7q0LfZs`)9^-VIevI6)g-Sllb>*$H#v5<Y
zADdcN%6wU?U{aF;aVULn<2EViLU4}-^uw1vS1P`Ijj&k9cX5nNEyAgk@k1L7_tP0z
zjYsF53d13!ECO=sff&_;3qJ~EMif{97GdEg)PNum+rc8Ed9^?(tXIv9v_I?7w8=8O
zPh5aj)dM`mhmK7UW&=W$CVsca%yl88T4Zneu_!P^zJ7i;O1v4(Omq5KAVurMmG;8<
zb`#>gK6EQnkfb~K6U)EfYe2TSRev1o_BeW@qbNcG<Vx`My92&ci2;8R0#tuvYV<x)
zhcwlc8zlFKGi)CHwbAM;fe*$DVJ&|1{FUdHFA^KO%Zb?=>1P(Ow<oDquAw;54AhlS
zR*$gl7AQMFv8xocM?$VKf@M+0M|B@`ObjK-LeXnL^9D<OxVal_%jN99Y2IRayno}1
ze#+X;0+nAW-fV6udahyL?e8y~%}Ih8s2-|j-HX%f5N@0;omguYo`i#%ErVC5<da^i
zA-J~s*&qs84cPvDm_#u)a?Oirk!V6mggSd8weiD&ZTNgO;iA5MJr0V#K)*hTb^C_f
zgxjZNujtsjb)D4A@u<;haLK@|B9qx-aVe_^eNOiQow4)VOa6>AcDOVA56AYu^;`d&
zZ~s4=wf~hS>;J${{{P#)9gF$MNBsNt?SuB+NgW{thKCKp0ND=)pq7@FqZbr}K+!?z
zI8O#!i4n7XJ&!n|F+?SCp?76>0I))j0Y?(VjZ0)$CgAk>a6q~n??VAei9{~yl(n(3
zd3HGVdDi(r8jXmGO^IK-&+6u$Z@_3Fyr7-bKteoBc8@>79>~MP({jx(hC?wHubf2o
z<fUD<tKgd%l-<{6+YQgW-<0r)P?>!?9}dWM|8&{Lbc_4`(*^5K6%}39n|I>4n;QDY
zy67~;6f%s{cpoBuUbI|$L=4*!U;o-^R74T+^}l{7R>9wVldKxr2*N0ypk1g1d88hS
zqyiXNP4o8~2;VsTHn7Vxj2vCP$`{`ho~<9nup$b5`5D*CGBQdQ7AXXejppeJmLSzx
ztAFl?LUx`*>Mq<SISzd<-9Ts>0~aVGLs<xiVtB}hAaFqkU(qS?{EEazi?0#$KWF*K
zQMoq{a6c37ff%SznAGLO*a~#FuY_L?E1naA9@5koK=UGcj@488c~JUxY-55O5BU8l
z6WpWsh3Hm)#zyad=>4GiiTJQw*V!V*-)sK&kNmtS`8Fo;l<Xzwd~jC5cp`*;M8KSu
zYpYjuD(2C#l4s_d<bny;Ezow^-ot?v%p`)gCye7z5?La*)H66w%3&O6P6O9I)9=BV
z$X55PA_S&S@ctxBO{O*dr5}iyKPxL2)&-Pd#kW@kt}DdI7tgntpEz*MD{9=s-TkTG
zN>ONGwZ0$M%=c+B%sLqKDni_T6v%PvK#ZC{;b!D$7HFDS+(hvr?~RYB9hFP}NteYe
zSU3_<E6PnXH?_iMKjpF_l-(Vm9`AacV_is<p7Yalvsu0zo0B|jMnq<Y$rB&VI;jsc
zWp`4)*c<!Y@y@G3fvvWCbq@&(2lHfhQ#ACA-!ZnDll_|b^(h+%N347v_2S!&6l~rc
zEv}JBoMEu+T9W46+aRU=cJnRHP5AryAvRck>29WA(siARu_(|wFmjY5{{BI4_Kbyu
z-%A$K|9i!(^+~Ky2*npWX^4s8$&WiP8^B~FDJdxrztCFK85sQLGzl#LB0y}~SuSPB
zVVE)an}nfOh1I-(34mSu_j3~SNO8L|^ZYLe7}uw{?20w-b&-+DI{fAfQi`A4oi;wi
zjU1s0kuYnBIgZVi=lrjrhY<+JO^$UE%f8RpYQ0eJb4#Xf+eDJI^fpU=-6T}tPOy)+
z&v01XZQw%qA;eSBLB9d9vtD|PknKiuAZm0gj72``Jz){1v#)FDhcz1`WdSv<;qziP
zon1}}7P|s@&qu8d&D<b<Z&r$urrM^rX}cJ*nVW~x6EB75sGIjMyxw=p+x7Trpepbq
zP>ns4OS%bT>%WWBryZh@qKOGw@GTsIGp?2iA_u79#lH+~Dvubqg0~uWB3{p@f0BED
z%yykIFydS)Z%?8B8dGQSapUR!;{`Z)@H9|yEC{CR>o-=<FKfeb?yewsLbMcLAqc$y
zvXdipFIdh8>J#F6szTz>780t9;%mtVCt%L~{pF)@dPg1^zQn^*P&W~NRJLrZKQdQR
zc*Of>`v1i-49u_o;D4V%q<>Y7{6Dd-|JOAWdpi6d6{5?Gjx!7lU7;(ki`M#N(xFYa
zR5%Rci^<<&s9&?!U;En1<!{u;VO;leS3;d{QFmP3s|2G2j>o2t6=M}&e>WQZ?s5E$
zW~s+~j1_56_Rtw}S>@6~k-wq5kQ7;@L@LaCu-v*;Pi&@l0<Koe3S+T}Y$QhSLw|5D
z1*62fKMzdI<My8&J)Cx}`LnKO+1CEq++$2`{U4Cr5wZDCT6lNiuRl|a|0xGvo3D90
z2~8p;HTAU3zHW}AM~}8=KsXlU45{jAqo$;kKSeQGYInA+%M`?yiu=^_;~^St+#kF*
zY~0B4&Ra`-qJU+?`t{}}V>=SR3IclyZgMR+zi_DNsGam$ig%Yb+g<u(n%TS1Ro=c~
z)20c=^pI1pCH?a>*D^_*J7<@>{*vzc4eS-o60^xZKHE1eGz$50vaww}efo48cf^M-
zI%mrc{5zIuoW?`BdGnj?;+p~=XO^y^5DfS5RZwH%<GX_K6ns<z2j@I;M2c+HT~4d3
zr{|FU%7gvLk;)~v1$d}|w7a@JIHJn^Idk=mVAH#-l~{6J^<!=~M6$E{T&zB?$K4z|
zCQtVB_kRt;E03}Q?}PjIv(`x@er+ofnD6OmXfR-u{|&fn`xW3%3XEfS1-fqI#tR<Y
zJ{I6(80@l=m|z$@m$3v6S@oA?meAsOug^?-!RMpW`-mqN6vbZa?PBISNB7Z~Z2MDm
zL}P!RoAG4T`|zZ%1s?4fQ_Z`#p=fnI{b#@De^~(i*MV2x*uQX*{?{}9zxf%{_6@I%
zxA^r#Vriyur4C%W_0La#X=a(9#@0SckO=D{F3?~TmXFQMt7!H1>%~JI`Bwd8khxZ^
zT`+Xlp`Rh9_TcYP0_*5gr8jZr!Rj-+Dq6VNZd;Kob_Nl)9f@yW>=DG4D)OgJ-G&~V
zu3yanC*38u6p2|L%x`uKTdX#7?{>H(Z!|l1?mk2(L*mHbseP;Te6Q_Au~5R{FiCZU
z1Oe6`tzcl>>X<!+@vOu<_2<yQE|R5c72q8Rj9Wb*g|Wh;+t>gpJM-SXd-*C`RxePc
zl&8Lf>oeMh!=%_N(OzfHo_%bBY07!0m*!e<i^Zy@M!lYDy?OWU-InG%ckWPb+4AeU
z0IhP{{<TfRHm2MAnAfZkFQn-)Guz(%{U*n(Kef_k)UDf$`7S-q+fo{DBG2AOp1t!Y
z*M2&>Rm+!xVr)ktja_PLD%v49_#mN)HuYi$7-bCj+^Lp^t+H^g%IrwosNS9f2P$2k
znXL`W<GnM!hk;>ac*ha{zjj3)G27EwdiUNv+9Ca3sl<2hP8BXVk4b1mm{Ak|=CRmo
zpE`Bw!K~1(<9}_YpfDRBByOG{+H%Z0?-KKr0;VnBo0;)+UQh_FjJ~N^8I>~&?99BG
zS+D$)it4dRVEWu)O?$`B+uppno?<%`^Y+?hyWFi56dn4D$2$b1uRuwtfw3h4Tl#E+
z*}Kd6!V@~hK9N*niU3VrJjX=Tu3fvpOmO!%Z8dN!>LiL_N5|C-8?_c_F|gtXGm3=-
z?G*!qHw%YfEKlcZe`lq=`UGrf_v}}po!hr}gvAhJYVk*UTpjO;Ye#4*AG@Ka>yW#(
zu)DHyvQM}t&*4G%S)uZ>yaC&l@Xb_IzE&m{RhYTV*N~pmsTZT@(EAy<Cdn{37+WY2
zZgC=vAfQBUEgG|1Aw2l=8i<hgmC|B<=@~|Ej9iQswuksv=~-^dgOcSkbs>*u3pKUP
zraTxzk4e{7(5jYxDtp?S<jF?Z`hr|0=lAX1+qWE1-*06B3{qHdUSC(yGk3+oJ-Rcb
z)7;#I?E<=4i`m-I1Q%*M>DtMphR8G90ijIKyUeWgwV2yt2$vXkXOVj5GrAEE_xD!^
z&mzZM<^GWjj6Fi3{E=9)`h&%Q_9I`f21jYxcheH{|8R{q__1HvY`YrcvjT<B-iHXb
zz>pOK!ACM{74N+poh#nj2JO@k8Ui^IjcF`|od+39uwW;G>Ti2fvwDUXEm%Myfri0g
zfF#6dR=>Oaj%RHfXeI*)3vJwlxJi7OvK6Y_`vW664*f62j{hIal3({4Gx)sfG*{CZ
z1?5%yck0mbz($ckYoz2D|8sW~rx*f$zxZG==Nve!B47?Sz~i&X)=;AP^9X3ey4Q@(
z{_4W+D$FFp7>pw*fC|TpxeQ?|#o@&2!QQ+*LSv_2`RpaQ2xrVY88v4lF!f`iiw;aZ
zhjL<kAv~>w-KDPR4=eCM$Nn8B3A@1j9yuk9ys)Za0$d3YmWf1+f&KXLV;6Koq!9Bf
zf0zlj*A`psCSuhy6CqATK^{UZkg(U54->tZlL}1Ku^QPaFu%U~_U+p^_n)-6D4D$}
zFMI8}b;K|&5m~s88e-h~(WA`(wAc&4keH41W)Pi(E`f3Hwl^uOclJ)d_3drJB=Bd%
z6NLJTxmIiOWlUAS0Rs^$|Jp;Z^4WXo#?_C%*erOG$R2Q3d?nn($l%?%ood*qW!LuY
zFYt5-qYS|z{wRKIX63&6TOB)1Ro*$GN)dBt#Fb#Gf*4pM0TtIxqH<~O;nw&9v!>PD
zxUT5JP%4=TJCtA}4Px&Z!C0x)!;J0grW=FO<cv`yVtN>ku1R8-4M<2nOoU2H%pt>R
zMHmP$z(69S8W6r{j5OD`R>Ksc9H#rH3|^)@;w^)XgpvU92QWbJ1(I#6x7+>ueK4og
z!$67Mvl0$1WI;b_#nkdBxA(C>r7c>OVQhM&RUIDJiWwE;QM@F6ViJv#l5+e_c-}CW
z_SXWxPt-9gRXb_3<@NQw4>K=e_VBv>y9GG?oAX62eqI!XgBSz1axwD`Kc8NR=lH$a
zZ&McWOKTQ5H8$(|NuqxK`87nRCb1D9#?};7R8)fIgT-A7Bou#NlkBe>+0P}jpN|Y5
zJ1Ng|QvUQB!6B_NiVi^pEiqgtCiDAa@1#3i18b*LYHUy_p1!uVR-W>aH49urAyzt`
zS@PerP)EsIr;SNWn)wcO`Sf&ZleuQhhO3E)Vm7Fo&koath+&Qx`PY(kC+*CWhfz7Y
zO<l)-lHw{>pAki&uKhcV;;PL|<57B;5L>C_W@10Fb^p^xt`%*ZvB7RD9wvl>Ju?j=
zI)NLrE5E-M1F$^d4sB@$n&HlH#^Z2YfUxad*S-3Q+wCbQJMyugM|J3?UG4eT_HG#Y
zbE#~>NEKitTbfY|iZg6a92gmfMfTsHzZv$X85;~eCJ$q~j*+$k_;LUJ`OV-RadgB2
zD$WQ;CUHb4v?&GtNgys2<F{up&@OlJ;v=TtW>&%tTFXy$GuPnjAz}+aGKy#<JZS9$
z7OU6%&J6LR6stgjP2X#w9ppS=7fg4Wvlwp8RmLcDI<cn<;s1mqe8k2qe=6Y6;lqEf
zN<kI|Z7fx6co$0PB!)2?xLD<IkuZMI($U3Yx(&8-X9&Mf;Z3q{6^k+)@Ddr3h3pIP
zB&n%xSaSY7$VjBTDa<nLZcK!#p3*!lDJ@+!V~28uoqqfS0+fCvQw{FSdb+kEq83vJ
zeZ+QJ_&7HSgX7)|kQ>f47h-=9I!qVZ`~9<~IEd{e2Z*ikFo&7s2+yY_ktVVE;nUGy
z7|X+kJAFtQ$Yeqm=OBUFh@0(wNKEy#LT|uadgur&mOC00o08?;!lo{C!0UQ5{<F5(
zKF5_bzuuIoLVv7>*we}io-rrm@nvF*Ov3LChh<7$`9DvW78~slJD_~SXco2|IM!|%
zWf%)<moWTf5FTPNJIaB!9nTOmDFpZh)hd8p12(MJU<`$=MFwvAuR7kMN<UQdbm{j~
zxWs7ajr9<N1WHL-2{40zE0=`t?3nZw2$YXO)(&dL{ZmBWNn(JJ*t3z}tnK8!hfhbb
zsm%>oVo#w4U@6F}s61Q92GAomD#3(+910BOQ1j8P1X_fgT>}^nABdp$AjjZ$wtU16
z7>*YjEk2od&zw0k8PdLZo)`dtuJZzu13N~3KlIxc#3&=FhH-h!Z7_`RsWB1LK67j9
z$$hQ4nM{U|yP2Dkj_6>Y&EGpfO`mCo1A@3DSg-O&gs>+iqD2|I1t<Wa)9&6K1)-@Q
zrqCLwRFuOLFf-DL*u>Kbn#O<mB8%ZIZNk(vjfsLju}w4#$X*fHyu|sz!-oT~juQUG
zIARZyFV5qM4;&X~Z-K`rhBiGsJrzdV^3%a_I}Kw6abbU`$Ves<v58A-X{l+ZF{}x5
zO^zvAiL6}#3Wi=AWOr0f{gVe=m<0qBiT(ISU1mg3TKaQ(i;9YvN%$7q)RP*l4Px5{
zV$%d+*X6v@1%K<IAN5Ywzqgb<COwf;Dq=kl32&Y;+93iwCu(HBf{m~bo7ySeyg6ij
zCjt{R#6~C0CYgj&854$Y;GDGn@o@`Lu8i99=Bx#e^GRQUO-&ic5P+`(+bW#_s3b%-
z0JT_DK|^e)v7tUJclSt&ZpAlf<=7ie1%ZMsHyQxZh>`Mq_)8k-y|rCNv$YFPZY-wH
zC3_CKryQVq!L*8oZfiHf-@??7jKV%P_qz?kjBx~{{5?Vusce{g!vr<vP8mjZ>b^5i
zp;8$^(Lu$ogGT2c8p?&Li5MlI0xq`Dl>Kp_mIDdyG=B^#VZRqFY!-Y3;1?4zgK!;Z
zn}&8|TlN}3*C37pORCk>fFib?dj0yfVdsYj*e_5Ci3Vl4`;0N+>LDhh;8v;Vw&({T
zriM+qnEJ8x<QLcF2}Y7U%KDAqD6C~J5;4#xRcqzC)PLEP<16pDmBwY&TSq7^6Y!b%
zDjWwSB9VcCki{VU5Esc*g^m3XEkq;tkcN?%hqyp^_za!{3`vp;7RN7n8>bo#k;^sp
zu41=XLK#G3cVq8EG*ZOoS42082)UJc`O>9Y7`2$tnv&>Fn7=@f=;Bj%?-F^T>KX6Z
z!uh(SmIaLhCsiN}ICSdL(99CHgM$YT9@~2M>C>mg_z1Bv7N>GzAAFzeY4s3(5>!*q
z<HKaMvD>!Q5fe+;9q1w%RVy&b+4Pe}eMpVJRm&?CYuu@y`ny3ZVPZ33Bs*+WW-X7=
z9h|@Ddf`90s{9ZXAYwnCD+VEW#he&fK%($xB2o-WV$JO}>lBi-M2Qg`qN-Rt*M>EX
zEV+A3O~8hP)q08Sp&=-kR4uk3MV^EKMh>ub#vmMCGVJElkKj-;Ffh1d0t1W~iP$5S
za#$ahj13Rd(Le++!NejB!}QdfDDqnijX19j9qxdh7<MOi=7SMknlO99>G~4mG{gpi
zT+{zl))z;X(RN6ZVKq{^kqc{I9~S);u$tJdSOD8I5Wh;s9=_M`oFsu-xU5zP`+>Z>
zc#c`|cV=P}vllP^e!?KCCh9Qx1(h)g^PL4>tZ!Sc>uK3uvokyOez<*4kdvTD#e)BS
ze!{K##l<2pdG<A$Phe%-E1tWZMqqUOfreO}HFk%-3{Yd!1}k_FIbn@mQUP$o&Z(SW
zb=5@={C?D@#IRV&kvOk+(}nZrV*#R!;EaQjEN-H=I!?RLr76!ol`t%YVyfv~P-ym2
zbaZrJPJNA+rabPG*ldW{T!Sd+;ZEc3Ozccd=ZKjry!dFi__CVAMIDvMMC;&P`e~cE
zCbx33ppT_+=mW7mfBhxbXNjQ3M3rlHyt;9BmJ&VHyParGumgpqTP~Em1~C5C6<nDr
zqW`pzr|ux*6Lt>l#TvU5hwY__c~GeF*jYgtd%nS4<*b?8viz8GV}<e1hh4P0>k~EA
zQRV6|2RDTcE!YrPL<B+fpMr0h6C2gyG`0-~mkvxi9J1Zkj(h5dyK=^^P&>zIE(Lq<
zQaW)9p4di3#c91Fc>Q-cY^ew|u)}r@t<88rVx8Q-pJdiciv~|oWWbn(PmU9Bu{d^p
z??I&}Q?3{k*6Hkj*xB~Etc=~f9T|34vnyZ`kjP7j`G#<9Ve8XG&^^R>t!)TGN|T%h
zi0D0NS{LijWC%HvVf2d6hx#p_KYzC2ag$@P_x0~mBbJg1!x(lC&&{+PW%-BrF^@<y
zYu6%Mp}fh@B*V%+V>6-_Q%FqQk;o%iU0(9uSIEgAt{_22-fb|EMm``jUy?kjg?!1}
zU2Wxp@#RZo_yi*$t=oOO3^N@wiFktWJzUbbkO;5Yo~-!y9<-cHBy3%T`B3u0uNKuz
zUCoS_kzKosiNO0XemfKEdc*|6zxB*NYg&SUJdq#tQ%9Q8FA+m5X(r9bLq#2rx8MAZ
z!bl>(8r<~EBx2I?Ls1dc5NqZNc|EX(<0qek<VftUM2s}mq+4svjJ78M1=8jmDaL-j
zFNm>ac;LewrI5h^r?xSQY1CA|Otj+ScLpEC^xxQf@2IG=c5ATIwzbU(Z56atPy_)*
z0ZC%k0s$pwRFY&RXD|l@v`CUofPe%^Wf9E?B{@kpk#m+j`xJJ+_x)z(uDfRLH*5a5
zE_<!+7NP1_=R9HW{p?3Ob4xugT0_e1Fu7<ln1@l&X3aNS5L+>N;b&vMb{JQ7AYMKc
zQ;m4j7vOLq4JY2AKMA=FMdroPFpQjGKI=l?m)EqXL<^=nQNO+d!rz_4$?TEq>D+&x
zT-+a9%RqzsmsoGwqpS@w7S48D%UykAkZNa-cf`T&B!yUn;?AwVvE}V<B}hHsg~W|%
zR;U2WAP-k=+rQbR?=ok5LT1mv%k*S#(i4%ehS@4rh#Hr?1r(`>OG2uWyv^=euP&j1
zjlH?a=_F!|t&ed^4e>&QuaD4$l7sRR{YP_Lp_6_JR|Hbx%{EF8mb^WE_UuDEnCP8~
zQCcG3he>UNmf!#W{YQWacM1xYO--SE;enzB=qI;L&0;F?vxdh`3~n~yKE#nu7%uy9
zlE%~o1whUS8EEIE;$M9mEL8FBA>G4F|LMu)PnUdOn|EjSY}lhX>gkqEbDlW<w-z8o
zSiM1VHX_}}C5}h<FvWrF+4#B@bE7+m?I{EVr%~5pNPiZ6OMr2e<iN*mL@x|=+@h(I
z)96@P*~+Anrzx26erM<BM~@!CTBr)@QrpgWdVyg|3<5?lB+WQKkpOzv?C(KjNOPNV
zn!@O9B^elpS_Un03<5N<(1NL*O~cZ6bLY-YMc>k0lXAj+s#6zm2nW87*xQiVN_aBG
z<I%L#<?UWVGA+OYVrx~2sV?%}jvjr6&&3JW*hHcNxMhvgUCbTDBHMJ}`9X13NnAuR
zL_|uMU_pZd+ipE5PGHN2;oKN>lmM+Da|2T6yO|o3$LGzKH@ENFxqu<F(N{2mw1v|G
zG1kS8<#KwISrZu@&5H>(^vQ9c|3*(71ZqjD7Z(3^^CmAsG_H|f!N8u?eman+0UqJf
z&OCHPG)v#f>xE1B-LMD(MjDK4+>%n>(8&K*5cqIUS|Oane)@R_{u~w>|FLI&*3YN(
zxIRt8ZYRMV*(zq@-v@mRo~vD)#}oVD(}=dgGWPG?g1azPX-lm>kl_0D&3pk>#c7P|
z$9hnhtyKTT<@;=bX>jD)oYAADJ7=={?8=VIjJ<h{XY1BCv}xkqJ=|V?0xHM^qH&TL
z|740<i^#c#h$8^%^3<%EJI?@xj6*tQ3kXFyL93>&nR4Lm059?X#JPyWAj6?`0y-5K
zWQhf&t4-|rpc?fL4%YZF+nXFzC+=Ptg3iDV(H}dyw0xh?rEf=3@YT8Q<)ick9E=mc
zd;502NcnEiqIw@3ruoyP3cY9B+(x)|3}O7k1iIN;x@810$Y74kK}Up1G03bXBZ4ZI
zzH;y9nf1Y)EQ^?#G(xM8dvta29lhWvjKjy^6yx@*RS8i10stXkNX^(ba5iLe8K%_O
zpjD8W*tg^eX@4VK=N?o?$WMo{b_Y08^6N`0(4m&@Rg{Q#tDq!h{rWf3Og-o5kwXbO
z*|8`j;bwf2)={14zU{`}2wAR*1%Z+^FuXzvcJxTvqgn}=b>c>IK^uY}1n=&?8~R0m
zf9t^lE?MHrguE~eTz_5N2+Cb2oLes9G^9+RpC_EZzPL}kIr(=>xK%fNwZLsogW2Nz
z-_}SdA<j3{p|$7r`KR?4K<f{=xGI`2e@<db6yZ7&Bxcve9a5-rb^>N+4Ei7cu=Umf
z0;PRq;w2l$pzE+vPs^g^%k3>UOE{GL0u!Dkoqw}!IB}U|miCPkkGozIM%jf1&;-3?
zeI4kJ9`m=m7xDj9EL&L=E@^5j%6i30YM1BCiQT~dty>W4+K&TV8*(O~R<pZ!F~89j
z`vj6-{w?V1(+w#8;&tav88k|NQE@$c)@NMjtGpK$*4>DikQW)V<rNSA-V--EX}Bl1
z)}K}vT$JO!obvD@DjZ~%YD5f9ZB463ka`_UFBbnU0>6j9U;az>nB=MbZ|jsDIHRi;
zE1YHfg+_60fbOim4q{3E^eGr_EFZPQ<NX@~p->1gWC=KC%_=MNIiqkD;^E`#u01$^
zSLr=O6AXjO(2%hoqn**vUiRx#`pL(f*O-*FJ6?;SK(oO`C0PTx?f%=Z7wJ&lSHOm0
zfG<A@qRUlHet(}a9zkaH7yqXq);eKweUo@|;D8w;Lym>dG;3s{%2L1?VLn;&_hHb)
zBP$fb=nla<$Z$d`89&0fU;+|Tfa>~RU-yMxVDP&oLGMlA2jqmY0$WVek<uRnkSKFm
zm${^*WPp9sufH*=!T3FkfmB118Tzn>TVH?u$-~3kbgsWYGfK1Pzr-Pa%`*Fzpiq#D
zPN|s4g;&N}mA|2@X#!nAC?D|lEBEm9zvLq8@t6RL@b1_VUDAq4JTh8}x6Ih=>E(qs
zlAiI;J2k~83^;7$Spz^177&YRZdEd&0^nu-?;1MZ%>ZE8R<8WoEokuokN*1g>yDXs
z7bW5m<D`-f0yi3L*s8}YHVowun^txPoyooK_3PKOq7t_7T<s^;Wknq{x@Vsr0(5NG
zYf}XkhnIpD2PN5*QD4599IA!Clv0CyE<Fp#D_!Q`A826FH4%&Y+8kHsoL1tqND>+n
z8GYZ`SCrB3K!wn2p}nobN6WV2bVl7exRC=)K2V1KeF)e<2Qp?X{5XkYB1Su70bM{i
zy0d&#^~}4xJX3t=<EWrv@mP4cZn&-V2r_9Uszy}Se52n1(3PT+v_)UNYQ|MtEuzsX
zrSfXX)#_E1C@L<X%IScS7^yK(bCSweaLHRuF2{FYFLLuTbGO|`)iipy1J-tee2mLw
zi$P-Lw%^APNK{(<87E}>o|zH@{h!qlS;t&!=Nbf}Zey1cGeY`avta{IdoAO8Z}poH
ze-`PM=#=?eZi^K|BEwsBtbtz@j26hN+w~&BcvuN49!=ltO}Dt@A-s{!;R3QxwPc{L
z?>0EvXkYxlLg;(|?THdD4%*<4qYlUc7%~__hCfNepu=O*3%{JXvwhS^nH~MhS#kMM
z0qWoHUp4yEh8vGa*oBClz-1>kyOI?Yjww&iD_@f`kuA5G>2JHZpXZ%>g~f4<RdVzh
z8W{A??cu_S=<yIia*8r`Vr=dFQ&cpA(WEeF4hfIoRNL_0-MdSsPQ;hD|ET@K<>u;D
zRG`q_a^m&s@Eevl-o8$I#Ewt*<5wJ!aZ%70<+(b(iw?c&)I>KzS~vh|v8b51YUwx>
z1bx`#+_eWv>$sySp#7A9)Y$+HB0EJ$d4@Yr9y6dbxD1;hFlpqtIK~()n0HV|$DIq?
zEABg^7i}8R*}}S?uPn{#U!H-%V=0U@WG0Qzz1_VJ(~ZP`9H1;$tq8g^U|IJ7(GdIv
zvR|++(f}dIX-CG+uxWn`etWO(_AAN6z7LE-XXIj@H>0;`gHEqP>>C<DioWyopA81?
zd;S3g6}p=+icc-WM3hV_hEDT136sR#?=%MZ(=Idn<Hk~f|4*>M;C;r#ARcTMJd?D5
z^g*1RN^m<wkItUXR7`dPoP^OAm4>Rg`@jLflh`uwu{!4;Y??3icli%|F=gzYWjtNZ
zpPbF$5gbnfKPDf}ojXUm4PwZ0eu6*W@t%Dacs7$y5B3mqds3TYo;!b3gZ3Tp-(mbD
zl&SHr<Qv1K+;sq1t6aR8ganv5H`ixizlg<}L>6t>W9~lQwwLux`@CV+Nr2qkiH2S%
z$s-kpSFT?lgSom+Se}%DIFf7>kdV-#*`PpDXn2tLQb+|o82hq3+x2&#_yT}df##nu
zd4%S|kHi<w$%eHkFt=>}Kdl*B1Y;$Fc(UpT?^)T<FbcT&BjWQ+NMb+@4=gvMW^<c#
zAg2(ZMKvG^;!lH0#u)S_Vrc-Ge>&UEF#XC8m;$ztCE(yt1IB`t112N~z^4)$FRU8+
ze>RVXPYg5lPS?NS&3_rr&3wTf|E+30?qM3n?NrE%fCFxZRr4K8kw<0r=4fKBhdZgb
zEOY_mJD+Zj7OqA)AgKh*2V-r7-`J+Zk)jFYa|OXl0581e-i+Qvz)Lv1G-MN!ue3*9
z)m$-ZuCv^MI1!GH099*$FU@+y9#Q~ce*vG0QvU(xEXNclwTyu3PD5>5jeIrQ;fGQQ
zyac{Yad7kIo!xOnuvoCKn89*yP+%j5pHOh~;>@8}LTw<61CKyKdZfL@64ni3uaVIz
zF<ec)3$A=St~!Weh}_E&^#P>DqpxoVjd8t73|u1Kt_&uoh<7(Wyi|w&^VG7{@)D0`
zCR?RwPXU2_+$RfjUk#cKQg~2Q`!p;pr<ES-{b+v~p8QQst^4cE%~dcFBZNyv^%q?%
z3F9>W_U?9uL;pA13BMMJk7QYZ35p7^FfiVx83!XhI0xn2EMr%FyF1ls*aY3x1srI+
z13M|=-a-%_f}f%1*81{5C1Rrp=&nR&GtUST_X$F5;KQ%PsT<9~&a$Lmh1%)YE`Z5t
zPhY-#DL7n?zKvRjncMdM15hIpaE8+uGr5GHMIEvaB@D5r5rb)BkO|MJo)h`&cBwr?
z|G*8A<&AUP`}eDnGzWVOGR<N?f$NQ_>_ap^bbkcKfFu%Mg|7t%Pyv^$p*Y>Cg6v}8
z7?7^)N1l{LReJ`^$eLBFAo*N_D@7PzyaICaU?m-P*whQQLMR}?#qzDc@dylrB!>7j
zlFnXcxnzyiw%+hG$lj?<&EvbHocG2AD0IXyMth$j^CN%)%Z2;fJ+fYcT81+-m?lu@
zcuy4rGean=34tSXyE=paq`J2$ECL!<Q-QBEp{JA~Y=fe_WaP(>CyAYO$%c3dk*wDP
z9wO)|g+t;$CL%vqK09*+N8Z|9Ys-NHI$-AiW(9d30Ft08z+5$Gd<^Y2UyS~oL{0*D
z0*vm!up(zW#y1H;M;z~QF^JO}`X1XLlZnXs5DT_63kx067jU-wxKBQTF;GwG0aO<_
z7-cy8@hA%C*42Zxp^^P&Y_-LBwu_dSf{oclB`5)!ppG-LT<2IoV;uPS7q9ZHtNo_Y
zKMqRj1P}g|2u~Z0Rb4GSotL^RVth#gBzO{rV<kfz@RmT<?6T3a4D(g#A78a}&YU?c
z2WE5VTt4-_o6Rzl;OzZ5@fpUSngT|xO_Lt(@A@xb!HTYq1O&pNfCnB+kANDg6CkjF
z4ab*y4^fd_gGYOIeT60W_NKz30k`Jg3t<JxpBhnbu*+>HP8@ItU(PA8$(yR1ck<??
zb*QQFiHT+49U58cGOW0ozDJ5KA27jsj+hbNyKH&H60i)jnwt0=rKKkOt|CMbx5&7U
zm$Gf;G`N5rujA8D>N;P5$!{{lg0blO%^PRmWzylEr47trksmz~;o&+R2T007Jqg!*
z9f0DM2>j@BrC^Yw4tJJZvfv{B8Xb|i13*kLeAv;2MIko>hLG2Q|HF5%XraKwzFN4C
zbg5Gn@LnW0Z4>!YpnWBU`<TIzl`B^QFUAfu%$f!=GtyMNO)Fm{1s59f_VvFptO-Dz
zz>rp;N$wl9OIq{h&9enK+X;(PT0;D4Eq3yGy^#1a#nhcX|95M>Y4IO_oIx(ZF2tbm
z{D$0TebG<x`u@*wa(DmqvFq2te^imJ0LYTAXh?t#R$y3kpLNSAlB^JWR8Xll*q)SH
z;1d2ZY<>m+s0K{+Z|WVD2^7#(!P=b5#m&FFARkBe%pAXqSKpV8oZ+a>khrQ}cu7`T
znz-1tOxvSo!p}<B+H|tNO4OLG>geqAcH^?=D@AS#jEO*ert(aFuZ#2_y`k(VB^V*H
zi}~M#D_;WA?q_^=U=!GbujV)|1&ZoEod`<=nxa+*M6^}L1p;atf-AyWMg+Zx8ut%r
zRfdnBT81*8Sy7A|xPwY|KNV;w9Doqa+Ojoa2aon*2N=h2vSsC504EZ#OI_hxKcthp
zsI1UELRQVtSSyZ1t=>Ixv$9l6g9i-CqO5neKY}G3tuAlQ)qQdPI_FLV73f>6q{78h
zlAmwBFVOz-*ozJ|2TkLms{={_-%Wy}#z%V-7q8<dKrVX7NMhK7;miw2EInzA#pjzD
zUzh%B>s}=ShE|~&rD%K7GTo_j8%fT?tq39c9TwCrA-5+GT8wcbX9E-*L{2+6IOI&-
zT(W*Ei$Oz;k2c=N1|J=2H0?)Bxvai7i&6P9U|2W9$g@HEq*6<f<+!HUTd38C%Ui>p
z<;v1FzQN9@TFH>lSj&h)6db%p4&1kn9W%zurX>{8bka<ebB1s41>*|oYGJ6TA}02)
zZ+Zfl#rT!SoSq!0EYqMBS_=CF8iAo&Oe4gvI>GbYK*R0{u=vPbdEY=L*f#C%I-XFh
zc@HNpTn#A}g&%5$GvAz~oweXZYmNmXhX^3yD}P`o6-Wv(B;nLv>_b*Det8)wDk420
z8L;4&4DO36L1kDjMfj-U{rVS`tR$3Z+=28!=DCO*7OmWDE(A(U@)?o<=w8@Y#gi2S
z+VmN?WsrW5n5<zc6B!9X2DOnYqyU@TC;R8-A%#DKnqmv_bC8Sz+zs5DZ2bg(OiWeB
zMuPSk(+G%)xq@M=Kg8Ag)fm9d1~M?KhUXu!d_|g2(`0SsaA!1f*68RuC_w<ZAs=sP
zDqEdPd?pF*fei@vSPI-K2r;;+PH>Z{#8YtTw(cDzA|}+v7|p<NBcbEp&m1h+ZE;E3
zdDp3OKY#>-8%kAn7CN40k1kj5=zXy-Zy1$fIegKPzaK*tz}@7Oi5j;QpE5D|us=H?
zgNIr$AgNI}5b}H}`~IX7+w%om?WJc|avePL9}sX%402Z%-Un#>6j;|YJhZW@Pki7p
z!ffynBK0T}+6|(sI6^+}UP7=Nn0qMUG{R`;=3L8hbY!v6TM%xSW#G|Kv6GO60H3Sy
zDUg*vbMv5!encJ-G^VD&<#1llKvF~+e5grbD(40r%-F~u3m29k><z&*hio7n$HYg2
zh-)YMb%Or<M*y5`gC$={_Dta56Ozaclus-|8?ig9H;q}V53{KbO!UJBAOYk4#LSbp
zL*g01fYe=kg5aXtx0~QDj01zT1uP{RCWjI--{)z?_qEZfd0XuRE}&h(7C32%gi2}a
zO@7g|O{zEF-nWdoUB5A}8TOA#q`JqUQvk)5n0Yy*vh{<P;RCKIbM6}r76O4kYQG7}
z@ZkqT2Suh`$ZU$#R@(jhXWE8r{Sy27F5>^3%t$XPE9~<=eQXUITjZ-(roGq0q}->Y
z9Ql&3{NH2c#lXr3Tu&_$@z&LSBEL!Tm8ZN@=AvAKs)QZZWv1`b_a2y0`*3Hz$iv5X
z^39r*TVCw}%&vgP9|$_C9M<Mpkov|!J#pXuTyD^VC`a?`vaVjXpWl~Q27bREsv&Ul
zvhtdhE6-8gH@p3O1o86|B31!)cJTJ7E<z8vIz$9(*OdB)K{=>>S2W(Jsvkp=+0|{8
zWr)9m=95M?->fQJc5`^LIW*PfcT4Ec;Yo!TPk5Bk@0b|6<LL=)I?;1L*xpbKuA+cL
ze-?W7t0X?X=nzcde4Ih{#r%0AZz4D<1|3+2(eAk_<Jj^*bOjL))-P&;95vInQ^ml*
zpdHY-zm561K{W5>96i$2I@~_MM^NMLMDdPa8o6$gTV{v1lCBjRvivhqID?sX&A_0v
zWTOZa0cga?Ry-HODq)u+WFryo0Q3X_ZL$j<atGu}<G3`~R%?&{{O$u(iI<Ff(;MtG
zb9}3IFTo~46Le%5sNzXi2FxbF=iw~=$DAB1b|>jv$nb6}^T~s#80dWn2Zk8dtj59f
z7-V};R7_^?NJMk}7gr#Cuz|1>C`>~0Gg|9EA5&kXg5_+7wOakjS+rCQmLBb()@tEO
znK$w0jYn9SM3kZDNBAibXUBMnKYs&3rQfH|bX&T2Ho5`pc>cHAPvkOcs{DPj5jjC@
zlb*SuzWABAq}G<}gq%e%&~0rA&2z)QtLT28Kc7Jtz=kxl37EZQ(!1?4|6Ljgc~PA6
z1axJ*=~GaNs(s0stu!bekAcJkt}4r(BKI7R{Cc{iL*GLnh2N$}0Rx)+0?R=?&>^EF
z8Y1+^R2mQ?!haBt3y1=J;Xk~Q&~~iFOR&d5G%X<P0~xAEG*kN*{2c$S_lnBl8|TOz
zw<56X)JxxwQ_DawLkN54@MwEgd<bEK*55ey?>{-xR76G-7QAHgoUE$Rbsbi|+)aYk
z`n`tF5NfVvvfh&#-?Jzyi=ZFfJQ8}ILw55iUwjL=zW65;{+Mcj9}?Vm6i}p9ffpie
zs5Fg`vrzq_vGl7ZyUr<;S4lF5(z3PZQy#MWYrYCmb#Qoz4EGeh)Zb9^v%a5CcTtp<
zh;aUzN)!n&4yG}=n)hdE-!Zy!h4bxz^XqvYO_^Kf^x~FdC8Ve*do@1~#0R-6XO+>X
z9|bkdNHt4{e5f;U;OuLT6pWoNs578=6z`;aRPU2TwV(l|JBjKE&ivIdNAe2}=Ak;l
zDVpuik5A9DUMc1;jxwIcpz9|vD!JX~>vR}a$H>}A&KR5%6DZvs{bu<n3dJp2Yc0JU
zYdgg2aX(VXll1Voa+8!g&dxYv&1e203AliM!ym~62Z#0)lv4*0x8M#T{w^|W!r=9&
z@IUjG4n;uF!F5GDqmiw-UQ}PmhWU=h12{(iehM3a+Bu8!^A}~C|9Sj!_h6$^H?W7l
z`$fDy0>vYlT3aqyupsb46DV}gf976hprqZ%#@5_uCl)5PT<N32QXm;U-OzddFH%;N
zrlaXQWcYuC^>2i^^}nB@)&E64WfiJDU{PgdWeH1_UaeY+S}Yjj7o3EiCC}^M-x%~F
z<p7Sk2(EP+8pc%p{8d=|Z6AUT*lYdX?M<{LP>Ag6|CfAxYl_4yost=-v){fa6wAs&
z1-^Ls_*4T=>X{xT<}`Tz1KhL3-G5ZOCOBI_B0*Ag4&+`?QA(1%px}sb2Ir5M21h~n
zv5c&m;t!0g81|36u`%Xf@S&m<R2=xb<H*%~v7f|5tj!Nz!u_b6G3ssn{yerb`?9<6
z-X-(q-MM4<c){v@D^?0Pv>$sEp4IFdsWPI}(tbh1SVTyXvv44I-H=23&!2vFpR&Rw
z45K0)*PY4geDav)AfLaudXC|Pn&QnlhI7}S^;kdhJZN-cIJkQ8h)!Uyj%oL>=DH^l
z1Al7)CQ{rd=rne>pI;q;$yk>hTEJ%=Ja5_lzldsNpwQASC55GFb$Uje$Z;hKfr!v6
ztbsmD>*;-8<-T<3Qdsn;T2(5m8lV#_M!E@$ii(PC;q#Xk#g!O@;lq!p5DSgwah2#B
zLNSr)m6ZcdnU52+Ha<TYJwJ<@oWDKf2R(Pnd@aA$1H^?^^y0<Hb-us{qH=N$<jzd>
zrqmdQ*cuYi&B5guIq-YpEye?huVZ?HU7dm4C{(H2o2^9gyRfh@NYdHP4J^wJDxl1C
zExQ^6^CCKOkI{E8k)q{peOD_x-e-ylQ8>d^^buRHn)9A~$>5~u2UHXlePLR*4;i2k
z;@yFMA9o4V|J`lMBwKM(E#R>M^lKY-2s=qfmI+2{PDb@bD(r-6<>Qu{>@<LJd#F}b
z>PBgzx-m)xkiLZz`3m%dttOQju|m&x;$MxRiaRh~>Z6jn?4dcwrap`mc{+m8-HW2t
zTZa^-2Qy)hwuPDuMcwnVN!;vKUrvZTG!2(G1Q@#w_(nW06BB!UV`g+_TGxC3w_9fE
zHHPh&IY_THiJR;)l44>7P<6|YtgI{p&J8JWo-;yjmetnQPKOoC<j*{*BCzn)EfUNP
zSLxYICpdP&Sl<`I6izBGLe{&NZ^^KTMzpz^*(Wdv;g+tQn&c@dsHz5TIdbF2y(7!=
z(Y`S1yM<tjjL$<K3MNOi>Vs3g?ovl?ETQ6O*+Iujvb&B+xPQ#jjMxruoiBzV<^k}T
z63$<6)mxxf6TC0Q!+Qjcn<RXsZ0ztV$zsy-s+1}XQv*C{M=+NI5DpsRW9m$`byZ_%
z75TUgJvkM+|I+O|qR*4Sx;;@$LqmW36aZAzFau`~W*YqHSjtunl6@wQkb+pF#b|{p
ztB`b0?*`4iUS}pVHC(3g#atiQbS95m<*{3zg5l*Gt^l%(rUi1fVz6)FdyDpOgXqU4
zr0%H!djr{wAqwa(P%RJNEDW(yoSX%KIk^>`rt;<`%C-*68&NbR4mY8n?P+^Y4$iJ>
z<k}F<8d5Ymt|yi>G)`bYovV&;yL`rBkKkmWoKtnwj#GGx5s(Kc=nMf4d_r{&^R~%-
zA|gh3z6|Kx%S%e`Y1`Fs0hTZiYXy>43=fuM7{9c@L`C+<kt4w&At{igN<bnc+VViJ
zw&9GWK|tEuW#Uh@_~|zaEpx^UJ0HBoJ&Bm=GSUp3c;Vx^t6Im|9Ooi_pRjOxP82K;
z_t@Inu9tFi(Sbi;bCn%FgBBoN#b|EBT3T8@MMz1_4C?}S6a9K^wIG}^tBh5ngxg}p
zB)*VU=bAI|8^!UilcLCfQE4dX5{9ydhlh!;opr&^XwH0vY)L6I$dafubhH;EtJ7kI
zK81;koZzrkLc^LZ0i96|qKu-ZW{5(JUs{z0?@bOnwdp~rnZ4xubi~GKv^wL|`f_56
zA{Fh>eI(0hC7wvIG3)o7KZ+H&q0du_#JXcIDF;-pQV<Z>E!FYtiPe|O3tF~q9y=Ku
z7pJLP4tLeDdc1EcO-3NwhLPsl%&VI(08N!y((B)M`b)>e#}|T53{7+!j-w_kC4L{N
z`dwT3CdU8G)73k}HZ2$LO3H%7j3avyImZT0`1UkToPPDMspNfiI>ad}E62peF{?3_
zg<J9iUhBosR5R+wq()x&aH(f|*c+I>#EC4cuMY)+V-Y0sV&=`doO_&%_NWkz&87@$
zE%4v8f;77i$+f1~OnHhXoL8n@|HqEdl9unDKE_KLs5cj65xkgO^VVyt<xaY~x}tid
z;oI@U)+HZER{)8i%qemd)j0S>zMJ$uc*&>tiQjEo3i@w{+vm6g4Y2ZtO4||caGs4v
zJ8gr8Q!xPsWa?L#_2&jq(wh%ZsaCJ%EO-jd{8*2DZV2|R^3F^(&4iJ|6C`p`Gu&IN
z>LyX9jg|Vi`9Ve;?LIRdpBR&nz)uy#Fhg@uZt3xjX=4sDKHtX2$14+7X3&-`cL1(K
zgPU(Fnp;cPE_`MMa^l^7?qh-O`Nub!r`Ai6CtLXfN1Brg;lAqrZcDepkg9$aprw9L
z78=0FZmcrV&0oN+-;*~hUxg`#9yX<5IKgZwCRS8vPvOuj^yhS+F4ODH+T3%WasNX|
zj=}bNCz2jq+GTVLawnO&sov(|n1QjYuD{RJs4sRKNx91|DhTk%BHXDX<`eQeBQb^#
zAE^0(#>W2Zk1j0PMHJ*VylH7^)B|m7nOi-57#hmT{-_vR0P9<m7~irSw|!BsKt-}Q
z3?`pjW%Fttk&&;!CvI_j<CU~wLZR&1(+fj<>-TJ``rsTKvAok7*}w=xH=>AbDR^ql
z0FO=V8#oxxIUT=VUuOleTXcH5@C@#QFN*Kf5fd2T8eh1e7Snu4{!ByZVl&f+Cgi~h
z84R_R{u4u|uy3V(4CyQcbfFjmkZDf8m*o$rwWMur>sA)PchHv;dDdJduEjs*99md;
zT0J~i$I1e8Ql*)RxDLW~X1?a>HQP_HUpmT<EpRTq&P_}x8H1Vpna{T}GeBSZa-y5k
z2|1#eg#*c}yl!X>a$HZ++hrWtC&_EFn|Qb5z<sDExyhnP$m?^YnSWw6J#tux1h6Is
zZqy*?itNI69k_3D=Ho!5#x^I|Eael?&crejt1{{i1Hc(^*$GJgeEAEqFNm9}L+5*n
zMuN!Zv5zMLf-NyXK@Gr)S4L}iW^EcD^Nz{Ygik9-gLsghjJvU&N^FRgb&exXlRM9u
zk1RB0uxzv>*}G_=L!k0obd=UDK}Orh9?}QU+0x(r`3kK2M`X@Gkav4Y_uu(FI?PVP
zZ8Wo~8PB#DMI+5+w|6fdZ!ick32HJnZl%VhE32!>2(-?OC(f8yJEwQiG1ntZbfTS0
z>&Qw)cHA^k+?+b)x>&U{<|Y2|Dz7wERjZwLyiMPwk@{?y%+H>cB@c=A1FVu(e6!29
z)e#>N{v*Ihwvf^(q`dy(+oe>RJj#Q(v;_b7uMpy2@<tB8$raGWrYMq9BM~C;8;wbg
z6_anT+vLxR>S}t?ARwRChgX*sY!5M`{feZqu{?-m`LNi$2c)3+gw*(%%nl8IgQ>dQ
zDNWiBKSeosXUQUvqH-t~`_Kp8bT2%2vyjMYkogsH5fHk8XEm?O{dtTZMNVZyC^PkO
z?L%J8cn|yj%)RN6K)TwoIW)6JgA{fpD@hTK0TLtN8*l(`G~tVjT+mH!P^86x5PBO{
zUVz81s`2xt%9uw=Jk9Xa&xa`a9(kgeYLLeD1etXYc91_HzGh;mc_0zbJ)TLDC)q{P
z+JvYzNU|Qjbp8H|XYJtLrgiB(8%hZylsDB0!72vonidQL$RIDf^jJqQ#X6t+qD(+`
zj6x30iNX@XZP*oa339?9wBiOtgY`iq=RWXHo~H3Cy4ZQ^bmL=bhg4N~5<lG6z~kA_
zlb-f~O;YzLa%Db<U0&_u(XsLIvOo=eIUy_t2r|g4b*32X{7jX2Zc(rhQ~oHAK3M#C
z5kVq-&n#pBxX;bpA4#RFX56)in{2j>%wihxXdl0c2y4L+XoevfnaSVo2}NttOB1sm
z=;ZECFH^SBY<?XQCGmBVO-?nVw|J+vYyO63&y0B7zm@NFpK|u+e{uwL8#lEK6*Zxb
z-c;J;;Hbkun@#WOTPsE=W^$q?3sQHDJMQt$>_|yGY1}Zp_v|Z=W$KNv>V5#7l@v(;
z%Ov_<EmLo~Ifc}~JhXtr4@q1IMW}uB^Lb~F-6>^_tUkYnvo3<}tN;@+Vv$ddqn1M+
zyNB>kZyZ|ka21OrI7lZ)2i3X&DqbcKg2u1R2tfmB9Sl~5Vo&___L`+O@<j((7kS7(
z(S?g-<DAiKZ;q(PTKuizO=EKD^;S&wi?8NzWSDvQD{Hs2CVj+?;1i!7q37EEw33Nb
zfU@SrGF|>xu_d#!=MNwL;wa`<o;$LS-L~S4%u=4l&!1n`x7Jxf*KVgo#gC*=8Z>Us
z&myZ}OeC8Q&l(|>9AKH3!dLWJWyk9YLY6-1V14mfE?nhI)Zq3?9IXHG{OPidte@AW
zA-#EhXzb>&Gwp)4Mjmqdl(^aN)}U<OG_>J`Y-Ake;cAu!^I-_7MdIS(Y}Qkr&tdTb
zZ8t#IDz~qqsLc!QW}$<Nq-S5t>C>~sfyb3qvja|R{AN{n|9XF1vzQ4t_bh;L@X#-%
z=l_Fm@vK97UC9~rGgv_xggdc^EEOUb2Vuns<$ob{N0?GOT21^C(}JXQv*VBZp;iSu
zWh5K1$mlXjQuq^H{7GDFtRSX*x>C#KNCl_k)E*gn>BD+|e%7?l!*ZJt4|}9*CSptV
z_zW?JxKhdb+cpP8)LB^Kzuu5-$d(Oa3P+B-6^t;ou#k&U(zsgr+;Ov;Ys1vAo$|<$
z>ZG4`y%rM>Gqb}JqLg^J8ZK-U-(kD7!AZ&{y1MLGTB}35N}kfXiiX-7%dICV2MrcF
z)a^!aBf+?^RZePZs0(Su^yT9Md@M3(bt0K<{Z$wtl@2^eBdMZ{%jTJ*>$v{8NYAzp
z9UUEIM%lx-tI=&>4FClzwhKCC^;8`f2o~Lz!mE8$L`7RWEUoU6oQ9feprh%-@bFj^
zvN4@e=H$#)bw(wcUqWB&4^?fz)-T#e3aCX+ldq)%OXE2*3+37)tMMS_)BD1uj7lqZ
zAh^(#2lFM%oPXHyhOeM3I{d2c210lwh5!p&@nQmMGVL7;s1|OHwI(Vb1|~1Ybt_hS
z&22<1i&RZqek0$)#6+5*m2mNxB(9=zXYo?i=Ikc__RD1qbQhVGdlY&66>vv6u_lLU
zwxeCklfD$MuA#%V>p_PWhI_SJpZ3_CvOU&qzHvjitAv;Rl<`ufioL_*f#-I*x^yas
z&;#o}Q%Z*MR4)QJ;2&f_h^LRTjW_#Lsa9)<sI?(|kpreLB5G@EIrA~qQx1CK>m8>k
zpwdwp<5v}%A@;~nF3~Z$aB|c!&qfkW!Oq0P&ZWxAs;Wi^o74k;#<_t9XG?fy^shkM
zT3kFEXcq+U&1-NMKZDejnQ%^Kc)0e4Tm?F->)kcWYun_~#LR8%HzqIk=y`3+;)wo}
zE7Bn>qOO^A_E64%e`4x%Zu7ENK9VD9BiI*Gl?N`W&80&zLgV`|>yFx_TCDEdzPX;m
z;g}B`yM>flXy3u;4&gbL=H})wZH|)06g++<efaZ#jY|KGxAwo`;{VULpv?cDPvn1F
zPC30#NJt3rO1*uoAnf#F)_8xcbR;6)x!Aawv5~IoL|w!pUNzZbM5xN~UW`?%Cegg<
zN%p<FVr^D7sNp`vE?Dx+W<5ugYNET_4lP93ISp-TZ28|>pTbCBSE<SxZN*$S_0#QJ
zGhW2T#txb1P1v0=H(#4@*~uxE6v6W1BUgnptZnJS8z>pY(N~0?D)I33Z=q-ZmKBzW
zzo9ulEAqXL3~2j+pHluW9Fod7_D6|9YnYu;xo7aJwSv8q`LX1mLLXzbd~A%pW8|vC
zN6oG6#S=0fD8y7GOg;4K(W>1;$=EojR~k#<&H?=#b6YyMu}B1Eq6J$YhTEk`Z%HFX
z*ozl0-mndyLYHIKy+s7mdw$G@)&{Nr7yyey)!PNdP6505eHr@$PV|Ex!CLU3u2j<0
ztQ$AI0-cZ%I!pw`d4)lGT}g5TNDb=Vzr(+yGi_<uvqz7%EUru0oLU-YVq4or^4Qh5
zIUbd*Vk}Aj|CSH?f8xmh#1S}${Zo7Y|0|}l%G**>+mfATSQv7)(S2rW3ARn3c{l-H
zAy5h7CqsgyY>#E-@pBu&ShRovm$$aI?$j%m7(5k@zLH=lqTlcCErWJ<kqTVY(Cc2x
zC|t3Ww1eQO%K`oo_=*8Yc;Keg<QAAE7z;Ppl%EO_=7Y5PxlIuHI~0zny5F)y8f+AU
zgM$ZR<Xw3P$Y^3}ih3;h>y3>qpY|4?!s~&fT_{i?r3@wVmpqo0^382TD@Sl$DnUT`
zhh1PyHxN|pvYl#$?l-=)mV6;aOoqPD0pkHd&_ise3O71@7mltmjt--7E(egiA#S!1
z-)rmXfsV9EmWC}R-1u?ka)Utp_E870Kra48#_YFJw2fTcwh#!o+(7XPIv+R`S=zpR
z`<}+c7zZ7?NV|)rWk3(i4~#YoxQn83*J$6s<ds~&YZ{+cC9NEz#0q4?QcdAd2FNhF
zxMQ!qFJ=SF^6V@Zhvhk0*$u3!8SrqUX}mJ|V&fNsroabNR76-oS2PCr82Gz{vqBtk
zF$w&GtglDW>elVhBwSTx_;tgx=;+v(7;1!F*8+2!)(#8veH0r{5BiJ#t4y%s<GZYb
z-%G6!5)ly)`H~I1F8M;~W8sK8w6LfeQ_6$_e9gq$w(&}C?yioG+Mb<p=2hm)o}oE8
zA5}=PEM%EwENE4Sgk?V5c=oM@{ijr@`Bdqy=EqPvr`2}`JvQEuWVcpyhi$OV=JoYC
zqut{hqiWpR_GODSrfN?d+StHQiT1Lvu;}?>LODB(hfa@-)?@C^GFQ(!VUeg~>ZX53
zfwuTSTHXd-fmg{DJrn-qAJmWcIAb<QaL#jcI!C$^lMgO}LV5>~8Jr~W4wD2kj<Fij
z9aMt&8_0oQSRgeXmyn=y&N47AA;To7xU#ac8I8T}bso<rXhYhOYiUn&a@-iNMZ=;K
z5)#skUL&sr)Wn4r0hu>V3*VbD;hf8>X%uElbLlhCW+q8ISI0Mrf9r>jTp!XUQihiu
zw_jS@mVh@VG?Xfw(VVh_V#C#dZU!hVjdKQ^RDfts51|-1Ys^v#RbFN_%VJ(U)MDnG
zNq+<fM8^i+Cr-6$xJZExsawvL{PS}jx{eQrd*)`X<I(Hi<B+!0|A|-6hSXARr0vdr
z9g0VR+Mphr%@uSF=_8LFfd15l8W#BNq|%`Hcl4@cQM)BUcp{p(K@du9rzYf1k4J__
zNV&UB4@FCHQ4fq!_3p4r@`fY09lrXov62B|NXQ=oqJsOR((ui8U}XCv;6Fi_l$pK!
zdV?)t4Y>#p^=v%%IQTCAJyUA9LUHf8H`lZPV-SQh(7_EP@)!t4tw*z1ftU`uU|)T(
zA`FOJ$pRaFxC%Hzb0cW>If*o!V|YmoErq1pqfqXU`h%K`Pq7);D)Zb;4wZHV)}M$e
z)7Ss%9-@EwEdOr>0sb3uI0>|;_mR7fx(&xxi7d-XV6+5t=0gGcK-<0{EqVU%X;mFZ
z7A(h^zbB8~7dX4h%g5pE6^inO2yXW|$9!gf`V3*L6_t_%&W31L(pwrQScEf#GgZRZ
z65mQuEL8R71lDc6?7+`2i&QK2l96OWl=@zH!fV_wJWjAq0Np9%&y1h&CZZ6{ODoNG
zYTq{hVD+{y+Ehfn7!-gu>%%%g>=BSEoRfSw-RBvHfdZseO(j9PJn`r-945xHK<`p%
z9UUeUkLDt9Ycws!s9y4N9(^Eo@e}8scnK$O=F#sLc0yF8Z{|6Q3j%W|A)sF}kG&H7
zP%4h=Jb?58tEJe!b)Fy}@qYo_Ay4#Rb;|p-nm;h^VA7cza~FqR6pC(n8cYJm*%G2!
zYr(`0_z3qpLAdi5g?jXmlKbQ~D&mv!R}-fw{9q?Jj4hnL9@owwtQ_7Ih(?u{!QnD^
zjk_9;iwh_hVb!!RIsdnXGZcVHMSA`2!T(SRbc8=Y3w87GH=5n8@}InBg3zfA{%2`c
zIb+@>poOpz8H5<R1!F8l1egYoWClz~wEd~CiW(DybP&e)_CY$JMe_7>a8&ED*$kg-
z;@v;@oWI@)jl)fA&>F2ESwChu4ko|;eWO198$5fLFQJurr<_!jPgqu0)(GR%AS)DK
z);ANDc?|I>r_7d3{Y3A!I>zAhBFF3ADH*L7#ELO95OHL=<UUZUc(}z7Gb8F(blXOn
zdiOkkQZ$2!rH_2{dKy$;`^mq90*t`Cm?2<-kH2p;E4iKMvE0<eq=3*0AmD$1Oeuh{
zAqYUt5)QF_a0LRj(nZ6`5pJzqHs|1kAK*4d*|DS+a!Lp@jYcTY$pVuGf7clP8ZBTS
zLKWpi4Px@>SY{jQGLX*<wS+iGwC&;5fXprq`}#eQ>RRq~F$KeaDUTx%R2rZ4G<o$P
zl3fEby}e6H>uhc5g@n1rvQ#6+V1#Xz`uYPd4w<Gr8Aba?%v+06Vq4k7iaNq?wn^aa
z?+Cqkn3Ox5RN&gyP=hGHjO~f%)wZ^=k8_?D2xN{y91y{q@bY{Ri>!!As46y)6@~kp
z6}H^*4UT1GWK8C{Pv$AS&a_)dsV(-GT`q_WK#B$2=CN<<av$JR-;JrPe3B<16qh6z
zF@_unli{ynfs+d>osclQ+MSTZegv!Q2l`&``k=pb<XsMNVVo6Bh?s*3jD$XobV%EL
zBxrbhI|x%MRITNk=-O>6Q|JyQj1gpYB=^bf|9TC_XDc!q5tdj$X{Uud&iFx-NhabG
z1Zu6A>Qq57z08E3bmRW8UY8vaW1oz~z8S35FyfftGi&vxlLsYtBJ5@xLGyLVQ|h8O
zxiMht#j7pnQ=*(8>U5=2at6~kES6jm-72wCt3g;-K$UaMb8Rz*Vn5-Z`rDP|0U(>C
znt)~Rg|M95X2PP7q7a9x^|2>^0ii??l@1U$P*jH+t>xt8tiMWMKzL<>_RG6=D2hTm
z_={r48sps%^%)|n2|5n^fbv2wG9VLgubI#&Fh&XXarv>0JdVtkjquuoli$lO{E<4c
zH^Bly^`K_bhauirzPuZala#XfF{u@kWVne&2AYcyL&9dsC4=s?>Z0nLku<`v<}Z*u
zB&KL&R$bX3%!kFDYvsjyKU<y?x6e|ROf0!1)**2;4>MsFWM^>~<|Avs_3+@KmCimi
z(V1M31w>ll%SrZm5)umQD@CBnLH$<*S-2HUEjzL^Z*bU@93qEX5c?p}`J$VT%*YT6
zvB)qc4C4@1is2~Aq3reIYGFMuDi_al$d5=af&xI-w!;Zm&r~1+hwx%d>jcDvwe$M%
ziaIMaYE8jHPzMfmqoh~=#z47^*u<F+*Sfk;cW{K#1Fvs>EmDZ-&d4%<OS|LHb!6rK
z<;ox6=n#QN(h7Bj?&Ii<VbO6~)=B4Ko#9IR;W2Mn+a<}E9kRiGGh-1m`N&v`?FuT=
zC{B}cZgx;H&PZ1nG`UIn67gFWTgm6o4@mTb38B?Agh5SY#f>2Dikx;U;wF~jz2P*@
zzBQf{uzUyV`P0!=WjdZd{^MU?oB<mGKQ3QRX1yIC%L_F9xcKyrr;B*$+JSU)HHDQv
zuH1859|`ro$lF91H7i&jMy02xmo*RlsoflWwV5}N$pE8DdwOETA_AWjf9~V}yVb`n
zqTg<98-Vm7ZN(!a7_68UH^>Ut=ts67jJ=W?b1mCIR1feB*#b1*v<D9|wZ6^*gf-F0
zkdqzR!st$~8;HQ$=gm$4O)VxhQBxe?(DirwaUn=#%LT^7ATD}pS!dT0h|^>T4slmw
zr*LGr6vQWkICm{sgGEeO!#%*|ksz5nF|iomD;N(-5Yq*wQ#JZV&noP+OL2Dtb0@jT
zi_yV7#2Vq<uqXNi^-*|ydTngp(4@xdiH~+sJ4|{VZ+R0*!X!e{N7xP4Z4gdwvAJ%#
zEWi>v9fXyWG*SezxO$N8tuV1Y1(u*wXf)aB+`0x(Pxpz+jJWq$fh=#ivY7uQjogKZ
ziTc)Lyyx@@&qv;qOOkgXtiqw!jz4>-43Jp!V%?u_q?hMC<(TW?zN*jeG0quFUsiwV
z1d*myc@_caH$aWb#03s;-lE7KsA?<`gYdyO{25YD-^slnO=OtY&k&^$<g892wKs0u
z0EsF}rNQQ9!d#9lONF_5ZoWaFb^x3v@?<1bA^L)VXcri2`Dkw+joaO|;pXM%`!ijO
zA%!D34fUBnthJh>rKXHcOiWbb0=BBL9#yn@(BKM=?=%_ye5^LNf?=_0hTo<bUYv3l
z6!)hFUa!lr$BQRYf~wZFyVUOCl<y@Pxn=vmc({Du*!1kQe^@kPHA%qXVAj5~4i(nw
zq7<>nhxlm#T`wn<gnieMnjIi+o2?RU#Rm3%{6^FRgvSF-5ua^|5$5ki8)wR4@hCg>
z2qlSgj^z$KrQ^iyvmTc|{%aYy^-yTH1P~4s37uodX9V-P0{mO$79k;F;qB_v#er*c
zOF$|msJ*Jg=_NS`u4HZ_IFj(Ua0x2U!6J0?k&I9gOC4yi1AyJ7J3A-d5z5xC%QVN(
zM<CoIGtr)(A|M^YCgOwy1Z9l2$DRWa!L;J76#^4bWduBK`{b%GUcNg1lW4H_9!O}&
z#!690qr}r>^~QKy3ttbUEy){#+_IU(eDLCd0<P^c&=<QCAthu+I|xl}fs=T5lcX5x
z0Q2j-Jrc-cq$+}%+8>|2#MlpC2DFbvK6fg3-%ebR8k8a_5H66B5t*slXWOK%x_rKQ
z^*dg)J|?`^i(2Vt=B}v5B`*6di=&H}ICaWDhP#s=se_1g5^HsNG*p=lS2X$E>XLuX
zSB-Rf=*J{vy{IFC2jTf#21A;(T2fh8fT&%rE*1W$ZWKnuGf{}jMCAo7$)Njm@k~Bs
zaMtaSfn;4~m_l!GeFATadF}X^1<@EnF-Y(jqDLXP2jK<lnyx+FJ9@wSlzfU{>lU%&
z2t6dgFIg|hiDzOI$!vd-@kVF?vwEP}3^<Klt#LGoR`JD^zy-+Xjml8N`MfT~Z~i>C
zUH}R5mx*`X<FNa@1ux4Hhj@^HG$c+C^{5%f97ORHt55QgTtZkJ&dplR*?6d|Mh>L}
zOVB!homSEtfts`<loH|GZJlR5myhV;W<eHYbNkSYrjuXRaFr%A)DQ?Q^}xb+Jf+Tb
zEq)^m(GhK63gT<aXFVV7mY<PCgaY^MP|mUU0&e%AmxzWaYnCEr&W!8M@Xk#4&V<7c
z@&{CqovFdq2yQ{<DO=GaT{7KWBWR~?uM(q|8*Ofsk?Sq7ywpuq+g2HFtNyFy_P-uU
zxR+pslLZ_`BYtMOzV$$L%RW*!(SBgRyz$g^d3gmCCn(jp(ko+^yf0aal7S`Qh06ES
zT1~V2&;#&6OE6>AT8bl*-2S@mH99UIv$RST25^)C=u-B8KX;?)L*Yb1eG0A|ed71I
z9FAA7;t>c?2XN2zg7og@;18%YqB)AJW@Kpae+CU74vpt_l&-oK@&#xIx$+n2eM`$q
zUq10;hg1;OW=oK4?Jd^vOpZa(T3u&rK$mqUb+nJfz)9Sc>`D!}l}ZDjd#QCnJ@I>s
zj-(c|x;GM40-O?>Wtwqe4Y43vo)(HQRAW;vTdn3Qc}SJfa&~O(=1qDyZ|2s)c>7iE
zBEYlo<im7SBf(ZQqqHa_Qe83;O{L*xyH8cS7ZNcvU;5|sF^*O5WUDm%q$6EMQX<Iy
z-9glz`hnVZ#@1rpD=51nJm^<ZrkbUe9v`c%&Iur*Lr0u?E70i8$T3WO|1i#Y`+nkr
z7U(Qe=biQXH6%(zxQlz7h2vJE?<*S+{4az9PfcuX?%6s}<^+0R8+mNjZu=r@`Dwml
zzQ(wWC$=MY+WzL{n?Op-(>C?*EtB3fA!#gL?rK}*c*{TKapz^};WwRsWE7Cg0_+m|
z?e|+|^&cml8blicLb9%|Q>)7DRZ*Q20W+($VugcC3{pB;M@(oT%%s&{%uKOJPS0`*
zJR$xYg?Iax?xU#AU>H$opEDT7Ql3MdtJ!Nffz8<4sR#OR%m3ILF?I?98%D)-l@pC$
z9xCw|0I4h_If^WXmT9=|jC(Q$djr28S9Q2e!B-dIaD?C!7QsY!5p)L?35(MM`cILP
z`ctTAN+HD@vLY%C@?{$h`QW1Zgt!cI6(W8!S-Q{pjqFYy+pf{n?o*=`>aAO96Pp7M
znmeLQCB<VDG>k~I!yBH*8nyFOvp@elX94>?)Y!W*QDx0~m4keeYB!f|tP(r!ZhwY9
z5L@Gi>d{sq!B5lh>2Pk&sv?O6`a<K;#D(I6+f6sC@CRz<H8+^V#n-y%kmu53&u4lP
z@s~tqBHkorAglR6VE`Wy@}5$UTUaDvh7=;MX4EA`u&!-z`Z`)9-mCxS+8^qv7tWxN
zD{m=$*n^^{D|cpk46e7e=Z1H=y%xrt4e0~BbIxu=Q{P$K?t>bB67x@{-Ns2MX6lhZ
zh)qBkrzn=-ia&2jxA|bF9cGTb(9em6-VtW^fiGWtMj|II!sM3)QYQxv33z)6*IrQ8
zwR>dq;Xra&dyh)1#Jk|qRh)~~h^wk*;MNeBd<aw)EWHa5LTbc5xFI5=KS-EtnwfC-
z)xW(l$#xx?6?20yx`o_*2<XFHFnv(OrmA(Hh@m0!>|SOsUQ3#7SceEAN^5ius}8(A
zKwgzK1c5{%DGl%lCIa+#S+!dz7jhNgzNDIQE8Gl10G0-lsN8Vrx`u`&p$aF9??Z~0
zA}gRLunT#6d=hWI5K;ObDP<r-(fr0BL6lc_OuBO>BqXHVN{!ELr5)mbt762sQYWih
ztJ*VPCbG;buQcP!mBj($##02N$nJF&0LY`!;*!~wEaMFsfZR-99qFgj3-RaHeXkb?
z&>IoCTOp%suac6VO!96#k#60pQ8~DX!^pO{)Fvmum8ikAY%7)h`J**ErK{N+8al#f
zn!qKnWAlT|lDwpsSC@%B)BL@kguH1?KO2!~GPt-?8g+ub%Ae1w0pvnas}akANPKX@
zHnC|tTM5j3laX1CNFTbbb0aDNQmzy6U=XIhNr+_e8%UG~V40jaK>x<v5N+C@7dWc@
z=FW$46Vpa?&n?I-OhDm*5Rvi{qzam2;m>EU-o>0&kcfBNlCU&wU;idy(3PL?!31Ma
z-3Y*I&;eH`Qsj|tQ`0<6nM??np>CDznRj6pSc&f;zzR?6g*Lg2GNBXlNn))tIAGjx
z2XQ2bY%|o;EJZW0h#dd{Tn}KqynWq@zPH)BnRkfVkkpzGH9sJD3j!Nae59ZxGXnZs
z42@z6n#IJ6AD6H~?ypVF^9`1;_SO9-5Y_)HUaDjsQHcXZB#KEQCbmf7ugW4$qP8<R
zXyxM4p0jcAa-{L+ajsF7cbw6&%ICsY=ifiENxfZRQ9C9C<ncF2jSF*_b}I^{YX2Mo
zrO!a&HKelAC#T3IuFmpw?=v66=QkP<oS?-Y{o=(QFE1|+ZMS39?-#6<y1`0{+ST7C
z>}{ovCbp@yKeJ71ec*z5Hck3h?C8iX=<FyWWdONgkmp_?vU(&sa(5B8^65Fl@uW_M
zGE*m#*;RVyB735lm*gYaAn0{+;7A0HdJh!!#XvNoCy0n09Y!cBu6Un#3-J-a0)iwm
z6Wk8?7GoQ8K85?YIRZ9w_%`ckPLl>Z%`^uY+$F}bJxF839f>VcX6IAyB?*}!j)N`D
zWC8*Cj!1(ganRLapBRkdnaEp7*GgI>67kf5%~*fCy#s?oIb{Z;Cy(v-_B{PP*bef}
zsF;|YH`%RD5-?LbusnuT$%NR$V;VzekonF!uFiW3J>5x~3v`53YwJOi>P3{(oR$9k
zl%LUf7UYMm)4F&_PPExiNmXEiuNFW;?L?$Oj=_3C{f`?a{>t87ee6YijNbb_j1DqB
z0SI~-fsHbwECKQnrSyjnA3}luglTa|9<q0zfghqc2|zR=SdF_V6lTd{C{Pya<H+`w
z81y1iu1CZszyukmA&_hNBjy51Tfxwm>-<0PT;x#+cXW1IqizwfuLUcZG`z#>L)Sd9
zT7r|ABeveYIQr~~cLC;;?!%QZn!#YrNrC1dO_CP;{Kp{5KJ)s{BL^}9Lk3PTYe34m
zGwoJl4FnkD6h%K>9;ce;wxk_QmYn2p1tinZU0O`N$H?Z*KO7z{R!6S2Mts~sWg(}=
z*i<{onNKFJNLdr6v$4b)Z2&v;f$>N9&@M?}FxLrR`T*ksM(|ib5&LWG0<g_Mq=4&A
zBC;krZ2)kO-y~8pa?r}Ac{4!2<^hN<szwV&c7ai8I95rDRsGimT(+>7$Yy{Qoqo2^
z=O3G^({_HD=#P7x`J|s^)dI$b#o=M3OqQdu8j-Jpsy6Ee$c-ExL!-EjI)GM?q*OBW
zR0cSKG*EzXY6VR-!fY`=&qt<(2uDC}2f=9Zh*B#4bVAfGK=chH%>o&s0bJ?^FCd_p
zqRi*5_PG<<o#QI|5}FW+aK6hkmh)&kpJ@L$RToesrcz7hBuH>4Wv3!~1A^G&xV^Tz
z$*tb#)QAL)<EH=P<NbIaFLqI@n2>dH4|YE)GyqE{Nk%tFD^pQfX%J>xm5-*?pUA$0
z;67lbE2BAK0Pch2JR)1hE)&Cdw^pJvW=(aWge-Px+1p(!N4^U>_%fuPU0N@bv<G)t
zfP`Wo!}z-NDRuy$)`#4=JJ=o&Q9<rh-Hc^#<JHGmMN%H__Nr^u76#tm5b4GFLG$FE
zN0(Cn+Pz_YXvG{8uiNwsg0;t=fB3fV<L9S=w{MpokK4|3|H75yrT0pmcD`RD5M#_C
z%dPYHR+UWB%HPf$WEuoE3{G5a3h#NNQ<FL7X86D{aI{Obc%sMA-Y7z{S2QKQ$9`1Q
z`h>29sp%0a^$&E~HxTguggM_WFR%BI=U>H3mQOd3H8thMn5{PwkRA@$!lg^!!ysXg
z`?QM-3WrTnQH?`-Cnh3dT3QVK0s_wWe|vvYPVV@rQ%hhNxyPpMG_v&q3~#21nIywO
zbZ_tK>CbetF$@m<5wEhCa#CL2o=4cyb!6d|i?D}~z_8=3+qVzt>vLkHKgqP3e=JB0
zZtc%1O~@Y!ccN7~j2Gl5&4mx4{q#f;j2sUgK0KFl7CCg2@zq<mZhaK^W9vXnK)~8L
z2PrGa%9Ry|Z{b{OQC468CH-gU<HuX)90c=za^aSDuz=9#K=6_*(9N`y?SWmHjn5Qz
zt6R+gntYEm{o{L&`v$M$p;GRR9sT?3s_>1>(&GPEz5P~Ek=&MRD^Sy~g*Vk&Cb9HD
zjrI1t1o3xjzH6(#*QA1b&Ou_WvUb#2-0nos$Ro%CYQ5_GtE*LABcq~@o7JY~n`pu-
z=o=<x?K033ipALmPxGlKzw2^z%GMz{PdH*VR<~i(H@jFMdZd92;VEYn)Yn$DOufv>
zX*3Btyzo(_iGe$l$xKnN3dURxbL0SOGo8xPu*~A1xT)d`AoUMFDgE3%4@Q?MKPSPl
z)VaDD8b)0(Hy{4IXE<uJc=^n=6<9j+_L1;$pG|yVLmE~+SuxVI<62)+jzKY+`QIoj
z*R3;32~9lUTw7Q79=%t5I^3SQp)P%gDbL?1{V5SspA22$g1DOU4hW}HSIVep%UxLU
zET$aB2c50ctDt=pzb;?d=5Twm1l~k*C>W)SdO!6+wB@-MkIgaIDERot%ciBLp9cuu
z*41Uhh)0|_2UV-eD4cRvz-02Mxj7&Fd`cP{EnaBp>21Su4{h(f^_MqfitFlHj`+i$
z><fk^u2)X+@$sEJbqZe}&omc3kKkc-j?>gei~~+9S7@|VnZs;r)~K-$o3ML{z!gnY
z*Wk>V`-K?=Os0W5#Hg1W()rRDdU?wz+SVGiPF`VOd#qc$r|GcW);BU@#&CzGVa=kx
zp<%7-G=y_|K%Q)R!kanRf*n;lGu9taaqqV4QcEmy@9=SDu7oq%TuSuXd4p9(J}c&8
z==&$Sn)7L=3=FvN4&u{GwGSPdLpclNbD4i{JiJdR9x8F~;j1K3yB5deep8?Aji9#7
zqOygJ@L4RFfkrpPKNo&{_0<&>oYyY)F4TEwy6;DVcIHt8qTPQkIUHSn8&K|Tv}zv(
zVJDXAAW@XgwtDrpW$gR^0=>Iq$?sP$n3}GJQR887@%I$~)2^YsgQ3*XBS)^5bPkhm
zP*5Pf=i--x>Z<6dd`2XMu2gS)Azl!)GAjXvK^HHNzqA?rveGL{OSj~Vcktf7ckisQ
zQ(=wWwH4nWI8Ocq9KbBh;u8FzQ(nS9Ydi95vng2}c0VkPZ#1sbq_nK;{OHep8@xWl
z>+Gd<t2bV`WPyOz%hQw<ShFB}A`-hz7E`tg301aSQp4cpUwRt=`z3a?6)CoU@}IWH
zlHU|!gUtzNTRxn{Yp>6)fb;$17cb7RV{r=Ty|lcAjl|n;fPv%n_}R0QxT8nfY{bUg
zPM<lm<%G!G72@_iLv4FR%YDMS-8ncow!)VbFz*SiTsQ6T9amrf)zg^G3j@b33W|yb
zuEfiYxo6S2nepMgoaS3mQQOsv(Jz??48J!jMmJ&*1UtEuQJr`dUQ{K#XeIU52F9<<
zimLXET-n&e{@S$G$jqyD`_`>nGa`1smieI<uqx~DLO_#BbB40s6Dy>-9v=$|XfxJE
zS5)IwJP{H+UqJt%7!ZObVebWtQX@+*yn{>3uBsFq#uNeXo69(o)rcp2@+V-U&RwHQ
zzdonm65|pR6UP@(F137G?>T%SO=HjbcMH`MqM|;;;4^w08(U!U=IzIQ=a8HacpBhD
zJb-UtVKsfCUz=g|-Y^q`y1525Fk*OfetkJ-0p6Z@l~EzarSv(-+!^^8R=0ktoE`<>
znlDI9MaCcKxbz>JW5ZS7ThGu-3)M+nw|@QlxgLLF0m})W{2;e3vl;7a_`k5v6ZUm2
zddGcjs<V3YM8G!UX+664je=R@c-NjB@AO8IVW;eqGBVcOuQk=wxIGefO6<C1bcLRl
zrd%})HkzS?Z5%7lJp8g|=}|Y6(#OXr9&pghuRAC%F8%_WC@8PKz4w$XBWf5gRC6WY
za<Cy_%g&vDP%gqwh@M(Wx778VfI&<%R)z_Z&8D8s;5F}H%O2$w4z8AW{+WNG3fa8F
zA6l+``t%C;kM7#+4y=WrZbUL8d`IR|PRh!rIeDfWe)K9>Xv65brxeQaeMAdj`XhA_
zpzWMOCs?}QJ+aC0ogtyu*T9K^;sN_fja_;G4@*n&K2y{qgrYo?kDWL%8oNv}T+Aq8
zDA(J28PJ9u6c6w$tH_occJT)@(dF$)Fr}fqLM3+M=&@t!d~r%V{dG;#YbmF-wau*$
z9kkR@jACzh_dd<zulDld7Rtlt&p$PfclG1IJ{uo*VsLES*x5Ij)n7B%G&8*}&u8-j
z3RH4SiMOPhk3!7RbLSo%xwMg46Ks;FjU3)=TDWrq(rR1gl|OX0O2K!E8$b3@cD8nc
zp?lZoJ*jm1wq3iHz}#k&u?Uv7w7BVA$>*>RgH3j0$ANNzq;!=Q749`Zzb<!Q_-b--
zO7wh_t{xZH>>Aas!kV8?Hcy?jnCaA=v0_M?f_L0PZ!HWlN-=}2)~Ws2;PRoxB?`!m
z-LokamGdY`II8tIu61U*Mn=)6CP~YFQ##V>Sy2ysB%1AjMJIObZjP~Tk)GM>wNpf7
z-J<Jn47D2oOBZ~`YPc0^*WQ5h<QO)&-i0d;stWv0(VxJ5lCV0Ja4~ge&cP!`=3)8Y
zy|6GZ^uk;A?Nizmtq~tE_!e~C;ke2Sp`xD27nY(O@SwC3-?y*gYpdh;l)Ry=9OQZ7
z?`UBbBAyir0?*s;IKW9ciwannnc=zTvbL&ftN#cd<SiF3@*n{~^<zqYE(LDt^C=F%
z8=&UmbPCCOk@qw5V=(q0P&{-J?HTb4HaWcNIPkq~BL$Vw3w578TPj25Uv}a>t!Llb
z*;$w)h!`CL-5M8W|CUf*Vh0SfTb%?;Iwph9)3f%h{EY%wM}_H%5oh~nQ}7=PI#rY7
znpu;B?n29ZSz7AZfG2RE6QDQjQK*=Wtb;AG3`y9AX6~^y3jSQ)Zi8asn6q={WVuON
z34XWR;J0BlJ^pF5Na9XK?~z>c`9OYjL{4tmNO#>$goDR8Bb$sy^(xzKEWA?0-Mciy
zTfB-lm2cjHRZ(VDdcnKWKm6P_jE<C}$CT6tKiIdUHh6I9$0=juo!Ad?T0>*e!%jO}
z`Ac@3AtJQ{DyND#)u;IEPB8Xva_{7wwo8~Zc+Hc~d-^PDq-&FtE|gbr{QflFh3@zd
z$^%jB?XY<ayF285>cpH);&z|DKiQpWJrv3qa9X@YD>hH@wxsUxxfA2MNd2KETTeSa
zu@o(^8DFiL-_nEYq37iK@<}`z<AszySQ(58b4I77rc!p#yhfC`)#mo$H-Y<`oiW+}
z<JJ@S@=^}ExJZD)`N2$@d#8P!yz?LR;2o>Vzn&JTtf=^0Z@K%=i|u7xl)kp%b7DL_
z@LI8BhIo6}wg{VPk_Km9TSnSA1aWgqY&Rxf;xEg}k_hZj<?(j_WRH^}xO|gDn}X}~
z#iES8VY+D<8MW=Lqn*|A7SKnvuF&?Z5*up$cv8__Z}*=+>N8N1{seJ*vAb5NKHGVn
zQ}(9cuO8aegv_74Hc)DW55?#fdwIrJp7KGH-t2W0P;RDi6R8^UU8|*lS!pjXnu8-V
zFgOjJ(1>&h`EYW``;E}du-Qp@2xR5|Xzkknq1xB*+U2h8mPpy-@*#r~b}=fHCMq2!
zY%14`XiL<Xa_Pc$*)tMDn$#ho;&jSJKGoJ{Lc2jBLwlG{$dp1ZJ9g!eIM32){{?6L
z=EE|x*7~mZeV_MzzRxpiWhZ2x_nNYE{RhT+GrhSHGgrnt)!8vfHr0pYS00b*o-wF<
z|M4X_zjdMZV`F38zs0O2^bHK^rK04I0DXaN%pddbKB761#2atztI<OAMF+sJsXA=2
zB$Vfv|GlpjY4<s-p6>XcdewpBM~_xMf5|e5ar?v?5w9Vyi+BeO7$#2Prl)U>jiq5W
zAW{8MSnXY_e)Y>$7WK_G_3tQ27r;vOVW<SsQqNB&Sk5WHh(>&Km=XVw9Uui_YcM~o
zfqXK(VrdQi^tg%Rbee?O`NQpIhfcn9YE;6kJge5Qx@g;6X+?z^1ac~VEw8Ft3Iz#1
zZ){CgNZPRBmb+Rtod?&k>TgX>vUKg^pM^_|T`x5GPWRTbW>MX%5L8psEvQ~0?Woe9
zkX}&@Zy;ItpAh%8k|7m*r<!(=)FA(-aVmt(E<rJ0h$<S-y%0RCQ>6uZ5Y~0E)7I4N
z2kwpJRod!~HMUt_cI~3g-!cZLBsW^<`>JjEXM`raI7%pXh?a!HNqMPMy4;S1I0S7Z
z8a(wLvE-8L$6p>t)g#ls{?7S(=iZ_pn$dF_iKez=6<KVSTcIu)L==;Z)#7x4ifJLn
zKVEHX$yU4uPNbhWu`%(N-}`}P-eGjyw6<vAK|$<GML6I-5d~wdL9=+9hld8f2*ED1
zjEdT=@49R7vOlyiTSa{&BI}{pM(RRz+r*_?*?{5cnT)|`5Oki1`)^t=!?CB+N&@X+
zqo@ftcXt<8SLJ8n>j4LQJRUd|Z3b4wk3`|^+ZtF}`rsKH1BLujtIoeWhZ(-U>1deh
z+uMH!UcyLr#Uv+MeA&uWg@9B(Ce?C)k0I8c3O@lI&c4!{uS5SY{;Y=|EYEw~TwS+D
zMp|GyHZrooe0kT1=-IOrXl-ejd*7<an`QIA|J<$f;#1$$!Wun_)F+WoQ9BqB@jGZF
zR%EPHzFED|8DTEddajA#?fvG}_IPXia%6ivGfs`%61l||0X1C2-}AY-zGV-CEQ5fT
zh(s{n<86YLl9{;u!@j(^CRe;}Y)58NE_eJ8#vt|JG07ADfi|VU=ty5wO(hvwSt;5x
z4>3cU7_E8=1sQdR%nP@gTU%2B93W1wPNArzI{gGjQ4oGNsTIWEnTnmI6+Rz0sj1C3
zzJ2`oaXU&N{HrfXkR&W*A80(QlMEVLb0gRePHgr%O(j_%ZA9x9=L(YfN5;J${KQoL
z&RJ|zUQF2C9|t*QJ#ufa*f}C%wVAoOx|Wt);mFM1yAe9DCM^;jEM!mz?4XXmEi`l$
zyoo|8EfQ#9z4kLhS3?!MApEHB;6Mq#vro88M<)&1#h0#GFVogGDHTF`;gC2815O1+
z#q2?dE;?{CGlejz%(`-g2Phc({$l=cV;ke<AFOMkfP&Du3eiK&gCtoG_#u)=(y%|a
zTsQ;(wp;is_7s`rbj%rIX`tD(xP3iu9COft6XiRvH^9j6$WXh%wd>dSgF8dSTLk;~
z`>)Aq5UST_l5DdB2^CXeX%q6#QTuMFNi<%lJQp6%iMY79Nt*yy_!YsQEaERQbFvJd
zioKP>w{u9`1bPXvND=Y9q_jP6ewe)h;3MwPJrU$u2Z}w#|MD`6cp-otW6RL7U3bx0
z>l~dxzrDB58QBB`MqSDT{v<m$mxG~jS)&7a?_fu{9G)03w}1P`UwGFt5OS)j1*ck3
zU!O%|@p=9WJ0l|*C~h`@Tru`xAu1Tcifol>M!M0AGS)>$hew`g-zEqdQ_anDqW8qO
z=dT>xQ~-U&PDclwPsz0p#v@+{)@XND*`AWY<%&M1pk}%Mr!3YTG&s9!PuSv;QBKKa
zI48q{5<y#@bmb70y6XjUcGzHDVW+PGpU-b<Zm!3`q|oEWJFtwU=*QKAwl^{vyaBCj
zA^HQ^d3otDuFu=yh$V^|UW(R0)6=Ie!NG=JX3N&C_!jtz11MZvRP+s|5izE#e1V=U
zA)in9-z&+ppuKiOl%krMIbjjNr#)$JRp@?5vEcS3?JILeZwMQqjmbj#V0d@~MEX{{
z8NX5;Y&nP5?lBV{IZo(R;gev~l~quX3B6J&DIsqZ9fKLUi@*POkdn88=qg6Hdni7B
ze!A$ka#6g$1g9bv%vbx<o7&zp!%}|!xfme{&jlhAy7<}%Qdp7|5Pa{ciCYS;>P7e9
z_g#Vm?hHnjAMMzqGs_$@OG;7Zo#*qVV2!Q>j!gmlNJ&WvLebcL|Cl+H>r?RucE(T8
z%xx(MWH5-r5sq4v1h=0E0++)rV+9E%mDozs(GC%!#y~U@t%9m5C!o9$qCsR2B9KF;
zyM;$aUPv#4T&W^dR6ic2w^hSEb=RmK?FfP0F*3w6vDnbYMvG`i$b;%EuQAwixh33H
zunC=s_EBVBPCnj!s@f5mwLo12l&$7uY6Dd9@ZqNr$k|G-Rm1Cxl7)DqJSCfi-WbW*
zCdI#Inbn8=Xya(xPwr%C6J*7HRUn{{y4Y!<`0mAjDxv7(au;n63p2s3eqGi(Jw5HW
zol8yBDVH`hIFaRkmvsB<*RS^oPTI9yapZ}`-U<f#DRm$xl08EsBcpyaq=-bUL(mp|
z9Hub5B8VDn0SHL9b#&At@P5k)OpxG3F)F18^>M=p09YkbID|4kB_4Z9AF#vFhk|Ja
z7k0(iD^TAhC5Son4VajCAAfSg%M3$9TS}gMk9y$A30d?4tl)5$zbQ@w03)nYjjSCO
z`79%!1p~1ugq1twfQj%T81&Y4?WdJNrh~>B;JWAhMr55kw<vS30eR)tZlcX}y5?rG
zo5`bO;GQr6^#v*%?zkruUP%CP!NUIx+;xGtw%qV4PMDvI1@@ePDq3+#i5ztB1S)(o
zC~xF>Lg()5Axq8dH^z7Qawsu&y(5d8FNZ93;dbLB@>ryag6Hq!n=^RHzaGWJBl2PY
v@7SFfjCAz%pl(Ku@b_t&g%|%HANL`lV~K*gV1MC)nb?kPZuDQAf|C9V$NVx?

literal 33660
zcmeFZcT`i^`!~vr1szBEj-n_C%t(|$nh1#0=qM%Bp?6TELqIx&5)~^5NRXxy80iVU
zN=c$3A|Ra*AS582P$DG+0!i);et+-p`~Gp?_5O43UF)v*ti?$<=j?s<e#+<hJkLHS
z&;B;nJ^G9AFMND_M`3z5&G`5Zg!A$3b2)Sn93iLu^BsH~bTQDq2|mHLeWM8pJ`Ug2
zvkl_o6Me$_`zdK=)s2tucRtw7>lWc}mM9S!4sMw$6V72CfBdok<Ex4TFC1Zq&Yk<|
z`n8|FiJ02D-Tl`=-Rtk&PHUfjfBk@ppvB*(ZEv~?9(bvJ?bOK4&_n8a=XTB=KMYau
zK_cH=Z2A*}!8S>I{j##tNW<u7g++81W6T!{sq6T|dqes^yZ>h-aP1ok667;hcKU11
z!4Z<#PR3W!uQ_~tHqDQJ4Fz}XefS6L@lZH^D9Hb$V}uVK%Et#&<5ve~CXBqc2gPqU
zxBUM30N?ilm;Lg5d=*85BDcpXZF2ee!cQnZ5aJCv#|ZZQXWo|@DRU*z;jz%OOW?nW
z1U+#6o_h!+!XL%et8zr0PZ>*@o`ZE8uX$&w*-NTkYTrRUhppM5uqnHc_LtgX3?JDn
z*ByvGWCYT#j(V<tS+hMG<&Zh80z*4~4M+`vWWI5wL)6cov5uR;Ks?f1mi(@ZcV4hn
zX=h0#eqh0@j4oekzYLp|jF4)NmU7CKP8oaSI>fgVBmL<JZ-DWXTG;H+J4e$|ylb&x
zSQdE+VsBa7@E1y5WN^VaFb4I_=u;R>ewE=~3rXKRZZNa_0OF%G5{i9pl$_%$NMcB#
z24R7J#ReuUjT?w3__dus)0eZHR4`YYIi8bspqP#5HmcfmdA=tWs-U0Y^8OKJSel-K
zS$*ci(I)-n(ibikzKS7bCUl=04%FZAI%=q>hW4u%|DZ^(rqm&W%hm1g(1yv=qR;pH
zhoK71n(?(uTJP(cQc9{%PaWX%j67w#k1r?rJZe|1{o#d9u3YQPMt$D9VEh^T^V{k8
zCqpmA&u@>O^KP=#k!(<I|8k+T{MGbhh_r0gQ(^o3L1fdeY@gpMPg&Qpi6S4!*<=HD
z(Rw(TvB!S8F8@36c%S|Bg?-Pf2@>JlS1!TpO=i#UioSCB6y$-*H-k_+gE&Kt%jUVu
z+Nux2On(T~{}<f(aDT(KI>GjuZ?I#F`B7nUsy1P=sdU533hkXoJ5+>|M@jqXMUWuG
zGx`_E)IiFgXVK>x!o%Yhj-S$f5SHrXvKtcDa8ErYIN!!|3FAcDNSmOXZ|CnHdpgt&
zA(Ria<tlf`$L*)T{V&N1pAQ!|O5R@@ii}mG!0O6OJ$eq#jFW%I<1d7Zbdgzsai9Do
zBvQ_f8)RB-Indg+;{~71d1ozXwv+WmuFMyjn#JTFWQ6(!JTHB^r>s${-2HUp5So(R
z^kTPK$mc6X)&8+ttXC7!HP@kJ<#~^Q$UoTzI%NYnPS_L8Eg~D$Zn20?m7@AP@ppW+
zoB8<Q?SJj#<J*{Jsr8un{5|(lt%qBBJ<DClZLzBY;zJtQbP(<#H(fmnt8&VMGcQEo
zuTyjfwruM9n-7wQ91ImUw3}Lw@Ll@-#zCIzQF{vtGm`4kbPj)RqG=Fvu4h>t)jCbO
zMV236{Z_`V^^JuiJ>PO_VWA?|xLL3Zkdbrk(}F=V<(aO*aoaJ{oy6)<J{BDt8ZX3m
ztMbLf0bn#bN6eM&9xj!Kpq<ZJzmTQeBFD!6!*x&au2^orKvOX<Nb8317i75H$;mCy
z{k0-Saa7ic?_R4u&xv*1m51vpKGdm(pjEVO7B@T~fgY%M)GpyvTUAkwJ(z!d7WdXZ
zzTPh)Zfddk@P-d{h#=~*$JQdg_6^Ti>`cFji5lyw8p`AWKAR;-_)mP{)e&VM>L@9}
zGG*5gt7frq@)c9$qShuUbNcnsI;2#)Fzj(!N9aqx*bt)go@oC3(JV8?)jJE0g+$O@
zp64fT!#EBe<cAQTiY6=6$(`Zxi?Fn!>SY2dN}_!#|J_AhKN42)UtN%qaXn!7&9`|_
z_1!)AuUNQHfu7iv%S!D+_Cm&vP``?0`w%o;Z;c(ZQR@&3C-_&u1EDN^RK(G`1pl|3
z$wVQ(9N8bOH{u~jXucvTF4J>!=3hhXIndP?g3rcHAQ9)<1LCiK&U;#oW}|kMw4cu`
z@P96}30{h2&tv=E5bOsdVu~Si8@c6>%#mAUWd3lv4l+q*1;_)yD4dcpd6`KgD<7pT
znH3s`p;BpsXNGdRZy#kfHjA$=6LZSl{enblDEb}(m%8oh?H=drAxLDBBkK8|siJ5A
zoIRWUCjPMRZLgk&#1wNIU@=#}fJxVgO6&=or5*QMg@5pq{8dkqotW`jwboGP>*;AV
z^5Y8)SKCVjpY<a1G7jGMMU^uvv-P>;o0(;1+?m$?j)M}w5b7j89N~Na+A=I|;S_Z~
z_X-#7x~>Fu*?J_n{#A>Tgiq94vk>pdPM;o**)ZR1Q9{SptHi7Scf*m75M4=I>2_jt
zQJ6L=Oa}GTyGdUAxd7A5Pajn;xor>K+15oRpd7|;j?gcRs4(U(`+a^cxIWW8@4;>r
zmFK%gK67~(2<pAdCE3=qrJWbHuf^p}shdLrbkAp^r_&(T=No=+J?9%w9)MlZs|rEk
z%w_Vf$h9_C5ljO8P(J36QvOMLz7{oe+BwBH-L(Z0gwn`xp~YqwTy<}M&;Mu)?b-_A
zqFn1CDX5ZUmsgKeT!3N!FSZTqwp;w*Jp66bBltG*Dj%P0pDJ&NVC#h*|IrxEbD;md
zja91HJ`ItSY>;lp!kqL2BTzR|WSk4BUa;8<Bkp}qh65d8TFKKUQk!9Z31oQeDawRb
zJ*h^qeQ7X;jqz7BnBi}M<)02coyUn>&k|f+9(=obu!>NcIFnEm6{Yp}9ed;^cSA5c
zHs8lr{c=~dmUr}uxQr$t=!C+U`Nf@o4!W^+9L?dBxC|3`l`*Qh$%6BbVB2CVMCF32
zRx4hh{7-V~Y?3`=x#q&unUu-!tXHo3s54TDZ6{%z(u-(Bn%-I_r2ggRLLWpDVjJ+=
zCMDH%0BF4dZ{hEbA{+E1!2f2xHQP?ceF9>;CSH;~T?wJ!#u8zd^DrwW`s6xW!^*n;
z%!TM|x^T_>L6at2fpk8TR2kJ2`ohI9F3%tgwHkZ+hD3egQ#xGM+yD0+GR=niw4=?V
zR+!9c<oe5}LL0j`a|d=kTwkjNtn}YJ%S`WBvGdruhWEilSHInTuz@}#ns)BlnEkkl
z)!>5n+bA5_1o2D~rlZu?Z2%kc>-`)DLu1UtuA^j6nT~fg7iw7*uGr--k9$@)11)ZR
z7+ToAv&4aj8&(;{nOccT>BQnB+sh5yLQ62?e(mq8-1@7>{d*R5L&}5>Q{e|y6WvqC
zTacnl*Mv`_(M)ph^~C(N?u}3NH;;^peBsoorK!B_m>RIGErsqNjf!`xLh8~}0=g0}
zmJVX})2|VHE*^y`nANJcD;j+cLllpFg+vyd#*NxG%4Px!=9g5>O%Ltxldi2dNty9E
zlYDNWIV>)3?zmK9YcJ$=-f2xo<C-Di<<V3$X|4c*O{XOpEBw-|-o7gceNfv-k4-t7
z?COFtl}fy0E%jKjf8EaC#$&vbKH^661uDvcbrx(*mG3@5hP?e}^pjwEJ^qZL{?u<-
zi_@jAC*Ug1daHJ9M8!U@TNFVBEv4c6G8g=7*~{3q)rR~7@Kjwonv!Fv`hlEY{A-6@
z@&ud_*0rM#r=+;V-Cq$L*gt5#9ZN01ZBR<=^_Q0^Z#TVdFKYkQsNUY@<I6=Zz&<7x
zRkC;cH^t>1;3I>yi&rv3>inHXW1^s=Agjswm?_11kATFg$S>TAFcFqKa6X*e=5N+)
z#Z?`?uT){r%J%fq{r7mby^oBtB8p3mgkPRn+V77g_{7+I(@#k0jHjj4OAksBY!N!u
zp*1;N*HuV(ic8t#%AlBS)EzJK?GT#Z3v{vY<Jxz0>XIEsy|#O^8zP_X5?P%%$e)u$
z^+vw<`I_`|y(;I0)jwdTHmkFAjs!ZIjb8bqb*8?pz~+lv=mMu=Fk7XvYGqz9{Q(u_
za<fky+kuzX{`uQ#TwRjEvbIy`pSAXAk5!3?<&Rexa+0O_^6V8SZ=^Skt6;B{Mkqpn
ztN&t&z*Y=<{<=yqQK-UX8cejE-wuqsW8F~Hr=>jUwW%zcd9D}{i8!^XD%bj@yw$6z
zpRLI*A^61|c-C=5%LugEQ7q2Bq#tK`pI>s@G49bTC!>JOjq4HYzpPUXm@0*Om*6SW
zV}j)^&gKy6=Z)iY7hxRrR-dbi?d!0ZSFX7SL-1MX)<)pw;;=GlVs<jx)w*GfU!<n?
z-DZ8g&F6GhGo*E9yV@LbjF2*U`shvP%}U=E!R)RbgG!CGN%r78&O9Otqr7hSGC?o-
zmct7Ufh$yN6-|06o8>a?jdFN1iHizY7>^t(HrLV(&1d$t_$wi$Db_tO4JA!_?l`e{
z=kGYCjz`?O1D56YdAFZEzUb?m;i8t)z44|60PlS6+M%J9UwzLn>a5qM3Ds;n#O2wR
zYTIy7qw6|WL(#>U?&bW;SzgV5k3N8imwAV^9h~W0U%il^`+c);JWua)h~&0g0$kj<
zCkjPO9~B!i_=<#0Mf@tTkk4tioOvB#B%sfJ6zyclcD2D;Iw5d6P#RJqA*o9ugeIDS
zHt6=DU{W?_k`u`J9-jgj%OitgZh+DF;682BLndXIJMDspzjdgk5B;gaIa)zTa2d(F
z{_Bi=?!z#NXi8fdq)_QkD74k$QmxWx8`UXZ-#)d&so$XC!`TmH4E<FVQo1(8zBNca
z6&-o8R(C$J^y#-FAsrjUN#PHX)`;$gR4ap^HbzqZ<;a=}y89bzOr&S*Wx9N-YQ6X}
zV5cu!xq?U=Bk^16U66g9&#DeDoVm`}+<@%!>s;hcl$Au<$C(BabDt*u3D17*@^I;?
znYwh|JEdj^WUO!{+;%kddKTOJ<;1c-p{2k2!LH;*w6m<{vwVj4M!iYge#(}a$jqa=
zSM+)`o)C(w#Urgg1v$heH_tqJlxC!WoSDPWly+V@y>_v%u`b3j%$}cKG+v{qt=5dH
zOHUT72sfkGc2kkC<Ud7HCx=7x!)2NJf#C@Vt~o|UvemQa<Uo*Nx`_e?!HiqGA?*@%
zS=*&HYOEu-dhTT%GDinlm|924oW@C^R7LZ{p=p!+k5-yvro-I`6sc3nqrcbc{+!l1
zC|q2Bl?hC>gHB=$tT!y`Cy&X?cLPf<;fa4EYE#T0Kub#AtkwY~UO2aFm-Wf7CJDEU
ztnEqf5E}uCF#KLeYbq#-O57&J&FSRLy(2dLGKGq}+*5e<0^Mj8!DyS*`|g*F&cIH+
zv8XIH{m2^IfYjL&!z4QMx5^fb16uV<8}4@w$)rYBCRGB9{o9Na%dMmSviUaCbz(_y
zK*mBO6|L=XrQDpkJ!m|Zpx+~&ZBKeu+Kgh>D%UZ>j#2M#HX#tl0~ZVQ<~7V%VK~!_
zgy4L=zlT^7Q8tL<Uffr+%ImMRGDZ&<9UWMIRqtKasl(AM7gbQL{{T<GG?EHp%y4M9
zL5P!4a)$qByORnr(AuO<6$3KVlCev8i6&?;<Yl>m#b1$1^UNhRwpALIap&_SbzG-%
z!`%j<W#46JZ#I-2z3YOQEJ=M&GweCUgk$PbnXBEx3=o88Oi{IEr;9AK#?z4*-oe<I
z?4wG1<~v<WFQrLCJC4K=cLKa_B4$@g@oZ&nv#P!tVdANf2Vud8GAGr%&zq$K>$x{2
zW+H-jE{_NKM_b!nZrv#e+}L>|IMBYanM?i>r<QR117EXtMywDYtL#ninfa)vU0YUh
z+ge!MD>PJX(NT*9EoSrkMy!0$HUBDQ*NIGDsfQ(Jz#rY;+_@Q-{0~gw?OLG}svRT&
zC7Z+t8xB;~CI)Vwr-#tY8gl+Q(ibsnQ?l{*Ld>(8*}x^LujT4HX>FHs>hc1nams+%
zsWL+9-PrxTA}Fq}xGUrDMx<Qp{J@H^TgSSERgCfD^V_y@;@7p_OxBjo6!b@jylvF5
z{IDT7ATUU)uNq6W?2%t#!vzf#XY=PyEALGGh1?9Vh?7$62yrL<S$#?Sqe29GtZ-&(
zeP>UiBIzsHUR6>3TZ;YZpTeu{wjIs!Yu{!C4}Z~z%2C8$j_xR^w+dVk$qQ!}So+#)
zwVO&&tD9<n@4hdLp4_=@7`OchdFftVM>fG7dV;+W>FKo7^1ecFK;8l=X^GukQi>Ei
zIALT6cq$O)lAVXbhNTb0XM~ZzBTMrwSMHEqfIV~=%vmlpe=ehc5Wi(6y`u?jJ&VWY
z>1}Ggb`gGzIQ%Z}v~9R+oGaBJV)<#4JZS-|!JU%_MGdG}>H6-+4amr=hEKb3gJRlS
z|6G^~M=o%tq>i6X@LR{w(oP7e6xa-VPbnGSg{Qc5k3$P$0tsnrkvm(1#&MGE?)f_%
zQ!KpTks;a4$>Xyl`Q$hKrBNkiQmM#VOxIe{Z*BQ=Y#W0H2gc+hvg_)Kf38i3PQljK
zH|Z|ZJ4+j9pF~JG5v=>ek<#!KJbjAa98%qFF!hO6($9us(DLHhuh$Sf7hiku7?&_9
zqppcV8q?S>dJP{`42`>$vdR|pdx9?$*B?u^AC>BcwwQ5gad}(6(TW6f@9SR3%y5xg
ziIAFvLfc38JrDW)ah{FRau$s9Vmh}tniG>B?2N7}M6c=1(H?GHW0ff>YSOdH1kGE|
z@?xECaRTBZ*+~#8$Jgr)(%T%mm<%PU{VhSMs&6cQ1};4`qJ`~VpIJDBUd*R^7%&Z#
zWr)pI4Eu)OQ310^!CNDeX3uxo-f`2t8G~X0)>(hcCOt)9(rtEfohIcL$a*+L?xEMP
z3kiA(g?G&$$62%{*rw5{UCbY?ZmU7&knk&5)0mxpHg~f!TU4KkEULyyXg;HLXjAG+
z!!<6q7R{eGg9Ja$pR-Bj%J1HC!j8?-5zopUR;ZXcAtvWa+<7S-XO5<}OGvrk;g<9L
zL1#N84wcW}C}EGZ1!f@znqH>r%4=CMqPDljtaFWX+2#3frhP&=3y5~IPDlHiJ6^KG
zTE+q`ZpUz}j))UiM~%`KRAHR*jdvs4?jDkvsA&VKf*vXEp+V2v723tptwkfu^9{<a
zZ*z!H!&G+d<m&OGqYl{Maq|2Ie#5cnqu{{BEY#$a7m)1;Z~20Z=1q-p5+0N)Q4<I5
z;hUN!SEn2E?e1hAB&W$y2!DG-;`(mP^yx`6`okh38S|ex-r9uDncDV$%JVt%b(K=H
z8%A-arr3h5J9tIS+=9enbEbd(j#Yw_lVF|EvgyMF9li8Y)75ZqC~L)7;lRfZDIGl|
zq}8FmDL=z`9g6Mnw{0v>&A@u-A>`V*L0OkO3-l(8P1XVvI8-!M*D*9tFUo4u9v?+m
zGuyCRP3^RlymyKx*clMDjxQNjRtz^v#b^Kv<fPC2g2M=`ZhDBTNKv5FoUbn+>ZxMm
z&OG5-(C+}*dgw32%v|VX>PEa|Y(378Be@g%r#z(5{=_gNw|<6yvE~~0PX4lb!79^O
zwkO{PqUfdZbGWHgk{DH?b+OS%IO%H)elh^pkgJYr#%^r=qvpmM2vh9HZn+)7-kozx
zJ&Zh3`qS^A48Xpm*!tyFp3NaI)0k|0{fD~12Qz6}b+*P|b`4@L-x*M>Dn@XK9AQs_
zqm<6+M8h>_Sg5=v(#SjM<Ha6@NN*rhlR}SgHC09!>C~4(-lMYd9v`Y(OW*wYI*sIf
za9oHYrK9ScaZbuQ2A))U(ON8P*t5o=Ht^%(vqA9${Otui!ea8;Y=WF5gZt+5vsZx)
zJL|09g5x8RBCTtsz@7~h)>wUlQ1naP_^^DNEtv(fixaTPHIH)BtfT@xU&l=J_Tv=v
zl(~<%$TCtBd6D8jTrv3mWg%)F{ztv?MKNnmQEwdmm1)GX#xi4;TsG+GeGkzARgzoj
z%gd6Qg>mnqo|ron_swGx^YlE^2`bRP3%{x@sLBb{1Lmc)o@LJYW5ZvTcH-U@NuI#g
zM+6U}7%5TmIAkHnC;F~MueNSD*x7rzB2Gcn37<E0{A4KQ*{pS@m}4XN4nodNtmyt`
zWK`Vt(Q+dN`eM1+*S03_xC10is_s>yL4Se?d)u3van7_7!Af5W&m}hl9}wIhZHcz7
zMLcwmfVkie{Nxj%yTGYB=tgyHEJtG-$Hwu|^W`NP*1`U51$}Rw_QYkz`Dg0BFd5XL
z6*b!j5bHNc{n^pYwZViNS<6^SRbU3ymgJ7M!Xc&OY};EaoBix2ku>3qBL+-5Y*qAc
zlWm8XNGIs{BFI!Z&I>V4aX~J*$xAcR!uUZ0apGgh2w`LEmCgbC5{cHIUq|NaJ@-#L
zCq;ek|8gY>w(O;rC`-vkkB<MbZ=p$LMoRcp0mqYBpSt2Bd-V{nLa>zKa?>s>?ze36
zZ0-8zME&F!8if|_Z5S3*N|RueP$ysRxq}u=w@l|Aa+YlU*?R^~%#H2{k<7z$rBXAq
zT$Fd#^z!q~cfZ-MG+BwzrQleVq*<V*3#GKMrv7#L^Jg4acPj*8#VZ>n$DKDf``3?{
zJ@3ER<M!@mTwlR}Gz*)0Xg9odv&Gy{z*K7}*Ss0cZ%Oo;Rfcagew9tNZM>do^{#xd
z2OV8fuZ=ok4rxu(?^(6E+`5ZF%GNenTjELwf@Gj6X!fFBfa=yUSYi<-D5`judUUek
zt%ds(X0E<y9@NC8Ek3D1T74QEQ3GqNo*t4u17YBh)=6ajbSr=k0@{i^d`BB0hokE&
z1Tw;;w9F|H%Y%Gf^F3OA4yGRI8&MqHd>ffcjgOoPVRmYgNolli4VUr!Phw^^TJ@=q
zYNN%<pjM6JLbDnBj1;O=!k{NCFGFl{aN}%Bg17RE`_ZH^bHs|e(Wk~hZ73-DT`^o$
z9Z_i2Tj)@|{iN_}wxhMFKjQ+c;XIB&iX2Er-(kA4v`Rm{5Nsb<5rk&EoP&sGqM7Dl
z-X;TzFYvmOs#2|s$`>`~vdaY9xa%jQ#T~KtQS_G`N{#10=6>&jk=`o5Q<!}Hi8WT|
zt=F)FF$&r)IaaTG@-~0=>4F?@GLx|y`g0apY999cVJc^%>94qlcR}aH6^J;9Us&AD
z@ch8Q{Gnym#%{8cf8N}0xKDPtbJ6OM@F#haoCC$0;vO@lf!)*cg{!Oc#>r=kX9k^U
zmh#=f_6yq#S`8@~J!R>m|F}c^R~p5;%i3Y3o`th0cfhIU2+aZTb$fkKVHeUWATiSx
zO(aDdB9M++R=LLg)k!`o!&da#qQa<{jKRIiMivz+?ObAt43E2s$c;v4Qwsy;d&0WB
zPxh3j&b~~ko#|P9c!4EDzky30A%YT!s5KFpOUkDXN=SnOe?3(TUVVt=)Oa14S}$J6
z@m%iS*uAD&Wqbydnpj2Bt)6w_g{NgzR9erblk!e)tJWFg+*9s%=4YTLk_C}Bp%&it
zR16JBtn)%)#*ObIg6(*~Z*Ez^|Mmca!*7x;y$jXLo!?>mSMo2L%+$8!E4F&}zcy=@
zQ#3o99jy;fKk+U>Zbm%YWn<!{U>gz<r+s&`XR)xy^T~etmQwnydE?bliwkES7oOG(
z4~&~qP;4#gj6_8#<0O->m?&g@HqWoih9$d_|0oyL9<luGMrmhZ%485RizJs}0skwm
zHCs%Ip^_`OC?%zH*1DczNFdJ8N&~ZH&}{gHw6OeeZWpZb_ko6m%$6n%44x{WhVu#)
zmxgCfKM*|9+67zP);Pxyy5(Dw)P+A)`%-s1yD!Jk?LmFLJ>%(&{_A|br_h&^S8=b-
zWg=|iTGwCok?6111THg`Mq<pO<QmPR>N=0CCYS_hw~R>Xa0zy!PbAG{ChCz+>Tlnv
z#Gm^>o*$ZT@^p<etq#k-N`Rs#FFp!5O8d2jPBe312YAKxtUnNxSSUAH6|>8|J`P)T
zq8SI}R)Mtb^v!5k|IfWpQr=Zk;+dsuIWX(|@E$pp;rl>yy&3!E-@j!h3eJs6@T>pJ
z^P{i=0@Q$W;CkPGmJ#zPc&C9hmG?Wek3kkRceOAP*bj=@A}@H$t9&?2{bfn;`TzMA
zefUJfe?1HEKM%%Y;WSv@o#-lSYKk-j^;l7UzTQ(}OY`#?io@6WdbReJmA{|5q}Hw$
zE4m+?E4Yw6aUjPlD^~PJM{M3o0@!*Bcq=+!8-2MqcfM<{0Zro_@H7X-^J|?(8JE66
zAOCtLaOH-8rc%|=COv9SebMlh(!%@vbSGBijmN*LhHZWS20f$VHx`g0X~G${#;>K;
z6SgMfZ}<@HeM)POiEBk|WtwO*2EX6`JUo7Sp7891BuCfUniS!@-C<32!od@ihqlak
z2MV)eSX)+gofAc2$A)8emZAMbVu%w14({NQD5A0=txj)Vmt&3v^%UvA>nAmO<F1|(
zqWkmZsPIN>kQFjyi={-;abz45N5|b|Gf3H%4RF@R!VN3uXoduL9m-wz2^)`Q?s$C7
zs9bw+;K<|dEcLMBIdr5S4$4_gY7&cFs%-PE>C@3AdGCBWVY0h0))16Fb|*<QbkRR*
zU&8&-D`R(CZZtMFcJB<;<7<s^myZa^Ejhfqd)qn-?#QTP6qq*2#3Xe8G(*C$u7s_O
zozIS3X*ep^v{aR30^}yyCK@(&kTL4t8j*7{Kt`@K3aPTLDk|eYJq*_CjX?(JSuByH
z5y*vXuY?gIBN%n1^;Fh9$?T{=7a*cHNG=n}rM{Fh*HZB4exo_}HM4qdDhZ0G+j?X%
zwjIML49QN}`Z2}YQECXuG21y}CY4Uuo_!77c)w3TW+Z#-pzyw0S(}QSpl=@^IZ`MT
z(OA(VvDiM<9N&)*4_k+Yh0#s%xZSnR$n4NjuO~@o6lYggR#p;$1U3oT;gio^Nd(&m
zh<R$CU7k<aRgIQtJILoByk{(Lc;eSw|ElOeek=B9+3TwTlh{<USop;K^K=}Ox{R6z
z0@c{u7%<^Z>4?CUf`%(@Q(7J$U37|O5a)Ku1UA`R$SM5WNhT$1yqLk-TJnJItV2}4
zzuyNPByHK9+{X?A9ic}l6kMA^+u0!Qt+tPE`{vL7U0huqbbE%Nn<R#t0Mm@xrD4lC
z*$~@zcfY;hS*!>V3w^PEO?t}aY?L40J?gJ#fdAa%L^6ohO`#)h=}FBS{RW*Nmo-wM
zY~U5UuTFjD3~GLRctQ&W;TH|=bt97H2)k<mu>QWj%I_1g0)Q}W9aCSbfQm;<Cs+I9
zw`T=3xx4Fg<u(2K>#s`5n9~yplX22zHY-KBiL7+hpxGMNmtMNMZ6Eg?yE;Jw&a_d<
z8T1c6=J`1fmg00q6S1MF=>FAa`#!&zjcogJZO74RjouEho<%*x%Sscng8N~MPGOXg
zruwR`9XbJt<v_x-qc=xx3qW_jPn$iMU!^Sv&3;|bM*(ehk5qevB?>EhUq?=gT=BJG
zf}4~zFox{IIG<JUm3_}7(cvD|A^gHE#|>lxSj`dZI+Vap+3d040VC&PDrc#>=a_v6
z(Xz)F)etlnQ-Z}}o0{Pt9vl#L=B%YlI^6wmfUE@+y~v&t=bqMd`Sf%_y1aQUJ8aae
zP$W@(<z16bl9;0+da;}k^EIGNw7v@%EOoozKt6%KwDgA1uP@DxXj-mo;ygTIyk%ZG
zJ;We6LuZHYBvDqVk#tHha9QlHVC0+L*wRq0*3Q!UPHvJG>%JYkr1G<{Gh(e>Qj#;T
z3uX0N*~1wmlW3Z`x=H5c843{MX%)oAyhr_5V5bjI<nwWPpgHam{iV6F?fQ!w$F>m>
ziM{gC3kGeX0iS;3o;}$BMx(j$Rk0`Pyws`qMmm0{PL(yEOBnT3n%qOZO#IGUXj`u6
zS>*02nF3%*y|$_gSaQG!Pmd4rLyOC2d#$swvM7u?p4u>1S?g$8PecxNu0S5nm<dvg
z++6CWBe^?1&cS`!bi~%TCz4+?6z=$Xc+7n~Y3&d|+o3Y?i^%V>;$t>+2g`_KBVL7B
zXmy_9-`!cRH$iJfv%DpA6L-m<Mf{@%GCk1S<a*pPyt*@lbzFq+@7DmmYbrApJ&qZn
zlCfoPQn_vus%U8TT8a!nCQl>{9q{>#zX6J9?aW^JO+rVego>X@v)6KtX$H_2^Sz$H
zUOu0CxEDX{*R;IS$TJlDQdMW&l7WjyjzVx)n7{(OGS`kQBxBQCxze~8bDK6;{Mu3r
z3M}rVSoB8U-j1oUH4!`K2oOieibMhE6UOTDk6C|)DSQImo=!Q@qqbP`%)G$Rb_bZq
z)#|`09@w(C=d!u&9dqtIXwBVZU9rrluL^C3K;zZ^4L}umd$wAt(5t<U5@Q9l!s{c}
zXW2n90}BI%<uR+RLiGC2!ahq;14b&*l~LR5kB^QxSNHH>4g95Y#mxF*%Hy>e`E+*%
zGrT4iSThijqm`{3IY~q@r%nv5AYG`nW;olEP0;K9sq5WhSyS38g*%@+U{yd0(7_^K
zWY50Rr@2siF$c}>9qq>&wQ|-f1du+LDC8Wq8bjRK9W*zA2Y0K^`38SDAhZ;)SX$2^
zJr?o1THR>4eKv4=CcT_H(i5}!)VA7P)}FfAAzl6)_wBKWRwLNOOrRrIRP&nooSj|v
z@p&uq%kwoK{?$Iz@UtJG>z@C<)iw~8;IOLAQ6H$8&koPpnX6N6<C&0j$IubHfn3A1
z7a1tcZ!fF>d?1-cFDz2%G0Y&?W%y{#v*=<{$7$B&>+#*$M)N{ritl{yKh-8zzdhu}
z04HK*L6ICZaNQ273N?J{e)iTUNn@vg)|1YdvapH!{C=j!D}J>^D*_&9os--A`xt;`
z9QThWXV*#trat5Tww<eJIY!>tUGL#e_x^LkLoD#iALEGcANZNCc|G%dj|$!WCP29A
z{xw6gz&MMwk`+eXZedK~0OWGv&(5c11OU_!)$$oC!MS(6swMHP`;l9k?QAhH=&}m-
zCRx1U)`tg)knOJ?T8gEB^CW>lGdBy_9wp&JgJ<4a_5gE1GG}afYOa|CYBov}O^qfw
zcwMV!CW+cScvl~EO`_VPXGH^;l{L?Ulk`#N(;e1Yc@EsC6T*rVJMDRv9c{v3YW!{B
zOr~|t1vkv3MY@4V1YJfM$f<7e=#EXqcnoVGJI0S_X^r!k{hBEaoJ5XaC64~!h}_j%
z3;F3Wo6YOp>b^rIwvk<6^gTg6n#}54-J}@zm9Ykc<t93w+q{-XockAFxb&LOpM1T?
zk(~AH@iYi98mc*?V=QXDOVSvvu^lu}U=%s`Ml~o64^+>52X;XleYzfi36=ZSjksIK
z?2yMf6!+KgE4il5ycp-aht+Zn9(IcWHa6xy<!kwCbijI-N_i?ooYngzX0ug3X7$_J
zdah1_-KB`N>2ygG^lqb+LV-!P*7S45?kz)9)Gk1D&WJ~L^o^NKK-BO&s2#W39(#U9
zvC&v{=4A_NdNN*~(<2%>{LOy`4(8@`xA!`~5!o%>G0_3=z3#0RaZW|sdJmLKwi{3n
z4hiXM0y-qr@GNNkG7WsExAQnn=VD29_kuirYm#iNvHGc&7s!wo@M>ymr!KU=_~XVw
zrC;ix(WC*))b*fOs{Ai0(M$@RPNR)p*`9mag*>KV3$G=vGytkXAdv+x?o$=mP)WSs
zT*wL%D=H+wmDg4GxJXfq-^P63kxgK@g<)iP{gk!M?MHNz*H_>JO)HH)#junMI6urQ
zh%I6vKRaeRSr=~?v81(GnWU-cPi^+6*N?|Y@~D)!O~tJbCer0Oo<!CCeAKw-fGFEd
z0`zj0fDPIClrAtjo&&kB3>KRcR;#nwOF{O24KoLTtXXsO1Aqa@gtQ!0i3$e#fU?cA
zS%b3)ER5l_Vdmw06A6F&lQ*27i>hzZVQXI`l1hlaSt%x35x7T3gpQq24V*UU>VCEx
zE53UxYkPf8z!~_tKgLkQ(vC-*N(da5N+=+1Z;+gA?9fF;pxJS&3pSlY4nbW=Ul3-6
zAnoNb46N)cN;=-tZM;-XOsOz4=vw~T%x)@-c)R6smj=LRZvD^<mv}HxY~KIuz6cY>
zoW|cK(qvjZFJ8P+^6F231-740A7nQ#;dfT%Ncz1zQfDIB&STM9?2UnzQ;vCj--phD
z)S~7Sk5WL|za&dUivH99{8J+uOn!Hq#}a^lN6b2#s4v&F)DOGFj|Yc_%FP4PvbCCo
z+}(C&)2#0-63fprltI*taZFa~1@Hw}RAUf8F2zE_%qj|Sx}8$Z&EY#c)je8~L=Xx{
z3G6zupS=W(x|$d^Hnybkp`MCZd<9#Z&rR}EaQ*TkXfKHYR@J>sqp>0uLY;W|26G$)
zW&N2nEV26v**C};rv>6LQ}YD`c%OZJW(EtB8eLBd?|p-Rv+sgo#@&$Z<GVls^ax-_
zq7|*D>>ZSN3?ItsONwCv&goQFf5k39Y~JTT1c;g8@jyQi#<^egrAvdyzJF`!k)d1j
z?$5*ACn>I@HC`dkxxm}B>=(CzIzrNQY2B}svEQP`_^z!3{&z3!v|8}|5+qaE$13}j
zr!ddG_X%ixUw!S@xG=`U*X)(0C5IP~HgRMW#d7N6+$~WBmruK#&l)dIvs?hp%?{!X
zxoX7ywc{F-z>Tiu`DY3k)cCVbkel?hC5dxqrV`ctVrgnT(4L3b#%#~{BpxrB@kj2E
zFT(<gw|R<|2VOAG`yvO3h2FxDWkZH3uEDo0QPe(cV;Y1u4Mi9T<+$ML0EV{ojvsL~
zM>SfNALtnP{%%=W*$R(hr}D-<C*oW2;V8(S&aPD^MK1;6aAKub1vZrbhYzR1Ey)0g
zsP$l6Xatx9o$>LAe2EHA<efW~wf-R|YFeHMl&g3BrK_t;I7QmeNBa>#zeY_KYwY68
z`IR37dbRp2-8m*Awb;CHGcv!Rv~H9}f9+e<J_9^^ryFRRT;bFJ?z5SlzG<9s>7UuN
zFXAsh2A(%$sL}OWrQGi?@5xWk%Bg@LLxI0p_u!^c23E~18kV#Rpzixhn^>gpI-sYB
zsd%}@`87a)r=ACH_vPvmP!IrbF69zuI&~6+m8)w62zU-_5!vU9^OkS^{t?Bf<7EvJ
zDXyQM{wB|?XSWi=u!*|r@4mMStxt4T9~}G~#GPLktSj$}3*sf*2-c`iIj;4Hd~*er
zgx{<^nyAH^=clDQzMQ*{2>5kFlSo>BKk1EK0`$XXb`HwjE=-x05a0e{a!hSLhkU{K
z%~l8CowMn>hW<SI?HIXS8@UlO{?k2eU66T>4g<P<MFKX<X3y+0SkSt>u5T?*n9`<I
z0K2t#zJ#Cq_C(xCxxJLVj06l;5tRp0gO#5R!o~vH`eB!ShbydE)fHyQJA3vD*p}Qj
ziNFa7FGYk=BjzsSYBjwFiw=OhlB)N1FitqY1(|BVwYXc|>h!VIO|m}}$zyZpVOJ=@
z173jU*sc(`oG!pU?;0x(DET%n6b$gPF@T(I>kziFCoe4$fiw_?>VR-U*^o2PnB8n2
zIDKVBtoP61`x}m>mTglBz92lKlOaq_wEGG>vV36ZiW`8lCDPBarC0e&8fIT{hY^dV
z$Y?OOm4JSjB%9o)E6#33xCzZf<T#xzMVKf@irHAei92sNATcHX4!Z)pR~pG)bapny
ze&r=b%C8ejp$8Gie!5qG?ywV|=bh}`X-RS9w?{(w%OSME0^NvB_a~yE;U!Q8bsfz#
z<WV3+a3X|7W@5|nql`i*dm(y{?2)qKflT}zrC>ugcM_z)6J1b+l6RAFz+7L~?efr^
z!ILP#iljN4aYt*A#Hkzg#uAcFD@^9|cqa3Ei$Ic`<eg)x(=T-KEMmD_1_(iG{NhpH
zn~)p1;_Tx3I$i?%1kYiV_aFgDwN~Bey)hob3-?2$aMUzwv7Fn>%W_r$uxS;pZ5N^u
z-dmQ|j*LFY_V*{ysGym;^Jz9Np(qVt!y&p8av1!g7jZRQLLCHlIc_$0J9`dPU5Kxs
zY8#dS?LM}E8=^Ub@K)8|Va93;dE=nEbUO)HwO5z9iDpQG36eE{EVlGBMf1~ID~kXh
z>fTrChpq2fSQ@E*a-PQtyt{LwfF8>(0csn@P^r_g3;AzpJ32a2Kvlr7t1mI0%-NxH
zhfQ@wQwh5>@+kn4D5@Y$C4K!6zB%Gij+lHVxzY><G*$(68kOxAUVl9ea>rdr1js3#
zfFi^rY4M=13Oj_g4(U57(>&8}c5=3M3?b%0MnFdEPcwMFFX47!R%qi2$SfmBfZ$gn
z$31fs&}=|c*FkBcrIFsaSeCEFC^m@>?|3OiCegy?0Qq$rEHbTTf;4xh4&<omY0fd*
z5wNx18v+TtV{=;d>=N7Rw8i;(n|D0c^mkb`AUHid9E{=R7-xC>Y->FU%Gv7Ssm@vb
z_Q!|TO`smdt3>?9-63$BsGwF;XBLr1S?iRC((mm%w#8W}%;q%kGSDYbkW_M+spU~K
zv@VtLC>;=om_WShykKrh*lLxhhW2R-!I>Zzk8ZMRK5|OtG=BB72$BJ2sTu(IFj5W{
z18hEty#cIs1VqCmp5UgOcPE9!%Sx(wiHeq6$4dv0>5`F~)!8_L+I4aXXT#A1o7g5Y
z0z#k?{RwpUHbM7my_x^qJ$E>$wkh%=;W#MFQRrM2iGc6nc|tkyB58d6{k6%{Um`J3
zfN(6bm4EgCyq*$DQ=NO0!UNh^-LnCoC|rg!H-yVWHYl*g8z7tYCrss~7^~GN>oOVt
zZ6i77KPQN&@UkS_!d|X9o9U4VozICau=LAT5A!2|GDY3%%WfT^<E){2THOGz+ygub
z8UqxKs2th^h!#2q$ROPS1&;1g@t>~tp2maQjdMBy0#x!+Lb&tRM<G1tk$luYRmM!G
z$Yn+@Pc1tZA(0>(82g3ix5hlHT-=P9|K~}JPkyQuqN}JOo3l|!0v7~zayU%F_zut>
zm(&S@u`_lNUe$hqfZb(+vOwti#=?LuU`YhE@4z#ui@Y7y3OVy=+I#ywzt-IqWs<{s
zGEnDE9&e{i)_Hzffz9Jg-i(*OWpj7uxV%L5EYF9GK-@<fgXkH?t4*a^*)9CTV`tJK
zVa*4kRr=!q^+u@kZ?qnkd~^2$$lA9!JQSGJ7ILiVFKb$1Ma^v9f5U%JSQj~N&ejwd
z>>sZ~?7Ue4k<~;DR7+Ge0h>+XWt$Sb9jQh&bZM9$kcFK=K*!k}s>>4AD(eQ{L}^h_
z1$aD;s*!kg^63%OG%&W2O2nQMe*%eG;CDbdcUq2K8J=k5Wrpp4+<5$TVSavI3~=Ld
z9?vB+L1Z)+2c-y;s40>0qR3}k0x{oX>p=kbZ|}N7UP1xnsx^^lJ}BJs^f!r9T7W(3
zE(8CBo&nZ-Vg@1N-@KX%uxQ}}sEth~)Ut3i47OX92AC(=HN{BI**((@O#{WNaUxOK
zAJh!losr`^RA*j+HJbxyW0-DfqqS4S%p)+|_7C>Hm95(OT0+M})q-a)VoL()zz{-c
zkA$4I)@f>U*+>qZ7lHR_ZG8~n1TPI&3LHCg+0_^ngdXq`({d2WHoJhQw-Jzlq#>)Q
z0i(d~SMa=|L^Y4aH4mB@Xp(__-UZoB&(gc8L@2LxeQX3|kk0jAMyA_SoV7r;{1};6
zixuI?sj;a^{gj-;FcFkS3V%Al1`EFXG{uz4LG4#QbollYLMe!XVUYH8V4M_ey#Od>
z#qmm6!e1hC?2u&d*&qb3{2KNCC;m4zpt`9wHZsz1>&uHjs;%wewUHol6X+&cY7A-V
zl8V2&#K#X}EcX)K%l9?;WL&^ar&4^c41=0Cwxp^<p+{r=D;d!FwPy)eMvIiOT9!7T
z;>g_rP(_^wR6yfae;$mDE<};+K@drb;+6c+yppsyC@3chglg0jYDXW_d&3_-(DXJp
zH`h5{^ylwGuAmauYsM>voPn)1^hEnTv8o3P{X*s6LD|{Ah9|jm#rymX<JZo<xGKQM
zXOY57<Gi_SCUR{VFkSI7AOlS?#QZ<WrM^47+6EF#FsK{gigQhsV@}Aa8P(qd#Q6A%
z+_fb5a%NUQN^g#O(@zU61htI>tNOz=)VFH<kZxejL|%%xx0V9l8M~*wR9g2%7`$Hu
z{>d@<AE$J_|NQ>k5QU<7u07*J;yymlBl5w)!C%Ffe&;p)UvBs6QHdXpO~`uMpxjcL
z?HY-f<=XvV)YLrbb_y)Uxsmr`1m7(M`z!78s9@_cKmE&i%ox%twYZsra?NZN<gIpr
zR}HQ7)?B<L;d2n%e2bN-kPZtf+N5gG<@w%P(S+>s=jJOgb&2+kIHYsBt1GJEWKXng
zdm5|`7HDS4RuuBt*z3mMRAjogeMF$ZV`VBVU$QtdP&*T*JUW8GWSu<aHMn=pw7~+b
zBc}HACijcaiTZKh-l2t)Gg?EVm-g16ib5?BsH(-GVJ*3Gqwi&;oKo1ynQk~dgV*+2
z)51LN(7p{{RAqjf1Zp?eJJK4peUe*dS>W3aDNhqKfnBcDR@j_fhb6-LM;_EQqJA~1
z%o&T2^%USkO*YLmLPU;+{@&bu1XgEq8D6pPC%$_sxqrlpzPEp0buwvga2TIM8?Wtn
z*@X#r@KO5yw#ot3C+im!4;Bo2)uvLKJt|^z3QVP(L;$hlv)K;`7s8!^rO9iq=qcd-
zs*RA+5zFu1wD7ghaDgmWSRELCD3KDSS$gI}<X@;*lp*}OJ>PfXsdR^PB;>8B565Cr
zH~b=%2+=hESW&PX-&_p)E{8zEOdf=Vqek|5VkI<TL+Sjz#>lU}rs_fVgU9%qjXiWP
zd+U*IJ-OcA+ikUb<ySsFrE?#e<|$dO1N~DoDH^u9U++uJ7A$x5#<e9Ky(GsITTU0R
zV-?A5X8#n!O#MS-XbN1`aW%Z-+Jn9KMMtw2XHVhmrN#Ue-`5Qlheu8Ek$;?c^ILN~
zwMDAHOAi(HYelJmg$Ca19(+$xaN`GIeXrA9&EiK9f3|z*CvnH#Ug4d&cjf#CvJ=Oj
z2jyU+Uj6#Nwam!7_P^fI`HweQd4m4Y=l{-H<^Sn~CxQQY{r3OJ<o_=+S@(u;{_9x)
z4m2`MOn$_cw8I&IdHlZr(9Oq}wA~M1#+?1v)9d?Bre5D~vH#@F2Hl(TXFZbM9{Mvq
z_LpPwPmUZD`t4odNp07w9j5z#+wZFN_{<;w(t-W;7s_}XYQ^v=_iGHJ-(Ch40d@?*
zi9sv$hAtL6FH<aii1ld1De!!R;o%?83b^aP-*d=I=0E@N(9GjMUOxZ&^4{KicDD-l
z|9J6E@%)bfm?8DkUaa|lxr>5d!nrk#iw~#vQ0wkl^8;1mrnr9^b6CkVwG#<@lX$OS
zs5!NXAXZ~dtdXXa=p!q8*mbYqh_k<?W<KlVd>y}4IaaPDrbaF3?am%H<}Cb76|jUl
zJ7OD67_`2g?vfZB%Ys27YDzZq-caMar|Cn>VRX>wn4K#!r0<^|-(tS-FXjXUkW(;=
z#!+0}HGGkut-ABrt_&X{1KVUJf115CN>mg{^WP%V7BMI4D}cyBPmUhyY5MOlh&v1l
zQ5j3eQlYGE6|3@MEpxVONG!Z)?}r<1ZPrD~j>Ti37{8H!Z6rEYvr=gfXtl%!B7Rxs
z7_XmO#&zlwn#HMSnvn1G36U0DEFv<bTDF|`V-<Y29@j}v;38U<#^ObW#x%n=s*#u#
z>nt-$8Da%2q++|vyGPNN_k=imM|vL>Ybj7pHN}<Rj;5ptL3jRQ#1j*+kyhmxxpJzd
zW`SB0g8Y{LEFRD6oA0@y==T-u%HQmm7GDa~C*x7%mqm;}rp!{afi<u2dHXKoULS+s
z#9{A|oA*o0*`99{h20l94lN~Pm7N$5D}r^jtLUAW@Ig+Mk>wtxsW@VE^1IXU-JfeK
zRg`2(ztd=ON1sRBt=8Tf;*z`hf#xR;)JyivF!iW|D>}BX_Kr`S2KF#+qgje@6M0=4
zDT7q_X0tcKrVfjr=$aRV_xir4taf{3kG1htD42ImXjUS2-?AHMNki`_5*T^=8YH$c
z@GWAmVJNQnXKIrL0q@BjQ>$x=VL(qUt5|ZCOf{QEh`P%LX;yn3RRo*M_I-!vZg!F?
zDbhO2{Du~t#-U^yw@k}cw1iX2TA)1-dA>SAn{3^?ez*k;v`3_NyeV;6>ykHp^F%E>
zoKZ&WE0r+_ctZ0cJ|c$674L=jTLs`!e?{+dkCA%@y30WqFm95pGTIsJ?rt9K05K?N
zlJ_b*->rm#Urw|c{OVAfxO^;el=P}7Eo=5Ajj2n5+C|@Kk)euMCSkO2TO&+sWZH{8
zAGV1te(>pt?y~t%B?XqdIVXv6D{OF<megsgxGhSxzVfh99LvdTgfXhLv!7h~I(u?$
z&o!{4(7vnX{)aAL{VZ|O31o`zAZPBG_lOrhdN9Tzq|cP)FnafGqlcAAiI|n6t!5RY
z>nZi3vt_jZz{75)!)|2l;m@F>*#)_ybOmFF&_B-3USl-VN>3y(?>&Z@EXkx>5S$z<
zmj1fuWq9&C9+P^H*(Q=EY7;M+Fk1eGH!UBXWrBVF_=m^iZTBCKe+#pAE)g5}W?(DR
zVxsi0+q|)BwFyY1X>j1g?y^OF5kBN?C8wfs^X46eQh5u)yQOn`J#!)$k@1@nB16gS
z*Hgah45C0{8R6DjyU<swGBdR@H&#=QR@;k@S6rYAVY#D$H>i@9<zBB$NCaGC7$foD
zbMUr=24h7+*9S}-LuD=IoP)iP->FBuNB!-cN@-GI&9;)+75*P@j}#HOpXONPr09Yu
z?5WUHU{pO8CdHhcNmeJu*~=zyVnBBTXUup=6Vj<?C())(5UU2x+IVndj}o$dlpoF{
zVdZ>m8gJYFK}T8;6#H!IJr9MKzwy)niZ8%3bUZd|Nx0dn&K%a0BhauvC$h$J{R3i+
zHT%5WLm$MKYux>F;y`G!l=JOuGj``Z%fvF<`)cxVr^sL9T+c&MZQoW1R#45`qUv2&
z-)Svm;Esh=u<*3}_(iCdCj8?oo_*bOyw!1!8Ao#>1|_{?m(X5gcC1y@COvwvE0x2c
z^$1c?bZLlhm?h)I<NV*e4}C@c<HdF7HGKcvNc5Bw^{!b(5XM90P3Edzx=ajkjlQEk
zUsv3@YTo0nS!Ab?e<c#!0@&@Uoie;e6&04%*T)^%o*}Hsz?RmTUWRxnwOX5r8)yy~
z#19;-<GQqbonJ4M+H>e(*}ADkPP&DVjGXT4z9ur8T*OWgIXi`-`3MhP0^A#<a^Bpk
zBg6Z&oT8a;qqi@7-tM7w6OrU#ZQjZEWxr2Q5d2snL#3fYVdJ{J78SAv;Ad9AR&k)t
z`ykzxSc(y`E-bs#H0Niex_6?fXYeOF$(mqK35+El`4KpWJUh+{$27CD;TmImo_<TT
z;MIr7McSF%MIkGK1FpES=-bUZd+iN9G545HbeB~u=B(09l&<U@)KwrJKRSNZ8>;qg
z&;8%0y}mf189B&dKKl%wU<CR;39wIGq*lOC>B3$MY{tcj=!K$a*3CP6{#g+RtZOc5
zbk6ucFED33iQg2rC^S;q>z1$WlI44Q#y+9}M#RFu%n$l)c(1dwx4Ac`n(rzM5rs(p
z=D1RpFGHSq-skMxA18==QL|zZ0JGLRwS_<Hots#npZz<QCQGGz?safW#7H@oDSRSf
z@9Ou$;Odxww*h<SY$X0I(*I@=1$J-0>CIUPl;X=8qeE(2mkX0vZyd9lJqh({@3d?8
znl0&@^EZ1~A?+ysN2BScn#jJGYYgiXq#v`z8a3Q(VF<fVCbm#|O8dFm#6qFvIg6bO
zB|qd(0`jAfF70DJZ)I3psFajBItDz4mzAKaJhL4sA#d&W?y>ohhx4_^d-3_KG};4Y
zU*?+W&W97kANP<1K&0h87!wt8D}fyCI*6aU`R}0}2FjRA81+}3^x(H1S?M?3G5*g+
zG22DaBL~~AhCERFahvDhHu1X4CqS5x%H4c&0rO*!COjRoi=t<LgEo1mF8e8X6a4;j
zWY&qJOy{=HB+**uE2gr0T}6HbAq}9nhh<?>nYhnEx+*a#fpzHLW_TNzRtnKvXju`X
zVqLGPGtMT4S^0}lHb2qcKJ(rSmcu7NV8NotI@B8LF;vUww`%agIU>=Gc*IWi4A}=W
z{-$D&SKQOQ4LrYt)=X2)C6|TW%-*RvzGTG?4I$9pKMeVyp~L0}n=P#^Op5%RG)q}a
zrmU!c{usu=87=Yfy$fs#+4f2+{FrP<2V=NRI`iS<kkHcF9~AR`=`Z1Ja#$_=QRWW|
zD>TI2-228yzWHA?6ol8ibKc|or<x-kDEts5Ph%<;l17)h1^?JP^d5cd*`Dj(%X|eq
zR>I!iCdxbH2~B~he5#)9Otim%+3WUJ4^P_P)ONTx86~t;BGZ~+7mfHI;&ubK(gsMJ
zN=&!p_6Ofq<lXK)y5g&HxPX<3U5&p}blY*CJrQPPxn;X9Ba=o29PLi-jY_d*3819u
zj>x}>!TVoj0V(qu#IyP_dlzK<<Hp|{1|ok|&BeU~?w*-H(bKKvg&mRYDB6!}^4TX6
z*5A=SDQ}Ri9Sa-7La6hbo!IfLq924&lc(JgQ9ODDakgm1Jlg%g$1d0Ry@7TH&`pwD
z<qz%I@?@cUv{SyMb%yAHjmN~EpnzYW;!R1>^8F6=+2_5f+)7Am__x$w|NehR>Af*2
zC6v-pl|GxcHI}THIIo*qR=|w7|EPJrtxR;o?sMfGyJuVZqp$adJT&;{sG=|3iT!DQ
z6IsH+u<nLbG<t<_Y1CY;9=nYnDiP&%QU$n1Tl^x|LbI7QZ_3iDR>LA<ZuIWFqt#=W
zCKf-)Jo*v<$U+PM;xbbl?vHnxcJCs;93Vzxk)_61s-0u>|BwYRk0;h1a-&J5Wi~BW
z_)kUq9C}Rf_|Mb+;<e+AiOW<iZ>Z;g9uLx8=JB}H+)dnnI_Uq^-gf{sxqbVBh`>RL
zqJUHp1(l`;=@3*z4k{o@6NG?>^d^L!0E%#wrc|XxK?Fkyy%X92q)Q1cB%uhAP!dWA
zBtYH=p8x-znLG1l-pqY(?!37(Oa{XK_P6#bzx7*d=i3p57rJY?E@r8_z_0x?2$ycJ
z&<pMBk;0V>?|)9CEn3Masp}W2sx_nR4pOw!|7pGf1m{6;QqAzAgQ?czVCY8nz=voI
z$ZAjf-vF|#4NFz3ZK%_u6i42tPNMG?6d+Vg81?EF*e`WfQEWYIh+wl+gMTXqK=ihl
zDJxTj0*~sNl?dW$bkAT07#mvp3o(`sG#3?;4*)GG5)#NGk~<Ji)I~#upKbo;f9M3t
zw%unMqC^U9%4<T5AQYky8b!<|&gvc-nn~GC<_NCzC0F=ryH&`c3o!-vkNhi38XROv
zHMC9v($yl7>Jp7H5~rxus|OCkJX8J#fz+=oI7MN@V!tM(%|<=St}dM!4K{fE%dW-B
z^C!8+T;IRe;P%(9zQYhOh1*oXhrLez%8R2wvh)YH9iLL<9|Id>OX~a}?N_U6%YwSI
zp?;9De_|SG^v-p93egI|Ia-44(OY5r57z-4KHr$Wh7MQqpuRJvXZ>5%0KjLdxHQfG
z2^W3rP=8l%MdP1prO)SVIRJ!WgyUC$jw=H0svuTr^tjV6FJ@9a?VpyV<ZOM=+g(PO
zR@JxX@74WNGO(HpK2#K=<u?MG_-6)D5UGTlW`gQqg=ZQFCfdqG$zKs@5d}E0k(rTo
z#XvspF?LH3N;StnYIOI-@D)V=(>05Np35x##36#rDX)nY#&C1<R8s|~`KNBkuP~q1
zzjIH-B^I1a!3Kg5<57=00bL!wQ({HIp!X0ge4~fvFOj}?hHPeSto5lbkWxV`*IV3p
z1=O`wXdZ>CUm%gW<vCa*o)7c$R;#qL#_<V_PE?Nm;weV~l^7Ll$xWt;td;j5;*ETN
zxri*FT3E5V^B}I;Qttp9n7&*^3pE%f{9;*sz-8L1F6qCzh$URWpJ0#+*eCny;T<j7
zfh-q&dnMTDA7o~aKt%GdXn&La)tiu0IiNCciD>i(bUgxz+%i%H9o|UtA!~`k;}{5f
zmKKX(JQB^vnLz^vL0M7vOn_~H1KtN*NuMTu&Y6Nefe?O`W?>uvq4+!fI3dn7jJ<af
zIh^gl1F6yfCN}Qpr=hoG?rQ9IMf~CdCEUUs0r0VI4s_gU@^9gX;#ZBE+`T5^EGKd0
zaEf%V*2B^SAeDUo=be_y&_oQrtd4lG8eS6#(%aZK7(JA;#L-Q8S}Qag6t#?Tk~q9k
zaO?%4!(X1cNGb*}++Si2#kuk+_Gl$oG4NNeDop>^p#LY`o-KuXrqLA-G)k9F>5)C;
zvKI2pq}^Q|$WV5pXJy=hz|E`A{*}Z3Q^%>WrJmBC7NGeFsCs}S9XJB2+oCMhE=@jO
zL9UKmn_1_Q611;hF6jSSj9R|AeUelxZ|Qde80ou5Ty_v>Nv$cNO_xR62D1k|ipCe9
zLT9fId<bYLBC~MCXJ!(xeRB+6KmZTF%t+p~kqcujgHTh-0&w9dAK3#*H8FR89^(*U
zsetsb%2aK!P;uY(CC%~0RH8j>AnTA~Y}Z)rR+;N3;&h8V4A17WRt>1!_G>@FP;34#
zK6Qd+o?JaYKQ468VUKXy+zczrOv*YaJ4jzWnw;>tb-syn*0?Q&9rA3u!*5Mydlr-r
zuRAc$RdyHXesfVF7@)YTBfgOd!nTPwF8>ZJOK@ks06tkj^67L)ZE2;VR<-shdfLGM
z#%~*rS5j;gfy(O9VSU3?A0Otw)Mz(?TKSuW_=z%;MuX}3dq7S(q`2ddqYYN1mpNOt
zJ(qvI0nK>oz63=Djb}sWkIrSPw+J3+y;&ZRSxh0ztFS;y<Pf;uU;R&{{=Y|S@PDNE
zk233jbn!pBU<&*1+Qk1a@XmweGHIS^nQ4}3A)1f6Z*3;}_=)u)VsT4P1CIkBkj1Fl
zpg$l{rZiMzkUnLd7>hQwvN_xUzao4Dw?c78dz!1**fTH+@=f=x?`wUcZS*c5mgi;1
zNPZLMTF4;hPHuk%ggns0yyj@CP`oc2s&a6Pvo~h^0xc=foF#E&mI>4W64ZvDNkdZv
z7+EDXdw%G6rCyxY4?DDCb;FZ`@wS~nMrjl_)mEz8{}K79VE}=9WIdEBU+d-NO|M7b
zEjAe+1_u}e#O0z(hn?E@oCk2-o4==lRxo25RqHTC4;O%eYJS{c^iaay3;^J<p(FeA
z262>4`<O#yUcNz3wQd$819eQNirT1j{MA*nU=vEB!A5v9g`Z*L|Dv?2U5`PWht4V?
zt^LlJh&H&$+}`Ua5`evlCtk|S2%wS_H@JpVP%gCV?_Ylf)XGbFLS)I*kkb0SmGnHJ
zID@+Bp`JXk^<!vGE43_JLVzQMJjyVr%&85gq@$hrV%jTg9`EfYvFwX8)=AbYw>IMZ
zUMPr+C)lqb`k`p6K6#7;$Y&?n>i1Q;0&3*yIQM$#VtmW^%t1C<ClaH#UUPkFza2|`
zo$CH1gF>4mX1wm)ZT)M`{guDD_1aE!-Ry<{kXN~>s~nwmR&5+y6M?9z#UnV+eAJWd
z()Xh)X;RZbXT4U2M@(~WH(EZ^R#nQ^ltSW*g|rc~cK9a^ea#@1#959G^}M>CqjOgp
zJ)P>ps91F4{v0Pb!%0=@+I;C&eSt>P04h*AjY!%ZBxcJLs|Rp(+G_NN6L$fAur*%2
zd}J%EDPOF{311tuB-K%8O^MT`dm=n1{<2u|z6t61l0Fkq5;Snj-n}xt>g4xwpN6J1
zBDNVtH2cs}KP-}u!z_SK32W5WwF6D+Oa&A1G_M9%<&3GM%y~t$w3G;mhK5Lq#5;#n
z&~_u{GBeLKXbjSYq)P7D5vhXr=I)>M{qee4g_uNK;EQedmH!IToCz3n+2&2joF7KN
z>XAR<7p<qVEW%^v>A`+RdG<4rE2k9Z^mn^K^~=M8yH*^}@I$mFsgNaNY|d5rftW*j
zKE5G4SfbTmu)qH&26SJmiI&R0bj-~BT48j^?Kb^etCmpnHuKaD)YqW)(d1us-1uIB
zjMax%_3wJZi5gY)UIz}(M4Ut`C}oJaXtk`)1Foxp*-tniq+yxeC%JmOAGFogQ42lB
zyq;0huN963KWcmQ=KvD-u+eXgWa3zG=;4Rc{D1TEz7*Oc&out_VF3vtW`Xtb-pfSe
zO$LfUWvtY|K4MP+#@xTCzraI-w$q1*FSg5o0xca4`Hmd~F{9m`UH}*pvELBn0GUvC
z(fp)d9pnXxCyt`^(V;+N#Kv;Z0WzrG5pl_l>a!JGfCuX_fZaYVZ?3{V6J*iyJ*(OQ
zdywH*(0%B{&#LkQ&XkATd|th3MplgjSaWP+(0vG=XofzGZZZe<5CbW7#OU-I9>2Im
zp)9(;`*uCPv@WoXQ9hs~vebl_shqa%Jkzswq*=_@1L6$vO71}_udu1|sQ2%Q7J4*v
zl#10wmU3Ime-$h3@b(<zO%V0$WkJXPV3DsH_&uvU9t4aF3|xtz_Dve>Om_EIn9?;D
z<|m+wczR*3*<a687c%mSa0FbjM1%$ox{H-seVIAWRRk4h)J2wTS%@ewEnlU&t|;t=
z4*9Yr_52pVV+~tSwZ~=8oDI^l-~S=B^s3Kd)W@t@gXahi>nXDp*xQq7xr4C*xo`#$
zx~>vJ+~+~m`mrlppQ6M3sTM}f!6h^|$imf*=M79HQ5l0Xp2zo#>h89g>liu(<aqr!
z{*KMS7mqjF)1mZmfv+|}AeFjYOIl}xY$@51OhkD!q##is-VWSmZYefGu54ekuf<-r
zkMl21HN%6gJ+Cb+a)G18$AZ1Q@g=4yI~k%tKQPPb-WQd5R~e0Av*nHV@retco^k!_
zvj7MlrCo#23UzH}(v;dl2C`_9kcF8ET{1F_ciT=Er-gc3LehzB1^9{Hm$rI=-jtEZ
zc~y@|GGp;Oem5!df;#ML8v}Ui=GTJSJsxT0)?vyxzwQUiDE#nr9d{P#8;GMp3+?hs
zOmRb_uXyvS*T4L<rRa73^zY-wcVX?4uNon6Dnxq8*Eg?nEEatHM99Tk8Mcm--D75c
zUn*BO-lyt#F5@3%z7O+X74ca$OrIcRO<j@M_`U_~0$+88)VJjbrO4E_lyN>vkZc<C
zFQguIoe5yJ6)iU38{-D+EH+#iec0AYoKw;?r+;3Jh~(20A=1HBCB;SD5-8ZUeaHAg
z!m=^EG9#bpowKhEx)JMjtq0csTL8hJxn8Bn0p1xhRhQgEC=#gV2q5%bC9GC_fUd^J
zR5e!AjaKBY2r-J1@x#KxAhIg->uL9<H8y6IsUH?`0;-6jj0rZM=M<s@S2R2{n^qM0
zvPLHbn$m4$nkPRg?(v@ExvaVAfS@%arRcJYa6{k-XigBi?=ymO;j$MKsno7oePips
zMfBkxuc-uV7sV&spJoGWmp3Vt@_(6opI8b-55yNU9!D|6?b>s5w#>~H3gr<t53u!i
z9dr->`F!Y_R43qSUJ-lfF{MI?5BXxMii+&}CO**Xy>K&P5KV{{+MdsFX&HLvPLVAa
zuBhr<`(oULDIW3+rDPf7mkb_Cg}ipqcI=zZR8b6|9vEbNCu@Z4zk5H5P2d^1A8y}|
zb<CkprN>rjjF%c^wNDokIk?L4@gaC<U|Zm&)$hL2A~^lkscw5{+tE2S;IW2ryATJU
zIUWsN?4N&$<}n`w&jlE{jY}9n)JTHVjY8vCS2d1dXFbj0qDf;92>Vr#<jMeYh{VqY
ze<M~1!h7)#xmK^&7`bm(Y(sL^vMN|9trCF6;#hEakN5gpUx^8kEG-06{G`|K?0#a*
zBwWQPR7?Y7V6~%xTl^CaSaATbV)-C+_2q3$W)mx9#f&b5THN{(d1gQlCC+$CdB}y#
z6)v?V4a5`viX7V!ce~(U(=hWgybn<3va^bZ1)abLT{Qfm$R({)w{xsR6e)eJeZIkd
zY5*KZD|CSNL-k^UCxgVth1?z3y<OV4_ifw4Hz9GujAbHRW1qCGT>yM$K}N)RVqn6%
zxqfm!ffziQS$<*RUUNOQ&>!B}?|V~5Q4<bLf^!D=vvp?F_uQt|YHLldK8nT|BE*av
zvu9kl;RqWvIcx1UAG$t0<NK9*O0`hyfFxXpREVmk$mx_E$iMlg+0B`p*p10AYF~T+
z;q}K5ViR6lG)b^+lf|B8Iz#B2-^%q4Fk5|}kSo2{DSfGU$+!q>_KKH|XcCOw({i0!
zbwT^6Z;_~?TyViQGpj8hzanPRryd{Wz|eblo9nCHd;xiVoC33qs>-<OK%7#&dTWD$
zcj@$;6)~*W^42FaZCsF9+q!7T*F+&4XH!WIW7WnK+oV3PIwvbL4gGQ1e%EjKUd@4a
z_2Y>@6^cV2U~_g>EbxQf_7+R`<`{zR<))tJsxC)tqX%n3rzUT1N2$n8H>HSDd^Gl3
znB6+c;N?6;u-ZD;wlpugaF!ljcyuM`7UV{hwt`qm7yYUF5nQ8#Bwf=lYss8VXg`js
zep{TGv^xFX$A97{h-##V+54mI_2%e$=qz$WJybJKNhEb23Z~IDzF%4L&wC^{tu=n7
zoI04^z|+auoaOsN+COxx1T^}%u{OE0Y;+<FF66G5cc!7~ccG07TuTC?1AMnJk1e&T
zW}fm(Ut8WTw#l>t_KxxCY2fbzA<H9#<?$|bj~+GfMw?IMJRf;gRCt0=y0Pqf;m_?k
zQ`$d#bmKNglxDf_Dm-cn%AH}fb)nTnK}+kll#<sjcurLIjHa6K2h)04z=hkrm$>l*
z;%*k;07)Qu1&?kY-<o?_g3n(a-@O@=TD7jaS{J#mS4;?`$RS+2d7psW%FaY}1be$;
zyfe`=Z00JDa!Ieb>=>W+<1x1yOVToF8CpZmqOjJk%E&=CIY436gFq+^w*eZ2BMrg1
z@GyVe0V)e)382Qdc&yD3k#sfGeuVn+1GF|xr$?zFKW89vFD=)!>Z-rfys#LX6+WmJ
zIEh~fm9ons3cCXRxjsP@Kv>Ba)lmY?WGc12xb~2vGx7cf+-JZ1CSmxKY}5iCpVZlw
zj;*49P}*#o$Y-!F6`vY?mIrc-f7TG0k=U|)9LT=ziU-D3wA}f)oE|@H-mKvnr{<p*
zyXqs3nd$WC3^o)GEUeDri&|lozSaxd&y0g*mxa2h8Un}tMtN3(UFJ(Qy<;(|HcYB-
z(oGqS660FW9oOCw^)TZf4B+G46Tj!xWcbI>&xl{wgm6Ky&qf$pOE42x6<zkyrWrnx
z&fKo|62?2Wx{)qK6IXlqyqJw+*-e9@7JO~)g1cCGAGL3gBfuZo2LNaw>JyMpl8ay&
z{$xRDs4b@8ndIL}%u<<LUFVt_Q(LM*VqL&(CyxU#ckHisq+vXG@BWfiom)K)jvT{U
z1wK}=&<XA2Wa<QJfYeB%W60&Z{^v;fsA^zWs1s9M?u+vnA-r_WUs}uAZ))i1EIX0T
zC1JQoMk4oMOYqw5H-lULRyqtxo+@N*KmBFp_}77noE_{SG_+G0uc8MOwwYhX0gsGf
z!NuCZy#6WU)kzNk0k%cBg4L!Qo!jU?C5^TLVlzPOLdz+uZuvE8gOR~;9U+6>G<6#$
zi@d}Fx^hO>rjx<~<2zaDEqb(ds#x@!z9`CY!MyOnFb6v7Hnhnv8I@l7fp@k7s1a7+
z!ySH)2gG7aQ*@UGR>}BUqni`I9VqkjLyg^g)4@A^9fs$ovCuD*fQ0M;RBiwvho5cL
zlFqmX@6By$Rkks-mn$y_6=TR;)oY~X@AKDn{@hV=-w!N%$bxf>>)2g1r2)BU{IjbW
z9y{aMAPV+ty}4@SoSUVha`X?qjkz2c+{u+kN+syJFF;gkwR2)gHDa1Vgy<sFKAJ-m
zM4u%o2f$1CHP+NL{C=1>ff5symrntH=+F%n+t@;BRug*vrV1>27*swQjDcSz2Jh2)
zGAhNFf09ZWRkSaWXA0^k0s<pnqRmBf;B%~Dud(@dD_LvixBIQ0-QXNsBs*NdSwJ0R
z!h0bayUjDUl+4aE8{S2Q3Y%8K`OcDTw;cVp-P-fqreU3N8R6SI#CPaQs|krL%e_=0
zm*_sdmMTROHY+bAEVC4Vodd9Su(lf;p9rlS(RE@YCB+lls3up@_}HQg(^#!9IKov=
z!!qT=xanK=p{mHXL!9X5rq!PFI(vM=z>%sixETy`SRcQZ;@qQ3l2ZV#7kX?%N7yjK
zFP<30h35uss+S;VteX9o$+_RT%{+-eKNSJ1lB+<@EOigK1<c?$I^ZY8N$Uhr249o7
z7=@8(N?UP-N^`3D))I_6g1UvOG)CuzI`c`eqCM*KpX+%Anl|sd54gN$$2OZ;Es5aq
zqovgOA*!lO(Y+lMzjN}Cg6vEppsRA~A&-jZth2Od?9-w<uZ7sJNcG4+z1f+T+%UPe
zC9Sbl3p-%+H}Kz6#bQJP1N~g-Y1E)2IEq-WSm7!psWfgXu!vAL*}sGWxHq^*)u_*W
zZ~}zc%g{1w4zB2F=aNp@q#)<tuU95#Iu`(BKQYYT|FF2J9ca{#8u+0#I`3G{zv1Cs
z7)G^7)%Kw9$*J4e4j(j-Y_T?2a&ijEc{^yJmJ7@l>_{mi@(6KX*-A543K87{p{rFw
zv{pyC!0%{Ilu=?X8f*r)d=R^A0Nfu6qYQ8<8m^jRKiT<pDG8%2Y5hcS0RuVnGy$AJ
zMlst~`}B6b13kbt%;@YzDHqBFn^9^bFVyXq(Ly&Eb}BnBiAr2cOIeuiwXI4aDZdPG
zV<Rm+ax8{3^}&VzZz|vaf`u?bgQ;Q{^i9RRb~P01W#Z?HG((t$P8l1k-QndO`%^4A
z$|>a5^Y6TTEo_3~uX(a1cyGma{K@k|kXP%(=?gDT+&FRS#>?!BHy=w#ojv#B=qW+7
z4s7PGcYz`HYY`DaEG7~sc3}Nq6|3_+@xcWPev}cUCssy3;r##Z=K=j$xZ1RyaA0Pd
zrVRU@Ew^fQ`*Su55=2a@*px;4w4Ndxw4%iEo)4ApSg}y~;z)c!9?|FJT!x`4*AprR
z>tDz+DX~p)^j-_tgVl}=Fb{~o4Gk=l6aG@FL(DNWji%$oW4`vw({7r6fR3o?`ne&U
zN^!YQWTw5QC7aRBp5aQ(vCV<a-pvo4{EA1m<vOS>CGIu|xX%D9_a8%~rE&?aG^vc7
zg|O;dO`da#TPn?65h%);7^6Rch4C%ju?1DHV5TXAQw{qi%sYex%`vXwaS4iX9-<xU
zS$%b+`W%9^%ikk9(nQPWyZQEF5w)9t2|Mntx29I)R?iZ^HA5=wDi_4FwN(XPg7x<?
zRiE6V|CNOq%G2ti_1b6St0`yd-A(#iB$Fid@2273>L<|1w6vWnCYuolo%7E3Y?!8Q
zm-|fmMHr(x{f5rzzZ5yP{Qk4{kfTmeN>=$QGi>t4j{gz3;gEQT;H&do?TLBkoijl2
z-4KqFvfKMQIh$%qOBOc-KW&a5TM;r9hqx@37%9LMBzxb97}a_mBb(gh^*=MiSfB5j
zlV%Rp5!AY9@FLgG@cl7R(&wh5yNJ%JP3PYNAPM`bC8(SrLqpi=an1T1^#iNNo<+U#
zWL(^nR<a4UPN4Qg7&k$_IK6!!+;fU6(M(#l-)fk?eudw#o}BZ;A99bSAm1PL%LGr{
ze8jVE`(<n`*2+OAlb2POGlPp)2F8~X%TQxCA07CVB|n%+lf5QF_S@BO@`FoR`g=^C
z=sS3sZ~UxkDzrVDX0|Y4_GnRSo{S@!b=jFYBemLO<JQ(Yu3@g>)y!7>No%&#naw<5
z!QtuQ@yzw+74BpCtM-?vNB32`8A%+N)Gr8m5N4Irp=H#V#(#VjtP3$b@!~}uv&scz
zlhC$?E&asOl;+N!CI2zG4Ni%EX1Ls?;NJp%C%1gweboB694xUpxZ+ZQT=t|!HPbo3
z+(r6Xc#-XANud~_c^1uUK?Yb2_BW4j_+^-}q{rMhdnX@H$cL&_a*^*$`$SObdl8G5
z<t2OF>r^QGNf_<`IXj6uOoDQe)Fx#wAEi-Rv?sC!{a%6ZNMSL$x5aRqmX3IZe8xe*
z46{dvCyTx`#@Cy|eM*h#PsjF3<2JhD20p%;mzq~xV{VoS;|#A4uV*JEN_O?DvFW;F
zo1WD!GHhHqpjSry!l>`_8#1jf8Ub2<5IxHo#&%@jwHS|3yI)8G0oJOkiv<*Y^U6-x
z_%$+8wqd%@(^I%6s&DD>u@JlK&~n)ZTP;L3RFB6ABbglnSpdPjlbU3kF=MD}rqa!r
zXW*aNo;S*MM^pIZ$!zGrzt|xjHpYGp&`%$y*pA?f*CthXU)*wdLz@w}+ils^y3z0I
zvaB5uc9)ixHyUDq^Qf&_zWP+np-w%^oq~0UP~azSrmC1H`Gmy&UVOw)unopd2RTi8
z+7nWL^Z<RcBa!ZvYNr10DwSzZ&G$-+w=FVF-}#>e@rfI-e@spGmX@#$^4hG=Lthjq
zGp>Zo1{AL_dG0d0h5x01b!Ob@r;>l-Y}V7xw6Z4!w&qLylxhyXYWMj;CMV9Z(t;4E
zM66G|LR|PWZ6)}oKGynJKxd<Zff5I~YEYo=r`3J!=3owV3)WZT`8Rbvj+5?2f~ICv
zN*<3B7}nJE`^OA9_8X}aKh_k^h%85Vao4GIg|f9Ft-PNUXSx%K0aa*!^ZN?lQ#~A*
zaSjphP>`M-xfzdl^3?KJCeKWmaDni2ru1fXk)?|d!Z5752sDANttd7%{-99&4MTOD
zEp}7AT<=t$dS$?!R%00EA9axt&N@&nI-M!C<f!fZN%H`n<+|AdBxD~a*!(!fYPc0^
zlZeY6*9}v_da!UyOsT8svR_>8Z=L=tR&Fd%l6>5@{ByrS7$Jc*d7(?*WsJG=<O}}c
zi0NUE+O1^P_`2idxL|Oa%gJf?90lLO>W?sBqEV(O;7f<j%1%<?wIMHWtD8|47xOdJ
zH!c{KdcntzAkW=P<rPm2;ayU@Fn@Z5n%T_B9$u8qw8~+OlQygHH%+2)q3g|wlld8l
z>&AR@s#!T(*oQvzd%`8sCC(3Uz7Mt%*}+?Ty83FQ`0kqME9ka3{opSN>su0=ZK~gu
z<M!NWAi*#AFCg}Y*Io@(5;3Dj@pGfi8)0zW`K-wY=?_f_5z6$Z=7gcT+3P<gW!ATL
zKB($encbL7<-QQJpLOmYhWwNtr7~1x7^cE~-P4R5BCs*l34XAUcj+B~Mk6`dOr*IS
z{Atz`!<_K+Z}I{4zmaj*cXa=H-g<e<85dPyLV!eYBG0jv%)GLgK+LC?kYAKKY1eU+
z<9q;R2~CSu9xCfmn15eb*)w)d{x5+>!exd|sQV9hbNej2Uot;z*47R5%-z2GaTkW~
zj+Erz5EGi$E<fj~Syt9BQl&e4eNuC!pKp?~CQ?ZPT{g!_m};0jA>_xvjWt7^UD96d
z(Y;v%CvgK`NH6VZ?tC)rz_;N2*3DJ_%@VElsqdHL6y&TU7J64V6unJ1caa?7jB|?3
zy1?$t(EtUbbsLNI5CLXffJ+8KVfGN=jg7<n-*}~OY6|yzR{!1|YO+Z$KGI++z^kVh
zXkKYTm}47J(N)%J*YtXzOUH@ML+`b0ShEFm)&c>-MUI<12$1ix&Gha!>eaF9#knDC
zAFEgz9B=J_&ENT-v8%v+WcmZv1h>xNddn)?eME})NS$*QBma@dyQ1grQ$Z1B>vf<5
zUkDgkp<nJ6IxhyXK2_2e?Rkk2^@4!G4H&aDK<Ms#blrLJ`{WRFX523$tIy6UT1ke&
z;jiIuvb6KF3)$u;ADy1Yp6j;qquv0PxE=a7wbJCvc{z@@erYNFp^FO~0`g1>(o;{;
z-{=KFQFDG%29!6``1qlh{I6Ue5Gq-+;A|*iEqTlF^M0mDV!l040p%*FbGgFiVD;G;
znD`IFvSgeiyQEyF1nNGL$mSaEuNx0Heiy3c<=p3&!J7*QClJUN_f``$AwOOcd?b^S
z$L81Ea!4J+at(Reg*S#2cJ||22x%kk5o(E_RBO&GEor5>40)zoh~{EMlx%VfKx(T^
z4|m%K7|J0lHQIdOgx$wHA(h#M;D;cH{<}QAMWjjqHXn96*Z+)tV?xExGt<fEDf5cP
z>RB&IH9rXL5z#bxDBP<>>06_5(D2aXmC-XKs)Ee=zVaP&?48M~+$seF+D&ojl0fb6
zJs}tFkfv@nnkq}ugK;<6UzpU&-XT4DM^&GuDq)^;c!3jOdMz6dpGIr%M_%DsC>dQ4
zLkfN>v>59IdcgIUCQN?w=RI<_Er7{xP@X*p;h5-dP=*zE_ZdvVU3ySyVJ}V^v`B=d
zr=43K!-ON5Rmx}f@%;11H0>%m>#Z(tM&>LN33<oov@pSOcHt=@sUUwWRX+cnbh7+k
zJ36fbFXv8@HVo|x%@g>wSQ-*Oqo%kYzx#|&+nxHbY}RM&u~bxGc%_i|q$pZ_Om8vd
z?M39umQv}+R<1ss_S34Mpqz=kaZxLd^QT<4FE)A5Gk(Zaa^1t@drD<<aN_2wTY%M?
zO#~}&=pU#tYX+Mb+yJ#JUijM;v!=vHFBaT`c}(_wJMuc6_l4DBmFDCF({L0Bms2XW
z$KN_trhQIiI5CWcW8)5i8Y&fJFeuVs{j<y{j!rri-@veL8;b)X&>;zhy4_epp3?rt
z5+)$ESk_LfJ1L%6)nxMSb8H&3js64p5C%?_I+|wlPIF%iJ5_hty_a}Qa_(b`iF2`s
z?_dXn3qxMJ2sK%)4ag$y?oJyNvF*zQX*zlI8w1BT3^eVO@ZZ&lLVw14aO}SKpxwvt
z2g74nV&+hZpIspg<zT%<sT>%Fmu-A3rq)B>a^yJqP6BOHsf;sj?1<-`A;!)64b#i{
z8@1pnTD25@RcS*@^Nva*YoOp-ewCIBN=j^H()Y7{veh>a9_`3wWkPcE34PkRNVw(M
zt@evhU(WfKAEE;d+grPc#k0p=Q#Y(4&e|px6<xY2)nXOqp0H`q9L-LeOO7~EKm3&5
zXw9>dz6qMR)lf1Sms?8{5Z|cd%+P93=X~3zvmgCbI4|JGevy5#RRX`#fz3f!BjvPJ
z)iSGKqoq7G;oJZll)LK>q-D|L#HAV84DGVs@*Lk`-H10Pd)jJuw_f$>JPOe8|FD;{
zsnm82(fYb;;B<r)mYF*`OS?8VXjV6g`*Wu5iqu*_$LL$uz-q_susPX@YXbCAFWM{p
zk$H$|ofDQ6*2xS$dsNqv1Dw#2V^{qNRW+%(2rYX}&)zI<tjwN-K82Hv?Amliqc!u?
zITf4X7Z&4{Jx9OIex$`}jVS0xryST7zb?RAT|%yU7Q0Y<aZm4bU@A-Kgq_t$qkx%a
zlak%0ctrDeE}c<6wj^S2qM!m|d+1Gr;?s@iEFn41($lt&P5ja5YuD*7rA;~}@A)-r
zDV%gWejqpVU2dYE=Ekh^6`bl#HAgA!yztbR`-bLeD4xixI?9uj=LkZeR>SO0@uAGc
zl&3y=oza~JX@NICinr3|&Ya$<&b0}nmOiELlG>Eq&#z@(gb<Qb&)bEWCyX??TGWhp
z*Dv~)7RC0-P9U)K2Pg#Xl-=4_xw~0ovtE}=bh><oo6kIDFrW!RGRV~03p=$MXvV`1
z<|dvKw|A0vf?HoaVDe`g<3iW9j2<EB57AF9Fbq9?Kpz%1Xel2Y?MjwPBib)4$$O}<
zF6;0o85vBj^+uCg12j1GVpY~=E<*V!3m-EjL^kw}KXQC%fMaX3Fd7x7J|q9JAk8d2
za<M#G*(eC^Hk*BMZyIN5EC*U}GzL9a*P@QC&Hf-@n~kE}#x8Ef4z<CUFX`V+IJCq9
z2lH3o{bnAX{^H054j-XB6qm?#{__@w?CRD`yXb)QFWhe2yT=2VCw#dSBLc4~7{K5(
z%!#GCbC((D<6>L^Y7>8q8n6qjMkTVI|H1(r`Iiuz&#Ib0<781f&87!Bkvs6&TIEQn
zm=^4J^4;lEwhFDOmlw}HeAqRo6*hKaKLyY1*OjdHx>M0li(LA1O}BY5BJ7F!i@-Nm
zZa(Lk=4$TY?5<_rCY;yO*}h3m`k}NIGLwGt$Y$rsh2;I?bLlUuyXdxp8_lVSn<>rh
z5w)?yKHJC1SEd7|*_3*gv-=Wp(&^hSNw|V)Gn4vL+obc24-;Vg6YNtC5tp=3%$iNN
z10O#1c@>(m7CHf91<tU;U#B=h4oIWD?}eFjcEBOl?DGwv%LJhOT}aS$kbGfwYd!;<
zgTv<RB847iI_m8d$T#rBtfydMwFV;{H!z}4CG!a!8#IGS)U^}T#%x`u$yHA4O*z4-
zrdf3bR{2jflBSWxh}T;Lh|9}Mf5NA0YvS>KCVNgRvBFbq`_!XppYO0SwNVH8K6Kz3
zyMt-q8N2h(uzT^<DgsGkgtfw9e{&|hu(!Cx(Xa9z_YLb#%c+mI!;}NXk7GQkvR`wY
zH01BVhi;}ng!FT`Q@V=#b0I}B-5LOs!oy$3XX64LxXAlI*Y;T*w9W;ger{+h?8jK^
zjfNts=I(Z5E?g!dU4ck_qx!-;;d3nBx_P*Zzva?%zL|47bbIG_bzVFY?Bt?1A$rW>
z&Yw`6?2@e;DbiN3LAVu1_*Q{S(w<ps1;<9twUS6apLio;NpU#`bBThvL(G)H`?ji|
z{gL{bS*2>NE2AXQ(u~T8OJZ@kxIYHqe5j)$V=MCpK&znUSb#%pNYn#TBi1xsy3uG9
zqA(+PL-3X6u)P)Hv5|!cMTKR3O6NW9{C+y}(l`G<)_p|1AZ>p45-D&*(Q*Jt;SPMb
z1g3AfegNnd*FvJMobIsV5Wp|7x8(S62$a;HxJ`EPPG>PYA)lmuqsAI4YB$sBe`29=
z*P_cc-I7N$me)i*ihSXQDbuQQt7bNxcY)I;vw|enda+OC1b<SHQEb^HFIyXlS$?So
zh2hANu9hq`301ed^#d9)=f&wIVHY<9O$-rdf|)<SeFky>p2d^d@BBSxA7%;O$}DpG
z@abmlle9rLwxsf`E663Yh#iPF>n@KS*pVZ=fO^D;)sMB`J|w)&4hVA9msgN0`VpYS
z{Y-^(Aspnh(|1QO=l}ee&%|_OS^w4z6OugU0ECNu<5o{cIGajM#B=ztHvP7(KI3DX
z;w7(^=0=Om%o&^Nj~vp_02ypQaR9#d6}JEON@eT;%hi97t5-@M_0xZGg_mg7T07GK
z^k-565Q%-y2Ud8s{HNbzSjq46_g@C(gMrZr=j9&cC9s|r8}hL_Z;&GJE>qm^XRTb$
z<U2R;n+0Rgi}h)eYDV%1R1xPOdoX>1OOW8B>vP>%m~+nSy>DY@wLTH5VxFkk(LQX3
z_}{yc)ssk&7qPE@V3k<8@?DIWdMH$M?<t8II!oEdRs=}+yz>*$TdI1!%<0srlym7v
z;F1+S(ybXSy!}2_Cl+>5ua_UI=xIy(vIVkzaxd`SEIyn<Xxg^ytX@Nr)KQ)DmptE;
z{E7b@H;YZ0-LRbS`$M}=wo=LN1S-%L2?%y5r_^JB?#q$CfrKyUOXdTGXD+;b_;98K
zOFp&$5|d%)EA)9en8uON-$G8-r117y>sgd6yG`dtTrc@G?tfnYFKOWO>aMm5r|Y_T
T3WD#TTdc2Zc&qrP?Th~ff&AeL

diff --git a/reference/as.mic-3.png b/reference/as.mic-3.png
index c51d9bcb31fe66e02308b69be59719cdb6aa6b37..2031e69fb0725020e4b319a8c853d21b2e7259d0 100644
GIT binary patch
literal 51911
zcmeFZXH-^O*CmKKgIN%TtAZj3h$KORih&0ZkSHK1AV`oPIfDrVK_n*uMS^6>8B|1+
zAd-=sbIzHbN4@=hJx0~&>M^RS>&NG~?|YH^gmd=UYpuEFoNGHvieKNg{qS}&GO}GH
z;VV*PWScC=$Tp~L-HhKf`Mw>;zc#ChUcZ8W<IjRnjy?Xh%}`jun2hYG6Y;-w?mZJ4
zWMu!4k*-{lv3Nb)Vrj8oc5!V*BAayTn8QD+_piuYxwLUVx8%l$PuH#c^vQO^o=uf)
z4%F|C|9IZDol$?-<sSy#<Bu~P9`C-o`-{VHVZO_mWB0~PLi^nLl-tCslsxr$kG3Wb
z#SF!W2lJZN55$Piv_y#)QK`HBz9#%1Tk*k>e}5*^5PE#*?_bpRZ&UgE<MW$z7VG}}
z{LeLy_Dz3&bfCQYzwpHwo|Ie<{Ev`3;h+4a(Ht$OeQcJNmUVW#N64wv!;bF#a}m2a
zWy6k=eJ<=V`aWPHA{8NFWi`9+&wn~!TlwTa-^`o+n|D&)-9_OM7<hQZ@Xu=uT~2&b
zBDqp?i+`o0Qa2e%tG{;PwMgunHy6dDq{X9BswkfQxp4;<_l>N7-b40<VQ=o=A9ueK
z9$)|G=Zmh#KPizb=a{9@WTu&oD3YG3r~U}OAV1e?ofycW9Tpx=7i>HG%WC}7mNeDE
z&7m_7ekET$as8!Cj@gJzydq~rczC}fwf@iLg{dC193dBth7YQ8XWDG%l!b?e8<K<)
z^A}^R=0@WkcTqDQJ9g>x>C@T6$)(fnPbhRoo3nVWrnR)(_H5ole&nZd1%H$%OV*X|
z-@l8HNH@n?^EmC6EshG><(AE4x9G<!ril>WTm15<X`^=3X&xShL$?hdVR7CpO!YBw
zbJve8viOziG!0ZoDcO(JM0?Gck42jf)$Mul_sNeRyl){T6QFEd&Z(GdkwkZznfXRk
zs9knKX6N>imYn)A-V@hcf7-83(H0dI;koGid~?ZaZDnr7w*Z%%s#SShHdc=L?imWf
z<qxekQ#VLepP%j6AfTn!mT#LqQ>T=MrExH|Iv*@98!bg2o~)tjTKR%C|NW^@n<@jU
zpz=r_<KF)4p#*6uDbE@6jHdX^%=4i`nYUTWL->{4`DguSN16_ub?olGSN@tuI?rlm
zQb9s{w&3cEgNg-qwpY~t?&aLdC){EOS#H1YEf3lvHY!p@e8*|&$ZtJH1B*k66#mUV
z;Rl%H-d}g8QGH?j-IHFYIrHJS?=4=c?H?bl^U9G@J)U7c)@rphk|C5Zmr@~6t(Vbq
zkmD^QNkKtjuq7v>)p{)N)ex(j%l;jI_6Q@z-dxqm{&((-7cM9r<u&<P;=|+<9L$Vc
zXl}k85g8ftu<NVbuVX@vT3E8h*(L*@*RSKWt0M=-I|_}mZsVWEl>6?Zxl`h?%T*Dg
zX=+6-M#Y)x#pI^g1K-+c?3W+vHKvkyczBF*TJY+Uva*`GcqLBtuRBc#sv?@3cHR5&
znkSIgG-f9IMi7_CjT>o=tfx+0XOfHi8R4hG82uqwG#2X=$foXSHrgDGtIBH8Kd^s)
ze}Cn>#oi!;n#dc}vBMu9Z7}Wr=5c(eX~c|5{hn*(QS)Zi72Ao<qPn)csLnj|LaM)a
z-0rr~fO6MSUYSx~=4yJs+e8>(Q=G;QChkA6U{%M*m^YZXqQe|oZ}_ce`xA0TrA8Xl
zG*W)uOZiok`A{7f8ZTVYf+yq6#HH@KI6I=7mmnMKo37Us>8D~vDi7k8S5ph??CiuF
zys==$KX|TZwAtkxWLDgt)Is%HJZdy&Okl_qk&vcS%V^sF^OH`&moHb8tp*|#^KC3W
zx^)<I>J#GWMSc6{+U)B`GTIVO-UwvCMLvA^Fu7?Y2H%Fu;*D3yYmC7?4+WdIPAEmq
z8SXaA;g3oBn+)hI3d8MI7Ojv)mS1jBiV{ECf>6A=Iy(>*8Y364C{S8lRHQxKUs*R)
zA+Qv8dm<ttVgT2fqGFHW;2nxfDUrQz$*h!KHuyHs-~W98`~AfmfsGHiZiMhDaO%`-
z&05t>$hszf$2P5P?n}<7d7Ev$)luhgovSW?1Jh^Aw$`(j)0Nks%$m&5jK0w<56td#
zVOsBNP!|`#Y2W>A4<4mAPd<gf{Kvqt#xz}zw`5^G@7x8FdugqQ*<_K1?k+rix{-fr
zIAxD>gkqYG+~=kCPftopOJ965Q)52(=T2oFcx273?(e2L!SyQJbVzYZUfERkXX|Sc
ziF8%vLhz4s6n-BpCe(CSSC__ErH^*>uDr<z;kR~76|YZF7R?LJ&E;cONWRi$Gv$V5
ziNNz?;^$ZX>VLckkBZZNy8k98_J2*2OT?`|U$}coc-)c1Ahf07!CJj4FFifIXUBe3
z*VE_tgr<7SB^uLL*uH92N8YH@9dr7*sp^Ajp_HC_=ND(I`3@(a(9k<E^CC(DzJKHX
zV$Y}DyHxkaaqC-_`dy!BeOntVFR0x#8)YF@WX-hX_3G8`Nv>-zk3?^wv3PTtPMAsR
z%%7`x&nG+{vfkyCm&EJydm@BaB_{lhjEpWTves-IK#<KWPgN)-UN9SeziG!ot+~+_
z1fO?lk7v_}FWc8ZtmT14a_`Ik@vL?TalBrSO-qE7uD>Im`+G#*P4{Tasout1%M?0o
z?AK#%?AFLOuLeW8^a45UoAffYzq(Rgvc56aRv;LjEgE~g=uiD|D0xPc8}%F&M`=nr
zO59D2ZY@g4iM(zZ+vPwN?~X$(JENPCGU6AImqRb@iy0Ug;5F(N7B;osPpf%6@b4yW
zuetJgZvVr2WpjloENwNaO&H~kw@Uh1MS=DM5q{o5LDU~|s|RY{-+XsDW@&z+t1h>&
zW2>SaQsc4Opx3V-l;6L9|2pU2o#L=@>~t7PNA~#V9r5+b*(R0wwo74@9wsxj^0C+4
z4ts9*irBDu=c}fXS%o^vcUx#}BvF=jMC*^)2J=}OeM}~<o9CfTZ@_)Use;u-T^aSi
z$s3R2I2LcZZEdyQ%67c{Qt-pCR92%|eW}KM;yl6Px(X^PA!Z|u5fXwcGAIF3mo8np
zqGojdNZ?u3$1_%SaSA$Z`FYrW8vJ7A115|pVE{-~;Uuri2}_Yd`pLa_EPD>@q7}Gp
zJv*GV_Z#p)5SLz6-dt<!P(lt%w-swv_g>vqB+V+s(TmiU@2-D?@SjiC+j;t48&A*F
z-%(0z(a#96?4{z=Ym^~(5<)t0dGSIT+3E-1l-SHry#yBdg_an1n~kx@+rx5kx84$!
zd)u~cc$rsWha|o;?%@MeprcZGEji}$v2yWo^@(}2fj`c7?ff-j7TY>iA=q}<-D14`
zlg_VXjh|Lc83u{SZ6v8{*Bliy^qHLskL9$m;QyTp-(r`BdjE|nvc0)c{t3!CI!m)7
zI!)<%sX`ty4Jq@56oNI?5`srlhvO7droWwVe=37}s7I-mq)QsCC}k~(L&{Q`n3%X!
zdh+DSLA;iE0yUU9s`_+PwL)02arnRWHRj3%ve!1q-nE0Zv1t#xt`X%~)Q_bW>D1fD
zC*m-tPXBO9g&e+oroLcR7V9tN!|1^;_JAuW#Cnvc1!<9ZTD=vaiC8KoHny81O&RjY
zA*RJg&EEsiA}{U8YDH)fX|y`*>WgWVTx~1^uVK4`PHjvC`BC2Yh=%MQU!|Him!3!!
zHNCq|ag@(OvN}ql-tUeb0c!@nd7QZE{P*ESrJq-KbvE1mH>EpNsXr&sJn`p$3<W=Z
zu(CLVhsQK$(&Hn4&07A?n;k?R{kQRBrz_jZ#!G)*L`Ej!PV?V^mVfIh8Jo+0`*Z#u
zIP`z=i{<{wF(30S?08k!@e`Z<-BIx`nJxO|0JlV7;eT<qvz&O&%#9sipGx;M@YJ@L
zRNp|XWzRO^)gl4S7F}-m>tN-(>tE9MByjOkC4D_Ev1B$>SKc={ncjpn(qnj@z_Pxl
z#K=Cbv2t?CB3ghDUSV}Q$jBVF9{WUnt=OHm-j#~oWGruP5Xn~F$S4_GDH2gWfJ#%}
z7iymn7k8#$h+4hdgty0pS3<4klpotQ#7+G!?&dehs{=pZ3e^cL1>R<nPZfH(E$VZU
zv>bwK*Zhgc1p|OMmE?I(k-fhSm<&#qvbviwL}<Dubr$pn>K;!IHcYMj?!tM{vN1xv
z_$9rsPew~sbv36+za-Ml%2L}JOVaWe=Y1Nyerxkx?t4wKKJ|*L2v4W|Z4+I^@utY7
z2Pb)ZvRKCZ!d|c>t5I=iNk-TEg}YI64`%g+NE3j3aUhE6^l8$r!yG?-<W-`bXzgy%
z+Ak;J7G>#<bsJ@sOw;TS1p-ovxuwkF$7Rq;phIndMc|iUDJdy$Z|`t`4teud%c%VM
z&KFWE6ec+>iXZMi($5*;LZy>HSCG9tSvvE12kX=61=>;nm$ZTjC_DoJ_d_c0tS!oO
z>Nnp)C6AF$49PYdi6NrhiGr5ga_w^mP-vZXZ{7&PYJO#pz)#D-SFhfr{NNSEp07r}
z@b>cRGH+^~d1{m&uaI&LfllNwJSMx9nR<sFe!**QRO~0ik`9Fu&kcxKDbISY?)jb*
z)8*W4{n!PU<|G)KmX49+RV*Wryy8Rc7D-cm6%^V^Xp%Qmc`IpZMrMuWFS&-l@oLfM
zMs832UQ)t%vjTN5-bh<p`(}gJH*||*mvv56aA=fxYdIa+C;m)5D$bYnj!KOB5B98<
zQ7tExFG=dfaSgp?0sBS_MMi*d<dy|jrlqg^-<xx6RykGcrgKk^UdE{qi_gO6P^HGR
z_)eU7C)PLl>B$z+8qWJaUP~1RhJ@(HPyH04*mQ<EVQBrGbb~gPd$vL4n#n0CLW=eN
zpUsAmbia*o8~2Lowmg3P_*~wWq9_6k9Z6*Sx|8zkKjBuob#dChEXs#d^WR-}4+Lo4
z7&in=#;eWd)7xOTy3i-lxE3Y2wp`sf8fw3)y|Pjz$~t51CKqTMt(X?GFc_O?qu-Ph
za<{L^lU~%dTr*{``Gcy^$H}a$EV&jG5ErfC2%b|w%LmVnCg;-9gba<L^iuhi9x%Ls
zW#y`TlJPqI!LKmvPaPD%V?O3tw-57MrB<|(ZUl08uwDB~scg~ltb;u5^8A?nnr?Yi
zWF(`YU|Zw;3U5EZLq%KFtD_Bvy=z$umZb(w8&kF4WoBk>y&`R<l%b#2TY)QQxF*Fl
zGgzDQvXUtw^Z4<mt@6~tuD8^0ewbyJ$kDiWuOEBegN}dV%f6l+93`JEmD@|bPfOF0
zkOQPtC2H`&=fX{=rlw4RKn8~r3&^8w;z$w_@`#uXcB6gW-S5#*HWD|Tt)JC%usndh
zFZ_$lVF~^j?`tTXzS&{SXt?Z`n%YuP70%VO8MN}54%U$LGnCK}RN=-S+pQ+v&XV#3
zR50bl0}*T5b$z%MjbRkAOV<`E?2n&wy&NST?Ct3pX1g>i+c-r_<{*7^TdNU*U9cuy
zPYL&N%bpsfh27E!H~#W%#H@70j0xS<1@qCG;a@2d3->;Kb)%*~&?;W{R%lC6aj_qR
zddkCF$8CJiD5#aw3fN?Rq1c`uiSNI{dRH*lfP1C%&g$MGVMdllhUDC)3^W(2@k<C5
z@1~JDAdeVCI=9vW+Qp|PEY#{Ui7I&?z8)41Pu#J6`}XNZ-9(Zn9&`loin!-A5~fq?
zDq<{6yZR(a%El&F#eT(fq&Z7^VPWA<x5)dj^Xckb!P)@P%Q~#v;O+0P6>pHyv>|;a
z^I=z9GWOD>(kQy*t(Kwmr|Idh7CP>#e!OW10l73ZG`@p`L2rZ{xQOKW;)s{+;<N{W
z?CJp)Qw`b#NK#KW@0td}U|?mHz}hd(jn$)-j8D#JHhR%^jN>zv7aiKvt6rxh>d;r1
zEYCkgzk+oHDIq^ppIDE!OWVg5U~n3_-m%W&rpz**X--Q?Nl6u&p(ylhw|eyR7kbat
z3hFg-V8@Ai0;rzQYtBp(&RexXW8@i*p1gjH^M0n<oUDYMT|POjKpdh<!Ci1QbJ#3L
zb~QRGgz?;iE13-sxQ3h_Inh`>PXhV%-t}|cq51t?W;r*o>Ee|leq0#iOF{Sls!lmW
zKiCot+=(NqMKyS?C%#XQG}RkWMOAC3F$r<J$wemBrwafEx_-giC=2|C8=W*rA1x;-
z)yiugJ=$%cE1c3)@Op4v9`^(my7v|Ih!~feo%Ns$>$rFOkOhTt>ir6u6vK|oLo>*9
zPZHX~N&8}#QHzCK;yGHahL~el(LX%RTfO-5=mkxkn)j-DZS^Cg;34Ybmz|xRdr|iU
zhOF8jZHcowDgK(W(qBaV+pA;8D30wR?>QQF?5Cv_7TXK(-KQnb+B|xYie1w+Emt8$
zv$r8h{n&_CY0o)?*o@_9Xk5dK3)m-FfK)C!e|<nK?CmLGzalg-BOkALfP;mMY`0QB
zqr$aPKh}Em8`$lgX+}LF=wBJaO<6PB*SFZtwa~BTThHkab!^kEPhd{6DG%hVGm;qd
z0*26@AMfCuDr1k|@)WcjOTUnkO>G(o4*r=MX#m^^Pft&q*3NYN#_b4?l%KL$fTx!i
zK_{7_M2_W7y=-&3@}S|vr^Y%wQ3lc?0Hz3^Mc5e%875IaU}O2qmmeP?zy34i5UuUB
z$AQqk^oCBN0untNz8Xz|t%p-wGj@q$@;y?tl}LAYcfXf}KxKSJYYck@pER(!PQ!<{
ztFsve1NdEXE31J9j~O0eR8)wSNMDF`0xq#8+f<i-ZFx#WLV|*)Zg}{CEjrQciLcbP
zZ!T>>`#O+2^`rXLF`>_97j!JcqoRnQ@eJ2*$@a;~f3k&Q5HT*3q2E%2ltxcS_g*E>
zYOpygg#g9i3^onF)o`su1)Z*umWT!x;T=h>CU_5|_`!){+Ip7*Ov?#lSrN&`eLv)s
zqobp<K|=Z<aRIC=qf}2VtS(7OO1?43U$};dtXk*`O$0AP6#kW^If{Y2Sm~&j*o(Es
zXA!8hHsg-~1a$cOHCwVx=}QWxt3=lg#c$Qye@0H-6$LK=pDuy;%V5bJzl@qM3W%Z8
zlAX4StVwhi>oRU0?9rws5n&3DVA2<C9-~_5C?X<Kwdv69H((AM`}#y4hRlvsMZBo!
zd7EEcv@%^SQBqOiN2hE(k_IGj-1&>?rH3Kud4M#vpoEldXKLjrn()P}?b(|)Z9*jY
z(M5xNMS7PNPAYN<<kUqJ+^o~B$hT4gM``+!504`T_f?UtVz;0XI_2>^nj@E%3u~5c
zRC_=V`}618lKonR)d>Gav46f&65Gq2Z}NHgXJb|D&ltpl@Q^`s=FMNfekK2U0KBC<
zutENp`dk$Hk3b&d$l4Qkq^>x22$M)jKbD;LopQ{xLo8@imNFNoH|gh;FCJLN`tK4A
z{zT)QW;HW-JZ}?1v42i=7ry&!!P;t0o8Ey$UDQwdL9NErXxY{tqkv)>>oe^ej(2u-
z+0N!KuFSOwS$({6>Cz*%lc_YhJ<i3H>XBjrYCcPV&dd3<At3_%R@37Pl3uyFxvyqN
zl1o|G0h;HQ>@3QFMh6x4YJrqEvq$%R@eg2-GH}f+bw^7!h`6$8w&q%1QXl!1azC18
zb)P<yd_t<4<y?z->1}t!J`(+ofjku~WCbsvf*LMzpUDd7V!vDUIov<}+0@0v#b0It
z?yuA(-Tm~~VQC6!-hXjsXp5`*M~8KGv|l<~ydHvk)I`HeAa?q}@#*)IENd<1Z3}L(
z$5U@IB#HZ<Jr=I63MOG)n^P5oL=&ZYSuw5sgBi~mZct#q#%A-H>gAiBEz&G?4lw^h
ztM1UlXhqQ~j0}0fX8uFPB0oixsJM9gs{3N6QC8f{1(W{Wv-7Ub`V=bat_r}wX)8d$
zezycn`hOl@+p%Gw@|~0HEJAP3i)aqB;Re;(p2YhTD0O0}j?V7x+{j_9^|Qx+J*me!
zON5Tjy`GSDZyI5#dXa^$@+3ERhRhNNn0KW7q584#uQc1ow#YU<NZ-38*GiN7m2wIo
zo09ak!*KiqCm9(dmDRZKBb4s40CxHVFSShpibJO<TP^#J0`Gqtn{;*EnWony2M&L$
zVm&Ig?d*}s(QRgEcN8f;P81KA#M~*cTkQ6dc&wk2TS6_dwz^UqB|%H7QZ{diIC{a%
z`_>$azE9JL9Qf0j%ImZ~LvNKp?Mec-te@?+1yNm_V{V{v|GuB)g}44(dWs*_xd4oa
z#v6O8?Hq1OwjzZ8$yZ(iAPrQ}-%b21JW0cz8pm%+H}Gi-ZR*#&oxMn@EE5^eb{raP
zHm;~OC|EgYvNHAKLgJUUT<a%wiFfW03?*P}cgD*ggZy6x?(^IBo$Loptpjl0@RiMU
zP$qA6aY(?=a_$HqVlWGe!ciWhaN&UYd5d7PMs50%rAEQ%PGV0)BHg*&^rW$ySJlm}
zo@6j+az$K%E=j2stqXm$VT%q(XM9qI0SIQ%GZYam%L@Qx^dvNWthH7LzJJeT@#oa_
z<s55~3t>}FNlx|-3>-8ELXYIqYZUghTb{T+(wcW+nC)8AWKU_l<(=XVa2@|d8=mO^
zEZiJ7WMID(#CazqefvRaZ5xO;b-4v0(*Q4j1ftLGDcKsO2XzH*QQY<`jkqwHDMS<@
zx@bTH#Z1Gud-v`YNh?SDC(4*R%j915g(e1}Pb6*6?QO-v(^dLlp~63JVF7>7K0LF5
z%z?qh%#r7y<=SJKA1Y@f2A-Y%-Y{auu2Hhz3#~@8e#ZCGQg*OF=OE)Gmzaz+*7l{l
z)XS#n$g<lmnixYV+RHENhh`^y82xPdTOlV`#IJZ%H8ho?>Cu)Z#ZklaV&H}<Mv%H&
zh0g(`O*D~zvKn_}3PJZAdq^Eb>J5-*X%Em=)-3`IPf+XP?*qS5qCiQ%M2c`nhG)~y
zXaWmh-1%i&idxZj<62pH1yf>+2@L(px3%`L9juOWCy9!t3^Fk=oW1_?2wR)|S{?x#
zN@}0TGY)sGpj0UpzpNhMC|H>d(gs5<3xOejf@-KW&pQ4bP%sCsgdHG}8<&r-^78Uh
zmrGR9<24_B;B$dWebZtmf21-4|9jhC83v)U*S${OD8ts%KzDi%05~ok@&AfwkHkR6
z-mtT?^O&i}?hGHXp6*u#)uwvx+&R~#5iW>bD8WG*rM>|`*a5F!zuwCx7R;L_ywfbF
z#r5cgx+8oRKcOy3OG@6Ys;UyhRmB?xaT~DQl+e+MNz1+Y?wTe@SxrPvUH-j$_xy`q
z98&5s0dXHXAr{CH{Y~K41Fk7RVx@_VjAOc%S9RXqO**VDhVU&{GRV^)KGVu7yVeds
zTodS06F5ZfD4}Cj@LrZ}O}CsX=Z-h+>gp;-YAOSPDu!Tvn033C=vyfyNs$nZ1jgjX
z_3wayi!_@m%8`HYL1p$p))s^CgdKd?Gav{adE8r^8@r<h5~SQs#-jepKX+^<u6lHJ
zIG+kR8!Mm41+1v*%pS;Z!OqSe|L`WQW%r&?4ZgevrBtmwsriWVy2eBH=9*7WMBc^X
zmW{ULlmixN7qQ>{NLJ8u$9`o-ingg^|Da`HK!CzMo6b&kVe9%SbQ3KmW34S#wiWzy
z-qCZ>b2Bdzbsr0VQE9AT97}rE_aj&-##E@oHjh%P46^ucYvFO<PblZ{FW!OtIR9YA
zmy6Ulw(d06rWe^Xwd8>P{FB6N8~(CSg%@tl6&<=We+H<$oaiHraFyv5MjaO46wh}}
z&<K2<diLFV{_&wZHkAgi-$D-Sbzw@_n%TzPV&aun4hq26iaLVF3`mE^V*E{o)#`i~
zMQk%*nT;>_7;9HLX#|=B1t+oAkQ>=O#jtpyc@iCxz?-`EXctVIblyZ;Ob&t;O&uJc
zyGUaXMIbI*%rZZ2W~{9(<{c`XCLpCiDS>F@vTAB-j+ctRKCfzfY{uvLtQn|%hi#89
zjOA7<s^rDara*E3;{~vqc|$=y>0JQzM&wMaFtAo#Rex=)pT|93v*BC4yd_Os2#gGH
z3mFL&Yny1yTTK0A>+0i&LS_MI;wxrK8}*0k;#1P8A82hE3wJ(siRwZ2KxB|j-GR}K
zzqbV#aP``;A+9w-3{td%EahOj(nY(*Q1vn-`qGoly%4<4fhL`^UfsAaeq-X?S`eDa
zg<QRYH*Y?=l()IJwG!;P4{NEr_uDVsqF`oBm#rL~Cqq_O#_YF<>B~)TG|<;iSU{M^
z)6$23rtNWA`yjJyGbgrT3;FcI2^j`H!7IvUzcfxU&sLqZ$V=pD1x+XwPwfJ{9J>lw
z$oo4X_8<GCw7Fn;@`dR`4q&<uwMv0>!HG0{t7_An31Q~Sg-#T6N)mE%zOth+u?gEV
z%gf5dhDyIZJEYQ|B4)WSx8r58|L2K8KGW5qJ8S1aT+6AQyxrvmX}DVW8Gpo!((>}O
z^tQ+wLFa5Ao-R+?cjnPB=~{+CTmF~i<z<`L8yno}2Rd5RQ!Ns^gs0|u&i*v{N_F4+
zeIK^x2j9dy1^F^;%V7V~>uk{kmgcgylJdbSFEE?;|2!7kOpqe?0;1*!=H6!Z<C!1&
z8Pp^qUC{g1#w*n~{s2F6B$Y+N^3I);Oj6XFUZipG37!Qx5nX2LouQX&-@V=U=^7Av
zd~*KRk?GViunnWeE6M3iK-~BB%)7q2tt<8Ic|AK<aI$$@tFZDR3$RKbh0nntAh34b
zBBLBY;z?bG)r=0)Lcc-wU`%Woc8%zP`y6|7k-`rb^RTg1qHGl2&%*68rC&7PV`*_}
zBuXNb#>3y{ds*4^f*nzTR6jp`B~bA0^iK-5{JnLaWoWM`Q)wz{QnjT~nN%Vh9=pj>
zJ2!|1wJQTArs<#OrJC>j<%f!R;y6*)`tR;+JvUA>HiYZB>3poALG_Tbi3jHxKY27O
zcdNy_HVtA!_tILlKXRC%J9R4denp69c$#kgwR_FA!e7|IvkrYPdUwsuvwA=Vlw$9X
zV5T7EROxOkU=2Q#KsLdqbqZ)JJPSKML=vS~s$)LAsQA-#YZUqoAKkb%NejV<Uw**+
zBAyi!K@>;M-%aa679~`6G(fr{!org157XL0lDg>#&0V$mMLWTW_*fmSXfSEzHR-?W
z7SxceA=-ilaS^2R42X!$aWIU0wAyZlWM=!)_$aY|hw}QHG7<@7Q=pMoTpN#V!Z~Kb
z8_yPt5|mgieu24tNiIU<fUZqrXWtEMUKA}l5(si9mYm^ahY4#xBJ^GUhJNQmR_LYf
z0*mhxawkRL6xq+yc9h)dq(sOWk`4knU^Y5e&nqZMx9BXEiCBeorRYzZ0$EqH`daey
ze|ShXmHPp7C`^Ib{oPM>n_dE9j}#APBpqf`ds?x!2hh0w26qb`3EZE_&m?))?Ed4n
zC_Mx#1cE9Ioa|MC@5kE9YC>bd7YF16$DJL$VF8oCt|R9qyNcZjB_3Dw4y|(aeT6Zz
z9U5`gU^dE&i;J(*MOGPR-OgTHU6RevSB}4x6xKWwd?sYVAz1vr^V%tdCIN13>=G<;
z!0}EusJoLq0n6XwdHF8#U9eluluNjMnl#v$Hbi=nmzwKdE^K?U?)^<6&&Mx|D9Fgv
zc5K5I6W{)H@@J6n`7T%X^(+~`9`HhoqdVO%bQpS5w|Rj1UMBA=&rb0$9I!jRD?|9p
zzC(wi2qVh3HUV^quV@1&fNG=BiXY~)_y7uh#|X?fpi=D$C@t)@y~71p=L-W_$2Q!$
z+>!NR?i55RPa6S;k_!VvCcN-+5JnDNw65~tmMT`rXB|$t1O534`&vr8T{Uc9Dg64H
z$N1j%v0GcuTMB;pR;ZuB1nCjbMGB2MC!jGwfFXa#BCuzG<`<U3vP_5MbVEa79(tuV
zTeNhHLCA6Ewp(TdX_7nFNBBG9yMBzAZLw|3ZCm0s9o+xRac;vl&>NL+u#Z?*4HH~y
zu1U4u;>Qgd*Cr?{1z#|)L(4XeR5A$h>*^2lG2`4gia92OCJVu>`j8SYm0F)tq=r6m
zFTi{$9ZmI@?6;{(nY*aY(S;i?7Obr#R?Osi**>CS7${%LWeB<F)@}MJ*K#Uup~;}2
z#UKmeM)I5;ZHa|$=Okkel9f<=htQJLHfI@|0yFA?%lXD;j27q+j{u{~<Hzd>HI!&T
z(82ro`W_s&*YaVM?KV75cOd=dS%@@gy(nnZ$Vnu$crWk3GlP7EMn}{jZ^n1;zI~>{
z4Q$GG3q1r696cD%05zm0UWxlgz`3hHpOp}b=iUs_L9*=eyHkf-XNewXkHSh59F1iT
zbV(l>i<Kk&+1$-Ze!g>0c))fZo?To=cCqK`<BXlT*1TZY&UAl~J^!q#l)Wb8jag1!
zZpW?5BNJB1PY+jM$0~Kt0BY>1vI0P?Ca9vp%v{U4R2P%6mP!3W`6}*a$WG4p0usL{
zoDE?$_Ix~hZWnq(Er0+*uOz48BMbn9n8OP=;z&W8K(H9-nXlGOh|^iE{ghN}{T_zL
zz2!^}>=mSEq#{PynEAMOsV;MTQwgO@;_K{lOAoC{DSI?B+=}x=OM7c(p!zx$71gm~
zxw?%8mQ4hMQ)k0KdVI%jp(rp>K2gO(qjhA`uV6XiOZKNm=2ze{6s95;ZhpvJ%K*cq
zS?*+I{s{a5jA92A4t^h6FCn2%f)6UGjkbWuMX}8QFVc~E@bpB3A+Z9t6E~9m+liH9
zb77Ar0%s7cj=<6|yKJJ0GM->HpcS=A9;kIuMzOF>Lp`}f|CB$^v*(BZdS{5^=)DPX
zn}5Fj$yHDLPoruvTWwZ$Pa)9)%I8;sm;SBi*Umu(831~HMMrD`*q*lWd|yIJ7WEtj
znerZ;7WfIJsr#X}W>?ZX7S1rOo;U>+SMLB5^`R4xm`$0&OM9va<-JP10i@^09&~l+
zM}5NIWb|$ZiKkW$5WufxImWu^k(qX8?*wEsRyohQDf$)gb2X5g*Vm1h<;+0+Au$ds
zPvX0EQ38m3d7H%#uzMz=9ZdR^lKb4DVwhaEv_xr5jusIF_|uvvKiHpH#V$Uf5TN`J
zBIz|7(&VCB^L|eqD;sEQX+IWa4%N>aBch^|3MD}&%M)4-&)Bi!xdzrO@ijFvBq@Z+
z3px**2^%&-Ve%-jR!eFc0mhB6YIB(rP)dIg0OpGAmVx2eBw9sA56Sr7C=#(h=y9FK
zLuQ_b4c`E2ymBya$Tr{F^PAK!CoMGC!;NXBfpath9}lU!s#uS3lAaY_vasT@vS^$G
zYdK{ZYxTx#$JZtHqWTYKJ*q&)>9$@7pm{!L-AUSSb!9O7E-KGe&zVPdWK*l_^gln{
zc2&T=q!Zj_QZIk;#jCG8Jl+BoYr~EPPAw9A0qvye%TwD%jj~*Jx_7^rv+f^qax*NF
zISldXW~hKI-GLDEx3dE7zJ_N1j9W|;9pY5`vX%6#?>Ym&B{ZS<p%2vhna9FMt{k7e
zOSFC~Yaf0+*h3oc?e4y1e)*YtKg4{=hp*b1-=P^+oFa(I<m6=W!PyrSrzM+-R%2mu
z+I4Ewt%s_jG8E~X5VoZ{4y_1J_wF+1L-f@7r!p(1{zS_Y-wN7nw#MVc_2oMI`Ek|Y
z^A9h3a==|jklGN>oDnl8gUaQ?qvGy2XWU(y{z`4IaYT0ijaJg0JB3s-`&-o?6DW7j
z5S22_Rx3cH$tu<q867Q6=e;LrRwn3Ta!iK~8VaH{jSG2B_^J?~dD}{x4u*tZM;j|D
zyP9afqU)@2AlmJ5(cnT^TGL2lx?a%cU5CTL!AKA`%ov$yHNE-~GbQz_*clmRdAaBo
zTAds2@~Z<=>Cv;=?#k)VzGL5IzC|bFZmyuTcrV56*1{t&z;K4Yy#oscziw;2<N=RN
zmaVh)KWH<Wlt+_{^SqpTcmxXvfcqrDwWQgtSOJJ=ff>BymDrkV->`rVXT`U)tSoi3
zn+ImL^&!PQZqccelap}^UJvDOT%AV$)(?5bQ>LNgEfViKr#%X3IzH$OO2xlQ-h#{X
zCR*b7`nhIfiJ!E6C7+G;=r$E}!I|;p;NDyf!cU<{A$Q(v*gpX<_Lad@bF#(@%^$B7
z5=JD5Hap&`6`d)EVf)1)(+^HMo1{RB#5#2%PE+rF-&>#&YSFoEsPrp*ASJowUI*OS
zt`WEs8oowGQyR1t*xzK47b8$he1d{v@wk^(I>&+?CR~+<O7Yw|G|MOpO84#ETa$Q4
zko4@%<&$Fm?HLbJ=}(?i%&Yn8PHQmJ9IKUUZSEBK{0w*<TbNfaf25K6N{Jd&WMvC&
zUui0Y?F0P))LlmDorIlvKJt_2{nqbEofK44(_AK5w+T@BMBf~q7`!}GWSJj++(D|w
zXz8doGZubxGvo0n=AYDN_-fvxNu$@Vm>cKY_}xnkWY6{I);Farn<7y}>XzZCUGZJQ
zN0`7fMq*q}ingfG9Ge}15ac}bBu(io_?6VJ7v@$~&s8DU#jUx4sb?~xSxSa?d1%cH
zFs>rWvCvjo5<&r5Wf8_<Hd>LfB~U~|#brpw0^xc~U3sf$z;7pHe^$l2dBJ?8nvbb~
z&K8Ca%D|>#a<=}qu^Z<aP~AbQ`}IMmEE&EJX3<7NeL^K5TnXWyE5d~7$kdB){WI7=
zs0owl+SOkTJnN^Z8Vl^#wsU*?%gk>mLE4X-lVh~n>F71raunI#`5PA**+p+kZ?H{E
zu7w?EJzeS4Q+}0!W7p$)&~O(5e7q6Cs9;YK<aQ(~{54O@PUll1H5m{rV-r$SQ}>pl
z1nM#S-2(>@01hAR4#!tYg6OGBP}W6mxbK5J^`fF7ZwSU)iH|E{H*PQ|w_x8C9=Tvv
zMyXElN6_-lWwe+DrSS;}v>p+(Yrd}x=gL`6F>HYq{fYq-MN@15dbNpM2taZHg!l7X
zGU!vqQZ&>(>_1?Kj1@x-D<|xEb1frgL1<}%zI&YtLN+<*Tt8)JiT-j`KD-S6Vol=S
zCXx0Qp<3xnNlTYwWkhOj2CAQGSmL*tH$3tEHJoq)e%1z}o(si-tE%8R?->~z$De~v
zLa2F~JtaQ9cx)VSl<R!db8Jf0uD;xQ$NnIz$^*Ip=&pefF9KoA2m~locV$EAImygi
zK0Q!f+$fIv_9CtTqTlh6X_VtYwDOdGr5diMAH0KZ6^M^4X|@`Qud^P}16NYF2xf_#
zatySdHXT(?i@si=I#C@2qQ1U7s&vmDWs=9J`?*54N%TN{VyMSGz&AgKiFw{1>wVgC
zEsdRfey2Gra7X){*-xA(q?ESMr@_J#YQ}5Wd?T@fa#^szY|=Ynk1Xdzew1;tpcAGW
zZbJLaMi{YE@J~y6=s|djymF*<BpEMuD78&fVjw)hC%$t)D88Eo=3Q5bcws<#&q)0p
zd*<XdfNVD6?cg5qtttcun2T=bt7eKqPb*yc1*VQu*&nB<=)Qv@<mz6TOpQvcC=g}M
ztI3@#Vba95A$H!$Q>ThSU8;+9B)#_VP(}ZuZ3Ta8xE@jWs?ysa-RcGt((MuBv#_to
z<#1_NeK`X2McHpM=7ZV;U@e7wo2;1-T3(ZHJE_ivf17#Icia7*7(Di8(Knm}6Uh}2
z5O7r>6x>r8dZjYJBpoP5@eQCEx>6EA4-(A!K3ZA>!UfaoU&461Py780nDpdtOO}L@
zyA)<3z-lf}F&!P9XU|)pJWWrVq-d5Oo&wt+_~px&<9$s#SaT(N^|nlPzF<`>PVYMm
z)0zx9okgiOI+wa<>e`W$CoP=daWbI>Z#vwX*L1%*f;3O1UIv-;@MM0uKU<*ze+Qhr
zCqj_@6-v?Xj~P=Fy_c+Jk;?&rQoiwz8!lyx8J>5^y_3He`U$&cng6S~(}CNd-w+bJ
zsA(<*tpHy;SD_w2^VJ_4D*Re5O2a1mqNZbI!^ID$2`U49_mv|d_q0Dm6TIkL7g)-q
zlGo=S9&Z<z8>}rAK3A_|9beG{rIWSR+N}TQ+r6e`A^hOQNe4G~Dz`3eAu~7-f#SLd
z|K=9ABxuW;lilCzhCpBQYf*2KYE3^K@^Kf3Ew-w_(71jZ_+qIHC5HU9RqI&t3U||d
zi&Hn~o|&ki;|&4=U5YoxcSP{A64``)!^*aL(@T(c<239cJ$xGp@b%S<=f<8mUMfQE
zMF%$3;Z?@b=#2(wKSWkqfn=8ih9KH;pgp3{Zo6L|Xey;P2oBy^&wA~>qz&P$CD?k%
zny_=kHWPN&#jh+;Ucv30U;P1o)4%n-HTN_}ojzuN?dtK_&f;qy)JK2a4^6W(ao$+*
zaA>R%Q!-x?T+BnIT(v91o)LXW&S*AM_#{`*4Z;>-s-&Q>i<(OeX8r889)c!-m!Xi0
zycsDWev8Y3dPdVshZF4}#uX?^xlSCAFf&WfHW@e`Jw7lAMqn;$70qT`(`)2O#qMo`
zG~gj-cn-e1juHc_OvdqyXN&AeT<B*@`-EH>1Bq7Z#X)8%z}B#%E)uQk5}U0UJmzGU
z<%-sA*xV03ks>>u@c5(1NaDUk&jbnBW+&v$Hoh^na6EeY2fNs1$lAnE4dDfxhMix8
zkx$Mx0A5ng+-v_3j?~Vg7qT$u7fgUs6viXorRW!BgT8I0Rpj<fqI-e^I(QY-&r&>*
z?G%&Lu6iVilrFuBm`uk;R<B99U*UinrX-K3wR1W*kt&K<v?0H`uf+OD8SG5j{0-$x
z>r6jAH6k4G4qbun)Z9M~Z$9R~y0XN?$;sLOr2F$jWkckGA>%mc^jB%F9TEda7?;!n
z4ANudR?Q2Td*k)_q_UywA`D|W1uNp>;&o#MYc$jAo)elpoKC)8d%aj!9i0e&YpTt{
z<X#FPJ|DNkoF#`T>=6~eUDqAld=+Z_AaZLQQ^y51FT<)HMEC}wT3j8@T1Pb2Gy=;X
zH&9%;M-BGbCG7Rx1eupdc+|iR>5OI%u^87W+$Zu!7jz?B;BVOiZl;yi!TVyrtW*;e
zQoin_;cMW~`uPz&p)mmZp)A{m(5l(?nTBlBSSqkf+MuM-okW62h{V12x^cH|9hm)M
zIMdFo%cq}_^G$CCsdmS$H7GxB@byWlCJNrkV<dD2<ZUq&of~L(+)(79a&ln*q&YhJ
za~p)D-LU7k;0IPNtBIDr0sE7fh=>cm=p;RT(QP;fkUrQ5MTNeO=NDcGC|U-)QW@k@
zjUPOHM~3*d0NDu@*b>29j$s_zRz=#=5co9)BWAy!3Z0K*<>zk^^FRBE5Zd6cYWaeo
z_GMNIgpwJAaS`v#+BQGT2>BC#hvZ3#8V5hh4FKeF;LI|ZCx<fRZ{n|RbnJ%hA01|_
z+g=tB<4qdi0S!WICP~!^$`_=8R1rltu)JjeXywR>yAACXQ?*p-0^nw3?H922qXirD
zGr3a#ounEpPk_BVy`a0#kvkRE#K@L{v*Pas_mU<+efg;V8;+7jE*eqaGi({HR<Y3_
zABojR<<kVWqq(}gaH-;k#L}X!UsZ1LBMYl`f`zv$-9L8V&>)9FYwnvSK~&{{^AE!Y
zFvaxy?Y|yGVwi-$P`!d{3+{x%7cd(eSHFpnTn?-eCegtWVop!MeGdHl6e@5KTI=d&
zvnIVrC=$fGQ91+QOs@ugYCII55s3M+EyFiPD!vbXqAuA#y!aL@stxRpkx;pb*PjHO
zO4VzsTSk{OX}Lv+PQ9eOoD+7IUeMv(M1X47y!WW>N`a;oiB??`=0&3BUh3jKU_EZ-
zO2gl%7=>-#3nDj?<aP3z=K@S{@Ag_xeD5&yhZ8Rd5I?A+(1}RXe!3R!RsI~>o~E{k
zO44AUe$M>x>&E`Z$J={=2hwOvlF>UIm!RE3_KzG!>6)z?8WH_3`0kODm2^UUs%zoI
zM1>vgD@#VhoEA*HJwh)Uo@Lwz_m@f~`8G1Lr&K~5a5BFq+&Xc`Zo-Aq!*G4Wn{(qk
zjg1gAp;h0NNs2&1#QR{Jh(%;pl5Zg+yFx|`V(vCYy?+HKK5P$h6YT5W#QkP}2{QHF
z5z@39CEI1sX_(T!>1SN$L22H-jhNZIScAAJwX)E%q`k784AkX2SGH_$t6@h)WH4@~
zgR)B)hxIc%9JQP_kdYmK%4VUyRsG+Y#_?+u|1kqP{htOu|I@Gk_m77D=b_HO#`*s-
zZ~p(wi)HB>*L?{@gToX2L(6H;K`fp0?c1+i*-(C6&CdIXfSI8uJfnb?H(y3hJ_lI^
zW|NM@;wOrnar5Q-NiYv0;^Mw^uq`s2I(4dKk1UN@jxy?t4;@V6J-xlxc*08FiTE%Q
zDg|9nUmp`ID=YCTaNi<gV%~H;Jw2xd1qF#;!TbuZnP+%&bF+xCvceuZI=XKihQgje
zc`}lcyL+C0?n<o|#}(dAEySH2pxo9f1s|tRuUaKYWfqnMsS)X`s-Q_N8@X)2ch#mJ
z$>>0<8=r2Pbvsp$5|o{S9!P8Lrn8f)Vz1_NcSV6tyrrk>`c|)yK|mlR-R%`-!4fb|
z`|-5%F#_%pfBv^k0ROLg%>SLKWy}#@%!JAhM(ifsPc?vRY4&S&m_WTspeV?$?}4io
z$(>F#s{T9j+aMFTaSWn-s>MX-UV8~qQE5fRK-A3`G>AgLxNetC{wx~VZabfopNNq_
zeqda}90!5#9g1q!Z5B+-$`ceeVZq*W;+j^8_i4<JyfDlB`&LPPAI+Vugq%eT06_o)
zC%zw|1s+y^8GA(yQY|a&Ea(|^(QsChANc#e&tX+`78^*Av>+wW6EmqdU;aDG^0~`f
zc$_y_JhpH2&g!He^3dNmb==hc+CEc6`3|{4Xx}Mu46s$9TE9mpdhNpBIXJSdFa8Y4
zbP&d00vUd#gaAa6!uObBU^yB9>lpvt5nw_&I29^1etQG6`@=qbJ;IEQUWfTHS2a2x
z_b5F#HamBE?_GM-R3Q&b>ERwO?J>HF5P6dBb|k3$BnFq9(|2)?5j(by^FWC^evRJ+
z#gA_;Dyd1Ajgjd%R*5b7M&#F%jQK;k7<faGyFvIw36JNDe8TMk?uRCYySVq0T;&e>
zJPc)gj9KAEuFGm!dci|--@ALRU2r|_8osQxWzQ8K_Mq>+Qml=t-Y;OH_oUd$+Q?-D
zk>BUl6^qJr59xr$bkCV$%%AO%9N3$CKg2SUkcUXmoLkXL3}G_t_XtE_ATh)%8~B2s
zEa|jvCzH`y5<c?F>+WL`jBlmqw4Cq(ATFLs;WJwC=~(^(E%abk!%4-dpu&-s2M1$A
zO?Sgd`^O8ANS@gW!e!K40fLALgnC1#!v~Ofq>!AzGK0XvL{5Ye_##opWseR*UqyC8
zDkAt*x@ZiugTq92a%KF^{O*(z#KvT`@u>`Cp_rTR9O+KO<N14Yyq`2Ye*}Z7fpn+g
zxBi>agt331_|ct)Pb@3zz)-@ITfVS`^Y1&(#3Tv^i^zKKF@^xrjGlxxw4@@je=hQA
zB)kEY<hWHCLm%ExLwm4a;oDaMbVF8+eSFdacJ49rUtk&-d!AWnP`!&g9;SDq(E9br
zt$p`hDM^Xbu59Pn=0mL86sb##^{#fe_@?SvJZ!#3u1C$&syAeoLyUwNmYmnv9NV=X
z+TZU*)i4&Jvv6ap%gn_@`z7ypzn2;{cl`bSZLRojVs?_?aXgaJF=<K+IO8c^BV57g
zMG)bXMZ$mI@{bK;5oInCJ8*s-fp&e-9@i1mZ{gwLUX)aSzL4ySc!cnHBxum(`H4lK
zk{P^03xKoa`}do0)z!o)uw&Zz5+=>Ez{>8=`FAkOlacgT-t#cmgZCh>Vt`#L$^Q<Z
zk%_yAux<YLsDalm|10OZ{!L>zx!~Um`~PFS?7uGK|G=5Q|L#LsqqUx+X}xE=X20z7
zG@LnN(`lm*=TB~7zAFCic-83xudfCR9iiE+y3b?BrMvpaJGIZ9IydsPW4@DKe2dGz
zZl-UCjtX^iD3KfO7rjbOo%v8esEI?{Xl=FKuc6A9>wAmi1wPt(pBJx|@&)HE%-KfW
zxU<kb^*bm(hHd@#6q5h?@lXEwpRo>uS98c>AD%z*8*@-a!rIO@_nPJ45hdea57OIh
z(a`=<A7Y;3lQahW^=f(C*W6*~onuftG^-|)*g9vRem=dI(fYwqZESH8=bqy9S??7~
zpvuxb16<>Cjg7g-AWHVM`WLSUNI~+{^4sGzY<8hI-S_+v@=}^6FSDHGN|w)$L0BHR
zUujI!{(E%uo$@s?ybu3WvYa>xsJiEJohR@ThNiCPxcYlzNPlFnm^$UPR8f4*p{xcG
z#vunx+81{@n^8q(;+PSf1<^gXWD4p|%Wt3bVQ&31q{#&v*dt`TW1Wuzm4heoq=VC7
z5H!}!1O_p?&KAS{2M@-K&rjeQlVQ^(jz;m6k&+7g{P{D3{Qe7|t8qxhKLgEUePLl?
z#BVTxjv*-q5+frc=KNn8T}?V6AfN)O&d+4DPZ3@lZzh+c1ar5!7ww~4^xQCUwU<9q
zA1^%H?f%K|<iXJDqQ~k=7vh!`Q>h&1tF-!e7QRybWUP|j=i`&u^y20(_3ufXhwAl4
zIvVOil8fuc=8PY#Bl}4IgjDxu50L%O*aZI-S;S)g*Gm4`QvbCM|0k^jk)Tsv^I1y4
zn^FtbN*01FI<xoiSPeELy@SqK3lOR0xAo6OlSR5XJIo=c9X@wY_*t?05uUJ~Qa{~=
z$)3U1yc|f@|2P%ydA9v8&i!b^wr3npbq!6;LAdYbpgIr}lQ>zzl8;8O;lm{yC4@th
z@&xAFH(*GGp|R&LFmO1nrna*crb#ziK^3Ag1@j6K6+8ox69WRG(KO3>f=%RGu*qkT
z{}*5OK6iG=;Ke~89&}WWZ`tqvxRUiRv2eDSe$V*g%4+)x#)lc?{(cWxud_3oMJ#-X
zZNi?4=?|ixK7FcFe<#=CVU}cO9JsRgupLF#9nynXf!>m+77rhk<M5!zbMWS9xW`A8
zO<gPp`SOd|;zz0Y=z!t*GuACCu7kBpt9m<&>u%$euV&lAvthSxJm6Vt_{^ta-wOZI
zuMxj1cW{V_Lj#2cKaD#$7dn#qSJ&uDE|}lOWEB+^2a-W460L4ztvMT-E#i=?)Y9i9
zvz%acB~dJehWiL9N7={z>C+vAt?BjE3QLFT0lJ^j^k^$s{FoXwzR<nY8^M3;YSKuf
z^A#BH*nn@84E86tSg|X>Fl#s-b3Zse8GK!;C>CVvIq}e%?>9GuDLc~B7fil9!kiFi
zlx46c5KJSON{&+Fw%TW}A*w?;at@n8QizRu{IKKO*RPKdheDw_L&I^)Ed#SQ_k4sn
zmfN=oN~)^9RnWL53k8ojZ;8^;#l<B|SzL?+F3Mz7$Pv$yL4Mx_Jk`PaL{_4Jf?-0j
z<da>o`Si@k+xvaZV?p~;@}rW9iZQSe5H+!cMk%qL$-Q`AkIQFC8M=300tHLM;xpe1
zr|(!6J9|D|l?laixNeF4Q;*T60{RZKoSvzLu-hIy>&I+y)iG*$=K7p>DIE##ku8W(
zV%uWd%j*yS7$o%15)Dk=I|qDZ8P}{l>*{YQe(1%;kEKbRel3{u%8(<k&~rR?tz%bk
z{g6*F(8_>`?+%N2D?D<P?;iK~@{!)YOaADaP2L)hn%y~^vaNnSjxQ-x&Fi=~Y-WA7
zea3>XZuw`_-i<)zZ+O|}^0{}9Cg998G|@10tl#%93-X-A=40c#%N(*+3_%7oKgj+Y
zfxAW3G@oxSJUb2f{U#J}IS3fU=|KBN|8DB%+H4rQe~{Ufq<%dQ0^ZY{zwcC25u0v@
zeSR$#GMlI;?6tbPD9^qrF^#$r6v>pBo17r>m#J}3+_!I?fr6vzx4tQ5L!Q6y|MJ*>
zs|CDY(eQv=&Dr_)x9_Fd{-dS5?ebs6o>-UvZ$*ws!o;7856<p9(MbQaNHgVX&PFn_
z&(}WwPHoTq+s5QoRaH|<w+57JN<)4OQwG_ldg2dh?jPA8AG5YU#LbL~vx+zR?O>(#
zA+oy<i7kdd)x$i-B3)cIdq&Rb+*7F=5lPPZ{q8-go){ba{pSP2`hS`D|D8XIb<QoJ
zx>y7H$5!=V_L%VOjOH)tD?cncK)B_hSWQobuH8l^uYq{S^gx}`F`;19ikQZ>D-i5F
z{KCbBC<3S*!tkQW!Ceno>n$Pi+AoyeF#!$wd`?vZWD}r1T(B2~OUeFG{CBm<)QWH<
z)bBZE<KD9955!0tkq%a8677AgZ9sQ6V)9F1vHt{#7+}O8)#FkW0)l~sUrVPl>?+1~
zay}=FVQ{uyh=QNay;yp50!9^`Pmebdw}KJBNN`X(a48z`2CI&h#^kCb=BgNcBd((V
z4=duZ%|;-UI9U&~2;vwqX3i)(yK`o=MQLrZzMuvX3|c?t!v{&bf;%dS@`TkGWL*Nh
zh9&xm^HEmrH2gJCyxd?C8CJ=K9$pV&uzSLS<KDO3FhSGbdQ#C>4f7Vx^4s3>u=wcW
zh=F}9+(C|Mv}6}sw&!etX{$+t(lH=S*prw)unPLUA!^bIr5^{g)S=WPcb70PL4U{i
zC>JPY;_wwr{eRLRyrj^jYcLyuE6%A($LbJ;g*aglh=9<IFURQNRaP+9(UG82O2cu<
zm>P;<aR?ze)Il2}Hyo{3gqJe+pShFI*GNxxag*v?J29&b$z8FUX!FR(ZdJnYe1ep{
zGTX#-rYXxfif#bb$1{gU9mAmJd4>ZGaD|WTEc}US3wlz)Qp*_Q(;S}x47J0H8FPCT
zUJG52pr6=maJZEsWbd1pTTc9-kNSkPO^o=X25JQ10&x^U6&$p;2aIoF&ctr9I+WmB
ziIIFDAx`_%WgTk{Cn;T17LLt{#a)#!Hxb8rGQy`%B=B<@E|6ZP>y!*|T7@=-E{~1v
zBa11d{1b>*`k~|zc1m27Oo83X_ELD@{~-~-S+=u}C_F233N0Z%2WQg+<D`X19Jg~=
zFGIJU1qV|}c)}nEyNZ&pDy0={X2by;KGuAKf_LCT!wI0CFk$(4c<i|i{`5Tt4Yi@e
z;sC2^%v{K5H^KStQ$JJ-sj`%Rbi%?LlLS6Y^1jwKFcJ}}AVhBB?2_%p{I3;brE4j3
z(ND@^j1%(_du$$nd2h^o_>SO`89>ykB-VSACdt}u@Ss|f)Sb-6TJ;up{eDof3VBv(
zbOS&YaVD0q8Pk!7J*4i=FQ-lMGqAs{pnz_GI0tir3sBIL4i4m408P~q?shz)dfmjl
zNEm~N{e_-<a%lzqv^Q~tC(t5xkti;TIim%ic9Ik*U~3gI5+Y!$7-}==3~XT1Vp{K`
z#D#Mp;&IXn{LuA~SbAox@ML4)fa-^uO`OCs4J(4bobGu?@}n_O`x!7Df%U`rY*-#y
z%#*>Ma_iW=&1CG)TAs`i3U~_n?;AU#3vat;Oo)6WBws7c6>wrO8&(Y=n201Xr>S4C
zVut;Enw?!5#*!E_L43G3UA%G**ZF%wrf}5JpAHX+@!_$ajU$5nueTLBZYv9B%Ii+J
z^BoVZh`LT|D+3RPT~<gY@RW<Ydp)KerV)Aal#yx}MfMCQ#tMg8Y%u(lhoe3`!-)Yf
z+}=)>A#8S-_ugRAY!KrIFc{|G*qEm0y1Q!O2_YObB{(V-KER&K)5u<o;NamcQO%$r
ztKF8f<qso#{uIc1PZr85f!PLi;xJRgoz0kQC?L)sAS}SNtK&|Ca1eaR(34#s9FOl%
z>S}~l-~{2>f9QiVQWLgk5ICZl7jxmS+Qx`6^U_U`8Y|0vf_`*xIlpi2!h@{FSO`4{
z27>4hEl|A}NsC3Sb~i^SFl%+&(*#Z|za8cqz^NQLV%7=6C1*sPB*u9zS7n8K^_h8<
zkMpt!(d9}i1zG0qzlG~~D#lnyF=n@$iSuX>$kp();{2c}!Ic3CA`#J%2qGTVsK<{~
zH4rbyNsUC_)ZO8_W(^jHv3{E?v(l{D>QgPkq)RsdCvgnNZnLc0M4lhddd+&)Qt_X%
zT@3~H_J*0yE>bi*z>O&4N%&u76|CFm39EamqEHf2BuNThk(k?2Al~<kY#?KK>hN1^
zbl6JBSeP%1t6U_G$?9;VCOp3wytz-DulwQt82?<ebkDupk7hUI8R;I!p_Nh#WYac|
zsv8X+9XtBN9LErnJln<+Id;!l<pC^v?qAM`L;5C;R3%ad4x2e*V}q>Y8IGYK`3Ay{
z>6uTF&a|&Tzy?;JYMot0_z(0XoNJ=sGeme3!)(buKC4mqID|lf)I0Jwig7vtC?<n8
zLojOnI77k5grz1<XK(t&C6G>>`b*aZ7d^s_`ETg%-RXC9Lq^<12ObzZj2;<kWWd=e
z*U+k&qKzHl84l}%DDR;&TdbxxJBl$d?QY%txV2=X)k(h*{-fIQZ?_H)UFHu*6S=oi
zfUNzp4s$!_P9frG7bHqd&7Hx_JG=_=*1u8dM;(l2pBeak>7FSI1~%JQz><m7Z=04v
zu@H4@%3B<a^$84QBw2O2aeq!oL_h19AG(|Q2+mwZ*7<z~6ohjk2NOr7FpWe|`^)HK
z(o8lz%VxodBn9i}jrg?4^_;!Ey>eMUhz@helq}PvR^+2~ZyD80f29zn*((7Vc2~(?
z|D6>+1b(Db^qAh<0ypWn-Cdi8DdMCyUpi&XD|71CV-+y0<{6HYg{3g)zAZK%1KF~k
z9M-cBh*JULxCpR<Suo-#&PG(VRg`=Y&k&1FXOVh}ol0zY9jw0ZKTjfkYXi%8hC`<<
ztWnfuggWLqjlE4mN{s(tgW2%KKEXAGSWdFc)BqZyEyI)`#sXD5y)h60KcC-{OEG4n
za0ttJo+IR>szkdPCgxioF77yZ=4{T9-#4S9j0pgGTfvUH1!BbR4giQ^mQe)ET2lJ!
zQvfY=0c$>;oq~gZm$<80{>7!Y8*{6&-k6}WdWI8-2tP0~Fi2vL7zTTK?j=^6!hT*T
zLXWV);n*c#lZ4_)WV8~~el&V`>Cf)(UOs+)@*2#KR1c#I=D;BXq$&x!NiUIlJ(vY)
zY{oB<`d&_8?w-D&jkWM>Do*Ah9t5BeKwUN-`HjT1lSJc=lJ~u9q912#R^d|6YcAUr
zz?&RSyEb3ECk<IH`o7r{!Y^!h*dP1>OcSu_^dl{jlkc@Bj{L)I)#4;6Z(rX?LSKg;
z<|k+UZFRFh%}-5skbXAFGu5!;vxxOOUvF<hNJqUd+0;Z>-f+rBFr%M6aRk(UIjwo(
zSpdt`;_NwMd;@jjU5TjyY%q7n8j}fI7MkQM_RC$ggrF^(werl7ZtHZaEocaO67VB%
z>}8*!3Y;!Yob3hA^kX4a?^<BKcK>|MdPQkiY!YCB3`3QR1x3)~tBkX<51+m30F&kn
zV=?z;2VwtJFOAvZU!Ru1uzXU<_R+45@j+=g34;cUa&|vZou=RKsJa+0dgBI)WFYW^
z?5$h3R4tLbh-J=0kYvMh1x1w!1P5>*s<rNy=X;1vL7c<Uv&?}p-Z~Uj48mm?b<Nay
zmuptzbX*e*;6bmp&c>8G&ck5LX-U9g*{F^K7|yDOuZei%3D+O|;=&^*{F6lWAjl@r
z8mQ#NjzyZ%1#2(}>c__v-oJ}DAaCoc;LnsyM$j+>u0g2`C!z^J6m?P_vNO)xdq*?@
zja|Q75h6I}kjVHLLruu)J&a9{3BH>^t5q=AJr>gU4&F*mR;I?jv+!)nC&GGxr3NYC
zCvjI(0%zB~9;qIiE7eRP@p50ZX+KmA2OuW~-q=goT5w85iS4tZ5=;R8RRJK+5-PxY
zuMP7y0vOskUQ+voJg0@`|6=bwprYKmZNW0<EMh=0pdLX$ML@DgMJ+&(EE$vx1xn7~
zF^jPfkc<J5EUA!eIErK>3Pn=MNRXU)bC;g~zSr;eyRTo5*WIJXbvVZHKv8`4eS5Dx
z*IaYW6)auTJ&b*;OgIfj`>9V3L;5L&uQ)Dz+PFz#r{|zf4eG>TP5$VtSD(YP#ec<D
zcme!U_^`99Pvi}KC~+7`u~b-zs)Jw4Y>!=(hItha$JG5FxvsIjOK<P^7}Hm9TJE;P
zrX8|!a?3|3;_eeE;@cD+@f<qUERo4JHtoT-VFUMU%fY+Me(99LsE5uPX*~Iz(Kbh}
zp5@hkeHO}sn)QN5%Ky;<knTzBg}`!S4P->0(LVN)5K>(bJ$Lpz8-c+GF?=ZlHsxMX
zGH3hR7o*M75W4?0S~x@BKl$Rh<qPeR3X)y~>imLD_TLD>gu6ZjEy<^r9F;@Mj}u!(
zbQWA$ck}ILQY44K5uWI(8*}DRiu7IH1U-IyuJgN*35A!Ndub#8mMI{a>K`_&5cP5$
zWJ}5~<UZqTDb9n&%1m9bhr}HVr~RRO-O?RE7A_F^r6Mji&v${E3MgZV{LNAH*6Cf`
zC`(!F-<it>#Jwd;&*6_N@*$!N`uw-941fK4Z1VirZdR52)higkL_=RgTnf!-h@}LU
zL4HSe!x;<qwx5&JE?|zT;H*rTKT9E)Xm!AZsRFs49VEwkL&ufozT&G`SA|Hlu#Z#B
zVZT%EkFlf3W|uZLp`*Ru1Ch3v59&KmfTB>orogTYd0t@k3+y0l(??-p3VAQRRUnZk
zxaRIQ2~8k3cv2D`6h<2f5Qmxq4-PdhIBU@r(4ddB3VxL9sRZIa3Usj=@P?Mz6kIF)
zIYd8%%tZo>mg9>TnWwfn|NZ-RQp|PW-2)tuV(LGqd9C5ZDNn%8x0C3!k?;4wg$zUZ
zi5;-e8rcd#I>f}3{v5Pu2gH~Hzt0WS;WS<>$|40Xl*nK}gjH0?8w7nP>7Fv!$w1&T
z$7XiZ`OOMbj_FUVUO|V-NWJqrh*gNJD}XBP(eVbLPy7)JhW~k~YK$)!UDVSM>+XMy
z|NZ6d#*er4=YZNGDCjxbViT(wzrW=r8`3$a4>HD<VVB)i;;}1Cwy>5Ch4Q*GKr;Uy
zIyl_wgwgWG!38dTq9G-JsI!=}n}1j3`*&t<Nk)0_Zl$C4de61<D61d7oE3s4-HCn=
zP;pPsL28NJq9l(B-}i6N2n*wX=jPl-MEm>$cWmx2*dy!n9N7PpRf604#koxhn1w+6
zCznV%K$Ln?>DRWPP_&hHE_JG?sJQZ;M+N;ayw69_Yr;ll9X4L30$EApr6)3PZ$8Lz
zmrLXqTXPHdtUP`D7}_0_AZLE2Lnebzw$BwRl@wVyd$7)^^0b-xy_VB=93US#!S&S3
z5h$4Lx@iYSEZ{8UBB{2`5$@T;mBz{Bv?RkD5W={O$lKu0o89}q?buw>e(}g(bF8r}
zcA9Pb^$p6!IWJayeudVn<REZTtUoI6hP=`MJB@`|_XA&hc~zqBACU>=-SJ<%6~4Z~
z2-iJFGE9M}-k^&o{*YUbTs(T+Kqa%GBt*<2hU?c`Qf}@`UE5D2`^3qOcrQJ3{{0;<
z^Bv6+NCiEHo^eLKdUasz9C5Eh_cgM_fNZhfuX=3=<Rc#@DY3DaVb!3C#v=2^tn}K<
ze=UsAPM=tGUkW=RjUWFPDSB2`Zj}=}f|$+Ih--lj;=kXnc~-#v=5-tv#EXs2b>qE(
z!=R!+9BElqW&?7nf$KPdaxoNhM;NJpqZ4c7OQ_wEmirECHoy;h-Up4L;6;#h^GHfc
zf{uR<xg#P4e&WHVco)$%Jv;Yz!9vaF`&_AYZo99Es@@p>n+__v(6919ozV#{oZNN0
zAAdY>$JF0z_4u?0k^11YCkm$m-Yvj|q?IxoZJDSVpY6Z&{y-(%r?G*E#L&Uj&^-}s
zJEVi>-KT!$X(k)rUCD7I9E+@zi~+$!g(rv*FAa`c<d*Du2s!{!*c337WIK2LtNajC
zEfA!Lhx@1Yh-jB*KgG?Jx$^$lJemFFo+sQ`a;64k(Us~5pN3j#rm@CXZ6-VOQi3cZ
z0nTay>~>QLlO83kPRCYMRZ?2pb4X4RNhJa%iZcN3<jf?(t`JvSb!}~qR`c^WKyD&Z
z?51M9Sfz;-uwBdR+uOL}6qR~Qrckcgj1Bt8ja`0zejkha9(ex=>A<i{>rbbr+KL;;
zrnfM@eLG*v*Dvt4dDQv~K0H@ur{|tZQUAi-a1W;faUxnM#((0tJSzF>9(-wzk`Vzw
z4ax=@W@b^~<*tohK{)ztQ<jQBBH$Es4Em6eviLofucP0f#81_KJC{Ib61L#(CJ5`2
z=I%D7Z@83Um*cu>T61fpk3>fcZ!Uc%ByDr&X=0Oi&sfdJpD{hQYfDny6St0L7*2?#
zq04vSyhZ{72~H|%lvepr&e?uh*!#M{>SKZXSNGeX(3Hl!QWNL<-ZseK(*~@UPu;@>
z7v9?TLIANKOD)@q|0LX{2J))g90mus%i*-kC=+qaEavq7u@;37qa(5GV_$kk^v~iR
z#g0Ew*uB^(?nC=vCwg4e5zHz<IX+<Yph1BEXfO+1CQ_3c=dzs$IY#_A=!8X_MpB}N
zS3?xB{rv%g?I5^6gT=|B60uJ5>YIL0F77)t?cRq#7lqSbhED7S5cwWw|EkRKiNb0*
zikP9Is+DiNtY?=v<Qn+58Aw(#BjeK~OepOS)a#(J9NPQ{1cpVq>1Jt6;wuTNkXJYB
z910JgVXm-kz~g)a%+x?y8s#+VsAj9VZu8p2*V^4U<TZ-qjxe~oE}gsK@UJ8__IA|}
z0prBPG1oH}Tj1i`U*~}uK_sW?;B7`;G5XLR$kmCir4?pk?++Yy>er{1_j!zp!QUXV
zjyQtF;t%jWc%RL%k|W;H*v!N|G7!fcS|xQ28s5D-28_HL)-ve)ED-YN)!Kvf6*fMv
z%iGDkifQC)#CD?!1`_bdvp@{0T6t-MOk7odNr_)!YxJS8ekbuj3}PU}C%S&QckLor
zM-hvkc(CHlN$_f!UWn#5E#e(X2I7$4M{N6mZ;r>OWwc+C6exMJzA@bt#&4iD0dOLa
zk()!-No2wJ3b7$s+Ku@RdMG$50+K*s@)8}C8ibDdJb35C%l5Wo@3I?@H}pbnNCdjb
zz;{#87XbwEmWfn$t#(cOAR#viECfpvi>?be3Q-j#$DgC8=AF5~o1&VIYby2){@EYj
zrF)o9+FLKIxM6CF$d&$+54AD4ChL6f3HUX+N?(vn6#`WS(|)#*vdy4I3O;=*L)K#l
z%MB1^m8O|EUCBzJKR<Zk<JHtY3W{HUuT$tqt<mKfb%GTN_%%VZaxOq9+_YV<_k)f_
z7^#2(B~pz@WNuOA3><0P2{kcj$nbZq|NfH@nK+X6kB)&oNVV%!f~PXMLbiJrM^e?=
zk6myAcvAxzTL%ulKM^kK=6HA$uuOjX<Hrw~ymRqUM0kA6BMET=%+_hLBZ{p(l)t+i
z-|Bt1+;(Gr`r<pSq9!FAKt|E^NrQRHvrV(pdKmhURsWrwhUf?)SAFL3fhQkJMb>`}
z4vN0&ntdZvr?&e|`=GCw!{y~A?SoP1@IYq@Z(0xT5gJy62+;vG>0{h_?e9YKMvFb}
z>Yi4uac|zdtbHP?rzTrtV<4+G=d~CUWi;u;5%pxHJX%+FQ;93v-L%>iGas&f;FqAT
zzGFH|I`2q1l;n44ljG*&^8<AUL_LI>eZlviFL4E;;3Cp{wqcA5wH(PK4~=L5h@TFz
zga_poU!MeG)C|qP<j@5($b)-bUao{1gfx5xd<iv)i6?JTG~W|Xd*XTn`VmextFE8K
zNexR9{cEdvRA5nFUFtC+(1Z1fiifncG}?XBxTp%^Kd%yJ(2o@_mAKl=?${m#(K`)3
zx)MMELM#LWD-fbK-QrXI?>EEh8W?qbu)h(Det~O&=3a%+J1whK@{4TO^$u?<aUlIY
z%ik|v_!4cR{stT0G8H^0l&R$)eO|z$f!qnSoDVpOgM`MxQJ3SM=`k48H2+3Olv$8c
zL+;6#btS{f%mmlu$BkD;r&2fxXz(JiM3kz8HsPJ-kq`v445k*|uzV?xHOeJjzpNKp
zUl$z5B&y-wV+7ES*ZaZwlif_pK<-0|*=V_Gb-840Y|IU<7rLA)(08>p*hy6XU;J;-
z(O$six8XmqLCNH!D}^LN;r(7ho<0G8O2l<OQmgr<`99He)`PeMqyD6s=|D^0o{h{1
z%ZU^`PE4Y8^vZ_)=T?hLq8EgWvmtCb5(d%*Nql~H*5zHh>bkO6l%05JHv*h3yQe3C
zI@)yU?36<PEOK$^KyJ?byzkk8LsA_CdhhG+_g;n0UVChBg(&jAfp7a+M^zu;h1UaN
zOd(teElKlt%qbz`QIP#}TPo`W*-vkdyLC1pEW@cG=)=&qEIb>X6T&PQ7P|+Gba}eL
zvR#+p07(^P@2{>z{>`;-Y`C-F(bio87c<cgT^L6^A_0-07Rk}xs9as@Ib%z0&k5C4
zgQe7AU>It&op>QwBvty5x8Bs#`tO$ys)1;qv3a6;6x;gBdwDkq++S2~zIW6~7&dS+
zu2em6DukoOJ-~g|Haj<hy{}ZBo<L`3XFrv4f7y~zjzD`pU3k}<@7+s&oX1_f-{2Ec
zQ@+>kuZu*5zv}jVwNh8UOwG^1mVJ;GC!>>l(qd<2cO;+gsIkHC(I3B=>z}XFRn5>Z
z$aQVVw-03d>GB1+q1!eFCH?4`%1@b_Jr?TH6(uvz0Nlj#zsMW_1J290(&qlD{|5B_
z6}??jxh4kN&t~*6n9;G*ep*%!?X2o$lg(FDA!=|@aT}s-LU8j>rrZbrqcY(Hbw8>r
zTvW32PE5X(Khj<nYfJKK^X^P|gK@i05p2rE#>S?~JbC2bJ`D+aU@Z^{5}TjXKws&c
z_+C&wY>~3(Shh#kH+$<1|1k0`4w<{D@{s~h9p*9@xwKZFfD7gGWsAg&@;)tJ-gz<S
z=+V~ENuCu~vvsX6+B_ZHn@cY#R%v=Fy$mFdJedh0x$Uuz2e=hBh6uvl^S&!RggWMw
zaH#~*Za+14iQ2U2PhT^*1)rEaEh7_cqp|&QbWftpdyyN)A<O&=RcY=kZ#*l{i|HQU
zvM;&h%<CH0*UTyvJZ}_ur)5F3RU`J>qy4{Qk<{2_Kv9C_Y-*03srvUm&w5Ty{-~)R
z178<gdOkVY=_WPt`94=jH%-k)|8?|1fq6SV5^8h7JKqLaQ)wBv0^y)^NTp-I41cHg
zD~^s8o5w^QG%lazUahaXr%WK-vajQ`#R^q@Pxh|e?%+;uj$C@;bzrq$h!kIZ?K|=z
zyz5q)?J}rNUoz^l$}#iobM(}K)I)%-hQW~_$WqkI%}~7{W4Peq9{Qjzrn|<J_R<@N
zK-d1}VV7*YHhzTFm*Z7s*ITbqer?|4z{Nv3F<m@gebawa=AHFi)UREjF`xJCtyr3e
zoy<@DRk8(cBIZ$6@RpEq<y^SO7a&Z-m&T`;qfG~VR9CiGAst?_?9BdIfG6pc`_Uhz
zAaHrRLo86(dfR77^PQEp=W5z_ZvJQeu-}8qmUxf>99H5p3}X^rArL7{@Z3-L{Qb^e
zksUF$QuB?)#_Mnsh(~niMtp>%2{PA&e?G|kJ$1KI_SS)#vZj`!aH#j41`QE#<8G?U
zK>prT{Oi?-I}Q#RI&4$pKqB6#I*Fcdk}{HhD8j0O-d3lUuTv0L?3@6tzod5%F_q0P
zOw?Y66ic7mBr}5)E&f2MmW%3%GB9^faXMV`ry)nUW6BAa4a<lNp);ta`*1<sR!y~9
z+a(g)ZM$ZLaY)d`gwcy>%Rs+8eBOV3?DcqC&~9pz$0Y4E?c+b6@ZYH^eEE|V^3I+4
zMZ@n?cs-YSV{N}o``mEk3Nmz;ksnd`M>INa;PL*}9+hTv>V->9eO=|t_zYPcT&y+9
z)3@d0(BK&z&4N)gR14_ijD=k{x5W~-4^o&GfmUsQuIZM&Qc-pdXesW1?J{W3jUF&i
z!&wJ<4kO0SLREmAjrh%h8Lb=Aw1|d%Ei_tT;@j?9WpwU=k@qQRgZf4-KoU(L`g8o0
zBwgR|j9HL7(DT!2C@pvTOzu=G|86QE>@6owv{$ii4>3ANZ5;hRVn2lbwJKJRoqU5<
zZ0@Zm+sMc(c-Rev%}(t-GX4}m1X1fS8u+PfrJnXQ-5)j5XDUB*H||HGdEJ1ZI4lf*
zE`r{$HCjK81&BGuBa3F|s2@|$o$$r+77q9Q$G-{5)Lv8w=v*K_4?J~XNjsME92vty
zjU}`$?9$M~1Ispb*o0w85xwE}@4lg-5S<Jskkf!wC8vpxxA+jS_Y9yP<uP|~wkxf|
zzzv{!P2k)+%R!?BE~_ysA_&^;a^eB`;KA9}38G`cdQCvje-t{^F|;U&*&`z>TY+Zg
zXMim8^R5VHR-erR(MaGrxuvLKpy{^o>&2HSXyNx%gM!<wD)I4>Jt5EW^vIzPSv>^y
z74ue!Z>N%sgiI4u4n1||s>{mm3GJ)z+6Ncx9bW1m(7va>TcW;)tCKx<>>5`mY+3;D
z$%rM){ux3?`e~LSBAJs$M&uyO;|73~hizK~Y-9i_7{^xicGW%N>+OE}g5dfM6{9(j
zvNzZKc}PHj%q3m1P5gDeoITk81YJxxLz#;V^CBfV9R02&pZ@pj4ja|B{97?Wm>BKt
zu(nRFJ#6{q0CB+rDIJRGYunJiR)F?XgarIy&0_;Simq1Gx{6Zc<b7D**k^Hg{E^^t
z@HqcK6#y81Gp3WGWRU<3k-Eky$fpj&2%~v+o`iSIT29Ucd^Xq_o+86ReUS|zL=kBU
z3fpyX7$EElPwMrZ|D$>W+}f5=zbe=W;&R=QB$81W80E4P2_RN)7ZeX==%chQuzeYI
zw$wl;%sa!l?N?A2qmtDIhYgRB<giX0xy!CMUN<-`%HG0{loy^c58y_{jp_xlJt82C
z1hlECsii)jRBK+W-%=w@%k3>bFHo?}c^$#NF5u60Q$e9BVh@wvVV*HFYOM}Fi!xd`
z$+E^WdyaC<zbY9Y{=G`Zywb`4wvr)H`F~!?;A_;IQoSS^LR2!(ZS{^XHL2%ODS`a5
zNf;dOjp;nQ!?h)$em(g+KJ&e&PvwU23ChN~T)Q&+aN6;HmCm0B|8^SI*>sBvb*&-M
z6*U@RDUe<Z8|k*iSte<7L8D@$)yg;&UK+dqnJ@CBjIynvEtlG++gHuMzPr{1Sqc1F
zV_=#p+|tvIG7wq8p0krpRcY3G%I3!!h|vI<eg|S!Wpijv1Stvv1XqF0sY2X&Sv~jf
zB=1&xYuNoKU0DWe-6!St1q-uK9zhxWej~<R<^8JyL1tf(iMyn?@5xBSe^t=%S@%}-
z-wGN;y!)B&6x1bj!@3*n6z+`2x}ykM1Tyt|)N*neN!jyFddFL`x1G-8W)aZaHL=++
zap5V+cM-*R&@$nJM#MijlI~8NyZ5pl2LPG1V}XkA+gmS@OT#;LZSeX&5F>oTCyaCi
zmLG?eXMlXDcof{Am+HkVTD_Skt2aV(u~W>%*EJh`jwz+T^(kDKi_s{8zX|-VBG4vP
zNVuE-785ksc%7sn$bh<0*@^$qwR#C|KPYxZlnIu|pFkiB$GnL%d*y@6$RtzHMknKP
z$ka!KvbWosiS1LR`JD3~KFnmSIv~-Em_ftGO*9vSbtsB1Sv64o_IZC*mSLq#*RZrn
zkU$P7*a!;;(qN0Mu)Xh__qqS5`tiB%gGpKpK1iUHXU@Wv92=`Nz0T=htI6i763Bc@
z3erTg^BjrTKEdJo7IsA4s@dtLSt=dvqY-%avUEh(_4N$b(ca%tiK2fSlnH^9pZT6C
z5d$|jNxhUp%K4HHQ}{U3&)!P9Pt5PL{_<*vlP4xmyqzR<;@=){B)YxLBi820h5wMw
zkBv~#3JBPgHH$*n{61j}Y6RX4er|iAe*})C#MtZJHVJMjWHncaWz>KBlT4iI5RKq3
zsGqd@BqAmRVac}VJmG&4(L5FJX#D<F6g7j1jamOUt16Nwj=x5+0QvhCmdKktqc?}1
zmS0JW#b&U;2|Mwgb0!?M`~t#Dv&sRB{kvs+g*^AvsaD>RkgP+4`0B)$^Rs|ah_Z}O
zaRBsun|HI&jrnB*TWU!q>P;v(JS&;23)LGy3<d&`lNSVStDmrSqjstIg@+2xtWU=F
z#gbv_PwEqq)$<y$5jvsItAvQz6;Lki-2i4NohDQkRM5@>tlzQ0c;oe!QQ3$_Q-37^
zd4J0hZ)0=RecmbY%t?S661Jz9B=?MX4;2g}Fg`=JRe6$C$ME{&fCKwWyMc9h`X_@E
zJpb6ehoy7gdA{qEFE(z7F8C8-XF?Pth1W6((~Yfx;g@UN?p*xGQs5o?rB%8pw3E^)
zW&r!AAPul7MA0#ZXi9J&$!I~Ye5*9|jh_Gf%<2pjk-(sIq8%Q>sa29~HtA&c2N@BH
zyw(2i1;54J6mE9KH)5#H>c4h{UZ5K~rE+vH?1u}o%q7;x2N4k+aA;uyPIg!&5i;?e
z&hKx$+_h#w7I+srq^i%zKq1h2#1&d{X6ynMnetNB1I3F~_?~)=0{fLCAv}!n-e`=I
zrK55m3F{_V#ArgXpvc1g{(#&*bQQ4v^k?4$$yf2>E`gkYnHJC%X0Wg?m>eJ<73cx&
zKCr1{`iz+<0A2c$+TTA(`6^(vT$c)tVj^F`gEW+ML#arnHiHi3CMjw-9Nl0S8<-Cy
zleXi>??RJTf53)*KYO_ASioYOyo}IHP@k$~=t7f6EUOUlV}%NS{~oW$YCLnSy-;KT
zQFGX$dVdHgKF|O;XmY<&xC+ix;1^$lmM$nMsRqStk^D;;g9_)q)Xn{V1RRiz1folf
ztgKd6kYEdbe1?wcdeI0Am8z`j9e$U-vpud05!E6armmv4ZFh)6?O&{?a8#~;a+<Io
zfK93fwMaTzF?X>6L2(E>>nyNIIRw6Z?+<X(Y7Q(XLLwMaTbvlIJ)v}52iFCrm=wo$
zn(u|w5P1>ErbAIlvw4jnH}X}hoxjhhIA$c<37yve61;u>{A1_d3q7RmS#305W4-Qr
zXA^z>_4PNCt}f>L^mOL|ua)n4!k2p&e4-@%v3>jMxl0NctJur^qXjr|UHXpK{xv&g
ztL4k7j?*)r5|~%*9Lu$$6>OVos%m^IYjfJ8qT7QfDx=!%!Wy-=oZZj1#3=}Q8vnXI
za-Sdo2_gx=c$(*Anv5UOn&=Evgv}g=$j^-r)&^BCcp>-&eWlf!@Z`x3l4IFG)n^E?
z^!TS!l1T-{`9Z!i5!yESyT`+3$HR!%Pe^<Mk6^59ajL!Q;LOO$>~x{<bKINz<1LXr
zkAGv&J=aM(Q^J)uZ`op7urJauCXP{nxLe=mCIyZPw+nwODk~pBmevk&r%clMv3FSI
z8C9(#sB~L0YK_Os{c|cKVw^IS=25a05|)sj;P6iviC%)SI(xyS>dHhY1r4gIP7gnG
zic%@SI0u{hOL?ua$t5y$x6#Zdnti%b)FV{o_!D4Y>~F2qSi8B}7l59>)kb8Cb=D>6
zZpt5X=McfA-4zTS#~4D<j&OP2S!7Y-)I&gSLJ4KG&~^*GNzF*c=dFTMeX}#x@}iy3
zEfYU%*mUHgJ_8Wf4P;~y8SKzCb@%Sw@!C=kzx!@2yEL#|l-1S!w>o^;5gFp38S2`b
zuI6uMvAi)=hs-ur($We-Nn<Zn2qRQgKW@$WeorhTOOKia+UNy?Aq31(2#RtLa?FFU
z0+G?t(HVg;-Bg!)t|l#@q;g?dsE02fE}e3_mvC&M9uu8E;Lb#5jozo305@#{DNVSc
zEEH7X&2{2FtvkD*)h1`6DxnQyNi|!40ypg`#du;omn_Ud5d<A$5m5c*%VSg%g%RF$
zi~`7T2B<{raz?ZJS^+Xjz!KyZ3{`(@?&-)-)6GdtyySc7ntIMdZIh80jlm-sxnm#r
zZ6Jz{Pr3_|dHX8y{-dn74;6P#oz@Dfqf}q#VLeH2D9YY)<s)sX@3bdYl2ke_)Y^B)
z`o`{8?^nvw35E`7R5LLrO};jtrP+-#dl-d~c_+by<*=Zj5xhRrK{-~Gl|3LAj0w_~
z8g01G`H=Y}H#jg`L4=$+e*Ab~U|^DAK3yEM&c_SXbIN-!Zs6(ulz~N@hMddqtOL$c
z-U}=J3tQcOT;S|3_sFgR=^6$?;vfd68IvE!Z=6D+PNfGsw*?@rwJOZo8nr^7#_F&M
z_a?WQD<5ugqFI*i?(WF>GKgs<HL0#Dv=3sXFI@R>g01^Xvu9jKQLgQgvV1-SX#*gL
zO@Kj);Owcy?RyB*s)8@RTQWZCIXhZeQ`3&}u&IU>4r3~vjMD_xqrtTiuPldOswM75
zI&>Gws7S@B-VM=Ew>{mUrr%gQ?UF!-iV`v+8ENth6>cNIBN6C`2cs0+xv6TIT~0Lf
zdFQlT)?oE?JcSB{i+Tu5t6&K}Mjqo%nx>9UNJd76Tbn=_l}4k1W_ZDYX$?Jmvu{^<
z9H7?BZM;`~5vAD3sHlBdAT9uWU%Eu^ANh8ZD<96K)dS}S&y;&$2ij*;hn`bUF6pgt
z4Z)3zlgt@-{E;Fd&5|VO9LCYfrO|!xQc&Jwo$-^#7=dQFQevn~kWb8}<r7!_>{RKj
z-P7`tsxr6XADc{q6AM<nRhzL`sZSj8{aRN_P4xp<w}3Hl!+f>Jvl9uk1%xDNTTx$E
z5z^h&g$KDO$g;fad$IcZnwlENjFVo1Yl!95QFe@_=b}RTl>E_|)P2+Lq-DTXuP9KE
z2dhMZs2f_>g^m5a**d8z>n=zOy9|8hesnr;QL!F0|N1&QBiQtZW$Tvfak(=S&VUvJ
z0i|wxKtMQ3j^``1S<jAGlkE?4SCrmGEOcxg<6~kbhjpu}s&E?^-<Qp^yT%eDXPDyY
zP}Q{AGWYP@PbasYH?96qE_P`WkWD)p7>Xeg_}n{C%-o1Z&&ci`(-p<)PiLUx)@!}4
zA2$tEwWp?0ExHR1!|;*@ch_Lx32stwO)3^*w*0k>?-OnV9q8y%Tz7AYy}f-d#bw#A
zxcB*<Snp#lXQZlPsZ+>3Y(Wp~q0V%M&Fq8t*V?ubzH&U&qzZX4dvmRjC<7D(&d}>o
zeF)K=#i}LWXnpP@Uw{MHw~#M$KM8>tn5dIzZ=dHeM<ww0M?|lO44qG>H63i7A;Mt+
znI5n<h0%s&NuG{Xw+%b}l!a+dXB{euLF9;NNQwjdDMcNCne@<?43x1$xins1G>9o2
z{@WuiPOxg>D+a5rs!SS9My~W0SRnTfiQ-J~7<<pThnj;x#1N@JJ}Bg}vzZoi9o5Em
z+=|ml-^^RVXtl@OnUh7L0!*mWoBvuifC=a+;vQf&+7RMO(f?3wBYja>SsC1kZ!mPg
zRQkM?NA%;&yNfac6KrOHj>^ql9UO8q-UpJ+#G=|eo?>P0rP>torrDWEpeC*EfJ_7)
zw!%0yXKTB}i3vTu1?b|UKcnjNW_hum6t`9$y?mrCHkFE}j1ac>`O4rg>vX|}mkSja
z86F<yEu4b*zw}@phtDdv=6S%1)F>4hJV~fXe8~nzwXOslTUBawj6gT$HjK{hp~Cqv
zxU#yMxa>v6#pxK``C9Tr-SHeN2LFC8=t;p6vGhTO(HL?Q9ZmH?wiIF%g`oPXAcY*x
z2!*8xXn`w)zJ$v%J55(aDD7j{buu8;mS7Y@Hi<b{M#sbm7=C&{=6I5LfC+k`xwDhG
z)*7XdAq3!AV?<`@Z15_N{wq=O@g+c%WXcRNZbVctQBqe=Qxmi|)<Hnl+2-8xki+KF
z4h=YEmE$M^+ZmzFmsV5}Fx|D%LV3%Zx<7n}IkqP0zx`{!PDV<(k)1cHWY1N&BM^*;
zS}vlnQ~BgQjsPw*OUokCe)iRT;$C!gbS(BMRjppc3C9Lo{7YLI6HlRtw8ocqo31HK
zj(G3utIgh9)qU*DnKKaX`5Astn7Wf#?QU*ifq^t-T=~#TWlkAntd&{T9%)yX=*#!)
zL150zl@@Cun(K98UD>KM$=u$hUB?TWCQBc61NPoo850vzh%Mz4yZBAxmfLKqgCeeL
z$hn0Zy>Iqw!2VqQp7>9(DS?GnGEr8i7p~e?&)c1e{s@~d1~*!X{^Oqbz$Yt>c2@#D
zMcN);u)*$Y-NiY6`o85nuk)7{{6a2}h8_WjUxY!*E-l<eHtE6W&=NqU-K?<qE#)XH
z);5G^WQdXg0O0P6=n&1Ukpk6D42;uT=(0+xt>48dJV$ooKsYKaGSTrY`NIaSmSuWl
z$I{}{wE5a?!zQ)KY)cN0v9ApoR+QUudJ#lV;+69hZ%iU+rh7IP280KOX$kCJ-)vbI
zM>+Z@3${@xOJ#n^(9WLyRg?1iYwa)Z!S#=RwPb{c|L&1oP?b<ll8Q3NM?wwaReBP+
z<wmg~GxNBiS+olvFZSvcc*&>A>{aRHrZl^=^leA|RaI3Z;^X7XjVNy>@3CHGrKs8}
z#7}t@FEYVO*#7(9wEI`j<{y8sV&VVN#s0@{G0m-W)N!AGAwdmj+L1EEd5$%HN=Z*I
z3}cQ(kcc`&6tV>19S-h$nu$gX*r7dk#0k-7K{PA#?r_F;;;?nl#gmM4(hysv7+mIK
zaGAJ2tk(=ZmR#503*NHU$X`cuW)_E)$}5)0(krxmj|FZig|gtE>wPJSNxqKerlzL0
zn)o#`5#^$>#tj|bla*Sg%-+F9MkS+9O4_YNJw9E9o6UyPB_^kA@A|~H#-}RWyL(c@
z7(Mi-xkAHfxZCLSXCsFuibRcFDFki<_%(~hzcj%!F@j1Rdqp8SKE9eEfvVYyS2VG-
z4AC>bNNcg=gJ%}Fmjq#iniP`p1iMY{<=8RAKvl;7vq5WMSC&@i&ZXv<lNV(bsbH#|
zbYQUBK*BvAAv&!5fdSrG_WJToa9GPYldc_aw}f((e{ZwSBCFYoSn<IUEqwo?!{$VT
zJu^KUeEBe&%J*>2Pffpi7x#$5Kb~iJN@SOV3vqvdPk;a_f8oM~n2N5huDYy@G+u@2
z*5dl<F4+dfx=C4Ok=a-IO==mp<vVMvKWN1uB8_W4wVgP|%vc*~3q&AVKRdDz8vw^U
zRqe-dWuNY}Oj$isrp+9^ifn1Tab{1AO4)@I)~^6F9@UvKKRPxRls8S;Y*njt9Fm&h
z*{b^@J!~Gu)En1As_sD*D3?5dt*C>kd(YiYS?1==n?>uZvp+yqjflc=J7ZP0B5rUs
z2J&(7NV=5-sTXlJ`2_}^S9x<UCLuu~-K#GW7q%Q)yvULjD^`%R^BPZ=*uNqg3a-hf
zpPw#Oue=m-ZE$!|$YF>v4fVy`-%XA8?y08^wwEfTC-(5~l3m8`(%_(EQnJijl#7k>
zs`p4AE9?Is>>KyCJr+<g<zo&|!@z8tn3)vHG$KD<z1Q3pcGyg51bRt(U6xYgsAIRl
z9BcYvA))x6KW)-`#OAWL!g^}h5~oGWH$FhniNmHQe_{nb{y(u{|HA<F&mQ{U8aDp(
zD*i7V8UO!(BGEW+{|KzBs{^2OFva-N!?q?!egL|5kRS+rvov>AHb9~IxFcYp0h5sv
z&D|=)u1MN-PUp^*Y*$tFoaRgAAF{~KFQ92@X=N77dOzFe&8>6nPXw)q=#Ww6ioY`U
z>)se1+6_I1{KB*f#+8L;OnDn9*j)Z<NxTAReM9Q#hQWCztzd&x)Ya89?(lUln=IQh
z>|3+QA^{iipme-IPtK{qAt9%XVbs1jL=E{&v_t5i(j2{2+0uwtlRfSBOf%^pkrb~+
zg*VJUVKhy~VTh&3AyZ$aT9GDr_^=@qjrdf*VVt=+_YcXTllWP}srYaqFDZq*gIim%
z9W6~tnuC^Er;v0PEO3*m!X5eY%7CgiWC1oH_M)`=DdewcFb*{Q@YDJ8({DP<v^0<C
zd6uz)+d@Xg-l8z;{YmnuT6h%PrOj49Pr3M{hPKzfE$bo<E{U^CC}sZtakTr-z51Vf
z^?wt3{C{<6k)YFI1$9I*${N9Fy*i9`M=MB%Ly!t@2a#%x#E(aZ)tquPty6hUAK+-1
zK*^C^$f9`fOAHnXko?XD>_R&#r3%o!@|@d2j`E|UodU-X??3lyJL*^R0HBgTZz;4u
z9_~!EquNNhYuyHm1wg@S+kKYy<%2af$Y17AfY&I}5Lw_U0wFlSS8Y0=e-wd9sLu46
z_QkggNO}p1@DNBB8Glw=P8sjSi8oq&{%C}PdX=P9RWDY-;EHp)<CG5<%KBxZajahJ
z@W`QCUXBPom{Ma#H%u-Tvak=882Pe`I)DL{amg9v8YnJGVT+wW`}T0<1Bof?=rnYR
z6E2zFLIxz6*#Cm!&%w=xixq`QN#*MuudiOtapVBC96aU6j~|7uG;;-rJKKO5*9vhU
zNk0lETcZ;IjgJo|ANv)rG&>JvJV!k3pDYV{BopE1ISOgbD_Z8u|0<}TnG-hXtC!~f
zM6dfybo9)Gggt&XGjF6ZI{3x@XuCBF1fBYuRZ<5%%r%c38SZ`+nq!Ee0Q**$Wzx1R
zT2b)L{+xo|w~Z9a&{fGb{d^dCNF}tQP`k$XaXmbdOwPGPmI*76tSU2<5l-XXZ*)yI
zzxrD1oZn<;x{0oM{D$M}IM*PhD3vkyj=0<Pj1^k<sm}A<kDaQzHx*R5en`Yx4PpCB
z4b55|{B@C+V{`c7JGJTMM(dSm4Zp5!vp82_3N5m7CC6hWF&guT-8nxCrhI47!Eo)7
z)B}{V99-N;ciMU3z`U=t;sW)Sc()Iw8T|oqX{9ENMvoAybsgCYJ%4ul^3CbkEn|O0
zprzYiHRFzClzB^&DRZ0BbefjA7R5{Vxx)M`GD3t-W;4-BlAV6u=A@%SVtrSAtp4Kr
z6*PI0u7fXN-r{x*16dULi&6j&A7dxtUI3ES-|z$bvf|@6%k1%?c>6|C95X>5Hpqm&
zm+|pd<Fy@0MukaeO9rHN976F0lZB{B-@HFfxJYg8<HIbFO=$b0gLK->o9B`d?>Rd|
z*m^o!`&pv+$7z)ZN=@_nO2BvP(YXsmjWPR%tZ%v@q!qlm13VeHF7=H0lyLv<b#wZ_
zAk(>sxlSF2-Y9mc9G%o9EVT7p2eGrl6+&;O3AP>3iKJzg7Dy?ggTIb(1Ib<LK*Grs
z+NkEZQvxkhU0Jz;d$yX<aEdt+>|44ng_qLrkz|#}-Ld2SjamEHYBa2;iIzfP?!$!&
zM!RSXtBoXl?=aFn74FvNE34$`^>!6!V$Kk&HX=FZ%D(~b*<O>?+;LQ)6Yf=X4wnu>
zY&k=WV*`fq1*%Nc0Z^MpXx+xpBWK8j{O=0Yy?p1(O4aS|OCDTko%HRbMbpekngCu^
z56N;mo}7AsB$(=8hdML1XjTJX_~dYamoODY$smjP^gV=NL)WGsq#=6=Cw6(!w#S}h
zH#|*;+kR!h(p8aj8@Wh5ME=OvtAuX%<zr<t;irZJ4*v3;ZM6P}i}?RIu>6GzA@w5+
zKM<3aTc@mE0jMeg%P+5jJ!i&!`65eA&CLsz><xavRcq*TW*{}eJ?<Ub@K$7Z)@DrD
z5t(3^23f*Hc^3>imzTx%wxX$n;HNxjat5jrJOrtSp#OD4WiXz66&1Ka&e@-wR62AJ
zZ5Sr*L{dxGF$JPLBuTY_e%%DsL-M|_(NZ;lZi^-={lYzwJ)WbEp6Xw3Pu$b8O5aWB
za(av2?66)k%3o@)pY|$p`*Q2drIZyeaT0q8Y6;Mke6FHk5do-13rOCNq*lhi!UP#(
z8!GNH^r9eP1*XF@rKrks1~r8yOq!TvndorR##hmuo08H4GXe4qWWch_UKE$=7+cW9
znh-&QIL?~Jyh}<behe~*G?gYifg4d@&cLrLXMo<g{(B(8{{+ODP|culw}VJ70-^=`
zuimLN@dzbI1@|sxDjhVX%Im-!@~C)enYG42s^tFwS9xh-7z?#jy#hvYU$5i;P%vWs
zABv!OC7ucEl{mjF&6p?;#=ol?;zeFelVw_A!?VS|u&y<W3`qjBz*Vx2;x+28gbpS3
zj9)&Hq9v<;S&96M`}yzkR<ex3+X+ogwhuH%pNZ^o6Q)D2Jksp-13?kTYH$Aps)rDF
z1(C{9z`+YA2~~?Sl?h6*B`CFJf7C>malqbCr=6&2X=8L+!}2Xc`=R+MMsHp+x$sL&
zc=UXNw~7xK<Q?RJqQvzWQ+fm!ZM8cqgn^kW`$`K^?M=i46OxlBCoyof6{SjZ$7y2o
zE;;mMm3=g$@p&e5X1da$;R#QlSzS$)<o$cj=zg>XZx*S|XM!_s94!&0GX5&(B%HH)
z3NvD)LIh0YS%u@r2X~?9l)rF`<pcN{w0q54`3YC><%(<n%x93zSgL%GOO&GFEEA)`
z#L&4^2myZpVf6{z0e7OMqt>*NGNcxP9;|q~HFmj>2uPX)Upk3p2~$lxNV4xbn{qvG
zREt0iL+XGr5;>@iv}|b_I~i113{a5AVJnx}P419@^FWK*@occ%tr&_}irrSHJ(C<Z
zZAnVe4r!kQLro*&r;FyO{-Xux?E~NY7!%rFHMA0UE#n{>qw}mz_8Eng>B)$m3|W(=
zij;&Hcgj{2*lmHn@Hdo7$Ka+T!u1!AUyI>>5h~s|Vz1MqfDsHHKfU!@U|&VE4MpRb
z$n-?I(6bmK38?p+ou<hr;7H7!X6D9ic-hUI<JDNCah@{;%sZ({0OF1Ry;t%f{E`lV
zyDP=d2N3cPQn3PQcAZD4d^wtCWB+cF@^C}(@jfY7I-^<N7N!6Rmq=+IkH7?F#8PsL
z$%z{s%?+Z;nGm2~udy3X40Vp9wiT!VK|&0#C(aFHG!c;_vqXHbh`b$U3F<-9A4Vz+
zQj@i%Hqf*f!cr&y<QAIBPlv9q8KKGgc1i#HDCljib5I;oVG4H_(rQ9PCqrMjH&iWp
z<**GW6W&cgWT@;ofru&@!N<CzzV}T2sXkc&5`7;b<Is2K&ySO~7S+u|(5n)EG|USq
zK|#FnN>y&I<*T;~$A6ee1))-RaEs-uKT)P7#S7Hqcrg;dnN=&nu*USR=opl5HT^2m
zplQHyGf4z|yeOL0LNRHJI+!t{0}jes(`R>W-Y#H&jt~eLULj=IqA87#JMAX*6_m+y
zr;3}V&Ok1eqE<+Tb(1eUKo)gp<H4P{=XeXU1Tm^KEWy3Uf=VY9FBC+yY2&E%3s4WC
zzXfdE%3p<~0yu>X;7*HTy#law1>Eb1V%@x$=&nrb(opkBWB2r)3}x2R%ABB7TLO=e
zy1^k-aX2o%!O;`h@6zQo=~3o8GlZ`A0?6<DxyHY)@_bCT4rWKnp<IO(L&{Yc(^p%S
z+0gR%!oB=I7j1n+3YV#=spOLJIEBy&91Nrp6&+mwQxRXxWODay9qOSRwcfKpV^LRk
z_aHDw8*Gmh?^_cdR{O0T*z|ZIci6J>stZZtIZEi3)_p-lq{qH=2SAIF<MA(y0wqef
z#3Z#izFZLKTpB<B^rWdKh14;dMz8G5Ir&5^yJ^y^*DimzKUnHLh+^Nk)$2ZAlCaM*
zDkc?hu6#JuH13VR6Dn$NJ~Np+D~1Y{T7+!pD|G#sAX|{7?}w|_@xm_b6q&XCBM-=?
z#@Oml!Z|<hPKC`5dfH%B6IFfJ&mMHu3WNH9VrgCFsQHW+*&xGC5*8O)51wlhYcq$Q
z<@KfS^ykGRt`Jkux$wlNHLa8BJ(Z0!Ih^Z%3NCHvoNioX=Z`MXLnLJ3C=5g!IhOA`
zEMMLpeB^P+;(fT>+qj2_<{;1_J|C`w{yy@e`^d3pFt-#Jn5vyVd3lvv`0vXe&`PiZ
zt@Mb5XU7J6brAWN4>#pn<!yB=f>I+G>pQWk6~2(YQ@8`JH`3DHuM}$uYMN@}zMl>G
z29*v~EW`QAjW#j;+_7)oTN{lPoUq@)SWiMF@VbtSqL)Mq;RzCCg6*p{YRzNflt2<q
zOia{c)nGQOF%ry%fr`(miun$j71+UO5egx53W;GLDFZ_pMx;r#qzBGDqAtU9GN;aA
zXoUrHQ5gg0eT!JrxV!^wfc(zV<GXL+USM#hF6eVQ*A`leBH4=su#(>du3xic2Qwo&
zLs+!gYhDs0a_u#_Gxm^w=4eANNTuU<wLCb!GM`A7p70xG42q}oLOn!uA()C@KtRaN
zUH3ZrUrA3mP{Qf+vvgGW{09qo5?X|F$Ip;6$IoX7D61VuSuvhywbNhc`258L)oLJW
zQ+KsQ>oIj^^MlkE<Ij@;iV+FevMa1Xh4E$ezvIeBbHE3+_F7!-AVAg;B0nTGW7QYf
z<E>ZM$$!EIs(f-uou^9PB00BMEysHtp@L+;B!H9BY!135A{h)u;jqfPUw3M~-l+*n
zodXG#$V37_$72yIyL@w!og}Bb;RpZFTr3?MX!+9Qw2};|<Zjdhs)<05GpH~-q`(%P
zbOFifz>`((e{fEe-LNUA?rnvkP$BAB0VpN^I&$uCN=cGqozx8lw|&nX6n8d)N1lzm
zNb4h_yNR(DW?Ci_`IO}*D+5|5**5F?9Z1W`0NLU=70i~zqB@;SvWHrD4ITojP1UUd
znh?13?Qg3n3s{Cx>t@Zq6znZWaA8~K6ciX}gD2mLPLN`<UTKWl7sbwcC^V}jv}vc9
zDw6sqc7wyqVxG_P7MZya`4xb67$>D`sPYvMrobh_-ti$i4aHf?CrC$4(AcFD9jWA!
z)HCVARJ7dMIcUlxTn7=8VF%jWm~gL_cjUA-(;IvsO{&nu7L8o?I8;Lc&^MbvfjN#A
zr65kYF{fjl5x{E<<P?AL!`6xfy<9R|7Ep=kl?aL=CmIx3#gH<AV+cVz$$>>27mqUP
zZ3@*qjVeOg^ZSMyo1GvnamMx{<5N>-4xJ;&WZ~RK`PbOsS{_zHkkN2p`Y1VpQ4-hq
zT2O9tqqS|-@;HrgLxz(2S3Cx7YzJp_Y6$?|PZj1)$p#G)@3Rt8t0!=Dyw@=|h$vEk
zg=BGSNJN;*^PD<GvMd-39>QJIi|I+|cIf&v!x*vs4&e|>hX(XWq;hgWLcG>lKTqzk
z{#foqYpP-1`_^@u^C%NyLqCi%6o$5~07=@pPMe9~&?AlIIc@w0@D!5}qg#+nS_BB;
zyp;<+au8_IJUwXw_01TSC>=G(=OFRo1qje0X9Cid79y1amh>gDBJ)R*EW)mJY_bbE
zQHWxZsut`>KpiGkpCMgzL|>LZR4!Z7)pg!oj8e8`?5@t<Shsc8@Ck_hbWOe7lkw<4
zqC78lCaM}k=`yujF^+&ue3)@Xe!Lb4&bBKmk|Dy^Mc*wuaD{VfJ9QwW&uuSO?U`R%
zEvOs(J#oj1q-F=DOt9lft6xpVb^BWRt+h>pwU)`nn#YRT5*u&7P)himQ|7Q<*>Pk}
zpCdtQXv_0QF<*I$LvpAn?hWjF7*msoM`re+zr-;xo{MT#KOl{hGq)1bqNLdnIC^A)
zoNu4UId-%}v^&-kjG8lg$_D%2uS(0jle3l5aR&AQOIYg(Ocse0<E{Lj0kVAQTvV21
z2-~j&nvc3CTLkRdi=nIE_>c=c!%TVGmk1L2=!V|BjE;Vx%;<5$G4z+wNd6AMm*#q{
zEo^2el8fi#0?Wp<(FxSMgGpKriw}LW?^8w7b=7++KTqpyLH=h1|IMEWkzzWU3K1#;
zf|^5&XHG6pS2;<!;-=EM_J-J%n^y$py6GTuTPgPA6<0n;wqQ^lZXs3bhB%rd+<8_x
zCSqE1ny3O8ro!AUn>Rz%Rq@?^_$s(ImgEoFt1p!4e^7zE28gtdXj<t&DbSi$e>hVe
zh++m2{uL6`n#buWPLO`gAc;qfC*LrapsE{WnM9R@&Z=EGY(fRX^AGiS@acHnV0NE7
zKUK5WB@5?Z>`(c(4bFo%36zC`6Hqol!qq{t|MIF>p?@(bCO6V**?7X1BS@44z_f02
zLWyOLQbhKuhs70YIY};Os-?y3jXi5VV!-qxu4~iImb>+yNn4BEj)(;Ca*NR0oiKlY
zG;1{w+(869NV!8%C^p8wb!eeDNLAbT>7Wylrg^fGEnv&E*3@K@gOIZfUX(Q(&y7}|
zsjiE0J~Q0$`-4j3gOZ0LIhtNd(*L65Qc0#wWHY+)_E1NVB)CBpM@HgmO5Exx2|5K{
zk^>UXaVS(D617RH*c~)V9dWF`bc)WV{w<aV=VTK+O9@^xCIEuuh-!P^7k_`AgSR7k
zh?uwa2yi}J2m+ejF}GYYLPRrjEe4=mNVys&oqg+6gzhu<Cp~}M3+<ZM*ca$|up$sg
zpdg93IJyaw6#qVY;yUg|k}>Q(ocOTqi8u{C3`OP@K?x395rqnmjAU!1YnPB43ZNo9
zPVmI_>({w>x}*RW1+3~{ubeKA+iRUPq6-1Ik#-|seNI&;Inad%w4Pe2AONGcri~<M
z0IQFPyaq@)A3U=S977Y5x19Pv@LP=FbGhhX!}FDaDk2n32XPKQQRJ|=vDM)mIg%YM
zB(MnXBj`7ceH5;qFm!@$npdhqYI>+*5N`5`t=#trmLYOhRdpRqm4rY|Ohw&<xz8*&
zE+Z+I=!2`&^+HH`;T!aT=ov|(;GZ)T!Nn8rMz|i)l-z9Uue7jZI-`71nRD^wXU&PW
zE(18~M{q=vq>vmkz+E+mR!)Pxv_U%7K0BQ|>(3Qa?-eJUN!B=Gg9y=&6QyY@$xYG7
zP)B%qJWzMh^}P;h00(4DtB$VwaFw6!eM4z29Dju(P=$~g;v}abFICfErOw8`Q)l-E
zjOZoQdMjx;mX{oFu}>;S9wUl2RWtiKa5e+jUDl~jcJ)HRPT&~9GbLaTs{9Bnxrd%n
zzgb~H!HDtJ<bfr<Fd9q3xtBII3kjjcCjLYf?o_dpwZPjMbqXWsNeSY2`?@RuSTLxt
z2atv!pBqwN9AAXcN0`w(lW0Y*Cl!UB>MSCgMB=`$zVvWY%x|_KBKbGlP-12^iW8lv
zb6?ttT&wiSW9G!iOm{-9Er7I2_4<W#wGiqlKh~cH1Suk!7okw%JQTI4NExa(Ul}0c
zTF7H{;;gGlBB;?f8=}s60L5HPAl?D4{hSGt1D_RciGlT~g9HfCG>NSx2HlE6Tcbbo
zm2>7vg*r!y;KI6s`)Q*gZv#InTF`0{c-p&S5=xG*l6W-Pmn(%-oS+#Y@Y{eFjD{_?
zu~dcBih{|Chtpdn-JA%5CFe8AAIR>&f-`(}SEvB_Wf(bLh#oI&OuwOlHtS)Y*;`pP
zdbp=sE^Lu+IX?5~mH44Z5*S%miOhlpZ^-sUx3@0QJ-R^_#;<a2tdU30)dzV&+ijls
zPmm@DVtcmWu@Is%`R&3jtlj`3Yy$lff9a3q<S=Hw{)^R*6CQr&mpS|YgmCPCiL9OR
zB+UUJc9elAnx=al-Ho-nHLdH?>@^A@YOP9&Lk5~%(X9~_m}#M9R}b(>Uis{vXmokR
z(GNo}JZ7@t{&O33`8Ig4#M|w=HjIOo902fXRUjl0dQoB*%;CTG3e1V$DxYFcqL-^N
zul1F>DKtx5!(xin`TUbHEPB5dBQ~=zp@UJK+L&VP>mr{ya2Z<d-gw&QOT|4oAoyhb
zkNrucpw=QI<Ua{^B5_@&ceA6y^lIVtH#lDEDTzLg!nB;>I2r$Bd5%keuYvZn7&~m*
zFHcR<M6~shvS?NbykOtg;+YMCtZc#K?klmGL+RKtS9j^N@%M&<O@uH>)$B#is6o@9
zoMXS;e@$+Ux%L)9!;y{-^jZ8;c17m#>SP=yv>^d>_uYS7h>^4KkleCmi&$!JpIf^a
zm0s%JYink1-enVqT2m}(S`dXAjE}H?SOkIK$M#N7q)s2Qvb3~JkB)FoXWZE=XddGJ
zO2?n+BE@rFj6Kn~c{)OPL>ZiQ=_oo8xbmU()%|K-eV5fi0R<R6j!_q_Rg(=kV}wBJ
zjK<%=7`<t3l7FPdb3!uMx>R>*J5Dt@zytyq2^bRVBdYuXW$Euf=NxUagKmz9NU>L4
z83=Xc{!PIt>I|J==&0zfM&$`)J#LfCCV4s{iC%~OWl0JpW^KRH5yJVvg6<JlddE}m
zx{y)2EFYE5BIAhw{d?*hN;m0Z()w60F<hz4qg|Zw8Cf>zeWlVtpe3DR;6a_@q7rOD
zI@%?Yz}aTp@bW(<ijoSQi-cbR#3!}(07w;Px^riEr~~}71N;`+?SZ{ZXDXEyQstnI
zsPW-~g^&vxR|&uo1@Tfu1l|DJX~lsVNw9M_hTM2uhVkXRH;Mi%u{$C4g@hoB9VFwa
zP0$D_i<<=UImoSBtEm7{y86pPa^8^i4lP-&eKWm%hmc#4vL-kh`+JxnD~@ru4K8d7
zh&SlapCAjb7Bw3p<paVM66t*Ia|nkfUxKHOWMo`tQHH3i;{@SO;YeBlbE8m_Hz0>3
zh@83A&(KK6nNQOq&tKOCojG!(x8e|aE8zWZ!%Q9L8F100frJBOb*=uD6(ltzvSHGH
zQyq0_zw5+scG3rL_I7v-6hMU*0?;T<XiB1lC#yRh2b5M_BrkvVkP<=3M1vj$x|7uT
zNKFGZECayrn%*RdVacv8N!5weVO%C@&B4bobGF39`Iv?wTNJQ*tQ^nuMZ^y=L!u6L
zo|8)DYg_~uq0=nJ0m0nVu~BBL9<m0KI&s)nDsIA9o|x&ve~TpMce_b#jVMB~z>tbs
z-5qrNi1M-kt91k#>e^jQ)W3rsJ)wZ^)RR||SCRyP#63tCN9t!o9{@(E>N+Ha)`J3S
zftF>WG%5i8{NU*P>`DJmOz|vi$<pM)L~Ps4E5aaW_v<9>!Q<Hb*5k9TvtSZcJOE~x
z^<np{x-m?{!d44IiT3lO{EK%gMAP8@RTxlHHI8IJ5e>Z#L4w%%DaEwdsWjwjkJ@ps
zI^8XZGf$GZX&Ja{`~J6!{JXomnc8`Qv4!m^nboO6J!u0BBB&oApQ()jWsc@d6KX>a
z%&3^s53b#29({3Bqv$eubt;Wn)ozWfxs@R6;#L&&+6Rzh72sg=6rqk||Mq<r>bXhQ
z-(9ARlJ4t^U(E}JgoOMQu*DqwW3ZE(z?;yla>c@K^nQu7Nq5X*pu%uhusZBH@d!%G
zXh?PDw@+>AmAl(&)7RCGM>J00jR@5lcC8k{X>0Rpa3nrLoohC+Va5oqPZkZthiw2U
zPY-VTUfl1h7jbSSL)ZA-4DNQDmtrz3o=$vR9IvpDkb@c842L)n`O7rlxMFkq`{XWs
z-IrRWrsa!&y=mCgFXZ{kyw4iFcKi7e`m5?hlj4#~L@n+zGtl!?0E$`n`=U<dw5i2H
zy3FwK@%N^v%twyI;gKX{bVa8&R>Li<s&kcZ_kc)GyuJP5W{K~21gc-hp&B9d{zk78
zpIUr7-1RK&YeyIIH)J=&OM2eGKH2Oqh5cGcIuu0Aq`WlL6Z&k@0h}BY4k~W-<b0D`
z=(k|QiN%#J*Q(7`G|xs?X+FHU*3{g$-22bOr%_Q6w+=p5q0%N^u*a-<roy|TF;1WP
zx4Ga|hSP_SH<c8lZ?2E4bD5(!f4!kWyYrt8q3B)9xuG-Lq;SlpxhSBp<cH;0Pq4sw
z^n?rf8}V&~XO?zQ!Yn!simTuHPB-5caxVB{BlO0i&^5o-nHe%icX!jGCr_Tt_4-s)
zloF`cS*o6`%a2(haeh7+QCu-~{s4@y<{bUOOzTUujbGls4W8a@s#;pzD!M1|r$usk
zKVAI*do#_-%Fi<<K3<3lg~P5=K_Q`~JG8enFUU|kIfDiDG%-=JW7y?MMdt}=>1)gP
z&s&X17E?R&MN7@e={4pJ<eHk9t#QfLO<^!@!$y%hHa506++sm3qSJiJLm!`AI9a4k
zOd`uV?Y^O8zH{f!V{On17%}8maZ0WSK3^v_JC*#}p(oIkMq|Sp;kSLRuiq~pd}Ie&
znEn_XN9w_0&V=rQr}W0vt2fcIe+$ZwWg+r=nQFSaeCmhhtcC&PAuT^anUScNfh6HK
z%Z|RRGEan+t41}bm=B=ePT1L{$oT{ZPo0yD@A5v?{jAFT13WnXZpd^j_E^&#Z?o0C
z7?u>=rITZ0H(|J;F*-8hps1+014VQTB{j!68+Yf8M#%chbrH*OP)xg;GPiEs`t-?@
zKRLvm&OVQbkl3(X!ei=n{xD4JuDy(j@v+TAtd)i%vUtL0(-X?dKFo=?Y_x%t#NAg{
z19|(Hf$ug+ROoT%hZ8I#^4>A0YVoEoU;Y>zLja0<p*}G<3}=>stb~MweC>wDMn2f;
zf4I72on@e2QFcz7nsMf#Hx~6Zerf~j)~s2hSbE;eKkKh_O2X=6xSA!D^PpAsbfT%5
zn{pG7pfET6(3_agrhlWzTU<SiX6Zu>P%jw@-IXvhOVzwIIYLVwkJZa<YzcdZBl7VX
z$FJ`e1Q>(iGOqaYG&#AVYw0cvnn3Kv<ttXOIrcTCo>Nm&qEoh`F{JIRyYCNW_14zY
zUZVi~#uce)Y2J??Zw%<|s*2guu2aQ+zq%dO--fo<c$*OC;=A+oVPIlB*wNAP;6hXR
zn7WNyDMpo4n_%{agPt{q_9Qx>ie7x~9zG8$ctiUt^_=^`G@r=3ygRPGjE+v)Ncj=3
zt<@;YcxCj@ebdv>FdG&qdt4rt@Nw{@qpb@T+|B#<(?s3`g@y5Z#h<c%{JntE2Mwp8
zF7f(QcE&AR^KkOO8(G~anUn;B1%bJ_xmglwkrnyvEyx4Ty|6d(s?ltI+rNs;05KoQ
zk}!gQql4DHpWLCn1#6%3oL<MlVR>+|LCjx&%^km=DB@RFjc24T4S(Cu<{EkTw)!~R
zkH(&neMD}Jk+qj2z{G|^QRji@au!p8nMwS2x*@nZ?>+uHM*EcBAdLPB#Szc9dOL4S
zusO``rD)@pmYSMxaq8~os-9iS85in%aRzJ3G0V$$GTGLx8~oy|e%IZE*<yB~@XcpR
zLh2}8BDR=`oz5*$%6a7CoA?Z#@$ovmdhjs@q<nBuRaa+nGz-=%mNjgfkC!doVdz;B
zD#7f`x`{uZB;1a+e86h=#&p?~)YPvq@}YRaA`$=Iap1senBrOO6W+Hk|J(SNFXt$4
z;5Zq~XMvNxA#~ZYWj=X+4h?EiDoy}Pb0`qoZYYFc=ajDQHh4H6fQQ@s`STzDcp(X!
zMv9Kuvn>w1X;pZKmiQJpdM{qS{KV0tUQ<5@2d{*Mh3$tSv97Kw7G!2Yl0VO+O8(D-
zu&MNJ*MnDs^Azw=!3D?R4`737iITnCHJ@vyP>UQOJxm)0Hy%7ce`<O<QzD^dOeo$_
zO>Kh;x9|HJPlzuzR4iP$@I1QvDPA~43WNf`7kzPLoCy_T1RM2a8y1BOGO{0qw!>wZ
z=l;C8bAM!1H()hgm_VYPe9j*<<FS}3O}Tj#_+K5@(AY%TE+SHE?xMbU<;sPW`YdPV
zhXbtp=%Fxdx8P>**YDr2z{6o9GLPf1UxMkt9Sn7t)3J0lLQ~o!i!qZ(vFqE<Vx3ly
zK~*tKTS>{;*{x>~R6n@EL5K3@{KYoV>3JXtjBOk2M7JK^e7Css?!4`yAuC}D-e%FT
z_0dJ6Fm4e^gw*|^qd$MXMYnf9#)&**Fw|xmbleZ>zoB^7WU!Xk#Dt6U)Q{v+&7$KG
zN;~%KIk`}MTSUuPj(xYE_%^sD=+w-8(X$P%9aTe#iHTn_9r-EYsi|z2FJCsU5D^#&
zVQoJX4Ojk6uU#7%{(DOY@7s*F$6R_NdgxI3`EA#aUUD4tzWlZD$IY9IgYp)W-6b*p
z`Y->iPy<ytMa4CkiJ+*WGXKqlxwy%f%p|#6Nx^Xy@c#R;bnTIMRdZIW+Zctp)QuhR
z|ES|`&?C#{=-b_4!FTndhKS5P>+dc+2OIBP(eXQ?%>HY^YcSmYjQTr^#vjo>URL(`
zjoBpHsW_=8{!}^ZTwhmbUX$88<7VGFb^a9$m?&=m*Eyo-r0E%*Et4avv2wU)JCjz;
z%W4@0%Hy(rct%ccJ_RS70i+TV8oUWlYq}FJemzFfiTMm8iQAAbEGjN8?)dTJs&2xK
z4i{r#OqJ@nD1v^mhk2*&aXfUc8@N!&{eD&&W~8Z37(w;y#fya$xyE%8RqUZc3(<*g
z=Iqv5z~*gsZS~98*dHTVbebz_LM@l<?a}-`_XW>dew_?ML3bRo;*3!tCoK`?9)&Gh
zy)P=sr<{EIT3lUf&wGuJeF7G?f|M!PbZsb2OG_)v0T&`15)*t^Q%kG0z|g``WHs)+
zVyS_bf9PTipISl*PfYyW;+RwnqaK{A%PC_slYI{#KD_+t)9LvO7QD^N%QIAcn94lG
zi~h=RalZZg?Xuo+_0*?Vd>beG<idOQ9Y;%tuSMRy405&bJKjc1P74DP7OmQ5=c=2}
z*whr54Qs7T^`)EjaxZ;9>21cWt84kb>FKj)G~Hqg{$EdwL-zisME}e-no0LdJE@KS
z?Vs4^^%{!ju3x|YoE)V0-UxtNa<*NS`zSi49~@c^?zwlsBfcMipKYHH*;qgFDEty@
zh-rpTld_VM%ga5D`D2@I`3XJDaOfe^SvdIenwmJla#AQQt*uW|QYyb@y_EIvkmS>T
ztv{lD>eM1)b?7PFxIa2_;$6kZqx$;WAqH4Q`I2hEjuZWYP>61VurqJ5ViL{6!@~*s
znK^a~+)>vR%Z#rvPqnd)!PFQIY!+q;%GADT4W2;r_f)?uEMeqVeDu5g^P@(!P<qM@
zo_3mgwPL5o;w4M|!~`u$1%Hb8pJ&gmMw8n-3W(-KC1Fz5<d>yo)b1z~JT*t>ez;8y
zJMaBNImre<*|#522|^pWKpvrHTy=|3X?S>eXgpp0V9ptdUAyMNR&hY%`mx1_4<FVC
zfZ9m*@0Pa5$u_Mr&K#Va_u)v5V#jw-Ujuz1At9!gmVcuVkq8sg$iE6^m!a%+i`YR=
z#3U!L^Y!)JDCHrJ{W-_3XTxmA9;sg|mKdlzBOm0y0H;|%yobX$df$Ohv|OsPua*Iw
zXW{pvBDv?0k<X%|WpYkkTMbR!J5JB3%ZNa;iB*^N+=qR|<xihJ3fI-FWycm@#&nyV
z5)xZsr9`3V>FGf(m-i%tyNaxG%IXap_S{#GJ$D&|<7+NG^%7=${Il|D{ju|yeeva|
zOy;ehllz5)Ho)-FroL;~MLWxB4d(d3KP~a`ecgmSWTkT`aE|GX>E8vv>y_c%)3dP5
z*r&!vB2n#)Il4RlI{EBj%nc-<t2sGW#i=dxm07^a$$9n0jSK&!vuh28^9sY?VmG?B
zh8DF_L6n4<jF`HPJF%OrWizt2sY^&)f~F{O4UtBOY{*738fEGd)ezT7gJ3JHE~1@a
zbR}gqOe#{+GA<oyYNpTGME~?(zaRU<?D?F1&v~!sJ<o$61EGi~I9iTG`*JuV{wJsi
z01ZQ|PH-hPfeqDx4J)W7nAzFs;W*MaEzO}N{Qe)pF9mlX>ARhsk!ZouWHPU{hV%JF
z(yu;h7DdABOTwm)<jloIMxdE611x;h>1Oed!^55+u!(X5zC2iC#lUhyYWpy9>QD57
zS7^uqP_3h{PcP;myaX^d2Qa8C7P|t>t2h9)$_>98tLyFKGv5yVwd^cS{P_;OzrSBw
z5!B$2IrUhrTXc!b<*GktdKTp8d({Pc)sB1Cjz{1`SbKhHBy(DkD(p64J>5jrWz~-<
zC@Cu|1Wq{gZOmUFxRKHx+&qY`7nBre*I&w&i^|2tc($QK6SG5(VwU-<@hOROLC^q<
zLPy+F4`M+V*{qd!bg2k9uvL@n6i5pp^XJ%WE@2`LhXDvkewxRgp{VHS;}Gaf<+7sj
zJ?u2w*fG;@7tY+aagAfu3#}0|?m)@?cL#r=P!B+X{t3~`SFU{;BF(U6YH7_OT^`#&
z|KHV}si|Cu7P0d|fgrt}b%vNoqYwr#%p_a>w<f$0ybXmr$x7Ec8kg#$JieF9A5imf
z+{$B>Zn&`t%zgf@lC^p?a?l8YU)RL5-h;NTJ6!DT^`Y=-ivBUl<k?-R3lELE`fu)&
zTs6f{yjeLw+33<JH8r)Qzt-dQ3=DRgnbCrq4UCEzfDSzRU6ws4vhvZ$c&|x{vdk>D
z;$CZO8BXj`ye7^*wmtX&hjRi%J4d^cEx;bJ0^{A&q})@?tCQi9J9%wXObnrlJlv=-
zbjz{>{#QP5mPZ!{orp5pF%S>5B|dRSrlEssxxx9oyt(CN3HYZ^{UT)p16Na1v(4GV
zVj9!~IK*L)zoLH4&B$>2Dc)W-FhEusM987N*=%@pNm!$(v81Bna(TH?)X9_P4i2Kp
z5AmY_Rpy(M<A!#Cd7*LXsdr~Tj?|)Xig|HrDi}*>W^Fw(H@i_A>YUh9dxf`=hr~n~
znkpCT2RxcqkhKpDErRYFqk$^<?4f{wL7?wrKhSb>b6>LNunz8DkcjYHOJ7$Y+~?aA
zta{rgiv2`ItppY?X1*y`MNoOlo^(M%hX_6fU`gvq#V=Bji?EB(ymkM9G2Jmi>4{qt
zGzyI&&w;Tuy;S>XX}mSu182R*5xteU=X6j1@B!JML%0u4-k#YGXvIh*L=@jKbB%$-
ztqd@ne{Z4UV(Xmv*fjwF^kR*4+AM-zq;5U{bKmFQTR>*xs;(|o<;xpj*sOuvs;VR~
zQtPKvzlJwJ)7$$Cqg6w2hNc(J>8OD!#VLDpKU^Q0F>v#i$79N5GJeaGd!Lz8D0S1t
z3TGFWofOoJk<h{+c{qKukU{2}wYw>#QyW*b4#dP*0w`*1LP4X5YCxQ#i3UY{Xjd{F
z7uOC~i)Nq=hRBTz(TP*t)Wotbz0F<nA+wyc?ekO3*0Mt*<JJ0ac|I4lv2MJYU?PU`
z>la`M$>WIRYOjsW5Q<hwAZru`1=Tb(yoG4S3rrVak|n4feWRnTw;Flmb;rbS#;FF|
z;DDHj=Jg}hdo3XHz5jj_y0iV1+(3r9J*sfn@6A+I!+xzZoV8HBoP4YX60@@XWLhyY
gF8w?1fB(BJ6S;-D`ZFtU6$;xS-+%)x-Vx{j0aPG=X#fBK

literal 51912
zcmeFZ2UJyAv?YqUOjrg)QJ@r11ObUkHh_8o$w7%C0+N-S!K_3<f`EV`IZKqRA|Rk5
zS#k#93P{e-^C-U8@Bbd-{ok)&_vkSm!zw9?d+#~>?7h}pbI!FM%SvC^zJ+EB1qH=+
z(nT?O3W^Q36cp>O{k0K4X$g4w6Mt>ICV4>&f8%TJT%HU5+I;ik6$=Uq+K0qHYrOl$
zbSWtQp&*H!QM7&jqs`7%v3{v+Oh(VQyp%=z!cLnr>s4D%U%7XOYE22fTP*XVSXYtz
zxw4H}XUX!i@9vAs`ng3=$%$>)b5C*0oqc~_Ken*fhi&tfquc{Co2pu+eVfuabIKQ{
zgeHV+`okPXX2No~PtJYG8ThbI$K%&k;a^!jkF5WE@0xb#-PYCr;1j<?z51=O+j@@G
zZ@=x?thxGa>akt<tKVK#V6<KH`}?=i7k{q({jKXIpUw@dzY%iy|KA(ee|W~J(`%lC
zKa*39S{DSLOFRt^H=~WI?DOS3(tK$3)8uv^7^aZr6r%HPHO*#JT8NApJ@xy4xdwaD
z{r8u5TYev(@iSf_F+)ScjN;$Fb9(!QJK4d{gzVBhIJrt=^{c|FDPx*hjvx1H84hR}
zPM$ue{rmD?3^Dxsm)~ywy)7@Bx2xg7_5+NeG_S1Q-Pw>k5av*qrYp&G<j7E~MOA&Q
z+^Y<`iGJ59<Cd&TGQv}S0@gobRWl8bF)@jsY`1;2mtCDXrSX8=ah+0+*VpFe$teuY
zdX32%^JSvTFPE1V60W4{xp{l5NJzLPzv<rMNy96#b?@=7uXV}}8+mNG`Tgr5;e{XR
zxj)h>{hmKh^z+*@HQJ%25F@R0{`~nM@|1mnYMymcnElW(tHBy^D{_O9xp^9UPVcVm
z2l%A6QnM>+YHEHR7N+yA&l)XUNS?CKHf>96T%sRt&P>R-y!t3zI3EN>RQzZ*N~urN
ztz;w_7#IljcyL?RE2$W)EH9nO-ha~c`SNsj(Xk^(&YNbdF`W1K+G18jo3TixqW&^U
zGB92_N%fG9-S?Ldd2}oGkZOFHB+p7`Sa-f%(`MabqMBo_`%%CN&-0p&4g-tY-qL--
zGp!c(i(_SX18$u<7%b{iXg@U+_2GjU*(#+m;n}lit}V7gbe}^`%6JQnKcYN%>Tj+G
zy}j29X4)Nw8dJ31+Dlk0CaGmNL|+PFVcPrqF5c1$+p>PdCtG&ir+y$cB2i;eB^(pP
ztzXeI_Wi*D)4zgR{UhrWR1##uMX2@;jQ3U6M~J&WdYTtg{Ije0+!327g~zRUAmq$O
zP4_qL-lEHw?{3;b86xW+`QwK%vFc_8Q_3Hv0?#YCt)7AUO`F@djQ=d&!Fu%Qg-}78
zhG1SJzo$<ba1Z(ULQ&Dt@#5}#m79DRE*O4zv{N<T_O<WRr@Ri+#<cwAVszdY@MmFq
zxHi<L-N0Y#^|kxTDViE1`)r1rqej~DsO^TUFVNQqu&Mclgs`SGvU-=jdU{mG5U&X4
z*7vfX{4O`L^nlA{+3|BQZ>4>Ep_2nXQFS;lBqRa1Ngl7{2(*k3l}x~<AYNcS+Ma}~
zvMbP}+Pin?+iRWqp@ft=yei=b?%!(id-dTK!BFY_I@dj_X>D4y3kr>!xX4y37slH2
zsP?bMkWTOQW*caP?K6~<)#EDJ^Q0a>e(d)6v7Do0zJSe0BE9qMJC*_KJYJ)Q<Gd!#
zip1SLIdrb>#hG>d2PyF<^G5aAbp0y!8Vj5LPeFZdpZC35vu@+%Dsp2=3ay~^_ql=a
z#{1NovG?w+FZuA{W7kb)e*P;1p*CTrMN8If8o3!Y5A<*5wdG<XBn>Pr%rrJ<8rA1m
z=qD`g+O^Aat}oE2K3+-OH^Jw|*B7?~IJA<(o##o}9nN{GS;ld*v$n*W4qC=LFU=3t
zCj>Smsp;1bPuWl5RBlSDbvgA{Ozr;qKc`|>K2;>?=@I+EsK7g3n_5z}&$T(tw25mj
ze1GMwSmeCq+NX2v8jtg$EqSht-bFomwx*_Lvd3FgwW?^Y|3Ik47yiEZ^n5Io!IbQ!
zix<B-j22My7!2J!HQ66x7B3wtu(Q!+II}U{s4@9W$L^Kf4%?pXWIJ6(r3CrozqfR(
z$i<(^Pae`cpE8zFS?Qw0HOC|*=dxU%o2U})P!+MCjNP(zYvsWX!O?sjwi#@ikFpfi
z<I4-9YL&#n@%8mR8{qBj-59>II3V#j3a3>0y`ZqL#@yVTe;R#W$?vf48lPl7Qjl`n
zQRl;hnpimoqq$(C<jpN1+?<@RKU!qBX!LjO!Zy@n>#*r?(v5!=F()(GkZsoSC~L4S
z&n9jLVLYX;GLW2*QdooMk!eL%4n1}2Z0WPZeK_-(jz7L}Vl!maEu<-|-dL(A7MIcY
z<+_7jD^|~>Nu;<>H{DK@?%5yK^?oadkjVmN>AqKNYFU@7mX5yM8if!U)m%0?SUdIg
z+>W>xFJ35)`Df*aUR#a%Q}6!XPQ|Eh);b=*;oV(u4h!nkJWVS#_RMWYnevE;h)B1S
z&{Um5?#l8)g4mr5mOuABba%bkc3GjI=l=dwQ5TnEY^8E?a(0?f8{DxZPT2|VJ5%|R
zf$XXoH+-f?+7fX35KBIirz-a82sdY$9GF|<clKX{!Pav;brhVOoQ55R1-w$lStc!Y
zxmM)ZG9n%sk{gnIBe7vG@O=64^4!D2@h;Opni|GC-`(Za|MEPwAbJO#&_21gC?)@Y
zxvR4~+G!#jW=0yu6R)I4>?>cf9BFM*UG8@0INYpP?#r~(Ukx!Mb1_DA>6r1^sSl5L
z3)oNI5VKm?L$7x@`1NX@(>wf5?cBEgTpv`If23Ctsfzi$Ma7FVcN6;t!d*1&?CcIz
z=Czp$PkiFuSs&`-qs^A5o}AiuR3_}8TtRtxd4svMw6vnm@1>@=__N_}q>kFCKuts8
z(dt(ZiP&87C^A_ikJ!<^(oB*Mw;woygqNDgdH&UT&ziBGGKTn;mCGHD6Q7^x1|Gk%
z>sI$Ht|TkKWwz^KZ0Rbpc+#14=-RbwlPNAsmG)s_Vae%V1SG3O77`J**s@zpk}9jJ
z8pDJgCJ__kw2GXO(i8ojsj~+n1?UNf3)&<LSPeyH8a1jujmv2>jf#qjQ_D6D=F~a=
z!K%Z&lC5Ffoue=oSrt#mNqKG4u(eTT0Nbx*o}iNQh+KdK`+G$W@EJ4LSjTX$rWIFg
z5%YGtfx$|SqKq(y0!`ti$y&qucz=90E_l!G-LDX=LY=0YXinXHA%a{j;W^l#X2!;)
zSd8;()ubDEOhiNz`@%d&{nys;8lD~NVThkW&{1j0GD#ZXD46v9B0xUQA1a;Dj?4T;
z<2`$O6P;`bpUL}%mN<o@OpJ^deYv=~>ytGEbJW@Kd-ym0;C4qcKK$znYTM6@Bq0yQ
zpL<AIO(|Xz7gmCUFFMuxROSJjpv{Q-(wMi4N33Q{ZJb%rQr5+5yw9jLZO^0>Ob2&&
zcfSuHqSOU?C&g}LVb<&xth+`;nT77^aiREdUXbFsbCPOi4fgdULXc5=zMU%eU_-J-
z0&--1oWcd5qhtZg?=L!*Mr?)}l0vTOu+H!x$J<Xg>05O;%@{Oi7^uFv`I671ITGt;
zHB?6`aF}U8!g&dh#Ud&y+HFrH1A3Q5IUK!uHM4>!e^!;DuP@KVYZVm|NyfA-*Wl}m
zGlqDlxbETF81I_e+NqJe(IH$>W2xr>B9+Ciu8M0gTj@TX2-@|lNaw}mzKGSWO!5B-
z1Mhr&DTEKOC%V-e;Z30V;p%EDZv7wQ<C1+kQW<wwKaIkVPWXQ@ie7!^{{TEUqe`<G
z)%?AIOunTaYVJ~`0btp%b#E-rm0|0f*H)iy(;-QFS-;7WRro@im)jSh2Gm}MpWS#U
zf8=C`V>&kf{N$j5!9r{-p8)OaW}g(Nl)RB#S8`>GDZr_JWgimBtBT!6WElWTD*DXh
zEC#-Cm5K=-#0`A=8?edG$LA%#MgMmcG1Vp1T8V&nNZpbE0d>f-F)|`^Vogm=XR=S0
zejK*09JUTGjg{fh@klOOwr{iT@tj8pv7G&>O@6jcScpz0<6PGLA={CIg4V~ckBffm
z0lcZEEVu{wRX%J@u3$~^ux5_Z^LX7|G~H~(Y9dNieLjX&S#UfPdrU(jk<~1Z$XKr~
zc%w*Y&{~;q+(k}LORJc?vfLM_B~h1o_1#*dC70!i@JHR1A3vsM?dR5$`q1JxU{CkS
z%z5GfYrsy1^M3XYq<H|CDO_4S-j{&Te$Sr8B0>!TYBikOAso3wWcIYf^pDrO?$de4
zNDXT(a$bGwDql7<W}AVm`8iCOz}B*5UbOzcz7fE~8aLl<$es8iI5ij(9x&A0H)Rh5
zb$C0S&}Gj9CzS#9lk>+VmX=0cyuU9LMd(y~{P?vdN^)wlR)%a-v=EBS^%C#GYub95
zIAumD1<?!_yzV9T;ChtvtcNGtY&s0O-rwIjOcaL9?_ab^hY1;s6wGKc9Q#o`Xc>Go
z+_C1mzJ6e=KG217PDVxs^FdPI0#U^n9_`QphO4G*+8f`Kla7!mAIe(zu#xO({ayT^
zsB^2E$@1bH%C9<{&!pL+g^@gorVHYk)q{`fy%t++25X|28UnN1=p24<GL&ySz<0cJ
z{?n&VTuuSCwY8FUye`X&@@4kjA2u6>Y@&BOalOecH*8ZHwh>_JLCU93pYE>CDt&HP
zMo!LS@16#@n(^Q)-LrRZK-`kM==}8Xfm?|p#SgZ-$Bv-32%=(DzLzwLZ4nJPe28qn
zvNR*3CKbh>eN^h%-{bSW3k$JGjio(f_e=<=`&KJamL0*lRyR;18dvqG!a<16lU`I4
z)lZf1jJl5%&`IKScK;GtYb7l}K|#R^;FFb|J^5nLojYqw%F4n=z8WV9gb8-ItT@GG
z8vqj^Td*7oPHQQ2%FA>dE1|x?>6>QI`sP+txEfXc`4|Re!7Yu2eFoW|K1mhKcDwsV
zmeDyR8n02_No6Oz<2shwmocz13hxdG@3cHOFkiH?P?XxTch8>h!1|3qXouZCn@T@F
z^^#p9_XdgrqG((jQ2zO|67IyR^X=^?R@-TKF0uzoo@}#Jh$>U0kr5iZhe{jeW1K5F
z&x#z4`jYn4&C^=Wb5S^H^X8+wu^7CY&hhvaa}+H`P|^zQnbW`d=^5wzSQ)*4P|z_X
z3IvbVR`ucb0=0?$&$UV_8dN2ZUX21=1Tb2Sv|d3zV)tqFXMA|Kc2^CmuB1L}!H@fP
zPrn8V|GweihaIAeSJ}et`h(;=B8MV8Spr=a_zY?y&yvHqblvhbQ`n0Z&53iMUFm(0
zpDUs&jq^M<fAZJM=i+{l?X<ODYT6Gnk!rZBgkEVD*pqyZ;E7gGBMN2u=H0q=%N`FV
z(_zMxRqn@_t)IVt)XMTq(fn+WH?Q%x6TdR+b7}pL)?wfbGQ;sy*R##wu$_0z7ddw9
z7!9|c$6hwoNZ?#nK|wVXY?>)5SFT){U!16NfBqEf_%vVB>}_tCUH^X8oR$m&1*e7K
z?24+Yz(#WYyStls9cOPQ`~cdzL-|t9hm$1lO(#sif5V<qPaIZRTs`h^e0)5^p!P_c
z-9V^vQ%tzCDwf{pt^GmDho#>193=an?>5c7CTOWBg`l>(3EU}-M!A-Q*V^oDs>P{;
z2vnIdjKudDHMvIlPUTBjaz5Wru4~ra3AmNlrkuwmcJ8xMp0x=>c^wc$^Gm-<lk7G<
z#-NScX~YEmSls#I)eEPG>*5sdH;}FKJS+RSd_SS;*q8Bq#pFlVgNuK~a6Pzjinh^W
zrR(wZaEpGx@hjJaI|>|Zz74Bo85{U_pf(bFEk0DQqLn$+o@JtTzk&8~PnmZJFxh3!
zAKzZT5(@%8=(%~ygYoH;Cs!%yMGmGWFN_v-#OouC_|qsDco2{F5To<bluAM?iipZg
z8QgE(aZCT>uapv$4NBaod?WF5BkXHKzz(q%P4jZ5TpWIh{6ge2Bd(`lJp3-BF0(f(
zNTCL}Q{%DzahU*S4Pp#{?v#Rak}q<tQCuGlvptJ?L=Fe?t(qNCZpVb#OQ@*dx{vZ)
zsmR%BYNSmqrD!>qi;HXRh!J*mL*X)Ftfa5V@@&tp-EaJK&t|55NVgb}#zC*_Gbixg
z_A4v6A+wT!yn?JZ9v<7+R5LE>lzAz|NQb&fHJBr4+?X5hiyC_T6!kf_yli%xb;uWy
z1!KGg!2!+V15#A9oOnBj<8=9LfU92+*Ga8@^Y*UYy9wlX>Dh@hN2Q-XI@M5Nj<Be!
zt4s1tM$$EJ3<O?2rV#xd%b}32_jwOJeG0Zi0%`{WcKHVc>`i+Zz<C~ZQT=WiAtF4)
z0z^qjODjL5q@6@LYdAGje<phcVT6f<t)4w3ap_V$IGR_82cfr0_XFBqeLKVU<o)}z
zPE++NG@RG&u@}x>0|!Ph95e!!H^hond5piwvIkZU@jpX7Xwz<Y0VxL+XC|OS#;u;x
zU47v$%X3erl<)Ixp-$jD4?J2&pgY`wWT2*f9EhD1fB;}xX_xuh@C-!yCkxE(;~Ace
zy88M?Bds|^BCJom!c9<bzLM<KPh~{*Pg`3Jx(v4<bGwomoV?wUWkwZcW&a@!HKpsv
zWhF_l^w?`YPcd;>Xz3uXbqKsyeerZscKenb6P!L&VGJa&A+LyfPR`g`E=5zAsD&CV
zI$qCXa|ccB4?-PC!)LrNH5p*}P^Y=>2Su9Yrwha1UNhXt!2*$&LPebHbEY>_P`J_@
zaVytVJ0N76T3^}y%3CD<i9qoszf99M0i&h%0*BA2Ved-!%f(33PSnbXZfH{(%hjt2
z(}?iGLS5+tO=s8ZbK$J?Kf9=@sZ*&NWki?uRIg{efB$~zvyb*a1CG+^cm(lVL@SMe
zGuk}wJZrygYOwZbXD>4<`kk~bpyRZ$Y3~%$i-1HtK_Zc~$%1y{*B@VI5Vj#sF4)L@
z86%OAjOoaBsjroz!PHzH%O5K}pqpIQGX{pXRBVzCQSkUxS|knb;g;+jc}wr_Z<RDA
zcUau&{_yz7$&-zfKbp92(7Nws+hQlw;k=N9XifTf3iy4m<sG_}Fpr6Ws*|X`c#&<G
z<;qY2O8Tt;GTbdyqH1RLy&Q8XWN&rO3A^#$C!^;K{9;TzIQ#GJ5J|N!-{_D(*B^3b
zX0)U5b~Ag;%&EV%%*t_+9~@VyclfDXI@Q_%GHq?cXvlMRe*UK1<qh3qwu!?;Y11_(
zp0_E5v-G%X#z!~pwp=Tw2E^LjkG#kIM4aX?>jKWPutnE=%QOm9Qh5_r;<B>P;mO!z
zp7YFjJ0i`_SDVcC+ZJdN6r-=SXOMOA_LI-2_i4H;S$Xc`Jp3KdM9S*>*E2XUThtm6
zD%VY)9v_vn#<{+{dvJXZIIo+Xr=3vJYR_EJ?DN$B{`F<U`s3#wY^z3XEMeS|t}lbU
z&3ohP>CvJU=bR&>ss;9$sH66#9UUcb8JI_~h%uiQ9)I}JlzuKOou8kdD4;;_u=0Az
zE|zV>hSLcm@8>o2;~mjGg+j~paU&ve#8&n<r$v`%b-oRA<bIFXl`=Q8(WEBwF+yED
zsM(E4Jw$YBe(HpJiP-%>W9LdaLC_T}j#sW}oSQk=^5)hnf-<HBuXi!%&6`v8;8w-v
zPL~~33gvTSYyj#@<&>xaepNj5^ooDB2|+iv*^`r$Ihw9M*g>DHTN$uHeW0TdLG{>c
z5nt=A#N&Lzs3x<~N+5Xv2RSofsioqip0Txcmb`+(UDMH<rwHbeR8zFFWHt<r{k@Jy
z7Q+0M%G+OxQJN~(#Esnx;WgTumfV4K-C%Cl%%Uz8HTFet^m64p`<ewy)QvT9kEg&6
zXe2M8CVR2*vGs!{uf?*92_M^eq6Y6DD?b$~&27;yWr0}PGi86t*}3ovsB(jrtR$sq
zo6+_)GfMf%I0+Mo7{N$Zf#2hD0b&p9mU+{gAwwAh7$JM=;TS}_tSmR!2UhB$246Rl
z4QO%RH)k+9<WAPPH+1<_R5G})`U7dWfg_^e<xXDv@R!lT6uEJeColeca=4}OQ@Ciy
zkCyDJ-u`|RTSmzF<rNiNU>^7y)h#@g8oNu}*EJxad^ucZS$pYZP(}t%LLs891z6sR
z&nG*cow>WwKVegfW&Fb#py8{bf~MImivThG03z8HjtI(Uyz|m<;6A!B_=Z*8K6vWp
z+xS;_F#RADPCVQ}&xat=z)3IS_>I7x{Wy*%H*DA-p49=&;=@Nq8GQvCvi#F09?g_S
zknhB@rJMIjaAR8|WvLy0fFwor_#KJ@kfK48la@VWwo-_oBuPnbMESG|leXMUG2ytl
zxQ6-u&mkcw?w&a<OkXMU4GJ>A8P@Zx9lUvJZ7DZ|ki%uYH&1=q%8`GyWOuydiz%fz
z&-W#U9-QDUcvA}J<B9h~s!MH7dGX@ykLJuu4_d*7_#U4Nbek_<h^%PgQ;3#&o#pB7
z&W*&*w~6xL2_i%ye&MnbHpMd5g4uVq**}||(lX4hkhh_`gOyL6V<EovZgyJofC%o8
z$E3OLA{Rc7?e#J!M;>1(@IvPrCIJ2R^3xMFNjie|)6h^5@~_(N&h(Z)J%WgHk;`SV
zhkjka*wi&M#F%gMdpR_XX=PFcxmgZJ-^5w{OhkE*z@{bK#@|v?TjsQ?&Uu;;5oVU*
zo!Ul_OR3AV&Japi65DHz4BokvAulU?mAzn6KA{yaEpEufCU|knYP7wLg}|X3k7MtC
z20@=>4w^>wtvMBExvF?+kEr9lQF@M*uC1t_b6(s!4`T8eK@Iob`o(sM9K95*IOOEl
z-+C)Y{fMxz@KxcW#c_8f)83ChQC_bi>Qb~i+=v42&6_u=-reO1RiZ1c@eJSY3BAJ>
zRVD2w=|St#74QOAscOY@<Lg^&sDG~JKtuY%5*Qq;dR;?VIe@oG=7m^B5mxcOlrw=|
z8|DGg9)_O!sInZNkj(NrnI%*1&1K0~AQsO1qTrJZA~Tz{92Bzs+MFf#>in9bVy6e&
z_FwbgZb{BfaT2ur{`bv=w5%3@m!zc!2b$lBz9UP@K5%FSfwzVn|9!ogu11wpLyDGJ
zJ^gpS6<~}qRTsd^Css>cJ6xD+yb3SWMqm02#o<%lXyJj$iQN)ByYuP1%O;2FD=)@4
z=T}r#vdTrLrhawf_~zZP4BpDfe+Tc&D|Xkm^x_FO%#jbYm#>U97A^Be(94;dn<tut
zIgXdhm+e4q4}N@zrs5ysfG6XA6tC?A?D_gw8O)iR)L&V)W8F`zJZS|9#IxlM`_ZFi
zxl=RX(dDqO)&;mfeq0R#@%Y1@x?=<vo?0fmmx@*f3?C2DGbzT@WCew!;r6z#QIgcc
z;~yFNyqdahet)-#-fyy~+-tFKV1OXod?S&>$va$T&*jYQuORd-EY&9UMv(RzR`p80
zd#X+P{136RN+O13hoNN6X&ZUsO{ipid|4NTGY#w00$i4+8s$rVf<{&?4#{7dZXp!4
zAg_{@CCx%dyRT~QRf3~JM*Jcog&%Vfo<}P_eNsdWBq)%Ql9CN=T2GH$>a`SLI@Wnz
zTgz$6KQsS&`7T23IMg%azr#}UmXhJCo38^1@|UrEegp_E>oc&930sP4ri6Z&o!-|p
z6o454Nb*|O3R0Y0X7V~Vv=$}~TZ7Iq;%{Y}D7n8Nl-D*=%O@tKt5p>v6?Ay8uJ;P9
zfF<+m<<bLY839g>x33aKAJUX`f&CQA_&m1hB$C5-{G$lGUXN8=nkiaIa{bO4_?w4D
zg!O;&<V9Uwool$sN>>E5k@pQ`^PEIou$;#@H}nX)Ea_Maga-4O1TRm<h>A}Z_&$4f
z!(ZnSq5g}xtvB00yYf2R$7iSiKJ3|D=1T<eW7Om#RD0UAaIXIanUYTE1{=!#r9)(r
zv~<?4<aBj4&?>*Z066%6@v}N!Q93UKteUl~?c5)v-)o)c4^bD?o7nT-If&xCRzr$}
z(m3$k!V9Rs50_U4YV^>c;+@=C+u-Fg9=%V`%sr<LJnk;P-R($vbg|Sdd7CatYPR(F
zWFvGiqt*{#R)3Ldpy_t=HK|>`97_N&-&~tfx|@ze7khhqFPogY`j$ci_0yTkdGCal
zNYZX25aMb&m&}?oNQ8!b?OMdtBZ$(F^{m25N=sFHYWIqEq^GARMXHC3I9ZlZsoeAE
zD9Yy;998gdW>!xu>A~j7p>v+q)<A(EK_VR+=eNpHw@2<`B7q8U4)Ti2H+dQus9$md
z%4I5P7PaT)%95g##g>y_^%-ldw|-c;@a)5f5Ar5z{)+umLMKnEpp@}tM5)i-Y2yIV
z!K#ui`=T!@VtVuE)`NAKOCV(B5rqhuk6O!7ZfSl>0gRZEUSEa3z{=vpy5$#_l>q6s
z(~GDRg8A9AcMv*K(yK%SuU=WPcE9dnzY=L0OaGx_w}JsO9=I?k!@5`>sIauvd|;-1
zB2#se*Wu}lFxpnW70vlONz+R|)Jpl|6y?L>p|O6^$I|~mqu!DGMRfmO();3~hw`ST
zrr*Y+l=hF|PQF8R)Awl<nd{vRJ(eTlS(wxG6<))-i#vpVx{54KD&U?Zp}&aRznVMR
z;x@xP53Vt>Z(O=}*X9mUuXl`K{pG)w7v2dHurhpnJ!plY=3ddtj$J_4f&9FFQXe0#
zFrF8Yj!}SI5252hFpoh5a&+7UZ#v>O2<{Jc)v>E*^&w^{?^>>MS+<C4ejDym#k!&y
za63_}s9kk>#kmQ5lvN?tsjs(}nS-Ose$Spgu}HfDRf`?z1g39#xFU8373<A!vrCoK
z;m;FTGJW<4D2EdiEdYlsm_goK-C|1%9V-phuP#VV9-KNx?se`nIk57$lg_sDc52_!
z?j+FYY-wMLoYu9C?Ih(XWdO&YpA1??sHM8;uyS21vcPdkl)B_;qQ9N+3K-PHKCl_W
zH*!#sTokBZ=YYVzvtA=XnaygrSqWE@y7&0y7m10-O@QY<@>>9|@8K7XcLQeHe(;nm
zwvN2Kye|~lvziNV9VBVy+_sOSwt*CB)YQlTs&oq@(z$?3fo95<En715tLO@#hf6>J
z!D+GT^H(uM7>SA}XwgUOH@9>B9OcY3@2g1Vey;N1qP^Yu=G}ERk~ZSZRVJVP57pSV
zgOWa6B?@WiQC5hsgSAgfT;=<sGG*PF_M}fv_YO!Ll4n&;ObsZW;@V!;XKpb2vkNN8
z6JYU7%RzZm7-t6u2WbSY6A6iTZeoDCsZ`Ww-}iu_i*rZakyEMD63xE(c+m>(-ESBn
zv^l0*xN4C+KH5d^;WF1Px>hNQsHqt*1@n*yN(wNQ!7C|ob2~yWkxTooo*S55fGnKU
z*L^N!He2$AHr@M7HRk2w{eJyr`Qw^qiw`yV&3iA3wagZcA^@<ZC3B?=6o$3>)&WVq
z5OpR_wQ^3QmP>)u0`&fB(A+8bueRotvYyR?po#+m17qlf?Y{&1C}Uq|-s(C3i?hql
z`}uw=6A6{{=9Wr3<dFvR)UHPWOR|J`Mok?<=zN4u2!xnu)iomGyKM7i?+PbD!u}O)
zsM}-wzU$`YY(;yau){s7VeH^Ew&%2yrwAK_@1E(s9kO`NiG8Pa?Dr0YpNREnv1Vlm
zLxt5YQ8T~X6b=S4fL((o%@m;9GbscK0A>KSJeyHv1P%av0P*^e0bDets`rZM3ly!}
z9i)^9Q_tDykM2B8BY8=0plediSDApZtABN22lnwLKvP-h2CxLt{DTw2G9W5;Z^fi4
z%0D=mWw7p<&oU|UG~xRp<&NZ%-SS7=O9m|g(8TH{s%Mzn7mN|0e5IWpyr1fx=IDS<
zylZoPeBJr3Yi$J%*~_zKq7njAb79Cs&dYQ92{Xwn19gF70Tm)*=j>X*76><(zj-a{
z$w?R!a0!&}U4F=c191QsxFKIjSTXN@PY3t7CFMX(g!opYCea`|w-twO$vyLm4O5PI
zxw!AtOJ|CSQEedrk;5GqbZ^bH*{D?(TD)NSh+GfxA@f?v7KAJUp1949?$+AX+B3Fi
ze*^R1D>EnRX6ySr<9OhwFz_5L!jX7VP-S6ZktC?ea_!MycxrXq5G`*&gKHSquxX3>
z@#9Br?n?K$Eqk)Hi#HnO2nqjKbg-H$y}#`U2Zsz;iYJyV+Oqo#>{tcDP-7cOHN%x*
zG}>OEoKjurv@rC&`qde-sCn<Bw6ruvl12ZgYT{k7TL{mQ`Kg2A_7%xj(vL*w*yGT?
zpO%jQvRJmh04xG)QuZxivB|)q#S;4wQK<(mW<3{69k!JQ#unnSoTa;<rx#tndkh%u
z7y{EtZM&BDfs=2R=gE>vB42yef7K*I3(1xOq0O&#9-jBu_tKp`_oDvuTMvkUvSeSN
zX(V5A-jgN{oT9Ek^mvx1%V9qCs&8Ocu9R1vE;gNQKKboU%gbiAgDYa>!A0!~7h57g
zi}OrYg80&9+e8x|!IeDFl`QklwxHeIJCqzQbi8UH{qPcqIK$d#PeLRG!DP~&&u=_l
zAHK3fkltxh?yEV(`HYdb{6Gn3oxLg#C>YGie5W@2i*aT1w&J!XJOhf^C!K7skRO|a
zGy0)6=k^C19WK<c#QC#_P*Rb(0s(7JPG6N43OH2orouZ;#wjy{FH)8%18HCgs`5;w
z$n-az22nOBQp^(~GAcr)``RGl3*73y_gp%LU>;CC6G8-{rmUuB7$F$E*t~v4%*(8`
z`80rP%;VihH)_y>jl8{XlY}p!5*yS;Z(vhvo13Zd;@Nqn6+cHImhnV5(t|S?yw=pB
z2ltoM04E(4$r`Y!TG9K)Cnl1{E)_FXEk4yLIl6yhif__ZXdVpu`w<)L)Oi%|68T}k
z6;s=Wv2niHFIH{}c0`Io-Qo0<hQQh%hUY{INl)<ctb=uombyyqSq3Oo3Eb-YqOWja
zM3B(aYU1c0yUiF+n{|8%6%70)qMmnO0bHQbbMqDYJ*;X#L{^ssQ49N2-TH^9;*zsB
zZ{ED7j3)W}FAd_zrC`QEMen(b_8t2A`f8$QrJtQR6yda~r)bFx+@pED(oXA<);MAZ
zEzFFnAh~2>pX}-pe`o;@kZL9DX0|@Jte1qxKJ0EtOBrz1Em5Rt$u?_5{ACQCXWvpU
z*il67f~d#Jb_5Stk$a;q;jaUM<-y2Me(E6Q1XTWDz>$#W&krW3pE+}z-}dK=Ib>2P
z@L(Q{6W?^a{bS7t8BYU%fvF)yE&GcqNBJ9d_K9|f(I6DkG&&x~jvwd2-JO68n^A!?
z%y9L`vK2@`j^10*(b0RGMp;wxuX)jnnnG(MPX!A*Oh1Flp+@fM?v{cf@og>ydSk{Q
zc)HfNg|`f64dJQkMU_lIfxWCtu;+)#gm{qT0Q9@IGzk7re`xu)ufRkwRS0v1MeoO*
z6L`A8k&%&y$L8BP0H;S?-2L{0QEke%OFzcUoH_&r_5^4Ky>F@7Ohe3{b9Rp`(IIvE
zT!)Dw@kt*`F$gpUFYaexKlYQNQD^EwWYB|=k*NHj&ttC=1Ot&NGs6j|U6b>`mr(I`
zccQlMhtmK|!af~or!Pp)pMfm3P4kBN$im~<kZ6q-kRI=Q*i`r(JMVi-Ahbcm5frjQ
z?}9EkP;oDULj}GMhTQlJo12Ezk8QkTzs!pX2E{p)D*>0ae&J<6O&gz6+}zxroG~H_
zsMbyrd@W&gi&Kd4QZmJRYPT>yL;mh6e(3I4<}zM>^oXEfOS3gLeLu>=<7wU?m;xUa
z7inY}H|;WadSUJU0pz6-V-Vuv{o{ckU53fTFV+?=F2SNG?&X5oUk@)Y9kxDzyJIKr
z4mGJUWG1B%&y($csp^YsRylQ?@%;qf+hGxQEr*Ts%Xwf4KZ8TMp`3VGn<#P2Ei616
z$-Je{1p;yXkYkLbP!hOhd`6l1eq@HwfGW&dve>$98GHf)^dRK~uziN{rb4}ue);Dn
z)-TZ0o)KK%=p63t^G6>Bcl8;k@Tm$9LJZX__1Lcmvs6FIaq+@%eAs88o=>97V>@<J
zQ|p)TfrEZxB?9|s1LtfZ8D0+8n-_lu03C)%p<efKi9KxRck-Pe>ZH_#n*yPF$Rule
z*e|`W+NXoZnDxlp<jZsZGvv5O>&?VJqywfHE#Zl;8|iuZkS?tvQL{kcY7m~8=#OO$
zb`_r)R@pm^`*e;-Ki@aTsnocB6ikf!^CHNK+Vs%fIOHF?bc?hy96Iz4{KyNjgN4@(
z-dq4NzLu^G0@@9KuzXwWKA|$<_LV~FU6)J`(jcx-4g8{dgcp%1$WG<&Wfv<4`ua8;
zS5P8qDTuGS-}WI?8?`%5Tq4gAB0!es*<)rcdt^Ev*gGQPt|9+4>u7ClmCsgVMD2MX
zfwIHf`1b5kTPE?z952vfaQ<#n9YF4soXYtQb;Ez#w&;lDfkq9R(9DrQE$7E?gllVR
z5{FSuX<gSa(DA)aApL4*R_=Gurx)alX28N)zs)7=0H`Z=RllwZ6`aZVPzT%Ju7&9p
zxtFs&HIf{>gzS)cCAH`hLXzw0eGxC8t7e-ffrZ<?pNlbKobus0Z;|;}f<rMMwt;L+
zh_QE*Q#A6j5Uf?Sd&&zS*fiX`_6}t2(nR=5-Eek?=AnheL|Z(}I>0Sbj9y$g>Yum6
z09`lQ*r8619_D_%AQjAWtn-<d2!b#nMZ33Z(tH9x&TBK$>iYCh{hnnVnFqmsA6MiS
z_cmx3KNy5<Y<pe`1SFY|lV-{&4<r&D0DJ1;X-T!3eX#Y|my=Rwv5T-VlU}qO(8;hJ
zyGDxn^7=G3mfoecR1)}k1`M%;XnaEmVO9mW^INWCpIW9N)ueKFd=2p1Fg&HpqbtiC
zH<m&LtZIPe-9404+eranEO#H3RwO7!(-x35u%~UHt@zN$4y9$=se4k4qqj~$`^)5g
z9kR0Cs!MD<$2za=P#HrwL}}h_XHS7)Q-aI=+v8rAZhL1GF=Pi^{)qUIS6gFH05v@O
z!IA&-?8jTG#e`EkS|(hxf0$L0anvET2kyNFVh35T{Xl4PcQ<YqVB_4d%lL8(C}jg!
zZkUdooBUN5nSUepeYX?gaGLB)I*mG#7YoG&4TF;)Bpzd5LEp<TX=&I-D^T|-<Rr&;
zw!5W%Nnn$w$e-8k5V{KT#1PnEZrIF4t(UL&szl4(Mxy%E!^w`uO_YLh1Zb#*bWEfK
zG0PAg@u^NWBO%R{?2p59g4RF&x`H^p0IE2{e#gA&<0+NPmv8ic2{i(JVG7E|1KPAk
zt|ccpsI&(U2p?gh(?;?;@>7I6z0bkAxDb6j7?0XP9;o-x@c-*Uvm*TVOj&W1!nPLX
z<`s34!^Jy9w_WZ4JoyCOT?!%M5^9!9>gvydPdx29Z*Tepqk?4X5dB9y!(VrXZEb=(
z1F-{8mca>3bi$pQgR*&o@Q0oE-7n&3`*D8BtW1mWx~Bm+b0MR@8N|^eNl0)>$J7$b
z=0PXi><E9rA@3Mu5oibyn~LeuUFP5(y2o~47-EYu3YGq<aI@r`ej4O<DTI#CASO%*
zp4lmyf!6c|Pen7INM#_$NkTw|^7a^6C>q<gAC|!r#JNB9<G!fY!bYROn*6eti*r>j
z@B%;>+?gRYMwjm+LRb`27ewJ54ia(79qcG7`t>HK4o1U05sio555N-A1TrbeD<QFQ
zqEXY~vzyCUcS%(H=mE3*oj)B#?ZzYVw#z!vQbE@??w~V9DSH(QrH@QPx_I#fu|UMd
z+2Meln~tXJwVdws?A<w%tA&S2&>@7TK!7VEq7$!O9uF*9pMUoymktP8ZX&h6zqdJB
zB}FqD5mGs&146;qZTn8VMF1%Vd3+*bn&3OEmOOiD2q*sRhkd&v+_%O15%%-o6S_EN
z;(DB$C^{_(uhtPYL^KB<Qa^>*7xGj*p0I%9>@W5J{u6OQM!dndzs~U>esRUAWhe78
zR^a3Q?z=&;Kv)|Qs1t$hV$n2EO}Pob%Xf}wqVa2bbE^j|D6dZGHejXW&0Q2(Jf^Lu
zNHye?B6hgQ@p=l1t0xJQ;OU@xu<gN<>G``Kt>u+7G>iwsl!UA{1TxdZ`V@XK^-yVN
z=FZYTy)~WQ|6QZY<e#5XghXum-`%u>Ya_n?19roI?}}enQ@%A#OHc2!&U;0BKFZDA
zT>(TL<1tZDE$CBnUa@*ad4Z$JcnnPzblyiRcGgS5mu!AYdTDO}jN5%T43oi-Ncy6d
z$NRiGc<D19jK7~BBgs6k4I9ecT#R>j<M;U6Mwaz&d2<b84H~~gcx5?q<VdqN1%)i=
z9r<zl0yv62toQkYDOU!k=6l^EZn{j(f3E#u@XdB5CHQw67COgluX{Yk+dUl>e)2*8
zkelP^Ic@Djqv!l?dL|3JIe&p3AM-L=<CP~T@!*vxiEZ`k>p#*swfYwSiO=AFY-Rm-
zTfJELn%5}qL0bxp9aoGR603nBEPr;M0bxwEMk#?JsmnA{$x%<f@et;SUtd(w&5X9F
zUlRe&{cVNW*e((5C9hF{rd=Nu$Wi7k)vNy8(<KRfo7?f0Lm;kHU{<Vy%LocYdC%Al
z<Oq96o|z^seBg(rx%Iy&N=Zp&6tDK>xSA*M>HKWJRYseOa=t#_&H{E<w0<z-+3JTo
zWx*l#&%@%EkRiUmy}hoQl4|whSi~|(KOgKu!3vCe(f8MGBBVRwOVNYIr_%~<s;V|P
z&A2P7fB%@`bV)2eYvVPKYQi8lSQ}G`b|X|U%1A>Q#j9>%*DX7BJUFW<BMuWbIS8OW
zoabRABiOaAZLls9rgX90iNcd#&tV&Gdou!GPYv{ikS(4$@o-O@3xxVIdY9>BGDvg8
z)E;}-qj+=yOs7)1cf835(DNM!OtS?ms_WDNOns%7Zc_hP*zaF?GOK_Qo&!6fFy;%2
z+_yZFY2KVy*{=R7;X$yq=k&_rItp1O#Y(#Tl9fRrghbR45lC(y`^@jRIRn?9Svi#h
zV@Q(dHN&+rwFXNJkH3#GDgCWcKb$_=RG<;YP$VYk@o0~jpexrSVX`_u4X-E859qp|
zRVGx#LF=T^;8n~v%Am#4*FBoKP2WI4p(K~N;691G-2k5(%b;S!3|b&yCCKK1hXYn&
z!|~qoMeg+!zT<`Sm*=!x_70zjPwI78j-72kDK5B;SoG7pD#N?-mywOX2u(-{qp`yt
zrWxc{KBD6aCZ|K$3#f(fB)fZh)}!!X5vXHff(0Kz!#5JeabI7bIDbU&F?1G<jg9$6
z!rn=9t5Qu#G22vweBq_xOjA{rxAppZRjB%D3Dx|&4;)B<k?o={xCsByP};snhS9LD
z8;Pt*uC6X70!l;UjRX8}`!a?OsXv86)OUkL3%XPUEgnCUB6)p^jFgmz>6@;N1VM`n
z+#b>ihX(1Z6`X_>DgC6KE4O+V%eYDhOBQ5#_qfo<*Pe3cEM;Dd?PX@w@sQ%3Z{52>
z*)4cXV6i3C=-ecN4Nd$6Z*%f2+G+l#<<+AQUjDYa9cA0<9<7HBh9+<Z7OBVPe*%y!
zXT12G8Bjq)D;UAe+_|&zIdjB1kFZ7(Ee*{%7BT3dsssDOe4g+c5?@p?svhsiW41hI
z?F8oKxDiBj;epYWkdhMe^!amA`{MR)ZU<3yDO5md1;}7>X{H0WsZjyzDJ-~Fs8|vp
zYv+zvuu>gRW1}Qkb>fRr>FN3uMp%%f)@|JO6@JAC+CQKCd~f}=ZGZYwV;}!7=|KJc
zq5ql5?0+(l{_k(b{ja6?wF3XC4bT6z#{Uy*?B;1rVclaXKn2=(_ymiRv9YmF-;i^@
zl0Qnq0MLxRH-9=v@yurDRra}EW2CC;v8*^S{7?MrZ{IHS$5+q9tl0P#cXc-Z&4fI+
zF}YgloK@lZ7C9-YZ5<@Y_?v<C(1#_yoD)CN-P1F7E@{g}bY5Hk^+XW}<HkeTmuWrS
ze)Pl}5-q4I=@z9&+1aI$R;wvrmG&T^{R+M<yv<$*DKB{1(&uYB(`}+q6y`muaODhq
z-0+_MO<XsWbC`*lNO1A}f}lyR-ax{?y#Qjogibx>?EnD+mZ4V%<vtU+Cn2T**(&1T
zr45xw3)F&uKKwO2zXajNh{h^kKe%ckrVyzduJy~C#s6Q~hXi~2{{8#qyrRbm!MXVm
z!0lSxFjuMKf|iLVr+7fZ!kDsB{tl&cV>9noa@tDvy?S<Ilbk1de&eeLvSw}m?jTin
zb&RMVh<FIFEE}3qZC#?jhQjsx)wd^BxAXtWBeNvxFhfVz6T0HEXr=E<IxKcDK!BIe
z-M21|GV0h+>i3Zdc@q=bhWK;GR1=OqG*eM=&yvV%PW!%wEStnqqO4Z7i%OBz>zz!L
zq-x{`&hqR1%S&AqiHej@d%ZZH4)o-jYh(vibqQyeZ%di`G;ri!3NL!`w|{0Rh`71_
z$zG0o*8C}MW|`Oi$yGn)*8dq&(D~}Gf9d|Zu=8JLD0m<KuQ&d^nOy&CDgJ9${N4(0
zFKn>Sqeyrz>Y@n?RRJ-q0Mi$ST5~K|v<mZKzmFxl7C>3Hv+rDuM92H6*NooZN?ljv
zvU0#w)S};m&-mL5bb-X8wj{h1#(W{vEPpyb$#ddwjrI}JZ9V89bf*?6h>6`>yLPQ#
zP*9vko;A^!O4vVOQml`Wp*IWsbK(Pjx(nM@`m@HsaV-tLRxwJ#|9X1U^?eWS+`UVM
z+F<kUBNu%kNFRx*9qcn)#l&xEoOk}*OUw`OWvu0~8tWG4P$8^D#8(3|)tVHvjnHq}
zw8`Q1uHQeTNcGbC@lNdtSW=R&VMAiv*RNmKwxmFhxWMdK@a)+>r6kq*nt4;+GiT0>
z^t^q0`u@Fpwy%S0$n#s*HV<2~|NWh5&6<^kgP%G?{;5c7@>^h~P5gV$o=6H&`=$J4
z-j90eW9^+x`4>89Y`qJ4XD1voIJmamZ3O+5|6z1pJEV8Q+2G5A65M+}f3ilh0$)>w
z<xh|P>Lk>iY8%4+&TX1td;4_95!vyI05<aQuH#nx%oq2!v%mM=uxS(Px2iDirnT$V
zEse~)qaLGkGU^nbZ+L6uJF{W^dOx?KhxvQguA%6><V^cBSDpP*n9vo-ZVDJkf@um)
zW`TH8uIks9ii&e*XO8A;Jm^Skql@|(II!m%yUvn+?)bZqlP@D`%G<LN-ft8g9_GTY
zhmW<mHu78|uAJyYz{7>X{vYoJuy#UKGJ1rDp;74A6whTw!m_2c4ErW0xmuq(sF@sV
zxrLHa`D$mTRyEWLbX0SwC<@$v@F2Hn?T}f~f}NAXng+rR5kN1jk4@6bN`(djKc9E=
zW@bMJW^Oe4S8{RJ6yPGwqhlN<Mf&sY?-xDX<>&8QKe{ZubMM|GgU#K+@ORti1pAi7
zJ5jt%`pB_PvzCX~Y2Fe>X(eo=I`9Y##V3SDI<SF-M)PdPB05%zOL#8LxX{s3KI{-}
zSM&d@XR#?CIo)|G+*WJX!Gk|2ZP6X68yp?Tn&#!>&s3$gU+!{HP!QMB_bKiZC%!I)
ztH#upJKPPNopP`|e}3@Id`h4#P2qmZO{3eHm|+a1beS)xUs;PQSt9cu+ksr=s^-(N
zBq$)*+6H|!_@r4fKuG@^ia(omc59J@NXiZyP}=dZMp-E7tnOFmO0%pRCoU-vjZy@4
z0HYBZqdWd-T_s^U8yBx_7@g`eMFmLs!`^HBd0`cY@=vte$-@-n!w7L%2DNfU`mpHA
zoDB2`vYtQTxFo)qN;%fHlY^p<#nc9kF8%%)Mdyyi!<|W2(xahs_7S__*H>rsIF9M+
z;d{aJe@TkHLibZoPft~tAfbt`f2adC<)hub0foBNcrPj8;h&{YFB^9~iOC(1>6O9F
z)W1Bp$)qVwoanbQ`2AXn7j@}EowR6J{9&EPXaKvCVPkSATr%;5<%ybIJ=I=d^*5O_
zkMFRBuQmb_#t{6F3Xo`-NDxcvAMIpNgbR3SD#fK9`gLO1>J$VD3EIkank1Ycv}P?w
zg7PK?v+O=1B^$)0%SfVk{CRtI7y^{<n{s@AJ}6?>X4@1Mxb_I<156)elu!g(29m(d
zPFFami4Xh5C%`c}D8Kruw<&(MZ$sEloRB4E>L9XOVkrs`l2}xdpF_3gHK<`!!l)bw
zLDi5E`z!^_l&`G5wlm#S^{qnz)Ci-+*)a(T33*G)jD=~A!r5OffA_ag5fh5oEB>tO
z+?&BQDF(qHkOS%9t$~ihR<@xLm-x!nl|m!mRu1c^K)lMVJwHU_@am_`-V53LGYq+E
zG=IV?UL_?NeBlj@<nWD@@Mjr>?=uD_k{F!v??@;1=(k`Zq3ae2tpOiorX2L=V!0)F
zI$@I~{49hQZVMI5_s2)WzCy2K{MD4kXV#ur8zW-`<=*YlqbH0AP(wIlUn~4s+j?MD
zSYa;b`jc>uZV34B0@{gc>ebttkdQ%!<(lo-yt$gNiNhZqkD*j^UboQroaYUd^vW*X
zKjfqg_RTP6dEh|#_hiA*MD%kJ!&0dB?CGsO)tC+XG@ya-c2T$%abK!!VcPRpdtW>I
z8VX0ZzBQw0i>IF%OVuu(tW%JQgNP(fLxv=q9shgSi^O*1zrh+Nvp_jU7~dwWH&b*f
zVE<uKPZTkI0*7Dz^5x5~O9>WOT<O>C$j)DX^IW3PvbsgrHqyH3=7tTe8Ak8cxpt%q
zbqd>0GHb>BTEWh}KRYC;r>?)(GYjnU*)U_R-1kJ*EN~5lNZGh|>0dUhOVin(>bN0=
zQKP`V-svDs@Jfu?eS<&QeU`pb<ySD$t?-k>UgkkR{@Ruu^dhZo%b2L59QY>=I#-Un
z+Ti+O6gc;A@3-aGWpozwge~L$@hdo-BRx=z_IxXZ^JJul7)hc*x%$9o*(%qy!!+~8
z8v>rz)dkq+a=g(QFPKoddaV>ix^{0J(CoOfolf@W&j;GQ&422RC!%;Ui&Fd>Z*DHG
zEyn1fYAxHjbLYSP{A}#tksi2b*0#_KT7PnKBpTHI?dPMxYi10{WQ#F`yz4W!U=K=U
zC!{UnYcZg2jTut%o?W{RlZY<qDRhsO^L$os!H!meyy(XWS!R$hOXL!>9Eh)<YKU4`
zziN2w+g#}Q%_E6vOK7$<fZJ$(y2UIL9Rlb*kbshWE877(kcy7Z)QbPti(mK=b5Y;{
zB90(=35+NqyAh$Gz}^b`orQ}_9#a!uKm<;JhTi(MjOP+DhY909;?&{LFk-D}{itDV
zoQS9gzvO^p3o!`II!^=oFTbf7-WdM_KHx3FHkvwXPbyp`ZEHp^UICbGbiKzgl2G@{
zgMObdUcpd=c<6jga=%GP<|tT4iBT#B)e+(+TWzL)T*)+Ul80HR>Xrivc+~e(<wwIW
z`oa|x3*k9$^yId4X8B_eMsfz|;5?Lo&-?UCGRqLI4{lTN1-FOsujFB&VXbGJw?oRu
zsq&j(jUZtf7-Lyje$ifpfZ~Tc$U*vH$Krk`w$sN5kr88k(2}PDnDhBoxIr+6q1=TB
zD;e5|A#5VKj&o_4#{uyb&X!kj1sS2$f6HHQI0Yc@`x8(SQykL1CfK?Qo}^e*eVo|&
zSs4weY+8ltFdYj(%!O2OJvf?hIU)a67O4C#YhC>b#~#8D8K#T??S1?sk_e|T!eK$P
z%sP@&Q%}q|-M)Q0UOgubD((vm2j~^Z(%u&g)584BXbOSE;k&16RBFwUvxKYcr}gI3
zkKY`l-vH?PofuC+44TL^s67ucoM{y{FzF#|`$mc`cJ08D!wp7~2l6mqpLieE@*Sj_
zdz*J}sZTj&k*Cg%mW8I_X`z-+n3{p-&8m`|-z9?4HbiqZ0KF1g#xdzE8u4tfNk5$E
z#-BK70p*AW9h5|~@z<}i;^N|iM8HMo)x?i<vknoWS3piqZp-%V_2{sTBiahkHzgV7
zl-#j(2L2Kn_|S-W|MTa~sqfY2(0KZ(nlO(cF`{^Q!U*SZv6C|vs3Gyn(^myY7y9hE
z%(SWc)G6-2QzfQFQc!df&JkiR2%Il6I5jz4%NV*R;fsC`cgL3*cxPU-c6C@GWT6z7
zEx8HWoN*`=2$jb4w4i9a;$b)y6yR7OdWw-ArB#yE(a0X5=`hSIe&IsL-=_eri6Me8
zd&KB{c^-!i#R}YjUE7E$VXuJFI&Nxn1BmK<+6OZW;glz4H2I^29EK(%xFrA?f?;X(
zHyUno=werYBa2pu>U_HiKa3;+U_g(gl3`O?6k21a4tyy~p?8?BN~t<?W+3^*gnh)R
zfwj!rR>_b~72v|dBy_Q=CC{8Rs1ftEoS!rx+G#teLgxmX(qkA6VD+M#d2KlIejc7z
zLeIlZkRi&U>&UONPu|`>m*|8?6F_UKe+dk&@x(ws(`+Mjr%6akKE<zqM1wJ85`B;z
zsWLx51#uG)8}DKS-$}0hR6LFbjz5q7mxH=`dhys87@Z&=mg#knUmj+nM)>W}pl;b$
zK?Q+B#&?n!or31Er;Nm?x@d!VI1qdzv5m`t%d5iC8FV(3L1tjek7{7;&-JSW&`(x8
zt|yF;xq9tgP*q~xkCBLUMr;-QZTRuYA!7O;W^;5^3lVb)7@g1=L)WNR-+JG_;PYD;
z7V9x150SO}#5Pn?2`F@lMkE%+*iO^%fPiRVa_kVuGbvi4_a8p2#BXib5QirIU^v{N
z6L!2=P|vj_!Fs5S@-)M!k)4RQhYlU$+IFt1tBcsSu*XE<jNE{e!>)k_W2=DFh(VS3
zjh8Q9+W&Z6#)HX(q#BsUEHbJngWMhDa^HUmp-=d-q4V*st+t`kF+}?ej$r~85qB0w
zJlM`1zc%&hTOZ2MWOSH;VZxXj?XO@cV=?`}HxhW&5ZP=9{iT4TNvLCq0U2{&CR#d{
zmF2tEY9{ovCt^#H<O>)2HAnG;eHn=<Rf@n}!b5~V57I3$EfPoabLMCC6*H4?(Mn-G
zQbAlyjj7geUDx<VA~FsF^3l~R?o<APfq)c3a);NLp#cQ%90mXWAnc7_2_T7pLUcL5
zrT=x+uHCcHmYGQYEJ_vG8nEq6!o7G5nlyAlqIC(p>rqk-aBv-_4w$sQ;jCH)I1h+C
z>tfa6ma`S(UZhc064MZ{ry_`nkwhPM*aC(ArcX_WB9Er2Y!*c$5<k1O^^%PBS4YHU
zp|bM!((Xo-(g+m{q#8iI-dh@BY37>0*7<b8CMikDTEgNEgpg+jRXqqBD7v%rYC_C!
zDDv?Tj<YYCbb93$5G)V}RADS_K+A$(aB%zuIy*7U&uTn}VM7Sr1G#D34vRRodvh8h
zzGz&=Gq1yG=fz|UHk@oN$Fcj2#~2yKh{2`jz3Gw&c+nEhZ*ksN5sU0S@R3p!Hptu5
zPb>sN?b;D*a)d?`Gz)Su4o~gyLW3%QiW1JjJ)l5z>kL!cyo!h*gjizgr?SlN>wS{&
z<jLPrF)@{0H}}N35WDkc*I5F-1FND@Ob)@y^hThtv-7*Fq|c#&i|^kfK;OXmCX`C#
zlt_$i{0!`YGgwbF%ELc~u$@DGvP?Z`f7oG12iP70kBq<RNI^wF0wl_552Stm;QoCo
zyTuUB)hkrvaYS?e2wFXspWXZosah4A97+jWvz-T-gU%Y@PQB&1u!FLEyVh{Fy=n1@
z)-u46oaswaQpayD;x15lh#{U5bLe=`Sq|2Ks7gloY}%{>84d7yy2du_6cXY56CQaQ
zl0Uuq%coD4W)J0d***22P_<&Gkhx6v^9U1Dj(2*>k>8$(o9P*Ngua%DyobGCqY-K5
z*0g3^(KI}27kx)yPd{9x@GNJ0u`D#?$krK?OV}Taa}!&IwGiN#`aW4YW0HZSFYLK5
zQDE5fNFyCFkydBOZqc}q1%9eGH|ZTFqcW0Szkbc45bd!r{X;3cq%G@Z>O_B8yu}*Z
z_v5bF2oNJWA)oc8h&jjjnj@loWWGweX-A<3F+YQtQ4`8<aiq-f8$7DwXlNoPRWXr>
zZY<D2A>>m{J=8}!*+yE|ZKCvJ1QL-UH237;3Apz(5s+A_OpXzy2{9Xm@O8IYAXzaT
zJ!*vb=(|ikB++=bmhfQvCTsj{iWY>C`VX+;!1(zUaMj$n>+hXAUm{*h<Yu|qH>K(F
zPal<*k!d8x?4WNFb5sWGykMMug?SHe%CPWtxMkpZ3Q~>7es1%OD$O&(7%FwxtWwU;
zZbFBM654ieTcDK8+`7fL|2G0=c0)gogfH6jYSl-pFis0EB}Nq}#mS4~tRq-H(2kXl
zl7LUCw#1#97)MfoO3Cia#4jjFAR2EY){$0_9tybQ4BWW*`STSgwlx{^5o5TtwY3S@
zX&yQQC-G2Ab_ya?Us$bP`Z3^Kgq?WUzr&p82M;>Inwx?&FbF3iwo~By_wPYDf?Oj8
z`4A=Z$wXVsw$Uf@I5@5=#Jtb<#l>yj96UUV)z#G?K#jv%G%wcRsbwJJ5jXHaoB7nK
z%Y-ABaS$`t6cO>vGgd0KmJgF)^7RF5!TX~hHWORn&dOOgPO~$Kr>I?zqFTcQfe{f+
zRPXi0zmIiq0)Q1Uk`L?EU-<Xp6!1HNUXAbs2ou-!>ydZv+_|3JLPblPM9fD8jFUfm
z_H39|dC|?TI{+9__>{hH+}Zz>gbL!C(R@M!^C~gul~^lGk2Nctiza|3%on`^qtE#*
zGVG@ee^C=~D5~L?#Kpu2gh^Dq)1w_O#T!0=sw0dfz(|rV7|o@Wu6GH)*XF!1Ov7{I
z3DJQOuawaLU1#3|_<D&@B8*uthTl?Of-6Q*9fQFI<eY&p!h!}!`(%Khco|`rAjTph
zP58E%s=(Mlj5z)E3^KgEyp*B!VS^{5ddF<pimsa<c`nH;OSlQGuHLrv)GF&8iRwA>
zMC0e-!-xI+{1juUbJg0gf&6`Zx`w$V6fa(Uw7~igioym+cLnNlgNj+kSAdf*=4N@z
z-zwC*6XE{ok?hs0FCvYoZ!q5uluF^;TfnB%64=gOY!>9b&A(~H*(^{y2*mJAyB-)r
zN69kD#d+cR4?8#Hk9%Y%{KNo;X0Ea#xvPRb<SO0cK~B3_SVBKF(CSVf7#!w0t_0&M
zsj)EGX{42(Lq%bnML99nm7=nd<p0<2`kglKrY6H~K8L)6-pAi$r?Wh~2jFiW;6Y3&
zhzEBxk0ygD{G-OzKShkpBAT~A>3L%giQ(LAlpMw-U^1gzC|DB=i=DCNcdbfY3?;^7
z6I>`75fahZN=CKVNK6GH$bU>(L4qis`F%29yn$&i8V`veb^<u+Ks^%N4AMs{b?sUT
zv&|XyZ$Ezgc#w5F7*byI$boSAh1wy)T?x!h%NKHqTkn%B#zPUko^4i*8Udc6Xa|I!
z#R)S-MbhIBxUO_7{USLiW}|T7Rc>x>EOqbG?>vi+gM<8-fPgAw-~i996ymybTiRi}
zzOu^OoqmZu21@Kx4d?dauVCAZ2A@&L9z;=$K$mKN@z*6#%;vyvW}CPE?a|lbe@KOY
zqZ<a8RX+&<Wjq8lh{iVG$k^D}5Kgw=ucnyI1O~fQTZeE!u&KixMJo>$(uhVktdS2R
zk%+cz%Rd&x{pa`dcaapZ62x?5C$#);$SN@Jb0b`KBzdR`bpZ6f%zs>Yi_(vOylcs`
zF|&C?m}Sv$c4f_)92vN$F3gPKq)0^kORX=7+kywb0S|(Sghc>ia*9F>sL)IAYc2%)
zGotgaTIlmWHJ*H!oJV?Kj2p-?KdFYW-ByOgmA=XzNF;qs>zcO-VaGmZ*g1XGED-J1
z<)B&+Ku3B27iV5;@5`aS*(P3(>Q-l!H1Jcsy=G1PzJuKa|I74ooQ=kL_P??B-ceC!
z-L`0Hn{#)IS=1I2Nd*DPW-Sm@az-UdR+40FZOnicNivE^ERdW*L?wfgO0o(iIY^ZJ
z<}U3%x8ED*jeGAnciex@H~Jf+0~Wv9zrEL9YtFgm`n-7j+SRL{C7g)pH+|F3Wf;`<
ziT~tw_wEl&4LZ7hwoE(I+DCqVT@vmOA143(82kC9Z};59F}b_(ycVBDp7UzTc5{4H
zl3Lwo<Kob4w0KGYwA4K3x8^__YMHEGaNb^6PIt=gKK|etr4--rSIb&>f1x<K<9ok(
z`!>S^)(U`mNGR%WLy@V@LSj1J&!7EU3qU@Fg$g03;N)m;Sk#YZSUEMdhLn32_0M)d
zwuUUumqRh~{88+%zaRG}=7P&aEz>HBqYE?{xi}yk-+!mzv)S)ZFrvTu>qpupm~Ob{
z?%n)zHN5nF2J*S6fY9FO&5rJ0xm84gpuSLESv1Y{<k%o}h#~E7C-(jP1E12kwetf^
zaX%BcFcwS#(RKt<dt$-5OYv_Q^*jAH)%*ZD5JY0`+Tt{>i3SKM=sdluyA)6`S|jP_
zI&>(RBjRtMDNpIyJafUUW}@AV!EGR<^A9@BCS~&A?+-pw{69eXdK2qb0z-OS-NkJ&
zhZZWvYonjf`N{=Qx-)$8NJnV@xqs;T-~_QxNZb?9JUW!!3a2*26cLB9*s0Xc&MN>A
zVx<4U-Sq8VWx>(SqajGbNsSmIqFqggwCfWW{fnVYrV1}^DHejcQAkEb<q2-&Y|T?q
z%7C!3Ye^9?WV6&KbIWhfR+z8<T!@S)=2MAxj^?R*OF%VUz4|h(bnobNpSTED-$P#8
ztR<4`Hf)F-V$a^K=fx9KD)cnCiW8amCFjYOi%Ing_2;%Vj-qx=lRmQJhk7*<*m483
ztnO2bR&9wS{#C@ql8}|-eJE4`{Gn*BK|dSYn)At}>){XA1#G_>=3S$35b7j*L@xY3
zVR+z36%9S!{f7^^>)N<@K%2pJMs@~h9|4Jj`$#ndU2Qi2Pyz-_jlrw|T|_z}NP3^n
zxdbtuv{=N{-crBC_^lQd!xbEAFttepF2iD7fteiNiURdrc5mR{zOx{2=i|`O?c?{m
zA+)?~n(^ne<*QcNxO6@a4%Ujzp<l2<_1W+8UNg5>dyZK?(70}IF33o|i4T^$w{Jg!
z|454yzdk*aGpNL@9QY82+fnnTHV|p{91r1%X5I@((VfQ!?)9$r$7;p-+-z;@9Y6Nn
z9Xdv08VnbN4=cy97R8^hHmzyeeETVeG8{)e>4Ci(zL?!M^!+f7o)Wo(2))%53_}ib
zDFE4}J;yCXyy9Ki^OB2avpDY-d@f1}ikMl>|01o)X!KLvr`lafw=Z>Kd7(dkNZ>M9
zR-Xl|Fs@Hs$hmSZN<gN1Cgk*;f(x9pPi?po>rMJ^2<_Z?YyH*zOR)%xvjM>I$yArJ
zsTLNMRMBT1`<s^n_~<$v9|B;lf360&Ps`@)H}S1u{Co<@qZbDMiufD=g>B3Eo7mFr
zgAuLjGy6Z`x8!Mg4jp;bqYhOpspD`}l1>NL?#5_EE+nb)Fl%^DvhYa7Z0r?)nj+5A
z>4a8?O<oLGYLwSdSk=IKAO$~#dn>Xi=GMGV_F68xqEPBjeMjXzsI`N2++LZ-YGx@#
zoC~Q#liu<f(@O;hh>HzL<Po)9y92zup2Kw($IBFz16gZyOM>ZKi~WvkBL=_S9<3pk
zx_|7=1sH;KDX%3n^pM!8wZV*ET6)HtXJAf~t@7h?8eC7jxj0w`KXP-h7&t==KF>!w
zpLXB!m;>nHi}zDZ78*F_xc`JCAPoFox<<y(?J2B<#Pr~CVi<wCR{=*BmF05?z?BxS
zW-qfWBY0O$<OPz%9y@-Vjg5`v42iy~@}x>+FDMwVqSD-lQ%}G&Eyr&sNn^I%80lF3
z0V-Re6^k?vBWF{#wM~b!$+ZIOAf%c55ZE9fqso!=q@xgk6?g&R2AJOdgr@E4J{4!X
zDtcL7P_Pq!*HhVtx`uG?C>EdqKMPirLG0N-eRQ>B*N`NwN{8UjfX6AuXQ3&`N38C3
zAOjv-MP_L+$bmDQhXn-$6p>jeBhuhDyrZ%0G*wK<Y+XESm-XwoOm_ds4F=sI)g>N^
zs4e9|dE7sA3eQgB0-^N;1Zvxyi8!AFKeDdtwd2CRgl;Pl=GDVyMdz`iB+bW7W{h+W
zy}p4!1c*;@4s4b0ySwM^*npFXRrc!79+oW+6qZNbpac+)z}2Mv3{j;HR#Smt9)|wJ
zTb1lUw8VFT@03C*ht@BW+#r<60G2OF8SBlt3g$8r6~GnPA0gBEfSj3Bk_3qd^E|n-
zqmAJqKGnhK2o1GVeqtwnArMQtu#Z36al(S+{iLlNNWC=xKJ+C~$6H<U(6&VDd2-T@
zUAHm~Zp!f1M8-MlgJ<N$N$oXW!p6)7rmsS>8{qn*$VpoVzmpUn(XA6;xDx6MbK5OS
zl0s&JSl$q)F~6zrFyi`ldDo8vvdskCEUgB~!)3Q>unp8IKxN|n)o|LORv{G<xcug>
zqq3(OF_o`D^0XE;5^CnX{QUCZ2?;6>dK8_omIX>|#1D-Cir7&w3fc>F3O@qMAKYdY
z9M4?}B=XV!Py=U4QfXo1^q^b>rviAi8Z{G<x8Qmu=391kBG^N)7Sn_&DGe6g0JDg)
zn_2~bCOWLWWLXUfelMa>21(O^o9(JT)GSHdIG0(wiv=;{l>(Q?h{F|N6QAx~kSzw|
z?9;@JhM4roc2tJsJw10JcyWEO?U$u1Hyk(u1_sZ;CnHZRfa`Sjme>ibI1X4#Im3cU
zcJnUaAOjA_O(FJ-hrFi~oLZ^1Y)r^zp#UaP$Z!tsfn)*m5eWQTL(<b$kZ*s}X?yi-
zdOz-<!j5EL-QoWLRmblk+XD=|i%Lvja2Jsx5bdZZfP&TG9Nkxx*Ghz@0g-~ZG5#p(
z^Yilw2StiPlyT{e5#iy6FczZ`k9vY*07FITkDrZ3ix~FLv)1XaLj4lxa3OdpYU^F3
z<OJy>heB>e!Fe1gG{#|WgMJqx9<bkQ!71<Fytx8Sg50S1i7QtkiOU?Z{H7g3;Mmfa
zRPgqTmRH;lNaj)sDM9Sf5e~f(+s4~Z0Y4FEC|2=q2-ZiqVLj9CY7PN6(e_;pLtmxN
zoH$GQz+p8cB;&`bh;bsZ7zQ~&jE8_48{?j~tGmLqEZB^S{`j$DkTDI-EM2xt4!O%A
z+rf+D3^wEfZ0O4Shn&0Tf#8dvw9YuN6%&AH%hnG{RY4`-h1v-%Y*I9I2uEdDb`atW
z;Cd=l03$dd>ta&1OLIGwoc{|!-IopMxwFU-cR1Gtocn8f&fdyfJu-oZKhQ1;sb8x!
zM#R8EUcogK1HVRKM*vSR*xK3#58L+$8?wcle^|3-O=uo~Cw!1jg5<p)soy^kFlXIi
z7P|X~lXw=$OEMnE3(z~@M^a^>8ujGp0y6<Z%})?WPV8hHOj;w5+7SC5qD2785sSG6
z2P>U!B>nQW_hs4d^)Y`D)7vfUMYCr2h+dIE-(zr_uDQ-PW3u63(!_z{*?B0P_naz0
zQePY4BB>l5>#c1B)LMMa0jG%(15=vElgzjGhshIlyNmX}2VVr5LedcZkYp0ha1cYi
zk{Yu>P5cv*yyZ=2>-CeOj=3%)?_<jNXRWDJlpE@BZTNQY?E3v$+(R3%qmAH#LE5#!
zQ}4swK@cQ@@ZVv#KZDCXRX1N9+tqsd`!!-~htO98I&4Q*gAhFg{-18_;%bV~3fIzz
z@Qx!2Fcy2|<E>Zq%=7(1rW2on*=E{l<Mbh&X!)%^t**q5F0x)Jsoo@`C78k4_)Khd
zoIzUSgPQ&Ol>!++Et=u<KpHcj8&54*|Au@YAf>a+{VoZA7tkJnL-qpuUUer-rA>Fd
za{u(cSfs?nzdjm}G>k=wX+AC=+a}4pmoEWN5nu?u>0wAX$P5moytT;xM=|FLp@|Bf
zuV3W(+(O6TBCUm)=<O!$SM1|cWG28qz%-1h#9wk>zI^$IhYSDLlx_`Mb@DorEF2aU
z`w#nL|09zunCT#wAqv_F=SN@Y9nTd%{{C}YdH3d=fG_+5feNHpyO=Yhea|vyZz?ie
z^kyeta&vKUF>*0HX`%bJ-+p@ry}%V%LV=j}AfX;4CY-y9o4=wBjK+avrm8IyZm7Gd
z#51<g$-<K%k&hdozwZFCG`L)Tp^9M3*>oHTnnKgCJ=7K?>8VQT+e2<G#IPK+-b{=Q
z*I8C^{*))bivI_8zU(&q57_+0$EyJOa8qIZ)IBN2{1#N;)Qo}s{x}H4mdZXCV3;)c
zHd<5K41CmmIp``0$B<5qTnX%5uEeAA@(3VdE~~BeNYWnlFa|L2<qzt8H#bEj8ck^i
z@v+?f%I(WV&7EUK*0(5mbsVK~R@e#1$dmB|2qT98<Pzu)$fO)m-Jqp*yrn54VJPGC
z%Kvz9-2F6z7|mhN=DY**2Jl3qX?Zi?fK02v4qC*%nSqg7GCYi|dp};FjR2F1!F?<|
zxf;e`G{T@EL`Y|*ZtKFULv0!(mKJ0SUji~&ftUtbS9V!sc%cl~as2j~N$n?lG?&ZF
zfs#6tX>&9k309W!@0gQC=0%_jz2sZ%%-y?7Nas^kieeRnRHX@$*9dJ1Q2=r}PD~%F
zv?Q1ljG7C@ZNOF%=NuTMoT0&^;&GVM*s^Z2vc`>WVB12z1U^7;%iO=ghJU=HTn0NX
z_zA|NA>AajWvBgpdo9WDpMHV<?G%9~h=h>JiBSZ|FZOh)**fCHX>{<EScXM<Byg<x
zsV>f|f+st*ia5*1ULy_I)GFK=J=a3uQ(pe$;Bh1k%D4i+DRC4W0LqM-?m1K<ME-=d
zwHmenF30D9fkmM@Y{<GE51LPJ!)-vO0BmC+10X$k85IujZyfDwR7QGcQE8Y|zjotB
zGIEPFFM#E;a+g3N&wv%a)x?k<9#b0V1@2TLAV8ebvi<D3SxJC2r<1&pS35VBP+5pl
z{e|l{ZHh*@jwmEpSoeD#dK3>~6qo{{&*MuQAmglq(KaWQ$gIdjH(aFg<A)#-LmjYi
z(IP??<4Y`@b6u;`a&zsd#*-KONR}u5j4p@mcNFITkGJVusOSNU5ell0)Zj?yRNZH6
z)Zw59@}v`~RsX9o#{HqDy%jpi{>=5NVA!;Sr{1hRJw_va-q1x&qmVd`Oo4%H4quS@
zhvt?pRNh3?LWp3U%BGuOWo3~L*MWi`1^Rvk;uz$$UdRQ2l^_dLC${s*QHw{PokQ76
z@;k46@*@K-bLs$66o3m6G6RXuS-4;oTepzuDR9L707MXF&~9??0g#0`eg;urkkzxv
z5<eXR9UGy~h#f(T^OUI*c6$GVTr!yfVNntL-*V*OisP`ps7ARA{|pUc=|u8R6m4Om
z{prV171W^m>uix05Q2S#9Pn=elzZ5IvbahV;D~+b((46i`fYhH0gx0VhQEk)bS_31
z5Pbp&oEL`nL&|dPcFW~zEFb4ckr`B|gk6IfM##avp1%%OzEkj6C+1%7@<L5>&|uhQ
z-XLp<A3^igc|xpw@Y1@mw5JrCteg`x;|HbOiAd%+ckV1`)bol&W;CvR0y`$KW60Vo
z7MCM=hgB&~K4z}x{*nsA@m#n_Yl@p&Kw#9zjwkVELZ|7*#@rE`jn1Wxx{+lz;|^IX
zN*63zlsPT|?6ByYz`iCi=NWdVFL&o_*}ZF2{LYhf%G9r|b??idZ=)T2K4rN}*}P@-
zd))b^-0&$rL;&;LIOYkEvks<_looEy;hbet^f!mfji<czXCq&QMA!m0*Hv^-T^1XP
zt5KD&1&1*jfwmiww+8>$=$s`n4+z^R<b#DyA9k-j_y0l6wfM2_WD1EkY{{Q0-6^o2
z9STf#Tu1;($baDcPMH7kKIEy$ig7p^@?7#@2G~4~9?P<=x<78FwaP?t4Y;3t(rWRM
zM=J^j)1iSR?2E&~ofpH2u_GioqxZa@4z2_Sx>?9f;nb<yuyUM7We5topmuNm9B0+%
zO2(HFX#qN^*g(x8dHH?lhp15cqlqAiET~kg@hz=jJY&}+v}4Cn5Q38!IN+#XE9iI}
zA4-J&kjSm;KE8Onq)(m{I91XRP3CJ5ZVe@v4C+P$_dWDW8&F`f)SzUR0zMe@<Sy-_
zKk!7K37E&kMn>*++tM{Lw)cf0IGs!Qc_j@EjipL=stE7(!VsP0GX|nUwjtoFacY{?
z`C(#GnR8vw46zIXGcGFnTHBBP02N>Hfiu8mR*e%a)(^%gcV<i-uzN^t7RB)<GoHns
zZ7Y29X6?sWBxP5(?bpiw*locI2b8PJ55uzVZ1qUj1J(Sz@1>SifV6SO`rD?J2K12y
z^|wK8@&gVge}V-86O`;58XA_FxZnmKPiQtv`?tmpC(&w~3+Rf4sdGpGE&KjfF&2?;
z1O;YOAvxw?;5-c);k|7L!9l;IBrL`LUm`&WIJ#SMvN(#nth!07Ihj;|H{OK^Kyt8L
zNS;WsL5iw^&yP4rG6DPDm;b}lEYw~|$HpP!!k*&=8=?H6J>MnmLsYPKV}MybiNoo}
z+n0V;65wFcP;`VFua{Ow5<`To1mA#erYJ=dZfF8f<>I=2{F9oGS*WO3XWEvd>1tr|
zxh0N5ag@8aAiFBXI~$uXgjgOCsvl)+70?83Dgic$)&@t*yJm#-3SPaGJ}Qu{xsVdN
zz*_~1V1xx^iT3!ZmhvYoJ?0HL5A%}wN4l=c|0FD~T0&}`p&{o}&=_vJd+!-O?!0wk
zl<zqKzYXF~Dgr6@F1Xewvx}3nTmLL;>5oL|&wiit8ufTg=!-w&c^+N(Cd6U@WbZ8m
z&_;ap{10Dy#$qR(>WQCI`19vyXvDmD;iAOI4L^1Zk*gRQA!#7v&4`}<RVwoT5Aa%p
zdJ5bxuo<o2cKtZLlpC%49+#V9(i`L!Fo=uCKH}QGeLM<tXFDZY;O0*C`kP*ICPWIZ
z84O?z=ZL~tA{7L=Y3fZ<H5wVHHJr}=2UHFfuoKJyn+m}=R9Z64Qn6&29^;rA@$Yvi
zWb*Nog!{dF*S2lG{n&V_XMeQK*RqZOR<KSXq@{b@x^-)LE%45QFaN^nPn|fC?hz#0
zF}J%!C+0T5-tlW-i+?gIxJz3T0otQBnfmC-vp!Dy+vd%ijsN`!=mTvk#3j7{<qY95
z#;-vTNB_5m6>eK>M8itJDCoc9WV}k(tt597Om8?ybwq}K{QGyVT)w;-FbNEc(UyWc
z`H;)3BUE?S1CYhIVLnZv&kB?VJR>Jr7K?awp@*<$-p>I_rl)Bg2CcAY#fC>aKe@qo
z0EiNEb{ORt__q$)-XA>?UUGnLh-EHHRkL(+oKENlg`FV=BBVYN#MAgrzJ~r8?#BKv
zApI~SsW7i^OwlM?#O;76{Boi*gjBxnFoYcVdopf}C%Q}|&BFA^Q7H~Q3vyPX%*Wv`
zPa=j!sL@|QMc}Qlk+s!Ay$E4MR5dVwY`UubLzn6vf|o!NTHLCTh6WMW4&k7R&6Asc
zz~z|R7X-Lmv3>Hsd_lRFrusEKG^c!^YivIM2(09;sGqzKE+8wEi=@8=E?afLYKX3m
z2u)FI?Na@5HSBf$H%4ujI`!$+YUoeTRzvYuh4?o@OdV;t-@hzJmg<l(2Br8vGFBDH
zSml4AoY}QzP!QY<@<@4Hlg(*J_6UxLWq~A?-k;vK3ff^caRJu1zQJLL_$1;qnY{a4
zFn7U$A(QJfCqF|{Lx3pM<TI^vGa(#Zpfbx-LVgHX0U4$s<Goy~R<p^>=Lbp+Sh76E
zno<;mU<-Qfr<km!`{|F9DaMCcu+%D;+}-(Ol+4ED=mIum7x%v0jQ`T>zy2t{baEvM
z#cBvY2-XbwX)`SIN!mIJ7_hye1;H4{MgjSiV#4K<m}n4%%A7Sgaqv^V##DRC;`j)i
zzNQR$s9oWEMthFE-Tv{qEz;ZmR9LN%sa>~MZH>mfGx#{3ef;<_8A+K7d5UADGBP)a
zF)$101<+zcWUF9*2qfNs5P}#weOtmcYGu0OLN)P=3JP8jU2gAcc+ocDB=v)dyO{EC
z&{)bO_}@xZ)C>xjEob}<{p}~aBA~$>*^)NUnx_r7O9p5HBJG5(waF<2gdny*RAQ-H
zoS=F2h7uMQQ!-G4MXMxScAv6ryp{G+N3*rH%j)Y#<?oZri`_Qzp8~{Lc2FOx>lVyY
zBZ?a$d<+J*qESg5lgI?B$bjv?MOgweVS@8QcUT9;%G}m5xMopPG+4~3SHG-I_t>wI
ze(@iHQ$wQO1CA)*D<|1?aC6X}Lz26{aNV-Jy1y~o2V%+>jGh2OhNoH_Y7jzbz?Ta1
z4Z+d+6Kr9wvL)yaLy<A@i%aWnnd8;R{=9kS+Wq9qPiy4%u6<F$m$*dd@yWqE^V^DE
z?Jas3S|oVja4cuz_U+XnHxDd1wsq0do7)3SToc<oa^@$>t5)%tR_`7kUwrPebhV(N
zXH#JNsC}^5xqu|6e&LSbfs6sif$>9vg8FcUFGFxq_nm-@Dunp91(@gBVG5Za{_Bg3
z3}NWMiclPS4mgiz_4P+G9$T9xl?(3kEu~)?#*fyEe7%~XQL#Sn``fxv=ONFKGEBV=
zfOJ6=S*Vedj8N0n<K5le7O$7?X-C6}$|X~vLRVHvP7h|oL(kC6tO61=OW443P-Vrw
zy{Ta^(kdDsH-tuXkK7o?kY3Z7G_ziuy(8BhFzbTGftt2|FmdI|l^Na9F%}Jm5xa`{
za>ON#fM8K+7-;gcpi!-M6H>4Mq#`1i>Se}`Nk}Ge5sRYJWug>H;L__?uu7C$a;EEC
z_51gaAQa8C&LE?asTS}-*2kBVhPGRt)0+<+944vt`otbL5wt{F%sWL@W$80H&t6R<
z^Q@S+c*`RXr(T_?xHvN>8STj`Urd)s<DeomWWR1$B{uj<1J3xWP&ebl<kZyzj;|8t
z(4Og5_SE&$D(s`Lw2zjRG#0AY^{m??&TjMZk{z6gL><VWJWA;(HW>#Mj=H&3cB_Tk
zAJu(RiiwVvQ&#px1$9_JKmag^6vUBfY`k;D=bZV9@01O~N$7_!K=;Dzt@O{x$E0AW
zjFd8+De=ZRZ)QxI)&zTTdY-Y}nFjfD;wdF5Hg7W<jPWTlG{M3u%_>OPKYktX-BP{5
z-cxq9Z7ckA96vADF2cWma{Kn}73hY<hS9(t4#rXA0ohTvj3q`_I$c_j-XOZ$taL+?
zv_w(wqvNYojW(1pH^QZo){Z}};wq&~zwOhK1Z;C!ZuJ87p@>~KOzmXlXuS|g!#vI<
zcc#zW07+RTCinJaW4%kAZZzJv`kE=xjXs9r@!av8hbY_;ez2{qt*xmvGP%gL)I9z3
zZPVG@@YC0hA1^RsED@(hEY600tP*Lg1>9j%XZue}PF^4|Qr<*BUNI)Pr@tn$-5a$D
z7xQm&Q1P~vMF#dee|vyMMj;xA8%_7lR-2+q=dmQmiBfH?uH&g{sRuzHD8{9Q36N12
zRNB|CU+XS@50m6sy-a=R&r3bANwQERGPgJm=4bS!HYOsnbePY6HCHQ4h15|$%ecSH
znx|{A<oBbXRfEt<B?PIg0{D@%*NhsU=;&xcm)4eVu1~M5;3n7G2xm%43RR+)EsIau
zJwr`V(Hqu&?dWyTl$ibI(IJ#KQ7#p-zb4TQqQ!WNoUQby;d{CvMoO#sCBI>k6fxN~
zi6Bu+y_L2601I`Xk*X44K_G4dCR~#$unbSgw6tdH>t8cz<ZKp2MFjgdG&D@Zc+wo`
zVSPgk^a2sM36J;O%6*oZr2Mh&NG;i&&3d3T>~J23VEC(tP0%wqWE`7t3SNW$y~)+G
z6O)X*U=jmrYfVq@1s`Na)5X!yp!<u;6`&0$h{F#~oMY(ER#bB_H8oAeTo#iIrjPKK
zyE`r5KF*8`b1wm)9gM;7v48YrBAR+~kl_yj$K|uJuv?>-Pu|D=Osm%qsL&!**^w+$
z>~Gd1bx6($1L9B%x9)veu&N$sa`?^f=h|`Zi{WD1^wlvQlTK;6Fb0fKGrMDa#jdk~
ztdYE|@Gh7!s`Q!mAu?g*Pc|y{fSx)-(}nDO;$xviYMBLqUzx<|rveoalGnzW+9@e*
z9?`wcLT>E6!JG(EhYBTUuX!^raC+nH`*KicncA~@83p3WCShFjTbQ*6bc-GZLT-s)
zKzD?Cj7MP6;LU~0hww_ilGg(B%lDI0{1u0H=1nvA4`aHL0d)3Mi7kc15V!pEoo&G!
z^?1*XijC2+G2y<$Fl7Ajb=E}K3`0ImK$zXDTbxR=9btGR52LX!T{DG#-@A5^c)iiW
zY#bZ<IX;t8^jE2~&TS?_AsP-cKHuJ~WGoKpwNq+~eGj5=2bl@l7}$XaI7f3FOA67X
zn_4H|28J{>ftL3GKrc)#?Fp$m4a;&bsc`%ioA7Q^z2k7XB|`mkz)seFcw-Waw_2T-
z_;&Byb1*6UyrrU|qf3ys3?sVfq8D+ZWjvP=m#L(uIXAd^?h%J@Uvf3zcTe0Hn6HxT
zeozc9z2r4cAhY8$Yf4v8R18<()Wb})2@L9a0y|+_>+2mB^jN{pVkNFmnnPU=O*dl3
zAb_jZxCkY3lB{kc{nA68l7XGWkM7G_HD&454FirHqNQT(L}f}w<t3s$Ext-6FGl`2
zE(wHuPcoyAtSQ)2PaMw`>|%$3J66IA&X;J=24?#Q)EK}~+Rp}w2+V!=n0s;#_aFI!
z$R851bK7A|S_XC{C^IwDrZ$<grva<O`sNtGR08fG2$FG3ncIu$ETaO=_}~moYvl)p
zH`2q{PtGo8T8xr;^AjB|vmF&5gG|*_P2YQZm&9CqQHSNZon=bb*Q<VT1%fu!^sAS`
zOFQKdH8vi)a-OCOmfKI##o3jsI{>1an#pzsIK+wjXIwGD{rTw8MJUj;;xl}9QM-KC
zM_A1baA}^3SDY=8jL2?d_vQ_&R!~+>bC*uN`uTNu?))?3UA3koA=+p2wy~>saoW>|
zUb@Lkblvo>P|h5`zE9KAP)MOh$UAM$v1IW!#V$UPS^xl^95OO8<i&An$S~9~@1!bT
z``{@NZr@Tr(d%X<F2RrA&Ruvo95-30{35x+9?slXBVq>-mx=)1dP1QuxOmIeBN4H~
zVa^D`Uqf%LD&a|MqV30xq?x$#hWEZxr3>(W-_IlHIewpI6?Km_^|YHsMj(b$9>f9~
zJ9Tb6vWw-NaziU3I+~Nj5CWFt63VV-NFuk)MkSl^>E`lf)k&K>gEaoc2j0-?!uBlN
z9biHWbMJ1t#EGfXxubM*Jv4GuLh8^M)w8HGvRjI!{eRDfy)hIaITKaQQ0Md>f;qbN
zr2RZ4*Pq6l3wQnSXxSSnyZPB?qzzj7=f8mzq+hjHCsCw=lci1xRqjc?F@AG7uL`}3
z=O;hW_hVuZ<;G1lI(xPY)<7iYNB^hDm6Z7{DRpWwN!@r}l#jPWOj#ahp$7Y$OjM$C
zuPcR@UJ1z;c|0$68LPEuL@CAid8@v<Qsy#B<|CH#jJ=;+loz(9l<&MFLM(v)$bN7d
zc~ZWVBSKeGSa8_hy+0b0jvQV3qa}Ws)Q>X%{P`bH$Bmo6{h$Wcdi}7o2@U=E^#6SE
z|Ba7`=F&W3fD|(-KE4u1{0Yg<NDt(uO`Av%2(&2K=grIN7YeN&^}jI=@VeMAA}F<N
zARr)s>paV8@d&KN=b0-iD#CL63BY$<BzC3J`*XZ7CnTmyk5y?|`Dy(=XqHl|RBseR
zSDTxIK12B>OYnIku49KWYi<Ae9+6u7CypB!nV4wwC*$%*#50S1G37KeIy%N^lowtl
zUO=15N!xm>Wz62*A4@y(%&FJEhJU2H?R|ij^y=E+;c(?3dGYh+#+xNdCVruK@AzcO
zioOt{qzU(x@mH3CgsUrOQ<T-z)I<d2)I1fER;OmHn7M!!i>LPHeJWqR`M~z&T$(5L
zD<Kn{*Au7S#h3X8s!NiqO8I{17)=$lzcy1=7H9QqjtZiEol&8H;U!JYuhz%KorpYB
zjv?K68(TKEQCho^=8xsloKN9C{;E-?gz7x<{T7bCvZzhz(yj;wzW&0r!PR-CUpj(g
ztv2Q;l^a}_nfstlcRWSeyJVjE=2Pxl{1CzfBWi1FdD5;A-1qW4>!kP2Na@{uM}r4+
z`Pv8bTOfK1*Unpgr`XKMND2m?S5G?0<E8X4Rw^@dT0Oh|tV+Q{IMfQ092r>-2VQ%r
zDHtf})RpDs<vHC>y@B0oh>)6$=Pg#UqbK@IH*X5D6MN7<X-Z<w=v2VteNL17F{vh!
z9trb8JANHZ{fv=uYW>NeHJ<0@<`(p<Ew|2@oSf8R8(f7sq9m`P0ZY+GGcH?Pq&d0c
zqhlnq6)OA%Vw4y5g}-|@5`6t^B`FSuIFr|lD`FinsEgKKkkH*x<|qI8{^Sd!Nh|PK
zR6g{9U?gMSYc}g=!j@t)Y0HtCr}VI=*1Qij?K}nmNA+WHTc}&VTuk+;@zfnzl+LY9
zr&+Mte|};jwT2(1K%&!*Fk~|0Qu_OiZ4SK&$POgvd6HkB=nQ34I>j~ius)^JBxm<0
z83{*`!4hX}Uf--3mcIH1Z>{nC7Ca=$_q`z`CPAWc!!1_G`Y$=6{{^S~zdzzX-va*|
zLG!<t^FLosa$BE2grf;?sB6%I$s6e!4!PxF#c(+!O^0f0U7Q?%R2@LXVT*k+fcR)M
zGY*ECQ-#{0{xQ#GopR<~t=QC5!P;Akl`|j8R>!w$&+XRG)C|hc=}ciOrZJv_i07_V
zTB}+8>QB}4U4PgokRbcPeZ22WLj!m3ZTrb+Xc7&Mh`Qer%rr)r-bAsljJRng$LZ}e
z`KVEAeoLIPqGD~#{FbWU;t?^OrDsA)RQOc7RtCyz#^9fGx&tRV1)_v<QvXmLV%Jsd
zKW%@gL&4X$aw;_=El64XY?Oi#<J$XE*LnIjP;%UEq}{^cs3)$=MO)&JzG@up?&)z*
zd?kA2eP~Tx-EJxYNRWjnra#LygeIRZ-i{tBZ;Ooa>;P#uw=VI4C&3X<pYC8zPU2QE
zjE;%nN8Q3f)zQ%bRP}cRtTX=|u}>1hz4)sqgRWF;(Ya&&6c<8GTAROu(UtdtR!`r(
zd&g~3NggYz)-a5rY7itFw}_$?GR3Ny{?B9&|9uet^Mml;afR|vLic}XEm*m23=&&R
z=?np2c>tD2M@c4yR&4=5bvlR}oSN+9#y%3!r8sW@P?0a1jU^D9=y?u+#D~Gy8bC!T
z49tn-ean=Vke_~UXJ5W%B~f%N-4pl-87hIUDgYJu5{apwn4N_nh6@5G-3cwIRyeD6
zqI4cY`amp9s%vVzDxLZ*0W}^cSS1qJm4Y9)L*s6P2jT+~UKS{vR29ymUaanG{W|DV
z%51t?u#!sqW!2$}eqB%<mqCa6n1jrs$Vy=uH{FP<0_cI%i(4c805$Q$sm&?El`!6*
zaX>9_KCPBTX1({eKly43K+-NMI0t|HHo=Yw%&rUOumc{ON#`YB?naz~X4iZXGLXr0
zTHuXo=_cdY#~g+xCTHd4t1WJQ;t>A)*Y8!p48A7EJ2JU|;GMl=%zfQ<sfbaz0OPD;
zlmd!U8S7E))?hs7*^FN9=)ZQwv!N{`?&7W>^Gh-^>lA;6_!)*qQk9;Sf7NdcA|p2_
z*BWWKuUl*kM^ID13flQbBFgf}s99G6-qkOS-*Pn-)B{|b&!5v)1b8v8@9?UI&bZpf
zhAWg#ws`~3PHt<N#ng$58N=KYe@13x*tyOdz}xm_CH|(qnl@Av%6Qy88-+%6wraVL
zZ9XsW>729olct>cBt=^{W~gPL*k7pO@J8{tD!mc48AfX;BZ!{|l5&Qzw)$g$BJ@G$
z7gzij#e2VvqiVirExesF;FQ&}$k1j>=Gi$nK{M9PKt~8hfh3x-iK60^^T#LCuC9-K
ztIXAXdLK8&Yma-Jy&z@rxx=P!tZzQ|xxVMW$cuKpLUs6vBWjbN*sZylJtz(;V>Zs!
z*F2mv!M!=0{DE@h^vL}i*Xb#BQZ#~#mIfKjPOr`zQP$MVscPXxOW&vkDG!)HtyNq(
zALzhkf#5SVAVim3^My4d;^N{`4Dz8b_i2m?j7!0Mxl}EF`zeRKJ?aj9DV~ns3p0H#
z*>!5+L+Axwgt7p#LGt#hQ{yWzp!VqIX8w^B!Axe-9?A#@z7<y1+LMEn%RZvH{je(W
z<N(Ajqm-G;Ru1wfP;2gzQE~iMFfUB^(`OlKLx&Fu35l*^OKksGh%@%?SpU52^_)7z
z2W?YUdWX67Z%qCmjyt>Kn-=9pN#|_BvdmWic+?y&WJAnrTEPzxfuk5mJj2xbM^PD0
z4u@1Y87xHQgD;ETi%Q&*d4RV)IYMS)558q>=$5C-3$m$+I4ltgoJ<gv6#@(mPu!Or
z#Q?+uJY_}pfkdr9KSNUfqRk5FEKjo=6(6|XA>H57JBuJtN!=6VWgM5W8>8RL<*FeG
z3nus+TQmzL2pvXgEJP*n6<9$r4B2#oD%}Tt3zFy`CAFpxMz0K;N;tCW<<Llb#a96w
zgfRgm_;L&Q2yb520S%QN^*{Kd{GZ(Pe+3WtU%%0#<E-YL#B`Wf$aa)6AM#p5>eH^A
zH>pT#zwyheB3aQsh5DP5kz~+00TyWOS*<f>n9O*A6nDVv#9_a5iq<YUH!N8VQ^jS<
zHRISN9Y7+bX(k{XCemD{((rGEaxm3Q7>x{`9AHs2S0Q|oe@mK-iU<*QVzVYyI`u>A
zRLgi`@$LWx<XhCunszwvPH}GijC0%eQS900nJ-339FE9`xD!QQ5X3jOv~~jG2QZh}
zk-2^z1rPyly|c^?nz~_hHSMM%DZ@Ws!89kQ{bl|Fr3WJ)f$~mezq3-P>HW3HN4pw3
zHErtOUW;5~YE?OiF&cW<3e@Be-bgvsT9;#9mCXuD=&|VumJRCvL{S)>S+(%}ut{du
zi-~UKyoO10P92DbOOYniI52lX%QdDeYYe{!xU~zFhM=UF?w=c_z?q`uiNLP**=RD3
z5EP?_O(45ri+eFZPB0cHPTD&ORL)mSCz5&Q7Uu=Xz%XoH=;FONq88x~$Z4U3wypRv
zC*%JIc*4y}X^zj$l^|Q49Xt&FTD(!%Le~a3dvAK1d(6m!F8~K|A7uk*wL@zYL1Ph#
zcA)>ebYDbZVwD=1FeV0JnH?MvhQSx;BD9q}IjEBe4#EHsl6qGvh68<`hGe-C<9!|h
z2iHU6NhM)50O#><oBLiUI&H6{XfVL2trx=aHpeLOY_>QuinszeVb>~#qHd7W!`_a#
zBoPLiNM*NHSeFP%0#-pb4&eg973Lr$(Cnhw=LB0-eh9Fx8+Ae2oq>2W3=OgY{$3T-
z8y~^OGkf9)!<aS5Hh2NMiaa)nNCY*u173-XDhR|8i_QWO_{87eU(mO9)x0B9UO+W7
zs!qOlLc3AM7MJO7;9|A(8!$!BvQE`N4{>^{S_f1Ffz`62rhcvFK*@yhp}tv7xPvX<
zA6-np+T3WCWh#64^Iw7mX(%R`SmIK+T=-;76MCu__6J-|rwlrKXEHOVzT(#u16EIZ
z&2$+F+eYyCzPPB)%r8x8Az2mCTFRYbF%Daw^<V)4L1Ne;&++5{*H;48L-TXAeHvMb
zMtc8fo(3;L!(A*erIq)3Fs39))YeXBSoxxbNfM!-VG+T=eM3&J@6wi(<COQ#{U(!-
z00y=H^}FmD5Td!*pdBO%01g|%%V{Uj8!`51vFl*sXFA{8gK8zKdlsWN158s@p|T1O
zw60U-(u@Q70AXo8^cHX@x(h6w0|G*6)J2454#e<!%)+vF9*xmv8f#BA@Re#?mJ9eD
z)H#Jt+b0B-CLc%2DTlFM!W)1^HRVOiy$Jy!FWy=yGU6}tjBBi?yFXxE>ttP8A{Yp(
zcct9PaU$dDA1i~*72~<Af-5pteVBklNQ)TUMe3n)BvY#uG6N-^Ml@NDER1oO!MtLr
zxXkWop!gl4trN1Ku>%ka^@(Q_wgo?&xOiiOQ)AOw>?gho<@v!DN*_EPVZKQwh!Z5f
zUeoFV5mS@BF@aee!E#YGnSnM-C=HbxvYm=xg!BZpo@2jdNa>C{TWA2A0EwEs%wHr7
z=`}DuZ*)}ZVXJOc8&Fa=^=@+)<rVEqmX{by@X&)`sZY%eViaKrY!X42>f^=9AYw>`
z%Ms}lx~smn&i1v^IH32`#HRI8orSffENzQr*};i20|`%LX1F)?$mwL{j-_BAnn>{-
z@uQh?%Ds%*W+CK8!|Tpv_BWYdlDwX)m=pKjPNYZVM2A0^2j28gH+w<Q5E_k3Q#Ry-
ze82GI&DxAv_$Ou&Spkj1SHpse3-Au%w7^;sdKy%G@J<ggxq)Ug8|;2PTqtE=m<d~j
zTp4h!N%psQWOfT!j=XGql3kmdkdK<I=mJXL9`DGPpwAH-#V6`3o$JCIiGCu-an<2Z
zH}qbho8V>2;xBlejo~TD3?FqfzxIL#AdN{i$p}~YgB-<Zlxom$24_i?m_E>?$eE(8
zoNTV5_G_in-uaBDCHO|mt8h<kL1>a5waRxLefYN)AgpJ^%VCw08ARAr8te|!Do39a
zCC@M+`0T*9b7@N5L3X-*vuW}L7HzauO$iU}vg;H5207Ijcvw!D;kjX#*>e>*!r8d;
zG&9TpPV3dopGibB3yP1g7Ox@CPtyr^wlb-~qM!|WPqD>#Gn5$q9QBtU@MK25F6m>i
z^=<Z1dSkim{wwRqDbfT;j*L70hILm5N`zq(zr4(}5We1Y?KEwqxTO!YYdJbGg3TS<
zHnTWlm;kK*V?-nQ$_3-f=5vl;e*gK*%qeQ~bBI>R5JNK%%1!vfhIXmV5b*HBixm0+
z8$UhL>M}hNA=x*WDlzO=*$z%VUoH=)Xq?6YCA((-@g-`(v(uPLX>A*z`59qMdg#*L
zw0E0~x%p=xNhv4aheR8=AzDa`MxDdW%}Ep~Ods_j%nQ;7u}Rks=w0UB5YN>p#AAko
z1%jIgX1ELjqmaFt)te}t`tkAuiR$4PQTN9)XSHiude#K#z^#f!Y+h@7mvY<9DkS)7
zW&VB0vbcaGQ)#3kBVUd5o#L1C5juCgskFyc(<-Y!)0otEO^|G4Kv`q?*>(MHDv=tX
zqm~QzoALOz+akmKMMH?NM0!ICLL96_*j-!O9^T!zhBEDaBW*eEToxsU<7$CGk=9}b
ze>*-b&UM%b<-OkQXOWRD)kfvf%C_}uMbDvVvG%Rl)a0fO0+0&<U3+#e%+$oBj1Z_C
z6TU7JzJeVa1x-{SuF!7BnJYzG%uM(TQV}4RD#fKxAKn(GbU828pfy=#$gq{jv(R&C
ziF2=qT6JRFWo{g0U91w%$@g0ei=1D?cNJORt++;{I#?`Wz~P*lQXw_J_Y12eU`ujr
zn>{*?o37~Odd(UUQ~U^PHBj>ELws0H7}aHp_0}kze9xgDbprb!Xs7$(KhSP(Vurk=
z3Eg8qE+2S=mf`vQ(39`zIxZ44u~C;wqyz2}lbu+@x|TF@Vw?wWZA)I2_FfA^GF1Gr
zfGCss(W!n8Q<`qqT{R4I6D&b(8$=i=1S=zky$znD7c^p!Ts4|ZXtCdWq@`Or1%!l@
zxj&gg4+XJ{AACx;6IK&mY(Am`xZ_&%<4Z}ZffSCAr&;6U(VhJ>4J}S2$906I7AX|S
z=0XfUbm&k!bOIGv0WXZZ^$^D65K=zYg6HH1Z?cB_yNd+;E50EfF>(Kufj+AbH{Hag
z)P+D1t9SSXNkK{YAH$RP=FQC#Mwy_A#7vWL)Rx%E29SVk6f)Cr<?0u~>m(I7DK${Q
zh)uM65`9NM{v=sWLWz@Vg8&>vVez%`6c)2ROk&fPN-P!vsRs6GbHC(W<2#g#s`Fc9
zZE(KRoOc<4<`+gQ9Y3yO3<^ztW}PC&lg|8_#v|QwRWW)o_#_gKJaI>IleZ-~Q!UAJ
zy#<O{0W=t1t3z|cbmwWw5(G~<<Uu3?BOXk|&rQak4G`pkvabS_T;}tZ{-*e?^+Kjj
zPHAy*tV@dEF=SUjXkQ9ZM03x!V^yq``?32Hu6%eFc<tRrGOUwmu%vve4MzVWi^udx
zLJjG6;L@?&Z*JzvvN3deIcmFLyt|aKH?vS`$wkR!DI!xNH?j#5O2aExiby~qAPtEi
zL_?+<Lr*P1%x&OFA-4({p62OjJ1~kX@GFc1DoLe?8)iQw3ZJFsisH7;zmYn@uDVCv
z;^iC|T}TzuPp_D4tqN;L2d!4W7!cZXLzlKI-D}B0SS9ceo+;M^agdZQzM{@ukf2yV
zKe~tN{JmhCK9VzX<>4~My*5OS;6$OzbRoCO%k4lbRDElkG^bK_PU-6jHe3m-yO^lg
zo7fU7*Ws+)SUKVxWViL%OkD0{H;NLjJ;AomW;Az*GlOrjsUsCqpUXkY0~84RE|7!B
zl$s`2hU7la%oIT|lkSUA+<5;fKWYc&?;+n$$fCuJ)ElG%vcR#SU)_i}#T~+)9b|$4
zQNB*y<S_yt7Y1<4lUtpm7zc(Af!+imx6k>;5d(=&7fEJ8BQ=R?|AsKwY|GMs1_*Wy
z3Mwm?u52VC+lSjECH4efeZ9;<ZWf7-?9k^Ywmk8DVG>jIm8|tfV(*D}lqqdS$<oQQ
zv1&~&#GV=|+Ue1b0cG0s(X~f+RnFulhjcY(ei1n_B?j#cm4*#;+0T&2MIjg`7I}FH
zM=?~^AxNCk8@qd!+n0zh=1OfJ+(4vb0mC)5wJEb%2?+;bCNVIS$w`lj+E<CObdX)P
zGI0)NXgJ!_&8;(<xr46zb*p8BH1+-ZZHv?%;HD+wHDP==@<_T+=$TkbV4-54+(`5E
zMp8x!)&@qdPdpM+0;*YH&oWaR%}PCBlE-1_bbr7AHzAuuc`E<5t3;uMi2EFm0^c-!
zBHrQVuSDzGj}rGzT84;E_9e9PXvm6mJ@+1aX3}My@ND&Yo@$?7#pe1<`@Fc4Ttg4c
zh8CtyzG0l<vg;oYpE)~FtH{_PqOUjpi+8sxV?8S=F(GIWZU@|3ZqOVVpw*_d47}^h
zn&})xWa@Crc+0A^u#H>nwOC9&bRm3@aIoEO)Es@3!d9F02Z_AG^UT+CdP{9Qc=-g8
zYA{hIRYJ8|J$a~+T$I#AU{eMj;$uY+Qu}6n=q_8l1<Oew8q^7Mp8Moqa1XETCptMa
zfSS@)J3O`WMec=!O^5{ZckWvQAP@`J6f)sy^Fv2k52Oj^{715oNO^KVY&eh@d`L4x
zTiLobwu}UfO;^TT@5m{1Hw_q1`L#sF#2ru8E*1K-VF<DxCSKB6Q2azKXBHc6-nDOh
zOKcNvgn*Fg_B|wWA{^$Fjrg#~0;n<B8kU!~*SFLT?RJ)Uwe6@hWl(R>R%`c=iv>wm
z+LZcVniG#wJUEe6whfsjyj^E1%UCt<Rmp^wv=9luC}1s`t`!1|+9!-A9-=WK5ilaq
zLMlzH=^|1eS*V^+fCm9idNKNL0DoIf&?P{W25?C;l~~bDZVDpIK{Rj~NVX??05M+{
zEt@v2FJS<cJlZot#G!Dul}s5sr1J9OQDP|B0X?1_3w7yC_HV3Wo3geZD~F$fMZKOc
zN;oam?)=L{V+?n}ArhG(jC-2^Ia*wIDX&-D;ZtM$InCV~cRJa5jy^k*U_AO9Vb%n{
zrwq7*1#F8tK=vDL)o}rvp8@b{$YpL|PKFlF{;E#B39)&i;(D%UfLZ1~>>HchiE{I=
zM3sf|&3CKK$EVGo%?wD>fJLpMG81@>an78SgxGF!&C3ciy~y+u$cD=aAXbxzeRd^J
z4w6V9zquyRT(RVa=r8NQ3+)~1BW|;0STtbJm`C41gn$7Br<!0Lk^z@Rn8rOJcZRf#
zI#!0LgX`vmgoGlP$!bHpd!OjI7k5aEXVlHXilm3GvkU+tn|qiwvN+!1TI4m8TdZp?
z_@VpG!nYAhF_b}tRugwxD_Y`XlFUKwSr+ZM6Z^7-s5>FR?5Wj0Hyv3aacazxp;p_o
zEXcq*{)1JHkIo?wfErGtwcflD%01NaEm&KvxmM`XNMR+tvhd~eTdPDOl^1;@yB<nF
zI>Aj$XY(`VV8zw!y{H>edg6nJbMjeH45hp=)}z@f!x;(<ssS#BV&1IYDxOBNEqGye
ztpQxZPta5iLi?GANFs6Fs7t_$B7R8wt*?+QgO;cLq4hT<!8&F2(p4y=$<;!N+9uRx
zq-2KLClQNbfHbhw>FNpP&gdC`E5}w+bCatZ8-|YvxKNF#Vnqc%Uc6<3oli>hBp@Z@
z8LLBoz$|H*1ZIiW2zx5jg|F<C->oqRS$cs6<ho?QcmPRj$Q46G-UdLjDtvQC!nHQf
zcTOHRK6lWn^SuV@e>;Fl1byj1Awo3kNmw1Ge8{8%(HEhDH48tke+Bu=+n-~W_wLpC
zKcI~I4<yu8;uD||BoZ<}0EaLzVbtIB!wfr$^}4nx%!7`t%T%(7v#LuC^gOTO#GG+J
z+(*5>8|}Qh;nMq99STH7e)!sDAVJ|68_;PpUn}w@fRbcqThoaNjOVC{)AODF)HpN@
zbL0K|+DNyMu_hw<so>3f*7)VPbntPs?OFMn85g%@Wo~<>%=(25ma-BsE2d8k;=0pj
znvUwjKcz%bS<@RO;voWnAgkcRMkM#{+;rt!AQag<(7G36<>#dKYek!T-N*F}UfA=j
z#1_ADXxrSkZP>D<xCfk3WE7(&Yn;rgH7z7pv_26dW7IkyK#dCS^_0*x3$ow;lI%#n
z1gW;;m}EEV`GlJr3D07^ym`YPiSVcQn?ii;3xrDyPH;pT90<)OH_1kc%nUkF0t1pN
ziCo>WP}>P3uf^qbzAJI+`5%FWCnFQGf}rFzG%_j?Lbex+Oa#v;4Ljrm1c8KgCF@?s
zfp50yy(2k&iPo;(I;jM?lX8|4<;EXTz^GqoBX`yVqd`K1CE6LnGwmnLKj1~xwe069
z<*9^NHmmQJ)pfH6mwVzY-wJ1R6HJCAj(*|}Hd$ZI@!N?~npEmQ82i6;cP_V|n!=2M
z`U%9NKn{Yi5CLWYifo!LAeV`n2#MOLo)!q^_^`K;Uv8dg9&q+Wl9MFQSWS8F*_FRs
zyoe}`kxP<d0#}pz=WNs@7kiX9xz#VWN<}B_9@LcToK50bB%-g@#V-VcD2rPg=7Ax~
zT6Vh#bd!qma+%VKx5J(x(;Uc*>k*QZx?Th*Wd`z&$7s)RQY|1Of1#aMF|&aHCxLLR
zr9yTo60JOU39X)Cc$K#ZN<|7i8V6F>mSr6|Ks#t0xGU!TfpxzuHU4GN9hWtD$WZG@
zR}uojtyYp4Phc&4Wk5JYdyGhq<xIkz-GLGJMFgrP{T*!1fVEN3rdyXa>v)K#zOJ>(
z0ew3CWqsZm+Lo)Y=4mFnA${0S9Rei4gtbr)%@hLt6Z5q?FOe*tgKCBxm2|EMR{|Ry
z?$MqTp$?s!8#%|N*-;XF49TEJnyd@pAQ}gu6-e4dvRYLgHvv9450P7;lx}F9Du8*;
zj!5^)iS!h`c6y`<f#hs@@7}|;L#YDYRpiY_#l(~%(Pf<q_*7I_^h_YVt<TKycIy#B
ztwf~L?6;&CEvh2J-&4b5D!fz05YNdHCgN>_a^odr1#kA?YqnJv5}y&lyC^wUNRHH9
zgpeHQv1{2vO`DR@PtrJobCC84Y=>B&3H7)MEFo^!#b^R9M;_CyzN{Y#vXUckgFv0i
zPIAT(R0Nx?04CPxBJaAwa2CPwfsKhL`C@Qd=~L6ElJbh=*6juHa<KgoCz4%8qPj`K
z$=T1_W-nz_i#mi@zsnGV$c~t_!({Iw!8llGm09{F)Gi(xRv%8%8`XkQ+)WSp=9S^L
z^(9#?YjI(Wv*p^GUkTEmH7!6dv1@7>HYaXQB`E3xb=-w_gT-+PKzpISn?POBivTl!
z5~5%TId0(~6W8rP-^sWaY->g@f-L_Li<=`?+|!24m_8tQ8K}XAz2hBs0W~UDGp2hJ
zsD&W9#sQi5PZ5Z=+7l(pO6hT+(FK7Jb;0ccFiLA&-}M>@mPty$QH-9pEM53&ipy<`
zBqn;ko?f0_$o$J-dBuy7Dw%=LrwJ2Ot{0d7<-P@N2)hIApQX&@yy>CVTaml9@D1m|
zmW5s&0`fxdg(Qw7y;>XW=@3k6)aT|tgusr%Cj>oR%-mpivmTZ_GL_&ELudp5$&xV*
z*viM)*tjv!9OV*E9$_}?ERmk2RxlFdnB>%!QX%bjyc$rQl{Ge|Hnc^gJ2Fg3ZM=I+
zt5gsdti_C=gfA{_u0x-N>MTjZtZhXxHf_v;k<m^>^Jz5}h`mf4FdNs>5j6CPAse;n
zD+NWIGU}AmUb#ndq8Q-Ph@BWT49vJBm@uMWSG_WgaGG3!*X?pAYvWVR1_*@1NpA}i
zaR{OJPcXiKYml)6pv)z{7^<emuS2K?tEGHH4jIa2pbeo^t2#QcaI5efHl!WdcMb2L
zKq$c`==R!F%JkOWQ^G_a5xtCX7Fb<G2<5}t;SIqMV0z8X4$L`cG{Vq8!)|tZf{E~x
z5%@eC9W8NJonX9RFHE&V4yvu+P|}d#ei)Tp3AF^bDiZ;`R&71y$c0YC()Xl&ii2Ro
z4S_9u@0y0}+2Y)};?ghs?NQ$!1^S8L;_J}$-_Yof`(~9$XDCxP4-E;!xPuRY=}{tK
z6xDZV`2<q_9F#4FDLq|xpVhVa6{d++dQ0<Wa6lvd-68_b%A$nK0tS-O&}ig=?VLQC
zf2K4Emo`Ci&^1;f#kh`KAho_HC0qzb9(@cEEhf515?)&qn>%_(BTAq?Z?i1AsTMLt
zw4PL3oGeV=iS@RAH*p;(L5H;Vq+HMWwOg%`!|P$h6PM;J&Q1w3{RusLWoL!!xe-3e
ziNo<b+3h=@l7^sWky*oYVrdO+D1T&VtHf8tW;FyOWbb$Ck|rrwR+AmcT*w#8X#5@t
znf4*71v1)X<5|T~LbXz9IDOgJ<eHg0lpE|}RZICttW8Hh1@Rlm_6(5r&G4@-cr^8h
zS_T7WqoOZA!13c|Qf~1u@NXb{C`CgeC$TVKo^$G!rw<dP)RdeDW57(zDET=ThwJQ{
z6-USBO^fndHOMYco~IgpUN53#_X6%@w<Ge;7I6N$^t|r94SN$+p1t3mzQBvQxabe{
z68H1-7cHRjs0ik-;Z)&1rn+Fkf@R_7*Ja5VR7{<26|P9G7Ud7xniulCIH-lcLu|al
z&#w%1r9p`8<Ve(kO>WPgKR?lnUfjr9BVjqX!kNv#p^|*%@!q|A*DShqv~$${v8U%w
zH16~EVE%7RU2xW^LHj>!9EAC9GU^$O0H>2-AMV0(p*R&|7T>@q=mdOJxKG6kH@L4k
z76{)IA7QvFR&}j|`~Azi#wc69z^!N~CC93ZcINC^uc;I@y6yD$gz~oPF00G19r}Xe
z<@J?AN?ek#zL|IAuRC|R+@*RjV}-Jvc)EFn?Z(6qKH{lT8|@z5WL**1<$_Mult^P3
z`F;U(xE^+V_yD+GFT0?kvKKw#9EAThT>xkGIi8Tsm}v;-9S#fw;2E*cnHD>YcIqw7
zOOBYd<~Gv{+s{baB+q$!d*6ei@@{k1^#|wxFB#T7wCOFf{x`**drrcnBz6D>YO;lU
z|LPl$-#^CVu$GOj*q#`%s?=?66~_wD^x)vmE#XjFTKX12^(36CxxdJ5$~T^MP7r+E
z=)KdneClCUq$%vVo*69tJ^O@~K2JW^UuzJ`*^Z2=$HKRamvR?zvt%xVFF&T%=%llA
zZmkOJ0k}$Ko*c+G+IYI5s>|vNcqpYFRScSXySfl+A~l}tpI<Lj)rWIS?N}C9e$Ty+
zeathgH>K{h@J3O2d5YROJG%^+;D&KuZ+o}$PQ$Oq?q+9;1uR|t`|w}Qcr|pNgPYtg
zBd5I|Z(iG$g~2nIv#`G-xE;_DAEQ_1xffqgE;fF5Mn*=WJJy3iUc<GDz&;mZX{?7p
z(mQyNxT;aSmyQ#kAeD-X2kyeVYu*twOV|Cq#PtREx9CKEs~fWO;Id0oGd&NSO4$u6
zgHtB9Ug8lv=QRFA>vVXf%&q+G7^2lHHTWVtd}*k~vem{KexG=Fd3~&5%UK<jc^Chi
zUKnv@`_KjX7iZ^DxYbk7wk%S+aN$ol=gz0RkPYhgvFRuexC6T)^=1Z!m7F*Y1w1xl
z8!Z*C_!q6U;VjtHU!SyRa->TqMFaL*=i{}+DX$>X4|Ffqn%$JerLBE#%p1ddid-$D
zmn~WH3bwTEZBTL@Zq|~)kbrA&jG`RDh;O&F!!Zh++^UHuWMeR>X46}HxDeb&pCdKl
zEcW(?aOw4wR{%R>eGUfQLEkyNwfEI2|2}-O9wQHo74HaNM?{&_R#n}I#0(`-QwBeA
zew|wNb*^jF-lQdaBV`Z_#%fqj3HT_+)P9EyXC8&P7ip|{?>Vr~a%@D>0Vf%eY$=6!
zgIhVJe!twB$bc<byA3A#G*=G4xlY>TZvnBUP%wGxHk=jI=%?vQJ9&7@<I-iAUN0K1
zd4KwJaYD`V{vzzp$@q&meTz=RZgVSsEqpt@W9l)IZAEx^_>!edkHRlly+P*8ne$EN
zQU@|F$5q2|wl2MLdU0%3NfW2{GJqM&D5cxV`oG2}WDSju>S`wl7__17nG=DvPbi`>
zrWm$e%rOuMY^AsV`m5+Kc{8)PFODy8d#7sl;YQg^c?m0DG26jcm$grxbUiyw#-qKz
za>%AuRS|;(nw;UrPwzg^5eHZ2Ierf~@h=1xmk<|?#>t&J(z3Fr&YW2SZwjXN#f#f9
z7~*NI5&q(#^`S}cdg(#of|l9E6a*EO9D4yY@&n0PzF_g<(zY6-6bt8%U%p)S^7YL+
zR1xi%U|!#Y=wu;!`0&U64!bW|h11z6PO|QQg9Y6tSR5ymp+EdlP|!+BCnG-Ova0gI
zT`z}+hsCSdG0f$0+QEG3_OKcw0b<Bad4<A~LV+9Mg7bclB29<ht*iEU=D%R!!g-Vx
zi*8k$Vo+MzJEs>PgedP{UON8P{_N7I2JR&a>i=v<l#g8f$}zQ9YNOdGFzDuzO;h%~
zd2@b7bEdU%08{4PcFNv;`=Sz>z!jP+Pr+z`&o2@49v(QI_F(r8J5J|$q8AUtz9LiQ
zhik22!TVyaImba6He-wm{j-XGd&WlW#j&|BsHt(zA@*O;(pr_HwK_-3{M)ROl)e3s
zxL!retPt!+;rF`)en=m)uJ4B<_wA}GIlDkb55;)K&sEC^*pur}w*S}(cmmhy1arsT
z>-xhQ1$SS+@d^B|eZy|sdyY>G+s~dlwMaHZ!VPY26z{Z{tOsE`>%~6!L|nGuDDE~+
zXe{;q_FYZ;TZ-jMmE9U%A06^xtW81TK)C_bKxL$Uf8O+OlmnRBgg&y?{4;ZU63Yfb
zy_#)vRrSsRq0LZV@>xN=U#izGW_4rr9JvJ|{0EhTJJrYdLS|3wtJm-*58Apd?us$8
z7|IRMptXV=cf_5iH{4(@<YEQujR@8f#1Pfu%>_qCG0JvM&SkKf9@JNHemi|9g1(?1
zFRp3ps@f`;$*vvW>~=~c*Ks4IX>#_!Hn!`d-HHLs^3$(GEH<aoa9M3T!lc(CM$A8N
zw>i;}w+f;KVZ}T(`a3W~6ouV<*rEdpPPtbrqWMC!N0BbClFUPeX)%RbX^r=Tx`t7M
z$}{rXI)^qfn=)aS^)db0PJmYX#q5R_EV?!CRM-XfR=g9jb-v`9@*Cfwd@kcN_wcY$
zPttk{sSG!bd;9v9N_+#XE4(dmE6m#3$7j&=*7;Zv{<C+p-Ii+ou}w(l-3la=7aqUW
zN%WZ58x?Ko<Ily-J(97lek4A+`d0;SG;*btn-|2b3|~I)YufsF_-ZEvV<YsMh;tTD
zD9g4}PaIXKPg+bt-LW|9^y&trZNCe9gc~-jt6q`;XR5mN4M97BW$jHn?Y1dA{lF6*
zd}*)C#O0-6=Q?fM&kHkxf`j`L(>02{t8<(3T(+GH7Q^69P<0ywjMl=*@7GP6mZhkf
zUfWTAh!MT#^2pm<z5T-y3IPvR^y}t!HWGK@QmqV&li!B(t$u~G+H<Aqr!}`HvR}g?
zXXs1-*@-Rh7VLlQ;Q->9hdm&kCX?zHzar0J+$=`#uQltI@(hV%@@qPVzSKIw_+$en
zb32+C|H)xowtlIc+Mp~37B9qb<;1HX;5U_GBWt#l40L<98I=1kq<qY<+=F;@3zy3L
z@7I47G{BIxP~3JD&h@v5t)#}5vL;+u+_Yo478Pai`}=}qf8Ke&8)`}VZpSNEFIz?n
z3q+pdhLHssV(%JWrfm}~apcvko=&Q3%C?iQ*r@%x^1Dvlp<0O2OO`MH<)Yo6CF}pX
zeft@5I?4_B!hZs6s8qVq?Nq>nM)-ehJ;JP!3zmXwxU;4i2C3HXH2n=>%5F2+;P^7C
zO)Z-@ZR+lOG%bZIv3;5bk=Q(pv2n+1rFh@VN9g(lGU<`zvEu81zLvu6*&_K#{>4|w
zcYfWv)eY`TzeH+WYN>m6r0z+js3=T`-hOC-BG<bK-u^-`#@l`R<MJI>k%e&V+I0z@
zz7)=ma?Fr?UT|>VJ$HAXG~2?$!Zr{L?~PJ6zyL<NTRBRBtYfko4`utFJ&SR`-r*!Z
z^7S=1Xb`CtUkIPRml%GC5pH3yWvTs5iFI&xy`8sRSa>7m@)VVpdKRDEv4CCD`5{bZ
z7NU67O1W?!`2V9u%tSdurRIZixS*u8d(Qm8hVu#ve}Thg1AUq1H*Mv!bLQi(z~=&+
z*s<YoYwn)9v1UHpZB)|Cw!$CL!19uSav|#tym+v}&(BZG{kh2Sa0Bjq6S%+SE`E4w
zC(NP$LMEiEr&p_T=fjmZ&;iV&Am_6-f2EJ1dh<euQUvpgq_Gu8xOHy&-VHXy%I1Sj
z#(ydN3cb&oEn8N2OS!@eG1<J89aLQ*tm{5tyvhF4(gOH~NA2u{Ar*25P8g}ciTZmn
zG$&qZ6yrmiOfVftY4i?m*r=88())lpefW_pDQfr&h5MdF6C|kzOg<i%umw-EWcBJh
zQsHR*Jq1gvw@d2a92AP2JLP`NZljb<FqYg%Df(c&&1vLU+^Cv$u)<nkVPUc6x8LT6
z4$S}*+H&IL$)gd~N5kccE!Y0~>z~M`KjBf8dWKvrl@yT+@%$EtGkIJ=VQsP+{b3AL
zmv>?HN9DAH-H(OQ3W`di?ozDk9hk}4nW5d_7Sbgv<RFOm=}uFr>K?_9oqLzimAFnD
zty{P54~(!Io0p>IhKz<JuNXOVL`v%ZX&qJ=kZ*z)ktfwq``2yTJdor55*c_}2+q0A
zV@8KIAt_x4<JS`!8e0H8%?q9U!v+bJ7xhy0-HQ&~@O&CutnO0xg!iNShJ&yB7jl!Z
zIK35zWTXt|!av)M;g47PJR*Xt#r|vytb1?5KCUJ`4?_)6S{#CFrc#d}oV%iD&S9Kg
zJfl=SONPvoTptvD?^IYm3{M|pj#AGPuZQ^jFW-O;XtbQdvJ4Fm_pyJAREjwWpHR~M
z&>*3G*gz2ut!y}IOO`B&tQ|(Ibd8PWevpxyQ;y}hi`~oh|Fm}YKTTa>9KQrdHbzQ2
zUMf<j6=ud;B!(#iMJ81{Q%enXxIs2VLz>wHtW4~(L2;dH7z5EzDJg97gXq}Aw+Pdz
z5U@ognkr5MDs>xLjc&@wwq{KBxi$J1?D_THlY8zx&-*#|`@Q(PA~Mp-5`05X>(zRX
z{2%*L(5yG@zI<HW)~P$F2O3i6oVdeA!pf48{m#CVAO3tJ?e1eXv=nFl-gH0w#FKA7
ze&nq#)Li;$QYN~^ORo^1eGa))YGJQ&Bi~Z3R%eq`m1oQ*VLF0`oFbG!VO7`F7f<pP
zN+$l6Rx1H~$^(#_A#GOq!;vT)MnAF9`M#!|45ZsM9twe|6a=ZJ$t#Am^(TxmU|-e_
z59`bCU4CKKS0NcK64F)|NM>twItz(cX4IbDU_$LH9Xlf=mabX+LD^s<ga;y2Qe<>=
zF()Bs!axgCMm6?<R?}V%qNmx5t%|nH_G&@PYM1<?;|)x%(Y*-7tTf|wDUU+CRRnW-
z=GM*E4xMipS_c5E-0%1Et$H|<>VbX2T!?1+#?CH_PF`<$@W3cSE<SYsLcOReD@#TB
zceS?Gp<Fp=eaBT4Qo;dx7Zs!jCZf)MU&p5x?9A(jvitbq(~3185v~V@hWf#jwbGQ_
zhjqOe8oC^2r^DtyO86rogd0q&?I=jWk}3eggv15b?Sn*fK>#bS!Z4gFW|e32URt%c
zZa%q5XHrVa3WMSGu#jNMoUB?l0d9^eWeuMJ>lQCBIQ5BtA%LXg<2J=sYDCBNv98iN
z{7@1ubZ@;YVYnc`%5VS<iP4QzfQFId3ApJmM3QHt*2MLBRXwsF(S}MN2ZDC?7Fo3I
zIh4X(eag1?7?#E9{*WHi?W`&twHNG~7u?`XG~Za1qPPYOTYY>*kQe*|7fT8YUWCIS
zPB~Cp*lYv!dcA&bTwKnrk(TD>!OyL>siu2Nop$?940C&?A|Wa1We(w;V+Ge17KSNj
zSfz9?5;z*RgYw=>3sbN_-oWl+c2)%lX@ShmoO}yi5_-st{SGw~pMKNXR?Wl0HLXix
z0NU#Ovnu!I6OHOO;{8|=35i;(b#eFU*%HAE6qOr`FxpYg?#h2pj@}9CaubVWv9Vub
z*~-k!*u=)c%}1c}lbM6_qj;H#ypDIiFE;J<#iYXhpaIZ*bVK@gWNYa_QReSCB}gM8
zg6rN@Qu0qP)OxbXd{<Eo;B=~Ko&|yK@z=I=)nqMTXLFApJ4U$~MyVQ?oE(P7g?GLe
z|M{4m@!M3gwwjuWZ3jf-oHhsEN-Tqsf!r-K7BHo!((rXLLFAbX<Whi$Ljv+^dz1Gy
zaajX0k*9eiM*pYcPr%@x4YN%};_RMFWepkOb6Ixo|9ITN>EI0+(FO7OM+4}7Z?Dj*
J4lOU*@gIfK`y~JX

diff --git a/reference/as.mic-4.png b/reference/as.mic-4.png
index b2b91d7b27ea60d841afe76a6e66c93f15face26..0454041dfed59cc15922447c900ef4b82006a25a 100644
GIT binary patch
literal 52685
zcmeFZ2{e{__%5t@rbwaCU>;LMgeD<Tgv@qi&X7!*cLOCu8B2-G^OPa8B0?qeOp<vX
zUSxW|>uI;ou-13hIp4R=|E%?W>)&ecl-K({&+qyD?)$p0>$>m9R~4jpZD-g{K|!%g
zR_1~d1;r)@3W^PSTQ}ohI)dL!;g8LFa?%&@Cw~1pU*Lv6wpq!j-=Uyj^d$aU=hr`N
zKtXYcLiWO0WrtT|UG~m<o7TwF_I6clhusgoxwDCukE?#~j)=Xz>%Hz-^Ly=zd9-Pc
zTa_pNdd3beE~Sl9iiJb8dy*p#UD&fxfI~Y}W>3Pl!v=4iT-|==-mwoz;k>n3r?yg`
z*{|*Mixc6e#NM{8j=i`;?JaQe_ch^v9k<KH{{8w))zj~r{`}?Tk@q|Pe0fsp-u^#d
z-tyYW|L4orz1wvDe3{NkUHIqAzpk-3to!Hd(pZ_P_5Xb7F8}QR(HnQ`mp|Hb^rv+m
ze$SCwbSuSPSqFrK7%|4x^!p32bszro5x1{#cCU-L<#3uQuggMKbRgh$ao@&&KGN5I
z?!WuU^1r@CoNb=kJv=--O}XWt*HoUOF06cXyRV{(?x?<ZzU}C~Nh@FVO`A4Z7j)rw
z<;qpMe_j~B_`h%~xqBVwhHl8e%QkJ|l6|P3_4T#5=KU>Hs!<nx0{#6XuU!#WDf8IX
z5GrJLulenbvdumWLYK@ta#Vu2R04y8V{7<JwC)Uk4Qd(n;R@b!^rBjZ^D3!D(fqAJ
z&Ay_k4?9L0;`~Nh($b=%Sz=;hh6`uEHl*Ju6LgxtHQrMqnP0)Np}=mup61HwH+R0C
zl1@lSxFjccEnLDy@WzLYjG{L2<s`=<9bVmHEnJUMr7xrHhi&W}LP9D=ukXfg-o+4|
zcW01GSXlVyJd<CgX@`CH-O44W!LMN{CCic;*`_KM8UHK=#Txa_6H-B~Qv0=|H|^Lb
z<A414aho5H*%P%3?3VicB+pr#u>L6{PHMb%Nk-;r$9VI%H|I&snwAfF+`8`$nyjt-
zN>qxu)T%b|u8*>4rkdM7`tIz&!!ToWTvGnhNK&@L^pAAgrFUHxDv8RRiJ7c7yz5TX
zo{rkW?0oDdy=U1Q^|yuzP74#4WMwnfCP<D!PoM6#Ip9|r_2PulNVn5ulP{y#hl;16
zp@|FKPFISY7AQ5Y@Km~0&>I<(Mw<Gm|7_~-eoTc1H@ge(nl>k^xBg6J5ug2hBJ{X{
z*J&m{zM{GM^eSyxjeMH~N79Ij;cY&xcUN~EIO#2#=Onn3{y57m>+4*Xf6fm#NT(Ie
zYc!Hv=jx>M2SUw`uqm^0iiv5uEX~!uv@E8#UCoG>`Ll4}ThHFh_3pe=D=upN^O2~{
zP=rBE@bIT+M`s+1s=s_uadgaQIC;xBsAxQ=L(pdEstc*<`Xzb!rYw_&Ec;2FyQi7(
z+q|b(yG7TnNX4}-QVQ2+lAzz2Y49Z9W|(>^cX^`V%4l=SH3bFVLY*|+2qm*bvd;lw
z)1|rLk@jq}goOiNlhxk}+KwoX-o*=pUca`;*2SxX`Lq*pUDuUvh*gewpZNN1Znz=a
zc2u>0V4!-Glo%0lW_e+<B}CUXp*clU)4+2leWc6s{H9xzHlhaJ&jc>EXxoR87O)%C
z+!oySju&YL|Ch}oGZp-%x6IRQ`o~An!B=;PgYe+NMpjnVg!7)1OT%&D$<`LRn%CkK
zREiu)SuV?VyXcOc5i)BIEbDz*)_WBPM##K9%l&o1wb;v?Dz_@=NaGzXjyh2ncj2F9
zYbBPGah_s-{=CV`!t$xtirCQdp@MbUEjmfRW(Pw$rgq}(g}ZD5NQGCzB{Yhi^RV)N
zW$Rj7XMPo5(Bf6kWI2?_;Da|Y?fvj@39-g@Ji8@PG3w%_OP7?+oxAr+A<nch{>?;J
zf!RkdTGcL{wCjD9epKplWUJi@aVJv$y;By48kw$qThfmw{2m9Xa#T|^@~0~fY*?G`
z^<+-G=)-WfhMk4Qcy6e!dDc&2DPDQn;O5Pt!Em>n*KV_4ghl%UuU%3xGU3%JY#n(M
z`s!6Ob}#?U`o><XAs^xHtB5I)spQBfd`fW&Vdsk3)@)1GmPVUrXJispqt*U7nO0+m
z-fLc*$Qyk9NL+i>Q!HMmC?8LKe~xoQtb9s8o>)ReL`3;?(dv9hv$Y?S_<E1^k3trD
z+<G*M@o6e~*8S=I0sj7Tt@?gJay&SG8Pwec_LHhQIy!k{mH!5S2tDp_r%Au_#R7U|
z3EBlY+0MNW_g@_Q^1|Prda85WF2v#817a)G2=_SOc|5{lwnkH=ZP#X?Xx<Pd?e}~E
zaXjwfj{PHuca1asHQBDKj*O=ru2wvE$4=<b=q_<98EHz|KU+Mu_s>}!^V?`i|JZPd
z!n4nfF}9(;zWT%~3cS9T9*@ngah}mj;3Bs3+t<ri&h1xNT_WkXS4PVQ*i<swb4W@`
z#xCmdTE_jCMf&TJ$8qWeVGEO*kc)NQZ&Z?0#Z8wfV~j6LIdOaX2L|pXN#JqCXj<gO
zoMVyUR^s_*bw%u+eix_QE6-+RVDORCpUlaCbEcr&A@%Z5*Sp(MubpRPNADtrk=l&H
zhq0(F*!BI>4nIkb2HqJ=yc$`L)+qF@KGXXrbCqU1Jj~#`VcWKCrd|2jLYJ}657;0^
zm5aw3ehD?fJ@`jUt}Px-ylrSd-cGBsibwc1I4y60K|WkUTrX`nOw9hGihVNIf4RJz
zZ}%5O>SE;fo8290Ot|g+(~a2Zyl!j11{KXuSaui2SK}f+X}Es>dkex871QZ>><B59
z+$(iA*nZIeS!&-aEDnA&8#eDu4<7vdA_@nwTp;w^>heNvaJb97Is$?R@1$J;X(-C?
zqRPUX^Pb5DAvLraEAMXiMJ5Uh2{ma*Ao^?R|H;oXQ%vkg9x=hZni{o8Pl=3TcI5&`
z5^&xVRZ~KvKinLSIC~#!bU#?A!nig4hN#u|Gs?Eh%%cY^3-{!V72chVR5&PX(b=l8
zhFI}~;m>8Bxwjzl?CH}8^4da4^K4gv{b+Q6!tdOdqM2JgZl^gqGc%KA-f_}pvDb5?
zs~~s#_U+ZIY#}u<k7?L7YK=ZWe=|ScVfJgLzxk#q0t7uh{YYotTed5&588HJ*SQ;$
zy|OY}JDOTBQIFT9Y|KO+13VCPnEK0hvRiz_vG&y9L9<_Y)J=&hN$cAuj4S>i9c&U`
zL6iCmy3W%NNu8slk!R9Obye))Jos!P@UgIPoI0hBpsZTrx+-Y&^_8{HaAH#GcDlqH
z!}T%0Lu6oJG+vpf#g}c-)y`09hnS(*<W$8P5-;^+U-RsKU1vr1FdKgaCY4DniiMA~
z^Jq$LBGTxdQRIgr|9}8i*%vQfm^LK_Y4L^Nb@)Gi<3ZRe|Ji>Ocrr$SD{sEM6i$+V
zd2*UkO6f-J5BnaM>r|2}R^^!|3_pMCvhQJ3DN=~L*5kTtenw9yaPYO00uo**H4V+t
zV0i_FW>02UwXsQrM697jZh@NL;EdNF02#k`lEP{(%z36tBSY_DbE<X{60|9iwGe|d
z-@a8z(GUuA97!;3i1k^U_H&B|_DNJuaK1u=9MAsR;T*!pTQ-GP@xUdf$lR9{6jYbz
z$D5+0skH68Y_aUYc*c>bxj3v#zXrpF+}50nehs|TD0IlM8*h(c5HgKNiXk5B(!yjK
z^7zNSmT5XgSxyTUMYCVUmgX9+kPw56dx~9dKmK#kmAM=By&v1}{sVQ~TLms``1AGu
z65Ksvnshx)_1w903C#Potj-ov{dr#zw*Pxz9rTyCz%=EbtwXU}%<=y%VEzw7;yMRs
z6(m<}up52o1depSp?FjmbX|uNyV;^E|D#wS^{+umGVxcPBFCT(iRwfj-;2q1Kh1hx
zi#u)B)@`?YdF;kLY(B&{)zD+>D9F0NIruw*(;@xKg=Om~zQ-eNol{p=x6acNV5fAc
zst~mu3Dmclx_<TQq1+B$ze<|PtL{;H<h9l2<!d~C2u77+b9xfXV<!Om!w}%6DOn9G
z=(yLO@a4yM&R^SSZj+^#eN?x=W~?=%HNQTm<Nf_DLe7g;c)9r6V&BK+Ww+)>{nJRk
z`;yG&$J&~gm|YhSCoWPlite2?3d6230b*h}?T}8~dQ5C=;-w%i(~g`Ji{f8~E-TZO
z)nC8*Ci1x%h1mwv)&Sq?ckB2QJDk|Ih;WUM*<Z&aku)V;zk+S>Hvx55u}pP2<{j&)
z&oTMMT}V4yCykA#@72^dZH#CideS`9gOV{3ui)b4mFMK-Tw3lSr;etT=!84ZJnpox
zZ?pw`cbRW9B5<a1oB|`RYXm{6rQwPsW7D#mdZo?Kx5Hn;C3XEy&pi5lqHdIV03|Di
ziP|>e)D+FPo3$6%TQ*i+-#0(eWmaUkwmk9e&3!zKSoxQ#w_aMcm?$avE1c@zOB!vt
zf&g$83GS0i<x-bke{~R0yBA)nbnO}mpZJh>a#_Ii^K*fI2B$h{R4_Ip32}))SPZAE
zql;H&<WO;N{Fs(ybrNS8zPE$#YLaTo-0DJ)*+gfa;y9vs#|e&SpFdwdS|xKlx5w3~
zu|vqDzFg+GkZB`F<<R%qmVt~y1@|z(vvNl_ul`<=V;`fV`-Ux)Y8hWbg}A$W%Wo}A
zbg8cNxRG7*#-ftjhm6ZjrPs#A+}2j~M&&vzkbz5{-9%lp*QSVU<fFy}Aj7BH0{E-v
zOZxu)zM@<6Dd)xXyy4iFkzTdKHlYY*tv8K~q-iS$zP#L!V=r=W0N7m7-0boVG3=2O
zBlAv^MGML1JGO7XG{>;lMT>wmm1f=o_c!nIO6&$?d5Q2Wm28Q9Isgp4RkLMzvc#=X
z&#S-Fb*75lubmtR%vRGrsq40Cu)2yuK*;}dAm_D9wmd=H*H4DKt=;|RQaRJ52OL__
zYo%tJs{WSk*00V^t)vOt(dHntu?#JmmnY4)AF!9zp$bncS!<U$zKcQd7?U6Sm@5T^
z$i8p)_fz-^05<4<?#Qy}(g3>X-z{Hd-ubRhLt=HVp^r|ssxjf3bOjx~eq*Y3fpwd-
zdUjpiqbA=Y*_I~lyeCdvtCb`dvJ9^+Px5O=+|EIf+LWfN8^C_WH?gp?uWqO=>i)b2
zrD1g-r$0+b4QoO=`$$~4D??MxuV24J7dr2dKJM4OpwewY33P!v%)_OpwyH|;$v)mJ
zpqg}B(qxbBTf;A+Tmm0|yzykJ$NSYpr#gtC9^xwoO4BVaEVl(wAq{jB+%l?y3Yqx9
zN0a25VBP>0qzo10D&9KRnj>~@cLqM!CB(f>jC<{vsO6zJgg{?kU!SF4>8n4#w1uLS
z8T5om1&`LdZyG?cX+iGW7u52s4OZ4uz9-u?l&p?h-u90E5$RJM;<k*kCin8FYk$yn
zU=dqD=#fb`vQzm?ZkL^=a!aPbKs@CJ65>T7KEC?%=d87pdgWVJar*F=z?M<e>?$au
zaxA(Mk>n}@ck**^e0#!Q%pvQD!mz2x$zHZT;EDu&(>x8^<!=BIEV7RuKXx3B3CSX=
ztii#WQBrl^GzT}gT*>PEONphSqj<0~RaI5Z^QbXyY5E-y{>oK=i2Jl(;@8iBct3T2
z+^Zlif`|z1`L;>OsQ;kNprD|bE0U{%-(MB}@Zu(*RWpIsOaV>(qmc!NJ1k37baY;$
zLbRLcOgMbrL(Kry9kcaTpG<FA|9pTn;ckcXB`Y&e5D%m8-CKXRNC&u&$iexjIZ`rz
z$Cstiv>^t5UoV|FWdF9dwk7;SQ@rBQq)wIV+A5Jtaq=%?yNjIU{22s|BeKm}Ha8xq
z#(ChECBo`K-|xEQYOeXeNIwS$%_h5xmQW<w^tdck4cln+Gdm8waldi2+N-QL-IeYg
zsulVt`zfr(xMwBaS8nq#PN(uPE}f1Ayt(L~08mqSo--&Ztr({PaMjzMgLa>}a<TJx
zN3qND@syTvy8|IL1}rbABo+_d%=33`-Wq$_!+6TEC>A?K^+kh%*cU`}X2qsefPv?^
z-HzOPr+Unr{XYZveF6SV9@NaW@OkF~)+BibQOt`gN39S%h3e{oleai#m&#6AeRod)
zn9U~tm0MtBWTcrp!_LnBQru~NW6Ef-rbWic3qcd5yo$X~IxGr!M-H=8pEL0^-fADl
zBx>_1IyP3rz>U1R@O*^+grRqKu}MShK<VEb6d405`veddC>_U{Q(B)?S63fL;-jL=
zyfHiQ<zsb_;Uka84u0L@(|TGI6s`2)4%`uVwMQ7o$3YMek3|x^+_W=J-|MOv)D1~v
z|AakfgDO1%Tvzi=#=Z)lCnoEIcr|m38{-v4Cktl-!Iuz-N!pKzLDJQ^G2qzGpFf8H
zt6EIr!ic3#u<R)&XrOPI;jT*w$k5S^jmlwQi5wTY?91klO)pe)r(Njs=w*xI7{4uj
z$9M1Ey~MjUZ`@zZboo8;ZuhAqzBOIfO{wrXz|F}iizL&6aFKjn*QLp^=m`M9QzEB#
z*|un#A~lxY<OX@x{Ndq_qw~+V+UY!;!Nz?kF8!qWdT`4X^>RDGgQyw-8~mdIHG=bt
zi7EilM6vd@xJrqu3qdg`go%#S$2@uM@M9aQ?FU7!-U0;rWO5ujY&+Jf$o|Ue9`adJ
zto#8$T^E8*`84j5t86!1|1ptUTwI%A?=&<*6;4lIz}52q%+^spd-iW4z3pNYRYv5?
zS5i`HOuun{*FlkEiJFhini5&D*+>UJ*VHuNa#NVZ9o1;MR%UAWKUPaFkG;JynzGe=
zFQ=-$_esm{WFXvY!kt$4HF9nxVDSm=B1I#+egoC%2*7gBE@|1oSaTMFPa@DbsEM>C
z(kM48s}w=mF}W`GK5EIDE14fhk^hZUS6m_Gf{j#NTN}cHe8C%Q&h5`C7i<j3?Z4e}
zRVU}x3!KH>O*zC*TfFP_c+~G~?u77>1e}19F`%hz{)=$W&H{7XBX9_tECG2mvW)kr
z+_F<Fa<mm+8j5PZ)045Jnf}+`wmzp3h=9UXzvaJnn#hZ&>ECmWXNCPhN0!O8gb}Y?
z?3rQm+9Wx7aP55Q1AXthc*Q6i>=ik#!hNc#S_w#)(%GxHblabw_MAFMnT={~zEowV
z^?U-528cZIB<bR4YkH5Pyu4rXC)njfl?O;0D6YOK=g+-m+23~G{x==-p6!xA#q*UF
z=W8f0-F1ua2a(dagDa688FEsA4!SOf3UdCON13)m!&B0)Qh%aop*#IH3mcoqc-KvD
z0l>#N6BM4`#v2+MQcf~UI6It~+(MQP;nThh-lKJuPXDtUf6-ps10JCiu{^$F^{0N=
z6{Ku4Kv`Aw>C;yAma(?CDX$rOnLMeODO>sY`S}y=L~x=$qd1Nf4Ib~v_2e<~7C^Ar
z>g0Q|;bcYN*b?WHR$mXWf9kgj5m8xFEBmIOgYmsUV&GRxKV-~^7av1L@_o13nRn-j
z`6!u5%<wZ^KtO;#!BJ=Wg7)GWn|59v&y7V+xY0)^Xngh4W3?5h<6lFCYLazJx*Gv>
z)EJAIRMz?lqUh;ul?Nxi*qTxOUbN-&J|N6DHoE&seU^_v#R`CFhGUh7V<G6O!wZu=
z#qZns+FL~EbS<k;T0P{wUgtEWbLWdt^Aak<bmi$yZ|x_$BS_0^adPtVLLkcz=Po#$
zZk{I)-|V9IV@oO>eeYjmZ)=lR)6_B|TbDqDNUypjUr*CfZA(s0wtm97Pc!FM#>n=j
zw+@}}ZnFsp)ZuZ2Vy_08y5YgL(CLFI4tv^iIo+{P$MOvSz}GObmz|xR&wWi$3t#jf
zZb|D=^bu!Rqfrq(=&M($+Rjv1K{tzn?tpAXzqLRc1I72}7pZh!I)a(XGOB(3Zrp8U
zahgHY#`qJ7D2!2ZqC}+4{0tzNvd!?^?Sd{a>){fM-|t6^0^k80iLD|joNcimZT{kQ
zW8m`()k)9DeLQLr;3WiZ@%Tqh3?EQXKWHz)<R=Xpr3pp(Vbra7rV04(Y)vu1HbL0?
z9y~=o>l&GDGpu9_=zGq`W#8mz-05F_^cwZAMg0YDwH`C;tdUUwU#{o&QrPnK8W@dH
zAPqcwL|)Y~%eA7j;I@(w$_VcK@aVgd#H63o4);=DirkJQ;xOW#r;k1kFo7rTrOr;C
znnxxZ`h23c5gBlOHP&|I0gVEOszmFwENz@m<YS?uM~~`x`xE@wgCfmC8ZqWC!FLig
zL?$-E@tdD^^I{tgiIV5dL6B#V>asLB$iHgcSY$)AtYt5EsIVaC0}Q{8{*b}P53>At
zPo+2giDUzE&WsQJ%doJNxw*Ng9b!1tK%xF~2(APp#y?BfXI|yc+H9RZJB8>Nq%0C_
zh1#dA*>?Kle$AQ~lO!1c!|~jnoZ$1M=mp23e`FZik+&C*;Yg$hA0?HN98Tv?<c|uv
zt~kgl5$c9z_i2Rsk6E?bXxL=@H}9m|t)KO`-eYkM+mS{^fF4%bV&DEcxdJ>T|LyEr
zo%yzAFIuQ5&PbiT*WzI}*_{Gm;i|t)n?Z<FQ5VAA2Zg=VH6b$yk{7{zfOW1z_1F)c
z0kma*O^9ahIh2t^ydRpET$#Gx?KsLi`U^ld+o+Zx=<!YS*7UOw05Y0&!BaGw53U)0
zeP!aZO>#V|VQ#iovS!?lTT)UNAsy;Sj>nVMw?=-ZEvYG!#mfrVO?i2FOW=@|L668j
z)MZ(fEZp1|esJ2c=wtgarE@vSzG8dRT9RB>mrTCCI%O?#@Hcd7RyW$jTL7VG7qdjC
zqw7c7>l{aqo<DW!6to2{U{P#@ImGsOH}cxq(RX8+HG*c%Jm8AD+P@07RoBPJ+2W*J
z;yO5TNbAS2G1o9jfBzayveb#&*N%zVPh=JEK55!0g9;@Nm5{!?d!Jnaal0<y7W04l
z%X!I5WCNzVcknrpMq*;*LNsXjuoMKV`(!^qL3G{gt{)GNcb$5_C0p;~b{|GDRg`1F
zm3@jxHH3bI`bf?{Gc)s^tH8=c!K6(MZ>|j2tEYx2!`q8p3T%0BYBi8`g#P}F@STKM
zkUo8S=F`y`htrNg>&Xt@0?2#ULA+$lyk{Fslri7?<$@mW-w`58(6eW6kjXX1L&C$;
zfO&>M>t$BsKnWQ$)^VA45NNJBr5K2uLD=Gz-B{}z0`#6{8t*RBB+5t?*HZU&X9Lcy
zjZ^aosMc?5C2%oHQ5mIA%spd&5xj&ol8>H(sFa>}9b`UMSq2fS2tb2mTWArAsCZa7
zfBd}cC%NWOYIjuHw-NYUIaTr&6EA=>gP2`1%P?+Q6-D-wAoUX0B9;VbT!-0PW~RyE
ziuKHAqaJfoL*POx8Aa8U>EVQU{}gq4Aoa(+PqMNEM^9)2rH~e|^3`-vXYX$gdN(mP
zcB=@uqj{E1KJ)=kfmsV5X`-uRX-|K}0n0{dW|wGC8aOmyE7ZacIX`anf5bYk_RDQz
z6~}LVbI`}pUdgks$jc`wC@Nn?wP`P^QP&=3aL(;U?C)|0%(zh#+|N58<>|ClNL|*|
zwb-OBGe#wK=)%qlx(0%TUS$t=rp{tYYcccKNv{{=1X0B+$fP|h!S<zL-QkVi0&GW*
zmW66XBYznJ?R~69!m4Pm1frxD+!tQS?AFP3z?;mQ{@%lwBdL$l&KDZ*9n@zRU3R3p
zwPom6dhlv0L8;6#Yxyd39EW?C#(*(Z-R`u}LE{9)C=XiChT$v=&0Pyt1zqcGouM?T
zGQMH^xs8>by|OXsdTqNawlb@z@827?XxJiKHh?QSYJ7^^a!g!Y{4Z@))nK8vTGkLP
zy_wnB^AnaWsoFQv!a&D#Yv@9Yc|^12S9PvgOKNMrSL4NJdOlJpVtiN{a9z|bitRaV
zd3WNn%>m5rL(Hc?_Sc!#(T<j4C|29@U1U4Pp`>NZA22cALat@-kIa9aRyb1~VY~i7
z<fVVT070bPyHIRoHh0~wWUOO!-U-NL(!@M=k_@(_L!$%-Io-AkS#sU@kP~q~JL!&<
zLJ}4`oE9$gL+HYNR1ZiD!v2>*Pu%Oy(Y<>0uaC{pUmn@==@xf#>H2T`68V_(d6_4b
z=3v_7iI?O)<U1-Svm)}8dfn>|1I~K;d!Qa>5xZaDY^(PJpx#6_{^YpAeBNUxr|L-!
z&;lowdacx@x#!h91E$HJr-5@Tv&;pN^z@p@Q)N^kcULJWl=sek&wgQ9vf3Ov*N-6N
z{VQZ8^SIUb(x(AI$W5jo6Pjn!ikG<lT77m@I$2YXzi{fq(;^NUYU;UqIev9<1+c($
z=@KVSG=%=_1vPQq)YLRX6rkCJv^a#c4R~IzXFyPOwnN{}`p<n8o80L0k-c5E=N>1v
zP6bGK6sIlV6<BFsv*V%cP?zB6ujT4MDj=3nfKe{%Af=~8$*P?!`DHT4Yp!b2H628w
z<kx@uC%^9PWkTu8-AqXcV!>p*)pI=uM81?8ibU|ou`0Mw`NORkOvACCDIeF09(m0l
zA~symix&y|cr}c%(Jo!Syfd!^;H`St=91F4st-gBVRjeUb&r$(uj(xYG4GCKD@Lp7
zD;C(9%X+oS9eY)u^W~`DX+2(k^~?)y%N;%Ef(c<bx&N=SmBsc2X7Zx+w{f|4i#741
zN4t*eDo2mDjoT$fL>!70mE*$QX`~{hzi1(&DwE+Fd*1?zPj8gJWX0O7ZGp@aNQemB
zs>xf2==o^p{Rt##3$sBIV#i2phJFUq16s(sgj)gCSq#+Gn7FttMLDaUL0+-!DK-6>
z!Ce;idF6Y(CRa#)ZNoOEKgu6FLRk7xoVL<KUJY-mInikp9`$DEW+9R&c#IJcjZH5#
z{0Uq?>gy*{ytZU!U}zZ3@wzI2T~4X>MpN~PdE>?Km(SQZ_#T5h9bLKcXfs7=hWExa
zA9w+@p@yT1Ips}yazouq&^LsfP9bIK*-o6Zu>xDsKvbjLd-73qxKpjI^_c_@<eV6G
z%N?2Q$mJh<?o%uvEO&ffO`XwR5lj_9LD(M94PcYEdB17@1;!e9O)innuA*qDf3S_F
zG42X;m~}NLxYKQm_pDHm%5q({l4hWKds-!WG_Ej^MWFY<%dfhgl#I!@X#m<%fe=QC
zs{8pEF9%1uh0i34PNKqk-uG;KEv>G98j5F8_zTVlliZl6O60qtQ0Z$!jL`U9f+A5!
zgL%cT<k>8kBbs;fNTuZ>f^&1WBwgnxs_Ywm3;eo*ZC9VQb0{TC_36B`dV{>jq;2(n
z6Kozk-hI{P3+Z;~+a;?6p-|4|G9VpJFSiGQy)S<N?b)Eg7kYZevgfZBnXK`B-ekXH
zYh{$JK5jFqf|9PAiPB;hNx=H&rwDQsl(|Iiv_d7EZE3a-tw{vUP3%_#0|OIqlaAQ?
zO-SGF%%1!Cb&?70_z^S9c_0*q<2N6%U49;c{gR@Urv#CUQlq(~E0W&-gJi;ii7grR
z<$HG^kzuLSK?yYjcgSh?)cqjem#ZVQBmXXazfX0qIBl^2tgH<HCJ>1dp-u_t8ey^P
zGYx83WW^olL`*X(tI3@_X$u#6tZqH4_yM->tISmUC#aCf2Yj%{Z1QHNqk>AN)JmfC
zEE^G0wfQVfW>FM;OhJAvwpKE>e8uYL=qXhtm^!k8shA}WX1=oY?pCYNoI}XqOT_b9
z*SEAb-(g9>ix17KK;#-VF)t|kLG52f2(g9YHUdho4$5ZW%a;dccAQHVzgMkfk`@kn
zW51m7FUd;{zF_;dYT9Q7EdL@uKW^5XoUU)N%(NCj_e&&90fdC{%+IPs&D_*jg|I}>
zv5BZjOk306=r~V*jL;Q?>S@e6&FnOm;V<N|-l=tQA#<l8FhX-C**5QX-^EeqS;r#6
zN@9KIPKq>AFfvujY@?g=ICz>(WBQ;>n`guqI%x!4$um;y1Sn#8=+`s|kB%xh^d@9!
zANms)!McTk>bjmh7=J~UeSzD&WAVyHd)(edp2=|I6jW`cC<J!d<z5mTS8cW^7|)4M
zMPa{CayED2%DhxZO$#}nBlIRoG9>cFPX2vhWix`I5w<_=zvxYOI3az@JSzRD!~)<A
zf@C0e?H3rMK-{#0I4M1K2UW}FSIo3hfP$bm;-C#DTK891qqbfyiNk47P3ycGP`5P8
zeEn2=tx874-pi(@iMDG?74zLW<}Y<zNGizbqu|U$$t$x24t+k7!U1-)@vYGn`4`8f
zAR0E5tdY_lb+F)da7Q$_EOfCaOo_*Vyby(=+qkTqW&AAqL+#l6irf5Yt@{0vTOL_{
zhL>-*7<J*vY4~l_nP<B3Q|=u@KMsd7g&Wu|tHyWC93eG7mdeUNeVyiig#BI3xvbn%
zpyagt1??xaP!`GgM{i+rI5f8ZFgb^NcvO%uvUI%R&dhx0dSsXVZgc7!7F+3>1p@`8
za-G;`@3i=K(I3A6Bw3G?Ldcl}$%KQ}481c3i---RzOG}Do%(*45+g79rXm2shhWk!
zr+Snv?r+#G1z2&l&wegRy&AC3gG+Z#&Q{7aN+#n{JtDd-N`i75Co5T+LWBlg*Iyqs
zeA#5DuopCHP$+Fv8|>kG?{W80qebr`mC^2+@lVBvFI=j28w!Gh>SDGJdDInlv5m>I
zlk19L&^lgpzN{rclWS$&$woijHTxuQX363U%W!;MMf?#$ab{KmS>i`Jm9(aXMJhom
z!}KD91#dzQqHeknT3j^*(tZE*odEKMw^C`3Grc)q5&AfaRYJ;#vu(Y<+p`JR#I5&M
zchBMx45M^vfmuKq@ay>q!CR#;$K;xK#NutF!+w%h7v12asbrlu{t_nEq9FkTT8#m7
z@j|A*%{K~)Qa;3o@~4N-gAm8g57E>A^s#KRgv?}D)H0e~QOWE0GMUWt?tMi*Pc`{T
z7CA+8t&F8yRKZwL%x)|__`Xj+H?6D4oXZ&=*_k(}!JZQ?G@Olmu+u5!-QY0~&g{q~
z?-wTDZi+;;n37?Om`eEGOi;apz4fo`dxlRcKIjZZK%hmpnX8?24b)-Thxt!WPPR=J
zq`bqiHCSRrFc5`VD~XW4iK^v%<Qz^XszTLM<ikhKX-n71T)7gWEW#J=M$Jjrv%icG
zT35REKWP{atn7Q7I2bjln6=RM<Kq)nTAi}uj?-n+L6+bEGai`!-VOlVDj+*^;l1cC
ze@v5YH?EPikV>|lkUJvB${hJ7%ls{vII~mrt>G1PMT<Y4_;2^T&#@Hcm*#RsY&<I>
zH__89S7ycO;*!VTA`B~&%F|b3J^RR^i_{M#5Na8YyziUd=zUF_p(Dq9hfK5Q^19C@
zp40fG4c&g1exUlu3U(PhBlQ&E2-}u01SG<zq?)F~czY`~vo3Wfetc)`UT?A)oyE#X
zJ!o^VP{Ur_sZW(1x)@UgV&xLEB+EA<o7Nit{PfI!dzzoI<IKR|pk{c<N@Wsd+-W_(
zo8W+($yA<YihSF;U%fgwD!rIVC%Tcs-OFoZ+AgAeS^61pg+&&i)b3Rj=Nzgp5A71z
zHqG*kk2jX&23QuBUqx6Ig1Hh!c=Rfb_S&{&6zF``-)=Z#>-ldF*#3rk!&+{Mbi<Rh
z_)O7>$ZmKfM#~DydcT1X?6(mmLG94YP4jrt-yfpun<qR6H3ZrWt8A!*OFqECW=Nef
zfRxY5dbbYIjvXNL>Qs*`wdI&=wnj&|@kcpKG1JV2lUIyhD7gPfL-br)C?T7RFECG(
zmE_(Q>=XC+A*Z|mVRG#DO+!Ns@jV1=cDG%Vv<S@Mb(Zy$<I7`-{kItARP9+VY#44t
zvL>vBVRr2%qSNIxDhW!gW+gglEezb5NIt9+{VMG_(^twbj?jzU8Mw@Sm;P4kF5P91
zrL!Db1yVo4jd`o6Zn5^e4H7b9RQ~99!1=7;`@2*Gpst(!@;G2|)y~e2Gs=5~EC7~5
zb0p)=YJg`<o<vPO$b$q3t7e3gLr#t`!5(4LUHwH)pM~_}!DGKTbz{`6pEK?i^}Hyb
z`Q?n6@Ncz}32vwF0!Wj-ou`uJ8oOBsx;ee<(c;7ee386OyOsK@=%R=MuGSLd<#V=y
zC&A?M;AaysAQN~%)e4ks4x0xm7v<9ZWe%aI?^=I)po%<0l%(SPOPk<$t5&5dg;CH9
zz~=D69qbHE=7A?)DV*VG)p%SD7KqKbHVj}zL!Xr}d7iD@)s<xuKwBo%qD3P}ncI<4
zFp*#5*bTDxseq@FYNfVv-F(WmINzY>^w3dC&6g!)Wn~F+G5Q1lIvREb?<JAw(hHZZ
zt*t*<cjQ{OJQvW{ODy0C>L<}8>^ILUx>fVUEp5t}=9$!ZYsPu}z|M~IDC#+{#j4d_
zfevBTCOnbDQbb-`X7xG@oS$!al(lvxKwpZTewK7{&f)aZz)Q;`6ZQzhOQ@BetcnW@
zw~WvOC=Wg&Erw8?{H6Lk3@ot;B_e)hbj-Rq2ORq4zYX?FuNe+6<o{Q<E9jeNAbp(+
zUdCIbEG!W+`e@r2sNwF>quH7)FgD~)oS7yIWEI9lN2`(fL7MEbV%+kUI6^aDA@)S*
z@6rV}ZGIrPh4SFHhx>KtNK;e<hc~jo2|fxLiIsN#xnJypi=AB#X>A$D@nZJm)s<XA
zC6QCPuHIUB_pO51xFA8pntqG;8@cb=t->K0zWkvhX20HVVctn+)Dq5rm!oPVPgh6a
zqaHM^X1^(-QVZD_q3z8iu0hb%(H~eW5rEIL-F2CK1J1^Kc`)EF)TfcCbkx&Q_Bv1o
zvyuzMG;%Gp`IadtBF-KAAK4PNsvG_m97441UZ_Y23+Jk}5e&Wo2oc7dRD$OBF-O6q
z+6H-F=$5v>cTN9sf+Hnd22dzKDG{sFfb*Sn8EnG+2?$K$5via8+760XmD1^Zw~PuQ
zW}ax#y5o~A0aE-ROxtSWsEiX;aBfc;0(MqFD8M_-Vo_d}mzTS*3L1Ya<v~I3P^1G=
z?hDj1d0@K~QcVayReaC5-Am-U(BGzAoVb0NyNtes8U#Uam&s$yC7bOTvlXsT8&p6_
zy{xLLnn8m4ta*lqxB}!ipQ_s0+#jc)%gJ83A`BiOQ^!c(yQ-$<ZBCN<+gNpgCR?b;
zEn{5;ErfUwi_^4jc`EH_YewMwL0%1AseIRJ$UzN}zCwX;gwn~zBFGrlN6QX?3Ofen
zpn^^xQC9xqMUOma)yb<i!}Y9xEkpa-QrL}fcCRhlEM(f@bj9-z3y;8Nyo5WUQwx<~
zbKZa@h~wsYqJ%v#iDE^Mg+8vqWW3A>E2t`tJmk$NcJezoBfqv>%W&dSAsU1~yXgw8
zH+}l%&6^i)ohQ$Xwxsdr6#uTgi3s8@a^l1ZAAyH0iwG*85ys_FB3{PgBwOP+J!!r8
zCNRew)jZ7<c^Js)B-p#=95^z5J6K93K+&l4P?GJ`v6)&)@7sA92;cFun+lNZ)B7(i
zsUHo5cFOsE(XwFt<Xe*lHas!n(>?<3eSyYw6C{Mn1Y|xc^+A{?uz|L}>xRsC0|a8I
zJNZ5;S3?-`!6u)I1@&~%KMzr0!^lk07TM#_vVE4`Igititxgio62iwp+%-W&q5KxW
zW1_p}z-MG=7>Zr{0%omESzicX-kwVye2OaQ0^=PPxFA&v!1R6^>nSNI|4lEcdgFV7
za=|<qI<ru;pA!=H_dA}G8vM1-FZv!dfn)MkbDFLtoaP6o)&fyRo-}X2spHW5(7pDy
zeueiojTRJTm-X}_WiMYQ-iPz{WmXl{7LzQJH-iw@cT#7rrEaMsbU6sIJ}d#RU+Wy!
zgPb$~Wriqr1~Mv{PT&UCwRFIBr2WH1dIpJKZ7^r@1blgwN2m)~f0EBuEW9}!DxGeQ
zVr<`4`??E>EVD31ZuU8<v#lGt+TJG_LuIh|Kn@iDxt3bIH1f!Hk*Oi>3YCU5&?!vJ
zcAv)KnoOa}>#deOj-AG@N|t30Q%=@Of8c&4dZQ(X1Ho<G@GD(|1b(y%_IP&V7Xtbf
z7Z~O0eva|xc2eJl%YfD@^}?ko(Xg-SEq-nv-uGHPFE79F7I66~={Iozc+WCoHz)4(
zdOyL$G!CAJ3msghbcTp?RlSTKJaU`GePL86<)Rt$+~x-8ebWDOu0_|qRAv#YzZxr#
zR$)`dsWF}~`kK|e?EkPA0ewE|o&Z#xBOjLt?~Qi`Oh^N8jB~ubQ<7zVP4Mpn6MIHn
z-j}%Cv9{K;$TfBbNLFPmX8v`LbJ)lSS-~Uu&f-+BfcAd0qGbF3{U%wbsC`NIKuwhK
zy<A9V&H0k#6_}qsfBKZ3b3okDrZito-~YF<id0;~{eF~OW}TI`s%cq7o0SSS@g+#E
zi?(A>H$=Due!04n+!o1x{7c55hY>k;XtWR;J&4FF`j%r#qV3xt7Tz7ps9fJowHi=}
z66f)fc;ab2en*Q7qJvCMV*;bnAv52_ERjakEQknwB;H|RtW`OF+Ziv3d*(D%$Sv`(
z+Po_~$Nvn^dMGADXM0{Th#=TbrCJ5rASE)IMW$YbUW*b=TN_OD*%o$IRuI+(huP^v
zCEbc`N58{3kg#9J;jnQY0ZNf<Zs-%9j$*)jrJin;eU*$p03RBC!$j@M>^yZg<2b~f
z5W~;U_t;Rsk*V-yJYaMAVmO!&!WFbG*YhH^#c{@-Xa$Mi=2)>Gi|=WtmpG}`^sihr
zmF|fe$~$fR?GWKQ*t5_SElZQ4{`MkaG02$!+oOm_ex$kgKx#Bc&#`StY1d$|J7;0(
zT?aOfRd%E<O8VPzK!Yr{zqbz}b2i`Gv_l!i;L~ZOgEO#!_^O4Zt-y4Aa7OiqS3US?
zNErnvf!!V^mw+lKj1Hx0F)?8`6SB<lr058H{*BxenE4^boTD`OVHN_=y@~N2TWE`j
z{|>%)rJ=1~-0tPeM6M?9nQ*xc)wcQA)@M5pid;oI)gE?#u|Dq;gs~RQ8;24d87V!1
zs3k`2?#Q;o%}<hOMiz3f8aiT97x_@=W&_b`l6YG~+V^0BYyex3!}1LEmr<sXch}%8
z1jT;w6~#1E2vrCxewQx4f55OmA9S}y=1tj*s@;A@ME8Uc(;Bne${WH~US_#CVD%2^
z<HyNpsrX5WHOKj}1T5ufoisCV?%fUZlRcL58qQFZ0&65FDB_R(c&VF{7FnVkGO#CM
z%OrB+`HDShOohey1jTMqL{hz$rX${GBl-pIZbmC^OTm*MVu)DRo@JtsU6i1emkF!(
zle@qAL!ydT`MJ4kPS3aM$AWK#`1}Ge|0Td~8{KTl4FP9y8pGPx=Iyzbmheo=gOd63
zvnt^Hyn-lTjy!Jg3)IKmDpyjB9jAgn-j;5--(ocM?TxCX*H!Vz<0nph0nV0(v>*?C
z=eB4V8>|pEP^2NYR@`dKWF4|Y5;d&wrjL~i;Um&7aREpjq0k{T&dY)EuJjU8qU!cP
z4IX-LPO+EuYG51$sKEH~-&!{b65Y4UuSDt~tCvA>Y$9}cp!AnG&Q0L6(_2&4-t%bZ
zH+DLXrVysaV+wH%uq^$44IpnQLEHZ%H5T5zbF}JrU)1VaZr}d#kJ^pMEni^xF>cQ>
zH{-gVdJ79jJbiiz=XbwAtCca;(i^?H!SdpzMLy>bf#ncpi1X!{(-u+2dL+jpL!7{Y
z4?Fk;`9f;oP%7(m=<^wX$1BrOOG>Qs49}(ZlM*}j^9kZSWG8?@!`cksAe@AKE9r%p
zy~Vd1{42lOg_R4+XBa&DM*jwbI{1+1T74}8_^HS5$T$Qqu=QR@xGX(Kz+&($y8$$8
z0iMG2wc`lqTX^ZI8C#&5e#Qg%;=XRfXH+J7c!WMcb-Wr`#{eY-5ruay(f6X&=<N^k
zNK%?!_at^N)10#;Am1;PHJ=G!l8T-Upoat3;GpTV5&`nhH0dsc$UBnsMQpN=CP&zo
zLpo`TrJx@${)3bTVQ09PRxjh!%Oh*T4(9U<g&*S_rN@jnC$M~UT--}&YxOn|;t2FN
zGToM}exd<s^u*nnn{VNwe{`GCPu#)fq92pFc|*k64e)E|G{Bm7w8|Oi=l0{Gp)za}
zB%4swh~=H|TN%Qd5W~=YbRQw<_<u&~+uLM>md`Ps_s_R>^<3ox%)<j@Az~)cqVVIO
z;!Vlbxd5TzPoNIDKR>X1269W8@GcT63W#66?%oJ*?}Mk5hz>1mzUUqNg~z&kDb8Gm
zczRPlCkI9}ci91o2o^v>gD&kmQ{Ue|rMbyOg-^oPi38RkbQ830*cYB(PZ6Q@+lXJP
zXa^Qb?R?~EcujBnZZ6Fz75-d>bLyhSZqJJSCDjfweFSz10Gy9v2Pr738HpxUcM&?+
zl5qzFT=5CtM!`w~5h3FbKlgx$G_@OXBv^cyCA;&@s43j_>Hql|7?wPQZX}Q&=u=#!
zCTLP`fqW3tKNv4*K@KrP3?K|rd~ixScy6F5RXlrdzdNruh>7DB$JY2LG!I~}dkYYD
zy2A78-1R?f+OKs;-x~;28eJge#MSwFU7Du+?$B=~QodsMr_bQh(f3ac{`9a?XzD=(
z`RCXF_8!~+xR!zc$rW>b6r(7p`ua7vW8BxCP5@^&5h0bO3cd*RpMKrbb{~y@;CNZk
zu670*{%zk+Ow`oW$}yK{WkI9WK_&cg@R^Hpf|3**&c`c;rh3b!DJxF`LH1kiUDJ6H
z6hu2{JQjs`Xe}D%9}QGeLq{|CXzVbob3t6RuFml9!(Qxj=feC`blL%=$=2gd;i|#=
zii3xRp+wdnm5KQ;`Ya%cX-YJKe19%|PxvCTIYRC<<xw_#baRM9ZijgRItpN09Uqu>
zFwW)p6>eEU*Uq~cvKL;F;~f5&9l<5+PL}4}N?H?YH|j#g8B1Zm%JY%OHy7LWiSs$~
zg*>st2b{UEv+mEzQT(6pxc-md4GGxm5y>dYfHPE)2^#>YvhEBjfCG~yJlvvoWAWfV
ztNN`!ie3J*5F95eFW<8V+<^JxY(|OE&6|X;1>Iv!us9{dJXm>H^xu~{;ib7m+hu>S
zW@DlXH!Od0(3D^iA=;AX5TH#_pA-EFv6o+<3H5=4=bvseiWs}k-tV0t^bPyV@hPIx
zMca8G+RMPY5sq0$*i&#ui7s4_GDo}L{At)Z^FqXsy0Di8PE%MY{iDam#zdt5?H4lW
zdnYrM-(`_BIMK5<pZni_<2n6(VbuF;E3;SN50QoGhYS}U(SPaS`KMv%U2xsNzg_?e
zgCp<h^nWm3P$!JugsP(NjWEeVd?*o+8j-=`+0+X9e8rTnUfpfewM)1&;_X+_q|5qz
zmc`SLSgU@!%gaw4ahkFe*1!De&iaqw*)K(Q=}8p?U5>dFl)PY<+rfx4bKi~|bu_1E
z)YRs9>{Uj6=BVmj<EqCgJ<nr9`{RTp*XG!v8zTr3?c^~mz3<)1n^fJA+ddN!8~v}Q
z$ZcAD*UQI4P>UVUvj#}gl%*4cQK@-9&jtR&hu=4+ITg0XbZtMG60}fS?BMxk#bL|U
z2PaZ|U-`VO5c7WC+UuP3$T-)3dUflg)^8T9fMO{()3m=O;M2Yji3~{GfHI~=bj3t}
zpbCOLsS$c&0^HLaaO{EwdfVlxPtni4&^KJIyJTKi7H{RBuM^w&a?;QKpKks`-uis+
zN73^!V(GU05<oWwogLRfPF+Q75*&4V?Fzt8i2TgQ<2M0DGhj5$LuZ;l_A8rgbxqAR
zaGbA>W^RdVNT5*=Ijht=UIR7j-zbI7WZ8$gy@rN{6{jLOeqPTieoK2Ee*2kQQ?A#6
z0Y<-WEGUw!L?PLf{5lY2&G+D693Wyp<{tp^J3n{TTZz!Ol3Z0)_m$ndz=@cJZlK>$
zjJwB>oVFr)AKNct<zT}$op2~7+OYi*9-?4=T_%C|@Tzw`9ffxxFeK!9^Wk7_GXMCR
zKF!h7<mph8+#y=V!FI~=iU`*C^!hh%O)dQ@scge?b9m((*w)<&qyN`D4qEXZ<J_Uv
z)f2C}eqcAIC-t$Vz2EZhiL4CmJM!MlJENkX$aH-Ncl|kjfj;_2-aCCSU5EZuZ4jGO
zbT2=T+nIrTbNu;CI_vJNAym2~&=j}5_x|~j>aPL<o6```fm4Nm%bpq#%|&1@)M-@y
zyu`hWk!D*rEKc&zkDVp#c0~3xZ_AWITEOE7M%z>(0L2h$u3W<%f2KOP>%SKWn1&0s
zcxiq-2_UXQ?B9<R;qrYf@b7$z?+zFKPtUdZkB_qdyC-q{=M__wlJzIQ_C+O5uKJbK
ze!iJW{bAppNM&Uvo_kk6SiI*Ftme&BKFj|uW<3`}L{NBZe3RyZqDS{4BbB7y967Wp
z+LSX$=*aFPk$Z)+_Hi8%W8slCJXIq3j-KYYx}h~&01Yvpg~_k%)vS0=?WsGTX1<>4
z`8{H#b?>_WI%?%Vza%2U|2LK-kh^_Tt53tQ@~vC9vTC+IZW!jty_LHZ^|99~P;;QL
z$@>OffAF|fw=<>ZN*!M$6F{nU`}bLHr!Q^2j!FF0u0BtEe1c3u6_YC@s$UDE1-2wS
zjY&vx-ssu$=g+MN_XLS87q-c_rPX3d9vxiYy&I<EJgs?ga{&Q?oRv+7+tH^9(QEJc
z@mrO{HtjzO!>sa@smG6uym|hdj+OYR8p;+;mq6t3aq3%~_^Ec*R?NCMmnD}T^X{F<
z$B!SS3cQ~#Iu{#<;3KRQ(k+$fS*4_;xHvPe?<KI&t5-a-Tzq`ZFmFX^JrjqWMF=^W
zzz51|YIOZxWABgcL__BVf5`1Bz$E=%rlp4DxY0|uZ)bS<9eiv@-$b~pI(IpgZzeVG
z2f_Qdq#BxK0>vE6IM5q}c5;84mBriZlNku>T;~m4H8l=20^^+zOGxNUPfz<tg8*xt
zF#47$DTiSLhpe|coWB_wJI++evn*G@IO-Ri=|^kbZ8|YlDS)+hxGEyjAZS3``?Ani
z;_h$H-#z+$S6I*FU}(~tw`sy(HNUj38i{!Pz#YdQSZVwN!~n%h|AmSF`6bo{zy5O_
z{&OAv|FQ}Cz3kShp0XQz4v~(=1q%NXu%zwWkRlP#(1xrEaT2YGyT_^jj5H}#+I8eR
zY@Xks`Y83T!lGje#Z?1xDM38L?{x+pyW461l!)#mh6|-;bRLAW4Q7tPd>Cqi{QZxh
zR|w;B(D`eI76;T64Nz`{FptAH<lkTuY`j~4ifFqaS`di0h6srE*y>|DKUP#E>Xx`V
zqML$M77Z4`wS!Nrv;WzW6o2__-ZP~d2Yt|=r9n`Ih{mRWzE#RFc%gK3VR=JMMn;BW
z^1mEYa>JpD?<rr24klS*WSFzFb9P4wtmOUYdNYXzBYas~zjP#JtlSz!;O*PDiNth}
zQaaB7F_X??k6KR6-C5Ct+t(!5ItOe-`!nAUUY`$rTSijV4P0f|zkfe_gJ6`Jk4vDq
zB|bQ4t<Zg@dW{ENbT8&|JhW1o-IV<vKjvH@eWe^z1>$kn7Fu-AjgGzmfi8pvrqibQ
zFZzDsY-ueAY_!p3O>~Oaj3k*MZF!--x1-PLLq;NU8PZ*^RqOvS-68oA>F)61!$i81
zUu*UC8e81LGf<56i9fJQ^gC&JwYsXR4)Tf+dZ4l`dnDRf*HO41+neTcJx(WV&-n2X
zM(Kb7)0MFgms*@8x}#~XNGf~Mwmm3&!<LrjWk-uQa%W|@RcaO*8+#=@6^dE{9#lRG
zbJNawNFu3o&uTz~US+@XIxF$BsG^<PX7uv>`0<0|`b{cI&!bi$&uRy+DJm)ka%XNS
zJGS0F``4;#n1qXHHLXforr3O~Ep*&{x|3kT*88pNc+<UfgpZGJ>iG&xlOwCUcNI6p
z-P|{8yLfBuM<iF86Pfd?=2c2h-eMhi1wM`2$@zOdd1Ah>nmATVJp4zmHq%dq#wMVT
zRRfaN-^3;(IB3Dmt;F6Q&j0Y?oaRPVgOBCqfjb<=Ro${g!oFIs;~z{h9HW~Or8|Fu
zBdvwoZ<j<#=Ghp=)ZC@WF_HK<-1ow|wBG4Qb*H(H%fGE2?dIU@EmZkHsms5!Z0p8C
zaBDfsM~iCuj}YVe;y3t?2xo-UTiHX;zjWnF3z}cATAcg0UNh!kP@Yjg**V^v@)8~H
zFJkEb*~@3{H~r;dd`uqAHl)Clw^}1W2Wi3Yajci`pBK1qPC488UK2lwu>eeWfA0C9
z{m(ZjcIn)IcORyWBG^ywvkc=<#-*Y~@=`9*NpA~3c%zERpO@|yAdY&Cp!_fAVy>1y
z#Lk)X-wv%OO41ayj3ey^e_nbf%oNA<&!I2Pd*uFK2PXdKm&6*~^7@~xLpAOA@AZq2
zI3|Cho%O-TW8S~vXXHPNS$e9rZ#q6co}=C1!RLN!P6-JKV)flQe(xg+ck-Qg?_{LC
zM%})R+KDu>ai049UB`&8>vjApkHU;LZnr`rw$GWY<R#bK0k>JHteW^{DIbQ>Upm(>
z7VM;;xJq?_=ev;nH3ZM5SEud}w!p;n^z@4HKM$Fr>4{9KrkYwj>>=o};HNJ5!#GgL
zSgRGCZxBSM*`BTTXe1UwSK_IIl6Kj~bw>yfGC`hUDijO4&n|=de47vQ|MxHBbRH@P
zVQgR+d}RHJECKh+C@fr*5Ays4;nTst%lA0X`XETmp)D{G!)Y)j@Oe}JpEo#j-{5Yk
z7{+^*&cKyWv#G$y43g1n%<7`0rA@${p#3lXzyG*9ckXPc!BCj(`SNX#8$GC)`DD4c
zxa!eroWl3-4KeW4Z0IIf$-n!fqoYeRZ_xeSpSjKwPL%aE@D}C%_wPtULvz2Fm^8K}
z_)3^4ts38f6^rh|wh`+;7a8$B^Yr&3bPBGoL2dDOKc9B~#$Z3R#;QSpoAdi9!o&aH
zd@xNDIGfGCUHNLo7<RM120k4s9?Om#-t<nGx|3@Dq+<8YH8buDAa*Hv1_$xk=-*f>
zoq>R!K+COa4EG3DO6~h9A%<#G{<#!Ewcss<h&4NSYQw~Y(_dlkfhUurO#KT12ecR@
znxz$~;!l4Tn4)Dd@*(q|8$GjYan+URF2ZEAt@+)fBvUA13<7!&;Mt8?Ty)4bX}DOj
z)RcySUIz)S{oH{DL73$D(T6YZS|XX8f4L#BV;q7<^V;e%ch>|SF!7g2sV5&swq!RD
z1^}p-ole}>QwbqI^4e~SSLd}<Cy#;s!>_X~MDKk*hJd1|VhKBa_xO~np&>CTjuoya
z+f&57xihGtDWrJu$BrU+v1psojx7UDwh{eeniH!8I}1}Rl>Y=4!byD{uJ{e3yUM<S
zduxJrh+r1kN%QK>l*8#Ji$0PgW{G^D^j8!E7p{a}IM{Pjh*l=Bp`pYui(ZCx6wmfN
zQ~#o;ufHKJb7$E%M*B{pZ4y4XE3mAqDk?tHx!X?*q3c5A?_hpL$XOyB@>??eAIji~
zxpTh?%4^#;sVqSaZpyo3gef(O$cuqJlOdo4(NUA_NHRr>(B?1^ykR$C8ik2?o9=;h
z<S1h__QC@ibb}5LB8F&A0g=wx9<%Pu{r%6}bK4adDYI|2DZ$Zk<Kgb#tnbxaqV<ST
z#EMXqj_-`>%!hV;3FdBML@DfbjaUR?gygZEps#U!wXSR11`)Ra?`P_V;$3AJhU5!H
zk{F5C*mU@fFKMXmJRX%299gWga1b>?jUb%m9M?Bf><aH+mu3?B_wOVSu~q}QiDehl
z>31LU@j_XD*ZH^MMAe<VN(G0%{~WqrJk)#X->kj9yEJD4c*k|>R9^KBCKwVp|8bbg
z`OiV++*GleQf2nx!M3vtVs~eLa&=%NSLC^uAV87aLk={jk4>W;S_^~NI#+~^a(S0c
zJKtq2VfY!$e8Y$iXGgOlYa#K%PkELYe`XLGD}iA_keZXKb0{dx)R?9!Dk`dbtv0#{
z{yvXaOUCd#u}I(GkD<32D#Ywr*?MBYDwEz}jIo3HqaD*n3G<hdX4$cyb_J}maCK};
zFn4w?M61Y2+I{;}?=Dzj=}t3UIYh)(48N*KtN!|=b}%V3tYtLiTdWOF?_Y$`hY@mV
zdyauF^fh7}Ds~-kcLd_zqd9s7O$v7*nH$8p|9+4dOC(zlFaN#NNf_l>hSB?xkI{5l
z=-NqNA{+)R!>}G~%`-=qXO(p$FZZ0ccnRzE@a0DbJ_990pfySx7PY^7Hv!)&PYf$J
z2xdcxk|jDNxRWuu#qOI+h)3w%yLbC@_=~tj_Y&$aEW5;11=Cz{yD_zhGy=X43=o4t
z+l!oXiGc-==1dGUDb5&g{Y^0AI?<0UYjp0*U+4rT`mJT_;ogEO#f|<XlYca=ztMoM
z9p!qdtbrK#q1CrI-N!0R3`4cBu#mB*w#SeXfXF6j^;xjMY#$x04d<7|cpOhIZ%HlH
z;cJNsac?VJLb`cJt@G|paPP%oFJKuaCWY8_WG(|%*U?_r+Ozc?_SxQN5-GQKP;A}x
z50&_;Ok!o~ysQ%Ji(Fj;nBbuZjRMv<Q`verScDMAd|;uK{8e=Y4hVK!L`t<Q;k}jZ
z-Bd^n5QbEO0jZ58Zf>W-zHZn5f(g0DjIjsiJ{|RwSrYin+rO|(TI}<a^M`eY-dekf
zlW}%_%w1R+v78u;m4;Is4+HXz@hHK)lRYJF<;z)-IuvKV?D>tNN>7cUyXslADRazZ
zU6f}x#(XhKx@uug+nd*S2k6m%f3^OFY*oJfWGW7*YI`vp8~)LR3s)=ZkIx+|PG}?k
z$~ThR5(5<sg98GtO-%G4(2k&8pBT;>gw_CDSsOe9EDyy`h1nQB_k^jB14nbWvge1v
zSrg3K`8}nH7~g>DYLPC@Ik?85f1j|bvNFr?=cpB-XONMR%7_6@<i$!!Ok#Ue8dika
zF6U#)*aIg@($kM6i=su3=zb#R`qEaE3IQ97Ss`-<p%Vg)xdfn?T7$`vS9a-(r7Ml9
zeABO%k~P{PNiB?6@GoAT5c~4t1p5$+!+T=BBp5Qj5IOut0^Qare=F4R!ctZwFU6tL
z*-i@44A8-Lm^dGi4Wd+_BC<oej+WLdFE6jeq8&NMQLi?v{F)`UA`YDzQo%LoG~BnY
z=aZp^H6?aeD+{NNV}dFnnvTFp*^F)y(0CCapX}$xkQ$gWatoPCdYGR-O@%?_#&{pj
zO(-#r0un9`MAN&l+QER@LGFcaY{(?Sl?TIe3pNt(<l7wcbrii%j7!BZ`|@eW?%z-Q
zOjjOy)w6M4i0gsBW~&*qK?fiT*U-tB04Lk=cA;bm)6vWtzH8X8bLgretN{R00W1ba
zMxH{$>b96@$4!*4Nz+|*1}|b0z)aQ*&JM!~xiz5zvJ;`>{=Iq-dx$U=qn03{KY0|Z
zx<i!D%6utV9w&GFg5Y;-A<Lk*Pk$rP$RrH3BLW;TCIUtm&ul+J7)*C2kWSY?4|y$@
zMasOM7rP$A`gAa(z!C0B%qtd@B}SVat=AoXU_qE*lK?nIN$qB7!?2y~JhhkqKq`aB
z8<ec_VWKK<5ksQ}Oxx;s{q}!zC73F!&tm`k>BYyO$>)+kF`B^J+k5+{uz7nltWI*6
z=!8WYiAInA#)-Al=mmrqHx1@3mEYJArPii#BVzDZ<o>BkMipDXe*WC}f3f%8VO3{a
zw&*q|L@fo(l!}RHBnPu@5KtsX6_FeyXHW|>qMIaH5s;iDNJdeSAV|(2$|h}s5+%Q}
zu&VoXzkA>7d*A!x{?UAWzOFh4c38i)<{ER%F~>xMYsc^eoJ_wO?Dbt$14kJ0lsREC
zL_2~vNF1|3?;q}fZgk4USV`kbu10dj-BY@D6Y7vY<N7)|6xT0UDP(UHO0_9mseCzz
ztvI}WwA@C4@B9yH-+?glBHfuBPe@D^Go2xpp@nh9zX@fnsg*&mt4Ri(6(LWSW=UEu
zGUsqB`E1d)eS2#OG&RP`Q^Jr?A%)(qNNK@7%-6`)^@z(hYkwzsS2j{QBvpSEC34%+
z59B^@wNS?91!Q#i8$rY-62FE?^r90lW&;?>6Tg?MSFhrFs)5*+w0uMF9|ZSM)cDt?
zcmTG5h>3xx_!W;~LvK<Hrh(y(g~x_U?i}=>y=XV6#uKotk`{2w2|=qdSP8e9+OFZE
z?>|4`|FBv_IDjh)YNl{tm$PBzjVVhg)yy`3N3#KP0H9MDMNVOWwk3M)raLe2%S3xj
z6hg{Va}2FHPO3emum&22I<1bw(!|ZQ#$<d{Hqjpx#qSvbby`w1bck`js#5trlWy9k
z8KJM3L4;yZG6fin*WlAijuXhj*#w6v(Y`eA``1DgQkPJaZ;SkWEeU|zAOHvZ&gbrp
z2>o80yeYCEaaz;g*n9>=<el@hNb3a0l8>v=fj#g~u<NoEKC1nZ$q9YplL+iQEjG9@
z2qJ>zoucrVp$0tF{Dmxt#y=dca*=5EyBLE_!lg3XLL3(n9G(F>Tpx{}hwtmmv6@l1
zSZ*FPh`a0`0aF)VV#>Aa%%eo3ycdGl%uEFr&YyqejOKSqS}@X!$m)fZV;sujOHC2p
z;#zl;4fyA~Kp9>4j~=Vtu55(XFd%%2$rn9XknD{>5ZDXr$$Qqo$I209dsGffUjmq>
zg`vc;>CQzZjroke>>^Su9U33y*lpH|1y5uG1z(^iLj`TdPfF;-032jXhnb*PaBw_n
zns;+^d&)ik1@PvZWA81=MmnSfheP5>L!A5u$9>i2pgrw@%ZMEA52S#h=e+;<i`9y!
z?&vAQgA8ex=0FZ<9DgM-69oW`_(C>E@!)t2xGz}nz2wk`^zrGwf6I(Gkdk4qx^ERa
z^kWc0d}(B3fEIEY{gBOs6Z7}iy5&9`<lcsoAN7@_Ob)U{_|bd9%^rFMrwfsW7KW$O
zO^n#q4$M286SaPROO|+utjp|h$bZTK(JipV2c!;f!GY-JS#&=y=jMYT^gpI{pP}sL
zMlWVsV?W=UueY8f#Q*+Lc<sp4ioW*z<f@)nYlpkv3m;`fMt=JJ*UvxR(XdTAq?$^~
zLFS6XVfeIyHUOarL!?cg7KUUu3VL=06BoF1<eQUe1iv#>1Mb!yx$LSTEl<49&W}So
zHbc0)u*7AuDkQokx9`1yPSf993?=&dL`VesIz|g6W-ro4vf5^32wI0~bBkpYfM5&G
zJH3(o_Oa?;vLy#(&t^R^@H0PG=B4M0uhF{zt4=iG=+!2HjYA(w#YvbU#Y4P#34TcT
z@$6va_7bkqr;)xfrDWkr)WAUMcbe+D*&<MRZ{g3pGg*&%Gt^2PG_6x&@MfdOPA&B%
z!XhiYUjC0&gmXX!!PPR0F1jxmc(DFH28zu8AbWOX(xjqHNW|)prNNUkPcoeWdnu@w
zU*S?Np<mtkkM3ys=~I_#5NS^kN{{Sjbh&CmX7WVe9~qMZVkOb;6b=0Sh@Kyh@oc&d
z*LUK1^|5|FsN-E%scZ)|xJj9xsi3#zpO>EXplkn~A$)4T_vr^APRWn!+{u;y(ANJ;
zwITY0j<Q1cEqh;8ZITNB3_BaS`S&YQ^ptmQ{!s?J)4@L~_SN0PLkXZWRO3uN@_`MY
zlnK`hzYCzg3f=;1)H`{~npUK%?I!h9keru72`kxWmQ!;UVCSLriW*KC$;u)<wu@_E
zHFq@bTjn^&-k3yYM$-B$ryQ6dKJ9m2Iy&K4!Mk9`(9{fRREHJ?*7TF+49KuY;gO~S
zWo->^^+kgL5mA81<dm{IjXd4@_zU|VNNhlD)4~X2LhKZ8nb-gc7($Rr9vMIti@8K(
z5Uy$TLFi;+>cyf#;*bEuK$`SkDk+P3!lVds+W@Y%q>ufj2D8Bn#Hk-S<9JWhK&#P4
zGXeym@JsdHorJ!*e&npRS%$kp7a;3#(%E>1BP-GZN;2HP6}-DRP=i?83&Y^18g?Ft
zw@AUXZ2Fd*y!?jW#aX1f=Y)r)-t|<ydZ~VK6vi$oQjxw;mB|Fh&OKE{E%>X0`?lUV
zKCJgb*@i%2E6E7`GZ~@L6Tezny!8DQG{>EDZ4`>Z>i)i2cLz=Eu6o>-0FCrZjfE!?
z&Du{m!PU$DySo5qEQ|^ec(AbaRsp7y&`rzZGZQB$G#7El=8A2XO>L4_T-5s!{oP*h
zF9mfHgL6-s2e4*ghVdDD8pCV2kUO5KJKWdaS6<mQ{L`v?tJT<C|D?4sz{qc~#Li;P
zbWZ!~)#4@D*2|lF7vYxV{Ypp0ecK|<Wo?1C;f6I-j}q_}`9@M{hpTeNuwvUH&4TY2
z3no32j-IcI9m*7tloT}ePAsTf1qObBDV2I3d&4SY=VZ)M?oJ>lsH{m|0hO`ZIb(o^
zI3iC96uby9rlD-}GjuipQ$z@tUR_;nKFFt;Ehx#d;3><NEo$w$9VAM??MKp!^Muny
z_Jq~B!zA+L3lUesD$t7Ppjtn4>Diqt`}XcV>oC?=K^kS{cZ9~lN)ud@x3J9sH<h%9
z6T4~9Xs0rgCv~vJ4@rBrZ*pB4kvrG6XC9fkTBxJ5az0vJNrkvRlA{MGCRSnF3-OEQ
z|H3j9epC8SECY17b-#{YdH2`zDKJgu-u+M<UVI@9Rtx~@HZzL_{+i$iWFUaGF)79k
zO1O?|kO|^*#8kdoAKN{QCI@&;K7r}*C17!YW@WUOMkgCf&&&+EB#a%7>`T(EIx-5U
zo^Ic~>2M<BBCep&cA`aW#ni=~%UweCT=ljUxX54vhyIBWdg12J<#R}oS!$6WoWr}5
zXn$)UJ=sFOR$^{Kwgm<aM3DXM`*$n2x%J=<u7RpITGZ$AXmv`PS-fAbcwO&b4uNmQ
zU&Ct<lt~Q9w3&rS>JLB{g{FW92sFT-`1XsP(0F`&YGs!_A4{3g4AlH1ur%yNANmC-
z`2At}0`;Xn-0Zv`e`k*}%t&!kC{$@UdZEd%fKyapK8$uH;uZA)zvmD9Nn<zAI{!+U
zR4xt<FL;W|RX2>L38CoT^s%szk=A5VMbxbznjm)F)ol&J3a96$Yu%C0Pd-xPxS#La
zW|4I0?Z-0SZBl~I3b#9)C)Sfuaj;WEHyiE;SRcst;3b&OtFlFj8#bmzoR|@nMA#?d
zS(53E&l2q|+EIy)9S?DbR-M8&3zfHNQ6@~SW*(`@nV}OCQ!}%ig<Io#)t^N~5pV(1
zGRur{8+ZnzEXs-PxkbQ4-rnBcoe@RNYu7y7{y5HP^hP|w8u2uR0mldyZRs{f>)^N{
zdOop{6*I<3gDDwiM4TB%3f4$0zE#?&J}76~Rm~V(nzMckeLuCtIF<O%z)C;<K!<Et
zJUzKkxq;t1E{5;BiN!LM2q~1n0#tqeq{4CLT-?}Ube~fzNhghY6C$&eu!W6wBs7p5
zK`U<DCXE<yXo(>W2nVu{VSLIp|LYlbu$0_QMP3+}XaWp-d|YGm&JH@=yU7{7xjWbk
z(U|orFfeel+jl&_RU-;=a-qNqq-CENa*)0aLZ>*SRf?n&hZgg$q~xq$l0>D5^}U45
zG!=?Rc*sFgNk;atX;?mmJ<BM(k=m}*S)t)>W!)`(f8iV7PSsB_jVqT#uL*H6#`%%L
zDyNV%8laR=c8Hn6&eLx+ohNkg{Pd96qzc!)JvHes6yRN$0V0g_vymx5fR8n}BAz#q
zf&qXb4YVd&xQU1cHAMVvH`-?^k%HfT?7e+pbo+o1p^3p;?+FsTaRQJZ$e75Bi5D$c
zYqui_N=Fjtled0XZOX2|vGb|ro{?Dh${&_MwL8*5$7FNp<E8{zx4Nfd63{-HAV5^r
z&~l}9Wd;nxZt5Dbkqh46SNSg89`5<1_Eb;DU0qqujb*1S{@<7?ENxa>nYgKflP27$
z*D$S4gi|({N<w*{ngWQPfdwT#3*e6#=(}N#i7$?KYdp`fu`Efk#wA63u2JyDx4#JG
z44!;H92e0}sR$MXSp`loI`(3KI2c$FVl1dLQ~TlQB_HoXKX?Q#ShRE>h<7jn2}eGO
zV)?h*eqBJ-oy9l*EWm|BjPSf?&lz7$`>5?M(>DmhKhb0sKW<hYRYI>MYGmv}u7d|J
z;`jLZ6~U5DerKQCN8Pd7Zf%@lhIo?bS25ck&#_{}gIXoWknCvJ5C2BU8Kj0_l)*VU
z+XaK5Q%L3kvXOYFgYA3w%L9#1OpUb%n8aX!NONYgkir8da}8)=2zPhXm8>KSMa4wE
zuC5`Z1K@=r9M(YbDk)FxTm6Apeg71Xi%gHLJa`Z$UhYk3_*AX*%c5Ye4ri<>n%uq)
z3}75kLhVu2-GSP1_cN!b4GqzIj;)x9hGQ0Xc6Q4Et(jgWS{TYK%C)8%T89<40h@~~
zI^K=WBsn^V7BFWnM^D}?BhL~7@Vd}R|D>V7Nk?(w7)dPAcT+*HE4Uln>r7P-0pdrC
zo#1??3_^h@yE$qmD{9e*CPhm#ZQE|H2B|gnwLZGSGGVK;dqyz+iu6YT?x0fcy?b9Z
zx4>w_qy}YsD}pu<E;}-#kqT|6t`ugzE{!8de2yR$xcOXo1F{@AcGaQ^5eBlJl+)Jr
zzfK!niUy?PR4A_v+?%{)Hjo)mikY85EbpcQ<Xz;6eyu22sOp_LI~_+hB2{;wKEdcj
zLgm`w*X81`W7{%wug40Ok=h+e=TPb(Ws?4lbX+E$Bid$L^;5-O;gJ0sYX{#&c|?lQ
za+le|Kg7a0D{_4pp7)q4%peEJFDd?=K-HowN3-m_IM}$)7y`JBiVm2w0k7q=S};BO
za^ugK%tZp&Wk8X__9KztGZqf|${39Vv`z1c^^YD-aGBxy;_^n*zGpYCMjQXbx-#y2
z7m-+;aUl%M*3GsksY2V-Oj)i*#R$vk?-%yea|NA`ie4KDQjd0GOWL26?}Tb!pB^4g
ze+NR~&z?eR<E<RYLXLPNqi;A<OIDxX0&5NZJS(Tq$~OYh66aOkRfW536n(8EGAN9x
zOfLJYaz*vd&krnA$3)NR#t-^G82kOm(e$o_4jEVmeKAgNQS2W>$hEmV1#VI8cd_pI
zN=Qv;oFO}MA|#uXSQ4wxSbYzcLBB+$#|smfc(B5J3{(u}@w5!tPdmF@e)Or5vP&NE
zniPr%(}VE=(I5LA#kJfnbl_5{fz8`U-rQ8)x*o8QF|>dHE-H*yHSolPhbvw8KdXGP
zi&6Dns(mY?A#`*?E&NEnTDI+tFA|+zP6|Hjy@PKTFRZ%Ui@p3!F#NF1PeQp6dvVeP
z{N}LWv&u}V+pXtf`h~0nx8Ah4pspSZGSLu#J`;wkULhe`I&Guvs`0X@_+p?=f4+Io
zu?d9<bmeYS)<j+I?~-ox1z{O&g}mo=r+Qjckg3L5Nw*WnR(Q8;$$_B|v2&d_LIZ!3
z>c1i85Fn^GnF#1+HU3)PA0{Ws*naSWbAMtWib}<w8-C&ru^-X9d^MDe>w$t~NZhb0
zjT3biB%Hng!CwxFa$ORR(&~Bk@+~SHXK2+R$s1YppPG4$8ddz7j+38U=8G1}y?stw
z#T^CpF4)8FPqL|c^r-fS8@Y%H5N?2US>D$LFsJji=;7;`kyjGl^5OvxIk?KBa1+4-
zCm!axQgWBS<zMbCAv?f%DRI=wH<!*$vVrYGqI$?uaYA*tS{#S1FGp0Zto$rkRiCg(
zX>;w3cbrkhk)jb=Y^Ho}+Jl2QL9gpcuso3t#{RDwWNM@KIJB0C0C%=N@LhcvVIBpF
zuNB5HoC9l8G8HS`6zz3K5m?m|WW<du+=r?(Vjqn0iFxlPG1ScvKF_qW^MVTOe>ueJ
zKK$5a8csMdTA8CYO7POkQ;~hs3M?Zv^WPhUvq+*N^dh8B5o4=d;e5B&atgj8R2uq{
zBjCUw8Y_Ns-F*vH;nH&o1=p&5e~11VkY|fZj{51v^?es<XZkqL@GjRvb#^xurMAc#
zXUV3s7OcZtOx_%)k>QOqU<NBepz*kf&S7WUL#N^$6vRVC*N2hvR0j40nv+J*H&K%r
z0Uov2PdE6fWv5La()^OCl;l=9^vEy;=Aq~!5tarcJLf;u2Vo;Xz&UOX;B%M}$l-D%
ze!OSSoQb=0GEvg_ajLM@&j~fsegfN>zrqg7uI1Lue$!mv0-!)Na-;9p%XS07rOXGv
zoi_rpfJ%6B^Nm(0@E)Jyp82kbDRU#(6sG~ZXqMNNAL4j3*0}t-t#eZFF9(^r-}D6o
zG2`a3^vK9_KpFT5AX(tZ?mec4O*8pkXOtPQvROI4h^O+-mBq&MOvAlw6w;+=XnKhU
zHs$M^@nX)ffybG$oRT2;CSoA02X{@{&h=s5IaK}s8LvFpr0Wqh&nvsIB@kYDODTfH
z!UDZ>EA6+>Af~`nlYzo<4LYtD4x;{Yme{l5@h&{+?p1@r7!L;2(CiHh9%%D$Z4Pk(
z@Z#)CPZ|9Ay^w*L+Wz$T5!=Vx#W+#L#cZI^=4*H72IpoZh%+*jOY+{|U(Es;EYGNo
zCWmSC2C4$MmB<7jTue1U5dd!TCIPU5>~DB|mLxoupkJ4@lmqG+IIpc)-W9kVW|qan
z6?lFt>*Q4wwMyhZ7>;2sN+mMNEkm;}KMaZ3qOpDvQC`%TXpKF*sN<qDPmY};L-YQH
zIA=0sC$(4jC?jUogq~jYkc&yWhp&U!cfve{J_Q9v+;(^$kk0~ZlS}neR4_^~j!`x)
zkvV`(Xo(?Zqy|P72^)4-rLJ+~Qj0Ocq#EgG^x+B4^Uqn>*k0i-xqyE48b0TrtI&rA
z9k~qB;&5VL=>$TI<z0ea;y2}z2OqoGjpSZOKaMh*LFTXS$`iDLlgP_R;U2!+7Xdkd
z|H#l0q%jNt9VJbaFf)6j6MN&%1C%@!EW?vBKyNc*<^?olxxowaBpQt_!Yq;WDI;h?
zQQ3<=^J*erAeBK_=)UgTSRnKYH1roFNrdtzj_&ARBMJmkSp{-cBWSp(KR!h^CV}p+
z{(3a%icjk*<EN;7>0{6(ElgH?BCL61)>}9^vJvZ34*gG0c91z}-gM=7NQ%z9wQ>Se
zvVJ4)OGuiEj~D*j1rF@lXfnh$l{X$;2!`G!FVrrlHUE*{sGoM(oFu#H1M5wrj~h&%
zlvcbgw2qbq!1!b1?U?8r{ueY6(-y6N=OrU|F=W#gr6Sw!ZhF2K=faM7N_2TkDs2%-
zD}FXpD9rt7&sOG%keE5osXZ7&w`0d~nwSfi4fV9ln+5aQs&kKT<rUqSPN?90Wj|0m
z6zt0b!13$XFV#U4jLO@L$~tM~CMdIc7L~OxFs~X(&zq5kVUTnjBg&nOb&Lowkwd*7
zkojh0?X6-mtBvqDX^>;Q>__!38u7XtVg`3Jomvs!$D>AoMF8|zv1@U`Ybm{wJx7W6
z7#Nj<jr8hgbekWKF?cL-`mV(Ei^l$vvIhb%F#B5qB(IHSB^`&T=bfB=8KUn$*)r(-
z3e3#1JuDAc^V$-~jR$QH<SK$}z?sZ2SR|+-3<SV@foo*hUqTk0i?45Yzkh!P)4ku-
zHW7RtGI0a0gBm8^`usmZpNsO(5p12!p9}ujk0xMnSRhQZju4$F@@NCdZ!h?Ahg{>q
zs;*+?Ufx_prbYE)zto|A1tWe3)O$#rEf*a=pHa9TBMo9;7V`J^sLq!bXbD3-aXb^q
zI~AqM&8Y{aFA;|k<buir`em7xC>pI?-!BSo@M6@GqinrD9zkhw|HAI4HoV&y4UpsJ
zu&-p=R}x<r3+)L9eBjl|XT+OxP>JR3;p^wan`Dt2qSXBO)c*O5W3!oX5U~q8VSo!3
z95?HW2Pa@raO846MGV6|GQZwh6-uy})t;;6<*<o>IdOmVP{JE>Hjsc3vFNF2=;lD3
zFRI1Z55I{0A?2^YTSNkrRPe5#xC*m86|t4lFfZCYS)w%?8XCH@AFvMvXHR{9qTJy{
zwIE+Phr9%ST)&(?@|A~#2pGC3quO#q!}6c%N7rB7(l^McZSoVzvhd&f(xQYng&wED
z=m{KVYSV|p!n)%}fBzQcvdg+vw$fGAfH_3akb|3olbbvC#y|6}kB#p9;|D7%tHIa&
zo6ulCd_PZ$|G9Jez7m|>cQ@+DmmIhns)1k`xfh^Kx=J3`<Dbpava(7j^$~pw?oVnZ
zR9rxJ2}DMV>;jfim8d?&^3HQWC%zk5b}E$rY~Dqo?9-XxFhrZ_7f`nxQ~;JLWH?qx
zDNA}Rm!@qZjma3AWSTp123yn~k)!6t$z@<jOaCsHoM9?RY{Bi9kBHv&Ie<+$Slr1z
z<MOx>d_^mehQwgs5XB!kZp6(94*);WQ2BI>o|_x*xZ-qO@=$Y91uyvg>P3*j!Bp}l
z9krt+Egz43&esY6jTBE_0~awNyMZ<Sehq{7<LSGH_(GIs?p(aCZuV5&BYSQCAv|`m
z%M)u?lhF_hOJH*ciJ-?CzfO-`XRrsj6SEyB%>ScS582AW?kNI6E>9rw#_zu!#2Wmk
zk`r+*OjK7_->N(Shv3T-1Rc;J2A@-YR50|flERCmSbuo}W!0N>!VxEC0|w>~VJ9yv
zf#5CWKZ+D_ZS>}wJ3HgOVc5EcyN%R=5t5;@BAwJrTG`P>`yX|cO(?YF4?!5Ys08!0
ziSC9YXwz*Qs5>$---9SZsAL}R5e%*SPha%6ZjZ<+u{(<69FX&33kI%Sp9D!8q#m*`
zQu&t}n)&IguTVfZ-UfQyruoKQ)EunPOG{`Q+(<E&4u9|HV|46TMX1~(aVJ%D|5Gj5
z%v5q$@9$rsRImQ`!?FM0|1nB+NjB2YJ6Dt^=WqXNF@#4*#|WpyQj1T8v8lce5TEt#
zm6*5>^N=`D1|>&6OO6}+M__IknfF*UI9``oi^eNGj3UWwzq5tREhq9v!#Wuftca-$
zr{M|(K)7a;bWl=CJ^W-EGaA&3bJES}l8BYX$-=SM3;h>R-ro34<sAc`QH{g?0xjI~
z%3br?!{QuZcVZ}nK_thJSXRSsaaTw=n`PUbD|$fbWGIAUtn$SeVJM;!0CZc-OL*WA
zbRVcZhD4dhR4KmPU!g>47X|eonR^&FxnIFPTVWG;X>fy<B;T(Dh$M<i4UD((sb0In
zI(8FfZD0()yTeHLj(N#2Bw#n`BO{hVTRV!$0$<Sj<tQ#4EUH4tAABvv9&0iXmDmP>
z6DSq~<3vp1XC~|NY5^bS!7yr<$D8oM)b#cBiAn~A;mky5zHB5;zqKMz&m2Wn0TYlE
z@q}=@z^E*T_*RMi$X_&x1Tl_`_G&&W7;*k)v})5oS^&RLTuPirkES+Hp$jD5bGG2h
z{JPd~&X+^n(=4)DZsytIxux=xAV#5Zj{(aPxg7EEj@c@lV6+dtDQFc8gSFWVvaMS7
z*&oZmw8T}q)*WD?V`vu!n2{R95#rZxFb$>R!uA1>Nf2%-d8@Ib*aN>eJxCIX5iUH7
zr=N^z`Qh}-XGsIJ6N-6eEIp6RWUo#&RQmkv;7N^4%cQV7=MuF)Q(V8k@n$8TtLz4n
zSy~vX;dg7Cak^+>kn(00AGDTAcR-iR$;Lc=f81b?IC?NmH)`!bFu7*Q6z=IM688?=
zF;hsu_?N|vibt24{w`El4Ruh-3_UWf?0i)<21<bEvX4T+5cLGWSuJnl^0aG3f1q^|
zQs1a|lhKVqFlH?lH&h#*(;X};U~n>=Zo1fbMx0b_Y`mo-O#kxWyv{zIWVx@O{?ya?
z<3hXHruPMZGUx1E$kw5L#=B=BXQ=C+pDsR*d=y%G$&W?slYHl`3;V)&q^rV;a$QFB
zjr3`Ij4Oj`oW;vMyQs+#ZO-G3hW#@wgZ6BcoGSBCQnh(rPv&-Zz?MJ_4y~`?ua$T<
zJ+;vwMhD}I?9fMl2x=lGcJb^>CB$CZ4oWgl4z0P#x~%LL^Nj538<uRTdgodyHfFCX
z++$J#hoz@DR4HY34LWl_?n<PziVk3ah@`Qxak}wq5uatx$15;0l5&~F8Un}NRMgs1
zN*TXUq6y(>!1N&>;j{saWb?fC_Q|RsBIesm<!?4CVA>{}QZj0sT(k#sUmwnhVzMNa
z^$~rlU0(tpKP%h)G<FaVT;mmAE$VZFrXd%imhCFq?nj4^3hu`Ah@PLu)^$S^`NxD^
zzRWTP%^-)$+FRBNPEJnnOY#qNp6sF0*2{|Ch$<mQj?^KDwQTG~Ru$C8rMG6598J@`
zvQ|Sup~je@-kn&$EJahth78i|gvzG;vB<zPcvE%qxlBm;-mcYYxNgI{<`_Np$&SsL
z=KBd;;VL`1M$C(26X<-oF0qa$C(YllJIg`!hws(hLy=KYMGyxBv{*M8M=^fYxy;mY
zXsoh@6<!dBTepTiU|lEP;uGE~1jJR^r4q6L4L}2OYH9&6GU3Ekblt=BwTSPs=gIcj
z%LYN?tGQ?yr`FipTj1R--=b^9J8ZbU=iNblwr#J*o}6SZ!ntgTqMv=V@hQgykWyvO
z=4ETP2Xffq-Gp<_?=B6IkU)LI%)rpl0vp51zz@Jy5U^hgVt%MYeSpcwe(`5n*ikqW
z&Ms>8@$vbvG=B~(Op9j#uKVW?H*eld<3K%1qc<DHvU0V;s2~X!XGn?sp#baDm6%cy
z$A67U(R^0hR;9mAR5H;uf+Z$(R*2Qqbks9sngb?QC9+6CW!e%=V1i1;J2MM@bv=(~
z-8NBXWA7Nyk|9d*PFFv9gxE7l1?H=%st%#(*a0WHQe3va=u%3P2@tg#8ZrW^bTz5P
z7?UGMj#wJ#<(xKsuBf2k4Gy;p^uS46KS2ZzXTZy4sG;0Bt-y-Ax$K>0M$kc%<~JNg
z<bNwgwNXiPo2rtMFPKh70~jw0jG(aAZ*a@8#jx@Qbr{f2d}GV2kNSDXS2v&~NtBXP
zV7??9oO}PsuS`N=yVJ2aUrLNX<^6NKVgVC0G>L>P1CpfVDj5+v?1w)?ROj8>J0@WO
z$zT?h#*<bbTGjNczEIr9s#aw$SsQ%r0-2Ul<I|kJB@>+jd48Rpo$9F0JY3Q)Wr0y!
z*KmfZG*kzK=7#v@Xyv$@$N{dxB5cPV<z91au;TmKA7tyI&j0x|n?`k20K)e3hiRY-
zIf}qnWtK9Y3EsGxR)6&&M(^$-73aIdxsVf3E5n(Oh0E<%(sHt*b-+Nq7y{_}_UYBD
zS7%^em~hT4-HL2n=osvBf4K2k?tddg!#I)n(Q(*+36OJp7(&vmC}oMIeI8KW?%JxI
zv9J|YxI=i!(LW^WG#!jF#`tkI`WMNj917=i+8-_#m1O{bs^<YluRo)Gh0Ihf$$l&s
z<;6bJeU?f~aOyYQrrDEWCZdt^&Y~;GrtDzhR!@$Jj=d6orq06wcEGr5={1#=G?(e`
z>_h_kx>nVY=cwL*%pAjICIJU$FBCRK<_Qdm+3ym`xMI3cfc=D_236WkeP#X&B4g>B
zL))L<X6}tAK0uMK*vxyV&f{5abhWn0+CvGtm~2w6sAlX9`ekR{uMd3Y7zm#()CP;3
zC)bXjYf>N+&G?&)UT?K1J(z*Qqy-9-X+mwRYDP~(raSg(XwD@=_H(8T?}@<cm{F&|
z>1|%HTHsocRc(=`L%%naTD#CC(K}{rt^1iG?{l0Oc`05&BZ)N$mZE?}5XhC8#~EJX
zYc+NJzD3{2Nd4+0c-A3ARNa`kG}VZo&QjrW_=dB)u(X=QQLGOkXw$)~r%(>?1gk(t
zkSjqd?Tz}%At+%~;|nWU3}chd<c_5#ST#*TW9>&C7WgLvfqh!7#@06YEM<S+D!<AQ
z#ZkQ$C&$S=f59^DgHG*cj#7ANO=0T1=^`^o+9hek_qjyVhz5CB2jZ=%z;xdutW#ov
zDqAKaKC3Zk3`~jTn?5jPjV&K5eP+g8=EkR|^5z`UP5#4eBA{Ox_6SKkKCHQin*-fk
zh)m+B#cK7TxGk2vnxf3If~XM{Zzw1zWFXBvggbZ|X~e)&V^MUv*n!D4$AgHFWoJLV
z;CYr{49>w5@I?<*TxLcsnr{?ZO=XtQ%^zb@E{ReNs2yZE%}^3K4=*L<;i%~7Vx*Au
zyBNIQl6K&f9Imxc5~HigWrywhd~r7U|CA-Wzs@IV`}Y0T#2-68|EVaHm6E@E{x4kk
zjh|g_MaNqb!Bo!an!U3;;Rm-UWIhV#9A&@I1HU-U6XdrOzx?osDF5N1n7NYTDzlzc
zvtqJ)dwZ*EYZWse@p5@fdh;%T{Umv-#A5vGJ2}epC(YO94Rro@KGGk*3uYU<ewS$f
zcV2>gtCnze-dFMQypTnoKpRGq=*X9oQ3(m<0DgYBs8TEG^GY$xEbl#E$?S6r=py)j
z&f$hxDUaZZ@HwpL@0uPR&53CzpYVJG-1!^#L9#AKcAcc}{0e{3#_tdxuT26b>Wns1
zz~v<|^RL@&XOcW`arf_Qt*U=VuUp35-MwGNP+y-KC9it3hCA;xgU4IaEhbM+yji9(
z&LX9$_@zAO?j;VheWpR<?G`6ZmHyhy75*}<!la)|waIqPGRiTB#o5LrUUrs;v~{My
z5sM4cOPW^3M^25vYL$prEH}A<8}-DL9Hq=h@1n2_r?Q+bT=E>tt5vZgeypiWY-d>&
z{+fvsnEZ5BT(0L29|KKe<4*a^dzz6bp>1k>>)dw4*6eyhzWswRy~2l}|8>w^<IVe0
z3UGo8usfggcz#nsnM-fQk<=9V%txBKgDx$9va>f%Em}gkTvK&uhTU(fDTYhqOu~^L
zPrl1-K9E?cgDtXrf$0`Fdsdlv+-_`aw00Ozqo*lpNuIRm>e5m$68rXYlbBwrq;JIw
zgxl!oXbx(IdhM$4RnakQTU8%an$XQNDtC`a^6>Cz2)8Oo;+!#bN=`?nr|(nEO8u3b
zqOncP<+R{ZCCR(}iUPZa2eS2-C|=rnbeW@2c<#|4|8#JpqdDl@5<8pUbO(qgqD3Di
zRT&KpjaPNM1r5}I)O;J0{=hpQGOADHpkf(O5>#k^@Zg0!XR78{BWCn5Lb^D5s;cFC
z{;&^6V^Jwr{xDh{6Kg3imQSgf9=!JH$w+^b0QC@fHBFaX&YHTy?w3*q`uaU)d3>M!
zUbZw=wEw(1W@NL|q!8g!&SaqZXJ}@o@X@0|t8Oo#C|kE?&1W_L^Aiy1-MPmQci=n<
zm>hqXWh?<+i}*#V&Pkwyst;k6D_flGV%LGR%Ej5#%I4<m>bdc;tiR^>wq>p4`X7)p
zNFd5<hnJ9Fq$po`^me`m@$WnK|A(Xa-!Jjs%lSXLc>d4Y7xGr&tM>Wh2iitU`&qfD
z>f1FNl+YD=82uz97@ZEu!kwq7WojyqkaN#EKuIHL!kaggtrt|?B+J(cMpaixn*!?<
z7X}YvhpG#^sI6Hs-F!)mO6J7Ol&)s@!)`apaJjovPQ$JX^p$UpZlK=n=Qn$9ZCD6#
zDD8NVNbT6z_m!0V;uHBzr^Ds+lMdX}0XZ1*;hkHnUWIGAJm=`7y+h2-lmNb~jf(GQ
za`i?PD?_K8)|DCZEQw6|!)HvG$1vU6$~N1KTb~px<$AA8rKF^cn1MFtSlG%7d5C7`
zXNDvDPBFGdMJ=t6%*;&k)$nndAXlYUR#$tWp;F;Z=+%ARl4v)yrG<e>t&=FHR=$dg
zB2gE2m!Fbrmno{4amS_Cjit9<MWLbxOF+8@_9|!AQ6W0PBjKt~HDq$_&RYJcE2h3I
z`2L}<;p0KWe+_n-QcAfCD2YbdHvd(m@_*Kb`Tqb;{`-skcSJ-)jLxiFVwsLJh-7ND
z9kRD!RC;xh{x%?UeGO}s2pr6RKx%+D=U3w6F&s4LxEI(bZq5O4l}rZjLY=D&H-8XH
z1PX~K$VKit@Vb(z;s8|Efwtf7gPbiwdOR@=>b7hUO~dLi#a97RCAmo;x{thh*OR|`
z-V}Re!62%i&ye2}03iedsS-)Nmt;5$uMfc<TZW(_ono)^A>uie;qw^9@}W1ZL_iFn
zKIzLL^wo8d&ogmws)QM%(jd)najTt&!Cx*ZK5$J35QWH6iWUpdYFzdjsC5q&E+$V|
z6z4OTW3sCI7q)`h<Df#E{S<G<-=zW$+mi#hyK-gBJUn^6S3xP$b>IMIDsap(-Do;=
zIp39os;#XJVA{0$mS+b99Opse1XMAL{>TT-mR6POEg3FTp2bNf)*@-1hnN33q8moW
zmrYBuRjjJ1t`5^$5S&LueHuC>$c1K3hL|o`x@NojTS?(pQ7&_(F_!CcE=0-qn&p{p
z7d&90bXn|l<&~_OT7z_Jrp-t8g}+5O_bH)ok6%i0y|#OWZGgW&jRU~k&?flwq88*B
z%!^vVABqfjrEeRD2#ObFm>x^x01xF|?)`s#h)G_zXqi>iHm*2eakprITcikj@b=gg
zBsa4RAiS<8tIXbwK=>4Uhle{;)b!tfN-;{-2`}lklDvJ_`q%Vl_Q|KEbtY1rR*ssc
z+eJ?y4qwlA^%Ax#)k`RVOHPYn_;Opeu@kC-%%*CrPPa4kOcR2w2lmbyyBV)i=3m4-
zZ5}Q~@d+JN3^~^pCw{T#(8^bn-?b0_%3_;ODO4T2VD9|<0G_H1?f@!{Sk$-Jb(U$E
zz0k0-vbvjN<Jm!EQ(09Y_sHJnJL&CxNkgN>exe@&UO6o-Edr|X1>>d^fwIMa9a~dg
zMs6NB=F^sF#d2>w;TFCH|AK2%RaKRsX-VHp8$q+`&wPv5E9{cQyi+p<TNvJrH+&!r
zDM~ncMyRYz>%#9|?II-es3g(CraOdhc*sC2HsgRcUW9BFH?Cg)P^Oy2lna(zr}IS|
zfBoPng7~>=;8!M@okqI`HHud6q_Dp(L{QttHVnA4_9vkm$7!R+(#E)9)@@nJSv(^B
zwRR7edg9;3n@twBmQ9#tHFOE<R#+put1t<YAF;OJL(a^i{lQ(~%k4YNGhM$dPzAjn
zFif}rD&eV2+-iR3k)Gsq$aCsI#7Lz<_3M1U2c^o-@GGLt^GX>f4CjG+_kMid01g!4
zZLln8yAD=Ifhtbhixh!{kOUk?tpY;}#bNy(YZgupHl;;7eB*5a6*JGE!)1cI2zfy&
zHRSIeO0z@gm<xJKDRSO#+I1kEWDAGTsitm6_s&2mj2!rERPS*r&x1NnckI0sVldok
zIRDb8Q{|T6*Rg(Eaf*c?+~v}kFJ>R}P}TqVn}txW`Q2&xKVTpJ&$<eKgFrN^M7Ye&
zl1!Jd$fiyVH7X57m=3UU(PpPV{6KR@M^oD@HVFz~LU@u~>K6}!?(G2Ef1XCB|6us-
z2{$gz#|Yvi+?8M&qIsvEu3~23J3+eFr6IgR7<dID1PCwL{|G*0d?@N&rFEcE<&2qR
z@;Dgn(A(<IqU~z0O5$J~Y6mRwksF;yW3=d?)TL>T{f1g4=%`aBzlwcS0-=Q$hY&ap
zLVn4=360<Xo0z%m{pZ*IP()IKTfx`p>*?vu91u3Bjzo@{{*HyE0D5+{CSxS`jd7kp
zz^YBg5STT_t(rwuBkaYC9iZdxSTk-x1|W=KQfKf|DQav)uQ37ro<9=dR~~7MFrsuC
z-6-HP>)2mQCBJ8wg?W`qSyq*#OweSELQIVbg_2UV_P4Y0e}SW_@#b|6PXD;sutQ2~
zQf_{^S>huE5r>-_O~@H>i`oAesJzyCi;(#>{EH7vwhl;3OK(D42$$OLg=wu^2o60}
zg*HAKN$4!qf$B+`28=KN#{XOWmAl(iJ&X}gqRftdNP^t(6$u}KTQaZW*Nnwp#UrG7
z^B{t2#>it{hd1y1jprI))iN(Y_<ta#a6wUgw7@BlVacM?KML&74G!havpx`x4VZj>
zNkJj?JcHY}Bq}C`IHx^9w+lDvDd=S|UW3f+M5l{}ff&)!1>+7Eg(da;OMqG+bt7CI
z4*ZRJFPYP)>a{)Ss9szmeZ=s**-OaNG*s655E{tUsiY^u&Cn(jwJcB@wRtmOQ6{t(
zQ??6zqvBbjvYM=P3<Bt>q6x1R8iuxND>viH4%zisa3{!3u)oEGo0Rme=He;O(ATNe
zC``oT?t)JNajx^hKkI_&FGuTrGKkdc?ni68-=0l0*E2CGL#L<bS$3x*s9<Of1EWNM
z;DAJ@4C0G<a1#*`@mXh^>;j4+bGUhidc5U2?kw;Z{G{Z9<RSTe3iMPRAa`XjH6$~;
zl`Igp;N%~3?4a5(K`+JHHvp|S%&5&X*X3Z-lY3u%=T;*FgW?r?1D}whOjh5;v)jBu
zaa-J<8$Tt&U9O#hVVC9zo7QjoFnwgk2+v0&TK_cTzO{x*V+59pVWf~Injpoh#OrHO
zN!?3_ON0!K-06AKbUrS1g~8XNT@l_bL)#0G-GS?G>wwFEiA^w6tvhOJCU;qOpf&pw
zgyJm&BjC5D^XA6qe3qBYf79))2ifZ3m12P*j1l4CyW!E+WdYhc3}$+EAoMM2RdjVw
zv=zePBEMs8*MdXqci_s2G*s=3QYy~aVW_Y<a3G&m2Iw(FrE8@6fKJN8u;w6T1!QP;
zgv`WO>_ns3XH@xI=!jgZMh$pEyl4y~;(zkZbY8miOX75Z-SQ^I8)EZhj+ehq*i4)!
zkMx2eQ6D!#MH4Wm(P&~?;W?!w*O%7ATQVuE=51BTpe-55o12}l6XHf1Mh|j)C4EG-
z#NI@eg?sQ|AM_~YP&jzvkfK1)_6Zv&2+{;ys4VQD53<02#xIX@d7x=q?Cdrxd49-|
zV{<iQJTRm9w=ckCFUc-}><&W=gp$c_JM7|l6bzx39j-uz`Qulpe6G>{!CL=c2CpTI
z?PL=Pw*S?aQYACdeOAIBVc*&y1C{!&zt+oqLgj>zr>_vDQGEh%E5RNga+xikqtXbF
zma(uHzFGoBL>!d{M-E*CT`9DFUgGpVgd@7u^2_mtYo5|H?(TyrI~%XqZ7(_DG`V4X
zckTae0XtC7`h-zm&oHWLH*RIa@RFVypV8(NPUT?jdYtnBA^@Tey=0%+2YpH@6j*Yc
z-j#4jAQue|MQm$UkQuZDy5(ZyrKqn3A%p|5%PT4ALRDV^%`_PX)PW88d5dXwQvKh{
zwL(fD24pyt>b@Z}eY#?qLFO6Fjo*7+7cnbeox~PVb2!`TGB+cpDy3wU^nsPiS}lQu
zqIS-=gkD`&x0i}aW=m%>VyZE1$=mm#B?{5o8XdT~ZifzNB_7J-&8i|_3VvsuTv`*w
zSH&iko0EeBlrs^w#i_|SgkzJz<(LR}nYbWy;?u=h?$?0HM;^%xs5EF7E%j9jFHu~-
zt^Hwr8^J;pV_k*%Q>upC_#Ah@6v+gwWAyDU*AZl)wDRSMGi{bIYQI}{cDr5JS;L+O
zrwh$BEc<G4N}yTZOU*JKM|j|%^0!!4)y^p-|Hlto0#6=460IPoaD=gxR*$)Ts*adI
zMUr_&AaLPf>dK1S)8tXXFUk+%aM8l87UxOb@ZI8ITsU!JHmF&)@bWNhS5hu)jdxHx
zgCvb?RSO^{Iuz4I?;L83QH}LO`wZFT{Jv8VNIxTiSfjP|dVsOd+;sVz(ToGAaVibY
zGARz<AG+C$I^#rUX6FPCArkIUS-Y8e<AKXb`e(P^I7RLSQVA9!h$6|ui5sDU)HhJO
z_aW7KC@S=Gw(>_AiCB&(vl1B#`7Ao<gCYQ%AN!N!9SslyJ6I)TuvEmKHr`^NUY5<P
zq(hkH*700lpwHx^Z^E=o%uPbIQR_Po<V?E;!RGuo14QnE9-F8x7!FZm_R<M@WCP=j
z=QN`YBm?oryy7(5ZYp^%#{r9w5|myV!ug~!89A5FB6?!7a6d^#^>JO`AM5B>T({yv
zcyKbmX$h_$=#Nwfpb{f9y5iVnurQvGev3dJqtzSG1zE`X@6SGmNVs5p3PM;%$PP6%
z*4#~|Mn)w0`!ML*TwnhT6WIi)L#YW)#`k+j<<c2O5c8#0sC)ZAMAX#Qb^^7P;sIsU
z*T;Dq+zl7=abwM4pgdVc3dhYjAe+#RkUP~fh)sAs!?0%sSE$CrM*b1aASaFZVqWB>
zz<$@@qTtONe!z#`e5w%9j>i4#kDq{frMrFAD~02LqJXxQP<M~-!<i;9jZ2;`F^Ygq
zcEB*iG4neL7EpfV>)PQ!ljMFc70nk<aDN@f+5IV3ez#>*^G5;P+q@ld^PJC6H|clE
zDidaONX!jOsNGfT<|aqx>bf7+@9+gIfVt=}LD4Y$k&0ish8k=csbirIYH6=QFa(ju
z(BqMN?xz;|mhwz4c!}}|I`5^Vr0@r^M9DS3VL?&wcR}N<8X$I}tJKdEcWWn3gK}&R
zR|RvB9XFJ0rAoL!Na6v3zjTzmB<d)n>PABL1kkb%0lBDEe>1PCykwuO@vxPDL?%e=
zV{9=j9UI83E+NdC%d%_@WpwQkPBUBn94QAMDPj|8S08Q}=-V!kla7l<Kw`RmjRh%I
z;{qWCJ(czcb5Q^oP(XZ!=&TA)o*V(#S6D#T|CZFMN$C_?79Skbqrf31!w<X$?D^__
z)+{Ro%UX^ia)2~{Ls*qopm6X)$_5WtoBiZ`*Gl~)Oawthqzs4>F{f(XyDUk*=_l1b
zr`tM|l65a;sFwk31&|Up`5h#^bpEa^9Jt{E_SpmT)$F;ML0vTVpb#g6g&}DhYVZ<8
zUi&YZqorF1(lDx`qlo2LQi@fN1r8KZNuf1k4+%4v>NB5QE48Xe>}^WzHa<C6)lf%|
zj>Tic9OvtBVeke#h^wS;C{7Lx=&paqw-^eQWTcm!q}&}u<S2cRcc5G^V_4ophDyqX
zTSrDj?7>mBO2aLNh~5PYluv{nYDSWmfxkTjK}sM#2Ulz`pfMjQ6w#J+bz@Br1MBOM
z6cY5xqKxj)hr%^k^*=XIp4+O+zS;1w^>S!h8bAD_2UrCBmFq8cL)v6u6AZs31h86#
z=y7=ZmrZnqguqk!Pbd_mA4|;s;&*sWQYeVwuh2Ri+NLy##(-4OaQ&vHrcRXVihC9?
zi*OU+2WBFw`l>zc|I$#He1sAETE_5GhM8klYlPgC(z?bwt>IakzFb*a$Y1<~EUwE4
z_i*%AEdeG8)h40@#$d=)b5~=aE|8N9EgR$N;*`8cuGiGmM8(Bv^d<3>9AIh*$HkBM
zWg>&<YLxhPsU3pdaQ>n-mTw+?-%mMqqvvhb1`_PZbwXl92F4YU!v3ClA=!C&HiBhR
z@HJ7b&=9EINT~D<*mvsNOjn`HLWG(;JIS!Ib7;BJzRZp6XT-E}tbe_UY&m2pM~iMH
zF|&!Mt(hW%5+Z*f7F4+tpG_m=IpY$oyNk7Z9uY+mQH9~p(@PoMRPW|Idxxek4wmB#
zbDc2|enM39(u0NE2aVg={K#NWpvDl6BFt)gg2!p<R#T_O!^pV*m`6D9!&&j6r~F;`
z`o=RkNl6Exrt1HhnHimtA%y+VHjIa|17_VWv@m&2dfRM&+fa|Ji|`hs#Nz=aarXjZ
zdE`00iI|C>2%yn8{Id@S$GEJE+=WI9Tf@QWs2IkjntwUIj7~B+G;W4ZBjlBm*f;%k
znZ!9-ZI+m6TElgzoQLK%Ey~(B4+u(xs6k`g=UA+?6!&oVOOHKN#IGz~Q&T&h$>Ueh
z3snjUR`V6Ua<?1{;mOO{W{sga(MqR8EJu?pKf)*=kRxZzyj5~QD<{Xedz<|?s|-%%
z#)(%nF=mIC^Vd5_QypkB$`D?kf{Kkr#wb;KNlPoQemdtgq9Cyln#Q*+MjuVZWVQze
z0FvE9_>u5C6=GJNsgDgbRmBJd{jle2|1H1`@?h{$%an45yr&^KG|hQ9M1*l14Y=c8
z1F-=Z^6L+;cE%S)rJpc9c(Tr(^Q4bRC~<F1Z#I{rEy;PP7zX%30w;O?1T_TO_eM$0
zJWn)>twAemczk^PXR|>l(dKD~=+Q-1vgrlMqCVkvusTyMsA#qSPLu4{I<2>bGhr_|
z6K+Z&DReMf<pA^n$W90c#FZG`YN}E$&E0|!5rE(zNWvz$vv)`E^{o>@)>?a`oeOG;
zE_6GVVH^9Q=Tr=dMqFw?F62#c`SOkL>@5n2byCKSw9VIsq|X+a<e>b_7&F)eV4_2)
zlJ>vWn-kDLWL$d!jA&@H=pcFS4uP6_Y-50DbAZ?mT#|+}`9GnrB%?3OKu;WYp8mye
zDvwLTMh618BHU>$CUN=|YgUqg4?$;b)S8uO-q6dbo+Id;NMstb!g1@8&N4EpYcG{Z
z`abydM_DV^77{8^{l*6t+@ngYSyYviCr^?fOVoB$){!x?S$#5dC41(R!aKz(wROAu
z)kanwW=$6*mlJ56>!3@>C5;5TF6A+!6{R!Wry>$FJ+hwHlC~r&6qCI@pYsr61~Pnl
z<jcp!$a8{VQY!%@-zWE`sf8eHb-V@%FKXpgMYpUS@sZ4Xqh57l+^;05Ki>HE{)3N|
zD2&eRynvZ9Do@9r$LQ4{;9L%@mil9{vHI<8tz;BipyN=Hu?%TlcK&gjJw?dqJ$CI=
zblmSF%Y;lI<Ne5;J9iv^KGZUr$wL0Q%EtS2+q7)3sE|ls;z>pu)P9EBz9-3ZS_wKg
zL8q5eA3lc+Q3w|ySu$&1LS0}QXUFba_k#8A>Ns(e{}p9|#vlQeFCwErEQ1QZL22Q?
zX@!Br*uQB7y{32k+i-t7LjwvHOjFmcOqwf;E_R1l!TCWrd9~mmcP~WP11xVRNKQg@
zbL7pMrsZDKNIz}(ov-8?m>tIe@1I|A*<7Yyxp&8eALZG37^~x}q4;SG<_7^JUJ`>!
z@<a)S01hr97r(4i@1>HO^)GXNwzJN-oNZgfZTu)>4W9@SXR;UO84{c`UF6>cMsGHZ
zeF}qRYuf@^u+iOkaUY^z1Yj<~ojru}-HF2>gN;KJYIwv)kR@2~qt)-k;sq@&@m!ah
zEPd%tL2<>I_K$ArB!M$fcssPU05ZV1d193a)_})4$zcRNm|UZ%rUSs+d-UeFyAHWy
zd$5~7VGH;ZIjo1+m@>(BN)Z|$mb4ciOY+cxG@WR3eS}Nh$U#f$`A56)H|zRe(0=_d
zv9F4*z`sXel9@@A#+P^R`l{iEXlY2|G%}!BB*pQTO)qUYE1kd8sBYP^1<-rE!|Rev
z5pPx>4N^ZHC{Mvj;`fX2u+kPrFI7C6Gx3Jlkm8m1ATSz*OR4N8tpVhBkZ;TJ`f`yr
zEwNMiO;VUooi$p}_$~yjY0{+<-pS*p?emx4dq=vto!c0vdd1)G-k=Kf1K8<%4Gv@t
z(C1ow+@#w<z&J7h9~^+%iCKvIvR+9oRXm<E`et5e3uaXx#L?VL-duVmo!b}ajqm8u
zqeAe!;?$7zbsX{xDFura3{UNSBtC}2tNZ!g<+ct<ZtS(Jv(tUL5{znd03-SzB@4y0
zL2xvHAv1@fFC6_Z1$OA^j9JE#SS*M#8nifpB!|TO&IC)L5+l&9glH%AcOstk=6zL?
zJDxMRn@YGBRPg2BpdZHmL=?Aiw>LTZ*eg6#BFaXVd<`vL1m#4>#58Hd<Hp7)$P!RY
zYQ9o5F!mk0*e5=%jM}ES`|dVtWs?1*&(8RjJMJMFBmpm^@(-s=S&(dU8X7@zQSuol
z7AQW44nPM*eo{NcbM#%!U;n&vH_vO*YE4)O^uS(%JXzf7L5)Nx0tu1D4wHZlEMA0U
zN~MQJp>$vWV1GCB!DO*gE)91L!I(FfZSOW~#h!j+WxMQq%kgsmLpqX%Z{|}Nq>{y-
z1=<3U4(w&0sxLfr_5D4<y8(@`3@nWCA~zF~>IUS>E4K~oDI&}kmPqj1y?1U|P$<ZT
z5S=HLhUi@84aYsM7vFNEG?v6c_KXN)PU}E#_n=uTvCE+jq4z`#QC`ubZfQ*NZ;Btn
zR1snYL`1VIl@?#H8}2GM-DWWkF>8X^(UMn0IQB4m5wqa)<PY3;$^M`YRZ8*Efk0x3
z#KKZwf$8zB&cE8Bg~se>L`LJX!>Cc#1_(MK>}mE2i&)h46ODS@Fr=MZw#Azw)Wi+X
z0wW9#jj^^U;usNLGhF=6E)P-jB%Q{X8xU2HK6nyy9lxy)A^8U>cM?b{^zGg*a$j0T
zoh|vmrj`BPy{~b~4>O|gdRXcAHwF(ln$QMJUyj9g&kPhyDV&uc3EwNjAgDmLqvMOC
zh-luA@bh<KUCP1A9tLq03+8xU#Y{+IB4!Lo1>Zy7jT}kja~191)w^-1$&p8)!V7ID
zR++7C;GE21P|yj4Tnc9w@(~GW6Y73`+Z?>+E67M%jPZK4<YfpjvhMQ3=P+EI2k6rn
zWO};a^r841sk{XYla>JTQ4O;ovwXcRewd&ROsS@U*x<(<unFGxByXJtYgY`$TSP<F
zW}vC%29vTp>9Rmf>I23m)c0YsQXqJRI-h9|fhQmRrESDG^HO6%#WJuWt=A5Sm@I58
zXntVd&&Ydxaal%MDZhMdS(w|@Qm&z^IaPG4ZVqx_moD<%2+@ic<!?$zOS6vZ|MC>!
zAkymm5XigmmI?db>^#xJnKcfm^`N{73C<+Z#&d<up5_^xa(5$%B(9V_R7Aw&@Y)rW
zV{g5ByotI{Movaf9GMKc;IoVN1bBIRp{I6;-<OEoi>bu~8^XTb7h2YLwN}swXy2dE
z0(z<KAr*oEh9k&g)h>b}L}Dk9T0uGLGTY?>;^=g`cbGb=tHD_AtR@mMt`4UweMbS-
z=UGBr2x;^X#nsNt{{6(mwEjwG)E`6~W2Fr1#w@!ms@5A<2eag~Ioam*c9VQ*z%q{X
z`7%<_XJQ$}5Jz+@#+j6=wm}&ny^Js>%<P7M?HQ<`(K+a7_-T?lucg`~4n~`f6P8sV
zOf>nvTIe6(PtW_ns)nzMzWE>4hDIn%Y19!6hMND=six5KIi#nl??-Su451j-V@@*%
zlFXXAhLylPWnZ|j{bDv806k3l9tY*cS~5)e1~XZ$06)E93|Zg)JrHbLKw;WIv|)wC
z*W~FV0s`qO<+ueDa{(F}HB3@#6d8$5nTBos16}cl3u{OX8*am&WNO;LureE}`oDZE
z932=YigFoq7b9wTc4+IkL>~sm@7uc{UO=;4vA>_~=^%uyI4j;sG-N;jHS(3`iKmS4
zek!T@r3pE;|1tnMFtjoz>J@s7jsQB7e6ca8i!JZhX-0NSJG#G$aP+IAG;hcBYD8vL
zp5e*@c1ai=KW&;^8%%B`8yO5H-#wd$mWkBIJ+^35vwDMeoj1FX5u+mk_m@T_Kd4@N
z62HR7Sixv@C0Cr;LI+^)sho5;Av<XL`SWL@D4$R0@TiJjdWbi+AJ{_f0)iMV-;`mk
z3D=T={4^`8nFX14{3o<pV>h?8I}&RI@zE$*mI38o;G-i8ws%99UyPXVNAOxnYEY|f
z>@+g<s)3rtE&U*b6lj(`*EPKb2W>tQFvCHxqHtistKPw~y86B1Kkv`$HVB_(q6Yc6
z_g*Yqxzm6J+O9&z5SRG)jS(a5kXX~EEdo<_iogNRGlg9-Jtd_B#Re0aWiRa$=H1gl
z=NW54LQfzPHYB;Xa0w2B+q;H~?_Ba%^AfC;b`(Qx<j@%87hWaw56%xZ4p`c389hT9
zX#Xg$36(%LRA(MHN02&!3edq|$8-^hhEht4@C<oN0>nP}Y!WoP%vimy93&aDL@D3&
zAG&y(Psm)F!W+lhT;^)cY~h7AAG*;Ui#t3lH&>icfTUS~qX<J-%u#+!&59pb9><xJ
zmzt7t4Hd$2k}D9l9@cJUaKdN|n!`V7a(|Ne{^;-_JTZJ6DDn2gg2fTgE1|ZB^iBa1
zwDenzhmnR2@+fIb7E~)JX?PQ+24R}41v-6)L4T8CkxcT}J-5ZIVz;11nw3x$WZj5u
ziU!~`5m^U;cfx=ta_Cn=?ktKMjQlM^1!?F=*UUwhQ{6tR)#GHN0tJv5>{IYw#tz6e
zuj8JQ3d~~-R`M-GNG58Jy;R?iy9Wn`XHS$^G`rw(ID`TYM-eU>E;$#Q+_sHKQy7CE
z+mYC0EVo^C4GGo6JGR^>9Hd=_Edc$kGu%bD*4jc_!j+vikX9}}bq#^f4%>Q&u$@xp
z^H4<~eS@UZNpfoubtQaVlkA^!={AE0rGw_!^V`HO>{HS?zJ%rCaUF}{LmN6RPgUzZ
zyV83|VDMDMKDEED@ZY_(-YP)L)S~;4<vOe0Y$K!1&$MNzYj5nZ*eSDq=M~H%{`pwu
zsnpC&MPQfB%5a_$ue81yN&mnT<=|I?gVREW?Zjo7_s9g^gYVPHS5?PfRvdd-kzZHG
zhG|!Vuvn{q92lqlIJqq7%uD?t7aJR!hfQXC#_G?Oo%`HSE+!`CK7gXfcKB`_KX-09
z2lW;QwYxP(1g^i2lEtNUTqDB5C=|T(T{QoCmfMW>DqI}4!2}o{0|xwYksQK|ATLh>
zUH<FX*p``^n(7_dY-?w?gP)(3jaU7cnb`r#SI{yhw0^Gf(N2Q~)sl)C>4Z9M94kRg
zf1`Ybqvb}pXf{}NtlL0&;^}!CJ}sdr6F%WsF)%RDUG-`WdZ{^jL+Wa49~g-#B^fmw
zq8vMRi~^6&zkm{V2nue*?|sob@}<Yp7Mb=_U*Eg9<QBSeE_mxho4R7yRt~%NXNPr}
zG4+DterC~{HET|tITQNkjq+j+oLD7!MMZv<x(cWCRIkAXwCleA@ZoJ+TV7F@@8+&^
zbZ16WdO{5&Y9b@yT8ZH#umFWpQBm<@d|Y5k*&$Wy^WYY^HnNtW`u(bgu?{~^hqYbn
zK76|Q9HwP2b91-5Ub#hv5G|m<;-e!mEvl%cMT1FKE8RrHbFRei5L~VWCT_n9=b*mB
zsJaCdm`^1AvXxrDKlLn6%h~>*yLay@Gp}5EXsT5$MephIK$EuI9O_adxRybOz?5(4
z;#;?f>8*g2-!=FBhpX}2)~;Q9dFV!NZZ3%EyKmZl3EK2GvQW(W>JJ{gNz18^$?F-l
zFAWr0k0>FAmYwJMR}<+dQGF^eUv~LZ@M8}TfeAtPGq=&3z3##!E;a?j^c;|rSKwVk
zVPe}+x_XB%2Q~0^NpW$k|Fcq+(qJ*QYrXstH3sgy!I(6fqEO!cs7q2pLLw=)(~b8M
z<Qngj9m^8WsJRTNX~VXSayc#bZmDL!((u$BUteFrS?-Esr%s)!&OMONxC$qWFEALx
zLBIDX8)MS&5BY_K%aDzlnXRfhjFxh}R8>UQW#fZwY%U3rk;krF*@1TPJKf!SG3hpp
zS{|d8Oct=<$1tKKpme)9jMXW3E<X<cT7$<#Nip7*pZ2^{++fgaLF@bXr(PdlPo<r5
zeV&$9+p)%4=m7SgwtO4g0rmG!7cJ#djCBnN2>39D2{X!D(*ZT_=M{eV;HM$GeU|yi
zws%l%nc=lB!^+&2Jw;J%JiW0|m1EDIt0=@$Tz~v9iz)Mi3)=b;_?8@)Qii?XI*Pc>
zKwwFAWDX<+dWLdxe_$ryS2}&SNpNuRkCBlLg=g%ZwxhlOv4QnNmFSnz+*MahmS@ET
zagn}xapD2|G$h0{JwIDLc)@|i8`MtpmpiG6+Ww%xEMXz#(H4QSXsf;o=hQsYPkx__
z6+Haz;iqxwqHNwXG!92-JSnb--CHTh_?J?SVH~=`&5+t&cve-cssEUM@7{8Skn*ak
zOV>^p`{}suaM*N!=~6oXs!miVk0XJErRrap?4h1%xdN$aWK7I@0i8c1;^WKu#yU2C
zI)3~(kG*unk=6uFO-;P*u@fg2Vt@_zp;WbG_u8#nQpcaFHfFY|NX67VprZ({<~WU9
z=uaQ-1#26yRonafS5xY<Y!WKwR<2xm>cAdMw2vOcUcJ%m#l2*OrSLYa6=kEO$UYn<
zX>N8wGs?}IH?Q8ya`dcAeZOv|AGzC+=$BLQmN^=5FfJ_6EFRK6R(3vJ?L{98VzyXB
z<i-Wc$HvDqd$3EKk(PFUgW?+s1+^VX2ifv1BkGoKTo}}Oj`kNG93>xz!+7XmnSK1y
z^syicW%X|AspIlT&eAxxirH_#44KII_>V|5zA_k19W#u3v@Mbb&I3)7x%XOMo?UY>
zr1=kr6cQS+uTNDwAIxXmx?UEzg7WF}=hHWC9E6kXg8aU)0|rm_t~VIC?r|O_1yQhk
zeE#Ca0xaw~S=nWjiyrkfnAF{W@zmfcgQ2pLRr%#l=eVe-<0>kfFg3#+<`5%&4OLe^
zUsCgM7aM!3y0v03_C@K})XrsDhYISdIdoLxSaE$)nAY3w*Q$fEWoiC_8%k=`^*&9F
zZ-QRDcoDkw5pBqJ-`>Rrk6%tUK}xfL0-qAruBWi@d5)yNrYp&MdG_H^W5dU4hUpCM
zgmsAnIR*m<%N*lVu7MzrjE+8`s_I|iwvqnx!tLb6k1|$m{e1Deh1Tk!56>qcEY%ZB
zZA$1IUroVcEzNg5h}d}1p@5RGYUPR*>o#4*&AH(6C+5DEtn^(0I&7F8xlzcRgIqOm
zm7B(m4?Mp1<UO7W#%L&OsLZPZ;ECG^v&+`7i=R4q@^;0eYP52vL`x$$eOpF5bg5i3
zUNh$bm>xf-mC<jvPj%-V+oYFc)_&_lA=mADpKJ2HrS?OFcK>pR`xb#yGj+JX)LL>;
zR=)Q=B6bb;cuS`!L=t%Q#T3sjFPI1giaD?%Y4rIdXtLt$csdG;SCCGTX<!>Ux3RJ5
z@~=92;J^iLfieSrI%3k*jPR4y+fEBj$iYNWaA|FGY>|OAE2hO=pG&A?U<?rRbNx9R
z%Ql4qP#Sk(0-_cu|An<UH>{K?-6t+&${;c>j-}8H7JxjeN}tDKW}Lo5+VL$^5)O98
zt=q}nBD7|yt%jHA%PjTp(n1AUIqJEN4SgPthPTw?cC6W?k!G~XhZp)sTVT03)o}!p
zoywzd{@uA_#{xX@AETpg5H|a%n#YMrd0B1p9^I@K^V7M8F={)~y-p@XoaYXouaD2S
zVs9=*)0evoKW?8oC;hnB#^=|>#C=K^UhebtoxP*>2UR>2V~qJ%3GCZ<uG-#9D&dpL
zHKHxHHs5#2i>~T5bA*qtyw4sJPL5;*S3=A2)Z5z)OmlkCPuuBVNe%rX$$1#&rncCS
zgL=Xm-Mr1s7cO4BiCBNV?h<o3hN&Ex+KPklsjO@%B^!PW*I(NOMVZ2GM1va>jkHqx
zg{uq~`};`f_W@X5&A4$4P{zBqxU}>=F0ut1_pG_JG@@o-#q&NX*iXkb-r>RGKH*E8
z`1LC#`q4erex<3YJLU_sA-QSH7Tbv*^X*JOG9wW>TDoUJ{PoTLU!9#-R8(0Oh6_+q
zE0TJU5}F0AfGs&TNoAVQ2m_RohMb`VgeD2HfD)CA6hS~J2Q3Ok2}&q}l8hiKO%x?b
zErJRXM!G<08|J^`V%F-{xliy=bwizd_J8)?=lkge$<kv%{!6en-NDPtsHosCRP`Vz
z>V2>?t9)rMq&NIN^2Onry1L^-T8#}xemYFU_xZ}?WnCx?%=Azg<lQNbn`-q9Sp{D_
z7UP*Z<{X0{L<epXNY36mD@|aWh+Hi-ifeqWqw3KvMWW#$!NX}9B`+E3R_Xa_?R>E`
zNEbE=I`T5>Gf%~!Y|Y1;qP=AgSav<k`7;DH4YT!ok?-ZW6M*w(%=!CFPEL9suWfBL
z6p_-L#p+6QR%j-TQ#@@I57H|eBZ1fR-EBB++zKAK?EXC|7~HwnSHt7ujeyNMw4}SF
z+M7_*VCLsn{;m+scMnht^b;>~n2w2ram3Ju1MhQ}2L->yYfEABrOvKKMGOUY7`2CD
z6#i3b4_T{wZjl(IIjf%35!2YXxP5-cpEox2?^;BEZy^e*jO<b(HVru39s}R6mQJHl
z5#T9eE9j7Jj(95sAnip&pn4A9!otF@^Fs$sOiiybnLDVmWdoyWj?VL#q7;>twR?WB
zYyX?}O;+}120S_*eMEgGr=TDiyNlA-XQ8=jWB%<;$rHKb>hFaNqIc>lvK6*&Zo8rT
zh_qMrser&hMXZ9fNy$o&a6(uYNg-0~^yJ?!{_VGHq_V_+dIj@@6dH}@a3mmtUft1#
z8dz#}HXrFxSC{U-FW{Z9oGxZ%Jw`jgWBzmyEUqya+^FJ9<Q@El<qUqpv)*dQ!te(z
z7(UGF*BMn+R=<mN+MZZP*u%tj<WBUW^NroU#hPJLM?YXdTe-gK>!Tvy=YuO&R8iq2
zWdh8IH`Z)H&*e?X&E#ZWbT)iPmDS`RQih#A-SjL1tQ<*F7<yqGszaZ>ZLj|Q4D8ch
zab4wTCx-meVbl?do8eNUmx3_lx4K5?fbLkePD>RwN@illnxFY@X&V|E-toMTowSff
z!eU}PU)4K8U}xu1EMz4(9FBiVV9JFHvika?6^+;FY@b83N~`~q+wZ{ltQZ@;VIy;I
z#~6vT)}Kgmaw?*9!l;JDFDQtm1VlV!fm269+ovtGHf6%Dt9~qhzs0WQOW9jkJCbZ{
zY)VEq(0*lHIn1p#6osdH!TQEIv$C@(DSYmr@lre-ZVY-sM(G%NM9^zHfH{)@YKn-z
z=ufaZ?2lz`k$%*z=F;5UBr28Eztq=f`vK;9UlO5MAk&-T#{7C#Q*V}p7kx(a+7z4Z
zWp|NB&6S^KnM68z=8QgGf0HBqfm(R1=2%xifzmLXfcs(%TiThPJoy8*52(X>>eI$X
z`Urt=Q&)NeGB?<t!F4rl8#UyvUNX|G_Yv~A_G<KBVwDfecQ|5svR~zVgI&;(^$?I8
z<&(CEeFL0m=dpyigg3M%O$gI6jl+aMnAzAnRUS=P@AwB5&PVDKVTW+YJQ=sSxv2=k
zVn|F`ctPw5&DUVWOM*G)@M3e)`Q&ohRxW@*sda*LAn=UNE7d$PeuC^ulYPhuK_Q_h
zxSp(epW*=!nn06c01T<~bu{A}WEB+nNVF?gvZ|_-^0LR^(^lkLsRvyH0j5egET1uW
zLHU=t)kMBFgLB3R4MkSg<3)I5TU%TG6}Tg#kVl0~30>R5Z-D`OYAvbQXrsottCv17
za9qiyaToPk`#LIN0}PG};S{y9vO*%MTQDnWL4hDFKArm}sPXvfA5SLkoi^=rYPU5e
z9>gLaPwUVU$WX*<51zJpaIjKqTN|6rK8qJAc)VFeH+1q5>X)I>`(V%Y0F^Le(nPBS
zC42BY#FE?YZEAi!;^=qYQ&Cmb;Bt`vG8r=9SXsX(JlOz*>_li2k(O50SZ0)!)dHgA
z+7iAK&Iq;oKQAvYXJe-2QOoDCUHG)VFtSHN)!oF}S_q)?OrW09tcYkl4JH~uob`Y7
zxdnU(#U2N7mIX5Zr|RZdB_;dd43+uuV>q+C+zX|ju!x9rO-;IR@~j07e*A9KH$;7N
zu(2`(ojAy@@InWwgXeZWB_(4-l1xrV@bUrR^~b1raR9le-_13qnw1$JJ0=Kb7Y*8b
zYRa>@rA1alLlm&PP6&t>)`w>^<3~{4aK@^YOD$iP@-m7gQSER@K9L|CPn6pH0|f7#
zp3Se={A(NSzk<z0ItqSNaF3Nd5%=CQV_yzv3CqdVRTdYMF~S*;pco%eV$8A<lf|E%
zoyjo7$Uw~{b@ch-Yjp4kOG*lKsy!_#SBegpJJz*?j#ckE7Va9iVbE+^;MS2KjdSlL
zjdvu<z$-N@EMw@}$byKJR3?5X-++KIyTL2ObVL`^j7dwSKSw?7EGD>^xHyA&;gr<w
ze606V$+JBIU+9+&54!sL`rZ>*;_d{1#Ma*a0v4<~)d5z-a0yA_a+i}+pm=y>!$Ls4
zK~GsZON=d?^DOr_FRU{kVr)rINM!)|#zn&1dOFN<=u$xeFR8n`dn!N>fr?`An4~I_
zbMAnG!cRz>R1TB<9Pzio9eWd#Mge|);k?nOd98Z&NO|st278E1l+=XyFx@a#6gf(R
z<Xw_UxGMd-dc@WEDpcLKG@0=P)b$fA(y}%Qm&)EqYi81#-MK>IhEu!6{Z~Xq^aLz&
zg{7sl&`X|n-;MYcaMTGB4`cgq760phJgvkTz8)&+#9eP662u*BA2}J`)URjy@7YY%
zJ1w_AWirFqJ9S|DQ*z;yUAU6%qeYSTFDL&$Pxq(H?Ln=;kRMxa5?gaDOs!37{_dId
EADLCGy8r+H

literal 50615
zcmeFZ2UL}7lQqb_rfWn|6a#P(5ClXKLCGe<K>?ARC5dE2Kr&_&QS^{ez(9@ylCvZU
zf@H}^6b@06<k_!!zwVheYfbm8?)hhCHOue2hr<c)`#kkj?b@}g9$k`^+`4JsCMqhb
ztt6@Qm#L`M*;7%i(feyXo@w)YJ%RtM*SjEj9{<J9{JCs5{AZ(;l-dm{DtdR~e}8!O
zPa0BD{Y^zWe@4;%<w%Ev%`T;d)k(RVY{6Tfea!QG`1Z};e{M@)_c+xpw|@Hp`t#yv
z&Yzk7tM@}jHG5UY?M>WVciymX6Fhh)>eiiSiQE3tJN-<2R>@%NJ+9pLF2<J$Lx*x%
zhdxJ7xCSc>Dn?p#I1Ve@MlK9#q#r1yWBz$rR8+S{PkGb-eoXbsOlsoKU%%XvdEUM5
z_wz3f7H<CikYD`Hp5G76Jk}ol{qW1KjoQB-zB^2l^ZVfy1s3~1emyRT_|JW?B`uG^
z$L*ON7Wn5f)2LFuE%L)IT3WTmA-iltPm-O~ua7-l7set)#qywL(7UYnc^F6N^p+8}
zUw^Vne!Jn{U*4--3o{g>t<=xGy}d`Qe!qsyT&N-L$snR$O1D?v<`Z8ti_lAsO3F+{
z@8rkcNyYis$9}!=()@p5F)Rga#@bsPyPG^{Ia%oUzqKv(+?zF3Ez}rB+G%KD@NF)C
zHFqp`PCH&ZSI|s^(iC66Q%?AGnt5A{da6l`R(4uK{)*$LAifK(`C<vG54P;pEBW52
zqEnJu9U=2#y65rH7^k^0lP~XH*VWZ2X4{!-IZu{k&2>8Q>6dO9?aCL+E0wyXm2Ec^
zXcSU=e~)%lTpU+pf|f={_RZ!mN&2?mKEFQROqp9uwHdlBGFiOSq$@91R-k{Ep`qbW
z&Q!HRzU%S{(<Uz3-Mb|;y9TG!%ooS9$JO2Phht*n@;AuEtEa}iQ~k9Zx2|j}@_th>
zG8~)Ov@}1(O3KX46r5>LupJ8bH(8t=-O;?4-z;EdzQ(QMs}&aVTEVS992ZB^nf>yA
z^gQOX>=agtRX$?EHP_{qk40i81qt1>XxI=x`X%Yy$u8%V-AB}SrB+jUmA&=x@yV$0
zyU!z0Bf1#J;4)qN(D0>fWQ1I3f^4whVP@u{h3u|z|DvydWk0PMtbcD@KmGX}wQ<=~
zdU^ei6%}=h<N1je9a;C|BTp=L<v83RZsM%oZ=1YRd-vp-f$HGctDl0zWyYlIQffqF
zAMIqT7@QiCb6Zeo=u2QZqMf6vm1RRxeYtrz*QMUlC%v*`A%86|&Upp3`#xp0&b~RG
z(5&rrWXw@)<%j;vSclNnvr6ReQ&Ww(PB(LBnl!FA>+JJAy!+R>Dblmp@9Znwz}Qgx
zRuX$7bVM!ryrdU{Z`ZhruI_7VYwL!L>-w=Hug=^(aixIjQy{OTnwnaWutW0fSO;fl
z4O?hUq<LG~P+FTsO2tvlj7yLA9Ob_0`GVj4vimmrvn#U`MbxISAP#o+XIK`j$a7}N
z_pZy1GJ(g%>4ogL=Iq`Ein?SSk_j@%#k!>88{=j<+1Wq$lsvYr72iV=Y^n}##6l5o
zcyZEF8CSLBnxCVcI6K~zcr<_Ma=b=*S_OX5!8UJJ>*}{Ir(@Rlw8))Nri@Pw)}*g6
z2-9~toqV43>yD`kr6vx2?k>EWdad@Lmi^cJ6(2u7EBbm#T|KBZ)ijdP^+zGc;H3Qt
z<2n|;YoAZIrI{;)in=JmIs}4c@sH1<UDcaSZrf0%(Dj~T>yoRU@--nM@y#tQEv@f#
z?}j*y3GkUVT^t%3vOaadS}?c*n-2Sr*09JFpBnfS`|j&rVFs_UEDATpc5bYLu>Dli
z=4zAt>1i7+n_BS&*!Wp;>|~Tutlw@f)mNde3#9aR>&HPSjNiO}e?s8EwoFZKLnEVD
zg-BWTG_ydZ^sez{N@6}kQg!#&zcsm4F6;lcCfujg^1{qa-G!s#2dL9vo>{$5g|H{J
zl8lFigoMl-+>2g+EppdLgr)Ram-xSU5zFYdRO`4r)2u`B<gI2`3GOFWDc0S@(J`yj
zZFTt}Ng=X68V5pw&!pjD_DXDGp1O**gJH2gjpp2b%N*U@goj}!h91A&w9<x+oogK?
z3ODG_+H7SQdj+%3ny$O>)=!KQml8McvN&5#neh|IyV>bb7Bt?TdE?_Hs`Br!M%5{5
zk?Cj0d3oRZ$z8Zm-?h3jx9L$hoRabfc$^Ln4vv^-qhF5vW5gD;H^!Gq?8hX`PS{eK
zQU?+<dOQMh1$d7iKdbE|9CDo6|Crl~v*`+!mRo`T(e9;J=?PldrKz%m)xj5XgWtS4
zctrKxX&u-3a6fLX7;MKd?BjUpJ)bFi;ijdP<;6zW|7FWc+21x)utKb@@VO1Af>$ZW
z;NeC+wy@pfIb>k}0Jj+Y&RkN@vo?s&G_JXj`t{=o-J%EKt))LEdu>;j=VCK5G889$
z({h4;pZe2{h1<7oq=`Lg;ZW&cHko@aRwdE(LmGYgBoBR;h5-5f`}Y~?@Q!ldU|Z3<
zHr7?_`W^aWw$bFU-R|`+cc*5Qz09(D!};R6b?dIj@3FjNgN@(Eqjzs63yT~i;*^$V
z(GkNe`Sj!9RQdQ^C7r&^5sfrYw++&-kC*%kueW0EGwqZ8bDR4);y^txR!z4E4mxQW
zG97>$iNKmjlhZ7_7@AL|5Vsq<Qtr*BF_r5y*W`0pL2ovwGxLU#rmes7zwP~I5qmir
zdO@3a18g!uKE+ZikyxmvrNK})hGxMVgVj%B+dtgj96z7GJZj0aGiC!dLqnd+Vo!`v
z_Yd7e<h{S|QC5}(ALFtxoit!n{W7{SR)vixNZ)a0*zl9sT>A|UE-p{?&fdvy(UBn@
zv18}lx2a88qzhf0hdV1%vQ$>~<8zz-RvT9O8$&$n79qViX_UrQ<jrL1mpyGw(wC%R
zCMV>4mu`%bKUbGzV2rTSH@8^i$5;BT(`mf%_L>d2D0`hQ=c!LohOn6ZH+z0e*UP03
zxc&I*{=fU=QwO#!4~nfOX^(g2YD5Ox1%)^a>^1MqQDg8bQ&(1048x*-d+Q~7Io+b8
zZ^n_6<xqNC{Po^awZur-;FwD8?28xtxl<V;1}5!&a2R6~vZQw&y7(}A?1e>Ed63)J
z`+H8<e7gjH`$_t5Ct-$owG;^)ok&63;axX#_h{R{=38yQQDa=<LCa)*^WeYvfspgn
z!c!MrCQJ4-ndWyTvV}TdmU+SN+cxS~^p)^^INh>h%QhYMy-$J!Zd|=zI_;mo#A*=r
zpycr$%7@KI72zBYY;$k7NLNp{Fn^*i<oshIV>lO1tRdO(0%hjH(cG|lSs@v2|H>F_
zN=<4hGs7vXSL*Mt?MUe)ZVTR!9F~(KoQkElNY~)@zkvV8KSV!4rhgnWHu`w5(9NdO
zC;J<LFAUrd4yo4k08YqxiLKaICBxx0>Z~p_XAIkBYAy`Cusll>`&@W+Y07alwb>^q
zXkUsMZbWq9+glp9xy9x0_QLqb>L{$D$o0$hpO#KuQ}C$yy|DuJ;iA~;QVPB%;{N76
zCPQ`M6*V;~PxkRmFLteJo43BNWnBFssb$-!Bu$F`QeQk|GfaS(j+<S?ei=8#slgff
z*45YBwix<H!<w@YS(PGX>1k<cOSCNQ?9yD9CM7?;I4NhDJL3oR5C-Fi)72PlO|4f_
z(F)hjb&Ni9cYU}=I<~wu*D1ZzWlqaww#7(2(>i>1w9Vh=H?py^zCovdG5PNA=tbqj
zaPGwK$Nw=v+>>U~$RTjxskNNHj;llR&ELK`ist_u|62bazD?x+E@1xmQ1|x*{}&-~
z)?{0X@-HMFubOnQ<*Oncta>l+)hLa0ix`!}kkp#55%5oJLYf+<)T)EMJ7i9Fu;8ef
zCS)FJdF@la^<?|s_?25LOYsXoO``<cL1m#$@5fV{wfEaOIJB9Md`Ys-?jVqC<<3J^
zmn+K4pSO)F!|xdY=%2#PoVrbbh}Y-bPZ(D0>Tnng7KGXR`uc{OG{!{Zd}aZu&Xlu-
zvWtm{^(>UqIS4a22#4&Xn|WmDS!>&@6^VeY&1+QM5F+9f=d$hOymOv`yV+*8qD%$l
z#kp~>1?ID1#;YsK<=b-awWJtT!oiU*aFguV!>@WK_2e%M$8wqpJ-YUGCv7bKy4G;`
zcve5(^p0%|!cm2HHxMr$iVWpWTAKJ;WaxNwb%Bz|Ivm8K{~&cKe|6bXa}sX(qq@<@
zXH3@<6+$R?q_{J>|K#-hW6gRWM;Fq<{9x!z6>m)xK9<1HzR#b(UcYtUx9^olo0sRh
z65Uo8yIOJXrQUoVobnx_J0LbQ(vqT>wBRfnua&I~aMX0`k2MWx<{AXp-@A9O;NnP%
zZJT-eP`#Ykk;c{2*eu*s?9K5`VzZKylWodb{lDR8t7wL<K6*NYg(V_Si1T;S@}!rW
zB0w&24RHFzNh41Cd%QQwR?~I99}DiAw>+x>jLDfW3NQc4;~0B7B3(fCSXQN!hXByh
z)Q?`T7fVY^G&5$MIV~K(IWO*sMBD4Q%qVG&?g}_0`!ZnUnfX_PQ#UJyv&Zu|8wK_R
zEV;TRpQFCsUGN8I+E9HYo6yV4Z8)X0tLa^?8cc0ciu;2fs*bW}xD0-Jp`r()8GSCv
zz(c->;PHXGrm~W=-pK(-1<Nk#;ux(jVn6XJwc2H_V^6Btn}p3DT7arQF33jK9}sao
zkzo5opy??<yLtQQ+{)s(2E{SA^Emz8-beza&?oYgPE(qXCODcl#ToDB)}%|x1KfWx
z@actQJmoI6=qX(u-+^`p9=-Dot8%v~aS~7V?G3HjlX3)xdWkRWul{6<4#A&Dx3cna
zYz{Cu%%XqNetIOO<^h*!T^PwXKYUDVb>53F)Z6>*W9}@e=;&xBLyyOgef|9G-keKG
z_5Rv^ICeaLHLrp4-l9W&oBP{8-yF`Kp)_ku4Td;b&@dl<f!$I1ArKVBFSsMARX%R^
zh+KAmfBz8DzGo~V-#;=NZhl9W>a#s_YA2hl4+~B&?VdfA<8u_GIQ5~cOM?NF-Fx;>
z-aO{61K#NI_+&vCGaR95Ihi$U;=|@5zr*b8mn!{^q#|lZ+0G0%5-~)?aXM-uK)N@n
zjKLc>hV*rZ-8|u6f#pq+bS)rBwdt^J_H}xJ)reZ6d-M8$>++0Bs&W0Hz6<Ton9fc2
zdWmryJu2s#uY-TUPpvr)KjQ*|+KERy*t%-OR=G$f%?ZKyNR@+`oFrMcNLCu7!aM7l
zmO68t3_TwS9MQ=WcKAaQxsI6XRQ_VeIGK*rFTP(Xu6s6KC*Sofg@N~~C$bjqtZxT{
z;pBNLsrQ{=Pnb*Qks$8lT3oH-wC(L?N+Z6Lh2%IK9oZ1Az(%TjxP!Sz-3{JI+4>|O
zpAxd2WPZy|Ggc25(a>#-qH#d1;y~<4;1ME`KA5`rSJI}&BYiXX)k?W4Q*4do!MJ^q
ziv;-AgnK>VG;2n{k@@-g@AJ;z7ncQ{f4mdL>3nu08Slaqx)kEu<N7S_uHQQS>10<_
zRFo8!Md;?3BHU4Ya<1cy$EkY~2ldHePw9n*@rs5DUruE5Ob)r)^UJQt)o~(~vPRR|
z;*#Y==fhl)WWSp^6)d}zQB;#`)8#TZsZUEqRZ#xsVD<(TL)ZMS_m*9qS%zaTZ&dTN
zrCWNLcKC9t1mTor-(ik>i8VK3351uF;Od>UkFzs;xZXzvYxaai0heOnewmxd&Yv3)
zZeZjR$C1`3y>+c~$(7s}uH^!BWpr3DmpcQd?WkPWRmx!c@SZA%-opnwuWM}=uBrvm
zQH7)<z8QJt(@a<ILo#vSIhErca;DYUgW-u^XpYzLpICS+VAXvqTK?^W)a9-F`F+^E
zLqjc*@;^5~`2U1U`_N=tBQmEt<H;zNcUGU{3Bq~_-@RhX{N<~@8d)~RnQ0qgdrq%n
z4fetT+*Hr7dd(7z<D#By@Ms^O$*$(C!Qh)A7WvDwG;Up4wy`r*WLi#TAJshPd23UL
zS99e!5CrZEc3l{1T60#yi-CUX^^vc`t?!M!8JtFVkfNQ1m({f_?7%Z2_B|U39tL^m
zWxx=@n`3d!I&NCX#y4fh13qiCE#$8*ijnHd7~M2`UUM2cyi!-|fj@c+5~t5Ddxn61
zCd-V@6Srw~y3@Y&B34MH7}YevD-&SnzOX@mwa|FOopqa~8}CNEdUYBp^J|N|`K!eB
zNng02Q1oEy%<4+lYCW>UeY0tG$uEV3>_$H8dx=EguoD4+*ewZ9y4QC%P?yqE0M%yz
zw1*z-x3~ne^MR|sQ7s^ehaB~v|9WIM(S3$q)LE5m1IO=|od@>Fv?_onYqr(2@ty9u
z@bK_xfT`inukR9QyMJInV)QklY+d+;nJ@ZY(L@mI_fhacaOO8}{r1(Ju?f@ybHZxL
z9vvyNpv|`{jlS@DLgP6K#3?}@5ragQXJnGPj50G^c{INP!OUhXbC83X`P`HJCzZSM
zTzUoVY=;|w3DO+5?WUz23clGXkHkPJUY!q)EnYJ-`TRWmBDYDd@9QUeB_^J=z_b8}
zmP4~`mdyySi6bLsV7a0}IxVzytwi8+B|0S3d?L+R4vUHD5J=ZNy(8km*8Rk{66V3+
zwlo=#9(!Tcv<nCCffmC!k7y@ONo-G#9;uG6SyLg#meboKgZq^BEA!O}cd;no)U59n
zobe24fS}3^wz=AgX=W`4NhWP+@gNTNs+ify!%2uB!Z%S0^47l)LrTQ37fIuAL-fwH
z1f)o!BhKQ*iu($w=i0E+#nxD$w5Q`pWGho;VA5aC(|A{=HD%wljJ;Vb$>`$qOi*8h
z-Lxgyu<1LJ$e_vIGD+vZB!Q}{<iwVDUDqgU=5zSoM`L@!ytRR2d}_Yx9JR=<nL<W{
z8(k-zWh7PCMNSn{X7=g#Pzp6d>^*s|_7p!-&P0;K)-(Cn^fYk#g)i<w;9W~nE%)d+
zCkfzO6!-2p2Ex%hFmP{59wNWbL%z-%Mj&pk0;cbvR997<KuY~|FQqDwSHBb<rTMbR
z5?iewmm28I(*2e`nGB&dMqoE-nv+7r++4p1HpOcgA=9D1v8<MI)mQao#$eCK=gcx^
z&fLx%2r@m`#N#wO616x5?-u~qEBWLtocs>P&pX?_uP;mwT?NLEP>xq;9X@5%efrUN
z0%sIwaGcv;vXhc=y|+hj4{?NNPWebUw3gE8uPl$dY2+F(%UI$J6_0L6x6DX;JV)og
z^V^Y@Fp_svKZg@_CpPx4G=QFWGaDFW{e686ml?N~ffA*pn>KTQo!sl)&X7||#|!^%
zx`-IbndCgtUC6Y$`7KuLvC=F8KJ9J=W3$%x<uRPfH9c<26deij_3RE|v#nHA-7Kf?
zq;I*C&jNZ&K~**2nd1fTu>JgIs#Ql9ur*g<+Pdkqn$5^u_t`CXA8otYeqB;?<5tpD
zxFDvsn1^dE9eQ{MzQn&rIDS`Q)}Fy*;BftVlE73I?-QF5yKyO<u^yQT>Ep<&9xe1y
zx{sD7MSN$m2W`QSvXW&>+2>WZlc%YBtwY=p$SRpu|H>r&GWF}upi2xB*nZe`sMcdk
zF2sp}0?24y?f2J_j$1|CR<G=G8W*_%novCcEj;Ruog#(iG^YCmtPQ>h-l>U<40UY{
zi-_=3Mf7YG?7CYy{w0aoEZ8^vNzWs`AN)hA^$6|<(w^3_Teb;<1G}EM3hK-K2~&nk
zx>?I*JqO{@-6S~C=LYMy9iU6qG?bmdK|1q}N553H?XQ)uW?)&Gy7q9XZclyM&A9Oc
zec5+uyE}7_*h1c=g@%Ue=s937p0M;<XX>r!Z0hvKaaU5k7!FLkR20M6WJL{5L8jdh
zeBBi{7W>M-?aflo&)zvKL*|}XX9&w501Z_-KKB9yRSI}Q%4ScN`pg@H@7e_O5~`{$
zPJzz~TC-uBkJMRL1QsSkEU3loNQ=I+Xy~N9@YRki+X&EQP1fmc=HI`6|6oA`Mqcto
zF9wl=Y3JhBTE6Kiuc=9Q<bh*sAZi(v>$lKdiO+YQ|Nbxuek~C2GYH`K1u~kzJ9qx<
zom+g;HGUG`!Vj94Uq$o!eWm7?0yjQ1rNG%da~ZCE>t6opQ|j=PWA0VB$pK_J{0P$=
zDtA-_n~IQGucX_K*$XpFVef)css$@Krm&X}p4fuARSra$3qscR0vrGgLLYbui0>Fy
zke6VQD#Z75zB`D}U+KXV!qD&)sHiCBEy?@Pz*LRcNgPNX?Zjr2Y!Ro~0BmZz=FJY<
zh>VO=2FqCV`|n-+xwWd`_hq!TLnarOO9!U{5qyHgAMXx?x3Ar`YnRVMT_9m5o(xTH
zUXup)6sI|h-l=)dW(prl2@%Hi5z3kH9DY%3Y;0xfol)}4yh#00%-i@)b+EQoC_2Pn
z7Yvp)`eJ|RV!-xfIbeH&n@|?6t#H@S4s2ytjw_|BPq);WLX9G*y<PJL;#%x7K=voF
z5LJk-@q!GF-(J77Eso7G-}!RaMHv~sw~}7`h@Ho9Yd@StiEE185XDjtFY-?8{5p6F
zMz<d0bgMhw5lN0MDg$dR#kKaV{juy?|LV*d=JM&$w)EofU?lerebL%k>%1@&$uwBR
z>?N${cSJ*ZtXTi_@trx6PY>{b(w895Q*>7MrCofr#|bpGe$$?%BIz(8UYZ>WT=;gg
zjx4^uvLCL?3niLIe`NjL`lX4$)BB_*{0dQAihDeO!iJdcj2}N~&(I%-OG-)xmZoab
zEACU|?VYvC=B{kr{W5A14!+0_%OBykx}uy(R4L3d&kGwIc|N&zj(eN4?k0x3?iQoa
zCv-+RFyTysDju6d?rvayqajK@yi>xsnjW@nH{MB~7NX;}+{khA+UHmA4FAlHOi4+J
z*O(}poOg~u^pqeI6ixKp;T?a9tO?f_dk8O3`tqrqHo>qc(?4hUxRV5L?(6g1;A&NX
ze8lp%w)8|LNzhRTXP+%0NXJ_X2naA$0%V(sjIe1Q6#Rm-@a9myMfNDasROJ~e|Fnu
zpL|^51+LhO=DRqX>b^C_zj$uYiX9#htZ3s0WPT5)m2UB6b=@BXe_8P$+g9Xr9(>@&
zY*)25^Zp9oCOiGDquXD0Z)IWE$8Fjue958-?v9V5+_}|X>8~;4p8aVR*dobq9K|#f
zEo$M3(^5j~Ban;-h`KBU-0X5mZ^(VOhV0wDb;YedO8)ITktl?DT8%Kq{JTfAvKlya
z{1^}SK05poVNrF^@=8Ed_YjzYrxZyan3g()aC+fS8L^eKAI>#Zyo!qY7*tbTEi1hR
zu<6N<TRsg94bL{*LD`4RL<{7qQhkI>5w{SMu7R4+qok}J56%Xhig*2B2en=24F!VB
zWTW8=O4{9%rEG+csK5XGt@bS|PN_^ClK*%H5l1O9mMGDk!7-|xM<`epjG7C1W$xLV
zE8^nfLHy=HEYYCw9lLLDsL1_vEyQJ34Vd-lNHU_tFk*u*%QBLARzI+xxhQ0k!@zo;
zLA}K@gC2zmg4iU#w;OE@pkBG~zQ~=LQgC}slPStn2r#xLpI_a+eEIU(;b`UfAimW$
z%Y0vs2gLh9?2uV<muK6Cv0;I;tUq$p-d(x9kKc?gtsShN@u$e}@cUeg&G{?g1c!;p
zz<agol8K2)@n~bBjt<yN@&{3_5n#pl1BjKeyw#_eO_pwd|H@FU^z-0{%comtk&;F4
zR=mN{wqGTcF;LBBcP(@4wIEqgn?l}mG)ee#p4(C{V^M-mlU-YikryB1P=GiMWqD-M
z9$fJSB_lPZY1_g89(@*iCwpa7*rd7gR~9Jo^98HkQreC~tOThUENHuFei61h4UGN`
zRXK&X5>LRZJ1v8~+4wL|4@Kqi+&Po#mjcpqaw@X2vR~%xCf5AL%gd|ZM6t_`ckn7x
zVB!&{IpubDv-DZlf3yJlcA1*{PFlQNnN80xnaLzSf3EA>hN@h2&ju9im!EYXx!e7C
z8WzIJ`T(YRUdy#`-5%8`v89P~4aq0lt<Du25(i>nJaaH4YR16OP;Fx~lAQA{K~8E)
z=Y`>m)AGKF0*ZpNB`Ri~dwF|gtBI4iPslDV3pGtF>N%ti;N_ZZDDmmif_|^I2_F${
z7u~w|`1x(_%n9axjgvaVUVEe%*3w)kgb^5~_G0@9R?gFNiz$(rfW}Vkf>TUyLK0#5
z=iI@xWR^qR*(1p`Zl*}^s|5xRkjh-QXTY*%00hb|&N}95|4dvPUZ300fm}BHsidG?
z_1dT6sQKA;It+?)Wy2|(=D{&G<&^c-Za$jxH;JHzQOEX)Dm%i;DlQr-N0!d9L<KfJ
zOcP<q1~k0n6R`~E?y|eLDjFn`^h89*)@|PXji|yR93}vvy61FtSfqCX9gynOjDnRS
zTsSP-cJ1D+&a;I<_|#RJJiyDQrO8mI!qNR>A~crS_jfKaUzCuLh;E9%$nibv71A=C
zIWh|pR<4oNhr^Arl!zA=_#IhzX+V^%wpHP}1(<~Gj|p9(_H{I8;tq~j1S<5gRd2)}
z+cc>e-Cx#CPM%m?9`4G|FMUcM3x)wihbBOk<Co;ZQ9IOC0&F+1*}h%=TR9{^x(G#T
z01{=Oj#T@}o{T0UWe)pXBLeTDC_})TQ-`-F`1d}tYBi1&*BY}Cj1MsZ%6zDvCjVAq
zhyOaZq#lyu+Bq)NiXW=wz2`W{fchjj*rR=xp`ZdAI-?7T46iX>Lj|Cx0oM_ODn|6X
zcgMo^s9BLmeuSLHfr#Z}lwwg1E7+4Kh5VegTzX>NX4wTtVFr2;N5%X1?>8xGYR2{S
z^t@Yian=(e18Dk5`K^<iT(R1|R8%@WRB!lnD`}@~kf5!}BS%ecf9o4J_;f$4B@Q}P
z^fEXlB^+j=3Vbwo`tp~1)yM$iT~+{Y7*wjhuAR%-G-kNB`g?z6{Csy!G(nLK26v5n
zIkeyLa>405o0bIX$#eyq?YY;@Y96J5dqf0b5%=Qj_LdWsM+_p2?a2Xw%d2y4tC4WT
zzTX7)eFj-kH{ubVWA6Rph3O~i1E-E%o$o$xiY)o8AAtmfB!L9Z?>}+vlIHjj_%t!y
zW@_2llD5i|KU}UmlT!~SZoXRm()d%Cb>)#AmBgW`OJevEs~nHA8S?R=3eLm^kcm;C
z(Z3;GK>DNgQD7=kZ255CQWO{J?G`zc5;8$2NP&TY6`wvmSr9wH%33n)yFbByVG`wc
z%TF5|``82{tib2SO*M}bg-%tCG_zW;05LEf`cqb?{WYy0DJN=c#W(`;UP^sVc#RO*
z$GeYs2wnG;nw<Xbna*~tTY2O>d(G%aTBc6>PE@3xH4`kBCPgMhSfG#pTk>CH#!9uh
zH!HKBSdqHUKj!l}n*&nx+NZK%!+noI(}Sl%Na7wv2@XJ}9@+bQ9MP@xf{KU}4cOpw
zO&eud9%P3LY8RHj!9fx~vY#$53>cT`oQx0KR~zS=l<urM<GUWRWGqdJ9a4(m_n?hs
zK^7~G^yZSbwsw1xFJGZXXPO#HHGGW5e}!D>a$C*ib6eWZT{uc(5#X*mx?5(#YJK>;
z{JWgh^gHg_kLJeiboaVe9FD|hf27<wEoVV8Y0tP`%$U!ezhoWTPSgV;%u(DAwrx@)
z3h?ox3(k1~MWQdS!DffQB)t`dnnMX|$ElLg0E|R`BNxDqL<Y>+nc_c%vl}-rRkV-w
zV8k`V;>!vOwm4-&MEw%5I?ga@Opm;BvzlR5pQxF~gjD!GN!b`#Z``qIXlnj!>04oW
z6o~iPW<pB<duBa65T9Awkf7BTM16Ai;N+eBZz{#3X|y|PppUU+HD04rSLV6*t;5uS
zczoOVoQ6InA~KRPn%>m}Qkrln^Uk6m17r78gJe386w-b4Dg5h`Ou6!1?T?3ESmr&7
z-Jo^FV@`R-X*~C&iOA%k(KYF`%>dP}bu1{2v5}xSh~*IkYtFZY@U=>+s@HrsGaNkl
zBW<vbsK?ltRekJcxqK?+>L)UbmeXh|lN)t$k9B6>)V#E9`_plkGzb?+Wu1?c9Pe)M
zw*)8g=$?t8$y?PV3lN}0{>w_g_>vAG&2?qoD0a?bVo~JTdA|zL^XDAet|IAZa*j(9
zd&1)g0THBA+YZ`~$Pc-VIw3~f%T*Fl&n}@^3Z$`64e+P~m2WC~Dv&{Df@dSkrZpVH
zSy%9Wrt*brVz<_<Qk}GD&v;hzHaP?0i@5m$flGV)`um9@5kUl+G{q4lP>D<MPN_SK
z&Uw$iKL4;$^g(TDBDdwm@LK4!C<1>F2c&f|=hdr%tX|d~=Lr4YD{JV)B#5v%0G@Gn
z=L%JHuluf3odg!2|32-xdF%--T@4TU!-un<0(el?KDt0#`{HEnB)(fszYZ+2CZK7m
zqZ8t!60)zys;l6#iLE2mp`dRA);1QXEe1&GrL2*ZTnp<3zv5K6M3l*^w8hJJz1+3&
z<jXULJA@B?Low}=uE^V1rPv4pzcf+0zw+O4+F!=osn2rz{0vc4vlT;%6c_Rk8Kd~e
z<nGRU{pOEP*Y##m5;&FSt*8fMej?}sqlC)-I&fZu(kK`d;LqX{nXG3HZ=ykM6sM7%
zfP#_s&tSNgO;3NuGZ=u;H)qSq5s6nW%ul-L<2&>=u3Qv&E@rik`UWICVHpox9e@_%
z=B>^tDHhwFiCew#{KxW&wO8=|m%>~%i@eW&Rs+DG!V_Kwagz!fA)vhZN}<?@^K`A`
zj!Jp~>*6f$LC9eqE{GDFLc4T2|Ju#QwPFRwnu5WeP`wkQ$uYE<@AucBenC*h2~eM8
zSWam|KtX6`tj*m%+}p^MKD-WTF%e5=1e?yKzA3M&dhf_yjS4YzTn|-eQ9eq_GuuLU
z>{V5pu>2&QzD?2Alixr9SZ8WNjFtc~%nZ)`VG$86c!Vs}-VeG?Qp*;sEsftwkX;1n
zQQU8AY@9V&x}TMVs&XUJ#Djh^X>h)={;d$)#fLcg%2<t$+3$Q_)|RC24pMSYs=E)5
z1WGdRwL`)DH#uL~Vn$l%zDr%P>zus&bG|&|xIQ&2>yaPsp6eX<qr&F`-^7!ity{F-
z1vbLEqK$(&vn3ajJiVr!nxgGR=^P6COFZ}{F1<yX;*%jF_V>j0u<#51(t@+wvyuU0
zPFQxf2ZcgjS8Uzox)|>`H+E#`i<eB<oY^*uE|{aQs+e+i$z@QJra4pHjE6YYB_tlq
z<X=bRWg73bQjSyAUG9>VlcN@DvU-!a8IcJEFV-PduX%gNuED`U4Y8|F>39w%m`l>+
ztT3)jxLY^+{<Z(4MT5ZL%eMf3u|ON@xsJAvCg131qLLav59;!S!OM;-ULvyre2m{R
zb>w+`OW_9jK&O$)L?6GIsiqz)0X0wA^q8RXeeazKgfOt^XLUj9IFacikGhJiZ~)nk
zawaI*lpBMxyf+3e)<a&xTrQ0I7wa(aa*C3Qg@whVe)xwJzYE7L(%W)YR~83AE`kWe
zov0=0-8Tk5s}zAEm##i_f+==ZevTKUgF!Y9p9f)IJf$diTY}5g!`hi2kpoXau=^S+
z$YVedfvbPm2H}#j7Pd9+oxQe0KW%Ik;fRyX#@aKRk|RSLIm})n-BJz&QVoRuLA|U4
zEEB{$L8zwG8(h8mpm_f&?Lw4S{huAj)BNC1`H|BryWoqCBQuTw;mJD8{wZ@O#h#j8
zutDlL)Gq2@`U~601`PJyf50p61Cw~ochWI;03iG-ig*LCUcRGwKlB>R54HA{d-ryB
zNg<20WC_H=5?t{MY|j3~W>Zg|h<EQk_YDjLAzf5$Bg(-a7qEd_j3Yt$){eBMR)P%C
zuS()4bQAO789srDHKV6oL6Avp(n&K@Yp_Rr(r4N0UukI0{L>qU5{b~J7Dh0=C@LBe
zh=Bk!s1AW-l<(bmGen#-AJ#`x$w}Dn%u}JUzaH@(Jz7I|V<guBWnfUpTW$;l8U>+b
zquPH+F62PUlY@sX+fe#u>vJnX>ZwOSeA|;|U#<WK=RGs$(#gv?f1q$Q8G$;gvM5zU
zm{9#OmxKL2VUmeV(o_SiolamH?T9<0>t8La$OQud*y%uic?!(teZk#1U<;nq552F*
z#i`ywxrhR4H?I_VFQ18G`y%bN8mmyZJz6%;9Uu*=f|}}6b+8aYQxg<dfc~I0*e*3x
znF!iksx3}El_SBN5Dzp7LhJijXh0R<Hr~#>F6>cDzMEShg-E;O=&;mgd5dF0lz{P;
zl(H?TRQ4?}O=u^641jOG3U=#CQ-YT1(*puD-{%!CUAn@LJJxod6!#7aGAZG=?)w;J
zOVkvbMAwQ^2%KjNoEM287Z?{8_w4A|$&39m6WjJ4XBprJyl%;|HT{xt!Fz(YGyuRr
zV9e#kaYN~1N1Er|GUtT>cHaBVjkcW};UCLib&Vw`ydpp3kWP9QU88pH2NJC|YU_LM
zh3{)$^r>2lQh5&Y_;A5480tRT7mu3q-BzE?ok6Z%6%8ts$#(53)pk>)z9&JevG0)l
zTWy~yfi%7>|3LLN{y4bJr&%>fVR*?^D5~tVa{!Nd!L|yls=}M6U;))C*OY&_cBgU!
zJ|`~uy?mT1As`Om!Evn1nICx3L;+eoe09ILLT8$Q=<WUH3#hVxXxh=9hthJmMY_E+
z9H=t=ZAQw6jj|Kc9u${gEE_C@HmMrY4gX;mlqEGd_tKFd6G+INRX1%(%wO4e(`jH}
zK%Ij0P1r!qSf6YF_q1m&jgzCW4X5Wa<048yLS|Y7nTM3a%d`uEGRL!e!^kBcnQvH)
zvRblPnI8m^{3fH7tB!9Q0RneFxW*m{z-9`a!f<`0oMwNpY$Sv04_y&>v;NjGqBxEe
zQBo7-HCvDiT)Mplxe&HAttmNpJyX*WJc3Q-k#rV=7qqlBgnSsjj#L)HEoL|J<sHTA
zfIwZ=C$QDkOmdf~>0q#5lIYeTC7S{H`=EXIzH*#vK9tekQS-!@q55e@sHLEyE#Jl(
z*PX=nR>X(hUT|f16H@CTRPCN-#`D$)E5H*eqriB9%L!-47W(+&IOby`A1D7TVmSf1
zE^5z@GxB&OZVXgCw;9pgYJ|OQn%Gy1Gp7hKunID;gQZ}~m<_L9Esf*6l!q<dVab}n
zMNoK9$PU%Gt=uSHIGR0j975|;261)YMGc~J%z3T*q-;l9`G&FDO-k_L#jh{^ISRtq
z``x+P;v1g&nM>a*<2Pil6MMz&XW!Y(;KeqaF#wJ&?ZKIc;g(%_z^sqv|IR$Gxo4y+
zziZ(Dh45-c-}H=IlEeAZ7QtaN+P-X3#R-dmEA)3*_MoY`?)AP4)GTP*P(4wqNutV_
zsGTb-b@A)@eGCK=BDBKN!drO0K%yG&Ue$S{M&!EXPV6neU*FmrzR8wdqP);CV{aL6
zl<qYOXlPLEwab=4^pSyCe}XvuVCS&W#TG|hZk@dLEeB40#u^rY0iSXgTVm>){VFBh
zcK75JR5`AGd8Z4Sn!mK)IuMnIdSs|m$QX-lo%G%~PWbUL<aaSzYb@jP-!$dBEZU*u
z5vT2TTSM(GbOF4!!-~W^P@yx1hR_%?e>gB7z7xf$$i<sW3>WTy=I?JrXuz?&SE02q
zhi8aJ{{c~Mt3q@nD01nz8*iK@)}u}l2=&klf&hg<)C;ahQpy8GJP&C99C$m@7Yzz$
z1?;i1;ld~s8Cx{EaIiiB3|#~{Cxa+0V`36xT>Iw!UT74-^qqO6v0S8<W1mF)ZrquZ
z3FAJ*$yxdSTI~nmu>xEqn_f*BGIcr<!CcEzsPpLEYTt;<S0<>ZRtQ6I7y&qch?ln>
zOIHtN6tDfn6{0$Lz9SUpYd>iqA$!atv!<|r!xp;jDQ3xS>>;YluK9%UJrfkFXWJ-0
z41WMI=NJq(Npyb?y~V2&6|MY#02>}76b{ik`FXf3q7HGjyWloa+2rYZaeMYj19!MU
zY3&kfh$qQaC}|%^s+ttB?+r$-zxT!>kUej2nb%3sT_@oeP6Dbl#HrQWjC`qGnhIS#
z0awpe@9H~~)eV@Q(i6&SBpaQ+h??j<kuDryJ%ZMNZmcu_$pIM0RzeHB4{0Ngu?(`3
zDkAPexY!Yu8_g^rkM9lC(-O1K)t-X(Er2Mj5Z?yw9mH;H0FfQ&j$euT7_e#cW*J%8
zr$nuJs3F?hxFPC!BPAWR)(E4TkgGt;M9J}bYV*B~J5lGGT=Igh>(;V>=cBsRb-oqU
zVoO&<z8L@+G08D*pejh%MlWa}VrC9AWugvTvt11OGGNbZNE>nO4`5P$BhPRsto}T9
zehn3sRE&bGK*>Iue$?URtWVr>IfAwY)Q{xx{zd>*19!aW*3NrGE0I(dwA<zV*2cJ|
zR)ompqCd=xaTLg5gr<VqpR>FcAKZPOiReZma|;QzIoe-yU_8I+r6(F0-rG;=rJA=X
z<Fzh$CsZ#Ri|KOsKhXWtj)Z=Xe`{T0_~+Rx3e*1!`<(upWSbnUEq{EGadpiTW{^uR
zl6nZrsT`d+bZ=3aAX=Qlk#~_<uyfGqu}CV|LP`zDAVWqzZv&!{MN-igA|hxeNMzvT
zO`A5656Cxuwa)Yj3_MH%X$&FwMeFlQlG4&1$B!RpApxzTOF)`<3a6c50!cu;9NgTp
zc*-3#5x8I$aEI?IG*y(>BW(h)Ob$bl(;>H$Mbd{Z@};%Mfo+n>Mc7|ox{aNeA&ycS
z(5ppz$yY1IXqOl+xF|lkwnI;W&RYGZ_>=H^W148FSDMV<?nSz(@nyZQ&3Cf@;62kb
z#s3_2hqyGp($8rdAyk%bQ+|e4js$q>0@5R<efSFE=Rez#_TRKq|Fu1IzT^=qni5dM
zkdri#SuecTE7>&Ko~dy7@ZkkGtwexv3Id5w+o-Hvz^`?ndUj0dP$7y;*FJ@c<rjC|
zxN*Z5YIx8QL%u57@&ISv+yChgWYP8|O*BO-NJ4+>g={7qT6lIy<v_ZlsM1Vuj|kYr
zkqtU^{mst}{jGn#WgUB5f1=Zo5>MpPC@(TYx&s0(JS^-R>XgmU-u2lCrrsRaMyki$
z^7?lJ!RfP#fom;Kz+eCylL)nr*iRooT>5D}&?4GE?=$Vo9pkS4eb;{9(BC{URdhLD
z>GY?;^O-FDn1uQ+>+6I4Fy6qCcmKSI2|bYBBY)EvgSOmv+~A=n4{VMchAf?e_;DGK
zz1Ojz6$;#=iOu`%T0plYZ064R`!x^S1(-PB_@q5#hmAY0Y3N@pzOm8pT${3IK}J6r
zy$t<R^TcsE)24hNvi`7tCF`R!nfKjkGxN?(e6$r_Y4N8}!;&3L+P^FIa$7`L*u*nj
z`F17WkwT}XJvk_;UxU2X1QD~{;%3#1KbIN}&vhH%Sa%kQSdW+tIp5nwUtgJXJ`8Sa
zO0kZ<D6gAb^p`FREt}9oy34X+7phxl$n+AKIKQ0pw~F7Gb3U!?Po^PDakZxPD2AuS
z>n&f$;;oCa-q?vEp%wsibeR65PUrxJ<I_9qpoJt9T8QW>fsaL~W_`p~*3G+hJRdn`
z#%B8Yt#tNqmVrCGD?TIqaz9N@Ax@&}Tz1zGbQtKp6A6O_9A;yaBpQ_(W<=-vydPHL
zJibRLKMyStA}>0%2r(q0c5+elWm%CKMU;UIPC;8lej6<atsiJQcp1msipt6h*5?fs
z#Vz)V)FR#UwJfUX^6}Y4w2qJ!(ctmZdnww28TjeF6jfED00IvQyoq5xazqATjvR*H
zW8S^9?y$XLgtmw#UM75wlA@wd-@}-vfL7s=kr&8FuHN+YRJdA7J13{4c+<o9qWWTN
z?wl<6YV{4BfZm`y!V#-VFHSTi>WK9uqt>ZXzIig{xP+SFd2D?5^|aAaT~9hv;<P8v
zaem=}!t|!r`J8yqJ8k4N8LsL!517YGn84!ld+3Bu8NWPnxAFRI6!VCmS1|(UnJuL=
z)$Bwm?C8HUaK%S!$I%c&$ld{Yju^xpK}#fnI|Tv10ha0;5|V%;&BlZ7<DWlLFFAPD
zC;sY$1PFis&=B>3Y2@sj%*?%OC5YB!;)ga;n#CUJdpznf!_cTF=B=(c;pHS`O)(0Q
zPpbtfTwwKOi3-By%Q3}czmMasFb;CJZy0cA44}g>fMN2vpQb>B@Hf()|LPKEWB#vb
z0{;Jm%l&_*ANqfm;+N(AclMnBzh{keZkdPtqXocy|HnFyek~Bye|anZe_~lKlj(1D
zAS;7Pm{rL09vr=rMJUJSR{kVZ$@s=?1mVR(UM-(qLO|$y|CQ%vrY6&roronT`n*@Q
zfY%<;wx<EByf^=|HjS3;#}q#wA75V<T+AyDRAA7|Ce-&Khr{aBff%qP$wg7*m$Gc;
z8fOrK%-d#P)gN|CzWeSq82Ip(>3|K$ggEg27F|Ws&;B<d;t`+(3lpalTGxP5z3C+&
zN_zf$WIGK32DT%nv8tpV_hmbczGrB~@b|L@Mn;u@&gh*$bpT@sqy?axU?l<afb^2K
zKB44ZKct9&%}UZvRB>={AU%!pTnf8c*|VB*bMULY@7(ID4)3`K_nzHatG30j;?4G1
zn(eQpRZX_1J}g<cL;a7;U2COjcgSm)JlUminw>GHc<ZiBQtRg5gx@mbi__hC?!4b_
zvzD7u#{<i&=9ddCOYgC;1PYW}eVDqgb%Uo$U{G{iVDRE`hfgAN!O&jBr5F`yNdziI
zUlvbFN+O3r`34k!Kl4pR(U46Hf%+4cT&t_Ax7`r;l>~i5OHY4<R8d{+SJ}Ubc*?*a
zEJi8z&`?E9YI}S8F%?Azq8EF6fKHxs=H*-?M68V6e|8=}zU5q=G+nh~>7Y$+_ZL5E
z&ivix518^!sM|fz{rIk1pr&i8qM~_phJ7`u?@Q2QO4^c@S*6^HK4ohDR2ova2Zb!A
zzwPyk{Mvt|V*m5-=c4@2lKirb|5=CsAFPAY2d!Ib)uCdEL?;OtvWlvz2JqC1ZzZ-8
z{mJF!<tCju4jC8L{`Ln7N*=f7P<Yq}ZO!X4xnRL?2uX;Hh>&HJdNCe#FWT{7({I#S
z;Ou*_JGI4Z7`l5fPZ7Yx#59lOwowoagyasX8qtdn!51-u<SX|-1kgqK!=>F%9zCiB
zQP}_{9RvnJkX%iP2310Q8d1k1)j^vDHDHk@K>N?1fVY>|=CBeqLzePmTR?*zu4?@K
zr&|IR4{tROPOTeLL1T)i?>|pFaFo#Hu+D=!W+83ecj6NAmPeGMC{~?jf2jjjPZ81|
z1<K}=FFr+l{P@wzU;glQvrmR8Eq~69V$_XSyinKF=^^p+=RaB$-UxBCmIK?-LYZ|`
z46pFA)IXIr;PLPwyH(dQ&tu98nVK$Ux*<zqmZ&U@%<g}46g1iCerkJ&+aOV4C7~wA
z(a7(%P#@~!@2}FAj8qEBsxR*s5;pL^kb&}(`sQ9=a)-s>7r&jv*XTQSTBy`AGJREt
zG9e~rx5%LDjvYJJ3icNd*;EYKJjnKxex$GAia%DQS5}Y=7Yf{|(MNrn#9><iPwzt}
zzd=D_2;wV6lqf%F(co{lu21Gvdwtt8cAV?5-FJ8EhWyko{he<mZLYU>Z;Ffh9yRag
z=6@tYBBK%uc>1tX>#gQvTf!qEOi+*}_T|Agdi7y*6ppk<wr>@iFPB5Bk)d*+F3}Ct
zV#dGs!RwKc5i5U%=<|}27qY%HorCByAU0aqjQ<4@*od?eC4Sum_EROx&V{LHVB)B`
zBjz?mO%GB$@^{SZ6H8<8k_6hQqFu)%q#=>O=jL}`L)I?MtocXa6)Us5e!;;<TH@!7
z?$i%$alY^YG!<p$LFU05Ke`ri*}KXd$J?a~k8L5Qs6aTKDrh$ng;Z-dU3Ll!BxD?R
zEyyN0WUdUlrCg(v2zQWe-t1OTnZ)PcVL`2#uDq=V!Bpbw5h1TK=Ja(n4(HFGzkRDY
z2J!Uckd6AvmsU+~SBAA9N=eOvgWSzecwSfuSY>J+KhU&aw$vhh!=KuaZGWP6@i<)o
z3y{7%)H%0M)B#4ClZQth1hvtfe+E1GUJjQQopR46`s6|XZmNpF8-D)ylEU}C!7VKJ
zA9brm!q*TXvp*M2VE3|rzknlE8uN49GTLI4IG4XtyZzn%`$I1cDS0sDplf;cJ#-7C
zI-+d~RVCW&F{r_8ArDbjH2(b=mn=BM3toik(qUJcHHk7A@#A|Y{4aY*>s}dF`rXgo
z^6N>es7t<jTmBg`m9b;Tzvfhl|Ib5WiEjO0uY=OYn?L>Lt%|~9o>u<bcfI(udkly2
zuYG^~1o?j(0M&vu`O5vaia0MSi40@M|LxBOCj>f$mrqixGb-7AC3yH0?{~r&9y9-<
z&jSWNhi~5ZV#SvDt2il_R{!P$V)M>^_+Jh60*VKxqM@E6%CpZar@nuGZ%|GnvNTbY
z)$gZ)0#`W9dsroZ!S`xSNIa;WJ*}n3wh&_mh&E(rQJs%`SB;EJQGwcb?8+_Z5yGOP
z*a?9uDkJY8Idaj;uwv?SQB||HP6l}eF`aURA=P$n1ioLU>sx~E&1p#QQSEZL?-wlU
zqK;Wi4d7kI|MX%Mus)AEa;;IQ%OMhCBjG9ktTg9;ff`%{^aVtJANo|>?<82REX@<`
z!sr^^EbO}U<2o@s>Vh9vEm7IM-gEv5qnI|_^O^C=7>qmu@gL~_$LWmEziS>lQ73w`
zmsbK+MI|U#HgWN8IfsbcOiU;s;xO_eD8b1;2dULYD@0CX@|ZEY+LGHguSR#GKbjcN
z1Tt+~)}C?1OhPmU1{VQMiukmK?iokhg=u4AA^|bf%N57p6gr4AqZ_C$CEXb-#GEYc
zy$^J+9wCRJvKP>K=;zY(j}jf9=tAOyc&EiI?axYrh#GB4k(7;8Af{T`*w|cA^W{(?
z#+})YcWU8^k0zTVR3dZ{-;Ex9VjfhbVjK4Ggu{0OQXRzCjkwOUqh%!}NF_=5A%rVf
zN|gwg_P+=PCv5)JvsX?N5cw*j(tcw3Cogu3Rwm%s8FB+I^=u_1wrIFO`F-=fY{Obq
zbV+rbi8+@eMz<7whQfxGM3mPy-_I6DiSP-TO!m-P0Yhx^W8&*=9%txqqcKNp7-E(C
zO`ou;$PmrU;-Jd&Fu#F{DCSgwah7^sqdWh-pHP7iITk@`0t~6=*k6An5>$EFl$5}?
zKCx}I30|`iRZek9Ny2@j-3A5m1V~Lq&_9S`+PkX7wYSK}*8fV=nGk9MAfI>}7RCZj
zH2(8<tj7g1o?#BHQRzFjh4s;sCrWyHZ=j%fgOM2Q+}sI@ZG>7FM);hN-NsZceyTaP
zB^N^gf}jn#U52?%M3XR99BKVw9v+@|T!Mn?=&`8<N=v=oE75^MxOkcfbT$~g0Yyz*
zK`-)c;$8r4ZkMSfXhx&SoC6n6X-+(9(|$KPm8IlKq0{_#L)JrwFow?Mb{U2pB|wlw
z0pG5Ia|8oE?A`ZAK_g*0sH@Wp+kc+k|I=oaQ+`Gjh^JNizGDZa$+98B(a@+Qd}MeP
zUW<kxQXNq)95#nAf{7$8C3OjRb*DA43tbKblgi4%at)0&gsc@rDfC#=z-ASrcCjEt
zv(N;7do%=7#YlB1L_anokSH<LVAsx_Z&CQ%rOK~Y{1^I+WU-C)s5WD;1F#e^Yl#@j
zrT|)j=m@Vj*;)#=AQe{*@OlxA6ri#(p->)Wu%|et>;~(pc-M8@ox^*0Q+~xgE>j2v
z$R4385dg46B~{|-foK$IiPkC)FE14gIr8=K3BweXC{#&V#|VuNISgd*h6iTsB#8D{
ze4`^x<RLAHLkSuCDhs~b!^2|}*W)Ko8i`pTiOsR_GRhEU9R0kL7=+{D>Dd5;I}L!g
zYhQ#OjFB7$-ha=x4(FcYjk#zBAQM7uVsg%HL(s$WxIJ_$zeVX^bHla+m!Qx;n~)m!
zltCm09mk4rKCNg{xxGCXsE=p>fh)UX!AK=dV?+Hba9foCptBAIF^$4xBC(9?OAD6K
zrx*z)*%bJE0dx0a;2+jHw(TzKYB51+COlyjaw>8ds!g=nsQz);WTUlvb6kqus5*4d
zXyr~geI=+X(RGHCRF`a6xk*?%T$=W07YT}A9%tK#A$;U8Vv^B1hE+5JvXF@RMz^h+
z6Cp;wt;?3T^!<W@$&py_-O}KMGNKsj&~WRHDpkU>**~b7&k`64Q1l`C;Es@3pFVDb
zwgMv@)%S2~e#Y(0plc=;Y&ba#(!Ch;58N(z$Bqy4V*#j&ZAhIjTNS}Lv?R)pGQUr5
z*^X!5V@XM5v=D_KT%(INDrk!~gj6;zc}LC{Y39Rqt$&~~F;_6Nh?z?)Bto;6l)C8E
z1)g6fHkFGw$s{6@B~hk_8#%*Vs0vcI|H4As52DsYBJzR81&}|uf$S6Ltwf81bfjG9
zw&@X<zUPu2!Jd^}dHE_9#w;u>QXF)*v_Bp5EchfAR@4Z~<R+n3Ccgdy&@b35@}H{%
z&Dc>Q*b%)2aMWwOh_Qp@6Hr;7Z9_AvM4eZmo&1uBw_K>Gxq7_e_1O_MQXRVM6h}}S
zY}jbbNM&_|cJ~B2Li+pqeC$!|N9on%ATu+o)_mJZy6e}kFAyzeS{wNuzqt3Q%k|>L
zi_vW>Ej6x(hNR`{>(&;{mlb@fVZ6ev{yysT-<l1h=$5#jmfm7UbSkkJPxh3M6V_I)
zFyyW<?fgFFp1$%boqZ*weBMdUUENge$DD0ELmkvvn|@wM|L%!>4_@O)Mxh$z@#Kjw
z95WI8a(=?1D}1o==Qg8%C$m5Va--YT&d%;R<%d%=yi8idXeSzya1i}jh*r2W&CO`@
zB8ka9-0ew>b|C)@K9{dvjX?a5fFLpZqjuH`sh{Y-FnfV8^_&GZQQe?^p;AX*U0pqi
z0)1diJB7-sm&5<o984Ss%iD4K+iRq%K0~q0#5z%_K5?UozvOrqLQ-C<E-}%O#ueyD
zq{w5K*LgYJG^OQ)QS|{*-Q%NqQHbm7l)7+cIf-GK2^i->r??-GUj->QAvDK;P#s2>
z>E|rOj2L!nm(_Q)IHipUQ=5+DTYbF)xN(S-1$nGYeCm4yG!_z+?rHEQn%Cwrd1*S)
zZ8=ucl*&q<SEQS73lXVWF+76>@jxD*b7X?ni<s<1jB+}4fE?C^&NX7-2GR9zC-C!L
ze6q1J(hJu=#K#hqCSq<2hT8~2A{JAy_9_lgBkI+E>JAWX?*Vk9CM&a*G!xP)cj_=R
z@dB9`tbqrdyu1o%5WZ~-DWz{<U^K?))QG1MgB6HgnL1yFN@Ua=pI=w@TOY<tiAG2q
z(Z}&6Vi(VW3V=-KFlnLWsH=Qm7S^U29YBYNDtK0K(x7}WpnHHr24fK{@10~95Ktq=
zq70?_Ng!ow00aQuAwnI7SUlTO^bD~BH#Cj?5DuID;}wfim4y|ga<}EyWZMkA!KZ^Y
zzJ{4kx6kxo-Q`7~TOvjTLedj~0Sl5f!c(4O8NJ(5Du3GEt9Ig}$%J%!cgudhlP6V(
zsT8QiCbr082WKG3+nv3Hfgavrug(_bugoM8;FM_40yA;}j+Vo&10$F?KWFpjL$)iA
zyQtGy`MyVF_KSXrg<Cw+#w8JRjDyi4)d9X>Y?{)@0x@O;Qnpm2Sp}Eq=84&p$08D2
zQvI4>(Qz<(6X=2nx#n#{!Xv^@MWS74mrx!L)x8hXp<LMat?kf5Z=J3?B8^+;b6K##
z{3k+#v*)PxiR=SE_q{^P**S-}YiKY)MboNxVz3WFz1(=t)KfzL$Y=KD5<&++5n}ac
zh|Jy+8UobcORD8=O!kPQL>mjYx~`OR<Oq--jByxaWET3o<)%L}d$Eg(YTIRN!QV+s
zOV<$!1cGP646AjH#RHbi5GN4bLPSFy+&w5B_Ctpx9zA+QbXO9@&{#+I9t}wZbNIOY
zg4Jb_$B%dJ-5ZUtGE9t0!g-4Q_U)RugaikmB+=l6H#{DhG?R!Arv)T{%SVYpiC7*~
zI0!`qU=sX3=dnJCl}FuF1zh|^$F}h9CuFjzZmX^&71#M6Mzc18!M9sPF;)m!Rv71+
z;zc(eoL?FEe*TmL^`Moa3sh9&xDdm^%OEGi>DYQxz}LggnhHT2>wZ5osG<m&{?*zU
zd*LjruV(`|H$5FqH8K!#5pFkBeadsq$5Zxo{(QnUtZWR?8OW)#j>|-oe{I>24F^BJ
zGTF!5TcMA!zFDZP|8a8eDR#VzJU+)8o;6vLXtk7|ygHfb!5Kxv)48B3VRI2VUCOs_
z-%e8(U=#tclKW4tBSqtO&7cCNJ|3?Qt^G2cSfnKz%_Th?AMlq^QW29+BfMH8@ED=^
z@)BK$I&4005~F`bAPHC~6I*$W5>8;JXoVaxmle?*Hj((T`vBEhT}SFpOu1pQ5?ei5
zzGNx=-Kb(-ELR<?($fFaq%JWrI8U4*#+_ka<Fj&?Xq;T4AG)NhY{Q}Lcln_C)B%`-
zcjr3cyoM^EaQfCsLBXt#Wm7d&LBYZF8KGi7I?x{QuaCptMPMW(`W&yp<Rj8@G4T$a
zDCYqa^$#>tJ`?#+t7#&kjlaEd8r3GWMeGRJJ`O=%&cHE0s_k6$Zk)snTU_#`^}sdT
z+H1rPoR*cX_9~gUK#T~dx}u9IVk%(ZPC(mQ-+E%pIbxzQ4GqmSl+Z7lxT`S!U>cL-
zV$siy5dQ4bRRyRNfJ{Xp%#ekh<&C+At-YcZ!4`ujwzZ2PW9oKYnY;}}0%Jx#8W;+e
z;g5o}exXU)Qb-p7K>@>f<7IGcka4mzGv9qG-y991)C6me7M3t51v#=i5-_=8X0%NO
z)0jS^m2xO|^Q(46p6o(21YAQ{B8Q=(R#K)Dxby~%2!s=3A!ba=16D(`!)Mi9P>=@v
z_x|^CQu$<~vD*}*S-x_wDcJgP+G{1tW{4(Z6+UeJSToc^iFpe#VVwFCvqSZgz&D|?
zp`u4fgy4mkuk_m?g3yqzoW7L~Fbuv9|Iojsd)p9A77a+NHp>+ALqB5Pk>#7n`O_wV
z(Dnw1p1;ciA~5x184_qPg)xw#QqcSWGB^eeSV@$h@B^>+P~rZ=k~CtMjqGU8Q?1`m
zpAOe`ELemX_Y47kh~4mS<Ny8XR&NpbWJsjvm@}@p@Qy#g{P!QaC5#sS#c<s6*x|=x
zpExj{yB`N{K>FuvUT28R9&)k1`I9#>c}nS#(*rF+GuuVzE;qMZVyp`t=g%l`kK==d
zN_@<7EF9IX{Ss1t5b6&DI*Hq5OWxt6It*+zNZ%u}=^kPaOcIczuRtFt-ID#+xd5`-
z${Kd-Boh<Uv7EE=aJtG7vzYv}L;7b3zGcNLoIKBcKilIn&jCJGfe%{9dzm&aZr@tx
z`}YsHIwD?v(E4evf3M}A+aVyk!rE@=BdzTm)Aw-O&An7q_gKPi-E2<Ky8qzXHH?qO
z*a#M5n3DA=kChV*AkX0eQ8rZoh+{YWy*>q75BD+cOBk>^_2(a!@apG`8Gir8YHI{_
ztrf6I%8P%<|6Mq$=^zWQo+LVdh#&SlBL5JJR8)7){Q~27ez)Pm_N}hiCwyc*j5bxj
zY#VI+;safuj1EM#%2<}4?}wB}v4XXG8H4_a^a<z0S90q2U#NV~6*ztUux@$8NDOXF
zxjPB*pNKUW$R5*@{o5*T?e`n{V;tGwny(f(zdn9`5vZdE=Ke}YQ4swaC|cf%c91o5
z2zwVZ{$Wu2i>GhRVNM5iyCnv2wS4-=_Ey|*+n+Hqgvh$deO9NcEJR1pDu5Jo=h*R!
zhUsktK|>S*ppScM&hx*u_vYbLwr|_;s_y3Q+{(~kC~1%)Qe^BdLsE(gnWI6*lzDD8
zge-*;N+Jo7d9Fy3DZ|1tMdpxs=G)Iz_cOfD`@GxpJ@2-C-}}dFySLx3#9G(7uJb&P
z<JkB8*pHS3+{#}w0uFe%yTAF7AT@C16MH|;u9vuuSH>0B`q>e(ev=1~UGhPSiO2Tn
z+w1Ua-vr)=n`d-yI}kUx_g!%Ci<PVzCoZT0Zm2UbzLk0Je*VXgcQXH|Tz7}Lf6YmG
zgc_JgoJ39r)9|T<#Y>pDUc**SmUxcAtmZGfhCQp0)e|}$dcVL%E=|4H@YW)I>S3;P
z>5v_h8yt;2ONtLG;=ha&<CV&X`uO3KyxX^%AT$yaydGM-UeAU07Xal*(<w5pGabXK
z+S%XixZ3$17_#`x>RJ@$606n}vtXBrZ%fgIKAvH=H&;KdueUEvowssP6D|-Phl<n)
z{MeaSqUzM|3>)8#xP|EI{-1FH9Rg_V`ci$Gi;x|!&iL~}ET66&w@00YBh1%MbR81Q
z&&8tGqt1wN_#Av042tBk%Ux}zA#N>#!_zrCJa6O;G(SZh^U20LZ26L0*Izuq@%g>a
z8UV(Cq&Y%GaLCfN2;vvMJD<(;+7P~lq-_9Qcv**v0RZ75S7dW1)tM6W4U*I%`Raal
zmurQ?JnC}VsS{FXy2e}4laLIIk^p=#d8p3!Si28^UtVvAd@JlJ2JJp)z0R75_tIxk
zw-5_euwT)>?zUkrjXo&o+os;s$s1%c?I6+5S~Oy74mgwPk1W!lK8j>1DBJ7Jt7EQD
zrki(dxbye2%fkPGb<j%ldb8=jL^}jd8u~TD0X=Zl-O+{InT=e_UZLAypUeo~!Ugfk
z{~m4poMeWCv<hq98?zR2XW9jC_7q5%H;AFj{45n+5SwQEZF5f{+#)mG`e6^|C>$Ut
zAndRhvQ+>r>KVCp3tHsQPfa&zS!AEVLw`u@7LMU{g&lvfdfK+6mJgA%R|W2uSoe91
zITTS85@n+AL(%uZz8MAx%Wh?&tEC3DD=3ZNJW)~5Y%nOmpn(Xuz#whV$v|UKaaP!8
zbEMY7t3C+p4G6^P#z-;ctr8uwws6RE{81}p{i9aJB5UvtAvVKizHgs`ozE-i35o3i
zn5xVU(yB_K@IT&j?gno(ti=8{YyMAAM1oeXN&OEvqA_IpI2DNH^YJHQDo6o$Cz&JH
z0>o@!X!sDT(=-?#B%rdp3avw)POFOp1!;?zB%k68j)q|IsIoG#-c#aeeZ4C=fEVSA
za@5;er}up}Bs3eN5hnck^M^q}FA+(0qTWD%Q7B#;t$G?Avr_=vPLh~zp5D$@@bTj-
zl=s++T90~nciU^1+`G18v8@1HV+DX;tYjA;76v4p065Nz?~wRjJ_U<QV4BaX;AIEw
zG6wNiGr>SEI`q<x&kp8sTWfo>U(-=o9|zQne|yM_?5()lYKgfXn%neskmsVHByBgK
z?E-MA)o5MIM)Mai@>Q>n%k0&APE&2L4x8VwvSW&GfR?@f7<c$HAY+R^W`YYN{khSp
zm)0=Cs#`S&A_HkUfbOXLun7)5f<_WZ<I&zrEbQ#+uliPVh&_ck{s<Mfj<qUh7C0~5
zMV|7Vie#~qgexF0yrYVW1i)LfcI~2KazS{W=vvYs&8|}84X4i2v3>#aRlGU(VTEMB
zP3FTVPhO*xVYPFD`4BOh#&0I$*g90WFGy4AYOIhXXyDiR`Lf7-1%K8e_9Ua1CmS_5
zo}Iwed+lEdG_taNJAgs-xfDao{tCM8oT||P>s?<@mYv(t`CcZVH_Lul#30{&VR0PS
z3240MGXaIGwG5IX3gT^CbOkH~m1dt5^8{Tx^+Z2@TtBtgmD4V}X<=b$*gKqo=(IWm
z_<wOqBYbcOcAVPepakzXVvcdNF>*eqF22HquRmj4&+whLO#5tx=*q+Xj2rt`IJV#s
zDzfo+_v^cnzw>rOaxE}QT(s`<0%(1SyScf~6*E47C3_;<MHAFEa)3gjj)>`i?62J>
zvl<nl4g^MdHgNWQ!h5;n%OklIN0ffVL*3KELj_8!6}vVf@kC-7g`h_?+r+x2xVRGL
zJ613|CXL!BBnNL@PF`XH)&izSVWj4~ckkXoBNDN}da|!b_-y?Bliw5=&1md7jQJoI
z;bh%2K#_91)EB!A1uNP)9$N|^ZF<%`(;-Umbfh_04oHx+^g}iuzGDP^yEq6JecgZq
z*E)_+N$C+H<0}2&@X1|!%Z|UHIqspuqxJ7Q=l)n&McxPiTi^AiT=#j&4aJ=%buL<b
z@W~++|9&+c{>r*ia4)-l?$S|u<mtiq3hE!%W*?0AHtmWWZ^;%1iGr`EiS)z^UcAw8
zQQMqc3D#BdE6&A5hxb3=#rmWk>R)UNM4fOv0M&^00ZIe?v)~;<Vd#O!EQK!7$1q&H
zuKNTPrV5l^Kw2Z1q$f7*8BA(M3I&0Hg0H}y>kR;f7XDoa001ZU&Adc}^&Pmq2>caT
zesQRhUZOi-Gi}2?{Cp3P<ukIfw}{8VrX!dt@fOCW=tFvYe+-P-N`x@pD^57aL@>^W
zI203KcepAM+o=0vmb>4D9)4R&EGI?*LTg`}=|Sq&J3lutzi{3c=rrDc1U-VMNHZa}
z9=cNJo`%jR2U(ln$ZopXSX!oMYw0gKb@#CyTsy0<6Y|;si=V;rc=-6Srcp4p{&g44
z=<<Wnsc3gv_Ss_t?||Oky>CwLCq<)#pwT+(Q}(c=Hrk*NUtn<=cSe!AP%lj2=$w%7
zY$`%ca-KM;C6RK2_F8dEXmS=@A=RqAw|kPP>=0lBBX|nmI)T{cRV2X7O38k1!_mP)
zZo$7aCy{6H@A;7rFZjzxW8eL}Yr94M-j2k;5l-8NX9TZ_a3*c6a(6D|PL^2k>P+sm
zhhE{xbXtIZ*|W2qtxT>Hhdun)BCZw7N%zn1`3~@g)*!8MF(jC=k@<JeN1P|NhL2Kr
zE6e4|D?NWrJ0X|VU-JI1UjgWr5z=$&=^o2#UZ=pJDekOP&q34>P^8T`WVo7so=J__
zUO6=0>ImZv&sDeJsJCfZJ=~g}IZteF8d`eY1*iC*PTn&;p||G_cB4<3KV=Liyhk&H
z`(K<*4yeYTc@@Ea?6wI(Ie$CJ7psPC(heV+oY#t9k;xpcS5Ulh;O@l`FT~pbjpp5{
z4XWSU;J@b2i~X0GzyHR$n)Kyk4oo(gUmai`%*xFCjM%yExl9Mc`q$UAMAq32yS)>2
zWmpGs^!%c#DVtFeQX||^Dc28L3=BNf+OT~2a%vpskMG=DDhZlBvjESGU-+*vJIU)s
z9&w>FxaL#N=sE-5#fBt7_-C4{%_ORA)_R;bd#Ns~QoLFR9yx)<tOOkZaO~)m(6XIJ
zkqjTIS3pIRP(1VQw7u_{4POq3^lFQRl&<N$CdMHrt*ctreDcxn6&Z(d7q4Cr&-M*y
zZ&U;IrNCt`OLQtMoSd<^8|-OpM`ObEp1)A3>5byi9lyBw7k$1-7CKbwic$gYRr6!C
z6%XRZ-iFN{`}(ly;)~^Xyf*Hw<Tlv#zlOk@p3cP^c6Ktom|37k5c%P8pVi4Vi9-Ve
zn%NQ1QL%oNj${36>O*2oVZlDFJ)PyRuc<U`Hrw$<T=bppz&mqww!y(cf*q4yIv6UH
zJUMU*8Bis<Zb{=Y#z!5#U>uK2Z+}LvJNk_q4KV5U?NRx^i8+M7jf%9@`bR%BPsgRj
z-(qhEHKGpmFM{8ncQL7}s4h>A@vj5_lE!;^=z9@0f@Dkx&2Xi&^~+|O_5TcFC8Ksf
z?e*C$3={C^<bd0`r6$LB<>I#9A5&?Vh=M9-&v^y-T;i!<V{@pDq%T|gwv-&ZZ|IA+
z2n(wssi;Oml1x4W+*nW}63Nr&D&-4l0y|r+Eds8twEOczIpRYVnhcTMK+8l%aBXd3
z91CwY%*#qV8<U;J!Lvn?4DeFQ_Aa?tiHwm~5snJsI1gE>au7Fk6~6+Bv_`ynTK^I)
zqr_?t=Ya`4k%0F4;-|BI9`frQ@2c4HrVPjhi>3>zO@j1MS9~$IkdM9K_uv5>$YJf_
z^`pcdw%#zxnFm!tj9>f=L+AP|T>W{i!J{9#>Yo_;!Bd+3oBr>;B9V*hKf1!)-4}D5
z6sh3Nr-hTxu8;Hbv}+80p}nvP88R|EW#STw!A2(|6K?+cbdP}&0ftu%)t^iiRLbMm
zS?+d+iCaJspz2%vfjFH)6t$!V)}m)XXUw5=V6T(MLf8j<OHti{R}jlEuXz|fOz5Y=
zoFwXgxO18Ao{OJ|f=mm032fU;E4y5rR<4UP0sE+N93SAeORCE|=Zrx25~>3XFV)}Q
z8XrAa*W@x07l2WQ$8!x*splwqAg=?xM+SlsjQ?;`Aqf0^`gv}7>N$|J5o5e=(cDRI
z-phEg%>&PqK3`qUKc)Sk8czwJ6jCn^tBwDhlEcHUTlC?<C%1abFuHAxAj6nKqO>u{
zsRDTj8lGW37!>ioGdE&?{CID;2w5a-m5X#g?0J9`4shO4DpI$7w*3tY4QF-%%|wy=
z=PL6VcuA`f0S1VRF9M7h?RM1`Da;Wn1{-Zql?Zbld&Ik#m1AZ!-nAO2Rr?h&GGPsQ
z(GDzARH66}yPl*2Fhz+#JWwJGdDTZk=pfYULW|?@BcYIG<Hn7((&(?m5w}6c#pzjH
z$MEp@CMRT14?{v?ff11rO|_$_5n_q6HmH0Rs3!m|oKK}!zdpN{7@-4Slhc>fcx$rT
z3mZ@a;N4f;Qn=O_*7ex{X#iQR3lyEC@e!?sVgicbOUOhl(0IRPkq)gM+j$kSj!z>W
zJ7&*?BkY<+MQ1qd$}IF%<Mkie|BA}WR2QscC91CLtToDF5+#x2Bdx#9i)M6ZhoPeF
zL<Y8#hvyJ(07f7oi6q@jn3Ly!NGeUq_*6ztyw}&ANb1iXYo10ryHIZ_aaKl-@fshN
zEhxGlL$#^_>|yWy4RF4PH0vYikD>wX(QgE_T>#7gmMyU%L=)5v<2F=7BrPI@7}~`H
z?H&JLunBTwBX8?Wj~+i>4S7pEw0x*a)IfES>=bGWTs@()$$-9s8Wk8gfd3Kv>FQe6
z+A1qAZwxwu7*h~0$eqwmkY^6E0_h6zN;?CW0d3>mUO`~J8Z*^V^OC_~cz9LF9nc?X
zgp%|XPM3(5?dcoDtzMG(8&a51MfwxKU*fk%$OJL8l<#dn@IdWs**Uo|FVBk|zhbHc
zQ9v+w>SDb)RpNTOX=MMZ!$AC8iTDJ1B9cCX7<mcQ1|3~dWFQ{W=0pCU9#%!3J`m?M
z<kA>iaPhm$(6)7Gla!ulS)}+Ck(@Cz0m_zDPMTELK*A-V?qLBCg$1%>|NfdUSC84^
zp)J(2Oh^R23~eU%bBL7V{)YC`JLj%<!Z{V|kG;cqClkPfAgL;hQ9(&Sl$j~CP`|#B
z!7G914t#v7A}p?xn>*pP7HI+M%Oe>>`y%u|W*@46Q&x*Jk$0B69=q$`HzZf5%fSL!
zY0>!fBh|)<R&}vCy}J1c?E==*9_uWecWn{h22|`UBt=hc>o95w>Gub1zXLM^b+LIU
z1^D@uQW|bveKMnzR?PP>YvObrM@7LMo(p7T90A8s=2n55)a>ZP43a3~eL6o;C{qQy
z)KkWX3c8!JGvU)hf*kAmQ1u8hV*}WGB_ciy3>)9nEIfUYR@~b(!j(0-l-(SA(XaPA
zlO5I~fA?qZYyz<T3mfro$c>X{r&S?oMf!La!5MjsJ|_m&&_MsUTZt3LsVjlcVYjI$
z-1lK6<+jd=ct;>(zqu18>P(n;=e%5C?#gQ~4OxE`Yy#MBgjvKkLX0mJHp~21s$=D}
zhR=@rf6H}vy!?mjU?E(`u066B<e(b^mG*UVxRaHeTd&Jxl=AuGig?Fpj)hIFE_M@z
z5%*8)|NK7lZUDte$?sEfMI{0)X4vi6GpKxd-JNGdhJv$<WP8O4;<w)86vh%($2M8C
zRs{$qNi>P|Hndn4K#asqM@e9WGMQ<F;)<i=z1qr?XSE079cA!wVPx?~e<ycL3M$^~
z)02gcB}GM(3G1X^FhFIEpby{5K?7j6idv5u_%^75p5d0w3FP<?Z%e4XY7hacF{TRV
zAY|atunz%HaXUazk84iX$tDvwI||Ds29kkuv5Q}>di^saFk<IL(OS%4GpkFKqgr)*
zS^tY3AtoWN^8@oR3XIo_$2~qu#oIC0rXXNk4EzNE>wEqSJM#Pp@f61C39<9eklsn_
zflE^gH(`6Ytl<P4w;BcjleWweMieL^nKMR&fD3(PVBP=Et3fRbblL(&rwhkrAZg5-
z#d+NY?cPJH3#*#o+R;UBC0xa~DiV8OLtm+jzxjAr1zmo`^%Lr%QwZhw4-0(P8&mk8
zKbCT|dFD||z+aqcy6lE(jLZRy%$XqRCGr283=3fUcMzEnr4U2o&3NtNWlBs<Gek&)
zr{06a>n(sa!4G>FnsK1t8l_qf)h!OC#q8j8Jf8-}XVdv}%k9vro_w|aC^2gy6OzP!
z(Jc=aedu_=)B1t18>07CkX-L15*ZwCFCeFaP@7FdH(pojc#yu|346w_xLs?SawU+k
zCs7THnh2hSqP9A0Ze%+qVWgE0!NTh(kbhOgRJ*;5>t(yR?#}mNMf=bzfvV!n%5^_z
zB~_Rc_6HI#*muVu#p44l3{2cUp_i1D#8ufBN?UxL)93hdx+#MFy^ege?3anto<7SN
z%u0Th?@o-kTbd1*;f(IcU@OFI_GPxyVBKL!gdsp%ey;l_z<3F~k>Gc(EIc!E1dWiC
z1_#OF0Ay&g#I|f|tS_dvRzndRMo?t#pWk`<<IoB_1;83aejptt_%jI5A(lS)_dUdH
zcQgC4-><$y6U-Cx6%ZacyWqMl7!8CDtmK{-WE>ayIyiW2{Y@IUWZ;UBQ1br6(YUQx
zqnbxY%ArU_E=MNSO-$Gk%7E|#I868!|86Cwc(SSHP2*7MLP<;5cp?c>B#_);^pJyd
zC*UqNXTZ62k^f9!q)e!MIxGV1kp>ZVU{8{#k6q93tsv8Oi1dI=?<DhKF&K+2=>D%N
z8140vr#_-{+1-8FY%6;%$^ET{zAKVc92e)u%PHfc4KRba>9&tLETaE4_WLpq{yetQ
zZa5P)`aU=$kROApj<lxu^#ZRn0k9<wBG&!^V;$kX0O$K7%LQo-Fg;?{Zv{vOz6yFc
z?XI^M`f|f{^EnZ-ZUq^F<fQ%VFS-_<y*t}C{On*ykq86?-P(uAght#ymY|^HR8mKR
zj6Hq&my`x<vOP3a9mK*j8<z%pl}emd-!Q1Bmn^`mfX&7M&tlUgH0gnm(uJu=SbE?u
z8x0=kDFE7|ch0fY#hqKn7*LF#yx;M5`HMTANO*Sv!NqxXyGj|S3UX;{XaW6q?kyYD
z-bgW7u9VlS4uKtJkP&kzctJ#spvt@Z_Ltb>P@?|3g(TY~hQ7}(pdAu0-C}d_Md;Wd
zqk^m7UOEA_MNHoJ@8m9_WF!b)l4)Jy)83VM|L^g;PtSEaN@awaEYjb7?oYen7#I@~
zOqM9o@wLnogPQ;#RpG#fqAIR-6e9??tiQAQ!yaN@0??2EsMNSsdJ{y}n6C4$#DjQ*
zZq~CZ5O#CgqQ6lDwJ}&g_aKo3OzKy1k>5rtbGA^X0PL}Wfq@8aT{isNs1Xppv8RXp
z3z@KHh`0S+%}EuUom)QaIgKG?Z)z4$)EM0sI3<_Ev~81O4|FIe>EocdsaEh1GH~pg
zqS?1URKHPwcl|ym)IA$;w)|F;6O(hoY(oa=rQO^+YW(f}ZQP_lf+b)pBx48|DLi3H
z>D3UKCS<2XuK~_N3^NeD6;+*_oUU8mCC+H~!vc9RURfLYHjyVn%t@jyQP@;eRKRaN
z7{Ub=qhNjGMQ$e1Yks%&zaf)3F9U-^QmP6$+-EZxBBwcatO|n*7{RTe;2}LH4riXO
z-M7VPYI%{@Ml`LTKAi-+0=(}5a#xLxQ3nF#LL|&u3njf&J<wzre(Vl`N)WHQ^G()E
zA-m#wwYk1*U5o3Mw}(&gvVR#K8uooYjmg+L5D@Xd@%{Ix^-8JSuT@JZFaG|mA3gM|
zqXgRDbyge6iNXt}Cpz!173#hJfX}NP^xjpG0X3xe2D^@oZ33V{)&^>CVyFf&0Q8eF
zkhXEuUIb7@l&Xgg-5?W|Q|Y_mULRQe0(y%c7#8JrTw$Ah_#zg{-%oq)9o*pvZ=AfK
z4|mRW0nT04ZLebnffp$rm7j=h#%yL(on&S+l^D78VzpnlE>_)0d9dUk%nDKJ7l3=A
zX+NN6_-uQSB1v&)6@Azk;4qaJ^TN`<Os`0}12%`uT_S8cRJRD~5uZLCK@ttPq6ZFT
zSbFo^j^kXH&gcyI&S!Ui%)7FFaY@ztTdQRMcp!UN=)|(^W$&^cTzu60dC0E&C?C&-
zkg6o%(cTx5p<jdrw{`}xe@)7|#l9j-)}?6U4g1Z!4;I`x7gVg9D>G4Iem}h|wC?Sl
z&f&qJ!bKMwn|j~U=3Xc34cD2>iox5jH9*U}Xm{%QBC5N48d`!3q51<cvf<IOZG<Go
zV)DkpC1L|h<ki)+53Tpzu8LjUq0<<jD$yO`->M)prSb#(uwT*naM&^u>-LHK?b6K5
z35_q?e5#g|t2i)YqjyC@g(k_v0~vH(e-;daj`q96AU{)4QDF|7s)`DSc{&U&xiK8T
z=-T9XR;LtmMYdb&+kKK40gk<Fh=N}T+7vdL{mfvYf^5EyZR5jfoyx;s=Y|4vt<q~k
zHPrp%`e}63j`q9fawes`7dUvj5h^j`G71-FX3m`L=9N+xgJnMbcyLPD!_enIWa9+{
zP$)ZGp~K8Pd6{Nxv_Z-d)2hse55DP;IlkZr(HS>fE#$P-2J7&VJ?H1`AdGmODVv`;
zkwx53rSoEUPim{%j`#N2K#s@e+AI>D78w~?yl-KW0z=%;cv?#f;t_14zS3!6fV*sS
ztMA;ogZX6k$NpNtD))~TAb9_7mm&YKeB90o8}7vFByWh;Y|@)bYu<n%ad$`2o~}R9
zCv%)>g~?pr8+^(G2qWvst!srC!q?aNhv6VtR|#MT1`wDgAVFG9ds1d?ZJXN!MNnEn
zv+c;-drBh%pma0G)IMML*yjfH%9&8|9E3nnP5_|VIN;PN(T4d4_Xu5LCeWPZ4UWW$
zTu8adno%g+=^fYgchAn?XXzK~AV}N-E6|U%$p0jf$XXIpL7eBUn7HYI9vLZ|P!-=Y
zhSTHv``Hib{eE-MsE1@_2~@75>4MYL5=DT#Y(C;yw-LUqn-B`{cM#>7NwINNSI|>|
zzoP9XBWn(<dytr=!4vzAM}x2$D#W}(R&Q@_OPF}Fnd(f|3c4LyO9a#hMLDm2+RV({
zxS{<36sqKR$Q!0VP2P%8fLCQ@kKy1eruUfsd7Mcn6FFzwi$LAa#VI~wt$?91+MM0N
zR0s19n3+{{bQ)W)N+sxVR_mHkIJXjn*UenK>*-A%o>mYb-9zHSkB-fBDaatF5_IlX
zif!tDc6p-|^UoBu!_Y`-UoG0ooM4?agsEgHB~orCCMIoUP>Yg4Ixm?_)-WKL(G{MC
zi)%yGU+lfC^y1q=;tzN^Duj)h8Hn@wyT-krGakzyAk4o-f>dUP-emc|xfZAoG-YKQ
zEDJdsHOn^N<yf<n%TE9FnKO{a4tlY5rbDi{g{Kv0N?%QixYh@F`L5NQuBRCwURweM
z`Uos|i+_>qHh&KkIUiACY(z2X{rK_Y24OS@I6ZM1DjJNl&F071N`4N6)IE*^!sOc5
zNjX?Kp_&^wsiSk2Ha{sdznzB%15t16;OF;(?il|^@8J5NQy1^lbp$u>_X4O#<zj&I
za1cZ03V=RjB*#TEC+SUoRu7MhGY`H@CL3%Iwc}YW`7^KfLZD7Ya!6^-{i5@&NM5}$
zb!2lXOj6eYI|JKW2)^6^@Usv&P7So%%oOL&D49#qbZm8YX}sAaJ^ZLF-?3>p6g?C^
z=!wGc7l#Ho<0l|V!GOlDlgDx4<Rg<l0uJYqiUbT}mNPUotfJ8rsJ!X+8Hu>re)SY_
z9{;Wb;ulcWCZK*h6zIneaM<_QwzW9Mi4)eLz{>c0@J{C8*|2e=AyUu9agp;ocJA~f
zdzB|e`hXqSip6m+O@uqcxE>|PtkjY3;f-?Qquv~LRB7CZdus?Lk~v|N-=#kxKn4p(
z$f~Q{-JNW$RGDM!haw#gpD#V|qWnUH>X;TyHp|er=90#&CW~|D%53$MGSrzCcE8iB
z_^j54sNqlruXoQqc0n!ua6*!C#>EpiP4{m^#pC(C;6lX}#X|Y>Y?|F?hPRv&;zecn
zByhA5tH%=P<VW;g#E5;nwRR}6G?iq^ZII^r5UcsQQN8(Og_H#cGuAPjf$aA{2)_=K
zQ@;d@#w*C5+ore%w4E+qgDd^+%>{0Z!*}Q@&?4CM50Mj(oDlYU^FZ#}U`FP_AD71C
z>FM-jsXqTDQr&;@_g5C@8$&bH1hV=d+9+P}(i2Ph9}wVMVs*D$H&P<B6rYj2*ljKx
zFHG7lvf@Ski}E40c{o10@V<-uukMM62aLC;Y<ltAkAjb}Z{bSF_bYrKJi7eXaAwt`
zzf@@VRkz+I#g*IKmbZnvDl?;ActVA%b_iN6rj(m4BrPvPmrlyDc!y|o?WE}6Wh~{V
zboAta4-GHBK*?LpIPwqbvas5JSxFh$e@PF&Lvees=D&YQjJN%7y~L}C^2OhksJtp?
z&ae{W=v|<0$&P&)9qj?Ww*dK&Ue^%0K*~^D^B-BD+hw&e*n~bSjXu(+3|~FBP?`mB
zpw`wP<o`G?w?cTmkqr3+qMcSwMz2vQBS9`}e{x;PTVR>DVCna{TtusdY7A_od|2{4
zqhR~jXHacnUUC0~wY7Dua`DBtNEsXw9ye8Rk4MLsr%VoyrBtOzgo@;Jl$eyB7mjYY
zoAXL$WclUS>G7Y=3p1M~ho$rdByk5%X;JhQcv{TfL46SZ?Afz|%gxXm8KQX0)>bJ)
z{PRR>0ei+hmuL*pppV@r40ejy8B5FaD|KX7{D~PbOCm=0SqOuEShq+2;IrbcKr*2Y
z8)g^wPQU}U!i+=geyTY8RT|{O$~Ck&dmR%(=gwns`+T{7?zX^lEzCPq?OHRmO_6#C
zK*NaT!Y17}Ef&Rwby_B5TOZ@dG5O*&-gKJ?KQC@j&t*%tZPM-%R*i0z>0rtDgYuMn
z&Ce8lq@NYFwY9BDSVL+G<0&28u360Exf#OTFZwhR6`hR6ZP_zC1^D>trfQB-BdQHO
z;<}m4On8-P=ik;TkLNo7jT0MB$GtX#sqXb4eex@J{eH!7LXGMo`}e2Rxzs%f-7<9p
z*~X`&iWF~)Snu6T4UJx`quh&>XEmb&FZXm(D4JVvBhlbf)ssZ#Xr4K9CaQ*3BjtQq
z2VYV2jCiuaWljI&_?p4wjATva2bxuINPXy>8ttALGTRpXr|se&S%?)!R3}_^?%wTv
z?n8=8b$VQ!z^j;;mD(!vDr#zMV1T^c-GMCR<FH?$t<rhnm1q}Jh7qa+=0)_bwfjwf
zihL8Ohqj2<J9b`3_>@jxT3>jaHhbh~z-h|C0n0{4Eqq_~Kiv;gC5LN_5m+Pql|Rqs
zb}QDOfDs*s<Bx>&W)v?Ht0jKC(T!&!3wBfU)bYHH%;e7Z5BNunZePe)tr3d3%k7Gb
zi`!rqxYG*aSbSxF{5`<^U(bmD^aB3t$ISnIiT`^$DgTr3^MBU5*vV(L;4);?Y)C{x
zG$SKq_u9%q?6hjVa76h9D<zx+J>$;=i_QzDyRx&hN2QpVczW{iSuyjS*45?O%I8$#
z<vBN*S~XW5Kf1Mqp7Q#&Y4CiM!v6iN8Mhw1dil~le1Fr4I&ap5boSov6G%ZggwniI
zI7N=oZTzlLDCKK;eM24;ofn^7ARNLiwo>p{+KIC|W$q0QBG&`bU1<orrx7gX_k2q$
ziJybrn8_^xeq?#!`*nwpt?<2@6OIJ0Z|quw&Djmpe3YjHYk%5&1qfmQ1s*<9TwL7U
zSKZA$Jw4&CUcJJHDuQh((l_vkHr!JrsMo?ZU<(go%w`Y(dM%zA+x$!9BWLUEg8$ul
zcSkP2#w9i*BO?!I>pyv0t%FNb5}&i-xxLjJN0#aU>bT>6-E3s}#{FsRXW7ka-)yFS
ztjRT@M#tGS*r=$-tpudjv<N;kvmU)9*Z6M*{eMYi{?A%V|Gy+a|My<}AAiRDhjnpu
zh0eho<RArbUqG_j#!c!dA@tFTVF*kcTC04K?i>nah%@es&hBh+23phFaIMT6RN!<Y
zRJ8^$*htWScOwn(sUdpM7r%xLAcDT@RLSlQkhZKNl`Tpk?%6JdHlP_^P+06m$j_)X
ziO(iI^OhLX&YE$Iu>-TZMHdVJXkq{iwdd{@@I^gY1KA@IR|9Aay+{QQNY4=bFTq<5
z1u~j#?z7MGv|xN7`ayl%-AO5x5-g2Ts}mS3&cV#=D>-x|zJ}pZQGRMlE>8;yI*1bV
zf<P<tw!l8}*rPRoq@Zzfh-HvHZlP6z3!Bixych5p@G77+yGw^lZFBH<0<V}@|4PIo
zsE63^Gm+BS-Stk|ZW!|G%gR<&SCe8k=I<-A`A|1K2NYaz8Kt$sJ#LwtQ={NfZH!$~
zcA{E`l9Daso;li0j?PMtYz6!`K7b0oDy1(nJp9NCq|Q*OD_mZoH{4NZ=GsM@qK1dN
z&V^)PFiFWZN4<x#<ZO3;utC!93QO{!%V#wvpU1kdqh!|O8|UvNHKlmpTvE_MzGDfN
z#NklxGP~a1-Yq-^cuKLQl{1I+_6M5{A8r9*#Pa8#f9_TeMx_orDC<`_<EvusDJBne
zRSC=9<It?@PU$xR;)3`SfAku?rf;tRRcB;*$eI1EoGOpM(y|m0oQ!<|aic;ESul|I
zw~DB_>a*e_FA_c9sZ@QO=992HQe{FH;M*v+N7yXMtgZZ9#Z$A)2>wnt-oZ=fC{NAs
z0C)4%Wo$e?{>@Brm^r;fVP@pciN3dbPR3!g4%Wd3oA*s9HSe@qevsQQdL75%9P2Zr
zjPR7tI*fv&)z<ebY!RK0;3MAsb0aVua4Y84p(VkoE`F~gA|e`@rNL_{#Z(fo4l7*e
zW#T~e>(}>wfe9qmbX}c#7-Cb;$CEO5?pZe*kCh%iQ~zvJdHG*t?7$VdSp}dl{U*;x
zM@NBA>9lxG`Ql+g(s4xAboTK1<KBYaok}ELquk-)L1uid(;>qGw^|4*(Y@B;&of$D
zTI9EYr!~ZW01jNw@$_IP##rou4jVx)BSU<AcWzP)a9OM6l!M$ftU=UOKwf3$27T2A
z;>n}~S=oG4>y7<W^^Y$B7?~Y9l$Gqby3)CRzw2XHIU&V0X7s~JW-j~YYur;x;yXGW
z&4TsnOl^W)P3SWfDN<3B);CfXQ*3y%9pi6ssh*uIb4-pyvsQsUo1iYX%2IBpEAiEU
z+mI0WW2*#X-vKITW)^ato9T;07tR5f;oxRm1$u7kW0HUEg9k3mKjmdPu6+^0K5Zq_
zPoVqVhcM5>V}On&A^aLZMt874g_uaJ)^e2bYeUcV8g7aj^xmuy$oly{NYp~N0iX^+
zCe8OcLuYP@;dLx8#Tn<qOt0ty3)y@K@!RffG<U}^Tq%gJSuC<g)$T#xfT_sL+*9Ru
zHJv6HW%NPK(HJ*T9s}6P3{IB0N=rim$DYB$cqy)Gi~e6e%Wt0lcE0-WKo|dC#`|b;
z&g@4Qy(iWV!NJg(9%u-?mXK-f8*=Wh)KSg_WZ#BndM8=g9{|?|y)B%clk5nm)2HM<
z4Ei!eX9B>m`3V?{adkeqrVK##iI|YGL|@WE^(t44f0E3B`Wnj(%A_{`u$lAM`FmuD
z5N{qZ6hy^vySeA<^nD9?5j$W`t?2s4aSN@L0Qh2Eva|^-FbJiII1i69oXaQjmP(%_
z-<Rl5+d{PG?(P%5^Ao;7K%=koe+HCys%s6!O<FmRP9`9zXltWnA2I-WfT^RABo}<1
zl$2E7KC%&bGr^v5ap<B?HsiV={79QFe=DWrIf`v<I(iR{>5{KvV@s0zz{ukV&Zw(*
z*4v<gj+SCidhxXBTsF1m>i7FXWE5;dC%!Or$tm25P!l>>?8`tn?tWwY#diPKfGfB6
z2M}mTW{ZPDrAu|{Ar6x;Ffmy4Sa-l8UHLGOE19_AoNY0l3Pe8IUQfo*l7FhRrs-TW
zlR#J6LiNhrAD9u9o)QAY{CZ5c9@yH4CUmgCsd?2Sf}n%&sj%sF$cv!0K>qOI!?J10
z6pGERN4&s8*crR&U}w4<qpbd4<RGNN7<q!!I}P}Bo3HDPA%+wR$oq0}63Ckaje>Xt
z4c((#71tmo7=&%lM@TbUA;tGa`W+;4S@ntQ++<%(qE+`-JE#yDpgI`G0w~uEFeg9=
z<6zcF*qCP0burjx2IPnrfsTpZ7xCVN!>;AJWtECTfkg9Usq(;y;rgLE<>S3Sdgi2&
zY>+e{Iem^q_@?okaqH-m9NuQL+%3sE(pH^P$LSgL&WZzQR`mk#xR1)~0ZmdNLE8@n
zKG2l1&*>{0st$`g`*s`hlTZ!3Jz6NX+2Az^lEz{G-7f(hm18YjKg0kQGcFwZheEQE
zG?I<apnEMJ$^rwhot6+)DL^>tRop{g;Fhz~pI1?}i|11=k<^zWVE`{gKfVztytdO|
zfe;`q<=AVO7iWnH(x&6ni&l$m%9-u6NX=+~?y?m~uKBgbrJPnLzl2Dn7MzUF$&rS_
zcP-dS3+qX!WTbq=dtUBOt)PY)MfLX&K)}}q#NF)LB=oh@LO9oytE*`vvh;x+W`Tk_
z&L=8U`o|VnDN}hZG0wRF=@(WT^wX9Qn6sq4vg#=sHglyl&WR{eCz|JHo6|tEXoYk_
zVc<($W4Je?7sRSBnPy(yjZVQqqP1!iI7v%gL~(u;lkZ}LkRk+`E<WR6g|CZ<GIA+`
z*nw}_IEWb$qD0gcsAF@Me410eyHWZ<!0-_xI1RvICcrO<oJMpV0pP>r6mj3;<Bs`-
zawyT@6DNnTDGA}FC3+=35=c5Qcjkf<IJgG$NfI!~i<3i+nD`UibL-Zv3D`6mn0YjV
zo)J&vi~CoLwYb%S)>+Y{+}PN>jeylo6Cb$yt5Pb%qv~@MUClF{dU_lmr?kf~JvHRQ
zbJxItJrbILw%f8~JUQJPJ>2K>G;_8a{Bj$nOnV}VPkdI-Swrsla}cT<Hf%5etxa-T
zuGcPwiNyk$`CyE>;FaL6V^g;kyaAFrAze&yO#>y_20s{gc#nw2VVpBy)AaU{KFUG8
z4z8@(^8b1!s~kJ-wrI6G`l0fd%1peoE0kzr#=Yn%zk2x2Di8AQzn5~d5dH)CINpUU
zJhHN#+BP<WJ)@gv?#8-K)tbX;gTxj>h(eH*++aaT>I|A=u;_$~Fl4su%vuU%R`Ms3
zPuY&AB5#{_b{soR7ws-H3p~MCUrwV7lH!qzkh!3Qx*>b#w!rpLhaRWQEnUj48R$Gp
zgT4w>9ATo5fk!1^F0xlbsF1jgVchGpgSSKCd6mPuN(JnMqbxSmdErMp`1m|vg2^uc
z`i&4ZU>!fA;Vq}+>XZ%Tsi6OjksCN@G~iT#mQb1QL9?xj)Q#_~-Y?&7D(Z}u?{q(J
zlFa+kDw!eo0Navm0eh9;%ZgOl<HwK7%HD(hT0wgh$>+6Xx@=ExrboxlHZn&HuDk72
zUoq|Gl!5tG;V@DmQO``izQSJ0I_HHmx}$s<fh<n%-aQu*+Gx3R)~_L)DSu&AkCDs<
z5T)O9cSoSGHa_btK{<J3VH20Co*p-vyU#mK)0=&8n6@$2_2-BDj!v04J_%>#?%uGt
zhrZAG;B;l!TvgksmF%$No1EFu7~Cx~laaZ?c$z5u!QErHsI^`2ZPTcfF<XWE9}QWC
zE-MTy8fuS@3iTu>6&a$8Lg@FCP@>}m1n0PkC%pOIq4>BspN-~eo294g%07Z0T~DkL
zPp!49q0u_!`*V7A270Oz$sNA$MC12OtTRQvwbBw|>W>&W#&NtXJ{SS{%j13g5Z;ux
zUWG#2bq2z?{*kdUn7>Sbd@nO|8ArGWCk(_!(>d>O<=QvusD!%B#%_^=ktgMjGvNFN
z^C?{K269)lF^+Sv#KL87({$4~>8Pu!s>(+T;70USctcmynIm4$jE_4umRf{R$4+b*
zvLJ>~IeT_JP9ZNyE(;;53+(YT&aN1nMGC_$Uca<FqrSd=0`Y+z3bxO;saAR?o>*L_
zBPn<e{F{fz23l;wBpbl%F#%BuaMUNA!zue;WeAER#u&zDk9k7EA_$4_bJoQ4f3yJa
z(uO|sqcFl^vcwqOLI~-_M-?79>26O2;{fhbv=xF2ua6%;iecEGgfpGz_aZPqO67&q
z@k2zmrLEX{MLH3_$VYt+bOZ%S+F#9NcUPoZb?fS&yrR#V6Yzbo%<c8o<Ln`zWB`b3
zly9G{sje;n6TX3&S#RoVpyrcH80_jE22X`SEE*9c!B5O0F>xio6O9~VJujb&TQ^r9
zN<O79mZ~@$6%>y!hYWo!lhnvbRG88^qp=op*lnr3e7Bm6rswKyBJ?gzQ8aD)l4<g0
zW@cYPr83K3jPOfY=DaY&G6l2X8_Fd4^Psl#Xm$GK<mBW*%+viyBtk@m;e@JK;N-&)
zn5nP~I5tnWIuAJNF{A*{<9|drT#KvK*oAS6JUp;~*`UB_eVVX`eW7i`_8|=o@TcU^
zL&x71MQTGA9Y4Q!Zdhi1uWjaSpRb5Ix3{(Qk=F8j68JDs?$cs5$U!cV^IGV_=LhTd
zn`+#p!QAo-QGw|8yo!(abx+CNP&0E#9Guy%mJ$Ri5|<zeW`~KBC!G6|#0L;4YFdp-
zv0V$$miZhw;VCm+cblHBxz!jC3QdV%J|t_;6BC6|)RJ{cvK(03`CJOM-{yjF@)3o5
z=9v@EM$Xg6$5Xa6idS}4WRP`EI(5Z*U%wTv9;g(Wly3f-5~;;T9P%tjtJMpI3OUwt
zPuCWbh)lLWUTN+xn)bEh4Oq!S=ic8UDb#iT{wJhx1eZ>p7pf#i!i#9bNUCvKdJ+Cl
z$WWe~yhJ6!mV3d!toM7WqvMq<fF5?paL7vKoHKlr!%68{`A3${Ph_&v<JNDPx5(#{
z9SDiKH~!3$miS5PTzdDS!%C0!zOWgyki>yRU*u4%<Y&s9`>(~8IzmZPK<0;%EX@hM
zcfKTO!}ycj8*)T2DgZLq8#$B!pbLql*(UR-(jOK|dZKZFmYH0B-eiDA!(a9?uo-ZY
zr={<`*iO&MP37#aekAQyQ%$24%CYOPph+A?k{1z*U81&^rY6O9GX;UrCm;-2^w%m;
z4I3gyA|*h>r=FO&j8`XL*l1x%XW>-yh16|U<<zOQ<cw)Rg}^w*$hoqV<H|vD6!#}P
z;24Qd!=>^V^jecflU7nQk_>|jY6G&>B}6hbnpaas7Uvk!7ME~`p9Fo6INQCK>6Foi
zGjDPAYMpgZ0f2_9Um@fmsz^=ykyzY{rWx;>tHpN^Eri;DmnMWp<mt-FI$>*gVeQGH
z{zsU@spIZCo$BgU=G3uQ1wRFu%?SzZ!xky0E{&xU!P6yyeA5h?Ry|A4x;`c|1@ZQ`
zOtlq_SBrNipjHusvsco&(9x>NfRsNu#YM&k&^M7$VE;=fGl8zDfN8d4^{``+m6I#j
zKi&M0zUR9Vj@T@m^qv+d&=cT|ln*bj4X}+e3NG#<iERF|CIJHK8Dapt7gE3-{U{R=
z<N1+6LKq?hX@S_!yhReD`gfe9B}oax%shy&_Pp9LFbDY`VieA3TZiDrYAc}`GI5hc
zFo1hz*KTzXzdB$XdU=t~j+wxdM9kB^-63(@X*5Q!ue`w8BKg#%@zgCuh)Q_xENq!Z
z%@fa9hSnW-r29!rRV@AS34PYxfbXz|QiE$o3TfCHVz6I>kcMQf$Qxp4JxXsw#j)!;
zQZq?;sP!Z&Je+5I06Tog?%jQZ84ia4y^(e?Z*oP0u<U^MH#l3@$v{^R*IAmYxARzC
zR6)B#+h&vFL_;*4JMXBCG68AniF_azO|4EOP{uR=v>{wC5mZT|`Sjy<=|K+-*e^7=
z&d*w+tSlr;9^w6zFQVnVO&H6QvbzeW)zsv%PJsXxkX5HM;6Sq(-i5)eJUpw>_oHm_
zR^qYVsuPbz_|V%y>+kv!>9^C&+1>PUjnjE+M~CMj8Hu@^30K=cySrDpNTu8_G^(fj
zSanBByNxMKv0mlX*Zj36*6rDZ`{HYdnP$&lz1m6s+}DA=r@D)CB1Je6N#QntnPL;L
zGYFHgAvv=c8Y&G@qV+AQks7_9oMLPq&xIIPPFrS|$%kwm#ZN048V@PX?zt&iZbv9f
z7UCx!$M^e(TXBwExd*4v0<T)E4IcbFs;gGl`Egf61X{Y(IVXS-gTc)++jvrZ^1F8{
zQuEPy{ediiV?ld1m&(k~tkzj2+PHlbdMhs!plmnOkrg6l5Ow0W3R$T}Wu3<6vDdoU
z;_NPwqno*Ii_1?Rru%V8RWJR~^*BeUlB%xfybp7=UX#s5+RE8udbp93DorD7q@|IG
z?(m8cg0E&@q^P$Id_=7JrN^AlQhCV@WyEK!cQ33I_gc+)a#BO!-d`o!=rFX|#3GPa
zu|FpZqGCO-%2ATOf6tV)Kdr6J0p9~(l6{k60X)1H`kf14`Pzz+U<1iZ75+!e%l2G0
z(qn>UiHL}hAd~9&sfrOxxg1TMdbOHAn@E)i-hq&vn=DWXCm~5#Pc+a*I#Cn~W{;?v
zvnU`)GfHP9#?ru1P=cWbthVtq%8bo;n~MfVUvySP4PsAN4F8pgd`Kh7NX2QgSkK2j
zc8eZSMJo4M=zU#lmis)3(^=1Uijon>cZEgL=J<(F<VslNTsN08`H=e$XQRjl=Psba
zZNT$9iEn_9du_)8Q|CGu33C&9SS#Fjd<ZbAjJ6q4PPU;S^1|6{y|bYtl@$NbGO$1p
zZ`@zM#lS=h!lPnK3~w&<WaTIFRLBofN*KwfU@_1NmJIhfbL4k}kRI}d0!<*%)Zs!f
z>>Q5~Ra3!b5+Ar{T9(oq#anUMJ8L7o5&}+=))nrRq7|2tvR_%eJECD8?Svwn(j|gd
z(6z~Vm(xb0e;(PLX1|NaqhpaJjt_M3dvxaux!52%69s}Fkt1s9^b<w{#gXmQO=tCb
zzVN=3p3*rr&>!F#zFsVWq{V{_DYVwBbjox}o%N}*nfzKkE@IYe9;QGONuGuyTpQH8
zd{zgdtNc6Zb8)C6vDFQLt<f8No~6SO^T57$QzV-~Iq66smECjCQtktFqMM)8MVM)x
zpBqo@4Q4E|n(^GuY9<i8ya3R+F!y*M*$gJK(&X?Y5Df{XgEd+f1q8l>+Gg+>lk>~s
zEvq#%mue0-r;du=9P58x^EDB|8Ah&1%3V9OI1yHb#7Gj(3F}a@^jcC>RDJa1oYh5F
zet!NolFY&eqX0#?A-q*ch|26s(fR?yPRo2|g?#K3x}da1XJ(&mL`rc~e@@h8E%hnM
z9S=e!oBNk#RECk*Vfo=t(R>nZ7-<e!0Y8!|l`WA8e^ihj@;iO|wgvZOeIQZjVKR9A
zL>u?~I&}Mbz{~n0&Obxo2p#}>vW3t=A~w--lb+3bhvYLR_kMNsAK@GS=MVp>fb4$@
zg`LmEjK!@`C=w|&5jBqln~kRABw1viEe14$@sQYpP3@yr5gkruUZufELBWm`U{0e(
zm+DjfDOH(y8=9`88TsbfOCe{vR8@OPihyoeQkoOo=qhyBlm&v(Z*Xoj+%1X>3)FRp
zK3u$iepCI(FrKWLs2&7kC?vruObX;arT3UQUv6G8`q-v(k)?uhDJ`WdE7Hco$Y_TZ
zUqn8}Zih*XOTy{owm_6zNNj@O=x_-k?}$$NC30gTCB{Fgb3k@RR6sH_-<YoDnz)pV
zRL8p{SN0NVw;_fD55gCx5bEBcv*5d=Wb>4aMVy07rx55|zCLRw%danBv0KyqJ2Ial
zo_+L5`%YB~2js!1FX0RTxY-w8DoP}+B^OW5jhvFCNZMPFT}r)kq&{P2CfE#QQ|7c4
zl!IjidMrN+%!#CRBn4}`u~NXDO08jPLsixAG9a>D6I07S=}zm@gX#5tFA_p3HTJ$S
z?Dm?iB0w5Ik-ueS;WH5hOw<PjF`!_`P+PMHoGo-|v+tN(_7J8Hon8(z=xz6Y?jyc4
zzIQ2QQ|`T%t=6R6CvgMdf*tBR`jc@2e)h+B_7^Ut%vKUbGg8piP#D*uwQ_}ya{L5L
zZq_q1qjSxeg|&U0nuD1Igr)$34W(pl=R#)+C1opKngKDQ;ZIhUq!DJNjs>jhphp00
zwb!Dqb<EmNd1|{)MC5yay5m^gCHAz(O$4dGBr|<hR`$u2_sgXcy)j}QCq0-&W}>0;
zHHC(4=C7aBqa+_j_Cro!5;HsNAlG6@;gNCnUkfv_4e66&odGsgdfXMc0Dcr*puRAL
zD?oy}mgrHJuici9q`S)acw=1+YN0k0y=l!KNSB4|ezpWb#5{v#-_YM=N5TqfHOVF%
zPYUQDMT)*HXE<aaACM8<>?Yc=3rVquHf0|sr<O%Rh+6AFccKWCwnPs!0TQ0jR3tGj
z&Jw-hg@BB?$zn8w)|{Z2B&jn5O4_LFYLOGUyZduS#+20*si@HD!U-genC;}F;fRBb
zJq=FXdO1!aUQVem4Y8X<QzRb(1Z4sk-uJN2rgIcJOE_(<+a6-2ip*Sq5FsSRX~P(b
zGlBhvb(Mv-*MdbYe9&fFsJK0Zg}eo(qi-VNkwFV1ov@B`)_jXMnCKAAU4JU_m<LpW
zwUB@tp!yhm&ON&WykK)jqSUB#Pro$lRILMW0CH5|mIO{WqIo#Qv8xkJ==BZejsq|H
zN9a1yLgCkDPg`U$F?63XF<$QOz%fz}SUf9@M@~daDFzd~PAI%!?gHM1Y*O-_%wDoM
zo<~M*!!;0Xbzf;SE39tZ(f^E<4zhr@g$}gh#F``5(b&h!>?bQbL<(O;D(`wxbL}<E
zMR@eht-{3Y!QcG|k@O<ke)r^$`xM)TF2M%#IW$2Z5OoH*LO<>b@cvq*9xDFxNSe~;
zb7wCBT`MBZ7i!~CZ|S6eQnRrJ+sz;R3SQ_ueoYbGXkNo`hL=1G#5`sndUsz`n~BUn
z!jywVlq~`STK=f~CDx<6FPM%FK{X6bs_YT3uMCdAoKsWnH)fI(OHSN$c*En>p@H|G
zAD^Go3+}6Gq_y^qie!&Jo<|?bKzBu-&G;xeVXgv<OUal49z#W<^Bs8d5gwic;Q1Yr
zjx(AjOl`H8{Z6Z^TcnyI^S_Fln3}GQDohxBrCMrO8ErH7^aEb!wpvY?3S^Ed$O=QW
z&X!8|8&|cR?u)Am;&qM*J3-|=0HHMQ+plJs+hVyjH8tDj$1LV+F3u-nL#-Yc#GMA2
zaSnI7P<kw(FLGb*#VK+W^k>vxh0WG>W<SJ%tstrzHPHhjrI4qzGl}JAlhbgCV!q6x
zhEzw?h{3Wmdnu)t^5`S)Ud4t19o`omA8(P6Qfk_Z<oRMIJp*|x70w9B(|=FpEn+fF
z_LkVdBI3LbIEPMsDjozuOFz)Xk(6i5JWCWso)R1LcEJER4|;zJ09dU*xrYWdMdCY=
zteRNXr7jhmY%;gi%Ow?LWBa8qL4F))(omG8FF0nw*^JLb_QBoMYSndQc0k65;$}c-
zyKC+<Zd{eRPi+5^EKYkt>(u7{BDYl0=A}4EPvIV{zx1S{KP%hW1y@#tbwY0}#heX^
zs$7veVBxrvBtz(nY~R~5i{jzF77ZOuRk6@blwbQJE8>vSf&uKJYq^fd6jL9~7qIJn
zIUe)s70|TY1s3@=etx-A)$vpudc46U+YlRzh#!FV8xCfI71CPgtZcNfJC49#<31k#
zb{yWMTqh5m443h!6~AGMO{6HxOCq2@(X}XIc>u8uBZ~N<Oc0d~8KI~J*-S|1voMO^
z?*#K50t&PZ=Y}#sQfkRXe<*af5n%}R!)l3LsiANq%~hHv@Irf}x|-TH#%{yo+KNj|
zcXlMZYRe-Yo=F6cy4I9`7JeP5XeuzB?=ZwIGb3Xviq@Wx^dsnxXc_KZs@91dU9VKy
zUI+!gv*%98CBl-1ZT_$FQ}jOLV9X2HBbtp*m5%qlmQ1Uz-b%Ws`~gH51)C+a<&AU<
zW`lV#GZsf7=nn(*j;2iDjYYv0IgccfR~5l4da&<(ITAjzw=-ZXf(SK6vn3#K5y{jV
zMv$?b2RJD;CjQ+pY^pxtA+KU0x-}Xkajho9`}%%3^6AamTrxgJ&8aR^KXazNW)Rt2
zTH~bS^vo3C!j8zmfB^GKb#ieelNUxxw|Z1?cd~`jmbb&}f9`jUrEe%=q8voix#I1B
zg-uw=1Tn`00ux=jf4J<?-t8Xl-(mVwIx7&izyeitB2XAM6K9;cSBFE;d$hZ>@{t*4
z*6cWo_Fu2w^p3|SDU&BBuuGD}nz7~rgF7Fa#9g)w^)WIvHMPB^;y7I+VsIrY#O5f_
zL0U%&!Voz%k#WW=jgEDgJdU@vhOsSdJ-)U&0gf#KVG<TRfIf-3iw=wj@)oyMjaH4v
zpd2j9ln04KL#sIGp{s>1T7|9_T+Q2`TsagM3WDf$Ww9s|jm*4Y>qG@!)G0llzJJ=+
zDaSV>^MrF>Ef%&t&L;XQiWc2mp-G9e!p|jh@4jt{%{`rA_;5C5*GopnCX?-RD>TEJ
zYHNc)tHgd-fEr@lbvrZ4-3qGHk}O2mbZciYK3z2#NGuO5)Kz_!?3Q}@4^14+{k;if
z6;6LAlbO=(ao1DWB}JT{PJ@ImZymuAgAONCYl#wt!6b~|tK0B(6{mPo$zS2m;ZYgT
zu(T~8DcJ(IAzej<*lpD}*5J%|tfg);UT>;|pgpOnerZt?LA1=wO%Te{?SoV8rS-fz
zMhT=`GCEQPtA`FWynK#rL+~^T?lqGBobZAYDe60bv%4V?jE(7N0AK9ooMuw41rMu%
zqaQN?n9^+SkmEDk-+xL^BIU8wz815A?5g#Bqx8vDc8-~0uBa%)&p29y>czywT<aA>
z4`lu8-pS6efh#yjy>HZn{(Zm94Uw>+*B(32))8Z)M(%~Xu}Gj{EF2&&v^a)n2nL)*
z@F0}eB-bGNl`ZrTz^uWQ+mAnHfdCA^XJ&RRlXKVMSmlk<PImpxW>VG?06Sdf^&H2!
z*ILgOE|{52_iZ@g@@dnM!qp3Jey;GY`XVPP6uDa|Ty2Zc%XZ<pEB*C5Bemv}grA7L
z=rCHhVcSUHhw61&ENsbaa@75P?#Hy|D4S*dhg$ll3;UXyC2nO-H~5w{RtzU3IJXS9
z%{mObGzSk(Wyyq%ON~<~OO`Bg3J?_&bFZ)01ciDIpJUIuRk|_JAikL0OfFcBziPh@
z1N$2q53|C<7jE-kzU1cLPTf}GT~^{M0oBH=ow_+rXI0J~z5Vuh^$((zl^$<~Ylguz
zx<gs$e#Tx%aX(*@^xG*~+dPSEsbCDYoh`!~fcD<djSsWQeLPFwYaU#(M3H(!dLG^0
zWA?9$&c8>>x|$+p*?Q|`+v!8y)6Z)7YNpg)&Nv51%3W<xJKASChg5tG9T!uP?l(8x
zQx_G6p+I2?m<Ig8NMuTK2_;TD{YGi2G9?fGAhTTDt1%IS;s$s8SE^iS5M|~Q<*#4x
z*X={kD_Y>jQ2=vKsII)>17Qd|ABy(!g=Yh{sK!l)g><L+AB6Ms=0M<~B7M@{9rNQx
zUn?t}brqs27r2#u|AKSSL$t|mOH1t!8;K-Mv%EsbZ3pqkA2yD8o$}&*%%%I!ymdW)
z@#0iNe1*~dhYxRK<RI(p>}+c%ZVztBw4|tN`;uu1ZVnC>I+<xvW^#mj3pI$>_s{2z
z#|FS?dGw)mS*~+o(<o*Gk2yL)kqtAB6_j-wH{L8d|9B|v<dn-xYtQ5y)}5|lTT_qt
z(vKDliOHOen9p(8_8Kv?%p`4XL8Z5#d4F&nY{3?cGeZ~6^LSG1W*~SawPQ+3D*;`V
zfBm{JZ{9TP<c^TDk@9DseH;Orv-9YhKejY1zkg-LrQna6^Fcj9N0M*n2Jd7%(sURM
zX&o>gvnWfe?y?9i63{#3v9(IPK(l$pnN6ZQs@J7HRCRoUAr!211W3<P?~!KO6(2!!
zxF`HUF@@YK=>831aq$(DpuLxTj4wbZ$?PY5?5Apj)*JoncCsmN-uy+;PtbUC<=cCs
zJFMy)tCwOh*227f8~Xs2OkitUj`o~^`Cs0*D|y`xmqcMDyvFJPn%@nkQEsr%R(<Ec
zfA-G29Gu*T)0@9tc^Z$Nku2%86~<l~y^EmP^Qx709D7}67^1u#bE*#Xx$Nt;fke!+
zuc=9w-0;0?T&Md)a|>;4ZN1E1_`X}Zlkw?1MUp?7y{Ix@S~m24_VK-w_AaF}-qn<!
zD50ktT-!eWSrI^RXrp(F5iO2=IW{)_U=dk%a!hNpM7EgHQ~spv5f*M8m0H|^vMJ4B
zbSI?+=iwoH`vYGt?uDD#vkIfEi>#B5PE~;*-;bM$?%TJRd(U!c%E!{@(MM}Qci!@c
zyRKHgCN~P0&{}gNqo4MsD3;^&a;3?q=$JGbYsz+HEn^vxgf-5rwC^k|%kq2IV>HX6
z(2|(bjP<gQRWJUN%1+fbo0meb8drz5FTQ5Di7Htb`0=BBSmD_Cc-uhk{Fwb0I6YGG
zMs<Ja>l&_ERW`mt5Z2cZg*_k*IC5Z{-DP=F_Gae@f^%2p9V{B=^vGfJo5ChW7b&OJ
z0f%fZgzZ(7rzt6HoSdA0>v?Gde7^#pW4>{3UtdGCt+qOr6@-UZvnA9lh0Y0`(90<k
zKoJH3lpMEz^5NUhDII0Gk_?<YB*UU;D~16W*Q=P6f3C92yt=054obJ<jz5sU3UFn*
zf`huTQjEelHUfe>-=CdhOFzx?q|HXm@N_08YC>;-bc=rGJY!vndyURfVM-q4vR7bM
z$L9;zNEddAKeP>5S{xRii7-z()-ieh1B%+1qmKah%SLdJXSmK=KE6;AC&P12Rqa8i
zW7%0*9QbUlI(L+#)<Qys%!ui}zyEWicTb{!G^C$0)rwWCHQf)+yA_B&t4vr>P~N9c
z%U}%Xh{oRA4^GbsLRPdK5JLWscn^=|PbBTv@T<qks;je8XvTy7?2{g9<Z0Vsb>@#@
z(NvU|yTM??L(IX!;SHQ9+}4~it}!e0;WWs^NeyL2S9dpam`YToM@5AS$^=n6lo1w>
zIVYgj@#?#AV<Ff#_oz*n&<>xkyI;Sm;_nm+Jb+K4XgvMexEe<;8zth!3y(fvoU53a
z?zU%q<4FC$`MkcbB}b^dzJ7yKIdkje0rXfMHZ*+RmAd-wBEYjNK^NZyj2cF>6ypGD
zw3Gt%ldM3CA~8mz#FfnxZ&l57#+_WXHcR%8ST+8OOvotT87IFt5;;WWH4@nn5fw#N
z#X4^8yCoM_M(=uCw~NhVft!@$*rx5<mts9pdH<&JLQ}93yhIutMZoKOKxc9HbjPua
zZ|kmL2cl$OfJri~<EeIo27_YpyNbnNH*maDK4!N;EYoYv<Q33*EThm~e;OLP%DZ)|
zhuAK*mEz*!`pK}DD)0=7rlZfd`yq>osp+i(gX?NBtYM9q9`n7k(<}de6qKxgkqIFa
zF3^k}!THwtxa4Ad;b$feF}LsEzdtoN6Qi6^lS-lO8f<8gSuzjrp2bXxvVWh}ro{bm
z9&QZ0iZ|3^ZmY$R&~r1xT&%F~O5sZziL~iKcwXlp_ta3)&~V37qQu#D1q1|mCTIp+
zXh5Mp0cs%oV_@{f&atsE&-^!zYF9QjVQ^4|&s<JqYv{f#K!I*-bENMjyi5N^pgV;E
zn;y3LmJ@REwC9<b8zEg@osMCLSCf*H?PFb(-zC(U)&h7*n)ats%d4wzW5U(3bQw)E
zW+mr?R9+ELQKH$e<T6aqz%%a|-7#%d^_q@pi#Gr#@bdEhVLgYflYdC3((l50oKNy7
zk569M!D<|05N(kTYN2stZ)W4_%tirSSLS<HeCXeNR7z|<m6fqC|BR2|9vF3tSJCM5
z<v|Cz((_0iM8SI&I7UTf__ew)*;rZ%VH!{Px`w{40h7dU-_9lE8ElHbzlrhj&M`jT
zlA8-acqjmnUa?|@zQ~4W)yC)W3}M};onf^ciN*>odz@c;1a!090|MAkMsMclUzxZI
ziNbr+{p7>JDr~#Bgv20R5^lvdJd&sKnl@&zk{6YeTMWa!m1hH>_E7y%pS%*3LR9l@
zOL9_GEwvKogbZ~pgnH~muju#W$*OE!U+4{<=HzfSHZ~%aTA+8LBm=2~zLC)~<j)$p
zE>g%IHWv%yf5{W>=`n^4(UNWc-I3QWoR!D4rm3l^lUU5)HkdE{{r3X+o_M``_cvDa
z=7@FGuh;&i<-C#tEbsc<oD0qqja>mx{b~NUuQm9{-ZM@<45t(g?PP4&?`a>7<AEn9
zv%=<bJ(?N{CK55l2fWc!ECPpY-K@i65)#vqCRH^x3$JV~tp+;EOgRWAuJE%T7@JeN
zDB9|gF>W+Z_&UH?tO>Q6h%cz+!a4keF|m%VXySy-Y*nwv4OnvN!?cs)=I6%@HN31O
z*WC}-;S^?|uTOzNaRIoIExOxC{9Ek1*N#Mu9dU3@Yyn%hs3rT8mL&E$hX2S2=8$AO
zYb=x9R}15Wb{6SSCQvc&*|WzDB-w<M^Pl833YKj9^&0(W)YJ|ITmT<>&dyG({@XI-
z-n9vaOEItFHUP&D-B$0rty+=)iP`*Ehp;yYx^)2s2-y9AfDY?97&$GVpcq%%-SPSJ
zQA!@hx1^;(Cc~`4(Zat07wK*!ZwD3A8yFH3uWoo_R;*r1DQ{@F*V<~3TUeBM58H-F
zfp*I7%SJxB0V0{d(2jNodFK%-OSK(&jZZSauGXE0_x>Li^72dS>GX368mB$sE#dBd
zam_#fnvdiJ{k0_}B}Nt&3b2=xS5SZv<@K2vC!C)x&~4mQj`Fg3NgfSLR8Y%S@?aQW
zo~N|WqZ#-2*A8W&cS_`k7+?S6PagY8QmkKJ1$@8XoAH~iEI5n*<;&7@x$Zx&&l4_I
t@Q2_(zs0Qb!~omwpRfP++f~g|lE&X&-ZT5)4AIRi$|=jn9n!z?{{W_r=Y;?O

diff --git a/reference/as.mic-5.png b/reference/as.mic-5.png
deleted file mode 100644
index d6c9bcd2de2f2d14ba5eb09903f5ef200536d25e..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 51466
zcmeFZ1yq)8)HR6xT9^n5ScEi!f+(dgqCB7|-Jq0ow}g#^pfo6;beD99N-3yFcL)N~
zAt62cM*aT(n>DlMpIP(IteN$(-avVHp8LM;>pExeefBwS*Cj9S+;(Ui85!A5lGsIQ
zGO|r}WMmsO|JjVcX$yEYf&XpRl(>8m|Hs$7NP!Ffx7AEc$&!qW)|L2oop;})4jI`|
zGSbBhvUV><I_$0X%e7WaYS{Wp{=5F(1KLd#TQ=>vuG%b0bzSPZqtr!FrP58)k6FjQ
z#GNvE8FAd><#G4>UXPEnygXXEX(I#EhvU!xxu|{hA0>yp@grx|>PQY%mtwmY&&F2A
zOLpYX)Q=`e&ei3NSyO3wu3Z!UlillS`}g}h8OPpj|MLf4(R-ACzBO{+$oc2n=KWjM
z|9qRqytnYrw>M<y?biMN{%wrd#QNXg-nsg$d()p+JU{+_?u{?I)kI#d8nwYc!&RKc
zp0<4cjKacQ=OlC5*tM<{iv0PAo*3oA4d=@y<{hW(1bnROPY7<P*!ue;X@-CNr;lWM
z_)5f8xkMx?HnxJF=Fe+-#U>6jlzSiH)bjM?8ftlctFYv(fqjv>y})66fv`wtrX9au
zDC_h;aDyu3MYrd&8QYbM9I~R`b14se3XZ&4@+e-vE=F8ZvXMFVMZ`0@%Lb#ZS;vN3
z(r(^AZ2x^vmT8xIe0;pPghX9mphilb<v`{5T*dyXA2pH5if@*ts)DjxGITt`TvqI7
zhMTTEIm9EasTomQTWi&6KcN5p!?Tc6x4dRY+bC7EWbddI*bKUz2>W_=;6<dL-~Q<6
z=y;7{=MX;g2=c=Miv14D&c*Ucimxsow!es%Hken?#^Pn6=H&+uowJJT{}P&5SXh|W
zw&*C7Xx!zzXgoYlscLq2X0H44b6#T>_5;7y;%HFGNg3H-HM?&Ql{598(KFN0iBueM
zDLiNO<E8M*FS-$4t#Z$r;*}ZBvoz#b$R|`>|C+v;*KM8}2(=A6z@ZvfUtj+?y&WI#
zFy9x*K-zwQ?J-|Xs~0W5)n}e2y}{b(J;OUD>;w|zla;UNRK2H)j16~I-X-+wMl-i$
ztjz0M)$*z8MSd?{7%g{<&sBXhd(d7!@Ke7rNhyD>^LCb2h1X-QsHmtP9kyL^U2mL3
z8f8LyO<OXe@d6p<^xro@_U^|!l?w;h6ki@-SH5^<OuV-4ns9QwOl;-A&%s&=&L=_b
z{!uzr0rA(ug(waT^ptrtM3H=hd<!nWpZHcn$7mb<{-Q~-^YZjiVrseSxa$$;xC{3;
zi(ZWrmzI?DT9_G*J=1AN*S{bU$x`-vuilB=vbA%YMYZ7E54^)reY|e~r$$PN>#nNt
zIaW^2YlDM>2DMRca<kcOCUuYZ(4BT!ag4@YB<FP2h6&#O{&ODxWI8R{sJSf9$j>uK
z1n6OB^m&<A1+Wiw7TtbUjQe#`&M^tKu(a%(TkQKeZ}sErG2`}JsZ+Y2u6rLAtSssh
z)2$9m#(q?)Zp$`KoSwEyT*j-jj9R!uZ;$2qY-`KQRL(YvKX^)4Z@4kJvZ~6rYdo-N
zxZ#b{;&d6MMx1e5wtUOC5?90V&LYul+dNh7@()yz!zl${78WB!J(7yI2)oa9CVx=;
zy~=lP(A%+ojgyMZv>KESwfu4x=OCcu+jVT=bJjyqM_iU_SOzBTP8+wL<}qr%-j-w9
z)cx+hT&yJR*-%OR!=qn&(X?nr{#jUoOspikf>Alu%y?IqgL;9Dv2klAsaoKtC-&g0
zs3>~uHT(h=EYALCfBtN%VV2pq_u|xH?|LVH#5_022%E$4VU<t19xEA|G%F!4UYj=%
zmN@=qF-6RR=YaK4eGQ)R3_{J1R>M@ex|pl}K|xHeCC37*qFb{J6BSa`mGdm3<#M{l
zn;vZ4_rCF<0L_D{K6gX5Kl=&Kw)W+P4Mh|0x8JO|pRAITVp2F+e%xiT`~EK30-MpN
zeYE7RVUAOz;dyKp#gt#%+}xQ44J^a+3K~w)zSo5ERILM=YNI8R4=0dFB!{^U+Y-jB
zp^~xcF3Z*pNlK^s7dQ(i{<R)%WFIlyt2$?xTBIwO>KSDq=l&<gUf#90km7sT?J>93
zIv%^+`^s4c@glC|d#b`6hT<EiutoZ29I9x#rU&bi`|u~qgWHa(citWsG@QqO<z|K&
z=mM@?xl-TjEv(L*9u*U#ymkE3rz?E}0}7SSBM1KEg@o+Nytx&s{Zw?kJ`OWON>yt4
zR&K4&Pn|uR_rcP;LZ<)QUYsax_AbYtpLG%<BQ{-|wrSA`EX%x#EhAABzO>}Xu3o69
z;W+t_h(!o$!*B0y;4a_KjE#`g=d?H*kC++V85pYhJEPoLe%76QG<^qcx7A8&iIuXl
zvd$x!2V5~9CU&qZXYy$-l2=egVp)``@1J<(5hWFQDY~`d`$u2v3R>H^moHz+PWopT
z{(ZBzHTRDlViC*i%<W^>I9ztywJ}br_wgwIiykhD@njlFO-;>Di+10iUAC%X&yjW8
zsQ;f<x8hFE$L}K}BYdJ$!ev^OpFcm*FHqbUMSaGkUgnyhj^KD}R$~9>=doQbt7@*~
zv_91X#PQ)OcgQs9I5)e2>0!eDKdb1)v7^RphZ!G@L0fh*&y|u#JE`k4bgFVI>LWzA
zCu<a|`%ELGmY)7HlA>0inXrl=kP)zD=b<Q^%!{KuMV13!f`&Mf|GW2_?iRdcHQw2w
z9L8&`OhY#xE*W}GsVdxQR_RI`n_}A07z>F2w)B7_cHMX5wl-|oLavAB!PP)}-7(0`
zuKZ7k(%QGRQ>zq5FuCuV(ELTirj#dIryp)6r_o~<{`u(?;(>=^Ck|A4#bJ;5vHM$g
zDOZ`~@Egoe_EuELnu?3NXF2|w_?G+U?Z}?unlkn4F5L>VkC`dF?0vX3UF$Lpolm~?
za7+k~p*YKx0CL)Mvd+cA+DclUm%M1=mlx+MWNjzX->fVQ@2TRzb@!K=zt;Vn)Q4EX
zmGU=u)7yFPA$Jv7T^@Hy9taK&J~vsqZ>DtLH6myM2sGwnmmySLJ>ocVcVTvvHML2F
znJcfu<Z8(2j}AhX{a36<nxzm7(imla+6h#C`0#ZTrRqy&nV3@5IXMM29d_ZlcFTN(
zH6q@!-W{2=Bc9++YTheF4m0j~orq)=%Fg}4w=!`AjvL$3YyCk#fD<AiXG~M7g;(1h
z#^x4henff?Mfpnlw2dO}Jw@n~miED|$E@41`3DYte0@;Ln}wm{B0Ov=*;fW$SbFW<
zx3ABP@4HPwL$<MsAx+zfa7XSK2hP0jd$UYBS{+v2Z|D4hJN2vT%NP<|o~}!td`v{h
zEQAt+B3gbMS$qIJGb^hE;^Q-XYE>Wc*=?ipNa0>$|1DZ+UBUCuvj3@@W!S{g`AUps
zL}}>@|M-t@u1CC-ZTde2=P!;GXeBiDSqu)R7IXM0?i^^j72c4T`X=GQg9mXszCJ$F
z@3tKA`&ED~UeWukqL;a*H!tJQp(RTw<0qrBKM`u>BcGxgui>&Rho@NU!yu8VS+=e3
z`}a8A&mrgf{AB7=)cBY27@LR(fP0ubZGJA)p~vln)z8mo3~QrEA^f%}NZgSK@x(&|
z!fLc`Qj5hFVi6V=?svc*O_ocP*Z=nZp+oPJGen{Rz>>gS$s^KRz1u{o*ZuacL37&8
z_@2?aSa0rAr)Fl`Oox%~8}O8p@P_3Ke~=AL8%;UYzVV}fLONM=#qOPdzW*OWxE?{t
zO0O@GyGFKqe+lKUSiJuGm+wTb|KA49<XWC?w!8m)!kya4E&orW?Ek}?E0Y?ZuDcf4
zHrfb4+Dp6bj&%M|LL#v{fx_%ur5P2}?W5aGau%isW%L*0;&{*PO>dQY>BO1;BjV|B
zRh!Aa6Ow-T?GMlBs`fFOT@k-VyczLiv~lZv_<VDbdpVvNuV44s6i9^f?VzU~Zc5c~
zt2q|bH0+OURXyNg%k*|nx@nit@N)cVZ{&wE{^`AlvM0PNB7as33wOTq3*jnvU&X;l
z%3PMcNKG5BILh>u0|=KrJ*9Beru*$Wz-IBo-j`RG281P&cC92yg;a#QtSCjKoVDy%
z94=m6Sq$pox0|>TFFZ^mV0RsO>1*1}603#5SXKrGQQ&ift~W&{z_3o!HJ2+tesqgZ
zxp6DhI)I`IKux@;h<<rtIF;D7^;w1rv@T1Nz&Y{=>J538w>p4x7ph%WA`y@%Nc$HY
z-*6XgE<1uq$0?U26n+i&+oWPz6upP;QXK9MOhCrMB4cGXr+5%=+JrQ~=3TMRGSs<P
z<7fZpx|bL3%N9F35y)`qXLVCCVqj3`D(krzL}LTu5a0@D=89L<5bLDyMng@hsYv$2
z4GJ0!fRV==Yj90j2+9EX$$<RSb<T)gUgDc|eEj`&=ns<maXP&13$Vh}q!^pgR(~qm
zdz)GdPp9s?ajVN|E_7x^HpI1S+}rkt=tx&_m%H)oNXsO7Y&{NE@~`6M**5W(%c5B|
z&mK2;-D|VO6)`jh=5&k|uR7Cx+(CQp^!J7C>O;}?+Pb;{afbNaXs;On04|rtvsOQz
z<_*R?*L1J$vj_%AYX1KHd+GiPT#1L#xYfDOz@1vHjY02i3V%d+XqprQ?l!eH4$lM(
z@-VIBj$~A6dNomLJtC()BvXWV$c=>OrVIkGcm)udu5kt^hc-P(+|opNre0>xs<0E-
z$0Z;A_T2Qzc}J-><iKvdi@Vgx_$rqsN_Ite#^8xr@X`41zS;s5U85|7aNA2oYN=1v
z&?u)ms8tU_`QL6fBFogil^uZ>2>%8B;L74Sr^ZY3?3*Q<c?{~sWMZzk#TQl&)FJ2}
z%xJP;0-p7!M@k|+6qFLi8wX{xGckQ7Fe##vK+KelCHAfLXe&?8qO*xf3UGZgV%nu7
zLqxL>!P~QY+~Q9kcKC5jaQ?gR%_a@Acbf<f2@d7e+H??#!Xc1zGe4z5yY#HWTh)hI
z*HH{kBIcEGcAs=!n!Ic{|6rfwV=a0)N@Ll)du=%&FBHmifWK_TU8$DUf(kB+ZCw!o
z#iQA6n)v}wxGq~!#R;!2$so4M$jb-J<ba+VHYCVZR#y5T0d$Qk;3Bh4Iuev#>-w`C
z9Gh{N!GRR>IedGB3&>K!XBrTxEOWWkZ6EU3Ig<3h|K3w~oD?<g$d}u+Y17o=^3=Rz
z<(Dswrp3!KyM&jn1G&l}m1PwHWH&eVR(R)Brl{m_80C2jukiJ21w>_Lo_=yzP?<Or
zjmawhzP@zf)hBTABO^vmIJlx;KC-6d{!3sBHE+S$Ae)iqV<e=3SAZ6Vz_egph67(h
z4+%Nu${|GDz3KWj?n4lLJWz_m@=VhVLd!6K(3C?Ft_{Ga4q4j@KTy#*;xsLVZ#0e#
zBUQ<-|Aq5%iw&ZP*_DI?<A`V!hVSle@`*acV-N=nX6_X;LVP4iI`o{iEZ_s*Wf`8D
zOa821-ymE2)hU@5yWK8QPn;Vnn(L&l<K+lUd_Sup<;g_^TB~0ZH%Ybnv7s>!w^JsV
z_m(qMGBPj_f`UP7X8h(IR4+B0=S5i+Qatm$K?oIRc7f*)gxyZ*uMSTovLaX>Ua4O?
zTJePX7JI5{o-~*VM@Hv2GbSD$IRrK$2V0d<C|rEPtT<sW^=#n7scM0JHfjb22^_#2
zL|h|2DkCE!Q>%iUcv=7?7SA$VcO7YLPS;|fc(eK7!Gj5)J6Ugl+e5f@+!N#yW8C(g
zNO<}3JVCEa@&{wYJxDA|tC?VAPpugk852OPLxi024eH}wZQaKx<^u@Cs^&D)a4aWp
zs*=?j*jo?Jbz!pNi1lpCE!QU$zmH}o%MU04?tD_>Z$X+Utfl?C^TmJuV@<7Lrgk^%
zD8OHxnr%lkpoNmJwdWDxH?sTUj9M~8y#=No1KS7?><|%csG}f<@k-E3M9gy8%h<Qz
zOlL!FTJ^DcV;1JdQyUT$T-g=}W5aP@CgLPgjr~AqtZk?L3C&%;H#m!zEIt_rJ%6sE
zUqM@Swr9qnp}^J@Cpj97NigW&kDos`ERGka8m8o3`W(U|1Fnm$5aq%7MlrQ;%6-Ox
z(srWz!sq8_uGw~22cEMTQPj@x$I|If_LNE8u6=MW_5J*4PS^3U$g<(Y55uv?HTn0F
z)9}5-z9!X*QmV<0Ef5%Hs)}<s!h=IP^3oH(prAM?4vDwt#)ur`_w3o8$px-*y)t(S
zhaaz8*K(3=yE$$|3PjWjL0lio!Ofgq?FMZ{w`~(spaT%tR$pKL+{&+Bo*QrPq%}F1
ztEVauEbWpf)hh%JwT~Y^68glW9S8T;C6|J5`L~T`JCOGe3>YH&6Kg6hBZDkXoSZ<W
zBh1Xwa;;3tN##_=orOxKg_Dm=a=&d3weJs3P%FrmmX@xMxk@cK@peONp}l3Plb@)4
z>m?rx3yaf0=Y+z6z46S)*VnrI;H@=G>Tp$J)v)WZpu+>zBg2NO?Kxe}iTCcUCrMX_
z2})!c%S}Q3(EsSe;InO?O;sT0uHg2aeV(VjeBF7beRr1XOXF&xMI%B^=*YKz?a=&Y
zvYdKP&WuA*Yqs%o`gr7B2A={Og+zIF!P#c5#-DG~H>*I~vVJ0fR3Yk9@Gi`0w&iJ+
z{~j6rjn~F<Z~)W#Ai^az*-m}`*w=c3jO-4(-22=&6%Q(3XdCxc`tLa*&Q%_S3zUIW
z73Z6<u}LnZ0$XQqdJ5QK$CWUFvm>)ShK)OvE}smqzBPu!|Ja<Ko<3-<%SBjI&}C&l
zRv+m1!)RSyT{7<x9s|FF{5D1(EIJBo&&<!y@0ru`<l=nuOY@U4mC5=bcfK*bfyWiS
z>5P8nd8&+bbaX~)mi?c&u#vqT1VBYuGSr-%ov)0VK{X5}_PrGw#FkwuU#PTrjhc5)
z(maVa_GE6Gk=c_@yA{iq(_=T9)l{kKT|ICr^0K$rAdh;cp45kPc<~J^8MXByl*)i+
z-d}=<tLcnq&NNMrw45@c#i{kM69C-L(*OGMLMb1SjBW0Pb$^V3@MPSWs$mM@OD4h#
z=qHeA6^iGhCy6YXQf%pxA*Y#REN?FTn%tw|TFZ2;jY{j2%gWCqy*34OCX0wdt{pCB
zi;oNn6g7IUo8<K!p!-OuMw)pU&W-;>b2BPYpVoVtwQ_%#5R-!AtC5!1C$yLEejLO;
z^K2U4Sx{6x@H%@OAN{c6mM0f+4zs+m<z*{{jt8GH4a-{fXH^JL6vn0tTJ@e8tgB#o
z9vZ5q&*fhpz^;;%&v-42CVd20%arb8Zifk@$_6sB3L1xr)_QFAR6LUk<JEnPSH1!b
zzE7#Htdzz%%LFq?(*d#9y?Sz=S4D5lopl?gfeKtz#}P7KiELR$cstfKH_}q)ev{BH
z!M8*Lh+RhrM~~CR-1A~h=_$<HpZ#(ag6gFK#G3a)GL}#c5u;COw;%?}EicTxHgQSb
z0fbWr3UxiYywqcEMke@P#SUXYpWxwxXDy<5#&k}{zOWE?D`r<rJ5OYGC{GD-ZQ+P{
z3@ZoPsWXxOhmb{^+w2(zp=btF4{Xmf!T!TvK1Z~nE9b&u7yat-IM%djj%IOwAe=au
zgoGekiCz06x7UkRN~nI4Bp3Tc(~Sok(7@Bj3JT1{LY1TPea6oT%^BC5)gZz9g3u3Z
zB1G|4Ii`v7$>K@g(H-yS0g>rQ`QLpc#Iw}odO)4W3dY4*XhOQ7#wJfVeR^@WPMO>!
z@oiB0*|TTCBX$)O)eXub!7-4aH9c`&U7p+K&DHs4ag5*aY`r}dm2PRDMLgu7J;V99
z@Z`R!Ou5V;aV-R^MvL6A>2*Z<mE}wC#C=y~X&`YI9D8Rd0yV*5;@uVoQlOfR(x)~+
zK=z)C$D-$@S3rcS`YiOZfzO$B-&t}lp8EMS3v71yz*$g{V<L|pwBzv>H$69fqc7+(
z_3=d3?KzWqM<Gby#?5ILh$q#kftcTDJn#-FO2=ud@MvZop#kC*6#Mt<fpin%h1s40
z+i`gyh3U^{x;_m2WQI6QJbQ!2B<A=DkMG!0#}C_@S(J{?1?rXPZEbNsH)e**A>aU^
z+CU;lh$;GVZaC?wPL5Ga1lB;QIyJXvn~t_N)0s00U=oP!$QIxPPSJNaY<ZN_n^DD4
zhf|XUy~D8Jtu`z6lT09o8a)NM^={@#D|-K#g>;YZt&N(&xy*i{{I&)?rEWe^F;|}t
zy{;Cj8|x@Y-fAXr*xP2jGZ~TgN}#F*$?aooV~U#L)d%z>r-kVn$XiKU1099JiDVWn
z5oqxC&bni!gXEI3!oRxj6XI(56Y5w9j>M7`spDFI5W)$)&aGRng-&x=)f)Dk_TwZ2
z;C0<kL9a&Ja#Sk7S)xTf4k-270o)f6`V>`lq_+@Dcy;WpaHmFhNP~#MXKB3l_K95m
zBIn=A6yR10#e1fbHI)f<i!J0dX|1V1Dk|AVHNXx!{-Kc1KAh8(>&&+A^H;zX@7=ri
zwDXePXmh#<Rt<y=J0u^BF?kAclze`JtXaVWaZi8i_1OdiTU}Z9**{xxhQB$-G(4*v
z#~gS^UT?XaYI#^=)rWrPLGFvlq>cGtHHo-#AMGcc)RH%ndf(a*RTF?)#du+(!_3&@
zjZ`IIIJO_mbHRu?Nd`DF^<4Mvuio;Tx%^d8)19b!EY6M+DL(1jVItC6uyx&d*UPm<
zBOJTA;sM|EAt9Dh%g2x2CeL9zaT6t-(hLfF5Bte)hfzYI%?QKdSVG29?jw%RUY&f~
zag*fLU%lQUjlFY=pHZhswn%-mVBp3b8|IK;{aknQ*hWt-<d+h@P)S5!y{~UakoYeK
zgPJHW=KlP`FH*jD0w=kSg<5=qJ?+&ay|}nua%(SyFv|uxg)+zOCT1<bv7&4$@<QR&
zC{Vl;<3=*rrPMFBt7doV@PJr6-~okeRUh}(ty`sz9QKYCqYZanh?lFtCX>ioZEsht
zOS>szxCrX*H^>J#qS+vYg28K)eV+E+(<qsqo<2SdLE$RE*Asfnj|_oG!}rn_+d$1r
z4F`})avGcBq)LohGnqA)?oQF3vtmk5VabxpRFsG`?Rs;`XApva@Gz5U+emv}U2C>_
zk;Ado)r~t23-I;K(CT#oK|XAMlQcSu*k2)#DKc?uCy7g~T0zZP?n6F{!{bNDx+=qC
z2#L+)Z}vNbi#*PmM;WO@xfpN%*t!E~QnZz8LJwr*pnzSP{o-g&iMnu2so~?zfC5ky
zb?Ad}7M`ORw^yf7J(WTQaW=9s53we33ENzOnd_kiN;|_#I~{emJ1_kVU-i`g@DQaW
zl{NuT*J!UJWMpr@{CH=0ipaz~gH_a~g|86t%NV?fFcq3af9%)=5YVi!>Tu!W4-3R^
z=9JnD)-o7zio2G)qSSD#88YVv069MV8pz+g_Y$dgd9Ewf&(CkK^$TD)d2eq*!NgAC
zl<G%dRDhyGPXc$d`JlL7Gjy8W4?*cVf>KKHiUS^mg!DK2TF~XRzMnsTCTAe3HiX)C
zDkW&S`PU8B1MYGRy7*F*$;jn7vq;$3WH+3;?$dBepq8kgGPEA!;b~A_fea~5Q37sy
zYp2Il|8vs>tftPnfbO3<K+ZQ!*-bhN^RiS6w|pb=w2qEWJTNLz9mN5DKbDFNXOXAs
zv)>{k4Y=vOvU=K$3-w{zcc)&NFsFzc?`LnUjZ;VsqZb`zpd#6~_19cJk`+*lWD;uj
ze(TMuPMbF4MvJ(c&g(}Pp{@vipVcwW=?;5VV-n2C(K-W#`1_25gxoD9P)no}<o<~T
za5Ej!L*HA(pGp_Nt=pB!mxQ+uJfu|rTItW~F}))&3M!R8GEzSD?gs0~FoL<Sc>!|G
zwLt#mpr@#8x~P%o$#n>MoM3g(L8D`1T?@1CyZXCFpGXD>4-h<jExL5SWcSieuNGt|
z<ZXxUyIV9JG)R(?*_B)ufmZk$pLS>ML7pOLiS##i*XU(U#b=v$9i}mNnn)unGxcrD
zvy9E6$+bTB0ySaQJ^6&PePro=McoLF!}LqKe@3*h4fj+S?eNS~LfV!dkBsmt$VCJJ
zkot6JdphcFL+yE%pVB=K3%2Gb7qa1=IIq6olS1aJ`*<Qe>HBwW(4=AW4(lco%N4WB
z)Vp4D%S8{zX8191?V);oQjsXlneS7{GKj`wAB5EG9x?)q-k3ZIh}8rne|^X<>b)hy
z)9=Gw#l>IvdOg#0?ssjuXX-nLys6k^*qBs96t(d|!_Pp9N=q*e3na@YhwyBam>gz5
zaiT)J65#GK>d@+?zwTF2uD*(1JNO<IMRt>#9oSpAgVzA|?y3VOIV!2eEBW+;5H8s3
zxcqaBr>3Tos4hJ@M8UIF0};nC&u)q-*GWW;E<Ia?>7DTVjl1}7oO$=LU~1{tL2=MZ
zp8AR)F0Fr8yc47%AEo3Ev5+2?&;~R07KU3lDlPPQaQcOYCYO0o4ny^k0a)``;wvQT
zq$t<P^=$b_<n%|oj--G~voJH0AQJgPgE)|3WL8kdO)qLDeWrGoW*=lA<WxeNMA*58
zwC$n){B4>_O}Xk8JoQ#Q^=GKgU<ax}A7bTpz9I0!uE%Xp6Mv{=Vw2(|*OB|a7t`t2
z-@85by}w_%>fJt?O%7iEa=wgLllq{+JY=V&ip)9P%f4B*-kh?j*k$#2@4^Zs4+ju)
zy2j;!a2MsOzF@LG_ztck$yg01=M15O*a+P07Z|7zbw<f7BPmnx9*eYnYB*qzznI=8
z;mSHM2*aL=wn@H=n^uFkZ_kcA)-u_0_?<7+rd(AH<bJ(MKW2lkFYf|j#DMh0AqW%f
zQyr#*r&~jxP@hpIEfJ;zqbIK-1XJ(bR(doAlB!houBi{9Gx_J|@ws87FCc=~hoLXA
zFfpZlsq3E1f<~aCeFWJ)JzyNm9yhrqkW=Waf}8;zvqjQ6NITDf?;??E48dy_5M?rL
z$2<25Ufxi7E>FY0jnVFSF2q_MgZb`@h7fo?lD3<4UAIjvtu>*5RA%Ba7_u_%vPx~S
z*sZORROEO+)uV^h*lo!i@Nq)C7usKXKx)x!Yg*qW@5AizX<KITL^Tump~Zlg)(OtF
zM<T5;@$;)t^BOT(d{K26j28Xko$!8mhJZ^Uyv8933aKfco}Q0aZ$oF%ovGY;=Ady}
zx4FO8vZ`Eb(7z}hr+?{s+uR9YT*sPP7=d^(+EuK9=kx|>OeMjAP<t8Z?TmY{yK9~1
zI!=%ra30*-FH!DFpZ>*mE%ob-Zzfe9jViIHHJ{7`YB)dJFZfPvk7m(ldk6|XQ6PRp
zumbqe6XbnQ@jsh#)RZ)0b2=RoKa75rQxa7bu6e}&m}jd>K)zO%_Q$=3XO%hY^iU%p
z_A<g9^QluZ+bKEf!Ik`igX0Uv@+BbF)&hKb80~u@w!>P&I_aLTD9TrEio7RBNPsvV
zJ9wnR9>`3F-Fj#J@OkD*)%l)%cjTgZ-47(vV=G81sG2{7LZ#`IoV2xbD*H1OR3r8+
zi~%0sp(3XR5ETV&HNdn({l}CGME453xDa(@+<p6wW76{PL{bT|7-M`-W3JbWKjlMy
z_u;P+fgH(S`A@GG%!_`1<VMNzFAB$;N>u$TGdYnRQR<Zg*-M)p{y85(zGxQJ*VjkL
zh6@ml<svWbT!t>sbv5c>kf#YAs+91VP1jDVEQLT_JZ{cMBQ7TP6=x+5PM`z9IG`QZ
zYFEFsWGwC8MMiex7M_bHDyUP7%Y>!Fjq7{QHwXgWxt-&4D!si2im&prvwv15=V{b2
zf2R?3-}Khb!;G&odmkLgfjS4;qxeSpTi~O&l&%@{M_7h(MS=xyXCu8twwV@ph>xf_
zPL|y)HrwK2zWr00+9BuSu0twk5L)2Qi6OLGNK63V^UKbOXTA_7g`ovjWw`=pcj~hi
z+NFo>(-{{x<WMvvDZT!;xE)+xL(pORD_k*FP^t~Z{8pA1;bW<0p%l1yF?X2h01PcY
z+bTSFNFIO4Z9As=TfF){epgYI12jP6ir|qA-aSRt0UT;9@e_y0+gGSbFCB3{CFo@n
zrKv?dkiL@%Qp`ZX_>=K!NEEP4!%z{mW9Sy257I5JdH`rfZP}ldy?AG1xh}yRaWCrq
zx1;W>KlbT$)k*TRe@`BI*2*4&Bz^bhQLhKx{Brkv2cK;$X1sgx=AF91%tvCdjfs}W
zb9k>+W*RRqtYgb{ox}~f7as91dvc~zkA2IRy9r03>4R)Ep?E0^fe0l&#-ZKx>+aI$
zRu8ap3&=3NOT8I2nOH?FqYp_!me`C@?}s_0$A1E=4p%g~QyoWX;jN_DMC)5ZwIVRS
z&uLI1D8WB~g4}YQp^!IPOls?ynZ~}gbNlwauTTHWi?cr4ip92^$iKHw5d`-tQg9HY
zim3Nd|K^sSpBNoapYCBzAyV*QU95`lXCU&=!KW^B1WKTuRbahn5T&S&@F6|-sPpwL
zZvbKj5>eMe7JZ4J%7Tz18T(o+wY#q>Ffd`vU0$lGI@`GIIOC@Kw-1(yOa#3|X;0_j
z%u7xVyma+fg>cfqyAr33bG%+Ug%xJ&-G)3k@|k+fwRLoq1ospmZ)vMdcvJTodz`QB
z^^xFUmYcusYq@qv4ZEE>0ZZViImD&;K$3s-G*KdhyDKD11A;w)Xr*sXWgxTaoQs*t
zzG`-ySGl?wg#@LKRo6>QHnyH=-}Ud>qr7OS<a~oQv77%IZs9<k+7?1r%%U-fb0;`%
z)tPp)`;ZVT59&;>dVl-1ykg-UO8r8Bt$If3*~-$-Ylt)Azz9;x${~n_)I9Tt*nYW&
z!dQ0HC=a<#X_XcH`TOH0b9*h8<nFD@_k0)1HeI_xHTngP&O4Diw|26OeSIa;Sb80b
zve+}uN0X;@D*e*7vZppBLex;H_Hen7qF$8WumMW<L*+s{^XBDtm(}G)*LhU;_AA*g
zO;)J5RYJo)r(GRN?B_$QlO?-^cbql(fg4Jq+Pw47er|H0G(^QJhfdhh(zsk@q$<=@
zCuiXbdE*}xeDdbM&)Q};z$O5lmW=dJMBoafv;N+v?u?o~K0faQ+TJ)7lzY*tB;>P7
zi-J}-)RebYWoK-JI>NI@sT~!f(?E!i1*1H<Le5zy%q#)K=LBr%HIb+#o<s~4WQ}A)
zUgaq^zO(X<KI!L8MZl)P0$GNf&ltBx0pw?wcKrkv3VQ{6;DvgJdsVI>j)`kPYJ=|~
z7`f6)N9WhwB|Tj)QU<fpiSkIM_(J2l3>^tWdz40QRyl$3G~RaVEq@|0ZA6X)IzCf_
zlM2I<lI_clt5nJ@P=1qFDfw+im@H^rGaP0N45z-p()Uzrr|npKOUMHg@a!R&r9PDi
z<Kx~X2){*!Y|l0K*>?L=MeU*xpq|63(@=b@W~(jVyEfQhTKW<aj~hXXjt#X5fy%v$
z$D~~mu!x;Y-Rd-@y4|a+B{;PX9K3a=S!9=>Hv1NbF$MW6(dpnm!<T<SbGbAUdZgW>
z7_q|tz&<jv^Zwe`8I_cjF8MsuHUUfz$}t50c&2U8ltP>R3GhBSpR-_uJJC^HUEM8%
zkW?#mb#+m{Lq6N1)du^g+$@r-n_?h6G|tZj<8KV%h0*rpDj%K+0hD_VQ>TiK!}O0m
z78;18qC+^#fu9g#pKz7`T6TVI+{SxK@9R-RClu1oqIB)%pl;tsk$45l<0oWx1AxLw
zhoXLnAq0^Yovj0-cnt;#UjL+`m&=2alNYA9^u|=h^a!!#!`>AzpnS?SZfj(zgOM-I
znD6$iQDQrGHS1{ZeGQN6sRdl+=WL-t=_8a#B&~w8xtDU|3SQfcD$88IexuA1Wewl3
zFcT;d21Q@WseHr3O^rbeX<q{c4BNqc3V*G)JxXU+5$`-k=yJWTS4ekSX4*N)4KBnR
z5jK`j>5pFP)f}h$Sf8j+4UxPBC*}xN<dBx<$EvDRC^hxFv!<lY*1@)Myv-CV{$ZHN
zx6c7A4uU*;GCO*I`1I*C9(ZtGe~4j{C3`bUBgvx*DXIs#I<ep_V%!{oRjrrbBG@H4
zKu<k*#zgg5FDk&gpf|dxAm{>VUGkZS5$1TgFKQ`SJMUMe;_#I&B-CH3(JVsgz@s!6
z#d1&P!t%NCE>q}sS}^^X5R2n~8vr;WTZ#{wCrAtB{3`14M}l9xpfPN_`kXfyiMZ&4
z5FrZeHQ$(11sluplwA!b>A5I;d(vChl1_-SDKu6e`bHc}QLj~C%2ROeaN_|{$=Io(
zY92zca|HXuc31!pWPgE-NtM&4_TAz3uWzoO!PPvLj<7K?o#eM2J00#g<u+Io>H16?
z_4k$I)|)!-(+5L-DRWf4JG*0M#da)jAO!WoFKkK~rG(l64sfWr%hZ!uAP~g=(^Oy8
z)o>vv_e@ZDLmZ`vfu|sQr8JhO@g(F6c#T`@N7`~yKdosR@}969aIIMcLa>x=?V!w}
zLbe-IW-2}PKLv5=0@CY(3-%*~igt!Wh5L-4_X#SB#&^qh6cgzh=OHDiRP44(CAf?H
z({A?2ZceqkyL{6H{xyE>I6rmVn(|tdI5+el{SSOS{@t{K4pwed9>PEr^Ux<s#>PVo
zQ{0p<cXL5Zduok58Vnlyu!Dn{`6I%IA}LX9@dpl<+rl-0$<n=j|1xY`AHiV9I+UwL
zn$XqJ2}Y%kiWCFW^sy>WT7KSsMfVf8O!N8z;@WaM#*Pn&XKqYIJ=$)0;|UsU9g>*X
zNnpjDDjIV6&Ma-<8(Jn6ZzF%%PeQXUa}=UyU<f8u=ErnT*`Cbm5%rv2I|yyb+^?L2
z{%OoH)u8)G)J?uGK$a<W6!7^(Xk7JNhK+27PDhofNM`fbg;}U%tcgMzBw+h`DikD*
z;Rv1C#y?lp##^>8_u1iZos{?5&YU@uQ$KpZ197@Cfo_6MgGpyOi3`Cp&D!e_Pl9Zd
zDB@1C_6<Jdzx0)+fPN`~ceiUqDV2ti7^{QYPC?Ua9Ro{e%Sg%OB5@-fKC$oe_wU}h
za`S9s(+Z^M9ZF45aIW0nyi@bsZ1AaDho1$l7k;~0_}*#-r3)bn!Jsc3!%NMrEjF?f
zz9}=m8;>7t+iSA^X^;2ywu^Pq5|ji0^`~$MhC-lBRIi$6;Ef=(5IV1qvmli!`>Y@K
zTI5X=Ml{%PcjgIkaY+%?JpPYg-#^@*tg<B)G+J<V>F2R3!Z{BUk{6W(Hs=iL@qvrk
z#VCX+)<fJobj=h1$^mOF;g<&=AF7I<p8EbHddj3d_o){5W;_{vxEDlCc0FON)joHZ
z6uKU4Tj21u`pNr=Ju@-~?^T3(HhSH?JZWkF<Lj$@6tW}65}|M?7uY0YlgMgz;3Ox*
zP;)7n?xZTo{O--Yhj@($XM0*3wHD#sCQ0KEhy(<m*7xDrDoamT;b4r7!ij(MBo=2d
z0hG2re|_JzbAwT7IeQiSL1zq6ESz>(opZT4Jl>oh2@Wl<om4v|nIYSmeURTKiKAd7
z<8fOfh(6BWO;_%%nG!%%BIFnLRT<J;g`FYUt>fN_I1ffdkY}Bg72Zcoci!Lq`ROqc
zzp${w*2nYkjx69`P^!J+)nn`80k5yYZIL#UgA%CHxE4YdC-*_M({Kr7KQdb5_+E8~
zK10ShZ9ny$+f+kI)4rpG))rPzXSiqL_8pZB7gB?pRNy$*!@VY|KTu5=LM~(FI;fdO
zyrpklr$rSz*Elj}cif(?r3@#EaXFc=%bAA@v6XjHUoLc**gS-A82$+!R|Bk}9uD)_
z#gW$@?UmFXV0R%n%R$gw4+d80fc%;e8Z`lIgG^VezI@>Yn$FdSL&3bDBL;$?E}m+6
z(CSW)J-J2J*a9(-g&B_>dq?a~A^_dIeIgWKKo^dWenbrK_*i*1K|9u-T&=-()F(Ad
z|4EF!ntNCZiCq`I3E~|Y!MLDF_yz>%I?Rsf16mno8@24U;7@Hb)cx{8pST|4y1;ND
z948{3yx_?!g-b%S>`?L+Q>DX%4M|ahP&Vt3POIu|#^Htfuz)hi4bU2Ghq*Ch)E#d^
zrn~}KZEYD2aH^~J$gf_<<I*)jS|qR&&czihJGQO=LBQx>VHfA-;dq!lF8Lf3a<nU5
zxNlm)+38V`i>h+amLrZ|GflfXWmDBVaPf8d)`q7H>Y0Axm|PYJ!`mJr^}`kK?(ped
z-(^p#Jy}MDZA<}*$k7C2L<fckv7T7<{&H&5(?18Qb4)C~t#j|zG8wjQWK%C}R<-=h
z69Y}P99At~$#Wmu9fp&2$J+CbxfcC%K(EVeR63-I&j$)kyBIeiw>5Jk9!(;?T<ll{
zv;7Q%_Eoe`5Yfc5Ztyf=*8-b7xw_C){0XIzDl1jgr+BcrPhqd}Vl^{}U~7`o1|x3k
zj)UB#pF((8zu$U*3RZ)=%gWMxbmusc52qZ3VI!MIA?`B-S0eywZKT9o5WjVZfGsZ0
zovfV2-K1*ygpl3oW@E?)#Adpm^l<?UJ+|KbDD}|E8+Wj(0mR3_>~xA?KL2*UyB^F1
znjZ|O#82pf!8p5wM6XihjDqb=ct%WPt^{k^jI|$>xqUU5yG)GxM3|lCmDNZTV!U|C
zwIZxsM4~4amk9|v3XE&`h2<AF%ZoM3$nuR*bg0Fra_@U1Y6-+T1ddn-bd^Gws`+VT
zpJM<22)-3o1O8c$x|yBp2C`@iU@gOpEF6ym!P?~KM-aS-@Pp%Ph)q9)_gia`;_IP`
zfZo&n4?oHgNynrJ7X#nr4b23X%|vyQNAK%-5YazQ%nL-r*HQ9v&x3U6dVm{R52EBG
z`IfY3T!NSnEHgJcXpx!ClGeJ!c5i{Ooz2L$Gt6wqd8698I--q)h{`}&_Jt+*+{e@~
zp&1S0a0hTbnzUWl+=^BZZO<A=DLu5?Zt$ay7{GN&cxmE34f*BYzwz8)lDu27&+1&+
zk`305_^K?q`GNblK^-oOH8p$f@Bg1_MO*tYh%^7U_qhGX8#naO-synZ@k8%qDZi&Q
zEF4G<`Sc%qCz&`oIlt^_xsOUW&OZIe;TaZWdg5<jC5K0g{v+CzfIG~+J_r%^8#6vE
zFS2wGt(P$X&xb*_r6O*Ae*P~t&6feX`z-S4NknG?7bD(71oqGbIo73LelX7!cO4mc
zJaP<b5a@zW6w#M7@U!gf@!Mtv9pYE6_|aqgw@jVVgO#?27IgTnl=ntcW@ttBMV)r8
zQY_@IB@27UC+&<VT?!F#5<47)j*K3N?Ed+gN~FO59&G3(-_rUPuLz(^XZS^AhbE<C
zvO|&j-a@WzCTGH{FGpnTUq4!YTXm$}<jg2Rx8v5f?%EptztDg9AJ680pzrVhTE`?F
z`gu{%js?WzEXR3^Wc4CtV0KxALaR#V*f?-g!hO+hVp~|U@%QE2*=AW!Z-=a&ipsJ7
zuiKX{Jwg`|;e#ofu9ZL%Qm2VPt%vx!<8F(WLP1MZG07vuR4HhY{!gDC1(!#Yo(N%q
zftlwePPQHtZ`fQX$^W){R*uFUyg!HbhdPEp)d+++q7U<%SseH|C{A#g!w@qb;%Lk3
z%OL2FZR37_BH8t0ULhMz>D}Di2&JB$`NWA6UuypR?0gv?<K9A$n4!Ge@3)>PJ$vZS
z58|jUf2JyYMWr<jh1vjSD%e2t;Q^FGEy2$9Z}%w0`<tFzljIS{2?HYhNQfFRG5FL+
zk@j_1)m=psjq#OzNrclHe$8V|9cCpv;eL3{a=O3r0F}3*55gl9#}{-NuH81L${z@x
zxK8*_>06UC^>Q-eAw<n|j!oM2&^&SaYNCTg``zk5CmFh>to@uk6HaHUw198rsdA9e
z(eqlUt@R=7uILmhEWu6i4bl1w+IgHfi8?_tBugSATNHFi<!HQdv~T`i36GNr!_AQo
zgI3BKX}kGdOKuJ~3966Onsi<*t}J#jEiAcyp>P9Jxxc(dif(K<j(>W|ygWsXiO#-X
zdv-_T>^woMhfk5sg;>PEJ9NEqiw`=`4(0@A?6XZ+7CBdjP{9C2;*p)691-rcIpVcW
zHl@&8H||DD(<FIhC27PwSlZ-`aOcgnRloC(SN=xRlZf&AB>657=1ADj)CrFYga*O}
zR5~iO@FOy9m~e6e#K~F3`6uAv6ZS}YW?^9sm=h3i4g;up@sIJ59_Db~x^=69h!uP^
z2`Jx3y>BxEee9u;+OaJ`xvM4N7=CG<*RD7biPieny^hZC-gwl4<gZnt_HS9`=!w{s
zTyPg%s$#p!s9@7n%o)O4o?;X8gc9Wc;sqNC-K9^r8O^S;{5r*iyI`r73hmyB&&$Wo
zhm^yYteAe>;2z;)zS#uJ2&=GgafC>c>^qIt`xT6rwBPme)S0BS3Vq3<ZGCb<;@?x{
zADX*owmW;j#%jy$H$AhrFnVBa@$7)6?2;p*lh$0dnT-cd#M>0F;KI#EP9mKVUo^&E
zZW~j%$`1w3!Cm;+^7QY&CcDn%<-Tzo@(hnwIpMr2`p~S6jssxa21qaouzRv1v_hqL
zq80V`SIoWKx$K;Th^kmL)Xs<O=&6YyY%3vgf6^V<$XJ}%L`-zFKI}FN05vmE3-wUs
zL+=?;F|r0;NI)U~92ik@%lkjq*sW()uPs0g(<!be(PedIlKk&M@_HPpx#MpGH{XH(
z>;2h(?%{u8Qv9D5c>h1~#;0pfKKSbe_@CNn|6dPsZ3X^6zs7f0Z;gM6jAZ(`?Cp}z
zKWMc3{ee9Zo^dn>E<8=+f6GMmojk+yp6YIjO|pJEmz;ZEdZ~y05Z&*0P)bUQYWLHd
z1w%SiEjruxT-Z!;ftHF&d#l8IpQylv<#(gJ$3mkDWI`n$&JDj1iv5ug8)hm;sU#Hd
zaQOGuc^mQ1f6RXP-}zQELhVii9}Rg~S(#{o=Tkl!FU>0XL}BF-o7?F+UsTMDcvaGM
zSYMp+?%*)Z^oYAhL+(m*;MbD7x}|(>XM%f#MsH6~k2ck%{fX&b5d)tGttyB65-*>0
zUt!xzO|3E_5MdP<b|#T|VFvaYvS%W1sgFb22%;Je%WiH~lvug9+n9@si|9<rtV*Ln
z26p>t!^?Q-VGT#bHuon_<a{;>6-OkQ70HQ0je2aeH2^lJ{iA!?nDJY!42sf@j)gtF
zy^(5{#2^r5O5ihc*%Z&jd-|Zul;VIg>o#{cH=@;wJ|0Fwh%g=&qK(~Vd_=L3<Wtor
zjS7GtYsTj1pJPBpC43+hK>LhTmD<fV>yn?bfB*it?(ZM<0;N*$v8x?-POx7$m3#K$
z#mMUYK2(5m@1GIFbv>;c^rH_wYx#(bRSZS`75)*FV7^=AMW{aGfdiKbjxHao*%76x
z<sHh?x0rE}7s=O|KHgE1*4`T=>Y|^cxm+VXo&N6^l?e_fn!0TRPqsYVaB7FhBjV;Y
zdWqYoz$&iq{0j4BO5Ra5ha&UNds;K$->BSyDPLMl$o$2Jiu>37ZB+cPZ+{<x|5}It
zS_iWKpKJozE1BC*R>4#Nd56PkvW$|jL0JveGecUHfO;kk+KF=4;nBT+@a9|DhU49z
z(e?x(LZZ-R>6bat22B*&AvH{Y_q|s6&Ftc<e}C@~vXdHF|JWJxKF_xqP0&~#QXpn^
z`1|-AFX%{l|NdV<cSG<|v=!Fg+qC^O48nSWfBAJx+ySi#Vu%ZhHxGzuGtkoU)*p0V
zGjniA0$Vr0n!`XMhSDHV`z8Jby_T{bcX9-Xet7zWk6yu5%cSs!C6o2%vaMH7Z5r0_
z^6>D`WcYK5H^L0KHk;bNf%%do4YL5G*~*R;xY{@lY@=*|7OQ4nMiJ9UsV{mWz><%~
z-P_w+lc(`!PMZh2C1U35mZd8Bv!*5mYIj#FG&+&ZG}$KRDT?~nf~;t9d09n8)k#k#
zc`aJeY86#g)p%jfm$?zb9$=Y_MLVUhe5w{ss3<Q#u;_4WlYAmULJ|_3-l`}n#vvbw
z`#^%GmVJ(z^#u%H=+1{_UhVd1R!oCJi>8(q1vNGGC^y>)M#f8P+3a9|7DgtScYY}^
zjXT*YDtjS4JzYHG?SO(GMM_Qr6Eib2k>bE+GbPfZZmcwW`6T_?!q)!=OA$xYaIPEv
z%gRrm&^Z%Zk9rlfWwus^b!2x=?oV32IMDU{z$kYD&FxW#gqekV(oF?#+9O`43aPnK
zC_U&%X+4tUZiCi6vOCNP#%~R&9>qw8CZHZhNE<|t#eI{-4|Lvs3m^K>h>(nt7Qu45
z(M;#q?xREe!i5V&&MZLVa1~@RCX|*cDU|Mi*8SPl&<|n`e+83*?3>!L=HhmkN+leN
zB(7YU7T#?1&>_+N*Dt$Ot*HUHWv4_=+i|=IlzQ9rO~QWrR8`?v(ZE^LbuFU-zZ~{Z
zQ?tg_F_Q>yVEbHRgfMCpWJfI$bcjn;cbbuNTA3dh`ugfVqvQ*!TB;k6#5k?h)YZcn
z)+a__r9Czk5+DZBW%`}Kp9g4IHy7HJf8Fr`Vu{Y(>Que!`VWVb6PV7C4-w6qj&BVu
z^Gfx?7!E#?>bEv!W&2*}|9+bWrxEXS;cj*|w#@b;gIb!JYgmfqZqd@!q%z8}6ifmE
zCwD+IiO1E)e@S73XqLE;$D;zmMGYN2IGTVx_&T2@XZ%R-<c|LkcVPRL!ibz5-#C81
z;EqAEa{D`#)9uD6B0vjPdaw5T2V@QES-JP;aDH21OrRe;vii$)tnlX-=^Q7N>#gD3
zmy_53^U~d1IPL6}CwJHjgmE|hIY{TNud}c3L`yC~!&`O!y!3o@0#59o%YNJU_|9Jh
z!RG#7-x6!|f4mMXjIC>7?7Z9!s!N#?|9E`X^{~N&v!m|6QMc+WR2VpRfKET)5c@rS
zx_guxTVem6wRL~H`jPoV)5m)WN2bq>+VG@2qgneY#dZC4C}d+Y2!}2I$^tRu?5MK*
z^5UI-=T+m(DyAkL9>c+E+S?Zk@T2RSF0ys=>=41J#T=s7(<tH)vh<I?`uv?KQTp!B
zRaG+R#Ps*~r*P}|8(ryJK6k#lNrm|;6Rri=$AlYyWH!7&IoIqJ4izz8iF8QVxeyk>
z1XMOc)X4vA99fl^Erqbaenq8<o={C1ph{VzvHn+yD(Mh9{ZMU*Kp9Paa&poEgF+h6
zLrM&W8nO8E1}|H=1-nD>aW3}ACS~_J2#rXQ@N;9W8qj&#*WdrY{<t$H)0}9R;_l`Z
zJt0kvGSHgVg%UGw!Jlz)WO3P7cG<1Yq`J%p8rH{s)5vZyTIq{eX9_81xeBt(ssH>+
z=sD}(xS)+_ArOrg;~E@?mS72O_|I2aG?qWSR0WUnN*``=G4NWLz@Ww(7|5#2ny+%A
z+_LtSz+ShnfkQ3-SD>YZ#ZndQFSDF5rF0e-!uYvrfkgX><G*|DhEBMY8;W0qhK_2y
zL0isp)h@y5r^LV|G&&|g5?YzN>_ww*bN0{MUpEduJb`jwL$LsSKdTlfErh{jL87ea
z9&Jhuhr!7vl+XNM9}Fpy*m+o>`Ohs}m~bdEfC&dR(8Fd$nDYTk7LQr?d19Cs$_PZO
zmh;c&U3y5`=$Sk3#{1}I9160;(4#_iQ$_28kB%V%gRBvnZhi;+&vf_$!sVleT`WZT
z5n~V3(&vZ~GK2#w_9$7dXK7GT35XK<EVig(N>4S>uh{r&ve$a7{p{)@-6hYjo(E5T
zH{<)W9=jiG+J4{%iuKqdKgE;y&3o3M1I7uZH!p74b-4cB{Vjw|nN)kG%P|sC+<a4;
z5ieXXY8Y%)<4(cqF8J=?w!kX6F<x{8a0IfB96d-;m#Dz`gqB|(W5ML%XtAFDAqC;}
zO|#h(vO6Che@N0bH#c8Vkm7xQ73RX1V0+fzKkT99GdqvgU1G8qW{Xj|VO}J@`Y`A&
z<mAnJM59a=B6{<=l9R;nsUN7Ff<Y!@ei9?<WRmDTgS8Xdf74JyB9CV2<2(Cq*$&l{
z(6oK%j0w#*Lmpo9o{OWMMJnj(&uB3s%=5Ej9f_zSUM@II7B_o*??gabd`AjOqCc=?
z9DCNU9aEMj*bx)(PzYZ(@AKql!s{T34#WU7=HU3D<VcAYwn~63Knm25>d=K3fyOii
z*qPYVO~GmbKxi>F1%NL;N#tJ!L#Usa+!u|1Nj@l|M*>GCKpB@x*+G^dT(?2J<mA#C
ze>~rC#(qkhBn^j=coIsM;q-%n#Y@qIi?P)O#bJ8VHNhF#APV*UL*v1e9IDq<RbN03
zuA=F`i4JQE%n5?yiGf7)IJvZU-B5?;XKQX31`7DKn4rGT(0bamQxzuH=Cntm-mxgz
z;#bQ0i}Ny#YZQQE>yuT^z}X;zcm78)_MlT3RvA@?T9lL-N={BgxF?oHCwmiFP|5V2
zGk};j1%lm?Ye(izLLWxjv=-gYAsl*UKMLUq5%WR!Bkk<&?db1Ae`*s9W+<%flU8~D
znUTO5=Ww%P#{2f}B|7lY)S3FJ!1dIrQ>e);txLU0h0^eaVsU;>bi94CG07>oNZqCQ
z{%#@W$zk9Oa}KT<EhW4r?Q!W^6$x;n0Jc093;&jh%e%jSZGaJn7DDDz`kB$TGu;dD
zW{LU0>=|?Uh?6YN`qsp7bZm+F2tg`-+Gc~D<1?L8yv+VR8#n21#Z|iVJ2pZssy)^-
z4GN2{l*Dww^jMjlC12rkp(oK@_F_vnfz@r@+~{^5sQd25;{~ke_9OC0>*~f3WrMNo
z*lXdlb8^6`C`>2dED?>eLNHrCp4Qh@Av>@4J7;xsV`+Fvlp>$cqd)sJ1angDr{Gf!
zXzRnsN`3fuLWEu3z#p+&R`|_?6^dBLn)n>1^++&K`Jx%E{OK6INlnDVkkk4Ru%rFJ
zXd;Hj>QH_KpJ`%P5tU0WQ<qEvxhvg|H%_)y<)x(?+ZC9I0W_pq_#&>4WsA-op{7nm
zM`_Cuvv5B1<HwysS`LuyKD2&K8PD}3CKmYA=bHCQ=h(x(holyba4P3RjN>4h*<g-p
z;B=ncj)J!|;Zc1ZzSdP`w{9F0L;S<S2qJ?Ge-)FUN)=yYyyZX5jk>P~F+a<H+A?Uk
z7sFA|{Uh!}*nKV3`X-;)-`0Oioj}aOBf4oZBc%ZkIc@ga_Ob%&;RBOGpW`UWb_@Ky
zJYv3;Po<L|Cfm#|jJ&S4>i=|*xMXyegutT0JlGSZjn~u>YLl@>s=6Sl7UQTyQfj`L
z5w!ytY90~MhQz|vXr$!m8?2+Nd!S&^76vg4W%L_+vuMI_;)JWJf<5XnOr)FFBu}W}
z$YFw(xVZS#mWEe|SgrZiiJcC^?CeSz7g5{r)(fXd#wDKndx?n768XQFTu$P=5<`%P
zVCk~D*k#>Qx^*?Q2wl($@g*mI&4vdCQp$%yXImRvgb@z@R2!O3dUB7yy^0BqXb~ZJ
zCwlqjyIim<8A!#;qoySZ@dAWrpm^1+Xr@txC=6k%QJC#5JP-3NJ0blAQI(aJ#(`0+
z6u9jy!7<UrF?kTHS?%Vhh3$3h$u;`;`genC{I%c1+gky{5%O%`1;ijd69dNxF9j@{
zv}Y|YqTbDt9%{M@=96^2D4N++wGAP481owHh*@YT#4@9$+T#GbG;$_kHE|FGp%gx*
zhH)?NTPr}LiRx6AUd_KSvXJM8{vMS!+X>%N9ATD1D-Ft+zE{RyM;Nao`{tqdmLH$=
zv~Bkqemmcn2fHcq0xvN$&3Sp@=4hl|0sJ^y+RM-6DZm-}ekd}6n5;qI8=`#)$tDYC
zd{Ql#K}pDTk^m;P1kmGLZE~`;l6rJg@BM?V=rRX^R~O?66LLabuVHE&qiRnP<I~{s
z(iX&|KL=D7H+XGVeI~?OdjQ3)Jv;3Pi+?}cTJh@6528&Dhd2h#uQ=$cH%EKnwwdPC
zK+p8LocRIaRc4aZbE_(B`du!+?h_+Kh?zbZg7l1jCuTq$U!G^QLa<U)1iH{jMT?8Z
zTC4LbyBf0wWEu?JLIWCc3y6+>&!1CIr1ZE?D?Q6bUE59XZ2@`-#KzY2=j#{Hzx$M)
z$a}EFF*IV%t0=Jy@Vk%`#}m0{wrd&QH4-sZ5#wP~>50h{=*YYD)*11do!Mbss+GBC
zHw^lEFsWi`hU#Lk<@r`U971D|!+6mgu_mNig!_`#YCLvU2o=K1gV!ih2GQ;402dL1
z8qIM!28Oa}q0dP;1R;+%ugyiilK>Z;i4QSFb`UOR&h$5shv8_dLrSk~zXqfBY4p8G
zH*w+&`4Hpo6kfKvV_?A}qEQNMU}8RDc0F5V=3G$X)zsPn1gQao?N&pg{0is3f#NzV
zobqMcN%eEtQxHqUX@y=Lcao1{Cwr+$wSNr^a%f@uN@Mcg9~6N$RHC&F#zX=&uOT&T
z8z=(EjOZ_aNDP$1MN7i|2G7TiW@0!F?A{IN+e)jL=c&^27Gxw5v(3;>c(uy~&xjc7
zG>E8o2(HiOMbg!)4KVVS7!0Ey7G-pcJnft|YxH~SqnoZ386Lez`~L2!_TS@~1M^^L
zmfEm+$5*(#B2d4jP`UNGr9M+%h6mj=0EXm-tE)eSSLsL&-yTx3s2b`EElr3xA@%o}
z<hT$)9mfZF?_Q@1ZWL95;5N8B2Qi6()0S8;W@`;ZHrCh1$nEb<R6@jNmE={(?wrlN
zzs5#6EQty?envdzx)MHQ{>83Ub*x*haZZQs&>Io>0A@a&suuHcX}>{6mgM!Dx^h@z
z044D>QDdC}RtU)-PfB7Va1gc+r}aovWw%WMkJEw`T8FL?AAxScNO?$Ey4=eJ!w4bP
z3)A|cLQbtCYHK*`xb}yq#|Yzui>LA_sz<Mg{wvHk{fgOWSKCaPB*O%l0ku%iSRS)2
z_N8COybLdKcBuUK1|f<i$W@J~tr6|xpT3!G<Z(7)g0O(uEH{UQN_2AC8ZhUl2-BpA
zp;8e9&5DW7BsK0Rx$f-zhMrkSNFB&8BOkUKGBVW|Fs2fE4YE51>=7G|h6>)6Ct5!6
z^imO50R>s$$+am^BXkLDB7a2ik9&z<#1}TO;@bjns0MV0;nB&Xl^Z}meTEn$blCaV
zO`=B?&3~S<e<TaC>&Bwmk00TP=)-ki);Wv`jTjik*kZ&x3S$G|Uq=J{w(Z-kftn?J
zh<;_a|KNDa;CO`Wh>>_pt8V~X2`JG3i&?V`w4WyEbt$kZi~FD<A;Hsg2W$mFYJaa(
zRw8Cs%}LmF30sFWd~U>aIRAfa8Bp|*BK#DqV`}KbDPHR1)D8U0XBz?r*NubXELRcJ
z+dk{ES}q2vJA5oI1b=v4^+yf8V^9UO$jVw(+>VWDkyDH%Uk?!Z`^)e1G?(4>?c0~D
zh%u3)qqE_s`cX#u{o8k5&J-^w>zp<MORwx>8X%EiwwpgG*lmonxz@pTLh{9R5RR($
z6*ShY^Z{ZA|0c~F+28Gn+~_)3%!tdl=s75IT3cKDS6~-r4OrxGo=aD*$^LT%cQS%k
zVh0iKet5eqMbZzVo4trY>7Yo0-Pyz}Tby$FBy26b(UZA*M&%Fn6r?yrY(75Q`&&G?
z;qbN%&YP=2CokXt_|g+C)x`@9sncIYb`8Qd<oj8-4k102APJaFHl1@D19gc5{r4_g
zs#AQIKdoLY@SHkJ{n4rHyPg8BI^oXa9UN<Ot-$71zEPq@D-q#4Ab*({>eZxvn|*Ke
zpL;l;rL#a)=z~*#8l8p2h-+vB?A8T<IfmfkgaWLo8T8@LtI7V|QzJVA5xWr{qZAPO
zp{~`H9AIO{l9PTRAqi+ai^spuM*dVZ$r7@}^Nh3cR~UW9tTpmSz`ElG^1riWf)o7k
zwJq8;*S>xU$9TV^rldSk(7{n4c)VosuS&PFi}~-g)&En40og0`wnFggVra?JR!qJ5
zU)X!=sHoSsU3~1lMX^OiMR6=rQ9wk%*r)?0(jh9LG?LQTfjN{&N(e}|w2Fu@(j~3J
z&?VjTyB^%%x6T{qch<YsIe)ya<yza#F!Pxw?zryjzV3ZT7yO)l`428Y<=-EBcz9*0
zvo-SSttsK1b4<Wy0yS%WkI=`pTwF0@V`JAmFN;A4hBVq(t@l{9YLym>o>d+4mq~pU
z)l7G7K$N?9)lC!#F)T>qXzF4x@l&sHoL^AWV^z7kIn8?ePTrW6U2!WT95UhK-!L5)
z4&OLbDllg&I9B?QQwL`!2@%PaF5=$FMR^74Fz#BXQ`4R$pwrUs-n~n@+_h8g&pZ#i
zyzY^U3+xtDP|DUQsjo0ihv4`L(g+MMDtx2=`}4^oxln^uLqmlE#LB1oqM%ks(s{@^
z^tG>1%*BDe28Ty-is+1if@_|)7w_7&tKX?l0#PfH#{F2dObD}V&srNe!8_rU4)r~S
z-r5J(-q#_AtuahKX?4B>XxZY$ivv;11uQRBVVU0GF<XdE2gXm;m|C#?pMYi}+!pMT
zO;vwqy0u`9dvTA|iS#=>`ItvgpZb<79ENZryIT2m<6CY?$wro2;rL*i&bs4nygc6b
z`!wdvqP%@fJEic*{$Xwr5k+i9S+1r~)Yvqd`GL7_nUB1ng!F?VmvdKcvr0#(0}Tn6
zOp}Bfbcb44c9cmIy>fKA<#g6D&D_&Z>j?*#4M9v18CxY#00roPq60=A;)qIc=|LK*
z?mx{^Z>9NNUh3)SvH98km}8#dvMdv&B!g{%bNbM1!<{-A7JKFJ22{=Yz9$|1uDFKO
z;^zpq@gGoJa-+xIoc-UR*QUsri_{dB-7pgHd|U1RxbQOkYjtK+?DIjz#k}^Ju>ioF
zQ(|LF%%pCA{`A+7($be-n}3lQb5_v;A>#8|l574(DSU`1N^I{>=}J*x6_)KKM}Sr2
zHflmz%#CL*H?M#|^rzx4L^QAwjp@4-?z|1;xyWhXMvSL3qyC?PihV7idr(4xGL<EW
z(4-^x=o;=?;-bL5BMdxxF!En=TJ&+c-FPEZaZ|SC>{;hGCrtP41k32}Jmu?YzeC9M
zkhaFw5`Fktl}d%Mr|0~4rJDY@1=azk45+ti{el^D10DkQ6(4N^5;7nt-*$Yme&3Go
zjyq4iJg1wEP~PKOIbcXJ-y-K@xi~aOaQ9rn+eN4(Yos=WhvFwWA$o9k4R_4nH*v_i
z*9Xl>A?VnVxp%o8@w0s1(@hLR&PbBv;I@TGj2N!FhxA!%8mxFlA|HwOAle8-??j4c
zQ~RMswhJ~09)yk&P8V|gz0=A;<KzBf=5Icw0Yoe4u;@g8F))#`qVwkok$njDmN1&@
z4$_298iCRJb!O*TKfXcbxs|I7vwx`XV>(1L{~SFq&p{U*f`EYJkuWkgn&|`E-GBxZ
zw1K_3b7wvg(j#(3fJ)ZH#+XK1`<oVZoRyjmuGVzY0FIV`v`+zvCy_0~`v_QWWS!Jt
zWR2)-x~f-wSUP5DLVx{gV#(A$Kiw!62-<oC8t7+UCm#jZFA_9H0AZ&Q=59Uxy@T^<
zaBS>3Jf%E(1#TI8KYt!Tx>iU`f=vyA7J_pfGS~v9**Jlgj&9hQl<53XwDpSK+$X+0
zoU#X=lS&zRvn0z@_1bsWg9wO%=4NSh7!03P<p`I&ZNwRQPHLGysXt<Qab$2Pll0vQ
ziiL+k<{;V9l@_Tbz*8c^eDZ;_H_k&*X}^>cgnL_G2I=^+A!r1VpJ?pzkIVorNrd7m
zo=G3>ktmg=`CXb=I{NBQYeSucXXe1Jh_twyhsPVF&Wkp7HKKPF!gt8akH?LoGx`K+
zF(la-&<v^Z+g~54_sQL8tLU*>l(EWce1NH%WuFSz={15W&vgSk<*Lm}wfKy@%c>OI
zucxH`9oGI67L;;yay<dFJJ4viEY*kz^=M?I@0I_LVV{sCIlD$`(W^-%14g!26~YO9
z&vMv$R8dheu4fd(Mh32LJZNzeLRd%cHveasPo3;|Z@nYJ_D8;XWxYQKp<e$OKv5`w
z4<gkL$O}~2S_scXr?zfD>9<P?k$z4z@6Mf}pOP-EyI15V!8szCBT*Ij_G6nSnPX8x
zl5X@-5g;QCR}|498XkgRN7dkNh-kvyBFil=vUCM>TCW>}(u$v?6HjH{b_Vrp-tSgO
zLQ4rkY;jQdYSBh8YK{Y1C9Vp3bEGrcSu5neUFLneGq6L(Mo1^G7W=tZcPSuJPBv*G
z@F_VUTMN6^6dI(y-7-7j#+mUArjDwyM1uDthaW%$;g)0qX;YDZ&=68B=_sARLzAmV
z3T#i&{&r;=es4Psm&U@YnQe0JvL<TqhyK%!H#&lE{W!JXnzXLbC83OFmcpOLLfqeg
zfeJIulK_WSbd-Nh_8e%Kw(79q?HW92I~3-0%^7({1ojkMq!&3qN}yg41~~^z#o*V>
zQlA{{TNV*r7Jc{8DeAhSIFCxFL`l{owD?969aN&F4#^Q17(#VI-hkUHY}RrT`+k80
z(o^Gur@K;wqP+sY9xB3{TJ|++5FZ9yC;Uh&LTpmwmq{DDA4*(0&`-e6;8j(E*d9Z2
zJK$P^r6N9E67}XAR;>ymNC5dPsQcoxh>ZneCN=Zx8GUux^F^g;9uX_c=QYBqbs@$*
z=rEC3lRlf6yflQmBs~}irP4Ji(!mqlKerL+J+Fj>2HAU%<xz`$_=}5!PkDK46oOEI
zX}le6d#dxghJQ<zEZwkwS4&z!Gw0w?nX{-ok=_R1c2=zxOLw^^hvSho25kIvcy-?7
zeAeE*zGtqM7(pqGzvHKdGkn<gs_O6yc}~`&a7C&=HWaQbidz^YB*l6}+5&MDNy5IJ
zN}XTdDw;k1gsKO@lsCg_HPw$*@={?EoR+7dh$ggioS=488tWGq>osb$adRsd<$X2p
z{B?sU{<TAv#+BNDuDK(X%W=eb_DXz*!o3G;HiZbQMO9=wZH;4M5&&&_FiHdW>Z|?@
zuqXA*VBOcTds+Ek;UQfbrqiM7hZUDWK%RoVJr*5t2$c`FVCUvb3&HI-_%ES7(dXC>
zSvu~~ZR2L|U7cvv6twh)p_8F!L0fUL{MBgFr%8P7)8pQkk!;fi8sju;?_A7UJ_yk+
zk*KDEEZwgMihwM1qUnsD*L)tHnXxIz9uAN0$o_O&RA5_0*D(AQ4{8iR0|^!ZL_OGP
zs+nu1Z@13FktB8ZzmO;*UL4cZHJ)XJ>;Y<*73}iNR_RWR12}fdJ*b}#k%0?nKx8|>
zuB~GI9csyXpB}6rxF!T*rurs#h)ndDIB_bTW|9W)sp<P@*KQ=rWcz`-1?-#`fkYzi
zTrhzSo5CHmGF~-=t~Zix=42gk`*XzJb+`MPxs~A;PRL!$S^JmjfjryrYmPIzW9V?A
zP9LJF1$dgA`dRjQ2b8Lf-@i{J#O@KY{p<74`hM2t&}JOKlR(S~WKqyvKDuar(|r9G
zx}U}PZ8rzIR9nXeI`AuPN9_}!og(5-s61GrSm2&Mz3thdpG`9W1OCoNcOAo34KBNS
za+ybrgUTFPX*bc{4&+VSr#E)CwzgscrDaZ^RshI!Dh9`YBJaV_f_1OSZNmKtB?h$r
z`-dYbn0~SS=nE9X&I8G-Af2Ztf{Py|^E2?O?KD()mZm-F^O>Cc=CJ*-6N(`ZJwJ+7
z$x3$(in<8CN9Wu5_foB^9o#)ujTar!yQ#Ou-J$U1b)T}_^cw(Zk3r~L6&`S~Y5m3r
zF~*uDoO){{LaovpoY)b9C&D0;iWt%CKx)hAPUlf)C_F@hji&QyM%K*%#=!e|%f>uC
z`Bbj_u2VV-jeXYR>*5%?G}c>0eCu6<#d#!*!NYceWiJP`im1uZULCSAySpQohbYEx
zC$Z<{hG~RSuytFI(<9!#E8h%YcKY=Lj5Y$ZWop$b0(!z1y%`0_s6!;20j|SE%zOGn
zWkXZ2W7ggi^MG?cp@t(eS;JdK{js?#B=Fa`cmC)iPe8c`x*gEJHGhc=;v_YF@89R0
z2w?&xiLdLKnVv!jHzH+oJ>1(kjVAZYP=NmRP$;4{Oo<|GzB_0$59iGb=czVRxH7SR
z4EA)2@xfjTh2<otRGy{wvxRZb+sJQa<?i~2VUEEp!rJorZ-kZFfzY(VX}a2pM&OPO
zFJ|mlrJ**$7db+V9Kf&`Tnh1)a~aoOUQVb%y7be@0!an1>*^t3yvcl7C1^rDk3OIy
zDd|Afx6{xuT?&zR*+?n#*2izo`U`aYymLX}$UAc8?Pqk;Aa{j?sXGf9SM137+Hqdq
z_K0qS&ySnCG1|&${4M+qKxNGA*gG31j{st$Q~5R0<cXM#vco;@m2DNGUr(y!Xv@3*
zwsO<Zw4P>sIF+b4^vl<DVe>46c_#+d7J4v3L|FZ-ky4-Bsp#}xIu&m^+c^kCQEQ@k
z98S6twkA5?b*C&HlVsLcIg+Lp<g$Qjo!**~=IC-Xi0<h4+4l|3>&>X1Zl)yg*I)kG
zXw~EnP9~Eqq}2Ps_aSQJAi;twhB7;8uRxpv4ntUp=^wh`U*bGMg(RK!kpT=Lo)_sB
zzy7?1BETBXba6Df;JZCRbMkhSV`>r|c_&{z{B)godzk4esH=n`16Y82pBDvnkFFS}
z>4+kKDZ!4Pv1=hjT7m%0q;@&`55ID}Ob<606~kbulEUKR*;?X@7h7qaP1#Q2(~4xl
z9`3cfk6>;<aFMx7VxcbEx7ixtavKCEu2g<ZlfkjP@on<g(o}1}bl!4G2e84faU)2F
zD4ly%@S04T9vWwXIntCTQDZCx$t!1Z06bI=%VDxC&J}+2TxZ|UH601uM)TGmFb!~8
zx0E)gIH<a7SP=4YL@ApnlCd&zGxPwVK^WTGDeOfcnIHyPJ8wA?>6h0drKOt(V_**-
zPESlg$t`g+W@udLvd=R|We06!q;oBIhxn8etB*wtm@ViM1skP?p`vE@CCMWsK4yKw
zvvS=8qU}v)W1ucf%5bwVpNQ+uvsH)yhKXJP{w{gv4_tqN({kn?Z9bbpEcrTE3g~)e
zwfuQqO@>^)!HB!k#ZtgqYX@e6a)-okT)1#ynouv8#+pMe=k=U)X2F}kjzd(v0zFos
z4AO9J*bKN*Q&TaVKoRCt9!a+=?~*5d90QOUghpfK(6lJhA(X1!P%jH30-Krs6&3O*
zd5J_OOYeM%`=17m$9^ci&tk#ow>{~<MvwDLNb@HT(aRo~oU`|)BFwpnNn<2b{M(`V
zaRI>*P@2l16U&ezkXixH3P<VN>+@9Q_e-)4yS{R_JSE+Q`D?jz4Lh!!6SM4;N5*VT
zM*X3nvmGjB$kccc7!j%@JRe~c+)*&m<C#5?B53;s45kQs3GC+lmCOcXqUuHD2w^ES
zVK89_(k411h9QZg4~L%i^AYbU@y|%|;DJyu;vq7&@MX^%jFrHT1Xb(|2{X}#hm4mm
z>1;v_^HOxp+aleu-n%0CC=a0i#Z4>2UOajd$N7bz9%%BGrDHZz#2Q}3mnu&?Ag*|8
zadZS7kuJ-0J$Mp2><6FvBYtH?dLp_Dd8&2iC&EQm%r!KDOKIsU==u*gm3gWG%5m4S
z=-IAy?R%W>TRJLmlX>5H419L1CTi}iJA1NdJa2{S-YCQu+HI@Vk(bzQ$t<)_si;hD
zsMGNt&y(T%!rg6U!;&A~IePlkDS3EZs=>?>1gcu$oCkiBt8|K|HEW8e&L%Q;`zO4p
zS30G5>eOQZMm!nme<Rm~(KK7lorHJMLp(Ln#G2L|MzQ7Nu>2>&WYzw%92sFJ$WxE?
z`FAyJvaWxP41shm9x)<nk}%e%z)!Nh!@IAEX%XoOkPVwa1|;$h-JzUQv9In%IE*Ua
zyKA1S_Luj4hw}_@8ix|Mp!H;6!cPR*#ecJMnC;MH0X`H8V|ah+gw#KmGzQM{tma3$
zL+0iMyJ+p7OEDD#yo_TRgVVO1hFrbMe`Y9D&gt+=VFM4R)>5(^&SNB1cP?lK+=^aP
z$O&eD`&9Gc3pl#Ce5i2@1+-p%xH_dS3QiU54+r$0$Do9|E=d(6(o=8F#(O}F6ZqI<
zUyDO`TppPlbqxtGX(q*%5|#?k-KcNPf09FqMv59H`9R98Jy^8qAIqFdaAkpBi7cr6
zyl0676mCg)6BjDRTTaaVsl-9JLouGDEjM1X7vDe+=^qL!Z9L24E*2Q4D2=~<?;IEj
z4cg89GG&lpC(s(WIv45Wv_odpJ#E@;_XR>UKIt}l`~SFw^a=1ammDVwE}*Oa6&6_X
zt;dRFJrMAZhmhynYbXgE4te-(a33_R$`L9QO!4-Tt6|-D5sIgK<#cAhz}q+ko?i%4
zax-B>Bj|Op0;Dhh_CfuJE_0N{I*1DZBh3;PjTD<fk3s>A6ltckhW`O1ALS@@uHK0n
z4OygUs7DsG|AQwdz*g%0a~4R!=bhU+|DWcuo_81e>oyg&jnsx-vlQ8rC&TXO&pr~k
z#1q_W`#0Qs4QL%3pfZ72145k~7UF;Z{O~xKLamTAgi8et`_ZRfQrOtSok0_2c$XZk
z)p29!x;!Bq#DGUQJ0J$4@H%5E3S&cXNunqjQ_V{wHv)0pFsMcaKm@VfNY2x1Ldd5a
zzP3?VFzf9BKRYxwOX7TxDLEw7rjuC}q{kP;u4e#foxHIedXViPy^m{vYy(@m0E4Im
zP_*zj-|g0wgc`n4tks@r_C{1q$2{Q_Rr$VU%42JW0o8%1cOJpw6S(2Gu-FN*WL=%j
zKs`&<C}T<3D7&wx8y4YKkrD(2nJ2g_6P{2AU2n<>rjnD<W}qji1%#kXQ;6seZ@Vv@
zO1{P)kJ_9#80m&*#yO9B^}ID$J=o1zDu7~<{2UaQ`mwi+Y;_1ivdl{J?k{O>TM>jD
zwM+A2vZ2@CC!BD0b!^{zgU{AK4Ykg)Z2Orh8@&EI($J`XQ+UGIvo=iuAl`y0(7?#H
zM@^eG0GQ8F;IpyqzaaAYg+a+VH`~Y6wOJDeD8<PJ6{8s@PV$(ixJCP=e@*%Wiz8}=
ziL9PA0IaY>(-CswWJVi7-_e{qnk@w+;9nQFQV=4{Fp<$rdcuJY1ErEpJFw7%cxF_?
zyMR#8gAvo}Bg6RDUx7>r#A$c;_m9DIuT>-TJu<d+`;IG|kTijx`e)uA*7t4H%ah&v
z1q1}XPyWrMBb5dmvTy)`kXe)tulq-3PKM(JDE_EQ!YMsCUQKoff6f`blqBNEvws52
zep4#&4`=D$?AY1=RM_?1@}Msui#LSxPNBFLcMTJM)vN%gB?=Jeyy6={@uHkie!yOk
z2kXz{^16`TI+Qsuk`5UG@S!NvC=!DL)WJSk@8;(}O$d+>rXgid!X($JT1l#q2zhYR
zgDZ@{RU!T2YwSz_2$I1>dX_H>9|_N+%xz|$<smtf>9l}36_M%i#ub59&NN$Nw`T3y
zPFNbkkOJ2y9Do<2`PcmV6u=$u4+Q1{1v~JlB~k??#JOa?5!7TNL0(5oG^vD_gZC7!
zIWypiGOsH;m!$e@M|=A`H4nfEq)LC#aq1nl1C%O4%q7}1GD}}v%6&D5ax+&x_&R<c
zBVHH{0;Im_<L4)k?yEjq%6+>SnH8va?YMDDaB8v*y^z<bCVUBCCjdYEDnUdGUbOkf
zVUQY$(qJeQP!}53g<sf7NMF$ION0LE$BE2-GQk)od6sfk0jUtu<&RYZ%YPb``6}=t
zBf%7qTXv}58N|@_W?VmBBJ3gkAW&br(kG~z7$!Hd?EV^qg_QY<ubr*2d`FDhEDlaP
z{i@G$u#--M(V<XYb^}}`G^-&vkJPWP2Or&w$0-BNhbYqyLBsw6WMnfyG?vqUZ-A5u
zTD2s22LFr9i9RXph&`P#wFb(c#`I8o6!i?9gs=_5x?k5dK=TnaBIA>jf<!p2pn-JJ
zBQA4y98GW18|`f%_6QE`4X{vexnor2I9<x&OZ76du!d*qYz{-15{i?kuhHluK+#**
zrDyd(c_IAyh{?KpAj9sU5p^cnJL#TaYE)pqrdiP2j*)%5RlUjpM3$LkohKjaW(yK$
zkbV3+%tq)%_(2l~eK@MRb+TkAEAmk!4t#N0kyao@?n)?rRJDW>_KL^i_h7>Jwf_RF
z$EQBNruna^jzItt7gqLyxln>~2$hD_U`y4^*;BCTL`qoTR!bGF{)x{!*ju1~ehx#D
zozgGWMXRTlN!ipR7<6}Y(^dsfYY|0W;vdYAI0Qu}NstH-7-LTaXq`w%Q?<I-*X=o6
zmb;bXmb<SnKaGSD027Z!#~>IJS`zfl07*Dq;3?CtBMso>z4{ZR4+$hi-I6)U#aKFG
zrFbD~O4K&M1LbZERq2^SDLwZ7_xi`-LetXL-MZHa;B$hZITMJoF$S{2QF<VbB*i5l
zSqmGU2|gwxR=x;(eCGH|d?S1LNQe19p|$~a+E=fViA*vWABDSkj9oPcu<Z!Nxjo!%
z>xQE?t7kFIb2bS2`N&L*>#23*GLlnGgkQ$)3!(M~mX@D!dQY<1=ygoSKDn5m@a$cw
zvh^Bij?=af^SMeQe$0?sC-04!aAC+*!O<gewgu9t;~8i7!9oV|{<QAjEN=BR+XtMs
zj$U&5DO<lK8F&VN&$-a_GEq7&d=tzBRE)UfCsC53(TR|e#S`2Gw45HY5o#AHC1e)E
zZ+o_bSpyp5(zk^;x|ZdqMe(R)q!!r5M?OvNPmrK&nc&_4R(Ru;dEar+#pw+sdY~M2
z^Y<5|0Tkx9u0w3qBy|SD^;MwGRDy(?34(eW{-S)EI@v$moX#t{4%C<DLxaj03YB19
zh5!N}e&Wbk<?8<hN5l4ck?m7@y>$aZNwuGx?||yyiY9>>p9v|E+H9w6rv?*@y?JCY
z3n}bTL9zuubbEtpO#6I&@OVgMMM&lV2oxbVS525mn$V)s>CLHr))!rWsU9jL^kBs2
zs>lQt20BVW@-e`sArQSwNGWn^O&S?wq9VD~NCD>yH=0UM><^Nl1n7sIdtV17jexvr
zhapyib=xn?O3RrsO;K9;c7CIfORsebmMy+@&T5zPu08QfcEvA!=e)$_0N>BDm`CrO
z$J|fP*QTsEe|W`Zw-uWdkBqEcy{F<IT!5%<`_dyL4l5WQ$@@>c?id|C!Ihc3pXMsk
zQK;u%oVV@S33@_iACY&=jF}YkA9Rmd$G`#v_}AQMelm#Et`&sKLY|1ovSudmV4sNS
zG#>Hp*kkM{J7fR@3XkZT3ThSa%W$REXuF<H%X|Xe`knB<g+N;T&?A)BkmgkvFE8LZ
z_{7A1n~{;xI9ekz&n?e706B1j<ZoA8sQD-Y_&ZI6Iu(S1G>5W1@B01M&iNZAh<Ypv
zV6_i!8-ukS04d-gQ3=yDSq$&IxmMTPh)#t>O~J|-EyVNW(+5zVX$7d%X+~5$#b~w_
zbHe0#n1GDV(l?@LmWpysnoo9Wsu-anq-V~A5I@Z1$R3lH98E1A-u3Pb9Z+xDz~lyl
z$QS-oEjzt1>E$VeP9*DeP571_X2r?R>C^Gl@IWQj{)Io;{!}c&AjTNBz>P6Dvik43
z$%Hh%g}-yY7+<Lfj0|2hoA1{_nGiVv5VfiKN}$0A#0>dl`}$q{kqUp-8W!|ahHi)}
zJpNfU>jlx7jgJ}`8JPkI&49WNos8g#J7R7!k>WI&0{_)=i%mee({g$;n`M_=qw7r+
z;8SroCJntaRrXOTljM)>-)Q=NPNo7m$_jhHY^3IM&Gg^5N1uiI&tb!aLXjF&iUxs$
zx8iXW*d>Na*xS;fg-ZX*rf1iQ_y2O7)5tC8=|LVG4dWs-U9h*+krgiYpGnN?(v%~G
zFETwS5*r|!87&v?272=jvhNs_=SAk)<39Eb8;$4|Qsh04kUk*AODG5DBb4++ZB`IG
zJk__Bg?+h`I1dv1{QNGb{88N8Y}4|>Fl)S3c7LNuxO_o2YcjiytSngvJjFhsF2Jl$
z1I_h3#x6z$N??cak#UbvKnve2do~hz(Rim)cCA4dCv-oF79#vyP<ep8UP?`!@Vs*p
zvX!Lx>HJe1^E4B{^=!MxY5WD5L-v=U@tj}$MT%-h?q;d=9YZL;3ee1;vczW-M+4o`
z50bx$<^2ibRj@V!2EKhLaP(Q!Vje^_GairCX~F5DHsYc=btP*oS8$|L#7@hGGQlN5
zgbx%=@r);sAh<(K=XLSNOtVxUP|qaEg5Vj;cGgjx*SsL4!AlF2)YQDWrrS^0Aa)o;
z#dtJd1eD9y8Gu^E5DZ_q&>XajGPL%p0+w_D3_nSOs3gUwVy!PPY69yidU0a27f4&p
zu)q$s4%3ua?tKeMCq;NvR3V#SM#;`D0e2Z2WY`nh4V2ix^53Q4fPlaA!UfxBi<OjJ
zyMFiYA3pNuZ{>!?GQVBlxpTjH5ze>XMpzNMJuTg{b4D!WSC>-y<6NGl8`OJNQk)%+
zl2`9(D&RU@SiluUIy@V8kat$RVQFcpckNo3)p`j<9{0B(B%aeD?|A915|8_x5X#}L
zsrj?QPyfj$ul(IFxZ3SE&GP@`;s3+8P*CcbYb%?oenv}63r9JX49iIceqCNs;dWZI
zVLvoF<&qe)2}8Rj<Meydp4x(#bB3E`Vqy|=R2WM_p*WbN{&~Z|z+fMW#ix+$!x%bZ
zlxeOHRDCN2W@CteVm{G1eXwF4g(7v41EZvSAoq6yKH=vbIqMSt`5St8Z{1*fK~`2a
zw7j;i?gEdy$7NwzlMlACA#y)DV?36nxLS2>?n$27<t{_};3qYyHtH}|U(&SZ^=JK#
zw?>I-ZI7x%8lksWvVM-qB8;l@!H5Q{1DGv#hCwdLW8O{)RCm52YlzS|{-dJ0`YM8h
zXsh*iFDNM~J+PV#$ddGRic0vo;ehF-4U7Ay_{08~RC5}7@ytHBb~|5{&%JwJ-&(Dh
zK8L$`+#;?ig`LyGixKO`y}S0;6^Ns*KWK3+iP8QdIXPM1lR}9-y1aiR&fM?DuBe`#
zN`auJnl6@_C>LibYu*CNrQCAK9uu$WNd_Jzdw)xSmfVIz!K7g{mV$@>{EVwf@7e8p
z_wJps8?|bAqjd3<x!Ncy|Au0nK`M6bGI&3%%I>73BpTf;HIhSSSw&@`c;f1i2Jk<U
zWZONlfOZxc5gxU*wFNp1>9CaSU8?CxlktfcG$fp)4=hxY_3Wt{Gj6T7Y7mNibD(pS
zB_}hlGhNuk&d!dR2`I(k#QVCNm>e5euD9=M(J7pil<MsVI+c;>KC6w}ppShwYxzQ@
z;Q(L?*?H!pN3Z316a?&y3=FzPi_Pg3iOGuTcO1h*LbjV@EuU-@i(k2A^<}3nL1Jgn
zf<vXDn9|r+tb}=?>l`f3_w@8=^o~LRDp74`+M$bIeLBv3@`d2)@dBd;@rxCel_6PK
zc9-{1D6&O%O62@G-}(;^cv5}6b`)HoKPFxCIu&QvjQ~0GfQ?NbU_sAO8-7Twb$Isp
z4J9*od_PUcrsd9LXE$x1ZE*}p_waVMMl6?#ru+zv*%0-;kk)U-sQ=`1|Mv~cfB5MC
z^A`WDrtW{1^S@;|JKt&?E``Mm&C1HE8}yV3k&Jxv4nV&fkYk1P#{&Fg^_7*C!;`j?
zL9jSS6YG4^(!NH)Se5{47K)`5Yo0EY%8KCoI8&urQB|er$c3gCn5s1qDjBJ_7wViz
za%sPh@X>S9q3-(!y^HsTSJOOuM6@4Rb$x<Ny6fu(@v4#0=Eaov14rN29Sf1ud%fr8
zcG#kXbMH#H_}BG&$b>j*nm8%ku^N;<mG|gf6Gv2|zN%@q;76ONOp35#&d-aXIz3ew
za>DU+yYJiZa9X%`PkCcwV;-2q&;Ph#XNYQ`*S^q6hX+II?ZnD~917d)`R^M#9e9p2
z^u(m3;mI~Jn!c)9gvQbAin21g*n%4~D7&isssAW8dzb@oQ!!S6PDP&7H`*2f=7{~8
zgfK+D0;7{<kt(%Ot28zX>K5&Ps<IPi^o5z)=u-|v4-#nuODWFVn=^TdrTf1WCj8Ic
z`ER*9|No=T|8WlI&RJFp1f&Ryh#+B$&Y!pJ&~v~gQea;dqrU9}S!hYbK9vHq-3I~H
zd`ffr0Au?0*|&-7Awr$%Lw)fp#*BF(D3t_B&2}OCM&;bavmW2J*lgclIpAcN*I&;I
z$;^~sO~kNXHO-8qjQg|3{nZh|szB9y5c2@qAWt1`<wfowB~usSE*V;eTd#uvf^lTg
zCO4F2LgaaLhT2QTnji0zLs|nG4N*+56hJxvj6sQyV~z<@7LuA$^MB`Hz(urE8mypz
zhQx}IC_-N7oE5J=KjX=hCqU}X(6s?TZz|e%{pTlYK1Mme``S5M1Z$UNNWVv7*|&p6
z@+??d_BIuxq)Iv!Lj-;bMf{Gr1uGTOog4Qc@1nB)xGpY)o&qWjQ8iwEaOo}A7I4pH
z)zsAPmrG986zhVb-Vhxn&tqxVxQ0}y6Ut<G|2>PYX0D;ps+j)3F)S-favod%RAt3f
zb9w=Hx5>1$MuSx2+$EeMk&oOh&UOVH@w(8%J@HyDyn^Z2B%*y%S1`x+Q82^G;97~X
z?>a=uGC671k^G(v2X%}`$TwTrkLYU$4O{fB;}F}zG!h9e%)q4f6Rkx(2YPGtLVe{l
zHJf^BMK&kts~-H*MM*p8-jbg4;)-er#b0;!2*Pu0t&QsOuR0Unaa-TBv~S6}blt6f
z*$dW0HO>V7(WAIQ_+SsGp=yuNgl}2w3Jpmo^Aq+|^Q5{!84dsHx_e8jjeWzo4jl+F
z-n{Q%7c@=}_o)iZZ5+>h-uf)3?!|(pO9J2OB4T`pA39yst()ud^?R{nc<pwI%ic?a
zXSLtA`Xkl5dto&0&-Eh>gR{xS)AgYZ6w0p0Oz!W%6mQU5fVp&9_|+t|X<S3LQLWS0
zKurY-B<@>PQbNwQ)1Pl6{nFCX3YaNi9MRx_+<AHKy?XVkAgi*r_SG`UlAHu_d{2~q
zUT8OR@DAQTclj6j2Ve=flT-eZnYGN-pCMhtt69IMXH5Mx8to$NkJNtq)-Km+yaCIO
z!N||G8<(HA-DOpbQ3yOrs$jMzl=Frte?#jSPtIe2^t?bR6r#hfJ`$2&MLAr`&oQSD
zBZ7UXL?vE)ljbO)qtLaZlB!g@C(>SBMIXGz$m-r_YrEq>5pY<iF}F5qa_z=+<#c|r
zo+<~ng|7IwWWDj+#@=z$^qRJ`s~@ZkOiZec8{~(q%mo)yoOQHno+y;uKmK?uZ_FG6
z*mUm?9zp{Zjeu0PUX@6vDU=dV4=7jRo;{NoIZ0P{7_J16B4KBRe&2i4e9%PFPZ|8q
zR(Wwjys1!uQo>RZ<sNm2_PFmYz_@o`9}F<{LN$WmaTvUjR^UE+sfM01uPkZQZai&u
zMvUo3UX+Tuvl+C0`1d;i+8iHA$<_$zB+o&yZ8BTczat;T7_%B3PbM)<APWtmWljf$
zUHmVNf&8<M@j2cxzf;>vvo&}*SwPUz4xu1$BT07lC+!y)kb9nePu>mxB?|HXhCd)!
zi1a?RXD->WKde?~=nHsS{wB~hq0zzTW;)Mf4>Oa_?FVGkR@XFRMc0OD5gYijEkgbL
z-u<GYZ5Ru9mJSe0AaApsArALbt*2r;aMttDQcMK@71Mn_9{BZX)gay>G&xxW)dt5T
z#_q>pFN<TU-BEfAx=+6%8YFKx)qPcp0eHzzyD=-JRzE@^HSo$<p^2j_CWi6S1}bA5
zg~4dONbV4rhPwfQYS3E%^%Cq$f%(Yx4U*OL`9P#@Ij7u5jCTPRu}8=@7_j!hWeaRO
zdIb)X-v)-DSZjpzzBbBRRZWezM+9v7o~n7EX-#M2YhA@bsWg`8M^&U1Wb>0oMp0H>
zHvvqEIL!?DyHbUPg=?d|FJeka!Cqr@Fyn0+0Xxg2lNx%uC24}@=}87f@|q}xa!~uh
zY_9pgkz$6W>2n-zQp52cyenwGl_qrg;~gHQ3meI;Ppnflh*DtcKMIPDjxI9>zb4vD
zICr3?*ij@ZDr!AK?<CpXZUkzC!wC=n<*ReH8-velAQz4<#^GUw=r;$*ttyB!!Vt#U
zf7P2YmaN;e<)Qhpvxc~J?&h61{3;DsD3taT8FXx^_i)di=610L-`W58U$L}*oML&6
zB(_T(|AlLpO)LU_`1$kaL%;)V(Bw=?N}=K5yRn;kXD})zw`%ays<SN^Dpd%zJ9iQt
zkYF2EGajg>F66rU%+f)zHwBGHiV38!5X`Q4+-zO20E^*6{eWB>c_ru2B|QLv?S!j8
z<Jlz%FFp|W%)#(sr>ci-x`t<HvWlwg;6b$){Dph(-6d^xV%@Phasr<Fz?7K+3j5ZI
zHeFWc<Lz-Z({c%P2vm(Tetjl@8iCanRdn3RSUS`W%oQ~(D<$pcGw#FL9U88<U;~1|
z03qxUqu1Hl84sx8DgpT&Cwnfy-TjDv8cLxs?#qF_qLluJNBzGDa5S}RK@l{^xR|RD
zc#*i+2lL_s(>&=i<pkiHf#|2c!whXAUv4hi{EeALZpcPBRF^xqaR9_XSR~Pnbz1j|
z6B}Qk_~Gz^H7YI6SE!YW=)$~8<*H?BH%4uE0r!tNA<S>!P#VpUtsA<x-N85Ni$|+v
z{zv3)PobZGXuQRhMh9)Y6-F-7Okuj1EQPhK-4b3;#&|=YqbI5e8Ra(UYk5^s+3~Ez
zoxr}NB5=^R5sr^FRm@VS@>w5RKv8zQk*9tMSkqU?*L#xMKv(vR!AO%6Ystm~dx&U;
zd97Y36GX3Ku{Ix9GNd%GD;kI|IOIZzlp?cdCTyV6NLEGADiv-KR!Jvsll50jQ1V5e
zZ}6Kpm|?>Y@co1tz9RGW{mli0DNHPv^0gXL^+BcE9+TAR1h*z|CbmTgag;g+O^p-d
zLPkA$8zrk?YHdSXPwf6@I$0p33lTW!S#q7`5Oc<Tb-Ix)gPv8SsGa#MO`D*rJ26aA
z8=D(51qxS~mDqF@-OpQbKGrB5c(-}(8l~XqXaQ1ZNk9Qz7pN2QQjI8Hkk55co*vM0
zS5V9+TLlAiAR;nehIn!uqYPBKQ@`J08$cUHt9aA+8G+OmI%+coX0u0UnO6VWZ%Ne`
zz41~*1e{{+0k<)!E&#89|2ufq=lXGy-J(VHl($G!URNWECT2j*b?<Mo`f@^Qq7?IG
zg4Gy=K21z^G7b?bg#cwgjj{z`RD%3Y<vC5AptnFm#|Q!DTGbH@$~i?p<t4P8(<t#g
zc~I;G2m@_c<u4044WDaYeD+$WlwEdExiunucdu-u;Al+nH=}Yjk0Hxs?ye`*+w-AL
z^BkeEsCZA}1uM92eb4e3{*F{V>Dc{wvDS??I|=E9-hztMS4d;*Lx78~M9dQ^?F?9i
zs8M6ljW@pEtN{rNm*6D<F64Pau*xXl=$?@nMuDlK1vH<0(sfeu_iFtqD`=pvUx4f2
zOK?MnG+&stj_XOd^MXPSP$h70d;w#0*1xK3mA7F$jczksjQDAQ1w-}b%^PYywz%O(
zJO(<S5)yo=Y?`W{bnNOg9h-9%(`+7X)jB2z@!R_@y?3@BXJ}pwJHf@KR%X7+#TtSx
zJ839k`#Uxbj%Q8wGRQ?n=ptSz5R!+W_$A00J80;ks0`BCbaoEq(Xsb+Y;Z-hr7gIf
zqBa!vd{C0K=?L+hu<-sz5+UFC&gt9KGBVfm5_x8}r_8kP-=Y8;s~N^g(=BSPo=Hwz
zqig3Z6^)#VdDT-=qouNWwI%BobKJ5<jZ~aSAU0l=lI4yxM<LzE(TG-j+9FC_pbgGJ
zmVR_-3kx1~HWEU|d*S&Lo7@5LC+)d;6`*iPTQ3TXrGGzij-`og7*Z|xIYa0gys1Y#
z=H(QVMh-M78;QUtvU{fE{13SLPX*`I)m;mEGLYHl5Hm0e!oD|kJ!XxCie|lZQtCr1
zRa{<O7cXfUquadxfux1wmDRV)_nE{QJaZfhB9pyUuKHS%d<;87iq<wiAMO-#oEj@&
z#?mb7UPt5!HKE7Ihr|YiZAt>^r6S+9kP|0TZ<^!SU|_70XmGyn-b|Eu3}cOoxw*Mx
z|7|X9l=`FQds-OLicVV?ftv!3FpW-b6ZvM*V9aBl-YQc2$?)uqtR9L_#y(yJXW=XP
zG$JiP%DZ&!+e<~hT$LR3GQ?U)OvDGLG_qNRU|~skEr48(<d|r9>G`$iFuBUPTfg_*
z#4$sWR2Uaojrf>?`>s&WxQdLlU@bQEn`kl9%;w?ez22a69Ca#wxp!N>)Y0UpU!C?f
z0+)gbc-u556=*!xMUmbT0m)hJ^1R3ET{WkEa-@QMK8RAR-D|z2OP7kldnJ(i<$f!J
zq}t2ZVdWO|rAdMX4m-h5@-lRgJnsXECp;!bvr~2AWBj%1z~rUVO4gd5yz#_HLXN^q
zNJj=?#^dc`qNPc2<kZ2ezcSD)VfJAGhx{911cZq5ijm2aVN5%5<xSn+PTfbsW8baC
z#mJK!iQ8ydaoz@jp&430Tgk;B2|X2q<m9ZdHumU=((E3OO=(n1%Fp`;7l6(28$6DW
ziG4HYZcm1LBj!OrEga1n%`7lwYhd13OgYClx6$||d^7Z&dS@;2d`<G2i*`Nkm@u!4
zfT!VNHCiiPL2bb@+(6&R=yciec5^nz_t$_d=)bRPZ1f{zmC5unIMQd4$Wt~Ije>Jz
z{cW2C*cr1$O;CIJDjF-V-S0i*fqcJ(S94ruHt|@umm4<_dFyOYgSBW8bQ+f}lAP=&
z4q8@0R<na)#cx|zB4s(cE`i$)-pm}iR~zcsy`?rTe*WI=wNqQ2k#c0Jn|@eO1FA+m
z2p2ktPziJZf_?N9I-HAytJPh}?IQ7#JMYYWq?V^%?%9fg-6w$sph52;@h*fdV1~sE
zLA;F;nJlrkk-#`MU3^id*0(@>;K%nHKr?Lc6bT;|f-&TBA@2ez%PaZ?J|jU>O<ipQ
zS}6&Mgy0JvW5Ocp-PsXCQ_E<ZRM5pKY`4~(!JIWta4h6C_8qdCou*kJ--(f4#{@)V
ztt74|P8!d+Us#w4gy-v7r-|}Yz6XVI*{{#0yfrDuthr=QcuI=y->*#^6bXPT&Y#c$
zea{A={sgm7XChw1rBP%^s=+}c`U@;1$trXa%ag?Ht;U(xeEF#lqYGI_V_}J4roSQr
zQ1wC+KtMNE%}dxoF{Et>@r7oTT)MobrauJ!gfKNo2WN7C&<LDn+MLW_0GMdrD<DNp
zoJSk4$^<}Et$6&?LVX*jp{~)2P@18jq~VS&5+&C?#g;?dZ!Tr^v#vimv_5d2+K+Dl
zYW(!i<EsYk78C6*-=ckJ!J!U*Ow%831TcaC$J`8(OS%zJ$ptA{!%^&Z2_%KelbX3s
zZ&@TYc7zn@iO0iP!i^oT2$ggvTmjrWa+i4-{0yu1UM&?L_zuORMdQtN!=jb7*^f#@
zh6FQ*)6^R^pit!{>0pZ>?nY1fJXu@gKm*>WL^<YYv3={lO+^WauXfNdO4q$WVf(a-
zhK9z54I9?l8p;YSIc7rY?1VkC>g=Jt2)2!JcarMyZ8Zd%$qiGt#pxh09eUFC5Oaas
zl;(p-h(^bE6`ZyAXb{@mkQkU^92o}`WGAf=QSX^NDZ*^@qpG0XZ<~?XxQBK7BW|HP
zfATkO1aj)35)wpNi#quEpbzVtq+y*=N+DsYke05dvCpD%C>g7W54FTu<dNfaVzUhu
zi`cj_CP+}hoYmQ9bc|J62ff!Ck~mVuI>Un2dWo=HzLLq;czkPm3!<L$Rha3gqp0bW
z6x_BWE&03YTCVXgCl30AzJC3Bzz%l@F-=LE<*+<5#u;?8wStMDh5505R2rfp(zxBG
zIm6V9$4#_)S0Dc_zt$d`M7jygi^SRxd~VK%;cNO~KWo@`eAjr4015OLiA5Vt4})7H
z*a9iEuQ+>joW1Q*Fj20-W+`n?L~5_aS)cEX;xu>+8-gqit|uSY$V<3NS?h%k;ZIQW
zaV#2|d-$UkNbMr7MeN6&RcYN!v25!zN?ecI&Z@;K4aZ-*?<eWedjr7&J-F#&ky_z&
zM0U#3>0_E10!s5;#98tQd6%6M$(I)~{r(;;;ya)NbR6Xn5=u$8>gnsNUYnT-B;H(N
zRDCwR!pBA(>LZacd|EL{{9Tp?O?K`u(5TFKXS<OEEvMht&BHptTv<ImH1LJQKt&|x
zEzofDhcTk&i_{sqHdxj1a~j4Txo^^M*Y$Y=UQZ4SVT&@spTF4hv>lxhML1T7BKrb$
z!r?Iy`WBIpjo3Qy7Rs(j?fS}PK<1#HMa}yD52B#qNyRiub>=)v&6FJaA&*>QFL-`j
zbIQC<OB#vcPFz}9&4FXlFcoq3-~dhz6Sw`$v17+bi-V4`0xJcJvDU=jVI&{c!Jk0N
zc*qaj<!z%6Hc2_!>!^?E!`YDV%M3@72^(+*=OiQ<hLo4YTF;_eI~m@Q4$7(O(T^GF
zKkji_9ccKqni4RkZkKe2#NbHYH{z?Nl7s+~b5}`x0Az{GLFRY$*6&6XzuR4g5TMM7
z2(_dsi4V!{3SqRZVO;LoO^sos8@U*M!IyaEOx5yRT&sznhLK8D<5~^CSRu871&2i_
zGUqxP%IfQVh<+PV23a~4<RI2j#)yJAUxya43j*jz%YaZ8TSIUp3h5wJ7FK7CBvA)#
zCnFK%xM*l54N0d92pSz5=IiL97x9nXUC*ZW%6yeZ9d0s7j_Z+DrlMbpr#USpIk^=R
zvc42MjwDc3+7}vDqN_Wl1#CB4Vj3QA6cakJ@%mo^*;4}m+{L`mw)*U2L*oeG@-~dQ
z{zB-8VrO>_*8YOPSP^ZfuN&OLUdUh+ApGZ0t-?}X8b8nD$zbYp#2xYyGuPd0-~Ztd
zT3N*~ziZOo&IzZ@4D;434nQO6`Z)5iZ$DyJ5ON;OR0i>jq2LsAmwS7A4}xx#HDC=I
zL~9=pTh_Qg!kAesq>03dI*;=RtUYD~yWV)zb4C;eikDhX^FcWm*U*KZE(T+J?VsEe
zftx&r;`ZaG0k_#ZEgErLD@a&B-5Fp0bjT`Q;H*(O=WN2G_DXBXChw*<ppq4$D^I1z
zY{EB0Oq9RRV`SY3P7)c`%C<BwHUKq{Sk3uuSXFD3DzbI(VSW9wh5EL5l(n3<;1&r!
zrrvU+9X2?2YR_NC1c|bs6_Vy|LV?k?gYW-B%q3y5kqw2(^CTgpr-oJjPO0(ykj{st
zHDji1GuaV+i`I&MuD|cOY44T4$Wb7b3X-)C05%{f43cGi9Ig`PQrU_4O|}!t#7Dab
zW*s2!3lf<d^uTt*8LbCFjl|R4C_0QIEV=k#O8}JcZ1lYw;}c^N)~K9)wl|jQ(ORF#
zt^7*s8!ovYxH^1jhCW6jnGB@O>&48pMc^*FVPdCuoSQN&uAb3G(2?36=t4T9ThPB=
zBrBNd2CC~-k|=|*=Sot4g8y~z;g~hEZ+<hk4<A|of6fK_2Y&VMF|w2wBHSpitwn_a
z=$A9|v9tAp5qz6BD3-ufj}Q8@GU|<<&4izvJaX2+2$mb?$BXz+l5r5GA3DfLj*8dg
zZ2uAp+n`)J)YjZ7&7t8oF)^_b&7ze8I(IGL&&Yd1aZm=vgtV{>t(apXB@7(3;C|A$
z6ah+8JT&@mH%|G3`DgNCyns0%)T8h&GUWtIK6pAHJt;XQrH!y3V=w2#V@q4zE}Y4S
z#GeOAF0f_p7#f?+N{^9UsCamK_#Ns8FJtVPyn04Pg+M%6DYZ;Kci2=>d@VAbI6_0_
z8R2yjE-k_6+7JlG{L^!ZuySgr{7E|9pxTSLNKIQMz~rm1xF~^42%#@AG0{S-4+@jR
z0dp1C5l8|kf*GJO-C1sym@KKwlL_`^D1wlnuu>p2k7Qz08gV0uDJe>+pwdko4d*jz
z_r&l&FLy=N-Lx`bOX$YcLDo*J8E~9~8o-M9q2Buyl|Np__I#37KC^Gx#t61jezDQ)
z%hvH+LC5pslNbCa<k><0B`_yBdxYfx8vh%h2O)Cdws+_99V5URKx@zk{I2@h>>wdf
zlC0_#0uB(`88{IkadCTvg>yT(O7R+!k|N)=HbbVZjqcPK()>0Qe<kyn#t{ctCgN%k
zW0HW+N~{m}{M`D+4>zn!QZOe%^-pVvLwJ+cY-kEOjKID}CKMec=`i}+Ux7#UhxN@h
z1;j4_GBZr7RJ_Y>?b?z()0Iu9B1~5P@v(slb*cQ_p+0mf7F<i6HkT5+k*6`eVoeD+
z&vfvis5C?-J_2n(gw0*4nv=EF@o+?=Hb$}BlTh&RqC&6cl%M@TzF}hNafRqV0w!9E
zeAU*QkE%6ID7r_e97M&=U2uS4b)9PyR*%3RQ}baBUII3XEC9ixq;7u3g6r7T9W-L_
zVHd3q6eF_W5xqW9=9!iF&C;qZx{fqz>-Z5R0LCzxZSHP^_#k`ah8>%61kOCj=mS@{
za&X<VN`!nX51`+&9*2(PnUcRAo+UP6{h=GCRfrfj0uCU~(yk(i35%uKa@@*y`m3Kr
zIwLRb9i$*kBt>a`Dd(?x3_Fhgn0_1KkKakEODgi(x096O=q*>JCRJ2bRn4$2+Q4MV
zU};5Fy%2KHNuhTD0gt7!9qPI;Qr@_q-Ea{al11ZZkp2^5;osR<N|$d;Qj#!e^+vPB
zR#I0WkEpEmgpik0$6LM2tE#Fxl2d@M<M-OoWnmUNh!YwrmqXn6nKm`W$+}y`ERZip
z+1m&(XoY@BnRH1|do`j5(Rp8hKB1S$T;IHYy_FnqlDfjf?;(s6D~ZfhlhMz6FC9U`
zNl59w<mMu&Pz71vhXms%Hd)G}GwX+>)8kDI*AjP1u|3^adtQQID`@$lBa7UJ{GtYo
zW^<&53ipINWlXx$GpFk<+migh+D$_#gJnJY-FlL$ivY!l8)k#Hn45e|2};v51ut8O
zfeRfRuC#H|dpgNA0-e+lI1rRYYOc8Od(fuYRBJ~$2Z_8e$xZ2`{O%I93hch!<${nU
z5Aq523ATq5Lmp{ngScqd&fS`3`P(-M3}Uh3eS$NpR1L__#^Ix)BAapcG_+?xjZYPt
z#>%vt`Vy2&$B(o&FkT^st0~9;;hI&4F!@~+m5I$8@DVdV*w6?c&haWcVFNUP6TaAQ
zng*ve?hp={09Ug;TXN4&N8Hgg`$!jq>Y|}m^KuTO3NM|^CWjl@ot;;aopf785t(+K
zTBQCN-z>=|F>xiOJJS(H@eUG*m62ClRwlO@#D6i`IBH}g+~pkAr1oQI0|vK7)i^2-
zkyCIRR_~@yi`0-Wjyq$ess;2(M}x?riThkt=`~@KWSJms<Ss`F!e9*uvgFRl!MgQW
z`12tK0@O1=az+6IbZj0T$J_NPl5-%~leX3ZhsXW?lJ#ZG=6X;f4<1S$R@7kgo9EdQ
zio!sSEylf64j}(P^?+o9o;~Gilg1`e)(v9OSvW3C^c`78%)shcsFeTQc>U7~CY1>x
za!WByP2W+^)_1JSp+06ZVl<m<%nZ^U7QCj{WWv{u&d8XG)b9qUxBV=?opP8|4ygIz
zp?<YLhQ^yCd{J{{M83%qf|@`4K@09wmxUjhiR5l$mjnL8%S~3_UaMs;RH{fnHyZrJ
z!y1<IB6D<sNqm(TYtU)tY!;*u1qWC-+$lnDngOUV1gfvY|Gz=#N*i#Gu@6~PxdZ)g
z3^4u^zcpS#-}k91=;dcjkJL%1I%&3dP2=nH!=0U-L6ic_a0li@ob${vB$i}0USuA`
zVkZD;A(=>TkD2E~#2oucdP0tcPahtdL4v4{n{fI1KML3d5D1Q-FC<#yue6$IjvFAp
zB~)qEP;%2$t0=83$lFGtIiqP4hla&@dJBmZ&9buIW{YZS`Hy|t36&63E716EXOxLv
zT7T!1!z8<+dWkyLq9&SNl86eaB+0?(PLC55wFzsRUX;^`LuZeS=``I~V`VBVa0`@8
z9Y~4}11Jtl4T4NDEDULU(S<#e73wo%08Oxr>r(3%!Y_}wF_?E9AFb;hvf>;*LAp=4
ziz{zQp$%bDE{gSF+tV-59(#pT29T18#DsyAR>f-u#U4>Xgo;NQq-<bz>=Qt;D8{nE
z!R${p=-rC{yun~7EEx+Pvyz>>DG~JE2eBcza1v3HE(c6pccl^>hFz@X`I+iU&esY_
zqbYczZu~SA0U_vfu4tXyLNd+JL8<=t^Vk-QlM{z_BM<UKNHj>P4`mk>FURjU7wLka
zka^Kslc>m<0V3Y+#c_BV%_?6>;tb1+55GFnT|?CEXAuuCYu6812dhx>h%B$}Kp60x
zDhBN_ao^Ac&da{nKd&dy2kFxQph<og!3n7+@p#4{$FWLfDcLn?tRx2wGCZ%eFV>M#
zF9MJW?zWimw#tybFee$TnMrK@^?bX@45_BFjiXI?4XNbN=xBIU3YlrN&)y4pgMz-#
zKTs9R`r`(hHr&a0eVe2wl_YCxUyUG~Jd~fY{06{EMn-aDG9taJARySZdR-mJhIMl}
zl@0uM5LHfH#2dv(t;?Bdon2k#Fw(jNF@`wxzTcG~QaOPVxtdXu0^v&(*tU*Vbrjrc
zu6LISk$zKMS;=p;X_}^)c;2bP+ggh2fa&+6POSd>QeV$H4!B0fecpiJ0&>@<F^tO_
zC*Sn-MgL91l<C^)EDx#;;z3egVow=GRY?Bx)O6!$R&|gn0^HnsTvi&L1Z(63TOn`8
zv7sX4hdg`{lEs%`Z5<?@ir#|m73JWRzA1;yggC?Wh}uatWM`7B@!~devgs{|i3&Z`
zjBA)egE0Xo>BtsEcKVneCB;|Nc}Q^$GqBG%qJpUOS;|CDFMOzq_YrIC8S5mSq@Fmm
za_k4&10qr23Xh181&RYYOgx&7m~iujXdR$aGgtmGQZY4cO4BSRQ3`1$TEZoH2#<>}
z_#b^nigO7bBStu4+zdsW1Ua@WUBUvm3e27%1B3cyJVNy83%2AsSc|$IrtM%xc0h>D
zDbWUt3v_LaHdfIKaZmGsXhmP)C@0CWn4^gN0_&iuT*CVE2Ai(qatpX&9q<Tftqoh+
z3EJdJg_2*ms!?V*iv4C{lc?LKqR&S{hr}Z6QvE~n*c}pTqdy9*YPm((?>Kk!KeMep
z&Pa#zE9e6~pm!iiRHwjA#?&@{yC+}SJS*bNfpWeIZk~3SG0V^BH@Ys7FKPH;vp!n4
zE`#7&^TVEGtcX8U$0u`&2VoTbsN?9Il25%Ur`ZuP9R+-dlokfz=R{~`AYkx|7y>&g
zfa1psq{AJM%?ZjG2Tg}`UdaRuk*=%i&Rzo;;#7D{*RPW+10!U=pd`nW_Z?yO8#U1#
zU4q0i$ee9hhPg!Vk81ig0!WZed@^$*awBqG=4j(oV8k}uzlbSG*2~gOj0sp*DbU>L
z!Hmlitz8ilc7xNO5vA}JXKzK?;2}7-@m7s~L=<s709ci5TN;q*>KPl8m^>M96pzw3
zI}&sgtd(dxmq7?*oJ9;EsqB*8CbapdXJ)}bi4!wEf+!>s>?oIdi76zfs04mhQNJ-v
zID0C|%@hH)%o?owf_aTO?BbD(64a#MtXxi#ps||{j(be8?gIO>OoaMmea3HoKpEc$
z=}>M}O2->-MZXkO`7;Jsc&aD{vsH7(kI(kcK2*Qa&^C|N(=-z`a8Ox}Ve4do^z!ok
zO&$<Z5TcQym+_{3NT3S~`c6!-dK#QgRSa`2>Th!>5-*y!e*=%a*{+vvA^T6obDetM
z@%VgI;F8mdwQj1*)oN6dz1)v@z2G-rwU7Vf@tQ54RpYkmo4@$O^+|5zsS<g)3;QK*
zif1|1OZN4(^*fsR5B9c?e>0xkXzgE|**9o2n3`VQHtm?H7;Q0G|K-cc6%<MPG1G4?
zVG_`Dx@K_s@>cF`+c5Fs+I5!)4-WtJ*PR0*1ujcqQ~y*<aA@8A?5)u0`{}#8e^^DI
zI(c%rzY?S_j{(zrKX=f~cH#TY=Z5aq`cKZhGyO65mACgC3Z_Af>iZr})a>cw95~t1
z<^Ig;0scfUTX-YqF_m@$o^%ccFqb6d5=b%>XF7dl%v`A)%phv-pJ&z1k6{ay)p(NS
zLEOw2I?fJ5LYMsC^!Ds}39*e;V4j}90|TqOjv+_Nd~1hBM_s&ymX|j*^;y}OvA4W?
zcfh~Vb>FekF7%+kpwn;Nx-}O~D-U1PW*KT7$UENS5bV*_(3cTX-tlPwq@P2QEZ}t<
zi~`C7!^RAoJsU7Gsh~jSejdV!zxKQd2zVbc0`>Rn^=^k2{JCV|JS^3mZx_UOVWNl&
z6XJYZp{0E4x~IuNn&14OYzg38>^2rolRcuI+updlEoejZ{`1%Pz%|47*KLQ-y{<@c
zm(HD-oV-3hpo6Es-qqE03?+_ot!4q|^)h`cViz53ctQOWee4uxq;U-$=0}IsJDyT$
zpx$r=RO*-3)ww{||1W82jX@UYV>eD2eaGHO*{lbC&!2A@aJ5_cU?gJP;Wk<D;{sUl
z5|DBhP{LwjPRPo#!Sl>{Z*+d0@R!^>>J4-E%AFRFOhUW8a+D&T1*$9aoWGpt&W95D
zr;3wFU&e<IEnv&oYmu$Wx7NbS>I$T%z7!TpLy;)YCv;}B_u=ksN%Mo6Y>tWDs`lpU
zE?ALO^vJEl;^50dUCPMZiv^>@SlM~89KC6q#gduH>_(ya+ABLQxw+*XQ(6AS{nBs>
ze9T-5K!Hy-+R!a%Z*M<0Y?<LZmrKT>&bwKpzUN+n-TaJ6P0LZAbCOE7X7Hgwp`nX(
z6KZ}OeLQd@?1<Og&kYOMl`6*Sm2TVby#{$p$*54P$;zp$Ih4%IOv<`FJGi;IH|VYV
zzVsLhO{=$kLc+}UUh<$RlF1K-iieR~tN>*5L5ekX8^I<nr)aEd)Ro0?JE6VMa&-T?
zC1U`#`w`&%{F&>5AF;0qx9)4~QSi34v&&sZWuDADEO!0pd`N}(EL>2z{DH%eX26m}
zqI|H~KV}JcTER`;P`UPwjujui0Frw+6$7=2fiwpQ0IbYA?Zu_sn;xy6X}g9)@Zx+*
zXq#JLAUC49A8~n`S8aRhu%dfr1ch1dojVsHmc8|oC-c&WxhX;CaQSivO3oJ+;k6HS
zG(*D{xx|l=nC!s9#`=u)l^c0b!K;@vPN*@(oG(iC2<y_QhA>Iem9rf)^8#<poEzEB
z{9<Y{KA9SG4=MfiCD2!BFHh4?CYM$zT73nF0<<2d8#k}OpS$chNN(z-8b!a}MD}mq
z1t7$Ha$A%4mTJ>47mh=z>o$_QrIdbXtJ@~^qWbw)Y$s5M!$*$HIkjU|U|`@D8a?ME
zzgV^3&Vr1`1@=#Jge|gb4Mo(`EdE5F_v&&_@q-6VF{U*p<p(3~&rgza7h)%Tcb1lx
za=%Z-sF{>)D<H1Dt176xL;dN;CoV3lQa3Xzcn5aHgXEpY$Ig5#q~Q|pFS39CI}H;k
z@tmo?0PW(1ZzCdp!OUDVKO~@;)onHTq1yx{`PCmb(CFtbT$mT7=z@p@qqX0upB0lx
z4-EX+V}M(LNQFWn0%9paHpjwEn&8;3q`rMClhkvs%x-@4X(yoyuxPOS&Z=SlyqOB;
z&)<a70VS4W*@cB~Do>UMbj$ks`sUQ$lk%U`e=Zm+ef&5(?~@0rJxY_4_u?syKwGB%
z#j;i)t!g)A;c~N&8Q8wE+89<)5B;JCPoCrg>@tN~Azaf>#6QFO8ceqfw?BLzuxV&$
z;0}!o?b&_eSb=ot6fUUV{tbT}KhDk1UwHXo#=w2AP@}PdceRrzjXrc*H!4Fqi1Hm}
zTH|?6kP%ujX96Kzt&unKE=$T`OG{zQ@^}a~&!YD%m)NEE<DV<Tz+$vt%a9FD!iRmu
zhqm?FsVSe#FaPz2u9G(;AabUmtn$FQ2{IYdMTM^)9}n8a1N!uqTUtd(D0sOWZmLhq
z9Jhud(G}WXN92`@-OqK_ExbJkA=?3pol^q_ukh3@4H^A|0v$ff_41q7t$PoZ&D`nN
z)7vYG-5c9`d)H122@9_wQ}K>nQhm~V9gy7v^`-*nRKcn7dZipFN>FY{YNiJspPcv0
zp&4QH6)|Dq%Dx_QUeC8*auz+c{>kzC=g(oB{0C#X_b2IhpfB}k66v}}b=Ol)(KCD;
zt5;uwTn6{f@87>~fv~d+WHz>9YL3y&hnqL&APCU{hv1r#(Sl1{=R1sktkKlKJ>9fv
z6MN8N_de;<`aMCcz@I;_#AQI72o}!=ql>0AF~Dd8Zum;E^>d2#*6J4f@xM8MNnji>
zMkQUtH-IACYdGVYe+S7E#o1x?6&abuNPBKW!DnvlqLmmi<}BX(?%1iz{!&hom`Hh`
zyV_!V#Y7zd>YMfT>XgG!$YXpTofz)QHPhAI0Zn<T?ztuG?12#xY|u(uo9kwAa1$g)
zH+-*(kX11i*tTsR6f)YoyH`)ok8P`vaGE&;0xXA{yZc?kE#<y|69aIxR|_PnMuAk3
z2l%(NtZXjjOHt9id~Gvj!HS9Km`FulGcz;Fw-awLIPKXw0G@|0@(Kzrqx3^iXPJS6
zljP{MPC`vTG-v0ob1c$ys^$99#|iyN$|Wf&=uPMU^QL%y{0OeH;4R&OW%4HN!?uy?
zsVga_7!r?B3h%G&KN?hem`?rl`STTsimzL@&Qx4leE04@Az8|vD$HCVIU}d&#U-r2
zdjE!{aKuP8cMK$-0l{s{2a&^>Fub_SEz4v1d3leit8b*zZc%9uTwHQcUD>&rOzV1q
zA6t3TsSi6c2YxxBNVt5(iXTd9*-+PPw>U@{$tZ$=_?~r3O0Mn4UcEyuC+(<m`-3wP
zsv5S9zH`MXA~NzX3yb|Q{c)JE5?V}H8-#HDXfii9_rb%5D|$q{PK`kVBDWdi1M|={
zJGarwYv9n&?l(TV$UZIbo$p(0be=xy?6Yz{rGUXefWkfT@OaP%Oo>^(YSnFE<sS@1
zno;6PyJ&KL4cR;d2#$`Du%e&rUP(Hnz4VBw)Q^LHk3rQ^`6h+tZ#F@RiK_u8P`bC3
zx~GOz?qJ1i#1IDcKYmr3N{voe*3|62#R8pk<A~M0x|zd{P0v#j@bvfhOa6sFt7q1I
z4_RRX!k)3Y=Y}N<;Ze3iODUoUdZr7Ju)IBOBCqIWt(cGS_185+!=bkmlcwRB&t_yH
zekrZGz`80%vu}7;^y?#^iF$*w(FIJOK4E8<e$4UIRe<o1pFU+rUGGER>_Jw;>LGNS
zLjmj<79DLhkpZTs`sx}p>4?g}`1qAL!-|={y}OFH6&V+7EEVxyIz2sohD~(s>eT_S
zUw_cq`rh>aTX;}V)2B~G)BD}s-4`!idh{vlR);UKTl?l(1M_CY<}_Z0>bm#9KEd(j
zUu#Q&{a)ww*O?nMge3Kz$lU6;`P6Y={Mw(T&%XBpPgL$)u(4)g6S%1atl=_`08eo+
ziHeR63=M4sULh&b>jsQ2V9HDY1`cqL+XOgxVz&LZ1n_c8;Bmz*uU=(+`SPWsW=^Am
zr;wWOtQO#*s}F%w(r)GD<p+WsPh7d-{y$WzmkoGsnsa!#IB)=hcggbQ-4n}!$vI+s
zo@}4IeIM|^{A$@H^2TXAz?111Z(L?vQThjXT3i=!SdJOEt?I<-(}#h})pXpXo<DuM
zaNRmSV8y~Xf0uOE-(28$hm!eAV3TC-vpv_cw%*v1DGWRdiD~oA9^kM(chp)jx5a|M
z)cgau*8d}LBwg9w{{OCRvAH*I-n1xvB?4>*ZUo+*rlPLi{XNrY=7h<Un}O4r;=oBK
z4P9N{vf|oB7c+pDTlN4qh>D1b0q+x$1DXh2<^WtQ!wf8x9&Y;)qVX-(AJ}W%0Bn#j
zd^1rwwP#)9qRTH`K3)g5gc|nGo3$<HCewksjmi>CUu%<r2k$U60IzA-@1`aUDxWhh
z@%*ylY3b--I+e6hK}(A(Y_%wGwd4%ox~UDbU6ea+=D0;hN&*kh(JnIXPXV@-oT8$n
z7^){4`Y*oW9BCoD8+hz?M^d(XpNu20XqpiH<R);$rVzLyh>-z!er-Q+tqt2w*H^&1
zKstbF5qRH0R#w)ZQ!o8M>3w0Raz$r{(;478H-^<$xfWlP_~a;~q?8UEHqkDcqRsuI
z)o7<iOjOjZ4$gN>2Y{!UUA%m`dB=_&uV<Z~0ZJ+B<k>*_j~qC_01U;WSAcENGfoyR
zBHNx6-vAy#R0tdqNH9OXxT_1eMHYBjYttQ}(wV^K@Bv^|`E#Zd&;ce+h6lV|L{eN`
zT|ouS%M!lDtGl|onr>(*Dg8fk<VeS&vZ9IG1HJ)QnI{$$2!IBqH_To%3wZS1V_+-v
z7;wOFBk(TX1oL)~YnWOrfv#y<vtk7Y=#sg^_w9Z@5e~Cb4?5^^>Yz8szb;RB+&>5j
zwsLq*nlNu(AF#mcI~WUW6NA7fE|3%qv}*P}P=!bUNv>cX6giNuVc?Jm^B%C-U?Q=L
zF%GV6k-<?0eVB=YfisdCro(h~X!wA94g(^~B&cECSNpe)>WehKoLmpu?cnL^=d#Wz
Gp$P!JVjFh=

diff --git a/reference/as.mic.html b/reference/as.mic.html
index 54088eac..83250d41 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -271,9 +271,8 @@
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>      pneumoniae - assuming body site 'Meningitis'.</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] R</span>
@@ -284,31 +283,30 @@
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>      pneumoniae - assuming body site 'Meningitis'.</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 R</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># plot MIC values, see ?plot</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="plot.html">plot</a></span><span class="op">(</span><span class="va">mic_data</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="as.mic-1.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in plot_colours_subtitle_guideline(x = x, mo = mo, ab = ab, guideline = guideline,     colours_SIR = colours_SIR, fn = as.mic, language = language,     method = "MIC", include_PKPD = include_PKPD, breakpoint_type = breakpoint_type,     ...):</span> object 'sir_history' not found</span>
 <span class="r-in"><span><span class="fu"><a href="plot.html">plot</a></span><span class="op">(</span><span class="va">mic_data</span>, mo <span class="op">=</span> <span class="st">"E. coli"</span>, ab <span class="op">=</span> <span class="st">"cipro"</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="as.mic-2.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="as.mic-1.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">mic_data</span>, mo <span class="op">=</span> <span class="st">"E. 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="as.mic-3.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="as.mic-2.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">mic_data</span>, mo <span class="op">=</span> <span class="st">"E. 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 class="co"># Dutch</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="as.mic-4.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="as.mic-3.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">mic_data</span>, mo <span class="op">=</span> <span class="st">"E. coli"</span>, ab <span class="op">=</span> <span class="st">"cipro"</span>, language <span class="op">=</span> <span class="st">"uk"</span><span class="op">)</span> <span class="co"># Ukrainian</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="as.mic-5.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="as.mic-4.png" alt="" width="700" height="433"></span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/as.mo.html b/reference/as.mo.html
index 44b17365..5e1649b6 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -375,6 +375,11 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mo'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY</span>
 <span class="r-in"><span></span></span>
+<span class="r-in"><span><span class="co"># input will get cleaned up with the input given in the `cleaning_regex` argument,</span></span></span>
+<span class="r-in"><span><span class="co"># which defaults to `mo_cleaning_regex()`:</span></span></span>
+<span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/base/cat.html" class="external-link">cat</a></span><span class="op">(</span><span class="fu">mo_cleaning_regex</span><span class="op">(</span><span class="op">)</span>, <span class="st">"\n"</span><span class="op">)</span></span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> ([^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)) </span>
+<span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">as.mo</span><span class="op">(</span><span class="st">"Streptococcus group A"</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mo'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] B_STRPT_GRPA</span>
diff --git a/reference/as.sir.html b/reference/as.sir.html
index 4dd6b22b..b0baba1d 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -273,7 +273,7 @@ All breakpoints used for interpretation are publicly available in the clinical_b
 
 
 <dt>add_intrinsic_resistance</dt>
-<dd><p><em>(only useful when using a EUCAST guideline)</em> a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate whether intrinsic antibiotic resistance must also be considered for applicable bug-drug combinations, meaning that e.g. ampicillin will always return "R" in <em>Klebsiella</em> species. Determination is based on the <a href="intrinsic_resistant.html">intrinsic_resistant</a> data set, that itself is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes/" class="external-link">'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3</a> (2021).</p></dd>
+<dd><p><em>(only useful when using a EUCAST guideline)</em> a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate whether intrinsic antibiotic resistance must also be considered for applicable bug-drug combinations, meaning that e.g. ampicillin will always return "R" in <em>Klebsiella</em> species. Determination is based on the <a href="intrinsic_resistant.html">intrinsic_resistant</a> data set, that itself is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes" class="external-link">'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3</a> (2021).</p></dd>
 
 
 <dt>reference_data</dt>
@@ -353,7 +353,7 @@ All breakpoints used for interpretation are publicly available in the clinical_b
 <h3 id="machine-readable-clinical-breakpoints">Machine-Readable Clinical Breakpoints<a class="anchor" aria-label="anchor" href="#machine-readable-clinical-breakpoints"></a></h3>
 
 
-<p>The repository of this package <a href="https://github.com/msberends/AMR/blob/main/data-raw/clinical_breakpoints.txt" class="external-link">contains a machine-readable version</a> of all guidelines. This is a CSV file consisting of 28 454 rows and 12 columns. This file is machine-readable, since it contains one row for every unique combination of the test method (MIC or disk diffusion), the antimicrobial drug and the microorganism. <strong>This allows for easy implementation of these rules in laboratory information systems (LIS)</strong>. Note that it only contains interpretation guidelines for humans - interpretation guidelines from CLSI for animals were removed.</p>
+<p>The repository of this package <a href="https://github.com/msberends/AMR/blob/main/data-raw/clinical_breakpoints.txt" class="external-link">contains a machine-readable version</a> of all guidelines. This is a CSV file consisting of 28 885 rows and 12 columns. This file is machine-readable, since it contains one row for every unique combination of the test method (MIC or disk diffusion), the antimicrobial drug and the microorganism. <strong>This allows for easy implementation of these rules in laboratory information systems (LIS)</strong>. Note that it only contains interpretation guidelines for humans - interpretation guidelines from CLSI for animals were removed.</p>
 </div>
 
 <div class="section">
@@ -370,7 +370,7 @@ All breakpoints used for interpretation are publicly available in the clinical_b
     <h2 id="interpretation-of-sir">Interpretation of SIR<a class="anchor" aria-label="anchor" href="#interpretation-of-sir"></a></h2>
     
 
-<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr/" class="external-link">https://www.eucast.org/newsiandr/</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
+<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr" class="external-link">https://www.eucast.org/newsiandr</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
 A microorganism is categorised as "Susceptible, standard dosing regimen", when there is a high likelihood of therapeutic success using a standard dosing regimen of the agent.</p></li>
 <li><p><strong>I - Susceptible, increased exposure</strong> <em><br>
 A microorganism is categorised as "Susceptible, Increased exposure</em>" when there is a high likelihood of therapeutic success because exposure to the agent is increased by adjusting the dosing regimen or by its concentration at the site of infection.</p></li>
@@ -533,48 +533,39 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="fu">as.sir</span><span class="op">(</span><span class="va">df</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli -</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      assuming body site 'Intravenous'.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> =&gt; Assigning class 'sir' to already clean column 'ERY' (erythromycin)...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism AMP CIP GEN TOB ERY</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli   S   I   S   S   R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism AMP CIP  GEN  TOB ERY</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli   I   I &lt;NA&gt; &lt;NA&gt;   R</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># return a 'logbook' about the results:</span></span></span>
 <span class="r-in"><span><span class="fu">sir_interpretation_history</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: 49 × 12</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    datetime            index ab_input ab_guideline mo_input     mo_guideline    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;dttm&gt;</span>              <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>        <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>            </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-07-08 <span style="color: #949494;">19:07:23</span>     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-07-08 <span style="color: #949494;">19:07:22</span>     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-07-08 <span style="color: #949494;">19:07:22</span>     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-07-08 <span style="color: #949494;">19:07:21</span>     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-07-08 <span style="color: #949494;">19:07:14</span>     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-07-08 <span style="color: #949494;">19:07:14</span>     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-07-08 <span style="color: #949494;">19:07:14</span>     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-07-08 <span style="color: #949494;">19:07:14</span>     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-07-08 <span style="color: #949494;">19:07:14</span>     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-07-08 <span style="color: #949494;">19:07:14</span>     6 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 39 more rows</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 6 more variables: guideline &lt;chr&gt;, ref_table &lt;chr&gt;, method &lt;chr&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   input &lt;dbl&gt;, outcome &lt;sir&gt;, breakpoint_S_R &lt;chr&gt;</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 8 × 13</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   datetime            index ab_input   ab_guideline mo_input      mo_guideline</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dttm&gt;</span>              <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2023-07-10 <span style="color: #949494;">14:50:29</span>     1 CIP        CIP          Escherichia …   UNKNOWN   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2023-07-10 <span style="color: #949494;">14:50:29</span>     1 AMP        AMP          Escherichia …   UNKNOWN   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> 2023-07-10 <span style="color: #949494;">14:50:21</span>     1 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> 2023-07-10 <span style="color: #949494;">14:50:21</span>     2 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> 2023-07-10 <span style="color: #949494;">14:50:21</span>     3 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">6</span> 2023-07-10 <span style="color: #949494;">14:50:21</span>     4 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">7</span> 2023-07-10 <span style="color: #949494;">14:50:21</span>     1 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">8</span> 2023-07-10 <span style="color: #949494;">14:50:20</span>     1 ampicillin AMP          Strep pneu    B_STRPT_PNMN</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 7 more variables: guideline &lt;chr&gt;, ref_table &lt;chr&gt;, uti &lt;lgl&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   method &lt;chr&gt;, input &lt;dbl&gt;, outcome &lt;sir&gt;, breakpoint_S_R &lt;chr&gt;</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># for single values</span></span></span>
 <span class="r-in"><span><span class="fu">as.sir</span><span class="op">(</span></span></span>
@@ -584,9 +575,8 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ampicillin (AMP) in Streptococcus</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ampicillin (AMP) in Streptococcus</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>      pneumoniae - assuming body site 'Non-meningitis'.</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] R</span>
@@ -598,8 +588,7 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] R</span>
 <span class="r-in"><span></span></span>
@@ -635,149 +624,101 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli -</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      assuming body site 'Intravenous'.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli -</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      assuming body site 'Intravenous'.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli -</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      assuming body site 'Intravenous'.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli -</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      assuming body site 'Intravenous'.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli -</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      assuming body site 'Intravenous'.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli -</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      assuming body site 'Intravenous'.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  Note:</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023...</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span class="warning">Warning: </span>in as.sir(): interpretation of nitrofurantoin (NIT) is only available for</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> (uncomplicated) urinary tract infections (UTI) for some microorganisms,</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> thus assuming uti = TRUE. See ?as.sir.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  * WARNING *</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Assuming value "urine" in column 'specimen' reflects a urinary tract</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   infection.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   Use as.sir(uti = FALSE) to prevent this.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023...</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span class="warning">Warning: </span>in as.sir(): interpretation of nitrofurantoin (NIT) is only available for</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> (uncomplicated) urinary tract infections (UTI) for some microorganisms,</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> thus assuming uti = TRUE. See ?as.sir.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  * WARNING *</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK.</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism AMP  CIP GEN TOB ERY</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli   S &lt;NA&gt;   S   S   R</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism  AMP  CIP  GEN  TOB ERY</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   R</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># For CLEANING existing SIR values ------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index e8605ca0..0e7c5a1b 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 9bc0c12e..0d10070f 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 498802a0..dc6842f5 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 3777f76f..fec8d430 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 91a78a63..b3f173ba 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 f13f9040..63715ac0 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -170,7 +170,7 @@
 
     <div class="section level2">
     <h2 id="format">Format<a class="anchor" aria-label="anchor" href="#format"></a></h2>
-    <p>A <a href="https://tibble.tidyverse.org/reference/tibble.html" class="external-link">tibble</a> with 28 454 observations and 12 variables:</p><ul><li><p><code>guideline</code><br> Name of the guideline</p></li>
+    <p>A <a href="https://tibble.tidyverse.org/reference/tibble.html" class="external-link">tibble</a> with 28 885 observations and 12 variables:</p><ul><li><p><code>guideline</code><br> Name of the guideline</p></li>
 <li><p><code>type</code><br> Breakpoint type, either "ECOFF", "animal", or "human"</p></li>
 <li><p><code>method</code><br> Testing method, either "DISK" or "MIC"</p></li>
 <li><p><code>site</code><br> Body site for which the breakpoint must be applied, e.g. "Oral" or "Respiratory"</p></li>
@@ -225,7 +225,7 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">clinical_breakpoints</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 28,454 × 12</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 28,885 × 12</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    guideline type  method site  mo            rank_index ab   ref_tbl  disk_dose</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span> <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>               <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> EUCAST 2… human DISK   <span style="color: #BB0000;">NA</span>    B_ACHRMB_DNTR          2 MEM  A. xylo… 10ug     </span>
@@ -238,7 +238,7 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> EUCAST 2… human MIC    <span style="color: #BB0000;">NA</span>    B_ACHRMB_XYLS          2 MEM  A. xylo… <span style="color: #BB0000;">NA</span>       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> EUCAST 2… human DISK   <span style="color: #BB0000;">NA</span>    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2…</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> EUCAST 2… human MIC    <span style="color: #BB0000;">NA</span>    B_ACHRMB_XYLS          2 SXT  A. xylo… <span style="color: #BB0000;">NA</span>       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 28,444 more rows</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 28,875 more rows</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 3 more variables: breakpoint_S &lt;dbl&gt;, breakpoint_R &lt;dbl&gt;, uti &lt;lgl&gt;</span></span>
 </code></pre></div>
     </div>
diff --git a/reference/count.html b/reference/count.html
index 51882862..ac469b01 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -239,7 +239,7 @@ count_resistant() should be used to count resistant isolates, count_susceptible(
     <h2 id="interpretation-of-sir">Interpretation of SIR<a class="anchor" aria-label="anchor" href="#interpretation-of-sir"></a></h2>
     
 
-<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr/" class="external-link">https://www.eucast.org/newsiandr/</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
+<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr" class="external-link">https://www.eucast.org/newsiandr</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
 A microorganism is categorised as "Susceptible, standard dosing regimen", when there is a high likelihood of therapeutic success using a standard dosing regimen of the agent.</p></li>
 <li><p><strong>I - Susceptible, increased exposure</strong> <em><br>
 A microorganism is categorised as "Susceptible, Increased exposure</em>" when there is a high likelihood of therapeutic success because exposure to the agent is increased by adjusting the dosing regimen or by its concentration at the site of infection.</p></li>
diff --git a/reference/custom_eucast_rules.html b/reference/custom_eucast_rules.html
index 1a4d3993..b474c07e 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 190ff828..1ae4a61a 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 c29126da..80d31b87 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 50eee30c..6da3b25f 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 f1e72cef..d1f7d904 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 199ae9eb..f327b198 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 527db4f8..8e25b9c8 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 fcdcbb8b..16a1d5cf 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <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,27 +263,28 @@
 <span class="r-in"><span><span class="va">df</span> <span class="op">&lt;-</span> <span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/sample.html" class="external-link">sample</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/seq.html" class="external-link">seq_len</a></span><span class="op">(</span><span class="fl">2000</span><span class="op">)</span>, size <span class="op">=</span> <span class="fl">100</span><span class="op">)</span>, <span class="op">]</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># indices</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1] 12  7 19 29 17 11 41 34 32  9 25 21  6 48 10 46 45 18 32 37 17  8 40 12 10</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 19 31 41 15 15 46  9 10 26  1 27 34 18 24 12 23 17 31 14 13 50  9 32  2  9</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 16 38 20  5 48 48 14 12 20 42 28 49 14 30 17 47  7 45  8 13 44  1 11 30 35</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 31 39 27 43 26 10 14  4 22 36 47 33 31 16 18  3 48 23  6 12 38 28 15  1  5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  1 50 26 12 10 18 50 42 43 21 34 19 13 25 44 35 45 16 17  3 25 20  3 17 45</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [26]  6 10 28 42  9 47  1 11 27 18 45 17 14  6 22 31 42 41  2 23 38 16 46 29  8</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 40 48  7 49 20 34 16  7 36 38 48  2 49 14 32 14 27 10 37 24 18 23  4 46  8</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 36  6  7 32 22 28 49 16 47 38 21 30 27  6 22 14 24 48 33 21  5 48 39 16 15</span>
 <span class="r-in"><span><span class="fu">is_new_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># TRUE/FALSE</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [25] FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [49]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [61]  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [85]  TRUE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [25] FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [49]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [73]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE  TRUE FALSE  TRUE</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: 1 × 46</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 2 × 46</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX  </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-06-06 24D393     20 F      Clinical B_ESCHR_COLI R     NA    NA    NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-06-04 082413     78 M      ICU      B_STRPT_PNMN S     NA    NA    S    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    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>
@@ -317,19 +318,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 [96]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [95]</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> 022060  2004-05-04 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 05C73F  2006-01-12 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 067927  2002-01-13 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 080086  2007-10-26 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 083080  2012-04-16 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 088256  2003-01-25 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 092034  2006-06-12 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 0E2483  2007-05-29 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 107DD1  2012-09-03 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 151041  2006-02-09 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 008268  2007-02-20 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 051150  2007-01-02 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 067927  2002-01-07 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 074321  2015-09-20 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 078381  2014-07-17 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 078381  2014-08-17 B         FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 082413  2002-06-04 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 0C0688  2014-09-05 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 0E2483  2007-05-29 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 15D386  2004-08-01 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>
@@ -346,16 +347,16 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [94]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    ward     date       patient new_index new_logical</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> ICU      2004-05-04 022060          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical 2006-01-12 05C73F          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ICU      2002-01-13 067927          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2007-10-26 080086          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2012-04-16 083080          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> ICU      2003-01-25 088256          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> ICU      2006-06-12 092034          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2007-05-29 0E2483          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2012-09-03 107DD1          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2006-02-09 151041          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> ICU      2007-02-20 008268          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ICU      2007-01-02 051150          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ICU      2002-01-07 067927          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> ICU      2014-07-17 078381          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> ICU      2014-08-17 078381          1 FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> ICU      2002-06-04 082413          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2014-09-05 0C0688          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2007-05-29 0E2483          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> ICU      2004-08-01 15D386          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>
@@ -371,9 +372,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           60             13            40            48</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                31             10            24            28</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          3              3             3             3</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           52             13            36            46</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                38             12            28            35</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          4              3             4             4</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>
@@ -391,7 +392,7 @@
 <span class="r-in"><span></span></span>
 <span class="r-in"><span>  <span class="fu"><a href="https://rdrr.io/r/base/identical.html" class="external-link">identical</a></span><span class="op">(</span><span class="va">x</span>, <span class="va">y</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] FALSE</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"># but is_new_episode() has a lot more flexibility than first_isolate(),</span></span></span>
 <span class="r-in"><span><span class="co"># since you can now group on anything that seems relevant:</span></span></span>
@@ -402,19 +403,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 [96]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [97]</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> 05C73F  B_STRPT_MITS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> C58921  B_BCTRD_FRGL Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ED4982  B_ESCHR_COLI ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> E58140  B_STPHY_CONS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 851259  B_STRPT_PNMN Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> D43733  B_ESCHR_COLI ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 972724  B_STPHY_EPDR ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 616685  B_STPHY_EPDR Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 824233  B_STPHY_AURS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 400169  B_SERRT_MRCS ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 067927  B_STPHY_EPDR ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> A85702  B_CTRBC_KOSR ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 949877  B_STRPT_PNMN Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> D43733  B_ESCHR_COLI ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> BB8157  B_STPHY_CONS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 59C7F2  B_STRPT_PNMN Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 693199  B_STRPT_PNMN Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> A76045  B_ENTRC_FACM ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 559068  B_STPHY_CPTS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 533225  B_ESCHR_COLI Clinical 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.html b/reference/ggplot_pca.html
index 654dbf11..3955e619 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ggplot_sir.html b/reference/ggplot_sir.html
index e6c0a0a7..38b67a4e 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 1c39d6ff..5e50eb08 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 3d5b2ced..d8b0de5a 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/intrinsic_resistant.html b/reference/intrinsic_resistant.html
index 656842bf..8900f80e 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -175,7 +175,7 @@
 </ul></div>
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
-    <p>This data set is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes/" class="external-link">'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3</a> (2021).</p><div class="section">
+    <p>This data set is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes" class="external-link">'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3</a> (2021).</p><div class="section">
 <h3 id="direct-download">Direct download<a class="anchor" aria-label="anchor" href="#direct-download"></a></h3>
 
 
diff --git a/reference/italicise_taxonomy.html b/reference/italicise_taxonomy.html
index 0489c360..d6e2d5c4 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 56b7989c..a383d5b2 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 2043ae3c..db5ccd51 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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 8f0c6d4b..a18488a8 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <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] 3.030727</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 2.993275</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.06974119</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.005991136</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 7a89b9af..e2ad961d 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <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,53 +241,17 @@
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
 <span class="r-in"><span><span class="co"># get isolates whose name start with 'Entero' (case-insensitive)</span></span></span>
 <span class="r-in"><span><span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="op">)</span> <span class="op">%like%</span> <span class="st">"^entero"</span><span class="op">)</span>, <span class="op">]</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_name()</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 106 × 46</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 96 more rows</span></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>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   FOS &lt;sir&gt;, LNZ &lt;sir&gt;, CIP &lt;sir&gt;, MFX &lt;sir&gt;, VAN &lt;sir&gt;, TEC &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   TCY &lt;sir&gt;, TGC &lt;sir&gt;, DOX &lt;sir&gt;, ERY &lt;sir&gt;, CLI &lt;sir&gt;, AZM &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   IPM &lt;sir&gt;, MEM &lt;sir&gt;, MTR &lt;sir&gt;, CHL &lt;sir&gt;, COL &lt;sir&gt;, MUP &lt;sir&gt;, …</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> in mo_name(): argument x is missing and no column with info about</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> microorganisms could be found.</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="op">)</span> <span class="op">%like%</span> <span class="st">"^ent"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_name()</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 106 × 46</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 96 more rows</span></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>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   FOS &lt;sir&gt;, LNZ &lt;sir&gt;, CIP &lt;sir&gt;, MFX &lt;sir&gt;, VAN &lt;sir&gt;, TEC &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   TCY &lt;sir&gt;, TGC &lt;sir&gt;, DOX &lt;sir&gt;, ERY &lt;sir&gt;, CLI &lt;sir&gt;, AZM &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   IPM &lt;sir&gt;, MEM &lt;sir&gt;, MTR &lt;sir&gt;, CHL &lt;sir&gt;, COL &lt;sir&gt;, MUP &lt;sir&gt;, …</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in filter(., mo_name() %like% "^ent"):</span> <span style="color: #00BBBB;">ℹ</span> In argument: `mo_name() %like% "^ent"`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="font-weight: bold;">Caused by error:</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> in mo_name(): argument x is missing and no column with info about</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> microorganisms could be found.</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/mdro.html b/reference/mdro.html
index d0db7edc..55401126 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -321,7 +321,7 @@ Ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">facto
     <h2 id="interpretation-of-sir">Interpretation of SIR<a class="anchor" aria-label="anchor" href="#interpretation-of-sir"></a></h2>
     
 
-<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr/" class="external-link">https://www.eucast.org/newsiandr/</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
+<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr" class="external-link">https://www.eucast.org/newsiandr</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
 A microorganism is categorised as "Susceptible, standard dosing regimen", when there is a high likelihood of therapeutic success using a standard dosing regimen of the agent.</p></li>
 <li><p><strong>I - Susceptible, increased exposure</strong> <em><br>
 A microorganism is categorised as "Susceptible, Increased exposure</em>" when there is a high likelihood of therapeutic success because exposure to the agent is increased by adjusting the dosing regimen or by its concentration at the site of infection.</p></li>
@@ -334,13 +334,11 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">out</span> <span class="op">&lt;-</span> <span class="fu">mdro</span><span class="op">(</span><span class="va">example_isolates</span>, guideline <span class="op">=</span> <span class="st">"EUCAST"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  (16 isolates had no test results)</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/utils/str.html" class="external-link">str</a></span><span class="op">(</span><span class="va">out</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  Ord.factor w/ 3 levels "Negative"&lt;"Positive, unconfirmed"&lt;..: 1 1 1 1 1 1 1 1 1 1 ...</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'out' not found</span>
 <span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/base/table.html" class="external-link">table</a></span><span class="op">(</span><span class="va">out</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> out</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>              Negative Positive, unconfirmed              Positive </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>                  1978                     0                     6 </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'out' not found</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">out</span> <span class="op">&lt;-</span> <span class="fu">mdro</span><span class="op">(</span><span class="va">example_isolates</span>,</span></span>
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="fu">custom_mdro_guideline</span><span class="op">(</span></span></span>
@@ -348,10 +346,9 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>    <span class="va">VAN</span> <span class="op">==</span> <span class="st">"R"</span> <span class="op">~</span> <span class="st">"Custom MDRO 2"</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/base/table.html" class="external-link">table</a></span><span class="op">(</span><span class="va">out</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> out</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>      Negative Custom MDRO 1 Custom MDRO 2 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>           870           804           326 </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'out' not found</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://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -365,20 +362,7 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/pull.html" class="external-link">pull</a></span><span class="op">(</span><span class="va">MDRO</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://rdrr.io/r/base/table.html" class="external-link">table</a></span><span class="op">(</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  (16 isolates had no test results)</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span class="warning">Warning: </span>in mdro(): NA introduced for isolates where the available percentage of</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> antimicrobial classes was below 50% (set with pct_required_classes)</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  (16 isolates had no test results)</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span class="warning">Warning: </span>There was 1 warning in `mutate()`.</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> In argument: `MDRO = mdro()`.</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> Caused by warning:</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> in mdro(): NA introduced for isolates where the available percentage of</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> antimicrobial classes was below 50% (set with pct_required_classes)</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> .</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>                         Negative       Multi-drug-resistant (MDR) </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>                             1601                              128 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR) </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>                                0                                0 </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/mean_amr_distance.html b/reference/mean_amr_distance.html
index 0b7440d4..1e20b387 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -216,33 +216,28 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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 S S S S R R S S S</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'sir' not found</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.4743416 -0.4743416 -0.4743416 -0.4743416 -0.4743416  1.8973666</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  1.8973666 -0.4743416 -0.4743416 -0.4743416</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'sir' not found</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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.025   0.0625  &gt;=256   64      4       0.005   &lt;=0.001 0.125   1      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.025  </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'mic' not found</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">mic</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.5822026 -0.3556128  1.7012899  1.3584728  0.6728385 -0.9802010</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.3781993 -0.1842043  0.3300214 -0.5822026</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'mic' not found</span>
 <span class="r-in"><span><span class="co"># equal to the Z-score of their log2:</span></span></span>
 <span class="r-in"><span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span> <span class="op">-</span> <span class="fu"><a href="https://rdrr.io/r/base/mean.html" class="external-link">mean</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span><span class="op">)</span> <span class="op">/</span> <span class="fu"><a href="https://rdrr.io/r/stats/sd.html" class="external-link">sd</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.5822026 -0.3556128  1.7012899  1.3584728  0.6728385 -0.9802010</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.3781993 -0.1842043  0.3300214 -0.5822026</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'mic' not found</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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]  6 19 36 25  6 25 38 47 41 11</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'disk' not found</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] -1.30715576 -0.43122664  0.71421913 -0.02695167 -1.30715576 -0.02695167</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.84897745  1.45538992  1.05111494 -0.97025994</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'disk' not found</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>
@@ -251,27 +246,15 @@
 <span class="r-in"><span>  gent <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">"gent"</span>, mo <span class="op">=</span> <span class="st">"Escherichia coli"</span><span class="op">)</span>,</span></span>
 <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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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   31 &gt;=16    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    S   25    4    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    S   20    4    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    R   18    4    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    I   18    4  &lt;=1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    R   30 &gt;=16    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    R   31    8  &lt;=1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    S   17 &gt;=16    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    R   20  &lt;=2  &lt;=1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    I   19  &lt;=2  &gt;=4</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'y' not found</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span><span class="op">)</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.984641176 -0.173383326 -0.389565646 -0.001696925 -0.871323282</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [6]  0.941404712  0.377224435 -0.095010969 -0.522640739 -0.249649437</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'y' not found</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'y' not found</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>
-<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in order(y$amr_distance):</span> argument 1 is not a vector</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'y' not found</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">y</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
@@ -281,19 +264,7 @@
 <span class="r-in"><span>    <span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">check_id_C</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ 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   20    4    2 -0.389565646  0.0000000</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   I    R   20  &lt;=2  &lt;=1 -0.522640739  0.1330751</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   J    I   19  &lt;=2  &gt;=4 -0.249649437  0.1399162</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   B    S   25    4    2 -0.173383326  0.2161823</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   H    S   17 &gt;=16    2 -0.095010969  0.2945547</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   D    R   18    4    2 -0.001696925  0.3878687</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   E    I   18    4  &lt;=1 -0.871323282  0.4817576</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   G    R   31    8  &lt;=1  0.377224435  0.7667901</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   F    R   30 &gt;=16    2  0.941404712  1.3309704</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  A    R   31 &gt;=16    2  0.984641176  1.3742068</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'y' not found</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>
@@ -303,25 +274,10 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/mutate.html" class="external-link">mutate</a></span><span class="op">(</span>dist <span class="op">=</span> <span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">.</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">mo</span>, <span class="va">dist</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_genus()</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_species()</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "TCY", "IPM", and "MEM"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 63 × 5</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   mo [4]</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    mo           TCY   IPM   MEM     dist</span>
-<span class="r-out co"><span class="r-pr">#&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;dbl&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> B_ENTRC_AVIM S     S     NA     0    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> B_ENTRC_AVIM S     S     NA     0    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> B_ENTRC_CSSL NA    S     NA    <span style="color: #BB0000;">NA</span>    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> B_ENTRC_FACM S     S     NA    -<span style="color: #BB0000;">2.66</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> B_ENTRC_FACM S     R     R     -<span style="color: #BB0000;">0.423</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> B_ENTRC_FACM S     R     R     -<span style="color: #BB0000;">0.423</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> B_ENTRC_FACM NA    R     R      0.224</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> B_ENTRC_FACM NA    R     R      0.224</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> B_ENTRC_FACM NA    R     R      0.224</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> B_ENTRC_FACM NA    R     R      0.224</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 53 more rows</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in filter(., mo_genus() == "Enterococcus" &amp; mo_species() != ""):</span> <span style="color: #00BBBB;">ℹ</span> In argument: `mo_genus() == "Enterococcus" &amp; mo_species() != ""`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="font-weight: bold;">Caused by error:</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> in mo_genus(): argument x is missing and no column with info about</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> microorganisms could be found.</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/microorganisms.codes.html b/reference/microorganisms.codes.html
index c7e048c6..addf0622 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -185,95 +185,19 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">microorganisms.codes</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 4,957 × 2</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    code  mo               </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span> <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>             </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 1011  B_GRAMP          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 1012  B_GRAMP          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 1013  B_GRAMN          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 1014  B_GRAMN          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 1015  F_YEAST          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 103   B_ESCHR_COLI     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 104   B_SLMNL_ENTR_ENTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 1100  B_STRPT          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 1101  B_STRPT_VIRI     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 1102  B_STRPT_HAEM     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 4,947 more rows</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># 'ECO' or 'eco' is the WHONET code for E. coli:</span></span></span>
 <span class="r-in"><span><span class="va">microorganisms.codes</span><span class="op">[</span><span class="va">microorganisms.codes</span><span class="op">$</span><span class="va">code</span> <span class="op">==</span> <span class="st">"ECO"</span>, <span class="op">]</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 1 × 2</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   code  mo          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span> <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> ECO   B_ESCHR_COLI</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># and therefore, 'eco' will be understood as E. coli in this package:</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="mo_property.html">mo_info</a></span><span class="op">(</span><span class="st">"eco"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $mo</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "B_ESCHR_COLI"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $kingdom</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $phylum</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Pseudomonadota"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $class</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gammaproteobacteria"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $order</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Enterobacterales"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $family</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Enterobacteriaceae"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $genus</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Escherichia"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $species</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "coli"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $subspecies</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] ""</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $status</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "accepted"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $synonyms</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> NULL</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $gramstain</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negative"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $oxygen_tolerance</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "facultative anaerobe"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $url</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "https://lpsn.dsmz.de/species/escherichia-coli"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $ref</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Castellani et al., 1919"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $snomed</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] "1095001000112106" "715307006"        "737528008"        "416989002"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [5] "116397003"        "414097009"        "414098004"        "414099007"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [9] "414100004"        "116395006"        "735270003"        "116396007"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [13] "83285000"         "116394005"        "112283007"        "710886005"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [17] "710887001"        "710888006"        "710889003"        "414132004"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [21] "721892009"        "416812001"        "416740004"        "417216001"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] "457541006"        "710253004"        "416530004"        "417189006"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [29] "409800005"        "713925008"        "444771000124108"  "838549008"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $lpsn</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "776057"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $gbif</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "11286021"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># works for all AMR functions:</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="mo_property.html">mo_is_intrinsic_resistant</a></span><span class="op">(</span><span class="st">"eco"</span>, ab <span class="op">=</span> <span class="st">"vancomycin"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] TRUE</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/microorganisms.groups.html b/reference/microorganisms.groups.html
index e3f0277e..8e68492b 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -160,7 +160,7 @@
     </div>
 
     <div class="ref-description section level2">
-    <p>A data set containing species groups and microbiological complexes, which are used in the clinical breakpoints table.</p>
+    <p>A data set containing species groups and microbiological complexes, which are used in <a href="clinical_breakpoints.html">the clinical breakpoints table</a>.</p>
     </div>
 
     <div class="section level2">
@@ -187,31 +187,11 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">microorganisms.groups</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 444 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    mo_group       mo           mo_group_name                   mo_name          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;mo&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;chr&gt;</span>            </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> B_ACNTB_BMNN-C B_ACNTB_DJKS Acinetobacter baumannii complex Acinetobacter di…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> B_ACNTB_BMNN-C B_ACNTB_NSCM Acinetobacter baumannii complex Acinetobacter no…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> B_ACNTB_BMNN-C B_ACNTB_PITT Acinetobacter baumannii complex Acinetobacter pi…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> B_ACNTB_BMNN-C B_ACNTB_SFRT Acinetobacter baumannii complex Acinetobacter se…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex    Bacteroides frag…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex    Bacteroides ovat…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex    Bacteroides thet…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> B_BCTRD_FRGL-C B_BCTRD_VLGT Bacteroides fragilis complex    Bacteroides vulg…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 434 more rows</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># these are all species in the Bacteroides fragilis group, as per WHONET:</span></span></span>
 <span class="r-in"><span><span class="va">microorganisms.groups</span><span class="op">[</span><span class="va">microorganisms.groups</span><span class="op">$</span><span class="va">mo_group</span> <span class="op">==</span> <span class="st">"B_BCTRD_FRGL-C"</span>, <span class="op">]</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 5 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   mo_group       mo           mo_group_name                mo_name              </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&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;chr&gt;</span>                </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> B_BCTRD_FRGL-C B_BCTRD_VLGT Bacteroides fragilis complex Bacteroides vulgatus </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/microorganisms.html b/reference/microorganisms.html
index 43e3e25b..825ae83e 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -255,24 +255,7 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">microorganisms</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 52,169 × 23</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    mo               fullname      status kingdom phylum class order family genus</span>
-<span class="r-out co"><span class="r-pr">#&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;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> B_GRAMN          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… <span style="color: #949494;">"</span>(unk… <span style="color: #949494;">"</span>(un…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> B_GRAMP          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… <span style="color: #949494;">"</span>(unk… <span style="color: #949494;">"</span>(un…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> B_ANAER-NEG      (unknown ana… accep… Bacter… (unkn… (unk… (unk… <span style="color: #949494;">"</span>(unk… <span style="color: #949494;">"</span>(un…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> B_ANAER-POS      (unknown ana… accep… Bacter… (unkn… (unk… (unk… <span style="color: #949494;">"</span>(unk… <span style="color: #949494;">"</span>(un…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> B_ANAER          (unknown ana… accep… Bacter… (unkn… (unk… (unk… <span style="color: #949494;">"</span>(unk… <span style="color: #949494;">"</span>(un…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> F_FUNGUS         (unknown fun… accep… Fungi   (unkn… (unk… (unk… <span style="color: #949494;">"</span>(unk… <span style="color: #949494;">"</span>(un…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span>   UNKNOWN        (unknown nam… accep… (unkno… (unkn… (unk… (unk… <span style="color: #949494;">"</span>(unk… <span style="color: #949494;">"</span>(un…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> F_YEAST          (unknown yea… accep… Fungi   (unkn… (unk… (unk… <span style="color: #949494;">"</span>(unk… <span style="color: #949494;">"</span>(un…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… <span style="color: #949494;">"</span>Abdi… <span style="color: #949494;">""</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> B_[ORD]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… <span style="color: #949494;">""</span>     <span style="color: #949494;">""</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 52,159 more rows</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 14 more variables: species &lt;chr&gt;, subspecies &lt;chr&gt;, rank &lt;chr&gt;, ref &lt;chr&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   oxygen_tolerance &lt;chr&gt;, source &lt;chr&gt;, lpsn &lt;chr&gt;, lpsn_parent &lt;chr&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   lpsn_renamed_to &lt;chr&gt;, gbif &lt;chr&gt;, gbif_parent &lt;chr&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   gbif_renamed_to &lt;chr&gt;, prevalence &lt;dbl&gt;, snomed &lt;list&gt;</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/mo_matching_score.html b/reference/mo_matching_score.html
index bd0c4d9f..b5f580d3 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -225,30 +225,16 @@
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Reset 17 previously matched input values.</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu"><a href="as.mo.html">as.mo</a></span><span class="op">(</span><span class="st">"E. coli"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mo'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] B_ESCHR_COLI</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="as.mo.html">mo_uncertainties</a></span><span class="op">(</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Matching scores are based on the resemblance between the input and the full</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score.</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> --------------------------------------------------------------------------------</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> "E. coli" -&gt; Escherichia coli (B_ESCHR_COLI, 0.688)</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>               cloacae (0.571), Enterobacter cloacae complex (0.571), and Ehrlichia</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>               canis (0.567)</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Only the first 10 other matches of each record are shown. Run</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> print(mo_uncertainties(), n = ...) to view more entries, or save</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> mo_uncertainties() to an object.</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> No uncertainties to show. Only uncertainties of the last call to as.mo()</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> or any mo_*() function are stored.</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_matching_score</span><span class="op">(</span></span></span>
 <span class="r-in"><span>  x <span class="op">=</span> <span class="st">"E. coli"</span>,</span></span>
 <span class="r-in"><span>  n <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"Escherichia coli"</span>, <span class="st">"Entamoeba coli"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.6875000 0.3809524</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchmatch, x, table, as.integer(nomatch[1L])):</span> NULL value passed as symbol address</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/mo_property.html b/reference/mo_property.html
index b66e32be..ee3a33c1 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -461,7 +461,7 @@
 ). This function returns a <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with the levels <em>Pathogenic</em>, <em>Potentially pathogenic</em>, <em>Non-pathogenic</em>, and <em>Unknown</em>.</p>
 <p>Determination of the Gram stain (<code>mo_gramstain()</code>) will be based on the taxonomic kingdom and phylum. Originally, Cavalier-Smith defined the so-called subkingdoms Negibacteria and Posibacteria (2002, <a href="https://pubmed.ncbi.nlm.nih.gov/11837318/" class="external-link">PMID 11837318</a>), and only considered these phyla as Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, and Tenericutes. These phyla were later renamed to Actinomycetota, Chloroflexota, Bacillota, and Mycoplasmatota (2021, <a href="https://pubmed.ncbi.nlm.nih.gov/34694987/" class="external-link">PMID 34694987</a>). Bacteria in these phyla are considered Gram-positive in this <code>AMR</code> package, except for members of the class Negativicutes (within phylum Bacillota) which are Gram-negative. All other bacteria are considered Gram-negative. Species outside the kingdom of Bacteria will return a value <code>NA</code>. Functions <code>mo_is_gram_negative()</code> and <code>mo_is_gram_positive()</code> always return <code>TRUE</code> or <code>FALSE</code> (or <code>NA</code> when the input is <code>NA</code> or the MO code is <code>UNKNOWN</code>), thus always return <code>FALSE</code> for species outside the taxonomic kingdom of Bacteria.</p>
 <p>Determination of yeasts (<code>mo_is_yeast()</code>) will be based on the taxonomic kingdom and class. <em>Budding yeasts</em> are fungi of the phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). <em>True yeasts</em> are aggregated into the underlying order Saccharomycetales. Thus, for all microorganisms that are member of the taxonomic class Saccharomycetes, the function will return <code>TRUE</code>. It returns <code>FALSE</code> otherwise (or <code>NA</code> when the input is <code>NA</code> or the MO code is <code>UNKNOWN</code>).</p>
-<p>Determination of intrinsic resistance (<code>mo_is_intrinsic_resistant()</code>) will be based on the <a href="intrinsic_resistant.html">intrinsic_resistant</a> data set, which is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes/" class="external-link">'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3</a> (2021). The <code>mo_is_intrinsic_resistant()</code> function can be vectorised over both argument <code>x</code> (input for microorganisms) and <code>ab</code> (input for antibiotics).</p>
+<p>Determination of intrinsic resistance (<code>mo_is_intrinsic_resistant()</code>) will be based on the <a href="intrinsic_resistant.html">intrinsic_resistant</a> data set, which is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes" class="external-link">'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3</a> (2021). The <code>mo_is_intrinsic_resistant()</code> function can be vectorised over both argument <code>x</code> (input for microorganisms) and <code>ab</code> (input for antibiotics).</p>
 <p>Determination of bacterial oxygen tolerance (<code>mo_oxygen_tolerance()</code>) will be based on BacDive, see <em>Source</em>. The function <code>mo_is_anaerobic()</code> only returns <code>TRUE</code> if the oxygen tolerance is <code>"anaerobe"</code>, indicting an obligate anaerobic species or genus. It always returns <code>FALSE</code> for species outside the taxonomic kingdom of Bacteria.</p>
 <p>The function <code>mo_url()</code> will return the direct URL to the online database entry, which also shows the scientific reference of the concerned species.</p>
 <p>SNOMED codes (<code>mo_snomed()</code>) are from the version of July 1st, 2021. See <em>Source</em> and the <a href="microorganisms.html">microorganisms</a> data set for more info.</p>
@@ -509,151 +509,145 @@
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="co"># taxonomic tree -----------------------------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_kingdom</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_phylum</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Pseudomonadota"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_class</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gammaproteobacteria"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_order</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Enterobacterales"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_family</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Enterobacteriaceae"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_genus</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Klebsiella"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_species</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "pneumoniae"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_subspecies</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] ""</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># full names and short names -----------------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_name</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Klebsiella pneumoniae"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Klebsiella pneumoniae"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_shortname</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "K. pneumoniae"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># other properties ---------------------------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_pathogenicity</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] Pathogenic</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Levels: Pathogenic &lt; Potentially pathogenic &lt; Non-pathogenic &lt; Unknown</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negative"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_snomed</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [[1]]</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "1098101000112102" "446870005"        "1098201000112108" "409801009"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [5] "56415008"         "714315002"        "713926009"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_type</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_rank</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "species"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_url</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>                                Klebsiella pneumoniae </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> "https://lpsn.dsmz.de/species/klebsiella-pneumoniae" </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_is_yeast</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"Candida"</span>, <span class="st">"Trichophyton"</span>, <span class="st">"Klebsiella"</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1]  TRUE FALSE FALSE</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># scientific reference -----------------------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_ref</span><span class="op">(</span><span class="st">"Klebsiella aerogenes"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Tindall et al., 2017"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_authors</span><span class="op">(</span><span class="st">"Klebsiella aerogenes"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Tindall et al."</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_year</span><span class="op">(</span><span class="st">"Klebsiella aerogenes"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 2017</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_lpsn</span><span class="op">(</span><span class="st">"Klebsiella aerogenes"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "777146"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_gbif</span><span class="op">(</span><span class="st">"Klebsiella aerogenes"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "9281703"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_synonyms</span><span class="op">(</span><span class="st">"Klebsiella aerogenes"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   Hormaeche et al., 1960     Bascomb et al., 1971 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> "Enterobacter aerogenes"     "Klebsiella mobilis" </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># abbreviations known in the field -----------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_genus</span><span class="op">(</span><span class="st">"MRSA"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Staphylococcus"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_species</span><span class="op">(</span><span class="st">"MRSA"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "aureus"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_shortname</span><span class="op">(</span><span class="st">"VISA"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "S. aureus"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"VISA"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-positive"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_genus</span><span class="op">(</span><span class="st">"EHEC"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Escherichia"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_species</span><span class="op">(</span><span class="st">"EIEC"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "coli"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_name</span><span class="op">(</span><span class="st">"UPEC"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Escherichia coli"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># known subspecies ---------------------------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"K. pneu rh"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Klebsiella pneumoniae rhinoscleromatis"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_shortname</span><span class="op">(</span><span class="st">"K. pneu rh"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "K. pneumoniae"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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"># Becker classification, see ?as.mo ----------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"Staph epidermidis"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Staphylococcus epidermidis"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"Staph epidermidis"</span>, Becker <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] "Coagulase-negative Staphylococcus (CoNS)"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_shortname</span><span class="op">(</span><span class="st">"Staph epidermidis"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "S. epidermidis"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_shortname</span><span class="op">(</span><span class="st">"Staph epidermidis"</span>, Becker <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] "CoNS"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># Lancefield classification, see ?as.mo ------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"Strep agalactiae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Streptococcus agalactiae"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"Strep agalactiae"</span>, Lancefield <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] "Streptococcus Group B"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_shortname</span><span class="op">(</span><span class="st">"Strep agalactiae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "S. agalactiae"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_shortname</span><span class="op">(</span><span class="st">"Strep agalactiae"</span>, Lancefield <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] "GBS"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># language support  --------------------------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"de"</span><span class="op">)</span> <span class="co"># German</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gramnegativ"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"nl"</span><span class="op">)</span> <span class="co"># Dutch</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negatief"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"es"</span><span class="op">)</span> <span class="co"># Spanish</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram negativo"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"el"</span><span class="op">)</span> <span class="co"># Greek</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Αρνητικό κατά Gram"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"uk"</span><span class="op">)</span> <span class="co"># Ukrainian</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Грамнегативні"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated</span></span></span>
 <span class="r-in"><span><span class="fu">mo_kingdom</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_type</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_kingdom</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"zh"</span><span class="op">)</span> <span class="co"># Chinese, no effect</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_type</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"zh"</span><span class="op">)</span> <span class="co"># Chinese, translated</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "细菌"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"S. pyogenes"</span>, Lancefield <span class="op">=</span> <span class="cn">TRUE</span>, language <span class="op">=</span> <span class="st">"de"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Streptococcus Gruppe A"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"S. pyogenes"</span>, Lancefield <span class="op">=</span> <span class="cn">TRUE</span>, language <span class="op">=</span> <span class="st">"uk"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Streptococcus Група A"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># other --------------------------------------------------------------------</span></span></span>
@@ -664,145 +658,28 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="fu">mo_is_gram_positive</span><span class="op">(</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="count.html">count</a></span><span class="op">(</span><span class="fu">mo_genus</span><span class="op">(</span><span class="op">)</span>, sort <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_is_gram_positive()</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_genus()</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 18 × 2</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    `mo_genus()`        n</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>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Staphylococcus    840</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Streptococcus     275</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Enterococcus       83</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Corynebacterium    17</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Micrococcus         6</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Gemella             3</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Aerococcus          2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Cutibacterium       1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Dermabacter         1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Fusibacter          1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">11</span> Globicatella        1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">12</span> Granulicatella      1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">13</span> Lactobacillus       1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">14</span> Leuconostoc         1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">15</span> Listeria            1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">16</span> Paenibacillus       1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">17</span> Rothia              1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">18</span> Schaalia            1</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in filter(., mo_is_gram_positive()):</span> <span style="color: #00BBBB;">ℹ</span> In argument: `mo_is_gram_positive()`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="font-weight: bold;">Caused by error:</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> in mo_is_gram_positive(): argument x is missing and no column with info</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> about microorganisms could be found.</span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="fu">mo_is_intrinsic_resistant</span><span class="op">(</span>ab <span class="op">=</span> <span class="st">"vanco"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="count.html">count</a></span><span class="op">(</span><span class="fu">mo_genus</span><span class="op">(</span><span class="op">)</span>, sort <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant()</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_genus()</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 20 × 2</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    `mo_genus()`         n</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>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Escherichia        467</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Klebsiella          77</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Proteus             39</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Pseudomonas         30</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Serratia            25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Enterobacter        23</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Citrobacter         11</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Haemophilus          8</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Acinetobacter        6</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Morganella           6</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">11</span> Pantoea              4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">12</span> Salmonella           3</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">13</span> Neisseria            2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">14</span> Stenotrophomonas     2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">15</span> Campylobacter        1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">16</span> Enterococcus         1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">17</span> Hafnia               1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">18</span> Lactobacillus        1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">19</span> Leuconostoc          1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">20</span> Pseudescherichia     1</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in filter(., mo_is_intrinsic_resistant(ab = "vanco")):</span> <span style="color: #00BBBB;">ℹ</span> In argument: `mo_is_intrinsic_resistant(ab = "vanco")`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="font-weight: bold;">Caused by error:</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> in mo_is_intrinsic_resistant(): argument x is missing and no column with</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> info about microorganisms could be found.</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># get a list with the complete taxonomy (from kingdom to subspecies)</span></span></span>
 <span class="r-in"><span><span class="fu">mo_taxonomy</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $kingdom</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $phylum</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Pseudomonadota"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $class</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gammaproteobacteria"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $order</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Enterobacterales"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $family</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Enterobacteriaceae"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $genus</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Klebsiella"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $species</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "pneumoniae"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $subspecies</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] ""</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># get a list with the taxonomy, the authors, Gram-stain,</span></span></span>
 <span class="r-in"><span><span class="co"># SNOMED codes, and URL to the online database</span></span></span>
 <span class="r-in"><span><span class="fu">mo_info</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $mo</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "B_KLBSL_PNMN"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $kingdom</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $phylum</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Pseudomonadota"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $class</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gammaproteobacteria"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $order</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Enterobacterales"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $family</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Enterobacteriaceae"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $genus</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Klebsiella"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $species</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "pneumoniae"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $subspecies</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] ""</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $status</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "accepted"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $synonyms</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> NULL</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $gramstain</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negative"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $oxygen_tolerance</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "aerobe"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $url</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "https://lpsn.dsmz.de/species/klebsiella-pneumoniae"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $ref</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Trevisan, 1887"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $snomed</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "1098101000112102" "446870005"        "1098201000112108" "409801009"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [5] "56415008"         "714315002"        "713926009"       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $lpsn</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "777151"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> $gbif</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "3221874"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/mo_source.html b/reference/mo_source.html
index d79bcb3f..ed7909f8 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-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-1.png b/reference/pca-1.png
deleted file mode 100644
index 50186dc13acbcd629434f809da83044d79f27fb5..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

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/pca-2.png b/reference/pca-2.png
deleted file mode 100644
index fe3104e84115113424ff0babdcc950239efee539..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

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/pca.html b/reference/pca.html
index 121846e0..8402ddf7 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -273,22 +273,9 @@
 <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="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>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> The first warning was:</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE,</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span>   only_all_tested = FALSE) ...`.</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> In group 5: `order = "Lactobacillales"`, `genus = "Enterococcus"`.</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> Caused by warning:</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> Introducing NA: only 14 results available for PEN in group: order =</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> "Lactobacillales", genus = "Enterococcus" (minimum = 30).</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Columns selected for PCA: "AMC", "CAZ", "CTX", "CXM", "GEN", "SXT",</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>   "TMP", and "TOB". Total observations available: 7.</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Groups (n=4, named as 'order'):</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Caryophanales"    "Enterobacterales" "Lactobacillales"  "Pseudomonadales" </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-plt img"><img src="pca-1.png" alt="" width="700" height="433"></span>
-<span class="r-plt img"><img src="pca-2.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in group_by(., order = mo_order(mo), genus = mo_genus(mo)):</span> <span style="color: #00BBBB;">ℹ</span> In argument: `order = mo_order(mo)`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="font-weight: bold;">Caused by error in `.Call()`:</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/plot-1.png b/reference/plot-1.png
deleted file mode 100644
index 4aaf07a524a899eed0c72164e6e93f97c64757c9..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 25913
zcmeFYcUY5I*Efn|LB~Nx9YsJu#{k11Afh1M3WloEYeWP@nt%{m2sRi;%9v24sh~hY
zuR;hxQ7}{mLV!R55{LvsXh|R;<lG7Kyw7~^`+e7S{y684^Pcy<E=bt-E^Dv7_HX^x
z+MB1>tV|_-l=)FiOiTiN_3{ldv7HfOV%u-+-UXD9(qAnCAG>aun_dP!foJ^^1`d4e
zxp&nmR7^}RLHM&RWqQd=OzfB#`0@qYh@AOxXtO`mjVU1FbyW(_|46uY;_S~m)Gxm~
zcDdl!J%q#8umAZ{^7{UF+7nSKKmK|Cmuo?T&mKzs?EhQH8*|fNE^M29c<d_D{Xl;&
zGv(~M*SYyDx84_q(Y>)o3Ms5%iqjmXWv<32KWo0318qTzg!-Rf|1W94o<y;gDzC!c
z&bqP`wvi(imsS@vvQtc~^|(JIY)yto9PL<M)7>VfI#=l>C6b|aXm`Xm;Wzu#I8n*X
zD|`M`kX^b>to2(Av3jqV*u)p5iJfBhcrtyJPC}FHbxO-MM+8sk2MIhh$Cg=4J{!65
z#L}JCL~v6k>S3F_>wHdc8ruhzyPuJU3ogVM`;FL)S8<o<-SkX41Vyv$D{VP5m7{Mb
zS=v&k_lny<KSU6eki&mw<+$d$!B%c#!rNB(`Gh$X(O#q2DD-EdV{I-wC-766%;va&
zL$@dNpghri_HYQcmW!r)l3a<e86{T!5oMHjlf0JTHos*$VTtfbLa<5xx)>Vi%W9{q
znioU$)t2iT-I#U2j9b-1tS()vg6}0s%Qm;q5~6i97nD&L|8LQ282X2^^%)k)3R<&T
zb5S%0N=R#_LkYRsDi`i7*Z5QqZG|Q`^}ZV*t;k;d%%~s8AHX>kwXj^#lPP;-`MMid
z+7x~}JS|hk=erL7yd&_VM(;TRPUeS?zMLSxigi9=3Z?2_`Btj$$W)pZmzlL>=;~+~
zmFs61)E-$uxmorsHXyJgS`Cn~vdf^lEWto_j~v^s@7y0tkpA|Eg~Xn7f;7T)i5fGV
z5G=`}9b?w^Q*Tnv$_wpq!IL%=W%S$1;xwHt`>s7RoEzFSGO>6%8fEHVnY_JWFHxFz
z6C2wemf!dwlyhcBqhGGTnD`xjY8!KtenP@{faR|^ksH?2Q5ITeoF7ci9?}icch7zn
zTLD;+SokYh=)DJRQLoxOBx+7dvSorwk{xN$S%*woUiI|!Z&bvml)-Nz&yquPx$HCD
z>ITEKZ`s7gUXd7tI8L+WkS115Z^F>8Jxs%QH-Xl;o*2r}IjMW^<s*p*jsr7r<5(<a
zJDCv?pw7h}21Xoy6WdVt=rP4_?KkeE#AF9KK5k)#V9l;ms518KU6XvFxoKYyfrw-X
z^dfbd78}=E!8lo=3lzH|?e1`+Qf_;^bg3VU9}~8!N0jNZf?G8lSd8tv5UcQPUqniA
zi{8|zPg&?fqgF4EC(YN`8(~a1Rj{rtp%tPLJ+5FcN385_r}Q0(hO;is4W9LG<$Vt;
zuS<)A{zEGzDXXjpZE)=!5_63vtWW~O`>63NkD<xZ3F=M>4?H=3f=Z=xXsZ-R?&+dD
z)`!nT%W|k=8@F82sYtLHFKaO#+ApZ2XUkm7apG5K7u2g-wL8z{NY$}_`V8xFN3+Lt
z``R+YmqVSiCHJKSghxb;us_rF+~nWMIgP)Zq;NA_Vp?5Th0=9BE-n#}8e9XW_Z+R9
z0Igq|zT&R!xxoP@n7NIqQ4w0!v#XiJ8g->^S(kawkJrhD{cFa$o*R5ZO}3o>1~+FV
z?+h(!<-=#r*&X5HT%s;*zG9)aU6<B93-17i$i^E4Neqy>&-t8CAS$$3#aj8Tyq|1V
z++#%fdA>LFKI?H9H*u2NQyw}bfo<_J5$tt=M<SE-!mQjpcP*{_KsGJ6nezT$7WtER
z&l+zwek56ZisF-q#Z8|0TyvE0vsqaf*&*AIbkF@rWQH_tV>Bm}e0nMe-KR@4(&}Ar
zkmf@S3Ity4z{zNtfxqS8&A8IKb%{>#(7NzkW8ihD_bPn(kF#>RQ!+fXez$H=cN`~U
zs3f>%8#5fMEw%2xSM1~$6C?T#u}X`I{3<~SK}z;RigCI8=;HMSBx#s=&Qv>En<^_a
z<e5ADkZ$dBRR6V}?{=c`7eDWL!9-4ItWW!<H6YU3S+?BB{2Rs1s9wjj-Mcmx6FnOs
zw6QBLGoej~OwV*Dx^;E92-^Kgj4Ca*U_*vier-J3L?AG<(zSCtLmOt9H1`^0B%d1!
zZ_$=w3B}439NR9YKdw+3x{(?${m9zaQLu7?ur8sqtBH`aQf@>WHhEa<H0dFs0~$^2
z(=N?zN{@X1&BbRPce_{DkH4wIY>aSj^Pi3+)%oP`dP3XXYQ2n$T!NEyJMt)}vO|>D
z(b7C?zukhjFkWH{Gmy^;_KQdk`dV4qStA=*%zheA<USC{`!o*iD%XnF1ePo&K%EZk
zOUF~&G{h<g3~@<2&krOQ%RBOIE;&Yb%fP(L4mw}DSCyC2qpKYhnNZiw+nm{HpZ}r?
zUW1$JiB{j|=hzWW*6wPS?NuAC&L1et<b*~LwO!#gEjRd+iJlaA>r_JbcOAdOi(dQC
zvCYR*;eIR<K~j51szZRIx)+!7jjZeG=8@~ixJ+6fbsYrExbo%??qWBKFz@uRBMJ)c
zeGS^(XU0C~PUv`&{X2Wy=Tt+Jd$J|g2+}-gCo{rSV`(&j9@;cu5Z1n#09~J(So5w>
zFz`EkPoi&quT1*ABYx6}j8hu7%h%t}g*(mFHQG@8w#9|5T{$G?xHI4H-G%-D6eY-U
zJ5;OJe{FcJRs+};6CGW|)6A*Wl_92ESG94JU|kUc-=EG0+*NaaTT*@5pFQgt^a8(m
z<Hn}RLKsJyW>m0#VdD`R6M(IKqkAiNit_GhRXwk+@ehu(*v<Dln#Edwj|^qKj34oF
z2-^Lt{58IJn{(dE7%Q$rA%B3AC@~n4pxa?o`(Oo%i0u0W)#?6B>eSZQL7VI0>Bd0x
zL%pe+^d+t2ap*D&-hIx<j~yf-$Y1`b+X1igD4T0jhH3D08iIOtNz;#YJN8vrjem6P
ziV8>;?S@Q%2smEh$p%)ga^s!iB+CN(E0t*C-Z`Pqw#!4l%-4nE-mEL^F|OA0X|H<r
z0-HQ%#Ugko^w$I?e_Cr9ormL;9iU_F&e~IrfT7=SJ4vqdz8_l~Mat2%4s?V-)r=wh
zs5aclGv4UPXicv)X%nzB=RgBmvzB&bt`|<bBLeU?hb>z7iXAmGBFtxNmmS*Z&OW}D
zs@ow?m{0K#gs%`I#!I{nr6m1VbgcB=a?>8E`VhHwx*eO<tPDxrX6}=v&XK?R>@{3H
z1)2m(_c>Z{55#1uP`ATfn>Ng#9hD{FdWQwMW!QGcb%`!{{~@cGfIzm;w2z5Qn{UCA
z3)pDCOau@C>o*_Wn-jc1Jf*ed?6z4ogSG=UO@z<-xWwSQgN8+Qk7nDHJBBd9wuCAP
zg<OF@3ptfmk2a`iy4_xNP{unHa6<9w0=HPmrNw9*y-i|rHk_9v%?mo^DOeejW}1g4
z^EuMI6!d09Zg9tHyfjbJZ}%&Wy;B_fhSJT(rryKlHEtC>S6YZa03H!D%+&5)#Z>B5
zG?|An;<N5#l!2Ryn#@>J$QHi<XrAV#b&sx34XJT1Mx!D-n5;_62_@<hF{6p0$(f<O
zmu6h&wuSaaJ6u`|b<HqlCg|*#pb&m8wd7FdlV<Ag78w_5kT1fFPtlxZN7Qq)*stdU
z-W?w{q4S<eBtkD=`eHc8!}x_g0aH%MrmL<E>k)IMVuGe=t7Wnqu{upy-`=|Vsk+AR
zfE|m8-OOk@dH-A{!?P!EI^2<k*k8Vs9RJccFIV1V!FM;MeK&eX^P{pI3DGE@-bQj1
z>GTg|Ax~*>(z+*ke_>ZgHaRw|x2kG88B2f%R=41M*}R_Sf4knp9}h@~wZ2;T5P#lx
zsDrE#uzSOM{I|O&+-+c?Z4%GzM>gp^RFMYeFSkH=Tgcun$Gej^4MMlWj9mEqT^+nP
z-jv<JYJFw$*r%J~a|myWf3TWH*#co>TG`v_32`P0V2P~{0eT#FY2=yAQ1ixw9$y_5
zTRFMQa*mbDo~6qZqzM@f*C<x^!K?v-B^o~bVLixiZH--8=P;6Kj)s(5mAF?uU2(rL
z?tlDH8MA;OOPpPKtQ~vs!(P;Y%w}A5UMQMZ%b)z_CmV<gf3L@n#pz)tvEJzLWxvn@
z;qX7qyMzPud~U5IKE;g^QJp*VbCg?=huUXP8KVOmS#+3$xngs3R2b{2rTd%&vdY?b
zcVN)KDJ{+m35DmImoHT=&%~!V;|e^y$6tNVm7wtKWQPWu-B=V<_89}3)S1V+%z)j=
z<l)8Um?-H_@*j+bD_iEDN?iB`4_eb5E1hh2$`4q(Bj}Pf`XG2Uow_dIrNvhUrT36`
zFhU8rGA%TP^4?ObfJ`+(IsFNtrpdt3wS7l=#@S{m7@RdOVO-#ehNCx8Q6^L52><I9
zJ&YI;kpyhxfB)>Wi%xd~USU3L?(bOEpPz|X*e15mBS8(bRlnW@Kn38bd<|ga|2+RU
zHDD`Ls_Nun0u0q=a%3)(-bC1r5*+a`5L1U1(et|0Z-Mg5d&^py=Pv?1-Xs`Sj2bVq
zqe)yjvH5*W-wn>3S0G28GYeSaxmBS>mOjp}aECDDJW8YOp`~P<4~}9nWd-Pk(0tzg
zvEU9hOuAb1v?^o-L*XyHh%p8_?N*xbI$>mM7*<$SKK}EfyFq`1*wKmkn!W{;1D0Oh
zHC!zjyZ9($r*KtEJrmE`iGotc9{@B4p4LAPEDFI-tn|14?-mrpy42&?wx)Kb4$)|H
zRE4dSEic1S6m(a%?TKih<k5!+ZYX9+pivQ%gvJ$b)^j`P{ZAakMKk|t8<XAS!qO+4
z)fpDl;@LP<ik-0yKhm2m(u~t1C}zH7vywaKoq&Oq8tJY#rTf{!o%!I{Kw<my4?i%L
z*XS)aDaP)G%}q{W{%w7ee-a2v5XtO$oG+_Jq6Vt5!Y3dPyK4&TS5EDTkYZBlQbqE{
zO&*7tHYj*m%NS9ku@YV_$Rz|>a*c1%*Dj&wPQG;&*1u`D8>qj{hCwNlw{fe+YpR#!
zUCY(4V?Gdf+M46H9nH_6L$*AJeIcdF-A6=)!%u{TH6`p0$&ga(o_`ij+D0=kB%kH4
zG))}q5KYlOCl0#gu0?2>y^tJ+EMfaehMW`){YfZlMbT(qaq{rDa|zbH5Wg*%qz){q
zlS7+gbf37`2cZI+@tT2-*jIY6<+a!J6w{J@!q$#XymYr#^?Mh>GU!aDl%VTaH1{TJ
zo~|Gh*urj%p9qJ9#e}iq&vVEGmgJF@K!U?zw{yaVl{LVkb)Zo-vgvm3=1u&FX!$yP
zuzFc<iTi11AioBfZD;l6HugH4V2A3klL}lOdxnCb%kB9ipTk7vt=jn$nZX*NXUJY8
z%i2SW1D#=>VP*8<cttrQXKY0jl+}bM_QZb>^>y5;6?0U|PM|j;{8Oy{a%-1~K`9rK
zR8!dT99f~9a!MF5i_PEt!Cm`XA^p!2DUnpJ5KG14B6l?Ve>{Qi(CPh&3_-_Mb6a<N
z3I%8_SDJ7$Y$#(}j0TOh&&5U-29KQ-DaGVh;6+8rzWiEF_uOt_Cr3xy*FGBxzloV2
z15!c2<9Hol-oO)g$V-C!3Df?0YR|N=+c>jUjGWQnw9b|7!q-QVMqUa(#kQuqK<|Ha
zbZSuZN0AEb^MN%byX9*8Qc!w=V;z`N=0>8*POm-moA07vWnPCw6^}*%mcn^k!nRDe
z7ma@J^L}7)NkyX#?#_pVO<Iqewqha#Mue8B>OVz&>@y6ku8)8ex4`>bA|5X#%Xs`G
zET8!K*u=OzT<@DB5N?T-R{7!NS5b@q@GGij|H;w(w<ur(e$@WMQ$kkKiueOrs}}B*
zXk#4(ZPSolTBVZ#n;HE)wPhM70Ko3ejv3eg;Mi~{^AqpE{&r#II5$hc@S3BllP1UF
z<2cVwB#Gb&lOA?$YeD~O9`U~<7XSZV0QJ#F>D7<ch}^AMTrOa@SS!?monftBQPZ*v
zjBPJjYIGwP0;_6z7Zn`V!B9CUv`)vJBBWZbq~rbO;a6FMVBR0}I>M~@s%~l1%5B~h
zy@l{*Z^;2sU1{&dz?6J{#=Qo50}5k3iW?^;V8olOS((r2TWFdI?7ZZ%JZ;w6B|@LA
zu^Sd%&CDXG5K=7VarI3X+Cn6v(Ltr|nrGV!WYVLBor;BPZexBMFX+mrH8|+_?~ciL
z&vnL@=(R+>x6Kdo+YQ&q^;fv#m^YdKwjC>KAwrnuXp1^Hs_7nm>57C_B-$!FhMyIm
zjgtG0C}|N-7V)|Hi$4GeGHuH%^E(RXZA%dZ_c{*HC?Vb=_kYu2xMBW>@CSZYb-3F0
zrM>$iHqvxGEjfmfU55h5P7+$rI@TVwCMiKu6g*De47Dnghsa^)FPhu~vr_3^UFtjP
zzfMZ%+{P{-=8kls(Ga)r{bFJ^vDHnq>Sssr$|!LMh-3KilX-wb)KSSVYB{z%$#X3}
zNgd*BCp1%095Na|j`5I~&~)>oF2%9<R};v~>OZ)LBL((`_eQQHe%F`TycW7yy?2{f
zW<*Tb8!su%*T(40yCYXBBY=5D2ek?QvdguF(c`AXTY^goK4mRTqqTnR`3|%(ik*CF
z$l8{JB5QtdY@L}e)0-=;(VI%tN_XuX!g8=ohUDgiWGB3B7%&SrnjUfXJ;0Qz{d9jz
ziTHS;Y3<vyt`HBg*52v{dQ}R{-&8JaFbW1O^)Z}t!cNICe-rf8`mJ5iAj@J5Ca~tL
z((TFlk*!l02Z2w!qmOl+U~<BoR9RtLam2S2W6{$4;>}MdhwIA2$^v0?E*h9bHBt?&
zRnn++A!NR)qkPrx-CZUbE23%oy=8%6=wzd)Fo*i+$-R(w^9P2#y)93Y^R4UP4NbFy
zQ?mAbnY98Ab<V~m8a9r$?8S9M677x&4XN^l5Y1oE3y|!u66ObEUPeJ!dGtReYJwH)
z-OkOfJfKUVNEY=84gz;M9cfx9p{wCdl(6B=4#1^;b92tM!`5|eXU$p4;R^MNCU>3S
zl;zpTUFVPHXu@Ak&IAbSwyJyYVzMJ#!jSa*p<(#lw)rs>&0gTydrnHbw2g;&J}2@|
z_J2t?lW15%8F~tR5Z&jH?_NMbqK!)yY{p;dy^V5Uq3BN}v|u81+tF;k*ofEeGtI_b
z7B!Ajlo1XkW}o)o5!8|nEgBW+!9FgD=IGer_+Xv`5Gf;j{{66TSGSzUskULQzzS!>
zI_`beLwfk$cfx~6F|j167V^s|S5{gHj8ja$2CI&`8rFYRl)?~ux%2~B(hle9R-#uE
zwLVydL{UmN(cEnMz7y_ShfqWr{X5uqQC=)LiLSE-rN@V{-6I4)WuCmdn-_I!+2&=Q
z<$!r5^fCHf!Ym=QC^`3<VTs3jyp#hJ#a6Er`SrL<z2PU*?)kD(2$J>=r3)^woAk9@
zw1ZuKN$jg8uJ+&#p{SM1_0ei$8uopq<&>XStuVJ(euNGb(GFV5_V)=E)(}JA2971#
zFfr{53O%z>9-TlSq36_^e;2-sJ5(E#T^?%2dP#pp*e`xG8pg^5=pt7_2Z9k$hb_?@
zJL28Uk*<*W605)*<K0JfJ{&pOt4RQh;;!PBrukoigATi7zjw6mR}-FuD?qt;lXDmq
z0H^m?@J<tdReg@*{74u_3r2n(wBnhuWC=_Mh1^j=FMXTD1Lj_Iw$4}#LsMd#X4jGn
z!8*lYM#5A+<q`A-D~OPm?)Ler(eNU3{+pN74*=u4$Dq3rzILhK1_f2Ll#Jr$FNXgm
z?qCfG-+v<NHfzmGYTMCfAmd_4@RjhG;PbfB`9a0<F4))WueuUsKTN{&4O$$2AbUkc
zxAom(?)H?UEIKgy0PZ=}6d3jf8_fyt2cr$2a%}Rswmc3K=YGkNKkG%@E*$w0{X2}u
z4*T|0Ssj!9Xc=!ETOBWGFfMJn-AI`Kt)W<N;oVfzhePF+^Un425BI8n-wRp0NKngg
z+j}ax>Id=^IuvDUM>Loi-bnx~2EFNd&@(my1)F|^N`A!RAp?G**&CA<mm<So+F0qn
zS?Sde8u2=s8a*~84_kT$aSfLS*zv`p+;C^>*kxpfTl)pwm2NE(j`DHbNq+UEco=)c
zM~HaQEHq@?Q+_4WD`Q*YozgfCQbOliHv4V-n?vs8p&`Z+MC6U*blcruPkx9WX`->}
zv;a5jej-tX5%;djs7~-Z;-54^M&Ch4V&4BDBHLm|Z?yjy5oFvi3LeD#zj$=13(ZF?
zu1wl*7n4jcQeyPk^^HwL8r!->_HQ!i-=5P&9iF2C`;d&{_JDcUv(GW_5|GLa9ft~q
z5_wVcOJqm$Gh+cLegp7Q(T0IZu@(8$*78&Kt<mkaJU&qV$R<GNt_ZP)9|O9SwXDN6
zKV9j~zw2!n01$?)y8!umH-v|d!t{&dHs+EI!(1nryjj9dGeL<c_f3Z*z|5$&yw8?7
z&^24$-V+27m8eurJha#njDkG^%CRME%0DIGRhO{)0=_jTSl2=Rm;M1i!L-S(dl1@E
z7WHLtikAEjv3XhaV4D<(t>G&@-=r30`;>Bb%{nHY&|&&7NrrX4Ii{c&Tyu>gH=ZFG
zo&=n2hCRhLH>NdGV9W3SBTO`r`5!%dCd!(Mx#@Ii@p+sH%T1z7`{<E{O^+}hzEM=g
z|3l`sAi@(MBVvOtvWK`A^kpb_1l}0Oap|AW{;L!9ucsJpgiA^!O~N5%9`4KND-kgf
z%dRbsgN|k#+@e&8f%AX6gJGqAg+_}1ij|%@KjO#`Bv5|#rhqnlPQE=V>^$yL-|#kO
zgB{I|Ncpz@cOwaz(5LbFX!ox}ZK429OxvSWx>=_*?;L9lNvN<5DsORQD9q}Kq_Y5Y
zZxn&zzojP=o}5UM5Eiz|v^&3^?6qO=l*hJ0wRgax&so$_^!qbKt-3YsTY34w3Y*CM
z%bI_T5JaJ1^H)7ZYkH~!FoBw)QRq=$3sH+1VC`X{EK?*~!PYe8%$DtH0fXD~9a&NY
z0=mJrDCwNGsIK_1PXD>S?8LBc>QWM_!7jgS^A&e_SI2tZbGq&?t|d**bw%6=*7|h1
z$Ry{_c<yZGp!PvL1$zj&rcLdEl||eI`cr}mfTq^0O1dBbdR^FYYwwwv0}`c-&-717
zhHogBQMOslt!XhDEAy~leTMRxp^2Q&8S+o$DH9pmwfh+L{7)Mhp<KgPO&!~KWG6;N
zpk5u*6a}^Biblo^J8E6P>Gg;Irss#^)1_fn<*|YECFYq@pO^u<H{mNG$Vv_#6W0I7
zS&>#$Kb!KUm{v9n$-eI^+ie(9_LAi-r|Xy-0QBcuF?i(bC{e%m=>V4uJV!8so8&WJ
z+!gfaRLScST4?F2qHgx>@hp2E{n7@_^vlFXIfp&LZ+aGSU5oT?^~b{7oNE$Zw-t>>
zJM(zW040WnwsTu;c|+nhgG%G?^ooKvkKM!Ii6=~th_-on9RSxz;6??d@j**NMV_HA
z1?%Da@X}YDolbtOHOi>YB){P8s8o;i9HNB1N8E|%ZSa=6`MjeU|F2L_%eyt2KsO{T
z+3<{@ty8{z6?vmSM;VoIv-kBlHEYZ*$8mZI0=I%bS#(f-ZOR?C1nsTQcDR2kU3(@2
z-QW;ydSniRBH1&KdWaG-!vp~7IA^+Bu_wD>;4obL&&wZLv@@H#KLIx%DE^M+ldE*g
z6NDP%h8JrQ%p0TcBxLOSzS6BO84=`+^=fz2d2ttazw`&42}43f;+df(iET{4w6_Ay
zAx9l2Ou(h{F03K?yta1RYEaQAN2Vk_cSeGcpv+Kps3=a>f7!Q!O0gKFY44a3AGI;`
zr7z_tJDw1lP~}5FHu!B6-v-8Tu3FjXu;uMLL8u-84!MCyXf=M3cihcrYW;P5_FGtU
zlV{uVA%|=|+V2u`hbWQDYbOGjKZ$Z4H^l*vH}pjDhqfp8xHxb&O4w>9C@<wG7l`ab
zg@MX5pM20zJ8S>lLGU-n=lSILO3ntoi=d2-w(i9iPwooK2sEACGU>BJGR?%?yO7FH
zn#nS+l5^)%WWC8PFPpv%ZpvEM*BxEUi7C{p>B@)^Ru>Des`6g6qMY$(D)s7zp!lzz
z-yOkkmN(r6w#fhh^xGwBqADD)&~1OGnC<|`5j4LX<_%baW|%+u#t)QpgxI#Lb@TTj
z0q>rV25H9#8j1sNxZ#>UP}e$SE{=1~o{U_|dSffRVkS0!2iTe#48Q_P>5@7T<n2YH
z8i2Cxs&G+)+agmRuB}SH6G67+sSv7cQha(Q046w6VuVrK0={#<0UhL{V#E54TB6L`
zs<-=%IPlN2>Pujf=$3Q;@Hat(0!)nDxU4PH-|-pedx?=og?e!wX<ElK+K#ole@-Zk
z*zlqDpCUBMdyDh5>zF7Y@U7{3G>)Q_wA3`+{<wvQ;ZJ~*YSc4Seu-6yJOmb=WCZcu
z9UgSUFd{^h+5#{;=)zQNWfb+cKFY(5+$J+LQa2=mv)0{*4=q|@UUJv8T}8%r(?L4=
z=@y@@fBG+ipHz3bO$}{$B5@^sfBV0r`Z0oHD`)iKoaf_@q9V-0e+34Ej#?4Sf%XsI
z3Q*Y&lEul{^SmT_*$INkwO9HH(K`sqhqpwTv1|x@6r{q)@ISOtoqp$CF*l3;hLDDa
z-)XJ{7z_{sIXKS9H1p62)}uwX6wF6w(SY{7)j`$lyb?A?txU9X04<%5<Ge0mH)#B`
zV6lX)X^s}5(9NA{`V&|N5On{$Kx+aU$l53Y&WQ`R)M?+}^1OZh>0Rb7E^xm}cv;Ky
zuHXqF@}I8XsIJ1z8mgsU(pzez^&i5Y&bYJY%K8Y<^SN|Kkvdz=WB{g9BGIMc|M3aI
z2d!bxGi?&3`&!Gj0DrXkyj`S~n~%~Px56ti@eBXQJY0Jdel!4BhorMzvQh?H-Iz%O
zPRcTD?W$)_^>?u?b-i(Xz18cLq_dAWJQ?p{ayfUsgkMqS?g)D~3UR~ep}9jPM%G!Y
zB7?qp5I_h4s>z;Jik~7n&}<dl3YbWgpKV{@?kM<cE`z@P-;)Py;W@ztJ%wt}+0o$l
z1e3Au$dV%%137+ytK7eJ0oXuaiPei*1xL5q2cha&t1$CRr#9MzYHWKK`#S3O)W(Gg
zGh~H>f=B5U42+c^Cj*apR~Y5b5*MW}z7ot)HbN@z?gC^Y@F#}VV(Xfi!t4dyj#In|
zv&z?!ja6v*5dKT;O(}<zJ8OgT_r6EnXk#iTJhZlj`fc8>8=rX`Pbso?4?lh)@;d7!
zK=hvh{E#<p!+?`NMh4~IrD$zqT7^x~UjSLavCmU#AKcKgCozBQ=U)R-9T@{Cec>Ou
zHhjQu1EB=z`(|0Y!V{fuvMBwt#uHc{Rubt(4}0ywj^=yC(dWZ9gu>~Z*;rU>_L8c8
zl;b|`EzFcW*b||9Sx9FAwm7NOivfs>+6lskHF;-#)KvEb>^{qrz%x1G=Q744a~9k=
zO+?|@5VUzp&X8S|;ubDld4`DFWJPaGDd6T$@9Rw2{GJlNxlYr-{N(rop!^jFt<HIj
zc=?YE<ZrIJue>1ozZ38mptyyQ49v;O*Po(RvMFN+^VdEC<leu)$6!iYE_%MIOWm`p
z*N`(tUTfD;$0W+l&FJ7FQ=$e7(%stA85A5Yv{%<>#H;lpAh}gas0HhdL>_d|mbdu)
zu15?{cF0n`%|s9|f28ARsD(qzavBg^q|3oKUM-7<4Zi?lo-$$Lq%Y5~OMP29{o_IF
z`9h?XGj3{M*x+^3GKz0!RfjyLpXuVz)SouQ+;Q}VmELS&vVPzpqr%4e6DbBEBZ~8P
zOpgYCG!sC51+l6*!QW-)l>CA+@8&l?U0FCoh-F+A-e?5i`bPk5`?Br|u7`cw)!TRj
zf>9#oC;pRID-)EJ8B=JE&KNAD%u9-G2hCb-oUaK7C>rzModE0vV94}biB}7I2oQ%1
zAm}F#R3^_Qp-Aky_sfbBP*n5H!Y$+pe*$nz8E+~O?q3fZz_+xaNS5_=%@ulnAzLId
z`_#|@iH!AYVa}{FiMeI>YLk3(6mY5X>!|{VcOni`xzn?E0^7Yww?i@#(4MF%lp#S1
ztzpR(P3qpyhxad9ktjcZkM(^|6z%2VFd+C6eTxgIE|zXCvZpwVmv~r`RV~;G`UILD
zVLy`1tMM0Y=+?K1a*KI`_d@HKW9KO(hrYa8raSf?bxZtxzMkq|?-Am&-VIDH&}LTQ
zv8-7z&sRdnV+#!){mo?zW0%(y2|BjQwo*OkXy53;NOl-%;O}^3Lg2~lZS!jEj9P+o
zq)$sK@3{KmmtBv}|FSb{&(FVHNcw5pqn}>?^f36?!#1y`-yeD$nEr9M@s7z~JAd2#
zTY&{}@9xu*$DjWJdJMWP{}~Uq3h8Zumy&Vi*cuEbib*doU+AMna!1h63imqHTp4|#
z!J*7~x20kPGcEQZTNP||H6%8P1}nZ{RQ0Mwq_dNc-yUejIjab)5Qb;-p;m8VTrX{<
zupEW$QYun$)iYJo$NNZjDuUbpd==!T0;zeg&Gvh#AnIvvLCFrLUE1=HW?n<ko0#x_
z))ioH7{&B>Mkg3B!_$_1Wa(Rh=fyj}zvq25TbF8&Als-;OP(1NWp(17e6fAVkxN^K
zDCri5z`yJ!>nlc@yh+}%b;f(-h1sHeDs|93(iEYg+&C52L_!!S;fbmO9u{QmU%VA@
z?R{0UBM4z&%#XaE0$wfyNr7}<-k^Dc%fZX_s~YX>5>Q28<=>LO!tY?Rz{%Fjs7^s(
z)7##@!u(-N1Q8T@4`C?5-df({XR;<N5p#$f1hpOv3|}2acg;l%V?7a+1w)b7iqj0p
zzJ{S#E;o|{aH)}z4Taq`e&t&yYrD>*O&A`-->7H~?eQdn)-PP@5?STTB0y==;CfD{
zdE4(IXZt1b?aV~j^D{!7#;N%I{yy6NjsM>>{{`rUf9*}o)k^`Qx~DGN>>)$#J0<;#
zEk$b(FH~qFNHC^~J8rThs$<~_)B#1>B2pA}4e$+!jr)iIiF!$4_48M3_6$Q;M@LB*
z_zFnDx>^}eM8;G&$WLFFU~Tc5g|mR%ns|2DChjcWElQ`I<EK*LfoQJkNfr%Q)A7rX
zH4N6Qa<8K3Hh7#JusHH#*Yrhi2M2+59E~5%GBx%8)<}3ZA(ys!v_n;W_%cZ}en$Z4
zJ#TIGU`mj0rN#<9r_|VZ>0Pf24Q?(`E3%OLgC+->gUpOQbbouVx<_;<cgh3V^w~KV
zwD`JF9l!2rM6*v@=7hGX$OwCk+o@f$Lj#rp(mky>$)|zck=&=F<Fm@0K_fB5yZWc_
z!A^$Cizeeu9OA0z_@fehpcx4zf#A=nI>_eV@dF5hU-9sUkrGX;y4Pru5<jAiAzY}|
z56>rZo87>%s(4vsvyNibdM*f_L;VCU532C1<HHbg;Ck&ZLvlAvmh#5Wy9i~e`~r$7
zqCEo#BB?vUdE-1@AxP4CIq5LZt|KA3L8<vyycWXs>ow8wM`h)UOq(=rx%qMqs6$Ct
zOL3CNN>w?^4yb|%yE-opUaX&T0WV~pM(BWJHSkX0g>m}?;j6fX=Mw>ac_0l-=}$ZY
z$W&?FAEBeDTlpzgWM6VsBf1fA5S|PyV4X=WYlEZ28@S@5xLyLXwp@MzvbI?M3{t-G
zgS@b>Be!bykhNq{HMe{V<YwPt!R{GUKA4<FZ2=qg-%Sw>m*w;LyT7h6o{umvnttdn
zEEC%vaC--nsJ&)Dcd}X@0x4L9q@?pi#@Ah$1Og5MA~YQP-l%}xMLmRNZ2|Jj0?^h!
z5a^jb6m9$eDfrL&sIME}rZ@Qj9IMr{acuD*7ALOr<*@(I38X<e!|DvRAJhj90h8n&
zs5HS4f-GuWy?%e(9J2W|-iNfX+v00INW(k?4HW)mtr!_b%FWb-nk|okcy;5?ce!Rz
z4}mue7|CL-&Ig(Ymj*$~XUAp&WCJC&zbS%~eK7|mxULAD`td!PuOZgUkL&fnzTA#5
zC}mi+{xW_7uSHt8{K(2;xheJXu}^rgJSALNruHnpfV8kftW@#6xg0Ky>ZYP_M|<um
z;B=Ogc8xyl8O;L~<%F2+)1R-b=T&<MmNf(j4cM$XI0$z0fxk5(!GL<ak%(O&ghRCF
zyS4hdT`1h4k4D|!M)E+W3b6ZmYaf;C$I^NtfkUKBAcGwERAq4p=u|o9-o=IR229;}
zhJ-$Ubzr3z+M*Slv+Je_c=1NZG<dV*Rs8~qhiQ1lzB#ZE*%v)iT#$ShBP%;(zVP8g
z(>NnAL)>6uTL9FvjZJ|I(spQ^EW9LXSUbSGhscSdmyBSD9i$7%x-*$pK~rTe4dsB{
z-c(wDB8nRR$7uhv(f%KI^<5W|+)aOR`%ZnAIZ?9li{6QdqPb-7rZ)ZxI2{?Ih7U!|
zA1O%cLbwtzBKX>C@emrdc?xh_2D<p9XaOb^A*I-O3h(Jm7eU6C>j#<#mWDwZvde31
zP>}g@`>>J_WX@Y6o+2B95JZQC{A}uRm4b+%JgNiIwLf|u3?|EyM8g+f_%(Q0K4<gE
zS9Oc51WthpczgxXtcX`b#=LZ(6{db|t`{XqPYu@B>sN}&JE`R7P!r|`N7AUT!0vfe
z4#GeW&jRQDb(>kJ?>KPWS8296XnO!Kx|EutZY{7wZ#y9TggfHcdwmILMXIr8Avpv=
z0sJh0oGIq(t*fbI&wwZ}!Ux!T44FW{DSMAcBMe>(oBAN471zB<a@*prD8JW_Y$!>s
zD7`Ll0<*1`^;JTb-Lt6;{ecLMI9T1Xy6!<e+g$onwB`1IZDQv$j%I+wkKQ|<o}NCs
z&=v0%+H-cK#-|T}kzWrqi+$1CL&lS|y!q3hqQaae*5g!PxpHt;)2lKNQ$QbovG^yb
z?`q>PkaRwogA?#@eaUkAqYLfvxxh|XU+XX?hwF&N$xAK2XjZW8B>5Tn=;99|n{iNq
zG}wLcX1)mGb%6;-Qc$TKjW0itK`Ca-C1k#j@;Y+ZTeLVSw<oEvk{d14nSEFze4paF
z8FO=GpxfY`@NMhSzW`6GVcTik_<#n<rpAJM{ojh{L~FC~O@&>j<j74~edL%So})vN
z6SleO?(c`$zIQ?#EKgKrk}vB!fEvva#>4lwd{(1SoGvhV=$eaEk*oh!=KB}XhnSn<
zdlAzRT9U9UF}eRK5USySqYu*Pf>`doIgs+(EQKAhC=N7QXl}rYT|`d2NzPD;yx$fe
zPrA27Xzqa`N~W%Wd#!}VnQR?G1o@o#B06h5d1jA0ea)FU^w^;g6j9+@EV?Y_=%`*T
zN}&C32L7Lw5w6I;4O6%fPG;2*#CC+gB|zE<Ku}XXb_*x06(<d#1<V}0kWQr`4SvVx
zCJgdT5FF6@HG~FeM1P4a!qwd4@Acgzg#@sn*h$b4-Czt3iAC5Tn)OY#Zi#A&Giy&O
zM%o}aKKDX631IbkzFXgQAs1v+jf=*)`ioW9GlW4^h(H`1Ym5h?i{HHTk0PjlkSS_d
zfkHM_TBQK$03c+SGTBqu;^qu^(Td!IG{A%i)&WEooW}ct!)M}c)K79Y1!W*O0WBEo
zoa(a(S-st~#r~h{U{Vd=+=vZ87+Y5RbZfJfB7+eQwws(mOSY)S_j3T4@t&Bi_i2v|
zJrmyw8cx1^BgE@+vyht=&1b#NEO?h%(C)b*VA>=0ZnzgzC*K+I2iZ!E*UhTAjVI{!
zj8EV^*!NcnGhZ%A24FN~!+XvWsUP-gSReq}H1QY8IF0&@)DYBn-Bj*uQn_WfE-eQ+
zJv|L-3`Us8+wubuE($<?W~2qiv*l{<$#4w;hcAp}fs~aa$NxgX^Qe;H^TW?C?bE&e
zJ1qOL8zy}E^)q!dARJpCIc~?yqK1YZ9?(a)YL?zbxQxwv>vYuzklyw;fZqXEc0ySM
z2W5PP@;d3b9ppJxI`o$T1*_$iODM7qzKAp8lYcal`rKxgR2ajIrnsocr=C_L9HS}g
zh9uwOJ_VBv3h8LXh85A1OGj7qev*RZfCLEYt4k=OWB4NWIFtgUiuMbe+un-8fr$G`
zqOK!kDH}67eM4m~%H#@g$;Z_S(0T$ecs7;Vwom`0xI)aLaF%JAu|bG~3AX$!kV1A%
zCOLi5=cRl4?GClT;Aj3L{o_lXQf~LJhciagKtS}J40MoBC1T_U^q~vgiW#m5kRX#<
zc-&3_L2YwOnFX|&17yxrp{CRCV>78Qb^n}&m@O})W7>YX&q0Pj=dD8bkm+BiUs%>^
zmGeN2Hf;g!<M*PG_o5K4!JiH_e*4p7J+=27?Bf*0JcJcSbc3Fs-tLx>n?dc|A7*78
zGPlxa48L4w<!H5>e}bNq2g-oNMylgBmhqfB%O;;zoxtI4(D5){AJ`%vIr+4*uvw|$
z9J6`l?U&rA2M2Uk$3eseGB%o``*gPEG<T(Y7Mz@e%p_-1Nhjzhoh<}V#5mDCnqd@r
zV1NRaeyj;pSb#1x(yU(TA9T=vtAUxXb`2l#LNdQnlm47#f*Kb_{VK+dlr{N`#Ldm9
zC`2?|z@y|}genDEBeYBh_YaI~--S8Q$6ya`z0malb^%rg-xfWM0j<-OM)kDuI?>aT
zO1d5g1Cl(=5ei`NH60IKytG8!S>FaT;|mloRdIHm)T+x|C1_m!@DK-^XcZq|9@6~_
z_q0StQR02s>F*$Mi+36W$KDcktTkay2!+979Suzw5Jq%<&uqDlSlIW<i7}tJ`5qeG
z>GN0QHJ!IXxwi%QaIfF#?W>cd_IG#xbr(RzC!*(34PsvAx=-FMZa+wBuo#-1`n<;t
z>Sk7LZc$NhjUZXJsM-XB5qtdxU1~F1f)UvkE&4V~<B6NWk^4PmiYM_Z;@#6ANN;<Q
z-EbatC9OWT;Q1C%o%#~1f{Q8#dE*e&eV+BfJP@R~wn~3R(|L~&Q-*igoU!Ow0vk2X
zz$uo1pNALbltUvsRSuADsJ{-qjfe(C`UghH5CM|$nYx84=Ls5x-B;?HpOW%YRgZ1u
zQM?iqBQGHQwA^n&p$MrWi$Ku{&|e>akq8*cJ6*953{JLeyf~$1Gc$)(!Z)foBp9E-
z7e&LN4gEGkIsThHFL&}3BX1x$N{#36c3`7?sx@M)+OsPF)pH3kri-6KZrC9z6i3_|
z$73GxJ?m=^@hsI{O4Z|iJMJQb>r$zoL6YEQQ<b?z2FL+4l0~fr1z9aurm{+>h(oJB
zgAAnSD%9OV%iBL?MCU2LvWsmQ;%?tDeZ7obtm}d}njbR1c?+S6oHq;cMnIL;(?H@4
z1l^%JLwuD=$2<<KYY$1Kjsh9I^~(qvfCfqR^K%1d=khb`&#8-@jN=s@9m_}<bAPcM
zuQewW+BETwr!HQt{kv36N!f5v$jGfQO$&Yd>|`|ZZf!#dDQj8LH&r?1>r4p3I^`=R
z@)RSp%FvqvVz;SBdj-BDulzM(sEyZ^#wKw<kx@!3(g{m2BNnHxPf7RIRTnmEcJ>49
z&Bx$vH;)^fV^J=X5i|SPNXI~AfZ2;4T>UNFtk*NbI?<%Ge*KBpG<$4+fZ1>RhD^GL
z<!gct@H`y&x4CogFgF&W9&*A}_PhwLU#fAQRq;zgPPkcxI3e1^YrP=(dFnClA+BPM
zV*1tGOAI1n?CkU}uhdi&LWs$M5g!xP8)mf?UQj8B4JSl`aw81Ek7fi?dtQw6+s|9y
z0w&y2cL;6SL1?qF5=4ho2z0>J)<JUVH>`qUE+bZIqTG_@`n}J-ipbF9o@S2zDNXWZ
zTi!CBf6V|GoKpkEQr9rj{XjDTG+CZHzz=${scrNdkV}J|gjhY@Im#*r6)CNcfEvsq
z``ktXc}luU_`TIp7;N<UzqO;-u`_PxqUo$cD=u$&(!;P1J*clS-E(s&UB4`B-AtS9
z-Q(}8$}Vd3uhLT(O(d`^^vd^{8821mobDStMtJ-!SNTgu`CV1OV%9Z#V~4M(f~yA*
z{yiI@2uVDh+Fi-N7mZ-r(v70NVGC6J`o0{wpIG5Z=CHJTI%%T8E7j1n8Cf=(k`AI&
z3}R`CYS0&Rzxocr0zPflW~kX?Dta8{Zp#F-2GYD-wF~nef0L+_)~fG_DZwa&_b>(^
z6(r84j>aBx!2l#B^zNW>;|+nN^03AWs1uj8;GOO7=gwi(Z;e)*Ik@}C9g^lOByuHM
zrQpb}k!-408c(@<IE3UZ)l||Gu^*l2d3|cSD{VP>DC(=_Ga0QjLGqloGB6p)V*7Tc
z&C>9P(w50GtPIuZ6`6&-$S~NO7=jY%MF$LaeQ+c^dGEF3@4K3tg5GQl$*_!_RgCYp
zr;~=7zE}pdKXddt`b<WHXV*!&TP8JLTda9$WhU4-#sr~XxUm*|w+oi_xC<Fm;?QD;
z(BD^rQNwGgas**Fa$g5S!68%b>&6JzMm&2a7y|hvtUh<@2ivQQ00i2qz*|iC%(BP@
zlZtnSPp9ka)bHD5Fa2sS-SN7;%i5unS-hTuv@w}+%en2-`I(@jxc({iS?<X{ot{dQ
z3V7Pp3cb}Xijk2O8;c-f-Ean&I}M7Cn(kB9Rl$4AGD$qeMwiYjuVQOCIOD4!lfUpj
zuhqY`P*|=7<<Ie%O`sItmyAdfQ3^aBKzk>4ibl>@ni+RN4MMC!T7MEQ<}LSu1wX)s
zu>Mt}uz+^@F=R5Dk8mCI6L3K~GB+CZXmgdMUJwqkpw!&))f?D;E1o(0%DwfV^;@0X
z=8)VDn%6$^A=4tzHdDqk2as;n8>7=>Q^@&+@gY)pzLgg9{YrgBAHs>-oO(|E{DBh@
zSrDCyRE>)3a0Znj-uvaBi~IGPmkORVV9Z*53RVwzIldi8EX*l~&sa*`@_t@#DrI@s
z*na?t+_3HZV_EPu1oC!r9wce8Og|oGWiDOCv9_7rKQ)TD9nGvC@<SS&oBlN`TQh~n
zeLeiSKGan#)01K$$Y>%B#aOZKl4Rv3Pd%Ns3Uy2TbH1hi7JRhpFnXNmUApfy{#}&s
z8wRfH`~Ey-#q}Bx=W0kq=UA{g7H9f4F-{NH4<KH`*)f{afJhx4WBhwVa?eBVE{7m^
z62)3UCnDgw`0_#7>w<O=uYSNXKH_40P{X*2v8#W3Gh?pCJKab_5xAHi%IKO^_z1s$
zdHj%+LtZFS+Iis&@k)OwZ}d;TuZBx$I3&AD?{ncdx?);51$mls^B^0%{K||(^J(ep
zeeo%?#JQI7^(=B!l2n~aMb0W;*p*eZgQ+rG(NzwlsY3=*`Ti<ishfOcOxX?QGZo{H
zr?LU)>cGM5nFU?oJnVaIS^y;fO3i8{9zfw<tTBK4n&I6+h`u$&#Cj^{V@Oe>I>LLL
z2w-9K$gMgafG`(cB%|MeDvE2@%g+d|ti*wc_UYGkmPW4B9MSSq>t}!e(|0~0AmV-}
z*ENg!@;GZo@qM%{cdkkwua+=4{(^cijjL?k3_Ua5JDXw#>7|!Mnq(1Su)}{Nz$sK*
zBny%jk}FxmD{F+aeo|{F3wxD4nkZG(d2Ytgy}mGK*IFW(5A|lH<z<J2*{6^(Hf@YP
zg!;$sUjtIqGlyc&1?b<HiLwF&Al!nyoeoZ0UP0z)6)xm~tV_lONbvnXo~}h9Y*ab$
z#+j9wFbHHv_J06_9`;7LR;Tc21pamdrK8#v;OF-Jt@hNF($mS2$r%CQP0i^K$H3r^
z2HJS?9yO-1>U3m_S%kwa@9Xs)rP=J*bCyu^tOFqMrmh!t^d%|9HV<kwEx;L-^=eaF
z(w3F|2941-j81#qHymGlWwyR>mfpA0V#L(OFpf&Sy!bF9k~LzszI2u@@PD(BqE$au
zKlCK<u9o}9-={K(5hFTyQ)JFCMi39erQ>728oa&Ha_eE2ugli>C;dE){kw)hq=d0u
z1jZ<*mHvyW?0QvuO!jzH*!f7qXSEf5*-AoWYW-n2j}SUB?s0Wo4cuEki0u=>`hP)!
z>?HJdM9i!HcJ%3WRVXuq;E<e0Q`zRN={@9J$k0TO4oem>E;t$DR!st}v!g0>Xlb(?
zZ11Or<X$?9;e0XrIo5#BVCNiX9rl3a+tn<K?Ce7GDgGl)MrhmhpHw$1Z!jPFZ=N>>
zHlm*!sAuMqOO<ht(C>foE-m-b3J$x9(E7a(?xZBR66(@v_tqgj(sxGi@N~^#ExTv$
z481L7d6T6)tC=bO^2b%;)aXz73DM?=6k9s{me8efdg(jHtR;$lAVI{^Ehg}@j#&td
zE54)wTCZBg`HzF9CEjq4f784)s;|qB?Ana_vn$s&d+zy}Y)Qb!fzl2CaLknia4||-
z#v#Fnb?2*8;LQ;`;7AGq>QL7Gb^1(unuf8<4fh69&^og;Hb5SOpANqutLYhi|Iz?&
zviY1ApIF%YX^#(K^y`v?QshNMTR%mCV;<56%I~AYmL3c&oJ8lOQg^DXydj_Q+Wejt
zP@fv|f^Q9qbh8g?(D3Ge%!grNe=F~SfdN{Q+7`&{U4%%&F*i7MHm(bxQP)nc)VJdL
zV7^|8f<r-mcl<x-leV0LM(NVng@#8&U*?|eL-4*hfku(*gQ)8k`T#Kqyc1=dBejA6
zPHDx9Hd}BZ(SE9iZ|J_#f+JDacR>pKTZ{~AHX~JnUE>7#x~7>>rg`J%&ae}7?C;aW
z>1k>Az=43|(BsKz**5u21!cqeAFDsnWBgR@m8BgD)T7Sa$to!2GzR!|5{mLqd%L&|
z%`BC5vNHn!*z)Z&wL$1+5K0BFQx)!HT0RQd9|R7;r1}QZD=VyrO5p%?i<5VdxV=B-
zBt98%K~xX$LVgIU-4|^1SIDQ{8ola&?2w-|(ELk?zBh?+jSz%>QOt-TXxjGU03t>O
zZ>+f9kQzxl+;hgWogFu_RH0(?X2Swu`ZgyD#!KDtr4iing34Dh-r+WOL&1q50X9lI
zja%Rk7{|-MIDLAh8$`Lf{63Wt?V*Y->^dq+q5n4vUH+e)PTcHB)@>-FqG$bdmLae3
z<NE~=)3<WmV~Nmy`oX7~;*Q5}Kmuj2@q9|4!%TlNi1@a-#TansVtN7QBssC03os@A
zj==>`hSG>$`w9~?vyMR;#9ZYwu%!B=`{9p99hC~~Jej6%YrDZ8KNM?|9A|EDD;Pd9
zt_!cvoxx8bHo_1UpvGVE<scu$NC<+a*cjceZ+{x*HYTY(O1lEf=dFV{%rpqu+tj&M
zar#J|KECF6LC`lt_A*Gr>S<YnX)F-odJoZ%Co3AqeG+Lnzg(K}t*iWTtX@$-VU6ry
z`)TPindlA+k4T<vI%jhiN$xNt;G~uc_;uQJY|H!UUQAofre?qw#y1cytvWZ$@b95x
z@<}hK8>y^Vk1m++K<+?FmcIQaWiWa^>37D)H>J^Sj(1{@Z+|I)bEzS}2gmv%<hErZ
z4kBIuT1xg!C`w#5^!nBChxo|Lh!fG%xWJkdYA(9o{8M<i)l0rPvboM7HjMh4nD)o_
z2jhIX9b}5BvTm^nKf$h(iE2!Q-7xu0PTvHljZX5aKKJoH$57iVnMzOH8)Ol}Oa(2}
zr}j;gqB%?i6<(Mq|JbSWPRC<4uscCj5Q<Q!9nR2JQ(W(HUzY&0t?uY*EbtBW@Q;*h
zf$Ie~52A_|<s4Lu-?oQZ&k^|NJBulLHfLJ@jLdrNF_fNle`RpBe(W^5$PGwf!^8Z+
zAu)70jjR^+1#!3eP}zly&AIy(>Ae28q(Xt-m}iftC9WeDLmZNlxdY@Y?>Msdwpt=$
ze&vHYPBoMpFnw+qzt^XmQFw*$>wj@<H{nE3#nlk+&QHlLxzsdp?ETBeIyK!>h-Rhf
z4`vudj23V}cC^|`R>yp~1Kg5BMS*Cb^=uII$kzsvZ90GTxgWv+bwjYARj)oJ!<w#{
zbv%;lKW^c#*f!;d^-_NW+6l>^&XZRF00JWV`^YYXN{(QzM$fmAeen+rvf1-INt8LR
zh+;4;vi#VWR5YU^k~Sqq!#NhqQYyy#7<9wfn+SnT3A{jtp^R7iy{{yC*ZU|VBrtCi
z1Yi5>P?XYoRG@aa!_joA3YeT#je}&LcKd{T(;X0%GKhIOHVKZ^pT2lsYL$E6#H^H}
zQ_yGSf7ei_Ng+|T!H$I7xE;i&q*GT@_d*yJy5tu1>037+xj*Vzz!Z>aC~a9JGPy&K
zoWD7zHUA-`W;yR&5CUSpJPC48YCP#>9C?G=k#q2Om|?j$Ml~N>ZvFH<>g~a1>xx?F
z{q4eg91^J5ZSR5+`RFkP?LQgoSUuv~n3Ce`3AwQ2nRR=r)PSQ%G;XmRYv}V`CK=Zq
z045vWj?}N=?wt!t{7%7N;)avVuzH~i`L-p-zr6<nu0*ue!v?%#=4F4yDYx4J(VbEo
z9$hgXl+q(7{-{ScKr03ol8`a=?V<Tu2$0Ne?70|bT>ZXI`c!Wa!BJ2Ma<$J3WxnWh
zn#(*3YaG}`lD>VT!pEixqc)xJL~m(X{KRNvY?5|MCiM@MQkn_pQSekfoxh!4hJ_g_
zdJNm<I}Bn!J0H~4Er}>abDgn~m&ctVtT(=<?%=-ER<{IaZr+-PbI@M{`xWeX&^d#l
z`wttqk<%QRJHT1voiC$1m`1ZH$D$VEX#SSc4}fSJrIKawkmIRxB8?t1$sgI3vECxn
zg*o$ob$8}}NoV^XpQajbxA8jKopEf@nGy9OQ%;l`uB{p%I)b??Es~jAF1X;<v^Q$r
zK->`Nx`a!JrbcLJW#xdmrGg8g32H)$p-3pp{WSCa;rln-&ySzSd7Q_2pL5=?$2sr!
z^Zhuuk-i-l*W@-|{hUGECW>PAK7IvXb}-&fy2Yr@zM|S;Miqv!U8An{3cZN$?}Mv&
zQa8Qw*g7kP<9@K3dKE+5=bWJ$=v|J8MBh0Qpp;_E^RcX%>(T4u)o@M)>gAGKUGe)6
zwjp9U4r#U!!lFXZ{oj>J2o86r89P{~@H?LLf)f%h9Loy#wRtw_=jAO83>JJOJNWGM
zWi6^+OiFH4Jrs0=k)Z>NJS~vmw6s-PwDyZpHfgMCi%7cTAi%c_-fP<?st$b|F^lXc
z+$L@KRkS4jJ_9m&0%2_@x*VJx;noyhd%owP6D+~MyVnK6-Avj&7&4a)&vw&Rze!xj
zUQ~f#R#s8XR#xid*JV0GggFZO%y|)SCIGS!)@RR{G?PbsmK%jBR_UR*(v9lSR#{TC
z)Nt3rA=~>bzlpj7*cr4xa|Os47eT|0D)B*-7whaziwu^i*c!Iqs<|!vOVw6#yF0A1
zt0zF}mb5B0T<t?RSDBm;m%Ng($H%f3%hq&1a;c;bQ_=BA=3+;+W=tj9JfY4->?*GD
zQeKK+x+6JjOJtLqqsJ!?@{@$x)0PPxGfbi;n<v8u@-Aq}f&@<@_N0P}=wQay4nREi
z>?q6Q!uKF$_0~t@9V_D~^4rJ-Y{O}*BJ(2XdIlIbaiasL>}*bKAWbu@?->Qoe}unI
z!fNj(E*`W3Qr)?H<gzYpHb-V<9MJixoT@Vw!L8B;UQgQ@PhuL+cA-^shI?093+=*X
z?3}nyCt?Oq^{RTMc6l;JPxX!`!=c3q`IPCmF+Y3#^oaP;<VnYk);9auE7u`-EbAH0
zT8yo&Td(R<nw5VYh)@)h+vg*-7QgWuRciLTTQA$<eCzc0jqweZ5ZUW99TgXUiiP#{
z?{HcWB(*eWY}hZlCXf8x@KSP3zC1#!Mh3)irJr=oc<Dh-g?Pze*X_xK4<zXPVpFxy
z!|tJjv}7>iubmZOyO>{gprcRqLJTRu77{;U2LP-os6_~DEgzLMJMF2MbaL6B{>n^w
z3`ms!azbX6R*d#0h4&lIvz%+udPiG5&F@O;i0Lg71YZz;q14?iA|1Kl<I`L&88Oyo
zz-yNF2+}j(0KU`+_!4S4&fz<2;}CAzHW589a4z2#&m5S}HL#~nXPv9j$@6ME_TpMa
zO<Vq$P-b7scLQm!y}Wk~jy7qB;B__UJ7lnAltpSxC8Nz+`&oS(s^YM2m5ej>RgD7V
zSmP<z8qEMd{mFt-7;}XcC%hx>B(KT4`o$!~vV$3k<W$7>&B{vQ*G|o4%!Jq$(0-|8
zP#!GI*KUzNBe!4ecPlv#$cCAu*|2R}(>D%IwC}%&d6mdBEe5Ga3o$VPex3xa_}WGS
z&I4<#L6Q|sxzF=kUdR6<Jrl;w@mpf1o*~uS`SZHH*|clvA;s3`{*yn3;JsI!*@x02
z<RKW3VDDqf-1XW+kKMSrwknH5l{yiK_F%lg)Q@Lm@#{Qr^+kR)Qg<#^k*Ttt2#zK)
zBX=~1P~+a!SWfIbKkM0vglYm?X08;%NF*hRaw>MQ3i1kA+;U&ABkW>kA^fGJm4#8>
zq{;87g;8BLZtbencw)hw3$n_uE7~JmjcN<s-CnIY$PCB|2K{m9<$lui)_Z&7nS~8W
z%dSinpodtg%>ojPeSCvmj~3;eW}Gh$3X`vRjBqN^=6Ktv;qPL@UfsU#a8|YvJ+WJI
zjI0<k{5iF7^P8!P`TL+F9%>ds-ES$aD3Y|7WdTv^hKyPF;Q5a=t9H7ybe>DeF1)sE
zV*^;gdU#g_CI78<n1*;aQ~2VI#|KK{P-Asoy=c5+QTn!#AxsH~gGBzG*B*Fo*T#j>
zLkS&c!8lF@MS>-jlXf-gx02VZ<_cnYpmT{6lXYd&+GkILWfWjte_OD?be0gBSD)>~
z`#%W1wbB4~|JoagrxujWByMu@xng?xQD}+e07uc1kyGHU_v`B`=Z6GPBgSg&qDg^s
zB1C#D@dD%ihU1+RA;k&n0*@H#{&oaWl0jA+>^y7{3Knpn>(|MOTI2NjyrE)%LwgX=
zc`Pn1_+uDm-!!>!n65f6&VD?nLkSr6oqyRWbzx%}L;N42=kL4zpglg54dyb)lWV-#
zm$k>Sf7wSVWaGMu6lE1<k|W?11T##}AkRN=G?0V5pw@H_wcb+BG+SX0XZpC*qID_x
zv(^m-+U^e&$z6`(Uak^_P})bWdwzSFZT)QfVT!+ZPNyfLazQ{)F?%Dt!>*_MJDLTd
zcK&Smz}}4XUR<$%WBCR`?Z|iWr_u?FnrZO_MG`{Z=$@MszJ^LKBvIo10@m5S;uniQ
z!aMJBU;H}UZcZBAB5oZ3mA1A|&Y6=HhpMtEzoMGtWr~NJoKV2LI%uQUv4^sqxpEax
zk1eAziIx2ux_b>d2R4>|Z4ohSXA^vmh;B)1A32X^dgEJVk1h9j!W^~3-Lwi_RKI~$
z`cbClZcOII-|AKVJR8TsaA*c|K6rF^#S>+)-wW@mk4KnXDi6V6&c419X$5-_;O5M=
ztNGAlP?I<ImZ&3Gh>q&dyIS}7a+)UYZjNqau9pcoPsbS^0q{4po0<*I<iS&(OEmXc
z+~(vmfHjV7chC+c4<Pj;B0<|QmF-6@mV4Ms3)+KWEi(Tg*Br?YMva9%oLhqgkE{w|
zsm{oO^@ntrZ2)UT>()J-?4NJX$Wg&zqpoms-*nAO!@YEZag9MuY3@Ydj4Y@Pq6NuO
zEg!Fm`&a4g$MOC?UBBd7t2q~EEAav#ngNn~!+&4$Qr~TL+PT&=BJiU{0)tP$*JM)o
zg#8nv3te4Pu8vP?#f0p*WO58j@giJpFHVgfu7@jIf&<+SN5YrC9DLM<{h_~4I$Snh
z-fKHcGxtr+Akw{??7T#lo-Uo1xK%9L<XB|fCD`aSG&S9%!Ss}7))>#a?{1e$%&b38
zd-bty)l<p{9s5|2k;C*-EZitsSp?~Q+4_ou2OcK#!w1^xhfixn))VO%xx5He0B}bn
z=u&o*amcX6;`%~f#k?}X(wz3^=w%ZWop5M0x2Lacw(xikdac0VPHj%r2y)q+qI1#@
zziNL39zEbI?S~j01^~JXQ-YTDvk*IYhv{UQqw{drMO7B`Q@s=kHl;a5JQXK*N0WB%
zp9T)Bq7vPFR~M24VHzdI$>n>X>j!Z5?^N}LzS&nbQM|1+M9B<@9$TB*9Y&MXa1>eS
zIej>+PyNy?Cw%HiQH#?!K8E+wN)|4R19LfVe0a=~HbD|Y8ua}@pVU_@PQ%w|=0+%2
zQ=)m%*^`F*l0wBF40bg;YSW&0-YAIZL=sI$E+m;`RVYh#_juaQQrh^rL-kBG<v^Nb
zmDk*LheY^1d9+<01m}fxwCKIjzrWZH|136p>7Z)=IipPFvNSIWhVvGGOG72<S4mqY
zF+^_*FGb!$O8&M(zi?BD<t4gg!w}5eOHG7a57EtA7b{B<8(pREsy4Y(btm~+bmwFD
zecEd;iVCj@o!?maQb0Zk?e@+24Q0F4Q)C6@&4U)A3p-IC2k%EJc%W32+7~zb69&oI
z0DxF$@T6jjBqX3HEuRSfS<c)kza@Z}mSIeOhgg;rqdiWFz}y2Qjnrweyi}5-<b`0e
zzsbbOVWaBjDj)bDjR<9~P9EUE(t5^?9L~bH287vT#LS;@abohhPka!|OQ8W_8^`BB
z>n^hWusa3*ywq5RX;l`K3v}kG<hfIHe-p-nF@#K8Zg+Gmt56sEF8+_zoEU(C0OYvT
z%rzLG+)643=$Y_9??f@Gb)|!xVh+HBOX1WbmRHv5T32*CdpXBybi+U(fptn+us)-`
zhj@F0jy3mR5I0S}Tqw8~?p-Q~=ksy9N5?|sKOIE%JO`bHn3-coaoJF=4V2&vgwjSX
zmH6(bg1QdfTYSrzbmot^+v5BJsk*&3>B#ll17~Dm^KIr5Qgo5J8P#gfJBRT&%Ww4V
zlz#EWmbTAt1cd3Oi$?q?W}l$N`@<4RvYiszQw^$fbMSD6u$23p4&7Gnj&vWpAQYuP
zh4MRGndofXX5dUeUo!ZAXZj=LHPOM!xJmhKmJdhFYXs%^vU7w^v2PzKJ`v>l=u=bY
zRMi&lRdE9rgCYiGQF|tTcJr@i0L^;c)k}2wL7O}MVE#j)9T!`MC@8sRaUZlvC%;AL
zx+`Js3KSV&Jgza@IH@5SL$no)$s+c_&{_-TJ}OY;We}bAu55$ueJLm&3BR0m+VAD>
z5X@XtnEdsPpiI|>6nc4__95y~QWo!@M)YdY$pLwd=5L1>!@WIk0b*JPuRvFcy3z4d
z6@R&VyX~w!g7+^8WA7TSFrFT|TdDXFpIrjw!0{A$FkN&E&_|G(SE3ywW^3}=4GFF}
z|3PO9N_q_f(*WG9>3f|k&NeTSo~ag*h%N*lp6S>*w8!$B*bdTen&N~yhhE;;X*2u$
zx*eiarHKE^B{ejIB($@tTWu_~*ydq1z3*hH=V~~3Wh-q+Hf4nIh|*;PVh|o&#jy4x
zy>s_c#P0|fT?bd$82PZ#S{cUUcsNzzR8Em}gOdtH^Z@y{@J6#i(F0CJbXc(@2!6+_
z^vk)c;M=tvu)9l^HJ3(zF@!aYij3zyX}o#=HFKi~q^CY?bjFwj0MNM{#DXh2z3dVm
z-vzE9q7o=`u@1by<ssFbsIUY=Aetm8Lj~FZ{2@rd+x>Q<+N%ND+j$onundGbU1qaR
zNAj8_l2v;Ap>{?2_M~Hw$do7cvp30683egJ0CWG*XNv9ng|(opi_VA9Umc~=5@XV^
zKp+Z%uP1HhyQCbSZ8ku$vGBwmp2FwC88y)SuqVesTm8H*WNG^^A=zN9xZ8NI3fFSS
zD<_Ok@l<a!E7wqOII4=WyvuQ)D@{g{dslbtq{XxCo_-iF)BQ_i+A1vW8>@h7U-LdL
zEyzaH$?|3+pJps1rFx2Wv#sfK-Sxe5MQCCN*4w@AQYK~3m*@H0z&*F#!v7J&wv&y!
zbDc5k>3+QOXK+~mo-*jXYJ9;$mO`f*w|8rN5mWuQhB|;go_^C+l1;24I9pnoec8lE
z^G;~a<Nqnw1?e9<yk8qkX@?EoDa>8oYr~H2{j*f-ypXU>BqIqM`@A>B9DTb*-rt(^
z@pA#u<yU??o|xLCXN3kDzV8Ie2Hdz)091^Cruy)<_KJ!m#Tb)kK)e6ZPt&zF{qN7V
n9UjyR8k_zkAOF9p%iGRhiv8;J_lV1%|H4mrA8$N*`pSO+?I*%u

diff --git a/reference/plot-2.png b/reference/plot-2.png
deleted file mode 100644
index 6021c7721ccde52e08009774bc29cc2f07871db6..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 27080
zcmeFYcU03^_b(hpMaMxbk0N~>5XM282uOFv5sV0^bde^~O9Tu7LI^e(M~a3b(xQR{
z5_%7zDGE{}B?JfrlqR7B0wIu)<ozbh^ZaJ5yWaQx>#lY0{oU_cnsC17?6c3=dw+I0
zCr__inu+}&^#ce55(8iP<0c5SHyi{KxwC&C&_YRjvjTkVyJK$l2k;3zTbBq(;N!r(
zD~_QckZhdb->#&YRZkG;ClL6L-)zFO7RMtR?%F%kxmGa!W2X-9Km7Bq4`-j=2>$cy
zE|G^X_wT=uYy9EUsl@$<Vvbpg|LU?=;g|3i@Ehw7ciUfnfQu1%7;|Bd=hc&`nm_J7
zvKy>_X~HCoIdC}?+pC8N%ho5&aibe)B-{qof5|nw5;w3lgsna(WbOa{_djO`CO>oU
zR3qCwawLe~*ZQB>*56_->O}KEEr~Udk-Z>L%R?D!S@<6AM$dPcqDO)|hEz$}+!6s9
zj8Z)%ge<kZII^-^@U7^VUFw3*mcNevyFu4c1QbJDx9w5`+I6nB90V=?(QY$m=jxbk
zKaST&RB(@x;;=9qNHNvM`CJ6=sYT9QHw~ver(dg|JE|qgm&YNoF6SiqEhk)vUpH*#
z>?f?pYxN7+WE!4SiBs`f$J;~Qna4>MSePBsmP@3GITg&=kwkFnnTA0FE0w&9Oc)7=
zm9Ueie9&vFz|@;DRY_dwl4o7m=Avi}o72X14jc+|Cj3bLU?CmdhIT?wr-@ovCp(M{
zS?6{w#4kLlp(rwtIe&VPkbPn+CoDk(SW2i-)v5az?(Io}Lsn$w>>!knb@G1ukLiAc
zV7dN=F8U+L{^@kbx%vt=qqVIe0=lZN-Sk>N`jNKWeM=@A+Lj${*j&G=MAXc8(%ECW
z<`?A|=eIqh*WR=CZI*w?+i|d(Bca9KW@Z^H>qK2FA6gi8HFD1;hbUU2Lz~ugF0>^P
zzw_nAc73a&fBzgkBr4^?e=1$%TWP{K(sF6#(dLHq$ZKBfaOOUL=XH3b0WVr$@OHyi
z(CG&~rn?^_NR>4jJaZ?Lf3XRY2!6f(8~6NW(_ZGg<kcV-MARdM%ShXDd0A~_=MmnI
z#w3kLVT5tdkmZEIO=|2H+7%J1!T}qJh^3&KoMV~t4DQFQ&_EK-J8Nx3`a1!0>a#PB
zZ&ez+ZMT~$LgGkKT^ICFF))CogF}2D(`It<0K|Yg@QlZi1ekINMpK49JYw#C+$g4{
zRU4W33^z5K<!#r($%vhi(}~RC`)sne2s(}v<nF@a*p>MRg>9Lpfb6ySc~cTHsG>>t
z{Miu=f4*U+*!l^?Qcym?k_m+)I@`o3hPTA8xsX?OwHu;Ma_J9ZPm3O^CB?8VLVXvI
zzf=r}P?y53)Y(#^pc*#?Ekh8frZv|)0O<uK#9oI&TF;JI<J5ij<6N5GuQub{Ejo+q
zoy<0v8wB0QuF_Dy*80?1%5+3dMK2G6Yw~StvbXWJZ`X;E<t2*wLrZ2nNn$#Vloyd9
zmp&6D=WLQrHm7K-vPZ`Yj!8wk!ZOSGUr7U|#&chJ74F~%txLtrm6j6_bU7DF;>@jc
zl43{R&Dqs{|3c)X$1condx_@3d>x1pgxj?-nzd6#jn*Z>!0x$;!d=luQwt(ul><Ye
zk<8)P!%$US-~D!8J!j$W(70I8T}W%dd+%O7-bE-!axO#r5o>aat~57FDf3#+B?HZ^
z32&RcLbj=~D|e~!LjzueVYwX+{>%ulKXS9VbVTcS^^D*g&2hgrytpy1;Hy`Js7RxM
z?&J6c?zOp*#rU4fE(Gb~xyP~6BE6A~;?#?(9ufWVQnSVG4W;#wrp=`}eRDV*r+U>B
z>|*S(U0XT;>y~UVsqDq;7(9Xz06l1G+XVu}9M@GjjK80^+Kg=56vfV+H^|$BgtCo%
zP0<m%=oD$Me%a-oP_|6La<wTs4p`2%WHo}7WxO`@Gq+z7p~I-=6tlld&KZAMsa~&+
zhQXaorn9}Z9#G$wjwcL;My<7uGrf8fml8w$UO_LFs-uIqd9&(ID<r*p3jK%Te%20Z
z;aD#W){Vr#0Ntbn3(ef@fny~rx~%@|iFO`K(nH?IVJ<A~nAGn4YPR$EXyw%G-Ub#r
zI443^gb;3ucIus9E0aV}^`<tP(}TBvYnOTNFV*!fwAV;Ig)op6?Xj<+de|S<7?}v!
z&-Z!)rQq!tRpwrU>w#K{$mRGcwBa3#cH)Kh2eh0}c7o(e3G5M}XI}$_nd7pqeFzlr
zKs$U_O!haDR*gwD`|hRZs~j;ceL8uC#7)?Cn%$(;Xl*p+vxl>q>}}Q4%jtEo)k?Zk
zsaiFBN|vz|pjf$~?5v8mnyJjjqL1hvNnGsf6(g;UagXdKr}9$wgu&{Da`u<3CJ2N_
z^ttw|K8y_LQ>~akQ7#DCdaGeAsJHqGe<FS<$;pHAw8ur1)tqE)X-n=NsU4{<Ng8A-
zBvxnB=RKXL0JUuSVQXlXSeK>!Y@-&Zo}slIIJZ9Wxu?I$+mf&DJhkbl6+XAOV?tw2
z#?>&FNYz6O)t~BbK(|809!xg07d5G)*XnC%CqjEUgJSE*_gTEPfUvgNw<Y6D+AC(=
zTlaly=f+=;Fvn?S9`fg>>dbY*OBzWMI%hvIvS@Va4}29)w}1H1t!hy$I!lX}t`#m%
z==C4z{*k&A^|!&dV6dPT%hm0n=8?Xyi8!?)9{yB-o^OJOSMio(Yr><U(2*>}S{m%a
zSOd8R+1r%VJ=`>cZ13UdEe1MBhf_V$9JThhYtV5M^zn=Q1R1T^%gzKdT7yD?cL2I1
z+Pkd@qQAIxOa98>qGOBbQs5?NHkY)3!)Wh$;X1VPwdDX}Ry(RYtK9PT+--xtuqF&_
z6p-;Xfh#rmR4wMJjb_?TGNUdtF@cLE%bA*xnmMmt=DZ$f77@syNm5{)%~L^Ti@RqX
zAo<G<VWZWYt{!o%+O8tUA(PQJ<jAYg3CVWud{#NjPCdZkgM0C5a2S>ut-kh<yi_p+
zkHi3SYDvjvm;jE!_NDIF;&*eLw@%Rmf+VZBS1*8~JS&6TwEsj7VGFjw`NCM(lZ49c
zITR78Sdv~z57qg?AM!X}vFlk~Skj;f&Lm)qKg1`~xc&jnw$M2+=e-u&7`G+=*Y?HM
z{zJIgI_SoP`!SC|7Ccf}II|}|R~+P~%C|wlTCY_&={){n!jT&Zo!3V+v&-h>vqBde
zb+30B%`L)N``Gk<twkSlC2LeJUy)ney;7VZ@p{5rgiF`9JC&(1TTRHRz1CZs1}VrH
z5AnVxR}c+=vDr0VRChdgZODP@#O=)Dnz&?-Xh?@a;z~$}P<Ft}%<d6b0CY&H?G~^Z
z2BiWlo%{v57E7opg?gap0Ph9&mVv+Ca-|zLxj%he&0c~miFbLA-whlRd*!#^$cqFU
zjW=%Znb-2S7(fDOGB7(>699p1EHsQ{Mc1MSAdMq~nT>@*UI81U&ZRlh=O6o3y3A=g
z1$~AmOG2IdG@ikV5p@6Pp4yx~NMmMt_Ib=igS47l2UBA~$qQ+WAtGN{Pu$XV#AR>g
z7^D1UK*PJW006LEf8jL|Gyhn-rYCcW<sZ6X)HLE+7=3Gv+&li%iz}lRu%>$vh>)HX
zr&gXK0;00_4w$g!w(a(lZ1pM~XGYb3&A;QX`s6y(nPh#-<uhlMcG*9`q%d+d-q^|~
zdOwnug-}OV(&a)o5|(<jY9>mn$#q6=PQ_0YWpC!laR6^QbZT-hDC{pY?QS>9cZ=BN
z3mzQG(D25X-c%HvDJoXETRi&mR#j}w%4#T^JG9Sl%r}QJ`ewa686l0=B#TKm?dGr2
zIPEHd`ExxZtUqZisi7&OO#&gXwWn6DY^C#%<8(FQ2;UJA+$vS*zx6&=x>U8R=qH|~
zRt=GpP2R44#Yan0tV*Jh*}?7W8Ily1&f_nlWWI5Jy%SSijJ)g>NQOs_kS_p2E!!Q9
zyJRkJm|Ks8X2v>tih9d0`);!7tn(aPw?y|z{tG}GHiG-I$mPi|eG1%*yB)b|zWakM
zm%k9VhhtYbIH}zg^HaK^$@t>%jjW8MbxopIGphN!KP;CyR#P9+yJ=F}yWo=IA@%$B
zgl!jIxX6^Oy|ZpEpBKv-c$(~yRN7Qg4}>d;jeoS-2dprI);0Z~#*XH&*5CfEb@wzb
z4tGvfco7{aPL1~;hc*<RI-lW*5p94={a&T{J7(#Ja4X;RYW%BFwWZ2d+<d#Cnbe9J
zZFKyak+(g$SC5!fyf!K^qdYfwo|~>M!n!9Bc&}l;UA=ciH>?GIjrqW0i1p2jFRQIS
zIi9#Pt=qw~eISsG>W1#)OXQwmB;wL@wy4vEb`|L%gT}~%9%m^JXwtZe+hM0N??pge
zTIt~m#$#nvS`pM2mcc9;?+FiO&V+98Lt0T{l%)~r3$s(C3CO($v`?KR#gzLS#o*Ca
zJ?%~A1)e8~tb^Qo>S*`X$Y>ToI2ltQ36K$U>0e>4Bc0~z{IQV0{rn+=uu(HyoDHkQ
z7`lhKbe^pJILh0ee{T<W;>(KmqN9I-+J{Um#UA23SEqZvp(IJI;calh`sjE(Kwaz`
zMklHmY0%jGrX(U~xD9eU+!kut8mG2^FNk!Y$g4GBzvlbd7l)2%;Y4+|x%czJ81Tp=
zfO=?nPE-KtWqSDCR{H`I7~=xw)E7Vt>l2l=qZ(NrB#QLz=H?<^4f~4{k(tpkTnpJB
z)LiB6wJa&-3gcbBbcJCh=9(F8y?`u69&dd26*}?OJ+PagJ65z%B4$FzN&Wt+R(sFI
z(!kAEXH^Ul{Ja{t?L`0KJ2})968)t;v5=Ra5ck+)q!&;oUc;%uET~60{|2JIxW{Lr
z$kk^*$7^KK;)@!j?nF}^yN1?8aum~AR4;THymzeW(fe=blxiCqzDjN8(-x$>%Bf|M
z-b^4plVY`bJd3oVe*_@o|Kk~cx^b2Oyib%8HI?aVww55$4+0Qa1`}j`z;o~Jo(AC;
z6+znef85jZ!${@g?%}HB{899+TgQd#BXk3aiz6aW|2o&7d5m->^P~qqkN%(!CrJ4~
zZWc*P*EQgq9!O@7w2ax#rj#W#y&L(uygubfqC(sL&U*urr*JCz|LSZit#^g`G4)8T
zSbq8_e|t8rVYiEbR7@b_^`X5L@>olksq|ww2`gDvgV#S^8p!@|w>hjg7>-r8lI3I#
z9g5hyBMZv31@H>e@L&r0j(9s6Ms(-==Z!V+MqJ#VT!CRH6dE@}9ZddC$91;;$UGRH
zDZ_$WbJa3vDgbx`&#)3?;rdVTF(vj=G4DQ>eoUG2A5u>QlQeZSaj?y=X#7f2^?`68
zL<jPtPgbyBo^#(Sd`Ct>R|iiHhznZXBq)T%-C+-qS$@c`N7kF`*$mp!REluZT1>O4
zZzOApln)nlOQ@NW!ez94Z1R*SI~Y~Q9s<MpC)&1%v>=j4&Fv!sYWHl00l_#NaCI;$
z3Qk+UP^e$Y?v0h~0A3MBoN;s?m_<u{Nn{wa%~N7Gi12Cc7Dox<6tTTg(*#r@VzTGA
z68L;4+)8-gNfSd*7+LwT48GmAv?Ni|y{NRXmuMk~Pq9JQnK7b<ueFGVp&jqeQsEOE
zs>}LY3DPuFqzt;-Md#Z%$=Xb6K}T#Cy;>nb6!0UA<=`aveHLK?G2(f4?309Rl*Z&<
zH^tplQm9MZkY)7Jxr4$zN;7XEM7lW28u${xa)Jdd-hsb#7JLDL%mm;EJY{eHZCjmE
z4bNcg&r=6x1cPI)wh&~g<8LzG3Q5Jc1zZ<&k2&tSkG@e~RUiG#BTL)#l%TDJc5FqB
z`i`WRydhz09~9icbz}$!eLgBi`Fh-X$w?izU(j*#yTYV%1KFaQUSIXApdltVF$T6u
zy+Goj-q{L=$UyfrJY&(Vm)2g|?h$mkw;r5a{fYAj(;|7JS|J|xVZVo<8DzF=7kwlA
z{huDrCf^(c4J|)Z{;?zH|El@?4@IE=<r_w81qvsQlOtb{-#-?@nCme+d2rGPMxe2<
znQDaRfg5C!xEcZ2&KTRDCOs9F9TC*e9y$7qaFAK<K`GuLYG5x`&f2+g@poWP!t{5k
zORpkGmr0rm@k|dft%vHe?q_3i$8)d(H8a}&D()JlO8G`;<`4)QqyGMkQ9ugmRxMqo
zw<p3MESi}~iMo+5Y)vN{taWR>bZ)B|t~4tF^rlQQs6tT2`G@-a4bA_hPyfp`Y^V}I
zqt@Bi$6xE`*O##GLv5jMPoYA!Gsud8ah3|3^6HUHCTWhSw~;`Sw@12gJ)qnVJD6)1
z8v}zI6+}it+x8`ycr!LfXce>@BzaFSVWsi8c6e=94h@Di@eixxbkJIpO~@gU%!f4b
zHMmeMkNzv@r7KoWleztflw^mtA20jLx|d6<>OjMlDa4ZK0{4yO-zIE~e7_zS_BY4@
zOe4sayE(Xq_D}!B@h4^Cte7L_YBK2oNONXN$Et~5H9rnVQOmzAkc6A<{%{Gp0cNz>
zmKy~fS8A_oio65u8>~54>maO-mVFbLR!rfBdO&cIa_>oD<M0zfV}$jRcu;UrQujX^
zYmrz)_lfol9>Tf$Q@LP<nB&TT`Py4n6RF=EVA+1ne$PCFyQgB=LI_9dkfQCNV@DE0
z7xVbHri5i!!gF8^Ig~du|5~<dEMbpXBnHpXv`P5nIkHW&$yKO;YD=d;=ffW0upE1&
zRs`<}=`^X?7KlgQe4X`wsk^6^gSEy2rOEn<o8zlxn({V?$i62#JCq4Xq~UF(TWiG+
zqL8XE0&O)@W{ypJLozqR{V1UA;F#t!Y|O{hM=&4z@s&6(*4z;2EoQS&hk@5OyjFrr
zlk80f4l}6udT(eLG>$ezIv{4Q-_RThhx#&M$tJqeKL}?t)7wQ4xozDT!Eo3Mmm1n5
z=h4OzGdn2)8m>#mNvjh64BU7Tb>R@GMeP(|mugr!BStz*D#8#nS&8_KSx?*al&I+8
zHGZYsB%j3}0w%uz*k&-8Nj)_FQ;<r~?Q9!F$m4QQ%vNtnqRDdIls;f}FP*z;Hiz4d
zhaQNC_7(-*Lilvd06X^KK={a?Kz8X-SHONldn9lQMN>Jf2Ja-~_LRU%H|t9|^=i%A
z49}N<fGDPb8|d|SI95xm?m8<(RR^_QbXtTbbTO~doBBW~hQ2_$AOHoP$<O<De5_qc
zj8IA3E;~Mgty;=Q7``zSbhv&Xytb8KaNqj8;IEjzbTPrH4uA#SljANg?Z}Ye_{z3l
zb|ymXrhXz+>3jF{-qJc%6KhS(jRk!{j&I!!8tz~b3!cY?IwXS-C}Mr#hVx51VNh^y
z@Ce{lq%ote75{V=JOmcOtN2SuBhfghq9z<&(B#|S6!v)4@}#>^>XX0xG&wG(eload
z!AwTDBnS62AK?gx8-GVV$4~Es9{)QvaMGMXDqpK;IH@_22bIc5Ijs*4XD3ET_%5|O
zna(bad85q_Jd$v7Hsd~TjxQM^U7afye+HKArh9m$;)qqDoIWERt;+~M+pdDm1Qho4
zW+{mtI9V5GPrQ9k)u2xl>!d31ETCbrJq-aLt+6Un-a|`xk|W8$^yIS{f+K0K#O*IR
zM({M}t`E*39j6;P<Mfh*xKUkP{rFN4*?BqS<r7l1^=;TVv~hbzy>wiX4VX^L&HaG7
zk}U=5dTNq8cx9?w#1M#JD93lv2hhCrN4x0xSukpZbNJUM2Mc_>@v|BJhxQ4gvlgA;
zWNm@mV*Ym&*Z&+%qh>EXrp1zS1Q93jEE?{nE&+jkHA&oFyf~<)O|#ub!j6tBDKd6+
zcH&-!@-|Wq2s#!$M0BaSNo>8Kb@&G$?=uI%oI08<2_Gk0SzGVM*yPfVkeCMxj|%!a
zNCLQ+M29ThtEHVGJyKr6FoDG4tDGHo`^t{LRJjHqzHU*p2W^XhGqW{uX!NL98X+y=
z=oyAcTPP-WMk=vz`8t<0crpp%uq?Fj;ZFh!e}0IYHQ_LhKefW`p%u}fq%)+0m_)qQ
zrA;_@dbK2WMv@odHzo>%xxnK50Pui+w&A=W@e1e2=ewti^}QK$xl%#cu)2l(M5Cx3
z&nFQAgop%+4TtH!h@5gK@`HOF2Do&cwSv`bSA^A6)KB-ymZcLlPJmkMoUe1qe#DA{
zBc}HD&9@pOMxKB){!;g;E9V4vsoj-!b~VBgZ}%PzQ{6@XmaR!@x|6`Qm)+PN2yM$S
z-mo*f-8YMHW%ei}MZ~>m7Xe*3+U$T>t$60}5GQTiBI?HEUT3a&N|f)ZHE%hX3e@j!
zTW4$d(hCpC)bLkEe)gBG94aRVHdcwj?=qFebfYNPI9nFI(pyagbhb6vR>CFR9g`h4
zTH)_lhunIJod2XA9lTWH=mIh$Okw31&*Sd*>dh6w7CSjDqQ+k;bC^YpiF2F$1Aylb
zl+8FE;>Uc^x-qd?HYc3vWe_kE$A`K7qD{Z{)MR6H-YSqdEp|06cGYv2AkB;CP6Y9J
zTu~7hP~tgnG$M?JCnD0E+dechiy=lQS9Tv0;A?5N-vly&%Q9NrdNdc$Y$@C@kqN#m
zkWb4E_o5gU9ylx8+lF3B$_GM^Y$N7&uh_GP_FPs6+A45~3AM^xH~F5_{_A1E2nP#~
zy%iJJ8%yeo*zali3JLJ@;hsz$n6r<RiG|rhN~yQT3*2><lWaK3?F~3~In7)-NxqoZ
zs2_2zcZTE|WX=>$oT$B_L$(9l&(2+dc#6~c?u%R><_FsH!3*tJd{g8_G=6q*32R_E
zO12d*E-8}J90|M4>=JuVH?gszeMuO_HsQa{1`4UE>DX;XVrU0Q7)*^(UZe%{E3HpV
zSDaEzy*^&ep3|;DlQax!Y2w)SZb@%stA2yJEMDlv-1a6MUuhz+U(wpcbj31Vj3)<a
zWE{W1<@R{!$F&kvt*z_L@x1y=&`R1tB?`s}ub<0)N;^$bks6{Re4tmE$QsO!3S%e$
zFq7?&MiFBTKzT)3`a`#r7uvXt9nO44qT9+#;$yRy866%uEL}ml40tpKe)jH<&Z{rb
zFV?Sh-+J&UsK2aaF%H*Uuxu+^*>X$RDN&zNZu5ajGO?QgHukIO9eTzn^0(G=d*pG^
zMfEc}gF+`=#;Ad-j#=3eOO}TZuUissv{vkSX^XVac3m3j{U#)2*AXV#&>rT~woLEU
zTb3hD*g=YdYFDs3FTaHCZK#E$XTvYIW)SAAmf%omGi{T$NOQF2^p;RvvYU)Ng>Y4r
zczIugvYj|^#@<-zju@X(;ut#v;i@T=NSh(?XsRTbU2QQ{LvJI!Ll|>{u1Ok9j$0$5
znccA?^~hn3gRIwN8&})$IyRoh)oP2dVony$xf+CI3pr7NOkA1D>ep~$t%_BKV4Q7@
z3fW7v#>|szM%GK2fra{lUNN~}9Cp#;q=R1TEJ4N0Rkl5$JxAgr+;Eq7B9Wf9AHu~)
zCjcUnh}j><6g+)}sZNX}(9SPszoU7|js%Q5x?I>vJV9ou<-4iy`13$e2RzbM|5dhX
z%XkkIJwJmv4BCkFB8zXQn^}dnb2hkXB<yO|2n<xmMkD&8x0Tr0c198XJPeJbKoSO=
z_Xeeb>a3_mH9zVY*F~Qcy>g{mIBf9;58$vb$FJGr7?&4_T{0DFF(^~Rt_A+Ga08>$
zNAE1$a8w`(x4cXx{`gAHIZ{*fG47#j)eys*szNG+4}wj=jJ8AGPLx|OS;gB3L#37y
zfDC7}a3dQa6K1{CEMIs+&_BjmVCys1OYK2#Cz33yU3LCRN8X}Z-p<HP1hH(5U=6OB
zoc!k?57M#xoaQ_r8=*<HQ>y^MmFCwN;n|b_Sr5llX5j#7uOKlnF^;%x$MuIIn0raZ
zhZa~wl2yEe&>H}p4gE;P`eW5gbD+Z;1GrK@hnlY|_gFA2{2F^_tp|XEO<N9*Uet@t
zxrOjc@G#aMfsttjSe#jjP`GaPCqtjc`o6SD$}zOW2Av<_JsmoP*zr$!m-jXd7^hy}
ziFxmPsP7nBi_ZUWspQt6R0GByhV3n|9R8!(TQy&%=KBqjm2R)-Zr$|lEj@*JVF*hY
z9o|JpV7+Z%h97vlsoC@KG%vt&eEU2ln6RZp%d3SmOtUwYNy?rICLNRZ-bYurnQ&?h
z1@ZvkakH0JnQRP2OD;#(o%+nd(2_|HUi7vyqN4JGOQd{d1bv2?fKnpeu-tmuwjckB
zhfs6MVl|sWT%qr6I0i?Tg&T8r3=no8W)vdrdrdG5G<#BIlG|d#sejQXgaEfhKow0g
z{U+|^X$p5E-2)J}9#DrdlR73C5Ths1{zCRRn1i&@J?SfiEsz&LrkGtqOTszXN!ZWD
zU(gZs1;vf%_Fo`o#zXt3x16!MHu9ysH|)WE?OW^@G$Hj1GypiG1EGsj6v$0yjeb4h
zu=I1YN5zES0&>f}R&osc1;-{JP=LT*NeaSqa8S!W$DNXt+vUGYfp&uq=I3RWi-2PS
zxb2*cvSrQ0Jz6@&uH9mkUU2Aa!H)js_5;EwB!%KQfs?~<8{(@f`P+>?(|_ZnpNCrC
zy=Sqn>IS|p&x9r-qnUkRjxN?nVMw@tfGw&_jt^*vuu?kKUfQ9p0aW)gMf>BFuZ`9g
z_safL-5U<=ttu^*b8xPC5REh@@kU?x?daEWU<c)mNzr$q<NG*`Ff4-j&o^`<QZ(0{
zbEtbBHe<s%XoeN45TLIrlSZLf1nEd(@Q3}vj2W~j1pt8kwd$miKbog7qjb4{PG4=k
zWGzmCakHXf>3+>#c{>XXdjiP!C19mxPopIO>pk~R>s<ppx83+X+E$TdgSV~8d1(CK
zdEYUBW0RZQZ+VET&|oN8vV9rXgpX_;tdTD?*82wq2#E;wksUX%g%ldwjJwg&n~O@Y
zyw{g>J>Zv_nF>R~^#ed8x#Hq9P5^4cfwdPF(>Y<k3>O3SlxAA}kp-ckhmW`Y7>+9`
zl(QXg0&sT9UuJDS){Rv{62Hb4b|?dLPMlwEwl&d?$of*IMyJL?!-}g3nz|*HxD6Zm
zB3>wdM%dAyXILwo9AbOv;?{%5goP1n1cKR1W6+98?~*s(kwnt$r3C%T1_I1l2ozaY
z?x*Qh>Ci-je0DMose3j!xQ<|>UYL_TAuZ_k{PjJ9u|^<F4j;&x%5gB7E(?SdQlo}z
z;_OXyZV83b(kbOHMkQ#URWGxZNYZGt)M_mHFwuKq){f+X$uU7Nwg-~uly%0cmgAI&
zNP$<%ol4z_%rgMdkZs!&HF{5;TD1%<E!=>6$*lEQFG<*%+#BYp;N*k$KWq-JSdzwi
z$KUu#z))Gn*}k%HSdO2o-c)*Nh9Cc9R(Z4^maA>{@5=Q_|9$k<Q3r>p-<ey0Q&qOA
z;rcNF^BaDe@2vv_q(#Bq<N2cywAK(IA4suN-|G0fLM;WM^0OmtfVpSi=|-xQ{^c*V
ztRBJz3SN!utWT+x3XP@gFBQ)&{5AHro>}p1*z2XOyhGTL7C%5s5mcol<ZY%uNdX5b
z<vE$rBP-|u`>S!5#l{tFn#$LzOJ8XXK>;@$P+rm#ZpxGepm0b4g)Qd{D<eM&f@s&k
zO@2Ldtls@?rvsmk|8>K@w%E9C@%O~t7(4p17QZ<{x2~z)oS6t@KZ{Xa?4(6)Qm#~*
zdYvm%TnriPOvsBoF+U^wL%4bYk1W;RP{ZyNq&YN64-4YHrhpWh&a9_c<xxTXT}#Rs
z!Sn^-%IuMWU3PGrWOn$sr(GqUUrXw~{iQ}&tjK6s7OM-arf*Iq(RFI^J>Pzy{6<~N
zVclnv?B&UagARt*E{9@|B^qrE_ZqHsdy*?usjMazbSBk)xw!XQ%fWz_b0(LKt^-kN
z8*Kv!4>_%;hbn(T_OIyU)UYlN&cVZ)#O3QP@G$6VeEIS@QuK(!-k_GX(e1NKj%wKG
zf?QY|z#id?hdgH(i2AcUUzXo1jU?gNBWUi31&c6{y*y}*W)JSQsalJgU?E%~hy^F0
z`g3D0UaR-JBym`lC5i0zkQ?|ULHuhk$e2<=ewx86rRu5`|Mdw7a&y2OFOn<Nhx_$W
z4!O+KT5Q+%9PPFdYa?IU)<M&vBLY2h_^s<uIEI|b?R;fcTq8nyl%Ip9lr?<F#aSy+
zN_^{lM@4aKxH)@_1rr~^%!)lN=ePe+ZRkE>NwiEv)nGE)#d;&}oo#tIq(IJ?xt#~Z
z$4T}tZJPTJQ+dB%8s><Jxzkfg7_7Mc#JPF61vE(~x?KoalfP6i8obKU1yHdcJ1o~c
zp|Q5{gp`n9gIu02Piv(gWjE29WN+=9Gz@=A(|g3~j(xZP5PRx0sXUvPUw@gY5V)-5
zLHA21!3ng$g9SUKpx-=tCb?8vx|mEYrrsC0ui1#Hp_hiWFKH~$Vx<d#iyv{cgE)d6
ztjIEJvAO8fAOhanJ)5NZ4!E%l_+&G{5g`1~_?%_0+vKvvmY{>0;x_bjL%~asPT(u^
z^S7z@LdyrR%}#e@g^en{0$9~P+gx^p1FRh#kp4+nE^9dg7)^DzuuqGQ(|=swgMSy@
z{_WoWQ-w=_CReWkJ}E)F%U{A!n1Qrhl?3<!3VByNdMdty1h*JLZtooa?I9C@J9g62
zUc=PJ$g#l<;4&7LYAst3WNq}C{a2w!bYO@uh!BR391N)#H<4+GgfhPXcV}ccd9-z!
zp4e}6mYo%js{LPR5BOTw#wLAyq{pRu1iL!;7f%whkcY4Tjj2uo|1;<`uF{A0H<i_U
zi6BZcWt=W)YzO}Hb@aFm#}x=N6Rej?CI9KcwhK3S7VCsCEO+Lg{VgYo0=4|-b2LcC
zVgK}M<ZIP*!qaG022haxXZxIGHL|vTejj_RF0vPhNoD>yhd55$Y7}EbFOVA??NVFB
zEt}}g4tCTe+4KGXLj$oOUvY|qgWEuS_d_8!xsE_kS`T=T2Q)QO1j4H<${EO7u>bVo
z{^>8^7$CnJ;lFG&NJ^f;F0}Dq5oWxsu6*8i>hRqIhkrVIWY5okzFu_OUxAJJS?#BX
z+jk=l|FLT|Zspj&<S#qMFN*)N|M$bYj$FT+jCkty`%ecI?=~vp@vPpp_W3P~9*qI#
zac9yvi5uPQ!p)$)vc^~<aQW=@S}Qb-8)S|mY{*IL8FX;r3&N;H<8gkzk3(<}Dmi&f
z#nXk_D4jBrIUNXIPCob6K4d4%-D8nB>0F*Qt<c!+kt~xwJ*j98F1Z$BTPiH2f;@Z_
z-aA!ip}sU?XO@JjdNwN`vr|lU`+ZdEJshX#t+>^Zq8GuUb9t|?zB-0l{I1G}U84wl
zYoz2KYcR_jyS>z;-APsLkcM}OTQZWwYImZW5^cT9tvAjn1mil!yVxm6CzN?)SLs#!
z0ioLkX=|rWI$xE10C%8oIf4_-L&8xDI*#5}D3kB1=;zaev7<X-|KW_QE7a4t1Ea*#
z5f@Ph{fbykos3o~znzTccb{M1a}K7?OkAs|osFEcO`}t<I|;cv@w>IIBf;BqD|CTZ
zGv?ihQ|YRO6sVr3x1+Lhyo?Xmh0^B|_tAF8P?Yf#RnnU7Cf67+$3{U>y{ttrXI({9
z&!5o6fY-8BQ<uSVefP3!{pyTCCk9@DgS3`Ruf0D4j)sgT0F&jH7Ve?jI$C@QvcNyM
zCCjl*BL)g)dIIjX)T^1Qhjso!E!6>X4;hrAc=XDn(8&j)mIT#e4x8MZLyX?21VfsE
zX@N<3aFi%BE$K?gjTs1sT?8BGWGDkm?cs!=_@wL3rB}c!E|lvC&~q~*+6_JS_gu_)
z{7~bREZqStxC^i7yR76dUvPE;`6n~_T?KI2_8*(rR9&&nP!zSzf#^JB*@1KH&M3SW
zZX%#cM;j)r@JH-XGHKJ5V9U|G#Tvz=Ym6tI^qidO&VLe7>Nr@TpS0YAiaPD7Miu$h
z(>Q%PLlM$T6C)U-rioGkJL%l-KIh&Olsk-)8?X#Q?ocWoW_OGLX3!K_78SMc!*-PI
zvC^>yaELPsqok+V@htgv{co@2^A*Fat}>(>cY@)Q{WWPcE?SYeWE7U)-9<R<nd2O~
zB-D%ZuYo<^1x}0XA`EetG883rs&*hb64*wUw7YOfM4{_%!ih5a24xz8P{KrC!`<R^
zII-}o^xsS01^hW-?`WL&Mqe1ne$NHSQhx1X`4w0S2eSnVCJ*M7*KU(F{}S5OYbY=%
zd3s$@{#wW%s8YqPLPd&Hk-VUL%wPFO%OFdn>QdJBJ}~ce2UXGa3S)`N_z9ysC_JW*
z!INzsvfRNnkQGib*m8cSTHtd%dFQ|dr16_Y!lY5%n@Hj81%&`R)nYqEgNqiqisACf
zq(a%=fU=!L|3~+fJ@kc&$V=5dM;lNr!ZE7;et*R>X^Ibo3p&}F_WrW4J^k|02H_Xk
z(>sg*a^wHMfzo!H-;P?OOtPH(Q${}5wgm|9VzhiXsrw!tcFEK3Y{KYsJ?1k<i?rsj
z3^C!9Uc|ZsE~Cs0MGCxYXNDFjfO8X*Z##=R@00S!QnobYQ<OnuJQSz<-ayAh|K;js
zk3nIAct7h!-I9SiZs2VE)V5f(ckdkm*A8w@`y_<q-A+ipH_#)W#=Cun2H80BETixL
zC6uk(1Mo@>9i`ZwcWq#WuM`2LDf_{^p^<S@nGj({@Wu0J!;*n!2U>BfTCwyhBTrG>
zf>G?N<97wXEhk^Et4Z<;T*HP3^)buvt0;74n1a$GR*`sxk>INfWYQ;EZeDenP4U&e
z`$6q00|!<^hh6eP?}2biEEx-6m&|E-R94n>COBHX!yL8v%4NV09*#o$)%8m2+?M}h
zp?)Q#(O37*55}p}PX>YjdS_!ilD9Vi=s67mcU;z-Qw&$08vqBP7_mIZMs$)D<GG@1
z)*S*Z{3fc|vZDGyeY8TyJh*A_qVq*opan{z@%!ZwB%g~JPaDdH4ms*A6jh?UN-#k6
z!Obao`pYHpo;5Uo+qc&9XBSpIdFGkx_MLBt_7Be|vx^o`h6Ww4&Y)k9o$Zi7H5hh;
zqHY^B<};xds3aX5@*}v(OKGflx`;A5D&&y<_t(C<xln-C9A+Hg+u@2q*y86U2$JKg
z>+$m;gT*pm-3JH!?^xQ#vQib5-^EW`pfJjM${o%a(oX`}y@o4>W4s}#m-*KyE3V)~
zFypCWsd>oczbHaaasTli`g(TqbRsw>>#i%x^=e2oiqp0#6gK<$#Vj!nYTFYft+W-6
zx`fI)p6o6xgdnc0^rjs|jVW|^+zk3GRDiO=z=0r;$sN6pOjLtON1=7l4!*T2hI^C6
zZ=!b8U;5l-A%Tl#Ld*n#?x*Y##<c(48Ui!JM83xdg43i5+T(;_>zBg^Txj9ZD2em8
z=Mtn#gr<HXagRFmHU%CK__{>3v7HLIOhBYDPi7YwgR5rXFr^V{%T#KkJ~8w5nm}Z3
z#{bQ?_5XGGgEhXoF>hoY9I4vXb^^NqS$prH-_1^$hM=NMIzmuH<%lp;Yiz+(zoI=;
z=q*}yCr@T)c`I#QMJX%lRj>#YrHEh@{dB~1%IJ>m0Qi5`@YfD`))r?&5n{<0y`UtZ
ze9;2+bcv$g;r}bKIdj_krs*p6rw(;Rd>*T|T{*&BX2+53d-`!>To<Qn%5mv5Y>>YK
zrsbfgyA^>RkkW3+Gr1A6!dUHfDPUJEyEpNjjO66o_}^aPk_~_9=t3D9bts?~!HhaZ
z&S;REnCNM|Sq4~tB99eX_@G|Eh1(keBKM}wh%?XBW=%_iH}c1xFZF>-EEpfD6Z!K<
z<%nyo(44V*2tn_%dy3%{SaK)hxOOK$2*pj__Ug=PAS-P#ujzKcy#V7E=wR~AJ0X@L
z!lTNT-;*Z;C#a{o)RiOrP?xOpeZoUf{x|c3((O>JB5Lk|(kqOrLG!R3yr_F&&rvHn
z3n|6-h5#VLSf;LFPDcbk3KYf@voQdWH{EnJzW*n4<FuYphgl>MojSc0EKK5J<T^fV
zAo44swx2I7gBg`zV=|og@Vu6|;0K2w4N-t`R$(V&$;^R2s>r$$5~kH7gs<5r099jG
zN8YO=3&W|?z2GLTXy7NWfc-?22abw4fFzV6?n5G2Cz-c%rc)G~wZfhW-{OCIPidM_
zgaj3oJhKj}*>P_>UM{8twR64U`!5Gvgq;)rdo~mZz&`ulRg~)$E&2UfLmWI(1X{h6
zu4rWuGFc^k&Yhn={Yc<wHICINM?|8g^2eVa00Qaej4%Zdi1vK)U848th(B7P)VE*R
zqbqre#GEjN{K+?9%XFYa%&U7zipcXooZrDgW$7-Nf<Qn1{N7xac#Q!8*XUd)x1zT1
zqSUpo+fz2IP=v7=H9Qc8Us$TCTBhMjd;MKGqj}P~xLq+F!zN(M3tt}_t~?OW3UgBW
zM&~WlL$+pKDzpCpT{OG0a<jcQdE4<4bo|2U_XNxv_AOW@WlRZ!j%HV7_SJW(5dsA9
zS{ZQqFH?D#`$jQ>OrTZ^ME-q`;CHXU^M5q~&;-Y;6<Qs;z%@!h8XN~M0aqA)3KQC(
zmgPejBMminrh^M)e$zFG&S=dJgX9MF4h(A1e<#zp=zV3ya_AANLBB)HKg|Ts0-WGM
zl%aNq!JWIp*x+#Jie=|b6!~-nOvh^3<<&I25iPB!(?LmYIGrd2$-_@SfB|fF#Tqti
zbZDW*lsbMp)Bg3jq8TeXXr9X(0_UWii-dhrKs6LGPYA`PW%aNYp?if<)VU^+7yk_r
zfl^l<NtMqIamTYbKw2^2vNdPJ<59qtJ{Y_}&KK>k0C4&=b*A|Wg9F|;<k;S%s19cQ
z)k%-`?A}?dtTF%`9Q!o>z3zIK3UH%fSj+BP8DSzPT5Q3G7F8h@k_iThsq-==<`o{@
z^)&Vq#pX;P9lr2u2lFP1M3lT9HtK?!c8rsY^f_d-{>8WU9Td)5?twLP#uc}sJA<(v
zdf-G8-sV}=9{$X9zqxu(s=dpr6ul}}7mrlHpgP`*%4fBTn>3JWdLAM;8#4wITb8Ir
z%L>;XlA3wQcQHtKYrx1kK3dNuY{V1)?JpJ7^b>H7t4FG<IfEu5Zm3}<6Z{7*F!T5X
zZ==@!glG7np?}{6U|EG&B-r*^gyc>o8mLif0{x4fD**~6pFLkXr=^_9%CYlEHB*k5
z+9fLUTp`J@0^s4VwO#}DuC6X{$Tie6zaqvHMP>QWZq1Q$kDJc8c{~k^V?2`I{t4`Y
zo?g|q14<06#WB2=nXGLs{7c{*8X3K@IFhVb3nT$jxNRpCK^{7IV+0@S4RE-Z5Vq8L
z`sHnuA`(44=T{WMQsmcov?s~{^owf(?QY+DzZbt;zkr$^R77LTJK-q9$<GQ&-2iuA
z{3u@UwaK@W=?FR;%y^^7Dk<;m05_EdQfg#iW5L4V_xmp6ft$O@)5c(92ai-;rHJ(-
zW->2;J-X-iwM1~KH?;4v#OV%i)L3ELukFfP8)>ReA+6FuVH2D!2A7UBv3Es4QHF*c
z2Ki$$N^ZP~0~Qm@=U+}1dzsK0<^wye6!EsLP+pk;|454XZAMop08CZ{)#P>3sji&+
z)QGuiQko;P+P%{`VkTAP>DSAei+cB8y4(qWF__RtPCiQ?t@igNmpBL3cn?LX%rGkx
zOO^0_TXX1%JE2}T$3wqMgEzP<aVBFo!8z&=4_X^v#7^PBmQ5=k4mt(&Uc<r<abYMU
z^6k)`n!N^bYQ#}#S=Jg!5k@~<bOH<vN1|>M0QKXZSd^*PpSko|zbRvS7jP*)_*u^@
zFqHU)u88*|<`{{p4(r`_MnQ(oa)5PAqs;A$V;uhlya&n(4UmZ@1&KwO(ah;ZU)_ft
z>HJf$0hTyeuHVV{bO$ow2Dvyns<3w3>Wsp#O77+;d2{e}U3Wd^vAY9dxkXCfB|afB
z_mybFucnn$YdlXlznCUmN@;dSJ#zBvDq`EA{Qc9$Urgr<-=*G7x4N8Y5#nGT_{w%J
zpC|f&f*LFORMY)dK0mtuCvc+W)<*Zwdg?RC;>6-Jb6<XDJ}b4r+mWGnQ46($z)p{+
zkhk?SmQ`TyuYU98_Po^%ZA|g+`x&p%@lLx-?OoQTXXiowr&n!QGWuuVSyf$WdYKng
z6LzNK>8r8YDDU@8DWL_+Kh;07re><5%y0H8yxwJXC8F<^C1WH$`u%v$baHBaboGnB
z5A6!G&$tpD!QIhn9jb9fQ?qA6b&Chf4LY{1dW8qa>(y6WFK6b%m9|#uC%9Ife|+b^
zB1L>FG2gn?>wZRepPqI{?#-qWYi1?5*RNCvQ6QUfla8FC#1FDF<+?M6{uJO3=-TjC
zuuFP~$20e%1VVCy;><o__z41E>(fxBSkICg;V37}*l)bel&#28Fy5a&0&Ys1_Gm;C
zF#W>PypYWQG5^K9syM&2uO&-gu_GZFC>abYvaW^PoT2N28RHqyalMXqvw-$BRKxv`
zP|DEVc)I{_$SqXdX}l9EQ+Xt3+5l|)a(Wz0O`Y!S%QVsq{HP3gy{!(#q^pc$V9RS2
zDl;;0E0iuXhgk7W(M%cdd^KP>ecG;ZBG5d<5@n?vVTKY{#Cv^a!}34QodPdY;k+3|
ze#&$;xK|n`dTYolYE)lcxp@9$HNw*Jk~F8vXr?~O4=6y>j5TK(>d(&b7tz)w1FpUS
zR->Bp9!;(&J~-s=3`|)O@75hj88nRt9ISt=PiuSfnE#)Q<nvEMea_4vm)-!y>1i);
zi8&)dk)JV*02{xU9_@qW+FG>xP}zfl=u2x~N`tga*S=sZN0EWck<I$P%BE}mn0@K~
z;uaN#lfkX0XoS!Nwhr7dda=>hY(VoWpf~pq?;{a(JFL%9<nL7<LFe5!?UlVw&ruYY
zFWo9OP+;;!!%jzZABLjSrfIvNP3J2SysG2qn%*v7AAQrnoaBN2He*D{pZX>*82h5^
zEZFJIA&(-HWGj1Xs*mI<|9E3A1eK&+qub-pk*SAXW%ykmmzRR*-Xh(PpDnf;pVd3B
z&ZX7dIj@eO<&BePBfi@!_q6-uum?e*foVq@;u0Elmw<_ME#}=09m|{ubTb+4Z+pfo
z)TR{~M<d3vefl)AnW^oeeuMCdQ#1puN{VElit*Z@WFWxZr>Kn4VT?QVCsk$q`HmxE
z%ht(C5#12iLJyc{M9$F$s7F=70jfLkjhXn3xdz4Xg^$9W%)YcXSQ?~Yx;6;xBs?(Z
zWi+%uDt@-mN=$<+mol9T=4s5}e$ln6K%$5k?!k>D`<m6nw3@!h`5rcizD9k|lutL#
zxT-o`4Y}TF{}9VmSH|-;3H^WNPlaAYb*U^wD|c{{WwMT<iyPT4Db=g^Ey3G3#R#WP
zX|6$@OuMY35j8IFewNzjQ7#^e))(&@{n#-FheGHictG_1J>!=$$BWylj-c<>lWX#|
zWpiup7+VA`4p6L1v{>Mf+>|x%cTL=zO~$+rP-YL!e<Uw)YojRfD5qG_+n$!e+yjx;
z#3}*5SH*oj)<2|of3%(<p&W6$l$TmBekJ6YB2Yt?05)qNKO%7HcXWO6X18^7{rt%u
zC$zrrTy;ban*?6d%)l6HxBSk&J=*NnjIT%_)Kn$tBpl7XRI%}C9f%TxtQb94N6g~K
z`sYtFWw1@Bc$O#;PD*j~+ihxJhMv};&e2k0;~T4yIonResdtq%FXrqzv(f$d1+4qG
z0it3_;6T4k{3sT3qN?0#!HgTQ!5`i`)#g1THuci_sHpSRl_BkG@z_#tt_yvxLt}O1
z#kr7xcZ(S7qgHDr2@BWBoI%^xkKQlXBwK-)5wyE?<k`!M_R3Q%*I7IuO8e0!H~CwI
z{BQTy_J*XK%)ai3=~d)fm82kN_XlR>-yptW*$=_LJg3Y@?*59Ys8@d(bkoaes8@Ul
za<?lj<q-Gkh&-g|-M|fH<44_a@2aOKs~soK`gowRVC<9>HuRQh0<lMBp*WtG(Y^<A
z)5P>y`lJP|eeO(Zh&^UqOyY7f`Ax)k>r#7N<7b1VE~S?7C-7F;gYZC?>1gOV7rrNz
zGguWM=Ta2&ZBC_29b5sqCHAVUOQj3C5rMCWif#pbB&oL_<DbHh>ttBzjHQ7&0iF?+
zTWdjSA!ZYbTVb77@I8y>jP}$y@so|dT5l|)PB;%}X0)f*mRrGp?XuUlnX8HiwD1gU
z$`UnU#Yix9IuD;+<-Y|(zg4D8vwkJ=?T0pA%sMB}eKFi9Txj!t!68BKRDA|)mFmCt
zGYglzMQi?|d9*=8eh5Y*X4zfJpR7<s&#O-S(g6lkz??xzo#T($<$84wo$9hTScjS_
zcUNSm&Xfk+oDE8y(IpkEiKNa9#0B*Q6dprgCIg_LIcq^5I0H^xRONf4RHO<*GfbZn
z2T)_@W_nhiNkRG+U$yg}DUqHM6DrxrWW`blPE!k880zD~8H7$%e&*8jHE&HDLjf$g
zylhW&;y+1zG5KT*$aAIF)A*-5Soy<gzMESq1g_Fd+hK1-JwqJKWBk>$<(cG>iMPNH
z2RpufoDWT%p^$#zPj)h7rGmQhxHg_!#hEF1ThFazZQAxmJ=A-vr1{a{Q{r2Hebcp*
zYf2lw{+(odbjq|zWHUjnL!sS=Ty#>$SobQUg37pb^P2|UR4*<k>s;s7H$}ot)2EGU
z9U|62c3M`nj~F(aHvv}jE!ER1Ec9P!*eHwx=x*QuEb3zq<~Hc4-)fG`;i!WG-uCE0
zsSbr4su<Y_JoWMW;}i+f%&w%aWW%C28<wL5s}ZK2jS$bJ{ZE+7$<?c)1DM4k%ByLP
z<9O0S;LT-c$)M%ZcSQ+(yF6;|>(ko2pGV}V7ZskYww*Y85{i~f4vAZ$IoIHll01!j
zG44~9r)T_|yUxH)x<cgUCS{dONqXTNBfuF1)W7^?_{#XEp#hG=XHe-inC;T+REF)>
zXV#{`d4gSX`r7LbU?uB?I6!niuj6pEHXlHlEgE!)@aFm+UY8-OaM$crCy7Pcco6Je
zlrt9Bme9uoyQC(#2E0s;I^*e5P$H#mY?c@Q(ZP|msL1N3?Z*Jl_;iGwoxy8TU7&pP
z{IS}UbM%o;W5XJ&5i9%7@wZlZth~(-p7*^cE5rSp*5`&W)6DoA(#)QR!5j0zBipyQ
zv~HesgFe8MI;%6<L|XaKtm=D%fOwixxV>Dd-#b#W*0m@X>ocs!Ddhan0TW|&t6EM1
zxRN{+L9;GBscgJPEp^en7C+l)HU80mt$~H3EH-!hqov%ItDx_BsaG4-1InnrCzVZ2
z(ABVjC02MKiksof_#@#Mx;@_|z>a#-4h_?^Q}6NP@O8Lm!HB|}8y_>6_Vi84C&ey}
zRmr<92Duh(1qp1g_ZK*Wbg}-B&d=$}=SPOm0Lo<MtsQ(X$)dB{=^<?RWcG_`@#L%w
zl+VbJleZJf<EE*d^YiMt{ztk+h0?K4iJ8B8qER8OIQ`Nsy5x0w5%Bv(eJcd*cy62b
z5jIIBHlYs?LS}ei4l5d($$c5IWG&L2t)n(<?#Ou<o*PTcPP^f;KG+#)kGcOP>FO4C
z;U-EXIV){?Ej0vf$ujkd2U3qHl>b1pHDfp>Q^W>IuD-y%VMpQh{@8S?&0A$=A@O`&
zT}5wE(s>8S@aB)_lCt~qJqGV1DqnXXZe5iuj$DH>)iCi7X>S2lOPOwUw9p9f0(^2H
z*LCp<qv`6nL|!IKR#L~f6qn+<MO$gVIeT?neMW}z;#|8YwCY<3%Iy5a_ER6W{&`?s
zch@)1UTxNwG%|hm1tZ6-jsS4q0s#7Q0O((i*14fk)v~w}>C>j|c0(iC)0@VgwMtvp
z-)$$G1<l_-AACqQrT=S`m7Rh0+`Ic%Ex)JYojncg6Z)uNr>l&=ifXt^h2$GZm}j=N
ze-LK$fx*3$Hp}+~fWUI}b1m8niqowI6gTE;9685_)q0NW`$ft1sUR<RLL;@-fb*h{
zdiO65DY?>=B)xz^5#XUFoklJ0F$(h58MtM=_FuILp@N8K>ZA7!fa|PFYhxJd6#;<F
z+e7Y-0p`L4%;lD}#G;l8G;B-dPZiUrH<(_c#KIdqrBsGQ{FgT0jKOET<X<UU_nuLF
z`_qbK8`p;h<;$6j&PegX8`1otr9Z>ITC83WsF;xBo^-1&Mb`Y2)Fs2lcY)^v2RCKX
zNOz~X`%;!7AHq;`*P)i9C1ZR1vNmln5(S~rMMzbHfX5q_mz?Il0EXS3Ah2uY2wB=4
zbUj+XwCCBE(q-=~UKj9g*R0Ec#Ns0r=2FKZao(o=7tKg-&uqfbFB8=U)pi!N%luqm
z*4j@?=RKW<azv4tU-fAu-B0S+8@v;#3|DFFy8+FhsC}>EdVK~o{S0OYH0BZY{+>>d
zpkM<FNo8XbXGe&Y9lf`)&m$taqIv8~bd_)a+!wk{4fErP+JThdsZe5PJ;A@kx-ojf
z@6SLB^BtZu|0Dt?tBjDP-9kq`2Y3d|S?(^tvmwCqiQfU9mF;No%OU_^+_-b!4q$ok
zm*ysg$j>VPpnw~`%cHAT^$OnsY&REiBPadOZ7cI@ONx+|35;gPGyJ$qLH_+2e-eLk
zrpN2Z=7K*)_2-vc!Ab+@fvOPy+f!|rj7eGMYTmw$T#JDValDF(#<<#s;$ZC~=+<8s
z$QCPhbDdd0WR?l|+V#TBzletaX0|?2!0cFQiANUC90+Sb2Xi|PZrntLsxZf+y4hZz
zfF1Vq%+^mHK|im~E>=sxW`2Ceb5fyPFsRH<*Z-*lQ!z@l_pI6oB97vvAS0N?v?A^V
z=jo9e-7^-Syq~MVOfwVv^6nUe2Szb3ZELm`4+KDLEIxWuk2L_Ch5^M7?7@yMrKz>*
zt43zxzYw(iiEkWp-oEJx^^s!_TC{n)a7Y7nhoFU4&i2_r48QdMba&-(Nv7@Erggry
zGtF0%SvoT!Mw*rjmK*g|Dkzwk5?MN>s3~Y_Xl_{3Voka9f-5Q(;=bgD<AT)J;(%K&
zXo_NuAc+e{To6(DUgw<i|M$=N{m$?3@4Ik6@BQA-bKlo>-Oq~~w8Usw?eRf(ANGp3
zHd|lU*v6$1Htf7i$PMmG=xRKUw=w&2P9I!|hU0pCP?LY)Y$l5=Tauthfcj8B&8cy6
zjwT;F7~pPQq!aDW8o7`)YGsCQD`HfFvwCt5#Md4M8Y>&r$)JveeIq>l-r~>s&f8NO
z(xH=AH2bIZ{31g`KHZMf#g<HwHp^DVQA4$DpZtZx_K8iRq7ZBQ`A=1O3*_S9cv;h<
zXi{DSg?w#%$){<!XxrseXzy2J7fYs2`VLq+J3Q%GakIujqOSsPYlox3<+P0&XBO;p
zTQ0ct*3d5};%gDr)>M+zaTc#bxA7xwj|bV)LxG`Q$$t#Hsx|rdtgAB2<RVlq0~Jm$
zhi<K8)Q3LGpxV~ln_<65T3+aTzwwr5-|jGcF&S^IFZrM!<s5zqID+TwInElfR7c{~
z^(zuu^HBGVmvL9xTAZ!$V9K!<*=Vz7=k8E6n<0qsb>@>-Um#o4>ZKo<A4WpFhEFB3
zS#bt2tgZx1c(^Ck$cwsqnctEsIM^vezlY8x3`p$BI&)dzpmjE~c(NDxdi7W3`Ds{B
zL6<eMX<tH~)hK?C?OfS=1vhwaH#;7io!k>YSm7l-*`8Yg?|P9~NFj<C3TT+8hvQb_
zfv26i+m$5^){2`S$B$%n7P$9%#|^i#(O58mjVAi~7wqj|IvUfNQL(Ze*}8Gv0rXU6
z6zq-g_A}j#FWoN&*);*3fm4T@ZVpiFVm^*1b<TP+hu0BPG5=G2BpvK@XEb$!Z`UNQ
z;X5X{BAcIUvfrZXFId{G>)~a!96S0$z4@{BD%YCeoJSZp>dBQesDOpuY#}9#uk#*1
zFmbvrD;}BmTug!G{#N<v=mEOjN;D2oLmETQG~!sRdL}6%@sprq_9fLA9jOFjq0NNL
z=vzrMeg5%1=I;AE5C>V+?k7^(T5eKp6C({&EE+w4e8GKA<<CDl8WBvKParI*&v~H1
zI=r{YyXR8eM70m+26j+Zxm1F)m>agOT9fS`|FDs$y7U+)WN%q5W<k2EY&Cs1E&aBw
zMeuQOd9GNBZMBY^r~U9&4pmh_<d{j~Ra+Ju)7MPR0eX8{LixBSdyuLJs<$v7Lp5S@
zolXynKOu22PeH5rvYRlUMv$UWLRC}!&H5)^4fq(UocOD^iwqh`e4YGr?hdS+T=7%n
zI!qF?&MBz_@Jk;cn&)P}PU_<A62beTRABlA<&7Dt0{KS=E|9%}@7-Hb6bFET)}D*U
z^Kq=PG(|S|@!E_1EB$NW@)QEDTO=;L`yBU*<}XI|{|(CYzcG+s4ostJY<N<y(geq<
zbr6FZ>V<z;yj#wmo2ApVp%@T*_Xadh;nA#FSJK5LF$82_AM)XmhS6td23#G5QZ&vo
z-lY2XbYL~ODa<aj?k#YYzK<?MHy+nIk-kCbX?<);F>IWNCNx8N?~$!EaWK-J3L+LJ
z2g7xQu_<u%0bwj6pk7l$6TnSKAlI8Sn<airUnQ+Ib)yxDblRx(FE)MfC-a3*vu!h$
z-JD@hI0bRPgg3z0ERxb01k$E}79yXNWtm|RjRd4184h?E4p|8fY<m5e?b5tS>&z6J
zV5wcV9(D_$L!vJN0fj9*I|MHZussGi_Pw&>#RjKykRS{64c+U(7S#YGq0ftQ6DR}g
zGW;T6)a?ar)L7_zqcxria&++U`;btSVvz><nHtdy*$$R)c9P3Pv^M#7nwW+f+U}XI
z`I+|xw$_|h(;eJg{kkJ25b%v@Pq6QN)bUEMpk=^-$9S*y1)b^NZ%8#(>NZ?fHn3>l
z5giL4dl+=FI!)0I^C8%WVUtGRC6}|MqwXQ?{<@h0xXAZejIMWyv~@GTwF$eFxrs2D
zT-ap*XVV1BlyE-jCWrxq`gSNRBRof-Wzx6Zm<=cFV_f{^^$k3N`#Bu2Lz*BJjSy2*
zI1%tEqk#a0sXQ5Jk*Z0U1yT0fXNJ~}wKrc0-1!k5<=mKV$a`8el)7gb3)IH8C!FYf
z1ls)Czf}KDDEwWFvTOKx3%93ex{_w|Jb`j1chFTqM~WC`P1D0P$b=MV`HAOSn@uY|
z<iAB;jqIAK4~PQ#w$rM79f3B3Xdl2RhD5;uZH7ZbM(zRq692F!Hx@^bDX&<iFdgfs
z^T-KhA>+`rF$C+wdY(6oJG6Vn^I41wbw!HCI$RUMc#I{!9MyRCvl_cJ`S=id`VSd}
zQ>#$hK%y_80I3Wz=9EQ`SbMC5*2SB6kX*ynG|i}$p(+SykDa2xcs_+Acgwo+Q#x-%
zDQVBe(t>xh&d9u6aq4c_DHERDKt<%oy^<QJ%4jOr#IW;xdyWzB0%wL&(SV4Wszq#H
z8s-`XYog#QV==)yg+A4I;{@9cAzFA<*C+>`^5-aiwBhXhF4y@_UHs@pT6x}H!(G)I
z8W5LvAi`JBg7n5KU(z5#2Tvf$XV!htycS;4D-ZkHM4p1)3C#m6ypYMFTGyc_j7#`g
z27CQSgP$%M!W!^7n6K`d;uIMiQ@*<15Hvlnou*jZ*D`*%uRs({g*ZZ0=aWdQk#K|~
zRnIPkT`=;X)F-!F_apnd%b!<EuOJn>W8!`?Kn`@Td?Gn3lI_W}{NXLCsy%^ksoRMN
z4yiT&!+M-GuScgm;g=*bPFEgyU2O#aO@bg|2hYaKhFr*qv5U-Ai<BAT92{>rSlky}
zxxs#Z57M&A<?{I2mZ7UH_W`uv!S&p>qu+{}{mFhJ0TMIY9I$wpVfHimVr&&k0r2N9
zIQ?gGtP3>;$!B668V5$Zf>-)I>{9GA%}}+NT;-&Dz%{CMMk!beXSm;J={b3&+CEZV
z>L%Tbbud6w`s;)Y2B?MD!rw}o5gA3#OsWonOzFEN+$CSt3tG<zT@Z1Lkx87$OIz$N
zcB5psMGi{^za7V~F;;?-6rjB)+{PhysAi*Y_$x|bK}Wt{AHS25?%o<1I}cG8J!4-*
zMb}d9L-wK+>|Kn{@lF!?m}{2em#fY&pM)wXQ8yj9g-2y+miozrY$v{5A-4P4wz@fT
zTFn{|L4w?Avn%9%zGF<7`D4@$nMV`H;5lbMAD?GF>F5lh)#)Q*%1vbTbE#yqXG3fk
zbWvbg5i#jXwbhqw`z^7^W#|<R=&&{hLD{(4nhNe$_d$nh8$%ukIGif*rEqDGMO0QA
zWJLr@Baks6$QnyY%%!CH#1*2(^_av26ywlzc7{xmVl^~PhAW6>-l8_KFY)6_yWzs&
zb%*NJv;5Oxfh#HhsA8^cdV>z8F(#^Wm!dru*ZI~=OwtC+Ua_GE^(U;24HdX>{rbB2
zD{{T-YNTe1yb8Cz)Y(seTAv(yNyf1tWZz99IxDL1^!$T{Fl8~y?*0U~0%Q6yw7{qD
zTM;z*rr9Z7gxgS89+9$cVh|n8n%+8eN4I~GS5R9U{c}L<0H)~H{q^SF!MZM%b)+BZ
zhU%`pq;zH_d_W|wlGTw3U_u>3t+A<vhc)!foqC~AhWd|3U&axU3K2>rBwq9{Q7B!P
zO3Er`s!}9dCpDWoU)keIVx@O$bm{|uw#aOuw_JHl66(XW)#`X=ZFLD$ehP8N+Ue+?
zkKH1^Li21Wy_5yciV7)5%D{vRAsH5zG^V(8Mr!!Esw7Yk^~WRj(0<a9zQxkE&o}X$
zzO|Tk<T?W~Hf4u^@{pD?ggyb&opd!rtTgI&RNeA>Z_IFRcDIM%!-}$}?92%KC*V%I
zfRRzRPfq9eJ%bQcEq^}AVGL1SvzkhaW?R*o8hj8$CYR03Xm0R}XQ9Rf%hRg2wB<d)
zp!w<SYq{Akx)wKU`9A`6jVGKeH?cK4rhGEMHUNoX(a4z~btdUb<7sdk=k75^xN@Zv
zATx`h{vw<F>8(ink<aXaYdUSW^;1fXH8Xc>VzK+|jb<(LSNFs8acY$dLAAVzpw3#1
zm<&#ncoDAz3HF1MRH+;sVXY$WW3~D=A(~02t_8`Z2AkQ<f4(e-_PCb0QBvUzT+>cn
zxy(u6W*?WeP@S7bGUPo>ljsZ{-K%BpE35-m6df%=|NJcbZff}<I325orxAq^OA%eX
z85ZG5IZ3F)%S=SC!S4o~-}pwrk+!9QYgqw{i!lA^rKC^nq{EpC!IuKaw~>RFrFPmm
zmvRizx_wDt1XN`tSgkptE0+TaD)weR1!{1;zuO~C;$}bMRG46Lob~R{O&sgctnl$B
znQfKetR8uSSn++c%xPtQJFOzw`x=7vngW|a^B0Va^!_B`mFD<nS0lYs{f%!t5u{K}
zJ4`Rrf)&GQz14@M)5X=fEK-$e0uh`xPMAZ$tyIs3c;MFu9+Pu2#J@wjofUK#FJ=3p
zu91DJB5m1qS8>_OeuXnOq)FfxZiU=aYMj8Fu$IC{9^nVYCr6#gm@iFH^%`$N^vB1-
zvTdv2(1@kJ+0x$K04QPMohz>$I^5zxzJXg~jF{&Wxu>cabT&p^>VWQW4N^;Y<Hvp!
zD5IDz-6wdyHqJtCpRwPiyR}?sutQpR&z4$6ACf-8WI&^1_&aKaEQtSDp5VJAC0a2@
zYi25^m~qx+eVY$I7axa3VM3ip#bJHO36nrs<{qpSTkxQ(w~$pB07!d(f-#E|k+WSd
zZ|b$N8@N%op1-(6rI8&fYD%*Y>n#e8X`R>)O2N+{+CZ9@@_taKc)n>v8J`VFank-S
zD#%mn8FwD=nW|mi3VZT4VbV_12$4J0B1JN%8v5W>>4)7RTr_zlfj;`4Vm=PK^-{{4
z3i$E*0k<?sp`$}`&=qN~9D2H?Aua?+EE)-v<<m52$6>s77Hu!e-@}rkNf*Ee<EQ_)
zQ^;An?jijN;r~zJY?CZ-W@q8R-?R?i10&^Qcf_&w9|G#=OS@{U2welQ1hNVLhh3MY
zO%SDX);B-GqSzX>h1FVrCCY1-7Gw1v>Y+Cm3Ja~<q>Di`?pmf$N0M3DU{t1mFEq2>
z9ZsB>O_P}JYUHq8rmn6?MBTxlCP;EFbv|ZhD5IX4ySICK7-VooiqYQH&ed%ky`We%
zx~wZUo?24>l3x1lTtuN@ht|P|pk=SJ`T*NT#j3KeBd36_y6!2@r}%A4iEB2Id~lP?
z?Gi2mQ7rI*fthgwM3uFPkb=?nuq`vGFxK?ntr1dJQRjq5mNF}q>3l^u2!B}eYL9gz
z%*5<ri^+(a!Jdxh3C8!O@c4yHVX$y22GLOPY?~f#(b_YhQc&11Rv3?5FKf8Uar^21
zXid#(eM$W{S`I&gnzZr;OP(oIHOQB@(#2H{<??OFywo@PV|!5HLXo0%SL;1Y3<2aD
zIUK3dRgq^w7006qszu};VZjKPHVa=b4c8f!MKLr_AXcLVBUk`|$>P>C;3+o+KDczB
zG&3N|oI4hb!#dDY%zbY6LE}wk+GQh^MTMF$YXja+olpMs_41n4NBwl%onU_AH-;e!
zrF@AZGP^(aeSP&BJl6wnAM!V$yp&OF%&-GRx370>1mtm8#9q-co;h}6DlT3kA2d+$
z$|=_<mxaJ88ujbk5E8>5w&~H!3D<9M^(X6&COEC>pl6U-FTad(qzG^n+M2R{kij<M
zNc4d?Bf^!(Y2PIXu_4AwPdb*qjut$-ygHU9WjJZS;Ot}0AVYG+48XR+A)chyw_mSa
zX4`7x4w$5L$!_oV!tM(UMJq=5F)4c2y-3*$jdeMKy>@$$iZ`_LYW|!k+l;%k6NqEq
zo2j3fhG=|3ql5ViI#n)>{vOh&A_T8<L!|Z)rvKVX$8voR70*py*N+x{qR{Ox;#=ST
zojrEJ896)ZWp8uekpre(ug}Mu8GNbDF)Iy?l2n6?ItH#cgRjR9IxwNG#nrho-zb!#
zB*;-Bmv?<&L!$#&Biqd>fbtz}iy|NHlPe~qNtK@pS}9>y=D?*pO7~+cw}f`Y!g1zH
zNmPd^M&Y=5_~W~iXxaPmPY~R$>I!prz*46q0&M!O!LB1M`AYN2h)K33yIyf8grG{J
z_gfLCMOR^nz(Wrhm9$af`WF&R)Au$fsvX3Q)TP@)uoTJg^1y)x1kpH=e37+2C^(Af
z^tG9p4|<<uL}1{VN3>43Kl{A(?)w@8gULq4r;dk6-3+rsGj!jOc_ECskL%5x1|LvY
zm(F#YSZdC5v1TD}%!U9Fo<fR3StI!}z@8AviX*7?eTf14OgcY5|0FGh6xf^RS0az}
z6^wMQ`y=hIF{f*>g+JhR!~Sy8!b6B_x!dd;<a!I}7?Lahw6ecnCwFZIvbS?W`W3-?
zmgyZT8UCG;ov{%=W!NQCn7*iC3FaK8;VXnz$G2*kqkjDX%quLBt<-R44T#UV@NJ9Q
zpsHrtr1ppU95KVa^+Q4;t>=Yis4O-LFfHtm$Bv2E+`2H!`e}5QQb7WP%0*$SEf4PX
zan2GhK7r{kS0a(`Kq5;p%cQP?nqt>pZc&{Q5Bs){17rG*WdS>y@cbR3v(RW4s`w?X
z(N7MDO|i*flM=4*Fg2iH<kB=NtD;1EfWFYUFiczK9wijWQ5{_<#R3GZ*HW@NA1pg8
zu{z$z1@bkjEZCEI4lHc-JpXWS6gr$rqnm`VL)BOZN5m<E7f~VG7&hn-F3EIeZREKa
z;~sP_!<MC-=VDtM{}NoEu=K(@a7~LK*+U~pd~V*CP5<4laRv~7!K1J0+DX_QHC6@h
zzP2nsG6GXftrPlefAZhuJBvor@#M>%)X#hK!vCw+Z{W@ulp;I|*t~IQp@p^_cich#
z*T0zi!z2@-4s+|pZ?Pe%4LRYpP8+xSw|{pvLfylu8>jDB(KH>o_g9<5zkT)p-4hRQ
YDO^1D`Ls&ov0)?f0_J?>KYsc3UtfH6D*ylh

diff --git a/reference/plot-3.png b/reference/plot-3.png
deleted file mode 100644
index 90e1c2d4595e014044ddc24b5b65c6052c2e07d3..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 27589
zcmeFZ2UHZ<zdzWHj*LGA3@C^KqgK<RM9CmvLMfsGl5@^T4ow5<D2fEBCPzhrAUR5g
zL10>vNN8xF8>IoEfrcj8#I0^--uvyo|J!r+oZYi~_PjpFp{A<tz2AH9H-5g~TQBcx
z-edh2_rDMb1S_a=M;n3o)gOU4X!YA+_|9nj+a>tVVJo$Jci_M9kAAx@1pag6k&2-g
z0>Kl;_;(<BYS|Wn_#FY>xvA@)IzNt1wei8AwzW38nwt^VZn|ZLhX3n5pn5;%)uGIb
znK8d}M}CULzYw!~4RHH;Ez>@&fr$>hK5=*I3y!OF{p<6;Zhd)pL-f$aS4R(s9OsCC
zWy10}CMkGVX0TXpTxUl2;YMD5(cH$?np`n`kZ#&jU8}|3S{<^caD++W|NQ6wnH6aM
zx)BGQlRwWHaqV)DIU;n*a_ap-1R_+d`Wh~uZAL!L+MjXT)-rJ50F#0e(UbMe3v1OU
zoQw+#b#Uny#zlkxyWv4ZXqzna)si5_ZLE_rGy~8FfnGJ*08m%mL&_kp10*dP6)e*5
zG^MQVV9e~PKu1;4S}G8&b#2gS&m1yIBG(UXiofz#TG2qtUdI_@&&SzlKvaI&OE`P1
z%lpKYCxE*q?J79LPrnI;Xwv+^BEvh^(LjJBG*cC&pc7Q+uHgwn?nt^eRLAKN$$yN}
z=<xY5XqG{KCa_pJ3e{g~Q;_V*fwpgj7w<KK>3y3k%b>4XnKg7zXG{d2^HI7fo;(T$
zOFi)qb9}9&HtD+uFAAb_;DZjJWOwG#`MycXbS(L~;!uMEPA$-6ivmjd$_P8G6+1@e
z)ehYT*;1;fd%&W(laoroNNop~y@EJy&~!+M&mI+^o`HAx{ATf0an|lu<!jkdWKGG%
zc%>g}tQ(da;r>!NDu>p;kDp$ls>a+9MBhHMj!6V*yTIt`@m~7r6_KJO@rTR2QvCFC
zVZ8hYD`K|7r{rV1_KsX3B8*)SB%sTeK0Oe584(96HoRC9QQ065AWwUVXqL&fX^xu}
z`P_GINW+fxPo}!(RL@ALqv(JA(sY=eUp6buS;F!4M%%5EFMYhKKy-&+uJ!RF#4MFN
zzO_VqbfSFR#h6jY-H=()V6h{_BtS{i!yIqu@T7V!nM(C+5Yg+Z%j~ST+!kcrq$<Od
zgx;M`X+w(DBCqA>%-5UDOBSh?J?!?$KUtrU{nH`17+-U>tz#l&*gmNE{YxPM$iiN7
z$;aO<fg)l1WkVTzgxL9Yhj;5;Iw>F|D(@pPhoi~hz1IzmdbBrJ)9@jxIz-Xg>wMv%
zvcxuN@Azdy2_b6LFyDhfaB)%#WI~J}RE|o%X72E_IvvPdowm-w_iC{%MSGy#q`*EK
zUG^UPR0sGLSg8}fnWQzpBF8uTb*~mE&i}D>7s^E$#(lS@Z)LqdOTghFmr;9{qhdd{
zGC`KyEd?pbH_qm<nOV(2{b1DmwT<elJ?1fFl;p~yYH8i7Ea(evp-V5~*aYU(^^qzW
z@nlKU?@nKH4iv~nWMq5P?!i(NYP;Am;yE)?I4g9a3LPHZ$Y;{mB&GZ$*C}i?0lF@$
ze9=y>t*EWvsl68n&~B^D_g(7YO{gf6Ov|)el&_1(0GFHd^()%7a#g;M>5B*B!-stx
z3I`o~0%q$UTiE7P_KJ!>YGMxum;>F56GD7^V3|H)V}QUxYQ?V|-?+77t1RfV_J=-y
zK$aD;^t4x$1}$^dj4dmlcR5mWC7IZ=g);p<@5e$d364LEVRF7i<`pq7%xy}BZt1Q%
zB$6d(NHcey-mz^<tvy7I6!2Z`-e^dc6$j0}SoVByZs#*QF>35IJurAj;k}in2;ZK0
z#7z<>&f;W!v5RP9@Vw3`oxy_*Y#+Fq#MZJ^HcLY^Odd8xILNhZ5rxIpQzm%Yd%ub<
zGE7ovyY9lppnK55nVNNt)6TtF@4bv|eZueP=LSS)tq3>3!>e5>T6vo+tN*ZTq|mPC
z<!P_r`(nG>;mhTEf)fgowy!sozXm<o;NyPbD3;H=q*v+nGa`IBWY9w0Sl`5&ANTgO
zSF+|(W3F1n4!?icTDioJEj|R7n56%KP|(w{jULS(@VoM@sTFW2`=|d;-q{7xZR6aZ
z?}JbY$eKF4#nwE{Vb{3KX<Ma6Lyz5il3t2t9=o}cUcU2>+$g#UaWd6*g;~R<Klx5$
z!n~8}44&4C9Jal%mXxyE7`_rR{B2AsujuI(DftKrq^%@320N>Z3``%!b5Hkv{W!h{
zuR!y)b%HL{<%1kANXr9yiwymWlj#k>B+*EG?+x4J2j8V3BxG*r6?yRLv^u_PcGV)M
zwzxHiLq3iYm0!a-RA0=0Y_2hJaFvZ1w^LtpU|4FfbV1C0zVk}EDSomt2fM8ue)6)p
zie~^cioG6Nv!VI0kdOp~n3VeV%lq%W=|s=kvrt7t_F3W5v~)S58IYA<V>g|%`M}V_
z#R4aloaG|&@)eRf*hS~2tCAaQX>2Ql4b_p77(cyK>IUhFk9pWEN9AKm)Rl+wXH%}d
z-?BRHrWw<9K05;`+mK0pxMJqFseD7b;i&(Rcer`bwghevRE)oPf<6Y+WnFgFZuHX|
zD5%s(a28T--8SUTg}2B6al{N^0bNff%jWH>cuF@x<kZ!5Z+dXo!0MV;VaDL<ASP%#
zCVWM0iu7cZ&3`95(A@iLr^vDA-`<^`A;qoZEjxgF4<qDr?G|PMbJYibzSR+Uot-a?
zOC3O&g=P2mewBeYp!pZUxR8N^2#F~o2fL}<Wt^jc)5QAZd!RSfZ*ezyc}1y=h+CAz
z_}Fqze^BFKZ^c|{+_gIPy^-sW+O*-;)p0;+_EB&&pygU=ZYH+TpSNfGX;dfHmrL5%
zXEwx>&zW`0-q8f+b&CT4gXMf|q3W#RzAEEza{D>#whu(9>r(I~Qud6+*I)2j$yVf0
zr+KGEPQxo|u2tIVe&L?!FZGTZL{6*=KW<N_ZzIDfBwf4DymCugV0Uk_RdR=_S>_i$
zUefPKy7aC{EfsKf-qb^mG(}h5T`MQ=vcN3H-`*pT&P$p-aNFLGD@3hrIB6iHD~Q5@
zJSo>bn%L9ys5tO1qw&_aQH3wv@!_(@gI#&~g@HP4KcfdfNoj62h(LCHWqQ)~!$Ub<
z5$Ck$zb_1IOb&#^?j1S3QmgREMWeeupM^(w)!Ah2czN+qSAeBPP#SMpykK`m_Omf~
zjbDtk97PD~`{iujy#GNy^~0!-zmo<jM04$4ol^WJp+@b&ApTqT?A}dvXDG<R<C{bg
zY0C;4$C5jFdWu0>T(~S%3nLJd=CmnXFe{&xQ|w6kAhVb0UF1<Gr#$jBSg0)n30sJW
z3rv>THVaSlZcv<e$OvDN_LlLx+b!3WM(*OMJ7uqQrNJ3$0%Il$X)k%LOq_aDX0lfE
z^~|eT9w2eP0*c`wS`aq*XyMo2sjt9|J-yTr)i!#0Z9(<h94h_vOtlt`E=-Y{Eel`i
z7l6K$`&8=#0eVn~S{eSABJlzy5eS5+lwyqU>{BiN01#5pnRiRs8UCpo9(|!na*!`C
z*rRQ;$yhv>WR2<GGWd+-hBEE!2kR-?0JchN%enE2GHvSz$IDvU&tTqb)%Tw^ittz7
zxvdSHrK-7atSYUQ5cNQ*hh3z^?~246NnZ-kluWJ?#=F+uX)Rv;8H`rQSCs%->4w~^
zJM8e*e@Ps<({2?ts@>q_CWrf#)nt;uf%|YpO`!$0_euCWH0Q)4#GB)s*whIPNJ-P(
z{9QiJ$CW~=M+0rSCAl%@RQ*+Gj9?#R4z7_{eU1>B_8(@dyXr3wBSNbp1t8s&E1S}}
zDp~0@FPwwKab7yt{asDE0oe<<J?Xg{&$C7`VzY{)t%+#Jgg6;U1(!vu%+iv`y_;N3
z1}RW|ZS=Cany1NJr<U&7u#D`f;Jt&*5DI3O`!XWRJl%XgXE#=WVvXf5xo*~-!O3Ji
zbUudM^6RJS0T)$T6riO=OZ&B}iNCF*<%3g=@aYCvQ07r!<G5{?dDaHYVZ~H(l0fiC
zU-u?}vipf^bI<mFPiQr5Pm3pK3+$R1ywBcd2uY||i6_GWmiXbP6BLUk4J~&8TB<Q`
zhGmtzai;|oKL=TdYaii6(#=6P>WWc9<xsG8_@{-N0>0CViftW5?piSgHP_lYs*5#B
zjorU)XK+x_2^^Ag?3$hy(2jOc1D|Hh`PvK07w1L=8u^uYtRh<LMfe9<w1KVs)ve<d
zXl(uOZ4I<q;2v^BsjX+70tLz9X1;0)Mp;>ZhJD&-eI$L2qt2jOjrJ6P9d7Sr%+m0i
z;CNWL{!f0*OX`tw@bk+_j*kk#-Rh#^QwRhI%|2i#1=#ZZsq&9!56jK}{QkeS0(YIA
z1`ddxNlznJL+a8cL%!g;D(yKSEnULPBvi6T^;-Xu2jM=68MvvxiF?NuTKY&8a_2Yf
zYc}dY%3j2=vKIWxc)9s_p;qZrzw!468SjRA;O}TWWOj1*#(xR&_E{lRtP&Q8l4p6q
z7BC`$BLExxHHx@MP%2tfn9<VWWz2-BQ53^vL3{tGyNVmdrYa1)U_1&%s=a*PQujNq
zt?*q>9@wKcLw19%OW_PbO|{ZaW=t7+U^LMt$456n!?8=<xn~w6rjh$W-Xwg;cf=%5
z#hL)Iwe|rEGwS@JQGJLy2e8Mtn<UzF*Ncq;vbhp=x1mCo6Z6OS`S-@{SO>0#cd#Sx
zM2aB~a~vU+g+b>t$kRg<Ns#TFsyBnGW(e6LAJ~yV$j!Rk@dft|Bt8tpj5S|m4$}VQ
z5cP*b^+4nM&SCdh0*e$M16e_cY6AZE+^O1IJ;K&hfyxbcMGnSoi&T}RDB|tx^&DYq
z>FOw(PL@*U7Ia3yy_o7b75}*Adu4$-vh(x^Q_#3LuioQnzUFnKYAhSAme+6_s&k$$
zzET-7pnIRuU$Z|n!Ba%_oh6}geomYC_0ltp+oIoM9Sn@37QQyQ=j{~UJj|q25aYYV
zMg(USVs>vN?7mZ5P&;#mjrq0!;Lk#JKW9Su47j^gHjyT38Mm9c;J!u7&-eLgsnfz7
zbFw<z3YGlaEQA;j4Tb>!*|xWEe7uw_FImszD?#~_^{d}q!66ibi$Y?p?k%nT%|)Hb
zhp1mmui<o|Zcr*xCY~;pTl2@f);S~QEaMf95c`HDao@lw5LS8^Y{8W^Qp)$oPO#SG
z1KrfGiIcgQ%XE1Jg_9M4DtFG~QL;9Nmf8N?<e)nK2X9I%%pu}qU?1t_7VXzAj1i;;
z1qu6_GU9WD(8>DN<!~TFuwmB>Vg~|3pb+P@(O7b%z-Q_6iR1;aD6zWdrGPI&i}jiT
zqXFVyqx=C93!X<&-drn?_MUqeW%MeJQ@q-ymCAZ$_`>~6CP`f9+*Repw%#UtgqUz|
z{K2+E6<TvwjgjHKw-1Ii5C7DjJ5^ooD-^l)ifu;+6c&t>EgcaJySpzw+?j`|6Ff#v
zBqQ;~DDACEo=tnGK6iEVN82H${6#1oA+{LnIJp;{mDX{h8j4L5w735H_1+-{iRy>o
zhg+6;4LP2=Wwis1xmI1R+3P(=qkdyNP5kX-{ZqeyJdDHCdvZYbdiB+I^*F+Yh|ERC
zQ;Ummd`wKrUPobFMlHLBK*fiFI~%8+<NOeNROR;l!DSi!--Y%ZDmT<&V8#rx!2@+b
zfMqzLR?9JRB#|7VTd<a;z4avLAhSVx=jR73CC6aT`!rbO)DRp5?HP*iR>R25542(4
z&R|;@17$=+h#w(-`zVLI0QP8=VY)v`1G4XO_C5o}PL)lg>JE%o5UW-ikTk01GVUqJ
z3rAa!l4{w?Z<E|PYoHxeaL(s<#yg^m^Dz6fU{i+}whDnb({_7^dC?wwNQ80GoT#1o
z*lZ!$F8D%8&SOdDvmbqV0=yAJ<mKhJjZD@^yy3g_^%d+<1Gw<RLj=V(Vd8(M{bnvW
zGyC{oAYA__KP2pcz(3I(*k@;4{3j{U1apnJbpCso?EltI7;0Gb3~vfq*>Rflm#wPZ
z)lMb>p%-Mtaq6ud_Rs0e-LN=0(xN7!7;j?@on|fYu?RP<S8~`FbHsB8OgK+H<t`7C
zqax&e?*G3$ss9Vh>jdMK7J}zf$r_CL_d4#><UFoqYzgAWcPh3^A}Gi%(VhAK{4qSR
z=1K#1?HMbumJEofd%7NUW=>V~4n=2v!W4E$8LwK51^mU$xM)uNFWdR~_E3EK|5&~M
ze^@;q#wH`0zg~bvg9wou9CPeeqG0>y{O|U!A3Hy?lsqc^kNwkO_)(&9HXFcIZUc&z
z&cF#pS={E~A%>a>we4ghw#dukc)%VF&%GDchVPSrYN?8$gRF&2HPmT#O7dae##<mm
z%hMbZ$DZdf_hZoT=D^9w*0pnBBNoQTsp_=hzUR#M8A`Oz-vw&Y^t6Xou;*j!=0=%@
zzVpQ)>LVVA%r}#U_JE2}H7HyLFk(G?lgZCtM%p>p1yTgkM#XR-=yr82F1iz2FM-p$
z9qBDIl<Ob;kFej6PCHp&o}+!;dtu&NbJb0qmH@7wRn2O>u&?1FB5M!1k3@mNsKL6x
zriAYoTu0dizkYi?@r<YeM>_($y!7(E=eKVAs?$`$sk0(cG7R734NC*RzdiiI6kwm@
zmFdTia|GEOt~1)1n&m*(m2hELlQf&#;eq}76+JtuP+?d-5eo%fX%o>|)S?Y?RF>oh
zMp*hdFSY~s)=zBRI*(m<+g&&uR0x({!S!ReeZ#3Mrv-Q&=qfO1Ws*u(0N45Y0>PMq
z4A9eb;7{1$2t^i?V9KqbdL*uJHuVP&Y^pmu`mtlNbLP5TyqxSF4X2!@(_)B_E1zSe
zQf|jbPA6r8{3c0h!dU~l3S-Yn3c_k-l-GDQ$oz7*Y}Je(Lyty$vSO?kbX{Kg7u6>T
z9!rGPbPfu#W%N^^*5ye0eaKZCcn~d=7UG;BlOD4kMKJ$yVX;l7kpu5`uyF{OMO~1`
zTCx1pylvt>#A!6?4y$3f*ODyBm<gfL3%C^Q_Q$tt&o!R-(Rk8pjuh8Hsfji-94`y<
zI4ZL;;;q6qQO_%gq{?aYbfHeM)Ui4AW!&d*Ivj%!b8i@%TA3BhR`@Mu$is6;4pE`C
zz&ftXKK#z^Jf_SC$^`<<r-?e|=f4M*+l3g4V#z-giG1+zqBa^RfBQ8f5%0X1i8L4E
z?BNy}bgy}m%@(qR=uJ?1RlNA6$$6H$_q~C&)RAqGv)jES%WVI2=?P~ceUZ;&SuRSI
zZ&Hk?&nu_`aCa6jxpklTnSe{0Reo8RCZ*WSs8wwP_l~b}X}r%RAI^m+hwUn;?x2N4
zp9iO=_zJwp=V=3D5Ts$b-8}Ez5rN<#H}z$ox(m2_I`f`6h1;D^J0dL_XgdlKTMV}w
z2L6aOfIkYa3(5C4l1P<*42>36^rWA*ma5n^CtZkAGr~|!?;L9|!ul3uEL`*b@O9Wr
zXI^)=?rV)^2m0{IHUBFlbNL9122@;o##r+jEHR-6{LP@J#w;i6vGXsJQdH)rZtAoe
z6~mrY6WflDyubONT!`14U%%AU3vEG^_gQ1jC9_y^!2rt7KAMy5_eGDDf{G?y{RoE!
z&)L@$?iUOpw3uKJdG)L2qw$ZQhEg<X4$g)8zCTDc-h~HMXZWz0pIX$RgPdn?7w=|r
zbYklwgy2nx9>vxRwy}N9;{azdSQ9;NFP+<^>8ZXiU+_m=;tv1tIUK0V_2(j8a!hFP
z|Na|ZUTJ~anfz-zV?a>}n0$(YBPw6hHO)AVER8jJoq6a_Q&3plQ#HJ{s?~(*Ran_L
z@|NoNwPt!@K5AIY$FL66&)sR%_d6@E)PlCo$NupF8q?z*U7!rU(kZij5+K%bg7uT`
zdWs_|THcfj0nvQl0zn!oo8B}qV*(Ev`W8EpW|Eto_CD}-xM`_$uHsuir~FP{i3Xx#
zw#Ob)+0*-qvbKk>A5~s$lHEP6P6St#y%MeF!AFWEw*cl^4^%B{zt`?uP6+oe30qz{
zRX=|6k0u>%^rt89T#V<A5KlQ5tu1%$G)7r9WPS9r!~1vtGR;tp$KnoA$#Rz#?hML9
zW64A)&>V~zKEDbRmy;YYlk@X04CIowez4q3J2~VIqyeYSK7V&!b<;PZ5_sDaPStN@
zZ(@4o-b?I$dKM-tHFvU1T)_8xqvanIB+fFM&Kt@IT8@3v4Ihuza-I084)5jQY*NaP
z<ek4ZMRHXVHM3Pz7Bk3dNhw_D!Q(?IYY~7we~prI*?I~X)j3A~5oSyYs`PeqCCFox
zQZm~Yyu(>8_YBSM-01c}mpacXm<+W3^n9}MowuE;&%GD_Yr9NQj&^LlzZ1l6ySPJJ
zJW=F#!;yH8^EiW$8~Pb4<$SH_APoomv(MjdKPpKA_F^~7e&rL0Y!EPBRCEn&Fze>O
z$){1KGrOHp)w3tFkk(lKnXjDW_86}bUi)z>?XU6JQ}r|JqQRuEKd0g+(x{<b<B<)+
z$)Apzy6=5W?LTvtv96u>Pf1=%3epE^6x$A_o<Wa|8m%m9AG-jT3hdVce0$dWdixQP
zQjHoh5pS&T^e6_R&n^Wv7{pwRNd??BX#Lux6yuOxjqp2WhO%eTUw$c)r}SypjUF5_
zNQLp+lGV+@OGd>eLz8cn+u;EbqK}-GG>a}>tIoP5QY73x64Fdr`_5BXqi??`(ySLh
zq)=wH=n^@BJ@aVX@Ks)mJnXBYa(@yfe9rgXP~VY}St#yEx@4rq%D|}3*p{*%`XzDA
z{b-`N_@}kn5rqZr_Z{|&Zr=*k7Fe!KlZZyv3m2_^!g0zc<pOcReo!w`?uD|!gFfEr
zz`8hswB&K-B1D{Iy`i(HL8BI~=X0<h`%o^2D_1Rc=UEE$$$?V)oc02$1lb=DZ<;)`
z-Y6|pqEaSnS6nsaOB-Bc9l0v>V+s1v4h<N!1<JX7UGOH>A<?BNe!Zi+S99lSkD>`T
zdh+$q2Tv0M`~44um_TFaE&-lRy@Vo+ZU#P`dON!^eZY49y_!Tsxu@*2B!DH#p`kc_
zT5$RRhOuO~FSN*y=;i!Oq`Uk%_b1S+F7H@-5vM3HhmFTtitv36OmoQ~w+z+K3`A_*
zaPI0Jq4l#DUp7T=DHe_6VzMjEMr;cXQB6>=MSyNY^U!yS_?Ft^Jir;+wt}?m7I!>t
z<@RWAX4j@uR7>T9_;IWXO=|GCp(mh;v>+`_n#weP{alpDv4948<CkQ=zyuF@<j4T`
zRvrhEgJB&P4lRc)tPs*-`6`Bl_+f=jgnBkU<%F+@gNy34qqmLR8ynPCcHiKo8TB2l
zB_WWKhNnmP-pKeDxz8|=6+6_|sfpr$dWcF}`lD++z}Tl=x?%7a_rM0jUia?N*F;6$
zz3<7+A>!Q%kLK%#lB2VBElp3>dp$(je2D5rj#$2+bo*&LE)p?a@P39q9udI(nzx%l
zD#OS3G`YMGyJp022fQIpq^uB52;|l9)DKU7*Mwcajk{Y()N{lSF3eEhC}4xGx7{9-
z;;#|Jx#x_8>G7tolcIYI&!Sr7@!n7_e*gw*Qlp80i<+gA>u&*k)^O=gih!!{F?0jH
zNNu^n;rjtb@KNGW2h^avPSviMClsp3q$Yu-;=RJeshdwYYg07k=|Md&tSv>?)wY@<
zMR+^};TEs+0R5~Tr4KWxk%qx)v9we5AgyP$N-YuxJ7x_5wuBI+MY-<=4n%vMAa{4L
zysinh02VjdH04itJe(eiC{SBctQ^>Qd!Xa5ufM}B3}e=Xi5rnJXOb(e3404@`U`7D
zgRVjshcprlHAyRD{xloYcH$%47Zk<uX4q^!U}^cX9RO(o0a}nq_WP~RKhegNUOpuK
zX1FJ-+ITly9WnPiOzE(;&Jp4z)df2HtJw-KKRsE)Wi{5eU$FB704hT6x94uQPzaCD
zaf!v3U=jRRK~4gf{f-UxVMB!^A8s(>h;P3ZmDWC%f%`%r;v;iT)}K>dI34${s=_A^
z<8`}~d0+6T2GYOD)QKul?C#ZFk4hjUNOBxi&z}WGBjtXxFbwQsl&v7%l*7%<uU1CS
zS`$;$7FM{!f93B>7vODQg<!l;P|aMEhW}^qxCw<11B#MferNR-CdQR;)P#1GrCXJL
zc5a2vp_a*-%Nt+P-?70EOlVEA>Jl-D{IqaA3WTc|%-e?Jz~D<b$!sqaD&Wmq1B;X6
zVso(XPi+~37q$5hqa^ZIKs<YLJ)l@bmG-0F%Ummj-OjqcP-_`u4#$}7U3vnIz8iLn
zz0s}T9vz$fcm<~hQ{N2r53s=n7h}9JWOvmW-z4ej_gxy(!PjxGAQvZ5w!}N<bbz*|
zA=lrV5%rf;1>ms+!K>%Ys54-&NSkJ>G%~;#s$6N`7R1?W15b+Ge{LRY=LMrQ#G8)G
zyjipF-}oEBd#YNta~X#=?wI573CPtM7<uUIx4r!k(wDBE7Uwo&<b@FNX_oVuK{B{K
zo<DuKQk&F0^^^1BwzoOz{P!9jSH{1~_|)TP@spRE8A3IGo!G}rzP#q=D`Vmf&BrAl
zW_}9*bI!>4@hhJVlgEzn@a^MAKR}pcU=(`rixD26+d%!7Mwn>IeMf<K2bte-9ne?`
zIq^gXGtMcok*s{W@dpQzn@y7zmc2q!@ic>>s)pcO&^zq5lVjH=pbw0Q<4Qp`_cT(z
z<i=lsx%*{JCez3bi{o|#oaW48ZK{(?<xzB1=lQ2#y6zm>1X44`h=Wpqp+czt*~m44
z#^Qe>qWcDE<RXrjbswODAC^7dkeZR#qFR}2p8E%&IxCH=@D^urR$w2(aZu5b^fynl
z$<^B`1f|wQ?Y*GtN`gEPV4CM{4PjM_qm5lcnUr92@(xjp6A1WKF>0;$7JhmS1M^-1
z^#$`OzX`k`p1=57^R4g-Rho+yQyaCnJTUw4pXfK3`-%iB;ikpgOBD}SHtkdw!nXF&
zKZ`#l<0f`|^DuY#R@ek8Mbhxq5A!fO8OzLm)$3ttu#Y2TfV4#3X_o|YQ-ayvPW^70
z>OzRA!9D<r{Qy(O361qTQDe!^0g;}uudL;Ifb6xlgG0W~X?04tnVCqmULMBswg+=V
z)FU*H3_tS+aBsmPFs6ANiKBy3$eQc8NO+|ev1EFom~9v;z=2qUPatqga-f)`oK8=*
z+E`SN?qJ8x>z58Ce{CTfWPC?AxeYvKJa7K!oPVdafDZ^Tg3L7@==kY`iNUduHS|tr
z{zpTRRUwNS!wo_pRwN!~zJ)X0O4U*LoZ-iH7$^^52S&bdGo&BUeDT=D7Go*w#kX~q
z&3ITo;Ap`&S-6jJfoOhxERaP6`|U5lU2R_?X4d~ku5WPKXI-xDBYSNAN4DhV!h~rW
zc?4Y7pnU>H*JY@t2gAeKWCd^|pq@m@P>8Ch3*>yxfXTQHU)aE1{-dNp9N8G2RKtHx
z%9Dk<2sS3zxIT4eF5dmOFT?D*i@bsfxN#~n;3i}Wxm<}HMdJFQ?SR>_5X~|j3X@oi
zzu463y8dLxx|q(vDR?9o+m$pWyWhmhBrfmIhSkxDg-TIf@B;#}!esX#^1;IO1Zx&*
zK^~w5(r7@j7R_0}S3!EMfjMyEB%#7@a#5z35z{!Ck<zmp{n%vMJszn;e7P$Jf51jL
zzwg-)mpl{Cw0IdHx^RcQot6_luv&O|Elp{H>)zB8fU`PEE;q-^%5T@hs7gIH`qaK0
z7+5W;tqG6Qq6Q>+rhC@MmHtB9d!K*UW5oHI^vgOi+<yKhDFuL|b4CJ3;-6+kYV!1t
zFg42Aji@e)@xwW^ce7ZODkG!QHGTkNS*8AmJC>aKHIX%G>-Rd3i~E=atK(dY>7JgG
zyL2&?lD#g{OBsbzGmUQz+PfcsRj!p(6;GG&Kio%dgHc+ZUKAMV3u8qxv11FI)0Gyq
zV_w5XedCJiLX)a|Qq2|IJvEHE+vRu<ub@1PYPjdIG#J@7&Bk}I3SMOFg@s{&9%1UB
zW;$Lvj!e+rdkQutlNY-RugW(CwPyX$%lwAU-W{(isMK+spVIhM#zs|w(d@=;J*kSG
zN>JFLGUIx&J3p=u-1UQaV3<)MkeFD_Uz5!sn3%nuX4+1KL4Q)vWkxeZngTyAte;p@
zC(x!zw2!>@{=$!{ryE7ud%EltSJf?wbksZ(VunjJuQVXVQ8(e$s>$AUlh4mpwWiKq
z^Ud4GEJL3&M8#Z*ug~Y+La0m4N|i~nRTu|cT~YAwsU>(pw&-7tiqC!@^H>=d-q`}^
zni_iq#UUo!`~a)39eSE9&-R&GJi6Q{?A-81Vx9G1xZjsp2L`dB&m&;D_4L$+W_ddl
zzhv+I(B6WcJ!1-^dU*EhiL}D2bpcrqj`fhFJ`Tl!#9^n9rWPNDWQK}K%)$Gty%qoY
zLD%MYrul}=PSgW_|6HiPakX~wn^nXR6-CFcnmJ|mxM+t&A7&C2YU_I82(dWVRL@e6
zzLuRAVnNV_T(Q?N#QMF)Py?<gQ*42&fA`>c7=uED#%SWj$D?GAfaDRL&lB^nZ8{D|
zMd$uZFFxn?lkr?M;I3ijw<wM}j8X!*GifZWV9ogoP7z#JD|KEc0(ex7*t;F>ancvL
zXo(7DDoqf56kPJ%bl7PJuBti@#W|=D<o%K;i9m+x%w~ljG5`&ghjE`^bY5a31hkAg
za?VayoT^Vb!`pMG_V)#&)_X${@{((|M`75$0ETF2@hY#GOU63V=q;*WW9Jcvw{g?>
z9tmn{(H4OW%?Cqo#{N!yK6uK^kaC?GKUx0)d)<KB%My}YX?NKd6R?W+PRVW9;bRQW
zn#AjaAioDjs|bF8td#Pf)$?zG4pdFeTA&8h`urr%-xOvYb{Fy0qQ$}mxHDm859zBG
ze;R&`5~<VzA4I*y-ow^k#VJ*p@g<Nm5A0`*1jX<1*NAyh+Sa|)Gu@Efjrwz>hE5~-
zxOOw5Zs_ftJIu*QWZ_P-hP)<cVCVZMk~>@e3#&KFIKs@MgAMw)x)}xVsd(B#EZ1u4
zyi%6#6D0kmea_a^_^8|eNA^@5Hj>o|1bsmEy0YUhwRM8HPNRj>0!|BhNvdf4+RoEs
z%%rTrCTuSoKMn-n2K+vpe=X!UOVoCvz9ugw(?6&#@JXI#=4eIJ;kOnaI+4D7Nyh%D
zGu_+(X=%y3m6-j6xcbK&-ZEe3yz#;)!NLEMV%1ofP>{w^s|lmo{w3VcuwT&^8%FU9
z|2y7i_@OHDEogseh1<yQ<Th*pOq0lwh3gyVOqe@pFs-R|4NI;9Mq$h}zGzKg5$nTr
zH{ooODePBZ$r|9U0L~5eIB8vn@l2=6B0Wb{B6ZNnS%b3H51C-e=>Q3&SwvILlkQ(<
z>?Yz=F>KB~Ks_IsCMn#jbG6K72qf%0C%IhJi5+vu%<2$kEnu3)teQjAb=Jbxud6t~
z-NC<m=iEQ8A51)h+12{-+Hh6`&htiVmA=|o-<Lmx#fu?S5?J=1RxUH=3UlyFe>0wF
zPI7*WJZTryRG~fLs5Gv2Od}OZ*cAiDl?0O3aw#)}MFb9bKk>^2?16v>?AGic?U~-z
z6xcZSh!Ot4nL&pHU;|F_%A>nNOslTpObb_}kxAToZz5vDnB?EM%@`!kie)jX5YGt&
zm_U_au$kCQA3$}l+)$;ZKDXL;0M5WWtthf^XkidEgKMF9r!kcSibZet-Jkep@LZc7
zI_<eZ8VWsi*#n9d|Ni729LV=lQq0k?=xA>xz~KagHVZ?CD=l??c{@wL;0?xaoM+ra
zbl!#elQnxiTyfgf)QL29e}5jGw;0ZD0ztl;GHN1D#bvMC!qE|<L5ZLQ?7JD|Vbu9n
zh$c=M_`h4MTF!8=>!g65TF`<jhCP1s^SVeHDb{AIB@B16M6qon=s$AdcsO2=#|D)Q
z62)*2!SxSZb=Pq2KuwPKA{k(p;9zP21cnigRQOHx05upQ<<)M;`r>u<s{DG+z3Sdi
zmdDTjdZ&%+!Hru3FU0?FkWf7@Dsv|?Fs*@m?MbpjMBnB1Z@HdrpSCj}SVg={{B)H|
z`O<@@E01`7yL0g60hDgUZ=TmZWoA})tf`uX!uhqn52^WcbDKfw_DT)4>qgE^m1v(d
zIrn0ttGJ$`4#oIyQg+r=N&D(a$kF+*yEf8IOO=-My)?yVu*N+e<wZ&*@8-objSIr!
zH&=dG4xR(Opl1pY66>TubW_rZ8&-h9m^mrN8X^jA!lwh0$<w7V-206}hg_1IC4=M1
z=u;n=+Pc{!>CTgc5x*25Hzy6Lu&5m}{`HnQv+=P<n)$Y;3D=2YefG>7l>5fw{?h#P
zh1%^&2`!?66z--ET??9b5#S~G+=bk;($3azfRe8^C_<}DPN<mp>1}7%=>NhumvdoJ
z^7%&tw99_{Bjjj(*ABY=@p6XJojP{Tsj!Ou?PxY}xY~l&ez3c7fv{u$Kx$u|!!t$t
zyPL;Wv-Y{6A1LNz?{nw$E#o7^op9RX1%l9-sg$aJ>tgF^W_`!;1u4!cXXC%QQn&)<
zC-n!4o-cfr^kbDqwf8yD>uup7>b-E<(dP~u^_knzLi_C3e4I_CGJWx@hv!qNjaetJ
zAH$i}LbBq6y;~KI`=vGIMTKYUl~ifr-?!jeiigla^nk+exK3zWXL*={4J!VdNUpEb
zKt?Ccu;vxmm_pvx1xfB3GJ9=;B$vpw?qdv44q@=F3J5TEOZ~LqSFeEM)p;4~7_;xh
z#8*__X@z*e^i*;pV2>Obde>96Io1cJ$C5YWt(lu*@f#XBQm0tEkVY=q{Na;Mw>r#B
z`&ZcLsO@aar1^Mr*7mrnQIi;%6qqA!8LLUmJLNGF8wdoq6TI314;It+d9IlYUL%F3
z%hXZr4CeEKH}K-1!)e781N(u>Rd{>0MgVGYX9#ck-^u-=!b9#*YBKo=z`{?*0~=sj
zUfV8Hxm>P@3suNnboSfX`Nq)JMF3pQVrR-r9*F<`))YnuGzs*l%?p&`t;#P<t^ef-
z4|v8{#vp~5<Qv>LwY>gPk!dUq!UW&mI0aWLa)MG-U-074bwOO)-%RFJ2-B!xG#6Gm
zo0}Iu=FobOQf%kKXx4nCGH#-wF*}$!7l-$e8s*HZ#9#idF*s|Bt*o@afOEy3PqW#B
z&uq}vfCS`-Lfc2id!dqcCP#?Y(DjQr5fuFyfF6pb>I}ejVez%w)Y4f!C^eNV1hP>*
z7Q?{wII_a2$ln;v63@ZQ@F?HLwfNm?;`e11Ezx#x>k$+^)S*gzy}MC(otW$tPc4uW
zA6$`fB|K&{LGVbcdHTeoF4Z-OxT;EC^%28OB`su4srqJZtcWPcbyEAI0DDw`B~*>7
zX{2mVwsTQG?w>1a<}QCt_L>ELSBi!Ae@yjA&&-*bMX6oUT&w#}{G1_I<+NyEr0zpc
zI@lvLXOdtO?Qux{z<%{bN&DEPH1cEu<RaKp7&}pK>ajRz9pzzk80jC<AhWl#sx{`O
zD%l^9w^&@oJw^VzTue=>VxV{O70n$rGFUQR9ZqX74!0djHHyv1aFTs)=F1;ow!G8Y
zeunAciJl^;E~V?nHjVkXWmno)b56-uadZ|4B;<UwxG^5hIc4sov|kk#53^o_&x75O
z7Z?}U3sHvNl+2*P&{}=YDQf~dQ=23rVJ%R6_4B!{q1sZ<hLNjA@VK$%i7Y~{rFDwX
zIrmRYbKaFyb+SG~;4_PF+GyHtaO35W+H3<m4SGEbvV-$0J;_u){Sjl$Lk;`%;DZmZ
zXt>)IXr~9eH`GcCY&(!OxA70$B&w;Q>nX2jAywy?l@6lCY?_rx1gm@>s||r3*Q-5o
zQ3AZAI5PhvyVn)ptd;95JbpZ1@E4TF%R4xzAJdYq?DpsE*Nb%3R@p6?#gXHD0-E4D
zdQb0++7xKp4tf>d0lTl*c&j8^cJ4>J?=!bwdh8de6<|_~<|(#dFcPPLJ)cB2$8P_Q
zGgD4G3Z=$QId{W=7hg43htW!xgjN>2s;APM%ORc>%qbxPM^niK66Vl^R#}j#p`Nc3
zgc`hOTwaXoKFP|Mb4mM-Nj~yiaO^phPj$BHJnvw&BqeFTPN?g3A;_lTxl%xi92lzO
zMAlpwwDbR<;F}9?pzMEI0Out)6;!|$Ru`;CDyh*L;)`0nT{J7*Xt!Qrsz#VnEc#@N
zpYGsRf2{Rcp41`iCu1e4D(`Ko!G5)vk=WcZBJ8~J<65^;l`g>eh+-l+R+o>OTZY6P
z0E<3Eo3W|+xJPTnalonX=mGOwTYa@1!Kwi!@FtpxpK34n-Qo$6%I3l+AB0k|QybGd
zVAPNNjqTN@gbcMZ(jVV>I8&HjP%{S)GzE6Ng2v==yLnLbh6=5%NUl0nHOsl91q@Ck
zf}<4dc{4mZC_`>)d8cdL&SzgVM3uGFP$T{x`K%vnUDYK=z4M4(s59e)Rh*#KSF;rI
z-1jXQjnId9+N_J!<7AWsaOdg>847(rM*l9((eZYZd)a<U|Gi((1L~zyFPsbI<T|nC
zsN8b;*zzpk(|cuZEbpEY%6rXg$>1F?-@Zml%<Sw3uPs*IYETFdR5~AG;5>A+zlPm@
zRc3EhP;0Ew_gN#+XaKEVXQ>&nziaA!YqP*v&cg%a4+qlpIkUXj-SCs!mWJsQ4LkqB
zjOV@IDDrJh<=XGw0r&g_Ar>6J`Eu0s(rOcN?Cs@{@(wzmHzuU*Ul>!P*k~Tv{h;2I
z3)#~7i0$%c{DurE?GW{$Jx=SDXYoiggNvHa$4u}vIluC3LJGNE{(QAN+)TZ!PT1X0
zW4|DCezfBAdbI}X+i++5g*kqlwBFfXBkus{=^Tw0tSZhde&!9)@CBJn8)U&_;QC~v
zES|zfsBk@lLE=p3Xg9&e!FN46<=4*=d#5wE`94H2eYHf74;o9?hV7y2*}^2nhEw%a
zhhe<NE1L3$Bh1()5%Ui4Z<4dB3s|FP25Cb__4@EJ%5?09A53)2faNYYz)K3`po}(U
z8|7R8qfBkhH$*;X7}=ULrxhW7%5U3E#WOd4b2AVk6?N_r_w8VF1f16qqNe*YUPCk!
zN-YUY`xfDF0jGo-i6Ptevp$QTPatpVD)pPEdJ2l3VphIcTss57?iU`a2XI@ENisPZ
z7==tAG7rcL**G7?k6yz0=^#JHN40WSHE2N9K+QE=CD>CuY348->^$y!589Go4{%^t
z_p~w%9_K19C(fskKLXJjw06L}o95x^-x}O5mJ^aneh5nCZUW_Fr<=LG?4ULvS3~|d
ztm2NK@8s{XOUhPdt2P$48!BwNLKCI}Jx!YBe~g}^Y|gOp_;{VuLB?=m>#ZX2hVGiU
ziDkc6&oPnC>U{Sr(Dz%VM5_y0)J_>=$0QfF2VG|QUgm_X!P+?S9vVsi0NexU?@ka%
zVz_b&jWy5iwv<OFK+Wrf51oYN*?B99;<m8Y<p!bOLaJ`@b?^shV#ZNyr`H~7f|6(n
zaMvaR|CXmUVwNv^)A~<qXxjr~=O0lR`hgg#X;NQl`b$!QsK``2q8N6Kxa$~gNFF6C
zgNxV2I-b$Sxa`Jy+hq&$_;JzXQm`fusxfX*XL#e`?g@;sDYd+2`BQ2?#cQ-b<j>*u
z?}5>L*A^{ZR4TVWSwSo9{%LDJS{RA{yZK@PbpSfYD93X6Z2jc<{*E(id|yO)5u5%h
zP>3pR`An31cA!TvUFINcToNs}vaoMV)hnORikg{K*8!cUik`v=8SU;NQ+3*V-Whg*
zP1!0fJ~ePc#HK!D?E2dmQ;XL1J=f`;&$X7MB<B(vCDN7;HFH}svaz8pi&)KT^K%yn
z<3$dBb(^I*3~x5DV^yZ<eyUP-2fg*x%DrPJRxbB^C@#PBG$CUQ>Y28r3h_31<?p>S
zi+9qaW#<hEHDX3vdR}<Ip+H~zYPoog*snKkGnLrWINVU%b65B<tdZ%SZQG>Asrs-p
zYi@(NJw9u6l($0TYch7NhEqDiPZw?fG3kwQ_~uM@a^7~8U{lk0$19`gz=d;uPyAxV
zFe#b4v(_(;gq~o!0LS$BjYS-XrvrR;u9gMqR6ej<;vJvdRu%W>Gc-YuovY2z{j~hz
z@LJ~~>aSoA?lW#Ydooz4qhTmgzD53XqHqE$oxo-F#K*F=g6Z73krkEcsfX9x<H$Zf
z^tYfJ*SBOm|H#7xwCfX}`ww>SK4^556L$=`gzGs`q!3|#^|Lv5*#brf`7Y$OQ&Un(
z&gV!M&A5SG^#>b;A6|IiW@iQ2``SIUkBVt@mRQSyz9_nbsp6Hvc~?YE7sKNYjdRuT
ze3-u{zo72f9J+Z93MwrM(TiTuuwUZGnGdZA&wDJMoo!fL_!==>ee6e_(3E<AA?sX%
zxId@Pcy#c~KfA#q!8zW>&juM8cID4fcu|Gd(&Hk$4pU34Yqt|PcK)daSY=T*@pF+C
zM%-nF{$EJ9pp9(om(9Y%uIbwNhAR!H(pv$4cjEyJm{0z3EC18?p3UW%GizD}e0BUd
zv$jcTt+l<TPOOU>tyH&DpkN*QY3kaEQSPc)%_TO~lZuxXkh)0!d*}MI?{T>Dja!)@
zB2*Y9)o+^cS=g@4PF-AS+<C~!@L3yxTFnzze<D2#M4)+QvI$*6;JS*v-t@s&>!{OW
zK75=uKF+I)I;%b&tx~p6Hj<Au=5}zd@ktvciaWwiuw{pL^{Mdnm5+3u=HyF^VByQ?
zhknqeK|1Y@lhV;VyLMq@&*oXFmK30apPu49G}R!AYc0DjyFsY!U3t~9u4SJ?m51h2
zoQ4(^AeUl3rFWLc8qPygxbOU*;qZ%PKqJ4>KVeSE^$#xlK^eGCJ!;l0>gwi?%0ovG
zr}!BImW<t!+tW8vr&T+~|Aw|P-6QCV8*iP3k0t!2ebU<=I{2!?+(>D6VeF@DEMKL$
z05R^o+3GSo>uBr|;tKbG(iIpG)L4p=%R$TL{K$=rq*{y{E)b*{`uv9!0E3cy4@36S
zfoN4pXJ6zNGQi$6SQnzSpEPwpr_<f84j+4_7k?kqp%lA+j?B27^jabKlQUKDvxby`
zHSI1>|4yu0po_V(Nr@ZNFK_mS&sX_@yZ3f><aJyxR@U7dt;<SIN(QJ}W!BFotCZ{9
zPe&`+e)^b^<P=ZQhf+<iHwp|M8wKdMqJ80-J;Q`(-etm6yHi-ya0if<9v33j%8SyF
z*!)&#r@rCUpBZFJG7|03D=(3SXCRuapj~LXb#-kcB;83iwC%(uA#s{7M1&G`ZI)8v
zJ#<q+vh$Q5nqw+s)p2j9HhSmYM_*{W;_}|u3yk{L=Ris>&!;~sWOLMPFYeJEuK!Ab
z&N8A!QA1eC+sM5vQPPxuS>j==Lc{ye*|9<IDBDq)WA2gTPv?s95nQc{y5eEjIYn59
zx^m4VD&}7fX?V7aFhDYWuoV}QE|{OK@y;yeiie!$UW~6)Z=iwPx%X=+ae=m`GjxR>
zSE278saL-H`}Fm?at~DFjKtr$l}Rm%VS@WM-lwdz)Y>saTJ`qF;4TukK%w@k(B#kV
zb&Y$TefB`Qwibk%@;jSi;13S05%oeazHX^r{x=@%ZolvVa7t&U<cl-;^xVg+123d0
z9X5%_x$*yYgU^m}c57ws^laB16ZJCjZfSfi?n)8b(4)Kc?);>w&sI6hfV}9#lL2Bl
zV{MFg$c2X&eT{d1I^T`3#3{~R&$zh^*e&@Qt5C(H99)QX_sl1G`>TaFgIiwro|=BX
zzkEFBbcB4qkP~yz`~m9uhZf*2cZvZNekym!6;?`3c~C=!3T^8{#7r%~SI`*^uCPx3
z;F4$$jO^y`6s}On(Gva~GFrmg#lv*p-ed@YyN$w1a@~p-_r5V~Z@;cHjrf`@4hCPv
zfwN8Zt)lUE2i!r=gfpAgu11?r|I~*}6x(DFmzl12=pf;B&vUmKP1!T;lRv!U?SHNb
zbo}C+%p|tCU?i<)z9$TjwFxg3<rOJt3YN#w`;Q$Ol4A~Tab_n2AbsfUO}6{J!mSC2
zF7E7Ajr+o~IV`b&NIcR3(7P*ESRSK?%r_j~!T?05TeJ#o%#o$#)AnWD+dL_^I&;Xh
zpEWFgtZcVd0Y@F^FxuEd(Lca%1VIzoFBA9!Y&tQ#<DMZf<AI(A5L!e2H-5JZxba+`
zLxrQ_<ttm;yN)c)+l-e<T9wvQ?PoRvE%FWP_XzuVl_(zYcl=%kAE3x9KB$BA_p2CS
zI+$HTOg=0zyDo<l&*3>FngF9INBY^G&~2D(MQK?EiE&OsdZD2FHJmv>zYA%pOLI&|
zGS{Vmr8=A}EQ-0OE{~XwX8PQe78Y!fBjF~(YvDUUP4PY6weP(TJzW47A#!Cu+o41?
zdnCOLz{6hHKaJX~Aga3jZx+HBY24!etoNhZ2Y(-h5O?Zl+QZN@JEksGht-Kw{cNFh
zW;oFtNE_dT3oR_*Q={-N6xMo7hgcN$cbSf;-9KkNU`O@;(Ca_nA-VhacSyP}@5ciF
z)`^scJi_kJJUE>qA97qKb2sqDQ4FKoW)m#D*es|Tdw6Gtm^*_I^<%7Z9!N~Ju|A4{
zasGFZ$=`tC{sue;GTifu@BJOFbt&uzVu=66umvr3>w-XyD_p5CpF!>b8`H^UaQP+|
zGlndIt4)f8V2DT!YDK4RSwi;6fZjWon9%T$AYAxG3d06fDC)sy`uJ3+@DaK5v1CSh
zo#fv~<iti}Y)Tb31H2#Dm%4fRLY(}til@}|D7i%}M~x=srMEi5`@~pHi`O@g5DUSo
z(>{uj4Yf!P%`aR1-pdqHXg@K3=pW2Ouul}Tp;4x9x_c91$yWUtUxkvD#GPK-K%-<W
zFZMAv!8!gAbv5n3!$AQ5T&kNg{mB6zC9~L&yd7q!6l!>}MIKWv{8^v%J=zCGHW{}a
zaJS&kwp8-9cIKS>Y(fwjL{0hv^fp*l5u$o0>-(!4E>pSh`}tu2Y2pi3goWg~hNlSx
zyVurGagJ(~5KmZfCbbYuPb6dD5Z9@7xEBe3`o)+H)~<|l?>NS{Wr87dwK#QG?vA*;
z^j^&KkBgUi6Um=yw`;}Bog4gb#YflN?C8+@LFoX^;%vMizm7dLj8i^?(K*Vygq84>
zl*6l)_XipRZ;V&Yb?Gi=NG;qzgzovO%2CBOd8)Zesi$;yZlbdr&9N;Y;a<U)-Qs@1
z#~banyEUzfFE6;N$Eld9)577w6auslN4L^`l0$ddF3%}CT)%J-A<7Q>1Rmhx7oTm=
zV>k2w##LZ0*in5sDg~Cm0)<Jq+^FehlUj#-zY-4JnMwSBolm;*a`Vmi<y`g`Q^U2y
zsAIvsl}5Q|Jb2`$oeNQ}C>SO;^%?K9J_Bo}OIJ?SKaHwm`$2h~xj14S?l%Stk;Ov5
zBj_kLHHHlPp9yehgAwTy<073T7K|h=O$TEWd>d+oQsbtm&opQI@uPDq8QqcC=3M+t
zRqkHyTet+SplIXgg^Z38DS+;VDO_m}DqPD^Un1sZD<+)WdIj=+VT6)hNtP$;Mfkqp
zML2yjBy#*aG+=klt|LJ_@W}>JdGr-D-<L~#^(v6m9cgdqrZTfL@Gh`IWDgPSlHn|f
zeBAVUnz9x(_s7Nbx@fu)MI&iKp{OlbL}O-#9Z|A)%xEQU5N($na(*6luqUCMEjb8)
z*@IgONpJYRbq_`kwZ`?4^o%?y4|ze{a-NihahZF*VG~FbQ6TKSxlEG6wVBSaYtc4q
zx0iHZHhKi!+*x}Ln47#M#_OhZBXLRqJ+d}v28dRJ!zdvr=qfHuTZppe?#d#MBE~vZ
z{WN8qE)SoD&t^1VmzNyudXBR7#UB@kL43Q8_u~H1!URb$M*+2?)aUKsv8ab3nCoYR
z+`>;D&D*`)nCO(V^l>3gvw+HVzk1C0TfHuIfv9(Vh~nR8kZC60F8OprO1UYwdKlir
zu2==^{NSI<Ik0>-7jQ|oY{h1de}KKb{P!UszGf%f>)wV#-ThRmS?fm3ERcj+##Lg&
z4S2=gxFt<A{Em|~l&z`r9&<nDQG6O^r})mGpu)D`0|*Pd`ird#4r62)=geOCV>xZ_
zj}WCf7B*c|^$1rxNvK!~*-fRaJb3$?0)aP`2)3l;5d2-ma3ZWHww&toUrf!g3<#a7
zSL@i&arLiu&qtRCJfv;)E2niDhp(;bg1uEySfdwt>PwBXxEfeEZH)6j?TzHc7Y%#;
z(Ws=m+TeGz^cO_4dO&dg+T#$ypB}gKrH6{)%^iwNo=~WE@T-QyD#MSj@=i8pHx=+T
zmE0S(ADHpAp$m>@pDlGidvS5_3Kc(ez^CpM{2if??;c*z)mOD))yF9-UXzDboc<oY
z$QzC*jL*8Y)+=2mkV>B!z%zF<+~1}nM3FNKZlsd#=x`|(zqC46k40o2^zLXL6s}f|
z&M+QODh-}b7SuXJx;}`G>C{0UQHpmGcqX+jbs0M_$~{13geG!uXu_{!FWXY*UGMm!
zk?%nT+M7AEzZTQUylY~w7$WBzkv!4x(ZMg}xoe|og=|3w-P4q`I9U&zqXeRXn*8AH
z$I4q+XnwAL_enu;BoPz7E9`c^Nqxx-+fx1@T4YYiZB-OsaSwn$d}WF~pEze<R-p@@
z$K_3#5>Mj9UeB^5p*UQJw(Q^{yaErkb9V$a<zJtG&0zC9gJZHYP5a>ljv&Ficfu4d
zS84)1UGr@go`JmaQ@B3-5GK|9dR2&=IEEDC6gkS8w`<W@p-DZ<Iypb{T2PCNU7O!u
ziSTB(PkARdl4~-s1UcC2J8Nc=WG7w{eU&hL^cO@Zv(|*)cHj^-K)J3?>OHC9F!g<k
zg%I+lUrzFYT5|T<BuNvFj3C;(t*r?E@hl@wzr2hP2gW4R@o#n?z^BAvkdY!j#&;r0
zV6Mq0=<NZ7y4g8O<N?HuSrQD$O`WOraaURIKT%X8hC@?m@ZleQkHx$-ymWRl-S`T&
zv?Kb_I8y!<?G5XYL0SgPt?oE6RzmFm*4~vyv$gj7^k_Lft>e6Hj}D3sL0c3@QAJQk
zD@fH)YK*o@%{AAo)pAa?v^!>ks-YaE<}smlaAGc!)R?x320<!8M2P!D-}eq{-Sw{Z
z-gUp-yFcJV_RikV-urp}zv2I5a@WgO<0vd<R!}eGc>_$1a{W40dTPu560cxL)w0hY
zaIe(~UEnZ|S#b0W(A`RtxN^k3AI(!F{*Y{X93?xwY?Zs$lX2cX|Gf>>g|I_(j#6_9
zJz6ggYujtL;JR-w$%WLd44>W+Q@c29$gM;=Y3K2QT1R<$7uP;yYqJ6p&k_Ru3n*EI
z{7Fj#uk&+}qt9H}HL=$polIb<0pyM3^o)z{f;l(A?{zUB_pWBS!D4PWW_noDQ{k5j
zGHrP)h#(DksQ%KXNPG+FBGg*m6P-?zaHNMEn2z$Cm$HiXhEC19g_MrAhnUu0nkT_^
z?G2-s>(vO<1m;$)e%8y!{;ieY!;~?-!h-Pt$MRm<L>F&Kx8$bv?-SKEVvQcJ2r@36
z-T_+BQX+41ogDdvQuO+w>iZMqux#nh_yks;%_zA6clMfp%WEoi|Ko7W(xsZ3{w1O<
z-oZeZqtKmJD+#0y#&}|2@cbrd%(f0q)-oN)SGDYj8mj@(0>bP57noW;V2-L6vhdcf
z8{zK(?$p}DcF@u6GrJw|_1wPW6@C~iPs&->>Ds7)R}6>e5@vVL7dG%waV=5xyaSOs
z5qgt~hLh|g%aK;*Tke1jc^!5KvMDwuNkbm)PamyM#92{ildV*1dQ{jm!jVb^?3|4u
z^;lt;Gr}RcUt&<lex}0o(7*{$BVG?r-RC@cIm2jtl)8ZvS>_FvBdjm*5!i=Lmdw)e
z9G$$W`^aEo5C!ts{pb-q<cggBM&|K~$)0U^q=Ni<mea5-b+CC|8xMNRMS1w3_g{9&
z+w6kHNNCApHInN+U+99b$@AXhp7Wbx(tZ%R@<*dzRRiz5e7lll@Icc-&}?g+&n(%x
zf&a+eci^GeNTgG4zt^-A{9YO(?c+j_LmF+jJ746!o4B{{r0XD97UH{#*m0~Eipzos
zlp61B5YU#X!mELAJ)?n?C^vkz$LvG<q@S3na2t|}HqfQ(jagsdl-IY`0!uj_-is!F
zH!pDLKJp`&kB&YD&`FH83bA)WsmKl;VpIBXk#4a$znJF1jk^({NQ~t9+rI@R89LE~
z-nS-iH)96Ya_5DyXIEI<iPK#d{R1yBvC)y;m7p!oFsu6KnFUsU#OIm^pyE6cEEgK=
z7-du{+Mb?skc0;LIvegl{82ueRV3MVv_YM4lELa1UmqX42q4Upfh{Bp2alHpSvk7t
zKIa2G{{g=uL}1rJJuXM}wV&^iu!LRLQkT&T9n*g!i&G<*KpRd_0%pUj=~HjvWg@y2
z<AI%xH&sck^EP3b4Fiw)bqN7{xKyu3vb}v<0+X$}aO}&(C*+jI!ZEvGcWB&9>wB29
z_nU8evVa5sPtf8e`)}^fM^=&kY<H0zurg5+KnjtV?DSy%vAbF8jEew4w4K{DhYkW5
z=X`cjoA|{q$+TJGf)GsA2zn|zl|oZd<Zurnb3XXz!jzG^z&7xsvmIZPfE1ir`dL+g
zGL)eC6pw>5#3lm(^U~^pL~J@NgIrW!I2O|wyd(fi&iw2Q7Zt*GDQ`V%jhsrKqo~EV
ze@dtMIYI~JMzvsV6V-$xu(mt+j5BY)Q+5Y_pl<lMK$=sI{0Hv(cZ4+R0?MVpW~e1v
z0Pg5o!@wbNUF+Kz=@1M6b_ASAtHL*j>HiY;5*!_D{|bP6g#y4Z<8Co9qzUj^CBMn-
z8(xDcw`l_T9PuB9jc12j&MiHF=NeU2KEg|-($X*v6MuJim=0!?xPHwM6z*ViCJ8QH
z@W(&FiT{Ih{qMnM)iW1Q2nTtYR>>30Fu;)i`2h7BvOB+fiePW#p9Tk-hX+Kpe#KKl
zP668l9Bot;KK~784Gza*BILn)c_WD_8+xyF=aPaJ5YsjPE~dAYRSPp+6hH_YAr$HJ
zzPR5E+Q{RN_1r-6)d|g1`Zk1CR;lP_jW*cGYU&Uqp?R#tK)2&7X<b<mz|=RTINo~W
zgn3f@HUR)@>piaxlshF95P+2dQ)q6Zd%5Ni75)uR>zPE1L~rCcByXJ~NXw3@xkxu#
z_I-z_zBga;chxFp2O_J#Y&@%?sv<T4kFV**7j=B|ecT}wxr-=^Br0}O>~EuOR%Syc
z0FlE4HX2Gi2`%O$;8B3+;JL4bT7Qxl=Z>shU0l4jd`<Rxblu~qxS*R5`cC5jvQtd(
zF~-ol8liL{rU`4XDWVvTwlzeD82S4-@|__x+7R9T;Tdi9a8y7;%6jvwLcCxPSmzg{
zE#7A_^>4h<Y+8UJ+RXQx4;Z#Smgy3H;rCG`IZcnh5I$+NJ%-YNy(Qj!BG|2MZ`H5u
zF4@VnTaHPaZcvB}H=?wU9F<LrvtpcJrg^AVHOqzuLgT@;k$R9=l9Gd9Cz!FE+-OF>
z!i0IEBT@=6+qV7K8?BlFGd9_+;m^fHc!jb5AkAR=_K?n)oHOnEV#S!7(gOEqBLcE7
zva8^@2^zqwKvyJ-u+B&<`E^_M+dlgL|M=HNK<~Cd!c-QQ5GdoPk)SG{f!kvovS?XI
zd@7BN1WPs=^2)lB4hvuaalN7k5PY1|o!=>&b(1MR3BYx^;>3N4>^JczJp2qQ-L2pX
zIOWQUaP4d*-Ri`ybabu>U2W|zz*%hXA=_099X+37wByK_@&aHuhy)}egZ6dXNyTUb
zePn8~zrsAzcPh25SE3=#LCV%K0u?i%4Ya-rt^{U2g(i-S(gd$YW(T-V_Lo;yCN^g!
zB`jq8qmL7s6T;%<G$TKQ*+DrZ2it#{aMq-X6WG4Pc^5Ffr6=BSil*3&;9PtCc02+4
zPs|E+haq>g(hoR0$~q4lhEme?c9aQNI7XLZ0!yPv94vEXV!HF|Q4Fhm*ddVd<h;4&
zYL4*mFb5C+`rWH!4jCo$LyRDikd!1QK3y-<xKQ)m4p>ak#|}d-8(E%feN0e{L|XKn
zxvr3y0BNfN4&k+gaNC$OMlELc(DHh7W7G!LmXBYT!u;?PEQTBGP})Zn=N+|?0n=72
zG_O{8XvedUyV6rxD<J}xL8Uy7VxW8b%yUpA)UP6Ismztx+!@C(1KyBT^#NGA!fvOS
z*;D9f5lK2+GvdOH?_hdWr-?&*2h3Pvv%1wBD7|lwvOBoOVHMK{oF;genVc!e09j~*
z18eE5LNt55++BE=ay+=CqL&eyxJYs%3Yloc>QsoXh**XT?S#b?UFl(Il#8G=j>a^C
zRs&^86goQBW~5pB8VfLXq~u3%3X1-e5m_wpW19o;ucapzRkZE_kvb!hU)BtS4)w*k
zi@@4O6lA$xOPj}se*lXqDZK-3rht!*gkD=d-sNlv&X4VRoS^hGW$TXJeK6QZ0^K3@
z9E$`u%eV>bdUsDI^{~|LiRJp7hXr&1OUtmzJcGILczqn2SHTa$F5MCaPtejAxUZ4F
zaVa*6V^*a}G@TqlbFTQ);nB9zCTC4q*xwDoyixsW2rgaP6D||VIskh8oUvL;J#I90
zopPlA#{-{trMm%vz_jaBMeF5*-sK6lEp0~x$By7#g>ubU=xyqd^r}LJ+tt((0&S__
z0B?7FK)u-R<h(i336yj2w8G36&GN*|8=!|$j(~wCZi2h=lPVbB+aqL()`5j`R8`?7
zC|du2`{yGNlToKgNQ9%Y!N(%YR@TO<WQgpE=QNz+iso#%hLW!QOvjo?jM~j@HQBYZ
z6K+$CN#>0Owi7P?t*1EdPJJUn{prb9;(~ogRs*ohI8Sz1uCbdorS1_w^UzAjZ^0-Y
z{f!gaWQVhlfbT_NpSiRK@-3sSKnbjNVz)3U2{rqK{%E%onK=mNuiW+;K*^Ln0A%Fg
z$ewWR)hEAS2CG?HH2a_(Ebn(A%!Zv~R5+vsZ?p%jHFwfVdI9^hJt*v9o;vv2UR*3;
zi6;#6d<e=5z5Pk2yM2KT!Ep*0dog0$K9v|*aS-wi%G!Dcv%Vm+wmF?PEXuR>s6I&u
zPv~N1(|QFa#T?K?=~lS4jt?hC&X-lR2F}m;We>mH%)?T69idDRJ?kGTN$)^{?mmiC
zB$!I2;UMoDBqPcLLF=`>_Fr$bhMBoE0un@C(APoexc?2v2HxmdD#~hF3C{^JVXec{
z3c_-<EGF4Q7op|?<JIWeL~cBYt76Stsp3UOq5grzmV62Z+OUP>=b~D(X@y81Qr>_p
z$0q>ND$0!HYm}((X({pv_lsQEKkRkl&mm@;jOg5ttj55_uIG_+Whs;wL-$J-ryEN;
zCs)C;9wg07Nnui7-FjowOnibRZk&a`q{I^WN3FF|yEg6Y>=ryP+20bVI$wsc!`!6k
z#xIK!kGsTt2hBn*`Wis>w?l8f;N3G%idvN#EYjxVFZ1+~jf>|sh?~pJoplOkvf7b)
zrm-YNpUiU;$!9`|G=z5RCw2rnca?Ww;YZ_?5$V9b;VPEvjY%?aS{n$hM@+<o57DNu
z<YTKH@PmcMBNeM*C^gjA@<)^x1xJ*WJO}v+$RFL;A~F--)^+v2@+(`FDqE$$8LQM@
zBo9@k&7fegJ^F(G5g_B;;##A&3LX^av$&JkEoG*Sc2x7{C5q>u8CQCFk44}2p3wCM
zw2dwXFkH_(tf%rAKsqB?Aq!;vHb4KsDM1dom}JVBrX~WtBB>}7Nv_yL&8Y+D=*myz
zNJb3(s#EmU2R^g+KK~F|m+{fDESG_@3B?t~p}t;WhupC&J^UHPYmg<p70NLiR{8M9
zq(@i(DZd&&G1-)l3mU0%&p&!I)Ly=>6jYM|#ip?Aaq0$n80oZZC!A-+7m1u*i-JUo
z?Y=l4zcxgBrC{ddG*#RxYKT=j7l9z$-97b792z8POVUZ8cCX!dXMrtz*j^62=_$RV
z&*tz)M^~~DO^??gnpyMba2tpU&D(a>A1CVIEK6xT%OeQTI~{tx^w+B#)22t|^f#)Y
z=kMsVY2D_<f?=U`?RY0LCC39tFI;+481-ZBLMhqz(j81VrxQN#2X9iBI6qJrUWbM-
zn2pPRuXP<?RJemaDX!M?dj2G_B=vjE8vN?TQonngrh#8hlWE+tbHX+rpy^fB_^9_}
ztjlt)f&Hyehl)aPylail_C4~^R>y9g%2oa-pgxG3(#t(V;W|A9##RotBMY@V|GenO
z4-hJMJfi+K9K_VFkLajqT)8mu!ff)jZO%`NoC%Q*oBnJk)0B^g3_0wUU*rd@ac<@z
zZtHT#4^~BR6Xl1)MF$rdzGhp62w>3BGv^Gfk9f*|YLX#dcws^w_v|H`Tr&B3g&H#R
zTYg`30q4kwiMk7SVBteKyFKx3)Pl8EaNN_Eec{iZ@a;&yVk))E$wTUB)iEg^xP8hR
z!hM5^Zfkg7J@n+3ek(O*ec;qw&Iom*0JL+wxrp9_ELWVv`?uAi9Y=J+{#@(Mh^>&g
zi%SXA9pH(*+FH$D^c8#6e404llmbmnlA~EM2(eRhi)9t>U-vy^;2txuABy`y&(`po
zWLW6?BAcqJ@#BV@s!jc(TEe_q`-KmO)f3g3`oB!=^!??YLK364rjPujt_uOqt@qK%
zVXhbp^ct_)zpS?hkG^LWOV|PFA7S1~7Di%>zN-Juevr@4!;VYmyhX<AFF9H+zxQ+;
zF6yQ?$`i}#Q@oVsD$d>VBLpO@;~=fc-C2=gBeT{%!6BweY;RcyF@^G#5kyc?#z!oP
zIcTwOF<z7*N4OT0wWnE1I(YA@2f6bfr^nyP%=^zH_ojS#z2PWK57Ne+YQ6O+%vYg1
z$?F4W3$+3!CI_2jj@Jj@@ytKDXhUwZ(43QHa(&`Y139yB<EZpA?jvy~(8QZ}T-?y_
z9IX;pML-Z&B}!c7jN9_ri}a2Bh+kvZHx&xTW)?Y61e{P0Ipm(XQ5zW1`f7{)M+2$B
zlp1m;$tufL=GxF*`$(^fBu2u^mNXHfxAmCA-N8fi#S4|HrxN|9V$I8lmD>H}C$?OU
z5KOj+e0dxOt1B2grGP|W=5%K^LG~@j!drP6vTDu~W9KrXgjZB{qdreKCWrj^s(FlV
z)&GFkeTH`?(zA`5bzr(eZJsS+$W0ZRi^AQ=r6_dAt9cDCe6=FrQ&Oj9NWP*|?wOs;
ztDL5q_Nla#ecrL1&br=7Sbe`IY^lATib>Occ-P+UR%w{B3aH=olv*?UyONpDJ;Xm4
zr_N2CAZ8|S{ZiC$D9O=aWKyTW7@FRlsxMtEbvYLY>_A?Nx)<#)HPca|s=_A!e$-p3
zovebWR<Iu10?+WwbcZ9wSL$xEuy;}WOm~u|nB8g~YWhi|lP6`>zdB$0jy26(l-F|2
zobS}GUPwX79S=4vReSE6;vq_YS~4Y}G}3inV0TTSe%wDh@kdcts>+||N-C>eUQfi<
zBEZU$xdV0pRK77j@iL9{Gh@0k7&QB?)6}q+nH(X!+VrenwIbGbqW&*d5}Fgh%#U~<
z(^PL<6%vbJqLa6(^*4RYN?Q2}MBrI8OEDTt^+>&;8GBdU^-^64fjL+Q*DdMc7_(9D
zJKZgAxe*$e`orWZzo*l6PA1>J`pdMg0ZcEzZ03vxHe>Z&Q(qjs6><N3&(2P5?|e4h
zkh{Fwi8E=)H5Z!mF?G|16S^dpw<Lu60oG2vX(99GtmmLxh^dL{PTh>RjC%;zzxZzN
zPqiAjk<l6j+@i-+^~K8J*9+mw^8+sywjX!DR#)&Q!gRch{DVrjzA6<NKRFlFlRudj
zo=vgH)~(QwzWnn_E~&V`p25}{-Vh^e&8ep?YwCJsM_Z0aCm-b!^B09KJz)kLN+;MN
zRQ(RMBL?<^D%`TKn?Zk)zj$qSv-)&JYx)^vkWnrla3;RyoO#5GbyLWml1{=+2)yyV
zJz7B>!KClW5+wR#hU92*zulVTg{qkVw@mM^wJO&hFx4HC#CQ>5wVt=;_exyO;y4qO
zb>sb>O#8K@)^Rgc62U^n5EyOrW~G3iTFHn-Jw6sCkCj|trqg~Cr_RwWSIAF6oZ**S
zvdlu{ltl#a%=n^G2Cv&u0*(`$N=SHZMFQ2nVNnhffj<kJ1AAC1vk}W-2BkEjrY$~>
z4N4YFAr7o45C~Ry&U*?x16^}nX&d~npWIXkB6BQ!Nhil|7T%>^w0^Rq2a0fi$af>Y
zX*Ecb;Zh8<5-emylaN)H&3y-~ejlV4*s)h94-Xt^A*^*>srQ?Ry%F^z^-vG>o}whj
zQ$TtQ8fXrCC*Ky&v8stSBsco?wuN0y9k^nDA$X)qQ)jGqeeYD^q1I<p132>11|o8=
zRyga8l_yLCx2R<)lf~1CFAS45VZD!wM0h@06P|3Q#{IV0VHm12@KJJFu>2R?91d>`
z4D|ht)VX&`y;HFE2Z^Qb<ptacS4g7Po^xlawF6%2`h75_ZBUjg*R($R$crS-&(p(}
zGWwmfu}H)ub*XPfWszallV~OJ2^aj1jQiypYbil=4zEl+(hq*~;n&{r_6yDF=n!(x
z%~a$9?Axf1i!WncsCG%Fyug;E3Wr|F?5hC{5SGx!_-`uZE*7_n?Z-LJA94-Gx7T25
zSRV+U1ye~I<X@fFYFw+udlQvRd)L%r1MRnw7=blgzGkmIgGXo49`_Dh4)--;HG{?l
zR;z`~ov7?NE*d*`lDvg3<*_@(D|nmm5R^X$9-Zl7o9I}w&l|KtI+cp%Ibl9UiEDv|
z3K|U_{e14^LNm1C3G!9_@1-iCR7&fM?e;9El(<Tr?cjg1icUU%p1@PpMHZPy#{=r#
zl8@F3@e(?=S7^sqn;U0>Z%T;Y+!OXgNV53@mq3jNw;I>3mnXf@sSOP+oC_^}_wHoS
z>TMH$S4ULq9JW3~?NDfZ2Cl_FwLJ5%;4RcMcv%d3jiU(Pcy>L@?|?-Wn0$(Me(Tsm
v?fym)XYTtJH-1j$8xJq|(Eo`oMnz2bz=8gun`O>|>qQz~`L+C_^Mii_z6<bq

diff --git a/reference/plot-4.png b/reference/plot-4.png
deleted file mode 100644
index 1e5ee1f749e8b07f5ff5706feeb25a32f8b876b0..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 39036
zcmeFZcT`i`|1BEq%25<l4k|_I{TKwKi_$_>dJQN91O${`6U3v4NDC!Kst}|bdMKeN
zB2|!HLJ=vE5_%7Tx57E!cYp7V`^J6ajq&aucicS&A%vZ^_x`NUXMX0KYbRm%b=A+F
zxpD>qft-bDsOUo=$9*A?qmNFV0I!e|J}iS@Cmw03tAO8N+qqYb0>4f_)iCpbK-fd+
zKMYaRD+maL3j$M7HuOze81+eF@!D@%@sYByY`tN0pFvqgnPKHTqmZhu^1|`^x~e<R
z#=_oA-)7{$yl}jl!<XOYIZH<*$7PjF!5gPubDc7cP8ZN0up0cn6t(pB^h0~JwtcLX
zuL5V3{1NO<0ya6Yu7!Vm2g!SQLjU{We@6gBAUM|rjnfZpA`RtV^!_}48Uisis~q}7
zk4@p#w)i;ma#fFWGsnIz1d`U;+TwluKT+F1|MTDH!9s5!;{U#E_~4i?!#~f{-aLwt
z1W(g`tv4UOtuTPQo)H4cMHk{C(N$Wq=K5N&i2MO*m^uHfGt3&cd$;@1{6V6=2pIy)
zGDmpDmDb^+;}5dXGaCLqtxD)`E4NR>WR<%SXx%tNtL{M9Bu_+qX(O+W1MDcTSG=J`
zw>!*$hi1_oa%-+66$eL07IWy>b!<7odU$nW*K={!-2xfuM&%xJ>Y~{BeN&jahOD;!
zS=d#cAdy*i7#?OGJK=9s8jX{ME^XYii=>{%ZrR;~1!xUl_n-w`U-R)(?-qfPitmqW
z=QeNIe;hVHywJjvv)nA%ueW_YVa0DF(Fq@;mt<iI2De}3pf%Y!+$>0W7SxJ(6Oq~N
z3i)}h_lapKEWDR+_w`^-+>Y>&KwC~0yO3zC@lfY1?%0MFuBbigbjv<FJYnZ~dipK&
z+DcsOu_Lk1UTE!ZKpDQ8Vp_)o6mK|I;J)z8-x}hL+OpbYs=RhD2WP<&w~?+@#Rlsy
zOCL|fK6XBwhI$VB?7fqI=+m-On*Mwdd*jCL&vCP2v*VajOnY{>U8`JoE55e<REJ%6
zAa1JPx;bY3b>~{4k$x6W>nVMNQdZ81b1v6m(!6F-+v<)X#2(3p%#k7(?rh63_vG&J
zg+i1p!`N$_5fs&<vUkjPwDnp_T0X|II|$8X#W$9CX|(?cJxIX{Kdx(v|BM#+9nCG#
z3LS;cXtwG-6><ICjMa3BoAJkz`b}`AO%g1<;ye;ne~o%PGYoMLF&yg58HX%2U!1={
z&HfEp5)_+GXgStbQ|bk~8iRG`f>+Ux&3i`ieCjO3?f-JPUIX`YJa5sJmlX8)wl5@{
z{!te1S?OKdSR1askMeFA@0=Vv*7WQ0+x4|&55^6`={cVd>ccr`^R~C%9WkD1?Wc^h
zf}}Nb6Vme23^zUI`0E37-#0zzVi*gA@rof*(Oi^!VzY|gL*wU`_jx4JcQmjUDmST$
z>iRlZM=3?`7P%Wa)*=4K*?!hYDw`pX5V5{)#-0`+`@yz(Kd;oe{$ZJR+VvPU^eYY7
zZ-@XF?1NC(=dmV;5Z;H_`W7TQWphyJMoy)A5c6^FEQ{&s=JqAo+n@I@V2^+7DBbLg
z>DA?XJz0LBDCQ+xyy~vG_AyEQ&P;32r{Pffj(gEUYclcrOxOCO1D1P{f5i71b_H8J
z$Gx!ov{8_|4Z-s${M47mSHAR^Mn1`^!pRtQ!!(ipF+NtS)(KoL(F|h`Pq%7H)+gp{
z*{hb99iFre)AVH(Gv@pInCdCcnDvm6qgS{5aRK!i@_3smC^p!NsLJ7Z11&3uo1H8=
zI4$P2cBN%OGITaZ%n@B_rF1HOCrLBs<hh!UJc9x(gB$uf-J_>BPv2#%9O!XT#!p&p
ziW~i!)j{_SXTX(D{Hi%ZyvNdev+w^ltM5p!>x2<%avvwJVu;*O0$25r7N5X$+$WXA
zjI%W%F$z}QBa<=qpS0e;;&2r6gq4gS4qC*hq%Vq*f*Svx0md)RBVAo)sL-@yV=uOC
zf6{Uj^;f;@rHZ%<F`h~4Ra{4j(tO#rxeR04HPXVx1pwqO31BUfK@^G|U$xCgX%369
z?D^_;OF{|mOIcHjlNXzVZcS-pcT7k3_#D&Q$^&6uu>wkC>SB2Oy2cu=ZC)t=H$<8!
zJ5s49x>BVMN3)&XPHrpLJ>6|w`Xt3bX%(UNP1Y>$D`N>_m?DNh7@a7)3nN!A9CX^`
za>Irfiwewwr+o#P{=#e5N(<*6p3&QLYyhdf4>SvFD%)Rwz5rcAeL@?Gl>GJM0>|tX
z|0h~}(KDCj<Jv=1at661d~#Xv^}pmX18wr%w}bZAWLcwH-WqTE-+BfMh*Ph<BuXOp
zMyYX-_?q8-%-4o{_|-&cFN+)dV1h6LD|;1anWoS-?Yz~H_7JCeyRrF|fsDj&usD{#
zL9DQWZpMc6#1{IK0S<xOAJVz+&X8uhgFd0TtIcO>G5U~`;CGjor9#6lqDcxr%bw)R
zo@!D*$B!8>puHt~iMiX&6m9rdte8Ljl#ZY#?M`g?m?k}6H7L{RevEOcncP<zL?{s+
z)R$j_VOow&lVSdMyN^Q|T2DZGGQYyZA4U<+u*4a$Ay#Y59=M1?AlWwb4s-`WxTmjP
zIj)$bVS<f$)slZK^$fl%E+?VvyKUmY<9cSyfN+}w(aB6Cz(*k~{(FWP-a6|y)yA!|
zlXF4pj4717XM`2J7V`cCHw!VO9qsc|(jaLpF}{o*{nN|Jmq7H7*R_g7d*X0eh?#nw
z#xN)$qG@=l2(?F<)+M@TZN0A>fR($|jK7;+6~0^EnZpT3g}#t54)1NptiNcOr^1{Z
zX;e>4X=k(Cc_oc*$Njtn$(_^XobT?!u}C*#mH!gd`1Y7}2W*$aS;UbGM|l)PBrsVR
zgUS86e%o;|Snu@hD3@`*m|EzHEUQD?+vc^k<uf6+Cg5;uhBE4EYCNOU#RYX6d(s$+
zYX*vUO<`IwiXz?I?v?C7akloT<Zy&$mN%8l!wL+Vg)Nr8bCEz}yZ`yr@)5ue1a6en
zcmIKX5Imsa#4Ev1K7+Xx+C)2$uIwxeAQIh9i%0i1AxPepos;Hf@y!YXl=9n`LriXL
z&HE_9`0WbCa{gRe-HnH4_$I4)?sGXlS5Kj~wBzTeme7mwmG(Z5$z8*)jv<$0{P1!z
zU%9O?7u#Ak10-ITUj_mG>j)77vGG}r9bt8GKeOi>asJvw5rxye?kx4RU+0RsS!Htg
zbIqU$+#GsQ11}qpA0S^|lm4|QbP86bSTV<gc!86?2FC*g(t1C!nxdBRsj1vYq1<bA
z@N%iD7(SJUEaSR`#%^*M#jn(0oel$j{+}$i;+>7sL_SQvEQS~N@^wj4SHv{G)qaxy
z+vPh|!(W@Petss0XU>!@BG$u3wsSb)@q_>@_qxaY-U%4yq)C}VYdE^qvb-;W?YmzA
zF6a_XBvqJYyGEtk2l}~3yLx<j<Ao(0byFE>Az#iuzv{08>*Q^g){wA*cgCE)OZvQB
zh}%RfVtRYkWw8Ek#&-Yd95#9_Z`Xz6Z|Upn!F24@(uX|IuXy?}p4c*c&!in@55KGt
zJ2&~^SQB)Vca+NEsJkKH#)-ML!{K-$AWpKLd-M_Zr=E^#XF!TJgcz!ABkFx%$ohUQ
zuQ;`*MR9ImAS2(7Ba_3=B(AVM#HOWpX_{xX4RhMFnteP6eWoCY(e9(LX>6J$zMha;
zXE4AMB|X%{&w)Vvsxj-L*B;mg?+q!3dU7~VDYlBLcas?6R$gkSwP+!j)Lz+zxG5jY
zJGFcTc_j2Y%vPaQYrR=5*aYpWS&Ve$embcTXNN3`l2a%@&i?bPmU;3c8edCI&B~c&
z`~Qre&86K1j^XW-31#3VkjB~&N06?Js=SljF!dIZ*M{+`JjwjCD^E=9m{?=5uGg;`
zh~jLYFjJpIuRlZYj0$YMJfHj)<LP{cnw6)$7%nOc7@gT_3i6ANk*^z{6QE3Yj$fy9
zRBs2j)^@*2=w~E}*NUs;jzM~mElp(h5118?%f^Gc)@<$Wc=WmWTO{?}<4}TI_4k@L
zQ*l~X_;M<7f`YgJi|&V)^fSI9qi+d+R`e0xQ9Xr<?NysO8K=U5_WS_lv`peF$sTq)
zy%}JxFODt$hHu>)(=I;*b}nfWz!r$c&ofxkC#E6}7rPL+4q_%GU(7>mSsb0vq8-1S
zf@9(>&??Hu8jpQP93iN;zHJ}1p1C~h1$`bb10|TFu1gfV`mATR7fDBB4c7jIp`v>=
zXOa&1SlZ2mSZ=@P^?)Ng)DS+l!iX760XK_=yz$J^(|7G(%&ywGQc!v`m-pRD48D(#
zUT0bGh@HFfxK49U#G@UB_Dsk1Lo=pXwfygOm%KS~x#VW>v=z2In}91p?5j!gh+@{?
z;~Xw7e6hW>G1mT{tfi;L|8TSMxzzfPN>G1&>>X?BLxYCOlOUZUrtPW^DI|Ra6djWe
zw>y_qgIWK1`v2vzFwsdcr`KOTe!2?h9M}HLv*ixbm9&S;SvbR!EbJJ9bK{NIFz24N
zf}vtPvvK$Poyg<dP*hZG$^97^n+Qv`P)dTKNKQgS`G+@~MqwOQzq-ZB;Y;x<>@ybB
zl!+p}NSrR3BmS0N_hnd}#(R-jA=n05KwT4mpwOyWqB4_IfVpMWJqm5IwxO^ZuaZUg
zZwj?k^(M$z>%q*q9An#ed@Z^gZ+fj1V{pPeL66uwp|C9tr~A(lp}bzvx3s&}jjIaK
zGp2aSbq#868LI5q#!(Q5;I|ce`d|Iy1S`cK#rM@AA~Up3ta^}U_;nDQ>aeSqYSczJ
z)NkY1ue0#{j){5y(G{ybnrQ!_{Tuy~&YX+)bNj<%NKreCbe-D8D^@_Om6Htf7b)IU
z=s{4gqZ9Zagj(=S^9i)+9VCjgXy_X5dpaLHWu{gs>?f-Por!HGv%*B>S08gZ#%m2j
zVNJ&OhgvKRSSxTYt}b;0lNI!t;^KBksI{u_6d12s2MY@yA%33w@EbEyjX3h55}M()
z#zWzsy#`xq@w?a)DD1MPZ78LB{0)Z%{Br9b4%ymixxUsjH4mB))$DJzybT@m(~c06
zF9k7)qdni?Y7lDcuk6$~IJsweojLKGguTr=JqxO9e6PCwG3UsQY_Xg&oH9BEb_1_h
zK-}dm!YAIv2CwZvU1;z(n-|oZ-=>rwEzqT@n0D25{sGg;UspwQl)}faJEooy2#CgA
z<t>Xfyf<_0Re`L0#_#c}vbG}9z`~dqiLSJ`xT{(NWw7EN;kGI>QmQ;N{Ph;`hOulx
zS7SWiN39oSd=r|?UQU2|S)gA+m0E1DcZ_VJ#@OeJqS$|KNW|Yi&oCwneXb_gob+4$
zy*IQ+pkk%xV6otF_3-u2wJqCUTj%#6tL_E{e1EdXc*Znr_FO#s<+ALP)W<HU^dqgh
zQ!c`k#~6yb@a|CodYJ9L&qJ+s#bVfYY*EkhQ@?8(U8oKS-m=6_Zhv#w4Z6gRHD()X
zBJ)3vcE$SG6>6sm{mH*J_VoQ+V*&-T^mu+F6Uwd7Go5un$^QMipKC^;Qzh60>TyYZ
zN<P=Os?4QOYuNaWZeKL#)1j~=$4sk<Vg+^kGZ|29R|6ziQ{;8WRY-7ac0xM0#CSB@
z^y;gP1I5$bx@fl1A>$dT)`!rH=<-&P+a52yYbiCcI99vM&xg3y5Mz{b+91&xR%K*A
z5%*}`uW&^DZ@!Y(X527o*!!Gh)^D>}R&{9z_pb86$xnPGzC+hkSrggBB(4Y=$eMSC
z8)%zY&)lvh?2l_yi;b`-i6abPn6{)Beb6SN;mqa;&9b#}sC8Zs`aF^YN>Fu+GlMJ&
z`iXb+wD_kWGM8?6MC{*~<rfa3RNN|i6#3Z^hb?%Y9=`E)=7Pn?#D1uUtQcB`sSR=Y
zispJo+ZdE^^+0bXs9bf%o7^@{v@t4g)#4q!g7u&nW9~W!ge57J5K1E(;m4d`;Bugp
z*i_D<J<BY8|E87TvVtsaswWo5g!ojTGc4ImNNo?W{aDs13+vQ$GEm-#?N;i131#>O
z#UgP~p}5}h-K}_ZYfpQp+kx{|-b14TM>w)PWs<ZnuS#k>sKi;_@Nk)GwscmGPkzhZ
zzlIkhwIPtb-(x(}qxKGy(}lI|t@h5XnX;6A=e#Ke*=G39X(23EM9&wVrItVj_Qm2+
z7r30<lC#~B<GQo8F>CS>VQQW5*$0@{?HZ|eYmENq;M59n4E2%3{4~2fBf4fg%H(HL
z%Y#+LrnbpVr5iw*%ACwnEG|#JF^j->T1?BkWn5&>^hw7JSa##PK5>6rsD#!Wv5zvP
z?loq%e>~^-1)buV6RPkCU!&!B^iqx2$n44^UIFnwPt|^BUU#?fb0wSDi9!lI%6;L%
zyPV~K<c|T@HYL{_ur@AF{M^1RV7O;Hj%`ru&SYDkC-3+=kHb!Hw#}Rxv%RRmmsM$L
z;8hfFl1p=Ic;|0PF0w9$N{0BPq|+?&ziBQKfr6f8w;5{r(=D^6)izbhoJ#!3O}A$u
z8YE_{I4|mrpQyL06G2rKmu#|}A~FlXLhgNPCx&>Rclf9sT!?SS5TbEaZ^Z6Mh%1k2
zA=FBTGvdz~t+#Du4R5p+m_W+(v}+p>Y6-)PJ-sp5qbu((uI6P!+*It>Ewr$<z+os%
zN8v-SbsHZGKx$A|@^P+Eh7We~!dtcxh}5lncAx5^+n;f!{q|y3$`x0)SHZCVfxQmq
z*gPr{%KezzJ*7uNe5Rrnb2@H_EGNR!E?88adJ(gEv+`sc?zen(Tj|=V>OttFI{M|M
z<oRcnxXFuFBH5pCG5zIdhb4aoR;M#mDMK?7DDzb*?Zj9zqEcRIR#xEIk0oa3RMI4z
zKwjTd<MTDW*EOG8s~vFbE4MX2@>7pz6!+%)ux63py_y}|7u3zD?eU%==@gf<Fjj$G
zq~o79v=G_O0rQ<dbPBDdjuJ6KyD6vc%F>o_?`ZukNf;KpvFe;wmEbK?)%mN|O`A7K
z#E?F5fh)b|a-WEMU7|hne@R>#d~8o4C^lBn)Ar8rd*R(oek4zRO<I@<SJyc;G4z^C
zI^o+CCnr~IyW!Ez&F#J{3Nd{8ns)w&-|2$tO)egcX*0rC3aPPZOax@<k<7`b=EDB)
zkaqz$W1`zFi*z$qFE<~PC)Td-+fgjUBV?z9ue^JcyqfVq+X^1PCh7a8tVX*!1wS}{
za5I#m?|IB)Pry<xTk`XD9Sy$v%Uz!`tSL~kEUp^f#VMcE;TV~oQC0nwIQHG&CA?ju
z!VXadBDw!4^I0Os0G(2@Im@=SYdF90!XVpLcI1<RV9n&~8r`N=S`ex#U8%fsv>X*%
z)`?)~7tdaM5`~r*{*3evmQJ_I3JODgO%3%tO7tE|mHnupQ$=(8kiNF{O$muUt<4uO
zpsIS(H~b>4h@u%vNxnpzXbM+|aur&`@C(TqdtvAKHqX6a#?I<8i!z&w@<o`Wo}wrB
z^Ah!s?Vf}ER$b!KE1%CKvcL6A6#l^>S)#hA9M;&c7+NvKu4FFKAJMPK{R{5HnC4vs
z*Soc$LVN<8J^Hm;-^dFvlC>#AxayU?;3$d`g>vUl4iSRfjQl_Uj&8>+zV_yTIYo(y
zB~U91=g)V2BJ2+{lJjGz#JApe7D6fpwqmJeqb6N8mh#o@0h4h2hsXCHT4Sm-_<pj)
zR2o@BmvjQo#CCAZ{sM8Vo8>cgj9eLP>X24^O#I?s(<3G*^oryql<9NL!4!Y+D;h6q
zZ7((^x_VA*=y~b3R0%Z6p<4X5&}U>3!<b4`+EF6G6d#0E*;VPLpj<-1v{UNtEo5lh
zKWI`Bg4SDbNkj#z@NrRkS$VGhEX%5?l&CMZZ4`57rEY7CF&?zElE#$cIcp&hwr@9_
zA;F_Mrd>Iwevy;nagI>N&?(_(ckHok^NINm)bQfivi=f_pO13YD>=<NoBS78+BkF^
zPf7?$5IoGq)-tU$U5nlkrsaz%Z!gZ5D9^~s7~1cTFG4>*ZV41bT2~|C#p>%rJrLg<
zK9)b(#U*&vpJ`hW+K$OcSsW0Co~Oy#g*5AyH|+(ek4RCgDoGC$zr*ds_LqvxyWOBo
z9CEUiue2d`h8-D=3(!gOO$F5%1(~r{(s!x(9qIYX@b=$ZSZKH_uW--wj?O@XKm1p5
zkejOdK@(@wWdE8cR<-q<$uAqT8_2^9Ej*glz`k1M6<^7nUezx8tFb@htN)-^;P@~~
zD|mx(PM#F5&Ua>YC?(-^uAf4yWjEj2i`bs6I?jCZ3v_-)A{TX>7rlR7;zq@LoHta7
z%LOCzDhzFoGqbL9M_ksSzQ8f@By*E%ZAvzh#Fy$K6uNgXkhVy~!Jm$LH@olK3t@H9
ziY2R0SrUD!D1SiGj$8mM4GXT3#-6<yJ-K~gY+IUKSD=sU=bKc<PHzmQh+47oe*VW;
zKbJCxl-zlOPz$Z3g#!G>f{_&Rs)mCKg%4(6=i0|%Ut?^dA6r3NfGorv+esEHk=^md
z{v1+<dVC)CDpQ}RVaI&R+t_<GG8CRy(EaIiQEUO3$+G*E-Q|uLZz~?5^xuJ*Md41P
z;w*MMCFx2}Z^!Sbj?9l1kTI5XkK}s&%UN?udT7GRRlY+);_;qkh!AAr)Y!Q}?gOQs
zPoIgQJXQj0+}&PKg9pIWC&~(WA@KlI8){D^4?9{A-l0rN=E^YI^&(0iBR75CH~s?)
zCwG`f&$xLoj`<gng6&*C;2$b9l{aqs<t5v3xP~mCY%jHGCwsim4tTOv0}p>;6j!KC
z8ZqjAg5|t0qR6;+ac!wae)Wl~0*cdS$h8$QBZbtTIe8Oyg@21P!<O1>*meYBM|VBy
z7x^|B$2;9QrX9x<#_m;j#3TyBr~8XjP})#@Y5|$HXOh)A%SVoJ!JmjjEnF*IdCn%6
zP4<#odw_<=?&NzFwEwb`MAW8{Kq$Y|vc`(x9tRHy+qj)Hw2ll=FzIsSt@VaksPmbY
zD|f4fQryfs`As_u5HnCK9tmqlBIs8~FK$xm#;bZ8b=^8qRn7j29sZF_fAXVeSNCwv
zjtY94gH7j<wd6w48?$~`L4hk;vZU5|ORV#%n_zF_lGppiXH%_jU&rI(Ic6zq0olw^
zPGFrP=S6nv#SuTajY5D98(J)Y2ibFsI;}AbNY(py14>alKC%Y-cIgLJ!n3F6$8)s9
znU4ibJ!QhyIkWmjwZmE0+z7L0@1i41_bF1{BYHzEg?MTp_V}gbuP64*9-oB>-2^sO
z@F?sotj2bqGht1j(-cnNGsdyVmk%jN*pcrgIVhy&wTs*@=YM_n+t(B3_uiZ^nN+X)
zRyFRgsAJFb6N)7@Q698D#5UIBl3As4vwlm?m8Th|w68Ow*E=g*yq9O>RI{$XcEH;#
zNx8cxYy{@EJE+PHj#_kN<Wr!mjsq9qn;PEuE@yJ{u|LOR*kD4c>TLd*9*1!&QD>6-
z{y+#@WtC{dDJZ+NDGX(p?<p8?)A=BV#M3)cA?od}`IvI<6%G<}jtF_jcD}NV44*B^
zQiGL7lNfFuM4ruei)U*T#J*&s1**5(9XKCsV_Pm{%An!VGELSk+FAxlTsk@Fw2GdP
zd^Folw^R)Nh=?3pOCY>(>GF<D8k7NY>2I(`XyfDleuHRb-y1fdfw#yHa%+Cd?lREk
z$57w|6}Hf_FV%(Gw_fvLL5SPb$O+!}-2Wan?8h-O_vXY}(np~}b~gpoY@sO6tfK1C
zjH0!l9M{&CCQI|8aVHV3nMhr^akLmL)U4C3C0U{IZ<73v&C=tj=vyj$_c!%qIJKT&
zR|v~mGg6NPuUw28Q0e}2e%z#q=o%%kP|#~fZ`*Sgow}dfqT9<HqMlg3yIZ??tr(tx
zncS(-&0LRcNZD_2_CF!$j}+G~OpR@IPa&IjhFvz(Y7*{WyNNdUTX5JC^(dVW#GAAo
z+hmGaFJwmPJ<0stY#``CbNhtTDnQjOmDvX0g?dD9#h-rb6Gz?qy|VC<-z{eC7CXVb
z^9^77+yC4Ppx3t36zSQj`!yx~gXQAD+VlRkYKC~QHVeGx?-(|h4I5_aV&3o8A1jPy
z+U0P!tEtWI*=0dh>ibL8QxD1PMRO$mF7cX^u=iI>M3J7~>k3?~uC-PR@Qq)GdNd8s
zhTFN$6Xjp-jg;@exOo+`&}@{84?N$zdGj<EcLB<sJuf7yDaGTFq8qawVHCA7ym9&0
zUDZyHfXb-gV%DDlH~FFp+XZS5T8^3A7~YX`Y!SJCF{ZN2=S6!`f{d|DM8Vz-sPadr
zbJJr5U-Q0^!W-BZi#q>Mjq=DNs_PFUWN8&oeYF*{gk<##Ug3~XhKSd=&(CIMn{d^4
zyPR+Ecqr;6c-ry`bm~=&_3vLrd<u<jAK$)%-HED;Xp!*#I#~oASbP8^^56j63+s3f
zS=_zum7R69ZopBt={n5E9M6B|E$7wPru*2mf}oK~=+XoWZ$$T}rA9Do6e-)#5%p;;
z`?00hxGZ$L^q8+OjSp*+H>&uz-EMW(MTIdbUAE?RmQBSqyN_RT*h*?%wKFMono-wZ
z4_#I{Aeqm&4c)Vk^I0Gk9*5GJLT@@wlGUTO!k7u6VSis#@EI50aO8ErRMY=a)5)#|
zuG6)ptkPj1l4;-_gHyNLhf7|piEMz94~E|rhsq#q{C*6RJ)?r?Q_J;N#3fpBxBTZ?
zDQfty<Y#z?8}$J-?W`-W8*IyxSWVZ?q-pX+PsOFuUR(DC>iw~-$i3uYr(`cAd*rV%
z(lcs;(?I3vYTqfE8w~SxPp;p&f1ce=ty?zJI`_9r$%<mxrpzEBK%;AI;Zi9(vjLnl
ziuS0@)1qr1?w2~xXxXh0&y`F%qJ<R$BCHSbQTgfcmLyi@KKHN}d_0jkZn8Ilx4V&B
z96x_6c``bEKwB%+Wrdlh0Mtl8H8j~lZhLslmQ$|YnIH&{nrH83Z9X<#GgosjEbG~0
zVHRy|&vT0pZvDk!ctDa0bEix`y_(4>{2JnxQBhp8FSgS2Zg4Yxr>leFTV;4>s7$^!
zJm_s4^)cldmh%d?`@Zr8dW4QRpafG>@4jC&eqS)`XJ^EBgy@1$OI6@vDI{Glsc$`B
ziGP$LP%n&C^<GRc`x_D3jw#u)b9IbJWqt(WWgKhvbwL-~WjJrw(PNASi4oT;rp)mY
zN+5~Fn5~SR`?FC_f2Kmq?nu43fGp(;#kfkTF>}bNCWYUFgCqL%Hb!$7P}PKaeSBfM
z^>DK5@dVtf{!K42l1r8u^?S^gd_)nVs^E(lb`oi3e+v=Tern?CG)HzhyXdSLh-8~x
zM<d`HkpqvLwJ{i{Dm7>Zmvrl~>-^27>esO`?ia8Ra7AbA)C?7c*7nDo*hzsfAAy~E
zb9p6tX2-O9UBMT$e=*lWbS&|KLv#yuil)+2T5*ysD(KNsVi<>RMvDtO0_j;u$`XZs
z?)?m96yf6*k&q3-wF@li3#V=&cC%kSqn_+LcxAU+7!K~AI9=;j6ge4y_1@H{$mb4f
zsUGvK;aIa=jn*FbC@AYZhka1PeUZJ(;sQcCq0)n_gO#e&wl~~YhYtK;;6P~2n7<LI
zd@w|xoI-UN-;Xc_0~f3_HxP^3jDr5vWu$CNNKO%IJujK^1_JZfn|WW52%drM4&q)g
ztLs9Senzonlop`I7lKitEkyh)`|2Ban9rTh@S#h<`b!M(ib~6w;R+tDX|j+%Y1gSz
z@6wU_)GjE2Y%+E0)}8Zk43>i%>BLVTH2Bo=m(g(Oz&B2)<s#s8icQ9BpXkmgBz45N
z{TMi^eX^YbzWHfoK>>N3M<>qgywkH+^Yk75SKM;n-Y*vpR?y>N9x~B?@nqmI5)g>l
zmW#l};b@AcA%cFZ&!)y%9`-nj=06eOnwK(V+K!8*(C=(J-1ZKaL=K-CU8FCM9d6m_
z|6MaaSKtWoPW^DXOMscH>ms98f=JFxDedz~PWkL0>gG}BzTAzc^nV;be*D0-H@j<D
zH(A!|DanPvUWKIX61Q)CPn71=zkmNP|Gr$K<FoypdOI4{)!q~_#?XdIw`xlHy-5Q5
z(|QK!zZ)i2^pt3xJzQ(YquJrKJ6nsRo#((#QMZ4+W>_ITp3f^+$VtY(^*SPSl~7y1
zc=8t~IB3RINhePWJiJCXSqX(aizmMLEgq7s{_)2Q<j$jGzRw{MY!V+=zPx1Alb`sT
z1uioceXqRHl~nlfo@*?h&Z~Wj8>)J3tyAe>@}o}Trl_!Ro3N;8L8Uik_=Q79lHW`L
zVa#7EQOf02BU$dz*VhhOT3UJF%&3-iURqg!zRsgn8}SoQefMZv<EUto;`H>i4ETA7
zad}8^3G<z1<XR){G6?RbM5x@T4m^=jfG0jC`xvv$A2Z~G2R*0lhoRyU5{yAaT=Kw?
z=F>MRq=SI%<%xokRi^a1Q|TO7X1l~#?SK@~_)1rZkP?`U;8*9^{d0H})_>fKog{cI
zj`-DsgO7_{JBQgDKcI~_FkTj^z=2H<27{%#)zLP;+_e2>88Cx&*spdSt;(D1N%5P(
z&To$TjH{N|f0vzX6R*o(%yONLV{$_v5Z?8Cag-`Zvlt%9bzyk7HQbxyju3j55hQ^e
zFLT&>Ip<YrS9w%#_Jey)1D|LvJj|y@{pSm$QCp)vk=&mDOn{LgmbBJtDGiC|WPo#V
z*?xQLNc7*ByJu16wDAzkfB9Ee>S~*Kp15VjvI^|V%|~Ag!0fNLOSud``QF(XHAN<?
zzrW?E@4nK=iua$6HyPXi6)v9Q-g+>Xhv(pj9X)wYp1ZH=_yfi6lBW}2vTnp^ELpf#
zA|8~_A4z-UyK%H7y#QaeiStJ4$r^JRwQL@jk&&4$IuI8U61sZ(=}&^eN9{^0bZc9i
z2WQ~&XDQd&o>}pbe09FV#G#kb&w(Tv52tfiZvAfm_3KwDvMlm~3^~c;BbD~^X{W+g
zk|+#gjoh(VA@S*@jA)?mez?Drru@Qqy9KrU^RqP*yKJd%f4-SRz6HVcmm+ncL}92@
zIgSYu-&Odq;atE*pNSmoj9sbL!-o_74>Hthe(~R#?_=T#FXw>h8<?A4k)4h+=-6Lr
z;+#Jj??5Vd!N?!%t#NL{5?!r-)CN(%tE#HzNxKY}E`hTcGVQ*WMeC+tz)47&yUj82
z-2CdLTI%3Xi9>2R2#+g+f^Oj6O4GqqmY8#YehWQ_vM=v`SY<eRBJgTm4Gza60*le$
z$*QOr9H5FRDJgY>V{CE9X#5@vSkjp_S?6jUcgEMG&<m2>jy33Uq`sGQUZpg$wYIi;
zpDB%tkAL~8ZhzPNB)jJi$-X?31Bct!I7~9sBKXbApZI<M`T2$1li|{qXSxMZio4mH
zoCn)YC7VMIsdB5Ut0}?)0)LL;V6h)CmhLSp^Zf-LR$RX`q7-vS3oHm8^8<L49>5q6
zfFM`BmOr0ls-<m`EaWJh)!X0Eyjr<lv)$7~S+6<y=)^?o-DFuWj@z{L9=&Jg(Z5^x
zQ=eQu7uqClRaF|xGy1gQY=bRp&Y;hDkXzA~j`y?IhOK(Wx#XkSnkl}&!on|$S^7S@
zAM|-)s6?-NGEy!QR>l#w``ivuQqZX;C%)r6Pb+ms4*L)LIkbog5S;pQLsAq1QtbQY
zU#6$0tLxpK_*=0JBQCD(Dc=HTDVi1qhh4_S>dNLRzc}GDJu{<7=v1VRT==^3(H$vX
zy-;lXWny_7L{f3ln>I|wBia%MzPhbZv37b=?o-Y7AW3Ige)@#CPJWA^hNrGwGqkp8
zYiS9qaM8-DJ5|h)Q?7*EWyDMI5AEqYcJk&_RNN-lQWu^57K)lS^DGF9HGY16wv1=a
zs7bqyY|n&?Rb`i0)Xij_)h=^|{QUa@F}oN^r4Zy{!_|}zxjrLZj?+fFYvQ|$jV6Z1
z#tBROG>J}mk2D@h$L^`MFJHc_Zd01reMV%d<3YRYGSeFa)~OfIg<2^IRLZP;Wg&l0
zQK%lUa0BN5>kHg7e2HSOS3wH7rZ=8VD#w5fp{K&=n@hs7-)d{U=KFWs5=8Uro(vV+
zUKWST?<f0=`SE&Fu?{IiYh?rQY96ubkfpkV+R=A6ZHGlo3)31MQiG&qYl&ku0Y0g>
zpZ!X;wH6i=6Em&ybj$*^pV>25WUI6TV1nZfO>QV$lejtT9C{WM@Cb!OI8YP{Y<P86
zXUumpV*li|r+4sd684sya=CaSF)+(EQsu@64IXCd!N|KH7O`_NPCG5j9*V)axcqz(
zJ+y0Waq^YEwYO}%w<ZeQ)<5$*8|mw#S24RPv^zq@ef<tq$(X&e4J1iY$wh%eEU~*B
zmniSIdfmi2Xd?m?Z=S6iiRkCi;Mnsqxu?o&K6a)v6_wd@_wO8#C8z=6PZhsLy1TpQ
zZj!q9KgG`Nu*<kl<%6AR4_AIQ@?Y~Ad1fMFQNHkDu=K@=vvU<TpF>y}85yMmw<kjN
zzGBE*5-llDKrsE#o_98CJiYR0Jsob%Bh$lhj+Pw?VO)RzgUIVzn=zuFBpovFJoKg!
zHc*SChNsQN%uyTMP!s(#IJC78rIKf3wkNCUsvEIOskYrH&$!HQv64JY+*@s{ap+8;
zZS@yexJBeSx4PKmdL4!Ezx}BiZ&KrEE4eVnTcAFg5v84XPQsx>{yy5g^l?$IBNZUn
zfpgDC9kOOOJu@C|%=M{*xu=XwG=vh~OS`2^Y6$YHvwQWL!^|t)5!HrstcE+t5m2F`
zCi$jaH^s&A+bIEyl{?g>y1J)Lk?cWIZexM_>$5#4;qEQGQBse8{KO32qW6RTeRm%K
za&_wyp`37gapv_Ma;o)V?-<X1kij|Gc17OzX=oS=|Gtd4xZ8ZZ3Ec1CS7SJJX|O1x
z^IOE#PSme3{!e(T>P;VE<NVvXCV04mOy9<L>2abjzGidymQ!!`bugRr)h?v++6?um
zTGyqTEqEC{l}D?6IIqY#QQioDGGz->@#pmXp<Kc<+ab4f?Q*q7BPelK-D%5AbL5TL
z6s9yGnRy)F9LhDkl%s%YnB=nqK*rFptb9!G5M*9F9?*Amb|ljRcBU~WdvlGPzi+Qh
zo^&IX7r4=TIxF0FVh#XKUuI^eq&RW;%i6D=ZOQ?!himwoH~o=p5;MbqcBOKH^Ed!N
zD2?;@1KGLsmQ7;c3?Q<XHHx-zleW7t?^L(HNpc$qn#;-h6pusE=B){m;2L`i7SizX
z3d%2PRy`k<1a%|-zPGREEE}Z!?AfypP-9z5V>MJIo*dB6=kZl@xd^!9-X^PZZ$sx{
zCh^7Z>AQ3S6tCVPu60}m*nv~71Nn1&vq%B-!GVRkgZ(vv>!|rbuYn%>lrh0@xIT?~
z1rorAJbmQIG5{4$0oX~<m4ygF_TS%2rW<7G4&+-_t}^lR@|JznO&$)I>&>|$_2k`|
zGiRiH76w<6PjdMFM6t_xk4z;raqcgNMxYJN&CNZ)n|I*We+Z=qDuIFeEYTgeC*P9s
zpiki!2Alzb>CZ99iU1AcJxBGytFu?#Qvoj$=9x_o7xRCzFj&;{h(K^2aBTyvXxA}N
z2GGDWN;^}rFL-Aoq{p^Npt<ao)D&cAXD<LMW9<jRc+O>vxFZ41U3m#)MGc3NiP`OI
zV~T)EUIpN1_N1=A4t203=d&2tqkNKmeH}~!)3uwARKl;{d$q8BUHamgcrATbS6B0l
zjJ<><p4V#(Tz)O<M_Y28T!L~b#3_6MQ?AuoPk(nu)+gfvb0rb0s`bb#l1_0$c&n$M
zkLMBG#`o_W?9<fS6Q!4M#l^)Alm|0ND#}7x`SZ8Na8{-~kknjF?>cr0K$=IMX5ky@
z2QTr1?B5#b(Uo&)5zI<jo%ACoON%gvO@S(Nm^#jCSvZ`x$A!OSrz;fnnVgE+Z+d!r
zL}xeX>&(&%{1rMGT%BrRYN|yg;d-ob226EJOiHwutV%n)q?9NQ1%LBBXFyjF^t5Fn
zgJK@tm>)nrnQo0|pZT6>QUZiT;^dZ2*;(z(f4b5g2tXO1U>-?O=`To%5mzLItco5r
z)&QEmCrNKWZ6HmzgN|u}V)#zSRFCy8btM|6Zm-d+Hf)f|1u$R@$6Lndr>S(dWzFk2
z+nxD6cIco>ol~KLNR%g-mpRqRueD3SP|X1VGMI*oY}J(kf;xOfHoxryR0MtRoQ$16
zptd?mx1V7GwgJ6Z_g`QYv;c$|338j%hF%{(*xwqon~%%oYGe8p2+@E;X?Kcq%`H-$
z{;6W8f#RY5B^YIo9?mYo+g|%S<O443tPv96_ITE}Rnh^;e{*4HJT0VJf0s-E_&R^`
z+_mjOp0j`c^)rDxN`CbXsAFj-kW&lv;L%j39jFqg_h4n>g>K}iv$->5vRe?i_Jd2P
z`MOxo-Ehyji7nbhR^2kQC$dFIL`1}Gyq4w(156riOM35g^%P|G(J}G!!Jr|sYU-Cc
z^)Vxheh=WsnE)J6qi_fLW+i;6ZX7J)+gmn|ktR-5pc7yazEjOH1Kvwxv|Nu)1s|8d
z;X!NP@bK`U8dQ(qcob@HlGCH<EnA7#=aA$4^pa8q3Tb??FK+<dqo)+)LK!ae`MPv4
zo0ZDJ1q)^O9?UnKiA+)m@Ropqq8KWwtgK|WqXl0IQ(2%c+|~EoZw5T5FTNBi6(wd>
z6*!TA8u(;Y7YO7<nfr8WLQB7(k#Yj(*BwYS(Qx;<%6})~fk0vO->ykXP31iO^6oTX
zwsZ<z*Lic6a6n-9XutWK!{R*I2V7Q(efzs-+v%#|Rp3yi27ryf0{u_veftXHFw&Xg
zk4fc}xScg}R9w4d@!HJyyqmtuKYQ%y;t=S8wI6azM32TW{*>P`R?6pTFH`-ugHYSE
z;>2Ug)<nWMvU(9n!*RcfFE1$ob_ZwxuZl1=-xbT_g-!aOX(s-+IUy2>k6=J#S!gn@
z(OZq@&-&-%9q(>VzGPC|{)q?r1%dViLD=#fR`UK-2IyF+QYp^7mQ&~bEx{dt^LQ}y
zBo3f^*~-^2mV*%hH5a_*df5g_9eWaAF>#Iwc^^bvmA(wqukqiwrhc?y2Q<j7g!Yqd
z04PGh50U-@2)X6_g-9!6z2jIF0L7}vI67Y@XzBy_FEE^ofAep;r;H=(VMfmL1}<b?
zluOWkin$bN7f5t*0fDDAjkhnJp)mhk2PqC%ve7U8<ixa&B>*nawtb&0-DE!g0LGwl
zrP%sZ!`+aiq@?k2?un<jyFc6u{VrkO{^vlhQJy0Z(v_^1Pd`hBjS-aBS&{!Gw~GL9
z4wR`!ap>t_p_xljO8dS~9UUFLs1?5=zu(mOKckvUw4UiOnf<o@k$I$ucY^(X%9UG>
zmq+PvXHoP>)uqnw8ftH)j^o+a3$Z}g^f&`hDoEZm16966SSfWOd1ES5x?{9=(1vjM
z;<mB}b(8Xm^A4%ZnJ^uzr|9PmFhgAX{jHqOae@Z#gMc_u7qzb4`~9%t75hFAS-SfR
zC7mfTIMA%Wqf3!A|0e5(QP6m7^SrK!(<@i}Bf5WcGD^wVhg1%<xf9yZ)U={YZwxD@
z1i;^r_a5iFJafsO>YkMn@xaD-p5r}CgT<r$CZ7KVVtP8N*Fc=z-9y+3%wKnsrQP7)
zFL0|_IvgC-Y>mmGzWjZf6I3MWnVoh16BJ+0n*_HV9n=mF#Y@b{d=a(V!?hbCJs!9=
zds)={8Wo%jM<6-bryO+HL5wTa*bX&e6y-U_nX}1??a)I5pQL=N;@RZB5Df6~%{p<=
z+x6%Hp_?Xh3lDlmtGwiVK!>g|Xkmp2F*Cpo%>d~m@xU6D@*k`)omS%K&nztbVS=jw
zWv+!0weW5SJh`k6H-v1XlP^Blnb3wvMxj8U56gH2m6T8=sj3&d1(g65tSBul-33O0
z;m<hl#gWR>m{dFv&t~JbK?Ca)l1~H<3#cZk+JoG|P3}l0*>)t!u*iA-F08y4dQN!U
ze_mA7y!7{Pkmh7`jZO*uMSi`M{Ns$5uZgw{uof{X?G?u3RCP&!W%$45k#reecP6ag
zBxLTOU3ZE?Zgbu-x)0{ZkuJw*OAVYy+IkkP^)DDIaUt*porZGaSSg{ta>Z<K(d6<3
z@7iC0lnECr&L)im2O$Z_K*z^sW@gHuC8oFym(E6Ut49(y(OP0`{lJRNV;1#gohmD?
z1_FJE54KxrSIvjqGT`!?nV!DHdg)T8{0*tswP_$V>i~V<$pkpNiJXd27vli)wDF&L
z;u=o1qlUj}?aWg^fp%j7>jq?aze7vBX1%;e5lpg9iQydPjprfXIs)_`N5Dc68{jIV
zyTAoAVZ2e7lyuDs5bIBC$$m03?`(~UJ2Q#qp!+H#+s2C#TH7E$7KLCSj!*NOfKJ|u
z!5uw!+vfSW`(DC0FhBsTeahdWx5j9AjXz~|b|=BYRff9{3TkxQ8mJc35P-N*eC=*-
zHi&;Bp19hY2?UP%5a{{ybhVa^+FwiM<c}QyrU7QeYrslQ%5|h-+{nbr3pb!ia#h^@
zogo2KZnZRMYsEb-DS5^PLcV~Bcf{aII%J)V1FHa8&of1X0m-t%A8)kzfU1DxhCG}6
zrmzR<k;6FU+v_}2`bGN#_1mc@X?30!ENbBr^l{h^w%XHwvhULloqr3bjPKW_;{uS?
zUi03c0puhu0b3=UPv`x*+U;wR+Np{`bM)51@gIS99lx#&7p|@b=E*0s+Q1!AEsR(J
zt6_>&wKwf!c6Rf#`j?or-4JySzbO>Z5EL44-fjiZdE@rH^}%jL5AxEGwQpa>jbTp0
z{*B*zXva>_XV-WIrKJZ}Lf?TRE!l647mm`-Lh6RhIYSn(?_RJP89#XNU<fE~#jA4O
z3#D8fK$)a?e>u&+ZBE<k))Kc8gVE=m3UbhD%*3`Sa<mSd4~9ltLMa8d#tC|X{8^?(
z2?L*{GhlZ%D-rZ$_d&qSu4;Az_QWR_zXnX8G7Jtdxps|Aq;lMNi9;t7?=0vZ2Xz2w
zN(Dqk&%$Ol8!{qg=h8tjdHM)d1D=_+Iom`23ToRc6`=KjBIgj@t=U)@T3ZJf-**;t
zW+0mm9-!y?@(4B7b;yG_Tnx85oCJpNAp>UElTz&rnA=O#0d<^737BuXk)l~3t4JsR
z_;dLkkHY4l?Y%0WCFCZMHcmscZ^FYp>^oDeJV(6-%9NJtj~>hz4$xa$1E}lBgFUiR
z1aPbF0*mtlAilSNc{xe}5fjJ<phFk{ebZ!R7O2*h0-l=PxxCRj>Y`jzj9bgHMQtos
z$I1JbJSoFo4ZpiGj?SL^7RfH>^7Zuvk7VN-U7iO@(QlrVZD5`LZG`Vr%e{S`kjb5?
z*4)?5MKJ->%sPNlb^;kCD1f9MsJPbd%t&oM8y@g1-dG7hy3zmS1bt|BXJ^L(G)Mnb
zg)4r;rH*<7`DPvzaArZ;bx2y3fBX{Jd?g^i`UPl{V&`%>|D@0NK8=c6%HmMoI1Z%!
zkUyZ7b;2;8Q7;oE0u9Kr+5UzlYJ(nXqEQdoQc4EkY;he1aC=A)ES1{IRV!H$T&>2U
zuiqO^_3Ag<;x(u<Jl;0|8I-sg!g}fskc*lY<xga6!89bRMRAO-1En+Wcxf8A70V&V
z8FeiSZ9azq`?=0p@x%S>z~<=dK3fYz9zlEMV2>X}zqKmOZZP=ekNS07t*D>RPtIt+
z`|IHjUH1?dtL7K0z{8^+)!j`BwUa(Ws4zVO=p(xT!6`BizZ@HIrz=dVt(y_O9Vl4>
zqdXa~k*&R!SpEY?AUjZR^gO;^P~Q{ZF9V(6`!I0!BLMi+9nI3lcKd+z4oYq<Vg2)s
zPdALeW_h2wlo|wZQOO-VER_}%7CvpD+Y+HYq8S7507?_Rn*{?5^L`8f+T+800p>F=
zTepBw$qQss?e~rPqeA04Rpg_0R+)jv+-h%;+Tsmg9q2#VMTZQZ0q-%mKz8xSxdp<(
zmOdQ*Y4CWA{=^gBe6U9L&-Vh5_d0+}_InWki87i4SkEL7U$ZA}d2~I-Y8|+;2@+i4
zCP2Kp6z^e2t$b38&ji^VMmD|hHf{F^tO^Jy_+nQ^6Q@amdEa86iS;PCU82*HwOS#0
z|Hf<oZ9mjDMSNttMI5_HL>=spgJ6wHB#2oJ&jRJe<`1mvg*XS`gt1CL8GPDzsOIeE
zu=#1bbOo-qe1xHL<=a*31RQ^AV6pmMIlXgK!(#c)RxN*FOnuy!+ZP%DuyzZOc3u!3
z{Q~o{)I>>VsVty0^hAM4g$Dl~Sn2->#KT@a&>1GcUYW!J60DRNpZ-FiuCTB$aA$S;
z;5Lw72LOmDOADo;oXBlCdKshvIMMde+ya23umzNb?e+!rYd8JqHcNbLYze3)H@rbs
zhctiE(=S>}z+SKh@0{rT)l;+9A%_P<%<)H269+Zd2<``mkM#qe*zF-82dQ)y=$lNu
z^s`@IeZVq94?|Xxduz$rt5TLpiHR2I*jNK&z==~q_1~O7RR4fDpu9DK??gr_25c?}
z%X%+ts{ub@;BVlX)2$Z;|8-v^xDFEzK;t6Av7U3ij+1nk2Drj=4S@5~u7#=G1r&Bd
zg9qIm^%&W<h3){7<qB9;F&la^FEQGowLiS;Nw*9si-R3_%gW*^o|g?1l%{JQ?czBJ
z77z9|4=(Y>uUS}HCiMVFL;;h1dgFK3WF_zmA7OsNJ5v+}n6BMkeh9nrmrcEBQMg@W
z?rZ1c*b6GwTre<wtDWG4soH4Qs@acgzX(}9*2j#Z3`wb;yNvwERjqOb>x!on8Anh2
z;fn+IwDt7VR2;CVF9WOC7YRHBPQZ{GT>x^ABkpKd{nKuQ8u1&0B`P;!8hA4m)E^>B
z$C1?0V*0`ktBC1S7;s3+Phht|m7&%E=Kin;9PQ{Z!Hx5`P-Q?B=$n7g!2d`<&^tBP
zKR;Uc-8%?kXf?Zev~=TAXgSh>p8uzTL%wh+E7^Pa9UYSko(!BkF)+LM;YJ<H;BRrr
zg1vp{-RrwGxBde7^kaFVAvFf){Hc;Jb7z9tZ!$u9?qIor$puW;?J%aNko$g_Jxo9P
zxnqG|8@kTV@6gm7!#&>SZ3S-sR1M-U?6QVHeu4WDk9f{zVvwlcA3~9IjM#z~+ri4x
zR@vo!mow>^&cd%7cr#m`0rFWZi!-f2{Ucbldu0s#$qzt-OoBB?!}pY3NOj_yU0s`u
zItb*etr#np4Y-=dSaixC(9TQ3#v@nlkdWXvlZ3<f)7Q5^GZJg|RtO$7Qw{w0Q~>Dy
zyB?b>aM|qMH%do%K7HLBpa-u=aRR+Q|M~x&OO2=Cc9uNMIlMXk<@5jS6P!;vf9B<z
z605^oi~ia1|K~@WsEgopUiWz|g=a6rWEiF{CB*U1-hfRWZDxX;m%Q6u|HR}5my(vO
zS+~j1r^CCJ4ejZxYq@_{q2C<oSThB|4^B(w&rvHEz7Tx{9m(>~iuAHdFl)=7LbGDW
zB|^41U>Gg)3wOX$^+|PkfBc!b{uXb^Knq2ux5&MxYUO!{S8sHL0nX#>d}k-_1XyOP
zSM|jodC9od3U*|iUR?qA3P2#}OJ84W{~M4ym;c9KcyWXN*}=o@|J_3QzdPSorQhLt
zxcxtVm&X5`p$%Qjg&{9_D7-oEafLW2jKo9Z6GS)q|C26|?5R`B_HYgTlQ0F|WbT}T
zrdmec8j)EPS~1=bK2i4X?FIJ{=YM|B@8MApbUfhMa<f%%jVV>@HbTRhxdZ+k=(UWm
z1TT+cDQ;kzV`NlhR(*a5#tmcPrK#_Y{u`9ncOHHm;mtv{9}H+#>2^OvJ2mgIzu}?S
zDv(X_oI<ls*skjGF*HZ^@|Ay&o4tN&*_cS<89l#tV1ZCuiHt7Q=r*RvPT&3NPt$^d
zkDiQQETLV2=?H(Uf&?EpEOj*S%FX+`p=3vs*_buBxE`kb4LNc~oXC}N;&X$@5uw*N
zI1E*eU6kJydh>_S>o>n1MBV0shTR}Gb8$h>G+&J4dU)#IsbhB^-TlbX$!Szs_1J%~
zdMnqe#(Q+jtItT!NMW9UO0MyD*dnC(gU>TV-o6a>+2@dx*q@vm$V<-4FUs@R-3Y;w
zISAjtUFP8Kl^B-gj&Yj(x4O!2=AA=&R`eHbPM`KAFBwZrisOs=O|}dU>)rJ3k+B_;
zl*AbEn|aANzHPwtF!BDBVOZL$v9%8zzT!Ok$bPRw@}IBYP}8lKL*bLz>MCSc&(A+e
z=BUG0(Z{Z5W(EfwFL#i8Nitf>s||{mbTzKYs+wG1*_`8j;R!x~3C_AdK~=i&m>7Q1
zg4VXa;*uwk*J&(XFg8B*%b8W`v@5}o-*~`@`L|+mRSR5l$=XVG=^K5TgBucqeS(NJ
zyZd}3AxpmxWmk>sid$u?b3;wsuH;M5hqftw(p8Au&#6+|Xm=tBMUBE02(p>G)z7Ji
zsHN6=W^BVtc_UBf?pUIcPl0ZptECk|wyGuJ9NEypC^dUbvc}p);1BvxPo5qbYaE2r
z$m>!k2zX@aL*qcy*82WC1}FNt)a$b>7c=YSA)o$yFU?uOL4St`JA=6JO7EOC$>VuN
znXiUd)SS|Z?87?L(y4FL4E*5Vb*Id=m*?l`&HD=UcbJ+V8C$6|D07rWF5S3#n97&6
z>g5!dvdeXw63^W_yhm+tFw)fXpNzbAh2ijfaq2Zr|MR6dYONf^H6P0J`P0*f5z?%$
z=1?3+2~R&9>yK|v_vwcTjwufD2?|OdF8g+ca4r3CRGYnH#I>!kx&EFNN?u#PshdT4
zAbnp*v1)_AFSUKUD%|NXW`n-;9c!^GqL=#*ucdI}6v!W2iOD5%)5F}Uf5rVXxvs?F
zn~#Md3w?<CZ<9Bi*L)sqyy#hpWSC=DxO0~Nvdz)+%b%i5&YC(81Rs6}NbrRc)x!(>
zZ`Y&w58(Z!f8_ACpx_whfBMbaxPLyKYlAxmKEe++Zr*<o?oYx0qq{c^YbsmUMX^v>
zmJOvYr4WI#j8Le6f`Whnn^Fv|()U5>lvbM1BqTvCK??*cp!8rzmjD4`2oOS06r@)n
zbb$n=lK=?>LP!GP%!FF&y3e`yKF|4a_ul97hh)w%$CzV`?|Z-ZYv#=Vyd?iAT~r^h
z+jRN5IV?Lq=Hh7DCV%NYZHso!G$}&`j%JY#elHTutk?dFGQ@IMcY?4@MmlxR5}@%z
zN2`#F(dT)uSgUtfQmOhJCVj&Zuw(yC=l!3v`iN+wI>Uyc*WWHn)-|pv1<?CkJ8+Fq
z!1_XK6=e`=;cmS5tSZ)5e^XvFD|n_yP15khR@eO_jeBCkc&o^>>)|w2ixyJ{PAR*l
zKj$!3WD%lWqGCIjWu7i++j!II4cQn~hfE;bQ=wo_L-EUo)59b5msqH3u~f-C-vNRj
z70Y{@*^-aTb6N}Jl}v}D?MI4*52weX9Q1>#+?ys@%`{g(|5dZpIVl9h9Z>^RL9Tj=
zy4ZrvKD{k=y`s*C*T8zmI;|Vdrh!&RPE(MDt;;)9b4o;UlKY4&kY3T1lz%lSJEoq}
zYR162T66LT#$Wg&=mxq`obP~j&bL{W(K4e-pIMOGbv0mlg+3Q0u>&#{{{#f`&XL=!
zjuj<Q^ct6<0)@x95W?}{AC$`&DR$I>6CwX_3xJ~^0q}(jPf$|`KO6b!(GE{PUMcHI
zV({j^PoHQ^dwr+dsuyDrsn+_NWDaVfDDZDDvVZ>I2mmb9HR5nbK45LC^#yXyv_gNr
z2R>w|WsEX48^G=&lB#b+1$6J<bI~AX6yEp-TnhO>zP9@N4<1k3=WrZo#9mp$vR0)J
za`12^8Bg$9EbPf8{gaP-vc?V2)NhwFsLy|3P|HwwAzw{li&u)Z1Jgh`-wp}G_gfFl
zEHq34W2pBrhW-RMz|Rw7;#{asV60(yoJ%7s5L?$J%cg7a>*y~K2HpzDucgL3D%6cB
z+^QHDk&R6zzv0yhQc?b&D5b5Ys4tFmA`&4$?2tL=p=VDKFi6t_ofm)qC2@gj%pGKe
zGVV`Al@*+{YZS@S4&xTF%u){*B=Xsi7oV}bxt?DphU5DI=W<NW4&9LNLcm2bsLOp0
zfsRdEs;1=a<j(x=YJK*(7e0#hMqQ<_+Wq#I7p`&lhhmqmy%Za{(RPc=fOTyMM$x>C
zQ0>vO3|z2s2<KqdbM30gPL_PuAJO;{_SppdNj-d?;(BQ65w2sMGw<v43fh{p{tU^%
zBifc$jyd0umu$ItaPd5^kftk|1ox^qQHolzjQoHqUZW1&6xJ0H8^}|o`C$pzb!_>N
z_i1)2E~v*Kza+2E8{c7MXI;`2+--b9!6C#soh>ySO?_84ai*})peoZ@ifD3v;gy<b
z5mhE!$B}ofz*;;VVbq40kgrM(`kBd5dbQXuJ~XewZe?dM2{JDdvts6Iue#C>XSvl&
zk>2UXMY%E~EXkfp_a?`y>u-z1FRjsxin_rCb<K^?_1mz^ute59QMCA}rNfj1r4-KE
z#0m`HGUqL2`5PSJ<5|bgC?foPD#eR40IIM5Ov@@Y1LNUdFuwmwj?7vsi=4GO7~+=e
zhHP09ICtZ%%1|Y6ByU*_!7;8ktP~dUZb_}vnc*Pk1bih<c#e0GwqC08+1n^V$r4KK
zUW&ZNn`Pm#+W3pm#IP?*k-tox8r(3Pp42{s_HbhM<{JH5-6(=%oqy`p#bK5^Z3JsM
zGk8$4{EZo<QH^9`tN#ee5gij36ICK63Y}87W2Bb1BAxeRbV#o^jIEzFTZ<rN_A}gb
zJ(TT%U|sYiu?N_f0K9d!q#v2FlihLr3^j$Vq7+sStp|I!2=DH)22V|VI6@Ro`MdHK
zSd}y$PPZ^z-+D@FkxzJii;J>_WwW}oO8by8srEIFaBCitwvDEn<z^8GH3r~pa^apF
zTWX9wm#TNzO}$gY!O#V**kR{%$8MbXweamxe-z3$mYY>4wZH>$@jpg)2ZU`RI&%W5
zh;Lo7a|u_&`7YTT9N+_R7XP{on61flw&SSEQCBJ5l9_D*#6}M5=NQ8N=rF_X4%k|{
z!4aPC*f-Dcd1fe`V(G`-iNVrOaTj%ae`Ivh_7;w9$5CCrgqpbJo>gAIM)Z1yk~Yw*
z2cUrNNYz(fZ#$Z7Q~(!8ta4~%IhIr^Je!pK6XQkQNz95r#~7z{QH|#)(#wwD2QEW&
zB$*KZ95Xi3jeM>rIUHyI^U+a?pkoDNe=usWW96wVPdc57e*)97&QavJybmS&HLLIF
zm6F{?8=yHj#5cD0XfoYUx8de9DF=~x`WBcZ!mnB1{e7r@j^aA~`$5rwroKIzjA-jv
z>HNNXC|DO|2czyg7>;MD`>9X^zwfLc2NWowkh~n$D`W={_DN!u>2`yuLhiqN)|Bmo
z`@-^B$vrLB`HZeIW0yH>!^^rZj}~Nwuwau&I%}sNFP4p#4S67=cwZ@b)JPuEvN~wM
zXm~A=rPbpl6-1}|hh!PpAetA>)d79gy(+~Z-2zI!#2cgSljTc00TyHU#r3{STDN6L
zi@js6G5VTl7jom`f|xD!1T9Fhba_tHJSW|hUgDYikH6{Xzq!`p&^`VT%@Sved+8WD
zoH*69OVYBjSvR5)foEA`vk!h<_?y!0JD@YVcArI(D{c8Q7EimU<ZGV7$zg;jKil7g
zxSAl|+WBSjB8|R(1n`*6y=-~+XfTD559b)J6vQXXgT7YfDxX-!C9yR_9+WD>s85e%
z0`%<~5rhVVVK83U$ztLXaU-%w<^5x|mZ)orpKr<bd(8#gtTh3q>|-^HMLPnRJHYJD
z=hE60M&89~m0OiYYS#VL^q~h=biD52rV%WB_(ir%UvP08-_N(1gJbuB+^%~?JHR3(
zwugU{o7k<swfKF7Rq+t~tvz{igj4s;qi=jzzrNO;9(8bVJQpV6q%&Xsz|I^**vT96
z#xL=!)X+<<;n?!e-u60(oU5=DTdUdEdy`!wv=e4+6`+0DU2Aa5A7VXaB_iA1vC^`a
z9em2qLc$MI<M`Y=tdkWlt?J<Vu^opMMw+u?CxSRP`<FwG*8zb0^y8yslRD-~veNOo
zN2dj2gsxlZ-Cx-Kvew{QQ|7m{OQg^b;)O&gS!Z;M-h)HSc4c+qj+IndnlvUcDg$T(
z^^`8d;Hsr`dv|#PGbiefjmcr9VVuTIfHF5k_{Ng%Y`6rsWiD>1U-wv>h*(8qz2vYP
z+JgdGIjsH8<I{*(d3%ydg;WP+5Q92ba~&-Ll=YFZi>xHpUDg`y$g$GJk9UMpAsd(n
zhF5h98fjT{#Ibch_HT$-^JCXj(oYr1@h)!=PwucbzFh!@cHChng@d?#RsXa9;9snH
zU^%j#b)7bXb9HR7$TvaxcJXkBi^i<&$y0ypdHg9rDs6Zq+VrsuL^`XWXF(R*zjJtF
z8u5DL`*-#SR_%$>8>Y<5EJB@gO_Zq>L#I5YtWZXY0iZ#l+OgZ#ImRekUJ#9jof8@O
zn({iPSA;ZWIhGUvJvAf%SOVTOmw@BoyWHP|hGZz3M1KzgFa4UWizCbDYqUF(IEGg@
zdN;ogti6ivm^_C!#Fmw!R`vI=5^_SfVfCkggWz+j()BR+0@^F-j&<VBu!}PnrnY`J
zd_$CP>}L=BoMB_Aex4%L@B6{C{hIl%??Y3v6{)E2j~@eK1+K~_i_z#~(IL*@TfWJE
z`(67aLgE4rFf^_dUWFyDb&S}6Ul@8#)~Y)y$bW~QW$??0<xiAbfY~}mtJDo=*tmO8
zO2G<V2m~)dc6q}({xg0@bd(*x*yGIN@M(TlIA?h?*<KrKg^%1dAl+F2ighH&2Cl4=
z80ovnj@s9d3Pd8yudro94$NF9?f3+mwsnZ9{$M))ftqM`C_rlPJ!KYujP`T)K*lIH
zY@m>hb4pzL#qbL-GhzwkoS2yyBpu|;@D7Tcb^xISev>!Ndds3>tu0#ei`k@_KFJty
zO`TVPMd%0RxZ&h?ULCs~ZpTaMS#YLxv;7#8EE-LgzbNd)^*f^7*PMs}jVhA4#qB<D
zbQB3C!r}}s{_!p$+sKihnY{i*W-+ga6i-&gM>-aDp5=d2!^Pz5+TD{3(|Bg^#dWbS
z$$q7Ot)te8w_P^{YNy-}8lc$20(l5syb0Ox*1tRV-@<w6;_MU~0hs?vntfsSnicQM
z9pRaSBS_y>!CFVmyN(qYt$UUy^r3a@Z@a6ihh)oPO%z|8myG3^1MDKSvQ0pBS_|g=
zp(bh-JHW)}C<lXs^>iBoO~M;Od{@ooih1pG+oDzfcDbJp0RrzIgwGoQt)8X8(W!|K
z=A5pYES@6kFBGaFSnRn--7&(ht24Tikbt>u!sx5`!OvqrphPmHjHcFT8RVlNjpapq
zloe<&&)u@DtDPTQrFqHn!e>0&tLu~Q*qmH3G2AznczT(5fNBed0WlTDza8k@OIz#h
z*H7!BoRoA&*QO*ayhQA)8qRP<c1Of|!``F(JIl8kM?GdcOor1Ov7NHLhUKkC8Ne(y
zA}>J?Qik#GXZ>lMK~8C?C?RuUJ9dnJatiO;T%`Q0uhXwN#KYVcx0C?DR=|$i<S^!_
zb{SM^U@J~)8jj|={{<g@TbF_7+vVpcTbDCj+<ou{_~M2$%G77A9ux%K4jeMMfZIAN
zjjR0p{E}RKRF)z-`nr2ZKbs}iP2mi9Bkt$pta6M=l-5f<4Q?Z4a35G($I1R;k0I~G
zgseZ_%+zj#-OudM)ET9mPyJ=l3{8Dz+}ET?d+Dd5>bT|sI}h{a(JkN7nSpzj#phBh
z_*E<ntDf~&j~B@?swA?^bWF0^jb8$a6HCDjPu$}IY+*cB9u4f9$L!0aIO}86PdUek
zvRGK%ZnS8rTHBPvTS=r*=!6L=1FU!l$j17!5QcTs=}5h8npESf+6e@7NxAb{1h1V2
zId+z<OVf5(cbdzv4v-Et06?6|pWAUJK~>;4g6*?j6!%Z#7yPM?BQ<qF0KZqGo$TrF
z4%!3Ugm=hSpMOxL3Sti^2*oEAcuUz0*Hnt1c5v9HDjy<Q*t;Zo&$&#6KLGF-%p@P<
zV3F@$C`mrajDGxI7{|W?L<d;E21H@?cG?A?8Aek=Y4evlfCrcCKXZ<_?8n%oBRSSs
zJn%QSe+AeRQH9#EK#tqm*N#O_sfQ!7VaVMbUk8PCXBtqAayKC8C@?*-7i@%uFG^v$
zgX<0bRKxQf-O2D<sn7TeG*$b2#bPPo#1)+A-M`b+UbVd323ZQZO~&8mn@u?|U6B=r
z)xs;V;eWF_fTSiks#~_C;HvSX8M!^Rr?<tUy}!rbi-3pk{617QThZh{(9aRyX1YV@
zaB}8C)c0tcOL3z6FMkHZed}T0cZ2Y4=6k#kjmlS~hJSyY*_E_jRVVy0+2A>Rx??Q;
z`@WDdFh)e|4PFULJcpp)*Q6nf!mYB5qt5g6|80S)55~6r8Hi)sAnPH;2qKF}D`z2T
zXnQg)+cAojeQzR{=8kLs-Ujx0Ut(JVAX#LYZ}g&W5s*7Sdw#achOIrigLtXwiLv8I
zU7cSlGA0T@gD%z+8eh-()3ITx`kvW*v3!*Bna!H(p{LjZ{Io>RUcr%>(Iqt`o;xRZ
z&vy-tfIhA@=TJAm{<9)HQ7TC?eXaEl^NcFE6O6Bh;Hu~%#VeTx{rKdZWRoXB8*=5~
z^DU15N=?Dh2)QMkV?&8BM4jW+-Py=0415Hb@s})1hp%1nWCayZ@iE+D(U^i>?LRgy
zK6c8kkzCUH<M3WUK<tpNFrvQ*l{|P29B$Zvg0<Y)NOAxqeM^0mzx6rM7nTSY?s$7x
z$+uZv<=>(MNb0xDg}vBZK*6@_j*)kLXG|$A9V<-;O0`I)#T@|Xx$gx@sUu0-<lO;N
z`Hvgo`gs80Ss}00pN$NU|KNWtw6|j=T$cBCp55a;^XL%cr<(UmVytX$7U?sFI`gku
zfNY0uEWkkz%MLhGDuh#)^naMS8O}q{9_^PfZhNrbC(A}dL<DbM60X79n?R9kGU37Y
z;FpHJ-~(9%W!fS(N~><SXSs?i*!z>^j`3r(RBR$}@%8a<EP3qA@w&h6)R(m8%jx9+
zvd?$m0|@HRy|-XS-gSHUkzX?hP@#B!F$=xJZE>q?e|CbYqr9smTBNo~yM3bCl94m?
z8@qq}Q5HaScRQJOW3AkQv+!`<XW4r30PFcoZ##V8Nt}XS-IRm6HbCAf4RGFz>@!Kj
z1rief^T+9J(Sy$bU}FyF#qm)zXz6^-pz1&Is*+(>SRq-Z@vgWQd-+mhy>n$TbQ@SF
zVwjl9;jSOAOTQR7JqZ0ao8C|rFB0wYsw`k-1VC|0;uU%Ay7be6cbxhPcc6&qgh|46
zi)y=(*(nv~)3FxOoh)t2@=o`a%9Q>$>(KfFmP-+nfMb4H4(9}TXo<&*L~n5(wkUp_
zPelQ%n;o&3%+z5(ZBgrcp|i|}$ZLXHB1zMpWUx?!ns(@i0{%f@6j}5<D%ZJz8t8d3
zcNl-O3R}#I!Z{NC?tc<XB)qjnwLItWC^#1R5<Yg0*x(08KTG5&J0w%ONH8AfAm_A<
zzA9{78jA{B4VA>Ah_~7&hpNA6d4^imcivKtA?^jdibJ9yGLwWAw0LlOL)V9gPG><E
z<L(U4r0q3Y_^{yXhhG_vNeuo{5&8L=tI^t!qicjxLdW_Or>z&=z2|V2#upr6H+avN
zXNh$rP1<3su5TV947TvS&}O;)^tBBc5#oZZZ}q5e>FS6vhsE%!mSa1X=4h(llfRK`
zBQL?Or|sOs@dkW$HeWvWTB>Dv)b~yP-}&L<(3Z9T2Yv`BWQ#*~;h6a{P#(x?2b@Kz
z)hGnyM7#96%uC$$9Yi^N;wvfElo9|529g{O8wrWhd%#!yjwHO{_g>Qz-7&<jjU-5%
z#FJYiv0yz5>#avOvKh5XM@P#5w)vFxiZw=~U;!^*s=S`fS2xWbD<no*szQt40Yrk~
zOW|rn><M}0Vkym!+Zh7T{5P~d<XLKM-N=TeY>WfoNqTE>uv0)(1@~{SNMd1c{5$sY
zd~?0Ya9)|RhtA&~OzB(T5c*TzcI=$?=)NDM*1u!$s_UuQpd*J)NS7ku_PaMl(oeU~
z{O@NX{M!$tP$9$s)$S0FH#tZ_#{rS_KAjE(?2PU{aI@=)p0fX8Y4`2T`=t>>nZvN(
zjzycmAGB1$O@{L3v^?rR{2l!7e!iI)^>h99<*9CLSx@DLKeD1$y%CG}S;JMcgQ*d4
zCQ>hs8c7Vm_fxClha`PBevsrjx6cjwUe|1Roie4j^QzQb16OQ#mPu**>Sz2AF!s@u
zT1Ll8B64QqUK;mEvZewWF)OfV-iVgy5_6SY2BsUiMXmHX07R0a<ollAS;%)tkt|)~
z0m(3zX^XggtcTN@H}4rsH!;xviMSX(-gr6$e0w9)X9(n1$)&<+)_Yn&*5>T|av->A
zMf3_SD;vnyt9?eF+~hw}U3Y8j#~R5}jaGn0-A&d#Mk<7lSkpZsRh)_wGVl(v>>a&`
zbg2Fr+y>Aqo@ADuw+7{4$RIqb#IVc|2N^|NPSre^?BWTPoNWBZwrGX1F`8yp>3A7D
z3>FESx^!CV^d|u+mC#5BD$RQz#}pf2&nXeVFbux45%)QKXw<!)fa8>^K<BV3w#X7g
zFjFdrqcWQxBqX@g^6iQoIOXLol#-$P4~3GEB)M7sd{{7VgeI?F`-{{-Hll)@BV=O}
zM`%ok5FiUPx}gM389+-OPwkM@<83tlSIqUlNoMaqC&MM>KmS*jbExXu)}QYeIdtF5
z(BE8b#jys0VWkq0askYp01gBKO%z7{QTkHkpk0#eF0t3wz!dnW7fN?v5kwY+#*^A>
z8*s%C<=f?5hvl&zZpy%?trZk_7;j1v@LE<I^*LfyoUBwc*>}(SPA%dJtV5FAfnmwO
znc5tW+}GdKwnnUPu0Nhmx6_xTZ0gW3z`uH-WRNsm1bIx|eb9C-1z4Sf@tf;Q->o}>
z$wQ~kl`*k-SCNr%E+-z)*TvyR!mNHLz$(o4pqCwyK#U6bQgK2*y0=MGEy`{9rnhTw
zi>kp(UGxlJVPxy^4twgF?+B|uulk!_-#EpDn>xp+4gVB$uo^Wr&7`G(XVnse#~xF}
zLC{%K^cVNUU|E@Eb0C%Ou6H$8S(bL^&B4&|zm!9J|B^Hd8mfx<q}g}@`0vw;PDmMG
zUDP~IvINTaSkxx_paVCQ-!;R=`wkl}e_IguEEXSLE8o)irSp>1+n2fg?^x!)Jd6K*
z;QK$m3yH#(4u$HDng1)<f7@Zc9Pes}_COMc+>x(^1*~`Wy*1B-%^ODO_{mKiq2NAX
z%~BlIt@Fv2K(wZwwR<~DD&RnJo+FI*=F#P%kpa9a)_Xyo1T18Zfh=;UFR>=sF|k&#
zd^KD&-WFVEh!zf|*lTz5rNrN9)A_Hfxs1H+FLV37RT=vF+h9~X%B#9yo^U!R;k0w-
z3_@zS4t|stlc?zEqGDkS#*=OiBUHEtZ=5BEQ>MKH9#ss!y`=#Mw`lsKD=L$rs(VgT
zM&{>Kk)D8pKD^@3bEOqXwBu<mklJLQ&_&TVP0p3)*~|roov&8KmKUoSA%p(Pa{<Tx
ztIXpdTm0G(22kB^FKJBex@|H}krHJ8(y{VlUkBPHl~!hbvr3(_k7i98c+A(JQSGvU
zc#13yj9dTt*?yq-rS+42cPw|VuC3BlVWj<#Xa>C!p(^ZNY%k&hu>T8?KF-DEP|5Hc
zunVc02UMW$4DXrvOZV%i?9e(_%d+*hMMv$hlb4aXJYlLDJ7(1&{3KNoe$$k@B0x<N
zHYsqksM_60jzYaPwi<%b5Gh=N&<Jv~(pc_*jHH@lA#-6H?o6;F?<3$>wOHd(n#_&z
z88fFdXw@7=Xw;Jyc5wq<IKQ-@d%#!KO|of{@{KO0oNqG;{Kps&{~#L%WJF3%#67wI
zR0FBzDl(^j3UIR-c`p1qM3)+Ty+1V*gFUy!)(W3bN7E0mR-<5KR!IO`T82096L2de
zGJFtVtbOA*0wi6@{L88z`!A{L_%Ff!{{?0?YD)rObV+TAi)^oSVfM^d>7ZS}zN1-1
zJKcco2crJTap_N@k+4N+ZAm|1$ZKVLCHXB$NrBH1aWGuz?RKoXJy6e}B58kIQ^8rP
zGXF&-Gyi=ScgRlJUD-9LJklZEA>EOzFd*fHw=?$6ms2fiQTF^Y6_=4onQ#+_H6$;d
zB}*%>jgs>8q<EkZ1;CeUFxHP#OgLObWDT<((r|<-X%8P%>Sugxc?z@uI=TiC3S%sx
zpyloqEIg(mM6v_t?!M)5XIUq8Q>bo0Cfptto62dj$JrM0O@Ty38Qdn7Ms^gwVa0@V
zewMU9Gb^E%hO{0(6_b}hOp{qACe*zO840`2UlOD^QcZH#slFcT0+w)bBiH@&cA#7j
z9O=8-Lc=>6IXZhe0x8BVKx#4g(cjEY9l#e+XA(O65iyUD|95GLgnc}1Ec0!KdU%!L
z*+uMna2?#Gss7OI&gr$&TZ@TWT`?m{!ZtdSD6!z>z#9f=tLD`C_r@y(>ug*78LyTj
z>81W+^x3i6pdlTGY64xm=C=J}cTDGusLhpmvM6{mq<<nE?=L>$hYntvTIy<d;QNUO
z@Wy1z>=uMo2zm6bedqdD9F(5UT-6R|`HCG7R_L)FzZ7u}1NOe!zSCqZJ-^m&YDvL^
zmy#=rCv}x%3+OR}KDaFOLXokqFdWWLRtCOwtD<aO^+K|2^%waCiw=A+sxPtY+a>hk
zLj#yDS^-*D$Kl9zQEQAS3m1WLkh4RGy>ITVFi3fy9#~H|L=3XT)TP<=RX1(nxPjzG
zv>26j^8425{aOcj29&m*S}a1mXqwK-@m*~eWpkqgamm@q`uc;xU#@m;EyaoYM~7Ca
zG)=kknCV8|<d+WYoPzuCa-x<;g!aWVi@)H}4RsOy%gQYtkzMJ1FY{wWHn30UCv%)f
zM!EPL(yqCV5jKmuOUG}pYnp&-j|^glc5F2$qJH#7FUuMb40&8_qast5=hTuP?ig?u
z)eD^MW{*<4bDZ4+?&b85vDPZyUE?`oPU4W5DJOys{C03QM{Ge1>aPwm4SpOh?4d2+
z>o6b)+16;(#nld%1p_2QkRHVl%m}*EYYher)~5YM6Gl-%;F+(q`=bdZ){*mQYM%3m
zK$ki26Pl4rbC$~t_oX>%GZ~KBCIe9ZHK$Jo$iZfVBKhShN?4cj({DMx_kLaw?S8qC
z#kvDj7-CaOpZDFOp)Fe0?U3sS{L7km(=4+#_g)-ue>9=FIzv={rb;-5u27xrY{%L6
zXQ7Q|zAh@C-9fh*iBN_+%PTlcm3uOHIIpSUcKB^84*jxWk@iiW{Mf<Yrk0Xfw#utH
z4RBc7D&1Kje`YjfB{+y{^x<;F=WyXx+R4QrANSIw9ODvj{`>(l0eA1n4@%QHVmR-~
zz7Fzr*isI{S)QK#hkMs_NTfGxOhBsA>cTs4lfPEw_NeQ>upU);2fT|gyS+WyO7__N
zm?g@SU2fbvp78$pfD0w0uy6g~D<g@z$}G=(Q{%ur6gyBg!e#ru8fV^}%mehHpK(tl
zXX8#+Txt^5m=gIksIe>MHIPY3nQ<Q&KfK2kyEi-b)k-q$u&6I36ba=O3W!qv)L1Gy
zJ(w8CKM-t$Q+3*?f|bc|o1N0f9&>T8AeX_dQad}PruL}ospD;ZY9bbc2$WjwJAkKq
zQyJ~J@GLiF@m?CakWb(LSwnIg|M72?xy(N6R*fs&JI@);M(FO*Ik(6AANT%{Ik07u
z;)NYQzWxz(e&;_P{NuNGoBpX@c=_?qiU;Vv7~h*eMSE}ElC8My*Jpp7Fgx{A<+j~7
ze#t%eVIr&D(rUdDTh~|8TQQS^9kPcp_%SR4vQ?Q&z}yg%Vb7y6fM3P=Km70G-Fuj`
zhON*ewP#ytkS=p>2S^`U6<K6I^#x*O#(e<Nw&2!+L|D3|{-DWzbJt3f&g%E9<r5sI
zTwk}cBL-TnXb3kc4Yp!~2~i(R9ls00TZXx`!Sxo38^lTET%+@7$M<KwnwOno2?O%!
zgLfbed5=P4QXLSdz($yytgu;QlU94kvRdtLt*)5W3mB!>G=r@}PsWoqT4o(z9mG*H
z$Fo4`M+CPqMQXJd@72xDEE2!vr`H`+kg2|7YqN_zb2zx$Jf_KcNpjPQUMwf;Fv2$B
z`y2kpmWu|fokmn9m2o}EI9;XQe##s~fH~FWrB)mcZf#Nf#yOf1)iI!w7_wjVMF(-M
zoXWsG9;J9;%ym#o(CqPTnVo(I)uKGIIQjWk!e$>x#wP5@Pv6tBB`)ZT_?B3WE41Kv
znj}URITyVeWCZ{tj#N9jBZJ=gXG5LpNJWoIY%he?=-v3&^l9=%q+}6x!pC}^p?2iF
zZmS+D>=?L!3EIZsfgIHg;8)z2c>?G7Zu8{rGW5pXgDcOM!y)XPu!kR$)8uQ{{Pc4w
zpUqj3yX1}tZemQ#!r+*_n1jP5QMw_0$DdZ;K<^Jqq|y2uO0A5_t*mQTIVW?)%rmX*
zF2m9SH%9bjj5#6Hoqgs-m*Mm1qHV$|*3h4dbgzZZ8zyd-$r!hss$gnnSPT~nik<;|
zVWhRMr9eWIRG*HI2cCV3FM9XG96SIMjv3Z&)wE%Rlj(DfAd)3_HgGsNMAar8i9|j9
zvWOY`p;2!>X=&GJzO`Wf1W<|+2DOgSb$T5+Mbye~on(|c9}jvjK1<(^!#(eGQugi(
zg*m|=rt{K5C*w=@{;A&iOuHRhmQe|IXaND+!cuG1x>BW!OC1HDRZ7);x!mLqX>faj
z{Lq1DdA$UEescC_<~uBBCdei2?^WA0ct(#|3|)%^3HaFA6fGz6qMHJQFwyTY+f5Ft
ztXmyQqFtZd?P%gb44rrow&&0OeqTTea0Sz-nn0^7Arz}`t0DG#>RXCPD(R<wLp#`u
z`Mv|%g`Bpf>JffWWx4%GKfU_5{Pcqg&vbCQp3j0vmLZd!_`;m`Cput|Jm?6z@h*|x
zS67iUl%!DE2C5FIkF9etenIp&UNm<=*MfPJonVw&Pav!&Xz2FfF(Hoa{ilDUdT64N
zZOH4@%Z}}iA;2iZ{iH-SdROSCqkHO0u?YM2kegS<vNUctFr%Qd?d>I<(YtXLH^|NH
z=V@FMQeWc4Yj>~sY1j8_^CV1826wE*K$GvYzv0QaZSI6CsCMl^l^iI>2DW~W!1||c
zR1rv@b$s0mgR6D|ZfJ&nDK%)SMrPkO4+okuc4F~B+PXh8T;FJH`S?&!fV-1bP;;V_
z&mQ_|4^+JiD!d7J*MFEVV*;}LDyLSM1(LVOob@I<r2+f)l<B+NbSW|sr2Xx9e%?4j
zbJ^#qO4j&L7dHmdWfA5L7cHNMurWFsy>o`^q7e`?!%H=DxGU|;MV0h%Rp5{Z26&O}
z2#{C|QMV-J0`l}H!cR>pDx~ZvHE;a!7XPTcnHz3B|8YNkl^p?{@GTOrL6Q$#t5#Wr
z^#)mEpdYwu_3EFb+v|l{yRA5TB@ERjtiRbfhSS*^(!ZbqX$%#8C8eINDKOR<I*gf}
z8QvO1PVq71yaC47##|ECr=8I{x5sb3sxH_?6OB7B5Wk_zyFZJhyC^)h&0hG`A@f~i
zVmc8NV#fL012qeK|4$Ye)H<Vkrjp?Q^pJ0L&$82H!jL?DDFbAJ3A-%dkcQJ^YR<GG
zG4<ZRXKuIY8W6SDE<J$EU8%x_&+w~2eCte5_%Vl2C{s(1FbBY#!+^qPQ31PeXTEKB
zHDyrupzkO4+5Y#=f3@R*h-(!6224Oy#5Hy3l;=6p*6NZ>nie}i=(O=*NV1ipQE=HJ
zza~xhnN}Ig%{pu-O;mq#C<##d(-w8AT6JEwT9zKxVVpxg4s$yg32KAczJ9$_!`3@<
z5vjXXGC$FSpl$LBu9f~G;S1+i-R2L0-7phHz~vU`k2L5&!XrmX`|AIle);Zm>@H&=
zP1~aH^;8(OB5-xuo&L~V;)9d6^kBNzV28g+V7m(@yvO|R4uaV>hI%1M3z52NhViml
zCJ@sIOV$u>Ep}L-Ve+mbqt8aG#pI9@{}T^nJ?Nb)*_ju>&WzW{RD5MTVQg9r-r2@a
z=^+iapYfBd&85$Q0^&Z=Vz6te7FEv+mT{|v=7KRPW5os(u3uVw4C=QFI%OHF_3~0u
zCW?LwaXc|*HX$hbN}JH_$#})?35O$Z5UERjUQkSS%5P-d)&v~aud_bNq8&1w`vkCG
z7Z;NVSdsA84am6~>aYpNg5oCBRDI=H<n@s){-iS4bpxUz@JnNmQh5FBmD(NiBtt$E
z^GFwL-5y0)n57t5)QT@v?Knxut!~lD=trFiF@2T9%Sq$a*1d1&Xm7$z_#LVB{(UeY
z^=x(BdWUnwgUpp!OgL5~AGA^r01)Y3S)ftNmf|b(RakL>OK{lJZcXfjcHt_P1pLk<
zQR{e--q@v5orm_x>9Ux5O`jW&Ux99@JRPr7B=X<;$2{@d27Q__s73es)QK?3DI&kx
zu?+)4=Y~xVRnYm4-Q-uob?t5(!8Q!<FBslBLAB9TO%IC%w|}9~xb8}6&<P}x76hXk
zXq~%sH{G81&|k27XB!jmf};Ni=yN#jvCD#c2PDrPM%!adeX60SLR>Y`i1@kJLC!aP
z$$=@C`kGM#PjexWk7{-vBL^~NXAU{&EqXm#&`WRWI@EqIum~8*!V4HlCQz1K6}qE-
zuW8!IU*lh~vtWhNk(lztP|I{Ez)Ls)FX0C0IwTDGyD4MFQ|*<tyJr2^#=j}~C3{R9
z+O+?quP~@+uCjP&Kz?ejVem}Dl5cQIHUdwYyfn?Dw2r&B_>Bp*TrVJu5a;3axst<e
zK?z9YHO;oEBNBuEb#`eNBfpE+edC*uf*tl56y8DYpX&;62X#7J1jg?M#`nLe>mWC1
z=BAuC{+1=^?w+OIRC%n^9zp6nRwdlqcHE_-w|Z>Z=~U2cLL$4}`4PWe4lpwP-b-hO
zjWG4pqw8NX`N_9xP4(19QQlV!L~!!{i4BVyYKK{yR(@xaIWG5ER0SJL(@zs#eAk^)
z%qd-J)<jGnr03e_-n)`j7B6K1@`oK9FJ@O7e()V*eG5G6x-@I~+T94;8lIYyH9nBm
z{xcbhihNZc><1E%0%L<zs^3SZpI18Rg*cvYi<5x+`eMl=RV{U|7FJ9c!<%tGfJ_TX
zCMs#;rl~pUk3?UQlOxW0XLMT$w$0{XHJ{aQY&}==+7597rv9uFi7rsgSs~y_A=iwx
zCEIqm$ZzaUZ13Eh;@Zp?yrU0PuO-s&+LX&y>vz}sE76T(>iXZ*6Q2WM772hEkGNaH
z*9b~yqXy=-%CZpSk9pL{59|H5zRwt1lghf)EnykUsG6gImSzKJxrn495EqYSecjw7
zBcm`2`Te{dxL~=)0<~k!H{ROj7BoNq(z*o28`u3hb~}t1*{V4U7#U&ORsvWI@(w*W
zGB?%Y-6u-z(yf@+`$UABuBGMG)i+>ILr({PetA78S@&BwJuhvrNY&`NdwXf;m}}><
zQy>88x4PwQFb0l#$JbjlOg>g*#83R{kw31d(KLMOIyAow7!&{~W#66NMk`k_hb7#$
z2a|&dD{0;WVdUy~O*uY&HB#Mof1=m7{(-&PArC!aB53__*wzk8YEBy0hd-ZYzFYeW
zw*-XF9Dk`X))k}=yfl+8yT3)wHr`C|5M+`XHqG0nvF#cDh#(LXRj~R~M2tDo`=#R%
z!Iid^x}sN6J1E!NGBXv92#P=)$Y2BWW<mOK-4<z3`u}jZ<^S8;_e3p&2GhsGk1^B|
z{i4hc&YE+RHTsN>HVoa|JAkU5IeA^Pm04ISA`H#7nHm1tdRha|ktYr-#1&M(oZBT+
z!8OkF_`x5FIfj|d85QtZ2yp|bDCIXQF5JjdH+STf-jH{_;c^4oDyZw%{mrz&%h>_b
zlxo%d8)W+XovCNfwwkBLs<o0*XDzu;KpYG15-6(EyTxoWM3H~5b2*0G(7k4du{CVh
zzDYQ&IrLXp(op(%D{Z}KK}A#s>V`Zl)4zlQ!l(QDVjz8@U_NjUA<FZsx|h?K{TktK
zd=1Hvpx3R@u-TEwU2}8gLx}!=&M5DL2EEQq16?DHEEW#1u||gXQf@T`r>hHyX>%Q4
zotxJ@2}njVC)_C2Evt&*2e25u+%%7l;RfOQYlc?}mK8I)pS5YAZ}q~~b4n<}^;#v6
zpw>BZv!|6x&UlqYq=k{;#Brv2*DKS;-~2!Z<%HGGdPbkC*e7R<APr~k3Gr9B@m*Z=
zUrjevXza?9>FA*wqE#{D6<a5)aZi~;6^}+V{C*n=y^9L6R|={^KA4{1SEQZ9%p6ki
z$Q@VFfDFsp7^ibs!&F-g)7k*>)BZP+MryNHxL>=tP<27de$nSbB8WQVjIzhf`1W>%
z8=_OJ!`2mvfCnFV9=VO#3J`1kX!e%eDvp)G45{^}ogaxuFP=K?lHD5Sk;QnL?Kf7j
zJ%45u|4<oXWl0!2vPeo2z0p~&-O0D&!0Hg~$Xh*SpApLJKK{UKrWduhWG2;C^0+}p
zm2i9Gqtw_l6i~}=q|!Y8-dlO2%KANg_LAC`7*pQ5k-DG<q)=cHxl{nsHVY%4TpKpa
zR#z7g(jGopRufzR9AAUjbIQ#0ad}LvA>gHJLAZZ{)RU*_W!UQc6Oopf{IWJC>`kAK
z%~(UMmC^qABd(-9uC3oz4)jjCnAyxvK(yFr*L5Lznd2Fn)iF1x)<uMqw+2mie{BGT
zsMzpbFl127^&&A?!>hAF|H$Q(;E&Ynbhc^gDx@vtBEl#|HETQs$2C1&Yyt^(02fW~
z+k7wfETw<?El4itdHH!?0X+D0BstlFI{*rS3^MT$#qzH&HN3JJnw@HCMux5UB8%Un
zoQtd#3f~DSI%3wlTV+$e{CkkG>gr>y@=<;3k09bBK3{QQjTU-(k;PWM+0z581|v4I
zyqcDg13Rm?P`>1me{FBOW*g$`9f-=4aU`VNEX=13#r?LFY#?7Ogoic3$@!G!qIaG_
zLjaq!<0+fm2P!DzG_X{e;on-V9r&iX@0UxhG6QTH>`qzECujeo(Bx3{;nwxGX6^bl
zQc<#7Q!D-KFRgUb*Ccf%YK1Y%V!i9YCz7k<L{<_q*4G~8bQhp?nRcn0Ij6j?@2`Af
zq1QT8o~FI>awv9u|Ipb8ixJ-3oGgoS4P$*Onw@Hc`Mqh!pH0*QHvQKJqlX2=tuy&)
zf0*+P_%~N_P^7t;c4a;1?h^z!xM&|)?$v6=N00|9$^zW&f3-ybNzQG82S=J@oC*%$
z9Iz>0UlyeO@#VE}m==K{-g-A)`n9q|NQBR2R3*;mMU&Gu3o8uEuRt=4D}+pnQg8NB
z7Zy1Z*HV}}T4sV@UH&HvNS72Ao4g?#QFI^V>5Us0*>;_Cwl=_NWLn<kU)1nBdRp)n
zLDi@hbZwn;|0}Go^RUt~Cn5edxP3FHzTd|t6%<{xdpqGl*{hhl{3gZx;W>s1rB#oF
z0U4@IlvWjXqbDASd3Zj;v^V@-+N<`wt~I=0M3t^a%QKwOgm(AjRM{CaKELM_u0PzR
zl5Etu2RTBo*v#3a;V0B9o1$wtCU%5@i~br7+Cw510^yLfnwl?Zz<fb(jLI@{XqB%^
zY;lI&2W_k8`0rdNgnmBqb?&)3T|s;lupyQ90@1GMSYYRsr{51!EuI?#NxnaYd+Q;Y
zHLpZR{H}f-&!dIcrT^CT>l-@7{pt95jdZK>0?<FLI-1AdITj92I%0;^TMy;x$(wO)
zr;j}8>k-)?f-vfZAkD~Ep!{HZKlOU+OJ}v{DT-EV7I06GoH8y29_id$KSF1K<ncqp
zxjMJ{O_rW0!3xJ}G8orrJ>K>2h=FcXYY>%m9k&Z>bxZ1%sIV)@dwrrmLGo6Rz@28J
z#^j@-CNCkv-+mb~<``0}ZO2P8|EJ{*75tQg7vBfTTf2lwmBe>KOpDk?1*-%6_KPe*
zDmM9;Z9M!;c~3sk3K?bnu*vX~UJ5TK!eqc=IFfRrmGi3J!?ZA`jEPiExx(!M!X-3O
zl?JaiVEE+qtdj;fuUodTUzhZ}+NuS4HBT9CTSlA=H78~{#I);5Y|JCkWqu#%jjQ@I
zdBypa<IS~r^s8CbLZH^>=BH<yIr0wcN@>5(q84h;P_*j_X7e6tU!cE67IfTTY9e|x
zh%x8e6!7P*T6xq5JF|(a&jMH9p1BG3%^l61s<ZI_yqV*$p*&AVM~q&S=W6WTAKBgz
zn;N8+YTawMev@F*l)5PZB1YIRf8HV9U5ut^ck;TOW}^t$)qv)-vhLDAo%p$5V7~@|
zdz959`lKuMM}tu1RPg=yGY#0WcEz)(Tm8v_NgUOmulf$n7)+xoGHY_*vC~e5m>!wX
zGin{G@p^m8E6kzgbD^;<O+UC}R*$*Yx=dx=*X%3$aV~_x><<QHs>RTUsXxBp48+2o
zhc>VM1f<P6Bn#lu=JR=`R=g6KU_YS>T|+x;V}wF~>B6?<85ZcFZ~u-6nBHk!nKzzu
zat#q|zq~A~k`DuZUv);O1hTi@_0fIjcMdwvclniGLuau^$tF$e@>!90`80b0^Jm-T
zxHJOq@{x1Gevx>m@bS`~{Y`t+Adqj7?W>%4-mb8w24j`V`*p%jA#d1!w$E>*!PCP1
zWv`#RyxG7qPFrLB<)##C1elaH8gzh^TH|QHt^o{he>ZAl+xPNj2u0@wz;vNdusH4{
zY@`OCKene{zqoA|S?IZc8$+o3p{dYLy|KDtaN(Vd=dnK9h8j?-cA?u1x_$mMuUe5m
zhE2-fy=qJ27DK+M-CEp!SOsd$O`)xw-<#drg@0=59%ix~SFP2PbYJhrF%3UzO4ud1
zE`?)Z&=aP@(q@f)^+aP#%Gpdm3&9K~hhCxDUH;Ts)n@VwjT@ejcI$-+kYU^o<7H3G
z7(5y%OK^>5WYk@r7JuNQb%jnnFz2?6*4EK+-?B2~>i`U}ulH%(Q{4wt{TxmjaOUjR
z=NHjxvFv*0Ue(V6ggZt)sbnTw(Kw>@7ZV4~_0G-RbnJTZ(-4D}$W2f4HfzfS#n=+v
zQr_^Fx|s3>u_gHh)&;R&4otB81*6Xk3hBNS22|B{nNH)@m_v$!$Yt%I%8!==*AUR$
zrh1Z#G3v*;<nSwS`eJ|v<Z-C6i)Q|*!r3j5hW-j|RV(gD7gu-d*@mZ#@f4<+qFgv(
znLom$+^_Q|punU9WVs^!w6_x)4+}caobdTv{wl|wQWQ?7*Sgz|EZdXVPktR!3kdX5
zEwkK1au3j$;k^c_T7*H$sp53|iIzvIMw*1A)|ikY!#5(;i{?A^y7})e_81lB<oi}G
z<!$w;tJ@oj(wj(l6I0SJPzw)K@SKLs|M2l?2uKj^C(y{HwiHE`Ogd=I1YsdMfy3!U
z=hrdr#Nm7pOMgymc|$VQwSdFbS_h#Z2$$v`qXK;va#d45S8+`VSPfmSR^~HpQR-PL
zA@)W&+Ib<@R&Cy_ZK9{&XR)CtYCYplftvnIe>kqvH6>LvxD~du$3$=L(Dac#@@9}=
zSO^*G+F$cKR7rF*2vcL(Hc*vs9%I=J31g;(7Kr-Me!QIXUh`dVk9&nN=q1LBViWaP
z_F3j$dE8TK@3Rr_u}XBBZ0f3oU(A3vl3+ts>k(hu;#nY>U?F>=JIWk#3XBb3M`U&u
z;40d()DF+QdNcIVhHx^`*u&_$s)xO%Ndu=6p2HF^yitd_W6<U7lmpq}$AV6Mn$%;K
z`b<yx0;`^&E-30yi!Tfs^s2Ht(Iqm&I0w`Pu^lw6!}>U<dbcf8!h@AOOQfU97xM3q
z^{1{{`3cazbz}B6r(&3@dLsQq&b#=D;A@)J@NHb*UO(c<^Dp5ng1b7nCo~6N5EZks
z_cOUePytGrJx(>rR&{x{>`3D}+ZJm(*Y^{k$QW_WmtQWI^e=L3Fmb8Fg{MKyzea~)
z4jZ*As0(V-)>bOgbR(l)kr<|=kJL*kt&rZmIA#6Ub|O}P{q$x(($B!|g&gFfIm44B
z#^LLq4M;mHdO^{fZuXp>&b8z(EosdmV~j?eA-tMc)6>711XqXc@7JsfUHx#K4b`+Z
zeE9K~F=J~sgd>-o?K3tp+?3;{iAL$>9vGYLVvcB}*QvKE(#E<oZH#yzGk#};8qxJ#
zKcQNm0^*z;jC~tw4R3NAKBklab^4vK>OsqW%{ED0J%=F`fiCf1tzL1---+<f%67<C
z0IR7ljQ9&2%6K>GIfZ;Ns^1N5({dga7W>z%1=l=x!X&%i)zv|rM*Vz2Bx7!VS0S#N
zhrYAoqUX`q(dXu@xxSK7MaHbQ?GU}4UF*nbNddwq+8Pg^C+ZDa<zDsIvAO{+`FgP>
zZ6uRXGYsMW6_3n%XZqR57H?EJrWzskcrxx~>px`<5m(l&CtFN)e7=MLi)c-rtIPXY
zF_u%DWRU#e1u#JeFei#eJw|k%m!e76OjFBQW1O)z+(HlL4)-$cPi@i6;-&qLwpmUQ
zC264TvW`S^G8l&I6O(n-M|e+uvut@H_sgDonb(}f!83zx;XQ0`SDddkoDj*>ZSu2+
znrFtc<`1P14thKtA2^gUcZJJZGG3=>b^3a!P6p&s)qPj}+6=$&zorpZ;{{D=+X^t_
zT#!N_HtOY^HMhQt3$|@uXM0Sp=2#e)b56_*X3W-kwT)ve)k&`AVf-Zw*FA9=zKp}a
zjdsz?J8k?h-L4&PNjP~ks<3{N!~lLCDa+erAZg}vVhh=4DYGNWj61s(*7c%0Q6)7s
z8cke9N;XJ%8XXj$Z!iL0)(`ca;@CqPYFbf2@4>i<PO;3k3QdVdRP)mQu!~x4Oi$A4
z`lHXb`4n6DJI402`JP!bh#^J2HKdai(9!rD(vUO$W_o9Tg|3fVN4U{CM~HU~oEfuU
zqh@{blSLh;=sL@r3BHQwm-g&2ve^?BV#P@s0>wmRS?@SiVramfqHzOs+@TO|221RY
zi3PVNVulSSOrNkpwgI`Ks4HA04LX;TI$VYCx)cizfSPgtWQj$o^*TqM4}kB*Xin^C
zH3E_%80f*P-IpL@Q@<F$Hu<~Stg}Tb+N+~!o7eW*Ha|hxPU>&vfJAS6OVwkd`~>qL
zRWn6;4Ppl~b9@q#_hh_h=S<F}4I#ecFX)o2QF!WVfS*7ucS2MUwUxa|<03p3)H=PB
z<!T;MI`8NsHmL@}HV?bFmlV;}hQJG7Os5KBAwcf(rDpG9Ht@Jg(r+ZZt?z*1c`^>p
zpgkMei{qwb+h&K9wxs~^HzszrqFp<sRCtCJ83XsbiZ4o<A>EwOd1$!2)$)SwoRpou
z9K!`K4ue#?R_5ySbV|PbHg>}hqH^XH8<|Vb7PT=!6QvbuYp&K@;nJS`mwn{c0B}bw
zG6;2ZJM7US04yi7%h5>D$R-|90M~msG6FHKeGjuR!>}&y?d_rL%!;_Zf5xB{RWVot
zzI8?EUa&R(DfHBR<EYaHY8J=T{9wm}SQXfY{v-|hGUDsDTaj*q+2ht&k-B{GOdoCR
z9%EfZ<5cz+DwvD~cOS4}YT|?_{CSa#UCx{BGB{2f$mA&lbmpF04)=(_Hhg+FVLmqv
z)X03K!CwJs=UzZ?AO?r)ndMz&=+F7)wtMEL^ovCr8ck}YAqDq#=8QzG=O|Y5n$tE9
zkX!bZx;+7C<FjK*`xkhnbLO?fLV;_kAG+-)d20)TE|{9dJv>^krJWCO=%jA-n815s
zMFoQm;J;NH))tVKMtB@mJ&+#Skfvk6B3(`sShdZo@${HR&xY?AqVbm8%x$8|!;}@p
zD5YiKRS(3~zHM~5fn@+|JrOISwC5-CFx&~zP}=w>Bb$ashTg;ukEe7XEL0eKO}v=a
zPQzPf*375aHdA8XKc2E;)q(g{kfW5-6Q*}Vx7D=UH1DP$+M?emL<;%2X@pZ~b)O3*
zQ>Tjq4zRpeqA;-$&2z}Z6SJ)^ZGEw5pEkw6n3ljZ!%xSN8eVA(f-T!Rb#>~oaQ_@{
zmQMj$TZOr`{d9r@f&A{C&TZ;xNnItSoq>OO053OJ?B~U6jLkF{w^9pAXY$hC(H2vO
z54V<K>U9^*4+i@J>*H9I6o9ZY>xdvNifmDvYeF$pD*`XiM<V~(tmID=BOj+HmzJ$H
zytbHVwK8AT%g;g#p5{DZ%<pV*>=s-u$0K}Nlx$E=nI!cHF-p(prliI`uF~p5vpIbe
zChXVV0*#jVsOsVLTO|pG2Cq1kUbq&v(G==P>l|)b^&^1)!1DkYxHBAbKf8KZ!LxGJ
z4c?OA<;re%P)=vm?Kog6_)9TwH8-I@a;O1Rt|NJd?m%4(eA}Z%7xwmw=*YsT{Tza%
z`K*~Dst{3+cpImqI&*fp!C)CT^I%CB>9T!JQeSB9t9hhWG`)oRv8a0Rkmq&qFB3mk
zYPUWI(yEW|rPd!Q$k&G`>YmYPsZ}aW5+Fn2Ep^CSQ#(ek<^A=Uw0&&W9q7aJ54pnh
z@!}ALLeNDSVOfF2S5mRxf=bSt7UFf19I>bKdGeLaKSIE*xvp$UrA)=>)+5n;^;*m9
z+#d$+0-iAVmLFI0lt)}i$=>>O^%x(E(yhm-W0<qQw$5N;4;{%w1hxI)6Jo*rnD+a|
jBQHSX|NsA;Fj|+Vt3vA^<~K+m=zv_Z`n~*u=iUDSCMiz}

diff --git a/reference/plot-5.png b/reference/plot-5.png
deleted file mode 100644
index 897dd9310f985ffceafaee5051814e61822ccdfa..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 39730
zcmeFZcT`i`*ESjyMCAy_0vzemJ04Jx4k{(|-XSWzE1`GsC`yY7%^*z(ASFa<q+_8s
z=^aFR?}5;AS3LgS_x-+q?j3i0f8BBS7$ITrWM!>2=X~ZfpS5;g>uRfBy2x}90)bqD
zsy)z$K&bp6kh71^p95#c65nrvr*n@rR3Ct6a1ifThk~aIPt?rd5D04o`9Xo0+p>c|
zI3UmmN``(Zs}sKQ*Ni5cwj6T!ZvJzFPx(*EYnG^jzjR+0aGcW&D-m2SsT1NaC~{H!
zJL+<&=trT45c;9>qURncD_&Moq*PL*x)90v)b?S{l!AML)h(leynujnb?NZK-S6H8
zMkYhqp}{NG7k>5T|Nry<&j6SK4u4;$Ai?hdy^35|D=RO1T<#G1b&DDTnKReUVJ1%z
z2CAm-eud~MyUk-@{AZg*AVHD^__1!0okJDH?>P*c{qqOazpukCMnc4XpElH`^!xpm
zjPS?E+u-y=9XW{!@?{Qd@-;>OYp8xbeL85fnzKOO`@KU3C^L63*OChqrf&ZDBv2!K
zk41RNu%IXw#RP3DX(MU&T0#v9x4#Ok>XZpX`P8d4^?jj6+#+voDfRk6$7Hv?5^t&L
zn?P^#VBg%*>J8-<(R?pQt-dU><hasfI&X?g*e%9fM_I@1YFzZD<k8UQgDyaqdEnNC
zal2`lVwAkz#|@**w&n2`QjE^6EHhuZPd*2@bLTz7Frj?fQ}D31AeBkvEsNgRKg#gJ
z**g-QQnbHD8?+a9LHeIKKd;xNv9YK`9^LhG=!cJGb2J2f{A=9YaF4UM@(a{@FX-6~
zCfpKJVdjIjAxdK^?x5zI`G<&pQ2jm1mGk;%(P2m!vw}V*X8!=QBVl&B@jl5bwc0>#
zyJjOUS8<;DBL0Lw(MvTt7^-qV{V?`*Y4nQRwnzL04r!~**;sE=dlJo0SA)!Eg?1bE
zNS+C%tRhCa?at^@?9!=bQsdtBUwt)v_%%MLfj13uFBX$)z)x~(q`ertirf!|CfKSh
zHyI4+8T)(lxJ62It44anyl{mgxc&dAXphbiafvYZZtiOu5LYU&JzLXCY1rq#&O4fR
zhDc3x-^>#-l8{?wVOO0LMk^LsoW8T_&AsyDl7>0g4l$Ak4Z)eD7N1!m?X~PXMF-h!
zp|$t_)1N010_8uH3L*C@I$AmmSKjgobmy|+AREHyCAObfhpdjZ1);01F!uBcDDT1U
zV@UJ#;$M4|dAhyxlw){Z`?hnqwU8^97PF7WwJ>s2+w5y{!@k`HzLBc6JmLyZ4xCny
zlEM;mie-jpYaT&0=#Ny9+iX8XqPo4Rx}QQIZ^Hdl0B}R%U%Y3-A&~usydRQ9Brf7B
zFh1g+^NCLrNsMSI0fPah)``iGLd{Jf>vFq!tZVW^ImEZ&QwM0UTtzU)(i3Q<IR2|-
z61t$TQwAl-H(X&W$A5KJ>j5+L>~oLE0<ZMyt$gmC5bw?5koOqAGer`kf#L=iAG9a-
zi>ORS$yt*Od+FqfciN&w*ZA|&IGbg-;gc!+8<3^<;yY4F38-7~W(?^|+n%v!$wmzG
zbd4dfZIv6_dzlMg;;|CC`oP=3fcN9i+a;^Fp%E>ViY0a`G_hMy_Qd{<EK%I$8p4cC
zL6Iw33Lep<#-3=#pN~k8x8U{rDVbSbr#f~KTQa__i9AA(q_){EAHGqQQ<DCk<$kmU
zLpN@(hFNQ%Icy4Tmic-vzgv>^opICQLBF7=CG79s9la7yEj#){GU910CY6n-z1ITI
z$HZMDm2qzb#MjHJOme7h(jxRsGP(TPmnBly;Vl0;;S*~LWHv=YXr(Ig5wyEqM(rt1
zr;b{7`+&+XsXZDKRWZz`W2*0vBzqFno4(jnQGYnQ^)70cA0fLn?vtKhAiGT4KAyNv
zn6wk}c{8NLNl{Cl;xazi>E{VkE{ErX<GCW%Gy$nUkaeb~2ASNM<vP_hA=i-Mmo{mm
zdYT@btpPqL8uhz7t7mIeHmq*sIY-)suITxg+NW8FCD@+PbSL_>1$(8y!thC|av@RA
zI(J(78u+@Y*!+$CFzL(4Ne1=D>ER{)x$gBDmNe->O6UBtchjniN8`k<9`9TnOqjE5
z)z*+5-E~0hUX|@t`0L@jZMo(18q$+|us0NwrZnR`Og}^l{^N>g=E*=h*QkjYVoxYD
z;(fDK*zu|>&enYbu|N_hqLTew-|;Llrq|R%lV^)XbnJ^-9|X;A9SWw)>IBrBmg=N2
ziQ?wk1I=Gc2DPCyGd2SeZmExFwUlE!Sn}K%prb$Hd@GL;dT)BY*PD8Edn3f*-6}$f
z=%^u&r$t^>6El0ERW-&O8~#s7^qO#PXmwBpkMxjtiTYXL0%3(dv~=??Kv$&ltUFe<
z42a2O6<Io;?)mOu7U57_)*iIYK8Kogp~S&Bh%D*Sr;A9wF+RjtxLQc_`v<%ni~E~x
zM@8Ks+4*TYwTLEUC`u<p;dSh==1?Vbft)qMO`PkkL|#eFnD0Zw(LUK;k=La~uFy5R
zoX7swy?o-INt|o`w1J&Q%!yuEIz*+|AGLRy>bS+j@t|u<@}O&q7Y~f+K_oMZ2@oEu
z_H1)sLhV*+e$0;4V8Tf$@RUB$6<!IdAZl&=+37JA8C-EPyA_a0LhQ)Uj)=q09?8}C
z#c=!)K82ksm}z0xN#?+;jB5@44K3qyl;Muq8y=Kgo^n@EQ=7~Ra~ly?XgC&js>ATv
zo<XX%AK%r52Bv+zkzR7~ala8;!kj}@P3jB;((sI&4*A7=+Q*&Oy@j3#Tk+Hu9T<D-
z{4?d){a|@?y0mknVl9;omy|?mHtO;^8}yASk2!wZXMK{3^w8dHi^(oHhV#h$zP>NQ
z3wIQsDzbDNEx<CK!!3Y&Tq_pxY^dZX0WIpWa2Eo3!Y>B<0|XcMk_oyIWT9Is_O#;<
zypsBPm&--um$E$Qefz#UyqhYc>1h)jUbKV1T+wN|lkP_S4N1z#V7e0Fl~UabQYDq$
zDd~`g`{c*=;WL!Ed1(4Na^Hza;uklycaDhU6>B2gzrtTosL(gJ!~&=SE&5c49U#)X
zO4O;K1gh|vrtY*plupB(iEATIk7T_OSE0e;CN=3W=KFM3Ozb%JtC=|03d;Y0s=;86
zQE`Jo^|VXrHaCS52%8|gfrWV%=uE=M<+w*s-#}MpM>*10o9Zc+_7T+j&PYft=DD59
zS9>APqWOba0ioN$6?5v&sfuRkL(QbQ-?^Be=WS=~=4&y$z>~CFAlLhHE;P`$uH)JT
zcVgt+sZHe&r;9a>IFxsBdZ6x*&3`*++pp8<5UYB~7c`pa)IL|6?j5v!d#9Dr<(7A5
zlrs-!4_wkXP_UhHpoRdC7H6KtF7*_-iD&suRA7;z@94H$7+o%x3d$3Y87wvDgEq~-
zt%l0`pU(El<CO<7+eEbXJb9i39#R5V`0y$OwSPu4!P0t%c}=p{VN7egF8lBTu{+g*
z&7U<wNj-=HBZykp#7aHAK3BRHf*300mP>qDL3so8B9T=*DzZ}R1qU<~x%*0-adv`x
zNh@inKrI>YH(Da~w9Aoe;E;m_U%H!;#p>1})H8ji0;PFVUT<zof_0ZXKaV*YXdsZb
zC?PwQkB!wWx^To$Qf1AZ&$%g4JX-PB=^dvsEn&QhesMZ=xj!9k{3Vpum6j}BEM#fm
zMhTTvA#s@Y=Pt>)jKLL`;&-Dvf@%nXLl5k?um-)8C9k~Fs<(!Pmk{D`OjYGQ`{{Dc
zt&89An|>1;a!JPv_VQgbd(Nn|7(Mql_Wm_#B3J*ZSRm0tmpPVb&~QmTyFGN*uRa1F
z77WY1hCX~4kFiEEwMPq<s<PX+j-LjiYdq}aN3xD@$opRjmYpqSpYxAA*V>V=l;H7N
z^UvI5&SqH?-h&APUd4IM^cGHd-d`Ji^S10ES890_CKlXl)|@!=T5^vqY*u}%{;>`J
zzEvZJ`=)1|hPi?`ZWK??JtO2+hhakvHhz#?6kw`qs;u9VugP(I(>DL#nQQgzD&(FZ
z!h4&oI8kJ24YGWo&+9mwT|@0xY8&pTM48$q*kEzrzTckH%_6_{xk*<<Iv`6+(!N)n
zx~EY-NBwZC=wO{B=HSuUAitP~7=mufoD{n+(UnHJff-eH=QBYoasPIkSc3(~_g?7$
zL^!B4d%&C!=o`g9zrTW5%NBpu|5~7b3)vBrD`UXV)%OL}m9XoV!;A`p@vw63ur<%9
zqKU?}^VuREk5j8(n+h*crmyX{XpZO(HZ>#d<1jiug*VQj8;5`1*0YlduY90iPuW|~
zwWLYZQJBu=49a;fOGeXcXKDathuu`3C+r&i-MfbJs?*#QGd9mn=SjVh7lm1amf>my
zkQcUDMV+*-5E<LXU#{JbaFz}d$U|drHW&;3QkX(+t@7tr`{P>QT#4OE#~(V}PVAPb
z(LTiM?++M7kG1rf(d<@_{ndJ@1do3F`~$5#5E6xSkH$=j59Qh>EOdKGcL9#}<4xQW
zxvVyQ*)o1F`0bt}*VXSXoDw)2dh}ReD6-6w_s4!3hK|Qg?PHOd@kpob8N6z1bcY)^
zyn5#xnxoYcJ(g2%xH@(yl!>z?RHt=}zin<49vo1g_apIMjW^@H3P~1$Yl_p$o_uz;
zaDXnfQvS`{Hhy?ggjwLxGC5ZIk`X^w$&4elQr@m*U^v2KSk>Jg1ZJ+sUm*BHy)Ku*
z?7Chks2`SM)=}o|(H~))OIm2<gVlz|yyx&WLU7vM1h2#n{=s~dv08vtZ{J0q>0+<o
zoc5XDkOhYJe}81iwzYYY+26<R^VFscBpoe<Nq{I}!HPcr)@tM?)MzQJe>e3Z<NW5C
z->?5)JiRG%g{E@L34$Ewh6+L6GU`o0E&I(fi{zQ=C+$l9{p1FeQRDD|eQ1;wTe@AL
zH`<_Qvd<N&>={bRWFN!sqBma+yo{4D3>BtpE5n&6&SjU>E8(+cOAy^q(J|Br>2LA$
z=gXpFF9qtlBgPg&Uhf5L+#UVcpdR>AC)xHW*-?bmEkv+O7Uflz5R%uiHOjwa1Ld+M
z$W0;dU=9!#yEa}aYk30jnlx0IZZ89RW~%}dl{q?-jl$eO$(IwHDlviF0~$6HH=wHO
zOrlF%LQ_6aIChBXU^ci@9VVr6^lMTs+|}&82%Y{5VZlB3VD1D_j@7tcep}6kJ}`a3
z;rFNxBTwW<5lh#dvuwjfA3?RmhtDa%?M8jo{^y{SM8~d7kiKGfzsgn6nH;AhMcLM5
zZ^!xwSM(CLhSStxSJ&iK53e-R{xjc7iL@CwDdy7QkKMIKkiI!0xaq&?b%~*pkK*-o
zdYKS4Jg8U=gNdyagN49ZH+#4GA&2^Zd%IZJl2qJ?(ncEIw~seU>~Q>O!*epE-X|d#
zs!Vfk)S16zD#B$$FEt_(;*s<Rp39mbb!?Es{F4iY+!2xd>h?4at9B$vrE4vC#O!6!
z#<j3@LD@~io-~E;9oimtr=I!AYP5XKFidiwu1P@E9^-7<J9>9avPm6prLTbQDHs{d
zio^_}&S?Zlt4LLJ7jB>XhMv@Vrum&Hi_UQ1LE9jOmd>Ml`g}45+{#?kkoyifm?q=X
zduY8MkD%3dA(S*#>z`5XZ~C?MjnFfHm5gqdac+3KAcFDTBTQ^#zv$)De4d@T?$e*_
ztd6e+wdV<g!AjIb#G>o_6UhdP9!str>l4YoOItnqIWZa%6K}*z>eoCnS7&ydAa)~J
zzRgFN;<GicHSHeKa5gY|!TJUSU7mGZJNpRjbf)HR=yw@$m5Hsxe!-2Jur|1X7B2^D
zqSyO&Lf^FuUl=~QrrWxOa$fRo-mXaSEo>&(6s~ch_<t!OKW-Y&(+rB+xm)*YN*SLj
zDV?dIZ(b4K7*G(O_>+BspQxyzT=s8I;0_Qwt&eTeU--0g&ekaH-}W$_vl5m#9HgBb
z+*6y<L-rJ!QS^%?XoZ=G!|5aD<Vy~0T*h<}HP~zD{2O9Fs%(~Q=B$>A<t%#b3*3&D
z)q)|4;RL)G1_Ggcuh^@&vLVEsz-tye6>b@ab#t?Gudg+-zmdeb;{Ty$LCb4iB)*b<
z*8qK4xiqtvjpwT3L6;tZ)e|;5XIo$ynATWYw(#YyH9oEiikXCCw@uoP+6#k)VbK9{
z+*jY!ne@skGkozkv9~pn#WzUCdu4SL!$qBMHDt?e)#WDGh3CWR&4w3f(MXtGUiDrL
zN9(bO9Rqg>W6&tKL`mSQnzJgX>-2X`dr7to&ZE5Wce`_=f$s~n2X|c25CcX~>($UH
zv{FtwH#sgmL%ApV)8REnIhL+N-Ga7dGg=;7C2(8uF5MR*F(`*y`BWJMwFwrS#0(_z
z8mGqDxp#}9F0jb+!=v?)E%Kx0?Ll`KE!@m*z~zalGF>xQMbh@a7;{{GD6F@=5L!hw
zFf^Rs9&MR`k+kcYlf;JZ@3h#!xb8>F1$?R@js(P}#oaYQ?kt9~`6sodFpr22Rc0*5
zHoLD7O~_fckHSvK^AezLfK#`yeP%Lt7BV~P9C8+OgePcz?{K@E=rJenfsxn{)AOG<
zcPg2y*EN5Qk;rOWTZ)@ZLzrx{e}1P~i@MPCf~R)2WKC0fJ}$a$z{fHAPN)#c{}0?N
zB&p}a?p951QhVT|^q6hhmsFkpD|?@zv-KvY&Gu;3I;F^Q&vn8p+TJlP=4v7FpLY+7
zwb!#&OL!*evr<F19CNKUV0LG|bjcc6_TCntK3W+{<O&*nsBnB{GUUoc^BW9baPLMU
z`eIYelzdZwSc>+?UhP<<XdIW{^JN!TMl-wMc|UB@-Y8Qg;=9`q$FH~9oURxdbNMX@
zd3JhBt8K9knHeY7Q4F#oUK>ve1@|7es_z6{nfoO{a9eTiG&&nZ&V9T3N7-3BH~Q;J
z-k&%>hjo|jGrBuWcH647DkC_nK95=pOWdny5X>#=z)t&|8jHHgOpX#Fn?s0HesNey
z9VGp%m`_c}8_s9h_pO$hIj&~7JWhBd_D`QW(w`Q#Ka2>8C5+#YKn+=&en{*%PB2lP
zd%Z80Dk>o;Y@6Wwq2pEYM@)q5=+!a>>Cu_nOyf~<p>ufgXC?XK&3CwWtO-e8SdF?d
zY><qdO5mWu?At-)b)(=SuHd4qm;$>q1%#)isty}v73s73Q;sfUvQWM@N_a^jAx&)O
z`90G>1dHz=bD~-QhlFv}Gow!9D$5CTr%ldL!F6moEeoRDSI6;;3+ndVE}2Jv>Ccwp
z@68817SlJf=;c=~!u2S*)(1zIlX{9OdTFD;yi-hO95THNjv<!Ll%G+KeK%zFR~)O;
zofek3t9Fw(+j!-${kzJeEE8R{v2Gz0D+}}&T&a!l>7(MoTBh@{^!UnWZdzC`=Buv1
z5UJsD=rl>#_{(2EFPvj&)hzuJo6i~biDd@q`+WSYuMs_Qdt@Zbji5f+XH~%?L+z2j
zcgL8UV@RJjqqO4?Kg6%8a03m=9!uJkRX*bsYJB|DUni+W4l-bl+?V}ODSC3O92omn
znBdRClHgla^L*L5%FMr_m2!Tjr=zE-c{apyy|jV^>tD&W!09CHW9KBzokVx?d}~x|
zyS&^L?Bn-N56gKHWtHVEwlpmsYuK~n3^1wg6oszJDxZ8`kJ@j{$R-87Uayx^?_G<f
z;5!QNAl;nXe<k0oe`)jFz>r#CnnjOq$S_T$|H&uAjF$1*9z?orI4Y#i`GJOS7+x1y
zZBq1PWYP@D&T~Axv&btx1uv{h&2LGO?CRN&vCD~jy_aQSr^;5ZcoXta;WG<hv)o;@
zRTydZ$Fl25=naX{JIZxl0Tc28)#LRIqi{OWB(y<)XXhZC5#8YWr#^N+5RH6~x~@lz
z*1SnHLN_>Ps$Z+D-P`=&*4#>28=||3Z<x$)VTsb#z%Hm?ocCEZ)qZl!in_4sFBkHv
zZR}e>(Nzbl%E)7m?-ur6&a$KC-79t~=`XE%hj$F675My7X>r8MvzqAr(N4`3DQR6d
z9ixv>`$GzRK<d)u>wwzA{UMyl)^K*q-;w*xFKh|L`5p1sebP9SZe@#8s5)&_>a5M|
z6lv5w*srhMtGUy)iy}F2BOCl`!dG2ZW!UZ8DLGPA%(|1>gB2oeLvA|p?3`jfT?@FD
zc+qe|3S<<WAA~-ApVM*t1(B<pctVWYmq2PxRF3XMJd;H)F=ifN9J{);Yla>{8swwN
zLdNUT=T;(Z8KQV(VFjXaVMey1I>s}O^VyrBpte&bds}4u;ZF^vK^dq$?bKPj@Y)sI
zoJX4%8=&^K(>Ku%C&fnL-zH+%yhnCI>#k+3+6wRc)fyr>EM)O->qYkU{&Dy=602a=
z&DchH^O&tVb9?kz6vB?7!dZ+2F##fMs6(sFr;R3gylRUazbKRy>#*>2O|bN#6+PPG
zZB${i_R1snf_?1nSY}&UX!NK1$eo^;RMCK~FQS5DCwneY*pdzh`^=7(eNN@rucGLE
zkAma<p}eRoQ_Tjp;bvFo*i9!M$&ncLs)B>;ojr;P3dyw@j|%ltD*lc<k=i=EaU%`#
zer&%a<1qORXJ6}sZe~%agl&<6|8`yVJ#mG56WkI^pGtsg41c<Taw2g<I}Kc21U+pT
zw2rbcblj;T`z!m#D<f$Y%~5i_Qqml0>J!>y^isa}#0?t%NR&!az_)Gw6qaFC5C!$`
zU*y`0+x_*PrNL7D?Ou;{<v<HL#F~t(H9nWils#+Rdk}tm%5aM&-+JMm3!**vTE^OA
zG_u~ejWWWyE%=+2m*N21<#JvXi@0g}PjOe6^A>JL-b{O_|EweB3+e(l_cEaGEj39)
zE#nL@;j2HE7EyH(d&e7;D^eo?rwulNiJZ@z7c$)^SVBz_uhUyWc{Ad2TZ&6aVl@u}
zOWKcN(S(sD2IX4oL6CG9TBGZZjd(wf!gwE=LXk5M5gb7>&nkFJ5k73VB`a6LVk5mC
zZmfAhBS|*oXrqaCyHSQzX0kbmU=>E>rhnWpePYcXzU&f<Bo^QIRLJ#J5BPj2GfA|M
z;ueYbs_od7A|Mn)Xr5;qsM+_snn2;U3{)|vkJ<=vGaKsic6UnCY+|%^Fz#X?XA8;+
z?A(9Ft@Y;Uab$1W5b?pv8OZ8$awYWUlNd{=@3tm=G?V;TzD2h}fa^Y!oGn5npFPVx
zFmQLV$(Bmb!)@(4OO?iC))-Su$C40QPcO!{uERk{+<BP+QKMkdtrTOe9pUcDuDmFD
zZ`9}G%tivVpEVJEW*UON-0RTV;T;&;ahyzgr5;+dx61H#2bI+#LY(r$<ndf>nBaCQ
z)d-FdB7A5UMmOY^S|1UD7qE-&Yo&e4)M0G_p(mrBWgYjzN5pBO%HxS!+?bZrG5CwR
zB*nnEk!G&Kg^i%zS+!-mliIt>-bV)yHnOHp1I--e*#C4mv>nbWe0Pu|zM;jnvf&*&
z1QL9T(op)G{5C1bB~XXBFXKMgE{qZ&A|Tp~fxAz1(EH_4$Ex-oPmb4a`+6l}vI^^y
z0x-~=b-&^Cud-`$q{`0gn-1^6vK_giM18cfw~eu7xTo$A8j#t2N2X!hDco+90^Jwf
zdrQ~W)?oLzpjEwm@=eG2uWhJPfhEh8z5O})i|uJP1OYIM3j8HclGk1>YBB`A&w(4>
zp-D@)Eu&kZ9yoO_{nf_~{sj}ea8E*Dpo^h&pjYOUW2K`{!%Cn(LdC;PP8Ff9X*cO8
z^MMp|eD=0aRpV$NrIpzR4rZ~APt%FJ?q6#;-+VQ&%umgJT0)?>u?97wdQ`fQwBU+v
z7?g?ZkQ7#qMU2TGuGJ^$6fO+b<>}k#@LYDefq%{#DidmWJ`<OhFSp>dpX@Q#>fsC#
zBhbaz$tB;iuut2S;0YFi=f0e>0;ujdb}|oTb28`mw5+53xbF9@Z(&&BpHmjyR7lvx
zSTa1e600@CW^Y32gnZIR)sa1luRm!cEnHFsg-SR^xRcgG<SWwX;`WbgzhW26BFEcO
z@(ov5Z%EWnd!hYd`WPbHfA#{v643}evLoE3XZ5nSwNe%Db{ftnQ8Od67)9d~@7rwJ
zU7W+A7B7c$-aW4s$elS99_D`fP_BM1Zr*W4Dxk=@x{l_`hi?0Bde)WU1CeE;Ur~A#
z5sR~|u!C0VAb;cy9e;O6jWkOQ?zFOvF>5e6oSf``a3gFzeW${SrkbBO?^Zp^QSU4m
z+$k0h4r4qrmp2LQ-cNRh!ISrDH0F~RB~cS~S<{Dqc|T}JdcEG;KMJ{UHj$^a!9En-
z;HQet@RMCHPxC+?-D1U?ciYTPMqu=Pg$dU#WpA^sg}mBZt@yz~X4V`Oa&{`17j`N^
zK7DCBO~wfq)Z|^Vm#!y}6b4tUEZfqS`2(MIxD61JHW|ceK8%cIsvZsdkF|}h87Fh1
z2UgdR>H~Il2czEA2~P{lJ6+g186sKYGM3leYfqyv_nKGy#g+0tau$3Wqs3c`A+KlK
zb=#Rj?aP*URfFB1HPEn*;S$hnU*rd0h;J;+>G=Z^bTXOrSV+q|{g%=}Z+<Q;oERH-
zOP`nDSPMC$r)(cGkY4C{q&l}!*iy`r*>Y;vI!+r>f?>|wj{ex2zR;J3$KG1YvR3HQ
zo4N`0W_9aC`ioU-Fkx#I6nxEykEul006BvEB1d+`<!j2y?zMES(UvFa9S(wpa=GVT
zsfr&BPa+o#mE}oBb_^P2s>5{NdEN5z?njGwlJ&(x*=l<9^Wn}XLK6lT;@58VwACx~
z4x5hz$Z6OIyvn^M#p^bHQP(-R^UO*)^^D^RMQp%oV=t(bv;*3r<9)g=yc2`V9eqdQ
zp0ex(<qt0e2%AN+R1c^JnZIU1|8O#$r@k7fz1<d>qVuRyr!P)@;suHg>0h5O=y`IX
zm4#Hm>P_b>)UchA(6kZz7ukY}DWh#cpJ|%?#<OZYp2zV0<(I1YumRgq?g@J+lBW1r
z&AwQ?{tjt`%R`W2(smguboEc#_F(lFP2x)9A2m6~TWO0v$;s=_YE%uWbu&LMyB(l>
z82RUqPCd*Ck7qifkNBhu9h7y9P&MVf`*S|;FJdO6!(m6ji7sNh<eHSVyMg%K(3_h9
zpE^xkhnRy!{j+zH&sGVOsgqUE=q5XwU1hcYYQmztdht}!j@7mrGT3#!v~#6)^D&HF
z`hYAJJZd~Gv|K<bz<A%R<GZWr1DPUh50js>;3N%#Rv%(dq}-WRQwj2ZF&(iC55n+|
z3{OHfqK5jps9QRkSITv)dUbuh(+^V+dfRN+RBQ`fe1cprd1fG2uA#1X-ch$Nvn=jl
zN!n<SK6d?q6q|hb&<!ncA+a^+wY77?N_l>O?6U_Jd}t}kp;pSH#1_hjOvG6zPs2OM
z+8YHa9|_i<+LtVaI+@n|Ey1d8Tvxn5tfGY_ox*s;2Qsu_e99}HMa|g8LedhC`eB(_
zo7?^2JjEn$q*%kBiT)lbN-u-ZJ<kzsEQmGnEKx?aDud$ZYRxU0xy4O_fmqEqYqo1r
zk>azC&&SsKP(;fY<qP4^p3yep)3T0ykEnq`K06f_)g)G(+McBv<I1Eq`_LJuc0KWh
zDQz?rI?cqE)+5lcc8E^8_**qXyICVZ+5Y{fRPpp~=Gj_E7AQN9tUnd25*60sny&wd
z*?YxSyxOnF%TZ@If7dPULJn<$nXDMwYr<^;ojA=;VVHP&)W;5oG3!^j*Bz{vX6#f*
z9;Jjw<sD~2k{r7)Hx^^K8dml<SE2;lqmxs`;K3yAdC?ay<^A=sM;z#Cg`Ae4G!0u7
zu=4{>%ercSx9!UQ_>(!|64@9n84tqCAYrpLVsI=Lz4Q|DG(cxQ1)B<9k&olcKd8cX
zkDhmw`<Ui1pZPZZ@b3Ud@&&;^02kA})6_PemcHJ2>6u~e4GCqH-CafU#W2rT|898U
z;Ke0K{od|EzVQFGBaGh+?G7O*Og}k*K=;Ha{@wQiu^sm{Gc$W9KJhA2n6K|rLr7j4
zh5_wP`S0+>-Q)HYQ6>NG`5~WD^!zVPT9HaQ?AQE)(}MhDy8G+URRVVS_vNq6M1Ov)
za2vBujEmbj?#<Q^l7VgXWHp<;*L8fn%cY<Y>iYHNC6ASf>is+#2H_9OCO)P1okgA9
z-R#x&oyo_xV~h`E+SIFk)<kJu+`H;gy;kv6VuAtkD#=8FL%Ha)D$CPv**#<7pPI(l
zf;K-huu6OVWmp@q7XkP5OzZCMCh36YHx~Qz`iS@mpRs9XN%sz|a@y5aT(|VWkLNf#
z&}eh?^*-(vPl;^ViVOT6$A@PGh%2{(l^ZJ*_UIvP3>4NJiZe|yGLAi&$`d-WTi;CR
zWL7`2cDZF|XODo#`$g5KPoF02tqkD<R<L-{)$i}WhOU2_i8Z#KL$F9~qksPVDHwc2
zkmDP<bFL@0<T3vCs}gg(d$2P9wPZii$v*ykW(`NeLIs6dG>kkbm+2>dIMQ>fr!iAy
zP6pcGyCY6!*h!yOqQvSB`VvJfX!!*MT17-fiz-4+4(~g3CJ!tOT6olEYrVVkH4bYN
zdac`g6xUsHG-|s{TO#&{y1(mH-L!)}syyr5C80L4!;28~gD}SP-#<S3DvHEJumw2g
zn<N7xY12e}4PI-W?|j$IEElj_e%od6Sd@j<VFHXxG8FW*sJ>-?sn6jn1vSe@Kf>yW
zL(txUiIKjOi{RRaSL*8Os~PIXIb&C_viM7ikAE&v*HAu<*%+_f$u2O#xiemT;d44C
z7V7Ue{pAHCI9)o`l`3--yg%W~7|krXzAPVnc%19AHtG^55E|O(&7{bAd>C$s>)WND
zV+^JW)8uTRp|l<U^pqNFRZZA5#+nBY7g<%iSud58mTIJuM1_TguitX~?%S86Rc(b*
z*U*5IUE+>4k#xFWuk!|@^!!{ZQa#YXP1Ve_%(2H{`pKsa5&U?`-MBSKnBTWCx&!DO
z6KTK%W@J|8sOJl1lJcCz+B8L@2XeIDt@-==PuJAcJOSqLwf5>!cCilL8^G5eZ@1^7
zoY-sDbb<#@%W#UBpwAgapwIM-LpqQp6nWXJHCe{jz5MfY>U{x0L3JnYg8K)nrQN4@
zN4f}Uf$LHlC{fT19@RSa{(c1Z#fuj%c-Iln1`}AY_Zv*5`_fBV*27L<t4RCqwBV+f
zmza46aIjDl@xAO(S_nVgOFH(`h#~7hY#c^WrTyBqYp(3Tcm=JLjs|PgnEs+IgIsMl
zekcg??B~>U)@UF-WpE0JigroQ#T#@TZZ)&7oHMc?t8hz_-yeswbH@$g#Lh2EYr!ZW
zubR$V8=7*dMBjDqN|DMHF)#aIp@>*VD4ZUo$2qlEd9Q5OogS`eliN<R4p{QdTetA>
z@fmipu(r1TbU%W2BjW3HVc<rsB$msyc66&pm3?4!5IZL2y)szK$H%uY(v~2Ekl+1&
zKVmZEXboH2CI~#cYQ1V@wA``hXTG3O{;|-ti&`Jd%a^Z;SX9(FFMfZo>ON9phm*>x
zVW3gN6!N79l{kSw`s6xNqK)!8*&CXgwzOOiJ4^eiQQN}MFg|!Hc)wg0#N)aCBCDgx
z@$vC3B9UlAC%u^QPON70OP9M_nG~b4X{o(d2+q1zyEL|Y2iO3S=J)gUiE*K+-j9wr
zwK2%2z@M-AL@j}1>}MQ?OTp(;d=^rD+1@$IgfCO;S2h8Emf(g?Ke=1|;RF9PX~rnu
z&`A^Y>#pzmxU>7%5Y{5e0hSJ8gmC@?A3O#hyxXICo3xv&kZM*Rav}qV!_&#2H}>i2
z%p*ov(AEX!JFZWxe(<3~TKrS3tGt}%M6Ie)EDDUV)Sdv^a7G1#XLHj-4h4E>F7kM$
z#`->c=eMH$K)jiYeoOSqHILB63Wcq-t6hfxFN~k`Litk7!04*Uu!x1#pQb9UdT=)H
zm$Zw@+yN6@Xp9}5v0lIhADdUW`Wx+5*mm`uOnlJGO4fdN2MY_Ex=^L{_U1GRCDm2@
zD<<z8UObGnjrWF8WVrqv&PYG#QGb#s1WjET`i`a^faVpJ%lItU;fxC~7;Z82v5vyY
z?hRBw7@XL}ix<^xvVA2&Pmi4~DqN)$QPRHaHT`04`|A@6-Drv2eE?<N$1O;%1s(%f
z$=c!=-U9)R<2@N5n(OK5otD_OOHX*Vi=;Lo*hx!Cun^*#oxAbz@wVlzBiqRdLMA?5
z^J8_vffIA>Nkdk3LBwK>L}Bznm&``Z^7wj%sbZ#GLSkZ@naW+3u8R?0yFy7JtgAyf
zShwU<5d7h;JkG2%r?a$Mer!I$#Cl1_p(`b{!hIqj(2FTh@1Hz_TsFdfJ?Z2ntBg;7
z3Epj@s{C{Gb%`$biK;y)NMN77Si5o|D=40r=<B0|ppvj2?Mo{MP0^17maraspL18r
z;R{{=)XP%!&<&$%o7h8-x0qM!kM>r4+n7CS{+7CS(f{<}Um`5D3*XE$8r=d*hWwz*
zeYrZgAz0|i&kspECOGQ}cL0KG45F69$2;8$>?`AMH5F{}wPj_ub`Mu@q(_@SJ}<0}
zmapu~gxzr)?LX+0oMQ3Y{7k){2He)0aDM$kQQwyElQ^}BEp>t)hBHk${K^tt>J>S@
zl#P`)H|}=<a47mYoam{Lytu`B+qr-Bx`h4l(^eD@9~<cJ{X{X?=^KfSAD^Ggh+2O7
z7^tN5IfqW+c=Pq*AxcVT-xokhdjdv%ZzZp1Bsbe~GE#5mny5hQ=^B3O3T;T!GL3$%
zwoH%7cawvJ%OY0+vX?XhnDN6Fm<&>Bt>o_B#p*dz{4^`IXXS);zLSI{I!<P0X0C3{
zG)pc6>Y#-(%vMi`F|qca^Q@OuWe?sBfSQ*(8&%tmzH^lUU>PurfySLCzk64G5-C*l
zDHL@4tnbF;gvZW&=YrhUx2r<~g=RZPz*X2Ls(m*kQi<!;8+D07CPk}n-@UW&>XzFd
zuL;;&rtu+vXk`$)5PZDV{9Lr|;HT=!K*7F-?3!j-;f?z*3xWRxTa-EeZGi%iRW#kz
zI5&v3@GVWP09nj}+)Pg#pAOq`yI6gS$HtgMw=CQ!OC^TEb*ip*Juf#+dKedstJ!YL
z9w;z@Nk0Ag?Y)f8>S8_ckdST#((x1x4b2b(Bcn<6k8qkUtsFPVajL(*%_Z4fe|5y5
zh%>iUsNjiWnJsRMFXhP>oL2HJG#}KXc5jdhfY0>_tOXwai-znhbo;V8(f<S9`25@@
z>8{f+Azv==9q)goQ>f{%o?QU6;?pd7rs^MkeW@V5!#zePrG*xs%T!Mgbh}O_0>8Rt
z(;RyW9<@0tF-$HM9#htMRRr7DRXqnKSnkz488#&rgclT}P{sq-9?sE3d+I%UG=2DV
zrpc-np#9F5=_gYFu9glB2{%S&WZ?51p+;D9@2}*jTMeT)TQ!QSKOu~jrw1(O74R%g
zft>AjiTRE&Azx+@ZWsE-q_m1@cM-MCB{a(%xI<qcc77YAC?(is5C6GJ9OO?Hl?V!o
zgZXzJv`EZ-Iyo<`!ZLuOjp_H^>q;)|!+b+Y@8>d})0*G(Uha<oC~E%Gq=}t$(A<eK
zw6wGYaqR6M0{b)Exf$T)Jso-CtS&TQr&E&jbi0+0<mw>=$VDZ{^(LvHe_xYtyAXD%
z*@M3OlF94v&a=)mxoR|b>eHs{-B!L6-mo!ZKKP1W02iI9(%y%6Cw=%VjKPt|JvTe+
zcPc37vpRge2S?AqkZAejGnGOLyi1B}c@TRvoNrVRo1zdJQclY%?dmO*1^iG!*rH-p
zd!bl{bi6aP4g&kxv$NFXH=ROxczC++s;YnMy91fC;5<<j&a<3x=uVR>0Xg3U3$i9c
z#&^9C5Ubrf03t)1(_a(P)9cHD88>7%8_tqehKpws4ab%~NKCJ61D4~N226AV<u(0+
zQT|TI@qt`X{n}{x7-2CB5i%bnk`U4&aP8t6pfl@xARP;rz?kno`LPUW+|+QUa@5~|
zUCY|ewjeukwS>{B(AhthrBgL0tiz?*mQaqNZ#$%><H6VagMj?H(w}#=MLx$f$Yrpw
z@(8epDlCXm9ZisBJaSWgMtcpkrRJL9-EzKu0I1i8a8n-u*o9(YCrW8T{4!g+R7zHW
z%`OTNUeujYeDc?48p?;j7}Og2pnka17&lqB*L>Zuv%P)n6m<S{Y>hy2>>@RYSbn;>
z1RK5T)I5Vwn0yR!4iO9_W$764%z(`7*nEZ`v6D#)$T+u4U>@HyKI2ejfLqwNR@`Q_
z<H^j($S4EEhFzm~wl$8~KU)THCca9l#cq&a*ty{{M1X{E`VBcCZMX+V6bir|Ad#Ea
zc+Ry2rU$N97Q_PXWCEPy@aRKMs*JDkyT5IkMw(gR9dAiT^&}bI0iRJ+rKrN;Vpc?A
zV&c4EktHz+<ay~LcB1}LM2fWc^6twWjZ&;rUrs%Ut2KIP0C6q}5#<ZJa@lr5i50|P
znS$ng%9G`Rf}wULD&OpWga^p{cW9YzEk1%)?e=PTNG*TJdg%&M*CQ}j^RmFLHk$Jl
z;uZu@j5@GC`@NIvzOV*2rnLpaC^+s$|DZba(PgOU3^d=e(z8R1!ELM}wc_FDa6J?{
z%K7w|XcPe;ceK!~^e`ouFhW<m(<O7i%6DU3#_Ab-*8!w#{q&g!V}FB0nu96}B5uzB
z{t_F%cUJE%ON9qr8;TR|E&{8oslXVay!x~xJAo686JF3T`T&k&yu&6JP(w!PY%<w7
z1cA4%jhRqNoSO&Pq$n8FB)-;wlSP2+Sl+WfQ7tqwwi;{!vVjQh7<jJ50wDlU(Yr!I
z1-C#UvoT!EMGPcC;x%6Ho-GE&3H!~54RmME{o$w7O9Ozu{hh48=U0GPtfW@H^b~V*
zb0#K`{{{dCe%b~xYL@OC7*{D8N*HmV*63wF-HaI7>N<I=t}xr5t&t>FySxaZ(`2LW
zs0c*=fOy&+9>JEX=l|{fUaQ5;=c+uESf=!{R60RAwm)i&V)V7Da5c*f4-eNO(}Aq5
zRTyu#0k;^kj$;7Sp)X_(BjpnI|KsEwl9G5e6o8M*@JDH@tE*EUBNtxWo905udaiV!
zCHTsm2b@)$oSeFd3+bUog;EJAV>A~pqAoh~j>e{ko>soJJ(bV}+yn+57UYMyd9sb%
zy)LS=DgI#QYjyzjsm=rd5f=)$^mAUV<lP}M+!O-B`49MS+^?C{w=5D5Y(VeU5Jq7Y
zNLVHImpSzvk`87N5#)4Lyf5TDC406E(Cjq4t(~16Px-5JVcTNJ5ROESqAhJQth12|
zH3^5Vpws7c@(1Li;Wc;6Uw>zs<lAYqS|v$(Oj`0o0aQO_)tco6u#*Rhw=~~2mM0Aq
zV?22uK70tMSyO-T#+%w(wwI^p^d=hqB@aNQOkC>%&xe`7Hi6uZ3eq|#`}_Sovbtye
zBWHQW7`fr8Ik+dPu;Se9NfXF<S}s4m>Dp@dxI3qbqhWb4-)ur?CTJwM-hXHQtVxlj
znZ$@V$YkO<;Q!_m^6)0Thpe#Vf-Avf6hz-ih=vVdJ5~$fm#SESw@!$n8!yR&*k!yb
zg14&n8IwQR?Q;N?HQ^Yb#R{m;u}dIrJlTz;7mB?uALMrg>NdA!V5w6tvm`r!1u8KY
zuJRshp}M433Q3kB#JTixmmznT&g9#^V_fGz!R6DnyVQ5YTeSh{^%y?8V_0kMT$&zq
zYN!8{2l{#UY=xKgjLzNZe_)8aKVRhmCb3rQJdi)=?gYwVtNL*e674%0u*{*kFJHc3
zQDskORJvt2GqXqOMnV9`5wsq=<2tNsh5{u04xdGc*#K+*7QYxuiZ7+4^f@d3%D1gl
za&AI$sao5Rj%xQOWi|kGA7VVF>WZ@7rHcEf85=6Q46Uq0q^nn^^jfus;?8G^y;_hK
z=`rzpj~ni*8#IAzs)RAp8-u)9q1G#D5w+VnSewJIuCAn{q)&4JV6ErK_FOyS1aMhq
zXmXt9bueuwSTGb)s(f(3lq#G5Z07XW2-rdb0b~T6C=^uY7I9_|MbJJh{<Fw}9PQM6
z03U2z0!t(oLy!b9p`_E5!~KnV?cPGbWcwF^BJly3bT0+uF${<t@pV!LuR-FB4@OQF
zz&VyX56Cqe$AIStkBM~Rr$WYVO;+%HEpUU>(1Y@Nq{e^e8R=*<qM@zqDCq$upz^)`
zF-aHzPVPvIE`M3`@rTOFO6A7JMkA0;bA#|ffO!^NE?D)$wUfJ_kDm<Ch+-6z&%t13
zNBrDtFXgizZhob+fSRvXxE<~;ML_lAc(v-Dj-@SoOD9xiQF+U@McH<}_QLZe%={{9
zK|yy(2-M0OBc%&)!2F0$`#<QJkQvWcFsLBALgnaiSrdXcn7av1Xmy3_fDU`-MN9`M
ze=~vU|4|L29ANab%1vDq8t*Y#b%L!3LHxKHqAso!H?zGn1A5yUV4(0hj<)u$uE9n|
z*s9bNGTjCt=Q9^CU{D6q8AD##G*Xp~2m=9dbh_OxrbVW1&q)M)eeg;mSufb*S^Dvu
z&ibu-@ar-gP`GOVU|gSgC+Q)-*(QXOZS&w+c>sv(g?ff-*N#g7<ctCo_kP4lG5Me^
z-!M-f$?Z1$@$(+z7GVFf(6-jrrzc--+qK140s1B_I8s4;J#Ysy$*cKxa}!YOorvDv
zc!t7LE8ye6WJhZ>S2`ID6*#i@nd(8x`VNGGUL#bpq(_}<Iw+!QLAYY`cR;_{2SIvC
z&)k^=MWq9`dHRqy5s+b1a(SOfX6jv_&_SFI)t~M`3roV6BgpYBQAavGk|g70v&acx
zFs-2*wfkL(7&67LfLrJeE!i#;P(>k91|W8N1qNou02|){iEVflC=;f#{@b&X_uuOR
zNKr_u^V|Aa)C{2i4X9WZW|I_J;C8T~`cRU$ka6KBJ0Ny=hYOa13_Qiazz}fGq?WRW
z@!)^6oDD6|X@F|M!=)N~9CUoJB@yly4NBCe*L-Pj`<EAzEInH<LJtXJ9x~VH>3L2n
zo%?b+352z=dLgJU5J(_6FE9XWYUncXrw-c{^)glfz9ZgC*-7%eP=p*|xE$obyDsw`
z=z%r=<jBa#l7$YmfnVqCA+Ni$Z|<K?3*!KN%O$J~;f`EzwZ@@<Ox1ToE4-F^+khM^
z9o!ttT3%XGq7GK+x3V6qRTKi1F_aGqh@v@Sqn;FkyG#u@xP<@|U?EXJa{S5tYT&zb
zYP~@3@+8wqT8A|M`QR<K`Uj29%n%QNt`oOF8dN-d1`5OOzkpU(1GqEqakl)25JmM<
zCIvuWRe&#4ucniZ9gYBB8YscpkRh*W9B{5%P9r6Ao4_h}-e3Tl=y=a>0Kyc3+8u{?
zpV*N(Y*bWKDL4Eb5r|g7K(V9={50^c!@E*DRl54zAAfC%L4Q$$UxNcIXkb;IY$__!
z@q)rwIv_%PGQSF`g!uSbyvNjO7o)Y``$teH)EGPlHN<NBKY}6PHzsSVGl0-N^{Z@<
z*`f4K)y{Dj%VR@O(J&ZZ0_ybr_us#P;=k6q<mg&FzyQDTpq);))swRBCBLz_)va3M
z{JXIrP^IK9%+0x_1Fj!T`0y3rTy!1~bq+o1i1Wh~XU}=<6)2$LJR`vqjDG+|3e`Pn
zIM|wT_=Dx{6L0agR|AZgfK;DMTn6q{Zed0&b=WrIa*ZN{32@hOptzvh6Gc|Y)6EM6
z7yn)%#3W$mxZTx}9Ub8PPWz)SxPgtn-0pJ=1fX^o5_cAS6EMIJeDw0&bTF)0s))2&
zV1axwAarJc7klY<+{{DqHH6GRDu8f4lq%_AjROi|YiXSjsEAKZ@j^NJgFuQsX$Aj#
zE|IGu*IrC(DNq`x3kwT-5BFBY!2GSbou#I=lzaT`)vq3sOZPvj7t#U={H1^}XfWM!
z{5Vfm%?%3g@Cq7_g%{B&ZvLy+F)}hnkR=qdX(z}I*zHADF+o0Fdu3f4;O13#+HjVx
zBN#-0vFrG!tv4=3mGkT1PZOGN90X@*?dBI65~G!M$<Q3xGry9D5dgI8?stHrr~h-&
zcjP~N0dlod4;L1L$V(NZ6q0rYyQlOLCN7OEsCP?m)a<ZHfj@*{V_n^kOIZA5mBitl
zA3#EG?O)>?n0X{tXkeXlUVT30Rd!jKVHeduSCAcBsS*y_)2}Xb6(wN+pV%aTqV-fB
zVM?Y6^#?zr@Sv_adQD~$Yh``f7S0oybxF2e35Epv&%Z4le;+oj2%8prHA9hcY(pvb
z=No4CPt%~70FD%xqu&MS?=c(*=?Y00pi6CyFRqbA-y2}Y^LvYJnp<O-ZeR3jT=X0L
z+o>1ht8lbhs-Yt_7w<rxac(|72M56Dpb3ITA<mOE#8ny~v=&#w7fuJv27wy9zp5oU
z;njRumF4epvX}t$d*6tA@2$$62M!6}uIe0bfMRL~AHg1Su;VwH;A#fA!l*1+9|76?
z@FPe*3gi;4x3^dKF3agjM3Hh7gIoX^tMmb|<4VDD0H`q{X@SH`1^gq(b*?P|KY+Cu
z+EW<Gi_CR{wAFJQJ~J%ZBE#Z7S)vL0OvNbM1H6pRrT;^*G<g7^TK`1;CP}wZFL%=E
zNxC`E5*zm?12?Subb-nqUu0VRGw0Wu1v!4lh@*H9QWr>$=g5mbHuwO8%BFfy3*ofW
zWc@dvHnZ+08#y?+yRQ?@(#by2Bexg;R!{gIEI@OBM=Yek>)rxF{3e!Frp^qE)0^y$
z<i!9o!5#;MvFPsnTN{G;C*BV$UgF-(sMRe~Q0LG?FTS`}9SaZ|b_FYG^();Ve{qBf
zu;}s*2+p4523CQtM>u?+3o;)w^(Cg=kK9&Z!ti$)+dS2qE5l2shsXd>L009s^{xMG
zKC4JH5e>mMpYpKK;*;XHSzgTbJfmjwYacClp@V&TGTrDlS~ijvD-A%<YX{W4-|Z)B
z{F8hZzu)*y52t|SLCe{HFr~}KFiWyk08Z@#AfV3Ydxp}KU6mZ#r$?DF^`Jwd`wuDL
zpiQ+~P0SwP{LQ;M`<IqZwH0AV`Ji*pqS0{)35^b-ROAxW3zQwQB2W`6Z=-uVUmI6|
zs9AUf6s)o(AYp)-h8i-bBX|NC@{7+VD~IUR)Y?Emi8k!2L>lUNQ>QL03PB+5VC|Bk
zY8Ito3|woPy#^%l;3QEibE(B`auEyF*6!*8g@5f|UL%mO{_I}5Co!sK<fRhxO3yi@
zTp%H37_7tm)WlN{4`Fs>D1xaV4VQLg&QKfy9+4iuYb)Jm4c=M1#Lo!%GsX6ZqG*d>
zh`exwLZNmfCTJhR5{ot{cflR5l9YZzX@ar!ed5iaU*sb!@|p5ro3Rj-^u`P9a78hw
z2PpL#ph99wqaQ;n2dC(_PsWlM&3^6NhA7@MwG~nB_-x@*l(3tC(Xb7#M)e!_PM|{K
z`xWl5{k~~PSIMa5at8f(e-!UGq<bNzUQKWhS}GR(16w4QoBZ$BHk>*c09V(`VWv1}
zO)AsU9}Xx)dZ93*DB3q(&oD8uYhtaTw%)~DBLBW0!V#lwz|B#uq<=f<78QzDrni=V
zgG21U?pfmJvZ24wlC~5ls?qyAwye8du0`X&R*BnMk|HT>3!0Iq;6|F<@_pIr|NeoA
zXjc<%4(9GmM>7-~eAZu3ko|wOX%TN4W@23Bz(Qp6oaG_k0Qu{%vqf`KjMPwW+i3($
zAbtPYll~u{!3kV>gMIgKk_FnwO7uXMS^W2RX^t1FDH2|BZ!c&hFYtdQ{%-Cgdpo#+
zmvA;+>eM~`!D%W=`%Rhb+xg#DAwLInk(cpeIl9{3&;lS?|306XqAB@M;iGjgad4_p
zAimU0pBhS1t5p8a$9_Mzq!emOLg>E?pxpIt!tX?I&#71G_I`u3ku4e)>G}q9R2Dk%
z$bz$!gJ^?xKM#Q%MOBwAjMpp4F1C=jB`78r{;2mb`lq>!gO&~QkaYOs&sJvMC3h-`
z@O?IDl7{(pMKkhuebl+TntUVQ|3S5;B-h%V(8>p}n7`0V_FxO}3y4P}Jet$Mr9<><
z0G`@VTac!c+;oGyfQ*99`*3x%yUM8D!h&7Z1#pkrjRuRYAa02W>^GJ+a>L+#AtJ9V
z*8j6d;=1C08TNl!{{NfW<M8$$pJc<g|NRt%`|=MFnkj)2ex~0iC|~wu{C=sc^mjPk
zRV2YM`SEq^b4M_2@(~t^fOs5=B=k2O9-W6O3nZEd=LG$G3Br-%$WOz5_f($WAm;a}
zj~h1{-i3hs)!h?{jenmTUikBeR=sj;J)*<(cZfk&;paDVrtq=#Ivs{wzu&hS2tw(k
zLT%aQq*f+u8{An%zE2SxVZjiJ$&$YX8pt=#|MoaVs-|ndwxWRR|NB0NUmt=%{+Az3
z0ZZ1uPt#xfFW3AZxApx$+(H3?9E1|qWhYBYi*`<O^%JCSTzHh`@W&0ykH~YcUp;;v
zt|lZtEQsX{X8rTBdC#D+BR$iDpNd(IG_;K8Iq!T?rYvr}z;rp21A6mD^o_r7aKHJ7
z+bA#psCl%qTp(XCH-Aw6sIYWuW5}hRP&ybgxN+>+r9F_h;onsXdjFQ60_=<g#(!|(
z-(Q2_RsVNXH}%f^ih;1#SN^?CQ8WHuhj^Gt`R`_st33bi1bO?xt=&BgI;=lY^fZLy
z$(QrDA;zsx>|}asl95c}1lViRaP7RGSyX90J8R{9t!feV$LpzPCw2w<`+E@u)P~iG
z6TmSVRPfHEhqK>POoH=ArSD<m@@EPPR6kIC97)x4lkr)(oa)u@e4G%x<ULlPjf>4M
zg1JkAelt%wAG;vG?zN5B{NZ5KT_nny$JUUu-(NkElN2&1mo(8-_310~RNtj);c>8U
z#Z*Z0Uy%JjG4B5ZQ}<s@xLNp|Ez6e9kuDlFUn{ILwSui#KZgCX%sIXvR-qR8)FxAg
za>W4+6!Re;4ri9#29ENrXf}TB^LhIR#l~Sk&|c)Swo6KA)9My{fM=jIU((+0mu=t3
z`3<!vE)NX68w>rvxO?xgCbP9)7<Ck9D>Ad)jsgNYAPg1|5Ku}OhY^ejsFZ*Z5D}0T
zqy!`(gwYw887WFfN-WeQ5PE=+1Vur*0wIt<qS7P*LNN&>gq$aF_I~$uzCXVAocDXr
zb$#dggYuO1-0NO<`Q0Te%}6+Wd?C&U=0kpJZs8+ip~8{#9}scAe5<IgT(`lhC7+_V
z%kbt4aOU{hxAkk~kU^L`8JVdIF@WCfk`t5!5Y%SjW_>Ppb2G`c%>W1Tf--Z%TWXLo
zTN4~e;F`2|f@|$I2{-)WtDKJl_m>Z*qMswqH?AECS-^U`6q&>>sU(lfJB&_8Y-hbj
zE=;T++*d#PK;SGt>3$wKNs>;i4|U+-8wnh_*E?~sophHu*XgNTKe|chiaPM}UZl%~
ziLonN2w1$xcho!#wrQ5^A=k{jv)gzd$#JkvET_T-A2q!oLeb<8xIF|O@Mab-{zJos
zOcecjA0L6?Oww!ux-78Phe|DE)4WmFbc*!LfjcO^1I=e3P1C&yg2E#l_(CN!9}@Ox
z^Q2pm*JSn4w~{oDH<A_~&wqWvOuibSq1##fm1<6e67%>(^z%j%#5(FBJjT_jk_EaR
zDCgj<@n^o0%^*0JGlyGLj9X0OP$9&st=rQS+2zDP>h8s&pdOM?n>R=dr;qcQQ%ozu
z`KdNVH#fIFF{g@vrFoI`Qa+Rpuo!9TwB*2ay|YaS_bL23rFS8&cXuPO<%2MhW7-S5
zSybeMLX0~AI)?aWx$ZlvD~kTcgl8RTrSQJj>X``VZ&v#i#4I!nK3S)>O(F5Ze&D7+
zGyLW_B5FVVJxGapH9q*)>%e9ila-uNqGg$wJvZ$ytkd5TXzGV_rIH-+ut$JxNIY=l
zz5gkeIWpw~o-<B!)uQcCfOXQXKF3Iw42oJ7Oh;cssk7;=n^ANF5@2WD&9<}V<8C7b
z1k|7r@M7S|v2VAqLPOQhsgbVAcSFM0XywRvq*72ww*8+CQ=KC3<7C1#;-@&-vrqoM
zT%GLHFjsb4_MgJ@TGfBZe&2Y8e-HJUgOK*scS<^M%RArlK!98n`4kzdq5a{LzN5_I
zQ@|D(0OLd7)o8Fx%qVMhUjUS;rc8ihVeyQiR@n^-rs}{6)NR=2`%<`^;!txyOvURH
z>)-YU%SCi7e&SZx3gwDboGB&ZS43CJ6*;II`|7JU?v#?&D8uCDDcMLjUWUqc4Ny?{
zUof=)vKIgQw)#Im#7L9BS-bW`3nG4M^T+qn$5u#Q*gk0)Vyv#fJrLrGc7alpTDshv
zu&~;<X{N<g+<-^SeqcT|fBQ8Q|Joj>o9?x?rA7BUx7B9uKkjhy#UmgEbD9@K3)gSX
zP5tD9W1b?(cDr-mx!rs8<1tz(ZS>pVqVbwPg<4u8H#ZzB5hAN_AJ3f0o{wZ<z0W5M
zp|xpLBN%gypO~4>!@(Li4z4UQ$Rr5*^U(GFx3UGy`Ki74dK+4BsKY~P8xO8U^V@NE
z1;X+>usWGAivh(rw<E7mmSW03*9T6(x2cDnG+SW6o#kSM-~a!iW2mUz&Z4_1tJG=$
zL;>M|AO1%H6DM@bb+NuS8Cmj0loq<iPQb#QCD-8>_+=d5J?rvrZG|)5>j)lT77PZ8
zkU#O4ICUI5oU@(CT|Uwo?{@JYoIqSA*3Okzh+G`uK(K>u(s20f@0xO}dBZ<dy@BN}
z;c?g|q4ed#q#Ht=blg@z%u)-j%5H02KFSH;Q{X`cgaItf)2ak9IT2FsVh}b)`7nqj
zR5j_>$OlSv2()UtH0DYsh?Hrku)IqB$4H4Gjf5R^9mK(i`>f>Bf0>2g{f30|ku<XE
zJysmCVhafe^NBPq>?!W}VcE;tv+%L)$XiIag{`G+vsP^)9LI(>d5{G}Nx;Rgsvzyi
z^dwpf{mep(`1cn2Ry86T9t}tEu`P5*f_?>z3JQ~})#a}5cd-0$<t|b$RD&;i@_7IO
zRf{+eF9*!yAa0S?LL0`B+%yaOC(R4ww!giwb_eSeZ3mVObFV_ibR3^3Xd{U_IVGG8
z+G}y;S~tgYHjN6O2FWL)6VAK{cLeSf8!O===b%3122mBqS@G&xX4I6Yx?8M_T!n(S
z?%R0&N@iCIgsh~h11yilv%fwjDHHW%7ZdwK@rgnmrkWd<QfC1D1z8c=FFUVLqv^M^
zjfeAgCqK9GtRh*5tJZ!eJKtVr<kl`;e#DXeqfldOcakKhMPXmR`-!_mx52_x0yZH$
zm5vI8<Hpy~E@o*Xg8>njJLsPn6VY;4Gu8{-Nv#uQk54%&MofmyRf~yQ{JKX)j5|}!
znz-Vj;yXyzC`W}>j^ko+YWH~7IE~uBIO=>Fc>8+G3UlAbR^nhP)xX5s6g%gFsoH8r
zc)(-eaeREsIY7*+6L76l6B}CCE*G?`B%x_kPOhrK5Ao9z>o4y&FZo4H^~XPN(!?gj
zSra6|$d`-Kt5(wi!KhgNy+<PX>gmW>Ly4LSQU2J<o$VB=RpzG7{>q`xrCGnL2^QKh
z_9scb;prT4U>DkXlH^NDs-jupsCl>*V<o1Q{DmiELrk}<RNrrgZFTzUrjGR5uKg;A
zFSd4>EI+!8inFPZu#yJZ1+%m9D4TUsh@iQ`_d$|ykT$vCd0jpPpofXVx|Wr90IMEF
zO&O%fhiF+b#w|v5S*W_Lx)m8B6Wlr+Xo99F*b+-_;S&!ugq4`{DvQsku}QuMIM*jo
zuuZfr$NzcU+llo;R2xM&$3ZDpn4l&11r{Ok(lSwc>e`N9i~|R|(yr`Lcz*{4=d06l
z{LSjpV7Hrv9T$3GUnO3hAc<ZisSyc(LTMqY2`5zDSb%6@h`R43E1aN^wxyP+saP3(
zQROWwCgQsi5jl-|H}U#f6z}dEb@et(MX_aMznHc84~4|vEN}(X?!|!U(2mr^ZF!VA
zS0|sC{r1aGI3WP~4*d#{zHod(i0Rf6XMy7sKKqzJ*czT#;mYPPepTIAEqvZys7{%m
zV09q}$LSMA$!x}BD<T5Yp~T)tC%XDTBx?YiP}oPWb(L<2op}3*R<LpM$qA%%Wz}0c
znx4xp+dg(Vt*W(OYjEKea?($Bk)MlhdLW&4>Sg;cOVv)imw55lXy_t!YNLopv&Wqf
zJVy2=p#spbr3nK_ZklW<43s<%yA)lAQs`VH+Y9CsB`^_gc7%uZgP@Ymi;YX;-z+bM
zV0;x4OYg2uEsaWeQ9X4`cc2%060q!h+I6COb_{+RO<(8u6Kn6#<3IbE?QCoBb2szA
z9epnmw@hL1AWu{o!qeuHcs{8;7BqoE^PRN>weQ*jVVe#BldmGx(Y@P(tzfWCp}0tn
z6!E_r?qI1aAu(;igf$|8Qi}-np@c8saLI$!lX%uyv#nIl=awmP!`vFbpnlFLge~T>
znhc;9#9e+S@_6_1aNf3Xnjk5a%%gwf;!R3FM<4LEs1i|<Nb9fwG!$y7rb(|6E?l7P
zq}gFT&)_>zjvaHn=5g*IjuI@m3*)bFUU?MZu(8$lLYW-5Cz*_Dv>`1BqIcs{>q+0#
zbM`D+e4gx!F~NI-%B_A8P0o3<J*-Mwt3}0}M%q;+<RRXmGjjr0EHf{OCWnwac@!^C
zs1Xu>y&0LQY>IbJkb(x-1YbCe#>GnG6U~`wf)6P18;RT=?Qf_!&=%i<uGH`X5O19*
zzC&qFAn2uy(_$fkruak<0RiFXBxTF7tHO5HvF2dG*@q7-mcIi)9&m8$F32H}!k!vn
zAR=K2I$3Exd!!mkyUCEhU@X3K-(4yN;SVR+w0VC)c{R3vuy@N-G@s~CAN1wJDEi_L
zv<WM{jbh_H_<Ly9E)WRGPIOj&tuN)k^49XiIvMahi&`{!jDJJ3lkx0>Vbm1QzFF=O
zYVH7<5L=`s?Y(FsfA85uz)uhMrN*YY$bgGN;*LWn-lNtg)_;BU1<T!00G=S^t6ASH
z`GN-zw*y*g?LxIslMZs4AAJc*<o4Z_?IVeRlQ=tQDq5po-fzIP#jc4ws-^<FgjFDS
z0MDb~i>h49h>`?3(WYeJ_2E@%6I~n5*she%hVrv{#<PF%4gb8>ZMpdDHFf#<(c6IW
zO8S?xX!?S3|09e|ZM@LIT7p<riWr;}&e-_I{@K}yM)P1(N)3bj#QVz|O97wgjHA1y
zdv{DELkRh))KWz68?yXjXfVL>I|WJE&1)Z)Tov=A$+QFYD+GwA?SfnrZVUrjJULXe
zT{u0y!o*p)l)G36qWV*5gM*#1RT@Uu<gup0315KDr;A_T9<0=WK<kpYEK{?s(MJe5
z$KAgM80u7@W?j!{>Ewb;%s^2kUr2L%32;_xu5)gI&sf^w6+1bx{)-l0?mTM#-ubt?
zJX15u);A%Cjen9Ob%hgtfWxj1a{7_f_+eLYNW|xf_5E7>m+O=k(Ywx#U)srmgSwh`
z<bL)}J@7o+*($*l)F`62&|}o!w;~5p*;dyKQh0havlOqj0WG>rL=&@(0iT#A_^K_v
z%A4HDEjBbu;9ex3rbt~RjvbtZ4*q@GejHlkseD{~gAC?Ds30{e9%0kbq|_({1Qb_n
zWoFk-ihx4MAtl$@mPpXse!1ELipSLn$%RnQs$slPPt3!tqlm6fRUn{;{2Yz;?{mc!
zvx`yDJZKTK<{&R3DvIR+;E`%8>XNjYGovMta}r?6-n-#=jq&0tRV=KYUTDWJ6*p6!
zA)*_jUV-Eb>h@A*c+xl?G%M^uH^`FTz(KWplfzieVyIjn+s~^41R=%l{Neg8LnZO5
z#=DxqYI2NxeA}9e#8?)eR?1xlHuwS#x1KT2GxEP`9RHaBG8z3&Ng3Oea%FCZ)`<L?
ze1UmYX@{Q<96Bl&==MuBU(~<-=hVh~LXxMad;Dd7B4?iVM|~94rO5c&KNl2`8@}Q>
zsV+9xbr4S>A|l|gFMbhC{IC9D?`obS-1uo6HyYc_drY>GqC(Bzb6OO6OPrSa6)SAG
z&&@9am|4G2fJfbeZI=8MqMbh9yYFsnUn<o%2r4J?^4q!{EI`(}465XYA@S?$G40~F
zEi32jfls3Y$BlbAD$A@YQAf*^wfA52Wy)ZH^_4JaN82gdDI5W(aV|Ci$?y4h$)=9x
zE|nus$GD|qL1zEbhkVa7UasVl)-XQNenHOp8yTI~Um&STiw8$<BH{jUcq6hTU0L?#
znn*xa4Gvez(Vap_L*FS?*=dEdd;gh@Qw@2rt26dmhtj7ems~fD4@{n{Xt(v-$?L2u
zMcm}S<6t>jw2k_e4VqsrUH*8@yA*)+PnAAQe@_ksdM;)@ahw9C_Fy%~2ivM>YB=46
zIlkB}yefezVg=KGw~{kq{~16R=(I;#GzR8^;+qGnH5|kG6{&f9+d=-!2OyqU0vunI
zQ;2)N_*t#0JgzS5{!ZzE8MW%A&tl+!I!+T~k#GSXZ&QPma+*1iS#Pv2ob#{INB_ps
zHNn@Q-1+;X=76};p5L96T@f3!+mZ@{4fF=Anc@gVYUoJosA6-o1bco5lAHkL`zf7Y
z&J38NkP$P7l;m^{%jndl6{!i5t3)J@9)Rxi#6uhbfUEAYG%L33;O{PyL(d5F)qIGU
zb8Nt4SMC@Q%>zm<1%1hV0*c&p`)sRuxp}SVip?Do;f_!z*F{>5Kz9gsNXKf9y$Co%
zHCx#de47A3zI!`H9xK1ljDMppSCoR600hSj6<hgYt}eQFm{<fxS-<^eFB(!1bpZ(7
z6#F{M-Ew(;1Arsifm(_gNOd~bN7>h@d<L(fF{QX&x4$^t>?a^2;NE0Ng%tm(PFus$
z3BF5T(=4zg{f6hMbI+B`m@Ia9L|u%XE81-`c03hd?*vJ&22mGm6H~(htzph~O7DI{
z2htL49>l}zYcl&)xrIUX#X0en>Q}DPl*E-LRMqv2tF4{|go>pzk^TFDEUbb;?{ZP9
zl)U;6%hJZ3ZOWm|kX~$yO@~rFo48<W`iodlDqQh65L-dPBIbb1kSPVQcXoZLM9o)l
zvw>7<01z-dmbzNSnu2f$XL!GNR06?j8*g3-_gLt^rJKV$gnMDKUdwr%T7Ue*22B|I
zzUl`+x2`#g|Il1~C7y^H4?8(A$C9Q)*VPE-pSX_AbCV>tlVohWIpZ#9bB#LEh*=-0
zV~$0qk*5|drgkc}`uER9Y}xy;4h~3j{fXNyzX6;^e9@G6RUryJOVl|VNv$tioTTaE
zNG?R|*0ZC1WCU!0i#uqtIW5I=9?_P_oY0`=^OFv&n!FfcQ0!FIA#W}c&`F)CH=c!K
zSBYMO(2<;}H~W<r53Z!0U44_izUdM+ZaQjRpHKAXj%LRxt4E9kq}nB3Pzk|Q#15uv
zG7xED|Lg^T1B<XYu^ui*)=;a2rS+pqzVqpBx`P9Yx0{0)rAoM`(wf%A2@_(q_i)W?
z8ztlle(rB_4|rpTDgZu!r(<!R)gK;bs{YhlPzbmvwReiR@_uzqAIT-aQh4(-l9mMr
zRbR5g!*?SIxaul>9K|mNNFaWoRr7DlL+-I=z=jOMb{`FK&qnxmU}-3c_lqV@K|qva
zQ4y&Q#f}d(-nh@<;tUqxTPLuZ;bY0d8PxpTLLR5NWy;AcbVS<yx>5c`1eagC7wiZN
zcXvg=Y<`Tp#Gg%aE#p;zhH6}2pm528(if`(K>RIwgcyIbRoCjkx1l)!Aq?f*L09Xm
z60i@#&s=7_Zv2+oA{PHfBjbo}<%0w2SFJ(?W4U{<T?5t717>F?E-pf_NH=A?BW}r6
z-2y4eNV+1t$0_7Q+0V;Ucw=unDdag_tg$MrSdao}_$YaH0S{z3V)zG@P9P!gmXdBD
zvtI(s0KDsGKgBkauX1^htthw;NjG)fJh3=j$o0u9^0dZ{GY@v(om+(MjwX041Dj|9
zhx<9Z2_TG;9j4DNRJ|wr@Jo`&cL#4b$GOwKj*42ku5O~{lNTo6(@9}p&)7CzB`pMJ
z2PkO=j^5YFzDD++{tI6<8WL|eJ9J!{*tjFa?&y<taQ+-$r>ntU$`N6^YU+VySdjZK
z$km1QMVdO+8LKXCneF7v1x}HGbWx?8#Kde_VE$I{Rl}T1I!@oC10G(Wh6Z4WoJ9Pu
zfD)GXr(!%7y{6!p$7+~!|8g{dDFDLSC;=i&xUHH51TpRZ?wn!^)O^sto202cm3x}R
zY(uwpWdFon?s>1+FX-t%&=%X+3<M|qJ5rLrT#oJ3qo%qvUcm?R)Tr=(2XEZDP6M1{
zo&}5jH<s9Su(&|$OL^$*ZUFQBFToy9NeFymqA=Et4k3gL_K&e#$?^Y&X?UqLEu0U=
zBDR1$Yl*db0i&J3+CePr{_?HIQdE}R7AuNfC!ZsH;WMDw_}ZgmR#l=8<0kS+94-ml
zgB90u$^+B=R0T6u&wMdZ<d;H4$_;>p&B48)@r&LBs1MY9=!=Nl2msDwId8`A_Wq(H
z=hEr4TETmGrW_C@!cBn%TWP61@TD%sm5mYxq>WPkEv%4qw5-rm|NVqD%`;$1n(zAM
zp*?19?VkKsoFZB!kjtV&n6`NNG689<?PK)8;Kj%4>{`)-;6VNhPG<c|f8585lGBta
zwK>J@cBw#$8CF+n?mO;)uUEry<u$h&Lm(zf2mumY1L0K~XOO3%RCh`4qY#$gG(rJi
z#wJig<hQGB75D(21OUG?^}lToiMYVuNNV4@qdvLZk*H={u~Q+v!h9(&Ox<v{(^+jq
zpiW{?{OC;_Us(z|v2)K|CjhLd4fh758y31+ky`JTAQavzvR2oZB9o_p>f1~5rf`s_
z>%FPm3j^%z*pGm1s_K-Z1^2+@zb_{QB4JH@MJ<7xt?lQ}W+e(~i!DzXTid;lo|Y|G
z`@K^fosf{Pf01kJ*}W(3P=jRW6Z^scb3x!gQK?LhlaR4c@mVTdDM~Q&tYZOigMiiW
zKMZR}zPK0#tDCv<r4-?A^3M>f!p7r;*eUt0y6jE`E%U4=0-P;RPH*D<fCqBb{!dg%
z|MQvm|3{&<F>GAv&X3YshPfIwI6qZRhgy1Kte<!h5K8wiY>5B*FMNJE>p<IsSY}6a
z3@DL`Y78OJrTo*ua^SgNR=IO(3@rGqV<jI|$Ta#%j)-qO`&TW(ZMhnwPCKR;*AJcT
z#4Pm^zr>ktc|gIex&lV8ap*8`CEQ*-zbFud^6t#7czV`{(RQc>z7{UpR%{E^=z^3R
zkp6(jIKaIdk>dcZ?SD4I;X<IsG@y?IQ5JOEHD!f8JAN-s*^TNgDd(^u2T#>k-v8`L
z6Q+5sB><sV*?c%w@f7KgW9!8np<J5riBq^eIM0)$N5|I9Xo|qO2ePSfv6@(KS8}EK
zbJ1;nJ?#NjEtk%COs+Dol9iAF5KyJB{`9-kC}9Pny}OIZ|Ggj0eq&$FWR=px2;*oo
z0C3+S;$gLbYfqz!p}CX2t<75*_M{bt!DvmeM>}adP_>!URNd+lh0~k{im61zPyDCH
z1dZQ?=UH{$apNy=qJT1&=`Utht6N3U)3eeO^T*~Aum{oWnR0n|8@Q^A8QI~pdJo7+
z=?@^g2{Esw8_E8}7v`#dPOhUcJHE4$*unelH|q&CzI&3N=Z?vpz-gfRIdhii+j}2V
zsBT^EJH<^tg*z%+_#23?+Is8j5fL57S!g^ALM9>L9lPGkWkON=J(QAeHbGlf#6p!~
z-K3ZKpW;!nONl$aIRe{D!b03)v0K%x7x;o;u2F$phD}Yk@j4^Hd=px%>BK`N+1)p&
zK<RTErEdvHA7NaTJtF0iRr@ZT_mj;a`Zufc=N2;micS7EItKm=y714Yga0E#Fq#&2
z<^AdjNe?R2++ApjWSPsLI)E91WHl=~wj2;xpvEQBt;B3Cp!(_U4P~Fj!89j;GS+jg
z5gDTrvvq(ATd=>XQYNypsO;>FP6+T@LE&F*6#qwN^#5ui|68eG0>xa#MWE==_*bOu
zZhqn}ogPHvx#U7fI5ai^Yrb(L*vkWIjFdCy#N~EULPDE4QAFXm)ki5;c)LU0tl(gj
z+!+9@gKDy`lBX32njYk8geyfy_Efv-*ZU9hK5>Y1X$I9A!@yFc(T1@nfQnH#Jcc6A
zCbp~Y{`*1RyTukmhQE?{nezPTh~zR~5vZ~g2WBlReN6}ixhCBC5g@t!Z|hAhE6Oeq
zAdG|4rf@))L}jtpq&q6MG31?6^^18W=H--c&8_1F@t<XhazKGfzrK5rhXdj=vBFvm
zWUwj*P_0F47c&<p47usDHS-(u^!bKIT-hwzd%j)PXHCv^`nY#&&bfBE4Tg?o3X?d=
z*I{qO!!$)~mDUKti%+Aq{D(Y2+lmy=p=0@YPD#=!)r2Rl6kl$V|8H#v-3&A;N2}Df
zvw$q<Ut(tK{UCOJV*QPYcRdM62=~`d1wsrC*XqjY-2V;m?oGF^bk$$MNmyMs-eYy?
zEq>I-V>y3~U%q^e1X?f#fEI;Rnwi^NUmAveR{UPB{{@MFOJJFqCA>fCg|-3A$Iht+
zxswU~PF4~J>K1<cYC9W&EkrP&%^2C+68mp5>(t!0<+@3IO<4(t;2<BX3ejNl<hQb`
zHF~@69t@A=w>}C+HGK&9q8$J9!N>pWT}uD0g8k3z%zr_>WV(^LT)|0J1u$J;UvaqM
zPgNI4f&6=%b)a@MuvLNRuPXpzlwbV-0gQEz(c&(2(9l&e2BdF+Ru7r+DfUJ&fyNHg
zNb-gCbXu%F;6U$Q1Sq?)Y@%fS$;U)W5fyR#fbx^V`&n5-mL`6nx+(1nSBwp>-irJ6
z`h%ETw9KVQt_Hf?8E}O!Q3+iG3Dc;9BMVeuSCMhyPTh$q*yIM-$vwt^`|&wpbF#^Y
zzp-ldt-|SVW%h85R$zza|31D}{fKjF0#X?5l}?(PRlaMD>`3z`Dky|ru`7<hR=&kl
zG$5tIS60|)loGJ6?b^-V@-)?dr3dZ*533tinO2#GYjU%|833UT=`UAb^Wy8fbaoEs
z1<lOW39oS{u|*RLlwdvilwkTxl3b&7Y}!c_4IlEe)?w8-j3IK<3#hW=IjJ7w^8Dp3
zWfmVu{lWRO0?j3FC=~EhxlBlS#lQevZp1ELY4-MZM-5J_l+vPbVu<dUcy-v-$rwTW
ztA)*ZTD_VZk2T#*vp>j^XKZUe$c$GSfOpibslEqzy;x-kT`=RRzffFcO%&0_H>E~G
zQMzj^^fF1Nxa}^0;_~LBrq~tUR~9YbsFJV;T?6}zke$8)dF4Rfo~2=7w)I;Fp8rfT
zB0uT&7U(aj*}i0LM)`a?1WLiQJ`gl;;$)>$CLsJ)KUKk3{zPwF4n%L($?AD#ODtsh
z!$#yM4C=`#EkWH?XhKJtP3w}-ptZr8y#D7S()isN_0C52@_=#^d?)K?$l;I3PpO!;
zHY#~xO)IwEaI%K`mIY3iP-0`IoBE|XqKP@8<`6twjC+85YetQmhMAU~sBZo6uo^jJ
zEXDezF*ZXqt6N2Hw+@S5w#*5)G~-xrCPOdNePTBHofygKn?2#tuin|EPxN=zueEab
z&9{btM72PUX!6eZQwj6KOLjcmGu;Xa3|tH~JIufg(^0cSv^Ztx);K`9A63{2+DNii
zX(>nzqzi1s3Ae@Bkg7i9ZSet&XUrbFG0<xiMo7b?5@YVFyxF9hS6io;D{^r-ajMta
z11-AeuWP}(Z|yV5%CA`47r7L4&>MA|{mE%;L(!PmvuGAGBTzdyHjorm!+V<S9o^qU
zP97DV6J2Z+@3Dx1ZM;m&79EC;EDPtZ7eXdyo;g9u?J=e$jg;iAQU;vgXpy%5rpt}P
ztFy=9M$Zb{I4MqE@%`JG;}1tg8m%?05p#UAP}0)J!IO2E)Y&!Ed}^BVbQ`Bn4Mf^N
z=aF)Ofk1APH6dMT&mjv|(NO*$CIeOk#DriF>H%$O23m$>cR-=_;!ZUu_gdlGG|uyo
zLZr9Swg5;qpFnl+t>Qf$bi+)NL+Dj*3sw#FtvALUYCxvaYq>K>Xa29_>*s0K8n#u#
zICOEUv;i^UJ7Rvw&P5o!yP~Ux)Tnr?Hzrr`)o0wtmr3C|qaX7)OM4dlwM0L`SI+lQ
zo#7wvA;v58v7@bLrYbnavP-RHq7mQ{3cf141bW9nf74vmD%_47|D7_%u(^+Ax)Hsu
z7^u<8RkwURA5<yvp1O)C>q$x0I6BA8;S-Ty8yV5T-Uu-i2z#9GI4?Jh`fMZlcVI5y
zriVt0fzRpQRjwM^jxV@Z4ouw<wqATY+smzruWRRtMV^TdCm)Y7X-gh${e9_G61t!&
z<Af^9u6;L!@WG&JlBQ_>+4@d8o@D{yN;ST8C@KiJc}YHlEqZxY<$v`sqM}TiAYG|r
zS~A5veIEB2cf0rV8;*g{Tv*F7p|Od9m}Ye)YED!nP^&yji#@a1IskMBuqe%6%079*
zF;1rd|I#X}Yk<R~lfKk`I9VL3$;8;l8}}v`X%AFkcjV~c3ed#pkrp}z5ds~GNfvL|
zExuG1S8a)bJP%Lc6YJ*|?dLyBLwExnr4}6XU(h_#uMdCyX7rnHw)^h(_4)OP=icvs
z2>J2r2kmFKe{X)T$LQYg+wbjGeyMQ$`48OP+wbYr-4ETa`t^~#8`}52-uCkEyO}2*
zE)HnYtf0b3k~ms;jyyRy7bl8yq7ofli`bP&NBAU1o^O=R{r{rF-rw)tfkYGd-3+cy
zi$}&(W?|m6Ep3pHJN-autu-t|*~ufl{8-#lmN=%W{}6u>9Qjj*ShvM5!!L8eY4ta4
z%*Dvy4CjpaKvD3Z!@(7B1{s`S*=>_CakSeIysxC8mZ%*U#*-K^FGk+V@GN;XYnM6E
zEJTYl3NxoaYlmN2t=48^PD}4Qe~h}8VZmo%@~6YV-o?{x9?DPrpq=Hom~-J_T@_r@
zmfg_9!&_P0)fF&|-7C(^isAQXvFl^Yy~?d88IPj<SaX|^;4R~BSDe(synDlVmRYKQ
z^Ya?m+w{CTsBl_;e+i~MuHk8F7Q0b=ti>}!O}pi6cVI^Rk#1&Yymq&8nRSX|qxy3=
z*Ex1FY4oYjq<_ljQ>UV6bhtM^0Y2oAGFs}SR5QAidn>AsYp3&u*QB(nCJ_CWpI)XG
z*7XAzmN9hxP%f_&tWhwtwF3h1;!@!BgyDvF#`Ly&S89}Q`3A537j5ODBfR|?@!^+?
z2m2$5nCg$it|YHtoBT%n3%s)Q)8-q#UfsOdqqyvE!i(DasJ?0y+-XS~y^x||c)qv*
z3>sm)Yann<qcgK!;3DFvu}vMHT$qN}i6D4x*lnnY27L|u903!Bv+z$4-NmlkMWPXf
zkg)t+chmDWZnwURNvXyRy(rW+rH;Rhh%S9lu(hJJiua)!anDEJ&KN*Q`JPIvWbs!U
zWSw57%HnYlcSI%3!WQ~E{!#1MGBD^!m`=;-ZrAIUWv2aWh3vYXsb|5+qFr|jI&TyA
zEju!j5@7c%>HdjCaLQ<v)1<4~_3{MxLBs3iAo$QEIS!x@ESCLe(te%fl%cE>=hg$c
zn&uF>p^dpLJh;Gg^>3?uZp3&Slfo%j5?%}N@Uoi0`Ky8V*>7CBQX~z?!1X8mP;}b@
zl&rns*2p`UF=5<&;M&J}VlKPB-UI|-${&i(>UFDK1AStf&sb_?z1RR*mQF<{G-(Vv
z*iOg&+_bMSzAjg|<xR1hNe+BFNto;imI>~6$gmJkrXlC}?1PclhGfGT^C+S=9UNpW
z+0@Tn<*x+7dc!?<{%huQV&lAHf)MaP_3CxOHkSTP7v*IZ7Wd~M7!vmB*RXkmi>u4t
zTaq?qaAb#ey5s85cj=X3589flf5Nol*745N*2P0ro*47_Syr2)gi|6pROO6Oy#W#Z
z+)BMctv)^_P|to>8gw)IZWHTrIOzMuEp1HI5a<r)v3_SmSjE<lo4;u%r(N`vUf8G_
zc8v-;oKxk4LDGJ2aKa6tj+fRqWtO|mQ?iCyJY6$i1!l#0F~2LVIt0&V8-4ni*EA?n
z5r~`r7Le*B-7%G~w?h$krky#WZHVOsK3@`YZ)L0>&N7O^V+5bGekq63U&C+H#3PO1
zkM#v2T4R|ZqYA~jRfk-IEkJbZg+8M#fJ(TvQf~Ov_DJvHXO$u!A5w=d4&QpT)#Wme
zIdeh%U=YLfb6PM}eA#^ft9)eh=UrWqA0D0&*TGRWSB*UdCDEV6LE-f44hNru<2yZs
z1Gm)-IYw0fx33Lp_g(0rdV?48O+j65VtydHYDyt|$kLV+k!TjAf$0KfnLA`Qaf;El
zugV64AeF6*J4iT-k6+z36INyh2xliJ2#x_<Djtb>oL1G*|F<7BT*9n%yZs*kUlW1C
zF<_B>1;EzQ*Q<N$uom{^W*4PInjoF%l^Z9%+h`RkX;Uk)d}js*VT_z%dA%8y1O%Ee
zk8AqJ<5z*i5DQ!Gp*28VGlIpWQ!_0;48IBt?-_2+oK^vYhJ#ac2F<s;8!Ex^rWu=#
z{4HXAV|v39Bh-dFRt{6e0EEH*{(N$x-0|^bL2MM&+=H;S=R~K10X})LNJKx0{eI7K
zzqTef%tyC7)wX0ZciIdq<Sk*Z*$41`o#*aDWsZN{yYN0(JZv*GQOigOyKl*M4U;as
zGP$nr@UfmLGh-=n%&ushHe@kO8kG@Fd^q>L!+wm9Q>0f<@>C$v`}s_L8uegU@ZT}q
zfMsN+Hems4WRI;fZKy_Z07mvpI68)me&BC88@-ADq|ftMi(9yuml+TL1@7^yVyWe#
znVxde*>m05Mt4=YFTk+Ox;%*zQYw74P<$5kj6u0@|Ff{FDSR>#I=iTgU8F06qo#tz
z4ZGqJ5}1_U%@KCQfAG^ZEhxN)4$&-{#vr7z5gCeuR|x)wLGjg@(;MW)%xfQOmdb)`
z(!u#N@#iyk=+(dSel*R}Q^tAdI(&3yv!z<ybP{ghS}>Q<3QPkKT2C>};bsF<G%`F<
z5bH@r6p0NK_P(2WY>xJrLD6&8ipxE2Mo0HJzyXu)30`7fL(PRT)-9hhcv0i#Hohd1
ze@L6Y%A=TZ^}^{8mBU@x$t4!YGOHwwkE#sKZ_Pf|w;f(jsUP6})_CA~^{VHtVU1xM
z=i(ZuwLd8V^#k`^u}<n>aTY-WE3@>CC&9h$$7UR&g)FBb)Gw~q;8{PuaD3c3r>AmQ
zx(6X8TF=BT7U}sMpd9hfnb~iA=#`gZn71dr)CpRk10p^3frh9)hx43?5#ip#1bD6_
z7rx}Y1D{>3KgJ)1DVM}UgI)VopZDs<fnzA+Fr9N+{?H0nld$;e45R(esl0KpW8aOW
zVcQIxZd~Lp^|$6QaUel75mtgnj#?)rr(Q%NvX_#yhG>+li&2g9xR%p^`6z@hrZlNM
z*9YcSe|WgVc=NhM*JDfhuEXX17(4z@!YK>o!+53wuf#Ceyq$?Amt<Za9MoQk^T=NM
zR!>+KWo!;IcoQsC%ZwpZaYxFR3XXxeEW%QOwk?-c4x3`NElD`~VgoLte3!cg6k3C>
z?GfgmnkDV7fA#77xaigBRYI<Ai<gCKG0x-TTFsdU4$}L+l7s_({E59BDJP})HQY8^
zke9SUciM!$KA!{rXgtswW6MmrdT`^^eUG%D5yg`JtbD`t+x2yOP6x%O_1$>?e!ynv
z3(e-|y6ZCzV~pO`5r~5nZTiK04|qaTQ>l0<Z#Xzl8$<x?uIbD#5Qn9WaFtA6UC0`v
z)e*&^1WnbeiD;<I&f7)ek+6vZIvGF<Qh%rzaJA(R_6Tg7Sl<wauTdTtg{5df7KP-j
zeIlAOh12?I`mMIE_QtL3rO$X)Uy29w?fs0+BhM|4Dci@L{ZWF(eOGS%=E+j{z`Eki
z__j;z=&~0(X`o)v@C_39;crX8M^RLtfqy>lGG#nq4$Ly`DifHcX?l>Be-o#cxjK0{
ze`n*LfXvxu2>nmDpYAhPT8`l(Bd%l+A#oTCEq>`u$x7UXY>JfjLAey4jcCa-jk(gJ
zn#&J;-LI`2N)<)D6ToGVq5Jd7_$dkJmgvx85{Tab7=aN2j3li~Lj@-`j=bI}b{l8Z
zUWX6A`cx5&d640S{Fy-pvph@DeIq8&6jR1qUp@5!;;py&<_4wCk<kYIr?8O}3mZVa
zw7T~gSBTYy@y`>28wXdEdMhpNBs)5f@60m=P2rsb8x{}253F5y++{dv=}FyAx)k!8
zqZ&q0Fod?4F}Lb7-@82UTuD8n>b`-4qDsz-hLt$SCRPEf@ZAok0d}Z3llJ&E^8$c6
zK>U;PDFC#X3oB!XKC{|9MKp{2Mroa+Y!aiuBuoIY+C1=z5_HqWdf`1$wS?-Oy|t;w
zX}-ADI&a;2d=90aGhAjhZjPMi2Z8*!J822JCKu5gp^Lv)zfAt<ArrP}*)rrB`eemv
z3>)JjHP}~G!U{}5cDGI+ic2>Pf}j#(i^D3sGh<vewwu_;b7povZb)Ag)@hYh@V<|x
zB>||?DkMI}hKeYrKXqMjP9K_PwE@!gyl)8Ykqh7?Mu_+x>bK)m`?}2#a}z^{6qeUw
zlz7)XWD#7|7&rOZ+C6)1WM6MkFC{cgkuY#eoiDOksaGqZ`etw8{|Ih9RNo1x@u!p~
z_2<=ol-+BfGA6{IT-_1LFtU$NsAKRl_7)G2heM(+GVB_o4?`cvsv&N=j%rz)EI(D>
zIrl1<{Xlie*@qf#dEVo}5CG_ML2$Jd4`BkojbMWtE!QaTCdW;RX;U(SlL3OO-wJk$
zAGszNgdU~(p9bjlSX}c{8VcwAt^tZOIT)Z}CJ6})iHD6`Jr~yE)s$eh?4Q4BAT_HL
zSeKs{`BV*AhrFzttx5$fE2rpPli!*2yg}yoY4eV*ap9ku@gDuE7(`+$gZ|v}Y?}V5
zXG)SFSJn=5{SddXS98AyOM!3Q<6qD31+_E%)vhOl;GQcUbN{3j_6(r42yhBATKO_s
z-_7nsYIV1`0@=tsc3qy1twFUQ2ykKV#u?++OFiIg&GS^s@u`KA!uFA)V9?|9D4&dZ
z4$0b+9&8EwnPD|9BE=@_^%Ueb0m5)R77&JaZ8t$q56sJeZ#4n=@0)SJrLN<}3cT+b
zZ(rysCtv^VMX%{plw0=TBflYy!m6;_`MI}0)hPi8rnP?^A3{ZZ3y1;7*^CB=LA8Wa
z7BEl6N6PSF(Aqty!5DR)kN<puj;)X&*f?)XI7ig=4Ag0h1;C+gu9+k?D=mH!Z2fe`
zhylRIgoh~a0Pb0-cQ(Dt*}U8$?ppTJ2@jUCQCL@CmMdV`)t|?8#(RGUzs#qrnPqN%
zI^0v(`TfVWar`Kc`TflX$%!%cn^n+6&Ek5Y%M3rsFwTl_2`Sj?A5+COZQ!6dO;h!0
z5>A{?vKs*PN3?;Mg9|Y;36c7{0+x{ESa5Iw;u>ca-PxAYea4UhvY%suHHxP%sYJ8(
zIYyGS%l)|yLj5q;c*lSs8|(b(AU(}n`+7&mCd@r8J{5qynLnXOk=db=5Gk+m;as-!
z=p=V;<DIry|BWl}gU3a_ca6L6d;UP&0|j8N>w<hbUGW+WP+6w4hGk@zHpD6N$}Tz(
z@s$U#zxSlNQS(>Ni2V=$;4^a0r!*N4prp)e#g6EkJqshf{%=hMC0<>;-07%sMv{h+
zUkh~pnbIN<bwpba#_G0s?7DvfnYl^Kf*<7`I>ohlJ-dQz>OpbzKi0zl7k0A&@C(&T
z{oD~kaiG-yfXowwX=Pd+DwVc6cWf#%bLdY`jiS66Y40Y9i_Gc9zM?99##_mdr77>?
z#=~Yj$75T^O~VEFZ{Kc=8e=-itgM;C(U)2uIML}%alu~#FkohOfphFq`{Yd^5F(Vu
zU-YtlU_K{9@G&VG#of%ey%y){VgRF3jj8fU*AR+&W0Y~OP-$@$;-9g{16j1u+KXIk
z{fs01{?43V>G3@dv{NI8wx#afNVeE)n|D~84i;yF_w`+Sw=>w-mUn4B#e1w~f$g;M
zq`9v()TYBLXZmaK(xahD_X8HMZ;pjzIcH3q>VEAvMAn`W-iZ<&A9VFx0pCZp-p*Zn
z8<5iaCR`;Nez`;Ri~v@t5Oto(h9<%-=fVmC)yyAGqf0C;LtGmUU<S+jhOCI^^QlEM
zJY^aKX2TsSUkW(^;*J4$f!>G!WC|towT(WLW+5q~jZXdBPp$c6CTcc4nvTT@4X(Rf
z$azb0rqspJwXHK(X|;aNuq2<$s|H|4hxt&inkVM^LzQ4y_RzaFWDn$zeNG#D*2LE+
zjsm)eMA@t!;nZ_KKqF^0o3{TNB{DW3gQ&Byb_V(V=^7eFHxAt+iq_R`iR)2(a-yv7
z(m9K6s!p6|4}TN4r}9|uf<fk{bI;x~i@>)@z_^z-^1+~->F|vB)BfLaVQ}vZziX6B
z36U8X$NUvZe-_~qCL?l?oho?>LUG=G#wB|K(J@^fv2&^a7v+}zo2GK|{tmGIrPc1V
zRqKje=>;%r;;Kr0D`XeEZTR7t%vbYow4Ll%oxl{=8Ob~KA=b(6J(=;?<5SPHox;7u
zuRpa;;;~K4zmw>;8OpazsukB_e$LPY5>wypsotZ|cZ>b(gn~l!QU@4jF&)TuiaeiT
zoKcuP?FR<sO>chPJH|%B$BAQXajb{fKuu*N!tdhavIuj-ZgJ9PsF>p9u!=t#Buvu_
zd^h_J=61Cp><>UbjcRhUtn(%!eu2+3tTGB8PJh%M^tl7g={L)?)a~Z!Y~Zxbz>(uW
zg?y#p%&7nLHwA?vX6}m{Zw2%N8D0k6s0>TJ8JnftjQFG7HaC}Ve=E?93+ZT}_b$JH
z-e{gY{UgP!+vjr=reK=12j5$Vh~TlOGA5!P9oUxWaR}&>i;1k#COE9}^zQ%OH+U-J
z@DOvWD=Vtj%zyNQZHA|75DywgJ=2|iO%y9>aN@SswGXxWWQ2TflHPrEz~d(SVhjCP
zx900PKVUs`MuNbmNP-$nJZ{^ww+UCW_b|w$n~wclpy%Tc3h>TW|M+AtCyH~AYt%<J
zu9zwcd^5Mr6%?zPDR9Cz&<|zi(B8Ru-V9Vzc_nPvNiRKtyhcf_?W6bkM-1;}bT}C_
z>nof-fPVT_;-tS=bguxc4_@U1NygO$ZM$O|GspYS>v2~#&ZPfsRZ91E$k@|WLiTDz
zJ-OeifSXU#qpxajNG`bD+FAH$dVwY2ovQmDp!xJ=tNX%T`xj#Ap+((dYr7JwhpXDF
zPHEk1!QcdwZi{OHxsoIP->mHiduLDks_eZqqLcpu>5>tJ<hT6LJ(vb&zdA4TTZ>@I
zByLR)oN%=J1^J9a0CeAjVK`PaYDjGmNsGMU4ErVtUVjQflUg^uSlJ5AP8i!E5|vq%
zgV$m*vpjN%;MHf|q8)n5yW^2PhS1XU8jAjRynyPcbQJ8JXY^)`tc?MC6hw(rgr?Dx
zIl<!038R@<AsoDQs+))q7eAVIa@J_4-5Tnu8JpDe*V#CyS8Jiw?VNF#VxvL7ylMdk
z71wDj#DTX?`b&nvUdLwg9KoyE-YtRrw7E2`w7Iw55`*qhc2Q9R(VKmK1J!Xej--vw
zo9^>2KFH@-raBv+ZHnOTHCUa{w<jS&cP)PS^tAw}5hk|e#Uz^PX=aGU3CH{&hUrRP
zbQ;@D^Gib2T~zq3ADd7G`<68djBbx=9=3}3nNgMoj@<gaH9^b&$0yxSCTh;ATYWDL
z@`0;#xk#lUN@*L@$0ZfpSRMmGL-<MUZr9BClJhFmM<2q@Y<!4m(49Hz@_aSEC$H7v
zrbbxhsOGeqP~_5cWc&xFAJL$@07&8;@l<?+4!W$aVO+NPxhEcRf9jl7_alo1^zHj7
zF~JOeC4uc&yU9Enr*8T^#+Ne{?|T39150A>+v<!e`kOAZ30Ys>Y(UO7R!AT>dB!(n
zB~2|9tGKtItxV-T8MVuJjgmVZpp}l#4=L}vs19NCbmAQO31&d-fpE+WxSs`a%Aa90
z6y~PB!NKf!;QZ2Y?LkuNoBGPQ#?tG<+gSZshj`IxqNc8;EFjUL<?puIp*H&AJFOme
zZk@~J;i(O`o`qG$$sKKBS!_txDp{|-C3z<5w{HzqW?uzMGu29brdy!VBn~t41#g6E
za#7Z;8D-L|5PmJk;u8;@el)04$&{}tsLx+*Wcp=#f&80hY<rUVA;(&rGR$tRZewL)
zG3ZnN-S<7hO5!DCjhYs8PhziakBHb6Za>`lWWoj)pAdRk-REkly2)AkYXu&D?u?3N
zdTMA<3lf}Rr`r;_OL@1YzP07Ua|`FeiZjWBGzbE28ShyPZ<*WMO{l!kSbFeS+)q6_
z{z1s9yVYUab7S;d@KXMCy{m_T`Xjnyt%YtkG~;l_i*r=Fo+EH;2lO|RA?<W~mCqBI
zx59h)6=`coyDVw4YwMm&OQV?=_rwT)AJB|&=DBODaBp{rQ}*n0t)2z!X3@=!)GX78
z*D1xnv3`~)-s75Gq`rwFeTs2K+BFU~*vrh)kGcWs?@<no(*4OLDkfvmcN(P@Wj|P}
zShb5!&;~&T0U@=f5p&1cdz^E=9_yxPYrYxX_NT|L8I5Z*#xMyJ5%<egV+lj!eb`i?
z&eT*yGPcm(s7(UXjys<%*j#Aa#}T|JsW*;45{PcnFTYduF4<`48ROc1MSpJl>QNwN
z!Z$be)LeyF_<Az>warvA1n)!Do0;?RhoO?q`tdmRQHm9qb-k22zc0uXi@}(FPpIx;
zYxJ%ei<Hk~ihj-(zVI7ba>2wEGcV+jCwVUO;p0cF6i%k<D7z>q#1Nez%#NJfhh~O?
z#nyp%dmx6c&)kgQN#?<@;%V-w8EHkZ_**^Y&y4P4V2z1u`M77es8%RyUxL+r-N|rb
z{xtg7Mlerek}*+neoMC;Ki`u1Ak*?W!n$A6PL$Jf3YxWQmqB5knc%(9vv*vW*35`6
zM@Ypgpl>7+ZL|xS9VC!w;eZ6(=(xsgUDhEwztELFBaQFDFPVnkI(>G-M{lKQ#By-a
zC>v_f|8`omO~Jkc_-d@vj#dgW8+roj*={kCnGTLi9NALgj-bzuhVxlet(kd#$1ZN!
zRpq`m_+`dgW*gykT`u(CT(quoWs{GU&f+n>9UxS!O6C?*&lqC2;ogW^Gz_xy5Hv-*
zHKID6R_>w{O{aWo&Az-kNE1iQEqx9~mM3RQuJPD}bUh;Pgv#D$n72nHXQ4T04~7++
zf0-7vwQj_VBAxWt?asw5a!movviFm_{F7uv`+KDG><T+GUS}qx9-V7cu`;U7yW~;7
z>f;<xU=ra1?8Rx0BV5k+jUCT|GrOPa`KUYg9C>j;Nf2k>seHUT({ym&abNd)?u<|0
zCyz{&CcY^gq_fy{ZC8rz2CUJlU(+n(HL)}`%Y6cuI~Sp+T#cj0Rq3M6c+@w77dZK!
zeN;1>ipi}g@GrfkBW8NNgwN97>jRn8?omIE^u^Qe9Zk0Lt((TqTQ`PsL<q^u)5@fR
zxfW<y9kJXRdmf?SuDa{)w!{dSR~Q=BV>w_S*)M}aIKBIt!g;cYmA#t1o}SW;+xpuE
z-C3iRHv1lyao8;kUG@Pq*W{J#PoF(E2_~1_87^m_8yOmAQv#A-LUD>_Xz<NPVe{9)
ztm5f_{R_sSO04UdV>D`JZVK4q_yCh$7IuxwXxOo~c3j%_^_p7wR=ipN>fSZL;JOF|
zn*m{F3a24CK&x+OrRM6H-W^5ymsi)bR04<>Rq{}NyNp$N#nT;nPQVxZ*qyVwKeMem
zW14WSxR8}ycE2l3*@$qjX<+`WgP*7Jr_j9)jc3<F?UT#<o)zD^6RUDcWElh9DxJ!_
zT%u7DY7~<F3*t^ZBOIsD{*w&&*tW#<?4K5Ik$<x^a9pj_Hn3l9&r*r#3an}RxFd6O
z^>@jjlgimmF-wdAua-4fyzv~=wrKhQqKDOP>YL0<m5_f*PS+O?7mdul@3e6agY$z)
zi}{a+ue*4P`n4gPFaUCG(^GzIesU((->K(4V1qR;<+!R-(Qlp%IQS^~n?BG-U*nrk
z)AORnan;3DsI8a5+Z3En15MQ_tDZE$&itjPR#RS&>jJn?BlicZ^L_%LC~0*qN8w^m
z=Au+*@su_E3AQ(EXkpt;Yb#Lq%aM?H@0Rl-&jEMVnYn1v4wb&IwjPB->wNPpT$z~1
zHEq==v8SwnVu3Jo;>=9?kvTpm%A;u@hH@>3{);wyK8$U+Xx$e+G555(H{6rF#OHtK
z_JHQ1{5z(;;*vu9nZ3YvTpa*FHKd6HONvau$s2^d#ZMAwDVU9zh@Sh;S?`c&jCOem
z`8>-^ur--EUEWz@W#sR+QrB9;*!sgTNT|E<I;W@Tb0JI!p$YDHmP{4^-9KWXle=5)
z>|~B0;B>);jS97Cez4!&o9_Ki9P88*y6i!t*Xo2+H9-?{_3c*;$cv)$zoo<i$Zqss
z{0b$Sbr0%p{K!WGF<qeZY;2Ww`kVFq@Z@7HapB^+6m+5^B4{adx{53mUS7><Fn%Mh
zlZCNqhcaN{84%(X@7#U2mOpP;Xt!)Vj8+2|=hh`~e}EPbGcXXQ0XV<gqR$w?ztj`D
z<}vyJ#%yB_`K#a;5%IQ|a?fLN0ek#o=F_o@kkawimq_QWAMW%$#Gq@1ya*L(e#L`T
z(&vF-@#8%|pj{`QGC)XQV1pz*nFI<-@K$%Hw4E+`5Z1D3gMbuHsl-DQu8A`?FZ3u(
z0fF-mo|vD}zhx=56y>}yZ$%f(DnD-3_WvWv8OcK*?`9f{A(hq-r-#XlIPDFup1N-&
zDroUFjgx{$Cxr`>C4KIj)--W?N#EP0uG{F00_`}@44?3aKJ>W;o{b8A3VEmJN$;S4
zjaNr;*0u(^Zd`C9+u-t5`C6D7uRrhl0A^(xy=7Umk<O#^1VlzUz$p5F<0=)&L^|iN
z??&{P;Jgh)t6<o}=?E~T&}c{e7=A?=vLT7I9h_c#wy96XF(~})Jw6xIz)K7!$YLsx
z3}D7~uc92I_x1TkINmc(<GES5W741i&tGE%jZVK)>Z$ZOSh^QP+lNg^2##qo>n^}W
z^ST%Aw{?~5J(7-F6J}Ua5$L(28>xRfvu&{PFpIJTGyqkIwu{+A3xz%pr<FTLo~A}U
zKJ%dKDwtw*-UCQ2;K#w4F)kL>m!zL|&D-V2dbY;huM-i<-IxX%8SIi;Bs4o=!f3a(
zN2z+#)-olFJr8C~1~ersQet>V=f(6+daV0aNp0bXuj>}!_QQlnb20B0vAkAShOSA4
zqQc1o#&@^fh#k)~`ZSJKTAR^UcFIo`jH~o+0)FrnI{cxaSI>B0px{}deP&_dGy%!u
zJvPb=%Q?>)EVX>X;c5*XzPQmN5C{GcsG;Ato<BBMw)Y|`^s@Jwc{w=lu|z4Okac7+
z(>dqhcwrr0zn^ppb-Y_kt%MYwVGVoQRt?P<n$^e+sIRxiOed(YY}q+RehAW5V}#hq
zAS{<%$}2nUb1k5ar~WACV=+yjmRz<y@t8lbbr!HywC=`FJ@<RO^QNEbaSJuFr=?{l
z2T$YrwRw&ks?sXwfaI+x1Kxv-&5#}uC6<?s>Kqt96B*Rgnj8L!Y;D-h4s0TTG1+xZ
zTrKB-Wt6r5ktLu|wFolmM)y6GT1xybp)iF;HxNNR3u9*Gd%v1I;=hY`cFnRJ2tTqK
zZ=p|i+dB_*mx3vok&eX=SFhC01+?S@jKNr8^D}xY=$M|%?1Vm6{`3mCI%k?!SGeP&
zMaxP5Q?n<^HjAk`{_i)3vd$)G`zy^ebz8i9Yz`)?GyV1IpYsZgp2WgBiAAQpJVq2!
zs*yEqx(C~FJT8>SMuRtIfjAlv#Fq=;d<iAr=xyH}vz{AqNyt+`j43<78UJJKDFy|V
zPnuqDIukclXz}Mq((6Ft2PWN^eNg9Ky50`G)2}*s*bctm{a_bJf+44H{gi{JyC=!)
zdaz4p@$#idp0Am)7raVRXJ+q|_Wd)D{yyC2QR#3m?bKl<@G>T_wh=@$gnszXP{-ah
UQ}N~6T#&y#UHx3vIVCg!03e<SDgXcg

diff --git a/reference/plot-6.png b/reference/plot-6.png
deleted file mode 100644
index b1482e81ce9065c12911a80c716f7776741a628e..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 38934
zcmeFZcT`hb_b!ZG<cI~4BT|$qU4zn#C@oZ_cT~D`LWcnA@t`Ozlo)A>p*QIQ0YpVg
zC=xoMC@q8*Y666iZ^hU5``v%;`0n4|xND3QLiXNk%{AvUpZTn{^YWg7*6CB6r<j<S
zPD8cTjhL8@1v4=nd35qP_ynK&ehs`Ff26CW4qidqz1t88UYLEfEn!Sd+|i83q4>FV
zCnlyVOi*<-li>8_iAYQ`?0~*bNS9YtNVx`$zVJS4AXQ+?U2wNrOr>T6W`5yL;L2Wh
zYK6z+0y6<-c3oFb9S^kr?tO%P4*D81d(H}>uTOrHHUqa+H17|v-CTN$f-U+sPt3~@
zy0#C%2bm~$yUnIaZ|2{f`oB;A*8;!-R{|naOy+$zrTh7N-7mSj4L<ID^6$(UCMMD9
zeH&SZiP{rBqMu&am<yZL%_+WOQbXo)l{;W!dS`^i1|0dX4GXS*X8H5p^ui&#KX3E1
zPp%#Q&->f#t$gm_?dQp!p5KQ>sh|6KjEO1bzJ*a3)J13UO2JF?`K5JFgpAJK9UK9n
zlCp)`rq>88$y?!e&1_c$ZzWu)=!~?-J%W~5%xU39vMjDbGX!nL3ewP=2$jUGVsr;0
zFnE^8SCECa*C~`B>Ox@x%2(Z>oGbE1xDbRvxz}l@xa}asWa?Hb8Yw_~qsgtt3{|kj
z2_kwDi5yFUjaS{W(a%qj>vYU&_9XS}^Z8+~)1V41_1;$sn$ULzRuYM|S)CY7J7m>u
zTq#$TY#L<uZEpO3j9}mB^prL6f|o5@@rOoq3N*RlzR;UDFX|ATHeO|xcy|jo%%W(@
zfJkoFR{{9nd9lWV?1Cej_?HNk7~|4S@>BG)q+)*UZKuPU5uWK~u9u^!=uK(kgWmT@
zz3mB0o{)o?q&$oH6Q^ov*OL4V)8SB!mxgfe^Wrms@%w3xhhG@LQ^v~U+Lt4JpL*($
zccPWZ@AYs$<N}mQiKL99__xGif0@awLyXzD%`Rh6aKhs}^OafMP)O{Cz489LA9$V+
zI)B02F6{~RMTJpO(siiy`7UYumnG#1!o-#f@ht|Zb5)~51BHr-GNnn(RymwM^#$L(
z?PyB#2#cBHoo)D<SL)w5bDuDKbmL#g!*yP}B!6g@L6j^X@iJ=IT&dt_aO2`@4vWY>
z{;4qE4X2q~8AOW9Z|AtzddoPp<yr8df0R&(DB{rid-R>GP|RTrsZ)=V;HsSFD5+|n
z;YbbLtI~(G<Pna@vF3d%5Z101@YJt>>pJFotc|S-k4D+$QoSH6BB^v&(&cc95}Xh^
zU@f_MBs$BCCxjnj%=%47_VeY$sypkE7YddSO?qH*r6<}BG2P}of9V%6Ou}i|FeMc=
z+zp7@pc3l-r)ZtW5^TkL*IG8p5>ZJIThHXNxs|-mqs`|7^1Co8Z333P&wOj_B@2*k
zHL`-$$tG7|^83CJSU`P<t<kmsKD96rqBiN6evKH^BHL;TI+tD8p=9r=RAVpV=J7e;
zd+1$fohKF{h@KZo6w&y$sidtE!zO*m2VJ~wVcx<zD|RcbXM;6CCI!_iZ`~<<&soN<
zKPBfs{uZUPe0fE2dPx!0=eC}#U2iJ%VllTy??J1(<ESnoE`>R2w&V51^q)y8d<ErN
zws!o%D|oz_Z3qN5KglHwS9gA&pJ}$Ig!=h%>c!Ak<uNm?C|06Z%#XgVYCp+;M=NZA
z4b88-SmQ0#DW2+bV(V@D(MvPj#;P50BVCSD`c=w<ju($_jZN7L|44nO^t11Hv;6B#
z!4-0QP?J{XreH?Sw>&}A%Kd{vxsYdEEn(*A^$6~kw31=}T&mpfNzb3g9Oe@{EE*Z5
zwR;ZQ+peg6<BRar5uT9!!<ZsRO<b$he3CF<!7JU&Nfn}ESXD{0Ay0FiwjsGasojY}
z+<T@qaSnyWO=LDGwVv77g9^Pv5}VSr!(wK6$75yvWL(>Jt6JUF$_#jj*jZIU9f;LV
z6?RGMoX7|h>8G5hp3LX8SP&9>|LM)hnc&#T2B=Z@P3%GEhvgStO0{-{9Y^1cZ>*$J
z7v!3mNb)?}I}*pq@3k`bR6<JE+Bb8w_AGgbp1&@TMXrg3FOpe0xk*V<?M!9KqfM8~
zlr<nNs$~ysWe7TfdtD#&kzwe_A%0pr6W(O@zLvU?R#v#$@!%N=AEZZ=taTYtkKzkF
z@c8_1Ol(!;iH}dLvK2~Luj+cyQ|Tx<VK{4(t8K&|?@7|x>k}p!B634L#FA0&kV~7&
zJoYn5gmdw2vea4mZ*%2*A%<c%zUGN{96i-c9tjLh#}M0*DE`52Bj{!LMk#`R<CIbE
zo|lp!V!oqG`Erq-v!q>fYaN6r#S>3gMYhGvDW6&W&~j4?u~pey<4CACFx7~1a@xF=
zQKZ89d+rJobmvs3aqbsZ91vrB$@q5RNWND&wo6HLN8}c8HQM104(fm}LMu}#OUa9c
zZ<jmT4;A%ps#}cYkww!nSI!D;6G(_GG>rJ|PbO2b!#rhpR@Aw!IuqN;6-9{9N|_Q4
zp8CKx1QBsnnjI^RxY&7=u3H_%OMY7<!{?S@xT_ZTv+-6>lYsP7*|h)Hd=aLMl+wx)
z(>!v&_zsjN0KdZKQSb}#-Mz=KL!9eEZ)lchM8D#<4SX#m%TqO2DRVg_eag2z33Yjd
zG~eoe^x@fkNtzw<_JKO?=v8C5tSPsVtKpA8=-Y+z67w#)m#Vh*<cBEF5Qyq$kJPP1
zbUEZnyRl;gSAK3I)n_EHcv>#NRC6?3-@JxlDlSI)i|Tw7-<30OhdkW2sSE8-87W-t
zSi8J}(z9&{ui3S&X~fU0clz;|D-WMuJLiq|x+iKq#VtvH;9L_NTXFCqn;QB8?ZrdP
zr6y+x69rKsT;sU{1;x|KQV~yvJ$%Fddnr*Y2O|+d_sY5+X$kATy&`?W3sMhNxG`Vu
zsX}y+Vh=K&uI%<6du}m$N+xvl?aZEW`BxYGIp$ea(foe}uCRf@5}=_5b*jU3bzH4v
zJg-Q>%WX=T@`j2Comayv0X6o%P~>$bZA756lk8p(*#-{#Ghr!71zc73mEbn=64cCI
zDBq_V-K=YMPMEZNgYLZs#ou~T<G(dpBlBcG<@uEFCv9g(TT$6&rr`Sh!wW6~3C+6q
zPDAe`z-2S%%-~*<sW&a_xNlrayxHY|ClymwLp&&H4)TV$sqmU9Nun#N?_)>|c`!Un
zY19bsV*Lbt5t^J*1j6_asEinL3spXDz<*JZ`h>P8B+Bs7u??>rbG3c2=0X%+Y~w}C
zO{)YbMD0u&nR_)c?}u>waC)wN2%2}PzsAN|kVGq9N-8TiYzqERkYsBjcBz9r5xi0$
z$!4-S*2~=KnNVA!)ezYJdO844j@`$HCu=nYzj`yc)<LNK`AC%3;(o3&k~&LV?N_PQ
z7(#dMzBORLb=1x4PdS*FOf*#6!w%&>mW<zxC10MaT<P6tLWdUb6M9NsW8&_r3N|wt
zorY3!htvOgO&JYrZkxFZJ>&FFLQT7d^u1Eo`TmXCg0lidPUsoYAhk&egk4|==3g|5
zCuB7-^6bIAEYC`KO~z`agez8wM^$$fHg1;0{9U*R(v<sbbp|j!*25S;+baIPCjC^R
zPvhUX&EW7HtV8c!GAsox0{L)wMK}2jlKJexsPNRMqhl7MN@A3E{!gkU5}(&S?zB1F
ztbvRA`F5TdlI7W)w3XZyjv>Q_wVl^XVA7Kn`Fi9Db&nK(L>E_qmlwh^Si&50c)cx5
zX_b<$djONpnqS{hLuAGodnHV62P+v0o%HObbEghy;@Ti^S<BH-eM0@8#3uS6J=>V~
zHPSy0{V(K0=W<{4RTMU|EQONOrL5H1+$U^UQQN0Ny^qRsP3W>g+3l(%F;8=$7j8%;
zFh^ubuw8-W8agM|`RkG0V1=@(9d?K;kQiLUIH983B9X4?w4UUTdS?|933K+$$>!Gz
z#`z;rT}uTcI@SV2J?PTRz~!wAr<?VBBH0>4^!u(j5dcy7gL~v7flOC3@S!2`7TBaM
zE2e;OQMQ{KMx#eCS5a52&Z^~k91A{^c&Qqthc|Pb`kAshFFeTP4X_rn;wIu2Z>U_`
zI!e*IG}|vk=ypHqRous%O2E(tU95i`n*4|+Av~t^LYlR9j|Eq*zwPnoJ;B7}_8<n-
zlpmX~B{8$6gn5)DFry8iAL4c)n;EMHA70zM(%y?jN5du(1oq91PM`>K=cce-wTri;
zJe}CeNJ0)Mw1Emf8ml*&;F-jxU8#ZlaunNe*ZD?`y8it@t?NkL#SHbmVL{t#bfPfE
z<oU3F0-TG9>Dv_sn<t+rYq!a45;CaI60{X%+kb@|a;rqM2n3{5Nk1o>%FIF3no<!L
za}pw7b~%mM!SbEI<RLh9_mm9k1tHXG`5B2*n%QvKODwahC)WQ)VfQMD)~LYUI>VPz
zHakgZHm3;xmo8Okv1HoMX=})<LfQr4iK9?L2Szog5Yn70-3Pc?)ZK{E%K%^=)ZL#y
zzvw))qK=BP<41*XySLj+Qa_+gA%~h}1-g@}ZgkX7R(E=dvwc#wbawPQg2HCVb{>UZ
z#M;Qv3a0Ic?Aaxdqohy>%pp^>(!v~unxQ4>-E+>-V{(1cb)&;{ZOgjI(^kNikL{ay
zV%=6)4cbMZ+jLs(%R9$PlF;H5L`}c!c`FaHN|zYxYB<ygX;G2tkbFwEM>Y8%&{)BM
zq=7rm|Il0zcBz*C^s<W2Kk~tPpj3Y7;xr&1EZlYWjBx%?L(!4vZIJD^rLP%Q{y%NE
zoi23#E}1?~y*O%dkx+nY+XQLuBX9fvX94zqdWrw#d$-x8EsRj;a%MEGD242O$+PcZ
z<`!yZP;~foON5l6QGs6Mt025vPVe&*B{Ey>_i5{|lijA|52YY`4vtTxcDAdixYT**
z2GE7uF&A0mLdFk@b!Ufe36WfeW(b1!=)z`WEYoOgl7Bt=20{f<br%<paE5YTEAToT
zaLczU#O5$D!=QYlI6>YnO`uVNsDh$NRp6ed?D)QFR8D<h{TRzt=8H(x9utCz+a+yT
zYgtbh2oW`*Bui?Q4$cR<4KWF_Fj9mDLEn1M;YHlaw=LjV7%59)QQN36W1QOUwg^6*
zW$Z5>v6c4MHLmn^Uet_66bCBslb*fqtc<LdXR_XBLB4|ftoWZU<$Bb()A<;Gvg|^Q
zi6(hnzSGHClsbj$gdwpq)Jn-jYxDTP%&gm&Q!U-X_RwxZMC{SA8|p?)hVqdxw1oMi
zCqM3>uJ~c<r)qG~Y}!i!VSG=>7liNi#3SNf85<}=r-Emtkp5Q37Y)#cwu_0i<<)TY
zbQ+^-j{4{9&u*^6nD$gj2z({lM)sRlVzyfRQ?A-p{mkr@qKmgfh|AtTJPTf@w+VAq
zN(|C!r(jE;JStU}&U2eCUT};WjwsPAt|I6ts5@ufh49B4rfg-W%zMQ9Z8&KbXbQlQ
z>Qo^Mw;-KG3F)V|dg})h2JYZaBQo{g6;nzoBz3QpARnQkHU%MSy^kSn?{6Dfqx$*-
z-wnD~xm)xR7Pz6OOCXOs(#zCAWxRV;yuIE#!9N;3gm~P^_4T7EJt;<|S3+sblQMi)
zsfNK#Zhtws=FED?&JoM&v^Vyu&g(_I5X93aap_;jjwdzE9ToAtVTV#&;wLkf%au{R
z^%iQ!f|uHla<1Hlc|1@wb4L|i7~jW<64+28$N3=rM|b4a``$S;$hontXPOQP9!j2@
zyMlV)uZ~OMaf`@ty;3vcL^W{_<1@Z5XkD8%T#R8;t_k{BGlje}$`tii$Dookqf;(R
z5o!k3zj_beI~W*PCn}#9I}pOEs8k*i_5K(@e{g%w>5I08R+^o#bU;*=;Vd^3{aFA#
z2<mMS8HDhEV;G`eO!b5EeslK_EVu0|;HeKq*LBx7TRWS;#KSt{mK<~QPgZ!TlH-|e
zm1?9As7(spjm}+ghRGCIf{6)@g0K_?+s4V6OuicFGMQ$n-69t>q;v_E-gUaDCsMuY
zZMMJ5Y?yk<t#T-l#Iq}v%!ksIB_-DBkuRfe-(AMM>~_-JTu#1e*cX+KoQ#R&+SfcT
z+#nUvJJEtLv%*uU1D1d<ql2m`Pt}laQ&MFQQP>16?Y(<_&pn;7uah?#&=b2hVV4Sb
z;DRX;oa!{xkM4T9KrG~K`)gb+NB9_@v^^<ygO!t;4~E)kcDm>`b`|z=i)p2yeULar
zJB-4<YtRYRoDZR^3H@!P_#}`=glK?@s4>QALJgq`ef+c|F_J^3`nYOHSxW|lCV3%g
z)h4UHvbuSF4A))=%k82X6m+@!qr29jS`g~Oz@7PROxNRHB!t#cM3Rd)ELP8C$$Nyl
zkDk*Z-AaJAA|hO9@FaB1%}xai=Yc|jM)7{6ea!(Sthap1{A-MA=qJdi$3#Q7md!g?
z`@LGN19k|U->~mW(Aj{t%C>rXSsVEjipeiCoAe7zKT`tYN}lUS4lg%iMM>g5M>*87
zkApfND4(A}KLdFpQX6jH0r&c@gnE!~4xd9vZjBJEAZi06N^}JCZ4JkZogzU{*at0C
z1^LFLuMf-h+<GayURwzbjwAIgd5yBIZcA_8Y{|Ak=_we3U=@Cm<3Xd=I#oxMcJsyF
zvw6(&-ogd!-&g4bhaBC^h!{Js)xa<np+-0{R2JH=yits#oNQ2nM#lE{xZ7-uZj+JB
z#})gVrxB%zTC~w|`{tUeZMSFe%~OGGNy{oaLicuF7-lLX#y-t%;@g6IHHr<)_E0Kr
ze##nO3u1WK%IX~1wylfODctcH4$9=%Y*njog(TOnyl|YL=w;)Z+Vfg@FS_FYDvvXI
z)HZmaw95WqVqLF%gLMnqKcTa!cWRCi#-Hhq{GTr)E*-j<c<J2yMY+n&`eTPZ0)5(~
zTwP9luo6+wDagsTub&!jvVTnaSd#+Xi|x`bO6Y2@ERXX`YZ!2s`e(DW>x*c}5KTBP
z{2Yprfv-)AamCA$M~1N_D|c;cMmP8Bj{R*s!BI=-xir4bqDcu%4vX*7whQaaRDf*W
zJ-8~=>jXJes|h(I8TRmU7#gN7bZuV9_|T;Kp4-{&6DtB5@sXJOi(bpSV$BHV<iTY5
ziw{u|{aUz^8zBde=0+vhcFOV=V0Pxt7s%dRL>4Yj8(}sJ&+G;FEt8_+7wAf*vE4V-
zw7aNtYl9_$L&=r}lLzNo<#i@3z15xVmgmQUZe~hn;I$h)R=qJbBV~EcF-=WhAuVt!
z?OMwH;*Ql1#i1+1OGt!*X#Ksx_lWP-_!?Kz?V2f-@AydBS_|R{D!L;es<te<jn7uB
zxI!{W$*g$6ce7qW4Wj0wIH8G}!CB7l>X^wK#^i~N+11L__<B%SEL1<ZK2XfBZ{#Xm
zaQXbWu9w9_QM0f2H<{431mA5A9C#S{i?o<1JMqr8K<@#>OkaaTmw0yb6YW^(E3HQI
z;}MtxkE%`IxyQF0YD~@jtA6TBI*mOUVde=KYl%{{tqI{S@+S+D>xyz*?|m(y)!flI
zVv3}qbu}%7Mi#bn6#mD?oElja<&CVN8CT>!tOTRaR!sU!jK+%UgS~WJcAdHFcjnuE
z_gF**$dh#_L6R=^gr!^Qc79NWRwE#{bskvq!CtjsCb+;vM1T4>9VcEvX-dI_S?v|G
z%&r%>kzqt*Ja7Fh)QP^5h_Exa((db3pq{wiZ0*6z!uQ#In0}xlkC<7uE;mPyym}c+
z?ywhk`}f0Ngq0I0iez(0cm{;~XNjP6&dVvnJr0e?H*3=0b%MO30`QO9w=NSFC=-yZ
zsr3l|qSf{p4zP0L$P5G3`p;4eTt6bP<Mm-Zm&q3OaVhCC=VI=dh;o=+wp;H+t&X#u
zfoxzxbrG3$Hq&{+u(mU3OmI`fo@dUWd{qh=w$^r#Z9d;8BuiX=)vpF&S>qChxe@QG
z1Y`=ane3Uh*gmpay@vJVe6H6XsCwE+xNYho>T~AsiZyaSwwPMaJYaf7TE_&@lXNNL
z?McPIo79}Q+`b9MDjPa2FV)_|sX9iytGhSJV%+F3p?GAFY;w%nF_+h;Xc)D+{iY38
z-fZUy{ni`9lcg@zY#6}n-f3g{kN~qDFT5kPaBW4IQZRMcy<nLxRZJzF*CSClp+eU)
z|Dx_{QyS+)mm;3%G2z@W0jjqrsrN-UpFv?Lf_JQgwJkI<l~~J>H`?RR-tqcVnS^xn
z+E=$!m*(SaA+~6vpeN*mhwtt=?>!IBde}3p&qrzj>6IUp5K#@yov;5P7QvsrL!DKG
z47xQ1M82K5q4;JEVc6u&e!5D5<9bD&ypOfOH6F#Y_w}8(42$`TsUuQr5x7wf{Cdps
zAVIf>=?W_%x9k#v*1E9wAxM*E{>rSLbN<i5$KEg(Z1u;_Dj#0!g$~f(YF*+Gc+=bv
z5SgR5_Ju^Q)QwOKUa#qzHfv4@^2smiN^d50QnilClHFHTG&p!-1}E$7**ABjKpm2Q
z6?O?$5P<ibSf1JD6>Hqwt&H6Iq;;U0IzpU`4Z##uGy}_)n<7y%4l!N+H*;cmo@F^@
zHmvCEx4kdb@#O7IVRqF|jC>G)44@~?+@S7YKEPW+q@S>)tZVw}%on~4E@La>J$Ig&
zH54vY6=@@{@&tnUhdpCeD9{cD4b>HjvbjbolJgLAoXq3IZWRncV7_$m$}`67G_LlV
zaMZDW1H@J?nw~@<U;~#XGZ))lDUZodx;%yi-~&a+g1$idzl~q%N2-48T$>hGG**>l
zVnW=G;$Vt`b4zVHZ5=@|J&@Vy_IC9yA_RA39)55)-EY{MazdV`viZ7~ez9Aa?{WCJ
z<S!4`31POM`Y!e!{f?QndBt?P1cj-po5y!cpYOE)Cmq}{<U^rh(j}2OnWvH|DcGcx
z$Ew}N*ZG+mJGBMgn21Xg${okDV)`JPcf1o&SvXc3L(`il-4y%lBb7Q7LM<rXp&n;M
zIP>Fdf2{n~HZ|xJaiKtn?T3iTR`4icCQBZNcRElspf3CCI`H(i9)wnFK=`HTVr(WW
z{QW^iBB6gRpZljwuy4qO($_=D_AXpF`CW=Tezc8XjNFQ#l3H0e1R*D?&DVzFxy21<
z&xcYwUyOWinvilAwunn(jcMX-*d|UOGAj=ZoJ&WIpt=GRlAEIr^s}?Iau&J&IB9kt
z7~%M!E?8Q$2>wi5bI~rklF&f8{65oT!b{XK*CkYaUh6D0)NJyVmckSvsf2|o;n30G
zLrf#q+I?;(_pa^sWfUlUbHTR^(I|0k%S?;Ed^@Xa6}3)`A<Y`PcQ40F`w(Stt4Eh2
zVzDw(43Ho>nYlIF3b`tE<P~=h!6E#fOW3Ys;;8!uryZN#5JVJCJ=Q)ym&2bCF=jT&
z&lD|qzvmK<(@yNS8t#>yuz>Rc3L1{Nx8?3Qn`~=9U=w!Y(rxouTyBb16t5@pQoAvB
z2>Nraw+fIJyu=vg1Y1K-YK-azZZ~{hER@(ZwbYK1l-WsIp>4ZkMIikxvmN51Ltu<=
zKW0<CdfE3h&#&kMVD6_2x|JBd4TlmeBBfwT&b(P8@GX3#s%|lrKioK{hsSB6T{b1e
zi_;>qEPj++K11qH;dJ>NP&ux3VE@=t)%qYS+D@ijyj`S~_ZZjBu-UayNUxiDD{o3;
z-+Jxve&1E7uythF$&ahS%fk=fj}ugpWL9$J4^AeN!~Zd_6iSy%t5dN(kvRiiGy3E;
zg)4qkE!LhoTU55teuco5n`KSO6Bw_*7B=8iM?PJ3@fzpsj_6BBKLC;|&@)z%Q&Q3~
z#7EHP^=rL$Cy9>)RS0>?F3WPj&Ql;qr<Hhm<o*TC%i4=Q+BL-06!^{~mfUnyh5Z~V
zairhzsb8Qf=c2YlyusFG5e_VCFuY`8Zm-<Rg5vezeB*pfT-!n4FP7aCkC*+iRiu;k
z9;7mR>($!TNI~hv(3GyQ=!xMkkXM<|4vE>6P8FTL;UfDcdJ?l&W9dTrS8|UcXT*Q^
z0<8PuwVG)Z2SdUBFS4eK%LM}a7k!h+tkbOr`5%p)1@au{ZyA!Q4*Dy~k(l9dyg`KV
zk)86$quui_a7w7UVX5R@4`uz;O@%g5<1J~Lc>K*au}}|{pwZ076YBySC|CN=dii$>
zhnU>>07Bn3aX_7Wi@#tyAZG2AL`^<C$nA+*4Bq!#YC@4S(}szXO9!?ZQpalO$gao4
zL5B^K%Fbl8v2AA+$H#JWWsu7;C1!rcH_??+HJ9R=#T=hPRk5#Qib;qATlcWLf;@U3
zwZub?O>l~=@4ECSVk0<{S%=^lk&{Lbdy5vi-n+%$S<d-3`k~K$8|pyUo|cKOu_drW
z2ShXo=(r${{fpb343^M(@X)aiTa$op7U5Ki%@`gw6s2B6@kXK-{8`F5MHTkwAlO!B
zW@KX33t74(YF3SR%O%eB7gLSdGr}ffX(|;KtE7o$WQe_|5Rnu^=dP&B<~NLVnxKns
z@+`{6Of(&yCd<t=bRbc$Y+`!cGu*C14cl!r$~B!IzsZ2k@;;n6lSsYEeYb?lJVt>D
zPt?;!jBlE>hoPzELyh>S&wf`D9~&GGzn(d-tvIfuh;yKdyHkah4#JT)XNo;-l{ac)
zx_|n_r_7(vs^<sm)pg;c2Nhu$^cimaBdx*x)-f~DN=}S2j_?2_6&G0N<r(&MOvb$L
zew`qMe}OL!e+$B23d;7cWARxF*NW=VSf_cf*X`lI{AYrSjV3r6^lI6g!>sTs$zivr
zb+qbgJN1?x@XlC4kQi1Uw6|N11oD!vQ?I^-zR;(}*87>(_oVWh5IU--vk$Jo9}o5`
zKF8!iIR)7+C~Ef+ivR7}FI07%iWt%8Bg|`R<S8?E*sxCC#c|)*9?#opo4zI1EoD=a
zF`p0ni2lmu*^MN6PY5XIHrnGOt2e%}*o+a!Bi^+$X3hy!y%M4!)p!Q`+KN`Icl$;*
zJn#4m;S_lCV4&jEZcNkgK(aq7`@@EJT!#xUZ|!eXX*Fw7j_J9}C5Gx%kTove$2&eP
zA;*VaMHO6Kro0}ZY+JY};@|?(8n0j~TW=xe>`I<F^7znww%y1B1@2$@U+eB!v7m-K
zMj;<^GB&?l?7-x8!)86NMUq5ll)8lMHm?k$G&4SXp(swOrHyT$3VUCZF>{V_kOZp8
z)&LRGvrNhS*tOo=dY@$Lb<9H3%5A?C!&o|x`m`+7c&@IOK)`4`!W~HDin}BPG>uCc
zcKJt9WKdE+&mr+aV_{EjSz9>!O4KTmSN!5-xJ9K;Jn-0y?0D@J+x}WqGzdDgk2Ake
z>6wg?B5f&}6|BCpk1~fKFX9i$$Oe5YkPd96h^V*`#KsK4TIie(rY!Z-tYJ=;!X`oC
zb6VL##11zL^`fHe=9OJlmvg9}+Qq)U8{Z_m9O)x{0}iTpVpLr0`ftcZrmxkv_E>rh
z<G+3A8u4!n^XQ!i6OvP8csVn{^3#t4MN3eoNK9_}73lJW@y2hC&Trf7lusFt1$!9I
zSFXw+_cb6-{F`YLA9niXwC5WgY||_FAgYBI+q)#(Rfk4$lw<?n4efGzrQFUSM+C=q
z1)k#jY<=Fic4~84cDwzYA6>l0+xAE)^+8sBdhPlKPeDfB!kM?_=7$)jyls?jADYzI
z8Ykd)ya#hpvBN*AHbw8p_94_Dk<u<+=vOpdW)o50r4+v8bl5qo<LGtH9Vf&k_;ys+
ziyyqjf%90K$;Y)sbyT88nB)AbWgcVA#IEp$GuJ|yE0OAPrWMrlQlG7h7m$P@9yiX8
z*FDyJm08w~nsSuErhaFzIQ|!0YaY8PQ*;{HakOA1s@y(G7L{fmB|93i*p;=!<jpVG
zM4uazZNDcV9qRMC3sz(7JTNDWSWSt%Qt%87V0c*qxx4Ndqj#@e{wZYH^%*{=AA#EA
z&u-+<_3PJhUe8N0%fJ`csPIWok61?VZGX?*w3@T)>^Ts^r6xJ;O?jaxX)YHstjBp8
zN!t!4N-tL(isK-vuAbFn+i_h>!=B|@&2YV~y0u64m)6j2WJi^yaZPdj7#5>ie9xbC
zI|Ra?vLw(q`LSz(xDNSHi7l=;;NJ|HOF!RsaAQ76pi{NKv(mVaASJNb<eP);fS5Ba
ze<V9(bn!*Nt0^xYsiID<?M<j`T>ENf>pZ)x1<6u#cZv{~Sl7<-n$YU7$=HbLTB@^g
z7NCWrRQ&zZ$u&r7-312HIci9oHc1J-JUUU)ed(u$*GRu^Fudi&NBYMpm^-2V>g~hJ
zBAKk+0e6|0?u%D2HpMa3frNJBvn+c;m=?B+TSW&qKQ42O>8CnisG#`~jG;*a6D13e
zd~ZA5)O6natNGXn6O%lHz%sqt2!T3Jc5K&qos25}q~pxGRRZ4roEe6^5?}3NTqF$J
z%Mi%hv)LhP(v0){|FVfN&($B2TT|yt<QEvk1}Oe#kO?sNyYGLb+Q?>$GOXZpyHJ?8
zV<Y=#+m(E6YyDM?kUFpbTI9+t2A%rd-o-E&z<=8RZqpXf#hIc+^G%D)hUW<c)yhY$
zF^fHIy-J&1ufF_RORn+6+pVOQ`ObW=y~xh4zdxVm9b;6|U{(E?jq&e?U;n+esUr>F
z+Y0^V6Rac0m0970P2D$Hx)aJN>lN;fl(Y?1<Q0>U=oY(n?M*mkBB-{@v_Z6JsKna-
zGHZ06j|Z7|X}C<PYU<T|7s^-*A=$jYAqh^^d0&hBmfY~l-PLbRlSHu-tYxrkd5Qd5
zJX5*)X%Q!Q!`G%ZH#f6HL`6fh(dgOCenV9nu7T9lFbDpB>d~f8T)=~0Tr4T484_&a
z8)%XcceOte=ar!tlsQyvS!vtj$<EFm0v^A#1*Z2dsXiXa&+F{$e7v<dxHN6D6tB*=
zYsP&w>*o8Im>3@o4Gp=$(1a$?Z7Dc)rB>?A^@n#pY;0`&NR_bO=v5?PUXhnajl(BH
z2=I(0uyRIT5*}W;{c)L+4GvEbNI@bAmUOni<)i8v!Dy(e&9H0Gu?i>Mh_C;iK0zlM
zM(!=O@kWlr@im@W$w(wea!Lw!6)<itsR@wu_jjXN<=4Nlkz%^B@<UIa!^BNw!tWho
zy4U&_kJ6_yfmj~pP_v4VF!FNU`V0Ozi<$>5Pgzo>><^4yU6cqsK6S_BA~*v)?EC9W
z%_~#QbQ+CHp-;`kUY4~RD79@^k@w(CU>6h=bV}4lBR9)MjB~p(AWog*Hr322Z1B0y
zXGvUzx=2a$GV9vX06DHn_@JqI>}5HhpThcSG82N(%Q7C<(iMYNA4)ZD8DW7d-HQ94
zj=lyPUf!KT-E_m<pMq0tvGd(&z3vnB+i@nHJ2X-xy;xv-X_)l%fpv6eZotxzqFwlU
z>y)g=$lA=kYbN(CEIw5_w8hb_Fv06nu!)*ZS0XNFhA&aO?CRZr#jyd_OpX`JC`Sx2
zu>3hJa@eBY-%S?EdF%1O4`wzYOxW~G;Z<>Q@z)nFUex52@%TioZKkcr_UGz{tpJbV
zCYYTdSe#((DZe-RdjX$!Zf@>9tXG-x6!dBMOkvkW39I7J)jGmF8WFU!_KO3Gi#l|~
zPQUsf&AVy$Rm-yzNJ)#2Kc50i8Yu6teT_7z7B`7d4kM3`RJ!y&tn)g-^z$>UjXS6+
zVlKtp;B+AdbZz;KobPn=c&_;i;Ys-c;EOr}A{S1Xj{AH)U1aRW3p#WWbO`mI4gt6J
ze>Q9%NyFvnA~Vkotn3o9Nc1_R{Y7DXD(ECf#KA5hFZ#~=n4+?#P|rfDiG{`AZvDC4
zk-$c--(H*(7D`hEXV=DoGbIn4X|=BL=#aX0Em(nz)o^#=Lp<w-j=7oH#X`Hry&WGp
zC8xbD;`YIAZ{$!d2OD%th7sB2b7U|>Rl&PLdT)MQlbPz%;)RESP=|zU%pUhzSsANd
z@?PFAfAx4IB%^kJf8XWtVBxJ?PkfEJ>cP&;>4{Fgyq+r?!jF2=<pZX<dx5j=#693t
z4&5pjPWSl|_4by#3L-0uu9u+@z_T!32P4%^hAt(TjLimO8og+H+lmr0kr<63+$h0@
za;&zg5e)CJqPLqHQDur{wV8e}^A#YGkpA2KmJ%=MTh+*j73m(indz^riXOoc5eNN)
zMdp#k;2>H0oK&RSuavej{c`FYS!oopqN*mIja)w1Q;rlfE6%qoGAlX3IGJ5zXa>>T
zg|a#!r39vxBmoRopP%pgh!L*#0fVL)GG61KhVK{>n~r-FU}ONyS<O^nC8=`^+i2at
z-^X_B*s-Lg!6M4AG{DkqjaL^3b>>I3iQ6k95Cpuj^5-KT9{5(@)UgoOYM)<U?5Dy=
zjl#nCIQ5?Qfuu?9RJ67Lf<VrE^P(^?P7qqB)O%_XekCodWK^#0uu;oN0BYeLQ%#Mx
z5pkjg?-fhInmn905<`Ng9GLKol{;wRSR9mgXOr4=j6j!FB_$<Gwez?q>I0~*ec2j>
z#=XTNZmn3(?T3&M_rb#IU(vh~atoWis;V|PociWqsco1cmApcytu~Ozn9UwV#ol!J
zP4-%UeyunUBP%Pb2Cs?wBB@V5pOWl@e?3Pya-8?IPDf)fO39s11;}@VyquagI>n;9
z(_~4q>l@#dxF(z6VYGOaz5Iyg2wJGP&8M{%0C@Wu?-u{!i{uj(6`kfWENeXg2z&=P
zPGiJqg_CVYy!U8D&M#~4#=(yOemHC+Y1{m5aoi2pI%EVf3wj|TyDDu$lYH*PWmqZo
z=~Q4AoY~aG<R2^+YfC9GFSBzo$WW+m-Ym!AaM>wh=9wyv?Fs$DhMD`5d07z(3S^pS
zBB3Kfay&E7glbs-Y9Xhh*{*l0Gezu`p~~*;ImN(bIgCqhrXgnS3yb%s!BG&?VCzX%
zglX4TjisRycV#ymdPp}_Tz>W08I?DGTif$d*=EaA&}Jo8`mf>345LN>r*8{d`0<|N
z5U(7#bZgjVv-x>6WTLj@W+tt@O!Xsh1V-w(0@bn~(%n4~_MMw;gO=v)j^F654x_Ao
zaoiO0V;wAaXp1FJHHJ}Cf&hq1fBoenFj`-TlTS?^aj`Cb*Ha1EQc39R9r8$bI8^Z9
zs1&#tL9Qw=F(PQ)*KI21lrg<&2TUc87!+X9c&9&wkZf!)dIjn}RP2`FF*y^j8i5i3
zlU1f$5faVHz4un2J5!lDT~PrUX3uVm=Z$<XVC&n;E~RZ$X4g2R#g}N;gD0=xrONwB
zW7S25%j8VuFt67V!>mRDM4Z!OkG<okIl~dlO(2y;?~zv&?;%dHu)sO`{{|-Y473G_
zibw-KXE)IVry>P`6`{j*$9Qoi(rmjKqM}`tnZ>~(?>Oa5Fkl`MlCr<qORDo2ttbr%
z37G@Ai<dSLG-cZare>1VNSVClIaU=SasK5$JR!4*s>-yjeyv=b3}HR4F<^Pb*Gkk$
zhqzK{jrSYnzy)k}%hskT1U#lcefl&*cEZ1(mIWt|lE4)7hk+?YzUEdW*Nj!WM>d9T
zFB<oN%+B(xRI#7drk_A<@SE$LPBKs+dYk!BIsl+F&Zm~zH%H`+woCv|Yn1bz#JC5M
zCMUqWO*AsFuj%&{KxUn4nA6|BmC#e}IgsC{6?w3kMcQ4i?2V`eU!80STv^=QTPm}k
zLPL{+0B$eDDX#u~mNcSWN5Z$iuIDzqPm^xQ4JexY`67AAaF(mkIM0C2I8!uYYq6-z
z?*0eO*fs!puV0bs2$}N{A09cF=D@@Y{4!kxsVes_saS`Q?vyfi<G+j9nSLb|mx5-n
zs3b2-;S7JA8B|nEOwknpEj0F@OV=NKR)X#wP)TW-0YjD?USm}SSL}GK!H8s$$;skk
zVq!(UbQ(qW)kIV9`t-A*Qd_(X7b}TJ!9SmXJVbc$R$Xftu$MVqBRjiE75<<*@Bitc
zQv9$Iwdq?l%9JdvRVv~}gJq>NX*UPJ>W+QJFCRG^=+26?b62ndq7#dK6}UQ%`XO%#
z32^3XW)Qmzspxyxs(ROJrEUaNI(NT)3<9x99r5p9m;8En)@L}9L3{r7mo|W`TKLYd
zXu~RxQNL1wi9o#PFq+{B2DzT===xqePpp%@b{pWdU*eTE+Pe{38(1m2Ti2T#Bw6<%
z4|6%LxPd~`qVUgAhul@b^tJr**&)bIg;$y{-#kog*QCE>pFJqGsjK*8+Yrbf2%Kx@
z7>CVu-?1vU%5j|MXoVoXLpTd_A5n_g=!~B4&7y}BdNOK9UMW|5O@y|+x#2KL;mkpH
zx?h=apbnbbPXqy~A?`U;JX-qY%NK25UtbM|oek4uR(##F&Y${3sPJ~6r!2@1JUzyu
z$qnne!K;m1ooG0dsTkx{*05T?v<k+ea=*l?T38`ybsX>6c`mOoB2IAbKuK(r@}zTZ
zv@?vuFO~`5f$6vJv6tgh(csw|T3d`jARttdpl+%_K=-T@(w6KA;@(*sw>(-YCBOXf
zYi0))8`dLFAJyQnz4={?UOj9_HH31iM(k^p<ALFErU-CFr4In=<~pjxGP5G~3P6;f
zIz>iX5AAI)v9!fr4l)K@kyaK-TOwjG7_{Usn>s(Ib#TJ1%h1O^-nHP=$+spH`n!3T
z08-`)L4Wyt61TI;0~xfcK!Dr-huRXUeyMcM%Z(>|t%Xn`Q)^S{tY7Uvb_s1l88wvL
zyHn2-vGZ$&0^oCi5jmk-3+1B{`XJ#2f$3ac(H1!WRw1BpN$Gh(y9S;4aU`fMu+xDn
zW3eNQY{Vk@>A|!vpse0y3T>}1^;czQ^EHF0R|VLg<ek@W=H<z~kyL<SfCQQp8D^;<
zb#cVJEEQ?H%YGBJ<#e4bu0k{#?XkT$$bYaNAG!aYK~xJZE9dE&9i+)d>N^IHp)2?=
zT>k~evGmjYUmE3!U!35vpiK5})Y~<xjIeb2%mp@Wnw(Rm@59OkOv~()SJ+V*A8zRA
z>L#i1T6}!aq6)yY$`N2By%tmi&WYLrQs<$|He>)27AhViA6FQus1cBeXNvv{590lq
z8`r;I22AzG`@6P;4|;7NwidN<SEIQq_$Mkt$;%-fy{dGZ@a|i~`?NO>al0aRd+ue8
zWba|yAlv5`GB$5YNtIy$iHGGHWbBy;E&intS<Ilr320FD)g8xR#4Rh(?**zoMmOMP
zHyNDbhLn`IA*hiKfSWFI0XLn>86JB80?r`iy%gFVFpf5D90)7}Y;Ui(u=|e}4k}*~
zE=)9oi*Sp&>3hicIGn?}^R(G)WnCc$txvaZpJ3(M$y>qK4kOW$w)Hy()tdm3cqO0=
z!uZr=o=IQhUK{!2SJnpa&H3)Ok<I%Y7cZ^?-zBhtvF$Idk0mTM#nQ|x2=|b-fupsI
zCm15rx;X;=s|zKq3&`St@2@Y<3Fd$<F!CD~<&r7C2B2~BY#QaZQXAr_Vz15|{K{}v
z2`1=0<ab6jRaa9}D-Zy5S8N5FkpW9&=itb@iF-8i@u6-Lb+zFtC?*>n2v#7yEZ!~)
zfByV=BCJQAkY(h5^QA!S-#4-?L5t;&SMqZMsL;=o!{rV-A0Su&a)%py9q=d)9pGyI
zcEF_Os(T9`Sk8AiNSU#-RmJ@C^_Ox^PL8jzvq4VJmCXjrrtpxL0)VFB16c1#fud1S
z8?iW0uxa1y-`d)0EdX+perrL^4cCIzO5;-MowG9Dli@EM$vGen^TFdC;{n`#s(z(9
z(hkO}5U;V^U9|ci`!A1_*LneNi4NJE-xMH{@!q^!+r#!8A%k_GKC?oY)Ot-MN9t*t
z-D?}N3SWqvl4dz|DiF-&3IPy?DN<(2dj@Lt$eTc+P)k7fhME9_?8WTPrwtS4=2CQV
zaG(RkS??WL=h8hjuOv1|d14b$voZO+^XWMd3j#ljyaV$|o}_Pvf4BA67T8yt0oG9l
zt{OTEc!7H!o|Ta912FGY_|+Ht`{7gXg}z3g$&v-7O3{2zM%aB&8DN1K*x7{iK4~NN
zC?xu$A1jGyP^9q)LM5zg^yKBt?d*8!fBk#eD-{i-4VrRaVgLx<Mo$LvFGHGWWc(K(
zHe~MnxO-+|43x+{fPXeNfvnZ=v{*WS-wqVl5g0}YKngVIpxmjxi>LuP=c9c+07Bwf
zsKVBdyJFqiZvaq<AmLZ9-Etoq7ePI5{+$yF=j7tS#+?iW+YMk`Qso0n$vwk+RBDku
z?J*9pJG+&>4{fq#%?Eo<z!e%E4i=hz7{?72nz}b!;68^ut;UT9T#c>@6$QFV7?2~}
zry{5;%@LqZEwu)KAz}~T9)x>^i0V#h&KE~)TzdYhKkbGSwNT2q=kkEONuEK*0q_~T
z<tq*;74Po1w<N}KTrUU~MtcNHBIeBOVr2?N(nN?MBdzs)@|{^hY)yGOg?i<>bMd(W
zZ6*j%g&^UyG9apmnU`1vEE2LJCvW4j{m0f?PVjPxqf8?*V69HNAXNw6@}Ar;=~bZ?
z_pkl>nwA9uVyc*-B0PNf3yi&)R{3rTbj5lH6az|D2oO12cMIoif+hm;7|g>LWOVz$
z2JwE~<!Rp2mu1FjKcAhEwEN`qs|!?Av_*#brf>1O6b2kmnbHUB&~<lXE)R+WMRJzO
z$IXA(3@kt<5SOrT!epRb#&MYKA?s*{zM^de(p`jJL(3s;m#hrH44>k_EZ+h>#vufC
z6|{Baf1*0?Jg8exRa^E3IXMq-gc(z4=<XcS<)-V8pUF~9JK0}BQVd%J1cY*F9mHb8
zt+J-QLLdkYy~kkoi5^E!KUJwA^SQgE`+i5?J)>MT2zVtPz)zk5@MUs`x#gbBQ*#>|
zj3=mRwj;vnUq5#io0m=2IBp&dVKoJ;&=YZiHQJUCp!}n!9Q~lD5*NbTKIkGwvd!0H
z+;{SG29##hhd`GIk_02PyXOQb$@<dQGpb6&5Pw7E?Sa8E%tj1|9(Z`Yr$v=(-!Fv!
zR-cv>$p0o2fRgo70j|4!`G=W93KV1x&_&>Psw^xlN6t8ohY&J61quM!x@=wRm4VB7
z2C6mR#+PiucJ}w~-P^<IO6713_??RW%8sZCT(KI~Kr!gMXDa%J!}pt$l`e+9ATLHP
z_vaZJZKm0Q2^HfB{&~m~2tV!T_%&}fuGHXF;`OC{etv!>SODtnEZ(r?@*K5lMQ%{d
z@j)gyp85l>UiP<)$4F+0buEuP_+}DF(=+le?mztcBA<>-f!yt1P78YY@S!6piuesw
zX<J&tdT)F-fjn|x3A~*A_TsPHG%u?VP$i_2#_K9qPs@(`bbg3eslPr!dm)_EHk4Tw
zJo7!4`q!^wJ^1C8uz8e==D`dv-G`g_HU@Bkl^v}8!3MNq_o+fOqpS`FNuxO#Jp*#D
zaqZ0$W1s*#2r<i@JOSBdP%Y8Rj5{#CJ%o2m5MFuJY_H%cSXKINFDSRm#*$N0=RwK{
zi;H+gh?Sjm<%hat!2|a;4bTgPMWt3jfFc)zY66Z0j(!t~{`EDw_e@0`(3x^w*M7FF
zFo5N<Kmn*PdULFXKv*7UIPz&OIUn_Uem@z{F_Y_lv+WmII3)K|1gakoc2-B`Si2;6
z)-;mG+@o1}ly>M)93Y)E^$LELcxCbkt|vpWSuXNmpMF^>c+K{*tQVKO|H2PL0B5F6
z3>g?sB{!~t+E7Iou?otpwr8%edfbGI>gXbiTA_9AYOgr}n!5mHcfJDm_FvkV!)7&r
zL`VQ<d1wvDG-JdPw)Iu>Kv{@f2GcdLf|Y6xzmi`M>x+bxH*+iakA%{;hvPXxU04ES
zGmHa(mRiLlQXtXLc7dQ0wgnhh)5HCp_1a?F1~M<;c4>IPB)CD*P{An20B&H2Nc)J8
zomU_vt<F+WJ>}d${__P2am)Q9$N$<{n@uvDGy|&GD44$;VEBAR*B|euJn%IuAbadj
z0Ps5aJ`yTsJf*o-A4F=Z10|XFTs`;8^t<|*N_8#y_doP3fxrj@g4Iqv5GU}Dhf5o^
zAf!Q%WECH^CtQWEw4P@$RZFh`?rQ)>eF&Cn&1W2Ee#58?14i@tbaZq&-`;fF=;=&Z
zf0Wt&-@O20hFNmHkNC^##AZaq#8`kLqy^jyC>{ZBA4~LXfDN~Z{e(K8W$s@+|8kZ)
za(|u0s>-!oI)6hJ%(&0MeJy2A`V=Um&A-R<(!C1jQh;)70+MboLm5MtNe7g!dX)T2
zYd&TH2twuj`)D3N+W9vI8EUif0biJfZJI${Z9hg=WvG{2U>a0f48jtVfYf1so;5m5
z8PJeg%F?iRNh2J{=Em05j|0AO*oXTrF7$oy<^?8E39t>BOF1LIIjeJz>VY-2_Zf1B
z4cUT<)aCB`djig3nF1w1TTBMpVooIeAd*+sYdj3GHR2F2F#-heZbmIk1KNMT3s6en
z<BQcC{HKgSJ`^HT7^)N<Ojt01p-j=nVZDuO;LjZ-jB0GCe9Id+Lx6K{CcFb^sFGPA
z#m<#GRe9ovwh=QXIiVi1-jg=_pvbnPgQxn`%cq|61px)xo*{Vku6L+U)r^*50iaDP
z0Uh%)pk#_yj9K*F`{{xLySP{!<Jf`l0^$xa5R|)NsqCkoi+VL~4^aW7O9wkDxz2)_
z{s?Be>5Su2<*fyn_!ZkGF%;u&z&U^pJ4gZLjdp&QJge^jkHeQ4l=}k+DCx^LT@$u!
zKC1yWdW0@%%>z_)T{WaVuov%Gtv7vx%}{B*jWQYL?N`q)C9MDUrceqby+{#gF86?}
zNY;$ygpZWjH}|;@mvYZu+|sV?dAFh1T5M1P1Va}Ra&sQ31%bgz0af4n`0(qh$5<5+
z56BSx^z%E3K&9Hj1JeZnu>rWqY)2AIWm@-?R~Gj!49Ahat+3b&^O$mJPPb1eX(R8g
zUJqCt7$pHe8YE<ftr~-5K^Iq5jSRB0vkQskycHq0`f28(4P*Kx>@c4qMOU_yiVl)q
z(!e6i>Zk1N>=M{~7g0K5e@C+%4<zhuH))q1%&)3`gRlZnh1oMyYlaM?1#}yn3ViQ%
znvCb$F!fs+1w445?uUm0*k*MbEF4S+s`>td+R6ypURFlfYMmh*5RKu#IB&W>H*Zv<
ztT@^u<*t8Ij9$dol7@d@BSx(BZ#*VsGbEbJuf3iT=I`%aGXk1UcN?frrWqFlt~_YU
zuld?1LumT80$}{g|J7L4G93;PPqi8zJ}P$p<^CO`u}!VRpPwwY^T%^-0O6_Hroyqq
zR5&yE5$?kc&<7tv?NmhAG;r4705F2X_7n1#K;G?q$Uv46&~=Zo`hca==>q0n5>{28
z))~&+2p9rF9T(4|yf<R)RX5kv#uK(Y)Onp#mi@%EN?Rx)BZzf%q<rR|0~$3x(E99O
z`O99I_3uf5DTFP7ag{n9B|VXtfaM1>^x&Fn7f!8k5cKQ5Fofa4H^4*$D0J^D@4*lL
zQH&HQdml0w;!99aWuca&co2ZXykik0K4p=7)5!sT3L*hYOuyUuRsLd>&F?)!?ESUg
zQvrY~hi`)PWmv{8W@ch2MCz8E8kYqQKp7}7hSiUGGYHp@cWNc6;+B5Sa$E<yPfqZ(
zkKPdgw~c;I0Q_GGsFCf0xvsZ|ZfG1~;`#(AGQu9@<;MBfm@S-coAPFtGz>N<1h!oi
z#(_mGU%kGBT*i-5K#P9uD6YwaO*ieS3^8s32tIB=lNI3C1*@5dzsO(o`T6juci=7L
zmN2wA)x;ck9@-1#6ecz^r`{JT_`KJkqY}wjcw)4u=jSkPk60&{>r8QeP`K062E>34
z?mBczcQNTh;Gd<^{OrQnlRrckz<Ivw3+gBP$D&VV-K2g!Ir*%bV#4<OL`-tmJ(-{1
z$*J=?`ZG@(#|k~SM2<yQ3UG@OPeRSL$7V+kp6+XzA?0y@)@GR?3+6G$9c6VC+6DE?
z(Wp58UaVrf?tfOq!6_>ov$GG4vcPfA1!DctaLrXUI|hIF-4X<|L^%_b<(_PTyNn`@
zs6Cbc>v4JDIQ5GfEYQ&QL>C)9mH*{1e6mfHxmkT4*RH1G#`!-sV2TpAEO5PDbNyv_
z2qIT;W70+0;D5R?E2wd#B3ck7Ymc+hI=G4;zhEdvznf!g1{eW8H=$V@7aa#lm;Lkk
ziH{f?*`G{nO*15WbV6h;+5lm8te@-8e{W~&T;TSlhI7twiMwU|-STG<`ZFSH={OgY
zjCTFNUW0h7UyaUVexjjU?a4of{r9Dg4crcQPjH;i?Zs16rM!5-ZCnZ>_vk$y#urSS
zXaY3-6GQAZa}XAUYVy**OiVuSc8bWERM{7od1o2lxzcU2HdR~r#na&Ii8D+-4`_E@
z44h8Asn_!QC%2?q6ngMb@^9auK6eH;5me)AdIF>&UQ2mdZoBXgeiMH&jg+1JSrV#n
zO`-bxQ}Lk&>34oOOV{7G#*=kJG@hU0Fvo%;B+K%z59>2U(O3^n7P>Tban+oMT?5+`
z80|#W70Ehqf9LNu%k;nb#S|_K%KW@f$kDk!Zm7-oIqkGNyX}S3e~vu-)%D(=xB1zB
zx1`yM37DcSHD6uf{NrQq7WqG?g@_4cxY8!fjNIPNrMwj3{d2?%5zdNV`fXEMbA{*r
zd_-0~8Z1pxZky_c4KaS*h|#FrhcT$yf%Tw<^y)un{Tva^<UJ3c+i8H6a{lSt1Nv7!
zcT}yuk<=1N`B1XCL=@yd$1^RT0JnX$4KQH~Pkt2t^O@=2#y9`Gz0Ix>MWI&)5gw*y
z24v8uGFDkF+rKm&Kbd&zpNHm-=QO28)w%AgYiRi1wQN0x^nIXy>FjHK6jt!XfyvGx
z)-Un;8Hd<S969bBc6<oEB6PF@2bCIZR_*BkH?0s&0#x%1lmqO_mK28TvNp$iYnuub
zh@}Suwv^v9aoy-Jz(jxoiRb_GOEs_mpZ4AZs;Twc7p17kRzO7sL||Kht%#^dZz@|5
z6cB0B0*dr*2mwOfqNp?#Md{KZ0YdL25fqdb5kgNu5CQ=bS_mYNyp^!`dH-?Wc;lXX
z?>YCK@!ng5fwI<D=Qqo5&iSoxz1?Me$GknevUWy#S4c$9adWsHbBlj>1BIU9?(T{I
z&?ZJ}=k|#{mB*Ee&+_r8NPgUhxuTXm!>C%z@fgZU0|qL}%dLR$51}qbc@mr_L%7oV
zbP>>+&<KYtQ+$(+b-)>*j5xk>=gDhbunTp|V}Yy2xG15tO!VV%j0@DJW@)ZeKcMw>
z*NWA~Q;k5&3>yh+`<7w$_7G*%%;wPPm<6H2#8c@Yt-?mXk3jQ;BuYRRC=hLS9N*qp
zza-Ae_q4n)4v5Enc@=983IF#H=HI_O-nId})%ogh^@35GrDBwgz5SBCqXRHOF3djJ
zN&5&}IG=f9aprwI<9D!*<qm|pLE6D}jyG{8qo<2$LP<Kb<TUP_CuS*!ZP$@vaaC{?
z7iZ4mztRdC>PjZzaA{3UKiW%D&iq=`ctJ=Qbu<*u?jdr|(}fuocwz5Jhx=N{Mk~m)
zj6=*c!qzA&@dGN{gPJabfFh}RBxf*1lwE#!c~A2iw28E(2)sO1`I1%#SA-+zqw*pf
z#ty7MsT%!T=&N9615Se25A5gX;<|L4hp+`3?cRKcJAlygEUCEHQm-C1TO*~>jbcBK
zd@a1(JK^NouAts+qkzh6WZ%RbIRe~lacLKkbSaHR7IIoDj|O_K1G_X+FM0Nax0Gpj
z+i=Q$<qslKq+HtzfwHjfIM)0nPmX|}k)6yyt6<|CEF^-TLuyTsI(O~a6&(556%@wm
zGFrnBGz+MMQ+$&p%TCKJq!~e9yWY4<RnM^;@%ubhR*A&~B`uT*#03JPir~;n4O^r6
zMt_ZY<6huO)Alq@*oNW5m82ZPAcS~MMe(#qXjpSoh+UHRv9gxF(Qi0pNky+ARST!V
zw{Vc%zo@+J)sn0_i@Kul($R)?PpAbex6y+7EQ-O=ReGJj5vbI6B&)ROW@xFTO@>Xz
zy$o{++@squ2jC`Ft`?LOZKTps&K5OgHEznoMR@NA?e@tz(kFqcDTZJ_QJ!~zhs$TU
z1z~%!@dYH%62fH5VI=kUNoOTyQAj67iK67E#Wm@v)l84MsZzmZb#-Laqa#NgczHco
zc)9Wf(z|libwR+$?rD?qNW#<_yFEejhDBZdyeWR6O!i{qd&o+rkljETUarHULl#gs
zj{N(BtmEs9rF2zWLX08v*Qi{P;>%xs>md>JG$H!{@r9`bA(*a6#1`ph9k4tLdKeAu
ziSMW#PnPrRcs5zMVx=b~vLZ@qO*(wcIkUUH`26OsdB$WP{%>{N;wO!WI<fl9T^m}o
zr+MLL)l$>B6YQ2SjwSmz=1}yUT+q;vHLml)U_J5BZa33xwy1*l7fdrOGz6;%y<S`F
zI$V!ppHY{|DJurC9-MU;4h7hahDuq{IzGs0tbBeyz&B2c(|i|7IQHMM|1iL%t}g9D
z4!eK~GdnHgxdsiU=FJDuxTpyyK62(!4$x+(V}Y-v=8B^{yDP`fUVZF;x&A{H@xNc+
z{CCa4K<!Nx%pd9ITBrx%zb|JMU<t6awjBhY0-K-Qsn19xi*Bt(I+?WD5Lms^Tt{E#
zX!=O!-yb<Cfh@J$CsS!B>Lp`Wpg5!B_|H6EK)m~9u+IIRPwB9c=gizj>ObWHmIT?@
z-}jdIIH;ReGPU!ItLA=lnz`1}+p&S<n{`(rD2yL7VcS0t9@Oj&BRDy1szPgdHZ9^X
zrIXOoLQg;7siw<5sqp@Oz{sq8ns?e?sKOrvJ!qaNFey!ITD$VAX{S>k+oU{cpQKNq
z%j}Tcq3OE%;$2E|azp#r_7bD+pQOZIjQ=VI^*?kS)o@zyMh6Iu^o#Vt0z_+8qjI!V
z`TRkNWl4vf5Ne!mGiVnTlpE^qYpyHqE%LeI*y9W}PeS%t;0SwZ9BJ^nq`UM9_9r!A
z<7tzt`Gh&Xa#T@~l8nQ{MS7bz<ZwL&i9KW&TtsoEZI}sUjkkNmX6HU6ye79XXB7Wy
zjj>F1=lC3=PqHnSweuQj0ihrWi<COQVwm*3k~B3xy%%STh(LhM!|FrEuC;iX>zK7{
zb0Kw_==k}~ucRzE-;xUPImxuYBg@Lfdo`FNlF7q&<$|)VD2BT*TJcYUBa-~;Nb=s~
zW6e6as5U%&q8JsX&ddt)u5Ut1%{9t>WZQ*EX(e+E<5kKEOz4VlS9nK+W`Bp-Xu6Nx
z4xxL+72&GH--^vdZKRTVaf!x>tm4MoN$;?>2s1cK%WQhon<K!H(#qx-*lPFY>P~MD
z;iMNUlJ-~1iqk%lb8herhBj6TK^{H3yt6~f#4+H)2$i1hEv!-N#Jl<FahWm2P`?6l
z9S2EYsLAFb;1#D^7#U4LE}`q;L>FJoMm#UIvQP7Y%XXXxv3sRVMlKj(oTjaVSP0if
z*0{QmnULLiTpchPMBSCpF#`{EH&nsLj5<_G%Tm?q!dybT0SaEFWr#&=auIcECsr6j
z_dGY~3=pN{Cmv1Dezp~b(JjO>Vs-$vyBv?BZPcLMYg6p|e-VU;7aI?A?el+6nm6(p
zM_sUlquo|*`^wj!{T8Hi4<DwE@~6H_0aM_pVD<28)U6aSG)pW?>8^r!&ys7qmE`0$
zjv*02{k_J8NFax}3Q&j$SpmB>AKoEeF4d!j&^DC@d|ZOh<1>z2?GzDsp?u?uz4gA-
z@|!B$;-BtvQ(y>LlMX1Uk(*+R5HaddKoUmIejW$ykh`1f4i0qbRUy<p)CoU^d>&M=
zJYMtmsC^&T0zxE`nN}@L-vlNEhoF{;CED88<hdf-AOScmbFLV_VVOo1>D&mO(7#BA
z`0m`<@;)Eg^J@-nt38!1L4!a+0SaI!^@{`PFLbc&R?|Ty@)R$@Q>${pM|!!B6h|76
zQE_Ujr+1JR5NX}rurF-lW_eV8xsK~;BxioMkX?j^epKU2ZOW9(#3DgzcT3GuoAm{&
zv6r|oH#Fz{p(GHr<(q)X$p)tcLZCP107eF!#7G~Mmqc0n`c`A#5!0c--8%x1q?$w(
z>l8+>3^$>q1(%DsUD(laC(#xCg!!VZ3DV}Ws-QUCadL87g#z7P;wz@sr>vkQ9_zE!
z7pCBnIi?9=;KrCE6$<$=w`FWqwp|#tzW0j>rg$VhH;O*|oS>>0?ws_ld#KTq3ZLH;
zD!`)0qG&@c7DM(o8AG~C9LF`TA6N$uyTM;B_A1_wT|2yuEUUve9Ywr(SoiHONl5iS
zs#$Bm6(US5J5;RW8H%{x`E+oa*Bd5gemWTE3ZE{3Tr6dV+c$D}T)8BBW6~aBe}G;e
zTYgWg*5Fl`_s8(n?kz1G&0GUsXc;kbmWw6DSG@Hrc>&BBz)4I<*`&P-3xv<5PjZ9M
zu1UBCiwKLI#p|R+uSy|`1|J!S@c>9F8&D>w>QQwG9p8_sX+4DiPL@?3DVVAxz2WVK
z1ye^!eDD~{4og={N*UqDqx@ZW$dQ`@hA;J3MA9ZNW@rn}{w0V4qB+17DbIlqT<!mT
zKdH7SdsfN<Cb%+MC^W(uG{!|aF_P9HIBoN{*L8j*hl4{M^JXjlqJ8ji7Uak+*N4lA
zk<gBlyC|bv%68YQ{C9Y9-r_~Qmw9o!jlKiq5h`TPA#tR|iSv{AiDVKPr(#iPA*(bZ
zI0eRaAfNzRlmpW@*>eN@B26BGZ!xpF5iii)R8Id%k^s-`w$(4bD&uJjx3Y{F5{PNC
zs4F7?`Kw87PPOFLSD#3Vh^%xqR35#7bR8#AkjQ6_b*~Je*_f1uyI}q)2Jnm#Vj@M2
zxkFOMb-`&?Sy|fJsu|FG)Hf+xXlwk#j~us^E4dXYN$ZK5u+&0~LSAh(A&6GKAA*<8
z@lrXKru--{Gbu$y=7<O7JQBw2-t7C=C+KjO(2Wyi8on;ulTjg@@!$VVcW<*kHV%sX
z+4wGH<?_E4$EJv7)jwNENE3?)`PTt7xwf0wwLuco#L%7}EO%$xRvSgy4yJYkasg+V
zWx#lc#%t+GDbqUQMIz5=-nc5ZhYJPJw{t!Rmilo4{Yn)vOGEC~)Tkp2CK>N>#~3|Y
zwe&L5v86F6t*w7y<O8aZo*d<wc@;q1z;$08r~^wYS=DS(M~xC5NmHcEvr2nE^ftIc
zR>OxtxJQU*?}m%Qo4<K1l=2RQgd}-ua<mz{t_M)pLc|JM%0!d66_FGEbk$cvR*6WI
zs-x6FU;QDx>y}^W*m^JpK;OXS=+0Iso;&(U-X|mpj~od0d>^U`zYPi`mXICnFZpp~
zi0k%)ug98)Ms0Wc*H?6nHpaDlLdc!-Z6qUh6OnCK0cIT}Y&_-oWn2f{=KhwE`?9*F
zlVR>P5cP1vH6_kEs6Gd*8PR;K(CKdpP%qz=tA9rTVxU%SU^~|XdkVx@KLt1<z%|@G
zdw7{S{J>6bH=J=_`X5ml(6n5ZG%M}S=J<tNia<H?2VKs9xi*|)IiUOBf#!<6d2wnk
zAJy5Nah3c4*peJY;`{+Xp}ozv2-iCu?=6wmGmr@fd?)}U_+N4cX6aoNNejpMnslHm
zpDp-Uv;fbpQ3+A>-C?gkYy37k?b`0^&<3HTi$yT5wQw4}@Dw1Aes>%e)CM8;#7SMb
zBgeVl^`J=p1X)=T<smS%^g(O_{1K!aE1c@}pd!DqywR&-iBn3v2Y@;z>0-!|pN%bw
z)4~AO=&m(4Dd}~8T-9h|>1x#BYLRGf=gBUN(NhHANniJ-o@c!e13)QJAtP=+<}FV2
z&6X$KV>UZTk^n9Pun|50<{G*>J|w`dC0ddFS8GIy*o3pdP==-=bBJ9_(oV~RzPWjQ
zwxvF#H5?h1qwa(r3NNQW{q&EY4A6q&(ymkYY#~!ckvYb$<Wgs`8MBZAZYpC0!)`*n
zARZ7T=>w_GwU?y_sp5w1VRxtJ2GopKoR)Hfz`ihvqz=~vmIpBPRNqvw2y)1*X0Xe4
zGN}-O>}{^i4e_DUQ-)BUugL7Gk$r%^+j&g&RP6BeuAIR{S*8%GL#|WNt{_-2<R{xa
zLo>uE^_gmknPRM|>mEA*RMQY_IK!^&Xf~|uSnA+eiCuhB(1Fd;M%@pqwkc+sB`xiD
z2`hgRlj@`bJJTSKBk*=NP`Wq!`HCUr?oIBPe$I<zm%;&*+ysxYK$e6*nx&52k>Xn=
zk>>k7RS;k}%%npFaZwwSp6k-i$FN%ji23Uh!zMP%t1=|$`LPMvJ6XP305svcUwsN~
zB^hgP<g>lqXwlu`pTsB~_b-$1)+AoF=7NNwzkDM}ShwUh0#OKSSEAK~jeYH$USz!Q
z*T^~#S86rM*$CAaY?GAsw5JhHPm;O5Y|R_79Y04I6<OAX(<1~g5gp*ZDG7-sWeu4&
zRfs6G>MbY&Oe1aZ4r%%TK{&4R{Sy<*6LN{4Xw{98G;Q1y;&_){z?h6mcQ`9Yd}I&V
zQtNS_(FKe*g3mGn&FOnCl4j#-iOtkbC{4&hg$E}^LQ}Spq~QLQd0ZM?j+VBTy0N#p
z&{C=q=u)R*do25e-BY5ag8K&xeubj&>L<Q80SU={oR}36*ny|My;*k|>cE`TS7*FK
z+N?oTv}b;iw_>pwfP01&LvN(nQ%A50jqygrxiNe}Kd3$h3LPhwyx$3bpG7SOq6l$c
zn|TP<RyCp7<dTRoZ7Y0sV{lShSJ-XHm+tf-rG|6(rL<^F;+!Xqg#Yo#dA$atlNBiB
z=G#^(O3)eK2e8pt__n`9a6fhYruXGqDX1IzIrQ_!((RS4;?YWPEoMqfXss8%@hT<z
zOu~40TN0Pcg???**vh()?e3K)snPk^GUIeqE#jL||HTqX&<+|`>QdHllPY3V8&vcS
zq`A<*K137HWRXC4VtN80m9C~;OJ5?%8P!$=xhE}e+%#$>P&|%okliZjTR9|H;Sd=v
zd9SoYf0|tl(>?>$AH-&<SO+r-HkJ(RlEgpYcS6e4JkZl?2w$JdnO$G**X*%nNeevE
zz%TeQq#LlA1OXGV8mL8GNjRK7LvlehlgCL!1iCm7TgdTr9lf3j1|=fHTSD4TfzTto
z1h{AF_^qWnz{z2l(~3}K>LDS_Sfd+w6Dz4QRP!riwqlDE@cs(CF^m(#JsuxiU0y2f
z&D=HpgI+~xB@(7BxnV!aV&`$9KoEWR8v!^KrI7?jY<IJ*B@_WtT^mJS9f3R6j2&Z7
zj_bQ0H$|5%F+>X*l3CGMZ<CS&^`{n-_TrutAX|#)&%AUw1<PdsWo(inrc?DzyHe%X
zj!`QfUiWD4E|yC@*zgz4hNAVgS)L)mTDc=-!ueJ}q=oqTNv&X)(5-OdMsFNVC`jRh
zn2yW8A^;%NL)huH*HqLFL4&JQ92xEZ3MU*si206D#;p~n)5uV^4*l@2Po)6C4nl(|
zsbV^gXpRH4J0}F-7HYtpYBZLh<Wj}y_jSJc<P8$kwYSCj-?|1+m_8Xw&c%uKuY5Dw
z_!S1DO5x79%(ncW0Ex+%k%T8&QPLAkMkwP1QXj4ZE}T{}8MYn{4$q-)|Eoc<5A$}@
zSm1#D$JAV$5&Rv=7vTWc*1Wr$G`a0m6bV(jhzJj-4}+F`DjPW*8L3;I$xSI?gK`dy
z)7tO;9UFJd_`gJlVk-G43xX?+xS*+Y(rz?BJ?6*&^SuY-d;IPaDc8Dj{v%qfYyF9_
z?9p|eh$;*_wb};PidkOaJW`F+<qu*(1i-Xvg~>4NsnFfTN?FX`fa3o?IWf@8OIQMz
zao|dM^{m*kq>ds%tz-A_)$+HsJrx@!*f>^jf>aFE->Yr=+T>Sm4=zkit+@&)KzP9m
zTI1Ab1dKtv4WNCR1-6X2(Cry<B_^?rzC|Uy-&Yn)j9TC>PiK~dbmpYpcWp}BRzdsp
zv8NUb{R41Gk;KL`fNV@}z;?h}d|!v{@7Y_jBUbULi#?$|Ts2&iKP@^=)|8$}o*b;u
zfR<K+hdOIXpSGAlLTc_i4}q_io>pjYu9Y_m*)J6nKV4VwcfP_A$X9%iA*^na{l=U`
z@a^L}%&ZI?7X6Di)(4R7;cK%sgENaHF`NNz3ry$4-??rt-L+gMlztO168uFXb@jV)
zs5?7%mxr*nkHT4=NG039#$I#odl~=N$`<`E1h>YH<GJ{#y12plO^aAB4u%*G+S4pP
zCS~<+kke1%A4UWszeI{<jQ^4sS45hJGkT5XFIvOVW1NHoajdSV_2*_QH)!n2HG4Lx
z9P|DyC~LV~mSv9<84Bu=aA_yfYW~KZx9?yyBHjbLg)5EPd@Ye~)ay&V8{QPZAIqhs
zqqQV$cKCgecYsSd(FtKDg8!`ERH<Gy+BByJG;T1SqaNI6R8kcS$6jdUAB>5FGRbx=
z%^@LF7%tIj!Zf4lYr)`LB3w$cepZXGj4!TV$AV@bAbenXfTR@b1FUN@rUEyDTZ#2~
z#7%YxbL%s@6al1G#!Pq2sc@1J&K;+QLs}}71uB%)SioSAM0O&Ld>0RI^oz8?Y~mY8
z1X;<k!86LNurug-Csz^juysGn2N)aK$3_C}yfB!cwUrP{cDA?M`Ep<^3}@w8>0ym&
z+5^}wBCip%gHFM%6=HSlw6f{LJPe!oA(P!;KXoRG#GQsolk`U#52LnNh9UE^+7q{X
zH^+0v0JD(~{`EpOAnQHKug|+AR?&g3VZVx$x*s53l6z{y+?g6^fgXN@{$`@WAIfU^
zc3e=!=I_+ke*PelX<?&U%^>FbrfaHK=+5L#CC;+P0X~WUhPi?}kbgRZD@8<<f$)!b
z{n)D*`Q*s*MS^SUIBr=M@lFP6$+|%;-J-J}aq*qHHZE!j*D3LFXsJ_2g}By0UK_Dl
zf{UHBaoT!FEhjP3#$O4rZ%u}<vvQ&FEjR~DN|9vsB*%M=6u5(F@(*h;_{zxu_+9%q
zcKhFvYW-gjp8t6*-~m8T$D=-`T5up2;FmbRHpuP4CK~1*J5_|X)e7DX_Opq0L4qBH
zXW(!GRiq7WBg>UcMK;=HyRJMS%juT>jzh-2N0xyI*{(Be<Fk9z!hh8~$bUv=y~evw
zpxmXSHx6lYpJR(Lt=6BKP-N2`1Bic39o>x@i+kZ&wDOMBInTj&_aE{QsB2)HEL^JC
zM>}kZfb%sMu`mJM-OUgK$^D@Ynx%r)*R3U-g9Wm4h$AESr5{Xf<BRCiDbokw`bySc
zU`-@G#O(rNczuXBisLwA&hI}$q}Yx@ovLF~7uy(h0OC_Hj{s$uw?Nd1O=%^wRF1~v
z5@hqheVz$5MdmlsOCYvys)Y)%rYho+;CP&nx!jtM-!WtF%AU`Mve$GAuqr1$9_Mg_
z5;tXA%g<#yLhy>OFSXgjBuTt7%mHFVt)6eVNyo`#ue~B){wFR1=rRp9U^_p{x&aBG
z#>v1|L1sJVu>!#n4fMM;kVu<E1ge7m88ElN<yZ_Paec8Th?LSyi;V9;@-C~S%%>94
zmUDwpg?N9^eBrne4<UmW$0lK9{)`@I4f?Y?h;be{VyjgXvbMgdhVwl*%*jcx^K(Ss
zK)Jt!2mSDd)XyY*|1{BxCGVif>B;cEYJ^m}SXMQVs<lci)7I1qzuva^grfkwc-Yx(
zR`;fMjNgtDt_^M?)Gx@cRc_5r7Un8W>q|V0N5J_kiBjR5<1a8S6#xTVh&q6vq$NNl
z^)kBP3`-r@umndDrTqoig$>IHrMsmHN)00?*iHQpL?!<p*#Pn%sFil}j-g<xnZO!v
zRDS`sL+Gw2!MGT7Uji_rgCpW_^!)%~F3dB(0BR+v7BGbw8Kyf!9u#)&y8aYf$GGF5
zf_7`hyhCX*QgBoR+l2*80uPt4kmu?Xrt_KvF3X%K52QFE#ZLpt$4pR5?Wp>-QmJB8
zDG(^Fne~R@pc6ljYcV%eY}sjnkuoi<wVkZ8`3M!RYyFf1KA}Vn$PcK_gT9uMSTJ+h
zWGr~zc?Ncx%kk`<=8|@2TpAyox;($ud5t<tCd;1epZ2NS;w329S9$gUs!)7jL)c`_
z#eo%hv##Qz_L?gaVF0AxF8%iZeoe?;+-tV*T(}dw6qiXt;BY{8af6e`^YQ~!TwQ+1
zHR=b_3tWrP6`B*y!O9m&a479=;fRgnRRD%8tl;F}W5~x$_x_Fu1nRyPBE-pZg9CX-
zo<Li?ib3`*4GTh0WYNV`ZK<!`@F6Q?&u(z**4=tgcy0)(d*vx^4GyzV@mYnaq8f4Q
zThHeg3N8PRXTw3tv;+=F6fgm>UL7J+2fY243?e83p`P0aN8%qppsZ6(%+ZP&tlNsj
zEL*(4_7bOmr&GYLg2J9S2kVyd(W>?na=2JTzblAQ(YDA@6r#XRjcu(!m+hRk66(}K
zG3VxmZ0}efNB(h7m(ZUN1{*g+NWEi1mgw)7bPm<etZyCX9k3BWZVrfqEV*8^2@nU@
z!6;0PrzHfH=4oATvGVuvq$$rpi64-NK=RX;rN3_PBfCsntHpVuXDF<e(%Z{2jlT{}
z==yGte`z7+bOBGD8eL|-6ATh}UZZ^(wLL5u`l_>r(0pSZt8FiyHb&6&QxWf%eh&iQ
z8VaK+GP83N#<xACF1Ad4XP#`_7Ivk6a%Hw+@LqSU90FDZOw=Pym>Y5$Q+g^V>eJ#~
zu?Z3}0eB#pRR=^&JTIzOM`)z)@F9H``j8Ur=QF9g3~)$?$VIzM+V?LG>Uj&jupS3$
z!w{<nXj4;8LuiSSo#D_B;7-uhP}o|{v1L1>L|<3PVnB0ETh}!g7S5mgV89yTTS8Xz
z>p=?I`AYVd82k<{%I?0E(a_#NQ)Rr=W#~nG?zQP^MlO!ytpdrJP8#C9HWRuNe&lzz
zX_7We#JMCKp$ob+@_4H(pMEl9>=y-#Q>|)jYsf-BOjz=|g$NT0gWEJr!R_@!SDW+c
zO^dCh9~Qk@Rq9JsB6eyWfy#L}R7`JKAf<tx>aB5cvsIHZ;&ySNQAJ(*gCZgZw3gq)
zY8&4v+0Y6AL3%pN>{V<kY2On_Rfu$$3$;GOfoVv6w*{$QVV4Mp%n<NRzRiy)+4eX!
zb_pY%ZdBzcnyLI0=mupT=1%GC?0LVaRb5D5&q;F(^J3;-jHMNj`1@DF5Q!)CO3e_7
zCLO*ANvLSe;M8-{Lh7CY-Qh73Z{^J<T?P-`**`GJSH^O>i1bTsqw=sl$iDp9Rvj`S
z%}hZY*MReQ?{d;Q<4OleIY$nGMLuA9!-a`Jrj<Hk$$EnE#@Wvfcj>L;ETvAE1J1;J
zddNtT_QWq%4Q_b!msa(i2@!|>Usw{ZG58F92@z%Y{TF2$CrXFST&`CRvROh#;;X-9
z-R%0+YMC|Y<Gw0sQ?U2`&^{A@$Qi@GU^&i@O>0K8PI?!U$A7^VoGX3+ZI0dy=uq0K
z8@bYu_l>b%6q9&$>$ayaHCu2;XnYCBaPipr{5zgwFa25)JXROfhW1rSm61{HC!nPS
z9Wy6aNOz<bM=Z}&-$B2uy_Hx*sG0C2T11%c*fKU=jNyI_JvJ`!vDYf16J*e3iVJ->
z4dM_76meBa+AjG_oFCT>UMxm=wuo~wY#)8@?a*XYYVY4JZ>kFMPZGCdTV^ivTDSXe
zmy9-WVQvtQB#p0G1CP)IMA~=_tsiHNgB4&kM1Gv(l>D#tYn!!%hgDy&2%B614p<;`
zEj+%NImLVQ%;`V&>m4%x?0WR3-<~~tlZu{{i3Wrk#l5`zyQ$cd+_Kj*A5R}~{2q1i
z;7dau-s|u6_9zkNp6eZY_vfKK4cC{aQgi}o>*NBdCd39=pGvE;MB38Uf%gc*?F&gm
zjKxuDgEwdY6Muf(u}%%-&3k4eq<JKWr(DNx|8o7@jy^YV<m<vWjMe$t>9do($A;wP
zUE@YAx%qe%xHErS6fEHm|IJRwj>qocc4J7DY{8$QT**<cTpc`o+)do#{2jyjnBY<t
zwo=+r)=}z)SLU9@5&DS7q~4^><c-NLjBk5M1o%d%AYbMnowaZB0H!c9ZGn94f%LQ)
zsXo1W{POv*JI1;%!fbR^6(~X{hv6`lR)4BoD`jLRdTm|Dbu8(M%ub5$zHQNAZTd(V
zMqX(_zWC2L<{?#ZoO0;ipjpuwS@$Cy-;ex+F72Oez&J%t@aS-r@m%CZ{WfkJrt-2=
zBDY{>AU`o%<`+)dX&^fNM5jX<Q49I(%4H8jV|j!4z&+(xrl`x8NwCK^!k&O4>|nl~
zUnR~&w(RF`EefIV89%CJVJuE-AA0jTO>dxyU$qjn7OU}ceIhCzBiCNUaGcCM3<-}M
z(GEBKQaIqRCeYwyzWO0O`3Pg3dYQC+{^x<slGJrq=4)*#*{-VhhvDZr3#Wkw9$*Kg
z@2Xtb!KIsX%_l5q$Ebn1MdOz}Y>e$!MLi5b_UHACz7=OL)->=3EB#6|O?vEM;8AT&
zn#31u5Z=Dl&`Xp#`(gU?EcVKx{yFK3bcXDJ7@C<!Ha>dQxRMawaweNVj5nQ7>-M=~
zb6(rXP!HTuWZqp^{8>AGZLj;@dfwrS)7mpvzhSpum`c!Yb{UZ-jpF-q0+$nD2U|kp
z)YE=^N;|?KT|&0Z3{LvtKpsFk`?Rz-R=P}4rE`VJd3qWL>rVtJ{Iq<FkCKn{HDgAH
zU8{~iaKQUa%=qP(3XQZwde)1#>TA6C@9Wn~|4|mPcQ~6_cJ#G|wk;1-Z-IGK_2_Ww
zp)BAtVTC^=vhWKO!^1JWS<<0>6N$@eW%+BtNZGT-b>CZbU;@Qp@kR|}6dn#ULJ%^7
zC-*m=StVO4OHc9kYt_vpYv|=a)Hagdm<LC%b%Ueq_ji~yp?db$C1#DAO_YGTWT+{~
zY(>Mxc#MFleHG!8?P)!KJ_;)Tg!ZZYgzP7<&WU{|C*Wv%S~A8dN;p#S3fau3U$d@P
z*VrDQT_*ydox7US+XiKobI51gmp$$QjB{W<q%*4=n^^1bnC<=6Tv~5o9`%8&mA80e
zQr~nWSFSEV9WJT6A~Kc5V=Hh@oON?+4VS8>IM^4)7$4E?%sl#zA$ZDqftX?1kR|-4
zDOkxk^jXU125+0kUy97bsy=?!rY6wE))}for1rv{r~bUz(~g<yL1yv7xtk%%iy;$d
zr$4*OKlpXOX|X0cp|C*CUow@JuC8nxdi)$RA-~<t6zm~N8Et+ZtTcdiNKH4peJ}T|
z_5+<i;4J0YH6Ckey(YbdygNTwjYZpI=d1lwfzdj|4QhCGFLlHCTC3(3yCir!OA27&
z<qyu-S{^<^4;<mGtO-!RH>GIUpVW8q@_Flt3x8CY_{-vS6>)0v7SmO*Y7lJQN?0T4
zl$KuX@TUXwD{7a|LxoPM*d0~F>Kc75hUK@rzFsAP&Rw?om44z!Sx;=bm2S&+{=8bv
zZ=S7R4DT&hx^0DFC<VAz{7s5B#v{acZd=5Zu`7tFNAsi6t1LO2aJ|{uJEM@k)sI_i
zlDa`T3K*09XJ+<oN%+~UvqUU?NAKKvfz9cX$dzet{;ci&GMUnAPOLV6fxYt6eVi+T
zfBSdOSQiuF2!+RnFR(|J$#X19j)uNRV|vG3VK8Z6^TK0L#*y5cy~U@NMw`C|D_xa~
z=u5A7V&(CSkjG4SS9<hY_}<W}n&tz`^{1Szczs_oBZ7<ddOplt?&{zV>zs?Wt_`l<
z#`1P*D%of&WcMoQcPU6T-K>(9){eahjY}0>8)sB2l!tk4NkuhX8BjB_m|Dw<)Y|Wm
zVA4a#8R`E#5u1K*YVDRfT7@g?BJP9Oy9H4X595pzSvPwTW)G{sszFFK!LQdy1v3h%
zih;|9J>?3^<%6peyyy=PZ3})nM;Gqg2)gvy6!T<WGadq-r12+>=+siH>MB+J8?|i+
zvf10QxidRg>YRUM9+P*t^szg$Z*@qRv~7TGtlA!!FugZbHTSrq=*4Ahg-KWRn3V|^
zYLGtS8|CCt?P(b&o@E~?RGTa$`#F0aeo_~CChjpxVEC4(bl~yj)2(eDsb{6NSExHN
z7=<n+SD6|0I%TCoNm=dKRI9?zZhenQ=Z9u*b|KQz(YN00`$Mg;x4{&T?X{zw#l7e&
zi;g9AJ|D`!+`du+{Q++$%J+q^ZqW8W1!40wKxxn3W<b(->wb(Rdh@+)`mi#~w8_!X
zvmNxA56EkGeJg_%NtV;gC#CJRpv@nPmi6i|8A)&$`W`p!KE7FUdVHhlMo?=IQl|Hl
zhH>1KT2M@jGEc|l2#LKrdF@2({32_<G^_N~c3Id9Kg6<kv}v+$e*cS+J!;reKoL7x
zOjYd<hFnn6Gr|^w?b6aRt=@P4BUS1T0DXhMRd4SB!o~L;$LP;TRM>N)ZhsK*09nLi
z1EXJyE<t>`1hW-e-T8+P2We#NxtcJRN;k@?mu_u#T?$k6xi#VmWPT;?T?~X(_X^_D
z)RX|}ep?`utL9{$gR;Ksnw8+X+(38gW{NZ)1vn<va>RCi!vA}<Ai>}1?dYem@UZGz
z2wB(k&2+JMuwy?*1BBbA!Rl)nDmMsV&!oqsTJ;t85D;G3I4(8Qj99O%qJ_Meg1)K*
z=<)V*kXB}*X^X6D3G@W%^PF>lP6cFm!3^UPoT_OGnF615uW*mJ9LLg0te|scY(zZ!
znOlz%e}|W^U~axZuMK~@VjQaH?r|kmQBN8mKV-vwSS0UQ>(>ufGhT~F0glO-3plA6
zb}gj<vYa5En;S{vVF;_+Sk?_%3us1Psw5q6Ow1RdmAY%k31_Y4RLUNa40`vt2OaQd
zOVveULydtN#1^-C;RY~#pEy91{kOySZw2Kr{;I!S5K@@$5l1*w3aFgx6R-Uc3rEV2
z`CVFGDjKipo&ZkP>iFIj2@}hFds070_1bn-aBM$gzIx}hp3b4^#-dQtttVqS5SOsL
z>%jS^iiW~TedCuq?I$jLZ7{hV-3M=?4K&>l-K&(?9*;fZC!Hbq?0V|JCtDKjp}e29
zIZeKs2-XK4S(|Qcl(r2Wnl;47`Nfq=cl(PaTH0|Z^iFKQ_!=e&*bV{Qbk!fhO6G}u
zr+*DtAbVopS`m94Qa=D1`pi4k2b9~;he{OqXE&l-1|w4c;JK!Qc8A|Z*v}*z>nAw5
zNu2uG{MPsiMDf(Qks1q^EH@44kQ*gWo?9xXe*^nExya#2X;s8j;M5);#QFG)zu+rk
z`3B$I$fECFZe2Bcn6**BI6fSlDp&0hn&9&e9qX4Vna3~DoTU1!Hm_+-x+dwtar1aA
zV-BTk|9LrKNl4$>_Yq2OC0X@Z>RYoRK(+qDsR59HIIxokN)wSrk_&y9Kl0LT-kd1?
z%+E+K>J3Kittd5&n~ITWK9jwjo3mPH?lyhZh?Em?qdG(GfRAjUML;5`F>?K|ZK3{x
zMCRS_1C7Fc!JGH&WVLgzN{jVK<i5F_m25!n|JD~suyYe{0AxrxK>duvrJTiP=(6#u
z=u2W=#`~CSxECgxE!R3%`e5>71vg-Y*#nmc-ljMDgdRVI%={JXCJ81zxChvnS5`u1
zvJvhaxc8nB-2yS6ka3AHE<9@SFu=6BH;R9TxMWaTVPL<GOsHM!{cG%-vl71JldGtL
zX(IY)R_a}5h3OV05%*)hNIc6l^;O(#g6aGRleRqCJjTtIC^Bw*5i+%w?$%-yklBl;
z)Li+v=y_#H-yli*8R3NY0&Z_z(rx_a$s?sOhbi@yEg1H4t&)8HVDh7FE-sO027g{R
zPslF#HJ~=tzup}3gP0xMRjh9SfDJ9AWWF);M>Ig(<2T5{8;D%G_S<Yg8%XOpyc`TR
zys<_2Ghk=4Cq31`Ze8j+G*r^cO{2j}kG2%$dWGr0q`e$OU(Vjn(wmvkn5~tO*ALZ8
zp*^|^jgvXNW{}pdttCH7a6RCQC~I7Kp%H{Y8GkL8k~W$ar3Y2FoMGQTxiTVSqf_%l
zB~uPOs1bBql5NAmUkbkg?{Hvs*OJW&Zvn$pLmHdPMx@Z#!_?~)-Z<iCW<EhyT1Y!)
z@o@dMTgKaOi_m<Hk<>y{NK*Zr!y)hKeJ)K-9=9jO14bF9@EWK99;`&ZoVR$sF@h!t
zFK;pUb}Y+uR*lUG246zo6x5hV#no;Rg@-{FY#Ip?+)wJJ2}=qp31z%jn_k-~%FNJv
zi%%yzxg{66{Skan=~Q8_SXRL-u3uHC$ILk6{LJY1K(o3<#<p`N*u%i)4>gnFmFOL#
z`gi#Nqk@i<f)(0`>9#j%U!&#D1Gvo)wElkoi_r8usq|oRwbDXH?4tX??R1kDq{f6-
z=^JacMdRqpO%9J9ces8CHUf~f8^Ew{-IvTlVbi}Y=ka@0y>$Of)bAdmj9q;=06Va;
z)J<*^0Cy0Vi^{MGMGMtMivmiu);9A_ZUiuCe8v4CNNaxWd-KddaXUayd8Dz0N<_*K
zo1Vr1Jx5IKkww-+7mAPM5=_;h+#S3^1xd}`f+x8`Gsv-IMX*xn4bn+nEVuFL(AU=b
zP_K<#jq48Fy<Oi4_iA$)$eqGRMPS?3X4sNCnp-o|xDX>45FrNQPWV=iKVtY9n8O|R
z9DZERiXLYK9R2y}jLF`>J%c~ggyaurrnU&->u|_JnJzl95;OhuZsPnY&jzOe)t~e0
zF^BXDee{UK_iw5uN^x%=z;}GFP^z;veBtD#^fP%bFylS1$;bYN%7fdI4?tg4^{VK1
zD-5<Xd%(u_r?ri`5Vt=U0jj;&6P&b4GMH6ZV{5=%`OAbSrlZJ0=|OZ^VOi;w+OT_%
zJLZD577ChO)JD$xAC$Nr;)S}k`9>8nWy<~J;pMp+>Z_3H*Cx3jkt=B##&<7j=VQH-
z-tPJY4Yc_^bk;?@&LmL|QyQ)CqRP!CYfBTdJe$zB5*KkW4E{B9#*`!)aur{vpBR#n
z2Cb_+zXMaI0OQ)cdJcK<aIVbEfHbnl=-cjaYh1oI3q`$m!KG>=haYFr%oIHIZ+2zv
zQyz4mJ315B_n!aToWzSUrd+GY7i-H^(G$O*7~4pZLvLON_bD8I0&256s423!^!%}u
z^tNP~x$o+qGcSes7v8E~ls)AdXE>m8z;LPmquu(+8~V5<ixV1qjkdeNX}>O4AKpCE
z+Ez7tvutzw`6WYIL9{n2b_5&qupyDHJG>jF`ad@}dfy|Gf_sX`9s>v^)v68`Z)yhi
zFzUO&QZo3#E6*Kqc!$;2@A36uW4d40Y*iHNT0O)I+WKYL6;l^^d;hm~Z!?eStM)vL
zw{Km|(yxE#ru9>y+v<pqEF-I%^**hUnXvpZWqN;IiR7L786V!|;7Q>;t;6^4)tPXy
zVlL_6KVb;b3fF{A#~C(oZ^}*{h+f-LDEML6Qwfej9@e|0mC<{-I@9m=*1pL!%mj~>
zuwKPQcv=*Gf886Yy_#8<rWjVyw)qM&c55P+r92c1C3~Ag$^r7{1LXgT=yCYZjE?-L
zhF<=^+&IaVzy7y+p&)EP+P!XNOiOgwxNE2PYxY{Y&tBj);b!vGpRAXt=c_+le>6z3
zoLGHA*5Cx`uH)11TMa&)-sk4EqIb3>%RL&6b}K1+2{!ZBCoSg(4|wvHPng@BHz2u+
z)j#!1&~^rjd)ulH<%$?J$a9F^6K!^DVR$J_LNUJG@QvhTen4-JP|9OlnV)v8D8lpH
zAWqPY&XQ=Z<3<7>gC0CI3%2u+r|i)bu75^0CfFBz2N~S!I6p~@2Cqt+`E=!JX7)nn
zw#<BDIoxPQvzffqDv!!7IUVqOHTpif&avsNK`y}QYFp=k;%9dv%drz50(Cj1Q&miI
z`cwQMH@2iFX;DJF6Z@2p=pAs_m%iUi<>5|Ebj&_HpWWNxcHci24p#09I=vh+8QRJV
zBYV|QnlK$vPrgMkD7~1zQaUoR7Lc&B%Y1QUFKpk2v-)K?oqpHc0gZL%SIxs^rr9ht
zWiJ1Yme5~x^35Q|{m~@tr*F<2<A>BbBpSJOsZSCzsexr9vnqc&BhQAGSu7ahS?1E(
z*xE*7bhzZf<`bJ2{1ksy(N$X2NJkwb)X`QAi93j#EZ?+YLX7@Gs84s;5{{WW7KR}m
zc9sp^eqW>$csj$guZ(}}6=$mQu>P%kVJpuo$9Nr_*F#ahrvvEgRm$hzhcH&Ced<p>
zpLreAg5uS@>fe;R_^!Su>q>LmY5lSH!V97s^jqc*6k_$h&8g?qM5)Te7D%Q}&LSU-
zM0j=Al|ijI4AGs_T(tMS%V%Yn<{<p8>G*Jop8YEntJp9!^A$1ukgd_2qp=!jV$?>K
zR>9hyBSyUW?h*;rUpV=p-dM->CN(|dZupyyh!=FHrkl<a>E!~Pxa+`UnG6LS^29wK
z{nqEL1A<A4d;^M0f`oU2;hKN=kG16mE|(qB`{iR=z9g*?gmesWb!1RGbf?~peroW{
z3h9`iY{|OB6ZlH{Mj@kK!tTjv=p7RcKJTW_%);|4!L#bJpS|zQU+_U2LYB*9;%<OW
zbwAaBJB5hVH(4;1NqA|$TLT5TM><VbHx*1HypBD{qx|;s;y%vMu40b-+!zVlpK)hN
zVM0Y1)h%QrOAZ>@lYXr}EcnIuQ<Z!|i$#mH^7MNW%~JaafCjH`Y1(mYu)ru|vN4G{
zA-%W8H!dZf8TW_~{ds(;C&!!2)g1S|LId7b5HO|^JE$e+pAjyhLE}>38>}0xtHsSC
zsc*;5W%oXiNVlr#9KWtQcn_HK?{}2Sd72;J+A%2rpUe^|b;y50E1%mD-;cI^@^+YI
z-k^g`Cq~yQhID4$u5WWZppF(=u=Nh*doZy6hebkIWKu3QQ#EJtl<9~{d_{aXK?Fyg
zi(XCAWZoW_kYl#BS@O?tB+_QTL$)H{)Xut8%f_)A9aF#a-E>yrP87TA!>_7!9(F+J
zWRE5MiOLt7)|1&wjnCq5bj|ShZ4m5pGu6ElotWQ#Td3CHl~Vq=cx8F3Xt6_>baLR+
z)?!ij&j3BWf`Dbv4dURkxR~bZYO7^RKmS^T<<eyQScq`0{?qsW%wkU@9ySUcE|M@b
zpBau>=1Ut$_}P_HX)!CF@P*jeBmDO|A%oztrV<MrZ6hCt>_?kHpI&NQzpFR#*LJa6
zhK_`3pwiC=x0Y66)MlL?K~Q9&9z-HN8)drjycT)~*q>gjrO!t}=)av%KHv0$DHL-8
z_o?C8ckcQdA36eGtY`$)B`_zDPyX;BQcPQ(sE{X{pH?Td9ARXgrx8=u(z%w0`WR9t
zO(#_0fy+F0!lfE+SLXvwQ*O)ER(PL-dpb?2?^1W6sA#)_P2E&jLl&33!JFgQkk(r*
ztj@`;2ic6+4OhK^2L4UN91B}ASp5(sC10p1fPzyo;7B=J7E3x;>Y++!-Y5aP_Y46o
zQD0Qkd`I-PTA6TEOm%W%u1yRR8HIM2XA!k2EYpPv0gRB`fKa*AvQX)a#(oKVbjf|I
z3mwctI3svgTlRCme5m7}VM&i4SBGv!UQtL)o^Sxe{AE`Y<pxdZn+o<Uv|d+YNjd7Q
z0k}gDWbo$g6j$rl@{N<pp8MC@w52vXEK^htp<dC_bOLUx*ZsyiSTFY=%}T!umN@aN
zGkHJw0GhWx{StDyC7__FKJn6<a(U;3E^`HM+(f1#wbxQyl4o1~0g3=~sb0$6etYRn
zz}v2z8T*d$_CQR8yL`l7<laU93<8~Yzx8ChcNfN>bOx9JEi-x|O;v;i`O^4MjTZ5?
zG0T+<Zap5Y^ZZ)St&viGs!{7P47x7agtW#y@{@LK(kfc*#lmw9U{|kWai5_iD}MnE
zgfzug<P3g{S3R+Mb2c6k)<pHjypJqAq(|Y={B4sGHaMbgV;okwrI0fNc>YjPyu^nm
zpmX5M+Hsfkm+B(T_;X#QjO)Jy8LitS41QDN^KDuSZ6FdObVV~%OZq)Vy``jUs#awC
zR_ikqrOtd_u8ZdD#jVKS=r|Moy4;&jSUr!-$Amr&5#m7^(1^>9lij~TsGSY0+<_fU
zaF+0(e%FLyiSH3*?!ua6+GNz)L5jZXXKFEq;^Cu^xo=uUiF6LKZIZ(@>RT;uGCXVG
zaZm#=q4(_NFk^FZ*EExV3cWO3!aVntmr_DgQlp3dScr-^t@+(+@T7iy7)xS3@yms}
zmeS8e$uSYt#+vPrA9~RV9{R97KOMe*OPlDY)11r~u8lpt^q5+QnT}%h(YLyybc%j_
zPabFJ81`bT)+;W1XFX4L7+WKV=gw3qddZQ;?*wB;f6q@~84O549}6{2Uw@O=Ue2cP
zO!<pT(${P$rL2|GahS|tgHv@V_?=$-Ja+$?bKE{W31<V^OV7mB+TC<bec5QzAoUB}
zr<@$M#DB(rOsGTsUGMhW3TrpUAF#8@W70OpEnh;9`GGvQI-+BsGv70v0%4QaTK|~e
zcrwqljSq>?7u`ZdUAn?Z7{n?(+LY4YcdmxjwoBG2!6gIZ`8QLp0R`_>UtfYtwo-^I
zr85ezU2R@$e)13!yMNxOcp4qBvqJeUuS9x%*4=0Llbpeu$1n7aN|%Ct&pb%ov%i0z
zSC5-XY%*FgZ=5(E01|`=Ab8b<+~@)i9?d+BHqMKW7HkMwpL}wT0*y9piZH2<Z^El>
z425;}0$&Xuc}m{8&KC@-PN%;ra+(iNMg8Rmg9<{qiFL^ndz;H@wj*qjaKU|Lp7OqV
zYrvM>NU+?1l?N-Pm?N^|x`jzl{Q_D{+;wC3ou=eveeuXMIkbuQ?iwsfc^$ZmJ+J^j
zs2vhxDuYG(Y-O1Dv@-eogQ_1PTGb{gRk<{We&WvXm7k}KmsVTMgi7KGO=m0Ohx8ZL
z$3TphE=KdjLSE6f{*gL|A=zB-_BxOWe96CC$NE9WG4<SIeD2tmh9C60iGdUT8AM@q
zv9S(9J};@IiOPJ&O%c+_%skpM<TG|z%h~uv=X#ooY8ea6JL;!rK0C+l9J0_^!zz9p
zk*S8|Kg8VZ3ug@+rpD)XR!n#*Wnh2Gm1gZk_O=~`5%Fbbw1@KV^k4cmjsA0|WePlw
z`r90N<eAN*YC=9(1VD{<(wS>c+FIwqLJtNAzf<Bn37xzY^-lb!rawQp<lslHc=Zy(
zazkWrpPB^gGkST+Q$cs&OKR#tlzo9G?gk$7Gd15RiB`w*8M_7$O)>-t(yf;zpf{-6
z_3r6{WowLPp>peLAo3@1WHi;2Wd@w>4$c(j3Z%GCtkK^VpVsG72!LubA5?E|Gzu)P
zFpJ3ee;@<0D`$1#Nat-f`3G)^11SXs-b`+<+q9zx5&U)6rLNaosFTgb);|_WPcE1?
z!1fCzdrYLZy!<Zaf88WZfn;Vy2JBO8E)99QdwPU?!G53Q^&qbAhFF9TAH^DTn}5y3
z=Q!}~uuDhiw;DCBU7Ra*yy1=Q`!q&A8p@wB#(2*UE(hVv$Pf4-gcI^vSMwww>OrS8
zMG-qpu`mKq@WArtqH)|hOV{AVj>$X5T6eIq8zabMM3KMWs=6@Vny1#QX2l32*D+2}
zmuS{l!)%sbs!wW$yWWIIrTl}~Zb$39DmkQgi!;sY@==NAX%t}?S^2d$I#|SPK_jLw
z!>&O+h$fk9Pl-!j2wWyyZ4ad6N9d279R<}rp&3rT{H%=9uISxZ2yE2ofZ>)VC8VwR
z6rvmMk2y1pZ0|l~nZ4W81ZN0ODTh17(Fy9a;Y0J2PY=}vF(Rz0P~n3&safy-8BJnb
zC#tly_N+nbZS6-!Z_ZM|e=N^m?u<yf^nNNv|83LWpo4ziH!^$+!QyLYL-~RrHyT8e
zi2SS5bpCRo<tlATPskW|xPYeAX3XIkP}in+sC4#P6TdM}_^=IA^@;wKj)DqSgEn@Y
z7|n=$64`%*l=jRlgqZ~{o2+e$Qm9ULFeYq;x#F|g39+(W?DU82;n@mJf%<35mkN!d
zWs@9kh^ElyexqLG=Hrs$MGe8%F1G5n61pe1^v4Y2CcR;z4^UW&-V*)v&p`5$t+V7&
zoCS0bMg4~UNX-5^#Du|zm{sN0whsipleb2tW^dQFkoOZdh}FLZaX)zUQ@%9N=l6gB
zDok~vT-|E_WpU*k;aSf;3ISMYm;^p63|ML)Vc~^<8PB=Ow%YH_;v@gQ4Z<6%zR%dF
z8UGV(SvPa?Q<DsQ;bJEQC3(`D7<t$^?do4NSn1;-tKkHWH}NK9U}?C|Yh|rOf!rM7
z`e_Mpx9X9HX6HbA5_5&eM2!D-_YC44V;rkCg9oAeGDHjRpiMho_tieu`RaW<!)SOY
z&Hwxj4w}xpuz1MpxDGZ%@;YtcM815#*caI9o>~>7vF|UIVhhKQ@0MyW*Dbf+)<jsJ
z4j_Z{Wy53cxQ!`zc~i7o(@92<BM)@YiMdb?$=_5~aEf-Uoo<wRJ`^67)hE>6<;=f%
zzDM#)lfX~z5IIaZ$7eLF2pJV%yGVI^{dF=-Ym&-&PF~ISHtIs|?>D{mrn<a2>?T`&
zJL%HP{Ek+W`u}*E9DvCg*Dgi=|KI;%6gY=u@qMA~gNXgu)63q8WN_2?&$1hifBheW
C%QxNt

diff --git a/reference/plot-7.png b/reference/plot-7.png
deleted file mode 100644
index 8a27bd5af8010915f2dbbe02468f50d870b41919..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 36890
zcmeFa2UJwqw<d0AwQXBzOo)IeHiE=P1w;i5C@qK}h)7ltQKEnZNkwa`B~d{{1uPRH
zSwM19Ng^teGbo7UOp%Hz<~xP`d;Om`GynHy-kSA(Zw+g?tb$wjo_p>&dw=`e-`;gY
z<EZlTpVt30Z{ED+hksYnoHuWg%e;9DO@3UA-!$HNG=%>ao2V));eY&09mt~Kzoi#`
z*L9dTkMBD9H$R|b*lgasjq?sG?K|!g*4KRLrM_8);*gNs=w8)C--wM>OYhk}`tf9h
zSKI>4{%C`J>C5)*TNMAJNOFtlfkk$g79BhGLqXf#`Qmr(ZClOBeZ1$@)yKZ#SB-wU
zI{sd$WH5l0DSx2slT7EYjImMOn3&x{wk^!BA3h#!v2}9Vc6I-wU)UpidNj3a5&P8(
z&mXecFSZJPX8-2*t@9<xFZQY|b(v3IXsWzgM*hF4xxk40?{$0S&;s(}>1{7A^8dz&
zf6FP%+Ek6FHIM7)C_6ejzNabXRdx9OUbGIMUw2+a)o|VmJ&6z>e}8`}Re1GJg7Ih1
zY%9XwUj5$w<G;S@y8^Qi!?joUZ~E!#eqQ&X*AWs+aIDwrU;gI<Yu-EMuCM{e?qrTt
zn$kSRZ%COIDXFQc`SR_S8E<kZo2-gdSfgWf$!re}I3~P$akaU=zW)30-Ln3>2hv?S
zceiq5;EDBTLkq7f&U{IqZ1ZW42r*iJT(R<*nomzp&-3_r|Gb$FNlwo4`g(4M&X0cW
z0g4K#t)7hMF)=<%S8XXcEEK+4U19309z*x#xnp6@Ete8&joc2JnwpY9D2yit6lPx<
z6`+-I*gSL{b7oC-7QZ}SX_EXw#wRl~)1@}6WettlXKu=xnZhM9K6=<t?YSc*J-Ss7
z^Nn_v@n2+?$xj#<xOPWKc}$Phoei}P?6)Pi8gz8m)^8ufc@pwi(+?T?T(s$`$iVxQ
zksw-Zr8UQ%p;up1G2Z@ULj_tuF+XL`$K8Y3ldqO2{PILO!2jB{Yjv3Jw)A#?pG%|P
z4q96FUTX<fdZh7tPc&}%&Ye5+Z7Zv)s`_QFXut1#qtWNXeip(nT3EvYl+~$?Hd*_X
ze(q^qF5C3mDH^ULUR6`GqOP`Fncwi7g+)(V!d9(kzxH!U7@TzJjtKb)$6MzyA6)u&
z@2b0kF&4ws@$vCDiNzZlZ5bZp^^q^^JKpW{s|^%X{fRM<HRv^A-IQ*3_3ARN713oT
z!Xb9MI&NzPjytz{On5m;8fB;dc4_46K3fVOAKyXlg!m1vU5}p5@;TL={*>lMuht1_
zG)u1Eud1q=AQK)Qew8*m(|Ogdy=b{h>-zQUf5K?_F63O{Zg*E`jT`*-?c02YVTy%z
zTI0`8>&mV^s^cO%r2F%aE%cY}QzLcOY0YhgT*hL0w9W@^Hb-a*9vaG<KR%G(?bL8S
z(q;66?2_t<X6IJELC=XS)8V#4W-8;GY#z7bREfGkNNM5e>wIgmAguHH`7eFFwR7y#
zfh7jBgOpjuIz><SJu^f33sVh~&K&N`WenI2=1i=pORZCpKYGP+mN`+3Y3AWjm^@WJ
zZNSgyOIG(?FD)W)g8y*#x$?*Rng>GiX3Ub@`x1)}SzB8t$jG+3JMcPI9ZNh@5;&h>
zX<^~rT^U&{U2CxY?K{=TzunrV&xY#BXFqu3)~VFGGeK%?)4d4+g+5%$Zf<U0N2lI)
zj+R$ctdz`~vB#cPJStDGdY+Iln4E_dv|S>5=*`!Wbi4Mp8hu;8v=&#<ktz3=X=%k;
z>hf!pH(WYX@eQ-(dtim!84cq!)<{Sm?}rZ`5@%VA;wJ$L>+$+lS?80K6lqLXYa#A1
z^d<8RSMD!DVHfr{Io2AMfBN)`BC}h)J*C#j$3TKB!$86ai+|_0yQYET%hrlfagC>C
zWD)G#qW&N(?AfXJcctv`(2FY~RG%a#Z^v+UNJ|%9UbM_4t=UP{M%J;XYSZqNy~ZkX
zN3YOf6bf%|)yib{#~3p$_Ry=e$gRSR*k>5T>ZOQ~C3;uh&58Hor+qxxEh$mYpHnN<
z73DMBtF?8OyM)5nV(L^RXzn8=%v8#tTPshpd6|DFjiR8ZufLgArfhC*p3R!>wd)Lb
zF52MMck3ndy}81w(hy1G0Jm*>uC--o^m%Y%h27j1q44L<I4s)hUwc1Nrb>-vo+pr9
zQI}{M#M*K+tZuOO4P`Q)--(e)?@w#Zt#L9`m;Z(HYLL2uoLt;q_0l`yy>#h;xU`nc
zAw0l@6b}WOBrmqY;l?u0@nnzGM#?NR$cfRPW}G)69#XpI?8mTsFBJ#U+o!Gc#X5dF
zdiBj`b^aH{8{B^FFY@Kqn(S1Z%@}abq#C(=x%%`0tlxgDhdi>0@4jp`@e!Zq?VTF!
z<QmAEWho>WZ^jw@6{fqMmf5<u^LV6+cWhmMttUg{{oLIt_+yoc>ck(p(>nFh*+#>d
zLw-ynd%VH2q=Oh7LqkJazxtlxf}LM)9tbRLoh*`FY*2hc-+B!>Tp*|<mOlMKwsnuc
z{CJ%WC2P2d#}v=m(wbIsrtR`FiQgq!-A6xIT2G8ssuv&NkYCNosjaPThkKoHYfY-R
zGH`BoEYTTH$er$a%<`()t0H~$O3H;VZ(Q1L2nCi-w7A*!!SwM|bzW<*$?6Y$qSn~h
zxMYuY0S6}h%+&ksWql5@#D-3OUZPmnNw++cTtE4m!}F#Ai#3s_SXXhqT0@@8J42HA
z%nIdKSr1m=;4@Q86enLVW{NP&D6G*lQ+G}MZ^WfGSiEX<9}R6ia);k@@{3DvT-vnt
zY=<O8PDE6cVO>eLoC&qbJl~f!n9EEZT)#!!ICsyk-MigVGO&n(IuhJFL`$ah7+N|y
zTx5&bPmyzbrER^V=~sEmklf}7{7Gi`gNL_2Dlq!aOf|N$oM`<G4GnF|iqpsJr=CCY
z7kM|$!^0EwkP)n7bR#u2_3@bgkppxC;cvM=V*J1J&mVN%HJCjb*im_OxA>MLcgYg>
zhR<++^&%xwTA6-OX@-$E%Xny$Jo<6BbJm_u0hiV8?>PTTA+65D=L}47$-)hC^`l++
zaP>yk-^yq-F=zQ6myOsRjKGe_2d);M(i$}))<?e19L&XUR;ll?%VBIy4e%U$QZfPq
zyVf>)xJa+D*`ZASR%wTTfC;Q$fOuMy{j1zY+z4EkFBzJ`&>tKHcl2$zrKP2h85%bC
zw<eb<gf^W`FKgbj?!UXC2IAhx2jS|dCz<&=<}?qdzMP2`Dc7;Cb=%J#3By{j!*wRy
z3eG;#pbF94w`J_9OK3Dtu6HSOYY8&&{Bo6R+FJ4MlSRq(6zdhH#r}N9`4(OpD_0Kc
zSje&GH~5mrj~;EpK6xA;FJWO}5lAu2&xDcNmC?L+BJM6(bHE&UG+&zG9A3n^ZKTub
z&7K+q&q8hVEVFzhb9d@0^u{Jn_a|!z7vR}&KRM**O_tzr_@KKG0X8R7t#n~rmGP5C
zF-%EIvwfAry`J1^&D^sSnm@Ss?k-0QF)W*J@9(X;zQOfe+GpEB?={0u_?g1bj@(;m
z>(<!VCYv|)L66Zj<=9hHRJ1RF0>7nxCp0vaVZHm)v1dFDp4PCN_Ak#C^n8lT$dJ1q
z8cJ+5Oxly29QmnQ>DbcF(USgaqrBM>>mpzGWW-q|m2AmR9eBNyc;*ftiOlD<bXX+S
zk7fGDj&UyGcfXLw3<nw-&M5PU7t3#Ol&&hfYBGl-F0LH1d3gW+{kw7wXWxg)O77aV
z%LJa&4tt|062|{Ij4qW*e2W6$MsY`oaZB&G{K7YXTyBWJBWe6VthTl`p;La{u6%A!
zo1b0%&1?B<MV71*I(o#@Y9OQYfzLsowT@Y=Isb?qe+ZC}<{>}&e!Cr>>6Q>hvX02I
zlgynoAyyy8AAS$8q$CepD&_6OxuM0o2Kz7U;gY#%`~&vL(;%-jD(s3ckF3NBxvw|V
zr+Z?aL_`Qm<cw8(ot~X3oArhJO>VT_cJD}<miV5DCWk9}ItsKwCyVR-aB>S{By*2!
zsq8m+t**$tn6}sE#cU?)VN;P<P{~Ecv6Kh%EusKfcDDO&4=mL&bkt5V5MFIk6RTU&
zLAE<{oL)&|?a)=|dH$r0#TX0-aR0hl%5!G&+_`g9E15>o9UfC1A+lo<vDK$MUs^qU
z^8Pv_<Anl403+WR{zLYG=h4w3M-`c4cX!&EjHJQh$LeHF<jpcm?2S7m`lC7n#I3XX
zQ+stgKJ6NMwJ@k-(XzF-Uj*Jd{qFYGl96g1W5YKpHSxWdT=E#rgIhX_n7zic>l3m^
zRFsr3A@Q{VKa5v7>dRp%FW$4j32U#}|6J=Y_l|6_u(S*+y&|VM-5p8W@Iq}XZP}IP
zIe4}CGv8udQa>r%sy@l6mSCfj5p5kq>E{o7vPVCv-Vsu}zZyuj<(0^F_L?{|6`TCg
z8^&wpi6GC}VgA`$Vzc9EdHqhSo#hBBHmP`em@{#DPqO953`Rab>$mgU@4iayEsv<K
zu3i{FkyI+7PqSxK(d8QH*ZZd{=v`lPZ|6Ile)!#6Eoh;Cs;OBEh&S-?avkvRBt3x=
zZeY|HwHh#km+Yay(#lBn!HMe;XUiV&5wK;SVOghdGhSyJ@b%?_gq(3bUKsc*tn!zD
zQpGxX)76i}BpscAS#35o?_0vRTJ?_D*3$=b!X0aLOGeW2nEmH0Eq(ZzUCJe`3P6i1
z>Xd64b@byLmJR@v#kF}XI{o=eTe72*W`YykBN{oL(k~LE1DC(+6z#yUf$;dhSn$lD
zH_J@>>Jse=IF$>qir2vTSzL5-I#kf(;FL?R(YM1$3UPnjq9<apz2G70EE95E>2RFY
z{b5gtf9`u(d6b~gEsB|U$~xPpI%xr`j_!QaSo;}|qe|RYL>3R#CZprd+p{{h7H~c~
zRyp(<yTUa(1*2t(t>SNOY;6MsRqqtQcCREM)Np%oF##i*!A5t;)~IyJ9(gC4*zD9;
zh?Db|DbBjvtNcl={?fWkGW!?V78g@8hb7~3RSGj-ID`Tw$Sx&-YeB^o4u$l_>)al4
zZPd+y9kw35`gQ=|g{qP{s{!8x1Yktkq9Px7lK}16(Qv&n#)Yb5%7Ud7tk(9=S2+A5
zX`Z_>_z^M;e+^PEx~05<8!m3<;WTe_=YFY)gV-y3e_C_WJT5NoD)nS1W%S#J-n3R=
zKacR~M%UiBWq@$Nz$C7*1|-_~nVE@DC1|{u&$-E~-yy>w%@tOYVa0g6Ibd~kbac(7
z_wfBO^Ly(wI<_5+46|3M_=eDCAgv6cr)hX`(vv5quk?I6w$rBG>shA5vo3LDeEj(F
zO?=kCt}ezn9DVK!{8lK0Mqy2*jAu!hy1$ny{@IloV(6rsR?6J^&EfR(arU@fcV2du
zN4Qqd${J6*iy-)6gKcK_GrL+t=jAR>`$<Ua@a;W!m7H?G&Nk{v1gci4^=Gd{KdRb-
zZH9Gu1EB)Pv<!w~-i8>C?@e@tWy8z!!+ptRMOZSrJ(@K=PlJy3(9_`VY!p}4(!9OB
zT|WP@!~~b%d(kf#Vz5%j!0zC2ZS6RRa3)r>=eExd*}1t28%Wdx%(=MPR*JUlK*}6s
zdXiMN=xH_FGp}s(MJ)mg?HaAq3ITIBa461P$R4XuJqE-xc&W_I1k2WsL^AW2@ct4U
ze1)gy-gfgM5?0{}`RLnZ2(A@7`HK&ir2q8v^xYljHILleCP;v3ohPIJ`s9YSt=~dz
zH^BYbnsir048wHo+JKP*ShId1caBF@cRn)Q1RK~pN-MIcDoV?=>iMw<iHz9(7x^oO
zixpW?tO?4jtWEltYbRfv+P8-_*<M~%wVF6<!T^vh#XtS&dd+zrv1^C~<;i1r=?K;d
z%nL`9(7XDLKlk=64*)mPVP4wqTgKmjd;IN=gyDMABHtU#iB`oGJ3o6(eic&W*0;@}
zYcySjz4itw+=}=iF})``rme+o&<`J$IOMl}jn=axH}Y5P7W2oWBo5%&vuBPyS$7e-
zHq6=9n_CfIYqDR@dzI<nO^B@jHNzt)O>nL9mZ1926cU@Ndg!PWts~&pSM0whh>kzg
z5MHffNW9{_dA%Pw|L-tO<YG59gCit1S`%!7pDMGTp96jg2!JozAuAh_et*Q&efmzx
zna5al0s<r|efjcs`s0zn4`-hMpa}@T%fC!by@OwA0-~g(q|C882%ZJwpJyLGaf09k
zC8diOFDfDMxgjbdX;>Ty__HP<Ek6n#G&&|`v%urHIC0=}RfA)fqQI13^-zCPu+-Ah
zS`{1|(>k4&ntDhgMAYtJM?`9>jEIPcfWTwm1dN894`kD=5Ag~z&jGP8?C+O|ii#?z
zzD>jOeS2mb=V|wvqNbO&-<~mhcPV^(mJ?w&V5FlHlHF>ov!KQCc4>#E)R$NQq$68a
z!S1c0uSk<#74~w^gZ!<bAGWktmY1J)cLjj@y{LH9vcJYx-P}BKxO-DjiHj%wN$+S(
zT-=ArF%4badhv(b6`HkmbcEW2?r?m)u2t(*%b>MjduQf&E`601gNR>7VZqSAdPEK!
zKki9$jlo5&WO%Obe?1v{HN&knGuK%rtt+m#sd+ReEq*Y(a-_xl!)uA&{H^QB)B2C%
z7|E&r4{6H(d#BLW?O8DI)Xon3jC0o3;w6~~D>ny~C@CpfT3V7t`jjjfkctu|nP8cO
zB|yva1S2w$k;t1F(F{4Jd7aPc<dN`QDOF||w8jrd%gNaPdG7z;&o>`8i(2-3C>C?Q
zRi^#$%j(@tzUt0~#hd*a85+HE8;T;cfSau|c#9)>E!W$0OxHa<&Dbi~UYQr)9`xa?
zpE^e>?RDwdWCU6&hKF>!r)D187DZBuB4x`Gavk|Xe{8P|$~ZqOlRBYr@3OOG?^7^D
zBBC8_^Ul)=3RuKtpwY8UrH8uNpBmuNXBr`~5T<fA;mMQD#D({!2EKEwYH8UZE-oG+
zVY=7P&+irt45GDY?HCoqqxJP*&jbX(?kd9q+=$sK34DYNvsnPt-$4fl2eQNKtz-}?
z3YgHBD4eh3|2Yz#6LeYtwOaBhum((zY~w{G(9*F68A(-UW18C9Ylv-1%q#*Mv{L7|
z5$w*BXV10>2#|0LKLu-oLl8X?ZkkF3RPE~P6Z>v(?)`>Uru^LiVVTKMpF~A%{ce2_
zeIA41<K&Dv5oiCW1IO~^%S&#Z?wFj`vw*ePF54f9nR>6r2q_xY9W`?D_|c{I82Ec&
zZp{#>htj)W?|*dD+x2?meXe8emHM>_;$KHEwO1ZEc<|te0E|xW^m)^a0m-W-9gMn*
z%=OwJ!gOm+s^IpQy7;Nv8s?p@E-(MG@bU)CY@o+QW##K0r#UPi=yS$!bp7JxtfQ|V
z`a^bqfB%A^4K?oRe4OJSEI|g|%r4@gwbcCZnX@P|GJbwShMTS7!XxDR6W2O+&32#n
z2x##e+HA?*CsF_Y_4n_}cl;OMi~nyf{x|br|KD{HE#^4C@VM~mHsm*a0QNUOaP5f#
zsh(IWkyWtiI`2xifeiCA+wN(G5c+MN#*WQfK3gMj0{bOP4z;0BKr*!hhx>U<G|PSj
zE%5d%-^-uL!M;D^;GCI}(smN-5QdbnelCp0)(tQ{cf@p8h8Wl%CV2%rCcU;;s+d=+
zN0XiM^EOf9{g`P|$cF6#0&Q(RlKz0NO4z<&H%T_az<sz7=FQ||m|S^NlR=xs+~-V{
ze#kCUU|1<B5zbV~sjtom{7Y>y;58Q~CuOFc|9XlH8JpLmZ2}8g)`*@^QYvt2w5~M|
zMbhP<QUQs`#H86L`x%&P$OhCACugF|aGOG7Hg1KJa~Ld#!$}Kv26COn<~HRTLW@(W
zlK|hG;06!*a&LduNQV_3X0*;K2(Z?Sjdy~|_j6astLX)=&5hK==;9N5#t>wV%-)|D
z){;~oJKTNxL+UC{*gROLu3ZYj!NEn5*R95lX*?&iwSzk*t7>aQGXD&WfuSrde)jmW
zfNp$L)QxxVIEQ5-&Sm<m0~sQq34U>Zq|(tX3JE`0-IXV_Jn<(F4-eX)qwEPFM1W9W
zxur2%6%8j8;URF1_(96MVR}jxjH$W%;^L;4vJMk0M?RW;c<6Xl$~Q-8fwM=!C;E|S
zVXcJ0I`apY&W1UBlp~xDmFj{RzdcY@;&98Kh~HP#waQO4RhnllT(NVb_Nr?~wgg4H
zUJo7aHkJvMR$%_7zyvVslG!B2wLh_X-=PfKEZpaU7SDAw)};p%Ws_qG$TL<6-j;^X
zw5NE8<9}I)N)|VbbuV;WQk)>h#FjKZsqI&`m+je}J6R}MgiK01yyJiqSbD=S`*&OI
z>dit9Vm5AwuwlP&Jm;z*nH@XWoF%9(^(L&-VX)>(m=@j(ujbo*y`@|PZkC60c31cT
z3L@G}g*>MnU|zo}H@~azDt|&y5m;A3npJh&4p)<H-oXaw#0dfnhX4?eJSDYSIXgiw
zC7QUrcw>+5t}YVp5T^+C{7GV>lz>1(W8;&IjEsUc^s}M<1a+0xCIQ8MUA-R5rM#x*
zM4R_JRRH^{>gt0^O7O|xQ$t7$0Dt3tv$d+~<v!)TzDjV8CAUK08P`{(HOOpX`^FE*
zU-%kG=#VoYp*s@y2RO;ntqQIrX%=WJ9^Bq*8Rdth92Q%~dH$OBYNJ!`atSpme`x`-
zLAwaXKg+%t9(q4(;?9S&B(mf@J&-GNJ}fKYQbL}>p(C$&5~p8>%2?|i36+Vfbwo}C
zaIueYhU260&N(q<y(i)g?nN&(f21+A*mE8LQGDkw$;`1DdOkmKgAR*3MyHZ^`Gdws
zJghPw*grI|6pM&Aj*(T!acoxXw3ma6uHE}_a;(OY(cRZKrdNKTY?yOs{DVUbU{V@<
zdiHf0g=WWa{kv}TvjYk)=PwOrZ|Y1hTha6@6CqQRT`?baD^lLU>1<%{)mA6GpoN5|
zh{W3Y23?f1nf<nsj&j5X%sVJ$a<qI1<f8l?as9P!{V6*3tYX-Nf-pG;la}mDFfeVt
z+dp<WQ5DJId++<*^-4oHlsg(e7)#FtTYp#D@`M#QrhJ1n<cL?FxTWR~7Tj3Xj?mqe
zjAj_znK<YxlgMx<?~)*)VkGn)V_8%QvJJ@UYU)y#<a(<kVLPReMmyO9Ne6ze6&@P?
z4ih%t`uB(&$cO)F0+4@t07PUXuQK(JkT(FYD5&eaCFlkaGh0D|+>nZ9u|!tiN<xYr
zu365L42eJy2)JW`j>y}9m88hf$~uvTMWmI_p}2?S=mTSU=6Q{sOf)%YaH%60XUurt
zJOR@7u8eiV%>?CF%bp$uR29=rdRk?6y9$|Y6~hHqw_)mKrkU!9+oDvlofp|>G##34
zxr7WO{~h|yg9sD;<K;B}nN}K`YC%#9xvh9mEyC<5RwmRBmii?Ov?RRAyLa!Bcxljc
z^sH2ghm#TG50z#-ppL{P;s+kb03JhEL8iVhPr*6<FYlS`1WOws@#t$$Z*Qq5<NUdE
zLnrB<9NiH$J<$-p4PUEu?AR@_fc4VvCdWQGxOc^awBVfxh)6x_zU`jxu<kO4iPy-=
z!|w^#X1F0S7Nshj;dqbB_AP^B{@|{6oug4dhKPvjD87W2h|ScfP3dk|0I%W-dc`b{
z`PDu{GepCF$~_kYwvq`wvcOugBgP<&P?~2}o{X1n@O(Fs7!@1am&$aB&5VhTR=ERu
zSEQwEMI@YWwx^?$(@!pLZ_g$l{xP_;!&jZdaN&@Blj0pcK&d3=I$Fy+j{$9qqDb5G
zce6rF)$*+kH-yIXuZtJO@Ot3Ez6VrTVHgksSCi^!?Ffm;K1gUl)-QcH+${krNBIL-
z1k5iC8yPNyEM`-6fFlP%A}PhT7~e7VgM%Y82@hC0k{A^ir?&q&&Yk2QTQRiZ)bkW@
zT^-|<2%(PH>*?t|&dJFkZWQ^yU;nf?f8I_>jRO>>N>OA+M*Wf><b5~D@49zUMp}Bx
z>)~~TXlEE(i<zcTV2DCP$Mc(VZ0{W@YRciqJ;{Q|0Bq6^xioyuy|GH}KU7lopJ@;L
zMST)LZ<S4$Y$9XRbp{qtQbNM;oQ;iy?((d@Bvsg=dGoCH5R!L}_~AjsKL>H}`~s^q
z5Y!_-DOQrHd>KMB4nciqx%bV=U~>mO2HjMXY}Sd*mlWJ?{xR&FEnF$L;3#rihD4+H
za|SqJX(JDMHRz#jz(i|@Y`lzT+PDOF?~LKihSyv@q&Xh;m<_N0ZK}Qh(<zSbnr{n&
zG%<?}22Y85Zy552*6pKQXV^(dnG&<ug!4n6$4jz7aM+a}<RUsBo+TSxPKlj-u@P)U
zq7K`Bz9<)UedUJaAdwF$DK$agH4K%-Z>df8rRi<nqHRcYiH!G<@y?UcJILW;{^9-_
zg2_mlL+X6RQ()!(l-f36RsZrQ%Ecsi>@rd!<ddUEKH}wfw0vO;l?pVtv+qTI8&W<u
zxQyMUJ_1j(85k<^UouWDmpbb%b%wVi;g-U0#va&7^#d!1oTP!qch1g?wj<2)CE6#F
z3FPF2+V2dsD4P!jY~V9yG}Mx`!U02~AD#D#y6x-y!Sw*(QcxX{WC7gDuM+8>FB8Q0
z7#a1CinBB9bS25IWVJFS;8!jLvqhRW_43yaIi-A%X)M4@uJTzc?mdw^kyFw-nAsbD
zch4nz1VLNQez@PETu-hwZ(6EvzAZ2`5%>A;>Umy=BvlskbHmq?pv|Elirxi_wj+Jx
zk8Dr@Nvt-_p`)j7UM$Kc89>7GCz6XHx4@SN*pHad+SX0qz^UF0avR$MqM(9h8g89s
zwsLYpwbh<XV_G#Kvdh=rLI$wc;^*_PLh*Y@77maZfr@CAQ20enlH=p#wEMJgNg;$1
zzd#n?qjgkHP^S4}C6!8qlL;REmQv0GO;2e=J9I#I?sOvBD-K2?%NEcZpCv(bW+!vq
zFO5t9>5;^ETfr)IUm|vDRZtkY74U0m0Hi@0x0jNU+_b>rh*YO-fMi4!NntEEJEF8y
z#*xUSK+kE|2$cM|h8=MKwsN)n=N#sEV-P#LZr2kPS(Md6kEi$aI?xyfiSOp(P&=}&
z`4ts%$5Rpt-{0H*<k6$kSEi@2KsBC5ldH}<^Z-kI7C|bu`syrw_U~NZuFX2|MS{G3
zH6%REna#-wGhJejNUFSnec~a>gNm1(O9BOt85{G%8QMX?x1x@<%y@Et1?wu8k+9Po
zlHPm*t2e`;b4#fZ?21=^fFf)1%oLJY5`RB{SO?t}(*XI!R(Via3YJ3jrk_~KHV5kx
zaSJRY5|7?d4%i@nilHV`|EsPi6cOHrE7&8XYL9tM_{p|R>U7rskyUnPn`MqT`!<-^
znOTKv^?xme6JMA**wyv>9i-|iO+wfk<TsNw@}E6g87(1Vl6o)Cy&8waQZc9lbDB`s
z!9IcSNwQzx-@PS9(w7TU^SU1U1a=^g$CbrP4)EfP>6$+XiBkFVxHvy5mB%()3afqa
z;3JKbmW}+F)nP0*F#!R%qPA7ENu|HvQw`_`B8>PtvNbYnWzZHi?_R`GEIf%K8fz>P
zi`kQth>zO-Ty^yK21ADr(oz;x&;K!Yvd+jA+9|9~N?VndI<C*&MaUW|G#cBN2o6W7
zdsqmo{56Z7KMbxXHn;tr`Gan!qb(24zQ4;!lpIiJ8FNQ(W8d+i*iCYmo&B7%+xhG&
z)nuWmwIsWr<oSR^NK%lHEcWqi>GQmr=9`PNE#dNu{#?4s<jtQ;^AmTm=f&^M&G0#E
z?)B(jq50+YaxTCkO;Gkp*|ua)LKbp+=2gR9B3pbU!rlv~l(+-EoXZ~{w0kvwNdZFn
z>yH`p#r0FgAaqN0!CEt^PcloyIx2>egr6iXA?-^QKCH&RiNX_D5X9b57-<wA_^z+E
z@LRq&R<T7ii8{4vus9_4BQd=V#W>r=Zl*^k&)b;UqhkkAk+NCGO}=zCRrQ;d_k)W@
z0P%;@v)cW47ZI7BzIBRrqE7M&WTS7?Cz~sqnVE%w@k)duPZ<jhbVpICWF9XvyF7Q;
z(=qSb0qg>D_L32-)16jd24J+;63r!*ZNi#s^x<0@ZSy?BE>;}Q*M!T&&bxqJm=6_@
zU@3-anV2<LiSQG;GFYhmwIb{#d|MMIhP*&VH~#r^VW$a8Z6GnIu)#(>;_x_kvW7jI
z8Wsl?59VX{w}-aQoK;c+Kd}u-SnWRTu@P*=L-2!2N>(Y=ClaB_y}RA~sF*=IQHGg7
z!Vy69ZBnP-{JD?rTq>TXq(C$7btK~<(e1$)kLPCF?qTtZJ91kFmz+^C+<!Q@*R+yu
zS8_JlOt)QQ_LS-R<HwKR?!fP^<k-h0&ha<~m@}Yis5YAKEF-*=ZdSasO)R#_J9|cV
z<}ArdTBUXsOFh*q8|IE*C{^*ecU)6TtFqJJlxekt`#ZZ?0~Nzo#gKNE)SIRlgH9vP
zSy!uf8AX1E86SN<G*_NB{8q@5lpx{yig8uaebZ7GP-`D23xpJo;ii*7AX2I8b~{-S
zX)xKag0%peMG)5U5LqR014OeqpOJ+P|2R20xvY0F&+3pXAauZuMMzvpL2^=<QT)un
z(qQzDk43RbNlC!r@nrnlevXNW5p`TDr~_*`-lz^#pnGk&<!Ss1$#))rqf3v<CGz(f
zgJc5cw**B4^cx%8%d#__{Uo}4v~5RKdZI|}B|DuCJyQ@pBrw2f_bJLi^wFF1;PGHb
zaR5I*kpjTi!8A~3A!`&J7jZogAr6&VYfO<RcT`vm*?v0Ym!<<v8Fu;0Wq(zScf#5(
zCPMN}38X9mIlk4*A6p_+LyDdr4r+U|Owt$hoe=y^)?`gu?wTch7c~H=U0>z<fimiK
zH0r#ca2Fn^4!J%ex>t=yBG&JG<+Fpx8ySElVJn!4(9M<tC89mexU>QMDv~$n!!3Dj
z;3ekrPLl;sj}W@2iKuDpzp5ZTQ&Us3Ql~1^dKZ~&u{2t|u_9=mBMM%kLLKR99BD`*
zB{g}1E(_Xx2I)xIu2p@HH2oXLF2FvCmi9+xX6~A**^4)biwLnsV!kAMx;}-FOT*_8
zD0pAnK!jX!It~uWT06!xkd5Zur0>rtrq*?(b?<+qks9#f{*$&3&80fXJeBqrH_7wW
zm<{B9%XvF33^xL=;2e6BtP)u3ZC#BCWuaH&JE!D9Qr9+|g~rSdAg+iAfbg7{p4O9H
zPXY!;GlNBS4yme^?yB9{RI{f9OTE4(D=|;%edj0wAyC!`P-@qg4qvrQCxMbXxUW#m
zK(d(S>QBLgrdsTD5>9BQYbtl`V}2aMpSgH1JI~VA)_E6g1G4jhhY#R5>x}F14h!eI
z*cz5KHZ?S4mS4Xr?<g;RL~ek8^ZT54myDX|pJVOg>`ZmyvB=&xf5@q^9!S{~S-*}`
zsEu3R^<q*sN=V{T)M_0LUdrbn>%;d4IQfZ3*Efhbg)EE)s|+f<5akWnK5L|Gn$nG|
zGdHXqSi+{Jyly>&D+CNP?2}kx1`}lmHD58RMogd~A8=$s`LvFcbI_%Dw@g>qT5|Sz
z9VSX)k2eXlUE!ZOwL?aRZChazkAAc*FE8hW?J=H#GxVo+jW4uff8e}~$qKVLm<H&j
zb{yT^{}N&rp0;Z|HeJ=<Fx~!!PW2H#RI~lv>ed%OWCODdH&`YJ=G73}y`sbwdZEzt
zZ}%<PvVTDNjYO4CbhLzKdj{y$j=dE~XCs{3Z*DHihR?Hs25B;3b~<4atbI#wrgSd!
zgM?k)EI>rub)QGuYpSaWwlalwm8Xh5b9*y*0=?1zl_BD~Kl4JDLRdzUteB*b!YW?J
zdy1bY;xjU2c~rel?YIBE?&nQj^Q%tX{NsnhrGHXaZ1!z`DE6j{v&_pYU)cY${ck^B
zG5=xlr$09RxOu^qjqgN$si7X*S@41?Hh=%GjcWE2EaolahF>bevo1Po(>)&KiFEh$
zq_xIRJ5@*aoKP-63Wo<mHc{on>}k}F6jMxc0twlX-wc1YgJ^W0$2E_rlH!x8Zp_O=
z-Z}hpJR)#O_A)LBUzh}O0RaLS2vbh%BjS<NowLw_J)o_fD{dMyDp}ZK8K1F5Q666X
zvd)0b4y(EsGh<-nwR-H?SB^e`Lm)VlRFsF{dgh{<+K08Btz*j7EwB@sbEr%sMP<WK
zE;1@p-J1?v8|%(MHdQcwE*f(U-t(DH+TyrpW>yv>LGt+L6U(tVrn;ff3(1^AWYO9q
zUK0oSr!_n?Wz!7m#=Khr*Z%%TAoh%@Znwc4=a^ArIQFS-td01p?>8KW8!qN`ID+a6
zBz+*h?KqiYQGJc8;f?ruBGDppEh^PIwSLQr-F+|qKIGJwFALz@vB*haayV#9p}OZt
z5YpQ3%aTvMzC2kGk~<c!zpcro-Oqz{Y%bUIIyRSgnf!FulXh>>cq$1mpbXwXV>ETP
z&?mo5G~_@wMHI9h!tCJcp+)e_Pc42&QK?0wS;YDa?<{M|aA+shDw6JBmUYa*0vy<Z
z1B?84xFBsaG(g~;c(J>}1=+MGSy{WuvnQ2PCS9K%b+}(5kH#zdM2(m86Ywf`e>=VZ
z$lc!_t(0W@h~I>7_pb#nfS=nT-x=p8DxN;qNCgLZ49uCBgxt(OtJ#MfPr&>sLhp<s
zmgLqluJ0@3C>}dxX@_)lbY2&`xw?{QGZA%3GqX9f%)tO$RWpRW=`^bG@Ns)VIrnXW
z@azy)7tgW=XN!;@Tt#lBsx~D1`-2Xy3t)@e2u>~ha-DwzTY2d*Rt|<WP=r1BjSef9
zxoj4IH)yL+l>|U00WeO-k}R29klO^yy<`Ol&M8wTG0@R?b{V3V@8Lb4o5ymqpnpwR
z8Ox>!HtMhBaDkA2q;lXj8=rl0yRjrYw8eP>BD@QigW30gMwMA(-W~ej!2_cY$uN`Y
zh~nCAYaK0_oqblxK4P`bh*uiq3?TIwGucEEi07v|7s>3cR+(A59J+~NKU??Bq(tR;
zoZ9!>eJ?z<CYz|LFFHGOg-0UWM~oSHSbZomg2n(65cUP4$u^|S6jQ|L0&G)Qw_rkv
z{g=1G-wP-YeJ`Ng_E!PrF~QkeDU`|U6e@^PO-UJ4KNydgv7g8pU7U`@BPi_C?J4|e
zjwh4R8u4<T9_uCrh1j3N2tPVz^N>U&>;eiKi01MTXiZikhx_M+5E>r;p1_FKBNkvV
zPZ4~dDRQ)kupz)Kf;>B%!+A4Nw-MR7UBzJ`cJUK3O~{ov|9FXgC({qV&bM`Tb|#gT
z<dTI;P)y;1G~MG|R<k6LuMs|=9c2P)#6%4M&+UX1-1N(vtLzC1oSPs`>nN^C5|>dd
zufeX*x~ivVMFE!*ks>e^h=41MKK9Lz?Zaqir)aY!>go^nT#6YTgejfs=CMhC^ml`S
zBAdOQnRV4!JkV)(MDk;Jf42-at{lzPF*>%6EWn(Ziy+>j=0e-&dV(A-9IzuZV~AF=
ztEV8GtPxjW*RFcCVJCPF`xw7hry;l)MvV|x*aSki8z?-HnjM6uH|OtTxXx?;J1Lxl
z9I&~W4>L@0|F)fW0~I;D*Gd}kk_<N?haBC<lWBg?|0*F}prqv9XUgxBHx-(<^?T+^
z+p;(Ba*Z+`Aqj*?>U|aJA8;f=%4As#$zA97bZG)ja|{#yce_qqu6V}@537K<dQzxD
zG^YAtwjhZ}#R5^go(TRjkl;y=Ihp6_A&?+{vFj6+`nJO!3C=seFNe3boBVQJXr$q{
zyKzQ2yU6-iGRlGi@!HSaD>*p<r>F8Np1*`FTpA@Ifp0DIPo<(v&;`{JD=+mU>GnLK
z^@U|4utRfm^Np(EFC3Je;J0!Li%DeZGF-?dYEZs7bezZ`U0q#QMz!BOu;RwCCx-+_
z8s=SP*X@;;-+F5q`K8Wda_9@|aV8DBbd*c>gdS3_Y>%L%uC9*MtB__f1j=o%7IGZ<
znlcrW^g}i$&xw~LQW{21h8;8;X6^uHjzeuC?wepB|1bI1LwY;3z7Pfvxx`-$51C+e
z;-9bn06`~-Jwh*X-{|S?<{a9;z{qo|W1k|c4|O1m7PfF1xom=`&HYK|wgmk6s-Xo@
zqn{3Nkn2>K{R*!vg;Y5l^7=7`f>z|wHABz#)-PyLTh1dRMwI(?NNkG^&l$Wc`%5Ti
z*yh~p-Sf9=vU_V20y;`VItL5WL0Fw=Gh=VGXgz!$b&HCO`m#0>Gwwm<=HMl(Cj@x4
zz=J{60B$#Yc9?Bu=Xr~&-fuwV0V%m6S*@7Sc>Od9HWQ-sKR_Q7pXDK@9{Dl=Xt|!$
zhE~<sOhpifIx_~YO~Zd~tkIg-eIz$V^z)pY+t0qILUbZTPzZu5{V)pKY%iO$NUjMW
zEm0>LM0+4>YxG*wS$4gQ)k)83?3jP7?HC+_xd@?QFWY-&K6`f7XViB3iG^(*)9LS9
z(ipQpGj?;+f$6a(wtS5pYis0SNBSdCu88HutmP895OWQ+Vl!it!|net;3Ah^F%WqR
zD>jGfOIW!U4vuwK{{4@;0Y7HO@UXM0rxHL9&y2yo>HK{gnfl9ZK~@EZsMMHckHQ{{
z{AJc()-ESyqon9isX(UDY88=K{(Z>$dU|c(JAJ8ClBOo%oRH$wVNem@I(5O|x_7G@
zyVi<x+n_{EVOE%j7{XVlP8j=N-2jKlu6-aR6yYt)JO&&FUEN3B`i&f`wWTa;oF*j%
z|Iz})+TWh@(<v&Riv|yoD39=@c5jvntqwB>vKj`+E#k@@x@sTHUP&4$@9c44dy$_H
zAw=U*%Xl*L;(1bBO6(M=BIrX|ixf<OeeNDIti9TzmtJK-t3%|32<KeDfkLqinFJ~7
zTeangFn!K?{!FYV;pI?)B1$)z^L0l`24834O5Y;EFhy~(!T76L_*`c=o2hP?;Skqh
za+!HE6ntE9cB-s1k^(b(`yanH%Q%=1e+0e2Uo>!pC!0o@_xNYUq;bM3lh}GE{8T#v
z04gaD(KQcWL!0?3MCv=ih|UNWqZYO2FMoq&jDwWT%{#MLgO7bAyh){*PT55MTv(H%
zHKM<RJthrq!Mw{8Fc4em0$LHEYGcyw)jbD+^}hP4KBy&#!B@K*P`oFEwuX92U=u{e
zCPL-ey>g|Fv9a+`GWV{F=dQ*arok3oW}dgOh`u1*tre?y7~;!Pby*o1)L2h{Jix)d
z?N@w6_RQOxmwVOWj>t!F5q#v_x##%Ec07%$07aBJmseH>os#ZOzC@X+?#QyvoDD0Y
z?-tOU3fDUf7vZnw^LuaNdA-%UB{uXmo=_S#t#s_I(N4cVwzY=#Vfh&k>;^Xwc(+||
zMQQ5jOvLkrnJi|6pt*tH!Y={{$F*8%FKdMN3bX2e{6)sM`s%bPv;IZUts-l;%E1qi
zk{eN4PiWezkDN#*chnoevRY^Q6J5x!_hQ5veM;cV?#Xtyu^bus&tvk_Mxo>QgY%!J
zm2rHbE5=z*>FJW<-f?8Ju8H5`fmgZPz4=3JY&P}=<qRp{>OR=pMjv+9mCXQC6ayM+
z4Gq8c{FVp)<{Tvu(i$FwJ=W0DgV2Lic4d554pFgOTzaFot4lbY6>F4}`KJ1*I)ZQ3
z>O@cG^l^VhI0`95J=D4jsTAfkeW}ivk!5YXTIQbxpbpj=Pz)jxPy24Iq9MiklTMIA
z;dIbb&drCua_rZM)9di^*uGiW|NW9yq=$INiseEZQ4=;IbfF^MQ~Ae7a9Q4-GFLpp
zkFw{ySAG42j%Zw6;`#NXf2x2D7^II&<I<kAa~m{XHC9vv&hASQXO>*l(Wx~ye!GT`
zy}|^gA6BJ6KFmL4a~SLr3pboHm$-<^;9)Pqz5f~=eorC#es8aF<}Zomlke>{xV4R=
z7lqpuaUauX3}mMR`ggVKk1z)*dB+9W+wyoy;G%4l6>}^en>_UWY%O*^?4Zuecm1a|
z*=!R$mn3@_uz2;5Kd)TUaYy!$KPlUM7my$O{~gG8uK9m~bpPKe{sr~_mzfLtVJ;03
zZ1iE$83Fj1GY?^<DS}Lrog&mf_x7^|M6?R__Hf7?C%#R4)sPX=grs~ruXC15TyHhW
zRuTe(6vPtPw(>bU!Srw}ddp`%Fl2<~Cppn|c)erC4kefkcGVYQx<HGykxV6m;a#MR
zT7r$@PrZu%wjrC;yz?UQJ`6-8Ni-r5!b3S?ii8QfNE)`tbZVqy7!44F3`NMI-+TDD
z+AIC{fFLHQhJ<p>slVaR81`Ng_S?rf<OIi_(8MQeWAJ7!@V<Shy6K9uD&i+1*RumV
za0sJwM<W$qbjXNP7z8yTJbCiKfdf@FE4&S|e;tcX-!X1pc^_ldG;Tk2;yK5_b|d%Z
z6xLJc#+HlCANKoQ3GR<cZ)nhKci=qVoGPmgdx$<3-P<(HDjj9}X~q>}LOI?ZFi7qn
z-_(WeU?^OLO<v4MU2`m>Kc;6vONg<j99#AafL~d;ij$LwMNwg?I1a_Ak$5}lEP!xR
zT*2w}BCdj1-DKC4u-CbdYC)!fg4TyE#+%w&u736PXC4*3ws?DU(;~%CgiyqA!p<&Y
zY<Hg=B5w{{U!lfKZEk96iU~>zu7T-;jphOTdrdb7#X-#fH4c8G7sNV~H;4Rr?@bSz
ze|>xFaL7#yq94ip^SEm7v>`}gd@?#N&e2M*pvJ#>Nfz6a>ZaKk5+4bk;xcpV?YQMz
z3jLd9YwPRl2Wz7;K_EN^4`MiLggSSzxt1QhSZGVN7v<n))(|Z-V7f(H!3}o0xYTQ(
zITEL&R#4FJ&|?UH>wAOV?CmB22+^M+FnD}auH*JPDHEj%vojT>J<W59Miwf<$aFp}
zowsq5HrLS6yT5I+$zzUF>wX!NK(rB`Gv07lk>bggO+)HxP4DYK!S2|Dn=Vff<Ir~<
z<L{$1K<l&k;`pP6HNB{*GAA8{*2D`Ndee(_Ur`@C*udPnpW@v+Fd$J!BOQaTc+S)#
zlKW{q@)PUzDNQS8Ic>S=kw+}6nck$=u_q~@1r(QKCgJI#vRCF}gp{kMdJ}_$N-4sl
zrXivMrVyU4-zkGB^<}M2OEH~z{V`F;u5daz;}73z+=vaD^+*t^3PF-l7$P;&`^5#3
zAPLX5PG=+Lc=_4XvL^P1cFYNS4}A$E<Q&4Va--$rEJB9#1?;<!&t>-LAO1Lzm45I5
zseXISiZ#qiB`!LVHMu=``FvFzWSp0a-;`xK_Tsi6?I3R&QY@E|urP-li>T@~3-xoy
zfn#)YTpdMbZ+l{?ke)7_JpR`!T#`&)3__Ed@wnLN{LFii!xV2(C#!eYh6{5~pDy%Q
ztBuvw`eIQLi6WQU#@ZLB^QW1+uC#4QB(z8xGLp#6fx8eiU`Jtl&;RW0CHsb(oh^Sj
zP2Pl*b_|wgArB?=*CEFbzRDtG5<qi1kf}#)P8I^wc4S)o*%{6dBiF468AxJq=?S)m
zLt~dVbfU0`Y;p{8x8oNcpvWd2=`78un3rt7$~?Aa{@{3{EkDxN0c@E+X&*rzY2h@z
z*L19_JQ4V(5CKd(Vd$%BbqX8VG$fTOvJ|Wu(VX1f?QBCjQFUvwPbu<P<U2X`+q!?n
zG5weEHvg<QQY~aio>E~B`aTec0&)eK<(^(y-d*v!$y?w%1RO~Vr(^oP>jmf4g%P%Q
zV}~c2`V{fAhOR#?{k;l2Gcj$4L*~zmY9A9Kr~BW*i~lSz4Y=Z_H2B!^y1Kg;x$kLc
zX+6<7xVl#zeuVe~lSVx_RJ`J6ZiOd1O7Rx1p-sDHEk>$yTI)~N>RQmUFBB1{5w9~A
zna*|~QE`se{;buhDW(apJ>4HE7M93)i>4A&rUQ#(XQgLgoSN{5@4@jmjC1gLISMY^
zeY?3a3MrEU>g52AamjL!m6w@Fkj9eu4w2srMUZ3U8l*MYxOvCBVD=jx9#}P$6%Z2#
zD1pCx_l7VQFn%c6C4c$!=)kgZb6kmh26?Jw<HfHXl+bwWHEZXOzUzn^W$pZ9r4*d)
z<#yjyKO7sYvwXoHT2ocEQ%2mxvUuQ%VWO#)sRN?FzoHs{HCfr4VsG!)5j{kXjSI~6
zy_mykpv8%T`E@a3^F^3H%-Llo=P8?YbwAO~q0%A)KnDbjlipKJ-as{lHy`dxlQ%U9
z<VF!q#o?}#ZJIF!e>vt9%i6VlWw2VJ25Qql63<Ric)war`ioT2z|atgfSL%Abp;vo
zPURo&+b^Wjr>I;`ra$<RX=NL-7(V0XFGQXCY+55H6QfKgs3bD9H3qKepIB-;-<BWA
z*?qGeb^5L;j#sCj*cR5}iMP;Rd)mWarXGUJ?Cvh73E&BvFuD8Y@Bfo-Zi%zTDIV-n
zKkc8B8h?@!t5`!b;SF8eS@$?y#oG7^V{k6y-*)7C6T|-(+|2tg7@7Q&_zG>>#rYAb
z=wF!LaYvtx1-{dWCdg^qz1?(O2?nO3gB^g}KBB!So3yGxZPad%5+kz{q{9ZOlyYve
zQ#L^3H7QU_KZwqiS%pV~PrEN|*@oJ%8?XR7(QBq1&7-_YPB|XzA<1DuC%KGh!Jd}R
zeF&vOE}#U)y9NgQNuQwM`Z7-$SS?h@Y$4?klLO9qJg}?7Nc$HhnUw}gtRcSW;jhsG
zpCLIXO_&ZT6%Z-y#GaO>CSD?xL%tq-bM!fDa^$=YO`sphOG#@e0f8cazO2GaD|U4~
zgc^5dxLEWAJAB(Kr+x4h16g1}0fF!RG8^0WkcJmjDnM71iR0XiXn9mDy8Wi7I%acQ
z!lr>cKlANEAs8$f;)1MGzwmMrC7uY3cIspuw|N*RX~Cmyn3AG>i#DN;iM2u_%|-kP
zu*cxqz}G=0PYfR0m<xrJ5<=~~m6cc>?SB;f6i!!GRA>^w2}^&92n~o4BursnSrIet
zwG~nsix}vGc^t=>7f?A7H{tORqX@DICq;-u-XIJTNq<04-XrV0YP1HC9~W_&*}V?x
zzP0@UrW0+%(0h2~48{w1^M$^Xk%`@$)0~Uv4|uCRERIf>TT@S4PhYL6tkfD?HUOL|
zzHTTrC51j+I!y8`U<T<HEfzcAMjq$fN7Jm=3LJ|I<97y7C+mt8PQ1q85b9#26&2gM
z7|GypVbZCbn-_afNEg)0%z9`9mUvLm?B)2Fq|stGN>Knm90HW<r4I+o(1yj}g(6gx
z>&KWx&GMR^JXzRam#}#5HqoKe{1fdAiUzjU(MZ1%Qk_XMD!?;~7^6h8O$x2Pcvn1u
z8|z9eB)VH9|Fsv1s)Rf`aD8om8J5rey#Dr6FQGVI-CxG3%zKOs8#ymbBYgY5yuoCY
z$714v`Y~>(jMI!dsSE4XV@tGOM_eFE3K9U5hGwKgVCv2?vN0yx0|Ka2qRToM%0SX8
z{nXH8zb$1qWYW?@b1F)c{6(=$rcZcu`ekRtA_yU%+glq(0x!<QFBQ{qf}O|@2v64G
zd?uh0n9q}vh>q(yL_64XE(omxC4?Nw8m3aorXmR_1GP*d-NbP`oIHy|Ub{b|sLC)$
zBS=z1+@$Uy(z%LTAY#cdEI13+!W3%<7jrw`-;lBt^Y$0jNj;h6WX;M7U4Cr^-~GJI
zM5tciw^t&pM8U>L8ucV%D1=kL8XU{~85t>x4;69TR8YwW-*r*~IPYcwq9;N&ApF9?
z?rrv8-_FeMBzgL-1f|xdXF7^!zno00NJY0LqOmoQ2$^N_vfd@Sokl!GdN83L60!m!
zX~d%|OmwpY_##4CDiu`-0n(N=zZ#UI$Vw)*b-t~3)48+li)Rt^a5Zte!AJ<0<kO_t
z*`4E8qJMNjEkm$kdoH9B;vYvL)mAFF=C*x~!6bi1J5rPJzIx=WksHnH9H#fy7E2;W
zOQr6d{Cq`JkDXT8n}KkRhf@k=5M=g=%7`=*%o}VN=_qBF|6O!+EF|r7QTeBm&JLWs
zDxQ1u>-yAPXrHyEFdB!^wo4u#;z#dXN^LttNdd_pcZoil<408zEEb?306E+OWd3=G
zT6_;AB*WMNB=JM^B6e8X9hCaj#Lzule_R{mVYjOyeSS$&qauR*W!`OVkVbPn)eFu!
zsm8zNcK?%O^=O6e1xe3Hx4--M10_sjaz}y_3J~0zV4JWT<ryB09vd5Dw>akH#JX~r
z>CIzVzF8Ad3VS`uyoY8>?(`UAwe-gqFX6GalMZcEDrusGj94I+<OoS=<;|4lp(30F
z!`QCsIGA)wCe?kMoXC;I64fj@C+ZE@jcBP<IfrkA)FS(UwDTj56*)b!*CF~4!e$^v
z2zE$eDk~L~2+?>Ui?StW0NwKoX&<Ge6b43}gy4cW*Z{dWq5;6cDD&Wg3p$K3Ou=fg
z`#({sP#*q9cr7yEI9m@<qS)r-Bwe<uYInbHsj5W<z{w1IGtyQTsyt#1NHaa?lYG&z
zN+FjXXDf)QLUOw^K+PHa(N3g%S7Gpo^26OJXl|82Buux-`Fmm#ijY_3=Hw*p(TE=5
zi+3u(e0*ye{X-?GgIQ?d5+SDdQW(uXOko85;A5Va9u9^nnprV}T*{dFc5L4%meQXr
zt7nkQw$g5GR_-Y~3&SzO<d(GwV_BVrnVDjt57t47OtM9Fv^!-5GR4gL_t-|G%qd8D
zA1Q{CCpOAFZ*5&o`#`AJDb~xBl<u;#B!BKs0ZBqP-;Vxl+01+aqJki;5|xxtG2dHu
zmaPduB_!&ub!}5WJLfSBVWkR?*T>*OH@L+a=NVCCf=W9^m~g&Tv=1bi%Gi$b@94pR
z@A<la!)_r#cL&@5lNxVyQR>#z>_)q^BT!tU%3-NaAmK8nSftT5anM+{xa<2nwvspC
zV5V54-{(>|Xwau0Cd`q~R|6iX2U$4EtcQ$zC6EGnI_?y>ue&5PLVHpS6#C3R5o3`i
zpD@f=3rMdYAn_jYYou8iY@f6Ipc9C;V$%JK^OkYIWQ@9d+bW{WLWxV9<MQfn{&L^$
zq8Q8%-tDRC;Rs0OB!FWOh;kkd3EYJzJvBIv(p4#p7WhN1m4-y85by_qG#EPMGD~%|
zJf%S#hg>8LgXhf~3$OHHzu^9#S{AaW7yCduTSQv$p+x3n?8!s{(&Y`sWuz<fuMj(|
z)U}~J2rca}L9{zOGg?**K^iwnk^^WIlC}=B<F>PR-ZF%1?HQv@<YbQz`j|ip#7+`;
zuMs5{LdxvjZFC^pJk5+5s;;0xyCD4SL#WQhj8^7=v+DG+kd7Wh${oY_{>Umv)K4y~
zKQx`idfLsjwIJ#=c-10uRZ<&7O1EGghz3-D<|@OYyLoTwm0w+d`z2z)xTa-x?`_lO
zQaz5vB2j~3vBI?q`qKJ{gxy)Av;gQV@~<str^mYkSAw8zgE{auo}I2u1QAM{E9$;h
z4FAF5zR`cr$Xg;;tq{DU9aVHUcYwp}AZUIfnHq+>Dj@PFl3vFOFGjIBtOPe3yqlV~
zyFHMtD|)8s&eG)#4Q$|VnQXXX-PdDVrjjyvGRiJ~3s^^$)E%kkNDEUSC1rK>GPez(
zFphuWd2fldyt3;;qiBpj_Z<NqC{k;0MO{_v=qy`rg#N&Nqi*Yd7w<5@qselm_w4-g
z=PK`-i$vjtYOu=4E0q@AaH_VRqoJfty-$rJsjI{4t1opvW{}}p+iDhK%GjzL-k~?J
zH|-WHR`I;+EDwV3N#OsrxYVrSg(>3js%mHHyjIfm_`Jq_E9KWwH76u32Pqrhr3{!w
zEs3~U;C%GNZA)6*eSDOirw5A-&C2QgYlSecH!o<HfIRUf1zf{Wy{``IB;_-k1NJ0c
z*4D1sTYQ(*$6;1N+5t|qQYf#BiMRs#K@Xku?RPPU9xPoxGKU*{O>6hM%6#%DRta#Z
z=M~?627t{D6@)}3#EY(X!`<qXT|~SDUDpYN3$GWEs};cdl2|CJ&VI>A6E@Rb1rJx!
zshhOiXLo{x+~*NXiF^eB8nw%>kRSU*TAq@==|~iTRc5zhVYm6eA@qP<bL5Yzs(rOI
zH4g|Gd;_5M@`%nzcvqeEhgeosqk2Y<SgpNkir<(M^Kc`hwF}VEpOhLQ1=TKUJf%XK
zU65XYh(w4=6w3bHEu&!;-G)lDX;)MxPHlWwo+p+w`-gC6X4<g^Hw}?s*2j`S`@UrD
zEV5x909h0FM>JuFLxR%LUb~p+;2|HdgXb$Ua_e6MOqPiCKu+C;sO<bqm$ITa8-yd6
zds-^)^M}6_v!4H5AlXJ}3bP(ECO^DZ2EPVkteBL`AfI%J)FP2yG3?g0q@C2_+PdS>
zWr{JTTAGafD|US%g-+G29>v}P4s!2$kWVZ7fF}3OSY<h#iC~GoVS5IJqBT0{I38VR
zuc})~THZJH)h9cU_TAIRDRLHDtL;m*E71x*n0+LAPrrkq3ub!Uw#-;~X#n!JyX-%Z
z*1WWy{s4P={O!^WUE^9&yF^o(;;c7&7*Z-GS-{%;>=Q%N{xJvDh#s!ZCP@`p;#;eo
zG<r7ttR%=tJ9eL#hGb{m?tK}z8M`CzkC|iD#(|A>Mw`s9BoWypnvfmHz8-X|gFzCa
z$0!rdlo0lBhKu=I+uDiN&IY(N0|i7mZ-NCQB~6cHj9*V8UH+WWgr^g|Uc<>(3b-+|
zEx1Ef=u<kCb;qNar%h|!*7Vlz9p?*L*E#c6j~lyXM)#>YWx8_kQZ}qPW$kAYF~7xh
zXi<JnWs&~gQ?)0d@;cGUZ^hgiVP7Lx=XUd%^{+Q}Ey-*Owat|i5Wv?t=vO4S>2?`r
z1Sc(7c<cCV#RzMOKuqt3>d5t}k(#9T@E4T5*ui{sChXvS58gQzYB2!;_^<T8f^hhp
zxRZvun(@p>vFo;-`JK2&0fCx$!^YlD?Naj0TkFP*3TtlJ`x^%A8Tow%rF%rkHj(nR
zAlNcX#UyOi(4F#s#P^C`wl?h$AG8PPoXO~jj#6B#Pm#$9Ib}P*x3g|qOQj>$;l;#8
zwZ`A2&b!aTSrO?dl}cJWCm1KoCVk4X7d7KpED*(t=wNavov4+MR+qL?j~GFpav4%D
zy%TMjNt3c}d(B5!me15eAy~sa(h%akxw;G?4jR(N<A#oX#0?S9Me20GJNWU`;)e3)
zZs?`i+zpX}V^U3m?Y#~`f*!(O`FnCpkNNkDMA?0mcPZ_Xq)e#-K!71xWP3SxnCmBF
z6f$^=r5Q-mi%<2IwH5koHp$=D3u-rQ7e#ua6Y4>K6m5xOFQ%-6fd0sXJ#s4)XNKya
zgIBd5PYI)$-cNmGQjyNGQnO9F)dIuoJ`2v&8?hiHjHI<FNm&v}D7+|X28qIk^;p;v
zE{AgNijBoLsnlQj<M(LF`Af44k43daWGs1lz<8oQ8d+m~cT_R@pngV@|ECwP(Vu_n
zWcr2E1}IRp1GX$gMc-O%uS5{KM1p97qCZj<O=^WJBAy+Uo48&ffv=!IiRc>gB`Cxi
zK-yM<vh@M_Xv}FVk-|<}D-kQp-rqBd;z?Iklp?l~`z3V-XtR-o=ZJH$zf=NSlD?HX
zTb<y!hNyb$Bi9QEz}eAAfiz<*ti?*lquKe01$*txu{ldN>nGVQA`K4)1_q3n>%Z;2
zqaS~N+VnR%@_U<Sdwq=Y?GTt_Im^QbC^F3Ik7lKJ3PDJ*J6w|xO*VJf@0^uYQx8M<
zSy=C-@3XwRGQ|3+EF?Uwvsj~>O%Av?Vu2JPqxXPv6jMg3$l0xqiMSv2yiF%8>xD&g
zL?bm}jsv@liP<<F?R<V<eo1ecf_@4zc%G}lwGZRgq=7IyQIJ1ZJwx;iA9wY}I?E$3
zzLErgM2UbD564+q9qg``u23(aGWjDF5G_yh0yr2_b=*0-BU?7wY;JZNl3HRncdXAM
zIt8FHDoW!vlkyv)yk)ni$Jbf>O56aZnm98ebwDdtN({pmdx;bY96!L0(rMoY`<<$5
zJ&K<e$<4RrMh}WZO2ehuvWAH$3UGCNxb0@gotS5=bz;o!?(Q4QB+@sYh&{<k>LgL^
z?hrHh$ROqCix~^!qF|g@cz|+bqmdT22>wnYNxuh`1MIpZlCPR1-*WKKSXuI5_+jy^
z+gRJHD;lkzO0s9YNKu{w_|`U3Dj7f`wMYee6iIa;{wXH<WzyfE9bNiwkU$WIJgwR_
zsVd8Ut1`#p#}!P~Mg~9CenMiI{6<}7vw6%RLWh#|MnbA}a`tB`I-XX*XQdYAZ6N@T
z(3|BA4bjf}8vdB_#y!vV{zWSQ(SmpN4w>a+qp~vAy2dbR0fvOb05rY3%}j*^CD?Oq
z__81JwIRQf4i2RJTsQeFyXXkA0{!d-<D~iHX8)a!TcyVi*}B%i2hPoLb*=5W!6FW4
zRT;iMH@7=yHkOL(s4=D1O(U{lw@+iYA;7otOyUbnG_ohvj+;_a$Aor}+9@om9Rzg~
z8^op<fE-qI9s1f~P*(YJ`I?|2y1D9flHZsa^Kd((b)6C&aW?4@j#6(ERw5LI1X`Pr
zI4-$|bUQ!x@=h#0p7&k#m6!gCp{niwm_)gS_2x0;Yi`(b81Q=hq+NDq*zrtEYCFEw
z=rn=A>?RC=wNIcksEO0(BC>lDfwM{A@83M2lG${8E1jj$p!N@W#1LO9K{bex$oCTs
z59M<dqxR***cr2w|5n_0#$(;T?|+Oa5+bs4t6QZadq&*|S!t22lu-66GAd0g31yd2
zW`*og2@NAc*`w@D$hi0)pYHGX!SCV!_vClIJo0k6KG%Dk=Xo6Gc^+qw4$b09kdARn
zq+3#>r2$GI{|JAPJ;x-40I={!(U}w?Cw0QdP?0`e>)_+^=EYZo(s4uI1->xu!IfGK
zF1rJx|AUcBNXa*NvhiP6lU8~Vw*at$lZ5rWkZpDvczj`gxXY)xE50@ej_shIeF?L!
zZ+K3fq@7A-k`tx11JSRJUD;~VG$jNq*+FlpfZI(MlC{;Usw-%QuQRVL5HuV!O%2bX
zhrwM<o`YX{FluJxc}QHdQ1R3a^e71EXBut!BL+XAB0w4kQc-^U_CMXBB;tb;Mh!n3
zxzl%#UfsSr9KR|A08WZKA1P@2CDgyF*8;(@N^(vPx@QAOp*K>)gRIS9tTPX?{CY^q
z*Yc~^+<Cquo?~f{14W5}M<xxWkg4KOxNY&CyvavRvV#m=;^cf1kRKo#L@vh{kTVgs
zZ+Gu>`}VKLQkPn|@FQUw^5#{b#mLxrcs3mMO!3Ny2(}(ooI8n6SMc_+Pae_!Dt%I$
z8<B4KS)SI8l+k(!U27d59H5(7m7$z?hC*@ofX@y#HXo0AKmb`qrNV3AqwS<-Y6mca
zW+1DL&l*kWuisI(w&`8z{~nh;0ZD)OH;m;NR}8T$xs6KVi@Yv1Vqo|X{=bJO*`sgX
zxQf_99ZaC1J#W6W$JAT;YLa&&J8=8fUVBU)J9cWE|4q5X2S=`xryp>Y9(la|srAFu
z=Lso{-69%RQ7Jabcp^FnGyQXODG^2w&T<{Gjmm#_K6xO(s_W(MPolzGbi_(}nAX+w
zir0*F^REn)NQf>h_blYJWJo#IjZtE}=j9}3Ym}CgQc}dZlB*5lZ(oH@Vg&%p^}xW5
zXqDSP^zDUtqFdBR;m1%)y-S#Y@$#Krb*9`wbn3yp|3KhnW@d(HT37=aNsuB3tXsC6
z|K*ld^f4+YWbcW1K1H{<S&D=|CnFP6_&}4K?`lbd8v_F>NuaFntW}tG@8dR|*WSO5
zayvOWX&gP8fAQh56L$PA_W}ZvJ$ZXS$(9ap6|d%54hhZ)4!!kjIYh?Z_s}5%)k*He
zTJ+^|fpE?9FMU+XI^65}f~6h()7$IY^SfE&CcL`7(ET*al8=jG2vYkxB;aqIyJD5d
zV{=|)`iXIhmVCpS?2lQ!6BbzxlKn1W67vV^b>`<-Jz|S<jf5d|gstGW`2O+?9!cHI
zEKZWI0`b%|mScy!eA_waQyyVb#{2{J*#q}}d};!ujU9Z{<0kM}`_|8&=ZHhPy1I$|
z=s^Dst41`f9q$WvHr*1Y7<G1ey}(PyUgfdQV$RMYw+cWd`-LNknDinC$^83e1qz-&
z2!pC&o$C8?UEh6)!EHO1xaavDI#)51Vk7a=ZB#$8f7GYdzPqecl0P;0MSiSAK{^xG
zX@2(RxQG9)<+%J@s=|=;;Abfoh<3i0T*+y;JuzdJd|Zg~LMY_Egqlo!AA|*Te4N%G
zZ$L$ahKBN%Ui9A)e>;j=z+ZB|LnO#O;fo`KJG~aLBy(fqJF*UVY!Gl9X%aej;Q~q2
zLl=x2BA3@t=Ftn&`1TeP&lJ8Vsloo*Hff~i?G2rYi!LEh=7<WcZ><hbt`ClrtrvSc
zdNxF9Y4<sCF5rn9;J1+r;UFCQKW#~R_6!2#n>vd<WIQE8OpD#mpq2ogATlvVSvy|1
z<)t(!6@^umc`vi@@B}~+@oR6G+6i08Q89qKp@yu9bip-UH#e!7*;$lOo+REN!Ul1^
zUctCVuH8CooL9I#wj^^+);aL|SKku5WvT@8a-a1ZHoOG{Cs}-r*}G}YwqsqTJSe*(
zEJRs-PuMD`7ZhV%@6FF9V_nmi;`YC$DvaB!l+(G-)%>@^K+^fkmkT6yYEb^^IP>#}
zO|AtVpo}taj6pNJgy`A#>q9DsYsV-De(udOExv_M=|LNB<MLL$a&J6w6?Q%tKvY0f
zl;!T-yNxr^{T)B=QG9b^qIrkO6(9fpiUtG5#Pcq-UVr&g6ivje=>{*<)YRxUv$3)A
z@?JV|rS6<VwA@l_1KXh7<1hT5bw!+hPo2S9@|bdPaot6f$9e7AwV;UcjzYG_k00L&
z3X)pV@-OX|pJ^Kzu?6JUTry5?){Imc;{O|6>>3&xqDEyoXQ%V#<-F!IB>C@a@03u8
z)UvYLiH4d@VW0Ve)=ibo3+>-ujR9OiWoo<R<;f`By-koI%T~ebvwP*V<z1OMe)V8h
zFI-c*@;adP(1-{tN5kMUi0nu%=`}xWtLyslhRv>L{e}Ga7k1@4Od1xhW-`URWt)^M
zdv_|n)t;^>j}bcq7kPj$xcXsaq$T>_p@<+_s9WwsxgQbHa*j<mIL>lxkz84m!n0yF
zi6{5GvUp2<WA<~ctG)C5>cVT6uw6>bG+7EB<L&v($;rtuVe!@Ua#G}i{m4lyu6NOy
z^rYX<j^hOK?kt$*5B2rcXy9ll^Y;2%Q1DF8n``cCdj>TMgG*YPu1YVh<@bBsNNG`e
zvo;VYmfykG-kat;e#H*uhY)eRwX$-Rot-_QpkOO{^sK+8FcrBDU#Fs>`)lXUs#N~#
zrp@lb568!TRG)GxDl#z+`LjIszN)IUDEYtZP_{_twJ=c$c)`NKaSK5SvyhMw$H9zc
z&vvR{e)<Vp8ufx~%GEQ=d|<+7UrRf3c$5$R-hRQyDlu9ePk=D?T1m+P^7x`*W!K3)
zTa5DUgT8-1og>3+tH~=@ExUB(L-fttw|DH_%Lp=OhtKNb1$Iu(#I!U9@Li1Zu0wuG
z-b)DvFU+j=f3_bPOi3wO%j}=1ukahKGhN!zQ2JQdZXmEecw%CZ_bs5|e_lTmW$7{Z
z@jtK7kh9k#F*W7i*9Ud6|M8cPdXVM*&uiwG_7qy~{_|Sgz4J0M-v4=BWoIk-@Bdd-
zRl2vq?7#2YzMa34_W$eSY!i}_Xc=x&<LCA!zL`bO4=xOhjLF_tCpzScKfh`+h&dG^
z<;EK7QDhk0nUS#%(q$ze4&ydeUKsB#=f~R+xn5&=_qCUWHIz-1{60!QPzTf)Y0&ut
z8dCbD`fC9%CY<I*P9=^q2qfsIKhaN*<tnQld9v0pse+8V$cv-C{0cLIZO6@>^c7p0
zPMtjY_v<rI?^AJ;I<;lX7O)*m2uMS8W99!zJ-PkwziD9ttC7VG!Dt!=8T*bY*GDo^
z=EK!_@2^OdJR>gyMv3XAH<Lrsa6OEX^W2E%MDF+D>fn%<VRxB#L#D9|bR(F*7rCWN
zRAAMa&yf3a_1?ti^oeP(zo+L&;RtC@;m#P>W%I;_%ku2;KWol8pK!qdNRsVc&%{&-
zg6byHxIMV(dZ{N7q|t5SmGuMuBrUUbYqlWr$Lqp1`-fjTXqGjGcnj)!JeG0TCdthN
zsAiaJ+x+QkZ-I%94ih9KX<r)!0bIPdc$_$S9$80v0x5_MMwu<Wr|;hRkP~%9p1>x1
z?GD$(NJ|=6DvTGDj*^m~M5HuWCxz}W`u3QOi)%Pyf8#{j?W^$$%M8oO-q4*21~JSJ
zB{BWX7Y){;7wUMQH``)ZR()kdLv2DTKdJJ287VL-0?mC>j*=6{^z;bAx~oJE2fn8%
zdwF3pWNOMWM!{nfiW@EuJ-HoYq{PZv$f=Ig8G6(c_%q?;o+rmsU;3{3<cy-<G^DXV
zFeWGDPRuwskUIeZ5*ic0A${<7&oeUo_0w<aryqvYj&8hC5RyUE)6>)20v~-?0Ix`E
zl*ys!`RfqGYMxa%1t4Qg5ZHL;!j3}o&VFY(Fo!e*3CO}$o&4?$S-l}o`eG7hx2%I@
zCj1bI<&26L<*p}0;oopU3JyqbFS@c`fb=sqX*Y+4tYZ|tVD-6%S~7W}WE?g<)}})&
z^5)GURW-G<sM0`K&F={J;5yRuvBLP!PYSXeNpc>~bfO1(tvgiGoBPo8yN*EG{GFg1
zd8`Q1;je(@6iK~t=T65B@+Qt0qIGT`VS${)?*02^igeGP7nHW|SWlqL=K86AqawB|
zXU;syT>-H`_+g5ufTAKF#HH6WFevBScZzyUn1ngC8rP$*?k<uE-PYf-_>`5E?>~BU
z2P+~Ob@0X0r___>Yf9+O^}%saRagH3D)k*gg<AV%)KMqP3)hZ*dv=r`SJmd=WtEk>
zo(#&xdwZAeiB$*lsTdh?Pn68+;+?-nni+ABIG*hmJM|62rk?2S{!-|2Vc0hoHN~#8
z?|%Jq4Li@t$!Upv_E2liu7{d}@7}!=y*y>H&$NggH`D5ec%C^z(9pQJ;JR3a9lLk0
zkCk`3&O(i^gXu1p5glgQ?5T;8V#M_m5D-8%{?&+-{Nm!`_k0I_zopO585tNH0qu?F
z+E74mfs<|Z&B;Alt}POBnfJrOZlG+w7g=>x#IiX3QvfJ^;0ErGh^Z$ZKLc0`!eA?q
zjWq4Lbpmj-`%9*%NxL0sA682F-nROTT&wmxJMv3=E=&aBB$I!+XAc81`qgoYUfRJ?
zxw~|Y>)5(lUhG@M?&}#FGZI@Rt?$=P7yc+!Uw=)}YrY38;GxTxWx*KS6;Qd=1Je`P
zb(EfY+s2#9*MPL&oxK8Gw40jA*G)v!7bZG|vmD4f^S-Kznt<aQcp#4+YaLpM--X}`
zuoJYzH0mE11^kCP3Ui3RAUI+FOA1uqW<s^tecYc#8F^ccJ&73^HA5G1O@uRNK`Toc
z`SiS@vRQ-!d=KcIT+X9({l<+-ByD4klQk^bEfUxmOgq};&(fFQ?ZbwsM(x|h=Cp8G
zfQgUNW~H95bF;DzoIv_ifVhKcil2s@kG^-f>%$)<e*WGmr}kpsSi=Zm@8qN;)qTc!
zHRlwCjdEFlw~IeM(rI?<eYY;`{K!GH{x&?<4pQ3z-p6X*ZFO~Z`>tKpX?gpEghGSu
zDAfS!g8rgo)rgP94O3W@QQo3Sv4c*5)i<dD*wu$4Z3Rw=wJ&5UTkQs{%{i3sVDPXJ
zEj_*Q7>(~5CI2HC%AI``2z&seVv?;hKW}Ng6pw$@)O7mP(fT+=sG}ZE9LKI{4Q>!9
z$uT#y1ph+qcPB6~w;*d*mlrxME1}tYDLby9K=#<FQ-X9GxBf-k0WzrRb4PHgPOwzm
zW_HM}iCTb69bhfBAI_?BVuS2SFveFl{cG4rvYv{-?UX7qktvTUJa#jftVBvwFdjXT
zdUB|{{2)vNZ`uVUA(0LY{Mg@~?@+DI@9mFDu=mx~iA6<iL!OY>($Lj)-_7Cm+jga{
zqkLjyuU4c;CAj1Z&R1X+`uh6xjEqL~6!ReIR^saN_lYK3DfGz%$Hedk^yA%Je2Zy3
zK{A)Vi`tZZLe0)&;fsTHvB!O*4_wKvEaGW_y^ts7W(}j-%k!Mcd$XprGNqD~l%#Ru
z*mq0R^x)(3PFLX&iaPeZQA^y*<NQsm`F`^1g@AaUr45wj1&{WXXE^&AbC{z><5w#~
z?NaR(!a|MMiUeiaEhkQ&zJt98>*omzhrT2fyE2+zyi%X+Dy1S&5H0Jyl&dw0tI0Xz
zdh0Qcxlxtclv%lt>5@4d_}isjx-s`7!XqOY1!4|f=X}o3x`@vSn3-{Y(rkMZ<{p=b
zoloBNeoJeacX7p>|LxlWna26|aO#Y$UmKCT=j`n44_;JF(`~ZLlwg4qXU7a&4(=c|
zII?4>Pw#Hav)dc)_G{=^V*5lIYstjD?#;&PQ}Ws5Y0mVntgk-`tYMP&EG0#a#Od3m
zrCTh1Mu|m?EMcHPQorxY^zFg{4(0Ws@$n8U?a+674>_(RZ?Bc#PN5GTY!^1z&Hgky
zyRlE2j-EaMmR;MV*j>l^b(`AgQB+0{EN9M~u~JW-o9HwqST=0fz>%N)1Wnvp(?~^E
z4}6R6OOwvYUxQivln{d&wtFDJbs)dHAya=ZPLQgh;p6YGFGhl~Oln{)xlkV$ZpP2e
zy$8IJU|syd{Y|#7U6o`Vd;BEdvHAgL-}s#OvBl@o#kKU*RMw9lKlVZ9jvaMQp>3M!
z&G#TBK<?|2zyJPQqaV<y!n!o?z0L6VxjdiqnOOAH7(mMpeM=KQldbsB+>Y+<?w$^i
z-Fr9jEA7K2wPXoPW-VE&4tT}dRmb}_z1yKCr~?yYCaeCq+KrYQ%mn<&XC=7J%@i%G
zHc}nh$R)126raOZg5d=w1&(j6<v917J#6uU-UM&jE?L>rCWX$G)`}Qf`{XTWH3}o@
zhCJbh!dey)eg$RyNTYpG+?W5ph4#gc<!_JAw?_3ql;VDaCz$TT-?B`T=QK4nFJ+BF
z>)$Gjk7;<<n6yLJC09NyADYoE+}ET#ssIolXD*<~<Y7x^xo>%c+pn<QFr?W9!b~_@
z8lDvNFP)nm)p0r;E!ViF7PwVFxc<Y3mlvbse3opens#-(FfF!nR)kS|@ZbS0(eTPr
zJ<={Llk&Y~^#T)q+xO!~?aq};cfU5i8nvT*GP=#opZ9y!VvmwX$->b5lT>%kr#|Mp
zcJ4Ha?WwJ+<2XcN-&Q3n@izT<YEm}RJyN$n;eyonvNMrtzsTA!5Fcu49*WRprl(gR
zMxr7Ry@;fHLDjwhor6Il7dwlj@R?KuZij0@9L@rlX#|d<;$&yB42I58C62-dJ~<qa
z<ZM4d5X|?EsQz=3gYW}tsd#evQh)lig3DS_`ilcdi8boDaL+6(RHI}kx!hyyd#|2p
z#PgGTNEk%izklCiX7dF^K#({*@^#Nul-*i=*3r_cfE7RQ9*bNf59lVs4|6=XnyP=}
zz){!G)|NDm6I+rw$H>T-vp82(kXAc3?u$|)fP(!5fykH{r9bCKWd_z#n{Cmc%}q=p
z7qnecvgv1$b0IIxy*!cd{P~A59jZ<@ZK-oQYdN<}L`d;{f<TD5De^*a{@h+;lOoq6
zp4(Vi&wRaTO6ek_?w^B$Gz3HwZ-Ob{7FH37+@YY*K2qQ|8Wn9{ZFv3q^(0EI5I2H&
zP7)pcoQ0#ihVGA(1_oLlIrX1EtAKhy2(vUlKAK$=_TWK{$Tz`9ys?w6fU!FxhkdU|
zd0eo^VjvPBL|5L8Z7Sm~msogFymT*lksG-ov*ATN{0J5>=Af^cr;<~jYR>4Ma803M
zH0ulG%s$@4BVCiWggeYcfKigjGAp%xnSrJh&6P6fWKPY_=A>zRQ&CYh&VrMPHg^b2
zZ>#BAea3&()^-o(xU@P43JD8`pGC>XW;`ePh13!EP*YPU=<UYO#s}jDStd?P(sG~L
zR_O^?K{b7Sj^oFVf5|dcKv;96Jymaa(&Cv@d$!>6#Bx7Vau_wpD{vo=`gLIU?hh&7
zik3>%%T1wWBb4(Bk4*LU?OUsFR3r6*>(;F!{NCQ6H#X_!a@{Zn8(Wa9ggF{YB<TDw
z__5y^LnW99l9D6dAYVzJpd@hSXkV34(f-3Jv~+aTgd}&6%ABM_SI1BB&JR4qdS+%B
z<6sei^YyiUyuJTDkGXd3En~<v2hWeU(-69G2ZphhCS_L*J-eQ$&<Bi;KKO@#!u5IQ
zQp7u*X-n9nB>zu{Xqh6$JBtmt`E18-8Mc5q2>R7wn5b&nY&Ab$j=Ya%JxVf!t1JV3
zoR4Pet0W(PQdDH*iOAzAs59Hw+_taVdVWhs{&FRK-)o8kh&5|mG2~VJYolcn|0N_E
z-K9J9UmJ}#$<AFdE_dcMC|?*_BUrh(Z1OfzRA0#z@uwk>yy#|*p<I73d=zcxhsSp9
zdA)D0(R|Od<3TvvZ2B>-;ZjycwdpjGCumqI=5tY2Vw=Or-maE9`K1k<E*X@Ds_t%n
z)KJk92t}$B>Jc_`5~5Z$TXQe9Hdbkj4u=pmpFg_{uh%}2VJG3WP{{JGSKK7LWA^01
zyp**}qt}{Iw(mF#i_BY<eV5o=K3Z9tP`VO*uga#!K}eRJm_i*^JKF<O2sKh|UA0DO
zZrM!|l-O=2=_#A{4GI6;AP6xrF~Ex0T@^EOOXf<#f{yjE3WFn#A2taJ3R*>8d~FmX
z>qJeM_*@+dxu@VZ^00DlPW^40r%;{{YNE=CCUYYS91role50WZ|1dn=xQMYxB*}Ub
zBVmsa3VDbcO<GHMFU_WNY}wL!N^P_yGkFmF&CTcK4LPTnFRDd*^1y`GX7X&^dWU>)
zlI#P5dD38=&}^GL-kxg{W_)%Aev6T^`eSTZnm4&SE26HHm;#)QHZ_CGn!Af|tLarw
z2E3_YX?Hh@B<)kf?%at9`SX3nktaDt9J+F)@NM@wMM~&#rony92KxE~ZsxhEW)-RH
zxdCwR|1wz<zvOj#iS^LhOy5zZ#rI=HAg6u<&`}YXKA<1+S8kF{v~=Tvh@w<u*Bw9Q
z-N&qFZn?HZAprYzmBcF!3|34I))FVC(RciPfHi=aLiLY|XPFPh^V$1;?Yg)bRLAWt
z@S(^P7AQ{IDr3*Pea8;g&6}wUP3)&sqU^Iy8B`C$t#B++s=N5POb)N5IAFOXiYG9W
zL^zJ$^`Np)xMuM))mP!GCGS9oyJ*G2yj>;fp<`jwP$A-4$@IN_DLZ&Iwio07v=T?x
z3v7H~^wTsuC&y{*yIA691RA1e-q8*_Xvt`ZtF7()C&J#Hlb3g2rzjate$TlO^3e?%
z%L1mKCdU-2fhHIU5_}<)CDT5{st232`mgbJ&Qh-hIz3;B=l=e*IWlx#Jyw2Cs~r(=
zu#t%M^CLF$EAbxko*70|l~))DOl_0o0{eu#M+|qO;w8{CjqzFrGW3~bU3Ta|kW8ha
zlc#Zc_F<57$|@>2t%v%V0Cc~UdU+6UP*HOWT?1Q9kES;pl@#(3(AA(iMEP}mLNjA+
z?wfhzEQE-vh220x%>E(KbkrOjU%pK)1<Z`w^l=dLsE*8PmBA??YN7!qfS;!i;ZwMU
znW=h9n>D*qjq~jxf>kPMq@CE%Gu2yhCnTi$8Vx<s)NR_;sB<l_A>P9s*-9&QPntKd
zN5YEyq85a>ghcYOdFAyFA3n4|X(;?St=>V02@pVb!JlJ(|GqpdKKaiLx+mG$n*n)M
zZf$fbxCEDicphM!ICSQWfISM)NJI?8DD_C<WTt*1`b6+7mAIH+5P2kS*o))jUF0wO
zhX8_7e-)~*l2ub!s6o~IMm7S|oh~OPvUBb`{g>iVZEaO}4`gD{8M%W3qAH=JgcsuQ
z5-47G5L+BxZ@m0U7^9Xsh8Mw4-H(jiHAf>ri;){IuP!=+IxsGI6(#ZG7kSY-LpH+y
zZVOHlqqqkJ1XO@rPO>}%&I9U78k(B#V5({(5}R#bovmab-h2q%Van-911wLBEab0-
zkS^EwUjp+8QpZzhrl3DWiL3>J7XU9H{&*v>;!sm6Tb@IAFjTU6k-(U9%sr=#$A`Nj
zhbfcP9{vuuM1_p}Fmici<)w4KX7MM3J>iYHba*=J=CmzHjj%JU!%ySauS_kIm^h4}
zK#-yc&d2}e&3|@={e#dzT)feOeH1qj=^e)6vl53zB9STSA_yD*PLy+9$ANwJke`+H
z+PinkphAebYN!*ru&}Y+=;^V*JdM;K#BBFtVgkvC_1u-NFIGzvWy|(A&W&PO@Mkp8
zC9Q1AKCgv)VW6oe#m>bgq!UC%K)^!T)m4(3h9-I5rX_<5gvpmgb>^BFIkv(2c#l@;
z*0vBk5G_d!Q6xIl)_%Bj4Xgp!1%$JH5Ya`3u}D~#^xR)6O-)Sp2_~14M?=)&4MEJg
z3<YmfG?HIfT3mdBV&vZltVmu6L<Y5}4_h%tj|quo@NBshgyGp5l(&r)TRWNaP=oqv
zi7o>B<Nfdc(4hM%QlwvMr;yMFKn5AFVX-T^*ai+^qjSy>xT<vm(?Cv0a{m?@8{0YL
z`^SeG73CUt<67?Qbp6DB@Zdo-_H*EL<|&A{pvcv7Y5^68Jxw!~XU{r<D@a#A@Cji<
zyb>P<B1bj!lMC3`*!U7=@%Qp_yJ;0p<4c!8-5Z5viX@^5Aj!K~1$sI<k|`udLU(XK
zLmYT<?$7#;*xw%##>VH_wOhG=iYCb>85x79inh~zCNh)LsIszKoj&r7f1e_Ek>^~R
ztBT^ql>2`Hxctk8b4?)xp6D!oW%G3>5*H+mEGxT}1i3(jm`t$Bi9<K*`smzsBz2L{
z2CgLaLwnJfb0a>UAIq#%0yzL#kBOKHnZ{voVTfMtqM_^k`}e1{u^Wp55)x23iFpIB
z&dSM2kM#kkVfn_7>U7CvF%k2!Ky>yuJ}IcNX?VI0Eb;n;)frbxw62_%hQ@jX_&2k&
z#mOukHuW%|OV8vaGq@#WC&(C{jI8y{%z}|9ijL8&;%Uox0@_EjUHaSy79i$|`g-Qx
z-d>PaEEocJr?2m<&EGj<H1wO^L%HpxUAr_Y_c)N^iOkz8F1{HR5TcM#^}BwZnxuh~
z+bu61%sZ^7#{$+L3QC?Ew~7)73_*$DaDo=46EQ2f1M0m{QP*M2palyVX&)o+yLy#b
z{p)E9i@%&*T&7V~Knj^cx_liDz8H8YGVTX@QMIs0kQCHHVu3q66#PNL>TMQ})?6Dl
zA_0+;bPzX*EqAcZcQE`(ihQ_@V0{Oy0Mh2g9+PTos}x1P&8)2nPoF9mwYEV${tGfs
z%<AW&u}(*hP(T&*fwPN<2#<)sb)_cARRY;jbYNSiegOJ5m_S3lL!ICFL%ENLWL;$c
zO}<2xAf?HV55X5jLT}1dR`pyW-gg!dnAqshHpmE%IfY&iE#HNa=Fb*|69Z(MNWAfb
zV&bJkw-T_)2D`RgF%4-p)=-E4WOSl3aC<Mc=jjxcc!8-d31tZlY2+(MuCxFr@>xab
z7&45|K;HymCF*d^bpo{hEWZ)Wyt+`o4OC$t=E_qOpl%Yt^U%FmgFPe&vT>sQY@D3S
zPQn6OItO-bW|g9fd3ue^14YH4|8WCGkK6q6^)Ox4R?V6wlkvy{VtV;zG@pzNI}(Js
z_uLjVAJ{r6;z+K*af&>q>EHmXudb|2UF0ztjB@~U7gB}tu;3qj$I1UZlrn{(kz$2f
zKYu_>G!S8km;A=)*Y=&<*p&Ip&YT1=6l3r#qDmu-up(1bQigzbpi1A9R1<*F(c3Dj
zI$zN7uBWHx2fd6fp!tz8xd~H;8Ff?05?DfzZnu!oKib-X&r}4rKizrnge1#<(_O5K
oyMzA^a$z__<m-Q(dYkiQh*P^YXUl(xY_B+SSXVVm+2Z>D1Drp^Y5)KL

diff --git a/reference/plot-8.png b/reference/plot-8.png
deleted file mode 100644
index 21547310be03e54a5e6b7decc3e858fbf9557ee2..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 60701
zcmeFZ2T)Yq+9rxQV?afT20%asNs<IiM9Dd$l4;2~n^B@PIZMtUIfF`)3=&#$jtw-q
zfu>>Jt$s7-R?S~`X6pW@>c2Hzp87c2bnm^_TJQU$wLZ#9i=H}8ah!yN<dnGBV|fyi
zLk=V)2c92241d!f9J>VnIsE*I=wtXVytW>dxx;^sS%|4wlaNq*AphIvH@U1&LUM&f
z{P6=thsgOsdk01R-Mu}PbL_^7501Xhok<guYrmCsP3-OIFIT=4H|`I<@c8`Ws@J8S
zr&NSB4=KK|snu2v|M2AO8QEZl!*3HAD{91~#A3n-cu_ZNJBF}ez4v#jS1q-ywG6Em
z34%E5Hr~q)(}H+vU2nGizb}h~<Z<M$G}6C6lgP5sIqduMf37_AA35~r$CpQiUz7iR
z%eC{zwEzD2LH0lM&94|`RaF@yS_~?@*|eK{F0p-QUTxtXek+ibrB$Y0-=A-+@XL?f
zM;dR4Ja7_{YflQ`KJFWxCnrC0Yuth-!>SVfHC9nmlS)x@X~D+b;P<<(<lgy@Zsk?p
zkD8BU`riI*B2oPIS#uV@e}P0+{D0vthZrYq_zJ8hB?Q*mAC+#;r7I;%Q`6JYrD#_;
znRF)km{qJROGV#P>n}17VPkme{O;YmaQKeHrzjG<SSwY<#l`uiBdxnKHMohZF?(IR
zM8X@-bQC5lxAz77>B~0`pldKILM;xIlwz~Wx)Q|6=;`Ta<GfgYy5a|uGc}5wObzRO
zsh#FhlLLc;ljge9)8U)9;j=QfR;Qb0Z4M91CHA>2mP~gQpj4u)TX`iUB!1F|XvUS{
zDm8{(R(<B}oZt0jW>kBe#+FP+chc@I9Z5_`K(2pou&jtdDm)?JhD>mJ=Gp5as>D4Q
zh|SxSb123$WrJD!4jfipCNA1nb;dsOU>?jW(=e~-HgVrxo1IK^u0F-BYCGK;h0TlX
zobB3P$F6rN$fQ2<AWc(B50;mg@5<GGa*BdeY<0R#<-vmo`ZBd|*y=o64Dy(SgoK_(
z4Gd`d@qIf!>1tJ)&Gvgh;?NJewzj5YS`LwGKBYUfzCEAUwo}M$zo;1y8hYtVRKHnS
z%f!^ww&_g)fkEaNfB$D2xM6b&ZnOEK!Fn3!W}YZ%nEk@S!c(pMxHXO4x%BM2yu7>*
z@R)CJj<j%LG|85BD7Z}Y*xA`%n-%3oN+&yxz9ZkMJ5Nc8nre+gt*ovJxGm0Q|6Huv
zb4za?tMziF;a9}S&bIZ3C?rcex*QJCaVz0<T+!R&yLEKf6(42mog@`;SPO^IabKTV
z-Pze;*Ppj5+nR~@lZ+Sf*}tJ8A>kRuZ*L}BPdde6%@;+pFg-bW=mowjRe{EK|FLz~
zb92KAzwbRV^U^m;eP0@Zv?kUnO~S^)32|o`!L0-*{33PNhw9UUoA*Ps?9|%hCCFK|
zGoG+kC>|lDTGCjoCD-X%o9&#m;ISF^;hr0`A70mRYYFF?>xdVXWpmjh;`#P=Rtucg
z=U(ccrn#4LGpqRFlMt3uX$y@M_Z+^^xbIk2>BEzN@5$sIcHz*gKef(vUQAgzSiQhR
z-}UfdnLVb|7OR+N(DI2E3s1DLZ?M9-$Zr1ES;Y#tz?#0w)mHwX&`{N+<_xtw&Zl2V
zsP8%4dFotJQi4pcA;;;cE7!BtV=HB(@m#;x^L@_iaI1B`)am8r_r&FWD7e-}J!t2?
zzB<6n%#7}w4eXp%baSgDrRGa8uiO%WTmOs>2&gD5uo!*lbD5*gX*fmhy6bwkN@Htl
zFuYez&cD#KKM7WrhW^GvfAZpB*^zag_3G0?8Sn)KD2y~LHzjTDXt>Se$B*ZmbTf0A
z4g6x}fAQ<ismtt-y)NFChjB7!jZD2R>ic8V0{$57?Gj6g8~vFpH<dHm!?{p9G<$G?
zCc~8#T#1jO_-r|K>rPS&x~STfX-Ow5z|E@XJb%YhwPTg89m1kzGyf~+<+RG>Jj1pg
z@5>w+cv#0huq-kJ8{672@Nr#*rW)e(u9ul(%ir(sEi{c_soZ?NFjS!--!Q#18KM)6
zYJ9o!!ON@j(P;s_ikQ2m>R<WlF8NUN_c#f;Y+6)JMsS;FA(O&+V_xpTgI92CF!6k;
z`IFwAAWyT!_9*wloX5^|#9!bE=)6INZ<sBw`#sS<I4KFdy%gIGMHcHnB^7a3sW>Vw
z?wUfjwm^DjdRA#8PIowfL2AVzavPgnwV~ch^mi3E*jySFOeXu$*vPyZYFGXKR7;L-
zeR;4wUsRH)AB}P^l$w6Sa_QvGd=#dY*?FM=vn?RxQT@!Ua?2on=ktR%F2R`@$hQ=k
zX<=0>obh+<$_5QJiw5m9!raoD&!37deeb<2BwUTAe<JzfMMi=9K(S>IpYoTD#X%Hx
zr$JsA{BqSK2RnPl$~qQ<?=3<Kn_8tyNgI(RQ7F$a#<j<MD=jkaswQ5X@ozb4weueF
zVTS_HvjM9_bJVVqu*gr%YgOYU<i6_yRd(x^dz%10#TmcYLx4}XJHjTfps?O}Gn<it
zp$@xi-6o)7KjfHP-?qD+?Vc(f#i!j=UsE#!6{={cEu5=qI;Y5dI15)vkVc=UrOnQ+
z+U>(_)z;O`Rp5v6Xj)>}bVYuUH(IHcSS50$aj>z;(YmhrkByDF)Nz^i<$sbkJd=j{
z5tFKroMt`U+LO{=Vm<BTopCDp1WWN(3S)Ie#e|@nD%-b(jDOOh2s!mMtBw^z7S*Rp
zcek;wi}oLVe7gJ1t4u50v6)4$PZ9G^U|g;Evi_9P){Arw@y(~W2cDW%!8E?0?YJB7
zCzxAkUPZJ^OiDVOu{!3(s@|WjlC5lKS2(<KT4?7B%+IMJ$z<uMjD@}e6gC`{wX88D
zpk}i+BiFlNmpv)Cv-Ai>@E4^y#{3{WFfifjqxY&fZnJ?)U!;YL+wj{zuKOKy;S{)f
z^+DUcRmmT|v~YKny52OdYjWwdWMpIo&#Div&voC_t3UdlFi<yM?}t~*`tn6qAxSc4
z==7yKSLo`qwJS<l%9kFB%NrOZ9Y1m6(ND9KcUZw=(|;<**WULB%>x~w6=p2>Ul*N2
zy5z4M-2yk__RC``_E~by=rv5$E>{ZQZT0*m2U??LPRvfuZdbO>aG%+5rR&!Y|3p#p
zi{#|axAD;DRQngN`yJRCr`<C$HSaIHJ>xVvDj1h<*cSbudlnwS?^{U8j~DezGas&W
znoSI$3vwysx0`PdQqfkM4Q*<w&>_F2`Wf!T`F4?B!#Q3mQgQh*yM->8@h?ruFJ3em
z{r--E*D8U}X67>>0!DZ?cOzQHp(e4UOBYYuWTjXP-WV<Yvod)o{b9b|)+p@y{_aE&
z8huT?4=OEEp^2lX-DNY?3lsr*48pWjM<#wpX5A&z!P0Ig9EI^EF<3NERtzeJ%j~m<
zSH5{4_VytT)2qV+{XBNG4sIrMfzqt_0TUCGgt)kzygV9SfuBA-tr!Tff@K(?#M-{4
z^p>se`qin*_DG@WD0}T6&yUt}O-L1)4X$Oo6Q7{FGSoO0e&sxxj&XPUF~;IIF`?%t
zyj8h5b|QOncdN}^y&rnsN`DfY2;d22=t128dMZ{LZ>qxr$j!}Fgb6)1_S`R|EG{li
zB2sGeEsQMYpOO7=(ER+|&qObz1-1$8X$m;4Es3F{c`P5o{E%~UDxK@eOy{+p3QX16
zwwwhRbi{QY9tEbawW(=U<8HgrKw~hzcGgBco;?vgp$_GKWo1QCR`&Dj*ZVJAxS+<0
zPl!ads)|1gdsAdHOo+gBX+3=SP;5M9p6fhgU30T!)ICS`1hx<i5kG8hTDA23g#L!1
zzP?&~>iF1LSBbS@)q(&3oKpOdbK5UHQ^$7%!DIFRa`Ax@Vq)zusSs3_UR<mS?YUh=
z$2IZQfg|cC?DP!{(`8}=orvogfw^Gmgu@bDrPjAe8JI=}a+K&5KaN>2Qfs)mxyi17
z_gBnl=9*{$sF6BU;rxVIe1yw<NR!`w@ucIxx6-+^^o&CUJKRtvHNTz1ynW1xt!U@P
z<%q|_CDzGx-j{VNaP6^gF2byIC2Y(B&amR4vf_(kuT#xd&QyQ5>D_pvy}T%ST=3ZX
z|G0RZ+LgO^m7x*K;}-|HptDU*Potm$_v{{_armmssV^z%U9Whe%pONN#{*Sf*Te&A
z)RluB9@@yixO@Zfix(?DM6l9PWC_gCf~C?!xW9U-j7rdjXCkNgCJyEi(lk*$x3J4Z
zKz;=;dgY;ok)q}+YoK6uh|(4e$wb_3>APEJ1iiC|0C;oT6gAZx*0b?)-+_FWEi2-z
zjQdZhz1e|*=b^|3i-*$i*`(wqk0{*n3O+>f%B>U^AgihS2Tl2iEk(Z@8y{b9e{^~_
zEj=sOt<Y?c&yO9WWgk_rfO7l!Q-U?={QORi(&&3ivoD1z8LD#c`~$nQwD?g3=zFAT
ztpNY3FZil_(|k09Tq4x;&QDh#(FJ+mGwV!}lC`b==1Mb!(ROYLr?g+4YH4h44y5BU
z=}Kwd|2nZm=Mk)h<2>8zz&mK-2XEeFU=aEE@na7mGBWa|ZK3%v%@;|fp&J(}{x1Fg
zPa^_eT5emDJ$3-S>MId2(+^*Bg84Fns@3{U`wNwz0z5pU?{Jcer@fDc%OnsAWcnQn
z8RGVOUf~`rz{6C=YMPoEfc!l8Z)NXjJ*up!sWJMQAnr61>p>?@>hTCZrMqa@jWYNW
zkr!9K`UizH7+@mHpylT_9t`+mORHv**Snv_eyrx>g<}|2eA`$(t@}yUA=kILtcKrR
z<^547kw^S8@7S>+MtN1$lp8TF>?wLL0I?agMVnTz3Pe2w_^O0-dRN>~1+jH?``Zy(
zqn-@49%sBBE-VGmiOFDT0p08m|Ld@hRocChsCg{zyYCT(t1tGiV|22il1VU!?K!l6
zen8`;T*6T|1FgGrdA$CS)x50sqg~{-V0t=Dg&AhV*v|iAn>pJQ%W2ZZh;rW9TxPy?
zt1FO6AtR>b#(=A(%)?Td^^q22G|``M9q}FoL}*kFw>~NN0Ww?bR?#{1f&;-v|5Ra(
zPf&$*>%8SEoYuRF%ypoZh*j-wrvtu9K<hn)b{TwIBk8Vb-wcc`I-#cKabjYkV?G%z
zEsiaF#(vl}xrwDr5-@hbMJ<5*eR+m{?@wMHTTXHAFEkZEOBu!inQ4jOmdVMXFZvoM
z?A7(<*`tcBsR-nqqU>cUDPl)X({z<PuKp%;?z>w~fa0q!0$=W&Xb8x})4K2EWL0da
zXX;c9c_O9e^5x5OzjES}q@yT)j(f~e9Ipf1CorW3c(P28FrU{RDfS64yn)t{6Blo_
zL&MCRFaq8tu-iWR1iE780@NBcfW8Ph&8%^;w9G;9blGC*6RlF4W7TSb%|vXj<Enw}
z;s8Q(i&_)mOErqjlmH~#!iqZ7ZBV=z(CO&&TVFV{elku3AgRCNB4%f6)wOU7)?iS2
z=KE8W;m}IAU$7$VEyCab>{8@KR_zx-w46q=Usp&ys;@@_Uay+OWT@%F(rp?vOifMQ
zr<-~*xziZfCArN#=nLib&dHs#1%m`!)i86O!}1tA;gRd9Lj*^e=zG2K6~>)ON*UwK
zMoS~#wA)b7eIIle^)DnTr7HsqY>#~;1z<k|51@Iu*Y0y$^WZ|!FpbSgvK!KC4mcS`
zT!6(+^l$ZK<VD@lAx8A4PoHDlw#B&zZ4_iDfkk8rdtKb3Hsv=P;BnpEntsr7vkzv-
z@1_`OE#1zhQUFhGZsgk=pg#8PwuevCWI(Tf&z6Sv51@71jE#0#X?UqGw7aQ`66|k0
zUe9&j8&K5DxSvqr5U?}VY#7$WzFU5T#j@<?wikCJes*@gNuwnvPX^!y^}FD>>PBLS
z_Rk3O%GAxxO{@CLKY;ulaI<S@Xi(2H@Bxf*-li<JTqbRf;sCNtuc#}f&yk!_he_N{
zuHzC5qipo;^`ULR_P_~E7KW>IK%p?{$q36TnW9)<9MpieqF7+^iuDzIhZ^^gL;O@*
zOt$0dlyR-+1wM<Bmq5k3fxILpCu0ly%@m++NLOEeKLpAG(w%3PMytaGoC_<78yduE
zp}h`ZAr}A}BTK^A*cfT>r8cwATl^@^a&mH<K((*|2yV18(GV`=URn5}HxAa577&QJ
zzJheKvW2@*&Wj~iwRV`PFtT@G5+nnEpQ)oX52O>=9C^cMI~N%3F!u3NKCbP8ie_wA
zm!iIbfw~Z-po>EZ`it#cSBIa_ZVLUA;F&1<p^nC&o3@)v&$?3;L;>L{fU44+ts}$*
zG>|I!N~)eo5NqY;Lu^lGXTEV~zRj#W!pFE!J&FK6%*vNV)))F!06#UhwA@zd|JP?s
zQF}>OQt8NFb&Z5kD9H$U_VD^&l-HP_H3i@H{P;0-4GSVr`kVr<Zb$u}PpJH#OLdCg
zY;}sZXa2m0<mHO)LDs)NKW02v{`bc-v0_VqwZQvtuYEi5_pi@-{+r&sgo5hw-*qkp
zB@eQ@z?FgPC;==5jC=qaSy2JBTdjLk<Za$$-$zBjEI};>3Q(NV`2vp<nsj!rMYJT*
z2sph>B+9PK6_0x>X6-KYWJX|!K?_CV0SpZWd9%<P(j`N`s-e2ml;GP;Fj-OFY)aIK
z^0{;6oAX5;$CU)Z&5;9xP^(JkbDILu=s4&*H*epT!Vg&c0mg_2M3Qam!^X_QqHJlo
zZ0x(e##V>$!rw9*Yt@dtnwnY<ud_2Rm2Vm;@3qI{1=i4Ysv6vNvUTfym27A9Z>fH{
zUt3$d4P-*KJ67=nTOFSV0Pd@|>W>Q3M)~qw4@%bo79eY&qfc0X#z7(IQtavFwGI-O
z)9rwO0EJk>7NQ~<8G;hnQ@OV@E%cz)eq};Dz4gP{>#qf~8(m@uR+B+0>NzJbvnOcU
zYV8t+_vT>PDR_`l+qCjdGcqxWpQ60m1$UVYu<bq+u2i7USbsVj9;yp-dq1-y%t})=
zbNHx8O@}MBI1F360M8(rB8WpUuf;<&tv;FoKZM?tJur;O8c4eU^o0x+D26kB?mO`y
z+fXj?U+H24xGeu9_*O@!j8Nttp=wWIyv`>GSRs_46sVL=py=98{P2IdplLs7TRP@>
za}9tsYIkSr0W~Fzj8e@N6F`KG1E6w>$bVJQ)QogoX}BR}W|k#N3H3RrQBO}#u_Np)
z22?3BMcNYW&SaVFxlh+0a%%GfZDqj}j5+Z}wWg5{Rs%4|`~~1ct9w*Y42YvG>9G5r
z>yQ4^O0@6zTg4`as^CJI@~U!)8=%Zlh#LT|5Ny&jG*p>!Yi({`Gcw$m@168Tu$pod
zG!~(!Te2=O&UwJn{7RurF|e|-rdZ!eN;q9+i@j(w?7G$=s;pHus2#h@N}TJ>Gi+a`
z&}|0J_u8b$ZlTWrD&>O$N0=a;<&M@>3$Acq$@EDpnixP8$2N%*+uZVi4!x^KkERL1
zqp;XkB8&S8+Rd7W(9VP2-rfg6_B>Qh&|j1Q%|X@f*mi_68@HQN4h8CapLT&sP+y^G
z`sSvCA3La>Ks<N`V}<jL%I$hGHB=V)Kx|T$l$5*_ms$*Rw|YM!99|HSw*)cvD0clq
zn&5H!NPlM8J>{g~+`PQ?l_u6FXkh6bo`)O`AM3`KaKobxq3eBd7kE>{tPO~Ml|O;m
zP%ZJmx0&=8W<ry@sHo{b1rKZv*hWv5R=Uv6=xM<w;0@`}Yxx|OJ`Zm|xxN9bSI~9)
ztw7RKf#n)9;39~Q?Gii-a0QlN@|z>4=Z5!oi%RWr+Oy+OtFEkt#$7#5g!Y7J>-Fx3
zMZGV@0^pH@#{x74{vZNcw1D$kuVKtANEE5xKcx2nbkzAnyum<VZ_pC=^qEwCg^&gm
z0YD~u-9Z=Af#RIG{Tm=Ox_v1G9I?afJ<%*o`!2+JFDWVMef|P0K4i)x2pPolbBa;V
zs^1^76{6Hd$o!`|tPD?8+k#!0w&Ual@t=UNx)Yy}i~kH|(|w(W2sAfKD51>(;Zs5;
z@3~q4+n_vc17Cp-ato2c0sbo!i;H=xi1#eV9;eU4Lv#rS4x}x+T-uecB6D5DyZ!Z{
z6Cgj(OioQTf($up!+hh0sE+G;P(4>~vJ5S6lyuC34~;;d#Nyo-zhsBq2$?_uz@D(3
zX}@}k=H4&ne&}b}3Px}F01NUNgSpUG?wBVXeUGVZkR`b@6{xUjZ>}&ffHI|x+2oiW
zKowJYnZJIi3V=wAPJp=|Bcuv_EHd>w@4ZXOF`cuV)O<EyXsS?v5O^&{?#tS8n-9Gh
zf<=2r)M3gPO0B=1S?Mf8j6M{zOhJ9m_jxM7BfaSqV1}oWCdzN)aprVkfIgLN84Yi3
zGnQ)-5qa=^{vb#Jx_Q0cbgS@;2)D7jjLvsD={C=0F;RRcx-JR|bO0JfV0$J4*N!=O
zgHfS6$!*$qUQu&$86be_0`6DN^@#<7_0FcHLY{#XcC%_{#S3EvVl2bmyFFs;@WdHz
z-fTjZIO8fXCaA_hre{7(s-Rw;Fxft;>%9fwFC!O=$<FSwgnK?ibMlEdJCv3l&kHx{
z#DU7SgKW~BA{YO84uFZgJE4F0o*Pg%LDba%&`pC<^DM_jP*tddO)!+4Ruf`~QIdD@
zau|>0^RMr8$_omd@n*=hH|dCb2XaffU}G8bH;9S=J`yNAaR6X`7fVp^Y@pU>*Y}m$
zrrT!xmK1?3XRvz}DcU?J@T>t{l?6<vAJFbVi%B2e5Zam`yD5UXUbqOun|kQPMI$J-
zr5k-Hfs3dTFp^;MuUPqfZ-CVTdQBEQORRkrA?n<@b2cE!1C`zm7;+dtmF<_LJkiGs
z>lJX+F)gbGdc-|KuoRna9YSy()KjqBkdBm<miDDf1<W60#>&B=08(cujA;@`|1!sp
z9W!bF{0flj`hayC)Aj4sxTCkl+3SpempYAoywMf==m>P?C(vS$HNCrwuR?)1q}{)X
zuiCpUE+HdR)Tag|ZLt)~0&GwQ+%jLYlF5tNF%jILuAd-hLHd+UuYL&9q<kp3dq9YP
z6W%ih-v(eIPlWX1#fu0%SHNUxDOEVxLg6wUD(^)_x$myV7~0StB1>iy0aflNKdwB!
zinw52y0g-RxOhlU^SqhW4nvGQ->Q11Y|jm^C(wcf0ih4N5f=D>BnLuM1I9Pka3kjA
zW=iQ=)$T%9Y5<1#&8;%g6_^=fTF?PCD$%rU<BZ)EWNqm#Qqi&v0$(Zvl!PIQX9TdL
zHZxI0{RL3w#O2l1!@*m*00lG-x&?)RQ~vspZB`-(f6b*bAmPL#vKFc&MBAwWYsd5a
zcrani4Vl@)xuBlr363)<Bq`1nL*qCaz%0pf{p8`3m!A6MZi4WsG`q3?b|9j&qV_6X
z3C+NQU09~%U~Q~Io8G#oJX?sstt20Ct<)!}Nj)4V{6%+IuABqzYI`0dBSbvkwVw{8
z`AcLwM~50~^t{=i6%;kX!*v!EBEx)$1t=D%b|vx4mpdueWiW|b8Uk*(Mte04lvqny
zSy_GEfV!i^(E2nxib%jmfD}e}!OzRv`(m(^>uJVlzTJZQ&1j_jd|%+9BIS5q^Wn2#
zyna*g)(gbrOaf(KUw<eN0Z{?GoEONd+*?~)NdOoHv8<|JzT&oA2n$6FTwLAeC*K@C
zwNk?4M-Z!n{u{B-UlalJG1z!~b9r1F>jL1z@CEH5%4s0XZ%Szxq$6i=@kiB#3AK~(
zAPPhpww+)Fw@fb&5-=LWhx*NjibW*uLK%PB%i(&^Jf*5_5HSi+{aLlM;ACdtgv_Z(
zJ(Q}n%IvQCv?MZ%E<wYGVx2K={_D#(RM=>>hqH^{R%g8E>GT)U($c@4AMXJhDzotQ
zWu<#|!aT!!|6~E?Rj)VvdU5xn2GBE}18lFkJ;Aj^00mlNO0o><nhbV%*a>?ZjH#OG
z-TC<!1;(8s9;azZfAu7Y2bB8?TG7hc0q0gbF}o=b@Ib??L^#HM*YT_F`-l3v6g(E6
z3rL!%?FV9kfQF>@gKi031B6(W7?&0CcjQY5OXRbgpRuRIAtVwM#+$6H*$?ZF_B4la
z5Vf-%9UT!Z0X$>X@uhm#*7p4T{NqK|V0NmlY9F@h5GHpdZb4PHZJ-aCL6o6iB47>P
z8!GcVC?zG;ji@(3w>C5OU^;eBi*3OCz(O}y0a!MC$)Gtj7FuLCRuJ#63$0HXXpb$}
z3x4d&%gcysjNwacYnzmuiGMm4nBeX0{gO@M=YiArWM>a$GIz3~*FXyUUH`ZwdP0C%
zqIz@nwecl*b71w2^QQ}k%eU4#W$2m4$X_4F<G0}QUYM5QgHV;f0N?|AZZsr9uPZPc
zR7bCYQ)&$K<f;!&@(VCwR6oXc6B+{OPBNS2tF5d3LovH+H&A79#0!#=-<)t2_zY8>
z>$8IhIYmoc#PsJG$|U-p0*-elW$q-$!+KZWd|96qrZz@NaRwHaR>>H_!AKs<?=ZXy
zs;Wjk**fNkqZ%{|#1^9)WOfslMfu(?VG3rfzDR18c12(O{A!z!IVj}-4etP%FhJIX
zJ#MJS4YVIXY85p2K2$ar8a~?9W#iGE>kf}DC_uI1x|R#NN79!s?S0&OKhC7@*7;CY
z)XBlOI&I7wBdQ$YlY_hM1N|K2+lh&ZP(UT2V3uku+)~f~f#QeqxWWS;yB+H7eKK93
zY|spJc#~ijEfYX-Dye77<r|LTpgwe!+Cigl0ak5<IF{+nU{$!fiHySS3ElL4DkA7?
zy)^P5-3OX=DB_3d>FZyH4~wz}RdWmGffNYLQgU)~VRxaWj&+!W%6|v?92>y9x>*|v
zuneUmd7dd}X&NIfARs0NC+7|&k%q0Nwl?e-8AB)t^^gGZ9yH?y)hh{ZTe$=lf5=B&
zXfZvzB0dyh;EH~oAFdka3xU;>_o9~_72W#l*Dv;*OS;XVhYPgc0B}&g_VbDIy`f^v
zvhtMVZ2W!8QbbiPhxNw*4GbB#xoWT+^PpdIKxa>n5~XphG30-xSg51zPP9!ob8#t$
zJ|Bm4&Yb>*x={<{%1{SW=sJrn$JwjOp5V<bEiK;>GCA>bIp4f<g#tvE-j5Roz@Z2S
zB@9T&$k$i;8#*ABi=bzF^OA?{rdlGVEd}mv&%_%5Mq%LQ=BBe$o;*4P(StD1ystOh
zg9M6TQ;A3}V6b~nBVf|!w$=}KUJmkUpoNDF!)b`PMK^;Vyg7VG2}9%;Xy569KEXp2
zTN3eyf~U5(={EA}$itrojsZ567uA`Vnc0y@gA!tn?du1)6Vg@;jXcu|1npII7?E&T
zWg3%1E~`@6lMf4is59zX#XS7J9>a=fI;rilEF6<_xEk&ql~q!QbHp$7WB7*N9wTdX
z^<L5B2d7KVz`)6L8lZJSBT&<f0n4`%K>9Lxzyy_aadG*oGCKhRtgC*(D2k279cE}|
zjW->K{o;UC5gVY*bhp7$+ZMQlieSPn0hei&uAI5@D<mL5_x8s4&9e(upypIHWP=Mj
z*rx-4^YcYgtL~Dia8%<wzrr@7Y~&;W3fAilHZ$$957%$@vjSDlorAeLjKx`m@Gllu
zGh-KWY*qFOjXUd5M9+<W7=z65!yE-~oL^&t5>Bqof!-Nr_uYTwR6V|=3D#9+VTHid
z-jFj+jo?SkKUI`@gw~}!{<Ky$B5xv}h^%QrT+ID6=5JUF9!UrTcq^{drvvoPo&*W`
zLQJ-hW|>BnTZNKfdz`@qpVWL9Uo}h?%H#$flh-Clxkf7o&Q*pJge&w)#*UDX+}~sq
zesrGc)~)<PY*(svpPvvsnwS%rHTCt*w+<H?bzG}5^`YXGhXGzM1*+QSv{nQ{3J}v|
zj1?Ojn-fGOE>LP%g@HuMJHo4|n4*gyQfP{dsT0c^h<6@d3VsWz6QBX+3+7-YA^{lj
zJ&pMvTF;)vf`rT=E)Tlc`pBEp%5x5{$~VWn5Xgsd1uq^0xti<Z4+NBHNP+P1x$P9M
z4~<%+6c_)(r2~aZQ_c(*<%eM?Ds+eDZB@SvbW=kivK%B%MEo!5x7aHWVbxh&%^3qG
zi0`p``0#aoCBzGu`S~@VX8#0e0SY2+)dAFCs67F6*(cuJ)+}!C(=K<&0kin~%juD{
z@r9f*jzquxwQAaMO(Aqxdr?QFLY-*0ZDW)(z$QN6H?G0dcVC1SxWd9?Cuk7~?t6H5
zZLCWEFjU-(h5LR@&SW#uEG#U7rkyo!R|z}N%R&@$EtDhfnl{ewLEs9SN#zk2M-XB1
z0b<$C{;VCJhSuBz^dcGNpcZ1F!3<l2D(-P*dx`yzZ2<~@U}$Ix&|=4mBKkI_cu-Ie
z6q@GsW-P!m_);_BgYC2R<7Q!z2HUg;u;}aED0E<;UXZ>g#ARM`oCcp|Z1?mo{A={a
z_^@R?wHsasE~2N9;F2`7Gs)_{Tmqioqn-_bY1pDDC>1w*ON~1js?xu!i10i|l&1BV
zDR6}luK+MK#M8`V_pZWd408hHK}272ZHHK3D0*;F7}KIbhEzIUEhj-K{OV=4=a1h_
zZ=F(}ow#qDMfdp5D!0cY;d5kJTgL}M*=`Nz&H+grNv?rl`tvio0uVc*($g`4$d9G!
zel;;Uspjg?DaD-%Fi)_lv@Ja%Jlw>ToSa-^Rni>DXn{#LAT0Dcs2H*^^tMs(pjyIX
z3fBsvBO*}rlTK?hu^>S3jqny@Ea`W(S_1`-pEopy?`aBQ#ULRc_;P6&;?-gm)4LIX
zY#GE$VS+ZfN(U{3z_P<`Lh|i&=-X_KqO1a~ZTleSJ*P6!#!mCZlD)GGOiZZ=ZXewi
zYy+wUju4%=pTI^aW_SSzpe&R{dU51_h8_D7(YOr=*C3P}`DTb|Wk7_EiJrceIS=B2
zS}x1A+IycJk}UY5kYp8-s{<_?bO*UA!XVBi*dAB*bSl+eW^S7huc{BQzIwD>06!29
z4Hn@;4>0L!c}aAKBJHW6WGB-iqaOV<#na!HT+`y!FcEa9o)6r3VViQ}t`z?^*Tse}
zPtnwi*8`zy9th6<U{Q0Pj4U2<9PQ(V)>F-Lpl}~3+yjo33h4+6a7v-HB?Bl-|NQx@
zE?u~DZswX%oQ^xOyDw}0A<H)lVsb|aT(9^_$*&MrkeiqT7_Hq8MJ(Cxy{Vb+&C{1i
zDq04Ax8?^u%v9*T;e57f5SKyRV$j*eVb!UC0*It%HYKO#2TD36YJ^ssIVR_hkmKc4
z7UOSK^cGvj7cA_S>4Uu6vp#0S7Zehbj0}(x1OuSiV)?B1np*|%ntr;)tk*V|s!t!W
zC0(?YU~RWeT9f<CGuRTwAqo^h3H10nKiX`BB}4k?HiuPL;<Xbyu-pg8Us3Ye7=2w?
z{MZBa*lFGxr(-VTa<Jb#76g+opBJ$ppv6gQ;UDXKx$ZKEJ7F%~W8oU(zBL)rvyoXe
zG?zC3Vk=m@Uxy&OC~K;ct*r&ktAfUD^I1z2zX}w%z8qbTdM<0o+Bs>`8Xkv?B!a*>
z44P%Fta2e(xZe$rOkj#2tZ9OiF#x!{Lapm7kEj)lVdeD{U~Tx2yM+YQoDcVq?DOYw
zzO+JFLc7a;!2D4qeGtq28s-5}2uoTn2%R>*Opo+XzY~A&4fU}(rv(1<%-dqtJclSd
zq1-GiyA72)?!z`m@^+3}&UsqU=3H3pC>y;e@;UYV>w@RC$5H&Da!I?uHb5Ivg+iqa
zAUyb%S{ztTj6mYS3sQtx!UggQ`}#n@$03?@()Z4B2qj+9=;4|a1EN~5NERf1H;Be@
zYABd+)ZKjm8@T(ZJ?y9Gt1+9fJI`K25;T5(e*W`#y4dTYTq5EU0+R0HT?8f4&@?34
zskTC=Tx#`<WYyM~V9*1{y-<}f92GuQ#g~froFX;8tsGn}{S6N+VSo#*fkv{NtA09&
zORuyD1CrLB^Zfa9o8?+^P)LSyeW9c7mnK-0UO0a~1==R~#KGXW$AV&wML%IVmbM7y
z7_&HtqZ(iRTOp|PrO;JM{JdwV3rIn70NGfINA?5ocZGLE6tK1jh_Ym13)g7#Va3U=
zx0W}PGv5Mm=#=qu)WV_J)RAw#zo-r82Fe-es1owBt1q_YAt#6G?~ja5EV*&=`}!|4
zp6BXCW>G;YwnW1{=olDCu(=e%FlUz7Lgs0Gu?%O@7A?@&(BNM^`l)j^Uu3lzqGN{q
zi+fuGm9EZTS9ukXD{>PZKNMkPFQBZ6BrSLA3jxE;fzH4n6P*F}WD2xrv_#TjMn=XZ
zMy#OJTS9!>WDX=5#pzdtOK*HC4+GZxTcFV%huB~MXv-#D@mM9NwO(+&=z|7?UWr(S
zWOV|`Vi)iJ-6@%Zy!Bj>U_j8oFw%Jt5f!zTMW~pQpnGy5A}$t&6Z8rcfBQg8-6bT)
z0~hedBF0{ETW9Yss;3#NJNIh4g%&U8pKQ$+0@z5Sf3d;FeL#pz1>LU2Q`rVsAM2li
z#~-<aKU)W1!Lmw7DPJsKl}7d3o{BsMj3x-&hYL5AQ$PplgB4e@>pCX!mY<5$FV&~q
za_=Ou<(XD*=<99>MWf92APjey$~8JB##~_ioTu?M7_>9$NX!j9$IJyp*a2%!z_gx4
zAnLv`H0|8Nn|!6xD^%T+;p9J&PJk?7dGYU8G~*p%L4uLb#cB#bw*Zm!CX8T|5H6Z+
zO3Q2Y7*;wu0m)Y)svi={2FpqdN-)iJeNdSwySB<fYTGBuAk2a1eXzF@QuWp}-x8Y8
zI(Q`2PB=lS_Y=H6B6n5=oW>;-?Xf*AI7jdsG_IcoJc-L`bESKxPxv0RGz0v*1nZ#j
z8T*@rNbC_@FN4{u<F+OI=>16$Zdwp$Ck2ROPfnC{azV;-5Y?0b=~~4o=o4xM&Qcob
z%>#flpl7X+DjS{C(OES+GRN&cK$e-jdRk$zldL6_?RrY84rqSVurS9GK%hFkHaOwc
zIh(OIP_o!i?Ku<?y8${?8uW1(1206D2LoYSs@!ROw?4|9h}98nLYx|>{nOu1u&z1M
zdR$9dvCwH|Z9gxz=ymC^Qz>G6{%%;-V6my4z)%UfX#y!bz3txtZZcRdf@w=RkSm;9
z{t?3u6%*kUxC6J-CS{;za{aVyK-2$DwB`B<Zl|or1VepN+zd_TV9@p6g-46XkO2HT
zL3Id<jLgWc+?Igl%*@Cr3lpq@;p_kzZ<ZsfqPNPu3fcnB+8tm7!XCwcLTlxMw04Ys
zd=%ls{0iN*LC7Y{!c5%Yf7o~_ezr4N1J}koP31?-+DfON4UiFJvOfs{{+^wrS7^h<
zhMb>X-X$WG;F#UkD&-upghoM*NPhZm+Oo1weNKY$ulv<b0<&C5g85w&1NCmdK;j(P
zelt(@G>#g>Xn|G`m;Rw~;|a{P%!OJna>6Y<;)H#DxeqO|E2ikAm*>1!2#%Q~@#%I;
z3~(?F>%g+T2W$fX$TD#GV39Zt)DOW<frjlYDM`sSUW^6fZ!3a9G8A0v8kalqIBRR`
zOriU}mpK?x#<$0`_aO0<rl=A71yoHS`jU`ElZ8o>56zQ(RrtvG@5mFlDwckZc7upQ
z-BXB~a4QDUsx^wg;OV#h;`CJ>`+ZvNX&Z(?R{K&5ZRzE4_78jzOyLAtC&rFOQo4v?
z*8+uJN?SWxDJv!A2Nj>q4;N^rNl=?b(2k&L3G^YUmTqYg5s@%mQ_#x#SP}Va6#`#j
z@TSYU-oTy>An3$!`*sU+XR5-DY|FBu0{1<)s_9}VZ+_#Iu+R{Vr0$X~gq(XJ-gx=W
z)0YK8f`UVl_Z)wsG@ylXpqr(*2Pak?Kr~U-0Lk(+N)n<J;YtROI-(&UDU$_C0VkWV
zQe<#<;g-Uo>Zrz)fF2_1OT`A?&jASvnw(NWR(tS<@<hX6=R+tggK)ql=@l?z!lA2&
zK}`-aj=zVI{@msaa=Qq+WaRaUo!}E5VH}2ssgqej&f-8z!l1W+^4bi^KSZafyQBb<
z1)u>U+hmL<BqxU$>p~HsiKz#vpc$k?ACP<M0tZlGVPR9S67Pa^S|oTQ1eTD7E%%FG
zBius(LI%ayK~PX8uz)SSzB$PL?E68#RZAYKDe$5Y$8joH!;B5x4ENSZRV_ecj`84L
zM1p2+bsK=4eAs^PiTJ?5&)<JZ!Agf($ZeoGiXXEBYCJbgk^IJ%NM4Q<x8t@|AlW$X
z_{MM;`Zlz*6wK`cUz-B*jpwO@65muaI>ZV&rq!}xm8wHl_(6M0aYTjL*JJ?Yt-cJ%
z?@gO~A&_<XHooI=iqZfgZR84?nlHSWN?6%BI9dS8n>^Rm&9nmRsc_it(Yov6HZ@&?
zWayo%GpknX$wkBNV8L;L=bozuiF#g}nNQ$haD!?EmrZSGXcz&sBOGLChqV?^<zMq{
zP@0!N>+a3b6>Vobf`&aI>&Adyn-K!pJ@n?ZpiwR0PTf3^_^{S(jg9Oet*mYi*$-kz
zJ!c_P%>lEJ3yLx~)TfnAVjy%E<dQic;RA^-^I9&qoz0gE5OVeE;VpI>2Gw??`N3;$
z3GmTs6A}^}c9NMxRrJr5gL`-Mmm9d)y+!6Rn9!zxC62mKa9xhLYSX$by=t?27&LN9
zSQ13f!j01)HDTFk97gt~0~P?Wq6+l&12p{xd5$jHL+8rtE^)xOer~&=PF4=ff1}uK
ze0=;sC2Y}H=y>n^Q?UIe8(Rm}J%@JGt*p1kpAp>M)J5D`ZObG=-*Rg!0o)3r(m+Wb
zhIrrz=`9Q{C?g|--PC2H*RaP;CHKx5Jl~;1hqRj_kGY<gj0DzQb)fE7n$k@U(>_it
z5wQUtvpTATxv|v+ijQnNBYQ2h`z>(8u)*c{y2ceG+tz16eAPmZKbW2Hd2s=pXby<f
zXD^(h6)e}p3j=TrI=Xh_{O~mBH+gQmFsTm@#sFzht^hM?NLR;k++PpLDy`*I2aQ08
z*|tOo4<HC*=nTWa4n+S!)E=m}R2!k7V5&_OFS;u-5)s=*>e;hr?ZheUFaz|Q6m`jt
zGl}7_69TliK_JEtg8U#94>E$iz}7^-1;Hsm^J`#VZx4VvbPCGPRlU`Q3Yeokub)?f
zqBslmu?v7D1zPt#M-qh35GEtvAh8ZJXhq!}vV=X?J3;ebSM||CL%AKXmKIH&@E?KF
z*)iTBuOs41l?qbmFYI$M!xQ+D8^qfZ6T8gB%{j1)*TCHp7|C&iR3i$s6U0d>Uv!7&
z(G4;GmkY&7CoHGK8DbHM1VZm^rFEB(prL%j`eX}|@;mf-2mISqBx;D*L5BAbaRG5y
z3J0*9rhQ%0<28m4!P+uJcAJ3RLAX~}fYDBerR>nGq8|1x81!=a23!<a<=dGcH@WKT
z>1{?f)^xK<g>x?Ry_38{y!Zp6B8Io;rz&~0?z}E3^78U>Z50;;a~ehQ_Wof~Dnzq5
zRPaetzp4$iE(0RX6B!x2syE9g!0c+)xmBQ{?wdAVpN3`B2?dW?Q%LjmRx>fm9(L2X
zZO<mZJaMHGX7(H=d)WA6DyPosLp&BEgM>HoE<OLvjV^j1*3uh678p(GcxLH4<D5KB
zYbjxDy6;QIefgW;k!u@46ws%|fCHo;c9_hZF|He77}3K%slOPT!3+!s;R+E{!@*g%
z?p9K9y!U$kiKFOJDMCT-ZT!*&LEtW;$J5=o5wW&rvkD6Oq4iK*M$si@P6mh)E`QjC
zVl!5Rtdvmr5Y)j~Y>p~9=&6Va7!Vz826_#00bqpRA!CsIlJss9N@C{t7R5I#Ix5N(
zOpRxdpwS25WQgdR5F3>QhT8%?s|7rurmm0g&z6I&a)Bao1FUXmQykzK14z6jLDNqH
z#hL+HS-w%n_mk9oUAJ^9%bVkOD`6`Y>@VW$;xr!`K%{RFbvomOPjG;|p9g|pc08>{
zzR@$fFo047(|)4m&hMQfW%^AQS2xG~BJ%S&10o||AeRG@DFTpNz;(moU0|`8(S^Zw
z9sU$+yKMNlPcQY;bNya}Ghh>rIB6gvQ-a$7)I%3R>d2R2qgmPl4}41zt18xjjR&*C
zRaN3rQe4oDkjifW+NuG>di0a*7+bolDz_8wfy4<rK)n6+vMRStswO4;Mow+4!=|Qf
zQ#{hFz=ua%4aCQTV0Abko(OOa!$5=jHV@{=_i1H++$yAgIz3%G;)Ev!rx3Ec?j!_Z
zKL|PR>LLO>$J4JQ(6uQQ%Ir+ZVEf)VGBPCEDG7<x7DzGBT5uL{C!-FU-^qSjiHFz*
zG-%(F$zTmhKnqep1mVJcw(5m;N7tF&Thziffu{%$Me_4VJQ3L>=(Ak`^ScFbg&u?{
zOkg+Kd7Bsrv3GBil5RL7dxMizyx9cb$B{hPgj7k!Aq6m5a5<j5@DKgqdS%x3*ewps
z=KP>~xnju|W%BDwEa;4!u$d8PLVDUG2)n!_m+XMgi4%djoxvoh4PF4V@8J(GV9S{-
z_$8pObR&CDNI?T85&VQ~*_E4wwFd1p5-ut2ck+zqevQ+7PCcEtdBu7#jCUFj1-yIn
zA+i<raS-GSRK47k4VGm`UK9eH%2dk}ffyzdYt!r=g*SdZJvAbnc<0F9^q{QmrGJSD
zp8X#|!hikie^Yu8t`2$qpNAOJl)Lx6^<)!)_(D5^YheQb0^S>&niPN?u7OiX$aEg7
zIR=%{2vET`&V4T(JZD%i>L%T3L8W#JX%Jh@_->i0St1WBe@SBs*=-3DgZk*7Z3bYi
z@C!@5wg<$AL|Gem24-!xGee@HGQkOmZ*Bv{n;V#eA~Z}T08OAMG6F&k;%CwIrXm&n
z%KqmLNo2L<0!DniykIgf*g&tv<~Ff(LXwFSc3Hk$2LYrDwk05eTiEX;4-@zTC1pC`
zQpkU6L+kH^1+)&~gqa=<^GpjD5DL1%xlBHeL8cA7UjB?@_~s0v^&Dt(`9p>V28Wfh
zq3k#TJa5{$2V0WhBNaf20ujo61{?^5DmNlCr>6?~xo$Q0pe1at1V7??kJ}w6gqfAR
zwsVS#z7kn-@$VDRa-$HoQKFKXfleU>L1MH71hT$=XZB@WgQN+_$#ml2;OF))C{fAH
z2oowUfkX+j{|OpyKWK09#F53?nNMi+b65QI#Dt<HXRQ6*0Wa`^B_t&S=`LKnn3j@~
z;(7ge1qhS1_4QBCa3T8zZ7+U|BWip5_$Wc2K{ij{6cVaJ-o>$?odG5?Jg_uQkj^E%
z!Vj7k=Y!iT-@thskWm`6@(ZGhuxB)5WseHB@~Mi`dsLsbF!2_fh#ttE+a*1MZ@a_5
zz`)$bcJ=BvzIu+)%3~hj7-Ojx?3@)D9JHnly+3ZZ$$GX9a~qCVTrwSKV^tTbE-o%k
zsUoKrCQe^kz{e46=PY>QR;VBdXD8x{r_@D4xUD>+l*$zJ17u+`GZOz~0fHbpqjc%m
zpJ5_#cz)2F1ZGJ99kM&sNw4tQMHbBzFj3VJ`UYdv4GjQ^;6qU4<Q(f)*w+`)CYm)s
zJDthAIDG~b^>z2|tQkdWLw3Bi6)pW`se$aKpYe3@!n4k76wndPMaK<i1QXkOEqpti
zSWCU?R{8t0I*kPC^Ol|2`XWzZW_vfH_L1Bd{xq^454#XxZUxW@EPXu?WP%0QR#=#q
zn;RGuln6q8DvUQ0T;U>*Wo4~cLjz2ivef}Pj^tUDnJZ;MXHr)3I0I=~%QQgPN*-sG
z;b!H8o)2=_>v8gvB?lf$%o~N>Lz4MZ)ZWU5)fJZ(Fvj2o#O+cApwVeNezT)f>ZmK>
z!US6iT3XumX$OV@uMVCI)Ff9{{72TmK`ar#K|4f0yTOPD*pu;a0a`o?HmXWId7^-<
z5}0cM>43yZo0l)YziU2}0q;h2rN~_s{GE-5=icFaFq<6q)lzax3+*huft8dD9aW_`
z6H*WCLQi0)94NT!5VX~X0?`RGHz+JD6;kFg3rJ(0ZmffJre#nz17!cq1@=RTmCDxd
z-IH7qHA-DLo<Os<<E=LEWI)ziK_f6JtmsYg@5CTmq3HY7qKZ6y8~?D_f>lItvGxZ!
zTrI$8@c}RY3`Fi3$8~Juit=W)y{F!-v?e%rT!8qt;kn8v3AQ?;?{AO6dwz#N!I!3c
zvD$FgY(NzXyE^!a5JsEg{>G1Zgap{`92gZv?R(~pa=P+uENuv^0=cc2b-*j)%v<%=
zN_cx7un{#nQE;{bn2QR?I)zx2s^9wL<fQPV`x>OFO^Nl_Z``;sx0^=;7YPJYf_Y0u
zn{&wPZiEy(_&`Op_m7sA%&`v-aW9IIPtm2%iC^aP0VvKp9eF*KPMp?fIu!OAN@>8k
z4=Ls4<w$)<Q^_`yIuH;NLLT&S+o+0sF!`ouk2Bbn9pSCX;89GM(j|Lg?P=kz(Z9Y5
zx6))yECPl}2WSIOxKUSr&!TuH&WlbQM(70A^6w&gOna_;PY6F@hE(_(GMUKW3+jM1
zZZmC@BOMocopF-v_>7)d1bl{w<XV=s7n}gB$~>{+22mU^Sx~}p)-k9b$ZKTYw#RS8
zR%Q{prv$RCwFF&;RCA#6oZw8c6Oi=XWex*GJ%oKn`G_#|8Ej4L9<gfghIlEcrnaEH
zDedb0`8<+Hr8t9w=CC~m2}V}f-(ErXsi(l!z@9cxB2tk^1`c+Dq<}slh6WIQV-Uhj
zf_`j($|29TMI!`TiXcX-t&+i2XVe<W8xFvx?QR4YDoHM0<PZ=4->+f3X>txS8=iBo
z+!oD+9d*6i?(XkiPXe7aoL%2jIa@muXtW6|SVTrMF-cP|e31(17};qELojLb&zT?z
zj1o&w5KX{on9Ra}UU9tJ8X=Z^_KWk@?(mCX0F1MFUi$mB4@Wa%-u&~s*Dm~<&J#iO
zM|k~j9&3VZj6q(31-A*sxn5q?J#Np<3SrL;9TO|7j9r<)i~7<OC#h~Jv6C7Ec%LE1
z?~N5-FVA$kR?XCpi>C2;f4bB=f4o4b=$VoSk{}HVjr)5oB>%R<RQ}Iy{(ru!<ll7w
z%>QTCyyHGU=<ITSy<%?}KX1StanNetak`hX$Ai5-|44KYezm_)m`({*(M_p(R#qbY
z8V##(t$KlzZ0u9iyZ98PGie(}lh=+j$`)L^!gwV1-4*hykb2MU4I8H2$z{+xP}01p
zcQ<=_{M$I&e6vecOjuO!e5L&ctg(=5{~Vz6AN|OFt0^~<Wxo#@smJ8H6Lsdd@vV)r
z{hgfD8FX%FSISe>pPpSp(>3J=db6Htc}5vP<OxE%Q$|!<_E8nG_4+9=Z58D(Q6*Pt
zmp#PdFVK|_I}|&ARio&Mwf;_!+89^dwxbMKU(aWX^r}yD(%eVVem;Rmi-e*r_f}9)
z5U=_p6BCm)A8DYS0S@E(MNl-wrF7lv-_(!G!J?&OI`@&0ij-f|pXeeOBQNh;IsdNu
zneer<9yfD!x~<tR`zg%!TX%4_Bn*gTV{TRrvwpPhXh9P-IZr-%b^pHnDi8ThW@hBz
zjU@^+)2EXj)xK0WUfsV!LCP?0=`>%Ws;#|fA-sV)KK)!N2p6)C#7N?(L%>VpaAqbZ
z%l!9{sGT{|`}9tzBCQy+(y5@xq2c9`)vY*lRrpl26(t<=5Em=YcwVCM^aH_|?7ouF
z7dnNP-utgj#|`8B+&-Q1s1`5rX&Keba3Q6qpR}G?c7XTOofB^~m6Vdov|~B^=G$A$
zCrKSQfGfOKk(<Qb8P-AcGS9kGg}6J*;r*{>kW0+^`BPpLdlg2KQ+TKF;O}BULZa#U
z@}C0spY|hj?d*P%&%A8Pl~;q_jrF)Ws)sY*6Rj%ac>SOucdRF*mFDWrc>SHeKM4ND
z<F6-3j_K{-bP}(7jQ8y3bmW{Zil)oMUHSO;QbpMw|AT0X&+q$ZC)oe}@z0R{*LV(!
zo}Gt&)#lzp4wcbyS$+p8wQN9FjF(QP=~TIuLR<>lRR?B40Vp!AOW%&bW-??`ZxS5m
z<Uzr%_n}<dJbup0u>bEg4o^-v<^blwX8<Q%4g;Jme3^ToK4E?N7gGv%Koo;LjtmuW
zl1MnObrL8Il!_Yn`u~ESb{G1VGpDq(RSctSgWcBCb&R3?hr<~(QJCAz%s=5b^}>^o
z_-6$uvg)~dAK~z%bQZ1B8OX$R>G}!ud@dd9z5C}vUQXRM-aiDPYb_-94MF(d2lC9$
z&f03*&;CsGe0&W#9t&Z;H_sgXapxqMvD&8v);^VMXCvE+Ajj5SmgP_gIa}oQ+3`vE
z%c9s@O+QiD6_E1*g$C6uBO`->6Qiz(BO%>z$$y?e`}~0+NdBZ}WJsdBzzzs)+8H?_
z^oh<D<Ql0Y(?1_bA{HKz!PNzzpI#i!WbwyfeM%%DQcE|xw~O1OLh+wJ4z;o-QbkVg
zYW1BtC5?NR-*+U;ee}>9sMIZDx?Gf#Hf0f67xC<p{A>I(YaZ#|x`_bqehgJ~b<!7~
zhJ2l<?J|vmHod->98M4XU8wX>3_lpqF42I={Ilo*>K34Obi&GtmGCux_3A!{LZZ&z
zx(*yBB;4#MwB6yi)<3*kD9uIx5H?_R($@rGuu7mNN3mSb+W+b${OQ!MQ3BhEdKUks
z{(7f>^a7|4x3k|&KScI%#CXA{cT|xzFmrHp&Yl}%fyNTk7P8hK8Xc{jP2m4kJH1L@
z-sWHoalrBVkDbJN%IW9NLk)7v0}hbT1;Ay#uYM*j54|L_N%54HRA+|uSIV}+eI%`S
zo(L+`j^d+OsxL;bElM<8p0c@&JkggTMjQLgB^o=lWO<d%ZYg<)EIG^xzQ~C(wFhY(
zq)|^^R&H(;*jQ$pb(03>?Ao-vH0B&@P+PLTS^;UusKNVZkE@>Ek>X&=mR@qW*Rgu*
z+{Yiew>)lI6^YSZYkIXhIBVT;YcNx6bnY#l@^rAi#BC4gj#CyaEA}14@bAO5dVJj1
z{6AcuewZ8MrR3MCCqSOQ+hTMaCx=~iJVWyGu`ygAsB3h_a5zB$i-Nj3^X$x#ux-s}
zD8qg*`m$`b8PETOg@)Bsxd&dDu)B!E#E-M}!w$8NfK<>?yXwxa?fM>xX(JafXliPL
zJ$m!d>zaQ2_^>-rk&y5hh|{s`Zvl^|>)?o*1n-*Y6L3rJZWJFMQ}L23ynfKVTXxbO
zAf`&#0m2vP-^;-P0c6CoXm59pdo+H)>*!~VjFeSXXW&zxNJ;sSPLmyfcmCvIGVMo`
z+27C)?p(5&&=lLS?!c~#c!-|xsP4Erh8DkaMi%r>I%?v);?`CJQ&6@m2?-~C%PzLQ
z@$*wqMGM@<;p`EeCuoqh`t<t#uJo5M#9-Vt;qXt;um_UNIt(mgaWw2(ANYT~hvI!K
z<OiRicegQBJ)t`4>S?eu{1Ms)3?=R`m=C{SpL>s#qitY^K*ODrh-3ykcf5TMIgEVW
zClw>81w&2&#x1g6UUzV^DFg+_e3VW{JHIfe{PXK1zBi1`axWf#w+8Cuz3sim2p42u
z1O>m{i?wAP;+zUnDAF<`K!E^-R|i~P41~|&P_XYNt8h9>2AmFe+n_4Rm<FHq)yMc>
zK6Jmfc)`$*jJfe({aVc=<P;XTY^024YLzJ?=SU%C6b`>L`t{{mM;Y$!<9{uLQeP>L
z9z?Q@A_X0g&_a{~&_&W$`Jl95Kvy6C`M1!KP@UHOXSemsCujffk4QE6FZUc00YpFb
z`fffEw)#}Fj0bJCW|MR4NwgT98BujtQB8p+g?GHuc4db+S-g&-c<<{_A(||uK-1~1
zp`(mf(3{jDE86(89KuiR*QPskUH<CA4ttiXVokxi`Q=wOYB@BlOrF@g>JlS&4T^kA
zeE!V+6x#Ry92xK*5sLp;#__-N1_{ej63%EK0}z6W=W?hRnz1o3F!)X=Vt&Xh;gG%j
z?2<_HG)H7~mi&>qk5KB8Igj|N`AzrZ@*&3%7#$tGMBynw6Lt*8B?zYeq~%gUJ$9XM
zrO%LA%YW>xJtetYRaI}a*RrxLWz;SuwK=kLufzxHVDf=iFL&JBzoVA6T#n&5v|+OW
zHLo-<iwvj8ZI{Y~fx5J|XJ8)#BB9PWO!6}6<4bPw$Jfq^67bLrxI>eS8*?+>ZkY3y
z6Yad#UBV4=YhI)E)qJV)l!Ok3CC&a2lv*n}E8{O#<8RGMKiMy&B~2xIar${Y*E?&r
zp)|MU*|p&rhm>t9K3l5Vi2Cu5f__QHe5+0YkKH*U`#ca%F;E9BBhmbkcCv50Y5@sJ
zd*GQRhJBr!N}BWYlX`FvKnFKJsQAbBzL*6D{@_`Dp7m5M*wfQQ+waBOhvIoYQ0SQb
za(tG9{rzJR-X(8roC=-;nf99-9|bc)0t3a4xzU`e{-9k#_VMxa=$p&I=Z-U}Wl<mZ
zsAfhbO+PQ6oS1n0i2R0cr^BklJ;aHin{KUjKw5$J0}Y@pK%AB+VAtWfA;a>w53h>)
z2IvWqS3oPBTk-VtghzP)%IAx>)y2?_jg5-xbMxkX%sK=T;9#5EXaAPk|1@UvZy-<q
z|M-gE6p-Y8Ct96HXK1Bu4D)T@qr^RT_S)RBZG(jJ+S)WR%JcO!B%kdxyhyRpGMM^;
z)75w4I-!SU#`w-&c1joyvqXV9%1MO~zLYxI$L}xr>Ksv8ITF8-_~O~6<rDlQBabDU
z<ijq*<|d86h@?(>sL1Mf{wq*LgbeZArXt1ue8QU9nF}5ga`4$)_b#&40*-o}FK$9M
zLv2HHMJL<tU-8HJkB{f_2fz-~#1-Cd;(JC2*6%LU`aA6bn`XC7cm7O#f{Lnw)aM|a
zrpSKs5!iPq3n4h<Cjj!nuMcOR{`>a&=O>5ARN?SCI*8oMtq_Q(%<9LVsr;qdU&vF(
zEmeaPAvY<0PG$J7x@=^1)WJ^|Ao}scZ;(^25TVotJmKFjS*bkQH+TogU|;*aM?wFR
zNPM3YM4OSYh!%2$7pV1_kO@U>48F-g1&YD{PNP1)EV}sZsVt-?g6WV$aeT~hK)1Z5
zas5RyaNbrYY+CPvGXjv~0dG(Z<AG^)fz3~8Jp?;SY#>n0Ra#e<LLm=68(q13=Pi|I
z-<^G6Ms)%Bq3{dQ*JGTyFR(m<Cj_0<r5w+kvxF>Y(_1{N_&XXuNl~Xl9q1J0r1$)S
zV6z5Nw3MIerNr@!4%P`H>T%64k5T!mYx<<;&mV!9&x!#*!D+n4GF(hBhIO`x4Nh7C
zB618@#D;e_GEvVr8vS88wpJ3FD)yb=O`eUxZk9k#$pQgd6!qm+Q^)Q;k`M3Tev#x9
zUFv^h?@geoY~Q}&-8@g4M5TdLrUnv)iqckw%o!^wLrBO_hPy$jP`jvPC}ZYi%vh;Z
zlD08~CYeHF6O!+Dp!<2=XRY`7zO}yZUF%!xeXaj+-^I4~b)DCF9>;Gw(EfT)J%f`%
z0wDMd?seN>7Q|h{#ejFe5~9s$RAm$)hfLE_pBk0Ti?#Rf|E^l|>39ayaKd*5{PKae
z*_NjQ@;7aY`g8rCgWNtHibgg(VpVC4x<#DL$|;BIUmUK_RWM6v3@xoWCK;7p(ELYW
ztPvj1!>1l&%MG5V!%L1qRyY(;yHX)O@Zj+UZQKN-C?ZX3#UaL{ViM9kE!+!BD?uTl
zJ&>_^OOaVVviZBjKTC_#^QE@zyA0)ix^B(&y*8^v3Qv5MitYbY@-QyEI!a}ovWDll
z;;_<0$yfFt%1(-Ix?puhGRn79VRw(!v8nDGH!tKZZvG-(^>#*G9^gLls--{RTH6Js
zQVAS)WU|k?qk3_~;IYju&p0aZgwlt83fh1_{4U&gO|T`&SwB9Ny_|c;y{owh9CNy%
zdlcu{&%V>FaFnxxzl%cl>8@_fD^9;)x_^C$YFIeGdD?p5geTq{Ieb{b{g6Ja3!q@n
zReofK&T@g4Qr+cHNI{JJEkrv~^3#+yW0v|E0VQRW5c_aag>p9@TDI7~@*kJa_s|)A
z+Wpzs1{$WXoTaswRffEMCixbGfo*3>_Xim1-Vz=s;3^~`A<-{H$lQdpUVN+9ES@Qd
z{&bC~=*h1J$NLS0*P=WL>EuE$RdoSKBqUQ;?d`d9N=i!3RjO$<(1xh&)%fgknJSt%
zsQ>OGR>cAe6{5>pb04|kS>tCyRN<4m{L0M^*N#&xR#!fLh`v02J(T$frL%?oMNiN#
zW-qTUr!1jhmzFhT25)aaw$MwV8z$C0tX)^Q=k)#oJ-@uUsp!(kk2CJd9-HNK6e+^s
z<{?IRFNF$>p9%8z9Rxo>Wg~!DXp;aiOTXrKtMQQf&YkBe81%!34;eia4M0>Ss|@ch
zqX$|K`dZfae(4V-R((gMs@u=Ggj|54yh%w3kOQC{gF5;?=q;p;r9<TU{U!IUf-dOY
zlvtt=uSkpJApr%M!P<y9QuTJm{Tj|QA_29jsVTca{@zu>SjfP_vIhkQCwQ@E%jj+@
zE|^w-xJ?(=qXe#~;gqhvpADH1&vD>>G^fPF;$od;v)|dcb@A5Pmnz%l9qLg)9!V-v
zF_<ODKx<9$F%JO1LnQus0Mj{8^12}V!@@8RwjIKg@~8eqoZ_B0Os&(!-XebJ*<{FJ
zl#n%90hx3nnB}$erkX>UgBq$7VJ;kKQH8j?_+#QMuyh2N(g?VNji92b2Yvzx$ZLkv
z!*D^cVKj6)-GIl4dOM^%_1D76QC4>N5#N@PtLvd~X<&YK5-e)wps^@c7g=Brnr>y2
zHnq-ez=~2Tp)x9^SkE_a-kd9!aOpNf086G(>vTR@13WW{4sLkhB~E_V#dS_gY8btE
z+a#uBok>SwTK(YQSxSXQqKkIcr)uIuvF5QrYLSb*`OHd~7)E9Uz#zijSiJRm6W8cV
zJf6?B;Kx#cfskXS;Gq)-p$pri8VftN<zTP-P&x%<gJzG0s}DNdknpfCH9lxhk(qrY
z^z~mjyYiytW6OX@%D+N5j}XjjP*x=)7fOi912-g+TnwQzR>d}=jvbzV4Yq0sG1GBG
zaalE{=M7qIE&TgZI+qH$vniSoseYWt<7PGC9<vKj&{Jqst<x88vR_#9!mhU6-UVlB
z=jyp5*O_5Z)Z^j!=GJ<>OndXxg8rViSfG+kXQqi>EpCj}*rIiFqjG5l&+rG|ebV1l
z%5cY7ZqHBlQy3rDrcKJGV92miI-V(OKL`<eGb~zf=KYQ^G#&ntcgJuFBTXi%(CjLf
zi?rcbM#iPKF*cBr+T+5sBI#Hg`tz{r00h%1YmNNO?;E%0w5=6Ak$FYBxnzZgtm@PD
z39}f?{2q^99IIa&=MBGg@i9YdL`y_k>m2ZXx7~Xtr%nl%GMvcB@M$ylp3^>h=5IUn
z-fco6KUU$csL~Rjp*DS2|Ir7Sak{Wa$O(^VJPtRK@F22C>eElCi7txf*)^(U6^`C+
zk8smdkFyTHVl{Qc80Pe}0m6^|rf!%=zl)9vc^EAJwlN)$JI@J{ZA&Rt$v6#rVpu8e
zcVunD=#}19f<0^y62P!h?CgRDxe#lxn<=Ng{lw_EEHlT^f#}qxnin#H)^+Qy+-e>D
z91Nf09*=aKTkK{?)#i%w&Abp+io^Eg&A;pdvk*5D*^2CDd{@x%J}e!@D5Ayx$Io#m
zB!n+07zr{{Zn^`i4l70QRZ`aC(KoPL4>uLNoc6NWSNX|T<N_ao>3;1urj4*DBFbhr
z3#^prqpw{5<yBE4KqR=le~5W~l{qrJC?bmkMW6=dYLi$7Fs>y;yX=Nw*Pi`I0<1P1
z8Gm6Gxwljk47~*Oj<>o%GNm|m9-_wqL@x@H77*HQ{iPwqa#tfU!`lG>^DMU?<6vr3
zjWpksk>=U${r;_Vt8m|-n=4?n0z+%a|4|TvJ-^@Mgja6p9njL%)$Pc&w4A#;{DzY_
zGB$K&{`~rq$*Is6VDfG{Hk=vVIvli}kn#DF(~Xgf9uN%)$vz}_JPHQA&(k$?@n#$w
z6G<IgzO){jJ>a_G5|c&Yh|s+&H1c}hgErdWXs~l60vcj2i)P-hbC5`}d8WN@-@W6T
zPd{yV`sw(ahL%h>*Xr?Hudx1vYEKl3^y4{*@qTqG?)UH0kX&o!^%dEC)*9J>%{&2_
zM(({G3c+eD>aFr``~4%JthK<~Xeo{ICBXoT#dSL}8q+smPoUt9OdLaBJIk)9P|78a
z*%lZOqI<Qnz1w&hKJ#zlw*pI4#$gkKa)Sbk;lRSHLg5e#MG!m5Wn|@l@BVhj2D$pK
zlni#5dsnJ6G*G3m8sL(qA}<DImO>*WDfgk{B^#^f%q2X@R{86?VMcGkSy%D1p-|%V
zuOHHt<?nOZ$6?KN%pAW=l<TLK8V;x4++LX=*Pg2385}vM9G{M~0<%XV&IX$l<zm)%
zU{1$Xewv(7KDMHtd*hKS{LKkj?J<=u-pw`Q%DCr!gMajHl7#fPTOM{sbrU0gE;eQ`
zghO*dQmEH2Uy@bWp~foR9AJEE+9QxFG!z8!7HU8<NJ>a?nuz2xk8dRzegM3a^rrv_
zf=;|%lL;?tH%^(dOqKGa<CH3I`{f165MT-6!5ab@WNg)k<p`wK5^{M~I5vNUUSAXj
z*bnwu^<`eUsejY0HFo*H*!!~*I3qg-Gve;uZM>4!WjJf1y1To1x*!@}&a8$X;;hXL
ze@L0&a%mzBJRY3ZY$KBaS@x~OYr7Rb9oI$M<a8Pp5CtZ7Ls{4ihdEjr{A?IW+R=s>
zNsLu26(@fceFCy#B4Rm4ZFM+#z9?KQIx1N2%Znrarshx+(<(v|38hxA#(9oYm6Ejm
z?%at*Y5FWK=Y;SFJo)#LFh!}pl-rF%lC+Zu`YC~fOwYu9aaNn(kWcL-!D>fNbGj%`
zvY1EzvQZwMX^Q+0RyaWFf<X6b^C%_@>nzG^uHe$%OK-m{+Hx|EznRL3F6omTL*t=e
z1#&5Hgg}YAhhk`)ogZO?K*b1;v;;f=Jo5Xu{{E3qp9y!I0#Khm-GRjqng;uxvf~F^
zMQ__PM~ea?(2J7by98yK7MKK}L{K<E;2)EnZ9on_=-=W~RRYAB<gf?AzOqz&{`85Q
zHyewg?t!(g746G4{uzrmtKl+{B`jR#RL{$YaZPz4zrPA{sudmD(i6VFU%1V1_6VZv
z5&jcuV<i^MAWQ7raAY4T3J_q@$%YyMG?$_`pPZ3c_K!0VAMcNHLtV3y*-wv(!5u@_
zN}Yyv<H#INJ62cUVQx>-7(+iN^Yi6OR3KiW#(4X<IZPI8T~U|@p@ap9UQ0Ga6`e&T
zB7!(U9j65|Rge)(+XcSM63RI8yMv3Gp05UnF&^D0D9MGmr;|eOerg5vvz?!xqdM?A
z$PIB`DR_uPWX0}g;U(0q`d(jslq4AuYm--CQklzWSz$fK29FooPjS=N^JqW^5~d#_
zA<*rq`^X96ophv#hp7&cy`|w1<W!RZ7Z!k3!+H5+bEhFEh%Vj-hKGZ`a7lVdhg)wJ
zt7YMj>T*X{)M82{wgpA;EeM6Z#y^O~FuYcy9JJ$fmzRn=AQ=JSpd#Nk$RTrFfC;@<
zd}<IL{}<CO6Ooe3EP<sKcUvzipe6sUTU#~m&NG3JweS=}Zyiq5QD*^PB_xpD&<hhO
zy7iOX@H_W-K`C7VOaKEM+nc-yYa(AJbgmW%0HCZiam@B$(kd*^b9ax|O$x2xU>ed&
zCg)Fc?h@QSglywzL~_S{8h?N(1nj(_!4AEGF$vRe3CX|Ayq~S~ix}RM$;mN8YtQ0^
zBrB^`8rCf+P*PUb!WJdKM2{M8XXs#hH1A~Fw7a6}->n~D218VcTP7I8P+v|*y)ia;
z9dz}zwIe&UCio|QCWII&g%A(7T-o^c-J+v`_bAy36<~i=v0EgnjAj_H*$5pwWK^}k
z$_)`eXDzMF>N$8Ug(x4H%IGr_rgit!*z93ptqhM%y1ij1b;+W6@cRwtH@19GH2q~B
z@NJ6CGW1#&L6ukqdKj70&<qCIyD%g5WRE4Sk*6rru)SRJ%z~u19J<VMSgEtJM&9qm
zHM1vUk3sJ!X*NhJ6oJRoJYbX4!oGr?vrISP;oz4EXFFT6HWf^pwgpWXqRMCnQ$Ji(
zsaRc<&rLM+uzd#y65@z0Q)V{T+)Wo<Tkyjb9!CnmDs#>;nZIzM(3UM*zGc7uD86!K
z*poKFP~)tg32F<|X0d+&zS<duu#Wko=gw6%Ka&?r@w7a#(#&zzUB`Xp5!nR!%m0+R
zWeseazEaw7-@Z9^wE#4N9}EJ=Emhf~jAHQ}4t!Wbj)049LjU6{YKL}h4~x#C#>|1<
z4lyQ87HG{@5l;1<YhYxwbji$>OP#L=4OXX$d1OA2p~b0hpZU|8HSz>`op`b6=x!GF
zh^mj9;B)!XWZ$40U4THhM1H2+uP3v3KB&6(Z<;QTpaTDSr#@6*|3g-V9jCnm7wD#@
zOlcoRQmkg`A%can5u;9`BVNuN&Ts~S-yyx0!gkkRkkHLIeviL7F8Qsxi;GKl=j&K&
z-Yv)ET?b^Aj$ETj**FlcsGQ0%%DOXhXl+hF`NNDEw5WhWu|+4Z-w$a}(X=G9czSS%
zvS9<J$Yy2<g!nPQxt|@2dN|lW9(Bh6a!9W88#<J0QJ0K<D4SeJ*qn~X=c{jpka@UZ
z3>o?@SRG|fzLT5q3yU?^sOd=a1pMhq&-1hI_B@V?#iHBd^KSl7nEox$c$Rw}fBE)p
zh5RfT{^lmFGPs3Kq;`6td8Uf&!cv#r5FbZ7@VWl(ETEj*P^+6aZ&LJlCW46gneM;x
z`C>$johNX}$Mx}`6i-P<=ljvyk^^61SgH4-!y~ov-Q^U2!6b3R0z0?;`)@<rA=iW}
zu7f2wvSDM71-R%J5|W7Xksj7!*@0v6gGlk(Jxs?|K1zGh<BGhMHK5rk0vG_KaQ?cl
z92W=FS8G?Uluxg7v3%nO)G9_OF<Tw|{iU8}jtg9AN68(6;-VA@ldTr5u&WwMemH&>
z+X4kJ2;oOP53Uvv*omE$jmQGSFPAF8xhj*qo5}QY>q!n-vvK3bOjoL?%VTdsW1`*q
zU?Hm;ar;f!2sQB;OovY#2RuG|SV%^Y#liQW`e)v+=VJU!WN2Ki@1TiUICGIr={;9&
zxpz~q!tm(_7(@jYQRzXHB2~3phgb1qTjZW@M~U?gzb;JjOrizq6$;R#L}wJaq?O0P
z1uTqCXfgM`J;X}m>cw&d`yjSu<IE_-)?;DvEqJ%dfC^3~Xs7Kl`lKcNx(W+Q3m73t
zL~I5%Ii`>3zj32rYIt!CG4>%o7pX3<TR9X{L|ibMVnp>t@<`4GYXh5AFcL@Z65@je
zextIroGBO-P7_#wS?a*&5fg91?YY$X>l`X5s1zsg);Y(BAct`ir@uouPXg*^b6{7g
z?P2tTWPBqif#U1%nc(Lx0S}%CkT>haPx^!?SL`v*i~?%@t>GHhm><s*JXAn?=7W|~
zDV0x<PeC008oX`Xkl4y;OIpO{O_gv7y!`@v5v#cIx_!5xK+=miFTpQ&TsO4yguIje
zvg)d6SJFa@t;gaFSD8E!o;3B+Sq=APT`z#?Zo<029cTIEE~0kIX-4ptglj&FRh;rV
z5B#YVUX!k|V<0X&X1lbDhFAWDxp`t5XFArTI_-Np;C<oJHg`W$qy1kxw|z?f>Hj?U
z$+?;vM~xznKdxKf*|Gwfb7@Vjh9Vu77nn-ea`>0zoN_`SRsQ@cG2nzQiroj+HNEtc
z=ygro9<o@;=S!oGj7qswy_bxe=~gLMQERCayB+_u=95q)s6@XhZ=iB;>dvh3(Ek;e
z?om?GL}~tmCx$4ttxIbXuV0#0_z<%FxHiR^mL-{vL84JA-$G<|SdBGjSJuBE=n9S;
zU9yFd@W{$MIR>@}BON2>h~ZFEa0F@T^@|-k>I@O!5HXWa7Oq?2sKPM@`8|1iVYuZH
zH@ix%Uy^tU2HCTM5y?n-ya-^y46i4)LnG&xcm>4^!`uehL{6Q~iQtQ-`!kWWT8@US
zsVIf<c+HxVlJ8MuT8z`Xuwyy=oY8Mv3qGAWH2hS&d*hU2L<57~Y3Ue7z@4f~XS<aZ
z;*V4)1l4$`U#HTbe8w{8&b1@R4yyz`w4DPMxzWPlAo^v^k#~?tEQSubrb3h<expt2
z2jvsCuNrxSEk&&y3&37!Y3AIXvi(gf^=rm^yuc}gF&=kol}8%eWv^VZYpC30WN^ug
zkDNOHqaL72RzY4Eqcdozz|&6;_@g1c_i9=&`mHRz4`YoAACh~w1$ZMa#~q6|vGg?F
zM^nSHhmlK2Kw$apjicY6VPsHJhUNoUUlTl~TRuGmKS04t{7f|1Nx;Bo`;H!djAhNw
zOsChu+a=7?PF=SPP@;y;XYKIl9b`AdN%<n|U#vn2SOtZ#r((PlvxKG`U?i9#bSnuE
zFTH61vhuY_{9nmsSx}q2_;2tyJ}PqXo~9Z-(vJo|#BRne{bm$_F-wz9e_1vZxUr;p
zLkoXRNDJXy^lQ+%`l>*ZzeU=Ld)N1|F&{LoAlw-RU$!OtVT6d5#p7nU#%vD{%$|W<
zXf1nbiBz}xT!70}2BQ)=2ESNM;>RK!Sg5-NnAdjmyPUVSl9vDwsu%^G%rVCiHcH%B
z`~38-i=|p+UJb8USKjw_jA4|$MO{Vp9nM&RB}+~$mz3<yDAdXM+=~<ZVOHRgCto^|
z98}8YiJ6&-3VqLhf4_Hs;(y*%;;J_J&Fwj-t8e<Gu}c1yA2ig}=N<oeE8Zo!0KnIT
zv0g*bdR_-tCmmJ%4Xf*prIU<LLE*PD(beB?RWi{?=ZhOPEUvhk`G>z$Vl50r=>y5Z
z^%&!0TLvYim&VM@L0mHHMvX2<iX^^0MuPhSn;;)3DOoI~5-7W{REYKUx#nBfZ=m)k
zjvdo?Iu|5`%crr<dBM&0^BvT$4S3vOeSt>pqjXxH<(uMS--+4i)Jsu9JAY`PesEWm
zSl0IqS%v1CEO@`XUo#~!%FD{#<axEba+{R3uwYu0MTqCY&D!!0$7idw<(pXUPC4xS
zXRXxW;urdMGAeUL7NvK-w>r_^;a?+BX$O2PO<&{vg;!~+V;B$40=7d^$o$FU=S@8?
zj)oZ!vL4{M^%u-^5yuKTb3IcX`aYaTM;xV!&Oj$Eda~!lLu?;S>CMPo-=Mtl-XJfM
z-u=^E{7s`#u)p{MA7{xi6a3{Ht1IaU?ZlG=`<;?f%#1nLR|k&|;q3$|!!Pj58JcYn
z3;v)<mI?ZV-6&BPC>#vR|McLJ$@lziJI}Kk3a;U2r|Nsjseqda&Eq-#d9%0VC^K`S
zT|%agnnc`ereeq3Im0@%&Dh?-!c3nC?FKIX9wk<T<Pk+VyUj_n00)ELTh5$%e#cs1
z$xbu0v~r<{d3WQz+x1kuO{#cU;V>yiQ>zctWK7O>LtF&JrD<C2_M~UEPSSJ~Z}j*k
zEIRHKW<Kt6|NVu}0ijzoC6el@m?F88akVs-<k`hJovZ(%tw2b1erWT^xn%=3bNH~{
zsjI6i)pg(`5xt#j|Du>IZ3CO48f1-#U}%FofIrGyr(qvBHn9tq;;5dtWZGZwTFu>d
zhLaFbAO!wV?ZZ@X9Nlx?2|u&CILcr!ww?Y@nlJ2a`S2Ib_fp`={sT9rAaCr**2(br
z3Y>QU==Dy}lTTXb{?&<Xt3`<eswtY-5{F!rr^rnK7&zNC4p0lA#*;VyqO?px(}Ax$
z=uvEECWt&rUAvDFb$SmD{G+aZObnIu-Kr_tnr4>lPZ_B;+@5-#@~rSnm!?iQ`y_+Y
z(CbvTC05J3px4jO!tnv5P5q~3BPPH~1y*RSkkDm)<M`jvErIL})@_oeA&aG#3Hh|8
zPrmTAb8$`^7#PLR@2{5$X8Ea4x3(QCE)i)S1ALpt0#GcxMHiqm>A~Wm-@XLGlDmps
zAW}$t5Jqq&P$W0I@>)MW<-7VnJ(6?>h~*_N1I3pGAP|_ZZ=jpF2g|Oc#X!L2<hRm$
zi0DP9YlD^`p`w9e7l@!kH3m?@Tec1e292~pBc!9Pt)0`K5U(61p6c>We6#<3ys9>(
ziO@?D)JlaP@+d^}*9ESH^>W#odFRgbw;kmTgp}1vqqMtVyS&BL+#^FqGU+C<<K|b{
zIA!@{_I=gB-_MzK?9cA`k<Ipt(wt8IP%|C)rM2Q+8Kq%T+sMIxD{nz43=CGd>sBT7
z!rcJkTY>eIL2=-KqN_Zs9w`H6fUXfEr<hvc2y7P(EabO4S>dpC-UlznvCexGeL6vf
zfAP!$gM@_E%Ba7erGI|%L2g0`_?d+HQ^O*)e+1y(&4r~)bMkO}V5Uu;OZ*n69|tfQ
zYhU_@6MMWFzZ8II1Hnr*DVWJ=E>#44r;VB&px5Tb6-X&T)w#hCb2?_^N^>(}PW<-!
z`t`c1kIE3jC2bQ%rp#OwrxaM?iV%x+Aje(g80y#4Kgc}12PaozWhTnW|AgBHIe)v2
zZ1<ahd|;!5a#kGEPiTf)jKA02PJc0D(ZYu;m!>n{9(doED;QT7^Q9d_gKB1Kk1TW6
za||{TV3GuyC*=>uEbue&{&aFG1^{F8Ga&`_ffTJJHNiXp4@W`HoWVdTyRU$ZL80(;
z0nLV+UI0cxC6I~gyLNdJ=|tU%K8$XuMZl8Hk-&f<xfgJR(3~x@+4aK`ZfV#E3v?+_
z>iAP^jLkPRRM=S9QFP5K9FRw{Ca<3GKw5E-f@(k>01cc3Vjy^W9ms%*_65y?AQPi8
z<n4!k4Z7tZR=C_Bv0~x)D_Alu;_rzLR_Mt0?36E0^VaHZLr4c53)HYcJwaKeoIK1_
z5j>V9TL8T<+Vp5p9#kOVv%;!(Tck!WWDuR50k$P%t{C`h*_|6gR1BWpJxEWXKK_uk
z;#MDT1>3D3XPn=`Zq`*D*|fH~&YL&S4DWk5+CDhA?(Qaf_Xi#`h+W3ujsroJmXL$<
zo8x;pOY62vcXG!Lw-Xt=Ji)t*BZ0#3WR)qYRuHSZe8So7!x5K&p<sJV<au(-JRo4J
z^FtM>hIs(B_RyFx0IM|J1Xs5e0p8`*Kv^v*d?*elIW0ySl8e8`*+`y*T1b5GRF`|s
zNa~oNCbgg)s1Z%imO+>#nH6C=BGv;SK{KGe_#`=>+Md_$1?^|&wq^Bq>o4@KS~$ZY
z)Yg;AqagbdCV{xbp&VFuAC+ATNXK`8F-_8{u70`uFpmm&>SswsLeTW$nc$YiEqHk!
z8W#Y^M9Z#2WrBvPjF!m&O(umBKtWZ8a|1CE>Ly#h%WmQ->hwr&$;cu)=B(fFMfN!S
z09gyeQ$l#l-{RyKV0Iu-H>gqyv>iVam2)W+0ludsqJzkDZw45e8fJ1R17QZvj5-zo
zlqFzu3C|cO+!q)@h<hpukuwI1zd>08kQikcwr70t;rTKi!)W(VYAI~J5!fQZDrjO?
z2CPT3mH=*J{#+=sA@nSR#LZdsDcY)%6(h~p0;0WrG#C&l$-05Eu3%DtJhlo9{o!Y#
zExBg8pY1N!_e!-T)wiYE#;__$?E6U|O~kU%3^CJyNC3Jt_kqcxxDa$U884(~NX=YJ
z&l4TgK=PNBikt5D$NtN{Z)Nt<O=7w{kwWA+B_0pE2HTl}-w@RmMyMuU*0(CEwqRE%
zc*=lC=cn#aR8}M0E!g?nB3gQE2l%;n{pALW-e9E5Y9=HQj$zf!U>W$EN%zqu4dRmS
zJ-<0%cglPKm4z@TryNZ7B$6-8B1XAE^;ILV0z7`N8@r%d$7I|XOn;>u<Qov>8|LB?
z0=T@+Ps$9M>3~NC5C$Mvz|jdngj=@M_o>(ifqYg5mWl78*imsjL=(o2S>$;Su|y;o
z#{$=0$6Yo}EL+Vo9*9~6CE4A%Bb2|6rZ3?zGP3*DZ75~^R}1jw8b4kxqWY)br$Z(-
zN;>s!z6A-c2h)LEHIh}C=C9$^Q6nQwOOFD)`OUG0%KdF#+Nza9hr_|-wf)$t6MJ<l
zlf;kY9f6HOjGvmq`wt&(py!oFzT(5s?4L@#u%H6ZxzMhlcFQ*EupR0<Et`r{6C1$g
zKL(!&yaVn$N-=vJ0pTFQ3a8UKCg?A$u2g~rO#vGqbM~@QkeW^as*Zu}c|0efXhd2;
z;aF%|6~tsWS9HGk{}6gVnT5{SMAk?uvYVzDwsm?go}@*4NZR-;Kb|b(3t0LXm|=#%
zH5$4SrZYDWyD^4!#-$oZ`7pCK%PPPW$)+G)loaCqcSfwt9+Z2?3dcT<Pl;KNyVcLS
z1<OE!k%M1H117PwhM^${^;q<<#<~yvA=ge=OYB-XIb+~XNbM{my$WixCW@qr|H9Cj
z_{Q(xenU+ofzt&`95u75_LsZ+ZHJWRj-^%93GT}#v;a}Zu_z$6;!#58!(?E|=W9Xj
z9FjG1=A2x|9oOR|?{hW=>#y!E$HJt*jkayhV28Ug6*<s##A2Rw3sM+lt@BitTtCT7
z%6ft_Iq3L0)5OZyz`(_*Vg>q>N2}2-nsx7TlAPrm`q4<tuwDtZ+R;E;&$pYuOegx1
z#2&?NJsVM)?4{{o;M9&5PO!m|N*g+2sKlv$BehI;SYAplsBQ^RHds5GGJm705MZJ>
zh_&PM8>7=OJFvhm``CRD1*sU=TUZKEg6F2KW!v{ktZd1|O5U!{>V$_@SipYu9X9V=
zQj<*bA~BzZ_G{b)bfbd56auAJwH-qFeA)Q-QvxG?!T#%fV_pO7zp5PBfo1nsub#MX
zj>7g`SNW!{xacG!I@^HDk2{PzL$ot9srJ6k`F(S;_t|k>;p%MR)?7S!m8j0PIalYL
zo#SPucJ==EH|uzl9V$C~AC<mcSDt**QMo+Zxbe73sUfGVw>hDug=S08brXR{1>V<t
zEiEl4Q#I1vG(M?X0zJ_p*3CzzN0){wqS4m$MVFWDrg88f{sB$z3c6M(KiB}Ci2z&;
zfR;Ax+}}U<AcK30-i2=Y$CX?TVcQmp8O4FZ3Vq(XBmrAFHZp(T@(HJbvRPTnEvoUZ
zv^$ud_I(oPxt+_zHL}H)NE4tbh)qKTU1JkUcqOL(y;|_gd8rY-w?}MQkw7LE=*iS%
zs9u>#?zy$v95G$3A;B(A{=<L(o<au<Rw_F-a8GSF3e++LL6C}zLe!v2r|Gewg@LH&
zSm6<SZl-0lgGmATAZA?m*&*&(fM7;U%v$LsyHI=9q<SmZNE#KNudRN_$FF`Wq!LO#
z+5*+vy60k`O*E<>!h^*h1se_=&K~7789Iv~MdEJ;x^J$t1z~(Q`DZMVPRS9FcmNu_
zsV%clA)?wN9Up)d*SJuIh7|#|(YCPx;>HTcy5HbZKVksH(ZqqvG5vl}<}_`}Q==*%
zw)Or-oS%gu^<a{iEYDed31wwvO@j_Ag=z-o_ElJ?ujzCV{a)cexa?YWS9U;TG;OOm
zXQ>RKBsUUHfCLP{Ja>C*YoX2$lHa$%l1pC(rofz8dYh_K*EqDMuli^RD)P@4xj*uN
zD@(BN@m_g`UBiPStElN`*&~N%t&B|0lYWBM`J2I5l;Tn1FMq3ujXi`OTpy{nXW-;%
z@Y_C&__DIUgYt`pjw2RMU~u*~X6n6W_rXecW=zhq55yEKQO0Z<4%7opn6rEAN9iEu
zUJ%C_vqT^V15zh;&DDWC6Y5VL7#kt@<L#0n8Xp5c1I%i)w6usD10^d)^o`ruhSptb
zh`{V>3pg2;T4SYjD)=&%)Gje@|2KWk@hPTqW?ob@L3{~H`(SLVd23fcg0%Kg#tII<
zNZ`@>ELcPmz%%Sow{kj-BC)V7&9vUkl5g%mqlV>-*OaqO*+6X;M-l(Z3Wxe4>UpcC
zwzdVb#Ha=Ik#1Ryl4p@8`Y0;Jm2a)vE+8O4R5PSL@686Wt2f;;@nK^pL4uwOj&H!{
zLAEaz5yhP7#t|xPa{~fNGqD^#*cR+eCzb=KCJA+2`@7lbcghbCt=ocOVwxaZh*pIj
z1HTc5m$@pNx99!gB=UM&WCQIZRv-pW($OLyY>={HKo5xHl_qMaF17}D=t8Vu**-<Q
z6I8{6-BEIW!|^%Nt#Qdb!p4p{QJ58>h6{(o0sl)yOqba1Eon7@X|fAZuVrRt*4il)
z?9uNz`|Vu*r%k;{BE_xPavkz#NP^F7CY1JU-^pU=kf^dodFC}S?Sf@tE<0HEh5iSz
zhbKY0Jr5L&lxguC75R%tprgbLi$p4}py}FVxR~UEBu7F+&im$eO(2zA5Wu_xr_BL5
z+lpDV6}|QDVz}yHB)qxT@6a)JO(kBc@UkpT%p#L7daZ7`p)R?8kT|3qr4c`sH`ZvR
zAUn3OO%xj)T_~edZ4#vA#Nt&$3kGzF<_!=(H+B5j85NyQTS@EDjVYh%Byt279@Mn6
z9up>GNi3tt=W2h}VS4^M41jPz!eJ{)RW|-2ny?_y+2w1Z0z)DAXvONYwHMVAf^05q
zRD3{b;p%8`-^vZ0rfUU)#wO)7?iWp<!m~lj51iuYe*Mh@M4Xw`*|pzNIFIi03Itrg
zzA~}0rlswLKJJ5pMO&Aip<(TT7_ZD}1?7%Fok{vcv?o@}`=+thopq9|qILSG#Kl+6
zp3Kkx$j9z>g8IIF>~?3fY9VxEU~1IcR8{l_id0T5n$+|1mV{Jv&E8vTF)O-^EbP;h
z+6@<pZ8ewQKIQlewVl?%!QDlX5fK<Fuv5M5LTXG*OnBwT+b4504Q_O|t=jQbF64%f
zlxTEK94}{CxsiS7{ndTN5s9Z$&qVBD<<=_PpE5(+^joTT`>Z7ft8F4UJ0}K4uI;kW
zy6}0+QKLODF$(k_%xV8D{Hj~aJgL2!d*J9bl@prlcINSIc*q{?tG6!gs>ywDFZ36$
zoxSSdz^f>U%%OjZH#J><`n5yO>j$4}@w-QgOG}&n2vuaq2k^UF@4a#UXh`BQ_xz7v
zyFTwI`ZeHkXYHlLFY2Y7J5NOTo^XrZQ(N8N#lgzEB^R&kztU%O=&RTVj{K446@P+s
zIbvANNm+plqNTnad{wy<y|1mg7^)|vuvHRjW{5Et@kT?Gx<=ua^gOaJZ@TBIBHheS
z5;hbq;H(~IEv|VJETc~oP0>f`OGq#7Z1e|pwbBWp_c*vMw6Lu}rotW=bjw5T4%T)G
zYNClxUgIH{KlS`)LyGfbFq*<ibV#Z-dMOOS!`7ph4TNEM=O4dvwki!g1v>ck;<bCn
zJu@a{3+W_inwmxsEyqlqdq)mhWcG2L7+27bUBwPyVa-tiy#^K!k=hjJ;i7As0r(ke
z<S67Gu}$}(`b~b`x&U1{IusY24~sWi@V-^szn`K-b=~_4jrBMY<KErK$lHUE4w9+S
zY*h&~8N}B{1)bD88&t7wI%yTrW#;~=9~y8cMuWtTGuN+KKm5^-Um!gZ>BJ$ts92C_
z5)euH9gK!BN0`)<xS2uw)^Xo356DEM(s$7bqFlWmy}0C;Rf@ns|K2WZ{C)dV1Oia3
zBR`3^40eyu4bQwmZDNCnK!=**v;>eBG{ef!R2}ISWhh=8*iw$Yg*&GfH0zO@a&WYS
zrW?CNcb<<Jepif-r-@rZ7a1mYWP+n@q3ohw4@XEw*fq-Db@3XG=go&r{hvp5oD4>W
z_J?ssdG&lbh6V;7zW)S1!>&Q_NZnuktB2)t&`^ka?(PA*UGn`Wju`)c^{oL5@bZYC
zWY^?jZVF1A7q<%CpvKGm<jEU4gmExKy-xpXT@&Wxn`x*bxIO_UByrT?lT5S)n@b6V
z#>46!nk$XLY~lb=v~+a#uxJA!qs4!EM-uMyQ?wzXO3eOwiRM<&?`DM~nhZ_+bAzMM
zMMFssoUHR-p|62Z`<O({Q%NcCNw<Q{8XidPHt15=Kzr!Xw~J9r1RNiZDe-XX;)@Sx
z-`JKAYMOofqz;4ObK|OqPRx>5r?8(=z^x|yhq*(4P7%P(vd8(<{NBV@3xep-O(RC9
zD;{4v4m!?fc#K!leXMVc=^82+Jw!U|SMNu7u%M-RHzs(zUA|_N=-Mq>Dju<0AtpL4
z>xO^lfWXT3$}^J~m3x#PpTcQR7-4yNs-Pe0A3>Ak;X7?_@hvY`yU4xP!f}zv=Tpb7
zU0Laqk~N)iJn-Cv>`3z#thG|o=b@95bcuV58{uvVc$XDU`U+XTvzJC2mb(I6tVnH5
zO*6R1^)Tx(xzPXS&DLv*OVKh1Zr+D@Gq2Tu1N969mtU_jKzK3xxFae>N{9H`scU1=
z-Na_spgvPl`0LC1sAN0KiKeoX;E+WYgu#xXKZ&GiNyH?^->{P{&QTsM`Op9?#M1#P
z@N!)+#<#w?mgNAiL0CFH{r_e8AeWn61MP}$-KOdJC;IvqYSm;p+GPI~eKRUALG+D`
zi>9^%>)yvW;K2CuFOQd@^I=>aW@|LH9pC&r-}BJkay2cj`8l;f+5XFKA=<J=<o1bs
ze=gQTeOB<V()zfFao6RPw*WIoY%8SpCwqjlC?uRivMvL_34I);L>@v5i7TJ@%JhVt
zox|%jQ7O(~n|4yPhwSek@)X1f+kEE7Gt+3ysdG-<ru5Na;&;373AO-MIlp5$2Aect
zBz!5x=Z1p#E?mPy#pVp{EI<Gx%)~~&UOD-RJy(*yc`RB=Gt8%jJ%l|#z!!eKCHy6b
zGgFCe6dEN}Jg~*0>lrSrP+Tc0#sGHEDK9T)o04$_j}Q%0We*s+^_kYlzom*05t)}P
z@1Rf&kaf)j3`|8G>0H1DlcfZcY*HOswej0j5g_2(`qw*{Vf>--qhC02!qS|lkg?gL
zm5`iF2T0wr53VRvD2!9#M#<VF(eaf_feC5=IVU<87}lD3Q&IB~?~gRhpDsD1M+E3J
zx7TWzae8+f$x1<>c6g*t91bh6&iFKO!q|T%4xM>&S7r03@rHIq60~2N{0XQOS4QJQ
zl2?l#mbDcYsxw{<D>`ORCawdeGSCK;PSp@H2d=#w;$y)3F7Vv=Y!-pX5ZQ&jl5!H<
zd+RRRKqVAICZVq%_?ZXL=E6@WsrOP<c!+(tQ7k*CTMoaq$8B`!NQ2PTSZvd+i@%SF
zjph9v8xvCkpGX*5HYT+DYy`gvN7;i(RNdNn4wUy?+`hOXPHL3r;h5O?oR<EYISyZ|
zJ-+b^<02xsS%rFGfYAg6P*@E;dnpJf#>AgiJn9+{X3pJzCLVTW6y9r?G^(s&14uzX
zeuSFJnmY_X?H^BK(}mXd0v-35puGCq2`c??T7b9U=YqC2i6|y!3G#vCQKP>-kptL6
z9|GDksAuXD_GPz4k70z5AD>MMh~YgAcrbea>O;EjgqzdMWhx_)NabXcSzCv}n+Tf7
zBQ%THM(RbdNHy-b&rBMYC_*&_C6&lcsc*MHNML%BLk$h-!k0G<;$jn!f2!x$BF{N?
zkNQg`5SszYlgP(@5MruK5;9vn3O>jk0KG2O(>*{=DX|r46<39k`FqtofIWTOwgRr+
z%W;Fqz|h1an0-h2618789YAbR@v~8;6If3pW3Uq9EfP`AvjR?!i<_2-n>KIe1(S(S
zpzvh_6gBI6Pr`4o9`RbK&-Dkd?*lnjlFk<$t;Q@#58(DZcpqJ@cYC6ea`|%J7Up>H
z8k(17SLqE7ip$8<`ag<O+PXBgBWuuya3LdJqXKE8#LAz#%#;V}^F@{WkIY>$d$R7*
z%MuN4JJ(vRUOfgpal@;Jy@M}&2E{kt%VR4g=oYxV{$sdF^E&sF1MeRCy5-e-T5zot
z5h?OFS$-Q;VVMB8#c^ZL{U#a`okuI3)7@6z#8hOp)n(60w#lOiyTLzLlQ*b;ry`GJ
z=#Vj6K)!`N!@sia5&ndqi3uq*gS*=3*cOXlXr3u9N1K=$;!NhMZrw*1Bxy~T*gl)%
z?LP}>2BL-#8nS~%2t9nLE*R_-N@q4<tJ2s^c;oG$p|WUr?bi=q0?*;aB36W5mH<@^
z(^!V1BW(Nd1V|e9#j=Pxs|#bH5kLl#mSIS05M_x_Q-W5i5-M3JBIs4|JB=xC29E>{
z>?8sMyS_Q;>!E^2-fPCh)|ALicf+uo(g`v6g>UGp=9WoT8ucuPd0=!hkzEZ)8nc$L
zxbA@^plB3wOb}&4J`-$rF0s||r|c$AJiGp8G+)!M71wT!>43PDCY|n=MW76~oy?Z^
z`!2Kp>F1lJU3_qb=vcFb`Rk6=AFb^^UH!b3v&m&i(edb~JNfwSvzP-KRdcT<7WR3!
zZ<1MBwPl>%?`P5r@@H;#Outd^C20`%xGk$qCLuX^VbBk$%n0eHNw>_j8+S^!MX_W$
zj&dB%H74iC<tzUD{^1d&Etk+r1nP3mN)T%a$21XT2+U4I%<-yY`WH4TYk=On2_&@g
z;~zQ;0E*H>LVassU|^F8wgSwnBG{EDE*YO0VNJt>+VC3ntGUwx&ZehYl^e@J^LtAt
z<Il%CnDwkd6BN&Ga>R3nxos9uWKvirghWUB0?UfR29N|#B;bs+B(OEqrvj(9zR{7A
zGIAeI(TOvz4%oi_F1s}CLCGv>oJB;NQDclGa4oDwifJwbSi2y-wX0k<$D!+oUi45T
zyKItwr0hJ$bF-uw%a}21v^nhy+Y(lYPB->9r7FV1rvt?fc4f@lwz4)s4i?M8U81I}
zzLq*4peWryaugK1U+mG4*a{Gi<b;@I6NO1X+Q8>D*Kup2xkbpc9DM*BE8*m?fzXCI
zJmVU*_<fjoXr-6qtpd&m%F_&<p#uA3&1W%g{nCp4M}q_)b;tjkQ}#7P#U_8M`xNE+
zuMNK}>Rw2mW1-Q3q$GvL+u@X=BNbB+?t(0nI$}ktO;YIBVyJ;M`~zC(STNqE^{Cvy
zZ5s58(|GlkEm`HMW0q*4k}>}Mc_H0V{$}{w-l;-%;bgNS8gyzjKxvF-*bZpaT<fv^
zLhFv|`2&LI5M%wPsjjh0qR;!+O5d$qT}jX{5U26nL0|_qvhJhjV6ENVFIlte;JptU
zUOX39F03qFE#jcehmG)9)zQ+DlF-sn<l5q2*EUNy8Hl%pfzO#5A(>IEp>f|wGT)^J
z$s&b=WjaPN@AC?e`@epzG+)1ay{48x`juoj0JI#Gf7aW8!Qhfftm$;q(bNm<wpyjM
zd2!n5nT4-kAG^P5{UKNX<S$$OAd3}9b2m~>!QEN?*=BP@&6Ce(H)+jvPx5)LFb(|c
z0f0xs{k_)><J{VPe4^WTd_z@e!^uPoKvfnI=}e2B%4|qKM-s|xr#an;MSh4T9f0H%
z0<$8X@pc~!7S@@~tI!D&<3!oZm=Go$eNuWXll-lf2iAIm=_I}q+@F=Lx0QLUXt?#-
zb$K|Id1`OM^Me{^FR>dED02Zx-+iU${_}cB6L~$mhX4SRqg>x62kL4UCX~(Q;%z(j
zSd5d7$>>PMLiaIh?u@)+P5A%k9Ix;#7#<{0?q+7`of&fEJKD=9yKDQg7)7FcoJZs~
zZRvnqm>8Ru6JU6<B%Fy;3;#itL@*sh;!&WnAi~;-G<&NPgM6@LvF3GUN{O(mc}VyT
z88*lq$!|Nq)7cNySww$9PNMbU7M$tT-}L6PwfB%kghej0O^-gnsw~`*IPGJr@!2WI
z&!T(;5MPGsMI2)aQGAeXiFRD_0njxdBJlc<bSOl)Om+KTZhK6R9#s^3(}Sl|Ule0|
zmJQpBYxXT4KI89qQA`6%Z>ykn?c!vPySFsKSr`{nlu!erh*<&(wZv1YMq9qNsR~{4
z&a<ELhsq~Ba40oXB9lJk2@ZuK=}j1;RR)MThTefy|9tDMHPRn20&o^-=B2+}*$DJ>
zX&Zvc0{F>Irkvo8fPcL@W5=YIAc9U-PPXSqyMn2v5o8C9GQS!Qs7#Y`-(fpRME+jd
zEB7Tu*qB0>AA>+hKQ-YXH@nZx2qoYyUp{I3-2~P0HwW6iH9tDihi{7s`m;;je(jUU
z-{7MG1At+Mz?QVsB%6`@{b^RfX4^x_3#(#kb|L2dPOFvG3<r(vIAhG#o&J@VY0OnQ
zw6k-L;^KR_lEa`j)nsJDfpH-l5)0s@_8^_3o=X%Y$M=&6mbB{tI5K1hyEUL+l&BIE
zN{W1JUpis$KmF2!&sGrk1o}M+kGy0Cw;sImpn-<Rtg`G;j_XZ)hmz?XL{<(on>-Dp
zxo#FBcMRJ&LQmO`%E<o(a5pA0au<%9_<)*`RL^H1Z}`i7E?KDzO6lYnC8})gRLFsZ
zN*Wa%#e6kAj?-;PyLRmw`<sitzI^TOGVE!JXFur<QDVZx)}AJ|Jc8Crpv6rgie#|6
zl<-yRn{by}u*q86)^;8P90yv5wnhly$eWQ0Ub*T1ky3F(2|1bBs<wGAt8tcnu02e?
zGKkfowJk7+1oyXIP|H_g1!$L;=;)-=TLB@G59J7A1x64938!pY#He?x>qeU5caO=A
z1N_Gla#7le^>f^yqQ_dXCkTL`SuBRHUHcVRJ1ktbc=PcCSr*pHGawi7=NB=~H9(29
z^G@}w^E-(Ar?D@@Ai`Z!0-Pg;`tM?y-arv6y0k2DjQJ^yUZZ!)ivMo%#Z!+@;Q)D_
z_39j9To7s?Y+o9Ml^IBVD7<Jsn*+>vl%9eiFveM)owE?%fn2yUsL<(qAsF69SUfZm
zu+}%-lB3zD_=-nz<vN;gfOt0L*eLzDjo7TnC5I{YUi886sO%TTl;e|3k~P)nS;t!5
z&uXfMUAh~|3eqmNzk0YqB7|4(OYyRZZLi)1q(~Z*wRz)pVAEUEQ^td}=agl6IpR^Z
zhfiFoDtj3d3W7?kCkfyy6l{sUsS^D57V^%v)aSWh|J063GX+X18F&Mgt-~P4A*FOT
z)DLR_T4KK~$LE;hIDA(wCS!`-ZWgHHvTx}9-`Thi=rc<&TX%t7=7mfv{uLj+wd7&n
z!@?0L_t7@WcCtMy<pFDQcVFYu@~YQ=wE!VPpb7Dtyz7R3<j-m)C=@}Oyn_NK;E^K|
z7Ofw%1nk$l(CX?E?b_9iU}x%n_Qjp5ZO<LBc7?T?JuQtWNpfIOI48a@bofIXj<JD>
zty{@c8v&1@LnBw7br6C|R@qnkD<bQ04`^~I+7K7i#KJfC<D?3IX1G;Gdj`Bfz9jg-
zliQ48bLu#jrc<ObX}v~h5qoU6ij{rf&g>zaZ-G$ddVL2_F6{gycA@?q<K~;77PQ!B
zXk|WJHt;v2?$LxT9Ae;QvoF3~zZHHsq98!Vk$4{E2>dT-!iGI1;LEH#N*8I^p~Bdo
zHMXu_=V%HmAYg4?eSK)`sEq8HJjmBFWDXKm3VCCjMXdGsHn2mnyB7AX6%`%TYkb^P
z#Hk7986g{JR80$rjS8q>(Czsl#|tG2X$qh}dIx%u&*~^FWi+zT4RXd-Dw^=lD1PF|
zo8c)=<SE6ay=-BzM;}5>n$Y3U9C4FKM0&6j62LmJWpj|}IxOda*Ux$DQVw<&NTYIS
zLnQS~r<1gZgbwe!YtLP08jakXESi8zB_d3}_ke0VWPhQ(2&+E8>L{9t_42uLND&%F
z&F(8pya@BWt|HAOam`Zn3rA|EoZmsCksUybrN_KQ^Z6`39s{V%QGl-J>+L&DGks~;
zO`ns-KdtmitI}mq%B`xjNkC0}X!LD-lqM|zH9FW|R~?=gISi0{;`yDE)3k{3{$G;M
z2iP##VgR^6bF#j@ZQ&@$4GrVh&e@5K2eUf14S%x7er~8iD9VKV@?WY6b4N}+)x1;Y
zu6mYg#V`~3Hfr@vz&)XU>Uoag2;3~v-Zpld{yLg?GyJvqKN7+gueH_?2l=<ed)55J
zgaqrKwnFsWXDj{H(&}8+e>?zFK}u_<^!V)27kIZ}crMTIzs)R9n3E09q_@uK*2M78
zw$OQu6w3LD(xczch@Y1(<uv@*Z!0*oxK_R{>)U(7U4@6&U7XISJ~PUBrcaG{Y1gtX
zE0)3FpFIksioyhh)A76LIL1}r6vMBVaTN_#)_BG?t{>Kalc;9y{1<%u-{l`0lCuzN
zW)kPDSpCQJX?5byzImPHxotaRVolHGPpR?0ZI@vGx_JsE{@h*ptLgF5`QPiWKj^`c
z4v{5)G>&~#FjHzOnyU;Q+OHMx$GI{XT<1L&ZY$_)Sha{RC*;Am{Gr}NpKA|9m@T$v
z_9E_y@$rQ5%>}LQj;@xDi)`ooaGH#p>ho;gUuVTfwSSk$|GIya&6>7t0NVk=LTdER
zB9FKZ#<c6^0nFOm{rh6%nYD*L1G(vQsThAY=Hb0yg&(M-Q=3d8ilZLP;PCIj=2;)=
zdtti#D;a4nK?w=1;QRqytrcA!GMs1naVG5PlOoi4rz$Z*ijO`D35YPd91*mJd-__l
ze5sNzeV?}2Z+Xj(z7`N}vvJ=c*SAw9o+a!Cunk7DhMba(f!(M^E^!t1wt$jxGkObe
zv`oDd<CUjdaA?`=2loP=O&&isp&lZc_OHRJ-a&!2?hKehat!6ZD=#SB>CRwQBu1I%
zcLl6o>Ra&8w|uFu<yas}mQ{-RJ1Lm$dgBk-U8iHxq5?BEPS5`-am6Vop-NR|sc-fI
z*XgIWUV5*lx&q|cqD>(yzi(Eou@zO}k8OP5cCp<)sm`XwJ@-VWZljxIl60?~u=Jid
zlR4<KeUfiZLz4%SZjGKiQh$fn1|YL*yHA9T3Cqy6?wk8kTp0pGiOl-dVvgt?V`H_<
z%L`)GR(5xyvRIqm6ejqpVAl$~!XEP(15MFuv@a>+Qu1>pZC&8n&~TzK;|co9LX-8H
zh9c<-TxjTGe8k&LLP=-E^If-1(Mwxhk41fBoJr@q<>|jqM)l~Xw3s-g>gR5Vm08fX
zc>#+!`K9jpbFv~LMEhP{IK+2({`~eu5eEDBSABPLc{WFpKN?fL^xn!Cr;l!2+XUtR
zx7!i^_uB*iSAAmatsXviG2)4$l{n}cTS*-RXC)w6VloY#KAk7nvgSh%YBdan$zF96
z!(d5qQS!}d^wet#ly-fr54$875Q$88pqtP?o=1ejJygDC2%bQt7jIoJu6#cK(-F*o
z82<98Xz3o4c#xY1LSf7xiy(*=`nI1=TcLF*A@M9k?dTwyP=i%SR2r0iYugK)W1*q_
zzQsbLIY{rS9Qvi4FeJhrtO9v{N0BO&hEUl8s3o;DvjigBJ4?K3=J`gI%9W44=g(Kl
zk`@7@xuLnmdj}x2qQ8Ifc-Ca6J9E4gLetMax$8Y5<7P0n$p^X3towEh{0OTICKJeC
zQXU17u!&lC4p;_q{{qRWL}y@+PUqFSD^7lYsj<1sKU(e3((*$(z7R9BEv=@yyaGLJ
zSbFdGsxYt=W&oKf5}S<BAcR&`x<g4rcSB$HBuMF2h<Kf|S}esvIxZNlS-Em$bB$!|
ztZ4COedXy;4*U6)H~ne3F;9zj#a}S+=yrErtxx0ukbe&PagUvRg<F^I6!v!v1qI<e
zv%^H|k;TmS8mieiTd-Rlid_AfCAk=o|J9v*`KGeB{Wi_J!9Y&0Qqi#w1q!ipy}9LX
zH_Vz7oTI#4g*|)D6WRsl#FP&jiW%knyATi|Qm|tK;(1mJy+59}cbZO>rt<IS(hF+4
zg$m%y?H`=S_^2{Idp)+_BB(P^!e@SE?LjSGzbW;4KtK$|&Y?3$=jeZsd##vQB~Xm;
zs9+Z*f{UR-N`RPKvg$4Rcn&IkJ=qGtvokr9JeH&?oNll7ix1AfSZOIQ;Pt7~Nq9iF
zIrQ=zmz=tp4hE~v;3VmNAR90z#BztrtA5?MP8Y+uL3n4%zKT|Pab^XdIWD|yQLl~^
zocgDDXXDQNb;2R?HiDbQGMjabf<9$8^$zfIu9>j+A6jymQy%hk7S55UG9jBk<D{Sw
z@-z~jf;uSj%*q;(YEf+Ry#G&-;hr0#<-^_U%RkCoL17Cpm*Ut6wgQXe_;i<Q_xCEo
z#3?KenF1w;9}gg2%?#MLzb}A3G;eatCDJsJ(A-_qj`4b5-IEP<SEpaGU9Vi)&k-Jl
zJmUs*_csT~`uq7szX|pAyu8bG-u(H@HN$5XOW#d=iI;+KuZFSn?SNp-0x2*NT8G#L
z2ekY?Y*>n+TAC7{zJ{z!PEHOBtH$BVCoH1UziF;OMUt+Ok+r;p*S`Jx&8rHarQwZX
zUV*4{xD3FKvDZC+<1^?%tzuUFIW$=GDbge<G&HnoFa^C1GX@FH{wqJmM~QxL#j{ET
z2Hn(K@?vuccOldl6J2G@P0@h9DL|yLre3w}s&nGX8j<F!9PU_8nb4{$<KE47{!oXg
zp@{tcTi;FO*m3=(i~5^3o$O`%wAIu$I$h#CIwLE6c}d8u>+#9m>>}xW%gK!6g1vj4
zs#G}nwQ!1<BN2dkTNNHPE0%>~|LA70&2rrtozze5wAP?_GbZITW%39Le5ge>1f;6`
z(M1bwM_q&OoE`e-WaITHGYN3HjaEh$#)nbd4#->Mu!5PG+67cb1^QJTbei3NfLDXM
zQ=z#R{LSP7!|cwQKW|5Wdy}U0;N&{wKB<suhrgLzN1z=|L<jEF|K0_8xWU;0@Yirg
z<Kpm$*aSrW?CL`917C6x=xGb=uU2tOM_y~&(Te7Ab^XI`F6*D26_i%-e+R~dOwU)o
ziKM*YudBjAvL6Ya1G-xAjZ<)CQ5eG8o}H$~hs=~vt<?X!?|b;E$o-uc%Gf;rU+?qg
z|Cl`UfBtdgy8fT*@ZVmC8^!Ho-?=UIRRqDAR`HSJ5|$3%_~C#f>ghKA7c_5|iLCN3
zZ(THVyrz}Bh!_5T{=+5{zslH)Xmrj1Oezlb_4B;<b?Fi>jEr3I<$)|u`5Gc!JP+#T
zrB{q+8Sg!VcA-#~XQa)+d>I?GIqR-8S)t3h7ZCHe%NhT{P8b&0LfML;(+&3jY<t{O
z9P8x|BD!qbgD0*}UY{85aT<5#)!Sev{M0*Om=`jZ@xjZZasq0O)$<;vPV{ZO@Z{r@
z0}s3e=C0(Lp1JCyH^)W0Z!lqs6WSM3zI@SXPG_|f!!D1l+qP_3$3a(dZ;uaLLW|JI
z@p#Va(=w5lq0iTl-ei(m@Fm8CZIUnb@Q*Xw$IkxlQ<+ak<GMnN8-sn5&@Dam<@BzM
znl^syFy92ONA1BuzS{1c3US3YL7#NTGwz1j6<1}<#b6M)`R>L`&<vBj9I>@))%jT;
z%pPxcQrp#aSqdg|1TSn08}NR(p|U$EGqXC=S4%6Q*#vg6*TVfx%%4fub_0XIq0ZaG
z*058vUX;)K_W)rHNoXI^)Y6K67V3Mi#p03ahXasL$K-nt+%kii&dVn^rP`M(J|ksw
zbIslx$2TAATkL-`>*!&;lL%9EShYXP6Og@OQJ8dfFTh1s-od;2NR@^LU}3B7R?Ib`
z`T~EEJkShE;aa!_!t14ar;pZE3=b90QAmZs_|I6+e}aAf-~Z$5qmE;C&kT!GIKm(J
zpl9V&q0haQf1<*7UsB*o6N!l2V|3Dxv8`rFTmtL%<DR0|Q=vU)s_%2q8k^2<+W-3}
z_pTl3RPx^avO=I$c<G}(!LC_zD^6D(98&%I?#Ig<y9gs!u8au`j~eCLAGxnBExwDc
z6m^q39PTqU@;w4Z@pWh2&e5ZX@qhM_|8^hw|L?&=JDfC&k_`7hRN!;_br1Q-M9CW-
ze=>n+dt``Qu;Ly0aN8Oc9uK%vrWB|{1br!V)MPs+lQxc~<zUn&;un`B{O!Ji7HWv^
z#yCATY|@As5Jxn+h*7pKs;+Vz{q|3%2%15jfLhb&g5|%zVAo?IbI8|$K}!R`mjHVS
z*&g&HNc|+50Rmr=G(f~8tywejrWn%cDtvHZ5=F%<L0U#tQzz!%8X`i76%IFr<E^yO
z&hBpMq-;F1;JI(`bG}!Vp12K)Oo@f$%KC%<jvK;jwS$Uak)an)Orfcd)HiNs31IKq
zf4_+lQaj;&JP?tRS=(d%F!-LSjwXsCO&@H!W+etw4<#Wrn4pa-L&0<>F5=CXYgMe!
zCCiXEQTOJ}#NOLl4QrF5gPk@`m%n|1qsoerU#?X>(j}c2?$`a)8~ei3g=;xfdp7KX
z4f)55k}wZTwD^;2+**xae}OV_jd^QQ@7*2$V_<NqUiW(SZ`Yeyl7Z-~=3SQM@jQrw
z;2KOWZ*HVa?2Wj65GRD3Z-I%ku;-5DR3UF$cA!czq*#Wp94DIaK+`H{+h0!~&->w~
z-WQgn#&g*P=rf;}yq(uNx?@MZ*hIWQS@)#t{r4>Sxy)^8(iU7<;czYM$%3_<H+g(O
zTtv&)(!)!uavrgkEWdhNpyS}6cX(uBz57+=`Oo*Sd;XInp1CCA;-3DdE%)fyDd70C
z>z6d&9eUaB?;6)~D)UXrA>Or@^0v8TZoR-^i<caZ46@MJ*=g!j64zU*CRv^l?pt>w
z_~-uaBx#P*PWzXhmp&ISY^i7pT+WPglu?>5(f&(mjmZ07cH539U7F~yr8@G`=UB^^
z{n<`?T|6!OopxxanewT=mfdl%bcyk_rMLa9s|x<9_0itUl>}SCo+;ybIZ1mg0xWw<
z+oLNI5Bgpa2F`ZwjcCyy!}+$a{!C>Yzlk+c;eF-)9id7k=w4TI`$jb+>+wHqt5C{o
z%RQG`JICpvui6V&)oR0CJNhQgxbFULT~^`l`#1Q8_V#xcV;{X&(sBBII~UjMAC4Li
zDyQQwSKI9J$zCLN^5!+QKP%mjIZm0<+w@@H$(vWz3Zjm-NH!WBa9lJ+BC~M{Pi@zD
zda>xJAai_|r28+ktUbH$*WIp4kXs-ootrL-|JIsfC``0NzlS8qSyl?jxm$&cr8T!)
zdezvK>eOwWU6TuwC^;bu3(zs+k=HlSS#cOSw&U7Bx@P{o(<W+|xjSY?Lu+LH@wsTh
zNx741tb~Z38iRemfift#m+0&1@hmazScL#ib}wxqw?!BAX%(!S4vE5^mc<2!@UV4n
z{j>_T6Wci5-qVELZfC#3X=`v(V;~%TcyQk1wctaJh$vTawS_Jl`ds>>a=8VRef5R4
zuZ@E~W#^=Q8H2iU2?^Tf(R;qlju8YJ4A@w`VDp03U>gQQnuQwz1HBe21@z1<yN~Up
zBQMKxY|XvxbF`*5t036uUTEmko>_Jr`S9bLzrXfK&+T8CSR49h@(Ix0RR#S6=KNf?
zu6)Rx5gJz~ZC$I{8Y1+ex}d*ta{AKCoJUFSoO*rfe7BYg*^@82Lhn3skZU{EIGw?$
zUSVrDcC*4symYWDtT+CJ$S&B;dMi8deP-$3v0L{29+m5+lah)RPElO!FBfJmDFH#Y
zoJpa-(*H3Juz8#jGZVxv9Nb8bj{uzxS=2~S?0*Oa{7d=cbdz=v$p%@0@v}IY5fLxI
zAPwok#o6j@3Vr`GLSDEs{?4Se6+72d|NHL5&wKO^P5<vmZ?nQ_;ST5i?xOZa<Fh&T
zxZ1;U=b)DtBqA4&8xc6GmjA~ax%Kai<^N^%&wpD%{c%6#xU^2;QOB6ycOsP~&sF&E
z+<sY2Xu{NaRYH4wCokp~4t3f$&-eJe{RtQ9CQY5Eb3?hR!Qh<GfQz&6!;8m#AI@K`
z_F#fS+Kwu{yYn*HY5}Y4hMKNRtx+x!zP>l|v|Mp%BXi^R+x0eeuf7)Dajd&}@#4kZ
z_ufC=qwx1DT<zFLffawh)K_o%!8Paa*P3~}PG0zlk*|4|W@P{UDFub8&nFuF{iziz
z&L0{l_V=geT-%ZK5B;K%umAe%a!*X!mQZRYeqSTXCvN?lJCd{D(jCuu6DXz8;}m{G
zoTn4ope2kS@CchAw_$@Ke-7}fLr8XEctECe05B!}832JpP(?62X371Yjeqf%TG3n-
zC^Z+7jtLCpQcU{ipMUUu@jzHQbGYZs`N!>+-QmAlfM?GXZm(q3A$YYD0;O>bWB_{u
zjd;2ES~tpsD^O>RWxzdm87j&`{23`wzJC46VB`+8Z~67BEUv!n@}*19dJi2w%+JNe
zb=YUO3t%hVq(c)JcOe&Sf{f+O9HtEtAUE4L&1NiHzI+UHF!Zh=2w5Q}Hp?PaFRrnS
zAKSqE`pa<FJ_hPZuYw2eDd=DZ1H$#Epruz>Zk1?rQBhEk7{}{m$>8JTs}kbDKDJv`
zbrR#g=GtGFP{`w3c4b%CE#rd+4|*5QV%SRu-TDF$+IXd1wsTkHtuFvoEf4!F6g7B^
zZ1gD%wb*hAQN<i1F@G2wW?34zG1S!6SA651J6B_+-J7>>7uc0G+e>UHz%~C2uN8w~
zY;1hL+ya-&UnzpCaP~HD;e04L*B1aztbDoH=0nEvZ@QqdR@!Z~`!*e}8jG(-SExPm
z;h8;KZKa*Cu<$&)?_lk{-(0(R@uk-9KK$SRWMTY2UWc!B+8OtcG*u-FLijWB?xBhG
z0ZmZYjAfiVfBw~CuTxtAxF7PNA*50~y=JA6GrC=57<Z8{zCrQJQix>c6eg~EyP>VM
zRVX+LYWS=4U1j&L-7-0LEba|ELlNPAceP{3Xd0ZdAYa#V+%U#n_2|PsyIjVM8S~j$
zPa`o3i~W!f2E5ZtBJM;%O>H*gF8l!W?~opDJ9u#U>C+ZR^87I`#jBAbU>at;P!8B+
zwe}nLk|iQ`;&_tkm;#f}EOVUw9}m^njDS9kP5(YfY!i?F$B$g!>m>|lvF)?f)YLpK
zFBDrLA~FM(3s03O`D4d~NeK~~SlY_r#(Z1D0Vn84eqgTA?)eYp1B;4(bFg|TPZ{D~
z(YxW{<KgMdhuiET;4zoyZ+@sZWLQ>;25xbjxhrfA{0a)t!p-63ZJoa{A3B7Oa8qx#
z{XG6{u*_xDws5>p!gXnag3&Np1b@FwN@@|JqPDxa$*x$rvJ)W=cL9cB87_Sp+W#xC
zh+S^?c&@=K)k{Bn$Lo9+=bpa#RF5$9IG%_@T`nj%DK|G4{+2a(EId(N%ZIU@*6|jG
zi_-79!o7a%nPqoz22uLkofYXJLQ;r2H~<UrrgS;GZ+o*5QKEjqN;3NOI!VceP%tW>
z7JyJ_U%Iv7v**u0p$y-Sz|RkX=dIp;yMH5d#zz;awfEdsYWdXZ<z4%n+0o{}t8+qg
zN3ACoZ>i>)Ws^@#+Fpmz9y6c;iv4*SFlZ-aEc&iNMu`QmK(<vYs;hHhVnNffi=wuh
z<nFF0z*ckk$PqomqmXXV#t?fj^O@gbh+fwrv<KJp?dPAc;;dZ1evYi{&)UgqnwsYz
zB&jlpf(-E%;(yA;Ho~!z4`<u~ah_P=%U7;EgEaGF2a<}j-yWAx)OkBb^|*lCn%DJn
z4ZQ6zcj0}OV`6#b#7UD(Agy`0DUfNn;LNfE@ak>G^T`;#SWt}fCrKBUFaE!Z`|@b6
z+OXX%5=D^=p$w4>Ntwrxkjj*ZglLe=GLNB5p^|3dm5@@D%;Gf_MJiE-Oc6hcqD<vn
zk8{3r*0<LA<6G-nXPuV*h+p>J&wieJxUT!Y?lt^MVGy18FhoO9T|D$iO4emPxw~bT
z7TW}{Tzl*T^P)?)Z?o9i`p<C}U(PTcRmi)Vv3683Zzwx*E<U$C*zHj#mG|W<)(Or)
z`SFTvmYL?c?A+W@c!R<!D!kXW*+TeN_I_{*09Po8o$&T|b(Mzh7<010xsHxQ;=6pJ
zpUl!#fv~!G<3>zcnjl!J<*lu)6VubXq2P?(j<e91I*QhI)WU5=?Naa1z6V~S4G@Fu
zLq9Wg?xoRx8II0_U74mrs;Yc2T%c4Wzz>O?-X@Bx6c;PiHZ)`)7i3~)KAV`h2A!_%
z3o{-;P$yUN8RJ3gXf%PA8)<QIaobS^#uKkwjuAFED@+T2{&>v)a)E;H2AJLJs=m^s
zNO+eIr}gXB<fVPv(&jKAo>y;)9d&_Mp5W9(`L}O)ctu2Y7)A#4qK&@>2TKMyBC6fi
z6illml}cegkNeQ8^(>I3+xcfIX~mB0J7&ru=tP)7(cNhEi*K8DhoJVU9+tC@MvEgA
zyN;hL)t4<>W^7}VfFde%?bXy+9vm`AFv#gFwn{L_{#<->>CIUGPBt#0vu<kbq$$9%
z6tG2)UAc5g$g$9>56HOJDOIpSYoA&@oIn@+ftyt#{rVxK%_FVN=^RFhSXpb}MzwO=
zR$^}_DH*hP+;V_s4Su@(p}8a$Jge~s=2xUcLL%HemlHMZUF#mw5(IWi;{xQn+9(=L
z{(?}R6W5SIqm4upJ`{=eiIr9l&5MKQpNakJZQ!k}VQ~L<ewNbBRI^9ZA{PBpTeosT
zT2zqSCW@6@W8Ziu3?8z!mSW+R(?0|?KKE~*<jHN}SWFw=ZO)Z$fMZ*QU)ceMfu$7^
zFAF&Kn?hW>%KZ<VXF4+67}$E4rjU4FS}*g1+pCX_`J3On-7gz&k1UPPNOdvD?POzT
zFQFH++?2SMf$rtYmsD@E`t>m(re$YTHc)BUEnMx}yKnk0{tZs76U~G$8$ESX?o{~1
z#DqjsM0og{%)Q)H73LzS@!r~m)+YM2e_qAL#Yt}EV9**{?|90(4tsf$fB&969$t5w
zpCmi%?==W9P*%vR9r^w}5sWPzg>?~0+%J(ZsDxTjxbi;8EnN)e->0|bOOThj_pD1#
z`FhQ|nJ1n-CH*T;HW}~nzBQ`BeOmiZy?KIsdWZw9)b_xrg2AlwCSl<po8dkaRYL!&
z;r797;o*dQl?+XC%plmaffAIIZ0c9Jw{1Dh_tYV4Q`Fy4lp5MB&D&3PJQkvQQLec$
z2E(TvTGUlOSZis~VPFyy)qgEo??&YdgkA6VvzIpGvS%e{#lLhEug$V~r03(KK=l&Y
zD>-TLkGBTEz9gXb{3zO>nV6U+bQ~|6G|mo59iC+l4}<&$D>VVz?}yJSA3kqzzq6w;
z{~q4R{Md>sN1o?<cRv#M=F1Fv2IuF`kx;#NBPn*Hs!#@;mwm@Fk$1a2gW+wZv*<SO
zL)Sz#BAhjaR;($8QBVk8E@pH`2eBB@%k<4Q^hZ@3MJc*=JuWpgG+a&fLNt&(+&yM9
z=wU=wRaF@@A@^EEF|Aosq;mA)seA4R5(V6jNjBW9N?y3)>3lop02@PBWiTH=pmWuB
zRj};r>(&i6%N(&cN<jVVb@|g=_6`npx|>Dwi}(@6#gm)B1vT~cnQ#+l0sQ;}fgYPb
zC61EMp>PL|nT~?(3WI~SLqm>|{|}MyhzK$V85=&gLc8MJlXe!-HkbQNWScsF$sU}G
zS8or_Y<Icx>!YrY&ftE;>>D%QjkqKIq%={uc`Tt`o(%jz8(ThxlkK~$l>fG%x7Tg~
z3PyTx(8p8Ge&j^GF+U|JE6aiAZ6;RMhffzkFe(Mj$b^N4vj0#((%OGvdT};&(ek)I
zj4i&~nqNCr_xQmB7RHF`(QBe5X4f*_mRwFXO^Dy*VN>F{9O+z?Ad~%?LhRr^#0YF|
zdw%Ku8Y+gUFC@5xg@mdPr0=P}<cT3)>jZ{}hJ@jF;qG_u+sA@rQ`S+Ax2S&f!srj#
z=~$LEYZ~Bu&J*U&8daXLVDjxSPh%-Mfl{%*$O%2=z}Lp6-Sv0)lWm^o;3T)X@mGvX
z=DTLRZ&855aT`b}l)Vp;Y~^KCbbLH#pz)TE5Xq7H6|zNKTnnYN7Kug{DH9X!D3Ru+
zhzYhX^I;7a)Wqv8^<ISnd^QF;3MN(hWH#6OcwJ)Wu~cuI3JGVN>`em4&Z54Xp(ER$
ze|g8(k(6=ye=dfs2QSNcgJFC4GI(#XJ1sr+J^U>xs!`+_(A!3mo2ZO4@fFI9%a<R8
zvBvOAQE2FkId_+GLNr8ETYH%tFRNjyMm*+s_$keeeoRUoxjKQR>LU&V;;i|o>L#Ct
zeBojoNJNUdoRkElY`k^mTVJF6E*uv<Pcx@KWN{8X_ZTdF^u9FytwtxJ>vHzMiOUVn
zpPn*n)-gyK6hTEy%BGx$gmq}!ZABmE%-o!I*1MzFCo^DRFWtNu3q2xX5fPnn_mmx2
zrXWc07yJL*j3nsrDN8#$LHO4wc(H(Pr5oXbz354(BgY-C^#Z^0+x~#cO3rIL57b18
zGDc_xjqR^U9(!$)gP=~lq5g&vyx;|NGtgx#DSCN&J_gr|;c#@IL~1d1{P_2n<IO$%
z(*f$0f9FoaVWlC1+nDfHKH*A6=20<nN;34;=;-R&V_Eh0@2`W0EkAL2N8nG{6ko)n
z2)=8f-o8zG6%&&tN@q-v&HQ3H^3?H?UVl+kE>6{Z7yg$fIn!jdO#jrk(kj=|6b$B<
zjHdaI(EINkNYtR{))T3lF*zEeJZ6Heh*kx93h~f6{H<<jStF6Wvbwt357n}hXzyW#
z4LF3N<yWmL+mw`eK8G%<Bglz>-mJka4D7z!!Jp2QWhi2Ap_IK2N3In^CHGyIsUG!<
zzGoAT(_2tlf#;{PXZ{`BYAcQVi&<JM-B_hICwU^z2h9Mn=-AkQ(Tw0R(W|An8>IxE
z*3U!K0fKD@AofUV+v&S%pJC5L6sTMEYm#qmnr+KFayY09HPCT11U&Q<l*UKpD}GpS
z-SvOgpvfd=ny;#oR%uF8*xd7X$+o=ih`6S<luT0(&1v4rd-RS}1aNBBDS0EO<ZAav
z!8Lhl=y#xS{4LBf&M6mK#Y2-I1E%lbRTQqEq^{8E%gAG?9l_O|&qH@2Y>7g0-8pu{
zUZM<P_n{3D<H#4OFo+Wui#e`PzM1j1c*&}~_qcB+F-2=%Lsn{XprI8V*~}T<2^q>a
zT|Wvyej@q!y~94=KR-`I^#L7)gggpcaj!rzeV0e2yvwI`4T%B`$k#<;-})yEoz!?x
z5ASfwBL$Xl(!<hnJ;sdQUDd&CdL_N6-G%=(dHR!0CVQrD>3u9EhQuL8F=WZ-sD7XS
zwO2j?)*g{7rRh=h*~)&@{}^p={HYs77hE>WBb<Z6EFFa|HeoNh<mbJ0_4UHy;yItT
zbqWay^&ivyu-Q}@;UtxY#N{pH7{f_Vv$YmK4m9R_SlsS8lj0$&7g25erA3bG-mGUy
zNiP4Bf&xnOS7%Sk%a+fd1z^h=CcZPbZ_Io*BJpsWn0VtG1aQrR*-z)<ReR!k%%A7i
zf10$g>aOQ<Q)<8=zY@t>KIlU{pTEB{CJ;J$ncHT{#K-#$)U)Q=9@{VLq^G0vqNl8G
zL&(CU-q$lKI70!ujY?r}?9krg*j*}5(!#RJ-W)Rtcp<6^i<>JII?+oP@^|(m#i@RE
zaL_rypl>N`8IOfa^cd4Fabx#YXuymY2gHY5i~EY=R;*YN*YeW;wTFdrPpS7_=QEeQ
zOf@Zj$i{1(cA5$@GcZ_53GUco$}eWN+B7*`vEAkNYpg$?Zv}TnPKZPNLt5qKQH5uI
z?@scuvtKfOeD+$`I9i<;C>B)p4C&ux-?&k_=fl<O*Q4Q#V=5Za>^6z98mo3LOwd!u
zhl3DBqg##}bHw{u-obVsDm^2PmWWjd{E>P+nhE#qt)i=~t?fm`;QMt|4=iiCY0hJ)
zw-F-*4@iXpzZ4M_O)oF!hsI2j_rIGgyrz8e2D7d>3>e%dzp~6{Yo6_M={u>KyN$}A
zRMU$YI(6WZ*xA^^T)Rt4B+ogO<Vx*p=XRS(f0fL?YSk*@lC3fC`0bz`Yy~k}cqSH#
zq%e0dx~!<yc7sLJV_5s_gSlLgY>tH3XzW1H=yU*i81$;qhZ%4@_P=>$IH%}?i}gzr
z@o7E_64EQ?*^v0&q;YAvE@w0RoEM0B1=nkj`4;_)x)~<rM?RDbr(C=khE^r3E?oc-
z=v~@Camwyr!N^#;-M*ptvMu5}V$czp<aWYlsuB>(<+{6Q15~^A-BNhn?-LOb0iVP2
zF|eqs*kc!e(Sc0UkNm!FX#Mp=&)9vn(7CBoSTxI^{W>}fXz1dzJo(l~UQfKIVSLaa
z#PrH@vEsESZES1`S?yssucKYnd6sTma@9MZ({1<9!K&?DoBPE2Wqw*31^=J-`kUhE
z4=hNklU!z&i8sn1?`LLaPCoA-L;9C2`4}@*j4Dc82b}&_qEpoFcDHyuFtEG6jlZJ8
zb(fBg$O^*(T?I?N?{60T4?kxo#!9o!#ja;+`HR|*3)<S+kMT<G0vy2ezQ6=h03*o!
z**G{N&^#k3A<^jKq5AJfe%qkQ-DIpBvI=fAgReo~3>&i1ub&Df`v(S&3+$RS2^Z|(
zPkr~vpBMiZogW0>0CiC8`+XzujaKNQl>-{LY1{PvBma?Lfxy@&vn6v@MxJubh(n|-
z3m6C(0vG}nqL}|k4+4+7W#^(ARAt{lNZr!SKlF-e<G-8<Lp*EOLXGO0u)I7c^o&q*
z&4s<+nx;jM&Z)JNlar1;<s}wVW{kJD)u4rw7fpOs_(d0x77ZYSLbz8)FdPDF&TXpA
zuvRw0LOJyBOE9?qnQBJLKFuedH{WAZbV*n*^Sui!irP8#{{;6s{J(~R|I3Kq{{?y8
zMiN4VllZ!=;%)HOB`Yf{uCp06kY_rZN4v`u5nd6U?YO3I>KhR!Kt6dl%pQ8Gf+ywC
zdTy9GjpfY8_)0R5n#60xFkdv0*G&h<)z)0mzV8*`bWe2eRn3f6I|vJTMhVA(a?;Ld
z6_l1<9WMA{!)gN4`7_&=&<hHi#sU%r`e<o=uhr2QmmseQ+a@|OQ4hmYjk63lls((Z
zv}`J%;!2-Y*Rvuyrmxch_ySRN*xI#a5}^WQ4C=_xNGaLR<9LVcoSf%K_mgFdqnrv)
zNnpuOHRF}y&G8N0Fuv>@9Q2e@@SL2DU*B>-v%2I!Cu~>+AGPiIg6X*Xu}KWfN{0X!
z3HE`Z&>?yE)h9sX;Bt8T=ofVN>a+9~k%79;{y6U3`HU6%58A03!ED%c5F8x<^y?XQ
zWYf3qvUdA{@eK4X9nJT+mVIxBd^l}7;L)s!-b$!SM8aJn_;Q<Wc-Byjv04;G28g!*
z(ceuj^}}urC<4V#mBFgd+&(8@4l8exn9+HI%z|PY{5akz+9O%LVE~qKoq&Kw5D%<x
zL~5#S@-$Q(R#J}0OHm0JjaGdw4UL}J`OPg6qmw-9cc67L0gXm9p>S{<Ptdi&+#*ds
zKP7aH<pZXi`qpVNevv@T`X_p3S@Eb%(0Jkv7mN<YE`Ys%(bQA}sXiI-{J^z6{@lGQ
z0=hu2KKk?>Ku60cauCtX92Z~47(oXxg9=+hU%HC(+ZD#wUh+ntSa_?W4xoBAPEJu@
zrGg)mlhqLJT2ApOy7Grk2ohF=uqetk<&#{LnFJ?d5H>EZ^N1_#kyUKjvZX3?p&>My
zhKP_3!z=ErF04lpDLwTb4F9Og5UT*>7VdUB2n&y(^DoX}9P^sAh8)XlkcQGx1W-fh
zExm*w>xd|lE0yd)OX*|CT1{aLV^H&Z+NcQ{RU>pW&gy1VgL06{%V?+NLp6qFgUUKg
zxjFm%`A$$P5y0PqpefUV7lfT~JHZzM2KFqFatW)pb9Yijpbu}!qjF{oW;VrPB3~Nt
zosOrclDa#e`l$U~_-Qmb3pj?3Bqnvk8~-2zXR}qcuZ=cnf~~AOjuHrt)JM|w$P#c$
z%Q5iUyxrs3gE8eb`-t&_7E~JW0;bigbsZhI5DJFOG}s~~^>p?VcwCR2C}*d_pwj_A
zBP1cQ5`+#3T1c7z_Ohev>ZUG#*Xxo}Qng6IF2Uh}3l>yU<HzSn<P2R*c=<}FKy@n>
zU4VBpj~3^)K{k=0(5X!uAvjS)l^96l;^MLgYD&;Gl50G$lnp`y^cHF9XOeo<n~^hz
zid;8fF6#x<Q!m}YhX?C*6F0`gQN}$g37%JgnIW))Mmu^3CBDaDH@*CIispxnCL}J-
z3~omg+0#E68Q+>ecY$%K6F38<h7n_yacS9-<|McT4`KCpGK3D$nd0F9%q$H$dKpC*
zCga+rRA%c-`>=J=TSG%b8yJ1Ecb;{LaGn>WDkPeaN<}iV@<!7R%>%d0{qYGh$<a+1
zS>U?89<{-7G%OplZbs|)!YlQl8Dk!FeYVX2wKxYxOh`k+h7v4?peI+6!#6)9djf46
z=>r#ECAOhWp>7zu!Y)G{NLuK^2v2axdfdSBpzlVo6+A4A1mIC9`Zhc)=G;^M(P?$!
z9S-PHJ}!L-z^e})=&Ap{vA%JynxLJ(u7tvKokN&WmPo{UAG+ouW9awC1MCqJ6s+nG
zK!TwSjHa-GOhM8%Hoo|JrqJqP8baWT<^?MU+P3Z6O$vgoRBW)HIe_yY{4xzp!@98K
z@D8W<Tj;_7a~<_kS8m+b{PP%6uw|51Mk{n%s{hg(kQJ3*9Y~IcC0a*YQ7A)&wK~?q
zrSb<<2r?1=2*I1EzccItDvE>vBQK*4J#$`PIX5bqn^b*p82TDjDCB)0ZDeGmN1TV1
z)#&?Q6)CDsjmOa3+kfo92iWj($Y6Jr`+F639xim^gzG)&U4rNW?XmzC#@!zbm4E9}
z3Ygl0w$7vNGq}8T-Q%M*52Qa=1S<YTa!+zk9bo(qhunXUA3-F3YaSi3%1^Dfg3Eh7
zO-v_ICO3Fwd{V!n1un@B;#CLl_$qt=Fisb?D=Egm;ML%#lh>q=P-ZL^USAqH%j`v9
zg#Ni1L+GQ8GH67Z^Z**N>rsU_jf)&yN)vz#P}>CfEx_IQQuCXjEb^?YL8-mLq{*_P
z!{+9U@EScmWq=PzmY?473I!E*i2Est&2$jkU`8Ev9rIUAk3fIdiiOXMe*_?0l=4Xr
zCbBl>8x-3?W8RnROPT!)s<EzJ8d6tp3*bdnQgY?TB_xxeLt}^5js8W53v+^&IV!`G
z)=u+4kZCZC68@U|72ScbQ`tw#6wv-1iLuAHQLH#BKzc#Dte^&mhU|eDt!_BoALCVX
z+dQ`pugm?<oHw3EQ|&L30<!QB{aBgykI5{GqaOMMBFNkYcR`2+j5&!rUgH1rgvZ-T
zBnwmDKMSa&tcK`QH3k;edhRhYY5-)uidv$#QdCbanIs+{k(8i_2m^%guy<F(rx&-7
zvsV*$_uf5or&=6A4F;_$R6^7aquA`gm*DN7qF@zXqQVR~VkEk1qQ6Kng&&B&h+d8t
zEiEgks2<rn60*v_*8{fI7*bl|*%Ospe0Vksn@XRIa%5xBn!yue4WTpA=y|v(#kSnf
z#M%d~aZv-$<aBmnn8O<kI-BGQI$cAj^bhd&{t!5v6CNp$I7&xy-5=20bAB6BI2$+j
zNiRMySpgL`UCkiR?Yz}<&O5pnKDgi1DHlXX9VLlf(NQ_xbMTU}G}OWsH>wN`107+<
zaXIdB7=0&P?R@G1Pitnc`^|M_BWGs&ecWZ|Py<|>KHTe*;vTdNNp{;T0w=Px{tnha
zp-G30p$`I#928S}db&0!h1W9>-VmkO5W<|3Xu?~R9H#-DGB4WnMdNiMH`Rv_MB(@8
zM^Klu2z1_B*PF8=$su*KN{XSiFE)ijJE>au=Vm;KS=9t_<)8(G(@{3_Xb{kRXiiVz
z@rOL6$l(Iw3jX~ptYt5{s12t#_u0vXQWVRnJvv%u@>%ajE?&O8jPirH1m>;=#?f-x
zoEFI3oxSrvPMBUxRtCzvR1$!V<TTCYiqsM@Se!cJbBICS>P%7g+6++!HxElB6eM(@
zG@;S^&Lgn1q;Fs#0&a$mB4t0{<`6OI96EHp?)Z@UJ!tub6a7lAc9armBlMw5GhK6-
zqrxT;#enn_NvR?uBReiEBG+6_-QF46GxCzNyRaoPl0gk6hlX`i*<D@Mlau(d%Ws;R
z$qCQzvNAHpL8)HRjAUUN_(<)BT2+v9Q&p8_lno8612!H-VeEG-uo%J)lEVQYoc87!
zM80C6LQO|7Y^;{YuQ5wGr}r<?T@JywZ_@Y+F|ZR}-Cw^tGB7X{mm9f>9Jf?&T;NIM
zm2Vs>MS^EfKY=*IIU)EH@}FCsvGMWCjVEiuWCv9g!OBDsqlJM)j&JWWFQcbVhZWxW
z?obZS8r-Bp5t*HE_{fQ#wBL}Pu{vUuX_^l3oRUzqx=F|!sVwx}GvOjkEG+95!N~Q2
z{H%B5ZRevPVBuWv7GL&D86vJ({rR<WYV^Gwh3`0y53$b6$upLDb-7_NgnxvPsuP_l
zB^iOetvBwtAZpnS8VvN5^8=d-USLSv*Kib%Vi*Sxib>n<T;EJ;OlSN6kSYX@Dfc77
z=m&?-*J*8myThRJ%fH>HxlEJWGF~O-pK`W749A*J2n)`NdZf-<^G-Sm7SzA*b&}y3
zV=Y{(+#C-=DW+ooxAb-z9{+)KC^(7-(z4TO3}J`?Zp}~r{=LG^zhL`M#xoT*YbtEq
zybcfDKb`ih{>VIViu41M`Y)Frir97GWlJIaCYUfG4cAXka}IPyCnVIza!MMTo1cd~
z64A^h!6*`(?O>VZ9N$ndRs|*TpsQjN=ZS~n^3`Jw?|m~Tk!*1JPh<5RU2gHl#)Ctw
z2G5Giq|}04A6OMOrq>?{?BGk1%vbFU8(-=B?Va4dn04B_cGWc`u(%Dx?D%;;n2VEh
ziP#YQs6YyZ^!-U`(clTFH}-erAZjsGoVbZ7Th6tMhvYZFdrd%agKuP{CIImZftDIQ
zjrlNQ^`2uL+o2kh`F4W6`975QXJ!zID714j&}A8=`uL}s?r?L@$)i(LRqY)AR%&XV
zxa0e@FLW-Q+7$(4+gp!n-5q@CRpTfZ>p){<U?6U#*z?OuFmiAzV9vqoF=%OedKSE!
z_lUxDmzc!g-#>4wKh=_|u3lPkJT<TO>zIs?d>gz|E$yIp#Q=Gn>=O<sYr4e89BzE7
zs}*WTM&*CZCGc4K`uc2(i)f~E&if2>8g~ERhK3a*BO?G|=uwyZ-IQf0N#Mq2mx3W!
z!pm|Jdta7c>xB(@kmm~@e~tGB|5iz_p`r>4#r2j@l~q#PwQt{r?h60z>ZD;^OdZC3
z(@`+ub!fswnt2xRYIQ?Hmg%m_B35>L4X$6{%SAf#9tucx6&i`(Xz=^H;J<#;q{fiL
z6lTX;)$8N#qxD@$g6+ux^M$S~0pPIfQc<wz>8A?Ar3xEx@~64)Pu=Z-n>$C|=Wswi
z0c9^90MwphW=VNl`+A(YuU#dwlpVG{D66}5(-(9%fx91>3hAl~vK|E1eaKpmjp4!u
z)el2HT_)z6wY0SQMJ%5Gos%TL-n$!Kb@JCd=3G^c2Ny?(wXpu&e#~Y62Oqd-BwY=e
z!F#p}3R0NwPDc@F1YMJcZj!{7JD>hXTKxBjG=WwR^&yA8tjzn}zGqV<VxAqk+9bI1
zTzWY=xFulX#J+E<oLPo|5>!iOaS)<Gn46fI&aDy>+Cf2TpNiZP!4(K%vZ}LY(9DF8
zVT#H*@N}`X&d#J<&=W6Sya+?O1mwRJ1IG<yKd2H7A}#^AyNyu0;tFKsV`03l9>|4!
zbD~lAZg%z-kFGZW$;j&T&(xw{UCDQx|1Ty0+2cD3MFV*SJ8nSeZAM8$V<U(^9VF>t
zv5a5wTKmxOT93m(M}>rh_@V1<!>1@!ztJukfz|d1?)3NUVQ+B3)<?8l2NxX%7D8Dr
z{dyJ==ML&ZBzr+%=f>fd)CLk)4YM-Rqs8vx)vM<**xJ%Ld-bYS90HhR)O6y}nVerE
zhES<ur0ftuZ|r_lw0Hl0m}U*%6F&@zDY>t_bYde>PJz%lIut~QQz0)_9due98BcI(
z*%QR{{4p^x(%*ifN*vr6YA*8p%KSAoDd@AtqiA4R_Vv18<cdCSPhhwSE)gCc?mj(w
z5V$KAyd`G_vF};nY*hBwJ<4eKRD;-=agG_O@gTnW^5t-Z7U@U^F%a@dP%xQyYD;B1
zW<z6Z3vn2xIlaTfQE)$FJr#Vw5may<4u1QE9Y-Oai9&sR>|!Xg7=T{q3^Kz}<AFyb
z39-j4v5I9rE>XYwR^L$}pb&`5<!Sax@wlQ8cAA<-Utb@Lz6gdlY=`{r9?v9GY_3d!
zb3-kuiCB0fDio}wnhoL>a=bxdL_$bWqLUekE28MISl!mgk7ZDeHyLm|MC`2D{28%#
z%Bji8qJPu0*h1X_&0oLE(MiyvOFsZ_N59yE&}-qzJqQ7V_*WyeXx2%???4#I6!MX0
zr}x70MNLgjIkg93^5nWD7!nJHW<*^?*6yfBi5f7=F`I$?nSk!F)sZZ);-n0sW_!TD
zctv$WY*Hg_x!jnWZ1?j+sP8pS3fPS9ZT(lg;B5d3k?rT>H$UF{(#rwv*?!=jC<@zf
z0IF>N{@}j$Yd{+NssZb4b;{cDq!hyTMz4Fc<Wn=Nb8sXfmA4k_NJS^<Xp94~5;MH(
zIA;<;EY3z-VsS3x9BE;y@*AiHiHL~UAqOPrDCFI^b$0JAdFq0@AXS@Wcf+S{cYGrl
zdHy`Hpui@op_q3L9A7_vg1WDq1M_~EZApq{@EO7;lav~APc@xznWP9YA0sD8CQGse
z)W^I*03u~u$&WSx#0zI6bbT?ovIb-o>X<H|Ku-vS9jp|Oj2(pzk#IuXqryy~s4u3#
zG`H<gvAdA8O?fmr@r4u=xNsEkS)h0gXa#W}Zr)H1Q5{2<&qvg}T^Se|h1JzJ5Hc6$
z1sguC)$t9E=BpG{ZrBXnGiRPMtS@Q7kcSJv9*-iyBL|&*{d)1M9>C0r)G3ZL9~P$u
zrf{ok2DX1O6cW)Qng}MQrlqCj+x!{sojZ4uiYU#xiyRChVq)|ZQR+phyy1`|S#f<=
ziRusgWQaY~*#RtMo!H?rze!;r(Z>_?H4w97#M(NfRwOt<eq;L|(AZe@QVFolLzuzq
zN*=;tjT|-V2^f<ZhNuz&L)Fk@G4ea7W|lxagirxsLP)h03nM*Z#yBYSnT}sP)(Xs;
zUp-(Q3TOzz(A9^Goc$8_|Nc)nG}m{AYEX6v*>~t|N`!yyhx98cN`XMy7GEWDkwH-s
w(EP_A6b%38fBpZgR{rlm)Wp7$Kj-E`S5}3U)CE-kB)vd;b{p#CY1@VW591n96#xJL

diff --git a/reference/plot-9.png b/reference/plot-9.png
deleted file mode 100644
index 7c791df6cec250a0eb6e0a8b4e1438880c2bb465..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 26187
zcmeHw2UL@3w{93zW^7DsC<rLn5g4Q?U8RVKC@8%sU8+b4NL5FPBA}q6QWX`ECM|TL
zBM<>;N{=K+Z=n+if#mKtI{%&f-*wtO=fCTmwSLx`K_U6_eeb*9y`TN;XK!zxIjyyB
zHUDZ12D484gt|Tkv(guX;kN#H75s$!=-DKETV<`Ir4HZWi*dXp7{2{-`Gkol1|t}X
z{^N@5pR&VXc3`yCkDl|58|(6aeBQfEb+RGh;`m36Gdqv!Hbrl9(&Cp@S6@5hvu}N<
z%}HfTsdY*Zr*w`T6xEpVnSPO)>XkkFB5HDnivF+HS3S4*B(uvvU*h_XwJW$iJDBr4
zp@K2n?6=b2T1aQL&3u{(n75?PStRDSJ>8ZdPi17D+Y?>Af^&bj4em|+#QBrsHZDo@
z2eo6r_;R5?Y&iLD4f=lX%ukl+d&ut_COI$N^&o@~{b0wl6{YAq=9k^wE7A88`~Dr5
z_=D%2QTg=4eG(E8Jv}{-Wt|PnYqgaU_rm)dExkVCxYX1G0|T2|TQ$|y;Wj;Gs|RP$
zy>_mV{=e^Q0aG}dSt1f$4KKYdU4K}V+K+DJ-mm}4E&Dw<onk{N_4BBcZL7GwH({$q
ziBEV`RMZfq%s*hMS2%KwWa)3?B@^Yo%X4j_(bY1}pTx}w70syzy-_+6w?!kB4%O7u
zShJVsBlUt8zj)M&7gQ)tlzvI~s8^c#^y9e}z9h0XVX@xc-csHp&4sg{b$T0*^M>c-
z<Q(q7i}vVPE$WxjJDt}><oZtaJpS$CvDwi!Nd=#=tz9L!$cBIcX{o@)*%K*W>X=DB
z{O&y!w><`)I8?Ei6T)_Ob{@@VwJQ5#tb}sy>+Td67b^>Sy7%`e1oewqRR>YvhfcG`
z;TAC|i9rfgceicS5)Sk_ckZ0JhlfY$LQmKcMG|^K|F1m40hc4`%FDA~a+#;&74n;c
zhP@OluMWRN_Y-$@B(<r?bMW=+*Z9c5F&mHS-7yuj!(VJ>2I~C%512eTwa3f|u6WMK
zNWQ3{DqH~9o>Fwhk4mU&SO+_><Ncw&N&)xM`$zij9Y2I^O3$)d>fzIkI0CD2>e8i4
z(Kg}Rj~vSN=&kCCkacWKa$(0<1s$2GSDdiDIyaI}_Q)!ucb-y+ueUw)<dm+i?!faf
ziB4DcMm;5|+>0M>*#}zIJ`%5u3z)9fO(4JL5svd?^vA@?+Dr6}C`4?N-a{TVA}*d!
zCXpG%2TgKzc}~9Pk@rnsxn@h>m{MXei!oLx%$f|1Eu+>v6w769-n7Z~O<Edm*ucmr
zhQVkErVRPHu+N`8d;f`ow^KC9wSMr)=@i^n|1Ym}bt9OO!Amxwfls4GnFQG&H)L?t
z_N&~5(oJ&rL@3kSeVMcZPq_i_HVeMvq3c~+*OEeogAPZiEDpVX^Tw&Qow(SN)nmo#
zx3V7o{IZ0Go2ip0-QZQ(IyX1xF<vxS6&W;}+(i%mc9X9s&a?i~^a632=AMk3phyL?
zmi90u%m@b~6vqo6EBpII2hJNho0F8KY^v@a9(kQ?-H~Ir&aI*EGJOD9cD#c39X!5(
za#d`Lq~+K2Wud^?CKo0w<(<!;KU*xGdU9yDL}B-J%?2BP0eQE(&yI&y^;Jj5n)tE$
z7R&4Amyu5k`0W?pnG2s^XlGyg@(Pb{cPB3QIH)pB4q6n;I5|0q#Glquh>sW<88I#o
z@cZ;sR;+xfUsB7@&o8-GdFGR}M{l^iy_Iml<ol^+1HH<{xlvJg2khuU)4Y8u^F<AI
z%+h5#*@NEUATPFJsk5zoORSvh9o90F^vBILHn8CL;kbg)O?~xj(8#hZ%L&XX9(l7>
z*6G}*xFgaB4jkwqsj@uMEz1-}Mn{v&%T*|TgYgSXgQ|%%RowVjUsy(dW%}orIyUb@
zxH|f`7yHood6j3+q#I|8z+J=rlfZgy#=jPMjAfJT=LHVgo+xFrm|$0wk8|E%4SK7>
z!=65UdU*PysLjBqCuh%}-wfvj%o0rV@bHW1D?aIe{P9QOz*Fa(EMed7YkTIaZ4XIZ
z`ut*Sv?*C@g22{NU2O7Q_!eqY9kn~#Z)O0F^;sh$z6l~b2popA$I=wZfobW}VV7-R
z_jF5Kb$Jv2yleS{JS=`U_kpaLP;x47@WO`<)n_d5DtSgWEzQlg#kh$C!HM5Do^Gcl
zKBf9klqoL#GXF(Swd(?r7V{Gx|7oZxIk#4F%%$bc`I4nez6}Y=(&!U!EPomH8UVYh
zrk5>E*9y?uh{0?ZqF&H+bcu4o;^N|`$!{NWmnDn(qBNNU$0V|BbRIdv<vJV^<5M#-
zy3%aq+o){T{Fp~rSeUe|tZWI5JzXp5z(kK8PEiH#Q}gMGbV?JA+}zgYpc%3KiQo*G
z%JNALoGDU2?%Y*SR7!;>3n6@1OHpcnd+|6Su<yRsc#Cm^DmwseBlGIw?C@Db!&XPO
zSZ1L}y$W+|Y}7rNN!Arg)`}GJ7>vhh9(d?<naRbo{Z~E<ucq}A%B+RnrhMnNRm>Fq
z)P;Ind32z%UCo14%re&E=+x3ogO<Ab*|TSrz}3M+UcY{Qp;|8}%3@XbvrwU$;p0U<
zk7`HTH)v>ROnnrMR1aM*NUxq+51wnx<qPcmV|jOq8xyT@2R*;dl03BRxj39cdUuUm
zpsQT>=+UD~-8`xv%gYB7{GXaFs<fE?ZTD_yzl-GoH++?_d_#EYLRRa^WpFMDuEDIC
z#7H6Kt1?9mb@J3W*M>w@)z&O4BAI2y>}-3w7R$pc6z7T?{=ECN3Zt)!PE|=V&9&EU
zZfT)?9z=(apzJf&KF0sH#K6#SOR{EoO*!j>FsrdoMf@Rpk{AmglU$W(^TjIp^82pT
zASNxGPR_B@`5Me#?r7sPzkKv`1U1`+ba-j<gQ!SP7mgYZA+FE%tGQDKQ;s?>02?&<
zeph$hjbAqIu_aqAj~MmhMI-Rq(R(U&B+Hs@+lzBurB{lIux3=*xhBl*o}Z)?OWj7k
zU3&QNp>Bj<_cb1SGWV*rj#uOc>ZSReot<&R($1~vF8)jtl5R&3twSShi>yCUnRB-e
z34Zoz!Zr@Dv6cj7@MOj%KCU;GgO*3Fv;YdItItkQRo5#FCG8<m;33eNnQF-jl0B_F
z*L-*=>BjRHFLvDt3&Sm31y7pG%%dyRiZ}h;CI~azNj*;-5^mqQ10K<LG^3zLfV!X=
z(6ccSUmvfi)s|_|dq*r2f5dY@=5Vfe?5RB)Ap)7w=Lk>2b@%VvhmQ>C6YXdVW;3Zc
zGVzG?uWMGb{KUK`C}k$zGIrnoxY<D;PDvEnym>R&85UwR81R<eyLWeF(YW8;7uB+#
zcOLml*UZec(Gdh+ctkjNe}8|!qSCGj@Y9ZOsp17+qg*4w2^ZMdA9_+aQO<mBkaBuz
zST9&%ymY1>OwcmjH2(lN+~)*>PiPhme85;`M_xp0vHMIQ5dk*gQ$JCZwt@FTaY)F2
zEc@_aoTtyvC)zU1_~xm>!E5<t_7!`NZqZX=*xs-iTiV+xsOaNDpW;2-9pZu_TL~Ol
zm#<|s>OC)o_;@b<Y}t?Gyh{cyoq7A^+$q~*<=rFTG>o;;xh_Cp9&dZ<JgM0?pg=eW
zFyJ)FITM1AEm^+H>x%^0D8uxjMPk9*x4+dN?!DU;A%F3Y-xqrLhzr-&I?tbTrWP>1
zI|1H3T<$^-A3Uf4r(=VTy_uPSPK-o&O2X9x66Fg$`wkwwi^tE6wvoW<I~Eezj6@4M
z^~ed=1FyR%Pi38RXw%cvTM~|rR%@In%^IV5pL)9S^x>UMOxcg1SNeet@JEJR-g8F`
z?BqpLHfynsSQRc$c^nuxl9~eeNV<nsK#d3n<agG}O8C2Lr>D77%a5oe4>&t@kpn%b
zgaRf)HSNk=6Flm0;<v*dqL4*8&a1qsrKQD#>{?(~U==vm0^uS5gG%Z-r_h&MC|5@_
z>;=W*Pfxtf`>-=~drnNtpyh#wofk8@+pK~EL+@o3S&>!GxLG+?!;K@i1oxH@xcrWr
z*Om+bYme^J2Z4e84~@os(uLUzqz?K@KJ#Ba2R_}-tyd7cIzKLm?Cs2%w>pl+0gUM~
z<(sQy2cOyL*8NOvn|Jju<oMaHjgvuY@VZLbHuH^p<1Qbgm+@Hzc*F#y#9cW_=xV?E
zT9M4)I$d^k&gtUAjM3RIdJTlZ`uJGVNz=@tHmOSltI&CWD#Rz(uSS-ByD5S5UHJB5
z&B=P+S#k%x&HHPihi-j{MS)w_`rL+j@XQEXjE$}nkOS{Fnnk48CI(OnT<3zgVFCH~
zb}xr0(%WrvY3I`nX*tWDiA-|>dSDr`rKbQp2^J<M+u{{*l-dJkq)I-kICLl^2reB_
zBq#c51GpcR*=M{OaKO}EEF65uPfO-0{_X@l&!5ONhZs2r-ESr1#c8|y<(!zK(*O*z
zt6AiR({7)5zLmQ=bNpK4VXg@kf?e&S!tvtKr<*Gbjf_Z=!Hn9m(OZx7xBhlP&1<w(
zoOyMq@mWcramxo@)$InaPF0svRK}K*jzFC0UFeOB#N%7ij7Y>~GEtWK>=LqA_B@+q
zmDciTbo8-0Ack53;3RtcpFVfKUX{JHht#fu{~DAUdTVLKh<L|6XeL(tb)E;D($gG&
zE+}-5kQ*v=bzcHt?>!`!aAqq9fyrn>6p^R++IUS+lr`^e#Y#KW-+d@%q-kMc0jt2{
zwY)et6-!;(qr#esB*76E5qX}MCj(Hcpw<|Inqs=mBE&#ala{bxu0un;ikCQmo~YeA
z*3GZaDlT0Lw6p79&(+4G3ws9`PvhwOR<ai$ohEp3A#=P0;TFXe9T4lYT{?0e%ek7y
z`3*d2D#1-GfPd<IGuJ<@u%{_Sb$NI!|A~~1=BcML`vvYLcvNjuTp}H}fjfp61V@46
zv=KT30EES&qaL<J{0_tunOkeOMa_5u5?zx+Lq>+22Fkv22hppLBMun%ObmmU=9$<K
zS_8=x4mwJ@C^&7Q<`3o+S!olg+?rk<smfYdKYG(`0szi!=ggu#Zm<jB?;$YQOm@F7
z5zKOENSFc}muKvqWwgR0JXQ@3in~&?AAQhhYepDAHWEOm84FWGaMqt6JbF~MJH|XJ
z-p~KTI(gfIa6v_aiA`J}y`!nXo$3o`Q$(Z(vX;A$0p>Qb;O6Z<#Vg8Nf+r|@y_5(p
zZDS&PX)yQMNZb)mAK%O0>cQ$V3l~SyVz(E_PLSzWIlg<H^bMS_*#7;uRoRRNDVO%Q
z_Hz>eSpnhZRzD#WborPm!Bf_mlDsPL*lb7{+aZ$2o<ClG-q5fr$F9~I%(ad(m{The
zc5@9M!BjWHTQGV6vdqsC6Px+?NJ&R;Jk1Zjc=4hVb1WC#`5tD_d<iuivRp-oi1fnx
zE<Z?-VoM_+Doy>dMzR7P`tz8FrysSL<3*|-zmMf1ZTCE-G*z)N8&b5#u+a!lp`64Q
zBKPz3^n)tX_aiH+_a<(Kv?u(_X+?1bFGq?Uze<2_od0+c%4m`Cp!InqVZjfdbQTW#
zjaBRJK!B_QDArly@YtVc`(-sHMqhNcb>*Ffe#zi%4Ju5RgT`-nJQ6qC0@my?+oYvM
z3|hAScyFha?Z<mVkeH{nHJi3cX``$N_D-u5jJ9K5Gg7EbYo`l}>?mPd0^b@@9le)S
z>Nf+I-i+|#5S17l=hJz~gT)xs0)%YVyXpDs*ZUHDdv5zqRr2*-;}ODl<T{Yd+{-qj
zT<YkJRh3192?C;;ck!@n?S&q_LgDeXf1cA_4*~fzBse5Vh_b_Nls^6Iw8={g-?<he
z(T68#b8Y)m;-V%DE<K|Al%x029{xSc@~{RnjsQLmIrA<-`o@2Pg!zy1IB$-ZuW{6q
zbNjj#7!8I5x8pP5ZuT8G09Xou<3iA?Bn|!4a}Q!-0B8ebbD@+TY1qtl@7&9mFV7kq
zZ^dFEMnWDpV~%aqN8rfZ{Oj|;m8Hxx;KG3F87NtsbQ2(4^6}6NRk^gZv_MtvMv;{(
zS9VbMJ~>r2u@PgM4)(=Ve3_Xk0cjrRI)JXkDQz22T>cMIQ2)`V|Hlwv|LMCJ0qV}N
z<nxnLF6mjdxNY~O=kjIG8Whg4D_LjFHp+VE`(^%oW!J`RtFvdz(_oE~R<0<`dphTx
z?=f|~12!>akC)i~aGnEt@MidRUdV2Kw3PoS;_pBGy#FQi<NxrxKmjik5^ItbYdXfb
z@bbka2*G#yYh$z^YXxR80&k$FEW2v`_N|qbl_i2UUB%u~kO>>Vy>K+$qC}1pj~1I#
zth?V`gM(QZS<j(?ll=4nZbnatT=|A#8FgtuKHMz}n7@g@34agB=Hv<ko1SZU(DK_f
z72+v&W{E0+)<6lJ)z{B4k~KVkUc=RuW*L5e*Qk?oPtVHS8H-gI-62DLe%^Blk0uT!
zb?t);YI&ZjDk9?K?411O%>j;g0GC>G+TIMZJ$RzQB9Ww*hyewkA>LU~_o-XCJA}I@
z%xcMcJMOE8$2%?_l*6NEhsfB=q_Tq!T9zKp1fI|rLKpI(Zzpc86R-wAiYTLn$!}8D
z75IG+Q~@hh>B@I)axb0I{OUmxlydu8s1z@VZ2etk=O_MBQLTu(xeY3c>s1!I5rKQ|
zz-B=OFZ_q~iU-|Fr>fB1BfJNJ)~5s4nRf{#3XtC7B?G>#IcsXlpL*`V)!8AeJT<^`
z)0Qn&ON<#Cpk4e9OQVknxt0GU1cy6$^5k=)EK4jl8%R$<g59AfzSGrvMMdBqu_a?>
zmX<;e@!p2&>YrlevmT0Z_;kl|AM9jnYpcD(IDNd!KhzZg6!5p|>bA$b<KrPpVX-J!
z=UG2QAB6FLRhRyrd=GM0F{8}8%n70@_{v@?dzqSCS{e|l0vY&iJbt{ZL<^9>jo#U@
z4rvh)O2ABAmyjeNLI8}olCq>E3)>MamNsI}6;<Eh(vI_C1<fq;s7Y+vv<VUNxNT}e
zc|{>O0EJTzvjTPl5%%KCFuq+udj6Jx8@@MEH7JHf{;9)tr`vJh$pMSLdbJ1cLtx!?
zaO}NzrRyEN5FFThKujz)P~vuhooBfiCTZL1)vFPw-hkWIC;{mTgT=jLuL5p7Zel}7
z*%>o4a!(++&+8fxR4#=A*leekH^zC6XKx5M6Xs!M`32pXYB;6`CpJ!}*41?@kG=h1
z4O@lHmL0MHX7W^m(h(uQzWctwu=Zq@jCbyQOKZG1s`b`Yka7z#Rpb)p#$w394g=5<
z=(034Bp6)^_?(yGx$;ELsXe_8a%0C~o0;y7u)Gii!MBFIIB@Xbr-4oIw?~d4E6A}E
zR5`v$w=BqdQEs+z&nY}`ELA;~VZ8tv!me@i*fU+28*kyLfdx$-z&DFpJ8%8kKD`!e
z#{Cs=|LZ2&`Sa&d0-2I>-&nxOdD`M9Ox?X|+s>AWy&nr`F&e39X=p3LfJEO9;S!AJ
z!>x6Sr_OLky|f`kh*Ju5C7Rymg7pFw<)*G)3S|dH7cd$#_%q~5;jA6zMOW<9)wc&N
ze9JK2jcn#!!X-W~clBQ9K_8%-m_&=(7)kfH4ZytuG4vw(v{QT!dKtzv$znw*IEfO8
z36csuTafTlKlSiL=?uW%Y?2V!jtX3=FC^6P_Xh^2FZG|~Y{k<o-4&(IZJFVS0Y}jP
zbt+@9I4eItKijrCsu0+@ULe5kLdJM_uGs+B!In;BoO+?3`dHfGv=R`m9a4r_mV&*c
z$Ve!247Fuh%?>r$B*t$<ccf;Z|3q#QUx`j8pw%3*3Yg7Q*F=y!tbSKF9VHS~k;2q&
z0wn1&Ze??=`^3e&(iGC(yy<K)sA+3yt*BgMKUlIB^RzMJg^bW^C2^{qT1ocu@m6qB
z%C_r5wvbsno#F21?#Z5b8v)4wu>aV-UeoF4{`2D=6J_&N*H^CTfh6@VA{$^odqcR_
z<57KRaehL0Z@ibj*HGiaFr7x0-=mj+(#YG4nL!eqOJRV*w|5@DRnh(aM)KRYmxU9s
zoG1FyS+SP#;<p=oA-p2ez89&7;7{gKH~2au%AUL@?`i#BW^;`Ef2q6u4-b6*N<j}T
z-G8hG`OmfZ@41}kLIe036X4YBT)nze@0Dd-4Q?eyMhkcesLuw(aM3gm%ryk>f^yvg
zi#w^3(6AMG!T8gI+58vWUD)mw%DcO}LQ$kW9!j6N-{!Wz2KNg_<~UpcYD|*oc%L&i
z9%Ax_#6ey2Bkq@Xmaj81T&K!udtH|>?Lc+{#ok|XH_+a~RkvIRqSEJKFH{TywA>jE
z!C?rXhq}vh=n?>pX>%+_y9GQvLJWBPn>TM>XJs{bYN+Wvggof%+1foit9|F6o!avy
zlV$!~IbKZdGvmoRMlXE2IWQnWDQb!>L0i^bblLu=7U1{qQQzjD$NN7gG5F{4{_lId
z?};H0i;De-fU4xAF^~Xwjek9|NT&&)TF`c=QrGd@)I8Xqec}CeR15;$!CsZQRJ}^5
zxpCrU9OtB{&E($>!6EkZrewgyn0Zv9Lsjul3CfCqE^Qza2w#<tNJi(ZGC4TP^fDu>
zKv_i2Jyr?4ig-%!6{a*efbc~>7yGlXLFzeFZCbUCf0NdB4|OlVL;y??ghj%LLK=Z=
z4aJ_Rq2$P_n|zjqwJZTS7d!xZ4XA;C`w&XPV?|Lp$}rP>8&pCJAbAjggacOrOwsgZ
zAI|5jt7Y()0-0JQl%oww0jmJ0b43DD9s-;O*#lzGks1Z4DRW$xHz0gSfkXg6<2r)>
z-Kht2v6=H({10bB3IMH01uZQY6I@I(L*23gp{t090Bi@E@nWbeV7dg5QQ+}gAzhMS
zK8lGUnK;C6#$uu7?))c=lN{ul7^sWweHH6=$Fl5dC8~9K4%T;Fv>*qxvlbMyl1tpW
ziV@un)w+?EwD-$;KokP;3e|Vh)MMygLX=}>Lgt@3XWj<t2#;T=a}V0c&9naQjr9uq
z#><)G#>Ak&Oy0JGXuI$kTy7>N9qY-h=_VVoW)4E~bPORu*<Vw=BG$dUh};WA*d8M1
z39sxP<TZ(vxupN~@`rU&P#bxC*u(mudEsveI6}QR0uj0zd={GkAcrGmMUjfv4Jf1a
z5Xf#}czjw``PCR2`Pd*zR|q%%fPI1Fj_UYpDKOz%4`05J+zYw`Wgsd$#yX=jFVqeM
z#9-8<Q7!}^6Y|_V9pEI(*_e;FGc8I6N>*Hu1U`%4OO0#j4#%U&0PmK!gmplwkY3<^
z!=PdXkKYs-v<dO4sB}72YsJbrFI@BJbP8vMftjoVtjs6O_^9PGoJ;#a_8Y!Ma}^#M
z@Gts>vzD$`RBqrL%KYaeZg1RMB~N73A-fM4RHWVpfk7ph`xeLy!T?uqg&Lo^U;o3B
zc#V=2*z~VHWY;N3o>dS=MRnpE%L-oYi&z)4(1M+yK<V%~dbIb6FBl<Yzv)dhVA&M!
zwzTG>JV-$`_ae1Z?%Iy%>c?srwJ?ao>hQv!*$Fr3=`Gxpv1^btBUpQH=W%Psbib6}
zbYEfrBQunxNO|;BpsiWE?a;10ryl>hH!<K!a_tToEf8)2Z7Z4pDdFq%^t%vG?Ss2%
z>0n)8`XIxSQ?P^ti@x2*$OuFwN>G6TYU0hCJFrM{gPS^kf796-8^2C%9FkC<Ip#0Z
z8A(Yy=+s~~9{)NmEexWvlF<q^eUvdVx4(c&;u^o5?-9)a+Xghl`A3e9HK9;b+Nv59
z0DOXPXuhvQecU#b-NS}fz0i&}ojpTv{WcE#fB?9fFgWZqpH^3>cR{LCHcxS$<@p98
zBFL5|Kk!m}uX3!?v{r@JSNh2*l!1A?U&*Hq<Z>@)2Ws5}puz;!Qvm>iQ-SuPb;=5X
zbV8Zm->i^16&b9Aa+bbR-4YhXw(J6DSjKg96Cirj)#JQAYu9CRJYP~iEjI)Q<c>#!
z@_Yrl|AmUZD%eP+=@aTM@kjmJEO3>b`OZky0+(D8bu0XK3*WxDHyIqS->1h?$<<SE
zcV9smFg2FjPz5fE4^<>{ANielsqX=anudA>R8$DH^#3!hqcb?MHIHDp&KGnfh?a*3
z*@6^wl7YiI9r<pcT-c5ndsMAP;xmh4FW?+N_lA-^n~~<!4v%t>GfmJBlmF-feVHb;
zJh0b{y4Wg|@s0VUAz%;i$e<tDi*ohXsU5{WW8h9~mKLUvWCpE2$R@^ywK%KX=)|F|
zMvu0En^0v`>-AI#xZjm^ZndRKii?M51uu_!RBkpxi;q*(bai$08U7tWT$jYAa&YX0
zBX80~tVi#D?aC-Z3#I|Ze4HQqp^@e7sa}$NVFOeo_#v}%h8oZ~Vc^xdf1BoNhkOxo
zTcMm)YGJPId--6aS3mOaGA2a`n#C#meDn~P0&ojOkk0iJf>5DHhvM*PdhXL@nL--#
z<(FZ5Vb$pBF*=W_jh_!JjLmdkHKOlOkqW`krWC!ztx(}#E2QKbX}<zhR54>~j_~>>
z1}zS|Fl)rJ?xIpA(g)@{rb`A*h1HF;r5R;e9P59C!i#wjqu&FBauajLoCVAfALMd}
z$L?Jm&5DHZrKO=!X&F8TT9qAI=Q#;{o-$mW>f0L*c2Oj>1-&aIUWO%;vt`3L#}vi{
zjwHSpz@D|Rh<A;7_^>~nBO=AHAIxkk1&JQ=cKakHBf}($Ustn?EWFPX*hoHP9>cl$
zM*DuHZlD332!XIsG9B#CI+AsSlv7WlMz3)0uroc5r&LdQ?i?WyWK!}SY^e3s5ga}}
zzW>)3fI3PzhXy(h`Ho;H_|+1iSgtxy%!%tEa$*p?;4rX{_#XZ80R%#;<~e8R!u%DX
zNp$o&=uldEI%Z{N7R%AxwDog7I?n_iT~A^7g^T}GPo*xM4JxKbuEEpMiJ!cWa9-hR
zSkFxXHKHAP<KELQIc(q<AGq=gD#-lx3Jp*h1mYnak0%KSE0wdCC&1-hdOLw6U8sJ_
zkHvy3ni6JD2^UH5pz9{p)%d+bgdi#g=4O%L6oIT}DmQWYAO|x|fC|MIG*gJ4xpOvI
z(+;$1N=FpDM;`obP1a{f4RI6`6KvMR!gLIAI~FThHmiSk`;nX`7Ik?X*9*L%OE}1v
z;R_bIp}T8<$QmW~phL6Xd3qdygDEfzQhT<IS=w6kvJknn^Y)W&U%&`~dfaOb009+*
zjkB#aAReQ_+w6FkVu|5*3-Hf8&rNYXsiVVD4v9t_wzk^79$hBM!ZH6xrNPnS?}6&M
zw2b#=z^)>Z!|<0B5_;A#?$)Q%ZA4an{z;C>IU1Pm?zSlP^+2UNR3>cQD#W=z$D1Jq
zz%8@ptk|+pt9l%W^l^A32mzRPCGarkMLx(JK=Bm64#%syH0cYaKO`$FQsF$KT1m`I
zX!<fNn>%3{D*bD4oMT|B4Le;K#^*o|WYX*AkjNW@SxN-k1l>dpVa=K~p2|v`AF}tt
z<&lJr1`3G2tDp^sFP0v>JuS2N067R`yjTA6QqJjvk}0TMU?(d9z{ZRo=e*}vtl$;p
z?mL^sp6BEoLM$|jP}{G3-01=0r7A=mL5RG6@}*BnF!(o5iw)>qYOxOhWFe(-XJ_Zw
zXkDy42@17O%YuQp_15NG*Hynh#*y=<3)GK{wUoicV3oGxoP})+fd@*2NODDa7v~l0
z-l}ts>HpS*9~jh;k$F*EtbpJZxH>G>1C)&uVIRK7g-aP*CPBZ1%%caKx?w34x=UQh
z14uxE1eYQr<umaUps-`^^5j%UPm~&J8-TuU`|(?A5p<F5z=0A8X{y!LktitHiWrn}
z_Q$h*Ip92*0OH+_%ecm*qbPD|9zFUYlwZmBGC>)lcI&?H=SLUL53_{2Eb;1eJRC0&
z6FG6Jzo;~_dd(Vvv0!kJcH|$nH&6?&h9$EjLzzJ<SsGU`3^q?#9#mx?`RhRj<v_fv
zFu=7AACMouWz%`j!*<PIvEW#>S}Z_qM2dI#Xlqvs(MmvJvfb#rlk)*5M+4@7U}0s&
zZs3;9Id>ccu!O*&XQBUxlL9-4bCq|fzDaXfqC*z)*G~^!C-BI%;i+s|HEX^LXGI7E
zyB++iheOBxyPp9}s{pu%AoTj$ZvG%9nOY@?`-;V4QIvjvgXgdBatGI=v^bOuRS6$j
z=MWt2CGeaPU_35~R2IEJ%Kp=1!AG{fP;;MOc;><}3Ytl1>sAP3&pfDs^We43u@GS*
zz`;9)(iF4unIJ^`4FnyZ`CoEg4sJB@eM#Nxv&kHt6_onrIvtR6DIhM3OO%Y|v>xEB
zQc|7M!)>Kx<U)cLza&;6MKo~Hk+6;$P*UFR)p*q7<IYfZ6B83>A<lVE(sgbL!No#4
zaTv({p0^*?llek9*K*`Db^Ts_$C$?aSw_E7uKoe;;(2*_c_mYIq5H;>^jqu(N<69K
zeCs?no6;e@G3QtQ+v`@@tbKp4amVVPf8V_|&$UKGfAbpCEk~WDvJX6Ey~x->uKhVr
zB<vzq>cRv5pAQuNs*b-_@#}B9H?7^e>z;D-&f0_X2~=U3wqKqEj(>`mo(Upa&RmTz
z8a&d#NKkAjlb@-UZs53-#jNW*r3KU=e;GMBABOLb&I!^crEcZf#^cGUsi`f?MdlK%
znHB;d3;d)?&%~99f!uku1?oM)s1Xe(L*~I^#?F**^l>UPPZqxM25*hts}}(wN4lnF
zwdHrqB%aTUO-FM3pvfD;7212_H$epgheR*;cWGzWaPH<r{PUHiSS%!iP#Y<R`~(ED
z8<1*Hs`mTuA3k3NzXvA1!5!&IE5$g4!yR^ageK*zaPxqb4p{HzZ1}MLYzPii7YtYD
z@BJcP=1ts`fzk1Ds3wa2?M1CY(e>5+R|K7MVTVzDGGN3Yu||~=fW)UD58kZQodGbv
zs;cU=Fb?dG1UaYW(05d@nDJb)>5RVqh8WAMmy|%n3Wdno@4wPd?w0m-FY15v(LUFe
zupa_1O3OjWu@$vDfI@+<_<Jx5%IfBtI5HS#FeJfwLdR>e91<R*|7W>h|A&Kk@T2hj
z;@o@p96B$1lDDb3`P`5jY9d()+64I8QMX!Xk^-q-Q+vDdklV^q^h1ohK5P+C1rhKN
zzzs&e)QK4omIO2eNt-6*JxIfK{P^)8D)_2#=nXjFwV(68Wz+ZE6jU)m<vUQ#19q4%
zpD&XFIeP#UzhKvpj0cHUNRZ46p-c}{Kdb#X&!O<Fo6B7;HryuS$Q~rKnE=et3niMc
zoE&An=xW;@i;1g79Cw&%kWz)<qVI%1Rp19!I~K#)*G9>Qn~FaOFAr%kUT#A!du;Q#
zoDozy3%*`~6dy@&TRS)?YUp<`W8f)_g8ZRNg+@>XLGCmeLA*6T93%1kWC#wb#|#?5
zeq!9v)buGe2++&wzx=v@!Cy=!xH=asgJ3X$nh6>lukR3R*$|cjQt|$R!G=Vt8xzSO
z#f3P1Nor(Rb4#x#xG?Hxc_e8?apHXNR3v*Lk};t=^Q2+Z4-XlX2AhqtoZxv}Fdr7%
z;Uc$QaqR6vJ4s~=ugby&l&zo)bOGeqLJo<6K8PFQ7Z8A~j$3#^Ee-<O%^%>5TC+<#
zYE$u-Teof<rsaL<*{jOX4(&{Y+${U@w?80-J?OPRum+w(sKbTOZa4c>eBIm>FVXLH
zyB(%60{ig12dQa7(r4Rm7aoA_6~yfuu~>)(*#Im=AX7CxZ)7w$aTD5V_=?OkKW^r-
zfSO=Sze`^FyL|Nu0eKxW$OTbpjMI<<B0f_W97JFe^1~20!+>ty_;PkXDkK`Vit70#
zKFFY+AKQQ#3IS4SD+sc(YeTqF)6+kV@`hY*Urr2FQ=nP)Cy8A>==#a_5b8xBA+0@9
z-`UVQ^Rt200cz;T72DFe40plH?kbA7@w=~Hy|RvJa&{6BxC13h!F#p+)?h!C65Olq
z4zN={H#ei2s0LI>^H6LKS~Wp%C9i6>T6a9yz`~-d-^SlgVHgk$O6w3aMLBGd_^`Hr
zRdXy&t=KRmZzf?~SqfwICG9BRWv)iMI#q+5j`W62C$h)WpPNm_rgQAPQSqwXstLgS
zHXyfT<nOAA5F`tve7DKAs|UMvqjmw?BV36@nw5~C&vzD(QA<u%`J$7$x;eC4aF6V<
z<(#*!CeceHknLN8JOWXB1hNlgY#uG=jUWx)<`9R4v*@e$;QPs#nEl9KikO+{Z{xr0
zjr$el+z%e)1-#){DWAA$^TvM8RcCcp^7_VrXl>1wgLpiibJ`#ydkonQWR!$<c<?EP
z>z{rf+#OUX&1T4ed@p$qjJw_7;jMRvV?>nv>rp^bd<G5t$3Ouj@L{xA>N!_9|9>;i
z1HSK=kVEwsh>3|Qdb>d2yq3mUt|20vmh}R12Z`}@_UwS?hL4;a9UVWqM{bjT)%fFv
z&ESS36-Hh!`Di^dcU0*`zDwe-pAP*c%EV>FR&~)4y&1$56=s}x_B})l6~HGX03=5p
zGFU8ose!#65TbkB>zljzg@Tu+P*E3J8iiGqUg^df{>_zx{{Ys_15k~YdIe-+NWg(O
zQ*|2~oANs3;1ZX|9OjLqz5yFFKC9coS>07RISE6vP-?y%>sGv<Lk>e5Pwz&6uR=^}
zY3n#B>NfzMnYgXbdHrI>b;xmO*Vjnkfgq>=Y4DUGIS$h1sZiCWouGOtP56OBs3Z5c
zm6ixze#eDcO{%^Yd7^_b1<AEKxYdHve(@<nL76yE#Ldwu9Kbo$22Xw(axlP9o3*1V
zW*St5u~?`^Bk4>P#2(|JFPu$SYYZ!l+RxhaosFKAaE!HEcXj!y2|%1PWaL-;Id{v_
z1Gk6ZDzVI!OgM()ML&JV-tYSkoYdez0cy7S+fRq@@8%z<j~BpV0m}!0`u|m93g;?2
zu6FNnM)n@i%`J@23g{P`n#&4SMzjp-#_K&Uym;m=zwCjUnogB|fJUo-BoV}O;IV-v
zf?!rivH{B6+Z-r!K?O?q_qA7e)vY7L`GiKr)hajUA-afp#c+O*mjsU1pE8qh3<_`X
zrMBi^6XzHA^t+zEH#0DZCO$Jge*A+aGxq6IR>1R|>v~%_iNMyz;)lg@a&iOQlt<wF
z2Iu!`e~vfctlH$BN8b~c6Z?OhmXkkPRR85r{b!5n%bL|KO~5B5zp!m6EzHi&u3Hvo
zKv&G!*HN6?TFgHcwM*NG7eY?EXodLiZV$c;wzRfxSz?UT66EA6_69T4tYf&;6gAHo
zR^llB0mywO1H(^;6cX=ib4(p*rTbz(?Z^Pgy8*TwkTl>K03YD~hTZ_&)&f@?6OsQT
zkvi$^d>a@uxlM04*bJkPYQ{Cu`0V(a^BhaU#M}N*js6XE{Ow78R0a3{*=+m&uo!=T
ziPRixj)=7Ed8*WNAD!&9kn7s~KAM@OOX2QL&Z0RTJzG}X)IW>OZg^{Lbf2GthgRKc
zY0#+7XPb^4NV-5E4*Lhc(j|IKT4{{uvJJ-$=znk)Mk~AH<==nUf5H9!cfW*Pr9{%1
zs9m=+%nGWI6F{vth_MDzJL2&nyORNPX;!o|!e#|-;gCAYb8@pE9&ZXfy($tgLk>s#
zCdM(&p}3%plfVPZl+*LGXmh?2F{6!BX@(hhbR>#wBk4%wg`{nu)#3CmK@I783kMoC
zS}gDB76<H`9I2uZ0UgJOA>FZ=8)-pwsMk<Ch-o;a5abs~YJV8uTr#i>z!36Tu@~EV
zp|piMp(<jCOZ`ISoO~lBVpN`M;$o=amQX<-V-~Z`(m&$^i2|9#{W|+zVCBM*fR4R@
zT9lCrKF+(<1PRqqSqHIBN#2~y%&R4YSZx}$YpPe6eON>UbxfDhji3dCM|I&n)QbS<
z`{&D{rw<{lT?oNJu@H&vuvp+|+_LMiT0mrBbsilY&M)RHQKxh_H$^vA4gxh~C45Lb
zNZ1Cwq3Y_;N?6=B@|`f!BbwYONCObE1slBH!|V_=9OLm2{_rkxWT#(C0eT@hd)l(O
zXPvBn`o^zRyAj;xk`)+*Bsl5Nzi@W!&;_*vl9Ka_H!PbELw~5{m<YxZ)g#slU0`cM
zIca1%n_H#Z)x`yf9M}g#vJ9`6XOVdtmwQDbckd(H+>Vd7hb&$nieL3P|ECx6^Dg^@
zvQ&qZE!{E0-;_&wR|UK?Go)Y8n!o<17NE-Dt-l}zy>ST$h0!!qpxCy8l0J>8qoX4l
zQ|tY##*6<%+v<Bhl-y@H8cW_TY8NC1_tUOj`!Kq0hafDm;>o>e2_aL5N=m15R(_{F
zH1=SpG`D_j9qR&OAE8~!2n(|P_EJAjJ~7?IjPP}p5?mqcKlWeY9+~;&PR8FnU9a90
zsG`Emv1@mb2}Rg-YO7^rW!Du_&#nT(AEf*i3O?_G2{g+Y7l0%FpPF3(IC^8TQqZSp
znZ_~7BxP73K{*#=)QhfO0gSAf%S^>aJ^1r|Euju)Z;rFib9l#tbY?(2z)sH$Hc*|}
z0P;9ed^{eKnpZ~7-*f!h5MEzV5!3_-OPlT3^c*$G$;gyu`;4K6Uiw%Eq-mQFbQ>eG
zSsIy}kim2}EY|6^qBxC`n;Ggv`4<YxkPwugjs$*140UiTM}Yj(5n)6rfBG1@E~qly
zBbT8!@it=Bm5r6r#ncApVngIbOv|)QXGqbzE@jt2xrkF(M5h~Ct~ot(P%x@Qjq|8@
zYiimlD*OE)oG1R`3sSTmD1D9^3Zsq!@EEG7Pw1!f9AMDsnf{)$aQFVNMD!mS6aKsV
z*uPK8|G5?+|6j1eKf*5Fq_?kJy9-LpXAR{pCrp1fC$#UzG#=$1=D41|2G4_sp4@E{
zo_+ozPbSKmk4vp&RS)q#RIy_s1&tfd-CxHq<EXZ--h4UJ8mjU<D4~9P@xvVp&Db1o
z9nsX_{B}FF_cE?aGxYABhg>U-6#A6!r?wN@?egAuOm@E(^TA^B(ja4}5BCz2H<?1h
z0T(`e$wv4ss6Id1^VFxex~`l1(<4HQnAzB&&T|At+u0mXzwBB}lAvPl2T>zg$nEnE
zbd;B&yXS&rK9Gfba10JNM1`LymJjOeOCDCG=o%OpWP_&c#^U0jfwsh86&GfIBY3Ee
z@}(!AoBL)~>{uDKYj_6T2(-w=M9y_^fbl<1KjvSd<o<d3|7V~6+1>vZ7#8>OL$Ma)
z|LY_x5t@c8LF>H%fGfKlNFAI0numyXD@5(xATq#j<^aC2>J96#NHBopWdN2c5s3o;
zlh^wF^_3oI-U=dwB}*rdp-~m>cHiH0^ql|})m8v=p(cP{s4qo89R;BasJ)Xw7_bfS
z<)5H7TZa>+KMG88x&MF1vnJVV_5qwFXjCK~|N01Z_KS${^Ye?u))Dwu0GS|KuP~Z!
z$SeZ+i4FAWbiJ0dh+4GZI5N}_1C%&l$z3^FS~}i5Fgp#Cqzr6RMAZAhdFhvz5(BOM
zv%{cFiyHO5kb<@L=b1~i_1o|Syd$@_LoXi`qcaGXgoXyL6d7_;c4_y(C?dD~L?A>B
zBWaOu#18b_#hu#cvkjAHbJ@?2$`0rp%n~tDdCR)Sb5HZ-dH35<;PG;(X3s}%2ut{E
z#^fc>X1I?s!SOu~DG;csq4=)$$@)N!a*>OrO6<Sne?E*(=iMc1*Y7da_aO{gi<Z@f
z-=<2vW%==_>FpDgRd}Q7=K<b0<U0Q(Cz%G;7PL0b`E>vsMSH@3E6iXkzfMhsNejNu
zTb5Dt0bnu-!_}M2z*h%VKZ0~fj&1WZ#?$~x3eY?1u3kFTW(%+TPGN%J;yYx8RE_>P
zY1NBbRDCTiE!82dUl@Lcpc@_!Iep%uX5n|b6f{>^E#E<00+%p{c4HGQAf~ux*NvML
zX$kq+{`L1zF-7?Y^!_BO24^iJhLuOicZY~b#F2r=mKmH5$0Tt;&*6B~CIK_4DxPbE
zSws1usj=}_EEdh~fi_hw2r#I#16eCy5r_5)QLRO6bqT(_8x6mJ7Znt`1G9r>U#SBz
zQBaTip2Ne#yGFS83CWvqC;j>r8Xt~%M9U7T0<!<wKb8%|^NZGh8`zqTZQuZS`h`{Q
zlF+#Dxo)i`X7zjYzsj|iL#oBnH`@5W*G2v-DU5#vEcurUKydE1o`7^uL^}#tA+IJF
zhQJ4P*9MS+L5F?heuGz=ibOD<9f1w!^c1UC9OV(*gyt=9I3l;=;a5m5p{|aYfN<!D
zBXSsiNDKOHR+g5%PXF{}-6fa{mQ^|3UkheD*Jc$73K~vffW}gSa@L&RPiiq`aIP5*
z4?vZgxc@gbljod;|93Dh2ybCtR3c#$8i*nyVh#N?8kws?^4?@-)(0nS2htP$RVEfl
zYDD-$<q3vDZ7JeUGCrgowX5<+Z*zU_pLEv0NW>iw^Wnk-ngC-8r%q&xxalTDT+qk`
zBw)LcGS{R1Vrb=q{RY;3AMaO6Yz%o&gt~#gg$hT6NtPdufJT1n7;d$bW2_}d2{3p_
zlLSx&4~gKAt`NMk#+zUFt>ThY6GMqT>as`Oj{ZvJpvXaUg-~~(hzL@?ZB@SNC3SMe
zj+Z$dF5uixM7?N#iMc0IqN+-90ZCbQ(DEYE(^!Mz*kkx*jHdQ&)y`Yjj=fvcczu_)
zH6)U#3bIw&{uIn*OS}zrYZ@Bz0x^i-P8CA38klAEksSefUD*g4Xo1Q_*r}=si4q^$
z9g>j$!Av4+5sk-Mg0WPQ(RwOHAJ6|(rh%@Hq@JjzwNFee49zQmcr(oe(Tol1ZimNw
ztmJnEn+BDKRnG^aPXY2pzWy|bl8g)7ERZr4^&zeHy@-*r5>8r)I<4?{s1A%{kvePk
zJkl^j?-!^r9&uggQb(WI^=usGDD(+yq69V($VA8YKt79#z+4$QBr`!GUNBY+#*qxw
zB`^_)ALE;U;>OGRa+#hnFxZ#~{i8id2%N~8O__p;R5EBL1<JEI>J;e3Bz?Ru8fLKv
zu8+DkQU4p%)<6Xa1NxG|-pjP%KJE}1u|y=aBjJe5E_5i+oEagQtHSB#6zM^|R3^Fh
zm5P+92oWRTpw{j}eW@I&8Xj*h5o2YTiDnLfMv4SxbjL)fu@)#tS6>jpZbM^~tf7X3
zCTbytPcQg>{AMx3idsqHb~HW%zAM3am2+eIT$m89U9olJbM5e&t;jWF-*DYQx5x!e
z>rybd293i5pD7BANzX`HRs^~Z0s~YgWj@^l-2CjFhQM)84-ma*RtQM@LYtZ}=m{;9
zppK8+s}-ZhXekI*5Gq$*?@`4M&F#bEA?zUDg|pbJ?hJf$)z;QVRK*k$ZAk?zOd99d
zYQvbdJbVjRnJ(Or28d*;-P_vQ__8-(Fc*^2UcctFpn?boI&%qyzjHUL!htMy1g4Kc
z1K(7DM~$KCr{WGvL3vC7igHt<R_x;TeoPt177(0*`bIB`4Zs2^v*t^n!5$G8?8PiL
zNN12j8FY`E)6M}Q2Xy!FEmUfSQ&rBe&-J|+ayeQyWD5uwP$wM1R;~nyMds!KQ<Y`s
zHpBjtk<=FrP~)@o-6;gI2@OoUW3i#}18kM}VVDirgJy%FdU7^QumKq#>sK`X4SFnL
zs@0w2>yPY0d<+POpO<_An+&W0YH}-kT9Um1Rid{;Rq3qZ9@aJ1!RTGu`asH|uOX!$
z!h;w8sO-Rz1ha>pKYuQQ#?OH+LBi(<wn^T3Boi932eXF3IED?a%I214Nr~LtH?r4Y
zmP0{>GUSb@Qx#)0=j7`05-4}gS)Biu(4u$U291EDi_6%}5rtQht<4s7S^Kr4uFthZ
zul7g)Ls{~L`62dPY0f4NB-MDM^ua>uL0aU*PRws-V8=r&=X$~<s~~2~y#E6gtbpe$
zGd;fZhWftWyLzQ!>*xzbci9Q>w)TcCm{qShwEx<JARq&G0fQ_M6>2WQ$E!4{76)Tn
zG&0k@f$AFeyr^xJo+>%Dq(&~)#3ZqyF%dH)3z%sN#QV@XECF!{HBvx16@;ag2Z62H
zkq;ZImc@WN6HJ#H17L(`;qu9wl0fr8L2EObvlM0mg9g+NaBkf5dzBR_Ads6zt=`}3
zhiK?Y2}#nbTq&6Q8S3Q}5wQdvJJPw|6;@S29U9Ox>xe!%+k3RNEW!#rBH*-&irX7!
zB6Y#!se|KLfOsZ6%>8k(?x~r`2088m{2iJG!<ozpa1Rm$nuiP2aRO#ysdwi~2bIr)
zn?voppd(<TV=9*zMt5>@gH=W2P8No=RQUm*T{s8BSCDjh0p`DLWrOPQVOCL@^HrD}
zg4jnS?%gWmcm~ai@)w*(8^mS?vn3H9kI*R6rJ!Lc@?S3>M?C{34mySzrkjy(;O15O
z4fQC%G`hQ>Bv64kLmBW8^a}zCwigKw(40jIXhJFx>5V3+AV-QOlR)>xh;;BDl&);y
zrnxC18M;<cxAPs|z@g((PR*~;4V`-Y+fJ3`VLcK=qK@H3GQXa9{=|s!(1`JP&79BR
zk@0%pu^K<c8KKYdZQeVpBtW*X0+Yn&^0iRvHhz~#6q=mLAQ5L@O76zqZ*Feh1s35-
zM^exLVM*fBl^jUOmge1AfGJM127_4+k-b*_w0uLdJbUqTOnDy31I5fBDrg%!Ge(g#
zFfA|<T2L6H<`4$-LGEB(f)&-=h4AuRkz>}Yt}O?R??F+pz`rhw$hw-=mIrRV4~ix2
zqmNNEX3#;;!T5u(ym8=2O>J#7blKvD220S324daa^0S~PVHXjUw<SwU5Rq_>2e*4v
zV6|b#3xe0Xb`V_6$|D<s=(*yA;qi98sLV(<fM#gZC3bnpz&WsmKtgM!-k&=6F}tzD
z6E}FZWN|wVr{vRLD!8rWW{?HWd+aBSD;mf$v>8OPweH9kyn~o9xD8rN5aw}*Sx@Wd
zai|lB%A!#T#lc8m0AdS-+4<hkilMFL2pZp1P|SvDrgxD9V+vwT)mbgU&441Dvb&&W
zZVi>&t~dQiSc%kI3_Gdf5u|wctUuzAMT%|ERGI(k*$XW;mvR%qoh(d-s%{4c-F-d|
z*_ip|_bW5TsqnOD?k8%3@?nld?ACcyF+~!lI@nKZ&a&Exph18~-bRZ^M)L#ULkVpM
z=j2B}`Z{Iavw0>uC^0*?Mc+M=bc~qE9AU~~URY*tv<Kf%+kd4RO2|?86DlCYAJ1ne
z-B@4KfOpoJd2(SYSb84H)(N&y&C!;K(E(viG@9_{2ci0j`%L!@-tm?O$mVC5Mw#Xv
zZp-mcKv7-|rX7PCdHg_%5)JWw>}!$q6V>1#eSQ6?#FsuGdfAJ;AJ8j6Jt61Peh+Zn
zi|lME6F^zhs60<?1II&t`4n`jWm>u^@jj+GpcJ-+BaH3<=Ga9+)o3>w#Ttc1`?=P4
zcUjED<0wzSjCX@B%|8zm##2JBlAutu1(3*aUPOZw`ap3|JprRJP5|g^9iK4<ITIRa
z#Gc8>%F+Y9)l;M#q7L*$>y3Y&F|e{qM96`GB6=UB$@Qv|02`r=A4*szQQM&ffT1FE
zb?BKye2S=o;*A1D8&z!uc@}#%MYW%d)EY&-5sFa&68Auk#>g&%o9hEj^T&b`@LS{z
zV#ZXnK6Cu;&HA{KGi~IK`Nzk?N%e6BW!YqdtkLni7MLVE;LDRp;^0QvVN4icLGNUv
z7I|VY7-|Oni_$)5ggs#i$8!rAs+JPeaR79)mdr$$aOK0@JfN^~5(cF0g{bb5o#-Ao
zYUaN}5Q>75W-bLVf*~Ll{mA0Y@F(epPZNot?<i?&Z<W<h&w&Y1hGaS35|C_^Zz1<x
zDe8m6;5<`I38;s8n8lUlz*a=TG^Rmv27tUQxtl**=61MT0bMTm6eP<KC+ydJM~=@<
z+!ZgtMw(=>tXsUo39te$TYTWWKY_rr0b33ERkQsvEj;B>C(hxZ*TC1C#gzJTl9#$x
zm5oC^nbJ<X-R6xWffGA~Gz-e(s_Yq67@PoY0%4G@jpegJU{~kP1{XebCJ|LGLEzzj
z$%6_Qw)b^%1mH9<)i=5QKD7w*L9*}YK}DmQs6l}L_#nBl4x>TKjxZ81<MB|B^(npu
zQ!18b7L0=DjHZej0yDn^%E-g)4PTJrQhLfEE>@tia)7Rc{9V#&PeNs{5OTic7k%Nu
zK@_hqx~>T`(TPj8U`eT!flymR!oQ_?G_<y)t#LEZ<x?FEL2@D@;Ib0uJ{~E4UQiVT
z+;sq&=!M6lGy)_BtxjZ6d@aDFIlyrUYsAW{I6Eulzkp+$;W^(tx8<aJ1S#RF#eB=W
zE9QhENGlqXea63TLoF{5(XUkRzF%!icY<TYtN?(x4U0wXVxg@uaj^2SOdL<Oa+&66
zEF7bZmcY6jR3e*6bkDZ{T_b{RA|f!*lse20`qfx!0$`W020w>@q2t0MjYSfrlYhuD
zLE&1>qoJp|>=o-AlK}SSO817Gu)iP}o+H15AdXrqVT82Q=_CCQP#YUceE@JxTa~mK
zP_k{bWMpK#7)m#r&1~2$Mpkv~yAs7i&rxKBF<t#cXaGeuZML~?yn<{nDhZm=3gEm%
z9gDb0sP8gpBX0||Q=&JI7H5^abE|bCG$P~;6G#RN8W4F#u7mNyA|jCEsCqlLj*M^1
z%t!@2DjwC0?;l!Y4=3c3H+9^^4eS2N-c1L{GWEQm-c&+5oFbw!qz$Kq+4jMVnBb0)
zav+EL3aE^F9D!^!v+XMoJTCcNWD1=i$J`He9I#PPzeZuzr-2-m6-aZIy3+TtaOim$
zst$$$eISJ@mdFKU4KxI!GDW?CW0@>HHq-@vh|~p0P{c}m_G~AdE7O3?&eg&wtncqL
zb{zex>|G|<5>sWPSN6kY$0IO$7VTz`KM(-^pER9W-k+pMedI1^qNLHuT_&l@FO$9J
zY?tdC)cAUofcESfw<#Fdi8E8s$Kf(*5PLteZwGeHwzf~C-pk1CP32e>pY*v?Gro8C
zjg9gH3P%=Y!vZ~dm2`trG+PCdEGdBuhSALBew03f9DQ?gU(hoKe+)9u$b>Y;sXiFy
zQ9v$dbUp=8<CNb8FuQYXFA%ujB~|dCuJfhtDn9e3uYkSsfR;)UB(q3u2r2}?aT?QA
zb@*P2{{-zEb-5aj@C+I0^H@iQKN@M-2l|}Ti?}&($Ga@h1MNKA<Tj3bM2(ZfpFKcu
z+2-cd@^JUBi^T)Mw}QI7+q@lhdymDXl_kz2eIR5wP|}9c&T<aR@JkC<`W(y>94s&^
z_OLShF&zzR?PU{zlJy`hMw9`xY8{5|6Z&Jj1*mm<y_v|n<h%s4e-((z?vzr>z7!4R
zBU_%1rjEK!D8EXnvcXZvS4X_pVLFW+RWX>AB=m0t%&tu=$EZa*Iyv0|RR*X)bKe7#
zQIgvYxG;g2M}oLCEtHl4O&P?lhp~_6yivChNWp>qfPmCF9#1PthF=EfrXtlBs+1d&
zgNAjiY8sl$Ar<Kyn}1~Hb{lfR{KBl%)cr^cw=_@dDjcqRnq^V!U)S)c6edMag}VnN
z8w92t)glGM+Oq~i(MU?vJfLi8rgQbmK^dcuqqI-{r*@KTp8a@;*|o?9L;?IzD*%ZC
zOD1N;I2mg14I)<#T*bPth=v*ZiC13`0P*z|pwZqaCytCud7KHP{t_Lv?xMj+Nb$`0
z4RWG(05E76B4<=O%vLE0$V5F$3>xb5K}1V?v9~iz3C%h}Q&Q1S@OadM29B(xD+s)3
zBP!^Z6I|p38kA;EZTD_Ii?AymkA@S%IM`PPbF50MC5<2^8X}3N#|GQH1|A61wa5`8
zHXyMm+jOV5{Sq4Z%Ag@-C)5!*Lw=Cw?}g|@aO>hn>K}9Omh;LR?#wqE`{o|AaCb=P
zJr+SaR$efNtZyIZh=^vwLod;x>AK}xFKalFwVxOWKyg#vt1id^5d8usg_^$*%>v4Z
z;130m)y#kN^Z$al5#{SCs7Y$-M|%MJw-A6wSPNZfh&?U@JXhkKiF80Ji%pROL?ZkP
z0BANAV+I~|4{ApnoToxhFdC&O$3#gcxYY_Y;%6&JcOf((W(ti>g#H!a(gp0h;KlKo
z1(5tAHx2{gVQR)HaIrA|W@c_28X7q5qX28s@X9aC^WO2>*hn`)b|)&cmw}fTK$+F|
zx(Xw)7J7Vo;k>w`c!PRSuD6n-ZNAm5_AZO}i&%3+XbpqXx-rWcljQI-IOywSFpi*g
zU9i^|BV+mU9bk1BbHbo;91$wXT?Wl(PMeK**Q9tIfPaL=QU9TkY8wJ}#Ixs|Q9Bx>
zLnCLpRY7NqqOMsN5d}CvMu>45^2)$s;WyPh7sZjcM=13)bh1m#QQKg@69H*++VKI2
zP|W(5+4S+PFYo`hzIRe_?ax(m;XB&f9Yv!=;(yKCm|pn@<>c5VrH~byXEB7UKV|JO
ze$0(G{^d@)?=_d~^tU;cRq^RTlS(Zz(hU3Q#Qi~QKe<;auMw8@E>AY^-7}b7?O^t0
zUKaD4&`)rL3Tta?=V{B!%lGLSZw~PA@MuRB6cm_SS;-d@tcttb#wR9nOG;vI-n_})
zaFqB*Rh6ctm6c~uPy%#x=aFg6-tj&q@jz#77Zx7;_H8HZ4trM7+hTBR>>v(@>mZYB
zKY!LADL$Rnax$x}c6j)brKM#~Q4zz4l=kL;qN3uqwW~TPl=|6OFL+VPm+GdbvqHkc
zxrK!b!*i!kpSJ&PYhO=~NSUQ%hN0NTjT=oYE$geRwG$E(rBzkg!@a?{<a%~Z&B=s>
zge%_O4>K|{KGoHgv5C34xh7_2Iz(ziU7hZFUS0u<(L#rBdQT5i&t`f=&$RdDW(+g=
zF<T>@4%aszdG6gII$bXQ^xo=*$gsLkp8}@tU@+y9?%(@NHl6%FA8Fr%@BeVgnSIwd
z>c*rqu!QiX_Uz5K%ZHanG|*o#zbX8?-?rlWzkhP<m+$3^n;X9WLnNzr|9d|-2qVT<
V^OIXqVh#FaZH?3Fna3_%|6fl^49)-m

diff --git a/reference/plot.html b/reference/plot.html
index 64252e0f..6e461344 100644
--- a/reference/plot.html
+++ b/reference/plot.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -177,6 +177,8 @@
 <span>  colours_SIR <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"#3CAEA3"</span>, <span class="st">"#F6D55C"</span>, <span class="st">"#ED553B"</span><span class="op">)</span>,</span>
 <span>  language <span class="op">=</span> <span class="fu"><a href="translate.html">get_AMR_locale</a></span><span class="op">(</span><span class="op">)</span>,</span>
 <span>  expand <span class="op">=</span> <span class="cn">TRUE</span>,</span>
+<span>  include_PKPD <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"AMR_include_PKPD"</span>, <span class="cn">TRUE</span><span class="op">)</span>,</span>
+<span>  breakpoint_type <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"AMR_breakpoint_type"</span>, <span class="st">"human"</span><span class="op">)</span>,</span>
 <span>  <span class="va">...</span></span>
 <span><span class="op">)</span></span>
 <span></span>
@@ -192,6 +194,8 @@
 <span>  colours_SIR <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"#3CAEA3"</span>, <span class="st">"#F6D55C"</span>, <span class="st">"#ED553B"</span><span class="op">)</span>,</span>
 <span>  language <span class="op">=</span> <span class="fu"><a href="translate.html">get_AMR_locale</a></span><span class="op">(</span><span class="op">)</span>,</span>
 <span>  expand <span class="op">=</span> <span class="cn">TRUE</span>,</span>
+<span>  include_PKPD <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"AMR_include_PKPD"</span>, <span class="cn">TRUE</span><span class="op">)</span>,</span>
+<span>  breakpoint_type <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"AMR_breakpoint_type"</span>, <span class="st">"human"</span><span class="op">)</span>,</span>
 <span>  <span class="va">...</span></span>
 <span><span class="op">)</span></span>
 <span></span>
@@ -210,6 +214,8 @@
 <span>  colours_SIR <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"#3CAEA3"</span>, <span class="st">"#F6D55C"</span>, <span class="st">"#ED553B"</span><span class="op">)</span>,</span>
 <span>  language <span class="op">=</span> <span class="fu"><a href="translate.html">get_AMR_locale</a></span><span class="op">(</span><span class="op">)</span>,</span>
 <span>  expand <span class="op">=</span> <span class="cn">TRUE</span>,</span>
+<span>  include_PKPD <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"AMR_include_PKPD"</span>, <span class="cn">TRUE</span><span class="op">)</span>,</span>
+<span>  breakpoint_type <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"AMR_breakpoint_type"</span>, <span class="st">"human"</span><span class="op">)</span>,</span>
 <span>  <span class="va">...</span></span>
 <span><span class="op">)</span></span>
 <span></span>
@@ -225,6 +231,8 @@
 <span>  colours_SIR <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"#3CAEA3"</span>, <span class="st">"#F6D55C"</span>, <span class="st">"#ED553B"</span><span class="op">)</span>,</span>
 <span>  language <span class="op">=</span> <span class="fu"><a href="translate.html">get_AMR_locale</a></span><span class="op">(</span><span class="op">)</span>,</span>
 <span>  expand <span class="op">=</span> <span class="cn">TRUE</span>,</span>
+<span>  include_PKPD <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"AMR_include_PKPD"</span>, <span class="cn">TRUE</span><span class="op">)</span>,</span>
+<span>  breakpoint_type <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"AMR_breakpoint_type"</span>, <span class="st">"human"</span><span class="op">)</span>,</span>
 <span>  <span class="va">...</span></span>
 <span><span class="op">)</span></span>
 <span></span>
@@ -294,6 +302,14 @@
 <dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate whether the range on the x axis should be expanded between the lowest and highest value. For MIC values, intermediate values will be factors of 2 starting from the highest MIC value. For disk diameters, the whole diameter range will be filled.</p></dd>
 
 
+<dt>include_PKPD</dt>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate that PK/PD clinical breakpoints must be applied as a last resort - the default is <code>TRUE</code>. Can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_include_PKPD</a></code>.</p></dd>
+
+
+<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>
 
@@ -317,37 +333,40 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">some_mic_values</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_mic</a></span><span class="op">(</span>size <span class="op">=</span> <span class="fl">100</span><span class="op">)</span></span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="va">some_disk_values</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_disk</a></span><span class="op">(</span>size <span class="op">=</span> <span class="fl">100</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="va">some_sir_values</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_sir</a></span><span class="op">(</span><span class="fl">50</span>, prob_SIR <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0.55</span>, <span class="fl">0.05</span>, <span class="fl">0.30</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 .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">plot</span><span class="op">(</span><span class="va">some_mic_values</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="plot-1.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_mic_values' not found</span>
 <span class="r-in"><span><span class="fu">plot</span><span class="op">(</span><span class="va">some_disk_values</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="plot-2.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_disk_values' not found</span>
 <span class="r-in"><span><span class="fu">plot</span><span class="op">(</span><span class="va">some_sir_values</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="plot-3.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_sir_values' not found</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># when providing the microorganism and antibiotic, colours will show interpretations:</span></span></span>
 <span class="r-in"><span><span class="fu">plot</span><span class="op">(</span><span class="va">some_mic_values</span>, mo <span class="op">=</span> <span class="st">"S. aureus"</span>, ab <span class="op">=</span> <span class="st">"ampicillin"</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="plot-4.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_mic_values' not found</span>
 <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><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="plot-5.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_disk_values' not found</span>
 <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">"uk"</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_disk_values' not found</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_mic_values' not found</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_disk_values' not found</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-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'some_sir_values' not found</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/proportion.html b/reference/proportion.html
index b6740f11..1ea4d1a0 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -315,7 +315,7 @@ resistance() should be used to calculate resistance, susceptibility() should be
     <h2 id="interpretation-of-sir">Interpretation of SIR<a class="anchor" aria-label="anchor" href="#interpretation-of-sir"></a></h2>
     
 
-<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr/" class="external-link">https://www.eucast.org/newsiandr/</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
+<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr" class="external-link">https://www.eucast.org/newsiandr</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
 A microorganism is categorised as "Susceptible, standard dosing regimen", when there is a high likelihood of therapeutic success using a standard dosing regimen of the agent.</p></li>
 <li><p><strong>I - Susceptible, increased exposure</strong> <em><br>
 A microorganism is categorised as "Susceptible, Increased exposure</em>" when there is a high likelihood of therapeutic success because exposure to the agent is increased by adjusting the dosing regimen or by its concentration at the site of infection.</p></li>
@@ -334,63 +334,44 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="co"># example_isolates is a data set available in the AMR package.</span></span></span>
 <span class="r-in"><span><span class="co"># run ?example_isolates for more info.</span></span></span>
 <span class="r-in"><span><span class="va">example_isolates</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 2,000 × 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-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 1,990 more rows</span></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>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   FOS &lt;sir&gt;, LNZ &lt;sir&gt;, CIP &lt;sir&gt;, MFX &lt;sir&gt;, VAN &lt;sir&gt;, TEC &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   TCY &lt;sir&gt;, TGC &lt;sir&gt;, DOX &lt;sir&gt;, ERY &lt;sir&gt;, CLI &lt;sir&gt;, AZM &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   IPM &lt;sir&gt;, MEM &lt;sir&gt;, MTR &lt;sir&gt;, CHL &lt;sir&gt;, COL &lt;sir&gt;, MUP &lt;sir&gt;, …</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># base R ------------------------------------------------------------</span></span></span>
 <span class="r-in"><span><span class="co"># determines %R</span></span></span>
 <span class="r-in"><span><span class="fu">resistance</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.5955556</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> in resistance(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.5688204 0.6218738</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span>,</span></span>
 <span class="r-in"><span>  confidence_level <span class="op">=</span> <span class="fl">0.975</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.5650148 0.6255670</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span>,</span></span>
 <span class="r-in"><span>  confidence_level <span class="op">=</span> <span class="fl">0.975</span>,</span></span>
 <span class="r-in"><span>  collapse <span class="op">=</span> <span class="st">", "</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "0.565, 0.626"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># determines %S+I:</span></span></span>
 <span class="r-in"><span><span class="fu">susceptibility</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.4044444</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> in susceptibility(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span>,</span></span>
 <span class="r-in"><span>  ab_result <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"S"</span>, <span class="st">"I"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.3781262 0.4311796</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># be more specific</span></span></span>
 <span class="r-in"><span><span class="fu">proportion_S</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.4022222</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> in proportion_S(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">proportion_SI</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.4044444</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> in proportion_SI(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">proportion_I</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.002222222</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> in proportion_I(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">proportion_IR</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.5977778</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> in proportion_IR(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">proportion_R</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.5955556</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> in proportion_R(): NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># dplyr -------------------------------------------------------------</span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
@@ -402,12 +383,10 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>      n <span class="op">=</span> <span class="fu"><a href="count.html">n_sir</a></span><span class="op">(</span><span class="va">CIP</span><span class="op">)</span></span></span>
 <span class="r-in"><span>    <span class="op">)</span> <span class="co"># n_sir works like n_distinct in dplyr, see ?n_sir</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: 3 × 3</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   ward           r     n</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;int&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical   0.147   869</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU        0.190   447</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient 0.161    93</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in summarise(., r = resistance(CIP), n = n_sir(CIP)):</span> <span style="color: #00BBBB;">ℹ</span> In argument: `r = resistance(CIP)`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> In group 1: `ward = "Clinical"`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="font-weight: bold;">Caused by error:</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> in resistance(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_by.html" class="external-link">group_by</a></span><span class="op">(</span><span class="va">ward</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
@@ -417,12 +396,10 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>      ci_max <span class="op">=</span> <span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">CIP</span>, side <span class="op">=</span> <span class="st">"max"</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-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   ward       cipro_R ci_min ci_max</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>        <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical     0.147 0.124   0.173</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU          0.190 0.155   0.230</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient   0.161 0.093<span style="text-decoration: underline;">2</span>  0.252</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in summarise(., cipro_R = resistance(CIP), ci_min = sir_confidence_interval(CIP,     side = "min"), ci_max = sir_confidence_interval(CIP, side = "max"),     ):</span> <span style="color: #00BBBB;">ℹ</span> In argument: `cipro_R = resistance(CIP)`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> In group 1: `ward = "Clinical"`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="font-weight: bold;">Caused by error:</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> in resistance(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># scoped dplyr verbs with antibiotic selectors</span></span></span>
 <span class="r-in"><span>  <span class="co"># (you could also use across() of course)</span></span></span>
@@ -433,22 +410,7 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>      <span class="va">resistance</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-msg co"><span class="r-pr">#&gt;</span> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB'</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span class="warning">Warning: </span>There was 1 warning in `summarise()`.</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> In argument: `KAN = (function (..., minimum = 30, as_percent = FALSE,</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span>   only_all_tested = FALSE) ...`.</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> In group 3: `ward = "Outpatient"`.</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> Caused by warning:</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> Introducing NA: only 23 results available for KAN in group: ward =</span>
-<span class="r-wrn co"><span class="r-pr">#&gt;</span> "Outpatient" (minimum = 30).</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 7</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   ward         GEN   TOB   AMK   KAN    IPM    MEM</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical   0.229 0.315 0.626     1 0.049<span style="text-decoration: underline;">8</span> 0.045<span style="text-decoration: underline;">8</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU        0.290 0.400 0.662     1 0.086<span style="text-decoration: underline;">2</span> 0.089<span style="text-decoration: underline;">4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient 0.2   0.368 0.605    <span style="color: #BB0000;">NA</span> 0.054<span style="text-decoration: underline;">1</span> 0.054<span style="text-decoration: underline;">1</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_by.html" class="external-link">group_by</a></span><span class="op">(</span><span class="va">ward</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
@@ -511,21 +473,10 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_by.html" class="external-link">group_by</a></span><span class="op">(</span><span class="va">ward</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu">sir_df</span><span class="op">(</span>translate <span class="op">=</span> <span class="cn">FALSE</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: 12 × 7</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    ward       antibiotic interpretation value ci_min ci_max isolates</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  <span style="color: #BCBCBC;">*</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;ord&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span>    <span 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   AMX        SI             0.423 0.389   0.457      357</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical   AMX        R              0.577 0.543   0.611      487</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical   CIP        SI             0.853 0.827   0.876      741</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical   CIP        R              0.147 0.124   0.173      128</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> ICU        AMX        SI             0.369 0.323   0.417      158</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> ICU        AMX        R              0.631 0.583   0.677      270</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> ICU        CIP        SI             0.810 0.770   0.845      362</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> ICU        CIP        R              0.190 0.155   0.230       85</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Outpatient AMX        SI             0.397 0.288   0.515       31</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Outpatient AMX        R              0.603 0.485   0.712       47</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">11</span> Outpatient CIP        SI             0.839 0.748   0.907       78</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">12</span> Outpatient CIP        R              0.161 0.093<span style="text-decoration: underline;">2</span>  0.252       15</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in summarise(., R = resistance(CIP, as_percent = TRUE), SI = susceptibility(CIP,     as_percent = TRUE), n1 = count_all(CIP), n2 = n_sir(CIP),     total = n()):</span> <span style="color: #00BBBB;">ℹ</span> In argument: `R = resistance(CIP, as_percent = TRUE)`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #00BBBB;">ℹ</span> In group 1: `ward = "Clinical"`.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="font-weight: bold;">Caused by error:</span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span style="color: #BBBB00;">!</span> in resistance(): NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/random.html b/reference/random.html
index a331ec95..aa3df0b8 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -209,43 +209,27 @@
     <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">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] 0.025 0.125 2     0.001 16    &gt;=128 2     32    64    2     0.5   0.5  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 1     8     0.002 0.25  64    2     32    0.002 0.25  0.025 0.5   16   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 16   </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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] 37 43 42 43 44 38 14 25 37  9 10 49 34 17 50 43  9 19 45 42 18 17 43 26 31</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">random_sir</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S I S I S S I S R S S I S S R I R S R I S I S R S</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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] 1       32      2       64      0.5     0.025   32      0.01    64     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 8       0.002   0.5     0.01    0.01    &lt;=0.001 0.125   8       16     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 0.025   16      4       32      0.01    0.25    0.25   </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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] 1    1    8    &gt;=16 4    4    8    1    4    8    1    &gt;=16 2    4    4   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [16] &gt;=16 8    8    &gt;=16 2    4    2    4    8    1   </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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  2     0.5   1     0.125 4     0.25  4     4     0.5   0.25  4    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 8     0.25  0.5   0.125 8     4     0.5   0.125 0.125 2     0.25  0.5  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 0.5  </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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] 17 11 43 16 49 47 41 41 23 28 26 35 44 19 50 43 36 20 45 46 14 50 40  8 17</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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 14 14 13 14 11 11 17 16 15 13 14 11 16 11 13 12 13 17 16 17 12 17 11 12</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</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] 26 26 27 21 18 19 22 19 19 15 23 23 24 19 17 19 20 21 19 21 22 23 16 19 23</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/resistance_predict-1.png b/reference/resistance_predict-1.png
deleted file mode 100644
index 84f1746f1330a3d85ac969168d1caaac1b18b7bd..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 43787
zcmeFZc{J4h|36GBmsGC!ln`15iL4=eT~yxIE0Yk0tjQL#8(Rw^^q#SACHuaFFt#ky
zSS!oK7{nmP82e-ye(%xe`h36V{@wRKzw^8AbMA9~uXFOAGw;{>Tp!Qp>p4aKt$*jl
zG2UZLOiU*LEloovrX#*gOf1%a9EH9iB)nUO9!ITp?r1_!sBLL91VazDCt9YSOicXY
zjDO6rGb?sXOy`*Z&71dp(-w(-Y2rpmg}wf<7u|(_T)cSsRYXL{?VC0cVN;ykV-d=(
z?vV|51vQTQjlCCM;!S*%<@YbSvqCDDFQ#CxezacBbH8(H>{OgkG51nqv$}r2({>-F
zaJ;ag-eH`IFG8pecr6Up7CH4jMeYnLvK{Q||NQxXg#yKhOx?-~tjF!to6PW)+Ic#y
zxuV}&teR+2Q064}T^$z%re%=0fzsX@>U5%6RE(dD6Q$+yO3$kN+QNmAO)ms!tC4#1
zD?YVKsm~y(P|k&wsrXT>wilR%_b>&i!iqvT9n`sG+wg)rs(iyjrj`{g;%7IhJEJge
zAw^kS1E?Z{)5{gu2sBCky0>TixS_((60cpO(Y3$o31TkbGGQYkIPZ~7Rda<OCgbsY
zlz~33n9!Bp2g*{~Dpi<XmC-m7%gCl&M%-$$&A(8OC68|PJpC5uB>__m4)J#**bp2B
z(dt!j+FOJv9PfDAt5KNH<VMr;=)bVZ&ZPU*26X1}96^)xOp)A{nflb}mAZtfI`=|#
z46!UH>5(y4@PwIR-v&$Wxt-zwi^5pr^!QQNo>6kv_+MbZ!?OG&nJd~(qiZfANLs}|
zO!`Z-sT1q%NQZ>l<U5jmHD&HLAmvW68%XJRo0;q_nAN9#uDp*Wz_~#fXDUZfacMd0
zY6-_y1Kvd=n}Pw(o<UuSV=aHIPad%+robe%JP@Gj=n1=_qJ<MOJ+-^#V{~x$GH#7<
z@_FPJ*J8Ch!it5I^GY#&R(NHsfzqFE?<#1mjtcZQtKsA>4J)!!I#4e!?=)k-_s_yO
zN=)~cU;(rO8>BV|@k*@D>Q2f=8FgjsDyWjx9~63w6VrnEu8K>{B8J5;Tm@pBl>e}D
zHYhgr=|?~0JyW01pf8oc&0(?>GoRVRWRLY6XvmvWkG?x6{()Pv*Gkodrn?#<P1`7f
z1tTh4^}3{#z3>)g+Ldk{^#fpFasOU0Na9n?2=-i`dhtdJ&9p{p>CrDc|JF}X*JGgO
z8B^yf_H=)+5{?@*SID{U-Tx$$M?m)7^$>eX9LY{KV?P$w%u~^4>L}?dWp&QL?NKmQ
zZ*}OESGbU$eMh|poQT>gM2|N-^L31!b4?-bvAA+D=>kMwxQMt|gZvC(IdRarO2`f)
zoJ;L22r}5q?)dnqUn+P4n6LJE(sjgyIN@7nCSja<7dx3QH~M;L{?&R=|9()HyGrB5
zn8KM)XO*7gWHMZ31yaYcq)?kd#raL^BtQ11vAog^p!8f;6T)WMyTK78JJmG%#nLk^
z;d?icoA{E)W7BRY?y`Q7o;P)3E_6n0?&PA)ULaCeTYsEBO?a);urMwvxVtoJ>iPz}
zx98R6T(O_*A!bN4xob2mT&DvD<mvi8xdApR^;>3;!q9}cAT+4~2>P-`Up-~njp-P0
zxnTF{1&g8D6M-?mF_9UT*-}wKnc#^?iZY;v`qnU6$ktxv1Lnc}Ohj^vly<ghFhRX7
zCe>Gbx##xPwLS9C_&QHe2MoMABS)Wz9v-j-=RDvE`$!SHDHJug2MqL|t4N&74g4w_
zqntM;9Fz&G)m7~4*Q1-bqtr^-ff%j2&key{6C^i7&T*=NqNKf0s4{M?R<BmKZW*KF
zFd{O8tUGU4ne3LEc1iuS?RXSWt?>S%U2d?re>FSm-cZA07fgA>cdrvT32ZeFWWRvX
zwCYZ8|LkjOPA9bidj{HnVes;Ia&@0R?T0C7uMWWWC2{JpJkwVPmL_fz?mym<zgqPr
z#>nDQG-^E~e)FQ}-0W3w7h_GQgNxrM_kvPaGxl^kw&8F!<Eu44f(emji6~T{M+DL`
zm81a(G%s!`3y(<R>NEzAFzNnHtR3=VOEVjC_8EzjJ_oK|U4A>^5qxc?ZU3!6Jh;p=
zYqsAplb_<Ro;)twpDEqp8$%g&BP#5qUa=-7+3wqU?TtiKxBxt4r*O5h;JeM!wYhLh
z;$Eqi2aTCl`*T*5yYpF7E($JD!zw-R>1XnO4=IAXDMxSxyvFF`_;gfYO;%rF#YV2X
zxmyZ2R$4^UvDk<iedaUhZF84vjtU!n?QV&;0C#;O@Lo4xHmH6m*|h%`>iU`5uHmwV
z(k29U{!1>xJdy5XeO-Qry%#|qS0e?fWp2}g^7NAnO-lP}s5=5cU+IXw4j8O6za<|H
zU}(XK3(eEdww(h!I=qduqb2Ld#6P%AcgmIsVBWXOOH#fEo!${xSNUnjOSwgK$Sn#`
zq4~&pZEW{^D~jpJvE&%f4#cf>q$r&c`P68mm)wn7lxb;7XfU{il;nFS!DRK<Z9OJp
zzI}t|(J@*I%&nv#&$Uh_C(lA%B-&(u%Hy6M@qOT1H>Hd_(WVm#uv*jmbJy9%uL42I
z9xDU`;)+=+>5|6c+A{NIZ5*lWPM{v&&Y<dRPrrXn!+dMYM!a>jKjkOZ)4amPH?EVb
z#SNDA$sfn%pG|0QMWJETe75nsZZj^cyXl$@(hKAVi6o>=yZh~<JBE&<l-|q2e&U6k
z63--1TFXuK_Q8a_<J@<>)Z7%>gZhf|=RDKtfepej2#9E+ssQVV{g+4wk*)DEoz=!y
zls>(>OGSzG-cw1hT<qT=`4lqzi1znKD`0*PJJj}_qm}Z$A_kH6{&u&BjZN)}Z?j?&
z@q_AGVG5!Y17hOS@SMPtWe+U99PX<t6z5aJ&dRgCv<Bs@&OoFhCbKv<$F1I6_q((d
zjO`0ru-{aZnqm1-oK)>AY)3_#&D^2yS6`U<i}qE+d98wZleUC58%~jjs3P=TE$5CI
z@s=(v;Cjil|1&gC7Hea?M<#l$!I)YNqzrBmayxihGF5K#)AV@Q-IJbM)<R0zmh!?z
zTF(i!d#j^9R=7?W7kQeD&pZBFs+58XRCy*+W?;b6^ph;Aar(s65+E>^*ONW5Lx#I@
zQ{{F$OTGo@Zm1f%;+AGI!9eThXUWCwn=UE#Is9hp-(Sr&%UdI>z97<)T*42VW|H2i
zb~U}ldWtx#<0mMeU<QSz!S}o7mJw>83<h^uLT9x>pnn23u&;8M>E7Aua7zn=!2pi(
z2`t`ue+x}Giq8rBh4IpsOhVX6>UdetTAU_eL}n72HbjB!YEf>NaACjuHBFS&{1m*D
zGc^imm&FNSxO3O@6;)=e-K3l3L~DJBsya5{=7a6tJ~OY~+ZG9esjk=<Qy&YCcaCY@
z?;qPlymTMOH!l=AJiu-=+O(Th5Ax*T?+?sTi`OUly+5VZ=PcbHssDA`B4(kg`Jvvn
zNzVh0arMFx{MU3DCqpD*V_svisF0O<x%+aPSo(xWlOvs9rO>{it-kB(;JK>I+&%W^
zrjI5%UpolY@^~p0+FQOK{TrGoT-@|p$!6A)>_8KcF*>~^=s*@IRyJ}Do<m3K6fFpT
zV0Ba4DdJryd|U@>#EJ^s9<n$}Z)!iplxv%G_{(3~S=22#!mboO;PBY_p=q^@`xW&1
zd$B&W*;n-S`djmOp2hoFjfSq=&1QPZ57pBQE@l9*#{%eYe2?NX_?-;t7pf-y=BG>C
zlhEFpY<gFfX_mXLn}5Ypu5YwYluL7vLVk|sfJnM{LKHjGAzHg+Y;i-MY%VYaDcK7&
zdsd+fS@;nT>Ck$KC^o>QOS=9p#HMK_FJ1D-C89`QY+jm=lTw91oXn30&3I#n@7^|?
zb5wDduN!*2%0p5jFB`VR-T$U>K%J-AvZHBX%BjAQr{h{oN3oEvx_MRE6726G7rdE_
zujFVD+qf(|hMLmXL{^&?m%!(JFpZk)<~MB8Exckm)aEi8%xZ+ChoJ>}fz{}g`l6S!
zrq|dhgzGCkWcetaRLb|P!XIoB=ic`@R&&!iG0Mip%GpIRdFv*@L0xr(dytOu-`u8C
zo=V<1VHzyiUzp!8!ClPMf*wRBjexDfQ>NxY=^jP;>RydT3!Sd280%C$(|Re>4}ag?
z3}<Oq$bYDoW^gG(Rcy0D2*<)V*6-n^s!Dbx6gK=_r_|V=lMY8p?7g*C_p&)=nXvk<
zu`gyG$?hbR?&)`~P1u(kl|&b=E7*~mpdMN`V2ucXr0|H`j-qH|bD$||4;WW!Lkt?M
z?&_sDDZE5l7;(QcGju&swmn6rKCTI9`(s6pI38_1ioIAM;JHo3`tm<3T=-EVB=ly0
z@+GCx;M|j7FSc>dZvn?g3#Fa76E6ig!|@uM0;enVb{Z$thNeB66of9A7*V+%FIZf2
zqL>jP@s7g21Xt`C)qHEqyw@fZ*9cJ%2eQY!Y6FR^O5`(!r7sHiyi;_Sg=g08StwV3
z!~{RD52!P~MSpg@mz7EPX7gd{+wK6_UnT15CHd0>$Qm=Vs(nP2mNBx5K8EJNO!IEG
zZDmi_x!<Cj8LHjW*CtYYgUzcfh%dUT9@i8tnAVFnO1|tb80r72+Qnh>U~V=4DE*Mb
z7fJUsiK#=2RZB>EE%S87usi*s-d4S&h%3B`n4l(olHjWQA3DtqE&9}^(48|E*z8O7
zHqu!K9=qLkN9Z|2{uA)H)!|*nN4Gm(EFtRNZ)Zn#Z4g*z|5kt4%_zW3A#!TuG-2$6
zeJa-2*%Q$#kMgIw8CUfe+R#^0w(ENz><oKPd8M$8*AOah^%s4|6K)r~rBFJ~vyHQe
z4Npkf_3R_CzV1o+xm*~4{<mW{O}+G)*rvOw#ztGA6=d@h=muZ|%<sX18v*g*!cZ+o
z#;5~94+uh3EJX<PBkQsj35HX9jvz<w`c#8kS4k|&+0)@_My|PWRp|sJ%}Bq{)Ocvx
zc13>Ml^`_IoVDvV5NuCX8c<0Tu|wi3cfT9?J<#Tezl(VsA~T>=N(RSjvKE8$#wyKc
z(qP=Q$Q(A5N-zOhS#_-ml<9Mfhit*ER&T&t@IprJXzJab(Tb#((_$GDX)gN)uKGO9
zO^Jlu_3QlD#48#5roHmiV&A4xy`NqIzGhT9hoP$9jD%{&jzuBY;Iv5r#msEf8C!3p
zw`@dHukI7C<_3U&?fb;e31*UlX}){>K<Q(v=EgCYS!^b;J7v(P=Im{wi?pN3vE<W9
zY<nglrZqZUwb=f%<-2-L!;PwDw9AXtV_DXOhE3n4%<c9{%dVtMH*JsGT`p0^d1FCd
zd1{0h>*1++2R%?Zcm3Gb-(5R_H$`%1s5<efvE>tD@ZfiWxIeupMpaAiMO8U&%k_Ht
z-N#&`_fIQL2)^z45aVP){U~|-&$&6)%d(|FMzc#{KrAb;a8GCk{2@7+>g;w~S_f;*
zyQ%H<*ObOQeV?Quw{b$o`9{2sA-&@%QE{c@)tthR^8neuw3oIgX!tUPr~PZPZrJ0T
z8aJ0m4g6&9_pjz81>cpLK9;QC&?YshHHORiJ8A5gyI#OyWlX~MZ06}Rz2&7PrnRM^
z+YgQ64q`&ITaUrnw~Hrs2CJI-4RefRn`3kLH7&bc62EDzG#g5kcc#00CrlSq3ga^K
z%*6x6a%inKa86qVpib`TmyAs1=<@xb+OHO}nigJjgpW4;dTZvcghaUTDc)>W*Z4K~
z%g~>Y$E$WVL0hhKc)pdHP9Z^Pp&q}{&0Mpu*IQrTj+E4^QFxz}V<UYcw$zl?4@GSX
zGZKjiMBLZ1_=P<|Jks4%&UCQc{lnI{8{px*EkZ<~J$6MN{&VtSQXEIsAmXXADnVcX
zF}=HQ+(q<5Et6nAg5`@6z@FV-?&6RA^Epf^V7{R>yLw&fi!acc)9(tXBby7b+RQ)`
z)eT<Dg>CeYONB3Q|D4MJ_S{l-zQ{POtXB%#4KMjPEc0}w-rr~qylWv@5dXHI;@j<N
zX`zb!P&5FzW_Scl_;eQg#69nT$sx@*B%BP06@oR$G}>k^&PLji9YB~@xWd7*`^7~K
z6n{L-M?gBG9#N3$G;FkCow_MU_(-MC%uhtoxSoY;MA;Yc7d5;NK3g@6cuGk6W>cG)
zC|_QN*wjwmu|3Pt|BFk)E#K5w!JO~QtuXFKI<zBwUZOVoL}feYk5~3Hw!NK3Syn7l
zz%(V5nYJ(Gjb~%@Jw6|caj0_;QM3=+;K;I^a!z88uU{*9ygMYkkikl{oO~+DXZZ54
zpS3nvThQ)o5&O{<(r4qr;-XYd*RPk`Vvjq4b8e{%{wMCgp7>s}G`v*rt`p!`3HecR
z{wP5C^3Y1D-d1Wcum6ms(*klfV&wx}NRL3JKQjc?y!3VG>8B1fmT%M*(%9EugHadA
z$<>?Ib%n6iEHPAI?mMKHnHIfz*inuUbZtX*Zl_>$vuiL|^yt$!kc{GTVH|oJ;T;5+
zpH}Z?bBQT!d0qediONBXpD>&PN<}q?dqNKm78?Mo3G2<(l$*%mSV&WWuKm>JGShuy
z(dq3HD%wJ2vr1*@K5=U^A{yUTQsP-BTDAQ!5Ryy@W{)!FDHV^9|A?m7AQJ(vch+<7
z$-57(a{N(wo2KerU&MednL<3}YZat_LH#fhj`CQ7t%prS>ENbIwQ}v$mKld>e{n5$
zGl1myg|{t#SnzV=!@d5Y<q{Z&{%ZZJ4dq<jS(U;<7(M%?d+2E(j5|q=TiEYb?{;lY
zJ*8fLh+BXrAd=7Q0wiBv>;}dYWd!gPL$we0ke3^$k3~4dvF9|x>F;Qgs9lSM&bySQ
zt1{i(!}#3o>r3e*0h?jsY#qi>kNgplNfJ3tKB?z1o#I04UT%DITN=0K^CwEX+#I!#
z@x#Y}zAVKDsuWriy$S>bz3!JJ*i@+5ed+^DP+QKP1b-@Cc<bp=YVuAGjK){KC^hOj
zkrXXxtfJoY<&U**2u!6t@jBPH`y<LY_2J@Rt*%6xq~2=PD;aF|(?On&(9`{~O6%u}
zwV~{fcp>>~g+bTfhl~pSBh{|98C<M^cYSZ3u9q4T930iMis3XM{xaS<S>8`{8b;RG
z6Hl=W5_1bPjstbQB@-p(WYjs!3fD9JGx1gspO*eAcpTXH0_G+t^U|H+fjiw4ZX5a3
zwxm8Drt5VjEjMB=RS{$x`yO9E<741ete4MQ<T+fuGTtoH*nGL^3NBo%Mo|tYAm<hH
z_#1_9zz5N>rl3bZTS}bGY5e5@M)|7*KL97>KE&Q~GMxR9zq%-{x94vGvJRr@S|H!+
zKieLj?l*oNeti9WD|=5?H#~S{CE*@zZ~KYAWneM2*i5-)&qtp}W)i#?+`W&1(QuQE
z_cqIXn+g>^l?(It$IE%q?X)X%mx8s4N!h{oR(2(LsNQ9c*F}dkUX5MOsr|_g@3gQ`
zQ6n2lh-ape<^Y6I1^q+c%#b~V)v{A4nP{1#E4`K1dfJ*qQGX6wT$gi!^in3MLAtO|
z(-89IT3y$%QP`k<bo=(ipflc0x81awH>Sf<_v2nbb`zdnoU$1ZtO+)kn$VWf1bpzI
z4bdA=i=QQg0kv+r6GlLjam7*s%doU0rDGN*NnY87_2C?H>bchy;KFy7HrwtQtkxj4
z39^e8N=BYf16@A*Glj7E>2^^z8xs=ON4)z}TxzrZqw}+)70jxM9EP0l8f@p=u-oXU
zG<5*D?44M~tFva2zQG6gUm&XEt{VEUUmb3U`zAKi?=)3VFSjyqdPW^@r~<4Gq)^Tz
zlB=$r>QJt)Axg~rRfL!4gLm!`-@&~#x~{r5&sUYzbJVp7G~enk8?hYnZHZmta%j$R
z4J&6vTfB4BfP3$o%DN$a*vm|zN7oPX%=|hK8YhKLKZ|~zH7_qox1}}Syb%c2reH6M
zTK?P^ttq`TlkaN6MV6E`2Y*D$d8xj)PL&nw!Z*@53P<`gP7|Dst9sX*HswladoM*T
z`)H#}bc-2RBlv#z;{^lzG9;f+MtqH)Ory8+SDh=H8_$_*T&f!LcX~ch|J*5A6_ML8
zJ`o&;c6w1rk<anB{$4GbnOInZZ2z-@`rs~>YJ+h;`$_=QQe1z2qfueP1cIQVwG$g2
zR$V<+iFtv_O~07;<^X*IkFhxSQiJ3#i*V7#o25SseLTBd?sYeBA=U|l23b<CfKJ)Z
zNtR9!`EJqnlU|EXix_w8Mxrx#%nUnE?mBl}^(o`A%5+f{%~6<z>8_b0^m4t-Gc&gl
z#f?xlI8wt^HU>f{IA2QV_3>nTd!BuSwj0H-28``^27x8%8LH3UdBer2)p*r>M+}W!
zlrk@&I!u?hOC#P=*YT>{odHe?N;h3WL6)PbkZo5$v884-s-y(i+O?SJNA1>I6Cs;k
zJhIt7$k9JsvOwJvlpPB=RFrX8QmPw)s9K7Eu^JVd?auxZOgWi<lMnt<IKLkGWb|m{
z9Djizyecy>+y7f46x(lmTHSXB>e4+qYkPa!>QrK(V?f3ze14+a>nqi8w8m0TJj+Gz
z-?pM!F(;37r!#+AN7N_EoS>yiF~woCB;Krky+E#q;kd61Q&LGG7s#nc27IZRiKL9v
zWP!NV9G6-eY%B2AR)4lnmhZiTGYRGe{-_^g83;aypmYrHU9_9RBbq=`=8ki)E68nB
zOpusiPq^tnsn#^LMKf06xW~X+BXvMuzUlsGidQPAqJV=^AU4mD!6GxMWI}Ygi+UcE
zg4h{3ydco=cEvmcJlqu6PB%x9;?PkYLE~wwp>Fp%C+XsS;uuSCU!mRG0jBuTAlXzc
zac<;84A}?X7lp7fkSL>W0ullj65OFP^Vbs3V!Z%?RPdT$Ze!zhyUykJGJzb6rq!IW
z9Zdy$S+r)^QEnl(0#h34)I#bJR3Mc@e?vOJ3v}D?4blN^;EW_P9=4xg@7A4RyVJSu
z0&FDi-x+ewYy3W1Vu(~A<)YoISm#xD5@7q59rf?wFLU#&F5ss9RrVXNDHyO7^P<jj
zv%Up_lNa0{3PNX~?50qfGrz5ogwy?(5@g=APz*cs8ii-V=CGn{31zvum%m8jR?}d?
zsUFI-P|?V4y3)$x*8(W)|8;jR8|Jrn3C9h8nfYk+!_=02S4H3xP+f18Rg}x@xKbS<
z2Z+)2<A~AOTK4%{yZ^0V_SlupP;rareFW||>N-5?zO^u#9^gz=oVn;ehZYdDG*H|W
z$=e&Va5bD;eXQ_$db>y;c_-I=QRO@iAv&!aERPE}^#3r_tFL|nr4)>HQRv)=M{ho9
zMn50=Axhm+6OGJfHw1SlbXRfcP4}GfGxcE1E#ebVx3d*}{lmoph_1u7YpWg89(v6*
z<?L-=q&iOQaZMvkD0F>ZfV`BrI%7KY#PEFzY2P82{2mxjbrHFRL=-B&d?cArthdEi
zwu(L;<WjCU6C6;67y`C*_eWsd_lwo9G^&#`r6%{7p$oha#r3ZBjHIH+S%29N;43Ks
zz7K2k##tCwdt#qY!2Pij1}B>^9Z6^VN(PjH{qOS64l&;4P7965EBd-@8`N|<`x@6E
z_xobU8yIiOuQ+QZw|M%2%kwTrJ8rn9jW_yGhwT4mylZ)?Dozk)D~mv2s+L?vHjz8#
zMW-0M_&@D`i2~)?;ve{#iu!s%6=htE3oC;)H^>sYtFtiUTK><N2Y7F$Vx@llRlEx;
zgUl^GzaD}p!bxicuq@*erRrm#xBBADG-K_z7FeM=_}IMa88*b|>I?J|jqz=<zK=fC
z^(EsHmC;%r!F&(+HH$thdGJLVIC+HeAqmcjVLX{UwZpg>Pb+BPfvEI|vLP5>geVHN
zvNJwN<^3;AQsCvn+G73@4vJ(aOCDYt^26L^@jBSb7c5{WanbmnS^%Kt8Ya-Iu<T$-
zQ%`H{jGrHCSdtz5mt`XM<4HQeu>9ZnDAXc~^y%mVV}l_^dSQt-cQ4|Uc?-#aDBF1N
ziJ^nj79{|~j9HleKR@jM7K;7<a}x6C$&k7Vhm@_qtdJ~T2jqV<X(#2Ty&CqCjB#(<
zIFRGQORe4K`+(IVm=j;V6Ag{P@bTpz2v>-xk}@s<miK}G560jUC21jpr{;vv9$8fJ
zfw=td5y$_TxWm=_OsbS5(lV@8uhI;<zl4C0DNyPxEy37_)l04Az638|PZ-zzxC;aQ
zMVTwS4q?0s84+q#Rvv~aUd16BG8!)9jsTll9;iOg;B-<fcrM*`?HbErMo0T7X<r9y
zn<3c1hf<Np^@&CjpP?3$ZS!EUx*mGqdnhD}zsxveNb&_}#tfpLiW2TlCB>w{SZE9K
zT|amC(nLEBw6*6l+c-}7af^o!MI|W5pw7)(fJ0D}m$8afN8DsOrXQxLh$}^QSq%D(
z6&Tb}lw-MLx&Fm?FSQTz6`_LY6)#Dx)sHat(=+<>Dot`j)Nbe&ZE-j7F`W58?Y|IC
z0^@INbsV-HfT^_0wLYL;y3Cx2-$U>cYE0B_j5sHvSX-2V6yg8%JT0AbUzC1~F|Ir-
zJqZ+1Dy7`8`ZHX3%Q1oT16IVewz#LU3Qa086S$rpC-T>Ug$dCNOH}+Ifs3j_=c_8<
z_!HtsRB=UyFQ5L@UqGNqUchG3{c^602R7%%#n$d~4Srymt*GBlANt+71hY)rIT%4t
z@<Sx*z<`~9GwJdi7#>}Tg5Am1t*?>B$)a|ZaLB~?1_|8hbQ#9cnarS0{RuEZ{YnQA
zg<4D@MZ@xhM@l+AGG2x#UT7sWL8T?Bqzphp-$NIi5cabMA^Unj5Bs#k)Wu(afk+S|
zWVc8R20ZSANCNvoEm4vkCuX2p9(NNEK+EhcNvBWXy@xGPq$9vdeGh$5SwvA1$0iC`
zGL~V=b-sXugXYOHn@g)R3$XsaVK!Q|C~mw1qOPK|{{@4d5z(?abPWqb6y6$%<dPzx
z%85UJ&asThLr5rgPQR~adI<{odrD=fK;`tktc>HoEi@+^VzwPwiB3~h!y!zyrzBt_
zvN%ta^8(sWD^}?YR2Y+!M@@hw3i-8YzRx)K-v&7r=#P0T*Ta{h<m_DINZH~-(Q|Kp
zdx*%xlAcqmXf7{{Ob;ienNq>GeGMXYRy`j_|HB$Wgd9CeDpyQ7mb`;DBltlHVWoXp
z+|}DL2RdwWiXm~RbS&34ddD&yJHT2@8~ys}K%1@p-f?j38IxsDJp{J%R6sC=<Y{4d
z(nX}FKw9$v#zbD=<^AerZqi9Z!D4~cH?TWT6Rz~@uBJO4{;dn@8rO8O&BAp?AcyeC
z2WR4J-!?(mkB0uux7j2C%z!5X6oL5}f)=R7IMM<vF&E}{u>8x5t;)z$)NT{yJcBhM
zTMiM761M;D>yCf@()0pG5E+rijiQ0?rP`3HUcK7+duixOdEQLR!vx$BQIyBMle61b
z#^D(8*?ry4gNdL7R(h!oh>^vqu_UNxS7F3)ZlH=J4l7H~X!Oxp9lR!+jcrQDQh0xx
zKdY%TAVytC+N|0fD$eM$v8Y4I&?`{;)dsrn#V3*$#2CA?8czGSj?E@Rhg(U387yqm
zYXK<n6AhcoiLN6M#e6Q<>5d~&V<NZ}U~{23z!tO=^7{c}LCkJJ5x>ms<&TIA(iu@K
zV?HLUTuORLKxvbBn}{|Z=7+2F-z*_od#5wh`roLeXnoS9<%8RX<?D=Z8*2?9<{~cl
z0{MFysTvp`+ZY?@j6N{mNuHb-6fLAQ(^A#mqO2tU07{s=U<kluX(pE6XY<o5{{tIm
zq!s3~D(_8KS%TRSsdzb?;ol@xge=>RA-=y>u&R{cMc>W*?=O_A$#XQJ5!ZJAVV@eR
z(E)@hKL#x8kB3)XOZy}U+wuol!i%RvV3vSKVjmSRv}JYa>jA4hoh%5<#fR{)x?r&1
zC#cy5gnFBT970>SyGTxuM7ZLGM&xjMaL)QzpmM)bDHiY;%4Ru05^sHPfMk?2j}27T
zWst}3+t#P=clCdEQB}bDBvCpCJ0A*c>di;iYk);?|H6z+QaBKlLh52$48D)Nf)fA`
zaim|z70yt-fbs995|7oc9q>RvE`E|If@?#m2;tsoIMW)@k!@-Tq`4CvGTjou>Ni-K
zHjgna7B!}ZD?yE^;5J1yly<M+6h$MKWtC(3%p!i%`rR3DOc{rl882sv>NW+IxVf53
zp1yp<SmM02rpBe)^Q{fSLZ@~(fK9U+S5HtfcU_4d)D?F;G3U5+xf<>S{H61CsT|sZ
zY8Cp6syHqW{_=^hH#net;JKN;glK?)B4#v<s)C*Q2wgUiN{|x;rsi^w179qtG?}p{
z96hY62Ov`m5}A%paUm-M?KQUV1d*-3YxLJk?IBfCw7VW1{~s?<d#Y{oBM~IY0j_DJ
zyP}PLsq2lfSe?p%E=^mpUZ^f0;oJ1qT~VxiT{V!AKuQEk^;gw_QmAxbN??GEi*YiO
zNN>v@JE_^+xipeTKlw_P1z2W`HZxa?+scU0=QzNxoT|Rbm-@Al-!@y*J*X78t9$a?
zc<*o23**G}M5d#hy9_-xF=${W1C<jwBLO5kyH@lhR$g-?PH8^fe^Y|Otc^C9{^PxT
zI!q_LnYdOziVN8_qhyY^Wo-aW!_}@U?iR8B!@^tk#uf${=AXHK!)C~Z5h6^_c6&9T
zfer~*<v2D!Eqs4JP+38ykq!OVgmD+rv2!`Pg*9WjrIp>}18unf4xxH0&rSmr5%$vn
zEgnSMeA|0Vo^#tU*`MeRQZLFaU83y2tvqn-<yWpj0wkRyvJ@}cXh?R};z3NF0K6YR
z+OKlXEX^$YS+SR5*KBD7H})B6yz`G~?&QgOxC6tA)Lj;;2mrd4Ssb7mvDj57D6Nj8
zqA+4+B0lPwq?0!7GTrrD<Ls)#lEJ0M$q2Ii>vN|VlrJx&B#^jGQ<jVH-&EPYGXp`R
z?|XQFlPM1dDL*sLy2J{QeR_wn+0YofW}<Tv+y<0mjN?QV%UKT!VDfCq?^yl)EWuPL
zd;tZ8M#`LsdEl4?jt&L}x1XKuFm4EH3Xa{lBe_Fwh4OLb(CMT9z4T*#bV)#3le&;!
zgU;Lv(t@m(Mp`YMXwCq?Tj<4feIqx^;3y5l{BfkpzIq?8_<6aerHqknlTGb2{Ve|_
zqrH}PqPSmQU&#pe)wD^U%UtQ)O*eJ|cV)~3qdZY*s1mLTWmsL!+D^47mb~1znguiV
ziEoDCwjG-yj{Xjk;<T1)W~0T0csU9#d)}zgf7FCjde>X50T;eSmb<^Q0l1Ec(vn`u
zbSLiUNv?PP*Pz@6g@w)2cEb+j=cKE7oFmT4=gka0)?B|k%G}-6czGz22ywzndqw}%
zKi=5w((vo@UI7brOS8MP^{~{cYp^!SJKy`Y*QR0N3=8HeYC}bgy&vO4?K**2k*#T%
zve4E|P!hJK+4c7c2JM+H3Hfr@2aOxTUEv9w7<_DbX8gjpKEpX<0HN^0gwZ2Jv4&Sf
z^}zo!-1oat3CN^XdJ;kzFK<Y`hrFW8KDxp?z*O0)&UG$^ha;LiE6PPwy(U!G@N*0%
zXt0_KYj(MC0G=PUccLqNL@LTx)6-WGncuw6cZ<XP^g$=X;21<Q33s)FffLF>$g8<2
zLdbD8`2z1-Un8(qWaLZUSPXO%Li!bX=Kw<^qh&PPYVVAlv>$2%)1*l9WqR|kcSmO1
z4tz>$G?=f7S-JdHm5jnXd`>xI*g4&(ag@*U02%W_&i#JF4s67&-GxKnqxPuH!Jv0q
z%ax-<haL)*p!FLeA7Vq?Z$O%j3os6QTfPMM&0CkJfmQ=}>v#Z=j4F!Z;^D8D{Y?q0
zn~W|}m4JvZ<Z4o3l0~9xP?fEL2l2Vh!>8<kYr4IEpxdLjF~W4~9!l`YzZbB9qJ>Mi
zgwmN$un9en*2+0`!M0mHl|FW4T2bVT7#w+ID5lr9Y<hfvg9n=5>eh8>p=J+86jTLl
zP9jaZ4&Q@92vJ<Yi2wDM{3sPE94mM(o^%&blWFxmOT@#+-wVII^zoLq<aiNpei2(9
zl&&nF`-6~?NQ!!W`+%#mQ=XzcztorDOUwFok_IXl?OR7gsWiylf14@bDWNUBAN}JD
zW9=7Tp4AH7IbpKYg;vO)_`=Sf?!kwRh}@Eng35DX)cz+pVr@02DAcv33j)v~cRL&D
zx(swZnm2YU9h<(5CN!=2uKZDPgR3TceF{krv4iSPC53tZgoZF3w?-eP3W-jWA)n|j
z+9()cy7+EuIE7vetakSG=f(WVe$5UJHtX`pkVr6NNweTvAPOA2fD;3qGaf%>%<v_S
zAH-bJsVxk?it7zP6O@G<YlLuH03wO>8Rnzy5ew@#@NhL&-O*QiV*g3}<kv6VCjr+?
z(h_h|JNfKMXois4vsv%#{vU#sWahQs84{~Xn6E=iJxsFCFl%!RZT7u^l0h<peDG5d
zFG=mydRTz2n2CMZKWa+Vt@}^7Vm6lePq=c;KKh>?ZkKK++m<9+!W1vseXD*AWF(XD
zz*0l;n3pKZ$i?|lGvjnjMfc%QO^hu;J<S%nauk8|n+MQ`0@P<a2dL(JFI3rMkwW?o
zqv?9MgEru<JdO(`u4~2k!38w>8|2xdn&NCTVQv6V0L>Cii?^L%TRL!>RzqhMS{we?
zqZZPCk6L6eL6~UYz)|^ttq;8ZowqT4trq8ks>ee`6(ncnrKNG8Z}G}n225FB=&^n1
ze@Nl9gvuc;LP)jCkkjV^E(6F&wT0*PX!s9S#F5^Jsv>J)b>cV{VP3ha|AGy2c{xh%
z1j<iHeuvR@H$hY-TFQRrzrw-Z8Bx}t|7+Be#PJ`G|N3WQHf5#@)&Mij+$K>*`=*Up
z2DdT+SLwgRq0Cu0Oi>s|0mr0fbUsyqX(^=I->6@f+9;a5VN4UHf%<hQVS!U?nj8qL
zbG3RN{x#`?RRN#+6+}h~N|+%2oP}bKt0U?<+}|98q4<Cq*qm2UyM~*q?>aZCp9BT*
z2&;QE{bY32l{!LWpfav^lmTZ#n1SV*pI><v5AE={9QoV>$=_}FC*VHLYCqsiVimaf
z<#sv5+vA#HwaiYp$CfNnV^?sjDCY+doO7VNpfCaJUzpAVm2o6hz+1qhp$)|3Z#{uV
zSlOAPY-?cwJ_2|2c&n6tw(6wwgJVi|my`I-VqT26KYdAt_F<l2yE7kt9MWed2*BOo
z!hP=rf-*_Q>Db;AgKWhDPN0eej@!_+bsqpdLGw2<eY8v=Q~doWJ<r2qDkvwwv8sX_
zjMavJy0Cw6%!FC$ZFMevhB-A1Uxj2Hr!KN(57Ki5_^YN)+PDU5UAhZ(ZaEH}a<tL_
zEEB5hX0oHkk;tNL3gz32^0S)_3Y-iu)N`H<@%Drh7^q^mxO9_v-EMJqgDWz^)Z4wA
z0GYIw9$xv@fWLATR=&mn2&Eh(^T5W><HMdlb<g0PBs;Gy@88{CRY>Ei0Ym~xm}?X(
z0Oequ;Pzi_>=cz}kg7S98;^$O;C;{TCb-r7DM?Yf@;*~C5jG;V5y9YQd!#7d6<f{!
z`SI$EGxA5E2iR7%(XRF0B$ZT-HmhkMt2_1hC#!N|oHI$=(HZ3ga0P2?*CY<xGQ6#9
zyjS>w0gKN@A9iDhV)5&^7bDw;wnx#)OM(fc`|}fKk2OFuVLvU92CMUjemmm5S@mU|
z{jC=#X6(wekWVd4@#(_dff^Q+dBTrARM~B+1tcn_!mWfX=#D3z6n4+j#4>?o21TF1
zZ2I_C<I*AeC;dipF3m7Wh7GaV{fli}Sy%P3ed`;Dovq=k->cH482gDkOg(OrDkDFY
zCyS_@jn-G4KDp7dh?=wuho#COQY&@_-`n3`Oe9Ufk*?<PkkZdFd{UJjBz@DHXd;@#
zo^F>2^U?E|fN^Mf?4(edGQYj2$pTFYq*du@rdjL|(5LGWd#ZN-J{XnC9<J!=+V$iH
zE2Ld^KVR|*Z&`qDQ0}ac1Df<vdkQ+6iU3@{`i<qRsT3s&U|={dS$`^V?!%vqVDF2H
zsxO}u&Xzn2+eeWUfS_@|-ORqVmIZHX?aE*ib=~A71}Y8tsmK1o1`gd|xfTfy<^TdI
zw$qvy8EKp(4NlArvp${GaG*)`#)zPI*WM$L86pEy4<966dg?k*FrSyB8&^Fx0%W9<
zPQDpq$lmwP`WhCd`;BDOF5CgK!D_%62p{5vep>{oHK?q})Wgw%F^?6~?_lfyE~C!#
zEb-=;7*2Mehx<_Nf{N>-w+HyhWC-TV(+)@NI<|Q&jXyy`voMt}Xh8{Y2cfM;VD*W?
zjcq7J+U)q>yXOG<j`^irO0j0Vg$&v;-M{)zhO_|Km{h%ty9Ay~CdI*&pJq(d74<X$
zHRRo0)X%SMdS(&Lj66cf>5}=w)Fl8y%}p$5)r+`rC3W@dI1%2MBllC0pvom23u;Vw
zCMupC3>3oM0e1ty-jZ94fVf4s0RVLj{f|pXbO%#wByhLV=lXT#T|RgDcy|Si4<<FC
zo70=MJ-ll60?e8qm$RQ>Z7UCHzZA{}rJ|1G0>>0zQXy(tDe3FtOwZxH&!b_j_$sv4
z_EYGGDP;LvAE;QC?L~)|PkLZd4-?zC{Z*Ks<pNg&v73t8y(#uaMu(Bk!ubsBsBGN=
z9Yjng?uS4dD~5h^BujEN)jpn<ZtH@tuRly>wjd)Eew<A{!HMbhzkAeRNkT&1z~jAq
zn4R!qoD90}{9IQexcF5+i81^TW4MK>_8+@nE4`q4R{r|obVVFfG7mHu%B7v=QEP1w
z!cEjdw!sWVn&w$D-ztMC*PIfE28(4Jc4JB5by&$S&1|lAwkT^~$|{0_7aNU=md7g&
zfH$u@!2ve%#Y(&<JWs^$R~%tX6z3%TCnIn2B_x*<Q@gmmm2!&wy(#p%m0aEaS;7)X
zipV|mP{LVjb@fy&63REGurs9bkv4=0#Oi|(JNs2Wb1Uu%GkaKd*<@Xr5qynfN_Gyr
zOW_O7(GMSP9Q&gyH{x>9<)z8atSR^DbB9#~+*_Z$66iScue)2KuRaUEy9(qwz7=P7
z?EWT~Ge3R}2Seegu>sb(7m_!U{e*Eey1#1KxUA=dL7DD=?Q9CUZb{mq(df~UA7`Sh
zPbG`T08i-RI$3cmS<C~&mjsgA5nEyxe>c&|%AYE|Eq<-;qRaN5Z9=8U_TkZ~;;-y3
zer8T!!X6T837S0p_VjgY8*>oBS>jJK;d~LzeQD=C_VJM?;ip3*{@uKawU^bpo`lhy
zCzmeck>a+yakna>9V8};S`<F@)SdQB_6ojo2>ejPwHB(4Q7S&B+4;gzzKr|SL3?xU
ze&2Eoc_$PThmCoza;8w8w8yM#@CDbyrt;})1K#J5r1h074QenadDJO;R5q#XN540#
z4D%T7>jZbjIp(QmbIZ;=D(60}`}{I(FkJli;kd?BlW1v)1pd#y_C{bi*GHl25}#lz
zXQHL?N6e3_2zpF-wLFZn<|&h4>N~t0q9YBgdQ7?`X_`wc2lWVhpJ-uqjx_v+Yh)`%
zroA^S_}pGQGQ06_!hy5qEd%E)R^%#I*WFvxr<z0}U2JM17c!IPZ0w%<>4dFi==*Ep
z-W@|Y(O-NQlV%O!qWp2+Sq{~H#kXJAul@HlGG7bA6i(P#%m0X!fB3}VNw4PcpEH<u
z_s_g3EaY$XL$bBoiU|3Z7@frEJ4e=&T_W#&Yh`Iq978fA{}lN>#V|Zf;dSq)56<7Q
zW?V<^NJSF2YHlSyKqh5t-+k_9Ce?3{jcCu9#H`fcgrdmdqN5o?^<Bh%8#P!Q&QbnJ
z$ak<IX!4$N*y-P#U^8GFcfZJ2wX^+Hc<%ON4VNo{Eq2lA<~ui^j7y$vc!g)%y?mW2
z;nb$fBjk&^#E!xcyUe(r(v#)_-ne`Pl>AulxCQadYlOy*a?L)Ee=%RT$JNuBVqlH<
z5_tS_m9)ffjw@eo6`KxYg;%Jcr5u?HZzmf^0=dVn3;oL4?)9cKr5y@9>3fx=B8NMv
z0-z`LBv_Zdbq~#ZOdfyxWjF%H&mTMTQ^wrGM{HTY;ZWLJiSvOv@e-3xNg12JiGm8{
z#K@G2A41sudcB+IOHTbIdsct-rE(vj_ZfJ1xJ=9cGn2&OAa+ccW5L>$<?~NY&n~c6
z^yz6%oS7E95p(q}^t)!LWkVE`S^5|vDYYxSCpY==l&5xRDvv8g>gghL(~FUNPAc#)
zV@=`ISk9eJ?`92p<t<I9*-pX3@Q3a<`k5!R)Ex~)yyb%59JaZuJ70Y4muk6+?+&(Q
z1GC}O-@fj&$S%OuD%)Z`DcKU>9CJ$(Hj-;~<^9@}Nr1$1T=frK6A9h;b=;}h8S5Zc
zDmE~Vx9{X+b4aidZ`#5BqUQyAGK`E5W3At-S(oYal6_Bp<Q-`6zUax6Xf1Ea*Nz!c
z85oW*)Hsc~D3iR)y|S-n?xca49#S-+DZ$o1O2%70XH4`NmVIpenzdb+&(CFMhrHFO
za^Tdm$jjy>)=*BfOWG1bzPD^;{9=9ua~zdA-NI=qXOB`UvWyB;`>*kb%Z?O}7VKQq
zy|v&m8FhiCU@aj@<i%LL7>TDx$0<&*V3HIZ<__f@ruwkrGmfe_-c6hT$z=cj{n5$T
z7QYsWNt>23=?T)si!yuHLq`t}D~B9uadrBX{H5m5fb`XnPg{yo%GdY)$VGOVcppmT
z<hXi~<B5=z<R^^v<XK(a@QXc2fvV6cO-Cy1KmtS!U;DL5|DkeHmtD5@+%K~yOQ(AH
z5-tpc=JAwf%v-N6&Sty@d^wO5awxCarOJ#e&<QI)i>w^`_LOY2#58-TNQ&-Sw0J_q
z{@v-JOA3nBIzMNN?h6QN|G=MTEWjygw4D3K*@|OUki>KT(knTA-Qd=nljq~OR+IR?
zcP^)*ql%9Y-{whrT<R%(BD<e`Twp8k>S1}A-HqTQRX;{G-ySZD&^>dqM>s1IHh(``
zW#Q{-mfAxEKc{F(mdsY?V<}7Dq+0{zaKLiYKU~sELr+$R7+vL6V?rOrW-=YkGT~xU
zdr=o%&a}p{H85#|Oj1zcIO=A}wA-3xLYZVLJ+w6WQ*$#8F?n<nn>3fh?`gW^5K28X
zaab+Jai(1D$jYk-t*Mu4>*fM;+d-4J$e$t!xFp2NjE#z#;Mxv_tEGW$V)MrMf`k?O
z6XzsF*U6g6kAfeiKPhJ3_%6HjPb~n;Ub63_Q*|L#XLkZ@v`$II|KKRY%0xJJSIhOB
zJ5YB3Y?d;Y=F~Y7D`rd7xFjHU%+ERXi1esqexmEoAAB=StWvnizvGV^D{)wZlkbHh
zvFt|6uRhy)sIC}W#q2gd3P(k{TpCi4zMA?i(sQOOULn)7PqEB0aHS)ZBluU_vqa0F
zt;vA#wTx#)_e-|draGdW7EekYQ#`JYCCXzt7xGLj{l-}DWv@p4$=Hxt0i>Y%QGK2s
zpRXsJP~E*S4Zow}EoG~sIveo~s~jR0Hq9q(8O4SA!^hhHbnqE?T>$fwy@(BEseUS}
zRD6>li&97xivMFo1Z+`4_nWN1zMb89_sgC4mO8&(d~|H~6<-m;5|-W6w8u{knAkZv
zG&~$sU0La2fAePOC0SWiTH3i>-DE>4pQSM$$p;^PZomyxHzXQt`18P(ZE>#4I-mRw
zEQzpq(SvKxGeo$nq#s=SOTmC|>!{2+XVbWEm^N1?$KIBJZjNXEyT^Hgha?}$=QX%S
z`_WkTnSzdD1mPocm7~U*n%{J|?W>ByBd*SGO@t`$Fn3I{Yc{P1UDJ`KTT*M~)4q$F
z)hu>xt<6nPyc^o~N_)DxJkA9yRtWku5Z45u4{rqJb$l~B*R4*{kcP}@Jm-9vVqYdJ
zNBEVjg$aFqG1s!__ow5fiL}YFOQ&YHq^=r$s(yPwW8hd3=kr*p-6^`tq}$z6Wq#D)
z;Q>#|hdAt55_h*1n90r+{Z%4dO1Z$n<7vmLmcA}^iut0*xWUoAh<OKvaTONvPFTf&
zi;wTAH@0=he;t|iF@yOW%Dhw`w27N)|8VD3?O$uu7RBKgT&dgJ+oOJKvyGE0zSf1X
zJ$&=tMstyI*`99Yl=h92ZET$aoyJAEvLV>8X_2tnf!2xgy?}M;mzEq+knz)cy3~rX
ztiO0Y;kt<z+YD8sv-$9`_a-Rp*Zn87*S?r*wqs{3O&lNoJYkxxV=fyOe0#vm?ZiBO
z`fp9mPH)Nb<7*FRO%QD#rnjzb3i~k6g5PIoMdd43P#_3SU{l79<QEjw`G3v21qV;T
zF}%FIm1Htm9bsnH4T-5~xm9Su*6NJ0+_h^aUZ;m`Nk@6XC*$#&rGK1ZNNPozk=x0o
zBTdid@y4%4gtnd~X}^ABRK$}M)X@BCJ@W{BW;^xN+L`cZL7UxezU8}<VlBpPJq;Ir
z&9&Xlz;pXSek}WqgS2s>I8)yt`-hx*$|1Mk^6YRmXk6hkr?z5*zdPI%mo6wOD#|Y|
z4m4A7QWc1;%FZScl4^Ks9(;WAaD1=;PED7#>8u+W8F`0WI6gT?BoftK9zFV4R#mlD
zxVgD$vZ?-Om1R3Nq)2+A$fm&R*Rz<DRt`yZYLg<_r6oz>p9Qn7N0i!W1}`%N<BfY)
z;o&k4c=fW%>}%}5bUCV--yZq?+%Hs-^?Kxw$3qwLtRxhVd)a;d<=$DgZ-2d&z!b<a
zU{=cK8EJRb9#w7Bx>cL4rg`cV@GkM$9VK?W;pO<bh-B>aR`CGO{t@jXM~+a-rP4kQ
z;_>*tB<c4#A3j_QE>?sZ&)RHnLveZea&cN(8rK6ev)UY)PPR#()=Oz+(wLDS{m*JC
z36XxUkq@#XrLP}1kJ{p8Xrb-7%GK4T#1I?l)A^pyXm(6uVc16q?7BK1<@J(LE6YVU
z=Qn-wEQwa*n$H6yAcG8mkXU`6e|;D)*aCZP*hlfk8Z|1nPp_a&PV1;FEG%>t78RLA
zMMb?|s8WXh#}k>nfi3g%e<pn$9zLU&D#9~y#>T~iy9aSf@D3Z|fMVT+0vHWM2h6X(
zWqpvJVmQEL|E%1{`ieic&{~PpBie`dP@;o=!VRf^s1+OAVLl3BL+jd-7BRNs;O9Rj
zPSmEg{rIeBi@bfi^K((OVc~}l>w;f}eZtX+iQL?$PpifiClyaV`92K#WjV4eVa?fw
zxn}=BHjZ#VT=JgW9DFXxaCx}6=o3mur5k-RnIw*QNXIju)Ri;fmT#P|8sST7Y8O28
zN~&?dU&=_InUKYK>J$$#Hk2w-K759Sg+-aul)AQcyCzyYSx6`0oTY_@1$X~wVPT;x
zd12wo=;)|Yag3ONPJ*~%L4N+v&8ev=uGQ7mCw1oQ>+5OWlP#hAtS8U?a)Gv=$j8U$
z;y5kccfv~ECYnTTX$YHU538lfANeKvB=EVP;tl3mRSo0kb*Z6FT8k{A2jr6+QI_K1
zBt})?U?C?``yicf|0$BxUE^e9PGed|Z~V~AtF5I4O|JUl1(lxu6k>0S1Q3XE?rDnP
zqIUy7BszFz%X0a`@7Jzf`zRwLBakfTH0*e(`AjT!df8WHK<vsD*YC~2`$LQqG*?$|
zu%-SLKiF{A*XQ_Jl~k%iIGiQ$&_{{!w+wVBe5lCm8Uu5+Pqx8qlx$4aRF;2`o^z!q
zBqW5N6j1rjN8N4<=fIj(r%A<PtFFD-fY#4@07(vHI?U_p>Qe3dGw2DVC9RH*4#n!~
z>e#DhHR36c?<JqjVDdH#?9*t`IFkuy2<{l*eWVOpD%vtNG^a%{gzHidk_k1Yie7ws
z@sGvt71Pb^?Ci~_$e+@ceOz4}9k-A&VXs~iC=$B1jomX>s;(sXUQh1}zal2)a9dej
zOsrcvU~@6xP-siN7kRibqx}m^^#hAh%laQ{8Q2d#EZ1X})!|A&ZxFw1Xc?32#h%n-
zXlApBz$4QGEwxP5R~Wo_F52p(&Kmc6ULhfLzGV2sx{PAL>8J=Te?OLd*74YRq2^<2
z0qnYhTX&>YefV4=T<$sHOB+QM6lg>_Ik`9f$UQS-W8>gEcd(AQXfZG}l-V+j+)(mL
z=)OpX@6=SXtV0G5xqfWS-1y<cA8w&Dz#n3+-HDRwLvw2uKc6bOUq5&J_;HMgtn6AQ
zqKpPK*znD5OR2*@u@O_P#b)QCiLQrAqaOwt{mXMa60lc4YjA@h`tQK_$=;*-OtUOi
zQn>C%=9$^P-y&JyM>ZrT|FXK9R3~Y5B}?GwgRl0^klw{IJ+WMV!X%VbSf!CYAO40=
z>sBUs?wq--=WI`e3&$pPVxr20P-Eoc;!>7-v8G~ubJLai%CyA<9$$<5^u*fG#N-!$
zqF7U6Jk&P4yu1{lo;5=G;gChMR6}mBD|dBwN8M3bm!Hgpda!y^M!hWH@ByNCyGV_n
z8r$5WMrvCm#P(ao`pajSYMC-)Jn5PS%NeY@5uX!%PWS~Z|2q1GIq=Lcu7Y4$%CXLe
zxB6!vq39Pcf*D6c8@>Mrb8j9F_51z}Ta#>|NVZ5MJIPLckVKSS_C49jzNakNLfMx>
z#Mt-U*vXbO$S}r|$ykOo_Tj!p_4)pu`*%ObbKl2t|M9$!Lmg%2y<FFMo#*TII?wBT
zlhLaB`}>=LADk*r*0Vrm<sOOqYHHgmBP%N_<ao2e9PX?)TXuz0)#;P7Nx3hjKvl_0
zP7*xFx(hyje4^UoFzZ}@m5*=rDwIZmlGnB{+Yeoi8p-lkZaD6+v9VG9@Zm$dYxAt#
zty{ND6FWD%P3K72t{yq;-9VNheVA>x>s=@4jpDa`hC6lG+rQf(&-M{CLI+>CFwc`6
zvwyZ!eFmn)lAMpe<zg!0@l`&yZXFpM(cZ&UsfbWEXx9%R=nY}H^B6Kgj#^lYH=({^
zz(^58j;4~*l0bTTx-*%xS)HRHE?dt3812<OczAf|);w#*CnR*DXJutI{j1&a>C*#W
z@YL&h*Yd8e{P;2T9qY%gcGq~Ue|UKK0e)#nj}#j$xP9U+3^<vxif`piZ={Y00|3N?
z<tzzxiD~PB_CVZ&FTE5UR{RwI^r{H!BR_;GSeBK<OvvP>ZX2o#eaE>e<B3Xg^^J~I
zlH(3n_j=Zb%iH9xWCiv7&^O3TH4)t+0<)f98yWr1-+wG^2qJ?+RD=Wjo1~g<OokRc
zEA43MKcM68peP_)phh-XpONj%OFf5(xksNT%)VW#Jni$3l2W&*fPjGMkVE26q)G5K
z+%1W7Ycq}8Ny^H~ySCO!Cw%qg<u0z1WhN;+B4v@88iiLou-_8wuBikD2ClDtt5#rM
zZIbd>4yY<DM3qfUOi&F(@;x#%G~B}lojG%6jaqr_ZOnro2O-B?nE+`jEm-S5_a^OX
zwKgL|hrEydhlrBrj7(VH1E?ZY8kqsDhRzARx;CprBoRK-M!qc`;a@8k=_|6MwYkT^
zJ>c)Kx#bYbZtnHt!OJ-^8a{yjxW#4IKp>6b1EbzPJTxS0foSoajBvOp+>P0-c3bRa
zHZn5Gxp&9M3cbF*?$JDJxK*}$h;uQxq@jL}f&w!#G!!FsXWhN=IxlY{^LA6O7ZnxN
zx3I7<@8macS_&H)8mvF^xO;o=n(eN`>)qzs0?q90?R}xk!q>0}sur5@`!4)yBFbFm
zJGisEO>^=4A^aD6E^CV%Ccp3>MMG;+Bq`V8T-&-*r<^dm0>C20A#^S8b+6`FNH#KS
z@Ntjr>kbJ`^Tvc_2f6Lt>)-2x2KTzf5x6oJpnpsw1KGP|y@3UYhT`qzO#9r)eO+A`
z4RFYP>ggME?d|^XIw$>n#V;Gkj<9lu3m3ljR(rX+zCJ!aHZx?^ev|qA`}a!YwxBn>
z+69#BkIYx^HUK{tJX&KvzQK3>y3gRQnubQ47!Qx#aSW5#u?}!5Gr;6E?nh9qbJ^?=
zD?|&UZiLgf2ocrui0A(B5!Qd1{5Sv+OjKwTpaDEJ+|aN?W@$xun}uce71A!1>jQlf
z*Kw%wR(?{oV(*;#rg6PUCQ^<WNCQer1fn7tE!iv<h|Jep<>Y2Pwe)+^+#RpoA3S)V
zVAS9`Uw;4oeP`b5*Bh?O$TV~F@kJvLrhfkZ60EX5o8D<@X%h7{HTlXJQDI~>2t!?6
zPdix$Zw#UpzKV6Ok}i1i6$Tp~93GB6#8&hz4ty*xH(SH{!AoNJ7zUFCn%$3&_8;kT
zOn&{!g4*&y^pB2~J3BhAJx~tdbo<2dv)6U&vpnGJq8x^Aky#f-<!>%jCbZfpx?s*S
zwMR##Ap?#2ee|EB&du8II$4d-(aNZI{Q9)fvzA?ozMk+^iem4d7zYOB>`sC%T_@g2
z1OgGU-_+LO>X64~o^2u$`=O|4MFmWTS&p>lQ}uzQj*dHsfbHSb!@0*j-`!a=en@3%
zpk$%RBrYZ<vulkWsAJh=272uRbzaQIM$oyBnwC#Eqo$*IpEO2pVhr_(6i?zOiOOH3
z`Cr;oP|J<xr>Txm<<b_xY;l^9RwR9`MbQHY-Cs=N@&wzDjO>#Z34GFF{FHv$U%ZB9
zU6r9H(fJ_cebxuDduw!UpKSw*o6c975f&65YsG0a{34EpvZe+tUJVv}6<M22OilEX
zA;-J62bJ-;&SehqIwfWIAO4G#84@l*?>>C!DV9GG@sMPR3fiOQ-m;9Ys;ZjvmCa6-
z=qN2KGkt7k*8XV~E1wqAuuy3|ka#1$&!cq|H8?mj(u>-jcW>PIfx(<4Pp$?IZ0vP2
zXp+Rc2K54gcv8t(CE=V{D5|oJX#Xkq@iNeS=y<@=kzsP4!7ThR(LL#LeO~_}kG>_1
zW057=QdI&XlEF;CPeS+2-uF(w&jTV9Z9=!W`7Mq#(N9)sP?_g_icp)>rKCu%zFR{M
zu}_NK^GcJ^1c-b5B?BKyOV`Z=Q&yLN=MQGMc+t0Wn3aXa8Zd!fh5e-@_ItVkc>^OO
zL1n-deg;6jW#Dq^gAHm{X={C~vjzwPQClUR(peWST$nk>UoTmb3WLGkzJ2rNsIj>C
zY0u|gSB|o?Bt-fb7#Zs^bL}TY&5wNnxRgvBH?_QWfAdvj|0N)dI}<FE_4%gS9xG;B
zHzeSqQY9=Dmm^|MY##BiEZ+f(u$>^;qS(*sEt4_3pDAr+Us`In(@h1%QNrxbmg|~5
zapRmxFxq$DHm-2XluyEm)ZwlEyFz??e51^U!^~$%e71)ryw?z|hnLGI4;eE$kLr7S
zdl4R^a^CP?E8~zw!?|zY8uMCPXOnZ*f&XTIB_Trf(AYR2^X*pmVmG~}v8=;HNiBer
zRt$cUSsH+yFydY0lB*;F{^iThNuA#7bP*Au7<1FZmmVz3=k$g3bAP=^Yi4bb+WMTk
zz}d6_c_NXz_R2jQ2qMs863jTXr(;V!PGeKPdvn>co;cpzPutc~(2Py=ky#0jp@F{t
z3<I$#lFm}?$tdwg4_AMO&b^b~&P&Q%e&Zr<n=6lwWT~~?+?2IA=@Pa^qI|Q2lM`HO
zuC{J%^z=%M1K@Uk(-i7EB+?h)X>N{G5EBzySzU$en3@JX1u-GQq%zhPxDT^zfR<X_
z%5dqhEv3Ql?#knH9_j#0&$pox%fR6{QDUgc$jBH`y2F;3l7dQ?^WQnyKE(Bvo3$VJ
zSoiTHhP*#sNvI*N?bx!JswqO99Sl{lG{rprE<O|_!z>_M2%?iY5Ka4UAiuqak6Hv7
z3UoX6PDI%oJ*2r1F?5)qT$!I?IwVx{p3Sb0SctgXDzR==IHQ~u%H?cwn^u_0;Fao`
zQK^GBnGv^K=_&^&g-=whJf$`R9j7Bzl)g;RAvJI7zS&mUuoF%nhBm&KbG&|$sJwOO
zv3CD@sZqW21IUu#Z4Zxa7m9P|oPo+<$THXjkY(%C*RRjKs}^2$&$~9z8)BYGFP0tG
z{$p>y5{4&zOUui)>RHlQm(=HpH49$NVkUx&&h;6<C40NLxYWR6IaiiAOCD?xv4l0|
zJ^&0ffvf69$028dD5LpKWZ#)kkc}}<<do`wznAYAD`n<RzdIyUOD4ix8mj6QEZ)0K
z5<(+<WE_3(sZEl>#f^wZKq8Oxq8;P$&J!n-WZz?t9+k1!4`@sB+L&pyKlrsGmYX&=
zHdg7dyD^I$h~r~vpKF&&z{<(VZPid#cPCy`E4Cd<rPV)~`}FBkI*@wAT1_!|dVLq;
zzYnIEJ=W54SM&AtjfLYdnTH~PS+)X_Vi>%M?BIjR81yDIhiZp5S}aQnJ27>DBD${y
zw!{TD43v}-@jg_+<-v6LbliSEjt{B=ERPWR2&o|1wBVh4AoGygm?D5Y@&h`TeH^ji
zWgd@xA9e3dGEpOWi9%QLZ6)i@J#kybUaPA^9wIFX>$hJtjuP(juuU(GO-)U~KYtc>
z0A41zsHn(S-_~~dBdipM!-aua3k(1@yH;0sE4X-(5(bAK4&J`v3K?ICalnNVlbO~^
z=6?iUc2(uuLxHE@!6q#bDpLhzWrBqzB_%}#1-4&Jd%=IFfuF&{g9Fonp`oLl=~@RD
zb<Y@1Hy^@}(ZYox^TT1ymk^G#&US?LL^ia`7p<n1*{&QRB*RjJK25%R8bHfL1{~Af
z#VeaV$OQ5|5rvyPNjT`F2-Q!N#bu08w~m~?MKQ5|C@Yj(JqJ<Sq2L6mI-d|6?LeP>
zUQd4|s(){nvp}VNs-&`Vj3%@C*~%ARu(D3xCM9`zfkXbbrlzL8iwmX;h(!{<t%wvy
z>Wd+Db#-yCUcD;aaz5`3NIkm&t9DIQb@gH~f^}ibhv6^B-QVBOxN+kKr|G8+z`g;)
zHT%@xe?16YR4AYDYEOx~sGOLmTR8af1rPbCqNk>e`bwOfyl*~{xO@!CI7U1hi(gU8
zq>lXsoJrEUA}?)%s@-gpC$mTfSuoXJIdXQ62BE>1m6gSwCGCmMV`5@T;E9;3b<kG<
zE6GIl93N-Ope~E=#FVI*7=2?pw}nRG_WLJ^&F_~-vJSUE`0r~mEf>^fRE;|n(T5wR
zE&9-E!}vK9cS;WCcQamlm?U=Aa&i{c!0@TUmG01@<Qp_%JT=mdZ#D&5&xG0{A1=Iq
zKn;ADNIe|4NJ_yFaAR5=m@Q7mYfVxr%}se>_mKWTV&@Pir`JOV!AqOJS*>*8_y9n6
zLF$*WoTU)R;Fgc<WaI2ce50{orUnnd>=^7JZWb6>y|{z~rb6a!!lfgE@ty0&gOS?L
zJqRYw2f4)F8Ir$KbbZr@ag%oFVyo4FxleoEFd$ZA6i4ivG-|o@32q(0f0GG2F<#l>
za^iGQR?@O(b-mOd?}4*o=mj9R-i27ATlmCBU7^dB+QQ3tj@jj5(r~)CLz$N(OCX@Q
z`^Ncgb$}qQPFL9s4&bRPc8+v&KVX!$aTJy6=jZ1bt-!;BTJ||4)69~tbsPW-9B6Sy
z0@QrAe0n8&qd*`NLZMK0aXuf<HvlMMvcBbWeEBSiAZ48pEfdWSS$yRhHPbGEQ6jU3
zPF2WZWNC_9!-LK6OhWZLrEJRFv3p)N=V{Y211N*h?D1v>7lFikSrYJKeyHORpNK)L
z9~NcixAMUT0Brxp@^Xv-%$AIXZEd!}ZLxf3?VC1Ydb+72?vf%aptk;DVU>(MRHae@
zdz+f2alDU#yvRpqn3I&WtqQS>np`Q&IiBi#NzpEU-+gxuAS4zr1XAtq-kGa`8EJCN
zy(UVFC1g%=Md&|tP)|_pDPwDSA8u;!#O{6<;SeE%x!0a-$Tw>zdcQcOFCD|F5UTr@
z#=C0J9SImGCqol;wXbsn0~LXoa1?w}<f66}Q@63kLCm$W2dC8TT^;ZXc71WI4j=?F
z9^!&R9Au=W+gv<+R1DjLaM1vk3hC?W3Pjpub<LXt|LPB1r`*6RfyA}7wN9mpX5%tL
zU}W+5^aHBeZdCs2^!|9kgABynTsw7YPIrY8cl8}}(t<!Ga1$vO2VKNR40|T2jjd4a
z{DRi*BB)`iY_Gx0ZGnR4es(Xm*E=qJefF3xtDnmfREGQ_o4N(hy~l1xtU!80#n+L>
zm8!tEC2|V&0LeLI(+kQ3O8SmYF4CsmGrbaU@=xU*U<48sd`o54I^owGLHx$>^77h`
z0^EOqyJu!LXAVT44?y(!#zGz8r2lXNkOGC}R4aLw)h3`MT4_qJ<gaD`ey@4gcnc`k
z@BP6ks=*>ACm|vs3MFM_W!2ERaCK3WebeWKl-fVN%%Sbqgfc%46J7?ha}nyF<Z7Bg
zK0HEFPTU~6v?JY2q*|qNsZ2{=V5kK{G#T#OLb)fmNsV00UmlkP>ZU@dE|ApjH9t`x
z2srx#Y(xWOZm}0AW4EMP;&z9#WOg-yM`TJ^-o;|6oTqD6qyad4a$|v6O;dApzO%E_
zRoBa6A9pOlPszg#u$Ka$xRm-f5(P!tg+ZkEqDfqU0XaQ-G$sdTL`D#xy_*(6PWt+j
zh2HDa*#5S_!?LLgi!MU=^9yM#N2x7J#tQnK59iDiB)gN4fr;}kzQ6tq*QA%<|3Tm$
z^787$H?Jby#L|V*(aC!$uFu@-*&7(gCG6Oi-DBS0?}#UYgw7c-7esb{B;P*S7K46(
z!WG$8NwcAA%aB+Y$Rmw94t*$_r}N~Ah+!5M@atXZ3OL`+JKxVui^rVE7l4KymFDK=
zJ}vQW2HXukHs)3|J75w5aF#9d2nefE?%j3A9YFd~;~c$g0$`{c;6skh5<iS8EqhY%
z@=!E<olX2b(4<qO>_##@Xjr9x+3M*{_^xcqT@?*&CCogVsk+C7(M^477Sc?9((F#N
zyla1hpCB$;n1^^f+eIwF|FVmcQ$hFLEiNDZ^YRwHS}dqviEJsCrZ|}Q+F!%ti7|w6
zFJ`={Z0&~MGbSnY);!((z<HaNX`B{m)RA{ydl*jj?44$|veFmbGt2j5(3d7kDB0!%
z&Q;&Zyj2?&3b+j0N7JTfD^egt<qY=sOUeOJbY*)VPyocn#)b?qzb^$9^PBTsbDM`a
zRI_nqdn|fwZDtNg+;3h~aN^Cf`Q5uK8=tHqx<cXW^28Ma9nF?KuY@KiCJ<;>B|!%M
z>(^aJa}-W2kUHg)&A0Z)qSPOco|h_Wd^Jyk3A`;Gu<6dd{L}#wcy>>hZiJ66Axq%0
zmsN3KFxAo90XW~vGj(OLRMe6&BE4aqP_R4TsSfdyW$}GZ><TR)vzKI*l(=x$7Cr3<
zYCpe%18Zd?V(WAimaR$nCKFaae%HZaH5}MxVVu-5*aTw8c$Q=eP*%I7i~3y7_062=
z-A^Pn3dOXHit|CvC_@3vlab~AW#IQR0WmrOVz_c_Z0s>tI1lHdX4S2h8qcc_(q<M^
zH{*5&T-XaPTmHyQFrA^kD`HpGAZ#5#Y^DGGAapfU0VJ(M=vu%E;;g(3tubymyZIsw
z1+8&+wG`x`+MR|)tPGZMec}2HtjZQB^E<%W-l#O&;%S^;t10~Pmx~Mx8(<bBv$il>
zw}gew;RRE`)OM|HY<e=^3knL3%+@+go}3RVPttMEe)dIml7WH2^le6ljDn0zMq8VF
zQ*$$Ob5j$WH1P9OAZYooQEOS#?NL4aXNiG|Q8ZKHkbXXR)TO)ThuTZgD_<~I$X=7N
z#4QAr=kh)5YxSXP$<vi3xumg4-OWCdufr}H_ol*$l4%lfExgp9UqQMTH+!dl?<>F$
zz`iB=P}`-D;$rDrGsf+6qrl?^wb%})L$oi>J-N)xj01jq7O(Cn*tP3kIS-w8m38zq
z9y7pOPj0TITg$52{rh(}ye*>vI(R!?sCnW5(BPvVIN)$DT)g;}P=DvwFXIgmHtp7@
zYt8C-)e{DCnHvON`9_GSYK73yn^fKWCQoworr%$#$C8n|uV%c{<Nm9j6WWcj`=QT~
z9F=KIq8l;7-ogD169*v82@Wp0@=5<6^AYUXa|pz7QCwV{NzlodvI&6cEOASv|JDK+
z)j59K?4%Iluajw%u?C`=W?!?{XtrDyQ1N6+Vt5{dJH-GX|LQQ%0WcDs68|~o6q~{1
zKyx7DXvV5<#4T<4h(2|2aFJcF89z=eo&tFcDQ1VHW`gmM4<NCjH3X7jE1SH%KCmuV
z8pJ)=Xee^N``0|aekoz#`{SW(s(C?uvkRhaRO4qH`Ta#QUe;X$sC@g^xaJATp6Z=D
z9a<4x^T6BY1I|DAUNIt$V|eG1)UzL-RRZMak_{fSQc_bdxJm*{I2p_(R_AIgsQ=GP
z0l}1Lkh{_W7<T%LrRB<(58EIQ6X?RPiUt~KCJ^s;hrt(u#M3IH`Wt=;sQX8K685ON
zv_ZB;Y#Q%6QVUg}qj|7qjpBB&yh(^6?PGd@Sy?dO8%HS)P~OLn@Rt!csJE4I_4S_@
z3Wy53+2Sa{Jw1HVp+;k$JVW}#$!Rtj<O9}$D-lv|?wxn70HZbml13+LwvM#Fxc#2r
zzVg{h`O4OHLBTc!2?>d-KZo*QU%v)`g}N%ke9Q4(M(i1od8S~Y?(+nw94w9b?R{A=
z9XX!OAffB%sJ=I+s+9Ya()I2ODHpPAnm7qkmqC)05)v0uVaC*s9~o7#-x&wUd7Stc
zN_Csw=WsC+9Cnt_2z15&B98%P9;wdnVt&I}O+elS(t}F6Sqm}~%qD`9F~EbEE(7Pb
zG+XBc=L7i=v$W@*dzbJy_jql6oocGq%@82q9w1b5IxXBR#;0$Bf{sf=)&=B~h0ILB
zK9%hV5aV^7>t%j1_mLjG1L->d(@GB{5@~b)*Q>~>E;I?o9%=&3l$_N3MS}65Wy>Kh
zq1g6uqeOvZByB>}_bU&>R+1QbWhAJogTp}KP%EYWem~desVN@-OpUY+4fnG^#=d22
znMKOo+8lsG1tS0z#ixv8f!a99<}oA^2;BaL&je<+d6z0$@l`s=IUC=-JJi#BqGw>>
z6Zdky+Xjzj0bAYDadWG*E0F>@^AYg$ZS~dF9(`XvsA(G4J7>L0P*Tzw`b2_Z3~@2?
zX&d-q+{xpEiinxyk~+=#t1763@T^n+(_6p1yxbg;0|R*<w0ooTP=CJx$YJ57j`e5K
z?ajd_$1-p@ym>9o;~v09is0@TyQ^$J25%x-{aw`bj1wAWH(m%v@A$~t;87l+%ldly
z`sKX*{6nv7gTTy3b<O+Onw!6?DlILQ`L-1m*)I%)xNS-4#%AU{?h3YQLiju7;8CAv
z;$xWU%l6ex-r+Hmy^L}A$&Nfr2s{D}@=Oq03x)&PzD{BP3^)UJX`fBxw=wR^9lvN0
zl~#SLUOO~i(pmdaC8PcQ6`rG+AiAhn`i>CdeE>C!<mO38b>aoRnHgvAI{13;clR+k
zJYyCPai-%Gbu++HET+G%WUN+I%uz<MVM+q-RI=^eb8Y$7xqVup$E7X4$%EWGyZz5x
z&a=Cz%}foH)$=jx=BE--nN_^p&K5wr6+L2#Z<_%pk*Namhz;*KHyx0aW{oPrtgco&
zc{BhoYNM;GOR;EZ1bA2+_-7F~!2`(RtG-tk`Q**Cw0?d7`DlB=$@bvxOm`qH0404#
z7DPNxo2Kp?pco9V{O63Ayi9B!_{q~ud|Ch#)kO-85-E%NWoje8dFKr>>q3huCW$&?
zF&{j7AIPZnmBdi#ZM4;a4CetVCm4}D3=0Rzz++OM;FeVycKM?!U{RoKAV4HNcJJ;Y
z;KI)JhiBB8Rp9)OYo6Q(nZZ@Oyr<&dQc)q?jIV3R&d$yPgf_<>WUw9;TV0^7e5Ff{
zNPoR`H+qB@A6+@=yTYJ-Aq_W(`ZmvO8c~e$*p~sJm*PUHapTVkkay=(Q&TH!oVCT&
z0zA_Zc(~JA2h7YUBO_zna(e^V<Du<HrmuGib2pVPhqtHaY(mKt=fLo=97h6{EgoeJ
zI8onLAG_I2Ai@mK%Trzg#6A;HcyH;fkt5(A3rwQvXcL|ofIYC}Ec7fi2G8)x23p#*
zOQvK9jb|7I7Nz=#2!&6+qLm~QWhVYtU9WCd4-E~)pCKXyNhf*2qoL)gyXPF|+Hfiq
z4E%dX55L^H43cjk9<k!{L~8B<R_@KS<X9Sz{^73$8EhRL9a+`~?%t8(E7l{KQuWxK
z9r>mp+<{#ZQ%2-HQE(@L=l23!GgX#`JMnH<$=aQX<Nz!`?&Ra+U&qOht8Is|U}>R-
zQbnwsYaE)InvP_=H)O8@sxB%lj8wC3ox><t>hf0>mzM{713PjmS)FmN&ueKpVk>F=
za)kqn#nytn{mBZ*PNZdJQQZc*2o+c=E;8;*{Sv?^)NVyw=d|wx#JiP}$49ect?kC?
zWQo!aow?B^%QjslNVc7QJrflY7Io&@;y>mf?ZE?rR2{h3aP-Z6kRfUVdSEsvGutWG
zA(2Q1b|7$Dxn(s_KF4W`k%1vd98r7m;>FrN_TYfAa4KeM119Yfd^rIy78;N^$)v3k
znRzXX3=C>N2?Ty2o{Ew(b9QR#M?Hr+t?E_1Yd(|2?IZv(urHH7tXD>zx+&VqK^Qbk
zWT^a1_A6o3Syz_Lr!9BD4qX6oU<gE;IVjVs*U{4pY6I5kzm(b5*46=5pSYK&r^y1=
zZ?5L*$V1@t+ewmpnveSvuGV2`08R@sYH<L1Bmgq(gwFNC`KciH^L+`0YJdFbk%+*I
zY|3B{$V|>vf;CeL7JvsHSclQ3bptVrDB!|%0z~w;fgMgHDaGh%%?fAYQ#YQ*&VEvc
z_aqo=I)i4f^_0+Ze9c=X$Tb~H^YKAII*A4-G3y|)mT~G$son1ZC1|ujGv|2y%a<?D
z4JLt3>EQqlZPA5S;UEKbAD;t$Y_7|{l`3lUN<zzB;wunlZUDcLF2a5}s-Me7_xbK_
zhsXCbF6<PtG;3rN7V_`odS5d1Ts@sv%a<9Ul<#hIw(#B-smSWb1ZUrMTIYt`R#O`^
z6JdVKNQyZWe|>9U_8l~iRYu+v#Fn}10z|z_+xtX#-RhpDu_`LkOQMC#0D!Hxzz9V2
zuYjruA;5r>%ASC={{Y-*QZ*<))XEw4&IE21v%C0Ax_qF&-)9z|Q<ITQi0TFAMtXbs
z`Yt1}o#8L<Q<ol@Kh2F4Z4NuHS_^>1oSm&Ln}iFZMaa(DS_uzvBpN`H+o8qOMeSTC
zv$m#Y{OGz@`v<DKH3x@>W|gAZ25;WJ4HQGv0_a^&V4r}L11Xkv!1eYUpFbzsjf@xp
zbr7=cB_)pAz<~<x__aFKkz5xgH2ju(=XB|T>X=AST63fl9DKqD+^d4%jT=8>#9aWB
zC#!dvI}SRf(2LB&Kqx)d1>+JR>p*tq3{aQaD}Lt*zXSRh0Ur`60hELZUpwKovjA$<
z`bS1aoFRaVvO2_d&A$Vsm>PzL-<o1#Vn%O@i{q}p6?vtu1I&C|Ksx^SNEqauYk0ni
znPhkwvl;^L9KsR@pV9G@h^ncnIl3VubBF*nGeP1C3MXHHEZcahpCdYejWbfS%LnX^
zYbpeiov)D53sH=qo;^3iJ~|CN)B`-R;HT!j0TNO#fKzLLD_YyyN*fDKazg9Qp}~og
z!9HDDkE}j6|FsipO3JlOzt&(?FGo)LEM0O_5CTtqB`vMP5xD_f*O4+y)+XyP7Wxc%
z8^7|#!Ga}oCTgQ#p+w9oUv^%D&CDD{08BFs%0xUY4JYU36dC|Gr{U%+yO*h9r<{v&
zm1G$&jl9Ojr(brY1+um3b2K0w8wZkQ_)On(<gUT=M+k%u5Jd<OASiN1RRAulnKboZ
zub6d<icuE0{CnQG3qTQo#}%K*{8F&SOZx`~d|MkDBze;JLB8E_reVug=8%kxDD;K@
z$pP*-R<D~b-hR9wP(0fc6eDDVp@D}88L(&>1GE>U3TDO|l*fv;mX&SH?SgN`x&$A>
zckv0X0uX^@oG2ez>)hYGe{<xFJcXoy<mBhVk5)S_c$h~^tJcE2NAU2xh3UnD*sk`o
z!D+4RKIb1^%*d|=AvVYx=m`Niqm$B3(=|o&%b<9X+8NQZ-&;^n;8J*_ZOo??!H614
z6MLPJ!R)Kj{0Kn7ZXl!`q=5Rg%fRbGgm`%eqP+t_anWHV$bfwQjC5}_*2IHDJ{A9&
zm1m-$p05fhIL9vFBQUU9)z;R$`9%}yTIgccLaO=Y?Gk!G1{WL&dFzBa_S{KYfO6k5
zKlt>PuiaEnZ)XJ<u2!K(gDt)$GZ;vA0L$%~9<No8I#&vP38r}F<>d_OP)eg^v86z)
z+~&W9y#qpBi*N!KNRxH7$(It}zO9v?W}pY_rxqC6#dqO1SL6f|0gM-LrFFfr=@kwU
zS5z1)BAn^ivNac0t-QAY!YW<lYEn1tMz_wEmx1e_O&STmV=%p|HsIW3z)S-LQ-BRj
z0**ZYHs8=4Uz(r~BrKG1*_4)e$8m@LHQtg)@VOYJ2|GJG_~QVdp94I>LdnM+zzo!L
z<O6$)bs@)_OG%pCZ)P+YBD(I}y?Z7o_;Ky6WUi_Mg-5)bM#!P-%Vh)`RB@wZ$4}k(
zEwh}F<k2G^1{+TejVtklK=A63|HNlCjLRA4vtql#n*zxAs0i-GN5BLA=naWbtzHrg
z0ZI*G-Rs1)<2h+gl+En&a7J(im_|mtjsc+GA)Vpe+?<P%874eDd~IdCFjzWSoH~Ly
z1Zd9`c*gN<W~SvTZ%5A)Je~(Biw#giBE_Mgz+O163VahB0M`m{KyGQ)zg45qz>EZ&
z7vC&Zh<3=3`n=2&YE^(vr7X<R%!I0*J2}6{T)gmmcTL(_0dakIgY69!o&c3?lQ+n>
zH|qiKAGNi%zA&05hWhzAnJy3Lm5x9zlmI!|##_qsvBmA}?c@#I2rP(}5qPl>Nc=hY
z5->gqKnTD0gZz)^dF|(t<e7yzK?h-Cb|bPpR~LU!lmkteS4c<*{Ius*RsCE5$XgS5
zyICjg%tR$U$8=I8R0m0Y&4az;NK4RmEz1a(s%h9!<6!Xg(Vq=eqCx9K>7X2$EYVei
zc2FFYYi$8)Z#)Ll$)KbbSoh&H94_RK&&;HLn!20x_N`~Ix3~9<ZUYe113rE7v7F!X
z5xi#|=<K|~1Skj(N@i|<1ZDT9fDs^#G(3pw!5jaZ+$pY?CB;Y+P$aNph-A5velkNt
zJVz5JM9}g#aB?nc6Bv-QC@$@mu)T}#$0#(1)HK9A=DG~vIvX+@@bgTNJ;C$?Wsce$
zWZ9%ZV7CV{+QjntlTwhWYJUnVZXW{DY-?p1c0V9AJDUxD!+h4+JO9(ky;U_(M#u(g
zgxW!zFuk;X6ca<aJe1~<0odXA^mKX*&6jR&5F->7L=J9_UGpZadl{qu_yWF!92_w&
zVNi${8HZ&(sFZ?1%|hNkfF85sqc{i9L))rA$?XuHUK&ia9v`eKR5eC8<+i3et+KcH
zY%KtPo33VMf&vg96oxdCZF8inp9hy>{-<{|&WGRFY&QG#))qt0DS7}&m=u;PTFO~G
z)<<>7^vY)haC)lyTxnn`n%&*qHAedTpZunH!;tc}gDEr&Vm1A6<f(j)3$w67DAwgM
zD3Ag+?K}u-{kyBZKnAuNy}F9>YehWJ>$|p7aic><%zB0yB~>L5srcK!cMFO`J#Jf2
zI&4I5?p@hbMHX(Ixt4ei&_-sk+}8kc;IRYv*t^76C60w@3h0X7lO=}RJvzM->0mU?
zh%u4gxcRP#6Gsb4k%7TMql=iwVD$rUEDl8pP^vnD+OhiRc@n2Hw#2nhUIZ0a_vC^c
z?dh>rkqY*xjk%harRzS||6*D(+t~u3R`vGJpUxnzn*vxZiVISZ&%q3XOOb*2d&Cap
z4oP$G5&~cs^>`e?3lzXuPoSQsoIpc~Pm*F9aubr0wBPg}fH3T<*TcC33i05SnT#wc
zMDMSm=MU0`sF@&*)qm#JF1XK;i_JbhjpZGYBnh5qvhLX~ypPI{n_R`oET44cQR?>x
z3H!)ok$A05ZS?>hT!uAns)^Ncwh8c!ot-kSo{I@x^RC=J=S)-;Lh+>I4bXGHL1!P8
z9UAoSae#fAzmG~qcGuF`JCXN(0h<U~@@m#h0}zZX*JOLzp}f=t0N7ZN1EB-Bj>NUE
z8G+e#sTO9bG|c^W%+XH66wG*bR@|-R9O7}fe;~<2ka_=eXn{oS)&hQ;%ppiCgv~GS
z<AQEE&-lzO#w!H57h5vpg|J&(Rc%07VS`xG9vbR)z{zKb0!XhDWfOvOIN9F0efcZD
zm{+8c70Q*r$0hQf<GB!r5D|$!B2mTOZ%`r5Ob=pLMx+}5&4eW*z?*7;&U9jAY<#p0
zfb;?IKf(3Fk^y_JCm^Wh%mPHmGg)qSQj+CHy@EzJIk~#J>XwvVBiLDoPoCCX{$pTC
z52!VP1R*3ONx1#IDUp|z9|e^!%Q%bt)upz($Y6n(KNhNFx$TQouu9D#50HH2Yoeq<
z5}p4Nh;{lRzI>nnYaYk|vN@xDQ0Q%5d%e^jprVtHm)Exls7kj$Pf1o*Gqt<wmh51=
z4Z)ts33<>Z_qjK;9vUc6dKn)g7D`C5c*^NP*q&OuY=^q2T73J;ZEtT0V&avIs%a3S
ziw<`&m^ho$CAS3N9}Z{T!?jaU^_=k?`yT(M95N4D7_va?(G+TCN!M{wwTJn;_jL+K
zIc_Ur9DPQ(lxdlu+}xdD-Vs{kdLe=9iGu^2n7<f!BYjg-Q#$7jB=QO<|Cm<Pl-=sy
z=RK#X)els!*OMYRpZ4eb^JXuK806K{-`4zbNoT{L=|~RFMI|F6I0P_Q?cKF+9x9-w
zDFUp1+4u1@l$4)=CkMqtb4QuLkn>F3?z>;(>tHTsG)d(6<7);M=YPnB+`Vy@$&ToQ
z#WFR~VaeJ1To>^wH53Mgfk|#^0Xb9&fPew|%@VU6lI&Q;w%L2fBpMgp0~Jue53WI;
zP>dx|*9=J4qJ;Y>GSBVNMXGUqHx0&NQU5q^z$>jH5}T7k-e#2GOPBFS{xn&Xd?RzI
zAJQj!l$R5TM7o={1Ub}kGz9Ih+-GfW8@dMYAnUKQ{aHC_EY8GjU9LeE{Eewc$`bS2
zG-06h)DI-JX;npm74Z;&VA6iMtEmXO-m&F}w2xl+^UZ{T`SK1$C2Os!V&yJhj>QNo
zgI!Rt8Sw9-1fNU00AiEVStge_i`i9<#fuX!{tOVOs9@$<V`^)aRIw%Fcbr2rrbvm~
zM!-4r`&a-PIQ4of;nD>5MT~>MEBtN}{J}Nb7}`$!U8F=RA&<T-ukq4HqJza4HKkrA
zV1E~0#t@5?FjF!y{u^5&?=@{(-72o1Caj5S?a#N=CB-<K-*wG=*~oR}GANQ${5LXi
zCT<WxMTfGL=7Ax9HGj2KcQ<vCLbiX5)RR-R0~A0yoe?}2hawVEYIN4?Z}^XsRq723
zgbD%GL#bB+j8#0S?Zgpnc3ht{VHXYh`mZlm;%YR85<zKgHB9?`7%Hw0%>+WdC>H1v
zB;T5UI*Ev@&NJ|sjuanHWXQ@-vJ*Z*1lP&@Sva&&YHXWlR8XEJl5Lrt<s6A!lzneq
zJoqbpWV+l`{9m?aZFF?|HO_{{*y%Y{)zLIaE$t{moo=sO_fQMT2;uo>qnULIRLuPy
z_C#3<k-*SW;94`atvjoWm5EbHFow`C$aUs06|zm10^dEi+utKSo$@DnZvOp}Xq_iC
z*ov+S43D)%+0+K1mx?5c4Y``E#KTGMMy$Yd@a53V{J45>={*D0pD!hDe9h$$|C-xD
zq*wdo(igG-l8>Yt1aUE<sC%20q)^?E(S=LD=N11aHz}CIC1K;lU=kmuJ>$)O(sR$_
zSuKC%<2PcQ9`~x=TAZVaj}{i<v2LLr_j|_A9O@v#JQ|gs3B)?$+qSN<RlA>P-+cXz
z8G-E`not|lEvE0&vXz59K<yVm!3#OwR73tHgkU#RGAxyEsPrqbti_g;a;`0~5oXHZ
z^m*t_mEUR&IFBmND8bv?4=#96goZsDf`>LXnRGJ%n86NqSsC4aHh1)Qm^h0jNNeD%
zFCuk;u7ZfS=ccMSw^yx<`uC1#ub+{BUUZvH&9J|LXwUS8M;R&GZT&^H&ta)9;c}@r
zOcTar!}jIJA_)GTa_o?tyU-HrcK=3uB<%)yuWMthNQ^(2=`*ezo01RDwUA_ndtU7P
z`*F@B!%0b*^883$@~Jtp(TishW!-CRk_56ej#P118$ajz{5#~_iRA>VXXkPW)%hZB
zAZ^|$bk5YKLP~8|KuGr|d@c0}#{^vfe(>+HwPmr>K_~U<?O*bWKhr7n9IpQ%o0we{
z`oUm3^maBW>aXR}(w3-g9`H-Y=NIM>=^F%$oQod)v-=*@6|aD3{x)hoKJ^TOi6Ik0
zt=;1feeUtsi$$tG#Zy%_N;W;8Gu11m@yfsHAKvw()zl26|22!qe#y7^z>VZY>LAxc
zczl9?oG}s)k&#4DQgZYDJBPFh<O66Dm;cU`{yrYic+<h7fqmp|ib>7$x4ty7PcgHc
zoOd<2^d~NWEB3#z(|r#15kLjbA%aL!sV@-YtV*_sCCK{3p<4fw+q=IhXeD{)kl&U1
zGi^^(gkmqF!C%meKU2Or@N!`si<-p5kILW-qNeu$S)-hsNzZ{zhriyczRJc-SzX3s
z9nkVGdH~;6KL^auE<DD6QC6jn)a~D~h*ZA}e$o6-FOx{g;5jCj%Ip7S08~MVl8Z-w
z!?W)H^sD&mT7i74<!bmWTP1Y+`C@fwbDr^T<?AirAVq1H2-HHXLg~yEHqU)N$5Q#X
z69Il6LOzLP6j50wCirs1vy%Jr>p1n}h;Ik|>{9m^L~@7cq>RNGg{WsNRCj{b6N{kr
z#J_`G*F=`Y(=@YjyL*qjOSL~1`W%V7O5Y-gw1l#|pP;lZ+xxi_#k)Qet*7^)_3`M&
zX<C~2$LiqQ2K+g0lOt*tiL#e}C@uAOFD<fUO|jnB>#Y)jD|vD(?{5;O5Hwz88zmGZ
z@_W85sA~Ug0$)%0U%vZ>eCEy`1M&O5tQd?JvEBjCvXmi{1tJmIQkcZ{$Q|@q_<OVO
zNL(Igyj;219AD4v8E;P4yzLY%SbI4)Q{w9<POVi^6<1R;B9U*Zr<)G(_DM^4&8IKc
z(fqP-)<9#zWA;sghZigm3_}vn@=^WtnUe`VPwM^)#=K2#s%B98D24tyCEL}}Zxm}p
zUPKWB2Zz0&vXC@2s5`~thO3I$o6RFatCMEQP<YrPS?Rgo*=79ma2Jj<ZLl)?m7GBg
zObrYTbcfliiu{_XA<)emf{>hf?omfDNmxk4Lr_SNLu^VRrTL(WSd$Ly6aQm1XFool
z)DuL~C?S;AIclP&Un@f)lnN4NowD)oN6aM$m^UPO#5s6g{;o5?4+_!!&1tlZlEy#O
ztlr-)SV_ARnwjr4`cg?ccV}uLZPnExKBL@dHU*A@K{KvvMtTfBhu#r4ieEADpW}ah
zhc``$){Tgk<>4a|g$p(hD<3^J>hQ{^Eo8WmY4_w8{S(4Rv<!ODkq1)30`JeKYbi04
zJxur~yz_bPa?>0;PnDQ+A}Bp%QoOsoUE(<*#bk#GL`3!nY9b`O)=W@>d{d<0ty-Xs
z%sWuavfQGfDQjvxTi)c`^^awaZmXMG+Ij((<R@qS*0SMAR2r4Gl%wZe&ph<d_m_39
zzk8>FmVKXO+lITB%<6F$D0zw}<KG_cd{C~JkJF7WE_><|D_F`_^CdD_@pq@xL}XU<
zqW?!R`IFV)qOxxVL!PkuSlp3~f5V7{ckw}NIPI8_(<R)|Cv+#8f$w)8VFP-9P}(ud
zbl6M&U64(tZIaC~IaTX#EkK!vPC$j94;G5X!4!+tipyOteLrnKTv6HzUi>NM70~m-
zU0-)HKF*~vVwFWaSZ}uOpfTKDC|ln|XEw-_1K+5Lfb5$oUCUzLea&^PohG@O;MA;-
z8xz7dJ$cM`R}oIXd|+>3-a5M<5vH@vek#~Ebvdh-@Lx0M)~|2$nU)=7v+XPH(@m-0
z_lt4S*O{AMA>XB^8bHK~VoKzld^v<-luutja6P)DGzRnz4{D7Ejm>L^t%TO|P_uIF
ze!~W7W<?{0_rFGS{BCltx>+{l^JRy=Smwc0S;qUdtmJ*J<R2990IKY-!Vz0{>2?h~
zO|dU-nL#3)$9pT$v{Y9EHFZxO$@#p0Boz0%nclUIX3<4*gs)4)*dScWO=e?T<@<5K
zKWP~{?J&P~@WA*-0264uW|JUpyDgQ68}#PgEzH9O^1Nv*IY6V2VeJ^P)3#LR!&x(m
zS@mm`h)15jo{Q)h^fdW*jhG$wwA^8RefIj%-)+;y>r<501DDx)=6C#I5_+0NZNdLE
zV%XNrL~NS%*LkkvFG%3EOYSt1c9@QyhmpdZR1PC_gGKe0vmxXj_CvoPJ}t~!P`$Ro
zC)iA`%I{IvQB%_L6fPOPVDr1ncZouDi9nx=o_9&MnMwWk8EoEmjsY(IS|8q$2}(q+
z`lO&(VUxP?rOtX;CMJ&pD>w#DO+uKS9Pz!m?EqRFhW{kNM9%L%`2-VxUxAS>s@#QU
zg^U!B6lvV#@7zg1e?osf_q%&IHR$mDT}ChPG4>j)3*xVF{ZJpK2GQ4Hv=O<5Kbtw2
zS$Da7KU+^Y?_ltkCx`FRvoLx{O3hJ1D@}P@^}hOwTgQ{&5tixGCh`UiRxl4{x@sAx
z6kQC{I?vm~(qskipW9wh_Cjzo{_WFl@~+61cO06(Qgz9yMq-dAaqJK_nVs!xFipMk
z62zD=YGd!?j1|>YV;8eP3v536R-Q-vM+8hb*UPZ2$YN<LN~#9i68@+qW$3*C{uV=C
zO1F=zlpQ~;=D8oQuZj3FvW~j6DB4=Yahy^recG;3@6%a?l);WZE<U#}mQ?|AfPs06
z)wu;?f1&OA*bYH!l;5KadUN;qZ%%EE?|hpW_kMEPa9Z*?mk%R`&8qJ(%X_C)rsj0e
zS?++glit{=tsq8T=HT|S89O8Vtw7V0kR~nqv8;1}IZm^lYkROm$J5UnfVSb$-t$vi
z9>rq2QzJ}y2k_eeoM@NXNu$uU9F2vU*g7sgM|;8w<Ad4?{Em%tLE}F#r4s|XWUeH}
zhJmWs!n_=X4}L~iO&A44;wFFFPDgn6`T*J%R>}+-dzZ*tsAbR;$yfb=p1OcbvJFjj
z(zWsHO=!Lp*1gQuqWQ)aM_4HStQA^9Px|TQY+<1#V%j(PM=|;+J<Zax?8*&sm{{?4
z@m!jRG5&K<y#2VFJjR(TChk5*2f=0`@#W6?Suo)bUCqVy`oTu6wlz88yr82Z0Rf9U
zT?@qR0d`{Sv^{(UPr+$tZUO`C-z$^A;qU8L9)Jabn{i#+`}tP+^j=FcX<G(8C()C|
zyLyGi^*Wkm&bJhqQ}o!`obYER;P2SI$>muOFDq-a{p3}~2C0ujd_8|SsQ3F#8hqI2
z;j&{^daV7@V$Z#$*bH&qFShM;go?A1c28UDrY2f1EX=+;fK}$q=>|T+ioo{4dcv@0
z9fqSNw%bmx!E%<y-sAquT^$KT!O%AtCKed5m&VWZT>Kq|bU`mrd6?(_SimV*_01Uv
zKFJW(zsdDH*!I`<)nXJ1clsFIuWuW-9LBJo47_kJEXEWEx&PYED?X{0u6y^#pYU`v
z`*^d+v^l=|saYIk|LlkgCI;T6fWLt{4)D9lVS{5GY<D>C<)^6=^LB}Ue)SrdmRfJz
zXlm6+5xNrgGB4-E0c+(EbGoJ^N$^(c(i`U@t=PH>iO>(eb+F&AtMF#`bXqPY@Ef<Z
zgKN&lc$Sy8HTZ4+K(Uu;3~_MduZld6KX-I*oPrGvw!B!r(C;vy^Yme;Dex;|aB7Qj
zy)t$Xa;S6Cbb{}+3C3b!shC)jNU(@aT)NGVef>zqvmD*L%X->0+x7arO+iEvTG`|2
zY9Li~>FK#rPY02}+~m)DcS`=gqeT4Adv_`d{=9eRKc4H)%X|J8*7M&^;^__}tYC1~
znr+_?xZ*lKc0BdlCxu)Eug|fUh4_8VgtrW5;#+AFgj`j@|6jRup|nUu-Nu~ot6gG`
zC#MTC?k2fu!Iny%6B|Nj7SiOdv5voaXaa~Pr_cR==Vt$}Jn{d*Nzh=j%#BbwyG8Pq
zP0F73SZ|mz?E4=qB6*w3hbB1*wyUpj^Zih~u7a^ibxg?V(}t-%-$hEAwzl|vp0dI~
z5ZYNrvrm6b?ds;31O|EHM1Q~dg_^-*la0k}?Db4*lb?=fUU>J09B?4adhs92O4uF-
zV(;gku0U!^azxmok;>s{x#?Gx(b~fVbPo)tq7V#ETsRFM)Zn!*fCIkyE^k#63|@+e
zker^g(;UO!3PD6T31$Ijf&GHEZGPiF_awN><WrXTbbGMEom2B#)qL)~CFqoDwkrqA
zgILMD@&ESZWPAOnjio%u?^(cn3(@I4nETu5w;N|&b_#wp>zv_^(w~g|)KYygg7$!D
zI;DE=!Xd#d4yc`I>VP}IyPOPq@tp-1hrZwW<6X|GFJ{9OYSP{XYI(Y=r3pO|8<4R-
z{PO)p%lW_9L&)KWHCE1v`{_yL!IFTDv!PtA#r=q_{Efq6JDvY0J~gzehnP;<{@nS0
z!=c6o)=uKbADUdcavk*b=d^G}*mnZo%ZlV>Z=8k(*URJxn3OK=E&xtoWMF&{3W!mO
z@Nazc;NE5#f($qVni7PWTz*sj!2x>ezXblU#nEE8p2DQ??#6a;bTPbKkPAQ3$SWX<
zmC?gyi-jCggLgUdax`N`%nSonJmb;puvUn-j;8&+gVPDCus(%|5<{)cp3S)j6B?Qg
zIZy8GIKT0=!`cs0_<|-ln*pYE=-c@78Wb_!T#90=M&CA<Xh*2<c$QBuSElTYZEs|o
zwc3^pmFuARuc5)~eg1%VLwd6*TlXDRnA5cS0vlumlKs#`;>Px8r)fz&xm=5UOc7e4
zm`vy<y60cKZ%8lXg6dvx7-fHZxJ_>3tcBCdAYb(4`inoSxCI^dl;s-L8W;22CpE^F
zQ977!cE*rDuX<749O-dZRoTJ(MEAm&9%vx4FRd$xDrc0J$vfw`4KIkmcD)WbUH!3J
zc{nQ6XMF!~0v3A^+IRm~$nYc6Z2LjJRK3*jJsbQd&53|@A8y^EZ=v}ZRCfRgPiR8v
zctf%c<Xm-*RZ`d&%Gw$^Ht3r#W_IrCnHk~c|Kq^Cw~pKVtg*T1wmc`EIW3cxn0L0%
z0<m>cwb)~++EYtVLC7xa*m$=a&Q|&bdCn$#OvaA{TVfTGSx#Y0MK6F_+1@&4`f_zm
zhMr!Y%Gi!@uG1HcK-IZ?QZNT-VhHtb5EuM!(7p={s1jX*&O|G9v9z)mm6d3e{x&XT
z2r!a1D_EhfnU-8j6Y51(ux@LOpR(tpW%Ow%Gf0cjIr$<i>OHYOS6uFR?|gZ6j+2l4
zT;>043=?TmJ}HX^*cm{N>SW&RKg444a9+;ZtqljmEiU+hyG{3U@TV2bsxPQ5|DX)b
z28+Fnh{(`E#qRW}#Lu-Jl*5|)(DJzlMK4uOqup(k_kj+D!q<w_Y5utXAi}iYQ5>Kd
z<4YjS#xu(V>0##}s{nHypjW5{#;E3M{$hT7jHY3e37VFN`yEiPpN@+P=p?)_YqhqQ
z7+8lzuuh*oW*m53eNVIBn$JX|cm3u6EhxyN&kCh=wZMKJ18{J3?boB$acL`^;Fej>
zoh9@ZgxZo(qIAT;-~#6BD=We}?~-{q?PQtsd2^LMm5iWsWRp?h{>7(%qtnr>d~w9f
z>qh_{UScuwBv64G!an2$!cNKn{#mDVGJe=vaZochI;kT8kryqzl(Mn~tJY^d^@L=d
zSeTuzi-G5r)%$qB^bog_+;?2WVSgAN-ZLpb^}0ds+v}EAPb?T3q~?^?ZZt$+P;lmD
zbD-x)aad}nx6Ygn&JPRcizA&vcuO2HA8NyLN^jDc^C&!;Ej>V>UG!KeDq2yx?An2f
zg+gnTER=o4Cjc$LZxDx)?%&2{>yi<U`?z-LXKSomHJ2THvLOq4A=f(Z8T_-Dn9%E2
zXL!)T4_z{%wIAYCxL-jKYLclj1&Lqd@kX9kpmlMzX^aGW*BK0rvggW2O0%ceJT^_W
z<?<}#r~ZRntNN$^MXuoq{NCmAZA~U!vaR}hm|_G%SQF!L_pp_J=oG86SpIKA*Z&4S
z{trU&zxelmbrKnWOtPHo=8r<x%@y#|THjP~5Pv!ZxW*JB=+H>9e7Uq0!0$3mZrG3j
zb8@n8jWD}%>9gj!aNXU<p68)T-bM0musir=^Z$nfI>QRgQrNvjy8K`XJr42L_hy#!
zssegLFZvpcT~B{x>evu=6%wJh%ZxjkK<`3OIwztwG7?1_4+FnkA0gB6W|ax<Lz{^8
z-ojk6cog?k0e67bx4V8ajSdxi6X7fU1NUrfYxwG2gM7~)#L<yst#3T5sBtxb%|Cw>
zlOz6WSA!~;BG~mSf?c=W2seCgff#xApcwu24g5PS&+f_LG3;V<&Hm#0acEyxLF9U!
zSa)sYC5r_7g*3Hmq}p0-dv`3dsr?j8tOK@R(K6Vx9zZ!Qp9$Gyl_)Bd`r#<u+R8ZY
zv<~eNNIti1jB<9IlTdD^Nq^splGx|2{YZk5wR)i}U5xu0eBY3VtTjjQMw@T%+2|VT
zKyzA=rj#m;iT61Zj^qe!*aw(E$|ZIJmCuThIp@7aj5fprA_iHcl8DW?$>ofgU6FX(
ztodZy76!AjnG=0_81tyPz9`5-&7UUYGeWUgUssd4$N!G!&d1r<gKF-$W!9_wUmmR&
zE}rnVPR4jze8WG3QowfHe|rWuY#xkJk9~4e0&_P;;^T%fu0MIlw5ofLz+6S581ZeH
z>U%Iy28gY`3pzIpIH7p0z8{y)FN;S@#KUsL-D*lMS)@@LDX^YsuE^PyP>{jytQGpl
zy6B2@a+WHxr(V0et3{pX`J)g!mgnx>ROZi1poaBzLOc|leLpmykt6ZsOJPwTB$$=&
zkV&k!da`>=)ar$e3_q^ssPIkK>O1UsYj-^w%*n)i8g=G8f8Gd~^sn)|l}<Igm1M&5
z<~adhI;H)_r?!T@u6v-u-^xRd8!dW9vy9Df-BY7xO}n3MtEfdfO<9wJ&P9B?gDD*E
z);|`Q-+UY)FYFZKYETO1vB_&~uM3`O<{1E$SKX|N8@ViVoWc5O#(Ql~qTtCkO<x?l
zyoZv1_5a6tTJ^Cad5aP{DNfqGtrsRTNrYB^Z1=_mJ4A?jgK&ep;B>s5+%#xF^^Dc>
zMXNMF?is|TEU4bk%+t5)M>tB)Y@(uqv?M7Ep;;K^vM9|w@qLaiwO9IAsJ#^n%Jh?k
z`@_SPsBq;mHZxq$k4lH)a;Ym@gs$CLx~=sVWjPKIqqT<{-Wg6B@2sr8YwDtg&X1d-
zc8qOfD%2y2awb-`&uB~wma`=(xEj)sRpxA5Yt#K>ipiH|)udvmwG;xMd19Zy%UoIu
z27-y3Q##Ydo~L-ammCb=YB&8kg(jAHBNx237p7g)>Zx_aJaT!4twb?K7}7PNY3HVa
zJwh`AI=;5>Zg<>p0n)YWLS6z4K)lz!F{Mh7`mutXX_m-zou3}|UHHo}y^HJwM`j9$
zWu6!9h$YRP6TgzRtOCd2fNP)OL+2+=Rn7>C-8D!Cr-rl@`#r|4zyz4}nB;Fw&ox<e
zcQ?xfUg%00^`SB-2%Fa2rJF0Ze4&h=Qiqt04=lIHN^^po3U_l#;V`PJEBfG4I@p+7
zE^I<hsoGBxC1T&6bn}*PwN*-^M$W@c=~V_}Xp`rKcgF3r3|lSNE@MXOttC^b-4$ll
z0w9sUSB$A;X1G7^D*oZDsK!-{E3Qpw!-8c9zzmSELW1gsnfszMHqQ9X8)Rwb{FGjl
zXftfHtom)v%F;u)XACGEeepx~z6wg<2R6jpZ2k<sf{4ao>zgn~)`JzV4MP)&iHUvq
z8#f_RbBj2Ml8?=9<9nqACl^ladeL&vUj4N5KA?J<{E~GiUGg!Q+3OLlIU{KOzOwC$
z6fM+4_`Ab(*MlXAUoLABy@m}b?&pDtXMs0^PaljBUt+J&Z2Q@H$Fu4nD|`U$VBk2P
z0K;le1jDDcZsyz$nwi>~6Q9XvZ~_*p8uyPv7Hlq-Rr9ebQ}TEGseAP!w&&>L;()W=
zj&x%HLw$4gv!?g<tIEYgM~@&F7>u((WJ$WEKy?JOJyF`+u)@xXDDS&4^PSW%mDf%t
zgo2@7UjO)O+)&PcP1>vxx(dAsTvL`xK=dEi)MA<W(w~=X0IYKR8JCjQIr$K9+Wt&!
zldsFe3yg3$)vp+hoc2{g`cG{CqrEE)OEPWS&i0lwV@=DLiRo*WP1B++uB5cNy_V*<
zmRpXwhZ_mG0BwWQxHVa$jv=qvn+gizhKhhi>P(7hhNK9LQBo)%BA_7fKG=7>$MOC9
zzCYiu@A>ikd7kIEm+N}2>$=bLKJJsmcMDUsCG}2xwBhWB@08=`AB099f@7%%-n%=N
z0RNKcTft5s2pgT_g+=|lnCB;e3~}WG#A$+GzVTv#iPcV*Mm=D@{=jwyWGBvjVxrnI
z{Q`HThMX-+Q8oIj%3Uvn6+1fkkZ}RROU&<|gE-5_6|q<U_Bdx$`=M7DdAhj8cW!i@
z`6gldw7;7#5YYqX+6Jb;p*-!i{&jt}*+T(_tqYB?WQ94qBOV$P!mDFJw!VON1(gZr
z>4_UTlYwuN&mVev%&H%y85M75e}-3B(jQaggF1Q8>PCV-%fGm68u-sP8WYG)dhX!I
z1j08akaVCqR4DUlin=*H6g!#7a1Z0PXx;|k7T<;_2jBrA)QV4AGK4tun$#|Gl*c=`
z&{X1i#h+T<S#fkFcrqRwg{E}LC_^w@5-<#4j3~*5tSA@T0nwSCH=0WTqXWm-z4+))
z!(bqmPp|;P49d<W{lLh}pgKgokNL8XewlWAq*VgnqPyYg{-iBO`xD%d`X||AK<!5L
z)UNceFS@c-`ys%vmzS>1R4P|aRj`ej`&T(@-^a|YC^cs8Hoz{xLDvCXlFJ$JAv5(4
zCaTM0E@Lpu^c#%u=!r~b9*p@54pDh{z{~!s=v!lgo39@vfWrl&j=#SzVgJjl&dxK6
zM$b!B{$v*G_ERYMzm*67X=LeY&I#taos0=b?9+9Y8uqvBegIGPaXB;NxDROb|F8ei
z43t*lNJMLBAeJmGA#5yWGni3!YirSq4?!V@FaTsxKd6=Z4~UW4)l(lIxZqwUK2*hm
z?$W8be?(x5@WQW(HW(YbcDsh3_*7Ma*qh%b{v~K~4$s~1ye1rJV()gIMq}-gCCSc7
zBb2|8vtt?e-mi7A^8F3xEfkxE5rA|HFT1}Y#N3jFQJUx-8lKq0tPW}D%!B6$9#@ad
z6k{6g=pA`M%1!_?7$PvNJ8}$rr`+3EUVp{7tCo{OAknm(tpYaNtp4XU9PqEcydSDf
zr?;iMA<|FnTnfnv%_%w{3JilB3q#jSO4zy7XIV2_B@gfiiJtJ2;H1*~w9Ku-A$anf
zH}%=t`YQ9EJ4pPOi7ypJ-eoofeZjoE5ZZ`n%?lmhoe=0$Jm7&iX*F(tH88Xy%!OBr
zm47b7UC}IUj--GBe_m7Nym(-m$a*9y1l_GSq|B2m(t}0yV2>G1mw3YLwjiE8$xaH}
z1|ZZz(?hET%4jwXU+r>cGPB9{6J(qC2^&(}p={bQwLNg5G!P>HwocT++q$NUWs)X=
zP^!M6HS`c!zfvN7dibcOc}R#$)u>c1ei#2vMlQ1emZf6@T-Nqprzct|+*-0WCz;<_
z5n{MLWhh-Q^ts-*ZTICD#;A@Q$Q6(~r3}_evnhX_M3J{<o3xoQb_dkn2iJD0TU|WD
z$iQ?8zyK<!`#gfz%37wUR4V`;Z_e`Z$Jbpq$4n;PSmJXZFizB$-Jun<M<1FZT5^fj
z+<|S8+&{_Ua)OMYZ_rdgfgv4-#8*2HZ0X$=s4V`(B*Gt9QUi@z9j}MG@>_B|xsur@
z*thdLtRaj%FQwm+_6}}`Apz3~U{FVlD4ioU{;On#Jv%lOI1Zi4VRd_$m~6NsBp5w$
zVzh9uG?sT~0h<7ZRXgKeC1$I!?C>y~a9)G^*aAiCt&1E{P6GT%XEA_OU7L)KK{oVc
z<p?ld!^Fv?YJuxi?0H_@c=;cZfLt2@u%ta-59o8gt`?Q51_?g%ZOvQQ&EA8gl<aJZ
zI7r*OCc@WOt6XPRM8M)bbAU?GdLIlrexMls5TGjqBCR3LslpJYjhWpIL^g>$SA$2z
zRUb|&#WFH~0T_jdU~fRjzK`Ea({zu?Z;RhxF3s`qpyK;rs_pjGXX3kJ7wvmDz|9<N
zb_gD6gyI^geO_P)g@EeH8@Ix({g!>TM_B9mmJ{vE!T_5fFbfV$a*yb1CGPGfV74w9
znb-Nj4)#q;Z&3`yYXwcT4%6|RMF)x2E?%J67~Nv~M@?-jr}5Iib|C67{SzpfrV#U1
zR!HE4L1K`J<7O?c44{VN)Hxpn^(%I;2aBIiAGKT4QC)MF|Ers7KAf-*Urltsv)ipc
zuR!U;PGIK~Dnd3kjzk>SRflhEt_h7khF4q{-)D2eU0!R0-R_Mv0a0$x>}x5hc&eb!
ziaWiKU)L$?F6=2Pp8NZSXA11A*&#~}*A2F2%)aYcYH^72CSk)RKhL_J-Wj(Hibw8<
z@<q)#c)a$w(o~y&q40SXl<urJv!I`9V67V_v&_(rsre43e6N9=Zw|b9Rp|P_#N^8i
zztbl|RsvEL0d+8l=iuBYChMNbLxI?kX|nnz+2Fsg<VQDYu+EF=OUE^(bMG8K7R18?
z0Q{eyiW%8gq(abU`XK0TrJAVkjJqWR9e(<a`HT$#(oCoHOajmnFy)nmk};|Q#=gG)
z$#%BZvPM=Heh$6IB^`Epfx{y6a^SDL7h2I&8U^R(ZdgkA;&YSzg@8-+1*z|i=|$m|
z{n^JJ_9Q4P*k2jHvq|+0V2`c*;<=v-vYe&s`QoN;2R}6#HY#mr-or+FwDu75hHhmG
zi+r%bNQ80#<2A{T0nqWS;uGpyV<?i{vMLgNS6!ysBbt^j=OfB7xxWcsI{vuKVpDQ7
z4>Q$J-xvm|rybZ+vEq+_;l$l+FbL&vFnyWUrM%@nh%a<1$k8u~WARDhh#GN~S^D_G
z1HNmjkjE~<zrfa(cy*;HnPw#Bz?@tn>8<2H`r_&Am_fCu-@k}Rda3XTLWVI5x-(K?
zC!Ru5EoMAfJAdYO(`Rnp6S74zvQb?0+Gp=zmh{%ueCj>!vUmmEsPB+$GtG}Z^~2mh
zEe+2NP(oQVs@B%_>UrfJv+;xT_b&1>biCef7Uyb>GoQMr(~b6QLQ)30n;OWQS#1=j
zgWJ))wpm@lv^hNK^<(~@;&)rbNa1UFK=9FHsFS*2wtr_M_(R$%CE3?KCYqO3m=@3~
zzkv2RbpuAN1PZ{Bu<|!kfd=lJ_6UmSwJJT6M;Cb3HkWWRskv9`t5CwPd=h5eKD7b*
zeldaGW;-dr7yTT%D=)yQxD(*v8)3bgXBe-i0ih6Tp#{Bx^=PVz>oSsw<raGsIuMCa
z?b|U!3UEWs1ujm;D>K~UdAwo<0)38GJA(wD_h?~><UJV9QktdrZEH~f;@z<o7ul%3
z+($$r((!R2%VhDixMGlq<Q!0<E-fu5nE6qT_+(*YX-(s?<C4w2v7YXT6y+%9?JOBH
zhE=Cp)aKze*AFP+{tM|*u-}7*B1;$(hWfa-a|53iAV_?7cf{Ct6Dh)vgKksyDD=Fl
zr2-q?on8i#DeE85=5a9nUj~LU!12`}>FdOkR>rYQXbrZL<ni@%GtliCN{4Pen_4mw
zJLa>82v_u<wQhDv$zT1N(>)YHBUo;}hJYT4Q=Vt%`-ozxEXC^#9d`QB%$%rx>cOW!
z8tq8wL_S<9<QBwioSI!N863$t8zo4dpB70ob)xpFN+5Ad%y)rfXsD*)iLMt7p2yq~
z)E&fpCPpwg=Z>Va6LwuCC0~uD^aNEGeL&9s1{(*|HznwNB)T&Ov55iBkDiyFX0GQ;
zJio4b%z_R4=$=22W{lNVt{G{*R|*CWzH{E}5ldsP2%+|8(_Ja=XVdIVJAYkI9dl0b
zti^6A(>61(prgb8%ER}xOqL7BUrT6Q3y;+qQ;uNSqkHJLK}G{>3=ei=usD~5PTU6d
zwk=}l8JpJV8){VDVC>Oa6x7}Uk~2@H*_+ps<rfTp+&T=hOGPIR3IEgA$22Jlg-|Ix
zSKl{Cb?VVsvNKK=U<0Jlw1J&zK$z$xJC272|Ay9XD2o+1{?Izh@O|AI<q2OcGV^O}
z1~?7n`{kn9C^Vs*y$_!sjt=wawf)fk9hiowC{cmN*IgFf9n%jVC<At$7+Os^$Z#e{
zo#tyF#*1%fWS*oke$SM~)amRj`4#)TxuJE?_%F*cEbdb!w>r(^sADal7^f+;%6bah
zVUQ?wRjMBC3U87nv3y*b3uUfX%Nx(rGeQ#UukP7i1|t=90P)qRUYdCincU8Ja_=1p
zn<>>G2U?RWN_Q}_PIi}kE}8hL76?((x5a3u;dl)Olkz>W>Kw`%o+oqO98*qY1TUrw
z_bpb;XQG%?A8pCTt<L7#wQAEGVr8auqE08rkfw1?QzKT;q$_!g>62(htb2cVq@<R2
zUMq+Z;8I9boB-=buhodeDQ349swpcqr3_O3iepN_Bl$zEl}QUAcnVA`T%K$o?<<Zw
zU(|$bVBJzZdNdv&0(!=ji~G&|cts$3fTv`=_~z_qb-G+2RJk$^iF57#%$449Pde+W
zeln&{F*Bv|I{oY-w#B{N2^=Ua*|VD>N+8Kze9!BNOD(}?KrN8Suv3i5s}OXujil@a
zHLcdk#B~?I(O;{(9KYd}U)|Yll8E}Uk?Mr%cNyKmY*}%s%%gT%RIJLt!gQ8zka5h1
za5Tr!J?o_}`=*rSqjkWYo1K8#rwN><GJ2h3-D~;0JrDB7lMVN`)J0;OVa!shAlabV
z{fx{}C*60}ylBHGIX}A+T93|LY>eE;x@cFW(@#(VWxe?S>IVKg4`2WuL6UodD!EX`
zVPOX<r5$~e>+m;3p>sKm0TF2iEzPfMei!5LfwHAsBxekO{Hg7V2dxm-DF%_XX_T}B
zP)7D~pocQkl*Q4+d}V|5RJ|GecFijl!$uSWadbz?H@|s3r)~QO$nG-2l8w@;)HUeU
zWP^`3`7;yOiyymU_eA>_CO2*))x~B1wVVK@h>f+pdwUS%{f?d<BE8QR43qUhfcv?u
zS>F-&`J05ZGIMBvf7al3@qwvAe0^!Dfq~i74T3%5w`=6$NN)%l2t`A9oW%|X(RMFg
zu0;^UUqDOWPLG7LIi;llQfR@+g^rN&9>!@3*M&P^XI6&iay;v2a-&CQ3pXLseY^Nw
zajB&oX+%CsrO`LNj4f3KHd()#eRDYpAnkNAWT#<wovuhVX)JsDuFD@{NDx8V$tsA&
z{ch2%!{KGmr>~r>y7?D|?PW$zr_jg}pIB+V9@=@Y>L_W!iyNgdkI#`EWx|?y0xGp^
zgppXN0Jgo=mTX~XP!w}n_`G3f<%mTZf+{hM9|R+p7jTGf=|Gx?l;d3nxmc}IDcm`;
zX}U+4T`IVIHInPl;=GrrTVl}Yknt!4gaIzEkqt2XxKL7RC4DBO+E1S{)iiUn(%&ax
zr0Sa^CM}7^3cR$ZzC;xmk+O9Nma7DK^xdm*ISEYPK}d2X2tjGwqKahLzt~rhUA+h@
zf=5r@`TH?nBEfphkuskVQW3%lM{^zjp@y5;WgE$s8yJo}rw*>C<)Ka;UYHDy(oUM$
z<uC|&Im|iKS>*_3?>F>L+iv=0QnJM-tK)1gsD>*D6>uHB`VN~%a9fOiYYh}SGwL_L
zWAw`BnA1z25zzd2DsE!50`*w)hn{I%9J;zXdr$HT*w<T{NzkikI+A_8&r&PIpsox7
zY!C2)V}?4}7f^yVzOl_^7@V(4|Kd6nNV$S8TuhcRp_zQ8m=;fM&|CHRu;iGxQUtKq
pEg~L(@zWPqr;N}4cUND49$j$Wv*bpKQf~ax&nw_G@#MuD{|0mP8wdaZ

diff --git a/reference/resistance_predict-2.png b/reference/resistance_predict-2.png
deleted file mode 100644
index 5996724eeb0514d7b73cf461ad9330ff23f7aa4f..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 71780
zcmdqJ1yq%5xGsuaV53MHhzJTuH!2EFKtv>zRFUp(FtI_Wgmg<Os7RNJijqnSlN9Oh
zhWq@=+UM+h&)#R>bN9J>jKf%K=yKuYkMDcmr{3?rlA<ilM*59ZR8%yiGpCfPsMa`9
zQLVbVel7ll;vYGTU)Elgmpz4F@iilz<B4B3Se?0KOGU+Wm-u&uPsfNp71drU(y0?F
zP9gnG&Tc9-3rizYrL52Vj-NTj{&s!lji`Gk&!6AA=Jx*XE!OHA?<E{hxV&a((ov42
zlW8iu?wFib+4*7R#`uU`Pfwrcq`k3n|H_jq_wA#w@=Z<2=G%tudv=XndMz`sZfxXv
zQG0WsZMlS_NUB?Bqpg|O6}pvwE{%%nqPIjP?eg!bRJN?pS^oWN_LaHIzrB2ZwbP2f
zzkeUKet7wBUO&C9b<Og3Jly|&)ADb3oxZ+%`L{<NP;oE+_TtX}mmkb3G2MF0Ml=-v
z%nlcBIiSt-e*1$54@w={?L_tIWU`E3RepJ?d@gBjq=;qW(~fiTwq50Nii(0h&dSQl
zF-cxq@0}9c=nx#KU^p@L@a4-R2M-?n)??Q@<hkS;lXM}D&MR^=ljv9ci5G*#Jv)0U
zs^dHNzTZ^!kUPJ7_e+t9ZM%2JrIw4z=ebVR#*m(k*Qo2N(tUrkJ%jS<*RQLzyLZ<G
zx}WS`Qza85VEUqEzEdbj(mgwWZZPMJx=4TSz>Cbx%#U_z#(HWAaeigtQo3cqLUrLw
z^M>ZlxtE-soloe>s@nhhw4p#S=*g3aj~_oiu~?;lI*MscPMOk+)Y-YuLmpFN9bH|V
zhYypcnjCfgM!nveubDN=n`(AV(kkan$yI(4qG_2YaJj*Ap-<N%yy@;{ro_s0W|!`L
ze4c%^uS#+q>&*nq!Xz|5fBx*Uv@n%s(Ui?Gv<3I6y0!JrxAu|gg|CtmZ8llsRp+FP
zCwgmUtHKv!@Jza+9&$Z+uy@zqHFYwZ8HFSKIMsXG?y{&+(#`EBYSjDQ-&plDS=35n
zdU0+@z-@Y1gVJ0XE5FcSbmdB9?aNCSOeyOW)mz-g9{V4;w4dZMnANqDfk88NKGIC{
zhNPyha|bQ%OFbdvP`KM$1rfZK6;+dcb>}2p#(AW2EVDZNBW{grW?0nlRfy|Zw1+x2
zZ*ZDV&iu7e+o4{c9P{DUx{?70bz@>bCEldsHn}!8IbcFbf0e&5NjanbS=ozv&(+EK
z>8XMxrk>utk0ckyFW}ZSq~?dEW0JPp8yUuhAHMM7c?t1iZ>(DP+aX7v&WpP6NlC}X
zp2;we*`AGkRHryCeVSroSeqOu=Bnko4CZ}!?wdph!X#YZnbsw9_!Sua*w4q4bER<Y
zQH^);mExyQpYE+o3C~*mdcY^%eQvVjg=c4=AuDNaYDj2RFD|w1`1Rc@LOmB}I=5I1
z6}FGCOG)YCfnFGD&ReLQ>aS02)Y+~!+-O@7IOp7CUw6md6%WQg|J9C;jHkJ|;^qzS
zNZL6L0#(^sT-u%s6QfSz+g@5<t8rj>mRMK5|9pkfXoG1=V9BOkN0h2woYl{`+m-Zn
zuqh|ab;^RIoaZv}+e(;~#2{o*-Bx(F@a<XO2dBgy_?vru4AAvRz|xc_GrRV`;h1Ws
zF{BU=b0&-jKQdx$p`B%kCxCNf=B&xj*O9xpw2YFs?BP9i>Cz?I&Y6WFPs>5QB(+!L
zT~bR~AIH_T?fruIjrWu2C0zLPP%w`F+}e8j_ze#$ikaX+R@QE^Jl7A`p}e^B(K3N4
zOrmyY`sz|rKGUy!s;a|4QczHdQw$x)Ztfe*84}c`q?rat&h@7@yxec4@vWj_sxOj~
zY2E(XVkkC1hc`ghhxt{c^xdGo{2K;)8^mY3qdP}iKio<RkqR;In;)wXDr#xUb+%Q~
zYtL@7C<_vhCs)5X%TQ3!T-<0~#MH_17TY3wtX!<*Eb$ic2r9I6vut9oUcJh3q{Skm
z@2M>FQ&uJsn@{9tBPe~Qd*44a2^KUD(tTpuQS7(vC5@HKn|d>SgM+&1W|wZ8tU9H0
z{`}Ldkmt|YgUfcMoBR3tc4u{k@zo7w_i@oM2$pJvi`sKIp4-c@fQuvc<3UoWm}70A
zVc4bE`LrMD%ucN<Y-c9wbW`{jUYrf~4G!ic(Mx%_`MI#->E+FI26s-?*CeU0n}1ne
zQK7!HxKK8M9i-e9?&+aK$?WjgEbTZH=Cr>%8&|8cW`&N5rkh)Ca{jD|tvgl(alx}B
zMa4;m#I~^tDWA*c*T0U^%--h9<n)_-H>UW#I)=0()O9c`d%RK}7tfmT?og9Zi`$M`
zQL4CTp=PH-E#_laPx+12$x!}$OHdF;!aKeb`YYNC76vRkN6Um-v^oX^EE+Fz=MLY@
z^5_b6<T!Mwi2JOJjF*U8;Y?R}%1C?BI_*W=aYDK|MUI2%%l_v&->^4S(J%xm@v>}Z
ze!kH=(M8F!jbl3-6r+>pl5nNaOYY2>?|76+sIBK%Jf^SseHoi@5}!rc5^(6hXg}C^
zDIp=@!NZ3aTwJn6?YbkxhH@{U7t~C(c<K)N++N4x_C4fL!dpsLVva-x#oVGDWjJoe
zEyJRzw9B1kx2~J@9s8fz_DR?Q$F$uiY7%t|^2ubfUE7`ACSRZI(|B|B&c;ofZb^D!
z8}VlJEnMjwaT@=yj-~s?I%XwQT0a!<T}L&#%f*JO8`4aZ1j728^IQe=zEDpLwdfYi
z)})lS*JjxoKBhZ%vLt|e%dF_e4uPGDhT-n%Ss{UempUho7v;yqd}3VNadQ)wlCm;6
zL@_SitX_H0;iS7b3NqRcThC|-w>th;WmQ#8fv0C#AfN0Z#gKUAOUgA3&(-ad1A@|1
zd#h99<Imtn)IHfJZC5VR#lCOf39LO86d3{gUX_LEcApb|2WoUQsnyO-9p&SzY7Cco
zOdnX$)zPs=oTXXENkG81Q^D4`|L2>x^=3B0jPxQlF*EZC68)UYI%3-SZdqPvGPqab
zgI{T8)ZW{6V7z5%QRuRWnB!ozo{z+f60RJDZ{NPjojX@|eZ{JGS3f^62`vf=2}jRN
zGp#FcO!*NltDY_4Qxx5oQqWv#+x}Q+?Y!12MKQ9;<eu|Q=C!9@Q^Z3XCa^{=xg2rf
z#WT`P=_}t*23)!$@3NBaZegjN9H5k(4Gsv1`}}aXJcmSi^Lr~*+@=DPn1ioMgXUC5
z!NRMV23Z#O-&4+SZ93#^8{00=_!lu*0&N|kZe1!36{~x4?F?^2x;cYN7}{c>bGE~P
zhVg8;$LzQ6%Gig2ak;YCGmldW7PBiy9fq3C`7N7sD@SvEup{^`i$u#j=B;|Eog;XJ
zg8sZgRM)vH0x!^MAg%5Z_O4ox)ZxS5F6O&A#}<9(p^kQ)8Z^kqXEg}h{Jv+sIMbzm
zaZx`&+u)j^;X2ht^q@z{+Bs|UhES0@{Aqhl<2e$mWQd*1S3#?;b-r`rg3m&}`&_X^
zLAd9lbKrcWBr~&5k<)BX9Osb|iwp+5aiNVHH_nGmIf-}pGng^(Jqpt17BDwdO^CZf
z_hq!B<ni?Mv|NU5ownm1U=Kh4-Gk{DX(NATM9cc9^|<~1{kuA|xxT*MLw~TPpvBD`
z9o3`G`pT6nO8Q|gIv(>Qvh6QZ%M-11zxc3Nrf&!+(Whn>&-^%!0w!o<YkRA?LMbGC
zVQz}SA*V?p$D}54V}^)+@lHN-4GoQ~iB~3K8$TQ3y;AFEUoH{VZkTwZS5!Kxr>Dp1
zR<W6t(Y%CbUP{w4f5xDYhr0bPiw93QgMf)jmUD|!I}Kk`Z%q<SA<v^rsRn+Bx#{vL
zzSmw}O8xS+tV{qnue8gc^!YYB=X^oSW;6dE=;<bYsDDb^T!y0>uxls29SVQmm!A=}
zZnWMoJOLllkZG+KtG|Tmkv;wE;lvMF7QbLNPEPp&N=Dt{!rZMCJDTdr$(5I~?Ggqv
z+cz)Z8~t9Cm6TjS#a%GCxA{x9eP4C9z3ITuH_;#M2%G|BsBO$0J<(U!ho@8-7w(}E
z>#}-#uPJ-u=-Ajo!`Bobw2f6M8fkJ}VXhWgU3J2-aazLOMX#?EmTtIG+&<z|O>F5f
ziJZy-HC6VM0IOhO>!{hOAr=+O8FgKE)!kZFC;VKb?q(lVJDoXoG{mi_LVPH9tor38
zKHCM<3?A3*uHwwEE~UOG?nu$jQA6zw19DTkk`1KOjdn?<4AfeBj4=@HJf4T>FVz{A
zEfKw26UVCXAqAR~04gbkcekuNVp!sT)FUI-bNq)a(DdfSeA+k4!CUT}N$*R^pDotP
zpKLHq5?7JSr1+<FmIe0#E0S4>YJ|nRqUvlQ?`bm7UJ^D{jZ<)i_}HT?Nvqc5O*SP*
zJFRGlXMAgm<i%HSE5wGxZJnF4?K=huL~6gS^>muV=+^@tQsQ{(-ZoXt!dA!s0G_xP
zFHAn%T!X^?L{3ib_lT1(HvT!unN#>Mp|J@9IZ=)sIu~Z<y-GbrM*?u{%(~5tKy&1x
z_NPVd=TDrtv6)#sev8z+lIL_Gi|_O27Y7zz^-MBuz6;QIg)X}<Ij6L%?v<vY<j`Dv
zxBn;fre3_#8tgcgix=5ZsmSE*C@l&}>M6Ac1GKKbU=lQYE@Gj@vp9TLid{%ZowzNm
z3g2hX^!y79E0_t?XwZNKErY+pmGKg*(m!j>I52drH<Or(lG0wEq66R&&kmh4sY}*&
z0jRFQPQ0#vr=5P|p+cVG#?i(U-GYr{3eR~?a0SSBh1hxnSV!+Tr1-Uc<aym~%j?37
zMFcYbadXY4(g}I4tW!&iQw4tE;g&ir04d4<Qmo%{?+B`#w9dQzHdOT*;Jr(4LR{$t
zUcCwMi-D_kmR7?Xy}K3#3l4l`Sok$@=fWcn?cJ!a`KUTSHZCr>Xtw)Dbm!Rp`}bE=
z$fEU`XnD3|`!I>s4haO8y^xx3+tQgWB&<TaMPmF3*13I$pSsCdXPLnq`;jBn1xpK-
zq4u?x3>wxkI~~Wussl~(_4SPb-n<kT7-*BzgnwoM_UyrKf_tQ9em|2dO5HM%CWPfO
zHaUWRq3zgYukU4tZgRdNOrmT8n|CHJMMa%m>cGqW$^#l?V$XBAwiG4pZ#3^yY5(&0
znTm@xs#TG`&QecY_&aloAgOX;s)akQ>QcM8H?u?oBexJRNyrmLvf9gwZ9-XAsxdJ!
z(`OeQhFd=bsqUnrYE?<AI!~vzwRE5hkp2rg&EsH;>~BMY=_u3wn#o1&$C7hL<@g3r
zn6Lcq>Iw*M9&lh-wQe(i6>u@@<?Pf7Ns7W4z>tc$;kj+4=Khh5%}tIi=Ke$_S{*u6
zxJ8P;Hbqyr$K1~%gOW)sKJ)nwZqEdsyrF?;@}ri;$qX;b0GH50#EDy_??5GJo_}c{
zp$pKmxgW?SAW$=neycvC=zl>?I5{$L<BP{TckQCrb)WFF25p#Osv<6c{qW(#&laoo
zTJTOc-i_yZG|adKMLQ-oHqe+TE3fmLN8M7mhoae}`EQT9j3g?GZR*T>-(j<-r>Dmt
z8;exUX}+s8u-!4F8F<~M$}1X`M|kQeCufO5fUmDgd-mG5U={_li~tA<L0I6ku_A8M
zR<RxE7c$<Amj)+1et&(+YaR{g@&)C7<qPyCnU;L_vUdcV&6-$WH*=VSgSX+G@s44C
zrwqz~5aR{BWzGfajW3w)WS42`-}5^2&Xl{Q;zpg0>nl0u!kTpI1H)TsAY6!uh;)wO
zXL3EW#NY4i%a`7&>UeK$3fhssabc=qMY4@ZTz3E4lG0I0XbAKH>+oV9QgJKf>%NYy
z9I1C>iSwwRpjn-zm26Y80J1S(EN=blRIEM0G8i;pM?^#@(6_K;-Ox#SaM>f~j*V*#
z&9K^O3yb8e$6p>Zs6VfrDl&9&ak<k~#Y3%!tM*$viK@{VU;su}(;Q%>Ev>5BB>2lp
z_z^B??UAafpX+ig+k}~cUL$8T+}zw^+duExwQKgV{KaPbR@F-kn>r?b(I!(3p^D7+
zx^#b!lq(siit`D~mk;3Tc(F-V^W_7pK~3}3PAty9x7jj;f=UQ!gLswNRY=a6#dgew
z1rQfDd#E&_eZT@t?c;cUohQ+Kdp<gQ6f^itRa-mW+H*+cxx>z0K}$a>OV)-ob+q{;
zrpwgo6y8Upt8%@rOxv>yd(3Cf<YJW<1OUqa9HOh?e{V|X^&?qZtiX0_X_uM41^RSq
zuDXtM?3WI7+UcwJ*7_!8X8s(qPQ=pF40oRl^gpWE=}4(h08qTfwKU@6se;NKOHl-l
zA8sowvmZL@l%Je8sbM>FXSdG!+4Qd7#DRet6&stk8fhj66YO^NMny$Mj6P-%O8z)@
zn1qr(tXWY~!uhPzPhIC&fa^qWhmhGR)jNIki3!CG_gL+_zn>uRr$|@G1!LzzFPcpz
zEg!ALbvzgB3wSvh%2~O%6wir|oQkE;s1e=O6*#T5BWEaIllT$*K0^b=V8;AKb}!Gw
zH(XV%uFbzAO(NYlC=1e0_SwVtqVZjRM!>m1-dMSzE~45I98sZN?9uUCYiX)u<pVZW
z&E-p7)7SUgv;PBUNY|n7PPr(AV+@W{Xm;zr@z9gg8r;}VM`^pxl<!k2@K}f#t5KtD
z{0)gBFKZsO;du$MfqD7(4*Gc*sM?FSJvgG7{<3sfqPcCq$*)qr3jTl+hCX^Ks)+3M
zz%`SDO-ZzzYAT{Dz5*>7aZUA99qJx+FJhqK-}4P1+<*&LEkoe*-`}34+4t4HUQK7>
z>Pm|ZR|zyFU{Fd&@Ep;xQa<QdhvKSwrhcXx`UD>OX>D|CPe6r52B(BXQ;KAqMutUb
zmK(V0y0n4O+kNyK?^ai<*bg;p`$#QjV#UAU&Y%8B{Z9P_I`4_tO+_Qap{?<6-`vc*
z`O1>#q;uYFiWdz-X$K)w#fuL#q>X8&nBC+$Y-j$4!^E`ZBe)$+r*IG1u8>B^H+Zr$
z*itaShfyR7os+G5V70AI?z6L`*d0&QcDaEA4r_7`ZHcxD55G{<K4Jb4*h1mVt=DQM
zW05=WI}CJCBsn(m&LzG|r~Rs`t{po)?L>;T-RA^oQlvG>WSRW}Rc+VnToKz&BOn|B
z4lypSa;?n<H=)p8PXxKYUM{sX&-<)p=kDF6s8c~eV1a|^B5E=+GI#W66nm|)YB-?A
z;R{!zbn@iQU%!5p-nF!<bi5fu>}-Xs-8xQ@YAHIepd686S9HlTJD)<o%YrhLf(O^+
zxwN2B;NhN?7nvB9p0WGh6}liX$7G<`>KsSQvJjCA;2#Ozj3WC3N>s1-C<m0#Rtw%7
zsA;F%8mML##r`a-9T0Q1v&WlAyno#M6Av{3OIX~;pN2X8+MsRo?VxI}YV|wgs)))v
zvrcqgZM%mjLRk~{6BP8OoO+;=E_d5CI<LjKmZhM+4{L`89CC2eZnhH7`;P4--ia;V
zNoQ$brww=)XMcS&pfdK>2dyRi4d!u&n?1*d#I`-Nj7VlP>6<SF=z~Ty;yMTjRYkzM
zI}K{3a^{lNCOO)3qj`MMxl-F!Cg6pfQBZgUo_UZ2b{sI-UmqP6wLcFs16giW=h-0s
zgdc*r)P>&%GFmLw>gG5MBtAVL8<a9N)FRbAq<mv~ZExNQQ@kXleRxSL%eFJ_*b$A&
zVpJJJ(tuzyGe18wwqUSlvLkc_rKH2=Fod<4nHi2FM^vCkYH<b34AUsiPEvEF#7PsS
z+RrccpuB&)WlO%tM0t66ZLafJb)KtZY;3G?{abxi$<0rjn-d5rK>ymc>h5(i`X{Y}
z+Y_W@Ol{;XGgBga69*L<Xg3(F9kychxlmD;khh_vox+g7_Gh^#*q;Sv79HAS7;=Sc
zZqkeM9J{5+W*PHA&G?Srzl~-_JAj$?s%&eal<K<l#74N1)FyIo_lnon&H!hP<oIck
z!LaEo`+ofM98H>Yv$EWNeYzhpT5Uk#sQ4Z!UDko>dz!^<_{NOLG?ekWcr#sssRAM%
zAc3^I%nf7^>Vqx2uk_u`Gxj#|iQtX(SnN)a`Ts0-lOA-JKZ?_Wx7gr%y5mWYS$M6j
zt?7lWB7lq{fxegkz&X{Et1Ug}G({LUlVYWmEV6spB$npK{3&68tvTb>7tRItfuE$Q
zz0!yU{p&-y0jh&G>5)g`&hCzSVqU<ZC^3|km9>wPv*Av=Q;3Gai4!N3W=>AXN)we>
zEG=1egMop*eqf2;V{66@YRwrJmXx3h>IUvJRdjCz_%Lt*QigO;>yVZdlU`ndpRwR|
z^GOV(szWh)UK$BybqDh$Qc*XytAtfWniCq9fz>S7UJZ1U(mD=$t|$&*zeLn~ik2r(
zs@<18hV0n=Lv#w^lG-gEbLMI3ZDMO};s>vzp$+dRguY{XUd|8eAy`ciVuAvFa9O9&
zVha={mf`ftV&?p3pHx0sWF#3^z39c0+;!w)#Lb&4%bp)AbX!1GcmJNJrkF91H$Pg^
zIm+bN7)fwL*bGXk24w)jtT|0Oow8$4vZdb+BtmKN&=VMJ%u1Efujv%9%SIi2jX%pc
zvrf#b7ZT^m^mCEfIv>jnQfHb5^P!1Ej5>=m7f|}#T`NPmUglb!lUjJ!l3mn(nD1Iy
zg3pB_AE~C6119bBX3e?vDR-kBZ8Gsb!Ib!}6>hmiJTIasWz7SYuJP-#Gtv|cKD&cW
z;fczu;d{^nRuXWx`k6%~UTW#3p``_>RCOzCoP{rK1Gq+@B}v<bFASD1)ikGP`%=m}
zF5EqV#}<EhWo~@>?c1x*hD$bS5$ti*<a`duVp#{sT8vt6CoO0pkYJ)-k$0!9Kq%{h
zYRV=DGl>>Gp(`J6%emSZ7#hw^G$fig<v0oj>^^c)Df;bxXPQuNbaDc6+s+UYJjXe9
zS8=aVmkq2cdKcwlpDjA&LH0k<A!4tbbGb+)*<7tLL&9~kdv2&8#ae_x&}=y8&aB<e
z@-bU@Erf91IlGBFHv;b?SZ`qwvh@!rj!7CFHg|H$qK~vtS@N{pf%qn1)%u>d0)kzX
zjK0g!i?82@7*+S!nT-7Ute>y9Fp=V^YGRTYQz@mcNaLo?21;SssOJJ(?7Gr{_Ydj!
zfFIUBtn09uDKqKs2z{!_L8IVhBG{d1)RLc<#n^9tzpXLMF-q|8G{wx_b>%ufwLaSl
ziQOt$Z8jAWQ_oA5X6p*(U7o1c^jOh^D&qbvas~u#oqMYj{Jbw|X=%MIV)4xVLYdeI
z)TkQju#37SOdFl}s*-1n_~cK$P8-m_n_)%?>6ffq+-}`MWwFW9Ix%&P8#U3)>}B8*
zp)%KGtE*;~`xLeRcr4T$9}>byip^+iL5m{%w(e-3(ql#8u7e`4bn>!a<m@{vZq7_Q
z7CPS_?IW2u?vqlLU=EI$1o@-W1>CSY;X)j}-(kPz9)7R@+Xegpbu{;q7<phmm_ua~
zxMVHV_KhxL`8P(BQt}&yenR=Zy>f+4^%>~YEt#)<#7EBrzW+`z?B)lchzSgqxyQOU
zq(I2nYPIq)ddArh;bZYE8Ee+8ae=~7I?>xG$=ExPW>#ORwFr6iR^lzo@6(@m>%Qax
z)-aW(cT4hyoA)!N9M;lzY!a1MZ$DboT)G75MW9Ygul!M1czDV_X)oWbvf2_JYC@ka
z@?lBoWcH;k?)#i1I&g#z5`?OTMo^YceQ7WBk3`+e?}b_&vfni1XTenn5vkH*;WJS1
zTX~2mp5Q`RlKREIPbMcfr&)!DqdEjSuHrYT{+hB*@8Pba?+DXq0FRrF99G_DG!}mm
z&!{Hq^d?fQXR$i}qpF^t>9r6d);_Vdu`v;^Pk?+u==>Gg9t*QQFM=&NgxsN8+Z8c6
zKJQz#mU=jN{N4V1N6NH6HsDr{)lTR2_Uzfy8L;^A<4IVKEkpJo>W(e$b@Ti44a(>R
zj4Mxp9MwYDnD+>Qkwj=)E}&y@6}SaVYZaE}yQEfGOeMsHDMLzMOG6)nKkbIWAXs#2
z%wt9uXpqp?`}@s+ZhD~fzSNl8Q#>%!%q9YL*&VFcBV%w4uhI9tw$8KTJ@kAAj|lB>
z>@LaL`i(>X&qx%rM8k@(nua1JqUvRAWs!8d2<xQ|mHM4!i)6vVQ9x8kH4z!jE}X4D
z9on+JUUD!N6=Lt9Kz7dl`ux!TGp)K2RCfbsC{DAeKs5lmyaVDp=XNG8zqB`R-gxL;
zwfy<|1cb92lC#|hQsZ7@q2tDh<ymmwRn)#W2LDx?xw-9Xnmgt7m0P+){eYvYS&tq)
zqPCp@O_{CmT--s<z9TJMUI9W=I&$`456Js?-vXE4<nWY#hfUT=US><-25}A{lWKNb
z=Y`pcju#KT(kIXWw6QV#R9uQ=d0J>Y%R`e~CVEL^0(bR73p7=tjGAW@%#>Lsp4UV}
zmZN*WWZY>7c>gyG5C~AX@7t4W&@a;EoC#^G^Q?jbKh(^UnEH3d&$clzn7-IF`2%Jc
zuRiUrU20j3q%RL>Iak(tR>z+=2tu>;a(Bfpkpa^T9ET=*@9|@St9p8mA!p2WKpQy5
zh2|WQv5?cUP;OM09GaC6IAl|yJ2lu;W~U3<l-1)#(7#gK@$MfsRe4K`bE=XSgu+(>
z>q3P|!1zE%LiwAijT0loPU2t8Gn#hUi4bM}PZ!Ea_DegKqNKxJV{G`LmY~S+6I2ro
zpRt{N^z!A)jV08E1fT8KR8#X0l*Hw*PUK>Bm-33)bt?_nfDehMhTuK$rl?QkLS?U2
zkh=EuiCk4qlSM&$V0gIhm06|GaEM`aH1zyDRT5K;wjCC!uU~%`hFe(nZj0pf<t*c*
zO7D|3owu3{*sIoP*7j5;LqmoRXyi`;VY8_M|Kg=ys;CXN%+G3|j6$4Ji|v4pS1}X>
z4yyXSqX0g;hqLE&+ue;-EN}r8DCk`r1IRcWf8G7z;S)M+c1VaZm6V*_Tv`{|&Jx}w
zjPwN0rNt8gVrD;iVDx8|j-f8hPEsuGu{qYMDuOV+1FbZf;@UJZ`K!HsqE^$=&$-#r
zq4$C-J5ZK8#4Eg-ha63dfbsmUll@g!A7#J?Ge!sY&|6YfXHSXD-dkN%Xpn0BBkD9*
z%GKD8BRaXlF*~@N?~J-6D2gRL*u!UF^o@M*#N+!C*o)}ee62sd;|_54Ybq*ww^#`a
z>|y>WGz8duZq7Pi+S&u)8(vMRn4-(n;DDq2LIQ}*{FnAn5nF>ZY#P-1!Ll8&b+0ye
zq*}LsxjweKdLq5UA*UuqSIXA?d&G(CHZO*o<t^Ya1(A%92Rd!;@{{KeotiJvT~z+u
zfUwBwyHwmK_lt<sTb9<{Wp-h24VdOD7nTMOs{#lTaGf;6n>>R;5K!2rgl<4o8N%(8
z_doLE{*FWZo{Mg%L`PZ$;R(lOw0LO3{H-bBE_g|?$T<sn;7OAO;f;wp^v8ocn4tQL
zx{SxS^taY*>m8UFpr{kB(Rfc4N`+8?HEqeWprAxlb2&oM#o~Pd)Kd)7d-Uj87@g5!
z?vt08#GRBp=i6CIN~xGggj1J4{cDqXOa33`o9#H1j2-<A0Pw`EwY@L`KyzQ<uS$bL
zra~PkKFaA^r=-2LxBW^61!b3&aNY<;$(8kc`{yrT67fbs!~_2PBoUia8BGqFKa=15
z-7>1jpn!%7Tc0HE9vJNv$j;X`t9at?{D{6A<~B;gLOo}hJK{xt_Dni^z)GxX${gIK
z^KFwwit_bN6|@GPfF=vaGb;ny)T+k#zy(kv70JH-{x86NR2p7rrkf=IxYuYEjC^6R
z$0nyAl4qxgb99M0o{W(C-RD9H0s<D%IwdFfKnFyHBjAly+euq;8(>CMW7an6LLMJS
z4UGolW4Ct!`vseMS<_dr5wW1XF<b@nHs(#)sv{#K#pUH{z$-CHDu>Kbjfs3fOeJXx
ztc&vXb?d39s#VAT1c;*UIYyPDY31Q+wk4l!>R>94NAt|a_Bf!$06Qn(Z_p^}D}fHm
zIeDO9K)I03l(DbCyTevtBUNHOlz!ijD|q=gpmg4#IoBC<sJOVeGDO67zjmnTXC7)A
zCQ%h~b+qi3iS8c<J__KH?V0rcTcGL3t^bVZ5}pI`^`D=K`un;6)(3O2Rni{6h6ht(
zka{|s{z|)*aH)O<h3P|3M7l8J<~?5fe2RATB<?LW6AbR3tXw)Q!R$j_c+cwbRttw5
zZNcEjQ)BEO44uZUg&A|hWj74XWqmSqdN;gK?v-6OB_>)>5_M}TWX%02|JAFByAuz-
zXXpUEhVi&x`|)ei*|P$kdx7C)GX>*mjE#*60`B4A5tDS22OyAewOJD)B97m=b7x!f
zwvR`T9XpQ&f**5#eB6$tOd@UQ65sf9z(K(5rxGkm0M@6;n?D{A5xInKBgeohNzBX?
z{wQ!VGd3pX4B5uUX1~^s+nP`o==qKICh#{u2@Ymxqu<vE?;MH>;uG>uGKdY5#MG*P
zk4WVaU;o9Cw!atgZ@s?%4_Uc?KKQ|XyEP}V%JmHm5mVA`c&q;q5gI<^t&$)G5CN~9
zDtln`YQWu;T$;CKlJd}khVz3U1g6PZGMn!n`0d<ek<koN4CJo?A*C07_+Z|Y4$6H&
z<2algb%@*uUi^%h-0=6u9&b`LT$xKap@4D4;zJ`&H;W7OiZ(xHk!t2%0Om+@pL2M1
z@y$uRM4}vg9i{h*L|N|zl}F?C-@bi2QQ>J=B(;e665d|mz>!ODPZfDHU4ZzeG`ITi
z&xx=|;*;jbLe_Tf@FT!wXGM6*h8=9HLxo_%5eya>58<>42#F?;T7rZu!!%InKq&hl
z2hbQd4;3uwP%<p*5L-}zSNQqUCnIR>9PI4hAyKNbEg+jPff$uBVAP6R1<MaL>RjlC
zVWJ4q3t5Cfpnri}+68c`6J74W&O{?jGgWT_fqUTN6HsPw0X~!f%x`pa^Ty2cvfhjv
zE;R$mk;oeFjIKy_*@@P?)t4t4y@xSP;di1d;lClO=5gFz4pSayQo{qSK`afxlZ}K0
zt`u0eW5*7A=%i=J2((o_=_o5MCacg_Pt?SpKcH`5Fe{N^-7W)9TAHxI$_zHSv@BnK
zwfT9L)-n`g#FJQiU{G&-{sQS3a?IIa!8=DR!DCqy2>E`dv{YeCfP`%eTRD~g@_Q-)
z^9KHSccQ4{Yb#T4DXVEs#{elfER5@J;WnPLz;mo5Kor~`UUDCJ&3EX+@wVk6vdYG<
z9f4SSTM7yS2f@fxuuln@FmW)*7~-n_%5OT5QB~>7KNerT8ntNSL+_9iI>xl7e^Pfb
z+D@1;WQ@I4qAR4Y`)X>vaM$_wt^xEzT|e5YE3686_FrVEUTet^=U(TY|7M$HVKj=8
z7~|$a(Uiy_#)5cDW7tDvj}4#JlAk=;OF|)mB-Qy@^I0yT&H~)U;@1=BBqn@ODRew$
z^hH7y3459xLxcwq6m$7?|4=b?hZ3#cmq$NfjIPQTwE2C827!kLeN7S&+<xsf)nw?)
zpNooQv+3hcZ`iP*bM9!bWOGII!@{=K5ZP^PJG>=fTRu%*X|fI1{kg}kmfe4aDQ@|`
z9qo~n-15K=_hzY5rdk21{er(tvA|{4ORi&0DKn@-GaDz?Ah9q}Lc7XC1sn&pQ1oE^
z8WsB<?)@Hliz{zjnN$hrl!mVC4z?{PFJA=+SDk8jZgC&TAn_HYQoYV8FJqHaQ6<f%
z0f*p{{EQtntSKt9mbJ*qt(uI`PBZb_%p&;`++B`?X3*f;H6z5Gf_SdngcBj)GHx``
zl%ozpN!uT32h!Dza3amL1|%$wmjyL=YJ5~W0aH5)?mc|?j545xn<HxdSl;6dL}7*&
zcG+LROYe8c(c)6a|Ilb%Sk=TsUGBUS+7=`R4lXYLqW1fC_FD~(9XsX`Y9QQYuM2S^
zCTK$OmVi@B#lexBBXVd6fJ?<4HphM|(i}S_O;Zi)lx#OW+-6g?bLY-8qf7ght8!^Y
ztbg4miUAm0V8(02d(<KD5D_{3)OzgY19*8C3FiAMqq$e;7$pHA*+?7R5`;P|EG(2J
z-bO*4AIq%kSop+^MS+m9Z+JKh(I`=xN~tWNBZGV$&^mBi6RQ=l-C4?KdoxuEWuP-e
zc12E8GT>igM8x&$9y`w<fLsvW)z!6Q{Nc)G%?xL$lsN!Ge8}GpCmgDX8{**R_E8iP
zP<eLcVZYy@1WILPB`XP-_UP2fc?9JSl3r<~ZM@X{pcJ0KV|oE)Y?*_8i?8d`&4USa
zRbb?S8hnr>=Fq=B+wAY#rm~mC>t^6Ly1bZU2RHk=G2HPZq*-WHOmA~LW<ZoDIs$Y}
z=BGzGpKNZ{p>DqZHbCfYcxWh-O8xRj^!mqd8E!BW#KSvBes}E~nKxzk&Yebx3y@=y
zlCwFkIj=g*#Z`+HY6q`50mf42So7Y|gd18zN4rZ^0O*LXQ*rndxk@a@YpM0`JQiGz
z>g4|HKNbu{2azll#99e!wi@j9Nv8zVkB7f)vg}&ir)DIEtc0s!G=ezQTfXld%AZpt
z+ci6Psk*i-FX@W`W$_0tG=lT?f>R0A0l(~_o(OF;D}8>f7m`ol{L)N?=Qz}>wMTMJ
zKiow`vhliB<?B4l)mgWNSp``{W{>H%>v`^AcI)tH<sj)6K&yyGK>RVYga(||O2i&G
zkL2tJ3h6v$W&d=D)f8&fwqzO;X(&N}JI}8j-N?$y3X`2gwj2FTV!MP_O(LQlyLu8M
zcE!ZS$#aB8+-ZyNmBimgHBxxHYYmV{Sql-_yG%}FZ_VrDKXmBOM}ZTW=t0k)ecnw=
zd+eLWPAkz+ITGmyWaq$Zue{u(Sduu{KH1-oALU|g=_+|>sB8D*v__^?q(7H-BCJa=
z4?UBr7mr;g`xBTYT&CCDmkzAcj01A+!CtL_S-OYkEOe)FBu-7+KHfnO3m`av*kGo#
z`|Nna>wj50>Y+U!9`;7A<L;$*8J5|Ce_8PF?*Hyz;=h;w+)MGS%P{ZS|K(u+-(~W@
z5e5Axj3Qj!uf5`wKiKHWlP6=6wh0ObmuV%J%x&<5wiGhNz7-M-msqG`!K8QgVL?GP
zVCP9D{eA~AfLN!N!cfIH#?7*~O>bE}yg$=nXr!eT(jwZ+W|`BukUN-4@$8YkSl3R&
z-eKMXd4QMtz{j*V=|S@^()KVe#1jZ9u0Ux<a5L9LH_-%#y5G-ubK#edfaZuChxD<Z
znDdr&^OD`&;56RGC(aLdeO{DT^>owY{(bDo3t^SrvlIBphP24M&|ywa&W~v)%+JWn
zUqBWLNu2}Qw6`z8zC^~Am4sD}HuH$!0KhbWFm=#5_G{Bt-z0E(tgc;ZYAQI`?O;%B
zsFi+*CBv6Qu)Y*4nwEuyn^cT^4sPSN>1``{66vXmOaA!`tm=4BV{!~s+m6monM|4W
zLUC0IzP>wwOcCFg%@+0d4++s4pyK}T$k+eQX_Ei?MW><=!)cYxLoE&R{e$o)VBVsq
zcYoZ(tr9NjUL7gDuHGzt<Cr0^drxKTEH<tE{IqqNag|J+u4i6yRwum(qxW^^#{U>R
zryt^5zGu?|?>WD9*cih^BobdOW5Gg}waD((#LDkR6;X6>ZQWdfUh;i<q`hOrskAHI
zvLzW3gX!l7v_ay|ZwWPM6yq}gamc=Y5@IItb-m`;sar8nkadX9hbtNx$Y<C~1lQi`
zmq6Y!OEda$l9)<B8(7&{R#sMXd&3T7{P-b(5RrEcM2>N#alpYQ5GP$G>kUhO&tdL_
zpcI5&k6ar8Gl*C+47fZ92KtpO5-ut!d6Pk~oN0Ncm#32U&Yp6=E+i(V$>KTxhSeBe
zib+#;8WcPr6k>u0AgCCc8f3HLiVE&$OAucCfNDUZ?BU6<OG@g%CBxII^*ww6vlQ=u
zwu#{Y?iR!#Sc!-VPq?jUs7d|X*h?(jg*^Q3vvx2hl)*i=OzivnFsLq{2NZ8Y(t<TX
zHAxK-Y3?x>019HZg;a?gdfQac6*@4MKvrYOYAeQ?tqN(#F)%KwhtklWNU<lhbqP3N
zVDO^FmUwDtIs6ulnQ}!dmkI7xi73hU!J(l?N$`!Gvy6iT%{fR7NUH|sBF;vR!9Ww|
z<>vBGF?q6}dBg81w|@uzr!p^J_TFRPf}mC%B8lRyWEn$6Whc!dh1NBdo3YyhP62A&
z`&=0LPsioYT}k;5bAf*U@ISGMz4e?>15kZxxF~Y}iVnCP%Ksmef$+9}n+!-awOLu!
zIn&hqo<8j^F9uEcASuUjs1{vy!KFe@8AXub#H51NE_sj<SQoZ`qG3gzoeUg;VW2Xh
z95{qZKwy=GQy3TKBBvO4fxBS-Euf)AR>v+<CDQ$A@KYp4KJC!=vWb6y2?HhMXSYl@
ze0_RAz-hSEB*6S26wP~fv`X^8A1IS7Jth&mFaq;@C?kH(Ny>+7^W9sv%%@R94}eYZ
zmOI<EEr@3ehnCZS=DmCrn)uV?n;m|2B7Ah`rA|rX8FRtkBUNIDrg<)TK*=fO0Sdk%
zL5#gf6$4XwIOnaC<l;(h9CcsHg9G3B_Ai&H&UbeuG_Q<Cn}=`TzUBWPbBWj$oy3iT
z+*A^CXQ2K;o;iO(*LC(?6B16bmG1|Ei;xD{_n1+nawrW>F9DyhH?#toZ!~Mt<hBp5
z{e{P;-=g_6rqVNY?G|Rn*XsrnRg;JdJsT>js%&f}bl`xrv={Xc>~de=LGW!;BI5t`
zYrNHx2gcZvKuTBWnj*<?XCgy1uFBZKI;CXpzV4^bpT7+_1k6aUwf7l%O-<Y{9%L|(
z^|cHNoEV~EtsG+M_PSzK9(}#c;8|6V3Opy>xb@X%K`#ts>F|W%g7~SVHXFZQ3uTMd
zBjEG~K=+?NFJ@_RiSDc2D$QR_s8obq0}J6e^phHd9FP}|N0_;Xz?(%C6PvqQRT1GK
zRbq^)<Y*2AE%H*p^WqT5wPRfsbwr|D^CIyPvlD$uumWInnN-I=#lv`6pK90#x&J8N
zyW1&<ZDlsrjgF2&r(#gad&!PgEk0=PEH$zTZIWo3U0t%-9P3l@nEBpoUc4BO2|-Av
zZT`3%P)|_J+d}XA9CAcJjv+&X_&~+j8^Q7iXAX5kw^_Xqb$zPVyt$$;|M_z|e2B90
zM-iWuSj&Jg#U&-tRcC2xuKnD<GIyy6>M{~s*yHMfb@{WsoCsY-&wx`tV`Y+XskU^}
z)+L1PKUM2Qojwvm#68VU4sa%n-z`G{B<R4*=`oNJP7={#vh8}d+s!POk6y2MmRlLT
z78#n5U-DUd9&jcPyS@TC=#;t;r}(}z&3Vj#6kEu;x*ZcCwTLDpV5bI4i#oX;b6Qob
z)BM%L!NEaEf7RcQi`QH~to938AvF(=e5604(Hds+48ZeXN02JX2jz=@ABCV(?8kYK
z1i@J~mIA8zKjkckR_2n4wg*mg7-Evwm9Gd_K^#MluL^E82aHsBA8Q!<o!(zxftQLL
zSKcme9ka>wveMFO!W2hHoET6vY0R{aow)eU=qa>OA}mqR#kBb@xJexBjX9c&3ur7P
zGCZ!_pnl2aC-m?twT|E9ZNhJPUk6mi?>u@f)VVWog)TI=d_wRi_PIu`(;NKA{wWtg
zdXA9arG23BgpdbDa|NZv*I5F)3!^EO*mKo!=UDXh^^Jl03DW>mL$`j)FaJ1uniV=E
zfRE~SAE{*UA6-OXUV-%5eOR+Q9?QPBIWI@#p{+Aa!u?0JGL?`)twFlfzW?Vj0*oMD
zq2j|Vu~IR=6Q(&f>{(1TBqO3xeBBrlS0vHxH|^%CmgmlkdH0UL3Db7S$ec@?f{;&q
zT~Dj0ZgE}QW{>5MEd16UliO#}hW1>pC@p<tWv;{kHjF>N?0x=mHYe&bgoVHQ@9Wn*
zg#LSwjg15C80z3dJ5{AkxsL1@SL2B^+xeO@Kny9OrkC!kP;xwY=nyBqk8FqJ$6vEx
zz0gqZG4Qc%$s0Z%Wn+^;iGIRLOG}G4E<}7XG!5u1-6*n<jGiWY$If_2s?q+R4N(7j
z1`sQ;f=<CR&`Yf^?a0mzAKuNtP%`7a62+qPZB@^>=@81To*o1hqn7huEHZ3SXQw0@
zd+dtatWISLuFrV>T-U?v%jeHCuc9qR(@jx#By$!5JZ{@dG+$S4o@7GM6xy8@gK5$?
zOO4<UKYUCee%a4%^0RDjRrcB3Y+F9#y_sM+AUohTEWu@8vb?vy8|p4Jbh3+lEXyKU
zC>;%DDdoTg)#|3N%r}2QHUOkOqkh0l`ND-V&u3_F`21=wEIQhqJ27A@RjGR7IqvHZ
zQzyno{&f+>7C3_MIC|#Xxd4^f(*TEJAWE6_e@zI4*8cA%1VS>)3n>Fkh7{YyVE>N+
zLE_-xP==U9upr<-u=w*14(W{+jxkAk#*hMQHvh*NGtI{~zkjj-R8;@J&D;Ooo&VXi
z{PU^om2sO2dEV)l?0SXKB;>SJbacY#1x#XqUK7uSOPV0ad1nSRGtI6?*&WkyqR5~V
zl^yLsr%ucEF##{d(LO8-7Sf4y?fkr(eNW|S81yMf*6Lc!q8BGYVW$^!Fnc_;=kI-7
zPute&r-G~$%C<46gGU7m0*#mq`i^lpzo$<lCEaINmoD2BIvA&Ovp^iaA>TcR$UlC2
zc8C)RL2e&JbYa^nhKUoSV~0_Vh%S$GNZREOD}h4%>dVn_>`)nz7QKBr<sY4jNt*u*
zQLiyN`0CTAQxceNAyS!XZZkFuW8q8H5F$B9L41bZ&|kIKEHPQYrtln7LD85p>BaC!
zH7-)XvRRy<5CnE5lJ#sv{4j;!WuNYCOH@w@1Nz}dVghTuoA|tEivVaY2q`0Q6o37L
z?(+NmahED326Tf&{_<!~G{8CMAHCu%M7}x@u>^;K1`?T=Hf0+^LXs0<OQ4?KFxSEJ
zFydhp!u5EGDKa?FMz9t{F~O*t{~xh4Bx2?^|Gk9w*&rntB7pP&Wm7X_^RfW}JIMcA
zj#)h~sS>j;#lPhh6sl>28uyZj(cT4}lK+XrVe*ebQ|%5~l~!*?$ciu|rUq%AcOv)o
zgjL(A?T$wU_;eD+V##*3mkigG_R(y{(8#x;8A!gQ*!HE_;?h!n-DfdGWC}y#u+EA3
z`CAQ#{&{>iNVTj4fYx;zxnocsl2F9#sz3~6fjW+kElIgfF(0yRTJoG1xf>cP@iX=D
z*W!ee_6fJyMOfrms}KHqs6^%r%}iub*QU)TZ#;Nf`=od1r_-knYsIdrt2@kf^36rl
zimv*Zg*PpM4wPF>p@E^Hfkg`reYHhy%|n58{f34HT{F&}%|k~B2OVz9c?j?!7X*Zb
zW!g|}zg^??b8f-A3?QJ|yH5keh9OokVVF9Pb&?-^Y{qC=BA{rw1F?Zh4N{?2s||EH
zqIN2ucq?sW6#r7qG;N3y;OqFP)$@_efg&-godr=h^qA=$eTf>YWbAu?m4{BabH)3S
z+0F%V9%1hcy<ok;B}UH->z50<BYLHVPM2FP?WU|d65UtokkD1XV<ja)f9<({D2)9L
zVuuQUWY)<6&0kx#kqBTp?s`wt|H+fBBxMu>tg^A)`G8(11^1gV^htz_-(Ec8GL$!U
z?af7gr{T+_(+3_1nK#5Bw;T{u9Lcdb8c@*v>HZG=L060g^V|IXYSNOyeOQv0ezD9X
zZEflOO*=Qx(5T|(GD?oqfLpzOuE6H)OtoRlmMMn~@mK77t4HwbiQMpYyB>c2rR=|=
zW&5^mZ3ElgbewPTao)N<wKNaOJXWS&j-cBJ<wqeHc3MWp|7X|qhjr`L1-KS`uDFcZ
zE72u$9y)%cQ;uq;D-iRv$k-5YZ_TD%?ECkhgx^g>DgM;6<Qxdvz14>yh+ib$B<zm0
z)N~OzRDzd#Sxwy<vEJz*;Tr;YUcd%KSSXfAr<e&s#*+uYuENCMJKHWrLh1l!vzg=z
ze(2%m?d((nt1N`#$+*G{PYln4SN40dZh;PHb&!bdi<l@YM@auDyS^_JLlZHe0KQHF
zhN=SE;dJvrSy9KrDsBXYk?!c|Q2p5wfCQPyDl1Qqu<6jxSD%&{aE>(G^5hLvD1T;v
z{{_`>+~)K!|Fdtb(LcH?1I?#57u{pYX(~UqW$Uhor@=tpQU;p2)-W3g28Xsh7Vf<9
zVWcT5BI13C-}@@+wYP5Gyva&SW7Gb8PO9iw*Fs~?O3Bu;Z{L0(kIzctGb|^Ps<yfp
zFFq&2uec&(gl_>apR%0`>u(&Q`w@&m&cOw2Zh4N`<4OH)tT+UK(8f{a+Nph!ACCC?
z^$an9zxLJ%L<op*CZQx@W#)X8*IpDJIAsl4zdV6${=A*tyRojpii#Zt4<A2PMKK1F
z$kpB`egu#RL(t?0%_RtA=4x#dFFR%_KGbz%9|nq)e|)p?&RXK5fBfM7eKdQ)LmjJ*
zJ2_?AioSwYqxfqzRZ%P@H+)ViwZ6af7;2wiSlD34gH~fa9Ax0Zc`rx!J=6+JEOr`U
zTO7b^AV27AJIXw`t1jWfAyOqV_xsE2cJxA)ZCCNaK}p-rN302$rt?egfv`^$XX3$-
zPV1Tx8Ot=3<WF|gScAT-$S%FEoT6DSzMiYy-uDS>YW)yT_jdQpofqQZD0ZG{CG@U-
zw4@d}jv%&3UScW(V$6vPFBGhG(tp!^9xkG4c-kKq6Qk0bzueWP1Fmmz>VpuJVDvO?
z^kyY7;7ay=@<eI>dO<pBwBm49<C;X(*jZ@2edt)v#^=~uA7Dt5;PV8jfEv}C+q7-}
z(i_R5gWWIxF^pEfz~{FA`V~@jNF0rF7AN%dg;?x6bVwFs3t2FLm`Ig4&_Hg2h3E2h
ztQ=zSsG}r6OqRlS@L&&-R)wTvk=eG^@QKz_r2F8mokP9xyiYmH_KYxmiMsb`=Qd(2
zm{r^QGi{Ai=W=y-(|*tWmW>2@Qioz<KRa$r3?b{M_cUhN21Z*QIB?)knv-yg{ke6M
z@lykShU1Rg_8V?S;I9%Joj7`kos~7FdJ(kM6h)PwhTz6YKnkW<v%R&if^D~LU;cqN
z?p#+tZQH|zDP<yvfV8ju@2}gy)DDBH5Tg``;1Pi@U&>N%Qc5lIu4y=#01>_m0FfrO
zF9Qj$2YLkRzUuTeQajkR%HV_5Q0;jsaHYBt<*377n*haRN2f>ZLlyR+w#(o@w;b?6
zXFkYtbqM@^yeQWkYM=Yw-VST~!LxLd*9z>zUqV8pTqLor0OkiO92*IXRS9J+fb(YD
z9WSq9lQa%w`6#gwYlV}QpgUYXQBQT5pPm+jIl$gszJ|lPZEbCDHC~Zp&}F+m)(z`=
z+v|bW<!WsZFGDHg;E*Fj`ACArz^%UeT<XOm5ANOjerMC}kPBf^E)P5<)l}bCd{|a)
zsq!EE%Xw06J6HT;J595%{O6#m;q$BiIjE{Ndi}o~R3*FZUvgbO`~T&jDwfm#a!{4z
zf8hrkSnj48LNVRAVZ(^S9%elrx)93Zy!d%#Fk&>|)u_E0M|a8JuM?ZUprrJKdhM!|
zAu2t7dJ&=zGh4j5c#StOSBnOZb8*4c$jZv<zGtD7h)x|*aiT}2tZy%d2}Rs%pI~BS
zJd)Ei*kR%p%-Ld0<KQv7;;58VOUhCN$KtP6bqTa{ks>i3tK3zaio{+I?_qYrk17&9
zK0Lcw+|6s<E}ixpcPp%>*ztAjNdm{bP`z~Q?~abc5UeQrP6|ZnG^?B$>&nxjF*%8n
z{WdifBUT*)%B@%S?b`?2{243aDa1)ICA1%^PD)Gbr)l_wg!B(6E3JaDz)HIi8B8Ys
z>M&_FmWe(Otq!udIxs;-$&I^r?%pjiNs}XE<-m|1B8um>ZQIBXyoKh2>&?_uRD4+p
zu?92CI?3z94BlMaxouk{m>JH!vJ7ai`dC<)#5Byi?*EV#vpRQJ3>%)PiBMzW(9Dt)
zLq!S2gNSDl`6_hfX0C02_qo-k)QnA3jXjvsBXUbf<pyuhFuZoH8}V5H+~9GPmp?`f
zh9x^<IhITO)aBLO^Izc6R3jRz+&0L<gn&MBF}0AqP2+k0e)N03l^&}tA;00IE#-uC
z48K={5tTFskjYWVo)bqJWLve}BwQ7^(!{ZBSm*kaur3iEc`Rtr7>@=?%<LYJd8Bmh
z+O@0!;E*Kfc)d7`<5lAh>aDm<0x)`@Kgp$4Aiqg4E+onTrkpcH|G5gf4@pt2?|7Hs
zAw`ug!rrfj{7xL`aTs<2=zBwkWjM6TXkzpP{~0@rG>HVlQv}H){v1(Qtm-qEM^ZH~
zFbMQXHL2l%Xk-eUWZ}NJco}r30mt_E&4!5D%R$i^S33RoM_=z+Grzt$B4V%m=(j^1
zgHo=OFM&D^-1-m!Q^mI-JS;33?KScBYb8QZN9)?j$oLYFrW@nV-w{wIj4ue{X{QQM
zorydYk%EIGb$~<<3@>Q*GXhF1!SW6^go`;U5;1Ar#nIg|A^um;Uu$|ZTqaBwaAttD
zt-#+4I$m~p_0VZEO8QwcF-m&rh`;h2PE^=|jnL#aR+fz@#kDjIeI7a@^@b@mX|`u1
zVqhAQwEQ@6e%?V6LQLh9BfB0FbdNAQPH93M572QT!ShlJ;L>iKr(P(;EQ$In4;(b7
z48blqX?f9@tX*Nb1~yu4vNk7)kop4Wq%d<q;;?0I`TkwWumIpP;HTr_yfcY|mcFQ{
z2xsObd@?6401>8%-_On!U*=I6tDnx0S}aZcXno}GO;PDezt_BhCj<vu9x~KHnFdju
z)*#$f2PSkSaEh2oCspF0iJ|Qova+)B92&o0WdhiCNfMUy4@7?dgxHL}N6eo4QgQm!
zDU}>c=Z6i;7oDb!4x{-LfwhZdetZwFY`Lh6$3KjU<$r}yS&#nyMlh-~XYT!BR5|HJ
zIN&59;V4HmvfGK88C(aV7asjEIx;1&Vd?z5eaW#c)G~TMoQ=KhFCU|$W*nnxb#fo`
zV5Va%qP!_PHs$GEKoPE8Oqo8`$tTV;ER;Q$Nj|%6*#7{Y2XVX}YmdLC#o^SmNTtNI
zNH@N{ef#zqGDKCxZbAx%LA2G7&>P37UN<sD0iUlDN3R`v_&Ev>U7if_1yw-M7}*#7
z@+Hkn_|{4oyv2=E-=()0<Lri-{Go=c2%*(%bi&qp2@he5%4$nAbr0)bEB$uU(<kEH
zS_a&pSDu&KJuUU@+oxk&_M+`KbFC04ebdUnautB`=c{iref8gGWZLKpJn$6~PUU?b
z70HM>FfuEo<QI)nqKs10t*xy#Lvho49)W{*rGL2m9r;7MGJ!fHB9{&<TOKZz^6#)I
zf-KVWUb{z(vl7e+^DZ4-y<21+(M2K>o-5}L6f=%R<`R!^IPvv<jP8S`HwNg>kk@Wz
zylBCYn$=y@_55ze5u`k_wC9ys6S~c6QA<h~PvjuK1i{$^^#WA7iGX+rlm&^}L+>Z^
zBiRoTQK7xaCuKMb2LmeNi5|7pC2|r00qR#gbuaVKy@RR+xhnQ!`}xL?cQ&bJSZEhG
zE&e|!l@W^fLB*&KQh^F=dmhUKl$#Yg3d_u+WO+MZe|_-?i0XPUiFpfj!ioq#s@Ca2
zEhVMa4!Kri5FC7wAFR!?E?o%!VdPtH*16DFvfim=m||JbgM=x#G~90ctO3S{wzwOA
z3LA`Y<sa)b^t%oqxLt$mA`S(BMNA?Sv#kFfbK;<n4GIkG2{HLt2Zc(Du*vYKa0*+N
z4dv1+wY=HhBx1CoMci?o3s4e;7XkcHhr`3KLHAL>NgNtac>fg~a30#c6#)|R14Vz^
zKQ}<6MM1%YXPBwb!$Yf#fsd`XAEFZGYQl{z1(q2YdOyYJ-oJv6N-{EQSH05uU96(2
z@I%Q9WlN3>6HfgKI|Bm)CrK2>XI8-{!}5@)teD7%sq|SY=1d`ceGFd&$3$@pN-a)D
z<3upcs~<bii{!}gxi9w2O*#@IAr6C$f5L09JUQNQgZ(XyNi9Va!-2xQ%eKZaE%Tla
zgj0vXBqL;B8{qR3n+&-_IWkP(8Vu8G<K&6#&LC4F{HA<iw-bW8RY(-GlHjSld~FUu
zg9?ltOo#-8nH1aLh89SUfoiATJAzXp|8TUF+|dVPUBBo)x32ePV*KVo9Ii1argTb1
z#sv9L7xW}mC8dbpzpvqa9%g5cS6fJ4E_%r}n(s|BC}}vOh%k1*8xqH3--3{$6MsjT
z%pOtF0J_Lt8bX}_sY3ENf_R2MYcKP}>lSzr{hOHehCB)$6dL*pr;jL*iQ&(Ok`4d_
zgj#_^Cj*}I)g4>c#BxjP56!zMSfsMcyZyPZ@9&NWf43mjl#R2n9&(ig8sJRMJV}Jm
zF_2V3?I<lRO-oO&(L0G#FNuo;u~h}h8ApQK+5XBM%mJMt{{bG8(CVI`T7V9|gRa_T
zL_zVFn5e!$<hh|EMqorodpw`W%HgAk!xs)(2n8zObTU8UsL<^@)CfhGOhj8%64jQk
zYcaNAMM{%J9qyVq)(^0!57>hoL!7tjiDM8Z5N7U%&I(3E3>`rlLRL1ELd+w9%S|A&
zBi2R6xM@6bu9ARB^%)%LVEi~GKL8U)#CRo{Ln`*<wQDhpIIc;aOmIpVp*@(v{~mun
z+746@c11T-v&`-V0(B6(3!(a*+qWy5EI}f$Z~M6B6;vGnB+xZNVaD?5)VjT#kUxGo
zVR9!8W+#*WxVXwd=fsE+4NmNY1hRX80aY6{QHz-Ww#b`M`!mT5&zn%y4a1ye3Kk}V
zi9^r+9H@d}DvSH7olcU(X)}D+j#l7MtXDX3&lKZTz(sM$F4W-cFwB)-Ky68~iWE#>
zKN1ckLzsYA`Tq56(94N~3E*13bZmB(MH8nNwTlNi)|@%CoECkbLf2oz$Y%QHVs)Y_
zCn3RNSLGSqyL1V)0^2c|INHJ;N010eJ`nnT4OBu*jPeijaC|1>v`YFf>j<?~DfGN^
z`!+k&MzZhIr{{aJTH12{HQ``XXNOw;I>L;K=dWyo)@fVJH=Qy(Y=zoII<0=bv#ZNB
zYrj*FUej}MS#I@}=lFulAheNLkz?b)u_y$M!7kmuf4?1G#xm9TLs`>ghb?eSD~|ke
zn2Rz3o57vb05Zh^PgTD9N06af{1khbUi{l-9;f+Z%d75vfU4`$Wh_T^-LWR|dO%jd
z^8bq%H97r07}XAXs>trD<v*p;(n{-UwZ985<S0fZFgv|I$#^-cf1Eb!Xe*JWLZc^+
z7{;9u6BC3yUTj7jn+T1>1Xu+om31>S6VpJl%|F*MlqG)p7M4FmI2^{xw9s?TvywQ!
z01{;)4sFfGDWkaSJKN0>7kGuG2dCkDxs?#=JmKw^he`CAh%A5BRvxX*PH|_0Utr)b
zzI06`;jR;o4unBsEDR(8Ntw%CcGM{SMCNHb<{O~*7Mo4>K3e85RIL}Z<Wwp`M55s^
zm(L6lDKLO@atuykynw(B5mh8+s@;b_tRt36OjH6L5d+7T+SdEe!w|^wO-|NGE6!@d
zDIbWKERnxmBeR~x$!a)Ti}1BWBUAne{FqAfeyNtkxn)^7qgqjc7X>ul+UPOU5fIvz
z%!<ZLoYHq{4tWb>^z_>~%QxG)mTOHeoCkZ043LrPMUb<A=_v%IwVZ{QzvcKbd<%x3
z?JWrPxPfKoPL*FR=u!?HZOh+5^*M9raKnHDfq~dl&yG9^SW~n7zuvoRZTv^qplX)>
zZwf}Sxh<PGBr9He`L54+w7bp!FVfxw9P9OM8+{BFMIxmnnIlT3k|dQOMIj;?lQLw=
zJPXN?M4@O9$yBBiGM9Nwk%|mSi3|-QQ~SIhYrXIOfBSp)@$F-GtYfWXt;O^FhWozm
z>pIW#I<I5h*x}!@qW}HPY%GS`V46<8Uj;a1%K*;$8RUZ~2H<qFIkRJUbn!>i9M#+4
zez6|gj@WH?ppGC%&@;4c5aV1D%b*!<LoxLbd76D3wfRReLIN3zm&<Or^gVmLR!tkB
zt!sSsU?Z9zn$P?Mu(6tr?c=Sr0`MAb>_`*}3J!))UJ;^GAj5XC2#T!yDwe>y*E|KV
z7)Js{NJt2029pdj$2uzL-AHhzAd)x8<zBmedz2sr$awDEyXX72KqQQQ*|NrS+n(LH
z4!VL%&j2nf?nP|w@oknmNW-ZeXUIUP@POn^)Ih){1UdLr4oW68FJHMb>$piAt?_gj
zb`jDqk76cDnkL|1n1N;>uhYqx2Nm}ax{bzDx$cFM)F*2A<&cVM#fCnF{drFvf`6zB
zT@!#{tDf9n6}0`kcPFs=`kp~WsCy@Q9<Fc17xnYKus&v7GxBG+D*kpANu!~rJSu-t
z(zq9KQm+_k51@|1<(nx%moDvAb$;;RL9G6b4GZ;-7Q}=gPV_=5avzeVZQ;Bh_1|zZ
zKoJz&w0frt)26?e>q-FeNIZTREg?8jGrR4PnyEKax5I=NfHHprTeQ!2JbT3>C3Osp
zf|K7q>YcUo$*i5gS6VO3{UN3%q!NVuXmaesNtEz|dAli!MZbZkkCp*QbubrP{3V6Y
z@$Oei6$KaohC61VT}N-p-ov`KCQvB+c_4i<Ts=rh+ednEA@d}ze5AV-B`7H^;b$O?
zRui=Sz3dW9igmK++4k9ks`Z)P9U0m8q1>;Wa3olA#CM8FQHVVNfvVwpst56ypc)aB
z`7Qk1bTp1GG5GDd9i$-~)$}#e#0HI~5>^``4)OXX>bDQ>0}=6i{mS%5Sl6VVEXdNE
zp+1_v74qB@3i!?F`|z97ASeqFm7<_eLsI_?0q6;Aq6zB~O-LxOXIvB+D6dBDUE+Ra
zlU;h;`jf9C_8%bbcpSO!I3KPodqCp<SQi9%JC9SpLveIKyTS{vBmC)~&hiC8s=srQ
ztqK}H)L=`REQ-e@NcI5Af4z)H$ZfiFUejs+s|6@>%11TAqPN7v1+KYUczN$N%%d+m
z2_AwibZe+7o~9Q<$PR2(ys;QCHU$x2ZtgEv{l05v*^(ti+AIAHc#!%7i+JelRr`yH
zxW`=_U(H|$0hPzaOO>XDmR_m}xWC5Jk{)@|)K^^6lHw22;1Kd!9pWo*G*|*QG5S90
zx0qe64{%yQC&{Bm@PBdxOP<<&$bh5lmZ@0)`I*RU-4pqy15t?>;mtXue71QCFW*m5
zs*ot%<xFFue#iKEk-j~y-)?~1c^J5i1p=nyM0pG;&!Hy}LY+M=%}JbziCVaI@81%n
zTB#)UB;Cka&xW^rsT2F$x5S$e<XD~{%w5d|Cw3BB9AoeA%7Cm<@kmSSAdP&5WYs2T
zaVwY9emitFvm*o9&<WD(MOp_@6AayjJv7O3w;4S<7`?6dn<NsR!w~Xz0=oGHYC7)O
zT}Y8g8U_x{F@=kguZW(-{MkEu{dyu|Dtgy3EscQx8Vr#-iOd^?IO%kZ4tu~vdMQb(
zI67Iy^~mf9iej^)NS{mLa7N~@^1rj?p0Ej+MD)!>;z!KMsVKgjoB@*H4)8#~5V&m+
zE#=%N5&^i7M2jG7I8_kLTvbIVC1PNAM15Fg!8&9T`!O;b0PQkV2w&J`$zsRmg^H~-
z*#amu$tg%6Dmd$85`$E{-q(0hkBGSORPNBzF1y!gkN=!?iC%LBJoMj-`YaX_v{8qh
zCSnJPojXptNw}ne6R-wgMXckI`h6a|M60<19o7ec0qc%&Y}%9!nSn<lAN6HZ{to{3
z@9c-7vJ)$f6rLo%Bit{%FU#TI)q9MEF>!53SlBD#DmLf~@4g_=h4Pw<d4d1mANm!d
zYqs8bite}3p3;-3%3h($b-^h;0$p;!=1pt;<23HbpMb@Dn)56%Pbr%n`)T?Qe78_<
zOLBZYNR5e;9^lPk{5JT^>jK0fi11IDq(_is!@v-;aYP9t@iSs!NnD$&FNS30M9SxG
zZUyhc9`BzT>zRW8UBwmUg<KQxbtHbZgcO7$hzs->!)WL0fC+C#TAFa_j|NfHCs*H{
zdxMoo)%OE7AeDhGpgB1BssO&&*t$e<D;qa=7Rk2J*iV*C)92n!=O+e_NMt4>4UmVN
z1alo8Lyaty>1}}@E;{D}a{M=|DL}(6TIE1#eX-s7!TB1g2=L0)l#_h`xzItytBt@&
zGCJaAE<2m_`F}~Sr?ycKHTtKho^J2)I*x!1ihe8W^s{6Cjq^v%s*bX<u_a+csA;3S
z3OknYq+7Auj%VtEv%)zq!-Il38j`+5VDsX7bVvW;OmU>4)-5qwDK923Z-^g{z8)Xn
zAh(r<2fR5kEBH*%jWdr=XlZFh-|y}=%<5iAL9x1c+yy{2P|*0@sv2EV4JoW8|ELrp
z&`QOQ1L2@b2s)IeglNKPo`#%_Xj3u6VCdV~?d!<Qf)m7y1}e%)lr~>q9Tx9EnfLL~
zE{e4TU^3Fwho!^4!tI|$A90vw9K4{Q8Uf!(`Ltx&vfWcB#MY8>39c#m0$)MCiFfRk
zl+-59X`u6n4IvidyO{HfE1$xXSSWqj4#!qBVWZ=^NQo5v1o8BIS2vJaIW#gpIC^*N
z&@Ma2-``G<7=zBZ+eoZ4k!=&}ETZNFn$S4<Kcnp}BD4#2=w(1LMNSnUDWtcAbW21<
zMGZdPwA=L|X^TcPUi;S8f9wwY$In~Q+XD~~P=n!&Sb+vM2bFGK)1&9$kVC?#UV~#O
zf<3?;vSo>u3qPrYbjf#qQjgFNh@k)t_TBVhf!{J><uGKi+V~tegy+NDhnPeY-$?vx
zqjw2$$tDaaU|Mt<vLXGlf=dj<IAT8?N$>@HLHfrZwQgK|a{l%>A~u4_5J<<HeqZdC
z4Q}c7EdE9W@mQD|(Z4F_SPFk=au)!{Cn_u8U~iCmJpj@-1gYyApzOb(=>W4~Z1MXr
z4C=81bphBQ1X`iTaRwe8INt5kp%^1Fr!%d0j52y*Swx(PNTh^jBnlsi>OTh12hQj?
zYrnDXT}1bRv(b6mmVc^no}41~2}Hr;q-}>d&yoB9>y}^~E}cfmxifHwR%lNp?IJ|I
z>(=qj74`h$R0yIl+gi|_1h{NH(^5PbB0EEOyReg48u7hG9}4Opsu3G1JNyW)<fzn{
zrmOX*U!k+Z1ynxUJkbQGl^-?ZUDJFLiez&i#74pQC@zTaA~edmkZ6A#OJ!MnxD~3n
z;`rt>q<<XveH<zzAX7L$@1t8r3u%ocXGFZDMOfM21uv|3a=9>{jTT^r$2dB0GM)E=
zEQnN?IT$SsrylKDU^uXo-lX;lz}4YzyZshQ1Y%~2s{RM$|JlDf=!NDKf4wcsg-O*2
zttH9b$Pyv@2>IBFqM{<t@6{Y25I<;Ts-o_I>4`G&@`&6rsexLyB^yRgFC@DN5F7mq
zQM|Znw5_cz`u^P999zL=LBU;9YTBT&3HL)ox0Jkh-Hd;pfWM#Uo-c|n<8|kbgB|O5
zVs*^zgGIza4Gmpzkpk(!?@7^=kCiq0?y)NJ+-I=1BbEq~cjL_2?a<(-E_CeX6fiRM
z2B59saJMf(u+c#!=ken{oCvn13x6ZH(9G2M__-;ZeU0aK*nr3A@V!#LFk_R>^Nts4
zlgi4<jxu`_?H-AMzY?4gT;mkYxv-^IJWRK9hPNDcdPo;uY1(&V8Krh4Vd`f^pKQ++
zTWC<6=04Qq{`RYml(^e};X--ahuWCT-yhaa%w!Omsxt2=3TKk~eksFK^}!>Y`4}!v
zTC8vg<SF$6=TIxZRA>PTC`tfIoBA`4clq_h&*71fM*I+I>;KuhR~!)$ip!%|$4Jm(
zskk?s#>u&B6#wxf@izZ2`XI*Bcp+oD&T@KZW`{v$Hkbb_Qm`%3((PRqiNO=T-1_Q5
zt83-`QRH|P)3@iqjLRMW<mqXp3$H$v-tpSyc`4wP5~F}tQG16o7DT{u;}kEfK#<jT
zps$z+!oUrSg8Mb`{gZ+~nhM^L9J9K(q+324_fChYRIJ?_sHLwzG*__5C_I7CkaYM$
z{|$!nHi5ZALKu)6S))>GQ63Taif}*>H6n#UR|xaE?TScVPaFTEGT>2Mg6m)~T(M#W
z`a*Ui=V&Nuwa$kS(-={!{a?i!P5`&Dom5TM)x!T@gu*T;;Ub7Q_U0^b*uGmy&o?0$
z{O=W6QxoWZ!@YPC=nA{H&C>a6(+=-T=2ej&?7rMs#t>fpeAdH%dqQ)|xC-_&q*<gU
z{`~(W5zen&6g8nhF1hP<BA>2@q>)q~$Vj78QJ{E9doj+-$-4R7?3?!c!i?_vy9bEL
z#7T}MG-zGf-TRP_pI=Z7;<LdXKM0}kC$T(fXi<$u!4H*(HQKeQkQ$s76>%mJn+WK7
zaIDF|X#w^2QJ`jS7i-M`XAh1wHZ?gPk?D_2N>0AL*Nw>0jF5le6!~9t20GFyNB%>k
z^23*#hbl3+E%pT}v*flkkXVFD&{m)p*r~6<OnekLLUHgO|3BgtYQlGlbO9P;htLJK
z_KEGZr?O<Rr@6f+_9?5Xj^uY5J9W*+*0R1jq^+*5e$$qVCP3#ryCp7HfGCOv7ufFZ
za#D$I*tqXxEb(v!DEn;mX_vqnpWHuSVLJe2v%QwUO4W`gJ^Y7ycm9(${M8!ucf-O&
z93~|KiBD+9&?45q(7tDSo4{~q1{{}j<JJP=oaBiDk<?6}JBDNRtPobLUnX9--^*b*
zoBWZVCcL#^!<sdNCEgQQ^A^8>hT97gQ>knntoUzjq{4>eS62Mw`Jjd?itj3;zQyVN
z*QFdE^`9bDFR4e+X@4l1IQx;AJ4n-rTP-=z2yjotiYO#p&>??Y-b0&||ERRm$@|Bm
zwr)$h=rnu*UwSy2RDIamU}e<CJYqQ{5Si3oA>V1}9#6}J?z*KY@P1N}1u*%|YQ&u_
z-4_C-nQxC<1=N5|KeOCO3U2_<#Fq=CrkuT7P@Nys`HhuQqH7k@W6Fj46y-M%O#h1X
zn>#?pQjkM{bgJN2ao8UWt*+a`4>15SvE%mnrS-*ot4s>6i39{_CpHiZJTfT)NPH5|
zBI3D0#D)Sf`u@#kXbCbXc6~&2X}CuG)L3-&DJ|gY#_s(~h&-EEzrrPRn?WtSFhLEb
zqAo128bwA;+6<w{$RtCGc4@o-Mj@c4XXtn_bMHSFPEn{cbsJ!FyQ1ifN&tY$pz>zT
z>|?1{fXi(ox?}=3U(uNiMlY2WK;6M@P0}!*1LS|d$%pEO0GHmFB5~vp;-$Z$omek~
zar*&8rMjGOje23j!d6oYT8Cp0BDjF0C&Ey|c^&4zEd_34MdhF5kKqp?cK0aaY!5<Y
zglg<@odHF-tj++OTlm8zlv+NUe^UL5+&Y7O`)FQkQU4=WrC8otN|<;apuPq^8ybJ*
zH?*qXmEU0Zo;bagBD?lPF@US^hecH2sz|19YYQ+H0#PE4x_oY0|0OOLo0eEx6QK)2
zz+o}Y&$d@Y)|ActI82rm4)|vaGb3as5`in%{N96X14@KUJQt|cP9O;;a|MX=+t~_z
zZsaK>o}s9~)6g#3dkx$zQR$I{674NAu)Tp_TxZH%UK;T^W*YlGo<3%I`Vz?YcIK>_
zSh|+Br{X}x23ZDoIu@Gj+4cs1j<O5>1+I<2myqo}`bVum_B9+0+Yu`aT+ZL$!Q02o
zg%7#(-ygESVuL$AWEsAJx6fsh9<6a45RAU{D9NZ2erW&EQE>e|+KW$Oyp|sU>Pj{L
z$%U;~&>APkVwl$(<U7Bpoywna{=9~olPcLD6Bd|{FEi0Y$wkbMP~i{-A0(rsoJCu-
zNAV)GqsdHPqPP{3vqXUVy6eW|p!OTit>u0Vo3$k5JROQI6Bfuf!#Tv?V9*L7d9`Ql
z;Q~#%zA#MaHb=%{TV997FIO6hZvl8XAH=5^JNtsJ$+zZ_5>vukNTVl|2YOhbTcx^V
z?vq*!c9RBqr`4GCFqr{=4EI&6Xy-%Xn|=N++9iD8y2zcjbOHF9&GR5exL7qRcfps0
zl=QIlO}o%Q{Vo69K(zC#z{x{H8D%~Bp~T~HLgs~XefX4;!EswAJ-+4EUWXd(-XiVj
zzZ;6c{3_5f+M{J~dUZ45oe;$)e{}vXSXwd`1>Z{j=)w&&;+lu?G>#X;lg9~Y5(o10
z8Du#b9aG4L+?*EKnu^s7?iUP_P+E43dA+lUE6Qb?UZJOQvG~<uUDeJ--jpTuulWah
z;4#%vT3sPtD4Dk#AV)+D^{XgHdHa@FGeSHhVP2zCWC9Wx&a0m;g!PTU=I535l#7MZ
zBBzqJONMO%4r|0_oA?`|v@lrB!Z>{&znBKZEXLYq`#J$NwB+7G`Xqm1t+x)82!ubh
zo-9S3-)*?aY)sHcE-3+nh(hQ%5FfCu8CVnPI5w;yQxA0|KDQ6lZzkagNP}Mc*dRrL
zS5{UZ43BSmr`ibsPlzCn#PLc-bG^5gi|WNoK|#bwi#u(R)GJI-rR_ngNk+3FS$qSh
z)h*`|V7v}t8BtPTaMfLTt(ASpz^<ebs2F}eL?ZT74Q|0Ck-{9iq~OfJ?DZ0-f-nbb
zc+2EXR3FF>_UJ4^Kn|N9Zyx)FCY3f+7=mg>&z#$kh!R5sBtfy(UD)kk$Vd({S-?F>
zpdyu!<2XM(VY>z4i4d8=N3u4u&N1IbjQ}J-m`aR<y!|1RK~E3T<BCHXQBtsW-7`@^
zhdZUdEr(?V%SzyqT&l1zZLX&5Bx{Fpo}l`KuBA8m7l5K`83k7N6?@3ZP0hcRjFN*8
zrGHeiZ-9{LxY=RMziUHxYNNOKmGJP_sItfyL%A<*iz_exZWmn-q52AdO>9lh{dj_h
zXdt=(4*ne(1B?)j*%+jZ9YMm-35>!SE!nVQCasQuyEMV8;e`&5N>V`!P=R~;=8^5+
z>cUBL-Y#w@U(>mT(jYAQqGB$Jq6C4?AVw%LTKsm0)dk{tzd<0$76b+cX11d-va|VL
z63YMY`B{b@fLM@_9Et|~;uK`(aZCnk&|L+fdAg0z?~_mZIY>eP?E5Q1Mg~qQg3uBy
z5cF@)Hfp`q$KTC8;R@7*^#9*a65$|yTxPQ$`F&v%F*J7GffYw1pu?VRFU-S^GJk|L
zUl6&kV+oxiw6IQHr*fy;KRQ5G-gfNho)iMTw3k7Sho^glob71yE73F>#mOrWSXnW$
zyJB603VJ^rN-mugTMG<~U{In88Ycgtnl1krI6Jq;UXitSWH(kjV7SJP=^c7yub<6d
zbMC9S(Bkg~As$w&{>4#r7xZ<PffK+zZ+m`Pvfeu1v-mRSK20`RtfE6feiMGElK{_k
zSr}diW<nZm3FqFugJdeO_bo%o2RMKLYL6<H`%tA)meS{&=nf{%8HM#aHqosh>Zx-(
zoM<=u=U5hupno9qL#L^mQ^_5K)51bo5M9CmhM}B12F?w4j5sH#)}rKx|I(sWjAKy_
z78EgGMlafcssdm!Iw~nIBq#UYW5<7zRb794>He+(OE(vN6>V|Yw&Hrujzlt#MiGOr
z*k1*mXjiY>RP%T9{~4-h5GvB$cbBZ%N;~KT51Ux_Z$Lm2P(wOkoJD^J4IyZ{6->9h
zo$?<F9wGpTcCEzd%2CmUKl-|MCa1T8%qN2m1im6CAo6!Ij)-m3d*UVn!Tw?OdQiWc
zR*lh8<}hLL%P-g->87`$f$a&#{;}u={Q$hAg2;VHL&N2cJk*|j(NtHI{Akr+deR&M
z!@-wW|70>15Ubd?e`||e;pdwM!rL<m^PsFRS~SM$+MND_wj0uH$D)JJgeDU#X^P#>
zbxbIeNJq@!mErare_OE<PD}o2?|w;Qh4;1EtUp`;+lakX`NCv2fp;3uNfB!k0>S|A
zPQ^i%c>FE=Ir3*ld&^C*<#lmNCy4IXMHecWk~^b)N|oo^bgQK_P~*Dw%XdHB`1h=t
z2>JYu{x-FFLQfC@03olT22MdMw+0SuGA#<dK2_FX6n}r{64l~n*d}JU^=SKls4V^K
z7_^;yKzm)rRxDG(!Xf>$`PdI9SC`8*!$-Zw51C9~$yoYaB{{d<nbnVLjiLAb?d7WY
z9e=-5C+zT86!9CAh!Z-Q_HYvN3cp|i-38(Q^6C2X0?cU5@Us<DgmKoSLni-#sCbG@
zP@SW88dwNe<zUDd6uzv&k12R#7yWbc!ETE`yZ|VCWYgd2OQf!8x5x3%ol&<3IPouJ
zgf_s;&^<;PqwGq)tB@f!lIxfdRJI9oGoTg7<jI~3<ktE&+OfE!;K;&m+%gGmW!UA*
zI>2?v_~J}NCek?NW<{a6Yhdq?B%Q!}AeCK<=aYOqe+}IO?u*<<mn2Y79$L2C+6A$M
zNIsE_wWG5o6V#CVJvsLSE_D4L@7aGheM@DlcaJA1uEW<0Cm@EC0X;LX%EOr8Y)sr}
z5aPyzGr+Ky!Et^FvTR~zBmVv=FkOQj(|wPa^07}*|JE%}y(J5N2O6g&pw~pGA*09T
zT~qzwGAx{~2|#gz%+OGJ)xv;f|NCjGo>jhbl*S$#9|PdBfs=z1>GCK>2?CH#Kn-jy
zY2I+^CEzrC3_uX<`depG>X}c@FyirtQZ%Kwk)Bc^Duj`u#0M15>NQU7L!+e9AO#(H
zK=@;vmU9Z31BM`JrhHzFt{(!(xzr2B4Pj$WdOL2bLm~|L3kv^-NaP6YgL4VxXU{g~
zzp2lh7*;bNVXWxIsYEnGC<92wt)_fo9Q&J0kdyoJ@p0FvocDAN(YRyPU}n)F1j%Cn
zp)m*`k;nzm%?pnnJ&2N>QN0j6GHyA=U(XrY1~DPUbprw1Mkos)wryk>5OxMNL|2_B
zO_cb!Or4Xp((HsF#O6FE$`KBbp&d998JA2li1)ojt>@G%L)tU;yEt6jP1nD7=?m&g
zP1C^Pg=`cbPJCsKLk|55&Uy{##I!^k2ds=%5MUDb_ZqkxF|?!7TY!4Wxd<}}10tXX
zE>2u%K6re&J+^HPg_4a`3XNtyMlOwxYG<4V39mbL4FMS{bu#LPJ1uPn%P<+pNawCK
ziYFjR;kd2fV*p>5!;hHK`V~4DgZ|306_!Ljr(WfR01_3Pkd8;1b4)7(wEOKGk*1(!
z>j4?2LEbuvtAvci!HHo3Cb-^f0$WYWZjojiaiSi;SLr<}BUaJ6H1=oCd{%y8bP1~q
zn@*3g5IA$J6Xm7@K+OX*6cHEC)*fXHLfX+Mg58I=Gu)lk)Ln!EOtj4nNN4nY40LGo
zm_?m5TC*I(p<PIarNt3*&GjS~caq6^hlif>ocbkXGyyTzUX~fKH}eQj6BmgQX-v4M
zY7Qfb1aaS~YSrnr<0rj?u#?VqYeR&YRyG`5ob}tK0F6!a;7}16T08<o2k?EmFwlV_
zV4!l?pHFNHY7YN~^IjDvy{pH8eWI!J_*(@jsmD!a)li8Srb4l!X^Sq_G}m6tIB1H9
zDf|o#pzd<l@ZC64A2GYz?noeNC1C$Jg^5Z9d=-A))H;;XH>NlpIm<vEgS9xWmPi1=
zW(%khs0Nv!7P1^sN4L@U9YwcsCU=*C`Rz7@mLe@<XvmV-Ye0r-9y8nHIr3;sJS`p~
zyUY&-)1hDAf13VQunPR`;*5ar1JIWq4K2URg@NUpAsQqq1;~7j(^lqdxzL$CerNc(
z&XgL4#~r;YcKgn`pRMr10Yn``gSgOeZWeWn4GO0gKk$KpEu(-^tBXFM;lYh)dos)b
z(!mRKf6NRdHa5u6xiiv+=PWW9)c_t6aVrKB>zF0rx0G?f607d@&EeJ}+zfFpeEpGI
zRx@z)s`7x{*Yv?^D0cpuM6{G9e`n&5%5>nwBX++iPmaN`<n;D+#7B`3DX27Ee`A9t
z0LvMho5FzWkKJV;!ao=Z;TZ)Nk3Bm~)-A+j#$OdsQR;$Y-J`GDp`@&=TWoK;LKSm>
zw9N`n8iI=?Nfz<dt>R?x->f6EYR64=!pefN`sV7D9#u)*CxcF26)2m?a84xazVA^(
z3J@1CQl1w1z|H=Q56Tt61x*_mEgsJ@6j38~_ubUXS$eJhK5?VRMk&B+NDY5VhJl2N
zI$H+<hB{ts56q`qKhy?cE+1oiwoKwdwIR(Ql2iAzEs35erEs!czkS;%-HJafa@97Q
z(-WKi@~=WNzR)xZjvfRLNfU`<9DK)qVU}gwyRoBwGuH?q2j=DQ(!hIFWvJ9WlAcHs
zdwSHdSvk#@*Gp}glf3>v_Tvm*iT>Yq;|RN%$>D^6tS$p-k0*xsi2kLgp*SQ1gCUQB
zbP{7_ZpD6&u|5XEdJjg(5$!$4mWTR~LXpryx=#<y19#o_%>A4O@p6D=W=8iowh%Bs
z<@EAWipj?YuICmJOhV*F%bNIUvUQ}R3m~6+U+Pr=s~SXB5fZ+mbs&~Ef@>wZ11H*F
z=z)HO!E&)>!VfOk^P^Q&L_!>()hr?C!1*2_a*%+)z{4MUNmYe@Z9+MsjG(p!qs0hi
zRg4GY5ccDBoKL_F^uDjBrSuttdL{=R63R)CJR{J7kR$^EkpTU;nDpb~Lxj&FT7QsG
zG1m6doG!3D>d4TPmXOFbm?s%F(sHOscj|rO##<(&4{iidA7T4Q$%Gw>QwXVwLc_HS
zIrXPcy<d$;smr~>Jv@`tNQEE64E%QW(Xq%U!kI!R{U|~f>C{GaMQAw)jguCRKym^Q
zX#!lO+fZF$sCPTtJed%VL){7}LyNd5=&&~k>rc=lMCKPM%@Sl4(BTZ3#xU~vFCB$G
z3$OD7%&U90B{$$jk-T=R(X%H_taa5;ID)G+M)@G4V>Ec$!h-B7CU>}VOaf;jy#y&#
zxR~@-LF+{HQL7$Q4s^3J#K}nBAlZ-m{s{V#vLv~<Q=~fzR!Ps$dgcNadzXDSOe-+1
z`5r-oNcYd*v*Rr<k~7BVFO;|5yeW0~_eC*c#1@pps00Z>K+(3yB~_zVr44Hidvtg8
z*kq254l1}*AJ2VL%eSSo>rKkq`)fz>bQ2l)*72^2+Q`Os<6GCaFH@?%Uu3V{6p*@k
zv#Gvmc2ZuR8z!2cq;59dyxIE4cQ3(u_#hAXQ0_KvOi_eQm?vgl!6T*;+Qx6!`eH2B
zLvTV5RXsU4@5xJ}b{RGYiK?G(y@u$v2cVRviL7sGs>0b5b@S$~rZ(nnx87A5#D_Bd
z61qjADNTYSV}L)u>XpR&{59yJ68Yunds%QaL}$PLO_6T5H``Y~S5i`vUgayfGEl7X
zZHb2zh5n(0Wv;#ha-dVFGv8t~IkJZbV>Z^-w3PC}Owd+jHfO6XN*_gA+pWMpb~XF(
z^7HX=)+4^;o~mAsT4yOzi~UYcQkeW{nyU{>{BX3|HJ43cL{)NrzDu2X{_}zFeb<gE
ztlwU=!dq`!W_mg!a+n(YYB0ZiQX0c%UamA}dg|4M+P-BgIg%=srowaPvB$ck(93V$
z9M5+(L6To#4stvK@!Ayj)C!Eo7B?|N^4A~AnS2AESbyY3nA)-y<10wYD9yc;l~rs1
zYI+*1%o>pAG!#g8r_wXCbx{n<;zX?*z*aHK)lXX0_7d}C=|@LLc_U!yOpg@s(zkEl
zgq4-=Z@niJv}E6e4d)l51BLc`%!GnMLqb%ZrU|-RoTz~uEEmeS67U#9LqiOnh7U_H
zJ!HCe@4^MJ+5CI<Y(#g{b7&8@d;Iw1|Jd#Ni9!$v^S;7JBbQOQU~%^4H&X47NRVss
zPY1M|(+p|+hO~+u=h5*<ul|c1iJc>kKsH(aI3nwM*82$^*gtG29NE*AGLFKJ4TZ}*
z?#BJOwRvgEb?qm2NA6ue7j_Y0^b`t~z!vXO(ia}@d3ipjc3l%_Qtt+nwz>y%8p{I`
z)5}|<nnqn;jJhuCP|vg9@1Dr{JnA5W*WOxhmZMA!Uv?;Tes7)KwU+)us|W46tk$7W
zo?9`2T51!n&d#QYr*C0CFFmGUO^m$l?(XqgiyE>T4@3eM^mCnl^KmA-mRLLujjm!=
zx*7G&LADQm^?Rq$z=2k6c0h$(B)dNt9Rzq{eY8M7GO}eaXD@z%BJ2f-{TIVZzWAX&
zAdWOsh<HXAYX9fzxR*eiffH94_qBTZYxV3S+b!223)g5qcz-DD_aAvdK?|j(z9s(X
z3LZevV4k7%05w$3k!4=l?~s_1VsX&C_4e-69T^?*V`Fyh?d^SFp)Bp~FNrn6K3m1i
zj2HHFQL(XWM^?$$2t4{6el}3>QcO^eHg}SJQHbK~%<gf^Nf-6D%JI{o@U+Z1zg{};
z{(}cKazU)(Z)4;xD9KlfHcBoGnk*=5jG;@o4|}B&hB_VMhtZ872Tz^|<P~go1sedA
zZ-QWa(^t&^bPqcK(Y}|IM2mjnRrE9;K77D@c<~7``V!7SFYGY~Q65O3!oYQtIYlYc
z(ri<AdG5)-OZHWOdzwIHXbQF;=H@r{c<sOoAfr<817slE4Fw-L#622HT6T6VVzZ`^
zQ3UoSW*pG#>gvY-iB>@{cwvKttMF6w;R#5Fnc|6wT?L9FnaQGi#l^dY%#)R4Ex2SI
zC{RM|f(2}A86MD+Cr?bV!fv2JgS6hHe+dv~&lAJ6td;4fm3reVv1zbP>P)Ium)!OK
z!HD{UhH_)K+cr}84LQp_glI=&g1C$pBByb{Otn*}x2IohTJQ&)+z*U2(ph$2dRp2<
zF)S$=NgN|v686z_BnllkK!@z5-TeAkGu>9N9}5n>Zbdf*)UZT6D%L*%BC(Q_lXC*9
z8oD8kF-Y*2qtj{w>C)4Gbev3fly&{K4ni22zJUZ8o3%ApHg0e*0e8f;veth<RT6->
zuk7V7wQ9Xlp!r<(e{U`hz1%p+DIvAZ3fI0-NsDQu!FBtsBWKkQt6a=@_>c((Amoj`
zeEG7kpx09R6b|ki(pGHv!Hmt%4<^3;Dm|qS!CyE8e=FTDi#4WYWvQsDF2e$76^P|1
zHD)R3+LL7L$1XqaRNzKiP~Q1nk<o12;JG?OBvXUi*+;hvM1Iik^RG0eyxd(M(dsd`
zTA9_e)VInf_{vV!qZ13`e;2Z!%_sEEovGmDg1OoBhjHIaF`{}O16FKPG&fKF{J@!G
z?OMRMv<SH>wziLs2I!qI<``<czCS&j<Itmwr%!i0G%4psO1T>mk%odi7?$IlPy{pW
zTXpr?wLth!44@CH8k!8*KJ7RNRlm%SjSLSjFUqYy7>#0ap=aQa<105vzDzNAXxHO#
zKFCb?@$MAu4;)HpUONyX{9bJB3TRc@Tfbn1^N$6fN3#+-@wSeRi#QmQQd5^L4Wz-N
zTqk4Ajz?E?eB7aJWb(kw5413aWo2avD@jX(R$eb%G%|{44ou<&8k3UOb=2{O@j(ZR
zFHZJly>zPe+>Xq~r)Um%%gAF9?9f}|=rgiZw0ZExDsJC~DR1A+;eMW_#?9vNJWZUH
zXsZ)cV*}*V_U>JM=y5Y><hg&m4cY8o08Z8JXuPyYpG2NmrhOW82Gs!1QQv_2T1r+?
z)Jl<aAobstdhLu)Nbs>kyEyI3lXNY`WmyF^H7XQEppGy1j>9HoKSr~HO|YhvKK2KO
z5RP>4kM}ARuFELxZ{8&3<w-tSh5}H@aWndpdv$jk2r$qhcXdGQzFG^iMQ%AObA(tU
znR<DETkqJhK$0g*-43y|3^tJD(`38BXok}`l<!X89+%<k&qi;1{PsQY>&V0wHEjxx
z_{T!4OAfi69o%xA4<}Nz011X=W!#YS`<llXR5^WaVjMoJtEXoUy3&0(J+(c0<smDY
z@!mBPAI1yv^JRim58&eNZ-my2X;-C<G^f__<7-nw_ILL5DBN!~UwMg+nVFep?*Z%3
zuF>G;Gl9n0n{uY;+YYkU2j#f&-H<^j5I&BJ(>Qc!d7=6ajLDs!==t#Bk<jMS-f0Yj
z`FZft>ZifMOJ&q{n?0w$>l47!7jKhQi5-urO!j@7_x=fOUAS|Hn;f$ge;91Jzq~u>
zESC!>Trq<ubzcsL=Xs}(b1bu9eD<cnU=>uFOE6K38EJYYa&#Vs{hIk*gmr)8)J~h(
zA@?a)Lqj88eWD@nGC0@)EG0{8Ywf!nYSEgSn*KN>`9L|>Xt6Oz-V+E~7SG%iw4Iez
z*`R9g`p6ACSK@amo+Bav^C=ZLJv!*^otz%W_f2Lk>nvb==U{1L^8y#{2uh9@H+nn9
z6blCF9?456+aXl+KTH!Rb|L^pb3asy`+a>CkZmnhi#E+S_+G~!SuuDXC&BYnS9?DK
zNWSQI=)1Ic?q2Jt-0hVlmjJ@-0O3oTJ+U32_rD>NibO0-b#3?(IKgY|3vNR#(f=Ja
z$}y=v$0XrX$lLe%WN{v$lj+`gdF{w0H#awP94eMpR^Pk6ILJD{K#ps#FBhs1vYBq)
z;2S;=Yf)&JmDsC#W0eqJl7q5*rB|CWhZ*uMisxAY%)X#dh;Q`V{J7sTiZ^JjX&m-?
zlnMaX?YR)ThdIjzMq8|h)preWt=T<i5ZT@PE-a%R1GMwv0Lz{rlev!^?!a=s!wF*M
z8=6{cP+sn}<eHqEeEY;|^%&^B8_j3R=K&Tx$1xs(4!&hDR9zDvA5Zq4m|@{6WKn@V
zd&!$tO-~p<U)1Lyi|yZ!zr&ApH0n)|#t8ks3M3CvadDTRhtJ%@#EvHj@En0TTIg)V
zmdr=NUgxBt<?{yT8@MCqn#FpILSKUe?mb69NN_OOQp@#le!+jC3S`d`3O0H{d|xT#
z59Gk29nv`dASGpAw17<8iVFMB!wztBtOc?WiDJzZWEeSQ&h6NMg9^#tX)*mA3W`^{
zGTtLMC6|CpCIfGC;4C4%b0<mh(=t$SU0gx8!{nz>qa+HdKvaq5puK4#G5MkflYau4
zH|*#`6Q~k4Um3gy1~M|UmXCa2jU3msfx{eLVot?Bl)EvjSHKs+?`5N#NDc;O8lsAY
zKdD3U2mJl20He?~tCy|Ea@z}z9uSt4l;m5dHVuWmjOF=G^oz_QaUbav4G2lvtj%bK
zgGr11CRRZhT>zK*y~nGbJbjw6NrwYguu@XL^~z_~5a;A&TszT?uA`@CGxNeret3BJ
zhsZTndwg_zdAh^!KwDi@Ow2{>-h368`yTS#PxA92sJm&@YK~!G<ba^OeD^NB-lB#5
z1QxN-HAeIg=B`XJ;f~zgciBYHOsx{jhVEroU*_Y-QZ;Q%>aiB*-sK5?n&Q@C|6V%o
zb5ts#5#jechGt5Aazv3_2#Vvy%)2CEY~v+3X-YJsDe#_?^D52E3>S2i7UE<yOR-n?
z@|ty!rw`*THO@Ake$q9H{5`}`iQP6@fLBIl&DO13=Sns_fEGBv-8PL+A#mrOJ*B<k
z@BYsB{*3_Z-A82oH`hCK*%tJJRy8{x7b0E%)tQ>e6UPj1pwkXThREg+Vrr+#ruIBE
zERuZq?xYg?UL~!dcjtm(BeVMY^3>Pw?CUQvnAoS9J-B{Dlk?}&5savNt$v<^0_(?J
z_Z=f5BJkegJ;i+Bl!|AE*j-^MjW}*}EMg|)i2$b*suO?X>`RS<ADPVfl7vGVQsWmC
zx={q8pJF3Pe4yc8ap}bc0H_*%>jaXjkc>%mWA0GeqeqiPMzI!9fA4h1=%ERuT>~tB
z({ylwVow$hwG`OCjtPGaH#uE=b=yefPvUhi)A~zMaH^%pIb4Z?g@@sJqS`EAPj%4b
zH<DHyv9TGsTKg2Q7(+$^+LTmK5u$S|62blM7bSLO=o(IeR)~K%qAndxe{I$A<HuZG
zTyjs-vud$deag!h4vQc0Raa_<5m_oJNR!gjtttlIzkff0XtN3O2}$DiYZi7T<l{vi
zhN}W1rjNIdN3*yVZ``wI&+v{7rB>lQ3^%0Ct`tyv4!CQn{0?z(7O3^&PnLdmkUb^2
zgY)`|T(Gt-6{m}92P#pFIHFC#5N?gA!q+eGgtD>QFsx=(HpaduA_W_}UwZaC*~~*i
zlIl^uLanw*x+wFi#d;E&5Q@p@x51$hVJ-JK@1e%8&NEHFbsH2gYA4n^1h<6Z;{pa?
zlQTXyS8M*VC<85AiX;GuB8*x}{@LChZ?E`Qbo$gFFe)U4+`nWaYXhMl+MnH-oRj0Q
zj*mY{Q+W&T!`ENEpJF2>xwCzzALoyhPujMbX~&7(*Cmvc+K8}>4&pgRD|I)woe&^}
zLtig_NQ;%#M^)s{RX83w;a;__mHRX*<V3Yikn{?wizV><-0@iErh0rrZWr3gg>X`=
z{voTy-XYXz@UpG#0+Q8WX<}!o2ytV@&0k8=dE0r_l|n;qF9`{uMOyLmYVDr6i5IJs
zC7x3QF}pI@Zv2&RQ}le)b+&n0_vwiryg!t*eq|Otw7}6<36a_UJ2b}Nw$g(w(957v
z7m4-UhnpA1Tq129rTe<-46C)|Usi3Fu=t%-X&T}vprll~|Ms8c9D_%wVZKNn<$EP?
z`^d8JYTCtsH~40Ee`XWqOmab06w*W_MjvsY?~7zrW`z;ul~X$RqAb><-;4Xz+h@<@
zG&Z{%ZG(ddCt?m`WGz&`0id1BJEd5aIRHJ}SC%+B@$|`)v@QgAV<vuHzL_Jkx2sMX
z7~JR+Ok!1DMW6ra00vXGDx|cX?DboD>A)lL!{2dd>&bcg=d!|8Xa@f@vquW1$k%H=
zDJW2tjjwZ%<w{FWuY@3xuH}h1YAZD7&KVag-Dk$VwmC3}R(ipvzI^a#&!%7HK&*V@
zM7-p=LG`W#iK1nnnUS%4GZ$Y{NPS(M;>nX;S8Lf=tHVt>OFcUOSR@xjX{5e3L)Q<g
z@lJm!Gv=jq1Rw$XXm;7oq2JK?<;NxASy|i2IgJQ6G<5?{L3+oIQ#e`b8XGs%VDWN3
z*I@A4>^pmyO^R2Y-S7FKiP*R}mcny{0_FYC3#-=kM`V?hSfzlNAXkw8<OoP;-5yWp
zPjq~IuXrrp*qh{u%?kLGo}JJ86!;r`0hoiufqdZw__(&WZy6GrmzEkwqAI=2y@wO@
z?d#JAB$L}@KjjKt6A6e4Y8^b!9N#^u;EKEi_T{XoKrZph@x2N|`ZX)$k9E)a=ag|0
zfD!ugiRUZU?X)v|cz~CWmLg{Kj2*nvnYw{ku@ldi+9+M0px>vtp>#4u+Vf}D&&+d=
z+Y+8$=9F0uq@VUB7*a-)31uxMI3~g+r_Ma4He-#9jLbekw>7B92^fU~ShdPYSt*yd
zQ4;0dOAbRi!63Tkb;s>GzdCFA(krna)MxC0N~yvA&j*tHv3%+1=$J1nL<p`vwGRjL
zh%#%`XG1vs72-;92AI(A5!$tDJ@o7L?8(T{{{&e5LL@TXk$^(t<%bU&lMmK+9XzxS
zO&hKU8GF!#E370XjmrUtywbz)*s;|}dahzr*2T0CVb+WBtKN)EBG0&lfG^gFgCS5T
zNcEK$Q`GT`MoIU?G5tr#9nD9aEgx31R$t~}aEGa}magtaAhFDzCBk9k-=nTwlVWOP
zWv$*cu3}GVr;lkI1aS9QZlv?f<J`6l%$Deekv;#30f%ZJHyq&nySuxERo2AgGnSNg
zKg*t(@oW}y|6sQh0VD9i1EF8Peko>mzBrZ3gIEh=%iNWbA$%3PdA~W!Ei2U=*>m7+
zu~<+v{mOQoD<N~rB}y+yhV2ulq$B~6d<an&y?}{u7?QLpFOVlo34#IYo5|c+Nh$P2
zaT|7De5=9^&*U;>ba<kdF(ZLuWMmY`4ZEu=Fp^?9aJq8j+c&NsZ%w(K#BRwt(&D8I
zef|0!EgZcH5D5`z1<<%e$d!;&)w_AmJ$|=zkFgqq=wE~;HCinC&@CSsd(f+Kuvd^(
zs|g&&Qb^7e7G^rjKce8RKyM4)7RvbTjvtl0$Gv)AVCMDJ_;}6{&Cn1wZNG>fdG5&g
zxzSnsG%0?oPtdv-&i!c21r^-h*||(!WfeUd-px^gyd05fi&t9HQq8#4`0d*Q`%NI0
zxA#e)dUA&W!FG(IZ22sh<jb6os&%Ha;c~y?<4d6`e6~K(yx3^Bk6Z$e$qI!m|LGGd
zdU_nFrxVgyS*>mehXwBN969+L!8E7sBp3QOZtS$@#>#O3xdo`E;;Zv>Bn_gXD-f%`
zC$MI%>2EqUda_sU&6Q1i6)ex|A#u*ZTpJx--OAIF%DW`_4$=2x^R>{Q*?;57WkzGZ
zq*V+7{^+gMzqC(D$&BGaTY}rWWhtNNBGgZuI8oQo5azOu7ed?%!eIxV^<9mN<G2_S
zTr+sSAEfhgEA^vCS>S0Cf}TrNku7{l3s}c%mD|Kwxzg_4ayzyw$uh(spmWr900q%=
zR6{v%i2*Jwls32@suJ5L`+<W436FD2Chq5VeUKWO7A=F}>xpu9N0jomYdOLYT{L6}
zO)3qFt!@BCa~NcWj`{4YR(EjvHSS-+uera_{zG4xOmJubYYhE3v~La=OZE{^dRw6v
z`GzF3!4E@^vdi*)WAa$e{Zi?_A@3oHgf_rhj{cW%;tgC9{l1X%rz>qNE!Vx0jcdG!
z<&XHX<vHucqp=ov*_jr5F^Wq-O}o*TxQ`C+;^DImJ-%PRD1x!SYRz|g`;#X(0FUc`
zT?&cuO?)5#8%xyIN=p1UB}WSE8Ofd`=QQ?V&1p$9jMABgxPIyFB}g4$^bROSO1*7K
z>LM<el9{=Jz+uOZU27dh6%Jlk7T`5f3`bOKOG?%$DY0ibtbRT(7<_ZpmAycUh&a{y
zd;tJhxWlAB7*>oz%;4zUq)?K5r}pQ704!@Sw7Sufr0=PK+O4hEDDY&Y-`6*?yHZ%{
z>_9~0p!V6BE%m)hcE29ndQrsHp@;gFAR8p#m30}`sW3<4za5^$8Zl=y(UkQmcV0&A
za?J1Ft|id12eza=HF!kUx<iMqUaoy0$DqrjlrPtlUd&1ry_&cle7APs!i#?Y7yaud
zWXFSYUMXdb?;WplNSv}v$;xT7{M3-L{o>Et$FK6wb=}=z%Sm`vYT>ERWio&vIY*;|
zVB!#RN;THv?q|D0KM>KFX9OcYp0u$MMLHb{m<zzD04RyXL<&lU_|m#RP=qEucyQ*R
zc^pWOo1fkD#LRI-S=!mH^i;=5K}>w!eF+Y+6h^Q(ymYFdIsECp6`NH#zOOGKYKnqX
z^_y&8i&Gh#WVulLhr6uPBH9UK4fricTnP?7fJ4F4(^I<WVdTGv7%6zxJ4fv2ELsG_
z4w~dxeS%NG(wDnm=L2r3X{!nr4ukU+{-VrnC>2rbb+`N_M8&wsk?~8iU5TH8HY_}R
z-p=0MK60OQrIvB+JqW^HeszxjbLTt)_|;yohsQ-Bq2rj?by%t4?2d8mE9`fj<!;M)
zefaA9!|Mcj$M}4t1QWCJNx(To*Wc@o9b)W9$ulb8j$R{2WF?edjn_idtuYbwYDnWx
zt%|)>mRH5US^)OLP>tg_V)?_@4BSCR=I10Bsso%be0FT!?7oMa<ymnt&<GrNMbEB<
z@NIdk%^J4A_T00S8`zk<Dl-q_F1i+0M(+8&j*^(1Ob7TcYJruyBR*Lqs@OMhh$8aq
z-vCV810SWtvo|Ago&$B$y0S(3fDxlRq!4v^57STQqf}r7B%%at7&W}77cyEj*=%?H
zrms<>q4eE0F^F)V0d5p*gC0x<u?_$R-&+mlWz*M92x|DVZ<R9SpQw=Q?LS^@9Q>g+
zy+v>nTYlRHWmTL@WDb%ylv9DmIwXZA|EjUI%|({$z?~)IuEqVX#rHZ@=WM2~*5_Rw
z9=0Y`70nc6tjR@1>%p2<;^^Xv)7Tao@=>d**9t<g9E_hKNIW`rtI(t!1|_`mOf7-0
zShdz&7mPe)tA0_ekuKJoXSpufW&mBh(fxsKcHQK8yQOqeNeLIprgYA8DC*ar*tbeL
zrhAD$iX=9C-31;7I-#tDgoIp|k>fzg7|=6m9t7r(oz<^km(yn^!1foRu3T3>T`f+g
zn#*IRlzyQDFH(@DMxSAFw(09tvYA4J4+iikMhk$cp$6YW$vctp9X)!qTiP>u2wdfU
z3kyNm)052wG-YVg6D0s9QQAD^@)r(6ALB-Csbb^^KyRI0TwF+IL7|rsEyBx2(Nc*x
zpR|#amGz<smI7*}yP~r@5}2WDaC<rMjy`}~z`=yKLlMt`(jw1JZdpD$Jp9Ug&k*Qo
zkP@Z`2cDb;6VJO*oPqYpE!hh{ew_dP2B)R0?IR9e>dIvejpz|JzU{a0N7j4V;iXaE
zg&w8f5I=ELr|o}@I_K%rr&nu)InErps}KRO#xiIPE3N?P>j5{n0=WTC7!AdXPVG}-
z*TBjlVvDG<!{mecIPWdBA<0~yvz(daP2hJxva40>?~6nWm_hOV7WNx2AGg6hU8ZBS
z6#E)XN;)Dok`wX@dlirq11{PGR5j>GYWO~+J1<1>5a4OC{gs;<bwxTJv?3cHEI<0+
zXfgXZr!7H}?gnmXtx6<!MEJI644|{Q96lErXRG2p;QE6lo>g9yoRy6>Pfp3rWhE|P
z<zMJ<Rv}-(31yBWg{HA#6>IhCSW9r-_@lvy<NQbKV)hq~=L+(@ADtVr9zO)26L|&+
zXi{O}Iy3^mJT2LFTC)1|IcXq4r_dMzR4I@fLu3P>)g8!d+%}+Y%ok>(J^@F2R@Sx<
zRxFnB6XiHcqYwfBn=q;0RoDnj1~n0&DCA_hD{U2#L9C)TJD45#@Zm#(@#l#Rpz37U
zQk01(T!Uj8X;+o7ii#5Z$rsUmqhG&X=&;s}JBl{_m9>$A<PMVPB{h?G3jP_{GY}Wi
zW0^+3555@DpH~+zzg8av+(TMgI!O8m;D<G9ltnULqQG7Wl!-So^U<Sf3<Lv0%$@`k
zwRDlx1$>(e4Fl-G>Ct2I(1XchyHNVjc@|*Ys#Z;XG3>jNgppF=FEGE&UNzZy&Cx9E
zN1>YttEs8EdgeRUqSi4%&g<R#(zsSG`zML-58+G3x<@&xg3KP70%jiIywudu`Q+9D
zxKUusJDr5);Eaqda8$K@X<l4h{GG5^6f}0p>FDSv@e7dK<>T9n2TQGg#TtP!4Ff0p
z4tKqGL)du`pERM8M>(@{cp433>Yy+hv@Sk){Mf0^e7BsObX=cHk>NC;R|lBBmHS{%
zqCDN_=qQ0rTwm{?B%PRci`NdVHZn!Um^JdyxReuGWd`>p-tgZV{ta-Uie8+&U)Jhd
zJPg+Lm&&dqXE{6fe)RWM>p(W<0?-)<0pH%|XZEgG6Tp)Qf(&GMr=eP)!<h~nTa~ic
zU#svbL7zW=_8sAGq@wU7NX8ktuD`5e&cr8}6h#gO63P5#yD&~1qGCpbf1i*f2Ba$!
zLD2TNyUdbokyw|g$}K*Xq>%4+zhYtD@VFI7O#Aet-E<AM;}U?rb@la?C`PsP^e(lu
z94Y)@r!Te^*(@%tX?)y3bf)DA%f&atf-qS)_Gq*G+oF4=r6|b0Re+w7iF4k}XB*-k
zFohVcT>v&yEhI^{?|TpPDj-{%zB-T)6%rC0LGm|AwO9+FKjlL9Vt*8KdDPf2T*V)Q
z;;ZDYU;Xs?^G6^Zyb-MQGyy!88S)3r&H0gC?&o#_2BjfW%Fj1SzUBqXUY&x{k;z|f
zG4;h)njkLc+qjbYytSGb11M_IJZjOs3jd9IJ$(}!v$~qh4vxBhJqSEmVr^X>?3}bU
zI&zqGoOZ5*JomMCfL^Qx!gHbFHjVj~(2qt{CbrN%>J=P##A061#m~h|{f4Ng9{&JY
zF`gilF%=m1!KlivO!h6xDHhMm^{1Z$R!?51I|N*DHx-~{y&`a4PEJnq<jHWL3o->r
zP5>}n#5zDJB~-)8R$Tx>?e*)|Z7-ouN6Z*rldy0|MwV-(OEDS>UiDMYJk|*PL-otX
zU%4udKkO~5HxZ<1!j@_U54Ih^!#A{(y)+k8dk);mRPtspZ(g6U)bC4jZ(uhu{2e!p
z2Dp3Ap1mJWx+c~r>-Ad<R~L?6g0(1HJ9NG&eHXxrYG^oA0)&O)d3YPra~AiKsmr~1
zzAAED)LoTS$REas6<DEr&8}d#Y4Xlk??iWk)*)jg+}M1qO<ikiEeZyiPD2fLWrl$5
zpVm(sh<c%8=R)F)2sCqqOaO+VRiQ1T#C|8_?)t3K-v%<3v*;D*`<!6UJu!{Oi}WsZ
z{T#dhVtpQ%bWq{6d1Cwk3H;^;HZ7AcgKh_E_2+02y@LOJ8I%(g61%_^vtaEzT<#jJ
zA;cI4yd@PEZveJg2m$2msQ$2PaV}a9Fl=fdb?>~@+sG*Dy8IY<Bz1-Uk9|~9$9F?%
zE^0Ob=wVchjk!5DY``1w2R08{o7^L8Z|mynLR>=TAv)jZ<%L2D$oT`dlH-{&X`iyt
z1W5<grQjA((d2b&v`&Rh-!y|4-S(U6SSy8SN^yYm01u#Z)6ig;Br&0-Re-|7&rb&m
z<+8Kv0X{0RfwO2y;?7*TtMA_%%z@&XD&jN-rHSJSxc(A&Ii&T*xSWXn4%HYNDjNM_
z*R4%wq~2tkL=r|Dn{c^%%y*RKioljZ;;*@&x_DNGDpBD%lODlMGeZ6`<H||~c%9IE
zE;HKoPzJZmtsPJR$?@_wrVn5`u<cMB<8e*x&W#8O7IHA_-Yy_0*pF6fI*N<X2=THz
zwrm)h`xnR)M~_95|Ffb<<m3~?W@g|<`gy186Kf%c0k_5N4>TDfl}qJwgW}U&y$iv3
zecYfCk#gk3SN;ACJGaCK50-+-+6<-|k{%+PLRQq5?Khv<`<;MgaDWLw3))Gi!|K#G
zXL<VAAqA*Qpcq?*5GE`tdcebD7mN{tU=u<#vUSbP${^{R&N!9(91pQH1=BF@mSWF?
zbPXH!#&+H?g#FaivvtiMApl&{Z^@Sljvc$c7C0=~tWdG$KHX(ytn>M|xN*rkkp3?s
zeSh&oBq3%})_vBm*PwW$Gg}o(5$XMmHzku@q57dB8yN3H6X`edr~sNC2{eonHeq-a
zwSYU?9w!1f%~4431T+JzDS1q9`E#$GvDX9`@jRw+oH^nbGYSy*(QHRXS?Qw*;Xd~k
zY5;0Wgunu25qvINNAV`FFST!AG8H-yGIJIQ1dO<Ftca$0mLNxfw&7*_>FhUe-tb1+
zT3Lmf3Ph1~4ykv0N5`L0NF<OPzd#S7{(&3PBGz$+dRc~{z=T)o2TsATp&I;v13Ye3
zMK524rOaAr50HolA#LUsZOn_OltGv>_Zw|nhH$V1^SQ)pQ4qKK0LXl}HU5_#&iD7@
zyUd)R;qa%;K@;!n{(V@TZNQ4FK{X@+%t-x?{Cd0{RW&t6WN2u1x<JO@bg&49r4XqW
zIsx`|l--fESWc!hnuTm}UwMfi*&@l`P%9f(eA@Q%WX<Q7_YSy2M-7FfL{l3p^R|rf
zEKvB<1DpPaV1zF#*weJk%)qWu6+63aNR<cle(imOJTwqW@P0zpsSCYMtSxx@^toLD
z9R>C^blg&~gD0B~Ib;=DUE8~20>+P|zCLRe++jT_veX{bHD-XIMp1H_bfqrJ5Ly81
z)EbEqr5cRTgjPeC0?xm~TKVkRRJqyC;%r8(k_~`~0Yl^he*@S&Bj}}y^8lO<A12+Y
zu>Kam#g<?o(wa`la@44S89RIM=FoG||D#cyMZfiy@bTcmAL-hjiTCfHmi6tv3U596
zh3NqzX95Zmz?t0iyt$=itibn*_P2SQd<q3evBHVQ3M)OuI242MV2>b79PPNLFy<Nn
zC5!B8&+SNd=I^9Igz{WWoFS!#HR4>7@Q*)7C_SQ_(?mk|hX3wJ6(0lb-JkS{C1oB8
zN137p!0;k2;O~>gVPcKe$Y=rl)8P%J-Mn(&_F>mIalC9~NO%ed4j*2znAHKpmf0!N
za#B|93(-N&ZN&+N6YNsEdLDu(>eQ+w9EPi^>r_?_dYyRETkaxf)a|FjaJECCvv$tU
z4@xKy*%R09&It@j9O`VmAm_Se^XW@3XfPygK>|?5`jnIu_pzcc6KFR$5G_ywyb%dC
z8V>eQ`mpE-#F7IS;+*Illu|p%FF5oXxqTSa<KJcM(R%s8^n<3g_o`Uaw((Sp-)UVP
zek66k>5d{a|K=NMnIEGmE%C}vcX_1g)}<!UW!pXO8Lwmg_VacKqStnKuj*f7CGDVB
zH#`8*2te2Rvwc5g!M+xffsSYk)j57V@7v`#OTSIT?Wn0&<4Mp@-?cI2RXA&0ymCa3
z+~eA?6<EhKF5eMc3m*=RA;$)B-^9TsJ$f8~Q)m7L@R*{5!yPPO4q_!%K+~N)8;CH;
z+IovTHw(AdHwluJz<&r0WhiVQ=_k4>;4NSS0+2($8C)z53O^hDxF?P$C*)IltsF85
z!A&7aq%)dGKo341*{ptJm3EKd`~4c4qTP$IHg1hUm0jUPtd@yMB*`KO4g2mKynBIl
z?zgfMflT|RYS;l(gl{@J(kCtLF$AatZUA)Leo$xh`7M0$qfiiPRpGUH{{ZJzq`b)M
zE~CH&#(Giuc#(E;dp~p4sB31IPaF?wYY42C-P$*c0FZd^9u3^8Wc_<SjX^L@rI^VH
z(_vi=ZDcsQw#Y07x*C|1wb^@IMp|o=SK)CV-hY!-Yg!|(mGP^w5t*J%<i~4MY#ZYm
ztHm7{6;ogDV^?lzKeVc0SkR(=NA=E>6CAByLic5NX7)ya>rgr*j?x`Tz-%+Ep7rdO
zzt;sO6np!He_U@pH+Pxa1h9bSi4&nX*2U5WAj*~iId!#xR|(J>VSJxFVJb}8O^~h$
zbO$GwmGyi<AL|w1e&|DFg228SZH#=emU<0V%CjE24U?Ltcy<fKU!cJ6SMnxi&pBY~
z?eybNMNA-~$-d%c9>TP#eE>}HrdI!0!!%e8ecj7(i3TQ%QsYg|kFNfI6Ro|fhSNn(
zuMe05>-11}_%#2gW~~j#+K8rb19A-*>{AqPryTg+d@8r%wB&d1J3QCl``Q&GKnM$n
z2pq@I*x2W|0(y|E4_m56$Hus0!(|VBFtPB+KL7oo+O+5901qt@^62nw5?6xw9;Kx*
zKxVc6$rW2IE!J%%6Z@Ne&aix$w1ZY|a;Gh}Iws4ra2`WSL)Ceslny@_-D$eL;#6*8
zYU<_;4l9&yAIsKy$);pLN#%ost7Fu3`4NOY-4DLlLBV?}QSup6N~J<)wHLM{&gR1Y
zpHe~Elv{$EAx)!zQfx{6ziZPZh-Wz|jbN(7oH!NUj7FJUxEkLTa7L!#-@~>V>E*s&
zBC`P`#fM0*G4p%yyZam`FiF!EMZq6>hK83>UvnvVufy>}l(YbF>rWHC8^AZ|lP0pa
zp5+=0(;)MM>VVbx`MZ7xQ<S!aFe4l&b3BoRf=5s71}($zA%C|EpTMkbdDTyEo3nFR
zaTfIguNoVQ=i!kNx;Mt}@@+UMrbNzEtpyb;>|*-J0Is;LB9GTy56atL|LxM_`~HiE
zR2dRKq(v3n5*Rvtdo)wp=U6QB;}QlzN#Fq>{mtPvFnrlIt}*3LObpT%C?S|VZsp|}
zh!Rc<V#HwS2S94T!PTHGV^d0+r7UDnz&VoarXKCu5HfXHXFT_X1>8C3$Izz1K34Mc
z2+19ZIZ+pYsH~#Toaed=S?x={FZKO#?e6rq@vmRC&PrpFV|8H7$N!S9F#yOM9&OMa
zEDJRpRJs`-FE`|~m`G@mVMuT$im%YF%VWZY3VE0QZH#8QZmFV8mkrJuiD9teN-|Eb
zZ@ItzE<D|<HDqk`YewS}v2E|)hhgi1fab^91kR_e{hQSzJnNmvCE=Y%|MFy{fM(n=
z`yPAOL!~DkX&yO5cl#CzoB!{!G+I2Xz=e{%aCgDcFx}7MH{?`&B$XstIbgfG39Kql
zbZHcg@^#Sv;?Kw1uY_NkZl4~-aWX6hoPv<`KjMU+0;5q@CYG(7&OUm0E%1C$+LiZG
zT1JN1$`E+H;Wmz6Ga;$VUSRDIHU}=h)6KLT%B)aPK`iy-<kvfOd<#r1XtdFo;Ffc)
zORcfv0r06+ApUG935r4&K+NtK(Kr!qGDl0CC3@9+5r4Y@BM0^z_3_z*4w4|);q2|x
zP9&mZR8%!czXCI}o-K#S4}F7laBNK5!Ape^`S@)A&3x+ZCsVpcf2&RZ{`D*EZ)-G*
z(hGBdgao6eDygFNq6L}~c8Z(!2ptDecl2oM)!MF6R}Dd;J-~~)Ff%jbKMQc2C}U8z
z_Cw@Y1sE!L*M8fuX(@LYcYYN2`?G@52diEg;>Cqzo7mQl!j)51?v@!**q?iwLqp0$
z5XUdOyDy_8xCfyC3N5ZDrukxx`j5{r*F<iLM0LAV9<HzJ;7-5<M{$3WDFSetMmI?$
z?sN+$%i?<qNm5UJ&8$DJr#AQ7_V?QH+n+*%Pa<DMO7I;$roX$skfA6yFi_GYG*<su
zyvmmOg#BwQ2lt7Q!MXE7Zl%yCL7O952$7})I4-jg^)C8d&&Qbn_u<eCXg)(nkw?>3
zA$scQVt476`|d$g8)M=W3mjbY?tI%$)Wjo)BHy6LIE~RYvx9TM(oz;s<h|5X)t}XK
zBHpmhnRn=T_b$C`TyqW`hp0ON5MFT+mS(!X=FqmdaAu3ufSl`^nv@{!x>}z2sxArv
zI`)T+jg9%ufK~N*4~6_n6H3wG-n_6a=HK9)1O-JpbN}rlUqa@L(MJNsLI@NSAxR;i
zLZDbMc>N~>Jzl}xr<sT5kGP=34bt8DZZR|`C-Z-cS+@DetqM}_y}ALt9Z?4Fo1}Ry
zH$GLXsqDQp8!Bf~+QEu(EyV$x!vG#<4SJw10T)tSMNd^<0aeb$Xib-HX!ND$PyMsv
z!elI--VsncsHXP)U26O6=<b0|yMh;k=c|QJB}EDD-tAQt^IS|!j0<%w#>^hm_<r5^
z*gXhk(8SGyI+6Wih{}~T_ILWvoJEK%2%RY`lpORK6Ti=S?sCXy=lYiI4N(!MLYhiS
zjFrVb_9i|f^IIPKo*0j_`~(%PvaPM{L8%AITJ1XX@9|h5L1VTOTV0}cXo9wa<Rf5s
zIrq-KYs~@O>R)S!IV0}q-UDhfZFzB#R)H*I|D&l90Oby{H|7L6X;9(;LI5%GCeh?E
zqU{@<$Av8|Ehyuxt;0+O_>bvyeS$Z@$_+d1f{;`j8Er&ZraKW!w4BJycspYjfor~`
zI<QzY8@ASy5V-_-YRimnbj6X>Yt20&(gFy51UMv|C(X#a@T3rkbF8u?Zg!1w|ImN*
zX49r4NI^(t47eZlB;;~SD45j>JBxeB*<bCwLJeS$ekraB^1W7$NzK{s67rf)uh2S2
zusp~w_oE$(kPalPy^BsRF)>(v7rmd>JpBBo#x0;Xl?PQG0Q!QT?@3q5%~X(yFU<U3
z=y-+%MTLA{K{aigg}iqgw4Bidr=GBb8HKqrST!n@8~|4sodfx0s3^>&In4^X4sbUz
zrf40U0Mhvp4TBWVI48?Lk(d6tSiZyT%K1I^zy+Xbr=g&u2>`LRkBLQ%ctR<w@*N(A
zMPe~`rJyjdSunwf*GyKo1k`Tqur;`z#JLOUg;Cz=(D*)Ed;2faR*M%6wGGn4p~)G4
zwaq)c_z#@}Yf*)h6qLuBUpIi27+w?H9GtN3>u$r`Qx~5RUpLj6v428~@JeWckXrIf
zNv%fb6=`^b)>s0nQT1E0tVn1vmXrqNBH=jHq6@8W2wy=qOAVo4;}i)|g=9ilRYp=N
zMd<~ofe<(x5LGlU;ozEGK0^Ub{v<_Rz<Xy?#l2@_WRQhUL<D^jXCAKygh2#39#LQZ
zh67>+f`_h0(TTo5mXA@Y+ywk4qGPd>PnmFiFGrRwMB$%NEC0FvkdK-<%{?;<arGvA
zqX;~tSB3;#fSu0H&K0KH3C2Zk1IOdb$KI=zp&mpRhVSME%#0yL%)W@Y|Es$<0n4#%
z+lB9v6iLQHBbiCjAT&_u78*2b4ox&^QW_|gqR0@XQqrJFG-!?@WAi}sL@Ldb=Cz;6
z^E~hR{(t+{x2^C0*V^7T+xzlJ_kCa2d7bBR?E8M~`x((Pp4mDImDH7fvyrL*93iGd
zkrfj_;|09#d6771X^@t#4c;_RQV96UWa3WDb};yCWxIk;RGSY}f3u2tuiZ=ctlrG<
zg~+<H2rMoMFcd_%^82gwSxMJ0e&H@VPk<8FdB5OH5Z<@<U3}}#tiIQOf2+c$EuR}u
z>s~SoIJ25BAhz+W`LXF`3W7<}^ZvY3Ht4A!9PD!6`W|iIch!+s9oElT!Peb?Cgk^5
z_~!l-(<2)`KF2GeLB)4f=Y@DhOZ-jM$elp5n%{5m=V}Vdve1Dbz^`0LITiqLi26D2
zb}qzK70UqZ5c*v$+d;_0#AI@0O9=QY+(vpzAJV}NB(_KB&%N$ZwC>FJCzY4wICV|$
z8k4<aAMSq~S=>ZO4gV#2u~fjLq>rLB!9Gt4NQvOVxqrIOdl4SN)4QN`86%IN^9C;L
zOWx*~ZELVDKW<`W2SFWq3$W^Bd1l%MSy*K^fJraL2EEAg4p3PJ9EU3yt~@gPhi0NL
zL2o0~zql*7<@PIGS8j$&PMg>iR$wrX@{OI3y3Bg7*7e6>MuXZZ#)50oy?4`WPBaZE
z_LM_EomYFe4X)s$#^WFp*ZEHlPajM8BpLY&#Gh-!XrGZVlVH$iOBZIw_I>f(M}DQv
z-~f3_t&!zRr-SRn)y>{F5#yw8Kl2V#k_a_~JRgD#qLKD*F5yONmv^vtZiBzG2aRFi
zFYJ*YW->Js)I5(cn!%9|2h26-7FM3{<!cEzs^ieH!Da%ZU`o5kreO7^k~TWaa~QDz
z_P}Y7#Jt{wsJmm|sEC?=^7*3$h=p#U#DcWP*ttOa8*nT<^Z+7f!;RLqwy)2=c(Z4n
zw=iUzDD^=6sCgdDCm<Q6$tu01rUqyI<{D`Qvi@soiHu*LgZYrUmDTf%xUBg28?tYg
zOQP$iJj%`%dwWa%*<5Y>!ZNd7{CGo_tc3k07aM3B-u_S028Neb5{ls7$YhZ1j0S1f
zg6Vp}dPkGV9%_A$d0^70)k9DOhvp~%tdNCniVdZZrtjGC*)Vk1U^N8S-L}A3fI#4r
zyxpu3Ua%Z0T*&h)yX8&e3mi9w%<a9KLx7`$S;8-Dmf*nW{rKDu`Bn68r@LQsFQ3K3
zWlzRn<m8S(rQq5SyXON_J%|wdov*g?@%dUqWcmAR#XKk^@C!ap=AqEs+|E9lt+UbP
zn#acfoW#H<D7$~zKlfGD<c4r<oN(GWk|B10p?w}u=>1Loz)()6!Ambv#*@tT%zmwZ
zrz_<0U~<C%L`uD|iX?>gi?0@B0u!S+2Qbx}w`_5!)5z)&@Lv>3$RSW0v;85zAQCu1
zcYCt?)W9pVwB2K}mOJo1(VAqzsu(aiBmOzRS>2w=?;^RE%R7|(#^9jY2L`fbG<PQ3
zp_Y_JRwsr3Je}+EM8;}WUEb?><~QGd@q4amzAI{90}RIhD)n=wi>>qqUNZ5s_mrs}
zY#8v!d;e9$NZ)C?Kl#Ld)m^%s6lm_3!D40uu}PgoqR>M7PXO_K2=0t6sdS;++>P^!
z)|t1#MGPXoq3%;7m*4A@d4me3d4#T=kTU(4?F+}i6wpJESAgB$pbn<ZnPdL&Gm<4&
zyrH?B+rX&P`yG2|nT5B>6;(8^P)EosD(+(ctCaBC{1oc{_ouI5hPSr8-yYI|sk1X%
zce|WX_dQUsB5_?{Q+#Y}KIZUz(7&O_3kP|Mt?Sn0Z%qujSAp0Uz#Csb{J0SSRb`v`
zqvuPYh@)RxF0<+uT`xSVufkZ4kyyny=70vwLM|S96BS-(gw)O*5?&h^XnCnu=4#7L
zA9tbKIwyQ8Z(zx>X+>_mP4>jUGaRRA;}m$4H$e9K!CvXZouYYq&!77g{t{zqzaPa$
z@eO0Oc2$W3Sf$HVp^-&J1a+>`lnWHru+CTn@jxD!{65@x!Xi;DU=vFeJ2>f@4;}lx
z2BoF%=+YmZrgg;<S)O~eOqEJOez2bJJ&%+4iO3dP1T=->3W37U##}CRcb(IKbXay9
z78T%vkr4+-Bj?SGn9r=zF8K2!rQ4*a(@5(c>%Ne#iKZ2lrua9mJGDlq7j1i$Y1w+%
z#u31w_<Jo1cEMM&JG0#hxj`Y?&t0!%|NIoe>q8D=L*osCx{Z^;g{}QtCLT?`06&_p
zdGn0uDxQ-J5KWV)rcPUQ^mzsZ;IRSdRo^`M*VS6*&8@IP54vCBps5ke!GI<PA3L0T
zbZkM<WTo%3Wm%8~sH7ozInMyM7s~{c5-61XG0Q*iLR#<`{&T4jeht;)rU7~9r4p_a
zV@5$aZ=g-q?%h&zg?q>m2Y>7BqksP0icNRg;D@#qo4?NbG|A(QcL05?d>q}1>-y&y
zNBNXPZ!-QJL)sCE{=bI#<{t>tyTY37qC~)Ij5_o|DFs}QY)klzqy!>*RY?4roQN0%
z17yE2KT--U2zpV1;}?QF4=e8&pGrp^UjSyy2Q$|IhFjotKfKMh+i4QxlnUC~zM<1Y
zQF;<)e=VzKoU!zA6J$M=ar@Hxd@*mwK)nD)LSGi|8x$|Gr1XJd6ISGz-))yW!2t-N
z)6UVxM(Am5Y(JtDnxW`BOhy*^3BZhX+;h?c3O{;Kc3+;KSwuW`b2T=g;19^1+^`oo
z87K~no00ifqQt@ySkc#smOSh7_wQ%pG*Y&HI`Y>7jS%}&IK0_=XQ|Z9>_r_OGX4=>
zazV`NAM#9;hfcebVHlL~kepvZ9RRi#s@Hxp%1sOsASfjMDY+W?92^`k;fx6a%@Wh?
z;F`=_OO2$V2;jWfwv<fd0eT}-bC=#$R#mkC9W2DGH$TQBDNsk|5vmbBDb3_kicZ7e
zSuII_J^&1HO*qjmb^M731p?@6U#5(Y!;WUJTa8J|+dXU6Fr)Lwe?NdBz&NR}&B&MQ
zeDe%~h%e_-*^Wq;ViFzHIx1WCE_oxi(}srgDA*S?PMtDfUwkNN^IT`WkDd8QTz=SQ
zS(FC3$(Rqd++s!xo!5K{@TS5&%e;jlY=XTW#kJlH>9|L(uMammX+p*-epNO-DY4I$
z@OU~Clg!wL9px=NvaZ5FT*ja701H@ASQlR*qBLA(la%m;gd+2w@GhO7R(k_aWivu&
z0WMzQX29e^zJZ?@JrvQ9X*6Mb5^u$P^&-k<K0X!mznMlS-+#5#*gQ%9XUF$4;$0Xk
zoln#iD?QJm?^>~HRSSd-KQO=c70;Hic>@!L45v@N)%eW;lEs6<(gW8$W&%Y8B`-16
z96%=|)IAq!fx{3=mBhuF(+m9BXqRqCz=J&{G|y)fK_b&nLFw}%5ez>jmMHRSYHSvh
zc=JhTKCb#%mtMZ<RS;0=hFrVl!tieCnMZ*Z2xA>&+l7Ik*C)3>kI1_4mwBtKr!a>E
zUV>=)AwEok%RCB?P=ntd6XH}2bM!D2SJ05-b>fib5_$r{vlXBi_EWOoH{dVy;XmAI
ziLQVa+Z!B*zVk@jgS;Q(pRN<+eA(V&U)gv;y8j3Zop>W-p5r06&EA)amb(r-985p4
zeSZ`fGsfLu5ng3>2!{?9<c;<fG*7V)itQKJ+-@yio%Dt-F@TKNlE?S7x<_FvP07C9
zIP)iREnm%N{l$^E!b{cv<z+m5l<dV7*q+80NMKeH%C465_K<uqCQMZSKI|nZzcdk$
zLvcly)%?dH;^^xJJO@yzoz9&=o~3x(1Sd7i@bJk?WL=y3EpvOL-=E2Fq~E7~upqp=
z0|ejASp~af{&uj=RXip9Eo1wWWc=^&FaPi(^Q^a^b+aJHnJa02IUF-YJpz3K#8dBk
z3nC_4ZX7nq9c_1-pWoUaJp+W73}~XVn7>UW4!mDJxrt`=dvRbBmlJrf=EJXs=-q(F
zTZ#a711k+EOAmJv#frYxU%PHN9l1vS{>!qU;-EMz&pvt(gRweqz>4-~Hcl07(u=Jg
zogTllH|w(frt8@O>u9o7U*N-XTF`eBuo8oHgczkb+|DE;X~<0SfImD%C3Yo7PIh8Z
zdH~v7{OcuHQ+Z8Ib_*Q{N&mJv*qApvw2w*v&1j~YRR0k`VeO{@Hz#C0`t_u|gWFqQ
zO*PfHO`b3A<MU7L`)L@iP+)92c<~Ba%uc)YQRR&4_YByV9ts+$PtPs8yh7s6py)q6
z3PRck*$l3vabfnBaMi^#lX8=VE|Ux39OMqopaDsI6F7Q1-NVDfxi<>(1j*jD8qbDh
zF!J{d#wv9PVu!wX0VVEK8Z%COwJdu90LOUha1DG7L!DOP$ZvI()k1~$%6Sw8TFjG;
zEehE4#vT2LgTs3ukJyI(-tc6O9;Gd*y;=6phNJ+W2lj#VC5}lCf14}JQ9Osn2*tw$
zvk?kmd=5RNd$hg&``G^Jj$sEOzh>*b;Nq7OX9Hg9L7cC9_swuQ+Hr9xJGEO*UNGDU
zE1<T^?kl#MZ7v?rU3BQtjbG0;i|MO>xz`zEdUfSc#MWUYRqjpOW&PyXma3okTcUI_
zvvPBVlGc;hs8feD*B=P0u<|+;Bws3+chhheb>nWknRi9^1sL6VZ+{HFm|N7*(I!5X
zW5<{47+hR8R=>(Dc}>JCCgpE?2G?Et%+KTm>D)bDVjr(C2ykTs6)@$GL9Tu%4tS}v
zT9F{w?LUKs4>6~d?Ht#=(3D4`WnFqmAzuJT*l~X)b@i{k=YRWbQ@pt7vZhL^iwht|
zT`$2E7ZcNA^T6ACA+-$W{6u9HB0otU4uXTk2VOks(_(6t6y5&tr--27kZCO}^vGAs
zBAVXS_aj%Y4zPnjL1B<7zXXQIyd)9+XHr6AZ#6oBjnoWyX%v4^;bxJCLlRLv!vd0L
zml*px7lC(+XXt`A{jt`+wxxMq1NN(_PSsozee(G2#6mh+lAuGveZc^u%pwNvVpTeb
z`NWIiEO`PV^PTV|@lXh`D}W_K3Qd4*!?<s-w@^NE#1qQL$mkC2*3c}fV$D{#R)Pn*
z$9o(Tu96cl8YW+P4a=r^Oke5BL+4V0r)*qvqmYm?FrNX3Y_ab^uz$e$1=F9mz!M`t
zagC6~&Yf~dRuePeKp6t?v%Dt7)bV^25-Gu>B2PXu*}h+&xXNQ^f@zpu8xQaASE4MF
zeZ3$H19!wgdKg}p#!x#yO-Q(htA*fR5(EynR#QAjR_Wu;vCweFU^hYW5R;XqiRU43
zk7YRKc_ZL(`=P@+B$d8gP+3zm4$$2;35ne5Gti@uECmor(sE+Mcd$^1znC!&2Dche
z*t1_FXYSX#4Enhv+i=U+lymGyuLqFo%H;J7j%`n%&*wp|pL4FnuERnt0o7f~Fy7^j
zdGdq+$E#G`)nuvETNuF6(h9D8qRZy)5{9e(ejbqe{N@tGcUM+atPnc4rsX82yg>W&
z#$ZtPvSeP1H;ZX=`&+O<>Y9xDpTAjcL1d(VMMFaZiZY*V2jkM~&EP#9o0FrBkd;oW
zbMX_y{pU7JvSrP^XI)hUPX7MVJ^AnPTfW#ut|_SOv$PW{&lFtOW4l$|pB3tL@6Mfq
z{u304sc(TE*!MJdy*L)pdw!;IyDOG^*x3i^Sj0Uu>&--iPx!<hh)dTDbzwRVTh{Tl
z{afl1MMDcEJX;4R7+T>#9bhqo!ug(Y;3`!EbGNZ$ruVZZ7<aHRNMHT48a=9YckRvD
zdfWo_tI4@@$r;!0V~h2^6x8<5wV)FpAFmQ{g>BFw8~(?4c~gLa#K(UoHx(Ap1NQq-
zs=vrs!Q=)ald1^a5GHc5l9GUb2_g~$k4Vhp$N8OBEC$%~@$LQ*@Kc#jOG9ov?z$|}
zTmrWz&?SAhN{7e)7OIK4xhh5&->l@RLJ<L^Tv<maQJ3GyMl=;Dxp0$ffWV&&+q_7I
zf8*b3s<2w{85tRsU^gCy=JW>y$4?UzRdFDaox$9x>r_V5l||zzHz3YM9p#9>tj6RH
zF~IFa?{v4k<EKq9BG*9^DnL$^f#QGohWRBa)H#T`KOFiIu)^m+M2&*-E;`UXYiW(A
zY(n;zYg$YURiw^B%C7?lO$kD<9H&4sR--vV)Y%t9`BUoZF~cyISh4U>B>duK&<~Y?
zJbDTWRtGSELf8Gs7+73HW9xuI;C6LaC5j*$Own|qp;G}G>}PA+Qx^l!9ro%>R*5h=
zC0_+@?p)!o_?gHqh)#a%mMx{`&Vy^Sp@<?`;g}}fgrWuql^Bd>vJ)EX>PU+4)q^~6
zoYf@TH^_@PxN<3yQ5upl46biPtrz0*G5{9V&?=I6Nvm{C<iFgVbj~G~7o%#^xM&X0
zUnPT`(9YNS{Z=T~HsL@bM!^88h}k-JQ~1=JVe<fsy8cxnFG)FjrTeUKJTYs)`^u|F
zBnoP+*~<f*en&j?$T37rK=Fjbg$#K{{n5ji59OxfPd>*kWY!}V_aQ9AI8x$_10CQ#
zE(AzT3#fzC)T+7He-`7u#J;%ARA(YEBH?CAdb+4d2)-9nj=a=r%?ro<Y)&dFT4VH%
z>JMSya-m){JpLI6>w8cHd>b4KkA!Vx?DOY}KnQQ^vAKPLx9#j#zq{)wQ-)vc#2ZU%
zB)MZ7=A*9JXL~NOs~C|<{>iWyjqX5i=^r7<%_3CaK6vOmRq@oRAd*XicBunvWo^@3
znia+C2;<Dnl-)6Lad#?KHaTQBL|<&qw76hpHGYXw3t)|x3bsa}99_x5Y;ZOtZvtc{
zZ_Kuz@lT(Y0h?U^aSF2GfREqG07*zRIT5{WB=|$^_VoH5PP?Uru{pj=Tm1Cc*n8<p
zrdSs<d%78fP+k{4GzeDPgPsLrG-EElc9V;^dizX$FHW|u3E7juWsuN(Eo?%Fy^5zv
z?1rx|^K8T$lu1+3g_9Wbq=tIF%x3g_jeTz+z1ywZwUD+8LK-dxm$eK$NZ)KThd=Eu
ze%Ec=<=8lZ;I@nm4ah${ATkh)W*I@FUWr9k)|FLjmU$dF1AAX;cf>?+sh7ESVp<{V
zE-!QJj8I)CWiT-<FKWN`ro-Cm({dS{ij^C5@54{?b>}kv>w7{s-ILA;V<Lf<l^eb^
zu)2J65oWNTU|D$88b+5fI1XWcSc=hf$L-6VTXXkVOWD=u#xJ~j@K)~Pd{R#l_eKOV
z9L4F3Y`74TaZfTFRxC6|x+{q?f_=aa>eHAQ1&{(5+KmRKJ!_A<YKOk&pFpw$OZ!G%
z3mzwz2#$)F0nJfK)UNNc;!~}zW##lt6M3b}KQQi-7K>viUNil9^*$pQ4?jUeMG`Ii
zGhWxD=O=N<B>J?teKtM@9TJ}Fhqf*`Fs$$Do$l#%2o}LynvJ#fLtCePvansCYr=W=
z>tSuT3P0QRPDd{}ctj37QHT9{#r+QQr<2T{2J(&P^2J}<P2P`uFCa(p&;#3e4fQ>s
zx?9DEFH1^B8f$1S)!#AsH9awG-cpIz?H6LYHi}>wV1N@(`NQHJhw~=pM;e>pA#i}O
zYBsqUeWp_b&)S@+EKG|PccTcRYOy9y`-+u+`4Wvj#uSdY;P3A6ieZWli8m!!rg-d$
z{Vp{5Q$GzQ$^kq()`VtY1Zh~b7dPlu7#bB76_qw8zxJtuc5D@usBS>v#L6DHelc77
zNo3^FP6zHYc#O!o2A-&`-yZkhi=3HSI`=MoY7Lz$p=xSA1Pm}jcz+xliGKz8;~qwC
zF)^)Wq3@Sn{`k$ijSU|h6HlZb!$xvcPEHj{RS}KFWx5_u_37HoUN`sj)Mp~Jiya>1
zA+|Sv;I324pz9o;JaP$kG1M{;wi8-~=*Z)s_agT9{u$z5Fn}k?s%5R9^kqMmIW<&*
zVXi)w)aPlMa;eX+2jvbIzaQ7_>du}$d)QfA?c~Ywu3ZRW@Q;8=<7lieQd&%4B&d<=
z?8K|d-1vrt`A+`p_s+<1%uW3r8bjgEVd;Cit<DKro@9`^PQ$S}l^B7T5PEn;j}30g
z*LaPgpBMW+G3A^M!ofcR6!EX?wTtLz!KzfPRMiZF(n31YQ>twzeR^}~BTpBkHq3r;
zC-Gj&Tgz-mrp!M-6g>$+P3Ndux<5(mTkR1B$XOOV!L7{mPXD1_sH-Aw{MaYz!5Au(
z!+8PesR?K*qG@86aEWiHBDL~pZrA+ZFT^52`UUVO4@fjPwG5EwCY(Q6#b>wx_mSB|
zg>rCe*5F&BA?3h}Zr!otMqnrcy8r-%B>7@G0yVuc6lb#?1}p4i@U)_dm`$#Ss+|<@
zWXxi}`&<^Nq&^jA^1gCGxru_@9=l>&5vb?y-nkPU7k3O2DpX*^b{M(V>kygNcioOI
zC^81}D3Wvp+$fvxHeMT3T1u!T9pDKEtLS)4>YjitY0nJv-1YO?=J8e4<eIz1|3{6%
z>H(&HXi$DHYdmR^+`5*Byi)ou82m33fG#yb8!gY)C;Ay~Yc6b>yAhPkb$|Uf=-=bF
zR_a=mIFuRRh8^Ph)}Lj{_sa5ZpOQ`n|K@8)3%tV{kxTUoQyl#`VW=K@CArJ5=QlUq
z-{jgSTGwq0*CGwg#b~j{Ck>1cqFmAFCD-iy86bx!duZbkw%&{LGTbNZz{MUbPky<^
zaqTBVjr_KHIit&x+*^6)iZK2x`rD=b%Eni^e*BP!;UxN#V`Oiu<qa)1v=m}vhF{yj
z#FWYT^C=lC3hw`BT_RvQ8Gk_Yl_e#*mO@@ap7~*z*1(}e#qp~W;Kl|^u-k>Lw|Iqw
zg}1UWsF4jF+nql~Hcwk_@Dc)m1sI;H=;)XU7n2<c3`yWM?uLXU04$jAb|Cg+5;~G(
zngv<cUoHCmfKr4H<^B8q_S^Fe*9(`815MBwz`D~ACzf1q&O`#Ldni=4pGPXMPA%F7
zD7;C|jaX%MHSrD3fSk_;#Up@&k&F`vn83ywjTr+iw0GlgMRLNR!`Zxk{o~?qaN#-X
z5)|}D3vd=P(&LzQYIhy|okm8Hyu{sfcL+2_7g&lO0kIVehfSw2jz{1klQD=OJ22hi
z036B&6E52TcbIUL3#P#A4>!sP?ErSYnjEK0;)*W@y$ia^?$RRovcR=63T8(y>ZIoG
zW4{;A8eX)zXa~A{_w|&Zhal}ouMI}wN#wHp<_J*7rkIIz0ADu@a}8t?TaIHaDFu2o
z&Mqg2*Y;ZfxJgpBNpLk^fGmJjf1oXx)av5=7`n&uAa?180D#L)f6Xl!?tYfOqk&?M
zspvMMklb)gXS^%`CirE&HaZu-t;CWed825K+yHR^hr+~43WopjHc@bQ;b>Lp;=obr
zk7+d42Ux14vPYE4J`?qF!C{D$$Xm=nL$e?$YVKpUFw*pLqhW$GF4f-}n#7^|p)lQt
zqVuSKGK`p`FGA*v`nuCLASh^CXfdl$Jn$eKAxQZMX3A%KK0f#4ep!njg!$;`>})N6
zL8w!;10J9*<TXZofkOF<=g)bmc+gEUiralY-Hw3d9#cBUVG~}C33`#!DRbc9GYQV;
z!VJI5_%`dkj#?0a3iwBWK#uN!YkU|<y5SIWP=bS{f5plX6=h{(3=ZD<<~%(JeS=j8
zj7_;Lg2C5y!gbpw1Qnj5Vwr2&`Atq7>kGK@`S&z1KAPCM24e8S{WR`=qJ?{tEKbNV
zHBV!o64=A;8(qyl_^VK8zooUrTh09CQokNHOx5`|AIaOt04cA(_!3LU)?tSYWc&E9
zR__%Cn>}AxBHi={%*#7$8UV3JVi1wpzSg#Es>rB7B(ZvJhocM=HdjL-=e<8~3|`c?
z+#3wo#sA*Dvo?%uXV)LT{w#xzX+5dxyKR?j{pgwvnU0#)m2Rhg)oDXF1Q5M8zl5zf
z^rQ7m>Q?l})51(r025~$OawpUx)@_@p9E*#!6t?!jHFuNhU#R=@y0|(9>yWP7s)*+
zB2!Sh?9fQ|vb^~F2D{Q7!bSLRD9lrfKt^|g;_bC*K$ligT54G{+`SzidzowDpmWOw
zv$Rtv`=9pmh>Hdny$d*t*-i8vvnA)=V5>dsZsTXyjx5b-EfhTNdy$r(NeYP7!{X)c
zs825m1Gn9EynGh*D=u<c%;EKGsd%WYmPoqgY?*r#?uM7l1ZW!$Ff=-A!v(E<mvgR;
zV)gv^T!Ugvn3=#jOar+>z@|4);i2!2Vk#N)4=CbLuA&7|Bob9?D62z8qWIvx`Qt(Z
z8Ap>kUho)D=DP{b;)!d;h!>5;WALxwRmHI62Q2$p=qV!NU2DIExEu>MDF2Kcg!=+K
z`+YX0q}<*4ZMozh6qEeXa+xHe6nMpNZ=eO;{$7Cgvg^N|Mi7Y3VfJqr-nqf$YX@~N
zrUgT1yx<|ak-A30`BHA$1V*Gt-ZXR_DG>=vgb}J#a)?!Hg%Eo_jO2K!c&6t)<@&uX
zxMnZyV?KyVyRF>~AX+xxNd*NSYM_LRb8hOzzNP~t=?fE`ev{|6Tw;~lBhS2O(*(??
z40ZO;Z7a3wn>gt5`IAq-Uq&U7?v9^EC#Fa&C@&R=Q2**QRt7pHz{lGXULJ&`!|T`*
z&v!aZR{0VKmdw=6l~|<q=ZHYt4+t_FtQM(c>&|x#j={hn0%S9Z#sK#y-kKWXG@_37
z?nh*hnRj51^<E*&V=2SsV6mDLyl1Fo2p;jU@SA&UU*<1SKUtlBkyxJ|nP!$qw?o@7
z4lb$i-4J}ir7(f#r6IC@z0_#k1wYi`N*WqK3(BI$Aj(8WZue?a*c>R}fP)lzTVi#s
zf%Aa_m+=fe#&{%wyGd{c^g78F&9C1{$;`bdFJf0`s;i~SGUR%lN6*<oYodg{7;;o4
zZS4d=Q6$0EXVs1}NCZ)W$<?MB2a=`(xC#=n8oPGk#YvcnvZ7*mREWb-ltCHrj|JG@
z;@rbCchl?*?mIoXC&K{aHk>nQbC4?CPw~*=788DU0wRr0tT#|v?>yHQ`a@3zPsy{S
z7KSGaSPpoKsB10sIPi=0C?320^1?J2u1ChYB6h!9JjE=zxDsd|d8y!w@u-o9a*>2c
zWK7KamZL1DIO9Ng`A0x<BqSno3f0u-Zrg1rs4&yx)Uf~BbceIk{!{<XwGs*>iW(~6
z53T)bT8BTec`UuifgQmJLj|qD6wQR<oqE`<R;gTRZm~)~%|<`9?-edEwlRhok)Yb{
zd-<=#Huo2GSRdAgVktUzX(&#r>OQ*CY>7h023Nl3;xj-vXLmyb^ZMO!FSM%#k6&Og
zz5JPumgdUuU{OlmLAUomUb>0A!Xpu#lvLWeOMfHGV+Iz77q`E7xrPaW6z2duq@<>5
zXf4$L)HS>nl#_o2hLZked%_H4QKuq56V4O3*9Qlq=6m*XO+nyabV~%9*4U2+uA|93
z)YEBt?wk@g%d?m33N*-Og`wX6bV=X@RS7UK1vEd8*?w#aX)?24UsllU{I~t>osXTg
zEr+C}-0<iRp+qJ~8zk@*7*ULYVo2#k)Qf5xAi6}|lMSH-I-N?9oc_h}2s&83dbJau
z3xI4>jGbj*{KX)B-`s^d=jv+508Nw$REz|qGbW%oVCNx-BRf$otCEInFTf}u+a|`w
zr2tghh8<F1)mIN3-T`AHcLM`!9tXqG2AtptB$Wy@Zkqeq?cyFrY!RT#0O_EpFdiHD
zR+D7lsqH*=Mr^F@HbIj~8pC-+zZE)=kT8<w1BO%?^$O10GR&T~jZO?BIV+=ZfI#|)
z-Hk%KFtlcRuKkxmKDFBr@+USUK@O5>l23(Q<}{nfVL#4z)F^nOo}%o;9IT&4FJ=||
zBeJrx-U(t97aB2R=;IVV21dp}#3xU{cgUJKCxYjGw(cVQY~8>}ZK#o{W$@c5H*iKP
zOA=kFWw06#|4!IaMb+q9Ei<!(OX4~e$*_J>#-#-IzKhA=UFU+|*Fo1DKL~@PkFdK@
z%P<>_;uOV{e+2w(4<CnTzd!GM+RM=$;-Nct$@xQfkbJ&Ym>{0O{u*vp{vmv)?cddK
zyZ65S{QmtdLXtdyx<kev1#Wnx4(x*+5Y%El^h1F}m@BG&Ii;-p<cVy+;d>L%pYfp`
z?Mlpb&a>e}j1wNo>>{9<0QCNEs&M;}y&+G`Z4w8~GP{LQGFj!-rrz$cJG?&UVs?W}
zqm(`bk_xy5m1lJCqXycJF&l#rNgOP3d^Gvzz>%l~xat)^QS-9C=fIiO&jR2?6f65I
zd*}3rnR6_tOMcyuJ8`1t!h@bhm8%EC-ZgsYMZbKhMw%(ucs#)-h7}`6iZ>8=D;Hi(
zMu!B9OBMq{_jo}QM+4!47E#I8HkITPAwxlcZ*If6`G~=O!K-hb4im3i`$jghF&)-+
z>9@7PIzy#C;;^6_1iR9yQ?Zc7NGhtnJOu+{==&7lsxdHji43bKYiY%!jV!Mcg(sPK
zAp_^`v)AEhb0RY*7^U?g+CKXRxl2Vj6!D{n#R|YEtsX0jd-39AnEX3ZwEp)&&-)mf
zYl|_kHlg{pcT~1B<I%9)&j(;XNyHj)q&|B#lDFg9rVy}k9`GjIn$LeHC@2;mv(r#w
z;sM-dYRac8&S1N6D#B!{(&=c7I^Vs!@?vA_MT!1&93d%bX|X9Om7R(#2HJ_L*zf%_
zIAy;6OEpo{&PZaa6srTip{+tn03l^@?hHJ+L`#xD3GzbzxZwmX#5n;4hR>xT<6kFw
z7?O>Dp<ye_%3j}4aTB~B_LPn0A`2>+|ENM4wM7)O-nZ}HJF(~8s~CRu9UBEEIDNuB
z3^0-e;^+BuE6L$Mjiv~C08IE@pS<)eGBUFI41`U*ROGk!RtqlyTLBkYQ|zU;LU&y4
z)n{1nL9h9AZdh3JPoF=#fg{;g*gP=nx{eBd(9mxTjRZ+a<?VpV8!|#v>2OxGK~SC%
z{Eu&SG_#EP95DN}=|^*D=G@LIvmHO=zX>D$z|u2!{!=o!Q8(kEA^GP15m0UuhH|EF
z$;|9x<#L%!f><LNBc{8}qR{g}g-ez$U_ZxCu$7i~a>~ZvZ73H6lc$7w6N-<+oCp6x
zx?jfeadW~M>?9U61Slsls0Q;XLG&AF7i9n)-zo3d-#s2_{1gu*0A&?tXXnI^aL?^1
zJ;J4oqBq2$a|=48E=<#ux4iK&NRs_?h~@ET&V1)$YzM0WkWVFG>27d=w_L#ks%tLx
zkir8y>Fjd)x=F!KxDCLlm8vK!3w2%1b^vqt{QcL#i5#VLtn4d(hM9vgFJ9bU@L?n6
zFU)VtuC~=Js(%`*{~dXVfb`rdqWt^SDx^Ts-4Rv3#jnu7X0?C;+u=5w{k@yQ(>3{k
z0$Zeu=epy@tE(}3_<a24ug5mjOV?_#XU}&=?#ae;Xx*6?j6N#Zhkfm0w{7O*>BE=M
zu>(nw9-U^NMSvv&Hf-7inowQyMz&4yvmytra>36$ar1?jGtsXso}nY@O3>mS^G}AD
zRh*yKwU1FCWJc@pN2nAZLu^1TLk`yPXLIM-CV!~60C_tx;5Lr>=fE<lO9!D@SPuCh
z@*!Ixl2&EXx@x>Qdn0GyZX!W=Z<yM*5HnnIK2ysu6J`yelDg(nk9pO7VHg>re|XAr
zf%z4mQS*;8eV!80AYc`%(~i<*Nlrq1QV9Y2HY&+GuHeX~{QNBVS!O0=kL9|lwO+fy
zH{TM^f#u)$9+o3msu3=RXU~@9Ue-HU^M^M0FTulaTA7wslSIm~OX9H~DJ=7db)sF)
zAjd3?wj+T)PaaqI*0h*O#b%#a8vY8xxdy~`J^lef)a+lQ%JkOEH^daRrI2I`|FLqx
zc)qzOnPM@*7Cr~wQO<dj%-q?p|Cir>IAcR2a|}&B!H2|uHO=D?zodq~j*yfXgB*@G
zcamk*v^bEP3NkVhM7A9Ml8DC0`zHyQR(pf96AS_)A<-FXmzYrp(o&9V84IS8oX*hp
z|Fr8itmV5Y^YcsY=+Cc@p`Qq`eLxVZ4|ld0#&LMrxplYB>u6L7R&|v&P}W&{EK@W8
z@^sQumj!MI$h!d>I1bB?XmDIutt9W6goyKH4=IAr=P_rM5%e$)jI2Dwodh`;feIzM
zcVT2p8F7H2o4S63$l77@(S=zcEdNx^eiz9bg>zTE!8p{p$hVE$T_s*(ds$kqdYX)<
zngYa((!yxG8m4W<x_3!ttv$!ZB{P#ckVVV8EOxv`xAxl_=7$gNR+mAMu10+3L%VV0
zbT%Rb<Ze*VzKCwxYaaXT1%5K+%Yy;u%bm0$?;V{qZf@s~A0-gBB%+Xv4i7(AEHRTc
z-4Qw+Q#cM97Oc0@<`v|DAk*ZVMMc$#MIT1OqcE?ihM7L{(fn+{DZ;%>2>x1H7O&=`
z)GR|xPGe%mf^xo_n}62i<~zeC2r0e^Yx<_=^_%fKU3xTC`(be5O_{h(Q@8UX*G>17
zh-^!If>8uTU>!N*m5FffK?!$M5m<gysPj`Yc`=U9qXQUTo5=qNGK@=<&z8kzi#DJH
z0qTVR#<owIV}2&G2O!l50NTy}s+fhd3!3UvAl1vy1ZYL>bn1|W+M&a)-p!a*W`%8c
zqaO2ufJ05z^yP&MYI5WECsM8zJk1gQVw?ZcW1iEC0SyOO-<lGf2JvofwwYkpHTeQS
z14ofePb4vjhsuFp{dzNX5$~FWD|^}zeW-K0LMY_yg$oxd_5(+Uyou@$XO2M5u1J)U
zIq8k4EN@nxR?d{n5@nqbaSbb1<?=f-^F51}X$kIsN6mbG!MM&wbnei)#PN3Ec+0Qi
zWAS6Kw=C)qPc33CEHegY0+NaM5Fee6AZ`@33>GS$aT{Z6=C^!K|B_3?6r3||zkNca
zeWk9wT4nW#YChL6J>?l@I@(+N?64{(^-Nj4j$D7`bK%69GfyHCZojPVx)EpxXF94P
zq<Eojxqhp6ANGf7kkDx%^-4Y#^P)G?_4Q~c5*nvR(#8>1eHZz!m@(<{-j+}TQHsNL
zM*2rlv#&au?yODIa#h)>+q&DfP>7xFWphtsq%qR14IGe=x)P2-2#QN9>@&dw`9dns
z=fY9UYqV{7DKTE^=kUqg#KeDS>{^yc^CCqEV=>MW%Ifw)57%qIsOp5B9V!ybwqeXc
zLaSt%4PQkP(mUPVIDOnK%~7UyUd#KAar?OOG>)QelKY=MO$?5y@4?NSw_9^+0vp|U
zzn{zYa>4a>Oh7wTB*xy$t&@^22-o6PVCidlxb*)?(ZWE-8$8{vUN6@fCT}EjVn8Kj
zQGw5ebQf7I1N(a0+Vg?C4SfLtV{L%hLYl1j)KHW}C7Jj1<aF@bG(_vP=OmZkp&9Y&
z;%$;ycuT`kTGveX@U!LD=jQ&Rq(K!;<WErk_V#aJs<vqQN!|*&(A0BZ!%<q2wT~ja
z$3_&pb?7<!?I8`;xkgNt<<{{gtX>P+9cJ!DKu|n%|6X9=Q^Ergh+s!rT{v1(jPaO2
z;U$F?v}C-z&@;oOwmFNoU|#IFhD+^Ta$SV#rW`@^I6#ZH?ql`uh6f-G5upqr8BBV9
z^6YI|;`;4ac?FoJVN7xuA;$v+S>`zVrftAJ{n6#rwvRxj7Ll;%wY-y?p>n2c{ns#;
z(D%6M>$y1dTW{0+C~FiKzcaOuvuK+u2Nq>fWc}{uHOxarou)D69TjlA0o7IQQV9^#
z1}$wi5DNiwRxd-ktY=EUUO$HfgFv`wo}#9{?|}B#-x^#Yr$jFU)O7cGjUil<Qi)RT
zrnNmAFkR1uv+pJ^@X5udnR)3y&yD|*AMUl^n@DNjg=g$*YAqK&lu>(GO2t1F>vPYU
z-h&?2dw(P(jTvVkA$j{9Ez3WY=bo_QtC|1v!-=U(31}KN*i<q!{hatEKh$f#4==J6
zFCtmfy(FPIuf6DvsqwGNrup@FiWuzm7_lc{rkubK;}DQPh2z9XmqgP)HR%G4y`x<a
z?%d|pf^(0QN+S7Gr_-jLHiDA5HDmv?i)N?fy45mVT<2zd(*_q>Bs_nbxHx(Ca$f4u
z%(@r&N9#WKfdqcOX1#}D#Zv&1D`0h1)G5(~W_Dvf{}2>nG0DkFV5s~-nn#6)ud}hW
zHG%Pk)HKU{@(~Msr!rCf%1KNm`?8BJ8)orD%S`w~9A*K$pRu_jcq+g%PAkv%_a@qH
zuTAsw9X8SXw&@=8rVNy45}@`>bROOYDo*gZFK`bU4pA#<9O2ks?t+@+OK<b%F=dsJ
z{&V170>YGmF*RNrr)_o_{mx`Kji^<`B3)o~ir%Z!CO9i=zZimtA=4H6j?2=4SvTjl
zUXWB4tUsJDXSVw8OGcV8`LQc(e>S2LAu!R2OdTA%l{lZ{LH3vPEhxx*HPU~1$b1`~
z%ymh)iji6g&5|=}mATN~m}T|9Ew3UE6+)x6YuSx5CD#$z!?GabKquz=oFR=t4|W?8
z2@IN|tvh$BLT$eB#KUM{1jaBej+zpFo;Z>r=XWSmGCWCkrs&hB3Xpj*1Ta!kB84K<
zaBIXIlEGSr5ibi2Gp_Ahj*%Ooo8sbMx}sOMujF2;jwdA*Zz}KW+M?-T7+XRtstKRH
z5KzofP_F@-y|G5<C@4-vlmqZ<-5C(uYvheXSfcK4nZcXC73%+oW$Ae=WR{vYt#$`+
z5{c=4zbWlrkn_HAqhv7e*+Ep51?%$#kC%6@BL!xrskwReOUqV*qhN%j6Anc_bucZc
z7KOzrmhwjG_^Tz(kH{L#&wrTRK%uZkP^AwjDQv|*Zeg(NBlW8kH;NtN#l+izp!7;O
z657;!gIC!wjNnfB1E_d{i@N{25Wbgtn&tODX(I?EaoD1kk>o2-JK_QL$;P))5b;uH
z#zJReU{|OYL%Qhxt2}G)f37?$80g4k#ME%2i!$IrGR+HUUwX%2vnN+4{2=e}LTmT~
zb6PLLmGBP=XnJN<K^~aa_Q$-u5VZ`)S_<H&=rOS0y9D#Wc%tt}<*YRVuuGI*po22k
z040JLpM<5KGD|;%f^(n2VlXU3meupJmDy=9s8I<@dwkDExsW(aVs#+trtCq_;2w)6
z$+l*5A_$vRiek<r5aG`FM!uI#SDdp6hU>-g`%URLkpN8SNO`F>NFc;B3T_TBL4*NE
z{YgoWXMdkbHV8sxXbj_V^i9-_V6J8eAM{<<@W}n@($X+IWxK0HP@-fbQxgKfUYqIZ
zsfl4+AT9qPm_7V}H$Vj}_`>gveNfF=w)!l&T~$rYMDoc^kBcq{(<v&E-y->a3&(zY
z{$)K7cm#{Ru16)Q0oAGK`Ip;lZhXzOXok8vjHWsbc63@8M>Wj4t?JL|GTG1BoDgv!
zWeM(2*nwHGO@S+5W=O!dQi(8SiF4n)Sz#eS;{Ek-=~DRUg17}DyXGa+A8@d`4iz|V
z?TUq02{KLe?U)S=;Ke3r3I$+xYBqSwDVPkDVi*XV89+pQYXubFz<LQl?VsVHN3wD4
z-a4g2{{n?Z_{=ZA83LUg47-U_m1M>ZVd+wIfAG(O1uRmhQqPrQovsw>mU9`u4Ur$G
zP<JSn-7sv$4g%-EGE@ZPnpnH&>cI?D<3ku7HbUovT;Tm(f%vh+q=szM`x?i5K@Ys)
z{AkS;et<y7Lw6G|eT%Ebm6kkbxqx7qEK+uLmYx_NfBmkJh!L0e(9_aP4Fu#uS&BW@
z$s^Oh&0<e7#@4B25a&f;4-K|C4lmMyzO<R~#F@@&aTX$Od>Hi7jWmW{Nu<QTB{@vw
z>^RRKe|JIQ2SNF5*wt+ScfZBtQf*&XpG(F9w^#3y5gRXE)!jq1?Z|T(hOSx#;9M9A
z&D<?OKEK;F9!9lWXJ%J1Uf<g^h0DN2);RkwA{2MMZ;36Le28AA{2#+MUr2%au1k{p
zktBCX?|D0G>!JI$@V`3JGtlja|FpiTn+y?jji%z?@MryQYM-f%?lWD`g-AuwSc^1?
zhbP)^nqkFIq&#OE-DhfMW@c@}(5jvZJexa%;K_)08Da99cdfv*eCbZ-{zc?KLyL8b
zXZ7nYP~(dyoN+mHe=MEdOIEFgXuS=_a2>8`t%GA&8QZDoikzPiArmIFKxv_OQ^=PB
zRn3&8i`RX)`}eqr4;dx9@L9+|g6#SLiC34{X86^2_1lkY_CU_#0C6gP1wH;n(T>?^
zqdd_^ur?nU_m|}>ML?ec(G_7##qZb>dN;D#;Xpl<H*d)hgE6deS6<A9#cB7~7e@d_
z`kxMrgkdYp4IPe>)--lOI@<lFy59n|ha~xW2y1WMz$n-tL14UiYpXqY^7-2^4TBvN
zBh7?Pf?DocjR%x8X#IFQaPKoPvX2$N4&P|8=MK)V%2-uoYMvxpzvqQfymglKb8lTA
zdE&Uk&QZ`t(3l&bX+vp$HgpgU8PkAPejsnUcR}6kr{%y@68<TrFCBOza->yALS{VN
z(6oub3>Dd3n64n%#25pA8A#@|K`?Fy1{5^>hLOC9`G!Z}t~#*+RiJYs=5CM$n|^(M
zhCKG*0fsT8|K>_IaJxMD-Txaf$bX8H{Qve1c{3???E(r~=3IHXuE&zx)>hHE-!XY}
z{%O@7oAdK4yiyWweeu?yZu2)uu53}Ph!pmE>n*#(SPKY@La7F8cxsh?O!!NsRjPS(
z0gqIYu3TZtuN$0hb~JybuIsUnf3R!x_A!~B?BewHx(l8XoSa3oW^y8L<}w?|WcsZj
z{VM@~4Z^=WF7TJpg&Ay)t-GoghlPb5uU{FpZR=JNN(&c<N0la}@ux&c;+}|EoxIox
z?iMl3Ku=tnWN-w%FZ-)kuYlLDAxn3pq^<^K?W0m7VhdSWbKT3!_3-0YxYJ6e%P9aA
z=x-c$1Hc{7aeJH9TeTf2TihivSW}W|XAU=onrzCW2T$Yw%+QOzhY-bbxKsIDV@`HV
zW{coK2IA||-`}6&tCQ`pl97>7Mn(qV=y(Z*4I`L*>Kh#uG3`S5@RtmmZLo*%#&KW(
zJ)2S0bz@#6EeozuK3;;6e>hN8*4&1Ka9>@*i}5z^hXN|H=N;_rbwMGr?Xlp->U0HB
z8DlG<@;lK4m+s^42ggW|{lS9=@pgM7dwk1zH*Q=fF3!2;20ivu*tEOxQX#UIh6}g8
zzP{3p;l4h})2Dff*&`AZ9>b;4pEnHAJ?LZlMn>M^{St%4y%)Yn&oH9LJR&d8LU>u_
z8JQ*?cb2Cqhv#fO+USTA2MQ75Y$kp9u&|BY!xprG_RulXP|%K%NaeK~s_x}`E-`3(
zcdKt`$o-Y>uVU4Hvzlbaq@*Nrzu?rVWPIV>O&$<8@Fo_ZrKMFeUQWTMfg6Dryk5dk
zr94fMwRs^F1=(djFf2b}6aY8Or*(cSv;Mr70TK;QVH35Acrz$ey><s8ih;<ou(LD8
ztN8TwS+L`81TwpBVq>LHFy^FdcO{i4DfJ!WW~6L`oY2UW>=woHI(Y8fb`WnR&(Fvb
zFF0g!eMo_Pz5sPbDcBjK6b+`e!b~{jo`20@p~e18qL+}=SMpSO8{Ug9QW=C}H{CeA
z9urojFAU}I4`97SygcaL!n9j6?EBY|!M8ZXlb9yzVPCO_vS^C)`f|-&XAS`Y0i(to
zF^$x7*HF>6047vPOiSTAFO_TR`^jf_<4RKlp*1&%k+{Br!QIp=Zf^akIk-1%D*VoN
ze)T@v?G#-M^fRaF9sV6)v2<zrGf3!ZB;BuGRnLyZ=1uGR3oQQCfPess?g;hRv2z95
zwS}j5F>-Nn(MW1$+QygacPU~nZhtNya^>24?dL#*zlQT|%fnzXM->c<FvhEx_D@0*
zus!uWKby3g+Wj|d6vV^&pm}-m690p>y~IagZ}18D<;hW4umsO0`SWgR-{B;P_wG0n
zr><#l|B}KDQtNXOs$K>}hBbG0@4(i~;gAC)?^#V0PJ&a{Q!1l8E>*J!vl`}Xt9rW^
z*6^`YblfU&YI?(8YaN^qGK5uQoT0zz)x6mAU)=s)3T4pRQ7Bj>34=8lC})8ocOL33
zgr9_nJ9z^nT1sKz;_}1V`fAe)JXG>=>6a;Z!9D8|hp`w*EuuVvtpf?!0i3r$M@NTl
z{(L=1C4K?rQu2$Jg((>25r(IYO2e;8ov+v+EW8S?+L-IP49mrB+wuWp(@+32NJ0<>
z=TSC<Ey6DXNBHKIA8`*-)P_YNaweWC)6>)N{1$}04nF;@;NTmOJTzfI(aYO=mygf2
zYX=aDvDc>49YYS`85wK93*a#+1fcy4UYW72#1a;YF*lSSt=RbN$A`9H@E>mA#7P$8
z=I$OIEf}mGb{0P9MQ=_kj7#{UJq>&aMH1c%U_Uubs&DlMJ|0|m;cce=acDheU30S?
zRllkw!if<Lgquq28`v6nAh^eo^MO9F6pAZAq&+Ll58o9OnA;L>-A2HwDuo4Zw@D5+
zG@DTd@%pqs4iBfJ+=Aw`IvZQG(F^b5noaxn*CkA#^k<-~+q_xkTtn7ZlS~NZ<b|s4
zVIp!V3kx^J3rhJ+{Vu7H7e9U&y|{qSeDuk8SDJb5ywtPRbPE<NqJ%$t_N=NOo84A}
z9Gk9t>Y5+}6)$RlL}w4!_9i<kOB(+{{o&+8y|62z=$o*9Poh~;!5vUz?*-Zss}xps
zI<{sv(6jWY$1Ah2SmCqzVh|H+!Id9=jVtxlOlV!O);4K4*=_eEAxQ%XdOQ>_ARQGg
zV;MF3Et*^@+!$h4>UFGnz3`8BhLy3^N@EKPi{R?Fg@vc~^Cdc}tEm}PXM;7N;c>4I
zZFHHbPnf`)pilskx!u3dMxKxu#Y+QijPM6wps1yoAi#WBwNgJ`;K4CAL>7?m1AeEQ
z=SpLHqmUD{vdF&g-Q71zO5`cURXQVmef*gu&Ylu-o?o>bdj^F90Du!4*ryh3O8l6g
zq7a*_JFOiZ9TZns1~Py}J!=WGYIltJ?eTyu4!qt`DTTw&W>w;?2}f8i__Xi98K%&%
zW#`UBhr-Hal!EpSfl(AhMbQus`9k24-DcGdWaTK{uIcrDJU-IBh{BxMT^}a3fRYFB
zSGi-!^1t@xvbM!HYEsXiYEOaAKg~W1VtmT<agU5Oc=9R5%VLRBrJ~|8yy2$iW*Y3*
zt9PH(g{3?tWa?D5M$$dJ!|3SEkel!Hx_-R?on|Hb(+94u6raM{6w?Jwji<j1wv8Up
z4mr5d{N*sfr&HNcSr_Y2w|#E$U|Ov&WCoI9mEXs;_dqPa>wL~JuxF=E&bbsPLwi8@
zJ2+h+l_|kiP02$b!aqOPQ7t~5oa?BXhdL`4<>cgi&@@TWpyXk5>Nb%Z0eny6n*Y&Y
zzu#Y;RagOvhfkcY(U1R7s;C^g?bdQ}N*_u|wXCyfz$mWhBjF>etRK3Gx{M@qkpyC7
zyTWZES#2t2qiOfY!ua4c;V8616cdSn_V+6@pdpa=6$7GCB`Vt{-7?rl7sE^a5SU)<
zf}{(|W{I^v@hP{z@y3gF(SH0nl_0uzr%=pP!k6bzU6Tx*4I6kwL|Dmq)#oRZnLqI`
zFu#%b=NlFm7pIgwx)I4<sTLGhd5pbEc{Ssss@w_@-qekv=|TSfSI~mCprf|3S9gu%
z-Ng9KJ$%Cey{=H~>u-ibAPm%Qytrq7$Kd42lU<rQI4stVERMc>ZiD%^f@IBGoyUBO
zWKWWeBB*s~aL7zTul);W_}v>-?ksS`Fp-}a=-rhf%y;^)0#H*UQ9GOR<ph(cPrUc1
z4Dk_rw0@;eWLYUyGg>(qlc^duDX3zPdRPapZV#zq0E>JTqE{sc4<!%b2xo`aT)feS
zf-vaK6wLosTI1pu*G9>4QHUDaDfm3yKp8_ZVyqSKF`zQDbC6&U4v4e>XF$or;u65D
zL$YZ#Gswh~TQ7ezF+cL&W%IMtOCH(C+@3Q$3fO4gSNY|xpJeO#=k$}Amn%dXFB$Yt
zqAsM_FT2r1a80E?lA$0MzKIKn=MQlbpU>aUr0`q+kf-FKMzZW}5PLBQFkLOpjDyky
zWtW1lr>EyU3d#oXo@ZCtefzKy20iLo?U<Oq>!_XUoUJ!c{wq)vq-}le2eVC~&@Wzd
zTA(9Q_(=PcE$@_ztL|N;9zBXH3h;*F>O3_r6wR^vpHCr2*WkcF;LA-#La-=;R+}DM
z=v(~6JHw)g=_a$$afzl|(%X#U9@f<-87z4H`nAQczGjDbo9)}c5Z-%Y^fTp5JR<{x
zd=-07ZQ4#uliqcS&$aDdGd|k8<Z&q~cn0g9I`wOdn3$wdVd7Y$XJ+@pXe|Q|PT%Lx
zpZ5V&R?jv>|3;#rD8*Zgux?D_6E%?JfEi@nZy)YLOA|M$R$-sR%BPu!F41yk+6mui
zX9u5h90(MP@r@3<W<PQ61z?(fP!Mf6pbeWYV5=nEcWy;3%j%hEXPdiS<8o}khbX#m
zD)I91F>Pts<LBqM1n-CB9$gx<BI!au1Kr)}a9}=N6%-npsAP5a^yx2}K0>er#jcQO
zbBv*s*K~dL84M-E`btto<=*pxBgf$)gw|VN-!$e>QHCuD;M3YAyUWAfU3Z}E{Vy=X
zI~pzk=6UHdBMx8NKA@Qz-L+V!U1H2aA-$cIu}fK5qm(SGiFOB&^4i5FjhuL54Au%7
zvCuE!ybke=&&NX~2@A(Ob6PG5RLBc5&*`vOE0pw)Cq`G7JHxiy8!8!OaAw71wkq-P
z@Vs=I5MH)?Ie9GXFJ9!~=V!sbT?iH6Gg!Ms70}uwifni1_qi2&aM&SR_WZl=t*vf2
zdl78Lii+J+CH5*V64n3-V#bl3S6yAby{NjH6%umd=AL2QLA!J3PO{7J@{$j~H@K)%
zOl<#t<h+<5&5T$nePB;EDy4-(ALKj*K*ae^zhg0EuKxrxD$D+sL(+#1g#pAYF%o1G
z(5EBD)r6N;m}vQtB`CaP$r2LP0k#t<vgjS8@gZT=cq=H#=gSv0&ssiIT7VWx;8Liu
zmRC4B_jOs??YSoM-PND9X-mMK6+&o7(i$Usn5S|J3Z%CqRtj`Mlu4zR^vuUp^G09T
z{5Rnd!y9nldj4;RMZRL#@isPcq1HMK^!#~{n9vT`$e}7mm3-sEL8S#eblMoDLfuf8
zb#Zw}Nayy1ybWvqy#6;_Bs~nr!hyR0r)yxwK6k^lFM}mqI5F;EXcZ96NrD}MM9lTk
z+CAN1NAq_>7X%ymA9d-wC#R+?v5N4{mnvj4^5AoF;qZX|>F@3s4Tom<<-Z%}^Z)#-
zw#dKtt99$FPR@m3&X#QHTQ=JNaX<F*s$22bE`gtD=Ka@shR5fBu}_zl{%?A@VV94}
WOTW6aev={~4)xFp>4by2SN;cI+Gzd&

diff --git a/reference/resistance_predict-3.png b/reference/resistance_predict-3.png
deleted file mode 100644
index 92c7c1bf15b8c8fbcb02ec00e0a4deee7399685f..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 47085
zcmeFYS5#A5^fyXJdK2kII?|<gJq9pT=_pkYklrB>T5J$Sklw+A2-2kY08tSHgh&?x
zB+?;3LN6h3gXjN!<G$R7`*0ub7$0LZcE;W-Yp(g5eXbSg15*PAT5ehr5)uaBeSifC
z2_=YxgxvKS74Zo&>t7u4M&)W`03hCpf2a34<A^t!!21tFNJ#h+uKr0=R(9P<NCZiM
zfV)<pg01<891-{C_}vH(w#Sf{qKyrSv{DbvZAjVmNbl-dSzU)oxKj022~qvbVWuE|
zC1tA+NC_~$#(9U5oxQC@@NR}+nrOnjd&G`F`I;%#*LJINQyz<rJe!%>IjbD8nzm9q
zoIJggCIb9F*Z)C)h`{DTO8j>|r?rFI62P}75`~u+9G*=)Q-r>{3n$AjZjeigShBfm
z(yrgJyI+g+${#Ovm#Cikb!9`#i;?t|T@QDUVRSi@L+{HzE#+_{3#cXzoTvpQv$IK2
z67qz5y_9HFyivR}Sx-Qh?xZobM<}Rg9Bd(Xoq*>j-y#1@aY0`|UBEPF6ZzzM0Qbtp
zR6<yfLUqryygirN%QiT|;(KIFDq)lpCm2YMV?tY?r{MyLF&R|Z_}2^Tt%puxMX~;h
zi5{fljf>br{zZM~v@(Ru8(F#Gh<I{C*|jP-Pl&Wz1UiAH*pI;>6E`yow-@hf<-r-d
z76P@EXE7uqE4K}KfA4qOP`8N4UemqL`yNZ3OzEM@(;@aSf0_Sf=drx(q3LK3HW%*T
zB93P0h2m=9GjI=v{?8t5sGL0g_{JaEb2Wy<MH;&>)|p84F_Gv}?@)GAR-;_z(v*@I
zML%O^Wk^j2pH3gNyN|AX>>Bg8@sL?#fWvrqlS_ZPiF};jhG%QSE|p6xArqEjppO-9
z*VTC2812ei|22+uH<c)r?qt(uWW<CCR=&i)tytrN%XTrAl-e?DgIhPk1k;q>+feIF
z{UMl<GO1qwCRk)2+p&5YSNRRhLyn(<IY_3{IC*X6(w);@UVMCf$mMeBM18Zu=Q4F~
zMiI(yE9_VM(uBeqPLEct{*5<I%h+btIHn~yj6>w@*0SU%`E8fZFZDBY3bxd?zE|-p
zei1e?q2ru$x|`MzLoSe#MKwP{gDp16aC$W6An~!rusbR-t&~QJ9E-(WAma0RlHKP7
z3+<;0DRhY|!jL0sBHJx)vBAdBV7Z}Vbgt<He^i8iXZ9qoZO`xLE7OP*%)>5v!$Ge-
z)bTY1bl()9W=QGzftq6v*MCa+&HMR_<IB0H*V)9dDf*Di_;T{r(k8GY;a}jre^E!H
zgd1j^vB@>G_+OFmHiVTtmZ%Y$GIHC^&QN#b7M?mk%6(w4PF?jkyujz6T#K?>`pC=)
z`*bE*BS?N?o{3`O-6@SokAW3GiY+}Y+KzXh)Rh=cI08u(o*m`FdyIa9x$DSrzGz8+
z`6a_6EXwFQ{*uR>Zc`5KY=7C)x{SU3bhn9zbjtgC6Upz&L#);!;~p=XWf6Qr7swST
zi?er~*st`X-~|-C^PhUu7XZPMmXk4M6kxe~&rmENp<VC@)ec##!MQ1_+#%qVM(avt
zs79oNaddensje3RIdBu6>L?8cFS6{ek>oRDPMFdCT-%#YwZgrEf_N5fQI)6Pj}*~8
z&~4Z1WmuKX+7Z$yp9CR%l%mOuFJy5oKA}dZ^oH-*Zl20+&Z08vX@+axnBrfG89VK8
zD!j(mLVLa&vCaA!7NlI?2$~xrgy{M?e|s9@O4!l!<%wX!V-*w4w*@5CQBDHmc&|>b
zDK|6Avp=229kF;l%6<Q{xdz+*YB`qafG|4%y;u~y^te^{$S1DWt39psW}QIL&B=|-
z@OLqxhMi#AzB=Wg-7KY^fm%x_+fSI2enIG3VI1BkJLB{saYPtVJno_;=Wo9wEV-Q}
z*4x1e+A59gE_>qZ);qtFsTg}1^bix!q}<cAGS8$Xv$of#{rdjvWkTVIAgfH|M3)SQ
z^%0iG<xNJ5TWGQ-MzfINT<LKv_CE9@^sqxGh%`+F<=i}cyd*jPQL+=oY5V=izCZQ@
z66HgU-X!apuDK3&sJF%E-`=$2NbxvDY5K($PFb>(=Vi_dy!GhS)Lh%c%%vzb#}ua5
z6_nH-^`K-d%7*NH_Ih6&WryY*`D$EVcny54KGbA8iTWDd?;Js5Hh79ps>1&sUyiL1
zNY<Y3v-Ch#xPhg{%bb%H^2MYzvEd}c#rENiFrl%m@r`D;uhB>My&45Qr4hiVmlw}^
z(yh3Rl<t4q-pN4t52>e^qd_Iq>*17HU2>y7uI0Sr-P9)nF2iK|2p^4s4+vFu#8c$$
z@z>Z^Gu2aN3v+4a6hlYy>U6i+rbE@YZD7JeQe?HE$b3<OTcj``GL<J@JH%MmUqEOk
ztqkhd?)6ZcVrmoTG#k-zdlZA4p>%!f-Q~~dK<AsQFh8Cs5~vD1y^Ux16ppWP>oGq%
z&SNZ~Z~)XpjHW0@gk%l(=d8S=;w<$GF|IGpQNU4boxdAbvE1MZ3`)3fiL@QN{knVh
zGPYJQ8Ch5czNi0_xd(rjW?S>^HD~?VvqI7WYS=9|{t&3!FCF!)>52OC0fL1tFSs(X
zoW|Xi=Y<<RoQ`eb()8_+ukGqwgFxt}<T-m~*DLR7ulLIFs*`QTl9@!u*Y;6VLhi?C
zEQK1STGR5Lt(T0r-xDk)+`w?8hmq(j994w)ZKc7yIeH@MPEPNKH`KF^_0S(g-3-Tj
zTeQ|~$V`R1*1j%dYby>rG=hY>3`b5!gj=wOhJDsHj>rJHx2!43Jsoc%x2PQMAE2c^
zd?uKf6Y6BoCT~a<JKl|oeC32K#=GMO_jX<!Gu;G(XCceI(@cg283<`KQslT4vrIo0
zuzDDk54o82f3^F2yfpSqmeeT~cY*bOv{1KhHRVcIQtrpM^KVE(MVQycxh0t~&hVRT
z&3!^^a1%-Z<n`5ajZGZ26wxJMBx0qZp1s^_Y*Bwv%bZd*B64Is4lUwCk_CvhPdT@q
z$rMRPFl#4A2%1XtE#>Qrd@nLRP{KS38Dx4=Cp@DaB!+BbH%sHNM7e00_zrc|dG)R7
zc{Au_esa$72u^uXHiapNZnr1aK*;G@HuMXL?002tZ40G{KZwPpY8<J$AAIXrR~?5M
zY$6PE#V`@uhZpV6Ew$2~qwTLQ=v|JJTByZfmwubI;vK@cG}diX@pcY}+E%Xh;%yJR
z6m65uY%HtL3@qlW=k!z^%(POg)ptyF<Gl5PeRBvb`qrrap2<+U2m?eY?5%#H0hY<g
zD@1gLx?>Xf8Go|$;%FTD$iHxwH@mJNE<ESRc^TZ~PF^CmZfRL2`DnT-8FXZl`0o#&
zy$^7NaMZIE^~YSI?PZ(FTz=_Os1ppMi|yiz(2P$jM+q4ly7_elGrhtvuc0U=`C_Pn
zttSg+g|C-#bMZx_YO_qXb&LPZH3epU3uNh=qiSqu5@;(-Cn!kEP>TWg&tgfGgC!>H
zLy}#Ok#EG3s)~v*)z-in-}v?UfQfp-R6R=K3|s@8I5Ek)%!Rw<{5Dk)k}Vx`HS7%Z
z^(Gn&8%C&N$92JWUK!MH*X{2<d-fF7GL~#<vQwNt+Z~%)UjVCR(EN#yp&1vO|MAk!
z8K_*Cp2loFWzHApXreWxlm46fvq^Z@xT!WaPp3?^-FY*?%}jNd-aB8Td#FLh$Zl$z
za&4TLj-<L7Oi69$q_z~CicB*VMW<K1=7uq^aB2)Mu~Dwx1m?N!@hgo}Epo*X-mGur
zu7pYM->;fKTYjNp1T}yo--;N6-IGuDZUvM5254bKrQMReqh5&udE{?yE0i>)|4CSf
z$qb7{+MoM;4IZO<+nJ!|Wz<NEtAByW`<>NkejpO91<h4{XE-+CK1FG|P-J6LGyTmn
zYoAX870o58Ignqr{?e@wDQDGs1(~R0TM~;IL}dQt3}D#lX4q?ccu|&AHci?4GPFFr
zcx&<aheaq!e$zC~lj%+0;LABP<g`+Wh^d7Z!suzMsbRi>Xw!_s<Fn5DrlnSeTAiuO
zv*TWI_JxB6N-@R(!JQkeZf3P?wI*U9a7+@{G3<rA=;3vfF(OWx{mK5UFlPMQf#P}7
zxpgjE>u1LgY4(3u(we6!=~;*UI;T}oyTd;%_H$_~DSX@_3*|+zTUtb&@Gfp*TS?E1
z1e5H!{o*u*MVu!rH?v``&~o-;A$^bJN5`@G%a5U^FC5Yv3LHbuW4-cbvxaVsVQwN!
z3U+PF7o6W+6c*VC?hq|6Q*yj~z5wK4*jb;%`DRCTb1wGZ4ubwD3e%CXQpV8Gz&fB!
z#bK^hVReNH#=^DA&GAms)I!C4|Ij6OZlwn5L~0;~tJQ}Hj2v?M8V)5{50m~t$fem{
zD3&K=vz3`)zT1ZFNpI^<NTfysy)}Kt4on2b^XL4}wttUfdVSJq7Muj!`uOtds@Z5q
z$~QuWVhwTrX}Cx*;k=R+W-t14sfcX<-7Pl;Cok`|6c9buWpDCPzTTc&)5GUM(xUpi
z+oj`)-#NsL!DKAQ&2ZI3r|3?Wl&-0E>}D&dGED_O{K05M(N76g>cp^=GTNFCocMuR
zzA<Jt)u_}iGwr@7fr#WaKA4ib72x=b2uWy(O{jPrmA}cu5oLHGSH0E0BipUn9;tJ9
zjB4pL8l1D7PpJq!ThX&_?vea}n))tiM{=HeGM`RGf+;72SYDwJndY;|pTR;Wf-OgV
z+0&kQO3?LsDDEj;Zs>*o;tpWd7@+dgJswvf@0yomz|@!9Mx8pgASM0~n)VBC=Mf#$
zY*=se?34b+MTQUlqN2gJp7NiWl%LG4msUJhc3qxST`q_vWFT~m!naG`vdxBb*PQg+
zcAd%igpZUCWHc8(zPad%hI080t+#?2lE{!O+DzSg(TLU-*SzyC5nxoc;xKusIAZ6P
zd@X~8j%H>Xo0CmCGPp<W_13o90K0m*k9SwuVUm`vLBZNePMLj}e@|D&5#Jh+_x#pM
zqsi-+78^u$h<(KId{wj;?NS)kemHc|KCq49M8Bme<|8Y}aO2M=xm?FxR9364k28kK
zrtcb{%Xo(>zsmHg1M^Vj(NnP@ADvsc)(Np*L?_+#3xjQ#&!fSjkS_Fvp&|Y=bl5H2
zg7<RIjS(O7LC^GnHej>j7bz3I4{&I&3*E!1A32DmB-=F8E?HAi@cY^U57vlOIWgJK
z`&orQKA;wXw`pNTYB#$w)>#f{7lqs%7wgfmh_&?1#g7A(M(2T$$d7&j^HZum!S*}N
zbP&G*6kS9E2HJnHM@&b`GWFUOG=DmbhgMz5ek`^&ZuMzg$e^be6mMENhsqc=!<1w%
z7>RfzoyQX`Bx^-afvJwryWHZK?7te20BIGCK9WU;sIMvNM{^Xyz+;z8#yLCd1w;f;
zA;#${@e>6t#1Kvl&<k=5d-dfUQ3S`9s*dG*tsUB}FGl*4o2DCNvy^vkXk<5^hzvWF
z-@S~<&bx}z&ua<q)zdlk@aM#cLgxE0&W^8U>`#|LBEJ~$BTIu8+lkI39{?{?WU3G4
zj&^=>N>?m4pS^oJreCsNXo?I@zrhA2q(d$RqaI`F9j3l(?Tb`y+8jnTQ(Iz7Yw#ub
z{<|oYRl96d#kk(_ZL|uys&x9?_x8Vbp}J$eM`0oZz!@gX=-xxc^@0beOemx;ZBS8K
z*!%TSy3^&`4D}=WvsfV8*+!=^c)7<vtib*sWg6sdonL>ta^XlR2mMC_2~B$-3z`4n
zr2WMwqf_4!S(h|y>cufC^zlh2lr2%5jr<FHmu0t9-63<o;!HkdZCdS8tAW*1&-B%J
zOKa&_mGw_Bv&dmoj$Q`EDbpeV_Ila(5m(AU-lN*%^5`t3Uk07GR}5ZPhTyk9Huc|4
z_oiqu0!ORWc=(B1?*t64mxqlaVoi8;H6OxXYwzLRFCC7L!XyT0cFfpPbT|&>&2Lqv
zlRvr?%k)%(dVod5CTsm$O$R-<kybsviofuLu{wTm)W6dx_s&x8R*X$sk{Ch;ydjHz
z&bOfZI{JD1YU)J#1!+|F@2Tq^&uqC(jiCKE(@pR5Q*RZHU1Vh-oB;LxzO&9=9PP}?
zf1C^sO6`j8H}F$LzuM|AFUsDH<RaW)>W#&xOBVOM`Lv<-L3#V61G}d2zzd1&4xI*<
z+aiOl&kmRCDh~6q&ZBIS)rwQy^86>;2}c&Q*k+^TBhB*Y@R<4sQ6pigC~L`L6aEMO
zzm5@+uq@8s<>_ot$mrmi?^irlEcudJEc)V9HtS)ZK49jPl9}mgH6h^1Enme*qGR%`
zG`i)rmqVL9TDz7NruK>*JeEABzH6^<u}F|(A9lXgOHr!?^A{(e!^j5k@p>Z8p*o%U
z?}NF8sc1Xjt$PKl;XsRmd7+Dq^US^JYfrSc|Jf+)bt_tGwnBnMo;W%jjtQkrFX>mS
zJvAPUJPx+!zY5j{@jar^Eev(xhDei&mVTo&jaHP_W=CRN&hmn$nQ)iZPieF}O|i_)
zt_2U>V8`X`sgS@u_5M0+@v(3b+2*oO@3`80Mru3FNo2zD8X4ka$g^V=w3(xHV|7!$
z-v@w@77(1$_Za2zdi}88;IK{O51}%uz*PB|+#nRB>*t#$bVCH@+%i!-!A@)`1R8BB
zlgXzXL`4F-08C||pfhXeY|nfL-^qioo?Z7{vY_HM{FX)ioZ`pv-pAt^i10xLtkW52
z&=Vz$S6Jr?)qy;}n9EAIYl%5DlHAtG#9dq)=t6EjSUaMd$Epq*f*%QP>;@+G>w1bs
zA4O6%9>2o~AxBEZJ2ek~2uu<77vQaII+|}m+@D@^{}H$kx(wCG_B;XU4asZ*(tND>
z?`Vlm4$M@m84~LJ72PLdw#@fG8-e0t#xPyCW;hblXu?1iU-3OPUXg!WB!QjT2XqL;
zJ7PRThIZo$M$e=Xg@_rzKzwJss;F^@1deyiK-K^F_lx879T10ggqD{$Csrg)*$cng
zlvk=L2J7L*z0C+GpfyFZuRly*uisZG+1Wff%Qba?!MNKX%Pg_^vsvYN#8?_(F)MI?
z0*ZVGHSk+wd(OO*>vn2g5rTiYbIju|D*8!qQRn5S5UuW=X<=3j@Hz0VNEB5nrlgT&
zv2TeqbjL(v$6sTbp0AIv@87HQDP4e78(d|$b@^%}WmA0qi77G}bMO@H>S8a}J+7RH
z-S&~(HeJUp$P;0hyn=zBLe}iWH=SyUQ|wJ5rc*=YEp)FlFH0QAO-5{L$ZB*Y|9sl%
zWQbI7d2EP$ZZS*9y#L~JA0Q1x6$I&|PJQ58tW%M-3avqKuxTF_(fJx5RB{$$uPKo9
zV=NbEv>#u1iW^_P;r~t^=x5luJ1tzpd80A93zpkE5M8eFhNvY{t!0IJS`DC(zJ@W=
zoj0F*f)YMT%T@5>h7=cnMtx*po$76Iuu+Xexn~eeHNCvMVzu4X-JQJ#t3PP8I<Ncp
zj1FTDvt;9HkEVmTdfd{9eS<s)4rbK@jb;-}^K?xUVe}+i<04ALZT4vTkK~ZA_mz)s
zzB}0D*1HQ18nGQ?SRQc7um8C_T^l^YG+0wrs^acE{VsZ`a=<Mr9se;_^T?{5kKUW-
z=?<sj&W{)FU6pXHJe^kQ;H@9~hTJe|KlOdf#e7q($lSF6p^B}qPeNE{FL``istmTi
zNHO%-1F>DF8yN^wA^zRXC!~S0qedVuHfk(Sd@%{0BPoPR;r+}*K+1DGa<wz*6VLJY
z7cH$Mx>9X0r@nn>^(@^Q_HQRHUQ0K|+YN?5KXpZRE>c*+gyRggrZSbDMd+R~j`B1z
zn)nY{0*Tfm|6126f*m*f%&)`z%6PU_J9a4-!CO-+fRy&Ts~tJNyFK3Zy!vAzA|Us;
z?FiARs3YKh8kTc3m@laIGFtl?2Bz?CwH3}}*aW5-Aohd(6z41Pzdx)N5({G^p0_2B
zB9FmKwUydru=>SFF$Ts{QP&<}<q@KfQ;rr~X)KJFVb$Rg)?XwzOp;nZRWQ#J++b-g
zTY;|amrhUo3>Fz6zX%Pc-9X;y;S}cQs$L5Ea`$%@wK;L={%FZ3$H9CNJoN#c6)lN2
zR{vxCkMy;;0u4F#PuO>xek?!Ad)^mjKIaIxgd|v$1zpY+QYYp!d1XByyv4!z#aJ!l
zq<^ilmoibUsVM%t<Cc;ap&WG2wV|tyF+g?X{eF}TCZ5>E?ELC}|78w3v+Pw5`C4i8
zMSTV$i!6b}o~%c%erqVvf+|I7RAndy+8=ab{tY(tg9p(CU_Dt#8;a!oofn;A&u>r=
ze_%wWHFO&-;bJ+4Q8x`|th4S@BEV#r8i+>ioVdMM$-9qaZEFNb&tHYu@Sf4PqJXdN
z;;**@up(6XvoFu6)V%UALdBwhl+m{ko)BZ~MZ4xhQQhwQ7d%hG>?pL}E*C+Uc0~QJ
zEw@7#iQJ43xlz>*?oV>eqjOuA7N&Bm{wj^m<Xh+|*z9|mN?Y~8BdPS_z%&i>wLAX4
zu~YHb1#QXnXh+Sd7W;30kd}Gz(c?weWADY%(^f#h+iH;^`}h>rlnEI@*6jS2#fRm}
zSTBI~2cJX{1R~y<bw#{#%1SFvWNL*jv7fp44t>$P<NDH0h$l1Z%LV*1z-&toKxh|W
zP1$-YE=aZgYC$*g?28Wz`PA0^^UwAyDewhK2S7Dm@jfbCyvoPEXfw~QR<(Kcn7)J&
zSp*m!%7+GvpvXo(bdV+uR{H!!s0PK1|7HSxvXTzPM)U8goz?(KR#M<8iG-y(owD_g
z92|+l9)7a-&ZD*F3z>1F8A6D9ocNI>aOqZQ=8va?-{5Z`eu>;2VAeR@V`gX{w%JLq
z*eWnT_rY3wdS2Kq9J`J5%Mgi;!tjip@?IU`jg3iI_`mzjli-em+P^z<d0)dn?8oa)
zkN=F<wPr+1(&zxzdMXa1xH3pi_@rXxTGM+}x~$&Z#f*wxZR9;#*rdS<4C9XYvtP}W
zZ=3@xCZE5o$m#!e>IMDAS&#<$yVX^JNFuWxYi~srymGChuC?kCez+Up&BE9+Wh6d!
z3ZwyJ4X?(Pe$|I+EIXHl1RwsUa#Q#sWgT!s;RL<hQ#E~f`;(-vp9XfVh`8hPccEi0
zKtp-sSZ#{xQ5Of|-bK{bx7TsD$8K^9PHLpbLI2S;ie!T!{MBUHU}++U@19p*EqN@^
zj&_UTym}gPKdp4t7#l|Nm-g5Wl`NGhbvNbQG&1lng}+n$pWVv;e<CnJF5Ja<$8zKq
zJRf2m#h3V>M5A`X(Q4>_ov3erDm&I7F;NeoTA0TO{`Yc1^)toDdKmNbL5kWum4%RF
zYWS&k(!KxGpsQII2Z$c)loA6?O0BWYWB;munv$}gnFwg|<tTCQ@qd82)lc!CDW!=p
zNL(r2-{(s2iN(x+pU2{Ff06p1!Q@0*|D$aGPlNLoh?|8(;~=f0t>dWUkuP4C2olE8
zq4DspE;<w9l$N<PPQ>XX=Skt>@eCT#;exmT^mDi;q<;156-DXMtEGu@k(!d25^XDD
z?h$+!-da!olK76BSa}e~Y;JiCmAU+{vjEr7@5sh`c-6|v?5+qW|F?3fD0<u<)@?@e
z@K0(tuIQ!yCF`XZP#)d>Qn-p9K%B_X?eBb#7OvGraBN3V+kBSzJ2vzA9f=fivf7e7
z9x{YCq0@tMpE$bm8}Ask^-#m@IvU)xVM!{Hnne!Un%{s#t_D<uAWg0W6%mJ7e_GUU
zQf(w6K5>l=Hn_A6uZ{O&|B2y)YoU*5SBcN95;V`A@DqooO+?6&_QflLuOx2q+6Nkv
zb-T6`!Zn;A4NOxC>;@L-Zlf@FsB-`F1yUMaZ(2~)Syt><3X;+HR~SttZV<dtlRYi3
zV~{j)P79&GQXG5jPr2}*WS#|X&E79`h3J1`3_FrR%ey=r+0gyx;5?H!4flT-7>1M8
z(cuy@ygrj0ku4a|vtE5i*(0i!{2g)7*<3B;B|IGN5AOpQK;y`CsbkG9oVu^bef$sa
znZ9@<dpY8FDgx|E?q2amyr?q%f`0Xx`+*qfKP43Lx|55(qD;I>N!|ZS;QtK%{~8VD
zu4&SzF4YFgsuUhp@=Slx7XcF0SErvW!Bz{=ELBwepG=fiu9SM3M3r>>R?f6T2?uuZ
zuh#y3>-|d<&Kc-YOMa#OMCqHwr2k<1zw0RR;r~mI@qcqK-v6U+#JMxPMA0wd`ds5R
zG`{o>q|yU9M`Y-doqLvY|66&^PzI3JNqLkwDaW+Dvof)8|BrzTUve}J*LV_1K8Y$>
z$`fO-c3>n_%|>#xEPLPj-v4%Ng?`lMkj;>%0TkVKb;GIfNjNOSYl_Ng^6Zomy_^(z
zktZ?!p7cMDL*$C!K><>d7k2B&glaTC?D7yGxp*j)OgWLRi!1}=cS4qKm(AosDX=o|
zxGcM5swA3)izZs!6PFMd8MG|=)?)G~xptD#m6$~;{DtAC@NuakEC;lxQ7@Vaq>IZ)
z+6cdyHq2bFn{j(P3_eP^^iD~zj9h@E&%#MS6u)Dw+xg-|dt{4vj^SzwFG|ID>kydD
zkb=p~>}L$g(0xQoM&!J)ND3w}1{u6M-IS!&;{Rp|p`9dL8^Bt>^Vf}NgYf+lI5(Hp
zmg5}~f6;JXOv?gTwNAKBs=hJ(FL;$-zrgF^TeNGD{B@e<`ZsHlkO(sBw1ojbM;BAf
z8ZwcU3b;e90~BEst+*j47JmCpJRwojaodLUNVMZ5rMZj?aP*&XSLhOoHo?Qmq?!}g
zv1`bz-POFT)NF0gP(5`3r9PN1{sMK9{L~hG-KM%3FBr(pcIde<_Q2skfOPUn<3uz<
zKX%<<Gux9LQP}?8+oq!zL)!-VaaW}4MzcwelG`kG{H51-VIa9rcEPyzow@oSh8-zQ
zW%hG=#$8XCu3`)@O^jDhyURn@&JqT0ky)z#Zw0nbm=+{|@WT!@In<s*^W=d$PYIgs
zO5dJHHD7c!=Kq(l<$cwM)Uqxu%oXi*y!ph3f6y1&N^VPv&q!RMN6+r{7#hS;ciZo3
zi5^N)KdeGI_A<uGp_SpS8xFtl#^?uV5V|>(|Bm1FlTgf>fE9nmUvw?Mh4(5)IgRJ8
z2WCF;Lu<p2Y5Vp#N{qi%CvETx7Hz)dq>%ALAL?-x8*vMXfiSH!f%G`B66ER4UKcM_
z)4ZK@faAO^TNo%s+<RiqV5_Z|gqKRILzytD++TB{kbSaXOLjqdPHsTh689m=XN@aw
zWsO+KK2o}J<`r>WdH0`<nC5y=*cGlXhstfNO{b7J2MjkR>XP@6hD-mJ9WJqvc9#~8
zqFFm+77G-u2tqPLi+4374C-8;5oUTJQdP+#PQx!8=zMUiinK7+wnX-x%Q&)PLDrtl
zw=9cToYvxt1_HjF?}SXg)^qeq1O%@a>rEC0T{DM9eM%g5;wxdM$lFJV9F?kN*Ve4&
z?_)!0`BUiapWLt&yXUs#o*Fntv5Q|9jJ}#)dF}87Xi@w&b(Lm(3LEv?yB^O}ksa{b
zA3Bgz)jInW*MdPCVecpIF}h5wz^E$@r(487f8QAdX#+xC+I0Jy)>uVpUTfq<^X0#W
z#r6U=o>da+{L~S(UR;s6Xvb8V1$Lq{;og&2G=I0N+a^aM6_MjlwflSU=juOIg)|GH
zKBTtkmjDmR=kp)Hzp5$Dvs}gVYqx==M83ve)IKn)oq2B9*GM(Gq_Q!&ps>lqHJ$~$
z&GGnIgq|2kQ}K&^GR*?*L2!b6=KQrSz`>3^JuDSu>>eEOQ?$2m{QFz|awiQMkOO4H
z01CmYRErmME2XFf76a&2P8iUR@FgC*BXLOib>DqTo2?3BY%TrMs(~}AH2HMF_WJ`s
zx}4SQrOgI6x?B{wKt7kY*U{=XORZQ|b9S6o3Rx2L=~C1eSsfwkriCSb+TOp1zO%Rs
zHjyzSKaw5w4?|0!875ziN31ft8#>V$V{oVa@mTTz%Fk7gPg6vxjHJD(Sdc}NuY`$Y
zuluAEM3zIvie4KvUL%&s^a!#drxM4!xAD{Do*cf%mL-<=XW<?^WN}`EXvI4BJ}vB*
zyWJucayjVju1*LCc_&FZTT1jC883Z-aY5iyZ%`PApEC`wenB+j2Lm?o`h0ieR@J%?
z42n)F`45SPc-B5hcK77B%;d`}@)W4|X9h7nWU$XJ`OYL9%xmS=?d|MFTt<nr?Z8>;
zYxY?RH6j%$L}CJKY$-)?N$ZdkWi+$UDL4jEVv$}nsfV0_r+?C^m|?P^jx`P^=9CU4
zq2Czc&Fp=<KWS%+E%dIOYK%8&kfr8us4IFsKjbIY72W+zp_(2BbII2_5+8gaBl&C9
zX;HGP`b&?jdr9du8{~30XTkJNS}8GJ`b{Yj9ld4Ar}HiV+2*aq`u7QtZ;(r}ZiA%I
zC_bE1$&qJjIt@b>%VJQK|IaF+cRB|;ucxOS-$=ALm+3rAGYFfBwd)Ze>Tvuqi9iLY
z=$KXYG(hIp>P_^0AudfR_m0UN3EMycg(KjsmhQb%OuZ1z%<iMkG?5jLXRTbqaG!X#
zcx#R53wc~P8n9@dGX#Ax^)I}>7dnPXT!6*-3OXJ3S#;p@e^&CTB(9PKNX~>ul-Pz?
z$0^Q#Mj70K{zD8YU$5clOQt>ZG7~XxdQ#_wj{<ttZt5W%Uo!&o`!@l#XdxP>c(+Hj
zN&=J%^Jk}QHJ3(dO7DzuDoYpuVI=%buEbdnD^A_TRtT!;w0^1P+BA+O(Ikx%+?46c
z<OEuMbE9t~1vzl+bM{&AgPG$5+_&$A(JWvf{h^~5uU;<_6HV@8tr8{c$pw9fH`jwi
za3mX|+&0ujzs^pbN|f&A6_fYKawZT<2%=q`X(vFJcRCXx<Nh~UqlDodaN<^b>=CIG
zNpw#Q!2~d076S$Bet{2N#U~6m|C)u)7kog2**oe{6~`7-N1DXf_KezeSO(`4V$H;m
zkj=KX=0#pNLcwpORdaltbUJUOwQYOQcd)euG?Y|C^}KV$A638u9_c#YrB{*xrgc1d
z)*2h&N5KD+Wj6PZNMrz|j!^;nJgLoo!K=d((g@{;$%#@G4&Iuo{j$eiVq-Vc^39IS
zrA8Kss1bRMV?Yyn;e2|9uRkyoQIu98>!wV)@icv{Y@aRIbb3cgXrREl<j-4UE%q>>
z)KJqs)e<)-5g%q^R5)&$>d_s^*?~><Xnr&fksAdchrl-+`#xUmi=(UHcPWwc#uE%Y
z`VmKMF`aRw0@ONob@PPYJ5ZvB)T|Xv{vL9>j7L=CA8Fy3x=MF=1jP1<vFc1A+^;lS
zNMfm0bXJQjy7AC3M39YU;h5Ddj%b269}}5nVis;15$sA>IazXy^u}Cp|85&<n<!=^
zZ4u;m9$F$Ti8!e{VkB5*Z(p{iNr**ftUK<1Eg0AR$3e+MJ4+I1p^IevE$x=a1*kdm
z`N5xaa2q|y8U%amYPR;|u&z))<N68n_p~Y|HjEp`n2{21AAsf=Th98g(E)9EEp0Ec
zEIhb0#!X=j00GaB-z~hsZr8-crG<3A>7X%;!Q4a>8~!hetl(8$A9N3GGFB#xh)n@=
z8?KR{s^o7Z(oMxc%vd=5yxcAPZ+g2II|tDd3!DuSS9)mWHfe!n-LNOLJj<p^;*|p0
z7+uNghb52AQ5b$R8{6I1Of1Jr2XoOiDDj;8xSfBJ^zoi0<vX_k0mJtoo-JjUPxo(D
zBDAi-(mthxUkf5_io!Iy!vmll0nU^+j)mY<^K`ss^bhPNQa*X2+YRE0uEC#x*K*lz
zLCBGIlSe}&5Q0DpbK%~4ta>TR*num@j92b5QvrdD{~&o0`m>C(96@Yh%@$mXh8`5P
z<H=C|glLVRM&)7o<i|u@$~f6zhj^YK*GO7(XVsd%9UiWog`8Wf&!&7{aQgbX69EzJ
zqOYXZA={$ywR}Ik4Y%K<S-W(kg5{mWt}=fxLA~n2hyv%qw5dtMJ~0hO5_foO!{s=K
zXnK{utxAp?Qy+N|VAs`z-HPH$qHEFaHMVI-d(3V*aAF;28Bep|an6L(Ea{$>vg@{)
zzKym*6X27>31y`6`pwT@X4c;v753n8U0xT3hXH6_DkeUHhegJ(i-K>|StoA<P!=&c
zIJ+5d_a$=w=&F7WyMbdZf%Su8c8D!^mac5x`+8|qLzD3NCrn~C6MCYvbCfVSw>;}y
zkhePvZj5z^Sc+Hx#X$KXe7IY#6i9VIz|Vxl^y4O{YZh|D6gqe4y>I)Bd1|t%O6ySa
zl16v+srmcLV4uVD?SsOCX>q3LV&%RuGkqv_HO4q&m$UU9H0q0h(BQYW+SG{@72zYx
z{o7^s9Cqoy`#tCF&KVSrzP!)6-N6RBjuW|3QzQC#svxcVJPrpc=sm*{VjgYbtndX1
zbN`)h`uwqqdH)d?v5KLNe%l6*<{ACa%y`_qdKpw=fIWh101zcZP>AV;`FI0<G_<4-
z-Ax?I$V<L;XCnN_+#0ylB4kKfn#(9H=x^mY$u1BV{C<77^q5ReN}ez~lU~PW-q^kQ
zMI}E}cZNJ{Vg6|Ul5B1A##>^td6q>iy$h3=fynA*|ISucj^qAGmIwLB`1D7$6<eGQ
z>7Cn7v~vKF0nx*$4tP?Mmj`n*pfT+ulle~HE@KARL3aqBIJ=>DPNnvKQEjLE#KrY0
z>$yX$)+*B1$mL{5cb=k^%1ogzoM!mdssWwfAOR%VHay9t1^V%d5DqIfgn}z`b?Xh^
zR{xg@p_(W;vNdMqh4i1)-7{yWREy9TO4+2xS&4eYS-I7SM~MO`>}c#>az^_};skN>
zhuWL6?&>8^Iy2+%bv&(&UKrIwMv&pH*%Orni_8w95K&EW){A!Mf*UKweeuQ2VTai_
z65WPvq^-G0kHr1a*VO|~XabqdQCh=BkjY27#rjcW2T^D`;@Qk&rm>-|xzVHjdvHq8
zY+`~T!obG{8|Jx5^%EpJdM`LX!|Rg1;I6|90x9)<3&knYqFFsWhs(28Q^k1g&Zj-%
z_1M-MwPypyn|$;b$KE?mktY02b?F4?lhpvapT{V;Iot;*H(E!P>Pyv@a6tN<pG4>G
zZvI!J0o$F`Tw@VX3dLucHeMoKpt9l@Wc3;w$Mc6D04d0h!zkTA#Xt$1V;*(}Z?)(e
z+Vm`PIDnwp_$;!5pYFauz2?wr&YkM<SH>dtgLYlYDLj=l2DjW*0_AZ+uJL^{fRer2
zB`>~kR2=P|)smZ$*nAEw;vmh=czVpz;4{H*#=C!Wgfv;M{x5CI7eup7V%C1bXq>yM
zvzYoVbE5z@6Ax0_vs&EU6a(+`>(`Ig?Eg?CYl(7uD~n8F9?0u#6tj|?kJTj!k^fS)
zFhh58t8St6*jChELMKx~bT4YL%!9q#c%s-z)IHCWwf|xKJ|w%;SW~|pGJIA4R0I>P
zG)QSkJR*QpM~_}2n9m$j+hx0REr>-!0K~Z4hNr4Q5Vev5Rx=VWu1>G^=9AIy8YU7R
zHq0HuMvE*`?k2yajkbTS3;%p<zs18^(u+4+<rJ%A<!s7by0)VY0^VI|O~;&0WOENk
zgRi<x6*gB@6pJ}NV2(P`KyjSPolBVCx~t^yOgeR0yW{ZmPw!IRv@Nesnmr_4DsTEG
z;MsK4R{|#3g+;#V30`-R1QOQqvTYz;Wi~o5jx}!FV!Vhf8tN+Qk}Q4%T$^P5+Xi8P
z-14rxHGkJnxA<E0J6B=<dm{IAsd%T47QQ(4iHb&&oCI-fn++8K965!fRI<V}#L$y4
z7PR8^o_Z}qk;p30v#Vxg+N(5TTGN~oUab7dFe^p$r)}kIf<!h2Eca7bMN~|h#J0u6
z^O_cm@fPYES-zdhxF%Y+EAplPx)Ou4eKTRsZ+_-zHs4;<R5T201_#r%Jf!8lb3kI#
zbwLUH7tlG)1_V`jA+{R`{F#88SNeDF2SotkMk`@%Texf+HT}(T#At9&L2OgUGx8cp
z9k+k>byNf;=>2F-^0eVPhz>XWNH{IcZ`K`eV9R>dj}>9Kc@=o9kqG;6_1gYc!Z}8E
zP1K!>eBs^!tW(;(Lx9|@q_d;$)>;UB1WqYA?(i#bb^k3uB+MrKS6`5n_5aNBZ^`q*
zPi+Du;MQ0jD5qX@(B3lCqiMDkVe9>M2Cfcofy=`6dsU+O0%ZeZYRTA0dW1LA{Ta1*
zezzT7Fu)P<RZ-WoCw82*{jWNZz<WbPwz^FY3hZe>WPvPo0)g(3NMEYxH|wG_buU0#
z_TGb>xSpEqvvKR3pVpUW?6_jbmh3Bj!iZ)b%fyz_Ry=)n84h=b#1S1RitTyryorc^
zIeAF@A%rjS3C>M?c>fgsJd9cvXrUKNJ4ah>Te3Y5kmS6gZb5ye<vMj7<~EO`-!~hO
zV`bEe-Qh!t{VSqC?(0mX0wku=qesH<u1x(a?*qJ7noNPc1xOjEgh!W%Zw~f;pO*o2
zjYvU!Ak^M=u{|1ecGPOTYGgSN-*2;`$7`nfCKJSfnYs70nsL`%FXMF0H5Luv?Al3H
z0$Q}cU;MsAQ8<{)wdLRH22AY6K7^>~QY2T2a$k|+X0;Xtt&z%+F_N`N{@Mw4Mc0i(
zNg=Q19f@8m0ou`_Np4S;a#Qx)R>)9ej>6%d$XB_i1bYt`6`=Q^G5S7w8@|O@9QTZ~
z4jcG-QcxgN5i(60K*q1T(P$r^4h`GKzFOLRserZy1k61TF}^f$ou4eEC^ntT0L37|
zNLJ+L2K=qEoHKDLX&qxG&mt&(XM#e59}h(O4ge4nx~!sfv4gndr;q*-X_dngdtFu#
zWeAqsY$(T{X|Zpr8_*E(+mE(@#<vi6dIr~o=6}H7Hm{1wkr7L4DQ8jDiVzwRpCu%#
zwW__jPdn|Uif-&RnGVO0^|KBfvqAGYrn;}hJdr&p0y2QiLl7(+wcA;wJt9$sPInJX
zI}+|c9U++#lzqy<%yEkF9cDrUdnqpuiJLOT^5;+|Ab03E#B#uNCpn*?;I7D#Y>m_>
z9eJj<cWSHdxpW0ay!LVCo)2P{%WI~i0A$g!f#N|+`>U^9)vlk=ONr$mho73XvIRXa
z*|`n$A;U8xzqSz)NjGETfgV?~;k#~v^Jj>DvjP?-JYOg5-9uxq8x1D29$q^Zl6}u_
zG_lQBJJ}`>`0xv-C~#Pv6BPbMMT%`Dvc*#^VEHWx>ZUWXumzPwhX{?TThGl#Df<ba
zPsqjt%rbmHD!BU$yGdl1K&^qMvr@zjvT|nC;S|BasQX01W0yR`MNiZ@6jSH4Ge4QP
zN-B^Hq9kJf?M}K+8+QZ5TgQ&up7OLOiMyrN^SF_96e&{^kt%XHD1j?V^J^t9vVAN~
zcp~7^&$_+J`jNz{)*9MCr>9L0GWlMAXTs}376-I3-f6KHIMGPW@n3|w=-_Nh9KN@;
zl4>e7MPG5Q&TfKBCN&`UVf)}>JKuQ}jLz)U+ewfriqOq5aySt%t?p^oG**1O&T?#q
zzKPZ;Y5g?=AJ3<;ObebN{r&09kzD1icRKq5j!oL}i~Sz#A%f=IB}u{+I_;+q(Jv{>
zbgzR9zAH54lSgy4Wwk+2I!_n#<KHAkjoMFgJ}2r!DcNf$fdBo2sY?9rXdKbnLk;5@
zD_dEb@gss%{-*-y@Wp@p=8Vy*y)Ui7V^3f^yK+zi#jca=38t3qAbhOSKNHz<K8}kt
zHzwC89h>G~EZ^N91aT{@JD3ajf468p?G=omW>YOl*ZQD5U!>goYv2al2YJ!MkMn+o
z(K06@aI5BNN!><A{5OjPoC&;~csQyE`eqoxroA}EOA=jI(k4>DGcRVlYQw4*m&;H+
zwW8Ir!CvEQA3oDPND)1g#;XX;>$1)>Nh+_49NDm?H2tu^qnsk#=iXMZ5{FU;@L_o%
zDQsa~#F$trIaKuiFyBNgR(&U`WP0Z&VBR$`FDn1`sOHLauikLe6h;A#K(6jOy;4*V
z@~R63v+bZV0i(`YHu5PNRJ&s@)V2L}{Z;CGIJS>JOC$$jOF-CV>%{Wp%})cJQaEZ?
z!37a17IFk3Z_i!z3SG#w8O;J$7vp;|uws4DCB3h{NVKlO0a-_4o1IppU!JFe!qfSa
zJE5Iy&*$D^R#_~8m0ycHeVxPjj$?6x=CS2G)7H!hX<>LmC^B}=4O-OZuKjuivlQ;e
z?s}*BcKG{FK$y5a%bK1K@eDB-4Te|0Ub@<}qWVWy1mwxuyzuHH@3$x0+P({9(*F2M
z))H|!<AXf)jFGO^tQHf^$nLZWx*l@>jS@ocOgepONXJvKOpvA7VY?bQ?GZ9%C?96r
zNZbL8zyIqqF%uMe-s{dq+WpV&@}VW<+pVMzsJF5XZGqUDmRavFY{e&lmKhJ87NmdY
zw6sIpucDts>016e;Fks8P#8N=2z9QlE7tyZd(B8QTBn_QPQYSya^ZpoY6-MZ%pwyI
z_J(pCa-i|V&YY?##Syk-+wNukQ@wIxzCCl~T8ViaV?eq8sZuqlmAv228hHJ&Em~3(
z$xj;nY9*kIsjx77cH{Z}>M(eX+o!sItTg4wxg&Jr!sm1Qs(ULc7C$80eX=M8X1!{0
zbK6=oEm$YsCXXDH{z<lQ=ioPi^;_W_WzO``K7mgs4m5TtV4Q1<Z({r^Tp>_!?YzMy
zUk`rQ%CfdafIy}85ztwc_(jFKc069nu!V5vWsn2;+_WCPr(sbY@X#l0rn|DJmjoX=
z8ZLw0u%;XfXqgKh$^~!L_ZMG%`k)~aL7JoD$ITM}+f_-4J72nN2>kQ4K{byS8IJUe
z$kUC}$@gpF+FwHy?=Fk$o(`DE*b||gKSVo1LDzTqq;=8LFX6~|lv!RZchKE9-c)A)
z2>unHp2JSj-i~LWt-xSJ^#FN#XkOWP)3-d%R3*DC61kiD9nLv!XVehex<v)o-!R7C
zydc++4XmJdm2GC7Wy41}DV!2MNI6?bao+Y-?FP9niPOUd!UlWan4cN?R+MlGvgO&4
zF0p|Zs~E5VL;1mW`;g1I;hEMpxh*bVo~1+bWjoeO_PuGn4mQl<&gyx5>%L&bMGHJh
zdWv=9F34Mnyen`x1b#_KR1hUf!79B$8#FBxRTN#YlHN(8$wHpc)v?_*9A5?H@7x}k
z4}r))?|y$3RL7Ty0?#dnQA$mrF-j)oUNKvy7Cmj`zhA0}m5NFr#5bQX`gpwxKPE?z
zbQ6ELW|Ro2{5+EPAd`3+nFnk(ve82cOWhpujLry#)`Al)D6BWE{;3=|+8!Hup7#`$
z9lj8`CcKI$cK)O_UH!08e|0$jIL4bZ#O=@5mzXXzrCeLkmuHj-qK9HmJ~hoY^R91X
z7JAl-z)tN%sZCZT-yFyzYT3?Qd&t9x`LJ9?&k=_+x1TIT>wlEF{RJ#Gl+C}sEaLh;
z_wZrRowUaI%O~C<l5s{!JM=gQ^fIv6j6d>>5^l@3+H8wNd|SYqjJZT|s<Eow0O^?D
z3yE1|IUoYko&C!pW`;%RONVNZa1etKON;`}5iQ-$`sjb11u$di4b;U2mu!9Ifz0QE
zu3tPB`V(_Im7*oWet$$X8Br|QE{1(e%yp(KJdp$`oGdz>63It#-uYE6b|%kx#)84q
ziqojIXZiu-Z0E%prl-}ovpr<(bIZ7?Ch_NObaLl`*7d$Ugrh3owm+|Is~bl&a*;#7
ze{)_L-Q4>6`U*VSdv<!eVMum7TgE<oP6JcDFA%ae;wN``RE@{>#Ets3&L4GZVqqbd
zMsi&TXBt_=ly$<#edlQasaDPQr87A{dG*5CaSu{Q^Hp0s-!a|>-<88X;Ft*b+QtS2
zd}|v{1gOC|>@SP%tetgWnrBn0_FN6qDuXraoxyxT-!?Ph)R!q;noKE;w=Q)rMpP7M
zj+;!<cfb#2ZkpJ8v){e@fQ7|;j@g04{FmG<*-vdGudlsM?3BK>Y4#w)<lU?caQuP9
zjTuRkaT%|%t$`<Lr-UG}Rj;QW+UWy(k&e?2`#*oGd+vyAi-aHubJXc}d{xUkyE!^-
z_qO9qzghh#qKRe)(e86U($L@a?QQxf(R=<``fI^(FjbjtZCWRk*i8BULppg*8YgOO
zeWvvjrM`RKijOfC4N!}Qi>vJg(D9tfv!9HD==U#&v+Q)Eb3;8}SX)_D-;$8{@j5)#
z$!Q_Mw=X?A`}jC8t&;=@EbFxM^75L=UpOf1^y^b7ZD<I7c=ztz{WMV{S%K6!N<k?p
zsjvlDq))QuPMfVwt&{eu%pVI&OCS))g(+ueVM&z~%cEV0P)ok-O|9Y7h<_um?J0N7
z;Z-!t3BM)w?H1L0mh`4!_!jTwtuku#Gk8u-PWN{X%0Ae$3eGcI^lme}m2+nWoCBP7
zHU)_22T))9z<|3_LK(|EarO$eLvEs3Ce0$T-143rF=ByuYax`D{G(X3RE{=%cYmq?
zg{EI$0l|u=T+RQB6{?uk`~A0@#$RX3@bc`~(WmZPvHos-OS=UeL+4vtTMt`YE2^s<
z)WAnus(Om8FxdGyo2lBLvGSs*&AJ+pO|_ju9FbQucTdlRx%HXtaB(@ujsuS#6n3`3
z-Kf-h|1q5vn{zP{J;<|X&o*SU>Eeruikt;BLf3~982LIrx3s9p4*0XMu;g}>RG`By
z%vEPMoSX%M@clWKg5{5bIetz@iy6djhj5whFp{j1Yr_r5j@#ukmF&s0v5EzAlp%uw
zadSd9SaNfc#bL`k?<|Zli6w1%BCOpB@k{cPt0S*};~{Pe&}oop#24SQBmb|pecFkq
zcUIVkg0%DxoYxp~YTYb=Mn-g#H)JGQk$ksLxnxuN_rFg}tZTp`wThOjtE&+&__?}?
zUdEqMyj@d7T|M_D9fwog7*L$gO)>c<J3D*T>({RzWlKNYYu^|zzm#jIdq-r`!N#U#
z{bVVn2a}{Y0=js?X8Ple0lkor&~0VCeU7}whUM?(eK3v1BNKBi#FGYcJKFQ)Ke4cT
z$HmlJv~w5QVt;T1^Qm3e$`O93QO0cxu`+=_H{WZ1sZYEg2+UDY`6CvQ@RO>W#=%>=
zWLJhkqVIsr-+gP=^M2s-JA8EvcI<5d+HSV)3rRC4M|AK@QUf14bpN^bzMhL2uPct6
zgIqZW_3cmPmz}<lrB{eGx(G%1=ql6i*P@DwAtuuM<KyF~S6)cAM(ZjYM}?TP1FzJP
zkj{DF%a<=B$i;sry4`noU)eCql8*eb9iAZlUQ$lZIU_Z7ms=j`p|@`?Qv0ZRb6;Iu
zUBJ}L46zT=IygKW9Ur$u&CHyZXJuv8ZV|orSd7FK9_)ISU+lNkc6i*4bq#E)`<58s
zfPJz+)^{lz)($T!RCwBb&P;L`wz?_K$@lwq!i_Tn_*bu6K#Oy8ioXoyFr<Z(JLVLR
zAKn2j{==3kI7MP@KGH=oE)dZWLR#E=K(X_^iAm$d%*5s~;F6F&@R4c%Ujs>;ld=7$
zo71j3*W2HnT=*RepdIgkbCxjVO9uGP(0}$%qZO?EBf`SIX9$KH8X3I_7w-P|^!vXC
zFU95Lu&<x4jpQgSwXsXt0L~!jPnDIGw5ub9_&aI?^EZhIsVjQ?{8Z2W&D=E#*}hhU
zjQXk2KPT@qRqg)$`*+~X%*=Imc5^2u9nX!ikCzd|mrb_T)-(Q%L^OnGm`x}H(w5Zh
zz9UG!(L8a!j!=BaxB5fX$YA{bL4M)=10BlqcwyvY`iF@XPdn(_cpE=-Bqj-9lOFru
z^7z&`Fvqs5hDPK}H>B>#*TgMQ&%NBJm{kn_cR+0tGUM|n>Sqs2JXoIay8o-&9m+t(
zvdPKOgU2f61da3)<NTJE7Sz$<Awel^`Cm&g7|+(?x{D_$ScA_9u|B{Pq7|!;j)b*4
z0R3C>(aCeX8s1!7ToJ3w%WeOpXjw!?o-PuhIJUL5y&Tc!y+?F^gaM+lT=cF4i&FAr
z=jUUbx}#6cEG;dwedpSC4f7RvhX*sI5T-^(cvlMx){2S>P}hQ6dRm(Q(P=cQ_VZ`|
zq~rZJiHXJ@qspVKxzXK_ncuP*(m#_ozb7pi-UIY4G*BP}5T<>;vs@z^I|3A|qyb;7
zPG5_R(dFp$^t-5(@EP9W>+@ARCi#_-^Q&)Uq)@YKyxi<^?fi5f#l11t-QE3#Xsn3Y
z*B@J3Bjn0DG;hVk#B}=h)<>TP+eSr28A|(<mX`jGnl~#_@q5&(n}0JhGSc~5lXiUx
z(f6-Bqonhv%bep&D=7H6`2CG85{0_7GBGi6pyj+JC50%^i8%`>H_2CNSc?(EJ*=I^
z=l);Ry=7RGT^BY?BT@oNNGTwQ(jXlMh_py|m(&2#IT-YCBS=V@Al+Sq#DJ8DL&v}f
zNO#w}XVCk(-{bxJ{rUEB0K=7guf5i}&UNl<X12GtgDEH|8a+-9cMd1m+1RLGez}D!
z&za&)ZR$R>@DTM=yp@fuzca=ysPWCs_RN58PLsH8Arta(>P!d_U0G3furcBgGeN@F
zbq^?5WdkgXjEq_%iu6o<XDL$O#F?0w?6nIu)zuv(iO$^Q<AeF40V2D87IV|lK`s~=
z7--V<T&AVvyC8EbKtVwvIJ|sR3Sipi=H^&<i+{@<$3f#dr;*Yo)*CfPa(qd*9RL-}
zo}Zr=)78=GDQ9l!&(|-pZ2zDTHOOO9n{Y!VvDm)<gBXkVxZBe<PBu0g-TW){q~fJR
zg<8tV=rpIbRvv2QtNqS+$uAt{A#BqpW3+MmPhoDS_ik%O%bDTW$_uVhqY!XmuNJB}
z`=3KYV%b?)8KS|b$6R04I2(^QyEK5S^e+;<4x?mktSBg0sU065|5#CWF&B7CMOM~a
z5TjeZS<|GRq2XfGjS@)#f#Q~jJlx#eTx~*f?Ck6|ZIM?Pc6N3Is~B>=eEE_r;W4*t
zKQ}i&Z&wH)YLnNfa{Q_z(*rPD{KoY@8$()8zTU3n1C5@EDZu?;b9Q!P^tb@bwVI}8
ze>w>4<kYkPdD)|KC=`lsV`IZ#SzaDcoR!6yH8}*r*NS&g!@;c8>7i%2iaRg>U0lg7
zZFiP;zc_`ygCH$cgsDmNR+T}7Wq?u}$J38-ms^afBA$<qj;irD9dDL4`0o)-pbE3I
z?bZQs)Xi=nScA(}=)G3Q7beQ=`tAe;7dwlax|*AZ1Rm`MUW{Umtg5VRq+h{0^6u`g
zoYBQL<|RBZZ!<3r`mJqkgE$ip0N~J#hU2R;#(=>eOOJy@=`fJ>27u7XPhBSU>@@dp
z-ig2v7IWPx?4U3J4*wWrFG%O>8^}DpqSL3+mh=jx2(;Vm{Cs>$iV_Hm){`^^dHJ8u
z^|ERQEYpG|i`yPvW2265!WmMKs3P|nx8y;$F^1@S)yqxjUSqRVbaq~ey6X!(kPvvF
zp0%~L_NVOZ?EL^)aILpeQc|q;&dw(@FlMP4FWs-89&iPakY`+O-+wS2y?1m{zdsXI
z_4DV?)}NCWp9Tj98NYRP1=IA519Q1l=v*HKQ5V3ob#!=mj6@=NMJ?UxCRD7_<hmX*
z;SdrMPDN(@U^EAVV<q5gpCQHrKz#5GFt)~ogv+&eO1fs14MF8928H#cik*GeC1WoD
zE*^C6UbAadWTbj;Z?8IIZ4+o&z~kP3{ye*6ROwVwO7#xlQcypKPbSPgqr*pptNlPT
zorsHVP=<7z^u-$p{WQ_FIV~&1dkMkb%$S^CG5OjW@-v0CwTFA~H7HkzC$w&gv6|U?
zX{abTvv1xXLmTz{r86}9E-WuDZmx`0EG>c#O*u)udi(b66fG^Ssg%cDcTHUP(!v6R
zy^BjwW`THs?37u(>00`<%Tv)Oj*d&RMkO3vTz0_qZ``;s_w?6wkb>tGq{IL%t;o$?
z3<T!U70r}7_!U3jn<;meI?dr722KzL@s{f6@4r@1R8+Mqe6`fJ=j{?LkN*1X$CElh
zk5q2)@}}z;8Xo4QrKR<WiHK-}>Z@$P3-B4C8u|Dy1;s2cAI-Fu;|m`aKd_dr!TW;8
zmUDOX(X+s6u26lmDa&+zw)o*JwbaI+V5(XG299lQZB3=6r>8G@)h(>7eE#?m{e8M6
z4B*-R`mBb`&d+I|w(sA+7YnhoqmjqQ$I+1XqX1dcpo3YJO4q5=w*~ZzOG|Ys%F14e
zNlC0UJ;#7l)H$`yY#qD}Q4s82E54$ltE($=GIfTSbx*&jue3flH#fQBRmZLl2S)x?
zUtcd3aT49co^MjOs|a{ZjdWT`nQf2ZoL8M0(ac~Hy*Y?|1K>SkAidS!mXTqu8dKBI
z&~R{dT?-x?9bFx-_uV45p8}NLO|6qVW$~(I8f!UaMtF42bGQ+-iN@4*g&bZ7t!}VT
zE(RvJnj(#?Qv#2df2pgs676An60*=QdsXf+>6Z`6S>*r#@RNu7RbQRSJ)=23dwWO9
zYgs%wF|qPpd3m`@do+Xa^OzMt$%A*0dUB6VOisAQ+(g90f+3^j4jK;)+x&lje-8tB
z#>DD24CFJe5M+Pv+VXP14_zLYDk<LWFa4jhvee5iE4#b7ZFKgl^WC~7+4h79C*Qbc
za~Y)QS0IN8IgggVE-Wlm^ahjLYs>RMx4_VICr!emQO14XYj<}yhq;o0!H9R3M&{{f
z8UNihka&*zd|I!uv6X0r0wmxH>9R~d<2QnahhOQl=oLA*3gL#7$0$?a58;am`^MLq
zi^7(^a+rP)Ofj8u!8zp*-MAg{*wxYq>YE&_!S?zZfaxPJtzF>8J2f9Ze83QEWi73+
zsTp8}XDpy@XkJ}iRe9>@IEJQrU}7?%#h0{HJKL2M%sVd8(9rNaCMG7^qU4slxjAYM
zq;`Hqt%Ak9qlM+=`hHy=)1s;=^oIPzX7l`(!2-L9rl#9?N2?8oyNAaFSBB4wlabC8
zh#D$aX<`9P$&>L6aD11sO6R&5@mKX5F|Nl*koIJ+<_0QQSXg*@dF`@;vW~SVC+Fa0
z4?Qfav~*Jy72ny}2?A<hYAX1lvhp_tK$LoSmWGaIPL4rxjH9j>Ldv|zIlLWVx#|dS
zT6x9JMq7@jhc^Y+-sU6T4B>po5?{TnrvJ<;n{MFa*38ZMvv$*)B;HS$2D=d)J_S1U
z5s$VjokrYgAX?z^M-wi4G9cH1fI3FbZ#6jbWCR0sU<eP$f$MqiZ}|d8J@i@`^?c~;
z>|D@8pPQFw^kZP)tP#jZW$fv7c6}LkON)#7&P?MYBfi(TxVRS8#tx5;#74u}@7(b;
z$akzZE}TtnI<k6VVBkBxy)f`GS5;j}>AINMo+K(?A5CBS6q$SbtI{fk8(@V|w7j(~
zYkRIm1qB6FSHiSFiSQDrGsl{sO@@bkgPK)VRZTSlaA6d49^FRzNH>Ld$cyTdOp>W8
zAT7HcVhi9~cbT(lA8}~bLW}Uc<puXtR96?};v!ZBY|#}t%Z$k}^QG)*dt$1=Go3TH
zP^5R=!rg4{(iTUdSn>7+SuYtDe4>sUCMP4?udO?)a-B;)O|SIbnsaP0T?@q2F6ybG
z;ImcUlmp~BIoe(EFRrNAVc%F(lNJ}>pL|YCxeBbwP3El*e0vJukwz7RqLI;<8Gt}J
z=ALojeYi<oHhE%hD*2=wH*PSOQiYGLoci!=m6et0fgFngjY7bs7}-aBC{)d6fD_B%
zkUF;sSpz(8(gz6*@j6~{qAD&ejcKUVrmOLFT%6nJ$5`3gNWtHv^?-B^H9sfLt~2H%
zA|hHpI`N=n62G(tgo6nEdYbwixL%0k^XLPLb<cNly(N#fUkjY@D4sbp$~x9<8E$*1
zHkDE;2+WJB+N6bd_*4?_<3Qx5n_e{$1c<m$-DuZ>6Gl+nm*;G%t*y-tK@S!f&HJ7n
z%(JSgs7TpBApbNsH#6?8PWY3%sXr<(Yig_l8Dk%8Tmg)ka_2oQnAM3ouN6bU?}zM#
zVF?Kdc~X*+vT^C@f#teN_f|&A=KCtuTlV}K#)ycCNfJfK+UK|W0pLf+=>PcfgSJ%&
z6Mu&mD_=IZwu(A?dSVs>4ICU6Lce|cW>Zm70a&<Q&)YjgyauJetfr%Pj!wE$gtIq)
zYH0-i0z{~)7B@pnL7|NVGmnW02~6k>pR|;9BMb>Xf#MSfO^uHq=lHk;aj{WH_;C8f
zLxXX8HJ+zJ@slsUeXliBgsY32{UKcfk(Y^+Szd1|!b>&NMj1f1wYHTj&>lp(_5KC$
z#&w)^ukNrX>>9pI4m9g5JlfJqk4Fg37`qR$r0@qQEJaM8i6(SZmj#_1ns$%iJV<>e
z(?#DflmluN<Hi7A15h>bcYXWD*U{18V=^$**eDzP;6aO=zn>r9m%O~P)3;6F%t^qj
zf^9+dSEcyc*!k(xr-ZVWw_%5ehjYMp9>i&jNZk<=TgxjdTBDE=5^0)Zb#wjY)A{Y2
zBtLixRY}Q5I^#A}#i{iPh$~qj4f88*9^(M@I#|WdZr&fj<CzmXMK*@YHvz>oZ{Wud
z*r9M&SC>j(S63Y%!N2Q)tZ@feT*?UnXj=|2R$nuRcSEw-k6?6%*foY^u{3YIC4uaJ
za@pJia@&rh*`}yaJGK^+)rJQTI@ws)CAt^Jhs+PX{Fq|B@hL4|*J;H1J_C8cm)=8i
zmJYgyFZ@v2lz9B&F-73;Ro5osNxJ6!H3Ghm3^<Lk2P2W;IG4WMI!4ucF3FCLjUC0o
zV6ZW1mRK<0SdeEN0U-=720~`9PkS*4-b_v|E`CE0J8!0)cm{zd)p)N>ej6P%%nRI1
zO-&8ffAYjVeQJ&CM<PK_PtR1vl`uf3ZX_OnN^UU7bYWqE{fr_!ylXbHrfTCKKw!*Z
zU;ZIC0*SCE1WB;Qot?J%{Ig1uDMRn@*RNlls>T|6=C^nO6AB)&Wm3Pbo8QsV-F<uy
zXn|5fLPD>lSt!AUpLuzS0x&x(sHr*d*f>4oVMCiq)6^#s7HYI<6U6)^KPK7g+|@<7
zC!m;%f}S_@cx4c%6SOb!zbk;(39#PnCcX%L0FP3QQA?4x-h4_VOKBW4!jymcck?le
zi?Xr4mNIVK4eyq?(3}s4)N?#ERB>k{<&yh^5O#r|eA9^N{;3&8F_-#p^IOihd3jG9
zEG(uqjmSVN_TO85o0XL%Jky`*Gmxb=#eMVU{!f71D(opk!^72%U5UJMrB@Waz4!XU
zr}H~@cfA}_H$Q*+BtI_M!VT!+fG!VUJ&qsJjh;Mt0*XEzKsTH}Uu^jB!E)v6OVSqQ
zRSMvV%HXaO+Gb{~T0a6r@^lMopY^6m$aRAq9+PYCH66XZ8M0RG(XoAL5?dc@YHBje
z4%T$!IWz33>z6`yETZ$sjKfA_JdIGbY?1o%GoKlYf4Hj1Tc<I!ZjS_V_d`|h@q&j%
zqoC#2(60qqMGgg<Vnc7Z)Zsbas=3XEe&Xr5vlb$!t)mmzy5eOP_xiPafT7`4FfR>3
zO=pw9ot8k$jIz3bp#)qt#)WjG7cYKQRs|g5OW@h*iSAS;CbRp4Y6PRrc1(7#gPidl
ziQFMKDghdV`n5%lg1&hvdv=)T(x5Mh${!!oGvB_wxGvhw@JR4BH}`?3c~5wEvY^#r
zu1+4`1i*3)r&hsV30mq0%|Hn#B16t`0M_k1QfgBLrlWVN*rLVGxg8>MTdy#G`{*Q-
zcuRQQui*-ilQX?)jO8fHv#H_;!a19dZmxTy*t#iZKRUFh!7@pn5ip27yITKdLJ3q{
z^6e##cyv^8Io8FXkkEq%Gw|W~U5q;MdY)5MG&S#DW9#YZ>3j=_agw9rO;Z{GdSIYl
z(gLh%%o$PQI@PEGYMRr_3t6t@<mAXZckT?{@~Nw>^}^9~eLM(4@t+uRNlD2$`B71;
zPrrWsk`T3&Sgl4Y1I{PQKY9SPkIeRE6RS3iYGYPzuh{`=$zQ*$Y59!zQ%+A$3!s!b
z`FUTyh<gIc>do@`YU73KioCofV#lGvli63~jC=~bP4ex=B4ZJimWN9$@a1lq(c7CR
z&?Tc#X$>KW7HZ#B6UZOfMy(CT()EB+rhIuJJ2Pmg(4?*s6x;itPQg?Rpq(N0%nA<r
zf=@l#TPWoM0szO^`Nek^6q}i5KGQGF9tzE)nxBV(0x8wGy&p)AGEH)|G;*NkB=QHv
zPBE3@)2EA*`a>Ym9yztXe)DFh8RDl9%gN90+885__u8&E%~$c$2Bsc1H1w0|pY;tj
z1T}&lOkyrMn8?xdbxKM~t##*XjWpl66n-F#u(f!ReFV|*jsMoI5AWWE0GKsr9EenX
z+ONId+w3&w#tji$cR)$MvuLem6b$r~i(F{&Cw&~7GuQKV+v0>wKukb(m<T(1%UIGf
zK_i`Tw*h8E6Wcy#P94;hxKKg9{WGW)n(%_#>P^YhH8*15E7fDbwc3K3ngW4TlL?YJ
zsbS;j@bLZ<D=VuuEe#o)o$@_!PB5q-8}&h5FYu!V%zaZ4DD_G$yZ|vg0%F*a;%*Xo
z($pHL%ID2QEtS;NV)p%~6EZSbkV6m=fC6i`d3d^GY+V5L?FAk$TWr&XDY(kqXTMSM
zo7V5wLTGw{9I{1BOuQ5_TWLw31Ej!fGBPJsK=aI=otvv=rZn*eWlA1^>@{Z>mqwoA
z=}#RAm()V5h|8d(%<#Zu)4DoAS85l$0H|9GsG$@E3a+~NO(?hY;+aMPl^?W-aVY_k
zm`C~KR;twN8yziR=|ED{W!y&xsLVwdFJ25XF*Xjcw6&c(6S9-dj0H8{2~gvvatjL^
zc})eE$Ew!KK?0z2cX$6f32_EM;9oMX3-IY+0Zdi=hqSTUz#}gs-xsI)oRkz4hD$Fq
zQ&N02dA5Xwg!u6CIedlyXG#I0ULRWlX9h^Hr67@;mHBSjF1-u@fh`>jN+)kS8yn_3
znL7IV$tL>xK5ih<U{nv+d<-jQe%|4889a;BL18WkxsheK=ZB(6-X+%{ZkHxXz{zYo
zE-{-)4!%(KaY@a753@89SF+7C*OOln`7wk!afpU0C85%JY?rnBA-WUjI%l4B6H)c1
z`~dY50P3l21f8yoRW*Skb_mqPa&eiNtnMGnfL3&8d7^HQ928iMkFD7IM@Rh}fLc3f
zKg!M|?epDm^ZWc(+xAgjU0q$DE)QRlqdLzPC@q{+-V2C}`*?7$;)(YF!COUNR;vz_
zIbXrtPh9D>^#O?@g(WuI3j$gHgdvqq?SfB$$a4hPFu#V1%55P0`!tvWUUNEvM0x^=
zZq$3I$jo);ET*Hs^)-r6tKdimMG0?69yrdxb0L-u%h{D72)F}L!XFP2gJ32+u4Iq(
z9h1+4a5p8mlR0IJokNVRSh4W#cX|1&gk~`03>fTeMP*V#SHl?S%Bcwn+JGT!f?k#m
zfDtSiJ_MP17bq6Tmgx4FB$}|8vPIBJ%gWZwip`tr*ix!M5tJn6I(Zyu<OWtLCeS;6
zYmgda&6UH!(b1<XduHzLrBavz`qL+$`>_`_TwGk_<><137M>5v(?~FENyZXwU0rn}
za6MN{Db(4~@hAm2$068<H?zLB_bFao(hVRYC0I4EI@Dw_y%4aqKHXvlBBWNjxc}3m
z@z%E}<{vouM0_|w<N>!J0kZ2~tc>LZGY&y<&Bmq+3iag|e4v2T0+2|$UI`W+tU>u<
zGBGg`SkN{5b!o?I{?{*KZ7r=Wu9<)6Jr0MOPCZ==4GnviN6K!0WoQaMJIw-O*+b-@
zg$Qth2|%HZ=DSn07#55{mH-vb5LP=e3@Npr_ivb_H7fZvH%E)W5cV{DAfDLT*-fFH
z?5GO?LmCG|3-AZj!mN}E@ecqyZ$88F-~51Q-4m<8vdqrT0~>&>f>?%POQu-nGEw^z
z!%2WAJW^3<S=v$W>g$tp0~vS>eKP)9zmmEhCkW*Ye-7t|dRrZ?$%ZTpSgj~L1PM=`
z^UVmn`%)~W60z<}{WXT}_C}zYzk;_rG~pDIk0T=`RJ?h}WH&q5xr%_4g8=w^X#MbE
zyJo!4$;rv-M4h)>B^Z6#Oo{K{`v+mN0zl=M2di7`%51BX4Mz(A8Ht_S`a$M*MOE9+
zdwY8qRb7c1TY=Skzj^?0qIhbBidW~!lg)N}F1pK?11=XQq6#ppqQRZQ=-$820-PSp
zg#luuq^@qeG1I0;K}IHB27<(FEYeC|RRWl%iTn0#e+1AE(&VZvQJo`Yc2yuy*BpVA
zSaXM^k3YgrxLN9#0EDlYVqX{{TFhEaP)!qm0SkJ#WnnEE?DTS^!%UW{ToCDX<??$G
z;T^-H0QYABG@GfYsh#8^(7sJ$D||}I${zr<e+0EdBT#}|T_<XHUi!!c2L_&W0j|Mn
z1f<R)P!W86iu?`~)mq^FcSO<a2LWP$_H=!8paTWl+S>2m`xyoLKnWn$dh+C}vL#E*
z)LK>P)DuvCz3ms(AyouoxX3jI736O~34$X<G5`s%1=(^8Q2N!<iTElYn74svJ5JLx
zGczSdlQC`sevCj^%6=an_EDCW<%nyIR0Kfi*X=+!)#g;X%ZM6C{#8_v&WGVS)|O?5
z?c&!+#c^-=D9Cdr-0cd#Etm?W2;ATE?+$~y=>b<C1Btm3SaOQ-sYl7HSFg?hJIDv?
zirL7<P9Su~0JEPNgP>f9>vgub-yhmt87r7I0`z87nnfe1d<$p-P0p=xiHTl7JO<za
z7Q55TfTm@cUy>HE+35j%`C}xPoSa<X+GK;CmD^SgjfS+_F3|ldtuag9WPNLUK;B4;
z2MbnDfke;nl$9vO+)`~l3nvQddzbG!MLn4`B^gdbGTpox&K~aV5ED?qGiu72Vt_4Y
z)hL9tY{5vN?XK+i3(sEC*D>rXF24s8tF2{X64*4f)YJFvTW!O;cc^7xy5nEgTCJl4
z187$V2j3c?LXQF%n`*oL3KZzxqJYTJ($UeqkjloaiU3W6Srl#W=y>D}vX3@nfhWMg
zp`SnX4@{Q#j;sp7W7H?QxwZfw-#j>D`4AT$?}1B8Qx6!`Qj5|m9><N859`3Lnbkn4
zDRLbxUs$S~`KL8Xv^kZ)m|*;(HPh^dDQXM8l1#my4u68Wh$2pw`y~g<nVX=s!7OpJ
z32n&4jwI`WX*9mD&2cJl_sNqVa^o(0DYBWAnSFce-LendDlm0005T?Fuw(-km=^}_
z$H+lYa41k=3NN%es{vH{3>f_yq;7)BPK1$>ajpG{3PENc-2jmVCbSETstj|Sc73D;
zb!hyhS&RZB0Ojx-0-C|Rys$Tr`^|8`hgyhfCX~>uASjyJv}Yyb>v~U_Sx|^%mih;Q
zRzxAGg3gShR)^V0Tsib_B}+`g0WIzYSoC}j^u+xD-Lb4!pvq|~0{<;zR%AW`q58|o
z6QFw>W(J=gWCB~i(b3ZrYiECjS%FJ@G!LetLKH}|KXjP@Sl?l0X4cHa4Fbd`P+!>^
zRI+vmA-Owukk0HB7<$;JC?zH)HiV&3Rb!C~)coM-kbw|NB3M)Sh`6(y?N&L*I|3j6
z^#>>>6f@k6d5aOM6|yA|F{2`&!$^lS=#_E#ywg-EU+_}h0;#K?&3=31>gwWhnm4wh
z4tW1Z;6Q1>R;MxIdgd-**)<o4sf47oJmOMm8-S9S)OoKJ7S~4%0jf;Q+SA($yLEj8
zq)=fa=zc)soc^4DgQ=s=ARrrERw-*6KD~Biw|>|-$;YEkoKS}*Oexib@xNqnjxYGo
z`jAyWO>he)U?B>EDP1^wKK<0}Pv@wh&0rBDE~2`c%RB6N$?VK8Y-p*$YcSuytQXXb
zQlrVu&G)Wey$VX|s;19Cx^43!1Idkbad~-MZgeYl4#VR`okyRg7l?x-!h*Og`|vX;
zESf4YYdt9?-5P3Y6@z^Df&D;54_$iPQ<{0fxQIe1i&?8d>SymgOeVp!_Bf!D2U>we
z!Kto}j{Qgky5{?=`x~(6_+tz-AXY&@WxRu##0|ew5MqfSzP1wiO#CvtW-sQ67XxY&
z4B#NIIQfFBvvUKG3D%_gw{H-E=dr4hx;*&!__EhNyr_zwTBEFRC{Voy7KrLXoVw*c
zn5)@8!5f-R$aHPp{so={!nQa!&f<u%J8;fdQKuR3^7-gGEW5YsNtfE=2gUe3{}B+|
z6(Cdj>i`5N6}1|!@vyT~QtCV*rQ-|m{^YT@GB%`dWaL;-T>`lK4Ss(9#aqTjLyiS+
z^?@-om`+)$Pu;`a9`t0eUi6q~y!qG3!IMbuDl2!J>C6I3P%r6BtLMMJf56;}0Lq<&
z&pPV8U1s3!tE1JrqA!h&r!_vUsJ$aO$U3Sy+;79n(~}%SrJVuBxVi?5jMhAV{(O6P
z*D#MWu{A0ybdLySsT%6d3=v)@%X%V)uTNx*ThA?UIwq*djX?)Y(=vVcdjCF7QrC`3
zEW)E7g}MepI&%%I>2Oc>VI?xat;BFNfX;XM<yG+5$jI3b75?-x=dsGO;pmS5;i5oD
zvV!QRqH`4$6+Nv2D;LeS(y#S_!OidhkBVI=V$4UZW`{6qN{5Am)}j3dZyY+(dP6_6
znHsUddLiiH_&pRU94)BG1t3cu<UiA*A*p9&-uW4rt6disE~{^7I4J~4%bS(A6D%#m
zGi3ZToSdBl`+#_AR>9l?RxByzW@jfFK^53_93-ctWKqGH1s)|R1_&Kki3T~2vzc^`
zvg0Z$6@J99T1A@WyTb}~#La6^$NFPd2ojE9OVgsB*>LY>@KIim3=h{Y#)ylkdJM~}
zo><k`+1@su_o^FcFy#jsTuwz@{S;H?TS;3DV;BHf1K9^ESpkV%{m{}*)AkRQOi*g*
z2+ncPIET`i)2&}evEOC+hhiHitfczEd#ougZ*i=fndh|KX@F<)6oTQi9T(ZOswI1U
zF2nN<CJuLW_wKNYmGSyETHzQh2o{8*0D6D1smDsd-fOZ&7}qHYS83PfA(_1X{BG1s
zPwa3AB%!l+8JdkmaC`&`7>=*ER}cc)$|lt5G+aDAGdVfw3W}qNx2dT|?Lg>rO6pS3
z(1>jUp!y!H>`wwk*%7Fhfe|pBnU;s4Ab)_iyoo=0jCt{u`uCQ<D1@iw$YO<TJW)xV
z1d~Ups7N>o2Vl-34D2p;FZGKUE1uDSjU^BN>}BZbgrBvPM_o`P`c7rp-31?m&Rd16
zU@nOFnw{y)#`KINu-+QSjPc_<HRf`0LsGHp@paR0V<lc{V-Dj97isqA{eHEYuY{EX
zr!BeF<@S1vxD3{(!e8tfnM-}YGBeXwZt|PdYMB<LVRfK@v9YRcT&4XNd|g~KO5;`h
zMp9`KverwA7a?rxH&7F>qpG&zEX-lyt#fj4Mr!64nAg#KKQ2z*flEQ>;42;>1<5hg
zK@8P0bdWH81bH_}{*LfFns{jz<yBE)7Ac9Z`<ULHx2)(#w|!3FQy~oS8hAmnE;%3S
z1Kj43)cVC@R*&37#$<|aeD{Y2O$^|9p}6P#Ux%@$S-W=;3O$$3SQA$#R(>AMOh92i
ziN^FpRX>i?Cu~2&A1a5RjblbIDQT%n0lA;NBopbdQye#JD1$jFyyMq1a@$xKWU3{N
zP~;VT8KHjE<a5k+0$OLl>~M-@A)Q3GpaW20=<K~Y8B*yNO3Q=hVEqhx_lH}!mceI2
zKW>>{Ur(F$#Hw4-J#zm@h9K~g@&r!;g`qsx$bTcYM_0b4QQW|w1{-x@5$+JK@AdXs
z%gOn2s``~NoUA+JTe=@GbFOr0EHgxk-12oJvs(ZKW-h5xuAZ8quxC<qMo`@SV=eIK
z15Mw>bN7ksyv6v4WV5=<E$!a=Aa&r~*qC?V0P97~KMu$dpajQ<kFh6v_@jib@<Vtb
zfn;tGV3e0X(~@Ja%{HB?V%<3bsSZ)$DZ)UU){9$!wPM=Wy;~4Q2rh^S4l6@pGQ5fF
zgHHH`Wz^}wOsW#ta0jnm^idkKRD&1c9BGCkn7`*u_3_^$F#oGQe%gO++DCYudpY2m
zfEZ+@vN#d5y+d0RznVr|u(etmu@RLlO7qc|q-=Ujxa1{xAcxILfy9&q(FXVDDKfD4
zmBCmgE@w^#ZUj*0(#*#F?y0lPh+Ax6GlPfny0SPQ;pwAwlhBqO8PzLmvZRh+q~O*z
zl=wxsWxRzW1jlVNe&Djyc9?@H@b`=im%5-!=GiZ?2R^dr$J>G)3$$n9H43y>;7{s@
zf~bls`AkrRxlVXT>m3{sF3Ahvc1meJH++(C=W$&LV1z&L_v|FvyNQgU=%mLA+1O(-
zzaGguarux!r*N~w1ikJ+G*J7@aQs9o%qTFIExEKWXYTipV6QH96twB3{+1g`SDTCj
zbT6TYz?EcO`k(pgwe|2Z_2AayQa*wpf@9{B8EjESl@jhkFnOhUKLE9S$*PxV5vtZt
z1e{Fh3Wt#)7l{^BDxo`&;AY$Lk5yJ17-cmdM4C~2<O$FDgbP(>#I(E(gy*^GV_5E!
z5}oF{*V6<mUZ|C1+q3u51jho90E)+s+$`rkWsow%Jyl+(CC6bgCn}EmZU=F>$JhZZ
z_QLvh^U-z0#_WrvaYB0tQ&Guf@VpzQMf1uP-|4>xUa2Zn8j9q5FuAgB=of3)_%k86
z^dryR3*%ze%Eda(QV6$k#@VYZq;A-g!#jQ^lBSVVKaZB^bvq_PvEOUo#i7Jw7E}Z-
zK}`(m?Q}9Odo2ORFE3jTNcZljl>9v{f$S$PDSPtPD*Q$=b8?ybgB@~UF9r{A3KBj7
zMc+q-pi7#sZOuu+s`MjmggS6;g|ywp{eDq8_Ta(i+fYnofEI1X_wFXek~({-B`26D
zK`SuKn=K@h!cem?i8YXZ<#^hJ;yzn?Wj2U*B(LF^5g#JhuAR>+$tSw4$?XROuKoW+
zbAMqVFuk@tDcJO|(**P*+v$eS8e!07@l)J&F4Zw2`i4+%hIIo(a!v+Htv!HJ-Fti}
zI_DK1kuu&M_*xx2^&38(<=7r|XqQW1B&8JU*SrM-1OZZzG-7EI9%dV-TkEo_lpn9_
zy??bcZ~nT@6m@c!mb1j4Z0^}RRa8T=#-}0Nc`gp+^O*#{8N@&*n#;-Q7eCfr@}boV
zd^=6QMbCNfz+d%@Eo28C%iAufX+m2qdu8i{VZ^bDQH!BL6mqmF7>P|gm^qVg=T0Rt
zWz8zxR)ifXKa7@mGu_Gu*AURj!>2{lyAHmTC=`M)KP{_qhAu^Z`EY*gxRQTfjud5y
zwa$to(nc>?nc=E4rmic<TYo4{K@pa13|)asciWm5C^8JhC@u4~X&0#P_Iza_JPma)
zp;GlgNeZ`$YoHDv^8ob#(;gW&5XMJ)hE;P&%vIlyPA4^%6rGL&YoHcVK#R~pb=}4N
zhoT$D7EdCXV9o~a;pVrxk#%LjY!7E07j`_m@+=s2Nc-@th67)W5O!vJ`|f!+OIAtV
z^=`gZgBS5)z>vmxkzQJnzc`pI!>;}<egNwh_tFGB8@d(piVE%0x{W-!nf0cP_pXfX
zRt*nI9wnTt;nb}C=sXHK_J0zkb*~#FH*?^g3bgMC*BCKHhCjO8&ekl2+%dnExQ4UZ
zvOPLM9zdlPvqT#0NHBR(8n4^3`pKR>Mm5%|KaW>S4c8C&m#E@8c};n*{@U>Z1$rKS
zRS~f%4$M2+m#j>1qAKJ$`y4Bt%LVDv*y@M3&QAlsX+jGwPQHnrG!nfmH%HUM`HoO)
zL(<?NWDPeMXO%EFBs*jb+Go+Y`v9(opCqEn9_V_WZ$OxFi><S$k~a7M5{H!u9xW1R
z5g*5|8>#@qGmU^R>40;vI}bx0?A9GQT}!KQ^~sGx4kYESh|9A2{1hyd!^)q)q7j31
z&>}?vSz-@chnudm9ec%WY_D<9B?>KWaA&v$s+#~ot$`8GL{R*9S+dSnr$Ryr+RxJ^
zTf9pB?o^4+Z}6{R@eW%sOP0ceD=jj%xPw-QZL1XHe8iJP^=*Q4w(n@mN`?*KqwteL
z__!FphJK`nv?N&?X+A#qHbC-aVm{ne`RqEZ+k`)IYK$8B;_njfMwl#0(T6*6z1@Y7
zB~n5Ngod6i?n?5DUsmw#YgPb}iQBz!x0qtz;HBcn9zfOMG+{mnc1q4^ne7T!d|NIN
zwxf*J0Ovg}$xG+H!;mD~ynZwzMa|TO57X~ehwway=~MeY+)aUrv#6RgnfKzbM$VQJ
zAU5B!C(6&c!#rCzRPoRkh9;8r`Bk4?qe&^CBcSATOCondY)_A{S_jaqQ>e0uu?ujq
zuMeA|)ZiKL6;<jpwx=o=i^;Tdj&Zw(DtI7r$vtz01Tb7v0$rRsfu0r5#Xlen2F%o~
z8@d<pP5^RDVty@J;(2mU8(ak9ZM)b2{|p<OZ@p?BdIOiWMO%EWH2}{?ENg02UG>eT
z4cVEr7oG|<53dTm8;T%J#OwOMm+bJd18C@i*nnM_I~j62?xl)#e#VqZ?Iw@za)p`+
z7=I??jF4%?Kc*jeF2)U+!pSmuz>xLBm-aF7u~Vz$AJ?R5Q-I%wH(yIylV}gV**e^i
z%+dm!?j!B1BY%#U^ir?Oz%#h7(It>up@_Tz`cuh9oNn`d{{#Y6eA$?Tt0(oc{W2n}
z4R<xnRT;D9d*nZ{{D~DUEo#o|OR+6ChGp-TJf@r+(xROF2!4KlAub}UG`;kM8IeNO
z?ctIkT8hY@0%-^I8)1h(w1($`vnzO9aR9}K$A%2x@0qkM9YEzQUpEK0f@M3!w3$Cu
zZv?U2y5lmPn@otWD=(YSjnA)Gs1u*QqDfc^X$q5Ytw8&1g(Hk%XcJ9^JF;XINf+My
z6UYW>knBkIQf)%N_oDb~fzBksHjRu+=+^>_uaE9WZ&~!-0`CPW#iR%u@#Z5&bJ?tz
zy8;HuLd(~K={J1dqpM{TQPlaQ9qrmTiI3V6sH;~gta@USGyaU6jYiEM6TP&<Px~R1
z->-`E5t!mke(R^{;D)CPGUk)-bT|;NUKL!G2l<P)E#<-kWVacG;OZ81DeS9p6@M)R
zi|v?S)}<gRj}hnNdYMyK-+;FyH%i`tM<ts|k%s7y>E%%vM2+0-UTA@#5j@~JVmNeG
zn1%6FLAAm<D496}gm66zzV8|v82)FhTI!s|uTgETZ7?*=g+|54q%Dk5QGlm!2_oyJ
zSKSXT7C%d<5MoY>SPgu!cd~E&0gvgygQn$Gjc3=+uOMV&gRk}?v+2T~yCaho%QNZN
z0^!n+ZdvRwVj6m4xHC+jPX)qLBw?A74j2D_!)k@@MG~|PZX_V%8Cxklcg^;Bah1g_
zzcZ<Ch9<Bs`8{HDzAW;#j<rs6)J7Xz10l}$Cuil@(>}f&=Bd|ep+*(=&Z)v4vWXu{
z%(sTnM%h|<!IyC)Q{HCZUdEFp2q5Ud{~_qiO=0!=?|cY}df{af^>X@bq%vw1BMC)b
z=x<$Gm$}^^5iWm?g~XIgj`RH(!~A^8BO<{--#^CZa0_ArTw2vWVtM3`^)P<~AOGR=
z*y#z4^o}AT;U!teVYqwImZs9>T~f|Sp8okItZ%tl?FtyOSQ@`Z@B0(<F-Vh+<8Qao
zz71C;*ic^g3lYOn5$Nd<{+hN|Bi<&Q!GX(#YlkzBhahA)B3q|JU4KX6+>YVipb3o_
z6C87VmC$=B$jMyIy9oj5x+ERdgWE`M%rbl2nSqjF-1=ZbJGXCzpX3M)gkOQ5SuNl8
z*TQ!jwqKxfDK-1sr{5XoOOYMoR$!q3f0*Q#k+DbVBfKEO0FI7iig(0YBu2ZMESb2+
zB>U_TTq~m<f8seBh14tqQ;k0tV5=n+fApJ{oB?i$^1aXHnn}n4lM$gxxd7rNUXY*Z
zLFYs|{4+dQ@J%*1_>^BftI60LWy1Z7kh;&}?RjeuYj<zCEVEvAIA1quS=lWylC7^Y
zjN;_`ctGJ;H+>hku8t_4)l?;PRsI6C&<{NrmE_I;lZJ%)$t?|qWfOkimA8H>MHv5X
z8^6f>>I=#ZNfwV>$awG^eQWYfVTM!5ljK&fPZ2+?Q7Y_%Db9lJCEFaFr$;o*=ZPmg
zTz*;gl?M$ar+DHRQ;BgRO5fBf;Fr_?>#i{wxsYF!(*rN6RIHf6x5IAW-+ljCzdbcp
z0_IBGh)X74-F^+cozoT(nAA$2^!MuFst^p*_F{6S5aNqqzwH|ga{wGviF(SCJ7c5O
zApN*NQ}N||9sCW<vxypwDTA=>!L1O-3#KphP~xT}P8Wm*DUX>4vYyD#wCaX>7ow{J
zTdmmryChx3Bw>B#;A3fG-I&&5-3qca2mi`|5y&1UgH}3a*(_%}0Y^dqBWY&m$86MT
z1+?U{h>Z@@y53LLhvA5{f{VHakv8=kk}#`@Pu&Mwi!pAz=W#|wmCfs>zje*FiIXaV
z#^_4DKa>ga_5_B=XmJuD%8G94+R%TC7H@gNgYF?hr9;uPa4o_7il1)vg0Ie{8{j1m
zYp?F}zTZ=F$MsGA<tz|n&iI|i-=0nAsu9U#cE}AVn&%yIW0(e>14YM&5FxBom=JxK
z{v0p@W^ZP3IN+nmDw|sl516n0YZ}oN)n_<t)C@+vSJN2tdKfl_<(Lp+g2p+iMB|G-
z%eX2f(PB+j)#+a&?(!;fR<@K}@OazW2^~9uo17Q**x|*Ibm<Zn2{#{cn%ALs2a+{{
z6Rkw89KV+HerXj!vux5}F4K@q{ww3cxGe5I|N1QmW$~4=gHa3B8PO{qZ(E+J-rvJB
zZw|lHM^uYu##Y+cNmnIzfVV)qoE3fR$p$K$<-X0Lt!QlTr$>xLyOgip6HmfL$yhO0
z+h|xeCjQ3_qm8C;Ok0+ZL`FYHO{aBE11^pudllhh=Fuu71?!{vRss{xP%>wlt_2?_
z^fH1%{%btx_=R$TwETbz1C{2v9mI_!+f)XYL!<$8H?JQ3QvjZyK95rQP;SmjyqbPK
z;*d|`ZTSSQ&k|4-aNVd^ka7zztNN>28&cXml5fiK%<v0awvi^!9ZUpSZxTx<CsM?K
z{1P)SN?7=DBw6jx)vP}_v@b7gdqp`?;CTz}xN8a#M%#oA<;dOZlQP}5I;3{A`&-w<
zu^&LoLa6W07yb~ii=cc(KlGfto+jlPCY!qFdp6Ve{`J<l&INP8rm?`$hX}C5i{o;z
zO1b@a%Grc$Zg5HB{Pjz~VAVhPtxJ;Yti4)%Bc#KDOB(X|t}KMUtaCK#w?C-Wu}vs3
z6552r6-J*lCms}sO08)i3LqG!*0N^9jZk0rV?vOVL|Gn-)9f<{Y~75#gP(*O%rp@G
zXPEL?g=HaksCt!1H}>zNEE7;yRH#QjTqoHtM(+;F6H?p7;+$PH4n4qKr-WsU6W+vI
zB@BWcOrDoPfR6{rkV!lH_B6mv5{DAFdB7SBm(K|oRqq%m(q3f{SmSglcGpQo>T`yQ
zQ60vol7`%7t~!GHhs;A2;KVq3sFEls`R|v1<t2{EU0g1qv?LPF2$V$0^^-5;*&NAq
zTd~Nw&#yY`rc<|$JVjXEbqUU8-kl2<TmY*&R+6~h(xJ@wz|CI$$IUu8Ja}3TKH5<;
zsfe$(xB6Lpz)$I*PSKXRFixC?pKrSu<nDGW>jOjg-Y*{2uR}S+;&cNq7*+B169gm9
z<z<Y0+6(LrMSNiHnRJib@)>fOWb_r5v^@&Z`&)OXZlVL=^C5D?E}8h!w211z<^&Jo
z0Uh5PlF;=J^qSQxKCrZ%_lzk_dAQJ<si>G0Xw>H|S}Pm3POzq`pHD-got4IN8E4(~
znzz%}B%c!GhxeB{NQ^mzJeUw_*V`*4VM!yD|B4pvIT|>#$pNOtQCeS09HCXw_m-&@
zfyBTJi;~YmxJh5K%r7(a`}NT2uTu&6o=^|F`u1E!xpg^yqmRlWE*h>N6bD6o=t70m
zTaH)pn=2b+%6|vY{w6F0ypd~Im93sO=Y1r(4PLljs5epZrJLyAsiiS<dK)Bm<KnQP
zGlT<#X&#67-dwf>%&g){!rzgpUI<D^ctZumrzx^=T%K_EQ)`WNS>~AyLipgd*m=cs
z<qdnZs(Ym$HBLGI-)8~V@s3%u>=es8O`v7>r5jrT#AblEMEq$T`*wMu-c*o}=-qoL
zBe-aHyW{lsadJN2jbnMgFKUaEbK;YiO~n6>n@z}ISb5!aPP~wC5YJS_QR7)tarK}m
z$_nUYJca*@Ihub82-b|45p?f=xzryw$rJyfec(FiumYC)GG+w7zM<A%`^d|O7QaDF
zEQzxem!Hef*zOTnfWkx!;g<OM&c9P7&v603KM<W9c?<qszF}j#2fF2gA4DU5O8Acj
z&=>w~3@-}^_~C7EvycUNJiLT<=v;2Y?2n^*!du|sYF^L{UulC=yt^`d@!89o-kQXj
zf6t~$*#>~qhx-HO9t=LaN2Txjzm{O55H<RbHrhd7s?(h6?7;lLb4lV02wXEi|C`U`
z<vGBkcmK15(7lmd)SJ!~Rn$eGpcY?)q`O%Bn?K{Y)i6RSA>4?!D8=qvD8+V~o6D4B
z(gyAeXM|cY6b^Q~N2ici<01HQPsQ8VN{$HD8Lzc{HLSA8_1QDf|5xF$RxV3N@e%|P
zr?IpTBjGYov^Nf=K1^YGfrzE5TsQ1Lz08tMP0fE}e#<SrbE4&5`x%uukhiG*u?BA!
z{M+J``gB9ZFskHFy&bA|mph0L6;sgog``Y<MCz4)B||WW9SP>Q|CJ(N3|Z{}ZBZie
z-$g%+`~~bQ_e;EyiT;9z>2tJC%;!I>7vmdQ1YoW`VdxchmM!9xA+)$`^IypmGY?v!
zz{{8rZm!^Co_JdSH#I^wz#F_IVOng-^Il9%w%q^eIX9@Et47_7#b^E}8~)F^fOz=^
z75LLFz?NW(&yDE}5S0H-I5pI=+xBVDyDJ^;(u1=;-3}?}Q`~D(rxxGD*E#0wf`UKb
z|7)NZwT$sxwF2PDVe86UKB*zD#IP*^rTWhwqtyr}iI*Yc-dDa`{HI@35sz;br%dM>
z%R$UrR}eT;;YS(QN@GT>Ewu>GrD|Z!kXt?lppGLwYif{+eSL$M^!ThnMNDnrt_mr+
z=x`|Bk86<^_^ySL-l7PVyQ}~=v17X2{zj9@hTsab8?(iCDs53cirw(=553m}*i@xv
zWG{q<i{MR!i!|(=oKP8LZ_?@*80ge!j~@o~M$l+7xJn;bKm6&xC3`T)_+Was8L6Qm
z<5kD&ESonFRnwQtGAf{ekArFc#T|IA$Q>k2UY)kwumJ0tF00ec<;jnJUw_eK57_<v
z>-EfO;7&rPyLwA~J%Vv=<jxQuW)~cfCl4;Q@^*3aiZms5LtN=^?yK0d^r;9<F)u>m
z41ZoG=gM_`>(o?q*d`I{@3b==zml2bqW@SHd!${x!WAF6lEaA3-M!`MYSKJA^~$No
z4Yv0Vu)EVXXzwVrv}9MBHHM*01uITol71t^>_I)!*M{yjYmEh0g`rP_o*v;wDV^`I
z$Lv@IUqQYyU7eR*$#3u&+g%*RuOBYf&uchOm4~6#)tsmN?$uy#!9)^uYyEWV=Wfp~
zWZXb&Y|ZSyC!F~|Ju37UU+o2Vs()vUJp=Xv^f}n|>5&vTqe{*BY&Fy!7qiEl(q%v(
zbG3c5SORv?&5IZhau{(-HXejDn$@n#V~)_zqZ9cV!BVv<-|nQz?o;$7Lv&}WE0;Bw
zZ#ZkkIX7FkNp5FYIIoK?ffRE%j{h^=omzF)H~zVY*^9H}3RA)3wr7lzC$^4hBhe_#
zfZs)<Ou`jnPzAM(hue!aMl4Mac6`YPM2*XBrnYj4Rbg1Gm{ZakfI|uoM;Bi&X6NQr
zI(Q(hr(|-Aatci#6xdrSe(fY|lc<su1s{TRxU{GgKTC@&;5?d~+Ep;a9<Xb#NjSMz
zArZS;!h2MxtVxI2YCesbpcv9ftUtliXmwD5OFwr9sp_%k@H7LX^Jk7WB4GvC4f@F#
z+j%}cx=tENg4qHm!<gS~M~-vsOy;8x){coT;7+-UIz{<>UruumyBB}qp|RH&u+bzO
zHcM%(b=cfeK(6VD>AL2hT9h`VD)QcB#at~!coN*uOgp`z2hEjxq)Lm~h(l{1rzL`Y
zReV3{YO{YAVcRrBGP^c7>fk=Ap0E|W%g`9QH;UPDII_4w3iAykL}2b2!fvNYXxi)4
zGzmf1(~yRHPQB8sUo*PPgE>k3$7P=s#OHV$Dn7^Rg-Il7Br#^QVq$7Ob|BF|OCPSA
zJ_%IXVL&2u#4@F21D_W}<&|-b1?#07J~?+xyH5&qKKx%ywPl{cDk;C1ijSOrT@2<C
z$J#eUc$6*MzS^Ya(fGp5YCfaG$<v+5&Rq>X1Z^_bMc@psz*tt~?2x|9<KxIh_FT%m
z!l~(G#@uYRO8&ytrvEyv+~*#=l}uf;#|<7Zw5e>xiNgOCPPelvn{sO1deM_$7o2bw
z4>K4D2Tv~i2$i!UH&MFwGa6l(F?#yq|JtVszH50|xLty@13O8m4on2%YmIS%@aV~^
zoT~h97tZ#6?h+d9PKcnZV>3pBR{n&JIJG+8&E7R#%1kG@e80&wMBvHK-7eaMt`yYx
zVi0m7Z%kWHH`u75vG!?<FV?np@5V&ORadkh2yWKr1nQ}+q<VG!M2qQG83(-$o9tZ7
zac<-v<CS}yUXgW7J6-x}Xyb<`7iL6o!-jY7)wioXxxS(noN2G0nR&)`qK!!Fx$^k)
zT$25cm2UTJLnKWbJ^-*>D?I(+H<XAtD{fOODtUSl>(&W)YwtZu{nWDQ*s5qb%|;ep
zPQ+Nwn!0p*W%+5h9Jx8~Brnn$?PeMUDtYdFny}J+J27)}9dqx;7wf}*7$7z7_(wt)
zX6>%-J;RUMCMI9&#P@daZc+jtzb5l>_VIaOU-qG_kP_>@;;+DJ__HDReeqF=W0y+>
zi?m%`Ob(A%s^9eRrwLEu4u|y1*s!@tIN2|rT^qPV#oWV~W1`paNisOe%hj>^owt9i
zi>$+5@AK?R+J8rIpJ(x*2_nx(Be6iRD2K1;H0N-LP-ZIG*dS1|C7?CdnI2k~9uqpR
zQMu(SVJhQM8o2O*ngHVwu&lnP9;?F(vpUH63J<}pn>D^I36~kydRX<mN3$jrkTLP1
zu6d0WhtZ2PdBi#zxsyUy=4WiU8aW=G8{y%4A+mFEX!L~hDSwyRPtox@KabS4o_NMd
zghS?pZJhVuCSjhEFZaLWsyOWT;=k|0(`TRs3+wM(lo}0ioqQ5_oG41Ct>Kvb!{RV7
zKw~F*u`*BDOX+`S)f5kq#=7RS=m+Yz#I(v*__ZX8j;Sd@5+-u|oKx5O%C2U)4=?5~
z)-Nt2KUY5c*EFL64^m%tHrXF>)2nM2r9R#J^u|Vv1(C~NROsvzTbR#MI~c9|0E!9F
zkS73s(MRI8ey2mhW+qK)sf>B9Zx0WqmeIbw&$4sr?nH+NDYg8b*V9hYtunB}rbYOp
z<!rc=jNLM$ZMi@C=WgKchO}ba5kNf3oJk{@`r7)#Z?7~PF}B7T8`XgBQGj&TXYcLo
zIbeMh8YtbTxh0n;r7PDju+qk_T~x$pYNm`i7H(0QiMO`><%d>Xd4n74MxQlTuFBP{
zd>^M4`w11!SUnT1Ko!rTMKxq#UX`wf!%+<k8%n#sYDHZ$DmyCeO0AGXx_T7{L8|<E
zdK$mCLysa}S*|@yt<uRXuT4m5R~y9K=cbr}5hEdZ==rm3`4|5c(b$Ghl<D4k9~O~X
z&Ow!u-Zu>R!|*^EgM;%KUMD)BFczD$Dr8mTM(Mm(`i-vSe&)cO|N5_2647Fj)refu
zJXe>k2ESHOL6}ag3;hDfbxDgBDm{L_|C`AazI8r737UrdbkeE;S;rr%!9DgKd5d~i
z_l`cpF*taad!4T}$fdM>GT_kqq|{{eWZL>9gu!{zEYM-+-C`zXG8Rq++`0DLx-(a{
zsy{B~E+!%kkmSOn>B;$W;)>mJxw4xf=h(ttm3e>Vgf^osWu+>&C@<qlU|+P?l&nEh
zKyURB3kNr5XgFSbg3i4uM~jP^$cbDj^}*QuQ}f)OhN1YmZ^_TGz9B@sc0c*4#ldNz
zpX$!cs{>EFo|2;&B%@y3Wy}QxKz}Q*HW^RU_yu{Q69dK6cBdK+U2pedft_BE-A8Y}
z0I8>Krju?qQD0l@XZ9ctI|_4+%RYK*S&NaLT<2*f^AGQOsEl<=9P>}A{l!6uT#sCj
zJQ{K_iz9PSHP64m8J32(w#b|(n{#*!y53+{ezLWA1KE`~G;iyK=@$Gl;Uv<}XD5FV
z=23Z8-MJZvl*;4MZR%fC+?CBe9HbTgjF{kD@}Rqf?Wg$yOsCKBX7_4&eUsmiwM^bb
zQTbs_e6U4Q+HTqL#;tSm5Y|h2bx}Un$eYc|mSFAavH6aUmYkXCNz&pKq!HuXcsk1)
z|9p!VOKr$`ZH>ZJfswu6i_GNgPxWS(7$34^>fg;bv!`$KKftrZj+h6jkS^=Kb2RGz
ze%oiq#AwF29?qn<Q2OflU#4}N-G|N`8N3*LIdJ9YZdu-$@kBL(UQ9<$`(*#8m02(x
z3*{kkS}2poFg0hnlaP`i`><-P1*ks3>jL)Pj>`V7FI$_uj?L2$0^nj(o?2tX4N4>1
z2eoq{C75H+FQ5kq<yJ_^DqyIJ#L-yF6%EY1X(9<e;d*g7uwBB@{n*P5)AtbeM^Ntr
z)1PzCF7D-+>IE*dSdAC>IeVUU_6_OvnLYBt_P{>f*c(p~eg`?P7c72oK$F{4c-rV^
zvBO0!X6A1OIK8!Jkmu2>&{eD4*b(ZjX(Vw{x;W-coabRWV%pgh#pC*c8@V)Q#a&lT
zyHtkKFJSgL?u5RQ>_-o#cO<8Lu<#73t99NfU#yj3@ec&(`E_xKF6}%_o@CkU7u?QU
zbH2GbS>R{x*|+#HPfBNAM0H^u2H;~#yC@@n&+sx4=Aylji}g!xfjdd@=Ty^7wI8z?
zN8rghpyIHfhbY)Ehhok&Qgt?~sKnBzkP6{Y?}}B;lYpJoMeQ9sq_@ue+V%D~NMcT`
zYvJ5pXC_yeSV>&U<xdsv_0&Sd^xKfvG(DS$z}%o%m*4&ijf~4gM05&Oecnd$qN44x
zT%MoX&UhLP<^Xf`$cQfQvc>tVpdiJa8f2IrosOAigLmm#UY=R+d8mtDW|^EzxVV<<
zQlplds@HS}xvDo>)8QC-J~jei2po2Wq_wlu(Nk|^lgq%|;;Z}Xv1&m<&vuT}u%y$R
zh_H3GZt5p^GnKt}?qTI(lWNfE=3<i`A~E3)>Rhbv@}AFG+3V{+?L-ErI|Y00<X^^i
zAjJ75aH|-9r{G*a%a+UJcfhwAS#fV-sh1IE*R0l<U5{^f&SGA!3YXkj*dj4qGIn$j
zqQ}5>o8FE#?y$h>a{RP+<iLK!;*onVX7C{-ZC_`P<g~`TN6{r>+L?MM3%};Gb-8H&
z`On!y8qUFAWnoQ~pmtD;Qo^!VaV^YkGu51fS7oh?btZ}q5zn)+%r1>vy-*6uj@n%8
z;u;%bzSi5My_eH?0%yR+q#Xg_<gAoVgU`K^$pJ{&9ZV;1{_yVTH|O~P{)ih(0dS%d
z{y*68v(u9ceset6?=gnR561755Vm3r7s9RvP4bnlJKQ8h)VGA9G2Mg5eS~*O2fdf9
zk}L_)r+f;)r0pC`;Bi@)J+7rZU%}Uv=Q`3}#+I`%9x(&#sOh=?7PC*V#0=;E2OA`7
zRtbg&Ymg_ob$V4fh54tIeu19It6NyNqM#z2Y?-y*kwNbD*l#^YYUM5I#a+V87Q}~p
zorMLFm!w0P?zb$1tjitKtpeX9HG$05$<&!B|3-jCu$DHa`Y;6Doy*=ud5!gwMemFK
zivW7iB0uIi<`V0f)h6;_k9+U{y0`B0)%wH$8Flo%#!F8B#Bk?bXWvx$hjZ|KpbVf8
zLufTJ^3Cd0>cmtB_r~-@F<pT(JOKNGs{E8ZPx)3Rg$<@Glf33t2iIgCJ;CnZ$H4I$
z@~x%DJU=H-r!cSo)84noC3(MpTU$T3n)+=uEstxqY%32PJcY`dm1~)YDIOCwN=pPR
z0~AEEmbE->vw6tV%*q6mJfb3CBPHjlGDJl*!=yk!Lr_8Fxv}m0-Rt-K^E`h%&+GZ)
zx&Pt?cz-_E^|=o3>wR5vJC;$14P}G9^Wx%s=?SynKG%QEfKN|V9^lsWyyI}oTFzqw
z(Zaj^d=jeGt4jSiGZkAA%sBh?Kv%C{+HnW?6Wu+!vmWBU%vSvsC_m~GPH;>3d!Kr>
z9csJRA5ROPE^AJEl<)&|<9n<4KBI8+p>Tpv$+a<Bunp^8{|4@m`Ta{p4q|3C?iiX6
z`I5f#Z(!+Yi>VejBTP{hT&LgIA@L9qB%bQfd@ty4z;E`)$>Cw4l>31>vK<qp%;AC|
zCW7ZOwfKYlHKiC-2fmD|2;yb|ps6re6iR*IP>XEr{wtFK;efRW$s<|+z@Xt$(5cGb
zxb@C6YeCuaB2aj6bQD>b_6U2N&I$kusT9IjYkqsZc)dKK?14kg>Phwr-K1hA?R10g
zwm6c6hoDHZNJca6d+%p!aqRMEpb!EA4FT>DSx6?^UBW%m9`UZnRskCIkBIv7L~=M=
zlKQrNi~hbbwa}*lcDV8OEg6E9AM_;*ri251etm$B4^)b4T)>fK^j|53|Ax_LcY0O#
zznaY_gPOu0dxk`X5t8+1W!v)81q$vG`@6{?E-Tn1GGVy4>Tkri|5Hb}=nrYr;O!<&
z^ntN)lKMB7P2I4&|M^^wY7Ow0J(n%r6&NKyURe-F8TP@W{*5cIjnuw*@+b--XgEY3
z?c#6AR~m|LEc<YMtevQglvB#Gvh*#jTJ@VAwdtlCYl`%_4P<p~h!V{WBFT%N$@q4X
z!olr}V^?=J`<RftkdO9>w%2^3H@v>z0So~ij{{gLZeA#H!s&;_ae#dJiR-;fN{mr{
zB@<6NPZLhlGLx4E#PeLa!{?^@KeId!<cdWs7e+D*H7VK)TJ9F-kiSdFLy}f;Kwzc+
zzLw>artMGrK`@KG+%mE#)D=039Xg{EkaaDu-rK@vAhDt+A_zy75biR!pG+n%I=|01
z2C5?&SS6BF7l!>*zh383@trj@h`9?eNh}!Go!iF!DbpPX4vPvZi}<Tx*-_m|$8kvh
zBrg^&7%kt9&~@OBE8mHg#pL&h6k!czFk;WhpoK&dv$gUYk2vte9FBSRf6mnIDWSqJ
zWrz5=I2Y8k%oA7GNu=YI>Sl3a@`Qdvm$z;VeQijl0!7q2F&{8Ok#p(wNQjx=Fvl)$
zvQcfq1y$z~E-9-{46ad>mmS0lHKt7JR9pi7LWjD}{(=KECYOBXeFFb;tI?*|59ROv
z8wPw4U@4eW8uq<M+U`K&!jHUA4Vi3{T*us4d(-l;K4(*Fq`knK0?^~N)6e}J_$D2h
zfTt$Qk<J8WoqNn0kcpYzno=l-1o0O=VkmfDgznio*qTypu@?m&Tdpe%$ty|()6}>8
zY`7q5<1UUr$Es0IV#W%NJ0*xhu!*hbr)r!<>lKFrt;onQ>=zFW?S^>!9XNJb%z}OH
zqe;oqlHszC`rf9nMPsg__SZ2E5!m(dS6~vqmmdK&|HXznH488q)~I(j9pXsw0{Af{
zaPWp^w}f94yp^Tz3x&?gq#$Jtw}Jxtr5>nTa|}a?t*`4@sNG|$$Jzb730^>}=V(9&
zgMij$o}S|*x~mkV(7ld=d-T@Wg)c217eXc@86E0k{Z7?g;wxe@NZVbU6h??s)*4m7
z%G+j6#Xtw^WWidE*k-tNQ=c%1TpbM5Pc8Znz)(T6`nh<JSGq}vJ*un&_M}J&V^{oC
zcBu0rOxZ>Dvox+jB`z^iR6xw|Ou@6!_-cT%NyeqIoi!`KEBsuj5l{N1#P7qIg(sPC
z)ji;q>ZQMV9bZEQZSFid9P*Y%=DVcX(s}MFRBCx(RG3zM<$cmS_9yVM<j+j-SHuW*
zN4p6{7EZXtK3A7af|IbpsDz^GMQ*+_9oe^r`$`{eP2maEVn@3*W9VcS{p}?0V~4?i
zDy{!RZ)DWt77LuSAJNGY(jp*TQ9fV^I4n8{-34gJ{VjZZRgOgI3GZKTu&sFu*PE0K
zVEoxfWh4y+^zq15A@?ddvd-OPBnuS07>WJ#p&^H42oV7{8oA1cR5ZwT>V571h0E;&
z%Si0{&fS(|2Z|T7ors<k|Jnny0|*M#gY+u3Kz!S?8(a+(&^N>x`4zebwN%{3<uCrC
z_~LZ>S!FUlWq=oKG8%b%Z%+etG-4c$CyT2{c_q{8mtyN6jr<e?ma|-c2quP`r3%Dw
z4*U~>blb%<&D~FV4z@l7DbTjE0g>DJJ30Pk)A+*7!B6BRk2MUjE14A$lxvW57vS&`
z240iI_4pgw-^Jpn)2m5%&9@1G`&e;>+ae1?<vV-|;KjT|dzm?Y+HzTNA+ODTKR5)w
zmms}EjnpqtNwxCMr3`OVkDZ-<K((UQFTkjL?{X?)cL4Q}4?rTT-c_E4Ez8_rd0jG@
zFP}`)#W?Q2Z}Nw*nF4Py#pl>pb<(pZ_k_Uq5^C2wS^zuG-Qg3W7i9m%7rb0vn7W>^
zHN_ti8e&Fq)8EfJP@BLuWcyQ)k!4X<s3pUN5F_0bF}_;&0e*1%zCmhTNrEOme<c3o
ztBFc=js3iJ+llh5TzBo^B`>;%>-FCKb)yk0&Z;>vgga#CK3Utoyc2l98vd(W_QJ)R
z-0df#>2D+<(I6=74V?3{E!jDfiP`S1SMFZz2o(YjAowYNF{&_fx!4ho=7}}5$C{ka
zL?0RSO?8M7h*hCF>%iD*bqxk^b{`_hzc^vh-$?f}_3N1h!zuh=3bY&U2<TJPE*Plr
zvtku~J4$*7V+;#;vNJ4REmPHp4bzO(zkZTnHO$1YfOQAcU~f4sxlaUdQ+dU<29~K6
zqch;TP}$R&Gu4BY2POR1LN3^^Sv&n%_rl?&b48-twXaXXK%@SZiN7t^r%S}}_`sKE
z3)myP+<iVF5+_x&rl)?P*{2K8?4IgZgvUGjHy`VwnRniaa%m>48Y5(5NxUHv@m#Cs
ztsjz<enu>E42$*6%}lKuJ+#6bi5<-AiU^I~q|qzp6ZeJ)Ku;nD(%roKd7i+jS({-s
zMgjS3`)mU==Gj2;*ecm-%p)d2a}+=*f*Pq$t<x?awg)fq5#~;efq_}z@gs+WtybZ)
z4@I2QwPflwt+{tJDAO{$cHcs?0!p(qg1zC$f(T1zH2$PT`BS8T73uW##*WTAgqasA
z>g>~*Uu&ei{>=)T7E8LIEU<8M@)(Pp-iY%Dkeut2K{9~*j6U2(1vVeC>Wm4v?g=)9
zM-ikAZ{dTd{&B(+63lHt`RFiBJ-{g)(PWDA?DC?b38UGtVJ&@wfzPlzmu@lR*<RV+
zZ!Ar3Wc24<N+fA(#N(fJt=zUpU?S>B)`cdUVF%^Tk-cr*n1+fr-_T+kN%H^`Q*gBJ
z5t-_FK!2o(fX1#jQw9FH_o$v5jf23d5pjD@g8;1(V|0|?sn<N6u9$`0f^i*b%OaO(
zNL0NyKMUwHxcbc2x_;c+b@TLqWL&(=^|$)`zsR&gc*`(8r(dYo9)(VgvLi^{{^61g
zC{6L4mpc?I;pB$KpDd^?kMeAqx__?m4SZdUQF?1X>IAW7bW*MB3g*-MwiDHL53pf@
zeU3HdPyws`_bI<R&MpbxHSK_Qz)yF7X_F`oIgDB}Uvqv>`mt~8_JfDx1qA6{jg?-&
zMynYn##b+3+g}0>S+%6k&X=XzBckfy+aSyV%XOFS%b(4F?>e3@f}Jnuy+1Zd7!ail
zzSu{L3hYZQjbfyIJpfYhHp3qB;4LBe9BFkxOWowU5RubDbK@+n6J!F2Xr*Fe_UhMR
z=+}8KqMVcK>}zv@X5Us$S{3f-*=&&81mot>mh;|FohJ=%o~X`k)0GY$&>oJVgK6Q%
z`clgxqxcix%MWoHMjX7EH<G^btYpP1rp-7g8q~XgQ^!53RX$*auqVH80i(qKEWtq4
zWAoeKV2oVcT@z*|ed-sz$zV@X#}txop}V~Ly@JTr!GbuRr*l=V@&zJ=rpd25`*=L7
zqU5IXs9|>3Ma${iwOlAn^VO|d4fgVDw?sg7y$*8)fFu1Q@ExY|8BclE=`cBmN&I@4
zX8qhUHh86N!$TW8ax|)_gOzEq&*Ogk`2nF0mw+!v!N3<2G$@PJN6@2vj3s`JG#pDg
z>uHSZA68TA1(vFn5jx=gbtOzylEr_VE2|Z`_-!=4wd`Z<NN;tEoaSAE2Etf;QwfCl
zbjGy`%$s0YF+?xsQDs$H*OSde^+uSiEBXE_!u<MI^=?_M?{x+k0U%1(AqpT0d7It}
zI{qQbow_wqpz+^>Rh=~{toFYap(K-ev}F^KKaFLwH6E=VhuVOur1N4#5CV+2woioi
zLo0(jP8e^?>k5D297$$$tAch%isS}a=pxNnctO-lF3<X(5&9RNv}2+9I<NRep7u>}
zhy2i8_w}9I--d7}o0jut@-96zDe^D5i4JFjU-Fl8YcTQz)r<YTH`+?_jj&|F4eZe@
z*60Qe;1?|+*c>S>pe1*5ovA(x`4xo!_qDe3q{zS4B8Y=Kg17{eSRk1mYyW+SwV5!s
z{`AEC_SmmyBxHQ^@{V^cMmDGJ>*jS0pLM4l0f@*)+-pWe<L3Dt;-%>}>u|=|6CIq{
zUv0_t+3=QvWC1dsb*%yNnsYJx9#znjUI!%E)_-{PQ4x@2Y5Nvn(a)2FO@_fV@&Hm{
z4hj+6Q7`#btO|pbnQ>+$WwXJ<Z-ypI%M+G-RPFACkpnk0H|#IO+q0gfP5$8c^^6ef
zHq*U*z8vI}PU&s{V&g0tpLpF8)2q$c^JgB{97uvs^hpr;j}ZAxp9B$~Xh&RUllmy|
zSwTN`3z%SUu=mNZ$!GX*j3!`ylyELKM)EF5DjiHT-JD!)@(17E<^glR%`W5ov(U!o
zR*7oFD|uz%v)7!2oO{%$X*79Fn!kOF{>D<-EOg0CPpn=q_v>|Z_66;8)GyK501htY
z&sDypkrrK7gxYE&ELi)1Fq8JQh(o4_L<^j*Oc`;1Gn)LC_&Y8NVE2>FSNn3<XGeil
zJJTK&l7S6eu8)Ad{R<}{fP?)TCmjNC5};ul5L8e*)tga)D*ArvW+oi?b?F@LCNjsx
zcj}>y8hD(||G)lMG*Ixyjx5>LJETgPwI}bnpR0RtEpDyo==60ZuhtxL4wo^m!-z0(
ztDU{qdlnU=_!wcDpsTNZLod1RZ>3O+m!3DQk&`j^Z4w$|GzaKSo~(A<b5*z4xc8)y
zejAs={X$R)jZZY^K~10#MjA;FTDKFlw!yge$dYUPJ)~sXdBwdT1avfDP5@MMA9GP5
z@`P<tjVm{qWO#7$l5xDVuhsmI;x2A<sP2a-h_-9z@YR_cXiSM~1|Dd(SDf-}RQDcF
z=Rs&iwrl;q%ifY6glSTA>)A<!#m35N5}eFW93?j3#4qMS_NWIA<6q{T5Zy>7;b6+m
z2VRwWa#hcd=Q;xa%$!P}UTZEVJ+Pv#Qu^<RM1I!b5G}QaW7GD!HJ?kqP2G(r#U7L)
z;-~kaG8Ti;XVDU?SH5N`y5EPY3rE_=FCKe8QdE^x?UGe)b8dHedjAWU<LFFLJO=kj
z3GBpmYkD5UmFjg5rwyiu4m_E%BcsRwatdSLGUAwTd@2exAy0UGCK&}i1{#ij{^0qe
z`MhSq)-}T1ph|_}@4dlfw%7OnLW}fihk9^T{oLBP$DU9IfO8neKMP08yv9=K?pJB1
zDU+iERfIJTVBjMTiMLQ$6%9@<X_=gy*w|v`2c(L1inPvPiXozr2+vroG)!CD{N=#b
zD71G;*E5mqsVpjAD<Acq#ro%_au0t>aX5E?MV*Y(UCLPO&aAOsJIUN1Lz}`sXUJVN
zsNuJ^XQ;RLhWZ!4s|zIe3*MI0N~gn=^IU8wE0jSfaU0t3CO&Zsti4my-3HxfU{G}l
z;3fb9Xvd|5>r$ggQKJB9Jsyr^vV~?4N2(Xnq#lEp(d0V-TFQ2fa>HX2Ki-FeXj7H3
zn{x3&J+Gd0!!jBRkjhTq+7ykgR%Kq1Lkk*dKP^wYWYK{UfL8Srpt*j89lw|(bPRh#
zUS|-~q#s+l%%GFhJfQyy5S^zn+I6sW!5P9yG}X`X3smzPedjy-mVSchA$YKak{6oi
z6+_v=mG0tGk(diKaj(fz+M4w7l*#k0ZDTd!E!cC(yc!qRgOfSW{DPw+1ZR7NoL&3;
zAiC#HU!>SA7UL#@xc-Qtnb{g`;efu0YJ2uWz+h(wOGp((i4_kfMgkHUciTsU=_RgP
zuU3RbLA4ic4jIa8#AoxRk-#95Ob}POcm!Q7uHl~Dl(yzz2Jxk-$L5BU{Ifza>KkLJ
z1$ly9!;HnGm7x7s%nUBC$$7Q45_gXMX1rwPoX&)6OJ)h;CN0R+GTUym5by!il{GPZ
z`a5h>s>^sujm^=diSd9H?KjHX;_GDp^UQUoW)Oes>gi8~+Wa);J@wr2lE`@d&j0UT
zolNa1;D<saXuF2f98zcq?_`1D;5qyq^<6QZ90~~y4uznKJTRK5a>*5OBPl)@bsIOp
zp9N_S@J10#u$}3)Mc~P09&#S)<mpMg4aeaCm3?kI6&uo5=(55rr+13<!OZQTEW9jX
z_Yc<2dFN837QI)2*7Sruf)>e4yAA_i=-#)n1Na>um&uBwrYS_GU{H~+9oVT#2Y9+Z
ziBm+kr0g?=Lp}lAp}(8)PeO?wK;-{x>1~giRp*=q@NW9{DHja1;23~UR0IebD(6xf
z+FNlGcl$SyPqetJ?q{xlxy5|rWt-HWA7^-`o={%rVnak!cRj^<`P$evh9*nmcgD!&
z*oxpDF4E8@aOvjpY>{;MVdXc8AIb-E$3B7@BWcN+uky9vCen`vm$^WpV&En&-yg1<
zj%W;HXhNcgoNQ!~rdt)G`O5gcyR9F(5r1H?Vz<iO;R72C!afI@3NLp9EsG*?w|FqF
zsf3yOqK!*)9S@roXO>*^tc^V)4lAXkSG5Bnb-i%HDV&AM*k_WU9v6^et*5~7R`>CW
zkjdaOXYT4cqaojp>M3n%Ap0YcV4NB|{f=*5m*whm%B&ITfu-Qiuqy_lAq)o256x?X
zj=nTDqP{iC-zKL($JJT0G-PYb#K??h{;oI<)Kr1K`taz=s#LVHS20$s#Q6tTj5$Ti
z&KeyZ-9wrrGf(#>%eqb)Ri)**j?e0QNihpvj4A&DBD@e|LBy@f$;3pB#WhBC<pbyc
z@<%>dPOi3&e7x1jvHWq$D@#NuFhtnhhCj`A2cCz(XsCRkYO+#QBxq8v!FLyUqPj1*
zhD0~@U$7$=_Pfa>_gk>H?@U?5SrSQ=H(1J%aAG&HB=e3C%`L;G41~K(NKof@Cm{=m
zBKfOngMUgsXAw1?;Gsc!Havb<LU^7XW+9)#DBcVl&~}S_$2yXZS?Evr+0t<4X-*L4
zJT35zJJ)IK9n$D%nGl#gV-?S8<_XhtZ3t7Ysy$8MRW8p(nBKo{b+;3LxMV{e?O=BH
zL_cX$NA)hg4L51RFT~{hHgp;ZhhXE?XN`czq&s)iO%~1ShOAx@d1rKJZsEZW6^x4@
zR}|x9_(XS^#x9S=s(gb{?WAUr3Ng6DDEfN2nV%{u-1AOlYbqu7l89h_>;X`=4HXD6
zd*+ZHB9E#9+U<0zE}H#>w<Z5|IXBu*#Yq2E(vfO4y@+Co;w1_Pwf?AV_yHZP)~WUp
zH|pZK<Z{X6IIPbIi){Sd7!cYCXJPAyHGf2lt$M298FiJ_Iuy^c+D+_FNoN$dJtI)V
z?~L$ibucd3j+6elfPnvMZsJbm@6CZP4?&{%0lwpJ{pV;A=!`{2J~Kf5qQ=9zy?^zs
z2QBxu2P$DQes*qU5Ygz=7S$(3euwG634%*%Q!5~Zm<G8Y$U|;#UdOQj5tv-a))XqT
z=y?oTVSeA$jhn=#o>y#5SyXFilZr-VYT*Ux>|z|&&ivS1dBW~5<jyl~LGJyEqxwcm
zXQhf~bS>9^;-27GrRW59gxJx4r^nv3K=6ui+&g!&xu3}}O`+{^W0BO4-IK%78QALN
z#q;@En{%R9E8XaK^^w-PaTg!5Z2FE%v?w()S0micLHOD<L}e^y<a44ugiB+4p?($l
zT2oU|{XCSY%XYD_O&})r3je*w19FA+^qBjT)TNA`dXq7qJ{W>IQO2}1FgT{4nYvt+
zDD3v-4UDdy1bL(fvA^pXOaE~yHmO%^W{&(rS!I}whIm)L3G<$xS8=zPBljzbBp)lM
z)%~-VWE0?Ul&{UhvR*q$Bh6#=Lca1uyoVfQehkD5@TIi#&Jf;a3s=*+nHt~WJfxeM
z9st<&c5k(g_B@Z}Y_Bhfr9XRU0d)>1j(NS3Dc4M6Lge|Rxv>NUz&pk5Obg0M|NeJ^
zd>7DbQ17L34I|vbAnA$au<o*f0p$;t->|}OPZB$u;M%O{e`tKwCUHqIJ4mjJju|f@
zVIhM+%5oCVA2r(WS`ueTO8}M8bFT0xi)X4|3A!tuL^Ii|M)JfWf3$GZwVchpIuBtH
zIewO|Jwxc2DwV}?uO6x^g-uFTo3Ye2H&uAa57(82GuvYqlt`6=*!K39?yOlugUinP
zwCeWfgj+bOED!Tr2s*zR?>9_r^`_*N&g!&1gQy7(e6;lff7HnJ?xCTmec{oqC+Im^
zn<9$q%~D#~g+BKKDh8?{9amyo6K~&m?4bjDcsZ_GfNLm+j6-i}%PY|Bgpw|S-N9_8
zSM?O|I0TVGWBe~7ZX(Jx;)BZvegsAql5QdTGH^ZS$!^1Q)z3BIDn+>Lv2neNCD1l~
z`YgleQMB)Hv|Clbl)rbF32RvG?NM)vv&0T=*Ep0=SSfKBNh2CLa^9qr5>30}p~9yR
zza6rZ#JgtSB>J$MEQV||L}elz$f9d@(FK3Y&A{mkpn2RGsLJfY(Ml-xL-K=@yZfXC
z6#}**ZN{N~^}=&mqa8T9Baip)VUPNLW=TugTc~F^F%dNQm4=b8g!4;3op#PwexQC@
zg5u7tf?<UK6M1pgcIG7JTKTxj)xv|O_Rp6_M;^8YVx**L-yfLj)JKl87|}|Von#X9
z%_jyge+~pNTW&+ndO7>hxI$F-$H{zU4rrDIQRV}ago-iCTKt{Zn^~yZ^yGIVMC7Uk
zuV3hb@cZ(DXhXN>17dBt%jl{$b90+TRV6A)o21OiuV7sew=RZ)_m8F{*f)4N5;=yu
zY0R>xtqe})__sulB^{{S1k#p{w@kIC_gF&*?@Wl2EucKX*vk5;I-?D|NEhFncekzb
zpr!g_Q-kxBTgca2Qj=SfNrTi?`8pwS^^Eq_2i<xE?sgD5J|`MnEPghF-Gz{OR`sLv
zU1$Ks=7f**UNxDB)z#W*u#x3M16Mz~FIr*5ii<2-X893`tbTy=o1I5XF*2F^s7`F9
z3e`T!-eyONMyT-bS`oP*_}4N_ud6>ozVMpO61-0JS5~^VYnCxygNCUUa0Mg%qW5Mz
zJ#Do{ihAg>hk6yrpo=SgiVnjzOdMk($Ll=(HN<GhwG^n+!2W&a>5kOWree`dnnCAx
z+a7H)utfV;P*|z8;g;#T=Sj9LcEKz`Qa+``eB&`<FagVcFi7OjoO@Xd?7GY$0$FC3
zLe43{L=6Re?%|81SPPtJvst8G3#e}LVD@uH5c|e>Z5^t}SlDZRj6N|kSMJ5C+_qHe
zUaoOBvPH9Mrz}r7|D<Wj{OVuU(Slf_qvRXtM3TKnBQA&y*YL$4i~Apibr}u2%r34_
zhG1mQ!Bb{D*X$$dN4<BbcW}Y82V{26D-PN)<)f?B`r-bhl*H@?%|l?&y2W}jDZRW&
zb|mI8baW1X>CyWcfv_gL^H#6&2HBC3VXAW<2(J*Buji{DWO~Vp;RAY17<0ay=VUe;
zCVJ`_WQE!-OXmaKug&x(^*89O_v75am;QIIss-H#zY!jPVIZ8v>HqHdQNJT~-^N_|
EAM>Ybm;e9(

diff --git a/reference/resistance_predict-4.png b/reference/resistance_predict-4.png
deleted file mode 100644
index 54f622cf2533fad7316b007a699549b5b0c78b30..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 70542
zcmdSBc{rBs+b)b!np09KG^or}=CP3oWiDeA$(WFNXrMue3?U>lA;O&@Lo#F@yE7|O
z$UM($zpCf`{ob{`-`dvu$M=0}-P`j#d2-*^eO~8zoX4^6`>~(blZy({o7OX|r=XzN
zBy;YJ5(Ndd4F$!jYcy-{H!c3*qxfUZwe!+v@F!k#r?Z{$$GY3+E?ZDgFg_ywrS$3<
z)1#o+M<H|Oq>9a}Uv0Jy%BssNW7b(wQC!rTv~G^(tIk~XKS_P^xz+2^E#~TLwhq!9
zb2<20NaR6TJg?BReNP`8+;@Ox^J5p9fqkj0_um*7=B`WgjnZuHUS9qwXuU1#kjbf_
z$tedho7-l0sxtf9U%iM7du8ug#JlnI?_p6;xV+v@|C6|j-!Ium6g+=_T+K$6^Y_QC
zku;-Je||pk{6PMOzkhx5>HnK=-goQsW7?-rpDL-S_<l{)-1&2W;^h7#M@oJPDk>@-
z+Za)rR!~=RKPt3f_-Ac|U4K+SL$v&!qN1WevY3E?K#l5yEvw%!+uF(LMsJv&ac^i)
zDJm{zXJ?mPnJtl|(hhlkZI_!ynn8GMEUVQ>yLe3_B?ZL}3QC=q?M@3Oq$`y@D{s{j
z3>)L4Oxv<<EzXY3e}BaMbkon(+q2t}T3fYxdVAd}gbQZG`VXcXk-v^O&4|he9y^=2
zIDY<h!Y}J8rx(G&n#NgI`mYx#RbLUfS+%z@PFdP{u3R@wubf`*#toZR&m61eMO%^t
z!}jeFzkV5qF|DGe{<jey33E^i3=Dkg;nCRTB{{6BqdT4WNkWs^{@2mua@&!QGwXdV
zIvi(q1Wk9WER$Mp&U|@s<fF*f<JDr<d(FPRyLxYi+r8*b;PIR6f`aN{j?;l(lXXX?
z=CF1)4=8x#Ha{vH^7>W2(qt^aDCwk?pq~6SY-RCgx<TzJ!8S`}SDI^-J~th^zolH)
z$h;F3>NtIw-?a78Pz#Bia=nB~+v>H}xA!-_+&1pMQ{+jq>{lX51ciho@*92CO6gkF
z(^wTEnr<_8O{VVI?&Ea3clWD0{TY6T{fM}pzP_DmRXI<d*6UX}IXS25rw1C(hlp4m
zlg!3#>3BVuY{@XGH%k7f&(wum=boHzyW3)7*pwQ@ax343GPPw$Cu9pESCD4(jojU#
z=BQ$iJ%ce}PU|gI@0aD@TUF`JyfRnqOr^~@TT9k;PITL}XJGVu;k_hT*VB?5&W9CV
z8JJoRew8orWPH(P8gO;jv5lt%f-7T6?57&l-4j<`R1}u}Ra{&=u)HubBeLT6Q!_y=
zaa?HV-m0}}W*rjAWnq%exw~JseK3#ctq#+@7W(Sd-l>7c@>b{J%)W-Vm){?#&zo*G
z@`*es?fH_@3N!A!FW>!C+wH<lz09pu&YK^d#=<t|I%a2C4fguyo)6$Y>*+(Y=D2<Z
zZ}oeNzA7h49lS1fe0}m};hdC|n}AvSTij>hEfay@;oJpN;k}*|UxnT!Su($nC0A1^
zRzJN_aG$z&x;4{6^}W8ltLt1}Lh16-Lb~&clZ=vsL(Zqd!b38_0w#5F$}x*~<hnPU
zk&I_8nRFe=ThY<XF!pBoIQnUWj#vBC%?`uX4=Hn@ytd;vye5_=!dCc5?i)U2Wevn9
zOb%y{1TCyuyIIB1&@ja|)M@_K#NIu82CwrLdw7bX^SV4mRU)J|$<$%4cNZZ^EV@zf
ztXKWU+)D3$_UO^0hV40-YKa<AR}0+&t3$+WmG%f2f4I-TnkpeyLMcw^P`YWGhOX0G
z6q9W??L?;I!gPPIS#G9}>gqDTiV8UrZB}D~`pn>1yKNt%h5hX4cLqL#=b0l625Z=Z
z`of&sTbX#TxRB?Tnn<P}zOS)ZZsXF-u;CL-YBMEI_SYYh@nGP;v+#@S%Y!Wv2Fv?`
zgM$+uG1<kIrtJ|lZO}CPs5hLfm8nEaOIzg6Oiv%(7izEIV>v(B|61!AVr}(WsvOpI
z?67R=OtmDf-TBQFJ?=%<*xs?vrRtSasqEP|dgsoaiXmA)_Al2`W`{1>+S&#kz3!H|
zGFrIBXtcAScR5n##Rq$;9d*fh%kk9`3vxb0zS6d+<k#uR+vYg9#d-EY=2F30X5W`i
z6TOvLHe+vCZdJTIs^f7k;}YjQE>k)39=nu#^1aCM<H}#YeCb`r7J9qK^g}_!^;Y|l
zkG<39c|LZVw;|qgPP*)jqGx1GoE~ZkUI-R6+kC~uW&8*?ca=%Jn_1qHfJ-_hRXP99
zuIkPtU&*?v%oEC(9?Lc>a=*W(siLv*+sH+4OHu3LNh3y=af8}7XM3lWFNpV8Epyb8
zOf!4vRTDK-m6osE_n|6wURmg<9LjZEuyf2AXiONa6zt%eVYd6ZU;D%D0xo%3*{8ye
zg_{IhUmv|*Y@@ZzPu7aSem!3nR{ZIO;uj3I{Xo9^F$AV(W{AIkuX*lA`x!$d+=1rw
zgruwi_M*?9e`XCP)gu!mSq*-*<qu0P{9Z%sYsCnuIQd|Kc#ZUU<Z2%upN2PQH;7Nx
zoDLGV&zSzzq}<KC?x55&-ksOk`=>MOn5s=l!6mcgyk$L!_VCkdC(Oytf*lSPDOTSy
zOoDZ6zEh{0b?B^Hw+<;+wLV&&|90nz#7ilsnwpxJbPJQTvx7>kmaq2S7Mh&v3;VrZ
z3<AcnFJJCzOw?50B0l;2Ym&BR{M?N#Ok%OP9d=>i%XxE^W)*{9vC!gE4ayq14w)rG
zr2!_TVFTo3Gt)2(Gk?NWdm$%B%!0vpk6DglN=gb!ULES4yO?KkatR`i-)Ye%-LO#>
zzmk=eRl0L0RlhPQYND^&Ue&)_o7sY0-k!}!l0#nH;?A8khq*hO_6l7j>)0n=yLQd8
zQB^%olVlpicgx3<Nqj(2xXy3TJ(PVgGeq3}t5_JyTcFp?8#n0Y?S!Pi`!%NBs;?Nr
ztRjS2#l*BuKibUCoagY+(fsK^OnCqg`Sr;MDkM{FtVk?2vE4vi%;ZG1<W7yM_K)^c
zpEmHs>XrLHb$3@*Qu4vhiP*uR<~v};Sw4tbm~dD==w%<j!|dobufE$tmNRYE!M1iY
z!`eUl3~$YQt7KF^u48)7DJHIOJ3uze8FR~QOSvwcJh6~vw&O4-r(Ctz#50!uhB)Qs
zbR%`|TgQ(bOS}F3l*}BtY4@(_ubl-CtOgTFvSrMP3kw}9?GD54Jh`_Q#4e+B36H#s
z(JJrq6r`Z&+_`4dS-(2e<lHfq-5z@cr&%vN+RRuXHq@NXadc^{tHdM2q$SAq>AX6!
z=yjBbL;fVB&<KSPkwgA{i!*=#^cq#~t`=7C8IhBw%E!jX$Hl7D8;qU@1l;7j^e#X4
z@_YR!bJwq5_vk4P2(a0-sgPIX?k|JhmXzy{%;zU>b-C>^WzAUh=h9^8@9$^wbN==1
zXoPn5U8XR5Q&UrKy}7JSwh?@ekw|{}p)ID_iTM)&x(ir`9dq+e3qvI8@dYf^-pyT&
z>bhJRZ{NM+y*@YIBc-P1-_o`DQAFt-@uBN(iW$>NU!8j8#qsU_Ji4Z5q@@FFUOi%V
z`c_(6%9<kPJag7;_D5^gE8(ujLG$mQT#u1O#l_naD~NJcjkzdKWW0IvroBpUPjY!}
zgtUi7y5SCc?(4<RjxIc`)IYvv<F1Rw^8zN#yLR&EOwNiqj?M2CzVn%8!-nJaPV@aS
zMNAeyK0ncK{`~p#fx$r&$?>9_4`WIu^+Ya|v-2#8aB)>~N*+6w`fcXdr`ZUz-EIpv
zjXH82G1zB?kG2GRZQ3L7wlv3`p6ghBqRz)=-i?JXB^>SUjf;J^lanb9;x~HczLST+
zk3(I6IatIhzN9C!IaSa7vJ{r<yeh!=3G-bA?n>oVRbSP09rcE@+n?&ZG|QcnB4Apy
ze6TF%!t7XA)?9D!RMAddy1>Ky{Hm2f{Po@krNxphcWd=`?a=S9i?SOnSZjqWw5?wM
z#tl|s;U*JTg9~qU^K>x0hT*nscX^UYivSWv?q@|Q6tatn8tIc$WL<kzuTQgCo8~n2
z^`kYJ=Z4IjHI3&lNG_?6wXL<ilatMx&Ivnfc@;cZ8@%BYUD5a3xc24aH>)_uKD3YP
z*^iOTyNcQHbrH4WD9*X2Ib%}EQj!Z<Ja&a0eZ3cwCT{9DFHOa3XJ=$OcX<c~9el#L
z`O(+6m%FUy5R#1;K{5h&N3bcDz^*UE`Ua_GD!XGzVP&yT(p^5!c0zyZS5tk2$n3yW
z94^wrwSY<@Vl|)=-ecUB)i{(f$&)*K%G}(XsgWd9(9q|&|M}89VuzPBk~PSk93wks
z-El`XMuD--vR>XN67kL^C`hWY+<rvCm*uRKR6K%JPokFqZ^JW#<O?(H_Q}H9r{C*W
z@?HD<Sjo?EX^I@&GDuG58FxVLmvyJ$ksZqH3$<7%>_YM5JT?S)*^s0ydfc%wUX|Z^
zSc^aksHS&>_Lh~F)?iJekpBYbvVb|ehhA<!EXUh-&)v(5yf`;uh3y19E4+6z{?XIZ
z>;L>@y9UWLWEqe@UMWg8N}?l`i3gd@?P@9SM)Aeb!rm?nMUdHgNxhZp2{OXhg^|2u
z+ya}Zs3u?<zE}4A`FfPK#vEIV<3q?Zm9|}CV<nQyiU@uc+*X>?k{wa$I9Gr?vsRWD
zD$`Im8}Jc#&OyAN+LY39y6I-R{fsF_^yT~QQd81kUDWwzl37^0^NOR@Kto(j>SC?i
z;uqd$R3xz(eDa$Z*3hp~zdoI;lK@El6ZeMu*AKqEY3o9lox|c-Nsy>@Qf3DRwbUoM
zqKIH?$`u4kMBzB^W4j?SdG^i6+0?KdH-Ss-di>NYmauUQd&>Ouol}~On?Kr<m~1*J
zk5?k<8zQ8)c<tObuBW@PA@k6oLxJS^iooN&U4HDU?2}WEy}WoVmb3>Y3>#QUeVp{}
z#9Rg~RCPWV47Kgu4Jbb_-C{;YMypu%1_2=AEM7IiKX94=G@u7>Fn(460X1Nn`lk0c
z^++xF$7=GYqWE~}LH+sU-1+#=bH5zhrst;yZ?;Q>qEvu8?0i|*^T~C?KwXr3rljM%
zC27X5ZoKE_nRhfQdH#_=b}w71X3WiIv(2<kCx6!ZjJNaz=sI2Qoa-v_GFq4(@`*eW
zYI6!i5wQq3S~+)zN9)5C?sG?EIMm+W*3|m82MOe^=Hd_{L@$Arf+D{ssp7=d)vGR;
zN>+dQaujG=uhpVj+?13ug$OCVgI#8h1RQ+JEPF`c;PK<{ODFGUxBVn1hXp!y=HGLT
zPSDNE4b<<e3TY4dr6-nISr<@Z-|a13k(xU{z~MEKs7a~<DLegyq}n`mw+od-z-tUp
zB>mfD63I*Um=jRcp1au}ODC5WW(4bjUf$R6fuk7!GzTW3Q2)kRJ{M9S6S0!hBg6cq
zs!G6V_WRlh5C&5+!f;*+q~YEq3I>z79i8Y|*Q>LAcHfKz4jw&PEBE5nD=h=Zke<v8
zp1!<Px!TV1=^rXVPQ733?;)iFJ5^Yc+U<-|$j(S6rsP}Ld}pJlq;)6VB&)gj`5WbS
z?%AW+n?<j`vb<zEC5$Dx$G3J1ljV5}#P7E9kBe5jMJx@xhn9e~spqADCZDCHrJbr5
z-McyBW_753a|yF^PO07O;1u%BQ3ifPm7iQ=m_ZYfXm0H+-`U;WGLqv~VO#v!7^rHK
zL$oB<(sN$wRMl~w;wofyc)AAFVZ%=DmtNp)i6?Rai-N1O6;7%&voXAy9&Xcoy`}n<
zaQ)yNZgQ&L`S&^1k}EkCJz(@7pjNyX+-c0_>?A;T4sdR=+O)dKIO9P165^$`Ow4)N
z;fd9kiVDkMO<oR;gcA&8$vYeD+xLVndiR!h`3d9?dZ5|_mBi|Nv`e|Ay)r8&E6YAT
z#ka9g2<Y(1y^kQo*-=foj`nfYMY<-Xno&aszkmN;3_!GjtA484-p+LS0~5x4Jj~tG
zliNJ^8<;-HcAdN7T7^SXM|CrH9&x6&A%mH#kzX9S;D5=~i%Gm<(xfGW>sW~7{2ReV
zTT}G|`3s1}z!HPDEGzGR(4H&N_DG}WImuI2aTwSW$xm7m9m7D??(!qe%iFhacbDs{
zCdb6i+3<u}lV8~Si1$n94o?(p>)doE@2(+MIBwOm<pE7MMN1bl??w_OHRAR-v$fFP
z-kDV7pKR@j)HOD!$N-K%rWtI;g*ANu@Pm3jBAx4TgAe8JQ09AmE;BRJbcI_z&&kno
zqEb*J!#J?T<YquH*m34kjO3CG_89lrH&8!@V>cdWj^t2RH)>nA>6zxC`Z9G)YiX#@
z+vx4sxie<XCWdomx~?LScOo1jq`kPOr+gzpj<bdcbb4;0-F_sn1vtqnSm2Z9vf*hx
zRV8NcNO~>}gOT=+S>W2|In6+_m_mXjlS<YyJ9Mh)%hU&6N>uweS$F;r6InUem}fcT
zN&%I{g10o2B9h|yiY~kCao~XpVMh0^gxsGV99E{wz;QAC^)bN<fI^(d5(kHRP}e30
zmKFnVhAN&pb0+1MRt#;dQq<Gt3=>UbJMzq<hK2?zWfq~ii77T?iFRzEa+CHpgkS5C
zdV_NXjeU-6TbG)@SZ%uZ@ZoB&3GKLC)t68znp>A=ySyrgn4M-%Vt4rYt_1cBIeaR*
zoMC+VUcddT`m?@8AWGLwck+|@0cmd0cAkx66tlUA?8RzM`5ZhbutnT%a`b}(c}{AB
z=Cf|sojSZEY0tfJ5IYP%JzR$Y2J2F7!~_>%!_{I@`R{a}BM1&z%fbV6>CKxrt;>u;
zxAQBy`o+>hE6R6*^+rarkmj{am*%H>r?+1a`(B&k{v%nSdy8s<nkw+s)DL$aLuA)^
zC;=5G>}9g<4h<-ZIBRVoQ+vt=aeVtyKX3ObV5q1=z_iuCw8Of?k*ViaUF4G%Cz%bF
zGP#59?H`o-dbfaa^YzIDL;^<b49oz8>Yc`<r(5(XczJbw8T_GTEL*1Qk`~#iEGPG@
z#Ys_e*WAKXrh|kIId`_%D0z;LW{;d>d%*8Ju^=sTQeRy?-fTy&r|9rSOUty##q_PO
z01@;|v#SKP)o$Io<?1hJ^p(@3Eh}A4Pcu=?qU8nkHsl6^B)evPciXd`lThmtQ1)-N
zelXY10>)5fV`D4w@5zcSLBK|R`*w*C4-X%fLM*3hB=$;@J0l0FWFBo{=DuhOs+ev!
zWr%mkmTeJ|oN2W{y7t?)ZJSEEp{n@U=k3kN``!`ZIp$Gb>bnYg`Ru2SRg<(XV>j1>
zaS^C-5Lq*|$+*aqHNDB0iLtO=Q9SA3H*V(e>$}`q4BL_tqyyaYnlE0a`zpP$@S=uB
zQ10xH4Mc1cnu>bFQ*7yeMG;-yErq<TRJlp+XLj@n=FNFX_sjkmoc?ja?dne`Bmy(y
zo7x|_y7q&F@Xm<e^2+^*1@Xax;0}(HvaJTyew9LsOGr5DPT#vMxjeRoSdYiHWY?Ek
ztE}|QqjbW6_u@bhO}(s!TQ7rKkG{z$+7K-<Vx*p>n|<fw@rYPv+VvJu^J-TQ95}#d
z{Eb(p4vE9EGoP}jyZdK|b-TAOGjB4k5a{{+#xA$tAY`@~aBmZ%NP~j}fN$4`lB@Zq
z2GIv!0S|LeVTss{{W>2%rXg51syn&NkE61ruOhH3qwF0=-}-L~0>Sc-)5<C;RPNr*
zNPYia?|oB+b5el}*}LGZhviQ|2qk4@LX0GkZ(=)$mmRob1L)<U!-t_N>gnh{I>9`0
zhbL$BzLJts+2mR&83*&=t{&%S{yqLW&ZO`<_95BkqOlv)w*lSDb(71bx6>C{@hM%N
zP5n6A(qrY}?mi(j0#0UPn(gVv@s!6*c>1%Sn4oU<?eF&q3N|dd>Qs^W$I3;_z?hA1
zBq`ZFS*L_!Y92Y|Lz^tO%!4(X#&6kg{AVWP2{ptK>af?i)|XsW-;)p41hzmM4V73~
zw3x6MZMqr8rQDPxG26K+@$!2qA37$cq(kTZ4N!}FRalQ)2({eP-I=KCywun_eZy`C
zX3}gcG6;~;Y3JEO=87fc$aggq&3?0|iw)D`b@QAwQm(n)v9KTzbRu-Hyp^Sq9ZXEz
zY%5!Q?T0g^!N{d*7^`oAsQrPH5S9k(FGw~5Kw9?K9cmi73&>5Xjf8gmqS|xBqg;0e
zg>(Mx+ox5`<gW2!?^9F7%K8$R8628)7Kg^O?6z0P$;<PT&Ife~ZM{F&%Dr+jQ9W6Q
zI{IzqV#jqaas6mg%aBI)-66lE4E3aj!Q)pyttQ3oW9hGzW}fPQ6%J~0`pIDFulkq^
z_P#M<lZk^#*;N}A@|NcZ86=%@=CsV~&)ReW$l4JgYzcMi0=9KJ5?>4d%VT;^38JdR
zSZKBRhHe|>Do6uopqL4O2Tjlu3T*#~^NRgFK6>{eljS^d`)N8mO?#OYt({NU6fRwQ
ziR~5#jAby~npsv>RtHt0vM&sBsF!r2FR80CSg^X)3H&krYT+967PP@U)gY;T`t)i2
zVy(lE&+EeWwrCQUPAZ1h<sbK!qsgsI6lv7G=*M06v>1!nP%+!On|<90(?87czM;D_
z57ut6^R51V`$L<~h=@;84o$BGAy&6dGj5i?$7aO6Vm-Gw*0Uu3LpDbOg0A_V@Sj?H
zxgq>(XIYLlO`ayEO9m=-#Sj$Mq6o2`aI?#t^d5|&YD&vqln@C0SqM5LF?aF{@5ZIP
zm6??a#R7cRJopg_5}O?uN97VgO+Y-)uWu=Zt+@^ibWq?^A>AptKY3E?%cfkhgdCGw
z<LzwSW)+aRgx#R+oh1xPXxI>|m^JlPv$CWt>zrG%S6_dtT@u+8*E!_bEqCF9^`3OA
zC<I<@YpAHTX<*s<8++Kj7R|*?^Oo*f*aL_%^^EmAme$P(_%v&{`8=C*EprTl-Nv_X
z{OpieNZ+jNhGGlR+np|i<kx!#wdd#E4OX_@)#N_#rmThG?8+tRe9B<yynXXaV<pV|
zATwqOS}e{pwshSLom1V}7i|YLQS~@Rzd`0yjXoCATNPr&&Bw4~N0jS^o%FMwQ>45l
zd6Yqv>aMb$dm}zt;Cv?S*QJQYnC?L+n7hSn-U&Y?>%Y%TH2l@A<*iw^MQ+}Z-@uH|
z=xasm^kl{vXQt}Ri^1J<CK*Ww?}-N{SQS6p&Ez-8<0Ua4o4JIDYcW|JNGdzMhy4O>
ze>iW&$-=%aQsz+A<yR<AJ9QmWDoU&%5}32gOHMo-EKMSHIJHDDD-qJA1=9CdCZ06Q
zDC(}v%r$E{RO4BKD|^SzO#^UZ5rXC<XFDHoXjq%g4NjR0?Hy>#CUI+h*vGaau=tlM
z&7-<k2$$Tfco`0*Jz$EDWiF;V!Y0W*%yFz}=b`0M)zEo0NP8ldKd%gzl$0dk8}-<g
z%kt`Pl|J9!yNsOj8j5ZFi7aTMT-sR;t<LxyAcq9X2m>qX{KuAb)ZI~PXz4G0{xl%j
zUJXNXp}H5|TNxZox)v&KuZ9gVZBvjyXc$>8QVI&5K(&3f%%sbgFV7Q@X{oMN;@4mo
z23Xy?jQ)&x`~#z!*&$K~w*ZtYBS!`Y4iB^qni8wfP^yEZcV5+BviTzKM9I{Li7L@b
zzuM!+k3-qbry@0p>~;%}3AK|2_~q!?P1pUG5<LO=V*_Vu<+-IdHPhkT!NuFjaGS&I
z{!r_$yV-z@`oms(h3gXXpEMda)`Xv~Tzazo$h>75DH&56C}x{#D|iBeZL1V7*tj}`
zTF|-Sww5CYLzZg$6mu{|vY0spQiOwfy^vo?ZaO4{<1P+_6326Q;I@$Ot5?QOUkQ*3
zEOEiRU)1vFYfNrU>qvc!SIe6iRFanB^o_{sy897$=VfG$=1oGeGlHaNTCK@R?>PSD
zNbk-uFz;9}u^?fK=*^5G-P0v;kQ6W_Q(umR#X>D2RHWspWak}rt?D|qXJuq$20HTc
zzz!ma%JFJ@<y?<5HicpB8`rw}`a?ZyBavDz$4^Z5jA@y@cm+}U?r>}W-9eqJ^D`r6
zrWerv1a5ACWLPOFhhjo#9-A2W&LNMmH44xB6kRjVcAZ7GB+6T{7c(KWWQLewkvB6-
zyd`!)P3F*IquYHy$s}oXeF>#@7`*)=sqJnslv#cM0PF)s(YvwuAoYAEPt_Oop`tjx
zrHbv|-rlAb*UVZ!C<?aQL=fo6BJv&D1mUM2@!crhN^-S_4wQ%h^UvJ8yv?{T!@Nt1
zRNI8KI-T{**O$&>0mGU{YH(B%bRI1kd=D^W;iN1>s7Eb7t=XI(=Dp{{etI!yLo8w{
z(Zgy%LSa3oefFm&(Na!>94Iqq?O-#meHDr5sh3v(%hKXR^?Xama&K*l*1`~a#Mw#>
z^b{1YSN~5kH2cWIbw<%PF8_D|wpZjpeK`g!vmvr6$M!w#?%lVdCnj|f5*vK|LPCbD
zgngbtU8mDnAqH{_jfcURF33x}Yinz%>wxigV?v~E+=#4wd-*s?3^G=+ykJ}RSW1|~
zxJ-o1i^ILkn3<;zON2Td4Ru=DyI)H+S*NYSqPHUOKs}*Y>FAPLTU$?+kL&GW_eh=e
ze&gHQEIRi`ekK~DA6`LmX)@{few*$x*=PRc3!awqx8?(52y(oO-_Tcm>aAjgn|Dx<
zhH>EXFZcG*lFX>+=%9Y6<Bm$z*!Lxz?*TNUxclY@lLgBWeQcvSq~vn!;>t;M899%B
zY%{ga4h6O=ik@j4v;Z86Kz~g?Yxi+|I@=25wFrnF`pvWlrRV~`20L{pNR0F!bquVk
zPc1v2Cjg3W{^Q|gQ}mME<*cLT{jYv-&H!v7HI&>5f};GShf&0`G*R9WNPsCI&#;l5
zltTb|fhCZU$}~{91ob{7_f9sc(N9O*HZ#VLj^37;BU$I6qEOeRp<7wv#jK8gOi9mX
zCb3J{8*HN=kP@KwMiT8X6$LC}8kmTZ7x%=}*qexmDS($9Hmz1x1Le}Ju8$rKqJh_d
zg;Du22F&&ry?TFl;dZd9c-;So$|ZG;T;tQ>`DAk8wG@Np#W@B+Q>`aGoLV1hVm5FK
z&!v9!jSjQD4$!BOW0N9nacyR#L)U(0n9I_%WSn(Z)esak)B5kedUiDA94su`%!I?j
zkEx>@Pdm;}9vu<t|C$)w!Zj7}UL(<TVoV`epz_EDuKCpJh#M%7yd&dHX}6Ta2UkC|
z>p;sLydWU6BhT3xh^DP;5#+@pxGWq={j9<*mQ0?<L|?73ycrW_gSM~30ixGfMZOto
z8(qUQMnEq}gwbHr1_&@B&0y3Kn9#G*(gfWg00sfkLnNJbFj7V2@(tqpFAmG6-T1OC
zMA$-#kPnw;I+7s@u%jJ>W*7k}_$_~4Ow`U+yIJ+hT$3?}&%rSVdmNWm4g$tQq3RS!
zzNQ$jmKaYkZNlR~Tmw=lag8TWo)A?Kdb(AJkohU+`TDT+Zz&khLGUAky2e0n=tqk{
z1;lp;GjlSUEvj)!XNkC2vxVs`2HlS)q$&_R`ZlSXT&Z+*z3?6nW=S1sFQ&#1=3Nbt
zXHk0DB_wokt;WIRyd=QYL1Oc0?wQcDXG0m6%5z$>L}YX6<XrL+8-G0TH8BCxQiSrV
z9HU@2*Arm%vt~b+M%p=O@)F`1d44k%h_t{=Mtb^QRhQm7#8Q%m?q*-03RqVAO1?=%
zL!Q$|7E~}rAaL%K3*-d#3q&s=vm@Ku409P>(f6ZV!pkQ!Ddgg}E#u+sq-cc@Lxr7+
znRoO)qDJZjj1irF_l?eI(w$B6xU$R5_9H~4@*+A7WGKGN8zc56AI3sc<j0^j6a}%0
zO+-Wkyb9F#UXs$eW*8%eKXh%DnR927Ks%N)iI#$bM)g@IH9o_>weM6QTB`8gD7qMJ
z&w8c2yYcO1Wqg&cixGhMsoj)1c-w2LTcEa?N%^JT2mOMB_jEG2h5}d{Ar5>ZZ6|t<
zrqcjPaQwC?ouHohs%gdsT|X`^4vVYyI$^ug#=;u3D_LX!1C(MELa4M3Qc!Fic==!_
zE>67e(;c({7$IK!&e8rJ8h&)ych==!@Ay3u;vF<ftN)LC^V!u|R5Wj4MY_!Ce?ol~
z>pp}uj23sZ#cNb49k|8BT3e$%4$>jbl%wgu`|N}|^(Y%0LGRuz9zBKz$oJc;KS;Tl
z3AYG!T-f^bmGgC3hqcmkJ7^WNE^<+}udmX7&&I*QQPW7V{;`LLU!$R_ot@q51gcrB
zYuDbO53qOhT9du|i6|2m76$p=XsJpOh5-0o_)v;!i)rt?GFe0lT6DSh{KfO<uS-kM
z$-ME1&_aip!^$Oqje(e1y#DW;{{L3U5NnkS!x>-{frlYQsdhL_cpN)^yb+d#C76|_
zW1me<S^_nzbT};lyo$yEx%FcoeuZQZhl~)`mkvUldgF;&vQ8rWFzF^OYF^^gFQGF%
zm6HU<A?#TZQXb<!U$Lh?d$w_Dvi^dI{q$RQ^`y7xz5k3)NLp_YLR=WRh)rBv8wJ;}
zIW6wTj~`STNB*qD>g4C^Mo}>3p|kLeeklAt%DMuPj$glG7ikh)ybdOav};A{<zMoi
zR7+^QX}hVg26>JU0OZ3Yv>}cK9lz;GG<`BH`q%{oGV;yod34^UrSU~YM%q{^>}Z53
ziT_p|3n4K;Jnrqfdi81+d_#Qr20-S4r(gTgfFq+RGX;G<EBysx#%icp6}{(L$YjoE
z2Uq_dsY~b1W6FFFQ9+636H){}40d3%U%PV9mTQ1%t>?B-L$a=<<LviGgzci;ZjcL{
z;ljeq2pM^JxIV{z`d2M(XR<;00vi%Ej6Z~*C^a>8k|@&WoO>&Fb6t9OqR?#<2j8r_
z!+C$sT4E*OaLA;#j#|93LUbY_0{lde?#0zzPRU+ZciEvM+mNU!n226b{+7+SLqb*o
z#){n{F`GX!^(Wt)FjyBzF~UV^eFLOSsE%2^K}IStKzU6#0l1^q8j_Pjm>ee+Q5?&!
zrNr7z4Fn09zk!J>{Z{?q5DCZTo3<pg4sMxvO;Xa_B_L%K=NO*6#X7FUtGkHGNBqAh
zqo|$5Wp-bpe+a<uTdB_>5K?rl7L&_w(JPln?#KPq>aNU_x7EYVXo&6<G1`uQrnrXo
z7-f4Mta0W3TrXIrMmqBHCje-aW`^4i$$%iFSC2<WM?>-)$U=b)stOe!oc;!Olm^uA
z!6dE$;iAhT;T%ZjYhX<~K6Z2(2+aZY5g27kGX$I@65Z~=lF83dk`kf1%q1%P2}ByM
z9TNG$p`l4|*2yTLwZ2{+8s#3DIuJ!ie-iXnAC)T%_uk*E4yu+>g6tQ4AuLJ4aXuDk
ziz!6;ET37sSTa?_?<{8kmhF^K4|mP}?6zUmP!vT&2scjgC`!cZlzb^?s+vZXcN%uY
z`Yl^{_~g;OVv$+9dGF}uc3kil>`x+gld(x3r!{2e3fh6q2t$C}3}TPtz=2a+Bp2V2
zV)TJFF5Wwlstlz^z5cQ<VY$2<Hx3H}W+JMToScS=gwCj}pEV>6264Nz3xnIAefl)+
z?ELg`?5LSCjd_~+!+0QwX2DaQgVs{bLZ`eZL~U$rK4flsxSlNf=HP(?>)(2>TCH(;
zxH);WgP7TU{m%EkeS*>AoR6_UFxcr_Q4*&ujDGRxsQiQztAQgq=M5~bD4iG34b6fM
zc1Q+&y9Sg=$j3Z8UX~T?AxIl^y!DQzKWoAnc(0s@E9d3`QdW<5Ac{J4>0GxcZ-4)2
z_!NBEM}Td8pFhvH+`AG3IDRjQs#6f#7=wQcPLGgXo5kSLQBzD?hSWr*O`V^N6twpz
zI|Vfzzfk>lEbL&8jaou_DPK}v1KNWYd7QRf^zMfNfT=go8=z{JRaL3s9{$nE(T4|a
zRDmPJvYd-_&PU;uP&n|Jy6D|s7g37{rx99+TWNfK0|PG)<m}$PTjH%uZfe634vzA~
z#6OEnaW-z0Qm4;EwJOtcLzjqG{GbWD-WQG@o_7LQ@?B0z*ARLjY!JRkl`L$MAA)^+
z-oWl@2$70NqHbH5lfV_(4;_kndED0&Enu_-tXw73krb~DGIPeOCnv$Y62NYTwRLpb
zggd9Br&o*Dl)#Ed!`{`?(=(T*P;eOGg1N$!-b-5FX;H<zW>ev7kAp0i6V;lArq{1r
zcB|QrHVjcIm2`AM$%9-JJ=%x>i0L=pH;L)6GSJY2+39P!33!e_W@9MJw;lWfuh~<%
z7k+++*d#l<MdDLAZQTj3R2g_&8e<kPYlGP<10#a0z=`^g%|p0o2~_~)MS|qo#644S
zyqa!K3r<sRot&SFAIsi@ZTqw5x1c!fcKaS+L<BCC`=IR)g#4B#<jA+zu3y(n*T|%&
zkwH|YUgC7JU!kPpg1Z`EKrbtTn$-(R>+Vi;GY}Vh6B^@ZXKf$@JeiXLDp-}mQd_LZ
z4X?JJh?#2`zc@gIk0n7oo$sw6%^#A1YJk1>LoQfA9uulu9V&jP$BU{Rj#&WC9{NfU
z{S=m4$V5y5jPbJBG;OE1h<A4dEncvFyZz6CpE~clWmGLrsYomT7c!n}G<1G<mVT&s
ziPhuudcgGaz~R3uo95cc6>8s*SKdpgz+PpW^-P-66vHGObIQ=3Q5J`6<`nO33H3c_
z;)s1ba+e{LtT4mBmFS}K_f<K-T_5eHd{}_uKjcq9t0FwpEdA(6;Wj>XBfE}we;H`a
zd=JN<fyD5}1G-G5R_)u02fXHp%!Nj#jc*1Dz8$`$Li5++eqdR`Nuip3*Tkz%(4<*~
za9J*?G5@)_hoS44JN+V&@Jc}pQKB?H+zuDMMwkZdmgoBX(8UDXibvg$sI<?Vo9HXo
zf8P&r!`fa97nTp=tHrNd4^yt7$g;?wt~$n5i~D{qE;fXlj1bJ%a~kx;BOw#=N69^M
zYAl#MM23Xl9lPRdDL?P6WvY3)gM;QP5IbJ^9P|gz_;0F!>1x#$u`9#a*2i}ZWPNBt
zX>LT7rJ8eI9FrDbS)6e7*M@_Tu*yTKaFx*Y&rvv{@aiI5qOh1ZoswQ)l5n_$JE}+f
zF&yQU74|IbEOoTd3G?8!a&85LY35cf)+QKe2u=xS#Q<&`{+_2nNPG~f6Hufn<LZ&Y
z(&2|(f@~;aJ^bpgKXhuSC19W9{#WjAqoSgyv)Em#(FH2ImI6GCoaM7^`*uG+zalCX
z8sRGH*vQ4~euFL={wje`fB$0QFJTYu)y_#X_mu`8J5;>IeVY<xJ5Wu)%VG40+3tAO
z<D>xr<B-6V(5QpcArjds7G%!!<Tc$s{*9;6HoJJ{%)@B8z#kdUgA#CegKgFwgk#?C
z<;z&2ih)0#jh;CZyT*ogk!JLOFS@_6keDxmn}mB(@DLQq*Lt;$q9Oj(!7o{fUrOVb
zIFNCQky7X3F(|AfW!pOSHWOTmc>SNqVE$VW`oDg&%9+<3F8Qe1>T+^&uM;Tgw$jq>
zcP~1%aONDcQtt{;Qqem^Nmam<w+NW*4KHpgj);iR+a(3MIjeT*+e)!eU9lpQ@QMPb
zs?Gy??QnphEJsD^vJHKE_LwQsoK0eG#bplQsx4BbKSbA`VjTHSqYAQQ8-R@lPo+}N
zp;Yw(7|)<yNc<aN($LWOF9{R!!~aZ}Q0#r)dxVKvD{Ovr5NA;w*!S-**cgg5$@Du-
z=9lmN|Mf7=pCF?6|L9E60V?f#<DYmp5<H1GxpH@;o$FCyIKX8*wg#a`bJCwrnX3nz
zf(y_QzAR#c6I(5NBv;eA-8KeTc|+xOQcF7IBLad!L^N#4NMyp{nL{irbb(IjSQw&+
zAm^&~S`bIJ@Y>o+Gb)SP44Lf}zH(@K7WsuZu0wDwxKh+EUHZN%)Ow^n5mt8Oi<e%I
zsm>F;2&s?{4N8=8l9=071GoraPxK*DJ6a(`AwKQ4u@<K@cECi{DFg(nhSY#wv%_to
z%T2uQGb;0)BlrUWpS2yQ8j;I_B$j8d!|Nso+@%7+jX?jEVUl?@|9d1yXI}@zurwnw
zH(@>pFIUGF04|Jt`<BxYEQh)-48qz5dd?a+n%8eyCKMgKVr|$RTm(T7iL)3iuy4qK
z8iZp)cL13{oHfGVU~dtUBlzov?v?Hr7vM5QnimzH{~7Vr)6>7`8ey^FH~(=4>VpxG
zyNKg_nr1Gv*YiFQxQry|(N{xt3Y;<rzfg{rQ$+P78uGfje+NNvGXB$An=N~V_Q@F5
zyuOFry<SWg6p1(p<P$lPyHGVGT*#Yd+;mJv368W4l`S9bt!3&^%7&)33=QKW7hfk4
zr?>i18BD!U&}Fi%N50~q*!fo*cKx}}6Ge)s+yJ;fkpO;lfzg2aK9LZ!c9aIccyUk$
zkVh@twk7S>L78S~@GV_L_m7204&qMJzb;P*%K)c-g>j=X<^uD3rau>@*q2fo^rNfm
zkPHw8$FWLuhFE0KOLuN#viAIh!w^aU^x?Kf4YB+Coe#Q(0ER~sN+L!^*qG2`vByon
z?(V*EysgD7FA=$m=*zah@()Ix*h#}8sv55%Ls&Ddnq2aPcJe>_uegKLAMWtMqWRQ5
z-w*Ayj7W-)3Tbg@h1#ztX=(k6M<kSUpGa5@2N9K~5jPJ(>p4$I5`aQ>A%B>~$=3hG
zETZ1ss*ffXqupUb{^NKV2XRm#$994aYl+h*>OPjEohJ!50?)@urF(IEbB<p7Ov5OA
zC$grG5YH)Bt?|t=&hLm<iQ5J;-~^m2wMV)X;i6_~X^GT5y9vpebN~MRHL4Vg@ppR4
zz$`AFP<(J)T=BcJ&v{wdI`A1z8HVHf&ph`EA1LI7e+0(-D0H25+^(MUffv7ZT!bg5
z(U2?Efvh{H?aYWU4MIPTm}EF8`r#r|MQot0ln4_ER51gXq={@ooM@4mqwFQRV3-r~
ziwhEQPz!>s{-7I*i(@LYv^h#nSFCaDNW^wL5;rt3tp#@y+*Z*<J7U(g-S)h{1ylQ{
zZ$o!27REKT;IHEQZ&HhI6ASQ*Cm<*7nAbvTaZi-o$_im({e}%MD)l!I0-MD$ufeW0
z5Z=BRrk9zLcFvmbrMU}6@$?zGSdz1aQ`r(**AsgcD;``~eC5EyS0EF|xliwrw*5@E
zNsn&No&>mX2XSnJjJ-^VQA9wY6H-F}x2mwgS5*aHY+K3*Qo$*Tpipvp7awbD$7B7!
zO(}Azl+S;#LkG#-f&1XW)5IZxSe<-7d^JZxqbw>j0tdZ7@2k5|RwF@9VGUwMSC)`1
z%M8<lD0PA>iO@*-Ehdtq&Ih~<quYOkD2Ss(rT$$Ic_`agw!`%Ta2bzQCUxinEVV2>
zJkNUB|FVhQq&X|?CG?hjB9ZiLv;q*mai9+aP48nO7ZvkcNM`Ej{I<QBgYVm)WvKn5
zCN}@n2f~(4yu!mjRTpS(!*S2wr?o6wOh}pH>QS;gEXLlK@4R9`oH~eHytPdXhV{*k
zD@!v(WVR%(s#~EdQ>ZF+va`#Q*83YkG+e7~&c8z~f?qlw?kDiY&=!k-XALLXk(CKq
z%*V2X(c0IB5O(E5#V&`4TB`vLSC)jF>@HuGS*7{u($ZhyBK9T96&5i72RoBdQ_6TZ
zqM=QgR}x9>b<ojx!1f?9?G$M;2c5Z*aw!dl6fSg+_L@Nbx=g_Fvhs3e=sT*&zuN|n
z!VL=)BMxt(sn?@Nj}p)*B<`|>r4#2`!JaUgJmvlW+>=s8LBgW<JEV7x$xK+}2vrc~
zLizCOBP=XGK`p)_%93H9FhpnDw3-Z{{_SklD}ugbO$Xp%QUz$c*N5Xmgj0;@!wu9%
zJc3zk3d9sWVg;Oc8t>%%tI|JYaQ`mCl6D_Pc;e`!#KN!RgvMD0ccX`3dn}svac~Vl
zfj;Dqrei$5!Vp7)eP0=>XhYQboxh#-MPw~Z5?Y3=pyH@JY?hJlSQx=MP*al7&W`*1
z`OH**y)?{~tj9hcId<%rub-dlz@keY=n<lmor{a>x4w=j!}@K0^gzJ#xi4@#md`?j
zZJ!EEr)b`sFJopowMRPEJYx*%C(di0P+vP52M;LvL9*LS_Vy@gX}v;6@Vs9Dg&8%V
zd(VzPu${(gwGC}NK!3wuTtA+~NvYHOe_?;(zXt4d|8-C0PcwsPe0~1BI*Z{1CDI<U
zciM%AEI4Mld;wGW^zq}@jt9F5$DB!hF|FY%6ESq1+^(+vAmC!=>bhk1>>%dVdt&6X
zQV+jD?G6o7)1;Q2s;_fy=cbI&yI$;`FOc6O%}QL=<RNEn#J+|xCeMpS*0+7F(H}<w
z1^ho?zvC4=5@5`$v^TwWK~MwI{V#Z8R7FL_@4m_(g#+!4gDk==vrxagZwul4aefSR
zmx|8a7?`4#mR8)VoQi_~e0pB}1auzo|H!pWHYd<_y$Cheu!H(+)IVMToIsamc2vP8
zy}tVQPI#^I@(q5FY{Bts0?oml_CeffyjzAiC<BXE9hA;+j36Ed*D2!<5vgq7uA}$S
z)smdY!A008NmK=G<wLER%1~r#q0J`A6%p^E*nf{W&+p{(;zb1Ul>yw^<E)MVssw5#
z1guPb;$1Em;hV+90tL-N;oJD78XD%je3{vC()+I_Lc>oq%SK<+tue$U2D*ZXPf?sg
zfa6H;K6uh37e`OWjbnI?C4?V{g5n`N(Z`!Dz^HHRl8PJG$+DEef$S3g-)QjRf#1J9
zdFs@uxCxC!HEf~zcLK!cTnI*tp}f;bBur*;;{rxs(E}^`&mWY*$=tYc0Mhaj{(t|v
zFNDK+N@Wu&J=ukF)uQr#;+iK)_u~NvE@3J-;YxI(FTK3UOoHY{9Js-e%0;c?zuy(R
zk9Zd|Y-@@@&=+yC#$7%DX#mEwSO7)!*uQgi;`aat8{%GMn6|~k`i%<Ic*i~o_zQf+
zmpIuCt!+)L8*x>aD|$ya7SdQA+A0JU6V}4@mi#VMf3!9~e}DR)@e~qzyWG%yBl<Xm
zk;q}=K|1Ic>?qWrIE1LEtd^iUHa6xHi5?MPpyzv!n5ZZmJ6fG3;&K7phxOPoB_D$>
z)&Mkq=olHb<8x>wk`R-uZb0pjQvtORyR)>vv;4)wa<#<3h}Zwq(;i+vm|5B77LKqo
z1ZHW@woXRU#O(36!DdS&bYf|Ym;aaDt<h5xz)f72Q_rABuZGi1u&*bSFxksNZaEvx
zjMD?)WU!M+`OUrhy@WWCEl8E)1CtTI-K4=#M_$L!7_xsq@wfuCdqAyltjX)t1da!2
zqIqPldC#1jq)ik{wYQhT*KI#sYM7qY11CgRu}3{h1s@KyAoUo)K}DQZfcr1u+qZ92
zC6~c+>gwuzeSCgAc>fPg{Ppt9$vQMPiR1MIdP3(V)t~e78=UzZL_Z~fkX2>s@Eib3
zG~=mkd317Off35S-;RaRmN?0szPR$<y02E=ub(+TPf+GX2AkzN6E;ot*T#D5sgAik
z=3HOqvhmY14oSt&if7C{pDs%Uo|XR2I{frQwMztz<jymL&os{Hnct&|N{r$%>Cdg<
zI{&_PVIkthw;EUdO!*)u$-dj4TW91$AChj3xAsYlJYxRgr>=t?M5PcW;Q`NEd?6mZ
zAa>*CO*G$zp$4ydtrYhTCiYz(QaL!o##l^lXt)A&bO~Zz%okng&wpM6&M!Nu-vKpJ
z<OBLX_xE>u{dynGeHUbIEhyr<1Wor+bOL&e@XkbdN!+j0FT^z52CY3HB(&@PzAHGS
zVFRm2xC*;D*n*0>x@e^+DlNr635j;|V2wm63~_p-V}wu5hsC%ll^W~+5-mmbFi{kQ
z-!JdH=Pc{=-|zPD@IcKyqo_!`am|C|!f~S|i2@E8pX=T%M~+yF=r^a`qHyu|_up&*
z-{UHZd@yv8iVd4K6=B^dDbU-wEuyBbzV<a&T#JsJ+(ttqqYzV3o6&uUD05)B(_0@h
ziSzt(*9V*r%WQilbr8Gm(fIfsIy$<2qN01y-ecwFma?+q4+;(rX?~+5O$>pCiaYD)
z0g4mQ#bd5JLG`4_$9dBbQ!@jD6GlcH6j#t^3#m#!0;`e4FH8FyH&|RUmh*-hzkU_*
zq;&am;}d#e9*D?m=*5WJLACn(T0TQ}_UDvc!`H7rz-ddXtEKPW6&RnGP}I<P+T5&x
zUmdn+%a{L3@mA*}gXHq;LFAjKl1u#;b_w5M@s&Naam^};rAg%*dV2d09V)7gFR0RS
z6*Z{Y$Ld$6Fe1v$y_w?TrAt38?KLzQ+8t-Kef|Bfb(eZmH2ZvXb#=XjzVr3ggyh`y
zezLCUpSBP6sVgbf?e{j`$-wZmv-1jRB={Wn`m-%_F-cAtkEy81Le%W8rwXRzDNB~;
zRvU28eP@U{QNMg#D48khM7@)|g-3a{Vfv>V#|p0S=HtHxeE8W)Bx7lWoP-g%tb82&
z5_IGK&U`rd#(IOzexNN-;yBaRXDOG^_ycZ_qBm#VML0i1M<1rhV=))qj#d)|Z*b+i
zCS%VcA)J_JIdtfIRDjMWMB(~$4G*|>HW;Qe0G@7g$$0t$2XyvApdF|wE7*Znk|2Pl
zi1=L`m%WB|gK3ALcWbkH+IDIN+ycJ>C5MpE%Ol=wuU#KL6p|R+P9213$B_XRjwJJu
zW5JcYyEgJNc+?C|;lCJy!u9+2?{B4}>z=-jr2_?|40RhIXR%lPT6frHWe|(U7;j8@
zBAMI;?ZDvHt^Uz9SDe4|Gsp+bv@HL+&-&DJW#?+bl3k2&OTnIeDR&r+kWKKh72=5L
z{-+0+oEOa_V`8pDh@o&nJm!oQ?<p-SyRQ&ah=ZjmIOY^;^&g>oS;nV3w%8=B2ECZv
z&50e?@9#VzCAEg|45M#&1%8@y3JPwrQTGe3oY2=ljAG=5uF>yw0lDaUsBGi(c+<k@
z-RPwQl6h1>x7RU6A!;?lEu<|_%58o;IYN<k$Qs$z9lqP$INNi^#Doi!#OuwQ18<2V
z#(mbX0Ut!`to}Nf%;0S`*HUIyKUr3~^<Gt1Xy-T<RCoKZn0qLnP)caT`Ypb@Kq(!5
zQ7CuSZ4c#rsmbO}(vc^y<+@p)zrV!!oaIXi?VO+@9U~Wg^AStOsjR?C{ait-h>jyR
z@`tw*w?&bU!cG~Y&?gk#XlRbZub+$skb&Cs5xAZ>zAfb0!eIw%OLmTPL@mv0uHCKm
zI{T4MzU4ZK5=wydDO=1n&6X`CK8MclqoG38e+PG94jz$m2^J|*z-(y8-8bSNbw&*M
zPj+8O)8OJ`*hD@;%@U%p_T<)mGTRXR`1#S-uWGwCuF-vTs#}%8quAV*6@PzVfx+z7
zt?!4W>28CiGjdTObz~N|(4M80im2_sU}Th_d#C`<CRt)<5`O6Fnkhc>N&DF<Epzju
zE*TOzLoc$2Dqjh2rx?X{5al|&FdGyU#9iI4uBu8&fx>OKw;q;b+U?sPpzXWugr-$K
z=-*MjGP;<%8&MspDbR_Up3Qyo_|GfW8Db|Q@T9!_CYW-(0|Fl54C0&DuPK1`gsg}6
z${kkDKcc)!J}<d5U6-Lnn^|)qWukf*VSOS|t<YE?A}41rWGN(j^m!<nn^`8$sHxGT
zm3o9YOI}-7pmX2JiK;oY3CZtgt>gB;DO_>oO1g%qN^ffA$twdhJ8}?jYicsSXsAD_
z!?Q`~DYh~*kNDEiucid4T|@B;&jBeEi>Q5kL1J!oK96dCTgoNQZ#lNd;RSdEp{!(R
zTF0ZW<Ypd=F%IJH%rW~X^w$FlQp?NB$HvEhg0=Gbix&^TDe=H38pN%EvGI*Nf-X}F
zt4ClH+dH(Ku-hZbgqpdq-xl!@iDH~#Uqf*z<=WXtb9h3J>pq&&ii*#oBRO5OSK|^B
zi_mghozVEyoja@4``mC9>=su9g3WQVNTe-Eh5e{$s}S*2gt#*jM~<we-~~z%3>E%6
z0kl*6A%`sRypG#&nW(6$hR4M{2^O9?e*becgMooTK1_}^fFC_CA=MCjCM4qyysWF4
z?0$wT^nqPo2OFT-ym?r_4Z9zEjGl1M#WdzZ89~8jB>K~w8fi3ER#untoW$YodkRmZ
zZs+d1^2uaTf%^x?k4(#d9T*&RWL)n}ZW6q_{j9gqD=Hs_7>i#Sa&+gK%~JJwcYP>k
z>-<KxadZ?HeEr6y-swepZd!4rzQrSf4e<VuuTEv*w4j&3{=p46*uwo%^4I$9IV*Z8
zm*B0ZbimmZA;)<>6dmjyUP$9w=0!W;3RWRa3=RyuyIIY&SIlPX)YQ~D85umfXag?}
z`Xld~_R0D@gf)0AyWe`a9Q#w5ZzJ^EZMrt?m2}!G60#W!L1g}{A!djDa-%+Z*X{>U
z?cSb4_w!|E)QO_iJk%nGZP=dA+22?9iBx!zIh|0kAbQv)yJWSQWXWotIS%5tM+?s1
z^IWI1UPW$H>GgG7AW-s<%^{gnMn*=DZg4vfXBDqDn^Dp6bp5+c9zX8X3N+%~^|Ip7
zW!{4G{}klz{f8~SsK4wy^iRCqIeAmuV$+&cFEYEg%Z+aPXRWPH`mkK$q>m}n!u!Mi
z?E;g!`tO_Kitg7M;HerDR+r9b<8J=>&iSb6FIq3YtbS0Ce}j8U_+Qsk%s(DniDDBQ
z8|zYV<;t-Dsx{kl{uvY9#b4qULrZsdtat6YWMOf9p-<_=)qlGvXF}sZ8f6f^5ng<T
zh(^P3rK6jq?mgiM{*Uin4VSxbDgUmGj6RuXmNxzC+TGS?6fI@D89b!YGBV~xI1l6%
zuIBmYCg*%vpBk8$SQ$I%U+9(f=^m_kyvX#g&o&sb$lU*O<4$}Pf1sRP@3zb*>vaB^
zHXm0O8I(;%fs@<M){?_%sW%?B`6ok_a)9d`^fp>a{xd_A9{>8>oxn!Jp^Je=DVH1=
z=@tKdFjnX3&Ps1nPbL=vRu~H`V60UCHWq~i`I=vinXRimN}Ul4f9I~jE3mS6v!g}k
zItIm#g8#TPMaiovm-g<+oL2i2^|an=Uv>`l0Z@UCIxwzLBtrH6zT1vUC$_CF7}HHM
zU$4UM_jE9r%2PJ#&b%mcKEndTmd%@cqh={j(Vay_C}IAn({Xh>UzF0iD5d@g8hfu(
z;kOsHaWK_m<|y=U$`yO^vUqJ`<~DW9JpGhQuOwo(&23oNv!~+?>(=y@qDp>+d*`;U
zPBK}4Y4O>qd!8fT9Rq+G;<Y~NY(co>W)6)Wx9JeT8K;fAc=O3uOCehwU}Y^$%&hn|
zW$_0(=Wc!wyDCv_gNM|E`FT5{Mp<EZ-QRbD?kw)$oJdGjZJ`(Ia|1qxl7RF0n={k=
zPQ$Ij)4D^eemPnUIm;d1zS5Qz-e|~3Z3;!qA#wgCuJf`|U-!}e1bCSKwS-jOjfPgu
z6qQ$a-<fgK3jZtqyN~=zq<<zA5z%<+wL14U@0<VHO5?Ql3Dmfoh}u%M4QINK{p)IW
z_dYh>|0qH>;7e_!qP2bYuW;abPtq{Rqh-+K+UmXc-!63#HC4HT*h(@!2o&0>RsY&c
znfbt=0H6kZBJmb@wpw!Gfj3T1|Kpl(xW8#~r6pJCB~Tw2Kk~1SEd^lru-q9+q(7rL
ziGBMY8&@ovJP4`a9#O@R+iDE>&dJJt+M%v>4<exMBk40|8rT%+LIh48XYhD;i8FVz
z`{U9>f3E8-O+43Z5l&DkZEfvG*OC1S^a8Zq@D#vpr~nfuEfJ?CEJT({P#)1TeJFM2
zp39$+-f?G<v4PKVY`mPuT67p^3O=JPL*&?JjG`F<@QuA$PFj*Ou=~g)72&-noL2F~
z-$c_o4nL1BZ>EvDy80uOJ9=mcNCeM?j~zHLV216k(s$<|AAbBhp8@=Qe4RYbbMEIY
zAWn?_dSCqms=GfMJKoOoYfpHSCKm`KF}5Z8KO3$)70yQr6k+aad$eiCIv;E~74@U!
zB0jL2cwd9KQz}eR2Mz=f4~8+VG%_}ZTj$90(9q!?jD+<fLP|QAns}?_)xR@U4$)dX
zsGQiMlqQXt(>Ibnw%u<uoFZ1j5k-jD(A~$<HP8w4km@Qr_xN#a@^8-A6xT+TVDaR!
z7)k+=xH37}*wzsbu`n`)@DUKP|G)uf*sQMbF@!X8;lUZYkItT<yZz6-!wpIS%h_#P
z9VMl009!YRl<6Sj!-8~pH?|68VD4`=;nsY2g;L6k$paKSpciIPru+L!>ClpyqDON5
z8ElkXqi4lU>uol<usXTuS^>DJ9p7CTls@1vx`_DKni>~~dYzy?1PFtc!3$x&B2;{j
zY*cE!ut4x8^fIM@;Za@DV)hI+&02?NPH21TzSrMW?8)ekZXD_6h36RFxi!d6cy!iA
z*l;(x7u7`wqdicB=9ix5v&WBfh872qG`s**iCaCh(m1j`hr-Um-yDifNIM?I;to}k
z;ti{aDITXJ1-^-MZ0^L-U`B!M-Yn}@7V=iyAxnutho@P$t^kIc6#Ytu9Gt<eF-&J<
zx(QMci-(v&cG0%EODxOyOEKGHME|fA+7NhCn<sIIeXNWl+0yn0YS7}NM#Hn`&u;+N
zw(r|UJ4Fdby@!tOA#paWysNRX@k5WlCLlR{)S`RMOihb%IuL{iN31<@9O^_w?d$mX
z^>9V+`YUs+2OY5tf=%NQP74{g=j>j!2FK<IhK%F7Y{cVtTJabog)SpQ!*_W6Kr0w#
z$YE!q`Z!z#EFl12$MUq`ueNM*|3g6vv;clU+$lzD__fm1f>-F7Gfpv%R!K`wp8<$(
z9_d5i<;}7!P@yqSNujP~PTgQ=^{5NlD6O%;9`u)8q0QEsFW|92V{j#P;jwmwcoLMN
zwzda+0wrURtf(l^J!T}uH5#(8uv|fFTVb7!jL$om5QzVWJk{>>l$c2-89BMn*s^X&
zyL%-Zc2!nZUQB4*CE*~1xe33>>cDt_mUb!NqqXUR<n%x*RGNowZu3H?4jj0%V|z{;
z_5)f#loU8i^sc^(*<qBD!m_zUkdKcJPg(g450yDk+~PDT&uVW%Lc%JS%`#mW;VWT_
z;{FW4^#g)}JJIIdCU^*Y=0M(#9Xnjn=Q$NqFU&oNjnE;IXPxxr#<<nFGiSuFy>GgR
z8w68VQBgS&Q@{V{QCid&a`+r0kQqqF+6M&`U~4M3jL0=Lod%qe#^2s4j9iC;^DWz&
zhme?kJ3XE~TMde!xu9d2o}TV`o#M)|z)^I6uH#W%yF@Hw)kAmwfg;pQpoUMh7M=(I
z>I}Yn{8;P2(*qEIp9crG^xI#8yhP8f^-YgEN%Go#(jJ@&+D~x>rneBas^)~-Yd0}8
z^tkPZvx~yz)2CB0E%kMEqge1aX=!vY$*!*P|HZ}0`5CluZ<mhalxnOByB40tWh&_f
zjgZ@#w0YgSlecfbYnhQ}*||`?SFkJmL<x$uZ1~07j>`GBI!w=?Y@3e@yBAS`J<eV~
z7PwEwr+$}ubN9EB)b!2NZ>DV-lgwB21cFl_Ekf$KD-2iUaXg-I51c4&pc=6|BmM_t
zZvu_w+P;lHi3$x!k&t9cGDU-k3<+h*P-cpR%w$NU5-RFRX)=>3M45+@3TYsO5M|1g
zp$Lipak2ONe}BJkt#5s;cdfU*cRlXszVGWCj^j9w^Jb)=;qZ>~R=Nx20SoPtb2WdY
zyUfGXRQl&)YHjZ?Uc5-LHI4;-KDOBz4rU|;!5H!)AbnOqAWo$d>l^H(GYfk;2uQ_D
z90eRO2T+eWcQS|?5fS0;GxUD%$V<HCZDmfpg}GU_f(%j&mjclv7&tqNYw;dYV5Fya
zIr~X)VAXKCn=xcgO@mPk-g?68&<d1{A8l*CPs7zz;7`R{_WQ^1&O&>^P+ll%u5DHd
zvVb_IlqqWVA3&to8RJb91s@+7*vi%Rv;Sets<SOBiJ3e(p`znH`;2D=Y4t$Ng#f0n
zI3a0CUJKlhWve+?=&+Jgv_(#i3xi@bl!(Yk(&j6m1$CF<x-DuN3O(^-vBeryCqM$w
zOtr~{^4d6=$Y7!CXoW%1$5%qC@j`xnS_>Yg{`<AHuV1|}Esyt-Ja!ri?)s-5_FHMg
zJx_jr9lq+fOE<QQpMtvxo@L-^peO7Q07AYbcth;=LMVZZ+Rpxb*IeMT1%P5U?k2<$
zmO#bZ_YwAa^PWA03mC|S7Kb06`)-K+Ur-Rum<z!)=TR7*UEawd=)?lK<c_B3hKW}v
zX?+KoCx??167__+=v+;@xFD(rM;Vuyxf=a0$F*gcjl;yw@U7d*RKCs7K=*i~7TJAv
zN*s-#u#%qN^0g&VLff_}si+`4Nn;MTqo)9f7DWM5JCVl`dIR!KIBWUyaBSR|?f1vC
z&9!Db0wRUt(3-ajc?MV@J?(x4fTl2Wh3$;jl5K{WLz65WfPJ6U9QP^xQfC)f6=R!g
zgz7O<ixiWju%z<+Q&?u(@73X{vy}=<|5Na~dM)Uht#S5J9GgSqvnmv|wV4!^l>Q2E
z^E!RB%MH8fZqoIvpf<=RE-vn%hK3TXY#+Hu?b=oRw;kVr5#wHFVJW}8KiXWT|Dt)~
z#0d%oiLULmu0eAB5(->uAIuEq0UV*D;1CRqbvd;ct;3K?0mLgyp6V~>giRLkFE_hN
zanGTnl+*mgO=4v1?;=j2GlC$Qk&zL$lhLO%+E9n(hB<0B*glaDF5)~c&Q4xk98xPH
zh{~lued?5pucMz|DchF*`zO>!L*s*~R2G7_;!0IiR8lfCmr($@@u0$oo?RJ0E6BlF
zyWfiU-vwdporVI(tJ>jaNPbcp?NImNeLfDo3D;}j2(%PufM~zJkHJS{6bP{;^sr$~
zujXnxqP6p$oSfXq!QtcHK@x+qGM^YiV71AgO?f|gc>TAiu^@!Dopx=~WTJhr&yNEg
zMwpe7|BJb9vqPhweXSij%DCW3D+916ycc<gWW=MWBp}Ei`njqC6EQ$*Brx3Y^3^Mk
zy#`FQB4#D*s6bvrdI90svgED<3Cx%)rl(jSSh1aTxbi9x;|9mSlz3~R87<}bpw<0Z
zjD92T+@%=y#VGBKK@^w8W^gCdjgD<%VyX~DhQI#YQIDZ#=1rT{WEc!ic;QuOkG6Mm
z`W)kJBC{=&7sL_)Qh<GSVK8$@st{lMbHDuU7KhiUJqXa1n3&iJ_0HI-O%d(IXO>dH
z_S7Ye{ZIHNB@a*azu=n{NN8o9e#6b#OVJ#W`Of-b^&}QBLlu~cc(6~XyStl0K|R-=
zaCEUTt@4W(Lf;UZm$x2}OI3CCeof8Qz>u|#jTzCibc-^ZUVmo;_rN_6JDf+7S%OJn
zRX7o4InGT&6j3az%Bljesfy{a@tD=YgTcmb5J8l19`5M!q|4${n?h!Df!^dRz~Zph
zBS((7pg8WrfUPv%7^byr>o-4f5@*-e*T3}bo7Gu>KcKyqLko2YNz25eQ6Cvm$jqmo
zpZvbmsIIlSIT&vo<-51WB^>lwh>R+LUR{Jxa`{Nf&#?M2sPo%^gR_;y08qjYUA_P)
zG5R2M5kLty_cBy!B*ef7W*OMAE6`I-2pN#d9i{vp<XYP&om%(NTXgWLu`n<&ID?QT
zh4F4~ly6|atl&M9(+kYdINWH5`@@_Z7TgXT-eKWsjNhx8WhSGaJ`s|f<+8Wj7iR9?
z0M;&}C?7cR4gCfq9^?5tckVF0U$ttLij@^FRN5}&55X~#pv|O^o9)-~S3GuX!?~aL
zJ1j60GKB!%wyMs0vTp~bog&|J9J(XEgj_vT@)z*L<IBppVe)hor8>S(>+pfo3ax9V
zfGJ9#afa`5LcIiNR4+JskG|gM)QKst3&7X$e^+oPCT8gu@g1Gyq5E+yHw%|th^wbv
z$$VokpV|vB>e?Vjdf0Igpb7!W1qN~h+griHnw#mXe)*I}CQQGA;17y`tC*l-3|mLL
zgvw`$DI;Kdx3@nmQ@q|b%chTN4s6;^`Y=Vf^DpiQaQbq!Mzr{?{S{4Cl@m5L-^%{{
zs0f#ztEw?RVI$9YxZ7zFi#}747?4=sk2+adr<)_0{2o0G*B?42ItDcSP~uSn64GwY
zi24>^n%o#a@%vpZp)A1U^!C~q2p@S~XP2v;`gwrUFZ*>k*WMsdh1}s<s5dcJZ5@(S
zShxWmU~cxAMj5Z+@-o~Ld@c@s@7=p0;M*9(pjZ+WEgq6=vFbk!WtyX4dV6LkaYB%Q
z?^Rah)orW{CY~+UQy9M>RZiBIU5hbcLTmC}?GU}GW6%NR(xkY!CGzvLPZ9>63PLV+
z{mz|W3>RfpuI1nu&=nc3&MyBv{aYSw5$9gdl?bj;VIfzqz67^NaMxqU`!!_k>UaeA
zGoA2Xx%iGU$Wr;rPe|?&cAxN(1E_>npLbJgR+cJCAR}YrID>R%7M4K#3{{n^HqdJA
z>JNMS`f8}1`ogz@LqhiJ>))zzL$5eA;q^Y*AYB4ZL031)a|0*`lB{fNE5y5H3)gmY
z-@%T|tj_fPi;>vx9`Mqq#~urMv{(fMgQRzXy^_?<ou0cN>ZV@5cP|t=Vud*EDh^c@
zl}pAy@dq}mQAIXpVtnp%4{erWoC4+|nvVCY+uEjdjiKjcTEG62eRzA*lzw27RW=Vm
zohC~t-kGPRQ43+T9mbSv;U{-VJqf3Y2KgiaKVeEnmY26Bs>AX8pHQZ{X%Z(84cxuk
z>~g<#SKlP?IEqZ%0qc;8b1LWeimYeE4HC&-#VyN@S%vSO_4z-cf!Qo2)i9WSy>FJc
z9GKf^xc}@@Vo#EMQXkbpa0;;!bp~_Vg^%P4`%7XB+J#ZnMm+FRSzgD?>>VSw=i|P(
z8c#;$hA5Cj4=~fH>Su%A%NblS`rG2j_@8S)62FPq3P2ErRY~U*2#n+CMoXDC6jmhD
zf0+zvM<Zb#q=*~bjbXMCxi*g`)Ak?Zb9fUiVUf^W=$7oTS8OeFb*f)6ov&i#@cQ7C
z<hM3E;D60Pk^A9meC${V^72)7i5G)oV6JOxwZWZ6_ND3xAIow#Ow}vsrfR?k@G?dZ
z?*I`zjx%*`BHi2)ylu{_{n0;-0`qfo*Aen}>sD0z;?S!}U@}Fs5)T{WVoTu)qM)R7
zp=%PtOQ%apxKLJYWZ<*q-I=Dxk8dI7^k*^Fj~Hz$rmU*mz3)lO(9;d~iX$c0-tZ^i
zJ0s&#xkZ3(>Pte)*Y}_3-_m*)w<|ww_UHIG3JV$q6BAA}xWgYg)u>EtY=VCV1y<0I
z%YeflVH0q67ArxxiVZaS?{$r-Bu(Tf{C&Pf`~K)3T?$Jgk+Xn|!d_<ZsWq4S?!r*<
zuwHh0eg7y%!7QL=i4I!0a%W|omuQNc5^(Wg0?1Hm$<((ik_QebcXOyw2~?8i*5Y_x
zNE|m250nN5vRuL^r8!n1<XylkF*6)wgYr}S?jZ!XNmpeu&u^+ZN^|-&v(FWL$LpJw
z#7|URH}gF-&K>TbM!f&qy!)b}=5+U=(n1Xa*n$S+58~cR;#|0;kdW3xZG~h^r{G7?
zV65)6iiQO_<j-7Dk3Ep_c+=xe01{MUD{(X?t|Aj3IkFaqOXuj(VBi3x2wFV1CtM?i
z6mZ8jZ`raGi99M#1sL`#WUK3U@3x%UNO7_wHC<-8#i$kEGxpuiJU~|lKR!UhQdUu^
zW?4hW9WI%sudhD^*~h@tJV|rNn3Mn*qilfZ0Q_f}iMzxs{<9*u)qp&Mm2g)kaK-yX
zQCwRcU9-GWp*pJy=Wb^TCXB}%6#ypU9SD14l4r~_u!#r`FmC$myL!UCdmLwhpxwbN
z-_Wg+IU9I9;$l_y?=PpT#OuWgA$uv)Iy#2%oOJXduCsoqzovlD#p($!p`2-RSq_oe
zMa+e(eq^JNN!Aj`&2u73NUcj3k3rg*6QayIXBJ`lU+=Ap>Eh@5;rr~IdQA@s2V`_{
zyj{n>AvK6P+1h~iALy}t0EH^CoFRmJa^s8g@^W_hbFzq2&A)G(eA5a1jY`#H_AjQ7
z-TBTeL8R+UO^$wniE+++Q}oSn&6)dJtwb{E#NJ`~<AtGy8q7EHfxH1FPo67`7Xr-?
zf9`{=lwwws5)&;5(ftW^zdj#FNnhBwT3Ap}HILQ_haoLJ-87nQ!-lQC67f7MU|C!l
z%)AA~*p;Fp85ALk33WV@k}SB;znM9AODYnyW>Jrwne{_p;R=hHub8RY67DtbOoH}b
zT|j}YZqO5yu&rR8*oOAx#@ogPZoh1GNbsBnl@F7hyz=s!z!+;*qJtzADWZwu<Zj@S
z?e|Vfanu38LlrNk+A!H72%!k*vLtU;{s()vte}DBlbMUF-9B9H{JVsDn&A(@?w&zH
z2;}|q({vXQNUJ<ZOJX05<cg?V%DIY}j(6dp=>Vfe;6gFV14a?AD*}bJYh+b8_(~E`
zaGW>E;5NsiutB1FiSgAFPWL~ywGB<SA!dpl7{3CcMq*M@p_HJ2K+v9T1NE|Lou{Ae
zure&&kNnT+BvhhIK*K5zm})=A4<CczzCdaO@{1sY^jkoA2Wo%`BcB=e=d{z@n1^pn
z^D}>W4h{~{-Fcvb$^5{hjrY9A%QpA<LcGg>UJ}rY=<c1u!VJ&gG}ZF+_KcK`2`Qpy
zA1rqESfJ9;byx`n-GZrhZxz7W-Ot(yStQ)NIlk;G;9xoRAD{IN4Y!DitwAMqgFpKE
zb*B8jH{L8pOtknuoAGSXJw%;5rz?Dms9n&~j?|r7t~|F0kjL+{fRcrj$c{z*4>iRq
z9mD`ZVeb7I6F2u4jXLHV@&GeQr*|ULEGzP_<mvc1w9YYlzIl0h-yqUpqAgEaD}~8c
zVrwL#_7<{Gf`s*Wqf3Cy$1J?>ELiYLG(+T_1HxJk(`6x{73j3sWxd23>~e=Bm?oBG
z@q3NH>0DD|uGRngce_KrAhZ+n6-nq~5W?=4=Lj1ifFeFj0oB-hwvds5;RP@lXDs=t
z&N)TTJS~X6E@S<Wei5*pCQD{IRv<vLvuDvKCSa5i%|75eRJI3PT_sVCSck`zl(c2!
zEkiB<avBVeN}ofZ5|n_C91^&x@e}vlH^c5zS==#2#lQp)TkwUgAGH;j`PO9C=%hEA
z$*+A|bJ2(GOa;Gx5}3j|TWxdmkwNX?63yiL{Y<pM@m12Aj_IkX<(Rs;h6tjVq)XVV
zNE26jU^$(GwMbq_5SHTXXTdWYo&uNj;f~zh0YapuwuAQU{w*{fx`<3lPB(_}sS#C^
zfq_AOmKt6j;F#8f9*h(W(kMYAYwU(O(O?W$;#fT_C}79phJmpuywQYN2Gf%BvVL8L
zK@F|brrQw_7ePV&!$i?8UtTO7xt#;=T<}aR3Os^pPI#~@H!!}nd2*!q(gOOe+~D*;
z)|&-EyU0Q#2rvMsLo1}PoLr~T#OLqra(yINPNE;Mb#w#{K1o-(jE>F{PHCmlZTt-G
z-27gsVoKI6pAObd{gtv+=7tHdFxvf{Gl>Bw=4(Fy13Z+Z>jDfg+wfe=yl5pyBp<!N
zO?ohArjsA6tuA(3Jv(8RVemwlQvoduDm1#-lZG23Z{7Ne*AFqZL}bh>XX`OoPd*yq
zf<_|<tq5!fYI_=20jw-QM)vc})%i1EmpN7j@jYLsys?j~YgGcR*sdSn|3s)Kwf1x<
zm+pTbr5|$kFu@=hj$+VaW2Cmi&rcj|Ds?yB0=?L;p>d_&x<WmPT3mc2t4r---o+m%
zzf7agz_JqE)Bf8{&M1P2t5&O9&)km~6tKwf@rjAFK#o93Yp3c#HKTg=tSq9OwclAo
z=WD;^NHsFwUVT&8FVFUS-&>oXbZ5Q^jMGhaCMmq;265kfA(H0SE}u~&P~>xk0yjhS
zPjv5^O<g_$F|f9QK@eIJh>iei@(2hl!x)`Q+QUeV<Hr+>W9m_;V(5pcMJDb5ctis;
zFz&0RtV|oBZk^@#J3KU05s>rcR=+4;i#1=$GBPtoJB?W(XWP8MhW<<FRRfzMSpwP!
zY7r=T9Ia_-&?1}sXPJR)bA_#AWd*gsvwiz2I7H;UMj-C1GugvZ!f=TOh4f1x_`b5L
zOtiBDhR>)OV&crx%l{=TOTeds5mQxcvJkH-%4XJyJp~ycN&&PSn^!0%Hx480kWQ$s
zxmn2m+s6}<7%_P-T!Hz7P7G#My?ZxYHw8Y77Y6!yUcpuJzfgT<XETF`dJaSNtEf>A
zQZJ&$?}WX}3y6Zk@s@vKSX3@l9Y>r<C0yw^)tq-1bW$iYp5Nds)gGimvb_O?g)-dB
z@M?Wb(Eq{x3k~@S2qa+;SS%Zoh#m(<EysjILaOF}sR#bX`}Pv6j%3a@qify|_6bU(
z%c#KDkdY6ki=<j4wA+)Gt6(Hx{Z7CUbn8f(LKetb1#QNY&_RNrC=j7<L}?uJc9?!Y
z6DcZ?JZT6%20?>a)@8-G0E2WDBz1(R_8&cJ%6{QP^j{#{u>{ml34ry}SO2*_e{nd*
zP@tXXCeAKrF>C~(4qezL`7omG<@%>N&;LhtP)qmOb8K06Dee6#wqHJSn9Jqdz6N3U
zM3!>yO+I=$Iy%u0P*n(R-+n78bQhA9QO2jSCml!dfbqtS`N&2AuRM78unLgBELm>m
zX|a~ICH{X0&6iLx8zh1|(dRA#82Z_t_L0YcOrd#Q26^ENjLY|+Xdu6;LO{_gXO{YB
zq9x?0u-na`jCX6d_c$MPI8lyJ{J{w3)kXTX;_#I}cAOA@Xu^!$pi{H9uO|u`PPo-2
z?ZGUIA}9utF(zh@R|&LEkZ$3y6?6T>IL#6YX7pQo?f@x2j+G{uOdjRqB<Y1Wo*Tnd
zVHfe^e_Zl8$3n-VMs-FjI*YE{lw00+QUs+7X=#u778ZTJ7bllc_x;tu2iNdmP~8d%
z3lF%~=T8Du&r%oQjTsdx-;2>cBF}{Z>0TVR<l{q;?(X?50e|1_{t&zXpWfg^blq|{
zy=kz;>ikS84290zZ9A=nQWs<u0Ca?{oR{(7sU&|Z((Zo_|5!*S-OHQoFqn&dFGY_Q
zzu=i@6jG0j^H<{oDlwBL!}SDHRFvmi!eu}9w}_&tX+9plgrL4dYP%O+L1mz}03@M(
zBK;X~IVgIGMiy_Sz?swzuvto2wG&>cLA{8iU4bz=mT<xCJcPJlS5pn-;lXo+XJ;k0
zMno~xvog>@Cohh6=`D13!unZ5$F-Cj&hvOXb5WtyB`6xy)C?5o4|2advn#pX26i36
z55u5OaC|WOgh#NhL5#S_vjR2pZt|{n_w+2Gpq#!Q5z+ni2(MwYnCh1CT}Bz}Ij%ia
z5)+SCK-T<U$c<c4_wA~6eZN1T4sAEv|2-2qGx_i*B=M$A7gBbCao7bk+|AnzEDDAP
zdnUYqLSfW^z&Vk9;0)K|-J0+@)PCyp=}SVPXv91n)K%xS(i>%{qaY4*W}|tgA(*W`
zr&!s98`1XT>#$B>lPJne2+eT2MDge`Uv+7ZTkq~Le>C}bb~$l_@sx?mYP8FS8r;OS
znm;;7Q53p@S<s8DRkPd6p_qcAI2hMJKyL|&8<A{ORgme0(`o*qYfHLU0aL&ua?!h)
z-e`w@$`b1yNq88dR{|hTxaGmeAr@MMbA?gO#5rvWfFS4YD(1-Em7Keo2)laoQNxx)
zqm!o(je36A*0ctz2A9D{@g)=xSBrlXF-DqtZpbW~u_LWcFyJA)WZFlLTp(5&Qy={2
zE?~qC(Gybz1UMi-pcKcoU5a2d<GJD4#2yW=%(Fn<HTN2-s;VAGQ%tZ>RQzYzH#6&O
zocxfa0N!g1-VGkR3&CLMAY0|+NFvx-kjg<o0^%0qYEz1%e)FUr;24aep;`nSjj)1v
zhT1)Ng&8XFEO6G?4#Y)VOKIuoz5>a3g?(wycbUq+VlW#we1uflJIFw2V7QXbVwiZu
zvkjufQOKYzF=0^3x`B?tV3dkUV^TKrL4$UoUQNi{icYLB9bldL*)f%HO-+0>`JU|9
zk|&ZaB_+kPWlKdyA&w$3XN=r3bE(np6>O3(q@|@fRssz<6tj;D(eK9g^$fC)I)_`2
zmbc1fnfq_pxbX_HCLu*CGbiU&qCUVJ-F_XN8~K|sqZQm{q4mS;d$&DsS;ET?4Go!v
zUJahvqQhF()^;^5O&FZmW^_f<)6+u0{gKK$_|Am1@vE_v{he&(HjIXWEqSGL_+yB~
zN-|#%wG?J{uVLxOnVF-&hd_#ur**SfS$ViB?^Tz+q3Na2PzJ)@dqH@31N9#~tG@yq
zcK_@_#U=S@q2?v3=@o&s3FmGhJit+QBS`wf9a7BRm%v2~#Mn#T^-1y<y^)2>i_6Zg
zOWFg~3PPVEQe;yX;y+58GkXMLGh#Iy5heKf>5vDZZcqib0CGR@!Ugnot8$ID`>uox
z<=UgYDPX_|w}NS>r3bFEpT{K;>KnTM+dnOl6jB&b|MT&wxo*8n1>6K2_vq^s5R<ui
zc?6rr=|K8dK>&j^SI5}6)&72h&OGiC+O6v`G2w_Rn5AMv5^?+;>j5{CY~!Ce>Rs&$
zpIro9L{`u&NK_u$<CQyj@Sp;E0t_v`0X3n+R$>qeRtV1-y!@)z(-&@|p@ACv5Sn?U
z!sZ-nM((qt`%Uof7eHA)h9pt*$&e(m2OF*(ASc4{9mtieM{>V|g~Sh1X^|}&<eThr
z(X9_8<6}u`!3*ZT`yq-5<msz$1N-#X3gRVG(<o!N_Nb<{*hzt=*EuzG*PcBaKq}_E
zLh%0avmnrrRfX`3xN0;k6=?n>;3BYcgCs3Lg61NRZI2AL;dOw=cQB|AB8vwFz7u|&
zS8+u@AIUK@>xki@1-3YN+B>3afT$;4!Qx2^=U+EQMn)_sx`x_5AwHf45BJay>Ic$I
zW0_BVw<raS8^}6KNG@_Rk3gs6nfsVe&2j!q8Pg@j^VoYZQIPED;2=WUk`NSFvVA(_
zVu{Wc^T!^u->zP{qJ**~AkUP3mqT*^q`Q01rIHj%nsER*mbpgRu%j`-s#=sfqob(+
zZgtL}7C9>!8BBBemDPTrgOF8`hx?CC8Oay&?5|<n-E5cvcLABteJulU?bnLS*4t!s
zQ}rATS1<<h*w6cB7+e9_ZGo8)(=Z(&R@5r5_#;hdE-8Lm9gebWN%)tzGegbif&Z-J
zkXm8xH?a;1J|uk|GqW%>K!ihL-|4^(LSZl7*>(vnl(TccpQ!@+AxeR>;GftfPprU9
z$-vlJQc%3dv{ZrIE*Y86S8g!rnAhpgw*hRK{J{V01XR#i?-belK+bnP8UslcT0GkV
zX(y<&a|HD-T(}?sLI&IND3GMTLenhnHEOYP5y2wNEP3DpXF`Aws3tE(o$5__jxys4
z!t@@lBk7GO4rI!vdpD9U2i<f9#6?lB;RM))-82=zJRaj7LqM_w*mStyX1p~zY~=Le
z6$j8)DEk{A=xv1f@m=V@ko$&WG`QEQFhijAxg&1}dIQIdR>-ziZrph&C^!J_%3o23
zi+<RM#I&-`T@+9Q1b!<R7!(2dL%V<M2FiiUUJ=m8PfEIWSBX}>tgKv0K?m2^a|bU?
z9GW9kg5!LgS>S(P!#ZsgFnvN%5eLwyI}*p25&YwH&k-f1rG%G4o+dw!h@xR#PY4q-
zp3?_JZ0JkrM$804GevFy0Ww54HnlqJB&8;~kNEb3xB4`c{cZ|{R@KxH?h)q%F~Da+
zgEDa#DTfrN1l=u=J%dyxsoanYt`8(+EYNIJV|ZnT$A52S_SOQ`p>bc7ITt9~rNBTM
z@K*`=BlrY}r=AnM76ci(>Kg6~#ToO^Iauzz5AvXtlbQSnQc?n!93JD$HEJLJ?SNNh
zlD7K7U>dgW2BU~eK<iFO1@}YN*8C`~PzGJZ56NG8>;57VjrGgJqLttvlk2(3f+4TY
z^UG!AD(+ILfkb(RPM?c=gz$cliIKrnbcPn7qli=sl;P?OgVwKQ#MJyN^71Q!rf7y2
zD=kQYeR|4*OVrXE0S5vj`_dFQwGLfgq?r#r)&tsH7JdtGq0Oa|i*yoV2|wNb5yZYS
zGw(tpLmn1zMqk-J7(jCYM&Gj`!46@RNa8U22q%fP3veKo{O+=VSxZ}a@tWFxcQO;i
zzOrofB@;aplee@^yM`LCDH#7@xLMuZ6+C+ZITwf71<ziz5^5q6f-&-z^LiX6l!br)
z_7X{Fany@TcnD<anCj`nD3)<^m|>=%A<}M1Cq^d;s=TV7wA$!Sv4rub2YU{ph1;JK
zDXJR+utahdMI7#!5YV^vUshsO0Yc6IjEauZhC3ZC8!<#GJDjkMkP7<Gc5Nc&zu!o=
zhwfzzd#AqQ8b;jBfDR$*LUTicSP2@xDGV|a<sQ*9Bx}XI#^QuVOKc$H27`~gc!o?q
z0TDP_>LU#t5ESj-)&J`3P|&}(uQuf!Fvf*Sz^hRfTXLeztYV-zgf;$GEcsD6a^&V3
z-o!E<US1kVmTqs^@3I*xpBEr#t;5oWb4Fon*$HIw$MrV40Mz!fKi}>EHoj9cT6U|i
zEQGc@pp!(L)6cIq?Tq9bg{QagR>^rZl@}11fzGA0y6oS-|Bkf%Z7nJaiH0-Y5uK)s
zvIn>_Djs^Un;EqcQ1v@fr&y5P39(3S9XV_;|Le)PQ<{kumy|+FC<N6PE$n8&%c#Ia
zi%M(rzJ1&P-Bptti~pzkj~O626YUbfbg!|{c6E|&2!89C5|OiOE<gV<<+Eso+QEa*
zVJH^$8lw;}{~@;*bI4<p^@8#HVjn(S1~J2MU1U6dBn`^79e)ILBgw=e>4C`^_G}}o
zOU`2b2qc*|q`A=|U6!9+0*N1pg4?%lSwd%uvipWKWVZu%p*SpZmwp4w@@@n9&(Y(F
z><^O#<=fYx$Ri^}5ZG{WZ{y>m#cz&2wPnVEJ#h^vHBGoGy%|OUVVbZS;Vn=%6(bB4
z;6I!Z`7!K(YC?AO`O+zP&RO?ccW(zHK|>KS&RdBu`(sR2jml|$z!1`muU-hF5ag|(
zKphfLpN$kk`94~Nh5_)wr~gO|v4p`t%Sl&3dG0HW=bTfM+i-)%@Rn4wGf#K`6W$L<
z#mskD+62Z)>^p2$!mlw5<`rMDgK#OzyfN?~Z=&&{;Da^+)^Q21gw@t+C?3v)i@Fiz
zE&(iJW1lCD2vPYwe3F9l3&#C2OOdC|rr)R4*@`145i!M4Y%;**24l+GV(i<iJG))1
zvVLt9;EjLYRVQGtU>rD(^<w3uD@1id<c?Inm0(ffG#+J8I<pqf0=g9n1wnu0V_Q(r
zGS!6HOiz=jou@fS7(qYUMGOiTs6$Es%F@qL4{;w{R@xSynCMTAnKCe0{jV0_HAel2
zDkt*WmiXtSW`IVvs>d5oQi_myzeg&%_X3|L8;D2mcg(&%DS=)GYVwag-k5%U4)ic!
z>yd|5OfY=zfS3|u5~8@jq__m71ZI!Swq<6UAO1Q(pO4DAWv3MUcN9^J0{`Ed`Q=OP
zAtqW|se7w^b5X<;R@isU=p)(Oym{lngQ1M#p>^O!z+zE8zn`2#K4{LhXM>C=w$YB{
zcF2bc>iev-UT{g-YDez%Z57MfDk9=uBnNyA?~^FnB(6;Y!1fRuveE2U7N9{{hu{R5
zxwQ4e7@{9^SW(=NAb!2fFs?DFejPKXGdEG&<o9BX_8U6i7l2KXki3uhn|BczLF@g;
z#Nd+vrKOxYs#LzO<PZ7J{oDi~e_6bc6>!ahp`03+khnYAHPc;EtQ%=MV-AU3;lpB=
zIs2~kCUp#Kf<pjCG<^M~9!e}t%>(d87z#1d+R1R**4DZBbKYLG@q|0ULGY0k+_`f-
z9(;)r%d<zP%GPM}*v;>FFa72B!g#AgfAvV*IrC4AwY8Mk?P`DUT6Dsk;SA@FyN9L_
zaK~VuVuh1>G}rD{y~!Ve1ML$BbId>6?YwV^V)hCt1^?f4oz)3zPGT_IFtU^ZQlIy$
zKU}Gbd75QAl0|xj$u_|D<I=y5GhB-AnEzv9dnEb?+MnvV85rWz5O9aIWUDL5C^1mT
zZ@9{rS^j_Rk9B>&f{^H)>axilQy~jd`8vU=w3!@K)+pHuyVPI&42cg0Ie|l90c8uC
zhwIzdYt8&+3<Rsa%uC{)`Jua#bf6|+1<%I0k&EjZy7mVnhJDzb$ojqD^&bNKw48IA
zx{?{X!#BPoCg-ugcpAjykWYn^@o3Nj3mFI+fUlTgr%>=-RAx)ui~4(M<i`cmKTjB;
zTb~nMK?92gtfG`6qHi+(JAm;stm+^TLcGv7Vv6Ztw44k)dchJc8|Ky|Edn~TnBO0N
z4pX|ta`{O~uTbQA$H-@m;3Y%Tkx>si94#g3N+EZ7!@<bRT<bYu2~mDzb^9c0dW^`I
zabNR@6jamMbF&LQD-Zz;vTH_eOy0`M0Mg15;p5N`7G|B8rjc!4!}LdWSS3z>mLl@e
zu;a)P1+(KdP}Tfr_8GfK`*u5y*tfJ_emJ>~sn47y)*w9_4riL%Y=1+Z_2!K_Nurq7
zE=D`@3e4SA*c!znLt%X>5xEd(aM%qQOc+I>jNDFy4%I6Ry#7|tlpAjDIC`E}K;U&k
z;p~Rr@{{S3d};%~?P0I-dAJY}`}S$SzP>)PX&TiG8>fA)kxTvIU6yFW@4%!^WbBtT
zGUd+u*KWo7U4LaYmLj~PmOila*WWn5C8|zSNYW-g9rmYAm4hreVc&!ojL6m^`{)A+
zOWM+81VI->?`ZkX<68hOhx`%3FDrb0*h|r-S+ODe2U+xVycm`$ppCXK8G({_*0FU}
z{@M~0`D?h(O<A^xUUR_QBv8RXY@9f7`%gaPhOu2Erl%!$p!O-jzDbPg!{Gu7UnUBV
ztSl!*``EFTp1-Zn*wggVxPLR8!r%#HZZ2>b-YuF6`-zR1&n4jp5)mlh366*Ta5M&)
zCN0CyD&Un>+avM6CxAQa1azOxG-ge4%xwN=78r}ve#0MZCHU1gb$6{O8U4Jb5xlY<
zsfx{ZxmMV&LteEts!ub<{xdEt3e~|_O3uDoG~;`O6}PWvgfuft&U3LnG>OJIL!VdH
zL>^k2{9gDiE3v*ZGqy*k!)2t8qnJ6N+1yl6XFD{pmR;Gk9x7TzInYAMg@t=Mv#i#j
zGW5-C-OfQKrGdJA#RSmE<MVd}5pBmvp@8<r3#CM<=QGo6!Bgk+cGO0l>bRfuw}l2@
ziIS3<+MlDC1jLF`^eA@t?SGFOw_XlMIbj9$j;1*Wjwd69@E2o#YjrwyV7xOw&5JBr
zs_Erd{sIa;2#2^x`oo;>$5vt;{;4+z){euq??ZxVAdfx((2*$9iJ*pT*BOO|pcBfX
zQcqrV?=LdE<ApqpuYU`HoDmIIv8)s15R%FuAsYM(qdNVtnLbuqXcU2T3-ATPtzv&t
z!0XosB1b@2(vy;mlxwhx=z>W=pkmx}C>4esz2qJu*W+YRo;ehFmQ8N@{P}k%FfC^j
z8)GxGFa2#80-z{_pP7FD=FJOa+KU*Ed5$sXXuUkah~c5Te>1-c#6M?(kc@0wPuhcH
zL3Vl^g7&EilPaeBjEPU!8E>mkM~H#CRxis9e;K#lmBi-}*h3uJ!i6C%X3RKLy?_52
z={gV;PfL2JZ2w--lSu=KYBznJ_FpU2w#N5mhhMz|U~=XORYyTDM0ZUrBkjb?MMok1
ze8J2>I$nzNICbALi+{Yp+f6ijgfPB+n@ltSfFtxh7I21PJea7g!aji$;)K#0{j;>R
zG=_&u&qVjok;0Ag7`~U9;jLZjYHBVKKbM}~q)TRsD9G)Gm%aao0{AMn)ev6+0urMp
z;L2~kS=A@#IvmnBd0GI75nRq#kXwAiUkkG`%*y+o;ohY0G4DU?x1;*d&V$a^Rn8|4
zu_Oix(a<boV!ffVbtXMUk2N*4;OPoG<Fi6<thPGl1_u;8W{nFjurQ4k63ST-8q2eH
zv%<lE>nEt<JD$l;z4uTQ_!A{^v+3tpXL)s-+mFA8xG#%Ox4Fsp5nD1KBP`u16niQ7
zDnt2PG(B&s=2$vm(2l{W{a2D@!xjDzvgO4=ie4_l`v80mw&ocmRCd+D9RV9VAI1uJ
zZ*%=&u`kF0zL)5IbQ|?XnzOgWXu)SU&{fbY$&G(iG>{A8$b_ava!`i2%VA)K3Kek%
zX4Z4DJO~WU5$q3dDDtp3b$cgG9O2D?)Iva{@v+cIo`?gWcmDPJ*}R->x+_gT_V2(6
z2>7OXKh~Y?9PEWYaqx;*SuGMDf9msP4*LjNYsqd@>XVBa)iyKlFjkin8)YPUV&<IW
zb7%&Z|A2g=p=yn$$pU-;xz;IY0_gTNL;kEpZGgq<c&Q6T`VG3dBz)6##UHZ)WBA~G
zl6L=ItA2H5N&y^-zXQZD#0*5}&|0`ZKEv#U4`9IyMtz^=Z5)r$CA{VjNFyK+*}2;A
z*MGW)ZMeO7m+jb;-Tdv#{?&yR&Wju9FzEgeJ~Hc@O=Mt8ge^C<;4rfgRE{KbVi${e
z$@(ug?>~HKf-)i%_}2H1`MEP88)KkDRYmXfge=X5VUSspS>f81fMbbub?BowX|PkP
zHtmz`%*NUqGcDOM<>$xIRb%N>QK6E(OVcJ8^+6-D$vJm~?4yA8pFDXO-v<zHI;<q<
zM_c=-R{dnh78?bRuGSOV<>X4!lu|u`{Sm`iVsc4f+;&Gph=s7XJQ-tM+3Nnc<K55R
zf8;I8-8<!tn3hf;U344S=kWdEahQTnCVoix!UmZ>4c0KH9#`CDtT71VX!?PHZ}(pG
zyF=4-`S2&ZSh!F|rgs~qjQNz#z+d%^3Bz{WAe>H-iQYHXE+FKIU7j`fN%kOkfa!f3
z*<vv6Q~KuJJLz5b1X7LNrgk2ydHeRnQsIl7^M^m(>5|sMf!y|#{@7tASkV5M&)R-?
zbmk}iMpYHrk>-wP^^>icQM5n-1{r#IXZ5noO6?|MO0yDQz&?{$dxBNe!gDAj%a8Dy
ztlv8c$b;;BCia7Hcgl5W(M3Kx0;@sw*?_(Yp9ug2+u%12#8qtEHwRi@vV{QF8aM0v
z8-ODbdrStuHEN^rMZD!#v=0R4`_$laa5{Cnm!-Wz&USk9G}|tPx7^rGKbh7EYaY<c
zdBC|4Y_a~p$ZDuHK7s`|$;>7cMq%aUTP0>$FuAFhoPSma>vlj1@5a5D?j3}M_KnVr
zmV=|~#cb)#8dmao>6qRiw%O&zf5|=ya&PMIY;-KxPxhQT)1+A*9Q|aXAJsYGQ;M|?
z*FA@t<E~!4N>d5s^B0<_13+5#`x_yaoU21zuaQPv$eV%W)!s$94=PAS0$ZluBrG&m
zUHR8)Nb$H|U;KGbZgg%pyJSbUMqZ2uSDk{>mGr~EoQ~}~8obq3$_n4zirZ)4w1^l{
zq*!g*Z?dNVA4d$<bZVW#3QaPFHyE=d*Qdf&oHfP8I07})#P_-jK(Hyf6nc291^hH|
zE~g{@yqFeHA8L)=zZ54c<)y18CA4?KhioOq-sjktWulQ9_MaZ<*x1<AeoL(i3Mv2M
zKn}aQrlzRpkpX<MLA2P781Z3mI0|F53GKPl#CcBfC|E(#j@m(HPb`ZeKr-wsfNvhz
zX+j<d-l0eFLg#Ct>n+#iKjR0L##8*%i68BIg*?2wy1HuQc49x+i-R=j*pxCeIh>C7
z2g~7v_wF?gvJ?^!IDpzUQ+t*|iS6A?4D+-vVnTt~Vd6*?l+BK7;0q{lhpUpEn1tb@
z3I(VjkD2vKK*S((Znl6dN%xjTT8pgsstvw3wURw(bA@<dPPvgz6OcVunW$T?au@|=
zS-)Q3{=0{$BQ9OOyiG*pt;3%=6j4vYu`Wg5JO1-kT3F&K(8I-|;hFz@+Ulh%;1sx$
zc*?6EKCBNbdhFd8Xv)e$AZ~8EDsTsFRRUi4Nc$n+dKajjs~8zE+CfDVVlp6MmSu=t
zCc?jag(#E;<++ff^Dl>{v!*v~Ic6`%0tY;b!uAN5@1Zx>#{BmUtbcHJz>))0AliU9
z;k%O_8?k?M4~Y80%G<jnOgMlK>A}$!Bf{#9^4MYnF!NOHw<Q#wJ1Z-M9^cDLS(n!*
zXn$dP!;&Ob;s8iVv4(Is13WJJ*o>-uC;^DUC*m5w4MV!^>+@Spe`G^Jo-0lb#HQ(d
z$9DDH=~lb~DR>+8--Mo|P}IMf)0E5WY!o^_`0U$yX|@;zd~Sfz%VEz!WS6Zw3kRLR
zp@d$$rjKjBz@nw1&Vf4f7`qy9;=_if9%M82Qw-aJ;97Td_$=OhVwk6X@Sp|VTFP_R
zAWPOX6=S{oEGu$1lDC->yB>S!Zem%C-a`rKUTU4r{oDxh;V5@_eLt4k+^p={swW)J
zhe5Qsp0NiX#8;ZS*QpeJkH=Iz-Vpo`r_ef#jiT)v^(^~n?1|y&%8C~+3eE@XF1%Wl
z243hE58tiylI0$5c_JtzZ38C&Vi`<!^PV!n_KkZxPuqFRz5-{bjs4<$TX*d;6pc*R
z&00fA@hLOP?Gv=tuzQlWzFc|n7V`t^h``#z%xqM&t3C@@!S}ieK{g^L#(Y2mp<|u!
z2p+W>|C;w57H{(z*isyYVfupyk2dw^QezU0x^nQ%DYMX|<+L4t^5n_(tBFLrMz#qf
z=goJId4&!k_9NZ_(QHIGj(xS1l5#9`n}4T9?I%QPl<{!IZvyOT&AzN>4U=TxZ4%9l
ziriDN;v^B5#3s}G^97^WcL=hniRhYwqE6y)2k@j;ogB81HzG^RO?`)RXAp)%4=H1(
zBoeF|#C>Yo$Cps_R+-1=J+)r*Mt6=!R8$kUnEJl`smPBYUhR5X{`&*2g=G5@R`cb(
zEJKHXPsSsS?-W25?7(mnS0uKMcBMGd;9G7DMt%m~#G|aIjp;rt63v2a0)E5?;YHwD
z+z!rP7X=Dd#O-(^Nl{p(tqZ3$YF<Ms-5Wt6`Y*;#rHzMv2nY%iS8@cd)l>U(v|{$z
z_`>dykF0D9;K8z6^+SgmV1@oh7HdCW?++Gwj7i#qY^LryNv3NkOh;ptPsesY@{clN
z$yMliB3oVzpLOslzSKmrOc0%cbY$~#^--W8pB<1EjmW0JN2}@aC7#ds15LiWw#2j8
z6ft&%t};9ve~S4j#IIi=cUzD&Job55sH^jB&C+?*(sNT^m#0_Yswkbw*ikXioSl&8
z&|>9iWIzQ$_{4A-MQ>?eQ_2MYi4R(zsVQ`JY&G&pe%R<?vv=#(Y6rI59dYx^Ux7t2
z<^m1~<4btWLoWj!Z`;!iuCZlg*B!Cr-6}&#;W`^)WX_V8sC@d^&b3Rm{~V3(Y{$lo
z7SG+B)*Nt{vUiapAMu`zn>!Qhp66nS6(w;xMphMWNXC5EKyBQG2bw3>DX*YNUl8jb
z(0DO3&n0w9BYwStI6mzf4CN7f_^O9J?{9OzGV>K{M^5HJIQ?k#a(u7?1zYFQfEnWR
z+^0q@x#WEGRKqwC)bvp$tXsSGNaJQ2g(UHn3C*{j%vrB~uhqPM;;AG>PoQRP30ap&
z&^fg}b<v2Yt(o(o9bhByt<}Nh0zlAjw4_`D=~pAZvR6=%I>NT3cemm(FR$G{i<g~h
zOuGe>%_P4+ll|xz^|>^2u@Ro(Y0b<_UhVej-hy^VF@3)u1HH2|Py3vB4cZ1*_{}k{
z*|KGeeK)77ZF<$JEw}=*$NX;RUjWBaRxg9C{(QJ6UE|OJ*8+pf7g&%WU_xr(!LD%Q
zsN6+u8}?;xoSSPL^YK4J4|bshcv>S*r>#ynFxvQzR#8X4qhz=Il8rbe;(IpQUfQlr
z*gt(P8tsGU&Ydf)<S@J9bPWApDojCL3r&bQG~nR$f`Z+Mb3(|8)VIZa82H>_I82T<
z?qcfr{6V|>7%oFusfWveus{O7$m&{JSp(XXnmtjP8-g~6S5|PU9z>>tMY4qapSWIh
zd;ZUTN_GqK^1e94fB|UgO4X{dcVlo0^_Gohh^q0IJ{>#0T!r6ut8ais$dxNc-~h*m
zU2&x^+&CW_IXE~JvRN9PtJ#ADjcrUHQNu;txDkgT=>cGuV%IO3VO<Pbj}+8JEoV;y
z_JbUqyksc{An{zGmpqAE{^%iHz?-!ZCqqdciE3lPl^sCpfiTWvom11fp2$8KxDj+)
zuwWd&>~eqF*Ux0dPH4S7psKnJNe&IyZA*6G700EwQyM7yw{Z{;P%=>918d0%02<4O
z+yGFWLV03`DTv1}7CtEU^^TQWEUK59U;7-d&KqGZoq^H-@!Uj|Ej(+f!YY;q(<O-X
zX&3<2AjYp4y~13DNPcSu3idQy>Chvxa+#8%KU=ebHUHjDZEWMANsTydj_sR>!dTvN
zbVKBVZ7Pp#sPXoVw)z?V)Z0`XhID=Ph15U^7<eguHDH@<hKM&#h&9im8E{JWd#$n=
zbxzia%4f8Qjd1~_=s@OEpU#Tke%SSsKmT_AH7M_*dg#AkD}X6((e`@w3UO98wq%TT
ze1|?tA6C1pn>IOl*pj~)z_T?~^t4O0G4&~h5)p&H_Ua1THhKAHFZwp@bhtzMOsorR
z4oo3`n8GiyGU09Yv4M{?6zyCQtx-(so1!v6H_?b9@LdzWA235cHDurGH9eByrf6so
znu!bdUCwi84JQCPoI+twR%|p{lIX5bHO_BRQBm>kUB#^Zhv<&U4h!781`))>XOKCO
zeRBw0)c5>n$>T=(d@sD+tJI7%zX-fpWXB=W1Mx%0_Aiq4QCg&;C=`~LH-~oQ^E3Zv
z*ml+!xA3!a_4TTk&Yy6A%;5Y?ZrM(9uTtdjMT*)NR%wuZq-3csC_~mFMhEsFvJ0Ao
zI_yrZI~n8m5T&#&;wD+Uhu$+8ZV7twe}CO1PUK*kZK0|#xQro8c;NPI^LCy~YeCJe
zPBuPhAP&MrIrZ2*A_jl8@7r4J$RNT{awqVu$Zm&I(6yn0t0g7_#95sB)cLF8LbXRp
zI|M~Hz6X&@FT}MZj9Lb4v;V8XjairMd)O6CdkYT_gSwRtkq<o`QFt?6<&v<v$VXaK
zDf4***zH%D$PGWuYAc;F67HXRK_Q6=B0iY->LqJ(Eo{dFBbz?Og`-Hjxx5&AH_WxT
z&Bpux8cxlGUkeG5Xhofp%eUaDEFI&|`$?YOch1IY&i@IyfQ!P2hKO7?f554b)t!0%
zkmx_po+FDq4m*>(lD3M}vDGaK)@xD@lWP4At{EO8_SIB=Y9evPg`I>*-aLF~7_Uy?
z@kz9zjtF_BL!RE_H`5`Xzfqq!@WNi#Vmp2q_&kXPXqT*QdW4DY06+h^>66#6bA5IO
z3Y8tLC@goh!m>U`<`DV$ePfOBtMtBg&LWAA-_9Y~N568M)(Ofj0ADhGhzf5$d@#h{
z^1uX@J)Vc%r$=|Ojt|Q1T)1VTE&agRge@M}4b?R3^D1<mjqk!UCn>&D7W=YN2gp6v
zJ`mJ2IAP?c8(EWtj$a2JGN)2!et)l10u-VP<L>FtDAC<#ew|VyyDHvx8SkgUJU*6l
znYJk?O>B%2S^yH3i1fM3z{gpZdkykN^+MOLiYiH;i@{<m_S|3{$w4Zf+1;)cd&>4i
zM@Nf>R~~8nO1X{OzvK5gtFQzaQeMOFpzyU(8LaLw?Ll_Be}D2}Up*wm1fmM~OJ;E8
z0FaXoG_JA;mDQ%JwKPV>o*6bMNE~9o{-r>Zrot_cg%*h64*`W4L1JRpl9NOR#85$L
z?7Y9dlN}KdSS_dqeX^Jjo<1HhN?l(lfuU)#QRUyoFG>CvaF0@Uk`<buwuQ0!0UvP$
z)GsSZ_Lg}4VuKjeak*$LV4RVQ73^4tfSr0O0E=((nR<P_M9OwOG#wVEWrtAPwmF^&
z@e9pCvw+<KanIXhP`29RF_P_SM1cWceZ@Xs?9B9lk0OjQkAOqChXFZ)vSEB++3fXa
zK=6~2lkG9kZGHAKxjwtSXMQvQK!Odoa8F;~{jAnuPb{}IhilN$Y({d*0~AQDjJkyj
z3wIuV_P6-kwP`*D;*zpM#{oc)wKl+b(BmEgVT=B<7DEyfC=~3_s@;<~9t5S!QHwUf
z!=%c#hhItWaWlxaKf-_|5tOqbPV>q0bC^JDg7G2NBd^JRfvgc5bXVTL42qWQfGZ4W
zn15j^U=Z%LAITC0s5mkhc(HL#;joIOv3yVJ&tfoDh3$^${FR_HxJ>4K*n`LhBtq)i
zJUN9Lt9QUU1`XmtDjKf0O$akcQn@f8qVX#=%Obmpu<C$cP%yG9iaeS$@UllqWvhPH
zY6y@bye2PWzfO*ND9L(ANltVK(A&++OsG;AcU7#!60LXZ%0V`5cP1P55X(LOO54^d
zpaZ8fGX``_wkg2F`;m5r6+S`F92x?A{2baiG`P-jAIR&Xpd-A!{C-SK)`JHRSmqn}
zAm7!4Z$Dou*!v}auvk`w`U^*i6+gPvhpHDlcaIN!<K0TW>K@lqu$v%e-J)evRy9^Q
z^$Meiyz|tW9^v{snDYd{y6qq{z8g;iZN{>!rol$Q1#zg?2QRGIrw!C2wNn2UTF-uR
zm(iageP+SZ5<$Qa4{l9?>!*B%d{iPZNnP@xrNHI5+DG&Q3?*OUl$K-B-%;rL^l<R`
zqBJIdv^-hZwfLtL-dCjW!u;Wzzhz{@DZtldvg<c&IA*(acdX3l-}~DJI@U7@-|1SR
zkLmcgPHM1+uq>?n3&~RMZVtT&f3;l|;`pyP`HoLoynI+USNd!2sMO)oKcTq{ZQ|X#
zsZf#GRa`#v_4>bBfS^_7yZve*5o>kWwAb?xj#EAPsw9v3|7q=DxOD_(oKF+YZx)<K
zE3PJ!?;X@Syi=Z*Kqd%&O)z#&gSr;wt34FLSU@||K5|Y_jd;25o9<pq0$^=!4RKp&
zfWnT3+ZUQFDX86CV>YhXIlpdLA%z~*SlE^msEUOpC3Dg$QpkE={C%gw*FOM#1Bv55
zfAkt~ySp(H=e5_eu^BdQrtE*ksp{cAcVy1m(mN25HO+s1&c-z#P_+-_E7BMZ!8udw
z+j*}U2^>LdGa}JtZl8k-kv~HBN*MTxHL|g2ok&>-;0UEM*`926ZrYj<Ei>qpGr?Q0
zXYc#-nk}E^)4Wn)WtYUWohy})?dx&+q@Y+UG!gZ{dj=?87qYFMF)u0jh!9_YbW>D5
zEH1W14f(mqBmIG9GFfemH^QX}nIV<~;ZXGV(eTOya5S%8zcykgi&+$Je9bKoSO87m
zNjDv&7M&T%MB#xmS?!pApI)bf|My5o7HR`^Dp6Y^#Jql^E#iXFWeC>%sEJKxzGVNb
z<igS_ExCyZQLIw}^tGpR3U&J8{wpFnN;12Y?b@UME?UkQ;|hl8oq+<8J<9DEh$pLz
zVM!$g%@PUY$f#Q<O`y`Q!*I`1ZfN5N)1(Slv%bQPZxNA4if0}N47~ZRhwNq@wuP@{
z*b|YZu>D8c>LhjVQZpFNMiws1;=@<G*YjN452eXg+1WOZ4d}UUIED4~^yqsC1@r(L
zeM{$xx>4VVmsLpJJEk-LEZqpWlT&%XFQ={6-U9|tXo7`m9S#s=r!FZXJPxiy^S;*O
zN82&jwKd>zGV*!(Y0SX)<O=6V>u#(vFKMW5hbHzEbaF+1eiX0Uv`I`25Y27qk))s=
z#YPvP;I^3Z^nu+o*%Hh8CwK&zFjN+bC+pkyC}}rA;_l&GO}a(EMwaYA%ip?O<O7b{
z*4D<5VX<l*={a#~bb4Lz8g%t3N&j0xS>c{c_fEk=_^qJxd2MDC-KhW6`qp<zRO+<r
zbysIRrWQxMgAnzdC!WFceRF5jptTlOLoas^OEMb29))G?dTQdYU%zOw_C{%{eZ*t9
zQsV0m)Ll&%aF2#xDN){$<yyoZK&{VUIU=tLMjTYmyRJl0e3K9BI-WH2p+r*XnZ^Ww
zd1@ElwS}%;&TBNbW%7gUA3=e?YfH-bQuz?1+XkFPzP55!<lp-w2y1;4nJA17J3q==
zKL)Y9ewsbmtOtwnPq;^Kxeob-S5En7C7M5bhWIPeScsUZT}XC|pfHX&bqIM)8dyD#
z3KCF&_HpmPT>=6Eor5UHcec)jOHK=(dp0*?pI(vr7z)ZAYJ=%)L&w>J908@PeS}vU
z!?kzV(E|dON395)q(+IsxpQTJtR5nc-AfNjG9Pq$5K}ebw<+ED7+H?;fE3Y4-&o|7
zt@jsKnF-}j)M0mWRd#3~0F9o?b8~Zh=ZP86w|V}lXz7g9dP5uEVBf;lcTsyurMHbK
ztET58xEb_0yVZ0F2vMiPwvK~rO2_L0GQ<Asi%Y$Bt-##mAe<mueo=0k#CkgE5GPIu
zLi$l+Y#l9nXR`p{Iy7rrO#Fn)GheEaBbabXfE!L(ELjRyAbbYeW?&AtfCQVX-5@E4
z^=Mf&+KhIRy%tv%10g<2b;s%K2YD9BM@S^Fpv8Qr@B;KULv8nQz*)T;_&jJKs~V-J
z*f|J||4J_r;A^mOyc+HGjULOJv|-RE;w-y)^M2q!ViI9M%aG&`;U5g4wTbJ(S+9dm
zX#&&Wc2Ho-U|JKJ$z+grqZ%aPN}mDZYKt&WmfB%JBNLh{O_Y5Ebs(F{kq8HJYDCiq
z#L4|$y1{IoKW;sC;I5IvV47N=-N0&YS$q#j{H1YAs8}JA0qZ~PA|tEV4bjLax@|j}
zZlx50cLCOyX0XGkMK90;L@-5X3l@%<p#earWf~G*4V951TAF%1rdwF{jUqG+8!`s!
zlf&T?lzkj!3K4ezn72nOuVQ8oT$vmw1Wy4R+|5csw)lqYd@hP@+m`-Z*e<pRPAxYo
zz6w1p+|0y)aJ{nPdS#a-jxPWaASJ9qHFOtg{wc6!3`MW)3DfSn-vy25xR<Ox*J_JY
zKrZmXJjmk4*{F*>-l(c-q(6<*jvzVeXPL>VeS~u(<D;vj%pkj5WI78_Fc6aS<q4rj
zDuHZ`>*%q3m8E2b2OqXLfp=<Hq?xV^Wb)FR)m-`Vy0WsS$CVT>(Eredk;RNCSUuye
zH6tdAo^F18p71yezaq}}NP|f}^Opu|N{|}z$)DgtddIdRvaJ2aUp%0NUn-31f%$x>
zCdj50eG`s<{<UHd+A!2n0O&MyZ%lY*u%pae_yr*0{v(8W)V~^3b>D&UtLLSgPpoQO
zcmL7mi0o<(MK1hC@892$f0I^hms|bs2gkbVU7^i#n#df{T<D7NnXxDIqdVVKRf)HP
z;79{=zW6KFCbd?;9&Q|>dOMo(kKN-V8@qtqJW!hSk|jJ1!hlT~2*hWh7yol{>X%qb
z5c77_Y@_{%M=cpOf>Jo^;O>7uQ#)PHJ7ihE3GWmXV`MK<y38U{gyLR8_-Wv8>;T=S
z7mxRNH6AN95#sDOHc#j{?b(CSXZN_v=pz_}Ui|mw<?3G2kb3aJ=E+_9FN9?1{`Jq#
z39!-=D&JTIhB#y2!WJd`dmak<Q^dWznTUV?6eaDIfc?M!khA4K>z$+{diXicwmIe#
zEaTQTLpvOE8Q1RM5;LceE=aD|Jwo}m@QWvrmcRTD%KX85_L+5%YXrLZ{QH4{*E{8~
zl^h)*+1mLt7hl<gkg%MqFE=h?O$bCrHF!l4K&%ALkZ73&ED04v&Wz;aU<5Bj1^vrQ
zSXsEaMNwGBtWXQGyyL&4k~s|mr@I|1_F(#k?lW>BM+ay4RV={@QHd3xXZ+)_QMh+^
z+Ln%ykRFb~T(1N37@Kdz<KR=n&oDrVnIS7DavPO9q<x^p7B4s@SD2ar1bySWb^MVv
z*2{YRBR4i;`06%nAkt)3#=^&mWMOn<hNNWpKaVI%xZ*UWB_cilKYFnfJ#yu)N-TRt
zZI&j(`CJ#%3O3_c_k;}yVJsR%M-RtF1J}qLtSSv@$!l>ih#}An`8Dbf5NP$roo^jZ
z+SnNR{d-rR&u7b)`@&Y??l8jlvH$t+A@De|*yR9J<dQ$vHbBDW!Y{sKWlKNf`M9IV
zAPc>Hu=}C`#Khs4eWrkt;OF%Kw43KyILBoy&;#UeDN=C?F%L?5P4i+C(QEKzZs<a2
zYux<LE2wZVr$qVRw?EePXj$NI6y!Po^@`zJn8D@1Acke}LMTiW{{I}tAm0D^&e0&g
zV&L^2Osx3TP~B%;tsyuIekmMeG$M7j9VV&oNu8pS^8fpt4~$|Zu@E*Lq(*!9Zn$*W
zQ2qUe#XnE6D~UaE#8fmA@i{ryzUg-JE>zg4!*21B?ibRS)dvpZ_3H)a+W<K-VU|fq
zN3~D5KMzpDX@K`6S0<z>p>#l$coC?3;Wx$>rEeDFDvh4lTzm0?#yss`#-@D5a*Fm9
zAmOK=`x=1Yg#eYr7#g)z<j&Kd6S0`h9-)sz*6T4zLyPzyMcWcp0hXjE0y@;9Hat10
zwXjPNBP2*8&*u;TcD52SXdU!VsUS8^0hxX^Nm^8bb0E~DQ+XHeKhJL5Y1E%h4j*6u
zS9Pm+AG|be{y@z2ScVhi>^Pcrf^#Mf_(Flv4xuP8(p9c{3%83l91j|cW!fAB`T6e-
z$J=quIHh^cPPq`qr-6m!K^Q&1k?JL?0T^@#vM%m%EI;WTcm{ZgP3u?Zh*Kizz+`)X
zN(HKO5g?1A;9-G+3pJcWar+N*F+Jr}__4`8iMoE>!ecjXz7=U&IP$TB5^AH5-xlCs
zN(v|L2#^=MJdGo+<^HdnP{L(^meJOLU)rO#<Kf(Lc9wh#m#r5)N~+hxyV?^;TR}}E
zz$hkkg!1MA&%d3-E=fC&-95Jf^kW38dT>G*hYk}N2HAhLqGeM-WAy_XF#r<|El4UH
zi4D-6QL(Oc_v>L#d%S6+E&`a<2%%UzoSg`Sm^1%hxY4?E;S?ry5bR{pVrKT-#&Zj=
ztM*MCgfoEQz_&;6$)N&45Ns%9q!X%p?AR{z?v8{K6(SWmK&q7k&Tn4fwFcBe$~d4#
z=XKYfhey;Ayw(llJvFzm4-&(^r#s3_AqQ=U!50n4y@WGJMtnh18jybrDlrLlJ-pY7
zs%T%KZjC@m0&9h%<NKEIL=a5Pqzluw319<^I9Dy)yIU1N84n%03Jji4tyldMUQdAR
z9YarWf#jSks0E?$zvX=-&*B(xH=MUj6fF_WyLRk2g4!+uiZaZ<{ldV8@kr_KXfnZo
zWo`sVvSDfM_y<86MD{a8FUks{4o_e!T#rz)ImZ2qAW1>LMELN9%Y@^9tVvhqvpJtj
zmyPEX7#A<|#W-yiAMD(kMM|-<>mfqe`hyE7KiOP1Jpr_*5h>W>qOQ%!_Ydme{L`54
zWKPIm{z>y}t4l~?KEJ-l?fp@pglLP6&B!hvF-#4w^rz^C6>~S|JGAhocD{B64GPIS
z&h_E*We__+2tgE55CLxYili|4ki{g}ahP)GH~?xirv(cw1>W&dI({tgf_n55@P*Kf
za$nFl{p6gWC+2!2{>A}Nk4-9Vg?Q-j;6jD$s`e2B`ixxRzyKf_6YFnFv+##O%yoCs
z)WIyAaZC|x8~u#Hl?(JxZnF6}|7%(bhyuNcIe6?Z6QOtC*YV-wGx*fm;Q&2WT0H-@
zK>lteq9_@_Yp)9+ituo_NxIO<)FCk3ii#pwXc}B7%2&o6B9tj2;dcy^KRKpaup8Zz
z)ZpMw_-0tdpmjP(#h~JSnye;}c2tH(4!7TDcufN71bmEUk`N$87)a2Vw}Hli2*Y5E
z{!aH+jyC|!30Pxgv&1i)1RgKpr0=m=zZ7srtW7daOhhB$<eP?8WI@%((PexIvCOZ<
zAuqrWYw|?YJ|hC2Z`$krJr=CbAWBwXx3?1As=vTh-WHM^n`daKOp*6rWnL7mhE4^V
zs+NFCRJ)8Byvx#-b}-b$&z)YPvH^;?GIVx_AzQAA6l)?K@NxXLf%f8jGI|G)B%2{&
zcAXn%oUn+<)#+>3yXGT;E!j~_aCUI!w>Zekg<kKHPrlog5+*Du*rMM%Ppr@Y(0znb
zTX#T$FnPc1S$16qVXCGJT_WDJ>CJG^m;`TENF26_<_9ko5RS-p$EJ~UzxS$rL^nau
zZd-r`>(pQ1HW)y(y25J+qd~P0Gt~Gw@-)vHK3$qbO7_x;PsZTK>j62&qDLY?5wu$R
zSjMS;`6S^G7g4L*10h1O4<R;?lpkCg_fW>qj3)3rDva;5$+I=Q5E=mDd1CtUa&*qG
zRkw*I6y;hI`Z)84{@rCxCFnVF!skuVM;||Tnmvd#w~#B^q8tYXFz_+y3SieHh#lW_
zjoCsUO^AO)Gd?wlX-O)0in)HYD62L|Dg(Fe%3MofEeBX6ue4AhtWZHP$F?|!PYGC5
zTL9UuiNicl5G{z+g7{7$bwE7xSSHa5C5Ao968w|)vvYsnNbLkllmEf+@-C+Q*3)?(
zI;JWC@Bt)QVpt0$!et1U8Ucj!M``>B+pyyRrbHqEU8kTSMun>h<L*YxJceF-0z6LT
zc4Yyec_Q>0@`@D({|)7a{`b}EwN0m^-;6F|DaGxgkPmgbF<}Gsix+P@mH@?60e=w_
zBbL=<yue=s2aB^+NmMf1A<vc}Tig5rbGSWwK1C<tE$s;GWqv_3Xw0RX4eQES0{9@L
zTbt1j8V}!xpytG;4u+o5(NW!|@3?yrn7+tBt#7=r?GpU#Ry4|FTEUW?04d;;Q^`K>
z{5DsO?C>c_th-dWYu>z()HqCOgn9l|&eh9*J_&;Sz81#SS*TgIN=xg5mq$Fvg@0A-
zw#<S+!By|O7O0vMGqHcD8i;@X7gd99adY*qN^G$HuL2c}-*r9|&`Hp?xQ6G-mj3~I
zdS@6mhL2v(LEa+XN^svKK`#<I``gsN{hXf5j@jdO0By@HKEgPN8&=5tgB3A0G)<iO
z4_L%iFF!Z7hCuDR+MF*Wx}`6Lh$J3h%KC%Ur}j;n9}8L50?gVzF}>uuFrqM!&5wA_
zj1D#eYM7w)p8$3EeIPyS69WCVzx0c#%<cjKv95_(3g61K%^g`?zy~*lGX|HB*p;b1
znw_5#Yg+Sbg#l2;={u+4bo~6MWAo$vRClPxZV88>!XoX>J#ovxV;{>670V;FC&#QO
zQ6C&jb6XlfWSJn6lZj6F618}a2>1xf-T~WQ{sW6u&alNa!xt#)p7@=6*P<|Mm^c%j
zA%e6lGTsc9&I4%fHmD8=_Tk<pzOvn`>l%?Vk*%Am+}?@L$8bK~RDMDnZE7U~3=%~C
zJ)$c_X1<g4hf4J4e&H9%?%S8Rphh$Ao?8L(8<*|@^+l2r?#lcQjSmaiG9dKHSvn_J
zXTJ4xxgS0~<s^Ef{apWV{+KK2TzmfS=+Ps%uiWw~1;L|=CcUUH8f*bTd|2uyB2BO!
z)h|JrrlyOD$v3lKD6zcoE6RjIEArG^q~u?iOkcK@ci|fB1kq>CC9OCI?GMWz!t&Y_
z8|OP3Twd#r=EtY^?nyp1+=~WO4^pthB#`gtQr~<KJyPdpr&vDRq*CKinVo{yK4O}%
z`&sZ`MCyx5RtV_`N1RA;Nza0Kv)$jEqWu7A?Y8~#yMUyOQM0d7R9?7{22I2sr=os=
zC!}+aY@UbBkaR0fS)R-Tbr)DL6M;n$Tq5+5fe;f?agKZlJAe^?kOAxWep#%`$e{uf
z&iz;mUUS5n+7C=@5was;)BeI~pb4A|`_+6}$}2FGrwd<OpEz+x3jz!L3JBd%GWTKD
z7&|wOHIt7(wMxa(5V3yLMQe`sS|E23?L6OBUS36TPYpLSPQVQinwQi8@c>2SOyIaE
z<;)u6cmj|*B7N(hk}nB`b^h-7d$0Q4u{WJ)ws#X`SWi<^v(R8>Y2)3Buj0Ex-oJlu
z6Sk#$s@DtK+-147^e-<xD*TV$?IovbE_T`*f8(u-N2v-c1S4z$7JtT#3Olo8T)p(?
z`@INXH%XBIglqr~U6MD8sZtnsrWRAQl_Gx2M}=Z1ANfUhX?a&7PJSbf<p0;+mw?s0
zzU}@>C4@4DBDFH7P*SLjS%^qU17%3FP$6kBRHkAjQfQRYAesk42x-z>8Vu2(Leo~N
zb3d!>z5n0&pYuQGyS{T>-}hZ-U3*x2t2O+7@B6&Zb3gZeKOHDC*c@oB!{GupuG|@~
zk=mSCc~WFJBO$04ZyE&0i^O-};Njt-FmKnBrbU1_sftn4sBWu*dpnrn0qtK@`;~N!
z8Rldyri{!jO@{n~=DAN$=Vm%;&Ev0(PgenQNQE1~IW9#@>CkG#3uJf1B0IKmB4Zxj
z6qB~esv^Ds$>_GQgO6q|rMIQ`1x=(re+6y^egl;T$2O*VH%LK8=S^f*LJVAp=2Iw=
zxjC}3_qOdJEE!1|ztTePuY=dNK^}AcHsBZEg4h+UqJVY^hWCa*{cnXn!__iER2|@I
zxleSh^lI+lUA1O(iIR|cnN(5}-T_c1=f;gFifE~r3NsE)5A{d!3EC0fOhLoN!oPb`
zaNq>Bx_ZqN{uLfhn8(U~i!C>P;>7(OKy`}O;hT0~e_0^4C!Pp6AK<2ifCdr?Y#^$F
zdw(Q6aG95)R}|NaD6Y$WZ~7_pBpa^kTNhv~XE9_PxUKZy+o8E$9yd~*V+&WPdi<fz
zuE7eN36!{Ex&$Z?@e-EfNOFMG%IDIhKr{rJK(y2WbTEGE&R^1Kgjm}BM$v>hxY{!?
zx)}tX#}?GOLN&5p;nu}+?)#yxww)*Y=bUELe)np75#OW!5w=1%;Y{%zZXHe^Qtd4F
zs^V#Q&^n@{(?f0KzGG+IU>0)-8lf;qg}CjBK{hJ>T=?z3q>-+D|K5jlc<{AdCd<w$
z--dh_Wr7)&sB~veZf*%B9c+*~wLp(NCGs27IDI3Kb(9LrMJfKcuUM<Im6Uc&^}3^3
z1Mu3n8IZkqZ8Y3PG|=VO78lT52WqZRrje5*Ym%FBUyhi1I6ANUov>Y1tzL?$&-#(`
z9j80*=4##`iFsd3t-^hghdO4=ylN3u`eD*TkUST$F+_dy3G}3p33^vqD_VT(-h~Xx
zo4{~ZgWDAAd~jBxg@#JQnQ}YmMF7&c*NG|88~>_c2MW}dcPS>vA@1aFxx_bS$`p%4
zXD-Kc#W1w+(T<1!G&YNclM6H^;LODEP`Xn%J5vq}UZh8C#54GcqLCN_-rfd4W5tlR
zyiM79cmR;wym|BJKltWrdc*GZ`m06ACqgKnn0fSk-lMCTUjm%16A|j)*l)?c&^zrg
z0jfx|1|DiJAE5n)tl&)|veUvc)W7FLcr?AC09}uCx)e;6c#H@G6YDPNQUI1%XY|?w
z<%xN_hj2<7x_APslc-iWzlj-#=t=1#)!DbR1{P8+b%T&oqqomtA<K-(m$|!*>^jRg
zQBEqxC_IC-<_@S2@tUtLp@B(8@P3%++y_?zQanIJGumMpV#vLRoqo3<(q5?;0QZ#J
z$c|P3$h_MJOrj~sed=A!1-9HT=JEq**(&r8a_r64&;R4zACOk1;ai9EKvjPa`CwX^
zLq1*)S!*$LQZdwjUmgaqUJr_@z4tdy_ypM$PO)OR5th4-=f38)VK{Dy@mbyn9>@Bx
zs_=V@JAqN2dg7y8%&md=IDEaIwZ5vKvVQzM?U_d?=9;NN(X}-~r*5)akYe@GRsA@|
zPE8)meML11x6%*$_TwNzN8=GHHlSH|Kq#lf16<9|^Wz?Eh=B`+L4rPt6mg|Pp>OPt
zZ&~o?!KHZ~0w#l9fWNN4fELyqo1T)|y6<4G+BH{bBRiKVOh&o^SVF@m`Hk!T-&}yL
zD!d8-11-*@%eaJ48!jOf{SV)OUKh>x{{mV4TjHvV6C9hRZtl@NyLZQ%7D%$U4#GVD
z9O$_Gj^F$`{4so#Qs%O8GGH!@(8|?s(SFLl@y;g{4I$VwY+vCa$h|~?rbsQM&8Qx2
zI73B;n9>8alS%ky6!&xP5it;9gLt6DWvHlLFGqtZBSCJAMQ$2^#t~8jTXEJ7%`xd5
zc>-&p2_fL>K^}owyPSTmA%h37KQ%9cGot;f?86N>&aZzl5bLg}AC=o&4X~FgL|Tz(
z-O?e5);Be_NSz1dTuyd$px=2wR$XN%-}FRZ-E*|-cpW0yI+PJ!hOQZ41}$JSMbOxs
zIm2&tkq%eQhLe7^9rr7nK|9~Zt=UJZjf5%LwwC+gl_b#@(7)U@goy=@?kW{AsM0Nf
z`Fw6dG=Rjb2nN|ji12f`#J*U!+u0LAM2(`BC8%j6?*sN}TGzmH+860<I8yz($xG3k
zJ0GHS2TZ;?y|a+hM`N=NosK!=J5cUw0OBY_SR27Qa{F+dEp3#@nAF$rL`Cs&!(Yu~
ze<KzraTWm!2Sc9-tVoyIbfC#0<9PC76?0DB`043|Uc?>+pf~=sDGPlxO1<BFgkQ{~
zK%a{snpOiML0uvN(!{t*Sy|c5SPasy07AJ;zV~!kHEj?oeaVW!C9CUec?dufQ^?B4
zKOE;GYzv&X35Fe~Sg+(RjOkH?Vg|>jf##l66pCDxWmhYb9CQTVORVK%W{m_Jgvvkc
zncGv_;NVRs?TQQ3krIp<E`1c^b>$)DZEJ#Vf<#^v5YX-(ZmB~AfqER!<5R?3ggany
zL#gC7sBIE=p*7Twl61C;ic0u*l(~eTKh8@Ers4JupuO!)s-!I*xEFYc?4g1cTY$1F
zpyfIMWby4n>uRn}l-%}p@@8*WLoh+Y2X3f?;Ia@%OHNieO#I{bzT%uy7n1mdcL2GD
z4HnT`IQ|8~Z-h4sY}aszSyoJQ{N@Tm*S6UUK$|fGy_6JPWX5&Iy+3v4ZKPPJcA_DJ
z)FS&LSN|Q1%iXx$&(9sYs1JG^^oIisf3-S6*^~_h7>8w^_$9}GyXl@_6wjtOw+M1#
zH2`5#nD$)2r48sRn-B#$xIke<N=!1l9lXVILJ)50lNtuV4GI<XsEe^gSF%kRwc;LJ
zx@?6O9O=L^wxHCU=SkaJ@Dc6+Ao;zCNbx4e=3xe=aiXI2JKf9KJmJ#BMH@5bcV7N}
z9hbleU0vASOokapMn~`VKr6q`m>_Dkx(Lm)Zb*)=H`mwKyPQDl>*>>6!_R1P;|Agf
zG{NH7(Q+SRFYGP+ci;~+?wT^DbBsmTbjFoij!z*5o2F#{%&gbJNGp7FK8oXi#OmQ@
z;ooX@3!ryC<Tcm&K1Bx2o7&+52f}T@Z@$0BeX(U(AU4o!kQ4!YnHL0~ap?RSfxHi7
zo{7gjVZ{u(<UW$?`3y4QA(;d2^zfX)6MRdqT2wD#JrILNtlbtkaIEw%{@FDR1q*r_
z+;j11>lDQ9EA3y)wXo&7Q3bAF{-VLQk;<Fh)LKxp*>Sb@1OS^Hy|gdcd3mzhs%)Y*
zS!=Jm-AP5`uQf(c2M|RGlWZbs?Tm!U+Y%?FS5%TOo9gwm0_lGOoN0+sja_v^Y?Qhy
z$<at<Op-M~dvoT@S&ze#D4hx*LI6@8mzw(*48HA~ID*^hshM)^$SsMgh0MVDY_Iqz
zcS;pN6576!PG~h7(VhJ(Q}<z~j9?vz)^xRb-Hda%gnyzzAZ95hrDBXaMqv_{3-`2v
z^w?;cL;<O_zy~=qwFbJ?BJm^d=m%iGW(F4sC>w|?bn8Ut4g}E6MAQM{aKwd5%=&<i
z_a4r`2;3x2C>kTwm?CK~U25K5FBI6o%o~tEY;CQ6D094Z;Do*Z)zL-!@1-Gg6{0{O
z+f%*Vl{_zfvQ_qh91GT!b5fkpN<)4ZLgexCJAj$!tN^$60kqHxHz6TF_-C;R5?Y+)
zY6LX}v3y4Ox@clD2bU)Vx~|@zblt6|w!Z~85Yku15KfAq+Tl&HvPhwX06iYe7aWBI
z^W~ReqUFnG`$&ZJ)Q_G^$6>rdrW|o7G_EgPgDe=n9;Gmv8GfM>3O?5C>C>M$=2$1q
z1!*Q<RtmTFFYx`;H(Kw4;@BajxS{b!zwfRB)QmhX0+??x&MweEE$}7vFfAO0rMS(f
zhx?equ{K%z;5L1vt_V^EDCVd`Q|k*NC3-5z;N3^d$}dLQOU67f#)v@j*oY!#u@^M~
zIm3%Pt&p-{;cc%?z*}2jIXd9{FK3WC295&>nC{34%nidC<T>X`t&I7iSWQkqz=4=|
zs5s4B_xuAHH0uaRddMh>DB?*xp|q*(SD%0EKc$0ORFA`};^A`1sC<S+(2J&yMyzXx
z=7iEu_Gxx-7oDrDoT@ghX3je-you}Hc3ZqlzRxntyS1EuXDf7109m7eav({DG)ww8
zomGIL{CjDf2k}wBA+K|iMSw@c$@1}@QSKr6b9RH?8LcDxC%x0nSS~~4&@aXFfDpz(
zca&rDv0)4J*h*BYOn=g}AIPl(wsl>HL(c9>y2KFOkB?njiTYH!*YDX#7Ix&@l#xaM
z4pdwP?pw;p2`*=muBPSikSCurg2e?Dh;n-HbQJLRHsG}9P=f4BcyDG{Wc}vgHg(`;
zbyGK->{@1>l=irkSfteQK;km%Rb$VKrDC3vd0(8j*L?i$yK9PD5O$pzW~AbXx`O;R
z)wUrRn<D};QLrxj7VbMoWFlnpV4IFP^3NHRbc4cgulv>wIJOAAQ7~!SyT{xmU<<vU
z2om?IJ^c&B?mvCMU&;^{qy*n-k_~?|(5!GImDHYioARjzXtgbTbj@JJhqSDx|7+E8
z+j0ADz4(47b!pWwwrT8w5$bZ2=AWB2$K#}=L~wHOIvo*D&*5|H_ik$s&z7FD?|R2c
z0okY{t1l|Aykfd`i*JFr`j#v;P2Fu*<vy}zO+Iy+CG0(;!M3#Ta`R%VF@kLOO?Hn0
z0CZ_-A1J<eXy@FUcOV^tv#dV=QV63CzHFn514KdJ0K72O;?mM-50(p$L_cG(fAlJl
zE@S2#&CHkA=w7m$NQpJA2kbwJ#VY&fOz58CqT;DL?(0XDfX!iMYtzIef<bj$IpkCQ
zM-K(Q^yt{iX0j`2K_4(DKy??9eA}rd0#}eAtCOp`fphCsd6hQ#6p0EX*?GnQ?6QFA
zqu<gaF_3>qv-JkLddRA0WXfFuSV*jByg(7MqR~G+V4KjBk(3$}7B)k^m@nT41?=m(
zLj|fL-Z)D@sxtFyKlqFV;w${x;JCFmZJb0f)&Tl^(q~mXeet<5a3aWTgsbj*`!ql;
zGuiD2Z6SPRH(OgQ{WYV?-&iyi5S}zU03p3h*(*zmxW)$}kF;W=NwFs{u`vSjS|8#?
z;sBD0guW=?0sdJGr-Vt1#WMkWve?K@tg01h4Pl#?t$1815M5OamyGT83o5~Vosa}-
z>lN0;NsGcXvf$_AParwEv1h_;1vdo=3tc&N@|6<|R{c8%0B}YkQTW?bH#5JWW5+ft
z)m@3TgSZj}Je?}(CRS(`0~4CbRwm1#<MRUY?to!#2%SAhfSRVq<W~3XyEMg-6@{wB
zYB_~ldMpU79GZ?fMZ`*tM`06t?cz^I72qHn&QFxpfn_gjj}!pdnlyvm0{*_ruWzeR
zkh^ulqay}<AB@|k9#UgvQme7W4&oO!HQB*m^0Z7+WwY|nPu|+Px}uAR{Xwim_RL#H
zcc<kJzO_q&UC*_spS?~*Geq;!%+4Qd|9$)S&z(L!s9YImE6VcibQtF3XhR=g){TvX
z3D>o;c0hheWd$tL^!pN&IK;Rkiw6h`OcAjFtQNqArU<>e#W!XTd`}nMJ-!<5r|q>6
zj0r>|$P;{1aEHaAXCRI~1}8<Lm;Uno659!nU>J^8Rb*hG8r+MC%YiXZg!dq)n)V>t
z%r6zDV;}&L`XF{<ghB@>l(W$FMm2l}>kndeg?+ED=p-FDkC{lv9#-2Y4OQNNHZxWr
za+qMl;lc-@`UV|bSTH|}yJW$+GF6@}p_6PdA1B=g^BeOoVtbAK`VsFR{ph?v>>OMW
zaR1oBULi2LTff!O(J`%J%s2bPeChRf1&@kk<L@T?9Xa@K{C7dI9jmsv^YCxz%tc$|
z&!=ntdpuPNHe`Y!3c#9~Ua^nKSt2%SlG}>@)f*QINwxPQ1k7>IT+zSw4HVYK0S$;u
zPgJIYnO!I!VlYy8$KuMoJz@<X>(8BZo|zaK&Gu?3aa0LF7z;KWL<jS&>{uat;EB3@
z*RFdAQR-<zf!DE2!N^CWel?=X2X4I4ln@T|lA3{v1S{&_#2YrOlJH4x7)`qu9*!UM
zuvb!B4eq+;(Y4dmx1;k?)Z%hYiIm{<cpNPFpZ2L(!F)!|);BByMvm){&qK^~8I|%(
zQXrsxlltM@Tyjh?y*2=!xMWJy@}~x2n^7(YGVkFyJH+irWZg|ofY)!{T*-X0ZvgBF
zjNE-rAkhCOfNs0@XC@|!wg@1$)MH>lp+c#FR6yR5agp4<0Q2}Vz3gSc5cR}H1pBcv
zzLy%L$6HeFct;MroZ4|L@T!*>v>Jg(D`k$db2!5Mk*#Y6E_1yg@6JGfK|Wr96?SPA
zh(Tdv=M4U;`u9#28*!IHGC6#a?+`*H^rVxK^^%k6P20C@s|t0H#Hk4aOE^L!$lhVb
zMqi1vs_NZSGHUJ-;078@4E%@ffKnpF?Z8V!TRVevM(o&BbYGU*=GHr5J8#p`DTztM
zh+6jP$bp5R#<J~k=>lGm3R10~ObvuCeLt>c)MM7@`CR3udC;XLPA-}-emqgdhV$_T
z?W;^WP>NKx14>3ykebleH@4bXSOh27+mHdW0S9bHXN$66QU<~*?j+P!{^BzMf*{DC
z_f}uKBV?)hf#k}9#KDWStjg(}K&Bk=cc_6!fpuEnx1qlo3m9g(FR2m{KAhZbo_FF%
z#Xa37A)F5(CUjhr=?A&}13>kp-GkNGx;T51x8Z|wb6nu(NZui4hU&f;EUjwG9+dIs
zkc1$p?>zrr)@I3a0B1+^yQz*w?N(aUJfs@<5An?R-?Y1m?T0EBCw_L_aQ+NVJl^$Z
zZ=Xps;Mcjh2>^~8&|T6(TX;az*YSAB=$F<>6xvncX{MWohU<C`GN4u2;Cf=Mzy`)G
z)=HzW2)%x4F+iQOwp-oBdN<lV(Vi<+Z-5`QI(d-WxO!#M=%b^*P~)*k^nniMpG7ay
zAhaWlWrk`cr=k<;H_8%O4dkV(pM-;jeKE*d3wb&EPNVg8G&KV;Ig!4No3U-JW&TZ|
zdqm7Kw7RqL`k43T19w7r7+<=3f$h$!UAZCp+S<2~)v&jMYp!ppimStZi!|x!RRDDQ
zoKI~(pI(Lko_h)VEr~~Ag$yohQ}Rboi!VEvi$KsjrK}eL0W*ZY<)-FfW}$qyGGlME
z4H{A`1%YI!V2qnihS-pvwlSm?4Onj$HjlfED#+j+fDg>@RzX=cCsYE!l~X_|ly5&!
zvbzKQ@v{$rH}kJRH#fHlrAjw*O+q|G(y%cCYkqxJq_mEkp1HrPZm=~6T9{*PEjIE=
zL1Xhx9p2dCNHl$nMcWTN6Z3EW@_hl~X0Xw;(VGkfpK-!Y_~A%g_4v3TrZtlGkHv-%
z-Xg98+?q@6hdnAeMzaid?UK!?nbtk#=<C^cOsPQ!AkU7*lL4-Pj~<fPBA@L$XS3(b
zo?Sq&KWuVsXPthCHg5+YfW+h$YL<a*R{8LNZXP+4;mjrRh5NhQW_t{Q-VEa@<@G)Z
zQ4JpU5+wk~@PTzO1R~D=quRV6FR7~t?55Wk+d17!QiFG?)H$<!gM-Gqs;PC=IA>tM
zqXL|9Mv5!PmoI)Y?N`uR#l;UJYiv`8BE<!73&oW-wn70uVFVaPX1F@k_26}NnR>LA
z2S)uX!4|y2^0|7o@lj7pA%=;xSJw3DAjq^Bs~hoV0Iq6>?N8HY=Wg#@m7cFAO=!K?
zA{(m*TlX!wB%K*P5MA<hF4S7Nn)z`hl>4$LV8!VGeY85b)IH>T*2Ej`NzzUks_iKa
zQifYUeryHkVttUW8HK2}j!qbKGMZcWB>MwS!j9bu7ZfbzQmdq@Fob$^#l?O&<}Udt
zB<}p{yG#r)fB@u#qsyn>r?STn_%<d80JjcpY&6HgQIEYdx+>noqy`lObd2Jur}%BP
zpWIovu`m=TDmX{j&atg4)aJ#OTLxwDpuAY~M5U$er|8DhzEJ5+^t<ZHT^2nf!ps`s
zZCn6L!r-`E<qc>d9kAPZwf0gU^u9V>u=|o$aC>5PGlWDMq|YTN3OE^?gW1i5<)B=A
zB_~9O85;HuptvdEW~@^A;P2y8+?a}CGWpxa*53lpP-L?7e1+=RB}E$NL!=ih*fRgx
z`M$Hh=$EZ*Gb+pyIggkG57%w_`cs;>x_BTE!}jGW3oB)7tk-tLh~=)spYi@<K4*SJ
zKg`rrQnZCgE0E%Dh4?dWOOgi33yDq!a5DqFF!o!V2$cp|(1YHEti}*SZ8($Fhgw1_
z1%Dh9-LhqtWpZrQ3_-5>3c_XA%EvwZer{>#I$%^;iLv^-&c@=o?Y<bMW_G?3CYS3u
zh*O1O%HYk1q1SGT(<I17=?`B=In7bSXY}A0w5s^CgjxAG@`X(obUP)WnA%pD-64&L
zmEWc(aza$%a=^YSwS0(3j!p!N4RT3~ao3l&pR~5gxDAYz;WDG$US<d#I^}g5q|Ub3
zp20**_;~7x$5VuksCL&&QC|t8M$Os`QaGSRKoii8x16J>s3>27A&v&93CvAR^TEg}
zLOjiEv4HLyzPqKsr-c)NL^Q#UP6seT8LO83AXqn#emH9tL*7z&sC}*Pl-)s?a0d+R
z*_=n+jdQ_{e^_ia4Sd0oqH+?J*P$ARxlSaRmwf(A?`wGiHZmZ5*_0`xZufzt0NlA*
zRHt-<5JW^3g1W#rji<ul(<dVSK_j$Tf73wsj#0bN(8+T^E6gmh`$2qd_f-s&Frcm~
zdbTT8xS}Q?jUX`zDZG63Fe;QM9_QFiOIDyiVRg_Sr4RMu=>SG^PZo78cC;Skl4d=_
z2C^2$W42qlp7~kpps=vDJMSq{Hat)iN8o&^xXp-s`F?b-s2i^<b3$yvtB>DbHg&jF
zPh_4ANADZwDf?n;CQ{fEzMi9)^vvt37N5-{`5G|~?Lbcb$9mXna3DXfiAk(-8bzj8
z^oX6q`{&bH|2>|n$B$66h44t4#afMIf0BD9OxfxKJfKNA-4}pJgR-x_#zSe8yVTc3
zC&cd0D9eId+&({(E0H{s*(N>5E=ZjaGu-m6^_hKwLPJ57U)~ojP&wnX2d)^CiW#1^
z7iyb7BPb>SqBgz8BM;^0EZha0zNXiBSKr9`2#-vpbOQ*66xdJ|6&3U+SF-E2!ZCss
zk(hWDAjUv-h#xGNKh$GZQl<FtJlv>rxKS12-xdz#8nobDb;t4i_kDUrs)FB^Kg<j>
zeb&>|tb}82CM2!68y#H?6dOSDhsDhy_(LFvRQJ;njIBma4%B$~YJdE^)i0+E>JK~w
zVU>Ojop+Q2CeWlMrS@J_tPV#)*np(kvg_yXtu~S`orCjrQ58I|bFL2MbzPhwJ7>;Y
zfHzMQ0YIb?jh-lW7=+-1ywqZkUl>W_h@htT$T0<-rFaOVi6ZELTIY(dZ`s!+pyS;|
zeYke*3z1vX2NsKq?z3?tIY@5_n;>pGz~yZ?82l@dY0d>hA9)3$Oeu86?U1ZA;FD{k
z7eIvQ<v(6Z<y1hDt3_o2;E5>gagaB1K>8sn1L*g0&B)>+sb>r9Q^qah_X3^9yOT|-
z1Z4Mi(3v&_^fd$&f%v{S32lvNTr46=66p%8R<s6?s1!rvj<P2PQ&Pxw(6|{sWOLXc
z?~ar~&jJy%5XZ&SL<J2kXyLT<<|~NY`ppH<^8=x`%yrQK$&3-+Ab51?V|fiq$T*>}
zMV8mE2~i(SjR;OCoE4W?R)H_VQgBPvz&Ra`Zi?j&1W@c8vaFfpCUU=fu#VQ9!gF9K
z=IKPl#BAb_G2(=zNyNb;HiB_BkrUWIemWXw<FTrV)c^`Q-5IhO#DJAGQTBsZqa<rX
ziL%6!;Yknxp%o%yT?m+zP5Q2~AC#^UCj@3h(I^VmnF}39AO3$%hf8-LX&TIiH-RRT
zaJ)us|1eLT1I-yS5;_2YB84&oouxjPS*m(@A%~p6-!p*3Kf4ijqQW`}DTNj;3$ocE
z9H&tS^*NU=Nw9I?U8`vwePY<Mx+_{Fd|i&!m5NjlouLkJ4=LdV%?#P%l`Hi)%?i<0
z@zbcYVPP=O45Bv5#H4|fCV#y1t9|Q~dP@!U_#yXSn8X!iiNs-juB<ubqPu#U`n)DA
zkoXOZvQK5Rr~NRsMH!B-`_~D7vse2zwDnMmUR79wVXvBmaCefiC^$kTAdx7*&Rl%i
zQBBfH05T`B6F)D{a=`tQVG9Ic9ND*wjP|BYo}`k+Q3hvC9DUc*HVs^JHN`cLD|tq#
zfAo@FGWx)VUrx^ThYQtHLtiwAfQnG{L9ha?8XV3W!EXr+ePN>r8yD*D!1zQPpd^e)
zG~gMGdUna)o3xJM=CAj^M7RIg20WDlEhtYY96FZ^dho+ird<)I<o#J?StxNf7G5C4
z1~=}Ez)M^n3)~BdC7~HnQBlQK;2nj&kV}p}Y};Iuv5T5Nun%12^&(35{z~g4eJnO_
zV^QMJqo(LUUSbZJh`ZynF0kv&?F=#E%k=KBz`5uyAhriPOA>+vU$jDbU{&M|i5Zay
zNf+&B12Gyv2FKv^o?VuOA(7(+`GO5c32(7ZTG~EJlIjf@5!ojth&zpqfAR7AIu4W}
zm5o(BkW{SW2#gXd``oM2T^~Xp1_rj05eID_1247%Q`b!+OOEo!t)Q)?HFDX`Fgmj0
zOBc_FcX9rnM1ZC;)>^u{v)GdtnQZj$Ou={pE6D%BWgM>2AbexxbkSKu`MrA)g{5St
z4hF9}k#F`c#-dzf#o6FkmOJ1i1NoNC$%W}pW=r0ew%OpzPBgG_1^IHE-c+H>&XYa~
zOdHk&sJ~}$F)%K-@iLm=w!#dFx+(BN$TzLTTqw-#iU<ng=E?}Uqtou85f<_2(M~YV
zSCs*1i2?Sr1AJd&Zx=XUuj1H33c2>%g~5HT%P+gbn>>RJVJjNsJalG7HF}hNb-Vhc
z<9}gTLq6yOPb=WgMZU`@SV(DuF`bzucf!KV(Nl7d4vLT8hC@X!*2oq6#V<M!<Yf{{
zIQ2SE`xELyEi7?zvII9!tl;lwNB_NqYoQ8;)wb=HT4+&j$IpSJp$#YilS~LoLestk
z2sRqjqmNnspXY)fC;dL46#nCK!8P@-bbw1&Sz`mRvHA?bLgJt+P+5HSzXWLc?}Sqc
z>ns4e1tX7X%?n*j!0DhUEg6OgkPTr*@00~u?`=+>2;=6=$=P)rGruh{0v_{#TP*NI
zGii;RaeT)A$CUrygW0%K5;{2PXQL$qQu4Na`)-qQBQ(RBm~?Zg%KE_li#4sK06l}i
zw%ZOgUb*LM9LN&$fYs<EWk4DLI-MLTKW`pW9*ht3TwD}+DXjpfke}Bz{{b0gVNVmo
zDjo*wFwcx#48Q?#{4J><VIhYe#0ok9C}kvu3uJ~lp5E84-NB{?Dq`EMG?<#ycLNhT
zg-LBb5c{f01frR40Wu$)JCoW$?!@7!u?w>orXKrr*`%2)s_@=i>NRqIEJK_iR1?sV
zSKf(4rkKv$1J&shGItGr_^Q#!eMmIwl(7qR?Lt7eci>eBQxPOjjS!*XqEOulu6b6h
zJ-U`YELdB+T?N>JNKbD2#+80yB%Ga%&jK0f*I(X)k;Mo=q_~k^7=(Zt?6*Lm{GwYy
z(jtQ^HaVS(C0ZjIb0)8<3PYUOhFNQgQGi;}3Drxs2@=Zm(Cr=kkWm+1l7`^Gz}&c*
zY;u4*UrAFqIiMAW#nus*i}lm-Q7l|e>VoVz6sk${4u-OFOY%oaodK3V!!&)Awh$K<
zJ5vdByz=JG2}unAoLFR&Vfi!S&aJy-Rs?s45;%b(ZG4Cz2A;5<X&S(ZO+cP$G<aGQ
zh75UOXsMn7@T5D*$;p%v%>yPG-J8V!?4M(j1KL5~!uZW_X9Kh|9G4u!%hlfIO}E~F
z1A)Z`O8KLwH%Qj?&W%IoaQ=o9!xtpR0N~7|FTvF|gvf^z3e=3eeDxmeWyeK`c|JSf
z+@t?rGeesg1+%BL=OXcdL(satPMse1#rM|W<dWbQJ&U`*Z~o3dP=-}(d8619V9Z)4
zPV`Q%98zGER0*p|W!s@6>hGT1yw5j`JxzThJYsP%jVUXIzwS!sAxN9gpFHvIOWP~?
z9Mfw<R%3RdfvJlavNkuYtKS3zuxi$u3!SP|Rxd@LD1qFlZZ1`9H+_S|6f_&;>hjnX
zK+?#hikN05xi^lzRCjDe&p@ZNxTxrKm>-kM8R+<R&)m)7*5(T}yitAw@59=?^KWW%
z91q?nPo$@&>ba^(RMasdb@pkiS|!l7or^vXV7|)tiYqLD5VFibE&>O(25XOHhUDI=
zy7hkn>y_CGVNU{sA3r`J(rIx2l&nRT3?cjQ<tF-idKDi?@5l*72Rq&@0Cey|Sk)kS
z1?OKG^<?(Aldgv}<;pR}S@{RN*SQbfsaUb1Zb2AXzMca{rC)TH!$bH1-DEX@Z@T<z
zA6lUh#oLh=Pk!Kvpt>i*Kd-H@{&qPQ7ITTMzf~H#lkqa>Fu>=S2!P}^a4}IvR(3m>
z!`M<}Uj`vvS8Na0eCS`01Nia=I){vlHcE_31327VHrc$Q6=7Gt?^*+RjHL*D(Z9(6
zJqS_SXvC354w#L+egI%;bmYj`2e1H^8*nzVl7K(Y*zawFVJyD`ony6mqUh(5k_3Pr
zYFBi0Nqg)EM{}fYth6epmz`l|<oG}HhRsRT;FTX1Lq*_#s7c&AXd8ASMW@zR*v9K`
zC;b+#JmwXOYgp7@Z*OjH4kBuZp+Nq|f7Sc1Kf$9GWitR27yY3kgn*&}ta#ftFa%Z;
zw+65#`qC_LSLTz+IZE$l^Xzeh-5bVe3m@@B>G9v?si)~gmwHs(=e)eU>?f%$LacT(
z&Q}#FL<3;oDECu+7kxk4EP1Me;@ARl0FFiSIkUD8S$#F9vrSYT)sSSSTt!VusQM8L
zr;LE}lT$-$&s@YjgDW_5(LF<#tvAd0mpY-Go)$}X7h}7SENdO7?`J^&4kX~7ht{Zl
zn&kGRW6FXC93*eC=w#T4(Pu%gom6+u#Rg^K*R{_s8-X3LKdCarke9Jtiu~gW?8C9s
z%S`3atkl`EC5UusWJqZf^PVx9j)9*(;Q2_hf!i5mifH+s8U&`9dFNdIFP?4};AL#C
zP!kU@2Hx+S{cOfXN{(2Y@IK~*!dz%=%49UlMOB^B(bi<qnkkSG@Q}-t*H~0B*al}9
zPcbd|ftAC!{A*GO@hup}a193VQo{hWSOY-pnn<~@KrzxXhHUF+-n8B7-+39E3M%cp
z4<2j<O|gUqG+>wrTCa+g)$$tXD>OjSnnpYvx<JUv2ps^a@!jWCuTQ>=uto5}UeC`5
zc_gl`ZqjS)>Pdhw739-Kn3QRnnMEKGBFP?9X%?WA;dl^Hou5BRs1T>YL>@*ho}?By
z+;gTUDK$mK;jWiAUQ3`(t6uy%SGB<MR5VA)`-9r#*<kWV5qqG#lK=xCC8P9@9QPc?
z+-K>Pwwj7hWOlRV@7)ILAzTG6A39$CzP{o8-S_&p;=-@?8euCy*f&di`}QVUDPaDR
z#DHuKL4rjZ(2cB)TvT7Rc3B{M>xPkL)$SgG(2$@JfQLNl)1ed+J5^x_Em_H+eP@Z|
z(k+3gvwb}o{rUu_uxH*3#b7!a!_;^Uo&(3d{_Q8cm;U3Nr_yK9oAwoE%5an*VjG&^
zK!rA8#?WbSn=>K+WH~^y3)SK?&%sY#QA?^JvM#`3`0Lj%6DdKRXuaE%I#K$FInS9T
zAhk4>X7nWh|3h0RMMs@y9a&%5BB4o|U3;-;0dACdbkmXTO7od#98<#$O^uBtu_fpS
zU1KD8{acjg=kHA4JCbo(yaZsCv_kH6eM3X>#N5B*eHNAffcHsutp4cB7_BKtbvlwz
zGll!?YN|nuX1KnV*5M-05%CiV-L}fNwT|AEdmGD&+Z#8xKcZ^dUSGfoCI8^iTc%=T
znW$N~nK7Nmhj5>51wW2vFL8*m5@K%<_>d|-hM9}m?3|)Mr00WCGypcTAwo9ms2lye
z4X*w_y<ENNt_>gz;9R8q{dH?s)491ZnsBgD?oC!xC#IE+=s)XOw@pmB%9nAeq_i}<
zwJWK6Uu<;n!HrC;pQ&L++K1MWcot$OQ-#$)y0`0LlO`{C2SR&q%aM!`8X^UgviK#>
z&IS=-$!Qc3Ai(SbNrliBI6GEYP6^1H8S!(^9u0-wt)=Z-;yTa0SitjmeXw0`%iRn`
z=J9&Z&V-`YF8Anu44A~pH%@u&e({MO<JRKS<_|BFCylQe;M&R13Zqe4`N1BD+`YnD
z0|S}w$ZGQz>u0szTTAz5Jl&f*x;Nw1d-VK3nE=b$Em3v=;{#~IHGT$>XT%806t|GM
z!Pj`0d|tc*31R@!6ztf4^ETvK*>V>qB-y1^aYFy<*E&tV@JvdtV95+dcSU?mjbU$>
z06n{R8w^#<`p$<mgxe*f44)>)He~TDQy6vGCFpejU99mb=+ADydGlsf^|3B;T0>dk
zRuz4~94u-MX@A#-zM!R%nu<#v{S8YaH8sXoMnPy5#?(Zx8sJvF)I5v7;yk_N3_qv)
zVu(@rbfb=!KEzNjL>*4(KM*-*NZQdg$@f{))NSR1Ym)C{_uRtF;_#P4Bh|OBemny6
zI6x2qJtCHL8-<&eYJg{HT_~mfcPeMo->IBZTP@@fiVU^!{dKw@^5EI_^s9bhll-oA
zUD4X4^!xKMy}zFSAfI5k&Llv+BjqPMclmNdjJN<BgB**|aFS-Dnj$o7)hh0lK{>cK
z>NEEW(4vd}gRTIcZJ0ZEE_pDR63=5XaZ2FYFrOTSQ9t2CE`>5t3VS9_G|bGeU_LM7
zVv6QTD>z+>Z1eQF&f!1FCYrjbf#pBQoCYmhnM5|+JV2^J7jatRF97bT5S*{<AH~Nz
zywBXayRLH(c9T4`k@1kmqEc^4MnfRjP6p{@DJ*oHUsli%gPS+2J}js_j(1-&a2j1S
z^NW5YH$C~0^#2Y_(-Xg#Uvb}WzE?X!)dcb8rX%rQBbfW2Om}Vo&n1M0a+0?zq=4F6
zw@RYG-s81g2lML4s!{=_wMt^qStbUV1wL{EgAx!c=AHXbgMhgRCWC7Q>p=X~fg!l@
zDOCVj$C`IR4Q{*p3_h&K8X(;!@#pcBiHbp21PlOl!?Zw#=<ss>wQAFywo6ttMhxvP
zHivA-9{&1~tsb%sKmSaa!UDsH)E-J{M=K1rK`;geue<+Jr6O2*=r{PVNP-0y(2aLW
zk;J={t-@kwnAI;Q?Y|MUv^8Ce(_Xg6D<U>Fw%F<#JTY*LvEM>189jBmgP6}`6eYs?
zzBIdw@sL1hMn9z<#=JD*0uDt}pxtq|YJ(D|u}EvP4-0S#DRVv7M$pgmT&Sh?ktF7)
zZUQUOn?+41qK}n11msQh^9zDwCz?CQ;!YHml#oe05fy3p59$S)oRHcO<{uB$er8Fm
zbH5W64&+y!tMo;Th9Q6qrTqT%Sb20csK8Nvx5NvSF}Iz4oiNvdHzkPlK0dbzY^I-V
z2=%ULUxcrr_QjYxA|rp8Q&(Dz8F$VAls~2zi_8fn=N*W$;ADmb3Mq$>MHjL5kQ)H)
zx3a5&uS_v~%EC^cK5f#3eGB)4QTjEIhtL>{2oShsVrq~V5X*-B7FH3FB=v=|ZFuG9
z?HS$LrhcSYSv^#Wz&Dpom+<*OW!l2QG)Z~Xw5BKzgKX#>Ehn@*g4hX%M&tBM!-#{q
zWX3sLSTH{A5zfs92$Yt7UAL1>ZXSMT(m2Ytj`X?$+<tQYFr;AQL(ATZY>?IqmyJRi
zTI474mN=05cM`FWMTrnimP8}4uI=YIK|WMP9T>-A0X`5X6onUpQo_-%C`21cT#0s?
z47MN6H2ejU5a?xWq#@o#OGajrFIwiUY+U(!SU2^UJoyl77@d&4eqnH|ERG4Fl1S2>
zjzxTPO1jKoBx{^aG>@B(KVBJU_jT;**T!i2V27@jXskkfy2$6fNK>fE=m3*5Y80Ro
zTkm0k6rITQ1k97GB~9Lo1KXuQf{ieUDY{N}&$6&B)V}N<xYcKYOpUtf&=?WqEW6`D
z=#J#3wx8`Fv~J*_x+pPEp36o)h<JaMyppvrzEs`78#Z(ge>H=#rRAUNYJ&nG&|>h_
zUcpZHtY%;;+`(?zJOv{U)IELRbn7{&1Tj}-;^GXeZ->7{rlAceQwi_7a4Ri>0}1Ga
z{f<{R-nj#@|0PcO62&TYL&KYxm89DfCUvyGyELQm#^GGE{?WKj%*_`f&9uE;boYy{
zJs)t2te5ilBY_CWEB$<;w6s)FpZI;J*ZxdAllR49!neiLBuzL*c;k}P!Cm_xOv+*@
zaqN_XZIWcrSYO?RPLj*Z>D<j3JP$p&_G5rC7HY)h^iNs1cU`!Zgs`9nzX&|-$<!Ju
z%&lm5nXY#;N<$7B;)EVC<FSm(Dv@|ivmv@~`1@D3^nzp*33!FWb<qH+mZsdHB>^MF
zvUXvBAkDI*88#ePrNaAA_Rz=!Rs)n71wbg@#q`SGOoJo9qvB@j+@h(JY?y`LP%B-@
z4OzB4kje$+!HTPt)cLT|x*HQSKmJ{7S0s1@uof+W5lq><P_k@W6|f(+Su{lxO?3_y
zA$YBK2pE8HaCz`VvZ)SilH^{2R2S@whj3HF;sB6|AJFEKQZE^cLOn=^Wkl<x@&p*H
zagPm#BE5WhiA8cka!y7z3HA;~`2oiWf%WuV^uDn3dkU5<$7i=4!@W*{=Y3&0PKE>!
zs#G^uXTiiQ7@FRsRH%h__P43_hal6>s2cdX?>+1(-ZD;P2Z!9T0o#gev`+;YZWl@;
zDkAKNN{Jdv8S{H>L9I}<2!I_3Vjx(5n_<NmMYfl2ZUWG;tOYzv;zLrPl3n<gB?Qy1
z_A^Gh(kw~uMGtjP?)Idok2iHnoMM<Ux$M;|w*4n&zW+O#NG{TRygWn{2hU_>{Dy{c
z5K585CXES#ZO$y9I9XzcFU(J_<z3$Ys|{}N?v~R8`PyM2(1i1}ctMt!)Bq{50a>mO
za-2k1fq0QuFIiZE{=N-#ZV;ELlR>i?F1DNLRRFo03FB#$ZZf-j(qV{3bN~c_)s_Jq
ze3qG@1(@T+Hw+7l315_(aQg&sehdd8wIHIM$kMAUCCOApx-|%&KS)L!9=;CZZ@>#T
zcSHT!4KJH%iBaH~A-q4ThCLPrl=u3B@NqXjKHkJ?^weeHSYo>{7~D7;9PCI^Tp|z=
zM+NQ7%o0$OBQbeCr?U&2tC6&|2(3|w{iNs_HFUvN3E@k5U(TDVfj5Y}Q!+7wh{X1-
zNpa?l=afGh=vUmq0AWxy=zOLg2bP@3(y82|4tx08m#!Y}2pw1#0#H~TpWQGHn?9Xv
zG%4s}n}RfhI78%q8p3k-?i`>LG0$xd;@i!cH7g(G&^<bqal1y29NAsd-@A(liPY*%
zKYB3E9*H`(Ah%hA`$8ROydYvZS;ZnSbMK!jwwl)qFUG?R!uu__-gcE%No(3?xEfD2
zzo5dsx@r@@(Vd2mxfZ-gFzaM$^C8dFiV8i@BDDYu&_pTBy<OD=F6!9HXVQ*$Sz`u_
zYE(0DY`ZrLvH%R4;)THv-tX_#124ucU;|!;nX;jwVbZkc=y2sVDrWq=Nb3bo3UefT
zmSL6AuqfE)ZR;<semHcEcAqojoYpiZW#`Lmp`(*_Z(X!q&OJw7YlZlhxjFJ1_}n9|
zu)VJjFTCRC`zqVFRBXlpjfq)Pu3x`=ZNU&WJN=o)f{C{4W<DENq@bzWwX8<<*R3}G
zT%{3d^PcuOwU)l=d$05*<wo0$DpeJyKbEanv0`V#SO(Yb6i(fDsdghEOa7skQ6#tB
z0(4QGH#d~VVr20PXe84YPF-{qvn=TmUaX&fbOB?80Oa?@qI8OkjLe#qD|t_zI)!1K
zB9kVa1-PX0rojQ+q~<GuEeK1EH?m*7;$eg)%dZ>%j^70W&-Wly^Dtj)GHRj^)-hLD
z>{+t1M~+v=6zz;d?*-G@Ly%I{V>~u!^lq>es;fZD&au5fy}mL@_KnFR5?9Yr-x46q
zi=5fce2n^<HO8on=EuzxA2k$hF5w9i1mentB8$&~-hdJ5sav{e1~3^cMeJV&NDfon
zF%v%c;OMYP2I)sdkg2W2?-$(PqrTBkei$4b-af3>HmnG9DqXhY+Goe@?JdRcZE8`-
zd0>KJ_wZ4pUf@u71>5ObSN&@c0~iKM#i?CEk^|Ss!$a@>+qYYJ)ZqV9zq1fJMIJRr
zIFvj!l^@RB&4Yc`v=31an?NIex_99)<^$0_a>=xq*9CU;1y&i5Tl1(rd+{Q5dCae0
z;G3x*E|t1h4xZPUCr0@OaY#qc;zHqqE9A9;<`UP6v<w5cg31M4V)def0r3^b;2)>m
z+{_d2>(2XtcGg(t8O}m&D{1!DT#FMp(4S$CZ)=8{o1cOA^Ic_t+pLW<yydQM{D37r
zb$Ja~Jx#f0qye=u%!!y?qp-R3wo=XbhsSS1-q*5>$AgS~RgQ1Z+blReN+*($fIDkY
zrTbFfCmZm+=@G4GVlsoNMGj*AtpXzKvEZ%0Kmd|pkHLtS^N?i-FtKRpYIj<!0tU;g
zs;Zi#3eHPQO}GG?W7F_fdgJwl{G;55Kv}5Sn{omJ>lg-uLGD<qqJhb{KroUS{XOo%
z1BL+@gcDr+oq44$5{z{lH?BT*Oo_!lS!JDdL+LQXU^6~J%TW&AaS)NL<gn17Hb%;i
z!l+C)Cn^soI4;EyS6A017=N(Udx@grL?BKWf+G(Lc<pAmah^eD+}=_(1#9y;q-R^S
zv`&F3Wsq`+AEca;hhDf|dyu@=*JP+V_4gjR?fC<_!hLu~6%`d3!360KNDij-TAmix
zsOGZ-#qaKyBryFMc(h6alv&<b>fP#hr%BSn^T?Xb>(&V(eLnNx!NPre9)dBr2fZmd
z|C~SIb!i+|{_fb`bC@qMgn^3l^Oob|@0~t7xH~=kUcumGF5`h+*tk<_{~w@I8@4%O
zW+5X1VC3E8<H+3S$NkZ+0$X0|i(2}Kb-3ep52SiJnr6bxp2cEsHFW;@V_%(e^o12*
z?X*L8Sz3P#m+Nd`pahQ^thSFisycj90JTo*W@JRfmW2wq@OO{ZJbChj*9A3S%;9v9
z!H!Mc9%Ha20TPYvx749aJ7kbMPI2<ZU^IY==Oa;RNOBTrMJ{*xiIFho;fVk#^y}(D
zr95j#ctXnS&iHc6*S@z*zUj@I@E!*IUlak)_)n_w720_u!{S!VhUNtidt>Bn?>T^G
z#?O2Qf865Mf$%)AABQo!F{k6=)WY#5-)NpT9$O-3?7u89bg1IdW^h8~y|V3O@$suB
zgKSqWyfV4>C(w+l$#+!TGkI`W|4IuD<pV<EXJ>?=uxD@_4`J3`5OswhV+DsLIGq+I
z9F|tXDK0!B!mQ|zO?SqkLGc32yvvs^xd7>3+~8zDv$-05U+sMggIS(s;TiA3G^P|Q
zU>)*&Guo3<;VGuX%N)g?SFjiZORz~OR++{U)~3yyhcf9<v({sJ%Uwf=b+NTRFAu$Q
zXBCGvPdAn!(EGE(563Pfw#RmE!07ZVM_!xCFHSYI0y=o=N#H1+7tf#bFbfwhwCQRw
zOzN@gO8eZ9TJ*X3$a5{M3IWE;;<)?i(+q>j_3wRt%02#bxB8_AT{bxP*a!A{7E_&J
zUxlG~+S=9rx{ENYN$aEo4%J!n<~;+?|I&>c7cl=iN42!(;c-R8ei+$b;29$D*i`<h
zkzDQBnYUbWOfmu8@GvHEDNnvjvsc>M%42z*M$p*}ZpF@wtcsH-Ps)28X(}1{xc{Va
z$E(&%fPsx-*A(APMu()u_s8dhu$JDEFa?5m>olrJ+LF_a%ZUY>ZU3@s2UKpA&WDd8
z0aox*1-n*o#E2mbO8=CqduiNQwfI2B+>uapuf_&LyWa!hZ?45`XD<VvH3x6Qw2Y}e
zc<e&AXstBH5aAK5qcQ5W@5V5Jd&Sv@ie5Li@z3xchG|OUNKq*?b(ttinLhxkZ7b#H
z<Ad*xAUrvr0yQ(16BQN~b^*P3DB{yf7`ZU@LwojeSko6To`CkG?~;R(L>jr?+o0jl
zo1N8>+Z1hv;N;TJUl9LtQYtKNG(7?M7Af6XGm2F*bLcvRX!Fk{{Vyk#CoGDaCa^uh
zyG|l{sh#V-7Mw?h*DBI`W0K)xD0Ke$NpS3@tEx^zv9MEr!_TCza9^03aL<cp=fHQ8
zG%x<u+shNko}zK=?rp^#-jjp`>hekvLigubY@9Kcq8dc$OKxs@mws$4NCN6e5x*k=
zM9nTGWtVm7R2qU$7Cex?p%yuAFd<O-)ryr$f#GYanJ9am<QvBv+CFPk**mzZr&yuA
zda7<IrkTlhS%;rB;6G6J*mlptH2>Fyc4osC`;Ua0au`0%cVxe{81J-Yv7Yy$CjXUv
zGHoR<&ItXrRTqOi%ft*>mGfMCt;wos2ioNI^WWPTp;TpDuzbvSYAsDhHm3Uvs1l%)
z=&Zw5?4Y0^CXg>7;iUp+D7sMQWPOW|h4BKJnLG@#gcgm?>6bQ06>Znj3b`UEC?sUr
zdF*KFe3|J8`b;cDis=B?>Pw=hAP<e)%bQ(ZeT&l{5*T!$`^9dTYlFwSp2D$H_uOy(
z6pVj2!=i)DIgPW7*X2Rbwms3h_j&Ep#C0OIBU1D-S~0W2vgVOET10EX|IQOQ!ZT}1
zE>TF5?VJ4?f8kv4+5Z!hv}a}2ef<o!Ls_%Eb{h0iQs`|Teglh^IeT`(y2(tjb{`Up
zODwjXBfK>j7eIkQNUU;HM&m4&ez_yhVV^NNL&c$e(4aF6ia$&5?#m1QzNPn^K%zGy
zFZ8FuLx=HrG1|dZX-9m>ZvhsC>gY6}<8HLrf5C}vTkRhB?LoW*V#E0Lmr|mlgb<e2
ztzUogiIEx<H+LsQh`p=2zh@{`mkk&aYm1eyqNO!=-|VUORy&sCjgY?Ze5<W`1szRa
zd>{5IEHnkd&O@@54}<vIhA5lmAi0Asd>N1&^ma}P^J1$kT{;C=ajEzs3Cv5mCOh<-
z#K&a{3JIG|6aztdkA|1-BS$3w{gY3~Rv&!?1_82CftXzxqiR=tZow%C=bWKT&ZD!p
z-q2$EaUd7Ja@pTMlJ6z><o7{EcZA|sqj47&n~qEAk^ZG_gSWJAm*|4se2fv!S0oLV
z@5|*!-zhu`6`~Ok!qieeKE7ID>wb1io9&l^ixN@U0@P1%*sv`(VH34}28M)$W$Q&@
zavhF+=bL+0dQ6D8`0f%ENSNp>2;5@*S+9zD6GjlQq1*@et?3Y%!qrBLe-c3MQy|oH
zTYX|}fG{2-fw+$mlj)rm7O97qqCp+fnmHx!2r@8yv}f4b+F#(8@%_!BJoyOcBUrto
zD`9IPxBHpkUK11ZtLN9T*-yZBUf$x2b_(MH*rWQRiuoP^*?~h)B*7fgT{ZZ8+hD{5
z6wZn5wtj2yqsS;?A;*RWN({q-a3HJM*vOHUI{a2gARuV*>+S>Ok%hEy0gwq?lgD{^
zqw%5;O%Lho>p76~R;WW^+W}p{AakkxXY`^=bP}ffXJn}2hQ*?XdO>{Y1e3T)eSLkn
z=#SB)yaYKcqH$yeW;;zqWvctoL4gWF(Ti(!=S^@#NXKnE^?Y}McpP9)-IPPpmW!vr
zg3c>HUlTuLTc6LP6FDA9;bUY$3osqvbGn@mw5KDGnytY>17{h^B`-`-9EEL@iF)&w
z=9do*smm;ZT|R*y*(DB#_xy9-Q%_ugT4EagC{&Y3?Yoi>q*ZyM0W7s_nHUW4+HxJw
zlq7i%E|u`{<!MJ`VLWjGThJJGLo&<7yYImSc{fCNf1r9!zj|?9yK_0dpzzqSrvL~T
zy-Pm0v%&kXXxwpQ(@fqWLqvpy8ULKHyV4tEGR+g7S|@$PPB9o8EFd`j8-iM9gY5^{
zCCQ1VYZ<soPyYS(#fv6i)QvM435oAzZ|}mlh0~XnF)b)+bd#*bPo=HCX!GL}+u)Jo
zB%Ey>dNvb{{=D%&1+k{lTauKM6UGqH0}TzrA_{)Oyl{~UkBM2kVg=8T^nr|>{`qXo
z$iMzW<@}$Y9-DsJbLRJA5)rxV^;cx{@OY{ISJ+v-`cufC=PG{f$Cf|CJ66rlSpvU{
oNqjZOaeserm2>~`Zx`Ors9cnfc1_(+2qwc`vuSnAN~4qi13@)rf&c&j

diff --git a/reference/resistance_predict.html b/reference/resistance_predict.html
index c1fdea37..134f1182 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -299,7 +299,7 @@
     <h2 id="interpretation-of-sir">Interpretation of SIR<a class="anchor" aria-label="anchor" href="#interpretation-of-sir"></a></h2>
     
 
-<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr/" class="external-link">https://www.eucast.org/newsiandr/</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
+<p>In 2019, the European Committee on Antimicrobial Susceptibility Testing (EUCAST) has decided to change the definitions of susceptibility testing categories S, I, and R as shown below (<a href="https://www.eucast.org/newsiandr" class="external-link">https://www.eucast.org/newsiandr</a>):</p><ul><li><p><strong>S - Susceptible, standard dosing regimen</strong><br>
 A microorganism is categorised as "Susceptible, standard dosing regimen", when there is a high likelihood of therapeutic success using a standard dosing regimen of the agent.</p></li>
 <li><p><strong>I - Susceptible, increased exposure</strong> <em><br>
 A microorganism is categorised as "Susceptible, Increased exposure</em>" when there is a high likelihood of therapeutic success because exposure to the agent is increased by adjusting the dosing regimen or by its concentration at the site of infection.</p></li>
@@ -321,13 +321,14 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>  year_min <span class="op">=</span> <span class="fl">2010</span>,</span></span>
 <span class="r-in"><span>  model <span class="op">=</span> <span class="st">"binomial"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="plot.html">plot</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="resistance_predict-1.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in eval(expr, envir, enclos):</span> object 'x' not found</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">ggplot_sir_predict</span><span class="op">(</span><span class="va">x</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="resistance_predict-2.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> object 'x' not found</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># using dplyr:</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>
@@ -341,25 +342,7 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>  <span class="va">mymodel</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/attributes.html" class="external-link">attributes</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span><span class="op">$</span><span class="va">model</span></span></span>
 <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">mymodel</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="resistance_predict-3.png" alt="" width="700" height="433"></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> NULL</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Call:</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> glm(formula = df_matrix ~ year, family = binomial)</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Coefficients:</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>             Estimate Std. Error z value Pr(&gt;|z|)</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> (Intercept) 47.02915   72.98739   0.644    0.519</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> year        -0.02280    0.03637  -0.627    0.531</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> (Dispersion parameter for binomial family taken to be 1)</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>     Null deviance: 5.9620  on 11  degrees of freedom</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Residual deviance: 5.5701  on 10  degrees of freedom</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> AIC: 50.533</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> Number of Fisher Scoring iterations: 4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># create nice plots with ggplot2 yourself</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">&amp;&amp;</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>
@@ -375,7 +358,7 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><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">data</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">data</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="resistance_predict-4.png" alt="" width="700" height="433"></span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error:</span> In argument: `mo == as.mo("E. coli")`.</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/skewness.html b/reference/skewness.html
index b84583dc..1352e7f0 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <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.00714797</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.01314082</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 49c35c9d..6fee5b1c 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.0.0.9028</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9030</small>
 
     
     <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,51 +210,50 @@
     <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="co"># Current settings (based on system language)</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"Ciprofloxacin"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Ciprofloxacin"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="st">"Coagulase-negative Staphylococcus (CoNS)"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Coagulase-negative Staphylococcus (CoNS)"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># setting another language</span></span></span>
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"Spanish"</span><span class="op">)</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using Spanish (Español) for the AMR package for this session.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"Ciprofloxacin"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Ciprofloxacina"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="st">"Coagulase-negative Staphylococcus (CoNS)"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Staphylococcus coagulasa negativo (SCN)"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># setting yet another language</span></span></span>
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"Greek"</span><span class="op">)</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using Greek (Ελληνικά) for the AMR package for this session.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"Ciprofloxacin"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Σιπροφλοξασίνη"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="st">"Coagulase-negative Staphylococcus (CoNS)"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Σταφυλόκοκκος με αρνητική πηκτικότητα (CoNS)"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># setting yet another language</span></span></span>
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"Ukrainian"</span><span class="op">)</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using Ukrainian (Українська) for the AMR package for this session.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"Ciprofloxacin"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Ципрофлоксацин"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="st">"Coagulase-negative Staphylococcus (CoNS)"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Коагулазонегативний стафілокок (КНС)"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1:</span></span></span>
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"Deutsch"</span><span class="op">)</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using German (Deutsch) for the AMR package for this session.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"German"</span><span class="op">)</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using German (Deutsch) for the AMR package for this session.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"de"</span><span class="op">)</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using German (Deutsch) for the AMR package for this session.</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"amox/clav"</span><span class="op">)</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ More than one result was found for item 1: amoxicillin and clavulansäure</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Amoxicillin/Clavulansäure"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># reset to system default</span></span></span>
 <span class="r-in"><span><span class="fu">reset_AMR_locale</span><span class="op">(</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using the English language (English) for the AMR package for this</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   session.</span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"amox/clav"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Amoxicillin/clavulanic acid"</span>
+<span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .Call(Cchin, x, table):</span> NULL value passed as symbol address</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/search.json b/search.json
index c20f6c5d..b3314374 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: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% of total where a microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,626 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,616 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2626        Length:2626        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-14   #>  Mode  :character   Mode  :character   Median :2015-06-05   #>                                        Mean   :2015-06-15   #>                                        3rd Qu.:2017-08-23   #>                                        Max.   :2020-01-01   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :43.2% (n=1134)   %R   :36.1% (n=947)    #>  Unique:4              %SI  :56.8% (n=1492)   %SI  :63.9% (n=1679)   #>  #1    :B_ESCHR_COLI   - %S :41.1% (n=1080)   - %S :52.7% (n=1383)   #>  #2    :B_STPHY_AURS   - %I :15.7% (n=412)    - %I :11.3% (n=296)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1102)   %R   :37.0% (n=971)    TRUE:2626      #>  %SI  :58.0% (n=1524)   %SI  :63.0% (n=1655)                  #>  - %S :51.9% (n=1362)   - %S :59.9% (n=1574)                  #>  - %I : 6.2% (n=162)    - %I : 3.1% (n=81)                    #>   glimpse(our_data_1st) #> Rows: 2,626 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"J8\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, R, S, S, S, S, R, S, S, R, R, R, R, I, S,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, R,… #> $ CIP        <sir> S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1808          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1250 #> 2 Staphylococcus aureus      661 #> 3 Streptococcus pneumoniae   399 #> 4 Klebsiella pneumoniae      316"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,626 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2016-06-14 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,626 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI R     S     #>  7 B_ESCHR_COLI R     S     #>  8 B_ESCHR_COLI S     S     #>  9 B_STPHY_AURS S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,626 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     S     #>  7 B_ESCHR_COLI R     S     S     S     #>  8 B_ESCHR_COLI S     S     S     S     #>  9 B_STPHY_AURS S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,616 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 971 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN R     S     S     R     TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS R     S     S     R     TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI S     S     S     R     TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI S     S     S     R     TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI S     S     S     R     TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS S     S     S     R     TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN S     S     S     R     TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS S     S     S     R     TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS S     S     S     R     TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN S     S     S     R     TRUE  #> # ℹ 961 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"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.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.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: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          S         R            R          R            I            I #> 2          I         R            I          I            S            I #> 3          I         R            R          I            I            S #> 4          R         I            I          S            S            I #> 5          S         I            R          S            I            I #> 6          S         S            I          I            R            I #>   kanamycin #> 1         R #> 2         S #> 3         S #> 4         S #> 5         R #> 6         R mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 9.577e-17 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/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 169 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 8 July 2023 15:30:05 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 data (SAS) file (50.9 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 ‘Microoganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) Download SAS data (SAS) file (1.9 MB) Download SAS transport (XPT) file (1.4 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) Download SAS data (SAS) file (84 kB) Download SAS transport (XPT) file (68 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 28 454 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 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (57 kB) Download tab-separated text file (3.2 MB) Download Microsoft Excel workbook (1.2 MB) Download Apache Feather file (1.1 MB) Download Apache Parquet file (92 kB) Download SAS data (SAS) file (3.6 MB) Download SAS transport (XPT) file (7.6 MB) Download IBM SPSS Statistics data file (4.4 MB) Download Stata DTA file (7.5 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).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS data (SAS) file (9.8 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 data (SAS) file (92 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 444 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 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (42 kB) Download Microsoft Excel workbook (18 kB) Download Apache Feather file (17 kB) Download Apache Parquet file (12 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (54 kB) Download Stata DTA file (68 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) (unavailable SAS data (SAS) file) 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: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 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] \"16365-9\" \"25274-2\" \"3344-9\"  \"80133-2\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #> [1] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"87604-5\" ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways 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  1992-10-07  30  30.75068          7 #> 2  1965-08-18  57  57.88767         34 #> 3  1988-10-10  34  34.74247         11 #> 4  1945-12-13  77  77.56712         54 #> 5  1934-04-13  89  89.23562         65 #> 6  1973-08-13  49  49.90137         26 #> 7  1945-05-18  78  78.13973         54 #> 8  1949-08-21  73  73.87945         50 #> 9  1939-12-12  83  83.56986         60 #> 10 1941-03-27  82  82.28219         58"},{"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 S      #> 2 S      #> 3 I      #> 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.808 #> 2 ICU        0.549 0.778 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(carbapenems()) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 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 cid Compound ID found PubChem name Official name used WHONET/EARS-Net group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug. Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"av Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name used WHONET/EARS-Net atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.73 (8 August, 2022). Accessed https://loinc.org October 30th, 2022. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_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\" ) #> Interpreting disk diffusion zones: 'ampicillin' (AMP), 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) #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2023... #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2023... #>  OK. #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2023... #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2023... #>  OK. #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK. #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #> 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)  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (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\" ) #> Interpreting MIC values: 'AMX' (amoxicillin), 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\" ) #> Interpreting MIC values: 'AMX' (amoxicillin), 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 }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ 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 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 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  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 28 454 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) #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli - #>      assuming body site 'Intravenous'. #> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023... #> 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... #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK. #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK. #> => 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: 49 × 12 #>    datetime            index ab_input ab_guideline mo_input     mo_guideline     #>    <dttm>              <int> <chr>    <ab>         <chr>        <mo>             #>  1 2023-07-08 19:07:23     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR #>  2 2023-07-08 19:07:22     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR #>  3 2023-07-08 19:07:22     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR #>  4 2023-07-08 19:07:21     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR #>  5 2023-07-08 19:07:14     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  6 2023-07-08 19:07:14     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  7 2023-07-08 19:07:14     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  8 2023-07-08 19:07:14     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  9 2023-07-08 19:07:14     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> 10 2023-07-08 19:07:14     6 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> # ℹ 39 more rows #> # ℹ 6 more variables: guideline <chr>, ref_table <chr>, method <chr>, #> #   input <dbl>, outcome <sir>, breakpoint_S_R <chr>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> Interpreting MIC values: 'AMP' (ampicillin), 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\" ) #> Interpreting disk diffusion zones: 'ampicillin' (AMP), 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) } #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli - #>      assuming body site 'Intravenous'. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #> 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 MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli - #>      assuming body site 'Intravenous'. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #> 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... #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli - #>      assuming body site 'Intravenous'. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #> 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 MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli - #>      assuming body site 'Intravenous'. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #> 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... #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli - #>      assuming body site 'Intravenous'. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #> 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... #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Escherichia coli - #>      assuming body site 'Intravenous'. #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #> 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... #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK. #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  * WARNING * #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  * WARNING * #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  OK. #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  OK. #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK. #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #> 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\" \"78772-1\" \"78773-9\" \"79134-3\" \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 28 454 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 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: 28,454 × 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_DNTR          2 MEM  A. xylo… 10ug      #>  2 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 MEM  A. xylo… NA        #>  3 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 SXT  A. xylo… 1.25ug/2… #>  4 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 SXT  A. xylo… NA        #>  5 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 TZP  A. xylo… 30ug/6ug  #>  6 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 TZP  A. xylo… NA        #>  7 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 MEM  A. xylo… 10ug      #>  8 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 MEM  A. xylo… NA        #>  9 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2… #> 10 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 SXT  A. xylo… NA        #> # ℹ 28,444 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,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 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: 437 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 427 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,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 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,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 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 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    of total where a microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 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] 12  7 19 29 17 11 41 34 32  9 25 21  6 48 10 46 45 18 32 37 17  8 40 12 10 #>  [26] 19 31 41 15 15 46  9 10 26  1 27 34 18 24 12 23 17 31 14 13 50  9 32  2  9 #>  [51] 16 38 20  5 48 48 14 12 20 42 28 49 14 30 17 47  7 45  8 13 44  1 11 30 35 #>  [76] 31 39 27 43 26 10 14  4 22 36 47 33 31 16 18  3 48 23  6 12 38 28 15  1  5 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE #>  [25] FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE #>  [37] FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE #>  [49]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE #>  [61]  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE #>  [73] FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE #>  [85]  TRUE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE #>  [97] FALSE FALSE FALSE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 1 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-06-06 24D393     20 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [96] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 022060  2004-05-04 A         TRUE        #>  2 05C73F  2006-01-12 A         TRUE        #>  3 067927  2002-01-13 A         TRUE        #>  4 080086  2007-10-26 C         TRUE        #>  5 083080  2012-04-16 A         TRUE        #>  6 088256  2003-01-25 A         TRUE        #>  7 092034  2006-06-12 C         TRUE        #>  8 0E2483  2007-05-29 B         TRUE        #>  9 107DD1  2012-09-03 C         TRUE        #> 10 151041  2006-02-09 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 [94] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 ICU      2004-05-04 022060          1 TRUE        #>  2 Clinical 2006-01-12 05C73F          1 TRUE        #>  3 ICU      2002-01-13 067927          1 TRUE        #>  4 Clinical 2007-10-26 080086          1 TRUE        #>  5 Clinical 2012-04-16 083080          1 TRUE        #>  6 ICU      2003-01-25 088256          1 TRUE        #>  7 ICU      2006-06-12 092034          1 TRUE        #>  8 Clinical 2007-05-29 0E2483          1 TRUE        #>  9 Clinical 2012-09-03 107DD1          1 TRUE        #> 10 Clinical 2006-02-09 151041          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           60             13            40            48 #> 2 ICU                31             10            24            28 #> 3 Outpatient          3              3             3             3  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] FALSE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [96] #>    patient mo           ward     flag_episode #>    <chr>   <mo>         <chr>    <lgl>        #>  1 05C73F  B_STRPT_MITS Clinical TRUE         #>  2 C58921  B_BCTRD_FRGL Clinical TRUE         #>  3 ED4982  B_ESCHR_COLI ICU      TRUE         #>  4 E58140  B_STPHY_CONS Clinical TRUE         #>  5 851259  B_STRPT_PNMN Clinical TRUE         #>  6 D43733  B_ESCHR_COLI ICU      TRUE         #>  7 972724  B_STPHY_EPDR ICU      TRUE         #>  8 616685  B_STPHY_EPDR Clinical TRUE         #>  9 824233  B_STPHY_AURS Clinical TRUE         #> 10 400169  B_SERRT_MRCS 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] 1395 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 3.030727 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.06974119"},{"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) (link) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu \"WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)\" (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, 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\") #>  (16 isolates had no test results) str(out) #>  Ord.factor w/ 3 levels \"Negative\"<\"Positive, unconfirmed\"<..: 1 1 1 1 1 1 1 1 1 1 ... table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1978                     0                     6   out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>           870           804           326   # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     mdro() %>%     table()    # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     pull(MDRO) %>%     table() } #>  (16 isolates had no test results) #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #>  (16 isolates had no test results) #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `MDRO = mdro()`. #> Caused by warning: #> ! in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> . #>                         Negative       Multi-drug-resistant (MDR)  #>                             1601                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0  # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for data.frame mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] S S S S S R R S S S mean_amr_distance(sir) #>  [1] -0.4743416 -0.4743416 -0.4743416 -0.4743416 -0.4743416  1.8973666 #>  [7]  1.8973666 -0.4743416 -0.4743416 -0.4743416  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.025   0.0625  >=256   64      4       0.005   <=0.001 0.125   1       #> [10] 0.025   mean_amr_distance(mic) #>  [1] -0.5822026 -0.3556128  1.7012899  1.3584728  0.6728385 -0.9802010 #>  [7] -1.3781993 -0.1842043  0.3300214 -0.5822026 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -0.5822026 -0.3556128  1.7012899  1.3584728  0.6728385 -0.9802010 #>  [7] -1.3781993 -0.1842043  0.3300214 -0.5822026  disk <- random_disk(10) disk #> Class 'disk' #>  [1]  6 19 36 25  6 25 38 47 41 11 mean_amr_distance(disk) #>  [1] -1.30715576 -0.43122664  0.71421913 -0.02695167 -1.30715576 -0.02695167 #>  [7]  0.84897745  1.45538992  1.05111494 -0.97025994  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   31 >=16    2 #> 2   B    S   25    4    2 #> 3   C    S   20    4    2 #> 4   D    R   18    4    2 #> 5   E    I   18    4  <=1 #> 6   F    R   30 >=16    2 #> 7   G    R   31    8  <=1 #> 8   H    S   17 >=16    2 #> 9   I    R   20  <=2  <=1 #> 10  J    I   19  <=2  >=4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.984641176 -0.173383326 -0.389565646 -0.001696925 -0.871323282 #>  [6]  0.941404712  0.377224435 -0.095010969 -0.522640739 -0.249649437 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   20    4    2 -0.389565646  0.0000000 #> 2   I    R   20  <=2  <=1 -0.522640739  0.1330751 #> 3   J    I   19  <=2  >=4 -0.249649437  0.1399162 #> 4   B    S   25    4    2 -0.173383326  0.2161823 #> 5   H    S   17 >=16    2 -0.095010969  0.2945547 #> 6   D    R   18    4    2 -0.001696925  0.3878687 #> 7   E    I   18    4  <=1 -0.871323282  0.4817576 #> 8   G    R   31    8  <=1  0.377224435  0.7667901 #> 9   F    R   30 >=16    2  0.941404712  1.3309704 #> 10  A    R   31 >=16    2  0.984641176  1.3742068 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 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 444 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 444 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 444 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 444 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 444 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 444 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 444 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 444 × 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… #> # ℹ 434 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 169 Microorganisms — microorganisms","title":"Data Set with 52 169 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 169 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 169 Microorganisms — microorganisms","text":"tibble 52 169 observations 23 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters, e.g. \"Váňová\" becomes \"Vanova\". lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. 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% ~36 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 169 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 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 169 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 169 Microorganisms — microorganisms","text":"Included taxonomic data : ~36 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species 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 169 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 34 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 169 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 169 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 169 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,169 × 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,159 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 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $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.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic fortify(object, ...)  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 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 = \"uk\")   # \\donttest{ if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_sir_values) }  # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. functions meant count isolates, calculate proportion resistance/susceptibility. Use count() functions count isolates. function susceptibility() essentially equal count_susceptible() / count_all(). Low counts can influence outcome - proportion functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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] 0.025 0.125 2     0.001 16    >=128 2     32    64    2     0.5   0.5   #> [13] 1     8     0.002 0.25  64    2     32    0.002 0.25  0.025 0.5   16    #> [25] 16    random_disk(25) #> Class 'disk' #>  [1] 37 43 42 43 44 38 14 25 37  9 10 49 34 17 50 43  9 19 45 42 18 17 43 26 31 random_sir(25) #> Class 'sir' #>  [1] S I S I S S I S R S S I S S R I R S R I S I S R S  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 1       32      2       64      0.5     0.025   32      0.01    64      #> [10] 8       0.002   0.5     0.01    0.01    <=0.001 0.125   8       16      #> [19] 0.025   16      4       32      0.01    0.25    0.25    random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 1    1    8    >=16 4    4    8    1    4    8    1    >=16 2    4    4    #> [16] >=16 8    8    >=16 2    4    2    4    8    1    random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 0.25  2     0.5   1     0.125 4     0.25  4     4     0.5   0.25  4     #> [13] 8     0.25  0.5   0.125 8     4     0.5   0.125 0.125 2     0.25  0.5   #> [25] 0.5    random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 17 11 43 16 49 47 41 41 23 28 26 35 44 19 50 43 36 20 45 46 14 50 40  8 17 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 15 14 14 13 14 11 11 17 16 15 13 14 11 16 11 13 12 13 17 16 17 12 17 11 12 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 26 26 27 21 18 19 22 19 19 15 23 23 24 19 17 19 20 21 19 21 22 23 16 19 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) 47.02915   72.98739   0.644    0.519 #> year        -0.02280    0.03637  -0.627    0.531 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.9620  on 11  degrees of freedom #> Residual deviance: 5.5701  on 10  degrees of freedom #> AIC: 50.533 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] 0.00714797"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate Strings from the AMR Package — translate","title":"Translate Strings from the AMR Package — translate","text":"language-dependent output AMR functions, mo_name(), mo_gramstain(), mo_type() ab_name().","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate Strings from the AMR Package — translate","text":"","code":"get_AMR_locale()  set_AMR_locale(language)  reset_AMR_locale()  translate_AMR(x, language = get_AMR_locale())"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate Strings from the AMR Package — translate","text":"language language choose. Use one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). x text translate","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 20 supported languages English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). languages translations available antimicrobial drugs colloquial microorganism names. permanently silence -per-session language note non-English operating system, can set package option AMR_locale .Rprofile file like :   save file. Please read adding updating language Wiki.","code":"# Open .Rprofile file utils::file.edit(\"~/.Rprofile\")  # Then add e.g. Italian support to that file using: options(AMR_locale = \"Italian\")"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"changing-the-default-language","dir":"Reference","previous_headings":"","what":"Changing the Default Language","title":"Translate Strings from the AMR Package — translate","text":"system language used default (returned Sys.getenv(\"LANG\") , LANG set, Sys.getlocale(\"LC_COLLATE\")), language supported. language used can overwritten two ways checked order: Setting package option AMR_locale, either using e.g. set_AMR_locale(\"German\") running e.g. options(AMR_locale = \"German\"). Note setting R option works session. Save command options(AMR_locale = \"(language)\") .Rprofile file apply every session. Run utils::file.edit(\"~/.Rprofile\") edit .Rprofile file. Setting system variable LANGUAGE LANG, e.g. adding LANGUAGE=\"de_DE.utf8\" .Renviron file home directory. Thus, package option AMR_locale set, system variables LANGUAGE LANG ignored.","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Spanish\") #> ℹ Using Spanish (Español) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacina\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Staphylococcus coagulasa negativo (SCN)\"  # setting yet another language set_AMR_locale(\"Greek\") #> ℹ Using Greek (Ελληνικά) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Σιπροφλοξασίνη\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Σταφυλόκοκκος με αρνητική πηκτικότητα (CoNS)\"  # setting yet another language set_AMR_locale(\"Ukrainian\") #> ℹ Using Ukrainian (Українська) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ципрофлоксацин\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Коагулазонегативний стафілокок (КНС)\"  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"de\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"amox/clav\") #> ℹ More than one result was found for item 1: amoxicillin and clavulansäure #> [1] \"Amoxicillin/Clavulansäure\"  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> [1] \"Amoxicillin/clavulanic acid\""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-0-0-9028","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.0.0.9028","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations EUCAST dosage guideline v13.0 added dosage data set ECOFF: clinical_breakpoints data set now contains epidemiological cut-(ECOFF) values. ECOFFs can used MIC/disk interpretation using .sir(..., breakpoint_type = \"ECOFF\"), important new addition veterinary microbiology. Added support 29 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-0-0-9028","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9028","text":"Updated algorithm .mo() giving weight fungi mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) 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()","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 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: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% of total where a microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,626 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,616 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2626        Length:2626        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-14   #>  Mode  :character   Mode  :character   Median :2015-06-05   #>                                        Mean   :2015-06-15   #>                                        3rd Qu.:2017-08-23   #>                                        Max.   :2020-01-01   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :43.2% (n=1134)   %R   :36.1% (n=947)    #>  Unique:4              %SI  :56.8% (n=1492)   %SI  :63.9% (n=1679)   #>  #1    :B_ESCHR_COLI   - %S :41.1% (n=1080)   - %S :52.7% (n=1383)   #>  #2    :B_STPHY_AURS   - %I :15.7% (n=412)    - %I :11.3% (n=296)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1102)   %R   :37.0% (n=971)    TRUE:2626      #>  %SI  :58.0% (n=1524)   %SI  :63.0% (n=1655)                  #>  - %S :51.9% (n=1362)   - %S :59.9% (n=1574)                  #>  - %I : 6.2% (n=162)    - %I : 3.1% (n=81)                    #>   glimpse(our_data_1st) #> Rows: 2,626 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"J8\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, R, S, S, S, S, R, S, S, R, R, R, R, I, S,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, R,… #> $ CIP        <sir> S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1808          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1250 #> 2 Staphylococcus aureus      661 #> 3 Streptococcus pneumoniae   399 #> 4 Klebsiella pneumoniae      316"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,626 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2016-06-14 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,626 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI R     S     #>  7 B_ESCHR_COLI R     S     #>  8 B_ESCHR_COLI S     S     #>  9 B_STPHY_AURS S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,626 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     S     #>  7 B_ESCHR_COLI R     S     S     S     #>  8 B_ESCHR_COLI S     S     S     S     #>  9 B_STPHY_AURS S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,616 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 971 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN R     S     S     R     TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS R     S     S     R     TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI S     S     S     R     TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI S     S     S     R     TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI S     S     S     R     TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS S     S     S     R     TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN S     S     S     R     TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS S     S     S     R     TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS S     S     S     R     TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN S     S     S     R     TRUE  #> # ℹ 961 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"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.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.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: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          I         I            R          I            S            S #> 2          R         R            S          I            S            S #> 3          R         S            S          S            S            R #> 4          S         I            S          S            I            S #> 5          S         I            R          R            R            R #> 6          R         R            I          R            R            S #>   kanamycin #> 1         R #> 2         R #> 3         I #> 4         I #> 5         R #> 6         R mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 9.577e-17 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/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 169 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 8 July 2023 15:30:05 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 data (SAS) file (50.9 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 ‘Microoganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) Download SAS data (SAS) file (1.9 MB) Download SAS transport (XPT) file (1.4 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) Download SAS data (SAS) file (84 kB) Download SAS transport (XPT) file (68 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 28 885 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 10 July 2023 11:41:52 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (59 kB) Download tab-separated text file (3.2 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (87 kB) Download SAS data (SAS) file (3.6 MB) Download SAS transport (XPT) file (7.7 MB) Download IBM SPSS Statistics data file (4.4 MB) Download Stata DTA file (7.6 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).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS data (SAS) file (9.8 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 data (SAS) file (92 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 444 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 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (42 kB) Download Microsoft Excel workbook (18 kB) Download Apache Feather file (17 kB) Download Apache Parquet file (12 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (54 kB) Download Stata DTA file (68 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) (unavailable SAS data (SAS) file) 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: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 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] \"16365-9\" \"25274-2\" \"3344-9\"  \"80133-2\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #> [1] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"87604-5\" ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways 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  1931-12-21  91  91.55068         68 #> 2  1942-05-14  81  81.15616         57 #> 3  1958-04-02  65  65.27123         41 #> 4  1947-07-06  76  76.01096         52 #> 5  1953-12-17  69  69.56164         46 #> 6  1988-05-23  35  35.13151         11 #> 7  1987-03-04  36  36.35068         12 #> 8  1945-08-19  77  77.89041         54 #> 9  1959-03-20  64  64.30685         40 #> 10 1957-04-12  66  66.24384         42"},{"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 R      #> 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.808 #> 2 ICU        0.549 0.778 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(carbapenems()) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 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 cid Compound ID found PubChem name Official name used WHONET/EARS-Net group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug. Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"av Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name used WHONET/EARS-Net atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.73 (8 August, 2022). Accessed https://loinc.org October 30th, 2022. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_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\" ) #> 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) #> 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 <NA> <NA> <NA> <NA>"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE)  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (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\" ) #> 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\" ) #> 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) #> Error in plot_colours_subtitle_guideline(x = x, mo = mo, ab = ab, guideline = guideline,     colours_SIR = colours_SIR, fn = as.mic, language = language,     method = \"MIC\", include_PKPD = include_PKPD, breakpoint_type = breakpoint_type,     ...): object 'sir_history' not found plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ 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 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 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 28 885 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) #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK  #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP  GEN  TOB ERY #> 1 Escherichia coli   I   I <NA> <NA>   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 8 × 13 #>   datetime            index ab_input   ab_guideline mo_input      mo_guideline #>   <dttm>              <int> <chr>      <ab>         <chr>         <mo>         #> 1 2023-07-10 14:50:29     1 CIP        CIP          Escherichia …   UNKNOWN    #> 2 2023-07-10 14:50:29     1 AMP        AMP          Escherichia …   UNKNOWN    #> 3 2023-07-10 14:50:21     1 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 4 2023-07-10 14:50:21     2 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 5 2023-07-10 14:50:21     3 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 6 2023-07-10 14:50:21     4 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 7 2023-07-10 14:50:21     1 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 8 2023-07-10 14:50:20     1 ampicillin AMP          Strep pneu    B_STRPT_PNMN #> # ℹ 7 more variables: guideline <chr>, ref_table <chr>, uti <lgl>, #> #   method <chr>, input <dbl>, outcome <sir>, breakpoint_S_R <chr>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> 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\" ) #> 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) } #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK  #> 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. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> 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 <NA> <NA> <NA> <NA>   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\" \"78772-1\" \"78773-9\" \"79134-3\" \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 28 885 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 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: 28,885 × 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_DNTR          2 MEM  A. xylo… 10ug      #>  2 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 MEM  A. xylo… NA        #>  3 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 SXT  A. xylo… 1.25ug/2… #>  4 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 SXT  A. xylo… NA        #>  5 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 TZP  A. xylo… 30ug/6ug  #>  6 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 TZP  A. xylo… NA        #>  7 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 MEM  A. xylo… 10ug      #>  8 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 MEM  A. xylo… NA        #>  9 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2… #> 10 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 SXT  A. xylo… NA        #> # ℹ 28,875 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,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 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: 437 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 427 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,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 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,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 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 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    of total where a microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 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]  1 50 26 12 10 18 50 42 43 21 34 19 13 25 44 35 45 16 17  3 25 20  3 17 45 #>  [26]  6 10 28 42  9 47  1 11 27 18 45 17 14  6 22 31 42 41  2 23 38 16 46 29  8 #>  [51] 40 48  7 49 20 34 16  7 36 38 48  2 49 14 32 14 27 10 37 24 18 23  4 46  8 #>  [76] 36  6  7 32 22 28 49 16 47 38 21 30 27  6 22 14 24 48 33 21  5 48 39 16 15 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE #>  [25] FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE FALSE #>  [37] FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE #>  [49]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE #>  [61] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE #>  [73]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE #>  [85] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE #>  [97] FALSE  TRUE FALSE  TRUE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 2 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-06-04 082413     78 M      ICU      B_STRPT_PNMN S     NA    NA    S     #> 2 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    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 [95] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 008268  2007-02-20 B         TRUE        #>  2 051150  2007-01-02 B         TRUE        #>  3 067927  2002-01-07 A         TRUE        #>  4 074321  2015-09-20 A         TRUE        #>  5 078381  2014-07-17 B         TRUE        #>  6 078381  2014-08-17 B         FALSE       #>  7 082413  2002-06-04 C         TRUE        #>  8 0C0688  2014-09-05 B         TRUE        #>  9 0E2483  2007-05-29 A         TRUE        #> 10 15D386  2004-08-01 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 [94] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 ICU      2007-02-20 008268          1 TRUE        #>  2 ICU      2007-01-02 051150          1 TRUE        #>  3 ICU      2002-01-07 067927          1 TRUE        #>  4 ICU      2015-09-20 074321          1 TRUE        #>  5 ICU      2014-07-17 078381          1 TRUE        #>  6 ICU      2014-08-17 078381          1 FALSE       #>  7 ICU      2002-06-04 082413          1 TRUE        #>  8 Clinical 2014-09-05 0C0688          1 TRUE        #>  9 Clinical 2007-05-29 0E2483          1 TRUE        #> 10 ICU      2004-08-01 15D386          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           52             13            36            46 #> 2 ICU                38             12            28            35 #> 3 Outpatient          4              3             4             4  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] TRUE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [97] #>    patient mo           ward     flag_episode #>    <chr>   <mo>         <chr>    <lgl>        #>  1 067927  B_STPHY_EPDR ICU      TRUE         #>  2 A85702  B_CTRBC_KOSR ICU      TRUE         #>  3 949877  B_STRPT_PNMN Clinical TRUE         #>  4 D43733  B_ESCHR_COLI ICU      TRUE         #>  5 BB8157  B_STPHY_CONS Clinical TRUE         #>  6 59C7F2  B_STRPT_PNMN Clinical TRUE         #>  7 693199  B_STRPT_PNMN Clinical TRUE         #>  8 A76045  B_ENTRC_FACM ICU      TRUE         #>  9 559068  B_STPHY_CPTS Clinical TRUE         #> 10 533225  B_ESCHR_COLI Clinical TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result)    # 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] 1395 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 2.993275 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.005991136"},{"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\"), ] #> Error: in mo_name(): argument x is missing and no column with info about #> microorganisms could be found.  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> Error in filter(., mo_name() %like% \"^ent\"): ℹ In argument: `mo_name() %like% \"^ent\"`. #> Caused by error: #> ! in mo_name(): argument x is missing and no column with info about #> microorganisms could be found. # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu \"WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)\" (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, 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\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address str(out) #> Error in eval(expr, envir, enclos): object 'out' not found table(out) #> Error in eval(expr, envir, enclos): object 'out' not found  out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address table(out) #> Error in eval(expr, envir, enclos): object 'out' not found  # \\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() } #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"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) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir #> Error in eval(expr, envir, enclos): object 'sir' not found mean_amr_distance(sir) #> Error in eval(expr, envir, enclos): object 'sir' not found  mic <- random_mic(10) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mic #> Error in eval(expr, envir, enclos): object 'mic' not found mean_amr_distance(mic) #> Error in eval(expr, envir, enclos): object 'mic' not found # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #> Error in eval(expr, envir, enclos): object 'mic' not found  disk <- random_disk(10) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address disk #> Error in eval(expr, envir, enclos): object 'disk' not found mean_amr_distance(disk) #> Error in eval(expr, envir, enclos): object 'disk' not found  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\") ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address y #> Error in eval(expr, envir, enclos): object 'y' not found mean_amr_distance(y) #> Error in eval(expr, envir, enclos): object 'y' not found y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in eval(expr, envir, enclos): object 'y' not found y[order(y$amr_distance), ] #> Error in eval(expr, envir, enclos): object 'y' not found  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) } #> Error in eval(expr, envir, enclos): object 'y' not found 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) } #> Error in filter(., mo_genus() == \"Enterococcus\" & mo_species() != \"\"): ℹ In argument: `mo_genus() == \"Enterococcus\" & mo_species() != \"\"`. #> Caused by error: #> ! in mo_genus(): argument x is missing and no column with info about #> microorganisms could be found."},{"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 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 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 444 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 444 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 444 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 444 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 444 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 444 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 444 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 169 Microorganisms — microorganisms","title":"Data Set with 52 169 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 169 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 169 Microorganisms — microorganisms","text":"tibble 52 169 observations 23 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters, e.g. \"Váňová\" becomes \"Vanova\". lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. 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% ~36 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 169 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 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 169 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 169 Microorganisms — microorganisms","text":"Included taxonomic data : ~36 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species 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 169 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 34 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 169 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 169 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 169 Microorganisms — microorganisms","text":"","code":"microorganisms #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"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\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_uncertainties() #> No uncertainties to show. Only uncertainties of the last call to as.mo() #> or any mo_*() function are stored.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> Error in .Call(Cchmatch, x, table, as.integer(nomatch[1L])): NULL value passed as symbol address"},{"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 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_phylum(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_class(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_order(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_family(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_genus(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_subspecies(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_snomed(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_rank(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_url(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_authors(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_year(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_lpsn(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gbif(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_synonyms(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"MRSA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"VISA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"VISA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  mo_genus(\"EHEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"EIEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"UPEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"K. pneu rh\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Staph epidermidis\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Strep agalactiae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # 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) } #> Error in filter(., mo_is_gram_positive()): ℹ In argument: `mo_is_gram_positive()`. #> Caused by error: #> ! in mo_is_gram_positive(): argument x is missing and no column with info #> about microorganisms could be found. if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> Error in filter(., mo_is_intrinsic_resistant(ab = \"vanco\")): ℹ In argument: `mo_is_intrinsic_resistant(ab = \"vanco\")`. #> Caused by error: #> ! in mo_is_intrinsic_resistant(): argument x is missing and no column with #> info about microorganisms could be found.  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"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\")   } } #> Error in group_by(., order = mo_order(mo), genus = mo_genus(mo)): ℹ In argument: `order = mo_order(mo)`. #> Caused by error in `.Call()`: #> ! NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   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":"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","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) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30)) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  plot(some_mic_values) #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found plot(some_disk_values) #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found plot(some_sir_values) #> Error in eval(expr, envir, enclos): object 'some_sir_values' not found  # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\") #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"uk\") #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found  # \\donttest{ if (require(\"ggplot2\")) {   autoplot(some_mic_values) } #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") } #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found if (require(\"ggplot2\")) {   autoplot(some_sir_values) } #> Error in eval(expr, envir, enclos): object 'some_sir_values' not found # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. functions meant count isolates, calculate proportion resistance/susceptibility. Use count() functions count isolates. function susceptibility() essentially equal count_susceptible() / count_all(). Low counts can influence outcome - proportion functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> Error: in resistance(): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # determines %S+I: susceptibility(example_isolates$AMX) #> Error: in susceptibility(): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # be more specific proportion_S(example_isolates$AMX) #> Error: in proportion_S(): NULL value passed as symbol address proportion_SI(example_isolates$AMX) #> Error: in proportion_SI(): NULL value passed as symbol address proportion_I(example_isolates$AMX) #> Error: in proportion_I(): NULL value passed as symbol address proportion_IR(example_isolates$AMX) #> Error: in proportion_IR(): NULL value passed as symbol address proportion_R(example_isolates$AMX) #> Error: in proportion_R(): NULL value passed as symbol address  # 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 } #> Error in summarise(., r = resistance(CIP), n = n_sir(CIP)): ℹ In argument: `r = resistance(CIP)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address 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\"),     ) } #> Error in summarise(., cipro_R = resistance(CIP), ci_min = sir_confidence_interval(CIP,     side = \"min\"), ci_max = sir_confidence_interval(CIP, side = \"max\"),     ): ℹ In argument: `cipro_R = resistance(CIP)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address 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     ) } #> Error in .Call(Cchin, x, table): NULL value passed as symbol address 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) } #> Error in summarise(., R = resistance(CIP, as_percent = TRUE), SI = susceptibility(CIP,     as_percent = TRUE), n1 = count_all(CIP), n2 = n_sir(CIP),     total = n()): ℹ In argument: `R = resistance(CIP, as_percent = TRUE)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address # }"},{"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) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_sir(25) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"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\" ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address plot(x) #> Error in eval(expr, envir, enclos): object 'x' not found # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) } #> Error: object 'x' not found  # 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) } #> Error: NULL value passed as symbol address  # 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) } #> Error: In argument: `mo == as.mo(\"E. coli\")`. # }"},{"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.01314082"},{"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\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting another language set_AMR_locale(\"Spanish\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting yet another language set_AMR_locale(\"Greek\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting yet another language set_AMR_locale(\"Ukrainian\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address set_AMR_locale(\"German\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address set_AMR_locale(\"de\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"amox/clav\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-0-0-9030","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.0.0.9030","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations EUCAST dosage guideline v13.0 added dosage data set ECOFF: clinical_breakpoints data set now contains epidemiological cut-(ECOFF) values. ECOFFs can used MIC/disk interpretation using .sir(..., breakpoint_type = \"ECOFF\"), important new addition veterinary microbiology. Added support 29 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-0-0-9030","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9030","text":"Updated algorithm .mo() giving weight fungi 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 MO codes tibble, mouse-hover now shows full name microorganism 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 later. prior versions, please see archive.","code":""}]