From 9d1e78f897dc71c4bc831d3f1fea85eff149181e Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Sat, 15 Apr 2023 08:42:06 +0000
Subject: [PATCH] Built site for AMR: 2.0.0.9008@ad3061c

---
 404.html                                      |   2 +-
 LICENSE-text.html                             |   2 +-
 articles/AMR.html                             | 250 +++++++++---------
 .../figure-html/unnamed-chunk-13-1.png        | Bin 42806 -> 41978 bytes
 articles/EUCAST.html                          |   2 +-
 articles/MDR.html                             |  60 ++---
 articles/PCA.html                             |   4 +-
 articles/SPSS.html                            |   2 +-
 articles/WHONET.html                          |   2 +-
 articles/datasets.html                        |   2 +-
 articles/index.html                           |   2 +-
 articles/resistance_predict.html              |   2 +-
 articles/welcome_to_AMR.html                  |   2 +-
 authors.html                                  |   2 +-
 index.html                                    |   2 +-
 news/index.html                               |   6 +-
 pkgdown.yml                                   |   2 +-
 reference/AMR-deprecated.html                 |   2 +-
 reference/AMR-options.html                    |   2 +-
 reference/AMR.html                            |   2 +-
 reference/Rplot005.png                        | Bin 12882 -> 13226 bytes
 reference/Rplot006.png                        | Bin 12900 -> 13237 bytes
 reference/Rplot007.png                        | Bin 12768 -> 12758 bytes
 reference/Rplot008.png                        | Bin 19005 -> 18981 bytes
 reference/Rplot009.png                        | Bin 8540 -> 8480 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     |   8 +-
 reference/antibiotics.html                    |   2 +-
 reference/as.ab.html                          |   2 +-
 reference/as.av.html                          |   2 +-
 reference/as.disk.html                        |   2 +-
 reference/as.mic.html                         |   2 +-
 reference/as.mo.html                          |   2 +-
 reference/as.sir.html                         |  22 +-
 reference/atc_online.html                     |   2 +-
 reference/av_from_text.html                   |   2 +-
 reference/av_property.html                    |   2 +-
 reference/availability.html                   |   2 +-
 reference/bug_drug_combinations.html          |   2 +-
 reference/clinical_breakpoints.html           |   2 +-
 reference/count.html                          |   2 +-
 reference/custom_eucast_rules.html            |   2 +-
 reference/dosage.html                         |   2 +-
 reference/eucast_rules.html                   |   2 +-
 reference/example_isolates.html               |   2 +-
 reference/example_isolates_unclean.html       |   2 +-
 reference/first_isolate.html                  |   2 +-
 reference/g.test.html                         |   2 +-
 reference/get_episode.html                    | 109 ++++----
 reference/ggplot_pca.html                     |   2 +-
 reference/ggplot_sir.html                     |   2 +-
 reference/guess_ab_col.html                   |   2 +-
 reference/index.html                          |   2 +-
 reference/intrinsic_resistant.html            |   2 +-
 reference/italicise_taxonomy.html             |   2 +-
 reference/join.html                           |   2 +-
 reference/key_antimicrobials.html             |   2 +-
 reference/kurtosis.html                       |   6 +-
 reference/like.html                           |   2 +-
 reference/mdro.html                           |   2 +-
 reference/mean_amr_distance.html              |  72 ++---
 reference/microorganisms.codes.html           |   2 +-
 reference/microorganisms.html                 |   2 +-
 reference/mo_matching_score.html              |   2 +-
 reference/mo_property.html                    |   2 +-
 reference/mo_source.html                      |   2 +-
 reference/pca.html                            |   2 +-
 reference/plot-1.png                          | Bin 26346 -> 26245 bytes
 reference/plot-2.png                          | Bin 27544 -> 26525 bytes
 reference/plot-3.png                          | Bin 27925 -> 28116 bytes
 reference/plot-4.png                          | Bin 30356 -> 30265 bytes
 reference/plot-5.png                          | Bin 39936 -> 39084 bytes
 reference/plot-6.png                          | Bin 39136 -> 38238 bytes
 reference/plot-7.png                          | Bin 36985 -> 37006 bytes
 reference/plot-8.png                          | Bin 57439 -> 56330 bytes
 reference/plot-9.png                          | Bin 26214 -> 26146 bytes
 reference/plot.html                           |   2 +-
 reference/proportion.html                     |   2 +-
 reference/random.html                         |  34 +--
 reference/resistance_predict.html             |   2 +-
 reference/skewness.html                       |   4 +-
 reference/translate.html                      |   2 +-
 search.json                                   |   2 +-
 91 files changed, 363 insertions(+), 362 deletions(-)

diff --git a/404.html b/404.html
index ded7c9ad..efe08288 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/LICENSE-text.html b/LICENSE-text.html
index 1ce20887..5d4d703d 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/AMR.html b/articles/AMR.html
index 78452052..4d76a6c9 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -962,108 +962,108 @@ antibiograms:</p>
 <tr class="odd">
 <td align="left">Cardial</td>
 <td align="left">
-<em>E. coli</em> (435-435)</td>
+<em>E. coli</em> (418-418)</td>
+<td align="right">63</td>
+<td align="right">61</td>
+<td align="right">58</td>
+<td align="right">63</td>
+</tr>
+<tr class="even">
+<td align="left">Respiratory</td>
+<td align="left">
+<em>E. coli</em> (414-414)</td>
 <td align="right">63</td>
 <td align="right">58</td>
-<td align="right">55</td>
-<td align="right">61</td>
-</tr>
-<tr class="even">
-<td align="left">Respiratory</td>
-<td align="left">
-<em>E. coli</em> (398-398)</td>
-<td align="right">64</td>
-<td align="right">60</td>
-<td align="right">59</td>
-<td align="right">64</td>
-</tr>
-<tr class="odd">
-<td align="left">Rheumatic</td>
-<td align="left">
-<em>E. coli</em> (417-417)</td>
-<td align="right">64</td>
 <td align="right">57</td>
-<td align="right">59</td>
-<td align="right">64</td>
-</tr>
-<tr class="even">
-<td align="left">Cardial</td>
-<td align="left">
-<em>K. pneumoniae</em> (97-97)</td>
-<td align="right">70</td>
-<td align="right">49</td>
-<td align="right">67</td>
-<td align="right">71</td>
-</tr>
-<tr class="odd">
-<td align="left">Respiratory</td>
-<td align="left">
-<em>K. pneumoniae</em> (108-108)</td>
-<td align="right">61</td>
-<td align="right">60</td>
-<td align="right">54</td>
-<td align="right">53</td>
-</tr>
-<tr class="even">
-<td align="left">Rheumatic</td>
-<td align="left">
-<em>K. pneumoniae</em> (111-111)</td>
-<td align="right">59</td>
-<td align="right">48</td>
-<td align="right">57</td>
-<td align="right">58</td>
-</tr>
-<tr class="odd">
-<td align="left">Cardial</td>
-<td align="left">
-<em>S. aureus</em> (213-213)</td>
-<td align="right">64</td>
-<td align="right">58</td>
-<td align="right">64</td>
-<td align="right">64</td>
-</tr>
-<tr class="even">
-<td align="left">Respiratory</td>
-<td align="left">
-<em>S. aureus</em> (225-225)</td>
-<td align="right">64</td>
-<td align="right">56</td>
-<td align="right">55</td>
-<td align="right">64</td>
+<td align="right">63</td>
 </tr>
 <tr class="odd">
 <td align="left">Rheumatic</td>
 <td align="left">
-<em>S. aureus</em> (223-223)</td>
+<em>E. coli</em> (418-418)</td>
 <td align="right">66</td>
 <td align="right">56</td>
-<td align="right">53</td>
-<td align="right">61</td>
+<td align="right">58</td>
+<td align="right">63</td>
 </tr>
 <tr class="even">
 <td align="left">Cardial</td>
 <td align="left">
-<em>S. pneumoniae</em> (126-126)</td>
-<td align="right">65</td>
+<em>K. pneumoniae</em> (98-98)</td>
+<td align="right">56</td>
 <td align="right">51</td>
+<td align="right">56</td>
 <td align="right">63</td>
-<td align="right">55</td>
 </tr>
 <tr class="odd">
 <td align="left">Respiratory</td>
 <td align="left">
-<em>S. pneumoniae</em> (131-131)</td>
-<td align="right">68</td>
+<em>K. pneumoniae</em> (113-113)</td>
+<td align="right">69</td>
+<td align="right">50</td>
+<td align="right">57</td>
 <td align="right">60</td>
-<td align="right">59</td>
-<td align="right">71</td>
 </tr>
 <tr class="even">
 <td align="left">Rheumatic</td>
 <td align="left">
-<em>S. pneumoniae</em> (142-142)</td>
-<td align="right">59</td>
+<em>K. pneumoniae</em> (105-105)</td>
+<td align="right">63</td>
 <td align="right">56</td>
+<td align="right">64</td>
+<td align="right">57</td>
+</tr>
+<tr class="odd">
+<td align="left">Cardial</td>
+<td align="left">
+<em>S. aureus</em> (227-227)</td>
+<td align="right">63</td>
+<td align="right">55</td>
+<td align="right">56</td>
+<td align="right">63</td>
+</tr>
+<tr class="even">
+<td align="left">Respiratory</td>
+<td align="left">
+<em>S. aureus</em> (204-204)</td>
+<td align="right">65</td>
+<td align="right">61</td>
+<td align="right">58</td>
+<td align="right">60</td>
+</tr>
+<tr class="odd">
+<td align="left">Rheumatic</td>
+<td align="left">
+<em>S. aureus</em> (230-230)</td>
+<td align="right">65</td>
+<td align="right">54</td>
+<td align="right">57</td>
+<td align="right">65</td>
+</tr>
+<tr class="even">
+<td align="left">Cardial</td>
+<td align="left">
+<em>S. pneumoniae</em> (139-139)</td>
+<td align="right">58</td>
+<td align="right">51</td>
+<td align="right">60</td>
+<td align="right">66</td>
+</tr>
+<tr class="odd">
+<td align="left">Respiratory</td>
+<td align="left">
+<em>S. pneumoniae</em> (128-128)</td>
+<td align="right">62</td>
+<td align="right">57</td>
+<td align="right">61</td>
+<td align="right">61</td>
+</tr>
+<tr class="even">
+<td align="left">Rheumatic</td>
+<td align="left">
+<em>S. pneumoniae</em> (132-132)</td>
+<td align="right">73</td>
+<td align="right">60</td>
 <td align="right">58</td>
 <td align="right">70</td>
 </tr>
@@ -1090,45 +1090,45 @@ antibiograms:</p>
 <tbody>
 <tr class="odd">
 <td align="left">Cardial</td>
-<td align="left">Gram-negative (532-532)</td>
-<td align="right">65</td>
-<td align="right">56</td>
+<td align="left">Gram-negative (516-516)</td>
+<td align="right">62</td>
+<td align="right">59</td>
 <td align="right">63</td>
 </tr>
 <tr class="even">
 <td align="left">Respiratory</td>
-<td align="left">Gram-negative (506-506)</td>
+<td align="left">Gram-negative (527-527)</td>
 <td align="right">64</td>
-<td align="right">60</td>
-<td align="right">61</td>
+<td align="right">56</td>
+<td align="right">62</td>
 </tr>
 <tr class="odd">
 <td align="left">Rheumatic</td>
-<td align="left">Gram-negative (528-528)</td>
-<td align="right">63</td>
-<td align="right">55</td>
-<td align="right">63</td>
+<td align="left">Gram-negative (523-523)</td>
+<td align="right">65</td>
+<td align="right">56</td>
+<td align="right">62</td>
 </tr>
 <tr class="even">
 <td align="left">Cardial</td>
-<td align="left">Gram-positive (339-339)</td>
+<td align="left">Gram-positive (366-366)</td>
+<td align="right">61</td>
+<td align="right">54</td>
 <td align="right">64</td>
-<td align="right">55</td>
-<td align="right">60</td>
 </tr>
 <tr class="odd">
 <td align="left">Respiratory</td>
-<td align="left">Gram-positive (356-356)</td>
-<td align="right">65</td>
-<td align="right">58</td>
-<td align="right">67</td>
+<td align="left">Gram-positive (332-332)</td>
+<td align="right">64</td>
+<td align="right">60</td>
+<td align="right">60</td>
 </tr>
 <tr class="even">
 <td align="left">Rheumatic</td>
-<td align="left">Gram-positive (365-365)</td>
-<td align="right">63</td>
+<td align="left">Gram-positive (362-362)</td>
+<td align="right">68</td>
 <td align="right">56</td>
-<td align="right">64</td>
+<td align="right">67</td>
 </tr>
 </tbody>
 </table>
@@ -1152,45 +1152,45 @@ antibiograms:</p>
 <tbody>
 <tr class="odd">
 <td align="left">Cardial</td>
-<td align="left">Gram-negative (532-532)</td>
+<td align="left">Gram-negative (516-516)</td>
+<td align="right">62</td>
+<td align="right">75</td>
+<td align="right">74</td>
+</tr>
+<tr class="even">
+<td align="left">Respiratory</td>
+<td align="left">Gram-negative (527-527)</td>
+<td align="right">64</td>
+<td align="right">76</td>
+<td align="right">75</td>
+</tr>
+<tr class="odd">
+<td align="left">Rheumatic</td>
+<td align="left">Gram-negative (523-523)</td>
 <td align="right">65</td>
 <td align="right">77</td>
 <td align="right">76</td>
 </tr>
 <tr class="even">
-<td align="left">Respiratory</td>
-<td align="left">Gram-negative (506-506)</td>
-<td align="right">64</td>
-<td align="right">76</td>
-<td align="right">75</td>
-</tr>
-<tr class="odd">
-<td align="left">Rheumatic</td>
-<td align="left">Gram-negative (528-528)</td>
-<td align="right">63</td>
-<td align="right">76</td>
-<td align="right">73</td>
-</tr>
-<tr class="even">
 <td align="left">Cardial</td>
-<td align="left">Gram-positive (339-339)</td>
-<td align="right">64</td>
-<td align="right">79</td>
-<td align="right">75</td>
+<td align="left">Gram-positive (366-366)</td>
+<td align="right">61</td>
+<td align="right">78</td>
+<td align="right">74</td>
 </tr>
 <tr class="odd">
 <td align="left">Respiratory</td>
-<td align="left">Gram-positive (356-356)</td>
-<td align="right">65</td>
-<td align="right">79</td>
-<td align="right">78</td>
+<td align="left">Gram-positive (332-332)</td>
+<td align="right">64</td>
+<td align="right">77</td>
+<td align="right">74</td>
 </tr>
 <tr class="even">
 <td align="left">Rheumatic</td>
-<td align="left">Gram-positive (365-365)</td>
-<td align="right">63</td>
-<td align="right">75</td>
-<td align="right">74</td>
+<td align="left">Gram-positive (362-362)</td>
+<td align="right">68</td>
+<td align="right">77</td>
+<td align="right">78</td>
 </tr>
 </tbody>
 </table>
diff --git a/articles/AMR_files/figure-html/unnamed-chunk-13-1.png b/articles/AMR_files/figure-html/unnamed-chunk-13-1.png
index 4b69b316b8794eac21cbda0d4eb2fd94fd2878d4..c3dd51b649ea9e3c2244cd874fd9ccbcf79a4a8d 100644
GIT binary patch
literal 41978
zcmeFZ2UL_<w=G&~tF3~zZ6HW!+X4iXoTG}01qe!%ERrPW9NPe`BrS4A$+5^es3;kV
zoQj|lO0r~%0_v>~+yC4*&OKw?d(Sv$-0{X^bSqZ)!rp7IHRoJ&e=qJS%2FSvKaN77
zs4;hLDx*+`lTfHb?|wZ3uhc&q%YeU*Jd&5a34g;6Nv6sN{yJuRN7Dg?V)RG;KM*pt
zY>Yzvfx_IpuId^$Kk636=oHVrw>h)87Lj}A&(NmdpJiA+5x)JULgbG>PoKU?H_5?8
z;}msY7WY!`EQ!>%MK$2`TSLH!KU*2y9t4{FafFt!-*!k=;F83jM|ci)p^m)?)$1Nj
z$1jD9SYsVs?)c|PiN+7ixw$6T&Z@>Msm0H3_me&6v{U6$m5=RTW?(_3InDlW?>?e^
zky}9}{dVy2{wv2X{#U%vb#LLIGfTJ}%fiA!AJ-uit&B>#;$7X*Z$3Rsb93^tva$!x
z9YFQ*d2O$mN22n3PG1X2-rL*D(W|K(hQTw;NKIu43JOY2z?GG0RH0C;v<C#<-Shjr
zf64#F*Z!{oq3+{C4OTe1xDXRO7MtT;#-jb1+%H@7=QM}0tJrs5KRWfj{uKVcEMs_c
zD4Rx=!tu2iN}hk7lHRfP-kD%Foo<V+uO;Rbb+jBhC6V90iQ?fk<LoVc-SMS^g1UD9
zm(F)dvDTIB`jqW~o`Hd~PjeOndF_lYBd^65%P)=ZObf5RIpuYE$zz<Xtgo-1D#xx|
zp`%!#GdAtv?%|=oCW%sz7(QNNlj2amDvi2#_JF`Ebj7!~0ru;C8f=*JTsl!IN|J&e
z^98aoF)_-Ss)YvieiD0I6BXOD*$zX-k;aQ76{52l$yqvrC?37yb12l{>4T5|XpQ7%
zu1=Czs$S*u+1t6A7Acpi5G!;Q?)>pd$+b?2?Qh9L`35qAa>i_SdnBSp)i0=q*QFmm
zE-UZf*Sp}$Y8>HmB>{tKVXafhr(ya_?`5j4jBVBmXKUa({H1rkcz!;_Jov?UcayR=
zzS^szG*vm5*Xl=o!M<H^U=kVZ9wq5`8_$Ug(b7KNEmQX1>)HCoLxsj}pZ_{qXwn{|
zkSHa&O2p&!cl-2>>vlH?c~dz3Iw=i3H{-=x@}i@&^Yl8-$4hGK{V9`iug$yI9C$b2
z{MDALWg}QYi~h-XhfcL27sBA!d7ayBw6dzoVJci>x<h=aZ51z_s8P4wC%RDFv*IUQ
zZ4le)y0hHquuw8Ey+>Zc#|T;!HZplkW+Vr<G_xhfWvZl~6jy>7%Bxze)bZI}C-o%m
zh1G11iNmKX6~$&!cD~ZoHIayki4Gm2Y_iN=Yv)%Nnw-72zWA>~z&!fiKb&h5E44Y|
z-~cbN(TN=~a&d7{6#4Q@Kv2-Q8Ow5M%zn33e~&MbvO_Gg{qiBssbABuFeqtwW5_g7
zKu9Rqy*4i|Ph$DwnZv5T7|LrKtj%rgtm033JHv7G$ioBEhnTmnZH)U+P7`se92F4G
zg+|R-iLK91GgUc6zrQ==@ZlKSWRQ)g;q0uRlyt2QmnjT(#d5=iRl@k5ke8QNG{33h
zN%8r72A2`LXmOXtS8k<J{&iuiKEGR`23xZA*0c7Pan~VwXS;0m+?LtC>`*jYqUVad
zR{y)fzl28}Rk+GOKe^b0ova$)wLZ_SSN*AYadC0Pbs`8kk3$2U>11(_B4K*PreZ2W
z$M*f<nWZJ>IA`)g8F7PPgWs&9>=u`lOs(}ODY>|8eqKAu<od@ciSO5HH%f3*`Sm9W
zU!1f{Ej3{VtFJal>(qL>MR4mU)a}jHb&w(SF0QI`gnPnbYJGbvpwxADxse$^5h9(y
znOFWNjh?H4-tMf14R1|$Hm47{%%|$swe_Y;A(O9VnVPAEM_wI1aXv+d%cg+w$ox0w
zG0&P(rU|>%an3TPLxmL;qOuHjHzTfUM;vAL<biea?UgZGvy%5pC@g?D*RL;RB5E!X
ze)auo#u;cm>b)GGKM8}nalU5}f_}tlK$kSwC=~%~)v2i(Mw&E2l!}~cjkH<b-rXEe
zBrnxT;~@MU-XEq(si<%Zz?0X~rQ_jLwgGNOI^s3-y__PhX!4<}8Lb(JjFJ?#VHE0J
zz?p0HT#In^n8M7X;}0YY_MV*JYO-r&jO6bSxx{bMb|+JnK2FHABW`DRoZ@v-bn+Fl
zq@0|bX6EPHa6Y?paUP2m6<c2e9AFGg@RFMhcBJv`{<4*X&1$yvcxSCNg=j1U-OlHu
z(oJv=k#!Vuosx}>O|Zz<zda%Q;REUTyL);<6Zh8Ak>jj}<2+d?+c=7tCHLEfWr(#)
zORkOL_S-Y*>AAUAYiepL7D@>#eK>DHSeB<8x-o3VEn)21ZAGrjU$1BtUnb8NDeVy{
zJBiW4HhQdgW5PN*I!4^*az!Cit;{I-hy~DaE6U5ae)dEX>gvZcN=8dHn;nsLJ5%!|
z19}*tb=5ssha!_VtQ^D(<2PY7AYUhala-Dc-(7SeA;-vK8>ySqU1}*bZncN?e$r!k
zsH^KW3<X<mZmta1pDvCU4&0Nldfr9aD65O7Z0l1jq{u_~lU(HKSep*vI#T<7i0zP8
z`EACkFA@w%D^t;;4kjIvn<MX;!hE*snO9P|z1Zu>qf7RS6~yTg2RvgO5iZi0$@BaB
z`69d&$=_$oe;(FoW_GqbWEJ&Xt?&!h<pu!@V%SLcJ*DCUC|@f=f%-Wf10<Vc8aC7m
z25J_aMCWpf_#CF&F49P)$Jxt`t)&SYLj}sj;gm8}TPB-B9X_6xot)FBxML?xrO87=
zkv=1KjZ-$14I6%^+1@a@)Z)_8>CnU-quJTnLihFAwrGAfVw^+AXQHs6;1sOQR{fn%
z`YAOvl0JK@i7u|A!J^Yqp40q^bkz^6EiKzVJU_7-QC7`@@msqAhiGwun?x$dIAw3s
z0rGZQL4loZjS{3a<VzSxP1cn&Y41t>Ihvsan>xw$^>xysOI@tj#t<9)4i}EUev~on
z1b4M<tW#~+LbW7KcD-A>g<fbwL&JzO!Ag7W@&((?Q5QDM-Yjm<JRo43ar8DS@Dxms
z+b2%F*FHOqJ|mBY8kv1OJ0w=y&~)}E^{bq%^6K`s(alIcVX%F7;3;tj$_F=%uH*gL
zxj6@7yvuZEdIEji5?sD6c9K7lq%hqPFJ7LDgj|IKaoUiXJot+FQ<<?Wp7KHnh03=&
z_;~OWtQ;0h+TB>8uO4G75oJ^)n{tBe(Kzqz8F9zc4(|>eMGrYv&6MtxQ8vc?s@3)N
z6J<_{qA@Fbn{_^ec<Gg<OQC2yTx5pD1)h=LE@13ove3=vY5XuN+4{R2ySuw?kh@~j
z($Wlwj2UxKYK9-x8mWZ5{o)=AfvP7iaeHdRn%I>EqlRIN4?|aMj(PYi)J?}&V9_>S
zbJ}IDUb1DUQ4=!S29A5M4BZFEdKwvBbg*}2T&zaQ?Y^%g2^F(4EnFwc?J?Bq*Cq^6
zQ4Nbh4huml`4o3*P1$?CpwYR!zu+x33S}8^QRE?wur23AX@Y9q`U9U!H9`+VBsT`9
zP4~W>@@WbZ9*d%Eg;1KZ)Uvw?gsM+#(tFDxgg76V@A}%Y{{9Gbw4}#Ie$P>^IN`c)
z7jj=qc_jIF_1AbaL1jcYf1=TkW8VAjPte(D3FkaYk+kI%?G|~7K}zz)Q-DPN?$Muh
z9y^Up@A<1*VHSB6tg?(wy`Se0fcEknCm&?Di{l~xiish2*PsKTtan=gAjCpxzJkE5
zI8g^|wQa|Ee|gV|^H-XXto{DWJ?!20^GLn+*(3UN=(>!CpHURK2$|Riphro4y?^yt
zB+1_Sr87U^f~(l}JFB?*iuHc&qm*616c?GdJN-*5+AyK4K_Ux~uqdIe+;yI@t2T2_
z1nEfUyZ#Euea%&QJ7y`FdH1n;&I8`bb(m1=J4+K?Tx3}I@>m1rv*ji2<3--P+vuU`
z+@eD?UG;PU3)Pn(6l0+jPnXs0S^-R|Xp7>#)O=$6&1UUpjm-2=m(?%twmQ{mb+zA=
zlsJ8?gv$*_Ku7>{4uL=jMfapDG27Mtb@Z4NWoK2p+8K}{@oNBg2RBru_j+FdaEnfb
zso1x$r&A^PH$H{v=K1}A!2H)E4Gx|FfqI69D%u0mj3!T%wg)*bZ%l?NO|P_aD;XLZ
z)~=;;PknxRs-rhkMMXm+QaLlszCuDIV#Sr-)!gg!k%N<v)qDou3U_XF40Ltze)SNl
z`*l=Du*?CH6Cm6%PonsEGm>^8@uw<hPG)82$*p{_Dvl-m4>y&aZSj%$)j*zZELxjN
zm{+H~y5z4hqPBl;kx6?CV4--t_eK$Ef|(M90Co9DuJ&*Zy=WvdC@b6)EK&;yYMb(@
z5WayQX<_yV5ZOm<RCEiCFmDnCdGeOWcSpyk5Fj)>JbZ*XD%6tvA^Q%EzNeja&3gYu
z3bpXY%42GY8L#4r^NUqWwHQCCURwvsGBbsDey(q<!^V3xHq_|*6Njmma81ZHNMSYb
za9Q{!bnv0)W6r?5T%PWzHmLGXYch^D*eL3W5GgB>bqvd^M@w5d^+_!T>B2%nCS%oZ
zqBAL>_RF7Wh(0?Zl-KqZaR5{vk=1PjA0GlDdK$`mo+`%_6bwbIj$_v?0)xs{Dt-BA
z@f(A!SZ-Jks)ME)txpc0z@qE6K5-YC_hl_4ES2EAtgw@8(xm3k^@&1d@Zt^;VmyDf
zws%3I^NdA#`k+k+5?^XKcQtjKUVM6jJBKudgb$^nT+1+O{Fy+wDkiZ8{sHBr>DW*-
z0!3nCV~^_ljLzvr8uhr@Ci$;Ti;0OH86X2c8qcFYGJIMI(5dsluJVtZ$s++|g|tdM
zB~`I=CUNU#hcsm;N2kI*;OO4k#)b(D-cv~}=Z}E46VW69Z;|IX)v5I2O3KQJN2Rx}
z=hbe{M&_RvPiI$2o3z=Rw!xyANlmi$1go;tq9O-dcO@ky^*o(uPF%Hpz=`e1nt5Z<
zuYX_a9vFyJ@|soAEHOtY$~Kw2ieNk_d6R!9l9bC<y~zuaXi^yfKt`sRNy#NQCG1_L
zn!1f)i_mJ@ziLYMQwg)x^My_FI7Nyw=d+8;(Jtd^PD{WGk9#^GNR(x$x5~qT-?XEx
zpphvSP1<UdPC#-EByfP*ZeL%ptt^N5NKDy_A|R^>kod_Cmrv(3CevcATln!3{I0c&
zOG|iw&kkd5L>9M;pGTPt?S54KH-QJJ(HN=qOr<FRQ^v@kUC}HwiY*&t0v1F1KvT;z
zix&Y<@9^!7zX>1@(TPBQKLrYc7f*1NKkRKC9jYNpE;Uy=&8@&95z*gUiInvmm)`A>
zwpym>15Me7;ZPdAV9+<Mc&%_X8!fQ_C9ddIyEZ+D<#rOUThFy=@6*taXWsoLOX>>o
z4%^;_atdjyYE%+;WNfo2arX+Q5Ln99hN_X_VCze$hLF+^8~Y%4$!p02(7m>w0=d&)
zN`SV|X3-&$tdrom(!2wJs$EuU<@LoL{pFV$RHD*Sz-J)N<ZtH~LRq0LATHZBeBDVz
z;$P-i(qHIUYn&IEFrJVcA|>WB>ZGx^MA@x#gIh0jUKlPeE;d3|(c~+cl{DcRGuxaG
zjHJNT4smWID<FV1oKwRD@R4Tz!|RHY>%H>`VcWem6?{2dZvR?cswWsVD;>=i;f)=b
zGX)hD6^H~}TcWhIER);hXPJZ}2x5W+h(}n4$xL@D5?LE#9!m@kZM<%qRpXMb;)}&*
zJ${~J@<Sa6faR+G{z1oWDx8F;?BL%YWrjFh&?81fL@>BbzSac#f~DGsxiE*M@h<g2
zDH|U$VRd`pA7Tsn28gZ6-VTZM?x@tOr>CS`2i@o|TyXgEoMxZ7BH0gQgF1|lkIzYw
z&%SZCAC8Fv13!A`%Ynq*c~ghAE?I=wk$@Y=rzd)gUA=nM4VZQO^Aj}F?U1|vmWie^
zz0$FdYj{*M`G(IQ7SGY)B6i6#=Q`89`(-&A@5x%Xw~kvyN>_lk{a?!^cqwuUAiLgG
zfIva!p6U;Y8vtsgl_b|yBe-<MSWodCF%M;yNBQv`5x7R}KAV}o0w7e3nwlEnlqIbP
zK+>U&K+!*BE3qD})N!9dMzQa6y|25wyFGCCDdbex{blYqf;|DB&M)FQBJfTztFF%H
z`}J$}qVxIn_AAY7Ar5MYIz&)HQRj!o0O&@t6vD?5D72a`y$jhwq4|wJQ_LA930|o7
zz=5)yqml1iTKVmR-Q>k*D4u24UoWC~-pTxW0J&b|J=F8xu0hD5Q1^a4@W1`S-+tya
z`JC+GatH}1X&p@M9T+fe2&BVc6A}`NLE5VL)A=xD3k6+WT}Vj)jZ_xw2M;U6iwWMn
zdl!Rsn(I%+;czYI7PJ7Jx;(D+^E<Ne#IApEFv_eajRjL#S=rsyb${w*)He|O027y?
zF~Ax6bG0?5UJjlE!kqfXpeJ<?Gz(CGvUE<Ps>CFdkReB1eukn){`S4`>wn7&0;*NM
z1?riq_LSXC;y7h@97(<@$;p=>tUdHLD+i{wCPMIl$4W&hke~{I_93{_4OkK%a47~5
zvJkZjq%dhki~T#eM`l$;jS>j4cpxO21&=<R$4QeWL){=297df6_5&wadT+~s=z~Zt
z&$&G>LK=RG1MDcXpC=q=x;-KM@50J{Glz@?is!yU25K9yM+*SR?&0AW1R05b_C3_y
z+4*W?W8;c$rNDrW!`)iS?vg1iL<GT}U(Ew?$u!Z+87hhcV5dnCw2)&W1r+Bw#R->o
zs}|BGQmym4hxf0&H{zJ!ku^kGK#Q)n@jEnK^f&5G!61<$<>iiK->IahCjol<P<Cae
z5qttF*dBlwK4zfYJtHG=fUt&&Oo<lyWF#~kfCmw0(i52moDL#4lA(5n)fW%~(0K*y
zeA&1+D3KtN$YU)B^9`D+2lPAu2*7nR^66VxSd49yma$+K%O`?)v+0npKm0S6=YS(X
zvwZ{+0)v>pM4ICEiAIY;eE}{pTIn=YZfA%!LZkubvA@1=L)v2ub>F`^*2-gNuCX;E
z*&JwPoX;M~4JJT^D>4)vA0Lkp?HCX^Od&r%m9e9GP-Jo!YXqSWjE~uQ2q-KDE3q+X
zNXU5uD?FC6f5>?b)?S%kHwO(vbi7GZ6>Ht{4*i;@P@z^Pn~^eS5AZZS&$@L4gapav
z6Bk!)wY0RbXh}&)_Q=*tNBZO=t{^o^d>&GE>4;;`T|$jiU@j2Jwiv<eVdMN0F!Hqy
zfmQIXd1QVo-PU`L;+>$3JV?#&Hy8u`Vcj)KOjwtVI%hi{L-7>2!~KOSNr_r=PXz}D
z=R7EQ)U<`i0MCg<o0*%_+f~FK?QrMY&l}a{$NCO!6QwC`wX5+<Mlex$;o9XOWKzr?
zKfYsXYHD4zP>O)K3i4vr>Qm;OhXG8FsHtOx>fecU)(=&?^z=(+2qScC9@fewMM9UJ
z@_hMU%%?cQUoxMfrHQ3HoQg7)=<VxERpnqATDxQh0NVbRCAZI|1`W`8EE~;eK;XSa
zXA@g?BF?m7{EmzKq4^e81=Q&1X#5f&ZwwYeBibY80&Xjl)w>He0HBn(s^$xkbd1F3
z(R3w{hcGM1U3{E!0kS)ER^4XqnSC2?<7AX!FrBj&)SUi2-Kt&APx1)8rQ<h25B2tV
zJuE+Wxf`SegcQi7Vgc~v4Nv8th!S&}{j4hi-GQ08xorDeRS|!!wmpV&2!P5uFxx;I
z>Keb*a4|Y|IGB-<Q7!N97ZA<VdXZtR#xN0Yb91foL;E04?C?l-P?a3w>3v4`#1McZ
zMkwfzWVeV0A|8jLTO+O#zM>_*@0ljJnS9j$TLYFP`qGB=ehcKGJggBW+D5m}>d9X$
zy**Z@0rYo6YDFUzD1UX#W!wvctp`1yWdLaiq4GJScn+-14;6)4y8rs+PFd-w8!;Y(
z1y#WMv?|;kBKBdhw*t;nN8><99MJdi!qT|k-;aWPD>zvKNY9_Y(;_<V>bK;OlPA-=
zU<Q0Bn?87!NF6L%biG%_zm3x2Qp=yJ%nre(omV-VwYIi~#w36&0%D9P3>O0Hk36+T
zt_W3{s~UYx3H_kVT33qHtTYX*m3dhbc(5uWc^LT5Zb4lSh3}aTk`VHU5EL_O>#;A}
z63=XRtoDBUkdVN1>Y|a3CHx9kr&`6}d>~f(nJp}ErW+z1CT&p#GD_7;3k#zrvCj+2
zNHV`xRaQzod-VbNZf&j9|L|ScU%!Z~{&vIn4SkmGy9eeL7Okm~dND{dqioFG0*LNw
zknHAxeea7n6T#wKIQPEn+i?^@oZDR_+5lyWz?i#09L2h=P8)yu@Ejy2L+5W_e@E{1
zp@!fa_iIb@YrafA?$=bP-LLVFt@-A0NhVqNGj#?EOD1I=kxa^#KlRx64Qm^1C-NQC
zyv{E_emQ#s1+))^x_0s3y#UvXymQYZVIc#52H$r($F`|eI8Bd6!Z#};i2pFWm#?C^
z+?H}hPbziT*fR2v$!1Dzp7H`8${FKL*`MG4qn;GfU_zmyuC+`lRD4U!*8Su><oYqT
z+vD4gdE@~U&zoaO2h0Z(hc6UX*3=FgS7%gKPQHq?$#JGb1%@g&`a!1BmGi3U<2rzP
z_~Fd8L%sP^N`li7vRc`?4FTrn8Bo}h9-i9E<i%SKl6;~PhI<nadsxt*-sSC&1<!$<
z+2*tz6E&5RR@eI;rR#9IhcsUS1|dKHe!M>H4=Dv7Dv3|wp5oPnV%}1jw}{3-TgpR;
z9Cbw)lh#{eq+Y+qtIf3E;DW<Y@a&wmVY0$fY72aNy=GN4ER^ca^eo*YAX4-Fa&-Sx
z{~3h!FHrV4!x<Wi&Uion72;TlVQDpcjfyfy_&<#=UhTy;KQmGL**Auz5^z%Aw?H9u
z$DS*3ci<E2aLC{aD@a}250PGIrJ?di`<?rVd*OHcxD2ZpYL#5l%GNZhsNkErF#wzf
zt?^F%Q`7rH?JR2R9D;zUq!x*1zae+@KfzSAhv;d~P>1YFrH+l6M=rnJCYYq`&^RCi
z0a6mzbrf~ri|JTvg&C4lAJ@dK^;+laEse+bky*pjiz3KT0kSc5qIf#Izqes`e3bU`
zkx*pQuM!DjX-8tzIgnEhmGMN50|^Ke>bU8zCy{TV{uesDNV^vGP*z~nOLmsoD+L*j
zz096&ukNaBxIl%+R|9a0yNL-|&UD;a)p+k2cd|J0Mj$7QlwjuCj)S1x8_n6pJft>$
z39qbDo}JHt&srzLoK!LG<7U<7+=Ww<@ADcPE#0mzT+PfT2n?G*@#6?@iMrxq?q#8v
zxL(Suc^*}D{-4hW;m2cJ6KdWdS5rgpLUZj<zRZ6-!2dlc_J8**>9qk@etH4^XJPTb
zd%XX%V<6aD_pY|Kc8UC8DnPRLK1wkH%^TeJe1LZJaXk`;CSsaf_R{+lOlX#B`!@jr
z0V>i-Vc~&>rN2{^&Duih_8J;uwmSOy`lvNGBdD*cWtps{DJ3SPRni2%W*<$ps`eoA
z0YE7(S*RYz{uz9t)N0lFI$+@Ton4&hlzmHIo`HBtadC=M_C$VOo=`_FXpJ&^egZ=M
z8ksR&2=XI4Uzd@&TYLi1+0$}239}6xYW!mLC1zUM789-*A^2ry=xE0A18X9jkrt_<
zQoL{@y#qGpe`|1@Bh=jq*Lu8iiXxfO>$p&I=14GUS>qD<DqZCwKz_9>qcwofE#Wj=
zTx9Ybw)ghC`&^MKTr?C(v&VzW(_yRKTUpuJJzTV>1dDaaWU@upSUdGNSBAXu1*@mJ
zCAvIa!*63_1WHcdh-{q-Ykboi+0BKD%GfbxFr6E~;hc|EAu5P~koD~SP9S(>n#aJ#
z&P0j>7@ZlL^?=tjQq6Ct>u{YSowOMlj7cdGI~;T)Rhe#e0#{KcT+;a>wXRN@QD%dH
z+_d`zA<H{TGtZ}Qm=aUaJ=q$aml58-yZtp}31HQHr{^sO8cS_M!-<DDBJfB@M@Q9)
zx5u({I(p3q^5cc9N1_sPgX^_Ouk*{wT$;vTjg4huVzN{^FH;Sqxn*j#PQ`4w72|N+
zx-uKuHsM)x@n1T$M@QQ+X{zZ-_lKdmzfJ%06gf7=dC%~-ht+)zO5yu?q?ciTVgBbB
z@xSu*e}Yy2$H&+&0w|u-lIxx_+hi!H0kOj)iKP+rm(QYnV-V|$??D~Ufi=gCuq>#N
zV%y=mZiK%W5r>NJv6kN$_V4rGSHAxkI{Z5<@!$Kx+c(39-`!lXsf&+GA6VL{o12$R
z=C*M+)+lL3Zsp+<=mXQbuMJ@|D@xCw%vJ_9A9?-LFsaIXpC{f6{V%=X{p;)Jax*b&
znPCn!4u>XVp3Pk>G{(VI6VhxSYUDkaUHEWi??+WeMLqtdbKbGGdUnNe9l<%=vkpb$
zmwb=-9xRCzU%_Yl@R_t`Lthj!3pNEJ7#5ge>AXw32;b4N>PKx6fG5s8hf?etuPp21
zQY-0q!147-%OP2$uGfQVgxvgpO3?X_L+?Kk&xlI&ZjjT-DRo(6Q>`j+p_`m_s7HFv
z7>P^xx$KK_KgeM<uQ(A8W+-@D+QQ|>L@N9*SfailfbPtL%w3Ye&X+Fp$O7GMJ-2Hd
zSFi3LomK{XV7|w4yxaNB_DJ2x+hY2)rY(p&Eb1QB`+fHPZ<zVfhm-G@!Gl5cyI|df
z_!AHr5$P8q4a-TO=k3rIk^1U6*Pq+^^-}-{IGdBeyIZT>R_&pAI1Q#5IWMnWk-Q(r
zwTiVp;Fzl1tmL!Zv(s9))A~cgsera6Vg)i<{`$%6F>U26;;E|r{+v4n(fmq~<_>fK
z?}5G;gLor=adUVwA|r)jeR7QE8aLPlG<584(bLoKI|C4Mi%2H5wY51~B^>gRCn>)r
ztj`S)k@gAjRz>J~#ep&j$3cuM`&I=`^_-?MP;KIXcTH5^-amMW*^QtByYQvymz;Tb
zu%4jswu8qa8bku9MG7$j><+|^cBF+wO(460aR;;q5^`6b-=8uoI5;>!RWQLP#N)gc
zERgp0sLMDa!@5^%AhISZiS=#<%DwCDEesZs7K%*qV~ZqE1@me)hSAN?l@>E{|9^`$
z8E292J^YG@H86_p!sBshQIJk#1(y&B&2FLr-3)C)(RmNVyMt~9DVzLz)-TAH2Ave5
zc$1*RN!q8E$Yp`5jYd3DD^sofpaU?te|sYe8hp{XH<>!xr9DOvgViiDNv*B*9-P91
zIRLW)^L?&(pG%|8v_3nQG?1$uX{7SE=W4q!@xuvjhPZy9x7yYfEM+71@`_TVNu(jJ
z-9{K2OPGBA%1s3H=Y1s<^1<n+vn=uvlhEv*&F=voZa)zuY`rPAkRiuD!@i@^(10`+
zg)REe;~<G3$N&r((IsjN^;F!oD(04!49aBrJ{66~mME?Q+V=ML=)%5AVX2`9P<Ks1
zSc6JuVG;h44wMmr>G6u%>FKaW#}}V60C*HGhKjQxC<N5g(QZ{?v+tC|h1^HH$-U5{
z=G_~n&ej<#uz7U4@ssWLfJD63kQMx}Tb14wvd($V-^vQcM#e&E3xG}#2W>HZe9kAX
zL>Af2N2q6jEzopWootojyw{Ni=A9;&yv$6wPl3uZGWAiE-MM%H_FcoukB<O;nXIVK
zjqNBnAmtcT-HT+amLfF{lcV#c1Z%VCwXaKu9?tjO(b@QV#IN%KbQY0LLN(|~ZD6Nb
zREXwdxgc!awoo>nfap1z)vk7kS#KwjvZ8;42;|*Sv%fg#JYkx;3tX0`FQg$tXe(j(
z4sJieDBMJpkYAqx^l=z8@Sm!O#{1{u>FMcekS*_mS(B@7X9dxMNaGZ;&nZQlEuT^K
zqc`TiSdLX?=2=g^DFSRMJCBhB#b#}jhEnBe%phf$qskF(H^h32wsvEfR^3Zwp`<6<
z@(Oj?I7j&K(0LgPZkEg-E@wlpoPiDR?A&3p@SKXe#dt;h?pc1Wg(vjn+HfHPYf10z
zPOd?P_NB669?#gc(!JYDFN<$wn^q4WCbXPDIU_n}f{@kl=eqIbU>7R#emf{q-`fpo
z0FI4~DZ~`d?8VOXq=QRjhbSFVz5}i$bnJ&&tI>!u=u%zLDYqRogW-U7?Lw)B5mm1w
z#nXIhdXf5qP>M^ol`<za0M@*V<RTpIYKiTGb?8qn3~%u2PKWL7#XNSm9x3M?)m|vm
zst`Bm@g@{*<mL6F#VH~T;c~`pls!S4ktnV5fI=OvbgyiurTO_BWx-@{`r%Ux);^4v
zY;0gKX&Shs`;TpG@Wb1+AEc4)fVhA@5^ePTI6Upiyn7iSJcnJ-FF)s{yHv@c&MyY|
zuxS{hU1sJifAtrB5b-ptN)6}FKj1Q*9lV-*4>Z=9p;?iUE(50qLPO96{~hX?ndlfJ
zBC~%o)J%(k;DzPUVM44HtwbsS#5+|FwHe<yv)1e4ogD?(qLt&H+@3*f2pTfW12Gf4
z)#tC}M)OFwQ$K6MAO<6YamWrQ3g+J(IuUx;@H$H~(zbl`)M0(L4}<mE9NqjM)iOt@
z)R2%u(A*NQY%O9pMF^hNL=ag4E4%+X1lAD0_)SoR<gpB3`Y=@HMpDzeo5BVMzoA7z
z%MV3EyN=O$8*#;=!T2@yxg6h|mfo58KT+Bc|KdbcKTvc;$A?t9jW{$Br!HdZfs9Sd
zP*zb^CX9$tT(w(Y(L-MkJU=u>>TpSePC6{JRy7S>L6Mt{V8V(8#f%Nw^hkFQQlq3d
z=YG<>SMR)+o*Hxm3=exViF@pbs)$&9iH+cGd9_&$T>+%4Co#DW0Y`*cZWkrSg=Xhf
za%ku}^_}k_f&y36A(oy0qY1zobL<@G$YAYU(QzI!uGrh2b3pu#FW3^Az&^K9IZ(sJ
z7VoHxv>i_qy%6hDD_7MOFuHXhrK7}R0C5UvmfIR2RxD^OeQ*fhudB`{&v5xFVj&;J
zftdsGbljF)0+l%easQdd+1)<y<8$+3ti3;VGKv3EAozbRg8u(63|TM#2JrqrJst=h
znKuXFLT|@EjNGlilOFh@zrWuI(mY4_zVIO|d}=5W+=n1=I0AfZ*r^)SzeLV0DB!)T
zo$DbZW3|K1U|lB&%7_c}BZ5dSdEJ9i`<MgT-!hwo?P-L-_oUsGR~b!tPe~k6yU^&4
zMe1`;`qI8M67WS86pgPBFhUDO?S#XOk~L~MCXQO#+Wzx+EwdiP^1Z#rD?t;{D%f-0
z%Gz47Rh^s*lF9ZrKnW*F9d~0?FDyI(xuL*@MnItV<9H<)%~I{MoosYQ_t8%Is=B<q
z6$5v3n$X?W6dE69lp#(?Ir3PFGM&Fkm#b$3EjUpG)t06~dE1)DKk2n!;8weeBlnjK
zbXWE&=Njfl40wGTuN?lh7dyNqUQ;w6JXUH=)7!m~`Fx3Rr=fa-o^Z0Ha{Tv_fwx+<
zdl>V&t6DNs2Nf<K{ASlbHm0{_+G{oVs`<H3%iy=!S-B;3LW(*)FTfLqLh072(%ugS
zeFFo+)8n6@<#zX@GPLMs#>_{_+uO(lP?e1fSzF%i)`BARMmaMO2Dl=f?WaHjQvkM6
zfJilf-c1c>p4VA0GKOLU>qjLFlc1Hn5cG+89Nf)=Z%8jixcquLhoU1sNE=&%LXuKF
zB&0cBRr|6pP*Fo;;MJ~X=6r<KR##ejI@`hmqhZ-Qdr_4}YqRIGi;IeQ81lM0p=}$R
zVH@rKF*2pdg}BU{K&CW~^M@)#y!fbParo24OfPA3&LFM`bGv(L#gEx@Q>|=0?XupQ
zi-%>Ymz=$Is!!b_b4vBT-070Dx!p2XSpIx{lQo*O`&vKkMVnFlX)`^1<E4<X>B_~q
zZ73Bfp-Oq4To$|-sl#XPaiyfBl<$%gee4U5*KaRPP8zX{I4@u@n8Ro9E{c#T>W|*y
zQhc8ryBzt*(9n2&Wd|RVDj&JA#eljucs8L9ng>6A&T^oCH22}3OxF+YH~it(&!_+I
ze)*PGV=$w!Q0#h$&rWiZ4EsGOoS{RO5kr>hMn*>0{h!wTihJ@y+(w~X{3jYi=3v7}
zA9(PAno6@@ym<Xn0L=hkk#yKol4aZ)VLnz}!J(0N<>~u-onI=0`pm=o%+>7e?XUYQ
zC(S!o<)~X+_y3}*qZ0?>S;hjP%wlP*M$By`B}YBGC6XJry*`%>)Ms|EAbGYwmoxdb
zV42IA-+%O#P`7j}EpyyA<}-sX2%DH!xh}uu(yPwUt#USl;*3oJ>sp4((wK{w!rAM`
zjvb>HwvGea(M0hsG)2W6rUSvNk^cR=E!dG1!Jl%!&U<%qVZqBk`8og3IeM9&l7ber
z8dhafjJy2p-o1BEo<21$Bb*SU^4Is-RfE&2Lx2b4E8x@!+oPj8Ld_u3`Lyd|`h$=k
zqjc}tRh{zA*PehR`@v$d27YUHc6N+V>|OZlWl&Hb;FS{R1ugjAJz&X)83gxcxpXU2
zpi66XN2(6|`@>~6iEopW!{g$v#J00$_hrFWp4oSQ9eVlq-}k`zbb`lRr2hDi9c8|M
zT0%EJc;e8}lNpNfVsyjQN1h%$c<}6Rza>F~TM0UgRXrEq{#`&=0J0tVbz*`A1JZF9
zAXT+DH=Zka)l^rjg5e?jil#Dv@ZM}(ZI(?f={7{ai<o8kyMLX9LsV4L6rT`|7PKA_
zQCSgXgPAn%&tWeb%0Z~CEKwnf=ekLe=79qTfDNnrl|DUss>M>M)lz5<4Eop<*g#~l
zv$dS1S(LW3v!jaBldOTAD3#v3?!jNlu;-+&%Ecy}UFG)m>(^(yQv<+=pBfex#_(zG
zN*Y*p9>Z6UQ&Wd0CMKE><i*caBd>jUb_}i{`pWqLxv<M`f*Hll-#<D0^2Lkh^*HFD
z_kZh3R?F2AJp9Wq8Q|>M2LG&4(GXwUg)?W8!OM{iiM;T^6#&H%V6pOH7ZMU`6~)Jk
z6QlU~`1o3DA$qimOoH4u7jrq(vYHwjWzTV_c3ujRcnekn!f6LR=uFFsJI}vDhhM&b
z!((IKF2>Wj;jsY6l`CK<a%$;~7$8UWbK^Gc!5bLtR^-uMVmYL2QZ!^n`ptAXQN->>
z^6enya1J%2f(O0TZVv77;u-+C+w2p>U!40H>|tG7#NnIF%!v{~20XL^1|NQbRICKq
zy%!=_HBEsoayM5!8`{PfAx2(bk~N7Lur6ygFA)nCwj6xL9!*O}m)X>G=We{18hLZc
zC0am1PEHx8S5pk;FRBn9aJ+7VBe^%}`k{rPA~u4B0&{4)Nl$mG{CXQd-soGX)NAXa
zp|ea(c>v=%WfHfxT&>2cHDiTs`oUzKgDf_W&BdV(vob=7C&_+&fgmiC7%%Q(4jE({
z+^8i6^+%!=Sa03F4byHSr=Z}tMuwibpxxJ-$nDAoGu(&4DT?Rk1ZkuKhI-+_n>bbu
z4!QgH?+=&TCHtLX&MPk$(Yz92*;q9S%V<Gl4?6iP0)G4zH6doZD<0fEa?dAk+S?aG
z?!bnI76nm2b?N#1{we?3P?ZaAV{tV5*csNxn~S3mJ?&l92_OFz&@GPzvcU3<O@ZVw
zGg9H;Mo)wdW{&70X)y6!A$x<Y5<K}WfV(!zcsxXEyJ<$QUtoE8*_=?C+hY`uUjNp0
z36?<(gn1UwCOT}%5W)@8Qc_c>vR@^Fkfm^}m7tlc4j+_3O!Ceh;8ie|lS(f$>tU?{
zbL7jHFO@+7($T~BWoz_-ufdYo+5&5(52%Jhv#CqLkfm0IeJZ-yh%eKyF_<ZujcxP3
zJ*CDm5;jN~!GT;R8mI*ycV2_ha=F5)ap&5;yns4u09$hE7#iWI8m_M8-eA_zVW9=m
zEoeE&gXsooho5D+JC@J*B|1|rTfGttdqoVJV3SBcc<2y#F*tPVyhjVLYn^XovhFAQ
zp=Us%8ZNccPIGWs9LdB>Q*@Ng-+F;v;AL=dM7xQKvNHB0qgV>;$1q==ZWq-$9B(q)
zo4K;NIRFlGhKZpCXV~*$gH2hgqv$bvZyET_)p(K$m6er^O0=9-CNWM6!+l+2Wj5oM
z@`lyG$~bf@i)(jQ<Uf7-)NE2DD)%sjWl!H@LC|TY`xZ<9m<`kNbSl0^t->^C=~NV^
z^oos}#VStsgT;|=r#lHeEn=Qq`M>}EJFNGxxVRiho-k`xkpDCirpw*evnE7x8J@El
zxiGWfN90|ig{)!}SVLi#+`OyJNTriJvQ)yl3$$|Sc^<xFe8I-~Z?yq7r_4=7>PLjd
z<hw(F^kv+?q<Q7MTE@NWu%9GQYH!O>x7_w(tDT<v3=2lt(XqJo*&<l4OFTBMG2O5&
zs3@o%5+eLEJ5-eZ<jE5w9@@#NsZ`hiGy`rUhc)dwZ?80m#t`Nukv%YE3mP^3c8*(5
z=g8CRpsr+T;1Zmd#&W@MZgin>0n|M<SaJirdhQbqK@JR{E)waby{mzRUrO$}%+1XW
zmnQ?-a1RK>Z0scpO)wvYarp6ZeW-1n;PYh-`1I$~_kVzg(P?Q+7bY(>tdic7vbQ^2
z>6Cpth&~lEf%r7+=ByR68JnlYYkrVo`%quc*a$lSx`#_F)W8Ts+TLz?$kPNd3Y#2}
z+>A&;>D_cR+<J}->A4*)Q^<|=-gMpwAHDrdb5ypOf3rLOB$GtOUx$v0ja`6}5kxQ8
z4gXMuqhT_$C%}ZaDSkfm-zsuBr0Y4Te#cLoX#MW0su~7TbQVatT9ANL;r^Vq*UZul
zN5ITt-U(J^v+cDRMKai19w^T?*yn1ObqM8we>2l^s8Epr21h2@l`V*Ex?w1WB@RSI
zj54H$z7))vbi*hG)*8wld8py_SjPQiRWKN*TS3ST*Lqc@^qw2bYtf~pI?^7^-&o*I
z0#Tsdz5_Y1YNoOxp&R#Z7mVt8V9@V0s{;!t2M^CZtmE3Zt}8@`X}}#?HSQ%Ty&r9d
zxv!2~^`f5sokh-QNH~|ZFdLU+<OHEOD(^za^U$~Tt_(C<7?%Vwbl#+Uzx`a**O2NA
zYwYZW3)zg~&fjv&#*`zubop`~jaE3MoA+kC0caw|II%vU9~oAuwFc8eHw-C}@x=^O
zI>;f$7kU<sEfZ2%s%>x%vEC)l&Md#ed|lPoAGb8btU`ILw3L@#LN?@1iJTAk^tv}N
zFtDxA5<}it&@D|>QlNl~-F687kmnmjW@MOFDY~p%pV0LBQhXk*v;SJGa>K`uu0|)>
z=g61c7WFFS0bCVY+6?Bunb?ADLu-yAntvYHHwB?k{=UAb60@G$h7EyT0Qb(pJ%zF<
z%|55mvt66%%?t(X!ykX){CQUB7ht*(iM)6hjPiZ$vBE6PGt)L5DY=7AELZK~uvqMu
zWloJek>G6AOzafxk*DwP=l#LPp`PRMz7^8pkLLn>E4;c}Z6=sigpIfsneyz}FOj?8
zIGrxMYBiOM4hP?KE2$e><%W5sSLxVnrvqDRbrKU*z~AP;z%1n{(psCVRe~M0#((dt
z^Pw=bhxU1eNw{#2vgD?fao$e84|ydLy$jZKrVzH)2ge<qf6#%EKB^;6k%@tHEh6-r
z0tRCjW_Sk=dxP$?xxyl)`#s*Kdf6|fH)t3#fxU!_-r&N9&N{wbLR7ONUS%e<QM1|1
zGeIl-im|7nq^Q#NxlwRv!&C@ZNA?hV<2QMQS54T`>lm7vCBIL4wNU@W$W5=;vgLbh
z4n~b7U4M#Bjc^;R^QnW=Om)xBz-Er@1ZrjFXg*_xM!<9Jg}71c0e}u8d^X$Xnqaq{
zMd@zOK;Fjcs)IaL0=D-2CS?5i0=K~1$(1fkT<lINZPnIMQTmJ3kuzuB53xky6QvWA
zw;(Y_8dm{$fDPJcOkb8-Ygbgljh`Gy6dM;eFA^LQ;xe2LJ5La3k2VAC6`KORrhC{m
z*kRQ^)nK-$`sT*r#%0JlMe`oBz3h<#SnZisF{82ygGZ0v_T%)qF<C0<!36bAce!l~
zGDJlDoZ55+ujiI+qaB1>SX9)vf(jiwVvRyw^w))wuAVCQb@Md$>AVrWuhY)2U%w8X
zSev?j{KM#O%a2CNJKamUfqrN~^WG-oIzS3{umGl$GcqpUx_R@?wnOL*rJ@H{%)8z`
zN6$c)$WBv!(4+{FYaIyHAnluvR+gY=Vr^=>0DS6fc){L4hLY@~r<mqTX(c`ZWR!GY
zdxc&YuhU<uCFeCx!xo_Mi9Ov~Pfd{SyO@1;z7&w+;A){ymNnrDP+hSxpRnK#u*`vB
z++(RG{S2F;h?TseV#oK&4r_iTrAz-TpnK22J*WWOyA#I!+_`h9A3xq~oK>$H%^Mti
zunWiw3UDZRge4o@z)oD=%Bx-c_zmn}lg0MFkvTeAZYKk2SGUq}dHz#MsFdayB)_Y=
zm8y1jc35SL2h7smI#z_zJ~;NM*b?9c#>R!=k{-ZFPP^Mqm`pqoz{(o<na$v#23X}e
zlg+sSd@ir6+%Wg==owhVov^<;6?mfftN>xb895!u{oSDS&J8;9mBFfz+FetLZa2Yn
z*LsmvVIv0g+$@lq4g8wF`u4=cgwxlL$6yK`Lm-i=Tcj)I^k80k?mM`Hp&CK*4B3^T
zp`pm9Bw;rv@{0XA{Tlc6V*4q%##KlQZ!gIPX8_<5v;FLg&h#R096x!oV=BCg=Gebz
z(|E0yJ3NM<x6;W1Dd67T-hA{ye6&>X=W!}3Rgjes{MslA%u4mnoxfXogKj6Y0x86Z
zInPI-&0sg+3e*M|!5#odk~`n)VeF1cgMSyYPZZo_b#?XG-+zA#csL9A2f|bc(^f-;
zsR+*9+LY(6Nr4g|l7RpG`C;yZf)8D_M$Nw;K60ee%3G-t;zht=TA{H{Bj>@JSFe79
z!D?JTeE9IpUq_ibp~SqxRdA?gBq87v+|XEMjcl+C>jF8@c=#|0mMY*G_!F2BWcXa@
zOwLTV$MVItBWR!D*nGA9K+W393Ia$N2fBcGkw~OwDB=WyHek<ws4~4Z9xi>k+QPC0
zK@6hGKn7=f(nEk&GT`Qb-HDmwVij1gY8IlUmHyIx1x63#=UVV{e}4<;s19w+5z1`*
zd`>Zn^{QMHHRhpRgYAMdut&>bhz*Ut3H&9juC7j-s0UN;C)UsbW%sIntq$yB3DYKS
z6yHz2Z3fAA1^Dxp&c%xt0VvyRzWq4l=MD4N2WIxZOcl1WkDv2ANVC~EF*$dUGw08z
z0V8SwsY})lxnk&?*bV8yZcj!L+iL)DZGszC(LeL!tp}hz)Kd05pqwbdGg0n8JwmMt
zO+31w+kj>`1O!xTJU06QES+U!%>DcCUu8xA%K7EUkt{enR=JfXWxRJm5oW#%b}GJs
zbut4TgnKaTo?c$(;5tr8ZC&#}$%qB2N+1eGE5wMq<N+~H1=#@s>#U&|By#{z+S^_7
znS<T7$j}mqwPyeXrXoBawi?}o%B~9Ap@2L=dD3DObL<2G!)dyW4!Dpf-nihw8g%|=
zp>%2$JbHeFnm(no^B#i40ER)50o>{<wewvD$uwZfR=IcY)rCC1@Tx`VK$Vr+jOW2D
zBRutdz%96z+2N9GL>Ix;?P=-h>4^rnLWu`6argVDN7tdToZ(4Y;fq#)O7<F<<{KdL
z*?KkZq#Dn%CX(6@?dvml<D-HM;CK+_nt4LkTNNQ+8%~tMV+ts(%WeQ&9D6t0JK!Gp
z!=BkTJmf(X8)OVxr2v>aXe-R9;q-J*pFT}z&PG&KBnrf~iw0k<nxle6yZqqO%X2-x
z2M!55eCNxsj>jb>{jt6{DlUTw9BG;J3R`jE?x7934NL4UWKf48Q&5vC=#kyLTKNzE
zI)CNCD`L4s&`(NjTLoZ}lZ6GjaTqDJ>;8w5eDi<SDeF+63lJ3+utytK^KD{^(NW(z
zR`q|F)gR-x18FY;Vz#kaqPjo{qUC*yN<Mh6^Cw1ocL}x;GL~8YdNk?##h+NGjF&zL
zS^UrhJ0S@>fe$mD^gVc+`bQc<O%foj3Iefua`Mntt2v;hd1sI7{;w@^{#jKhl<P15
z<Sekd%Kltz{}nI0o^$+xTu|k!K+legJ=5Vw(xIl(v9qlI;y|>q?P*(ETTf128h|7R
zIpMe%6{_OeKSP+5QAx)(K^i|H_L8AMjS_3bcg~R(W&h%rA8w#)r;V#U@9SktbA98n
zN3(nK9ebSg+uO%K)x~$0ehwuHCGq5+??8|8zvbnmrk4Q$J+SP1lVwk-WvODIA|P^=
zp6i#xpl-Sp5*7|KJ~{$4wzkcr2zgROW-jn@NUKPKB6udyp1BpEas7wO8Z6z<KngW`
z=X*d7gK7T01-Qr&APp#k_u#<=eF%GkO;iV8@?F|j_&8$QBQo2~OIplJDxIX10$;p+
z{xf7R+v@@QMT8%a59tLSzXGt41_gh}Qiz3xWd`J^9*{<I5nUG2?A33!f87Z9*LRhn
z-z$C>Y6G?yR5?l5PeeBi^x_-?Lk>Kl2)R5hNW#~jMO(l^<ox!Vufl_W0@wG?dh4=m
zoAFvKm@QaAxESvM<|yMw)%-oG&m56|1%RFQ!6rILBk$k8rx&qJI>{_GZ=VDA2C^R~
zE9-3ln0?>B)FUz+R4}X2O2PUq$R8T8P$7r)!k#9CGePnxD-0COc5inJqHE&*x!RJN
zwt&nyZOm(8x}jQzrSsknVai3eD!9(WqR}cedI8U3c?$^|>W--xHwcvK*=q1arGb2d
zdcNY+zBd3kHGtJRO*WmDB>=;8{QT|!=tCX|{%kET%o>Ori27^i(cvGliFz5hOWu^n
zLRv@#Hx<z=5X3<wM^u8;Ybf(BDvB0V9a9hu>BXIM6cZ$7R(4<vGkqv~5CGVAlh9FX
zjRy|^8gwRI7qg%I8~A!&qW3nYxw%<RPOf`nfv^sbH2^J0^YHKduQYzHsCz~XlJ2V5
zUKnPH5MKMqJL~g9DiAy2k&%(e3OjTN6d?_--Sq)%3Lu&ai8>koliRTUUo}q$k)InU
zKmbDO02F;h@PbkRb;HfWBO8j-aD{{EU!SNZ&;86HXXy$G3a}~4sd8>cJ5cH6u%N<!
zE5yUu`OpbHmgBX$*fk{U1D%f^26mkdQgIb~xAYX+<PY4><(brU89)wt2Bw-sPaG^T
zq~|vY1c4<Th#kx{{0FiKru)SiHk}0R<lEHgA+on`%PB`(xa17b^xC5%D;)Z<zaeBK
z_~6VU7#$SKg8x}KDWJT*UNgP=tvX7=tq?IN8z<)2n}BjUGhv3YGtExy0h<9U85Q4T
z({@d7it~V^X$M23xW)9p?$K4Q-jA9kHSb8R-Gm>EpM%pLn1ck(y3tT0%>i1N0}KPr
z_+n@?8nStI-z?wzxCTuUHHPE<+h=HYF|pyP3ZI>2*}Sh#8gP#LPktzCs9PY42m;+_
z!E}RA=is#mOA(C$?^r)P-6)UGxJ5*0J#<B5I2j5)HU%EVQpZL1gy%j~Fb#zA9vW)a
zIJgZ3A4Km;?Ye(btr9OSl~$!=CfW>Y4h*M8#O|3hXVzg8u;?Bm4Gs9dHa47xrKNpF
z$MbZ>F_|xx0X`X-OMCB>!(_+K*-6szzl!%{NqYL^$;ckEGXZ{Fl>u-IIDWf_>4vAF
zB>}yg1(%LpSWL-~CB$ksgg2=FhjVo*y6vn1=(1pN)hjPS#Y00f!c>Ap1~LykW5Z@j
zG!K|^7O1?1TDjYZz5xcTX3&^Tip-$SBC8{zVcn?hn)Br!=0%k6pF}W5^~3XNj0NZg
zVP=rZ4r~J?EPy_Uh7M{}I$+)!Xio&MLiWjo_0K6LrbSIJVB32i8X?7F;AxWxU%z7m
zu0BM93}%wd0!0NBTLj=h2H?;vOo3ATdX86;k^j}XpTO?2J**c$D!RAuun{wGGa|@F
zE|TkNa#seNkeZg~8YH<MU_|iG&s0RnM`}nmdi*#8z%rorjJ;hlCm)|OlH@dWpp${D
zVtA}aY8~v-0|*2fav#K=<JNbB=YD?EGg`>lpTmiZYAPrMBE)gD%7qj9VF(U~=VpMo
znk!EC1019NU@!SN4<eSJ?dNw4i4!3Dy^--3YjGXvur3q#+5wg&N<R*i5qL{4Xe#_A
z)Jzf&0N*>ikCj>xbb_M?qKfFxG`)bCUU05L2o&ri#NotT7Uv6>kX{`4enib@?sUU*
zz}^DZM7|CWYYGm$y~*7KyC(aAesKapgavw4yYx!y-T+R20OD;Oe5J_fgNQL8b4oG=
z++85%RY*$xh$Pfjb_+x;Jiti<oH;C*Lr17=qkZ=vF$30}wvU5^lnD*@7(Qb;?+?u%
zt;;MxeUnpEj6kQRq!<lRKE60}{M0FzvyUQEl4V0?p(nEqLdm()r!O)yGnX~|`p;Q>
z)JR(P)uwo+#%0hYrwhjc?=dt2{q04lCNvw2TzB9ZH}@126yP*Q&|eU9U&~;EHEKzQ
zeWm8}g9U{{ma}6uRj>~@7semqAz8|)FBKD|asiiC2>$DSI9oLiy2I=QPXK%tUpNEo
z*`{t+UD-S+2I|}lux2$7!HZp&A4x(ZAh=fFn`8{<{DX^25m?22fcCJX`IIq%0!o>N
zoZL&T67y65o6WH80Ad`HOAkDRz=$up814oD_>dLvzV{nYjJ{^=@15{{dxprX+WlsU
z(E1b)mJMNwf7AYu=keE%FM@r1AX$)(u{{-am`2zb%zwoDhfVt$4eWVl#ROyjoFT!k
z3NXUH4y(-i*<yZG17Xp#Gy+d?TPnswG@vn1lo3^<R}buqjmux^{a4Qf*CU}1EM^8C
z)bbjKvnkz$=lJD;UXH;+k884633OdF1{S-MeBeJ5^Iann_sbd#C}U%uI-SjMF$UXP
z>*bN|g^<BUFe=J>e|U{%VP%~KKddScDJbd_4DsMkQ^P1jtJ0V+I&OnqzqUH1ml~cy
z`QvA3wFTb{=n6VQVQ3aMwpIc`T*l+ZjVEv4zC~l;Idi@}yxnZ6p;+w7nP9XTv>M=(
zy`ae2dv<`ziQbJia&Exmm6Xi`0TOYY>C^XG4+n1YrTFUQ%Xg3`4cY0q8As}>hv2_5
z!7}EH;0XUxFfW%ja&-qbsLYlQ)>I#tormUv$~?(fklxs3?(c*zb90=nRs+_1i50$Y
zn;8M(D{Qup*V$H2LsB8=JFwT*%Gtr^4EUn?#>-+mDCXa+k<KZJma;=3hwo5u+rh_<
zAIHY(J1Y)ZmP*7EUu-_-FO}wEADSpCmjw<+HIoqfQQOVK`oxWE*RG|JH6KXzY>`Ny
zAJ0?Fc^Z|KRUg!<ZIQ{@gI1gEeZ-xrAef`Hfw&N*FRtxwZf+I3Wc|Xjvg7qGR7FEq
zD1^Mx&6gL(eVB{{==n#5Tf+|?XFVksafMxaX`XxlHNvfb>>J>X@%v{)p``}&xTA9q
zVpcpjR>175BURNdK1}W5!-w7<x}Z!KTM>kSrYS)CRa6RZe)sOc_SRPUeCXcOjCK<T
z(t81R_U6}}week#tNEq>K8s~`PU&TCJKlQAwBt9AFRD?v_`wtD1Y8Y|Bu$x5BG=6~
z6v`lQfSl1612?{S*PI(0JaM6{LGSN`ql?<_+1m<;8V0o+ZHZ>bFTawwOqF;7^%=(j
z*9#>`<o8b4<}(1Wk-r$HRnlTNpT%%nYrz-;%ULeL5ZW^C;8s2h05(5AUnhQUYAT#P
zf{>cBQ_<1!*ipCQqoq(bJkCIo0HW$jwH$}=yvxIrF3|sWnG{|Ag;+q$&T3~2rS~v+
zfSdR3Sk&Iue>S?n*J%ApRYVF?MXu2+U(){aax}vFuBL%U`{)8CpyE>EiQ_|a?XMO^
z*%cB`Z|S^Jd{bxh{OKxQ;Q5?~<Nc4OT~8d+rD%-8xnZj#avO`IRTi+Gu_;~2ve}6E
z1ds*|bf3}#6qqHIHLGX9U6C7LhFzSu%!d&KyghpKNC3159m;J{tCBTvROoJC?%a75
z7L(I4i(g^#TDy;=BSnIxP%Lcxj>sNd`9OQ-Qb41rT?o=5wee6q-g-3u*|TQ~oBW~`
z<twDp%1h7`&C_+LRhGsbv@E@`+_egoR<3%XHg)&h$5F2JTH`>;i|_TjNA)}2TbEUV
z17;~#n}f>dRy62m7s_-!JUu-R+zR#R>gwXVu(wm|JmFWC5=RNYf4vfLRbI4&zUSMU
zFMf9u!=G6?VOssjaEiFBIRd??3v#>^Qu?=n+<~HRUM??yRS7N;q<g}Y4eqp|Ayo{Q
z#4cXoVY&5bL^wtkbW+Zl(oKWy=WH%Tkc*7BnXqB13fQ^2*=lVx8{6El;AU+d^tsRZ
zePvhA7VIHD$vJ;x^lsd)gvV+c4o#Gv8@EEt5}&6?iGt9IU04=HCFM73q+J26$-uy1
zxZ14<M&gEy%sME>x>8b7NIxf8|K`nSt-Ref5`*xJN{L4M@1L(@x}h(`Uy`~TAq3eT
zNJ=QWJwcLC@Kr1~xDOVPPQOd7;|vy^2|3>_`1F1<`<y4^^*f3wY$-Jcko|qQd$3oq
zW4a*(_=^!Q2Un}jo$j$34@jW1H;K2MInT$HKyyq7FcIi#m9}4=AP>D!@B(_kh5_r0
zTdm=~{S{SyVK7TwqkD_}Fyj&5x_nQzq(g@eAzY?CQCc7Az(HdXKyI)%EQelDbgtmx
z)u4%Tz@Bcwh8=ODTm)~*t_!lNp%_4uq^;MQhZYK|=`K83pbG$%0BAZ?3xKy_8`@Je
zqAfN#{FC^bsy<Y|X1k|akt$Xj5)y(m1Ho_W13X3<y6p%cgPx8A!G>zwhf)Jp5cu!P
zdAur@V!*}h2i=cG3k?0C5ts>H8ca6`-EWpB8aaWWA@-RH`zeXvFa4+lh3XGBf)0LX
zD_e?~UeKj2eb#aXGB{Xsy0(@lO6;dv6gX3#K7G0lI^X$w|ELp-G@<q?Y+v!`9ce|o
z(Mb^sejoCuF8i*HB=~Z*0lP?stqqSsupTZl4S}VS2DF3|#4f0|E|sDe_s@IHVBK&8
zKkF`0omAiSn)9x36WX5tnt=*Pgy6{NCMNnMB-f_Og?B>(Md0!O)82OnRh@3xV%yqw
zo35>`M6vatwhD?Q$*3)ORKSQxQ~}ANB3ZyzTf3EbRFJGK2#A1Wkz{Cz66BB(P;y2=
zvcOyWfPL@0sd;tZdoxv2HMhzt|KM==h40(n-fOSDR>`WxDl>^Sm#d}Srda}@kN}44
z0y&@rHwJpp5uCDk?@a9VBS<{^4zHiSKdy_i?>rcHk!!`S3%1`O86f<!3CRmm?f`Lg
zEu!@@w9q4Xvh@AT$GLjB?uW1227np4%~@3VHti+bsidWo8_)3oUSk<V5;ifZf$YIA
z-Pm#F%dgt~mb0`3Al_33;qo={MmLa(-3K@rvHkK~JOtlNG<Srx5_hx2Q3<JEo2hBI
zp6u+ueK8Zjd9pJ~!Szf>^pSOk98l^CF#{wm^VO&4p@BZ7?M4EFeNaJo!>wD(e4PP=
zFpM5f1?ts|qCq|S?HBOl%nH;xsGA#k6)rsK&6;vS%ks5p2wuk?7GdaVb-|H!NEY$B
zSfS`Mw5^+-21J&m%Rm4ndJhhKnX`>ouy2vbtVfD*s$C2W7@)KnkU}G5rry43q4Q{q
zFD>8It5+Y!OHk=CHk(1~kZ`Hsdcm+F$^d~T*tVua-PI4#Dg+AJ+infb(oP(a1e#N#
zNK%`fZ&MRM#0n+Q9P7a6)yX%mQ{(!`<%JtoOm9pst|zkgsRmxip1aV7E=8>)aq`c3
z1g?Ov762l_BOv<`$R?kjYq_3mQT+!os?c-y0ziPto<Zb~KVd~867|mevarth=2m{!
z{s}caSac8OuMnX`O)KSeP`;0F6zGQeD7ru$0Eo^8^JowWxH)1Cfy*cX_VsgwWI)e*
zjS>S~KCug<BO?)eZf_t7C_;Y1o&0`Sj+bx?tiHpC%LGEwfG_~MdJ0({fe=2sbty<7
zZwYH_G+Y>PC#VvYa;Kkh@BwHzo(Jx1r#^F`%~~9`jrrAB?Cl_VCk@PQ?Wd#|T_@nG
zVRv^H-b^&#FweAD*eko|+jen~p$?*FPh2?y<54lP(RXl|HJuf|i}~>WnjqaAr>N|}
z;h~joAIC5SZbKNyciVQ{{V<^Ul@<%l4C-i6H;tAc@CxeB_td3T-ek{Y*wtHkr}nu6
z5&<z_AKEr$SH4}!U_ys+b3{qM5o$j`cpLOHFKoZ|)sxM$EK_Q2J~r+GJ81)IK42)Q
zAXuS@bRDRb-=H9~nf&Y^VO6g~)DCo}>Llc+x7xeqK(B8zf)t!<yc?d@sVh!|qLzDz
z)zv>Rz(ze43$&pNt3z!(JT#PgSdLKSIf7gfpa{AuM`JU`9(o8W21mLgOyO<)fOvv3
zV;9orgTH?F!!mB}2<(*3Yl1Fkcw99k?y^0>FFUqSP(cUZ1!`sm&T*kIpAS{o<5cca
zZG19r{kCnIbkoT7gNjBGByuez&C%pyg`$K%6%m&Kuxh~sibo>XP_ROrJdCsy?W_pg
zLs^S;ux>XF19Y_xATRVe!cE}-{5~i)KQ|J5qMo_51RO?cWg^RrL|2~r07OcmRumuw
zbL=fD{eW9#dk91U79rXffg1ol!Xd+=`0LXM+39C^eGzI=%8qbaIbvjl))-Y0C=mU{
zO<BYP1sG?%Z5^O`G)oT<X$`!oT`DRY6%_Qq9DAc}l@aFU<+bnku0*YT>T+NtW)RGT
zjYxI@ag9NfyFAhK5JX4W)?QkjU$_9KZpX?ms`1%@ct-VMz00^|khHb3MpXHM0Y|Vk
zKr&$?At0<4nMv0S(AbH=b5K1}1EnS;!eirt6sCM{-3mn`Za><471*)VDgrQLf@RzJ
z=KeLj5dz6|a(dg^!U<K7l+>V32k(6bk?}O5Zh!qrfED|7B0A=f)O(0XqlZJnmvMWu
zetlfJB0f&^K!jiZ&F}E^%u#$(mIy*eIa+f`K=zbuTV}%1=@hUinFsOxVz)ZHLV=H%
z0*pY;`6gK2>6Vw*Dj@a%FDdjR<1k}CaBpmE<ZlBXW*1<hgXnEiaKv^dL>cdZ;5>Q9
zM3g;jO`_ldl4(bb!}hrD=~;<*xtU3DA9D3u;pY637I(&m`}!hI9#5$SCa{)?jqs4@
zo0yydnk^I42jt-<!YIBLbg#SxO#tG4woTJTF5treUF!J({aPT+0G4=K>ybCmVj->=
zz+51wGUwa9@O2Nd8mPzVaNYUO-<Gfr-h5r8lWu<i;^>D_avup-3zCz!%OxDlce8#B
z5cWs}Hp=t9U%J%h{fjyHJKIxE*HKz_1o&M~eTFuIe{hrB<>z;ioONL}(|gOD7}BO@
zFxGC-@SK@?)nSRCU@Q(`&FRAxSOZT@Q)8nzpju=Ldq5W>l(_}<Bfjj}GbI37y9s(B
ze$mNS-{m-%wrqt%Km;NJDqU@$1c>|(b<>imokl%i_n**n1k`#6ixS<^W~>=h`x-a|
zZZXi!+^Sw#gSNf%hv(mbR;}}(c^Cjud4jR}ZNzJI>^!;<Y@+CNXO?2=26_beJkF9o
z8`26Qg~!)ppjg}mh?Q4Ruonm%b_p8`5_NeZRt;j9Ol91)D_0^Ay~aS(1IaFIUz><_
z@;(;PO?{cJPmbac1wxX{Fa>Ht^hcBh{FX>xv7kyox?1<sV9L&v`QLq4iX>wY;9n<V
z{To#4{Yz*1I$j17V}sUZ>m~j60X=tw3ORya(y2n;oQE~yXchZn7nsLptW{K03^%~w
z>P=QCNGESUYHB52%+1Z!$>CnI<h{6GZ5FYCuvW3Ay}Hh>12i1|wFSYKVHF38ZY0XE
z!2m#!czbJ-@1|p=ao0z|W<DpQtP#hzV6LjaII}b)uT>l&42?!sDE3C{PcF@RxI0rT
ze_jc*C*4c=`8RR8`vnSM{FDNE0{1mIWG2J9sKbmp5a`mB2DGPx6z$8TEQPG??d`8F
z94d7U6AECry$H5%{1(W27xa|RTO<x+ucW=T*qlK~lk;1kd+1W$zNMwHIwd~8jT!mT
zlSfP$FXWJt(#57R9B_;d;AN@7hsMN0Mj+Vtq??WR&LnbNV6yRwaY!lt_*2pXm9e%F
zoDKUyFQlIFvuDqAUb&|O)*=aFRwy#^I-`(8DJ8&I@%#ljIXNHsW^lG=Y-$UuxHn?P
z0k2*Qjh6~sV=Q)san&~UF|lGJP^2v$`%Z4O6iiH<+7lV&2$jJ5$Z~4p-soYc2@Kxa
zte@GvHT&eN>!}t|`|n+17)3}09RfUWREu-{2VUNX;9=5<N^Iu-v2#sW6|7J!#kB52
zI08B4fOl7wP~OQnlXuU40g1E%ED(NASUv1zMZ7q3jSziwmY9TLFXQ3ydoT4J-Wg^T
z4uOd#^t-Om^tL>6l&N3y!f<N`I$Ug`v%`cST0cvV<~2(cqtyoRcf~9ow{>?RU*ahO
z#o`a*4TAk8AZNdya9_M*amyNU+V9{!MX|XP_K1WF{mIr4YP%Zs{ql9{!PJv!hGZIE
z8?j(LerQD8LJUm}-k6ctd`@e1jUTXzy(}bJx1*}qPRK=tCj8D*+ktRMV%(r%kbmTL
zZU`b1h(V7iy?|8N5v){0$$)Y&uffWtDFDKj;|y}Z7-@{Co5^S1MuRF(lon>BjSu)P
z0+yz~0}K7UwYZ5Uc(4w6WzI(sml84mC!CZhoX*xX9I0zZFb8R1Hw!JIRJk1MG-Q6e
zS(vSiM%AVRssFPUKd)zEI~P=rAQSLrID^b8GHy|utjYo#{IXoJHAt8nkx-zfeS<&^
z!nh2x6g8RdX|H+3xs?e$0I-2}n`7D=z&Ki*Z;%3=M-2_eGct5^<cP6ZE#f{?5%kW*
zTGK!numLitvQ>*^aOefHT25P{KnH0MsHgo^ew2Z$nePgJRUU7&7eHs4(DIJrA1YB>
zsMSJY+^=O6$Vl;)qMp)+LXd|%44y=O*-E5O08DqYRzkKia8A#a=f_L1kA%V$juI1^
z!6bRq;GCc9n`P^)Bm;<kPRHD*4mP@D;S}<N<Qxv-bT|k|04$EWB^zfFy|akb&@T02
zpw+(v=g~p4b2c@JrmRrxJ5y|240G57`rf${f#$0@eo&L)l+yH3s@{Gl)okehDCS%@
z!|4m90@Dxgp0h$BrjTp82@3)2DfuuIbG!HGj;7-c5B4?aAMD&?WM@{B7|9@jmL4d7
zULP1C8|374tTF~QeA>b-{YR)X6rA#jG9>I9nbtiUyUbH+2Z8KGVHKcFL)}e-snm2j
z&lsjem_o5I2;ThDO<l8!&(=CxgBlF>s<R_}0?Hm9*+?{D93#EFE2nS!iGddAVzg3;
zV3KU%*Ypv_7e|2KSAZKqV?sNB`Q;a4N^vhh#(M|}1m$~}4#<&Kocf$FHq;XZ_S#Xr
zHTn?xCW{tT(7~JGXyeW!mTk&U%r)v$&<2@44v7R4T2}ZKVUrbIr_rB7?GxSJZZgA}
z!KbiXD!{di1ngn#Fo`+nHB3h|MRAn0w6q8%R0rM*9wO2lf*|qvDKVX<K~X~&t%UVB
zWYLZ_&5RXVwMvOjB#S#E81`*(+Sj~tj{5YybFC}Y*bZ2`z@u;&2@svo#7xEeIDkS1
zu>N6?iZBAB39)8>KsMpT_Z2O|vHJ<Ua5MDNDgD9Uy}n{|3^F7WoTt>PC~*He1QpN(
zMyBXi5ioGYj}XN*!RZWwn(}0EPo>2cZmQJ?-??}19(ZUVcm09nDi$*w3wgFO3I=xW
z*pUb>IZ@$-_T1W!_5+YDU@!MQ(F-DO_}`g5h$(bf!<QxI<+a5dSFL&`Tqy?3fq4+s
zF5YT~kEplorUNtFE${gA9S6Yy6t8tb@>J-xO*Iw^z+b`nDJf6&Y{R!XLQ<q(hrJDt
z5v#lS>{O!a=Rj$j&cn%VP7V&H?Irgp8nJDU7Bl@pQ8&R8J~jmM3)RFRjrmy0nV$Q8
zya$E0FcUo?-#o+o!O>jBFYSJ=kpfIScpPao4cmUEE$#~?=b8Q<6r4~~qy#Y%8|mTx
zdpovYJ8bCvg&_06_e@WX1TwJ=FAb_K1Lqb0F{5<HbunuhT7M9zHU+1h<{akB1g`#z
z3iM2O?Pk8-?dT;MCI>JYi~iyP{Ack^(!Z0LSyap1d|q|7r(}l^W_41MmHpLsYwA;{
zf4J*bb$c{RxetVz91iz~YnAU`&D0&wk8fFaejW%kUl<*`4j;U}y|QV(%E6R<7gd`>
zetB{2FK&%Z>*AZsKUc;QsO6`gouAv#Kl|53R@yUH@n6dx`oCZ%E&B;|Dv*ex4=qhi
z_tAQ4hu%slidrCPy1`@{0s_ISKmUCDJYq@<OO=Mq0PLoAv*Qd@@S|P3cGW%4eRujV
z21O`vVvIeV8X=wq2ws$S6LN;s_c54E@p6I=zBk*p^wi%y^Myitadihu<Xd&8een<Z
zCmnL=`7ukulpKVtz_K$}l-{d+S%te;Z$^yGUW2#>x+O7P*6zEriiz#vxc%3;OjKUP
z{Xq6UUuIeJ>@QS{RY4rQixxcCJw^@4=S@(&AQ}QyI)LmZ5g?OA+X$3|saFq(Nfk}8
zrx-wxaOgJ##vpu1KcKKR;z&<EwbPL@<HX-**<r3Rg-o4ytKn~WbfG9Xh%iFr=1iRE
zY+xRTA@U2Tft~;jrb);Cov)K4{dcNPVB{1Y&?-D!Kuu@?g3)nr`7nxEerM~0v&T@1
z^NOClg6JuP#GI}Utcrp&s_QlN<_OFzsr}p>ESUzb%C1xKX4_qL4^$^=$odtb=|Y7f
z0`l$mA7|RX{xUWXu_MEfu^F2b$1FcL9mCj#OWB>m==bc|oc>|Q)zC3i(21xJh|Ij<
z&;vK1fHniIsw(4HB}s^p&S;c6!Yyg5JMdEz97~&D8W6C`655*x9xb@T>*eI$wj^P+
z*U)~lG$-W9LK7UsKz5|rZ;?s7fvjud@#kOZqKE_%X5*;P%l}s->IjWqeHt(I>Q;di
zC*YtG_8*ReElm@gz(>%A@nkRozOm636$^s*kQ_k0y&$R*;ygWev<xW;TH`eKN$3Um
zrnRx=xn4ig<A~AA=!|fX=dd$CDv!j1i^A%rP5_!aC>p6d&ZH_SC}u96$iFG3TmDTk
z%~Y8JK_(Xrg73Rmi0GUtd!LLsPe4~5F_>%b@Rza*20}||FY5mpz8I2pMBn26`u9ce
zMP^<j3x9PGB~2GH1z$$^#yjk;y0jE<C-2Uj&<Ov4Ktk}HYnUiwk6xVwSDaV+Tqq8*
zFe=TFdh`zt-hO_Zn6N}hwX1hf0ZEoXi`v*&aHMEniZC#h!Y=A=n}`ExwWh<8PADYT
zV4dcor~Cf>drB8TM*!W`Z=V4$?t{?%J`5#&9P=$td<Yrqip}z2p!{6Vb}-F*pU(K*
z;N(gE;Zwxu#$)?|n|u9bB57JtW`kl63us?V&eicRM~0GjS**UIO3w-Ke{Q_`gGPx^
z&QkkEQ&ZEY&67{6sH3UFe0TWpR889O`n3EpmuDej!+G)y&HbxWBGzB|t@O8zI^WG(
zKkw427_%F`J2Fbb67z+^Y&z5rn=QG%-1N4_Z&B`ZQboK@F4?|m$$sA*zifJS_~)Ne
zyv8lJinR@^y!Lu6ly_yI$WP26I4OSlYiXyxzO)9rkb&T0@K@0%9PjAqDI`-Ii1=>z
zg=4~@n+(W06`To3P$hrFi&;r<L-=it$8MI6{rg{`F|f1Z6Ik$z%$+!r-aSv(4xM?+
z5lkjG9l#ke9Zw_Wr*+I^qg5+;>Oc2?PvRtMsJAUe#^H-{p(INkQuuk<Vh^Q;0llte
zl8Kz~>GYJ*EToGNq{hPU-S3oqiv4uF_WXkn1jn{Fq5j^>A|dIL9GLCBxzK+z<TWZT
zK=oHLlidUr6`1iRZ~pMr8e8r%#tvEQAj)lg9`d<Zd5;f01p#b4M*b~?tEioXbjY4G
zm;-HVOfT1$SXo0_>hh%X<AmRCHX}%?#ebaZ7;vd?a!Rt!%W8mcpge!SZ(3DF%a*HV
z>MZiP$^-rvve~&~FGq16NqVCtN!qjiTsW6+T7my!P-*Kg=1>P4!Yz>>i?J;du(u!_
zkt3Sf(+pK(Wegi8X}`6%dhAL@Dvv94S3j=zA;XSQGWP(NhJ5s>KQdmlHdZ65qqB2E
ze4VPXq1AVP@YGEUyL@nhE)eP2u-v73x_WzKs-HHDWJ|4OlC#YT;gnIH+@0kEh;4oL
zCuG~f<%Y2gL}^HcCjs_ELv_DxVS;!1>*`wPmwffGnncIr#-os$?>P_d*{MZ}pFgBy
zZn+roZtO+7R@M1KFOe6wk(HwDX6TT|;}luP^SP#kQZ<Q6okIbuublvT%#^IpJ+noB
ztkn0ajxAZfJu=uvdNzzavXCPCqN)P1`01N?><0~Tl6+&bJe|7@$cR$4LKfAd&V`S!
zm@J&LZAhOBf!B?%)W`51m0$FuR6xYZnnR?m&T3Yl`lLP((C~R}UbZ<?5!4xS2{F@X
zI)hI5Iwr@K4F+k)8r=DT*|6Z8vWgVC6`SKpNA4yA`u~NG%|k#hnj|$WCQI@2OU2g+
zQw?@6b0Eiw7qoP=+gP#ddx85i9t&d*_<Mn*`c57nnWKeP6&4wQnDrDs{;qC_s*TJ-
zg3z6TJXt9IB_xQ&I@NWN??I-L%}vh>&1<T`_Z=XX4;1zGg&kyKy^v-bdVS>47J1CQ
z)|~u2G4qiCn2~HPA@i*UQ8?6;19q;%cBzfmH(td=P@j`Ns~ILO79@6FTFQbLQ%`2^
z5N2fVkdPCKyCT!@ARl~jIIaXXtXO(S$#iCLPGgzxv}eTJxQ<QjkVpzYB~=!6cmuh#
z^xx3`yc%)fG##x_4%-*FO%#R58FHzSgTo|wHzaGu;Lga8sK3&6qSB#dqrM+LN*9}o
z`i876Uk6GjtQ}mKA`DBY;d3y?F+|m`4iPCmn8Gxp-RlZ}#d{apcM9^Jt0vn!db8vi
zWrQ=PqoX4axx&F{jTG}*_-Blw)D9M$8p+}KrNEkO4R$Z*uhN}jD&qL$yTy}tHB?)K
zOd{<#7|s?}YjH>j)~(fm1Hu-M_}?aAdyrb*LauHWV!NHoqx5c*Da0te1fLYjNcwF#
zu|r`vwYUXFHg7NH6e)~%lVsp!k(6l16`M34mz(PrBNYG|%l9b`f=m}a-4`rWQ5<`-
zU9h3X#UAS-y`1mcdN|VTR7lR_!<PKq1v?qZ5S58-vpHm{i>tpVGkr0p{USoS>x+8u
z7ttR0w{nip>tDnuzj%E7yRZ1o$B|<QtmND+pRsO5rln0rL6u0M+Wjk6NhKBffXpO`
zqXY53mpl5-a)TV#5=qn2(0;y-dM{;%u6DRe7-u;{Tf6gc;RpDbEN(Bxi<CJcCI?AB
z3BeoXb30P7uo4H&o%UjcdfB21tDYWr(N?G#_UKR5)bKVYK?%=Psa96Qwk*>BeZaP}
zCu;(<#wT4r*JMlg7(!dYPu%nqxMex7j%T}@|7IXmU1eNt5%Q?B^Pz#nOE{59-&N!@
zQe#7-k9pH<#06fHTMS~L0V6Om79ANWs@EntRO^$Jk}R1W2<g4lp;%X8;f12Ta|4Q#
zl9I~tH+j09qwe1q_3$-p3Ve`YQ(Ii?N8&q>a2OPsUG=Sa_5z~?Jl=~}-`=xxUnZ-e
z&vWkRnF@W#A>Uc-b2-wc$9-!nEBo88=d!bgl+A94R^H(qO*(DRGZ=HSOZjAj<Xh1H
z6ih?oDo1kmEHt;en`%<3+4M*;DJ$YYw$7R?4Tiho3d_6aRQ9bI{ITT8*ClH#kgUH-
zd6Rg~D0@Z29?M6^64vsK_1rW|5`EwaB%ZG%L|*<->AY)4Ac2Df<pA48Ekc7m?~pI#
z=^k}eT0sZS=HV%O&TYqPONrz?8Cxd4pxi8}HP%%?SJ(8)O-=X)C!ABtijF!Y@iGN)
zY2p#R3%c4FPbKo2$9@oBK*p{875zEGNZ0I4QoqNu*Q$8LH2xS}mQ5~x?2nBK$KviK
z_Z<-;2BVUzMiiSh*WOMi%f;DebL{&hMJLCtakl0gF@<Q;(OGE)T0dP9^bF^^r7q-K
zyVf*Tef!H2Hv7;(W!BlcI@2o+zgkv3{?U9qDI;pTOOI&PctuT;0F$?AK@A$Fp;2L<
zjSC@7vZ7(G(tXpw29BsLSIPeWf(`MXu&4g@6<o{y6GPPhz{mOX-i-MXVJQAu$Y=##
zlp)PvR}`RA0m;Q?Sk-JK%T981K3yqu`pNsNpW$AcPd~<4#Shalj?LZMw{l-abIt*7
zzU+Nm8QAE7XR~=`PfkK+ss+}e`DAH{iiaH1cFxTs&DS|AbRZL6pP5C&tMDRIIoB1P
z(mG#%WJgVH?TsYP*?4>tj~GX17F80*78q%2A;{;YWo5U>3K(8@MPy?_Mxq?AVAvSh
zJ?kf$7vz7*8;7kXD~!^{5#NcS)Z*rWkf{q`6@4UWQL^<F(Bfe8CHC2`CGLWqat9Ey
zB5o}YjrLLq_#*kk1m^1?St-{6Dc75fR1E2|*=(`nqa-p5B{7Z{7_6kpR|@9y@YT^K
zsYh`sDPvG}DM40wYRY*u3r$~tT~gbR3_*d3gdqXMF5#6?8d0eo4+2;WT;$kAqa1fW
z-;|6VOC}2-ZpxW3&Mz9gR9mWK<)Yg*S$USGMKJ>&!l*Xzl%K0RscPkTh}DdYfAirV
z>BG;e;@Mx9;Q8)}7d_tF-Tk&P4h#nd69A?{^TO`{cn>r38eiyyPkrG6yt*-8<6HXG
zEw*lc0e?HKdi3Z~@-buN<tPlr&GL-Zj9Z;|<Hv#HlD}5KGYlCI&(?@cc&VI2qi6A0
z6-wy=vh;oV&{^ehR7QtL=Ixq0NKrPxUgZ^pSN8-x<OwDlmeSZEAD`?IwQv}PDnS6w
z?$Du!61oOFaOB~sjO~e5Pp+Ud@==3~EMJp7DaHv}%fqdwZiw9(11Vdj+MMW>N5jpo
zS|RZ=wQ~H(?GO_snytek8Dxo-wwE7j*mal3{&`mPPUpZ<zEgTzkUt2w&M~iCoNkq4
zB7s_L)<pGsYkw3k-SK<JlS7_lI6B7PqtgRpCw?Wd4Oji!JSA~Gv$J)ywGG@-kv-KE
z&)3rCJE>O!Ypx;}ODospt2z4Hk?PGJv;1t01cT*n?O&9AXK1#Yw1L9KUX-lZNuy-j
z1+v>oU{qPNicvK*ElZsWla@>w{Ta!NUGDERHFPcgzzIBUfB*b%Zj~>oQjUgv?UL$s
zLgFqx?qbItg*_jOKJe8g#^o}-@Ex{F(Vo8bbImT?_e?G9vbtO9s_!(~v%uE6sYl}b
zzBTT)j}A-Lu5<sSV6OMrPvG;x2P=8A8eY$rG`$rY^?FyAacJutt_9)`X1ALq`R^4;
zWhhQ`sEc9bGSH#b@3KN{m{HT|s`CQv&n+h3pEJK1hTIAYUkk=GRa9~og$POTuZeTl
ziqwc&c*M$ewz*XxkLH@bVc&<|wWnW8Jeah!3Uz)nW#ic7Dw+MHR?{gXs!C?ylJJqJ
za^V*R%29RZ=Nt0PQes}<Lc+a=A)B0QDYz}1$!ql1y)6B%cjkUB?w<@KFUDXqz-Ma!
zV!&Hy50ZUWGv9Npu$v5!b3S=>X#*Bzxt|!UaPhH&vt=thxA{NCQ5fk`^({-ZI5wTg
zKysTB8D&4O>8!!lPMx`iUjxe*IQK5qO6hwkDL+04MvhZ}Ii!m6@*`MQ#z6LFXTSBA
zXkxid7DykCD)-Ntw0WfMt32|95!|UX7PO~GAh{T!nshpkiTh(FkD&sS^`L)62)Rrx
z5<c4agnM5>{_T#pLu}<=!IBIQAB2&$aNXlXkMae@$ZY0*GER~acK_S!N4jZ}dwm|o
z)P46QlL3xKnat*vqYKxVBCWwSjSVinN!J7kd*eKok%VsBlZAYx^H!*%?9T6ZnMj6|
z6{W(Lor85Vp03Hef;?;=VTdwX`K}d#KxjW&a*6wkj?TWN`hEb;;5RW}y$uyYZRfE9
z4t602h2WiP+d{A!7<s5D4vk;pMBwbZqAQfFRw@Wm#q{CD{1k^Z-f%Sxg@HP=AN{+9
zV}TqO=X0==D@#63apa<?*}gd?<z^C8V4p+rXb4KwXj!;IlCE7GBrKhM3!lJ<ey&_5
zAW(AEX0kAIlbF1V!^LzvV6gUL{W66qvUx{FN^<IsX)oGT38TUOc#Eo(Fogz*6VS^V
zCE%x{x3>sjbzq%sZS>)#bO~J9x8As>B=&rQRJDlW$n(W4#?*k~)J>cQmbq;%qXqg!
zP`gbYp=Q1Hn_VkfFzfdkU}*gD=a+<6Hefi5yim(CIiv^N4+3`pBDHpglTDJ$NRX8=
zDo(QdN_~HokBmp5j6I+H7Clh$@dN*PDRZAwNF6tpI`vgMm4Sp??bR#Bsd5f3axIS%
ziXLv~m`8HS#)?|c3_>ffn6bO~|0uKm2j(#UVafTgXYt=9J$`er?<-qL^q)6nc`wv$
zNjb0v7JD7-De5!%0dg#y&1GfW4IS{&Epyo<xtqY<2TA(1+FHC#VUOwj&q_*>Qtp8m
z|ByjUQc`l)#!wXW$FrhMVo_X5;doD!%6Jl+6K(2NnabdiI<2!-?NLRV+mAm;i_B$L
zA9LZ8*b41*!vyE}cynigD4t*>0@E1*fP;O3nlBB~!ozL5Havo%W6wgF5OYgQfi10C
ze9akWA4{t))X=IO{9$XAT>61A%g4jf9v<0MeR<i^s>TN0W*0@nMOimQ4S!ynsH)l_
zoORpZ#LR3DuOX`e<vUMFh<pEbvB(Kci(8_AB@c?WcK%Ue5Tg}o_(}POw%I2a2<c=;
zIiL4rdEZ$fK3&G&TD678{*gHAdA+_Krm@qHe_fW|pj=fXvzgoCwM30mS1WJy&|C#W
zE?$2w$16|{Ngt8)*NAyN(x@Hj4q+U_oj^;XC0~?@9s{Z4;$(M+A4_@Lqo-+U2^U7M
z`^Q-CNb*;{<6>)LV+5%?LTB+16XF_@AHiw!EHk@2{O*YeOqu|IZ13E&Ch$+nrf(zZ
z(M3L&Nu_dhe`8loXL&SpEt;(-G{HmmN%2w41Pk%$&Vt+9@XX^+sq(h)x1(zo7T)yA
zIsW8M%Z8{uP?RjZIQd8;Txj8k-Y4khZPL$tYP+$!BX3?{t^QIR%6pIEih3;FM$%!w
z{_IZe;}a)YZ>BZ|0P4h%?B3O@wkGgK8koF~dMcrQpFJ|C>v*5Gd8IAGZ-2<8tESM(
z=rH?f>X<cJHLp@;m6%+Z;$-<s|2$gtuh8+|C3O6&zW*oS*gwMR=eS9N0A4@_zhsn7
zM&hSH7BldWUaP`?_GkZqfG%AQw@K;c-;}IQVKg}P-KF{1)wRPZBwp(&*T0(@GZ)^^
z*Wc~r<Rma{Kw!cz^8BOI|5j0xneXY$(bfw+=K2K?=D1CbD_=cF(~JTR9ovNatM-O8
z*scR3z4>yH>?Ufm$;il%HDc}Qv=%5ZsiB<!KJXoIe3R?LI9xyRuV<ZSp*#sV{q!g1
zIrK0W+h0Io=1^N(@53NVZIwhxO71Qy3tcSA=37iA$jo@OYZi<JN@aAwyc#r4*FQTs
zUuI$mLkD>9GFkiJBTGFr1!L%!sI$me{;$sn4~iTY2b*CRYsJpi=kPqk;6DtmQQ#Zy
zcP0~u{Ee|FFwiGyfkm_9@8zeplTy~nze+jC2ez9!S^&b6Fr_3+nhev-vT6bX_?l#c
zAn`scDeJJjs%m7#d3Pg}eBlW=%Cxn+2)#~BL@7~Jl+A68!>rXHCM82YgDPQM<?M0G
zBgPbADap?0cx7PNIF@bit|pn;M?(VoetY;=T#i(bx_6>=4yID}pyo5Lu&azi;S4o|
zi<1_&q{%(yftqC$RTQP`<twYJ{XWiawZ2?Dpb|jmtU*k4v}o&`%NbIchvf;OUIBL*
zRh6vd6vbLS)Is3{lV`a*B?Hm^hvF8G6RgtR@n^r6x>dOD4*;z@)%JltdYj7JlAH$^
zfM30|rgP+DUclmwnL%16^@EEKcBH5)B<AFGbP7xeYS)V!P0gBc_)wpxmsSyZ_rx91
zq=N%-n$9l+4GTN{V-l`B$QV{Vl$D(2T)7i%wGw?L_vPc~GcPD*^^C_iM^u*McT6l}
zCcYWVe_a_`s`c_&s8{}#-)GlMjxl44s>Rfz4()o$t|?`;=HD3X+j@_K4e&JF^3L^k
zbhMSL7w~p?F2d$LrB@>E(ztx!64P=iZ>y$5;T8FBKDC{QReQ?2Y9eIx8;Rf*hc`q@
z=HGF8<u+^J(r~YfPH>NwR`~VghJbZ~TkbY23iRFwAmY;16E!0>#k<711|u^sd?@(I
zW9{uaTfvec#hR9drl)x)^e=Rm%9twkICYn98@QBQ(YnNM1=p7SVOltrSG?La(Y#JE
z&sbr=k5D$Wa@yuP7om+f01QitNoGWgq)$8rHgpaJ%EGZKz+Pl4Qt`lq>-gcSn$7o<
zAEc$p3JVv}Oj5RF2sHnL<)oSYAlEG(4Fm;lZS}~~k!a^!IrLMl;ZVMKOcQK?U=&Th
z`+s_wG+I24r9LK-@|93ee1Qm@sP-gj^`vFX-4Z|B_-Cg6$4yX3sH?j_b(CR{=P~J)
zt`+US!tF6qC3oM^-0al4&hq<HzOv%UfXFZvB2+yRM!G?rI!k0PWAT1+ex3^Tlx=Mm
zhEU$gs2AdLlW{-m{rH8X>USUkrvB)vJPtsP!307UvLtHSj>`Mny9pop8u2G8mpEf+
z3r_^n9WX3MyHxoRhp2H;c`Y`7NOlm%j|FYw)6be{*d0zvJ`8EJR{tSLOlFX)6;L_A
zUUnpcMMgY%K=?xDZ%*HW?gd$kCm<k|ryk@4mh5+HuVhI9_~dwFqo_+jL5P;x@f$hh
zpc4o_hs{F{pa1U1d3UA6z?MK2*pN#>_t*I=TG7(XMN8M3e8<2Opct32_pgZPf`LaL
zn6Yd$4zkh6*vqM}O-y2@rH1||<tChJU@b5-KRJhU=mJK<I9hBpDr+o?kq6d<HI_tW
z>T27$A)lMqQExdhDXB$p>Z4$n?jqS=FwP)@K#rF3rTHSc1XZ+Mw-r%Ul^t?+*}M0K
z!}EFLqs6Yl8)KfVW^xSR64`1|*1Oznfc|j0vJ5{_1LesftEuFoAL7JDUaZLU0-t&v
zll-7T)yORRVb<e>rAnTU5yTyRA0HwX3RrT13_q~8CW?R4Of)$_-q^s$xUJoOgBg~c
zb1Z#(w(jMK!yCrTt^jm;(5LAq@02{Deij(9v%zWbK(qPRoWxkHa})ZIc~55F?bVr9
z)cGfmcO@pur`PCFXEO3YI?-)2t2&n6rQ4TJeX`O<As_Fv?f0&o0s))J0@|KbRQ{}8
z0@|{f4$rrLBXAfW=K&}^>@FQ!>~;%EJqlL#FZoyu#D1HYxm+x4{^*Ld=@E(SmA>z2
zKXBdskJDhBoLqCQ*{V`4{^l`E76=KScMf5XL@P|eUFcjU2Bp_Ai7%iIqrII9DO%C3
z*zT{f@w^zL35w$hWcn`HKS~%Jh<yXkW-m5GPI4^uoDq?2iB|z;Pp-NCcnwgW6Ul#b
z*2(rrHp18rK>uLHvHOa=pW+H(-%iK-H~eRm2z%*<4wz7Y#HMTw9*iUu1LV4clt7W%
z4b-x5`8-0Opj}VUryFL~N{qhY+j-gHOOJi0$oTukuG`S_czd@%1lo?|w*;D_7rB_f
zv=F!-)a2OB&M~^Pf?GT64x%~#S0>6q$XTph$7=zNGg<ILYsgbk==Y8mL7#v<{5fRu
zQ}{8EzOy|A72B=xv4&RQnzbjLc8)?CDFmYoayU!1KTm-EnGZtzZ6L<-L^uJbE`1+{
z-_mNXDTuU$CF0%%Ec7ii`=o{u<J-UmDhjfz_oMWRHcHpzy}YUoP2ff4frK60+uJKV
zSzlg$8*%9rIuWD!M>AQ&>22~3m1*@vmk<t?D&y{qoyzRY>V^%~ZK(Qh#bTHpd=z8`
zCt303IfGT<o&{SrZ%N)Gx|!=Z8pduiWCVpl%KpxySu$ClTQ*zcNj2lW?lU*<lJvz4
z;VEjaz~O9*l|z9x!na-4c%5*t>@C{0Qg6@fWHmo&@+e@g3%Uig4xM{p+Fju9^n+`4
zYVz|aU1ofF!kQ|ULQICYNddW8-S?2$keAJz0AfCn(dWEb9|H|EwT$#un%Ylh)sIey
zC7W3dB=g&p9dO8zt@rlD#W@QOkv<)LIu$Mp1E81p(bflzTDJYEq~Ok%N05%9{v-^N
z9II>}iHb8gcWqvreteBV)X?ksTvbbAW)((Q!>Lb*Sw9dw+<eEtgNbw01w$HEmGNYj
z1zOA4+FcWapFTB{rxy+RHe<2`aushfZRjMC9`8;N!&XcLq5+0WYN|BHzw*Vm>kM(r
zbhuru&JU_BdYgl%)d&Bq@MiQ4V)MpW-sT0Z#-do|SgRtGXb}p^$V;l!8!zP>_?|~Q
zNkE$tcYSSz@#^AM@Ny_N1R>4Crolhr#Gu^H4+ot_$7Qqy6o*o;E~lT2Urc-yoI1;*
zzkduQ+(oh1vJ=DvD`js4rFs_5&)=GiTjv(QE8jq26G6up$2>algSzalr(H3%F)cKC
zMqz|xp$6bkxyb%ArZQAP6;K0JPh4W5!sn=RGm(r>r3}7xk^qU{X{1!chLJ2TYmW$y
z*|UpheKXE{?-3JQ-!%C6<)XbT%2c!`I!sNoHB#dSDGvf?ufBCFdSP}T`5d{~GdxTy
zug_&Tjhb+V+|Q~K5^&X*gEHu<MLAb3Pgkutnx~E?oAswRD(E*!V3d9zoWF^jg|x;Z
zt>Wx!(Hus#y=D9))jW(mSd?7VnZ&GjM}T4Q`BLUf%dcwhdYYSyCx+Em+P(d=>R~kL
zcy^`5v_R=pv&~FW27E-a_?#N?oXSPshQn#iv$OI;9Zfa73oS)A+rKes_te79c^CFK
zC9#JVGHXt-rKXVZTV0~Xi*_ox)M0}QV^pSTxv?&F0>F+2AIbV^`WkE2XV4M5wTt&l
z@t??<{?bvzraKIWR~z*XR4xw6*07ww)7Zm;2(Lku<w_<XHR&cdF%|>UIuX_qZeLHY
zW!%H7^mn`N-%~VumCkk1cL!HtL>y8xxyg~Hj`ns+SjHz^(12ab%*4C2sw^G>Dn~AL
zr@)ni|KdbLW)>(-ifZvaR^6`P4>6c}gAb1`Oj~FXgk9>GY=kaFDmsE=E<^Un+C1zR
z25@U99sNVtSJ(C!S)KkkWvRaE4Ay%npfz&C0~=Q>p@!R;ztSK?Ax3`SlDk`Ujo8ey
zG9!$i$-?4txzQDofiP1HN*N^rpV2(6kFgN|A&be9?R|2;&kA#7&ZupzpUwKl!lqhP
zD(=p<vyEFG8auT&)$rvdTTK4=KJ=zqKB6TjCCJMT389Vo%AEUp+!3dMnytVMe+&_;
zy7p?Z%ZJO_x>oAy#a>g%>lT=pn-^d`_%TMar7}g`mcKFi_ZLeXE-#Dp$XDRvg)nBX
zjY6&&9(Zm~CRm9$2S(M1oMjn94NGbd^dj~J+Eg4nhJq6U34z2)Ma`$Jn+%c~Gae*!
z0gHu~tE<OG(6=}plir^{%eCSBnmewOZLURR75MHW(%~&3qpyvVon+U@>p3|(j!i-&
zJhIw#YGR-wB~t>M{b6mfg?qI79`|VQhfxX?=De(!OwOB$q-JU6-1*wzmVr|!kqY^_
zfpxC^>l~^J^oCfKdF}BD0+q7&gQBsWls)2-yd7q7-Tz(eF3%4X*U8Ej11N>qMxyUN
zsv55(KU(yQD{Z6U3wpsAWFMk)wtb^GvYqv*Zo<)A5Al4h!$*J1vh1RYoPb`r%p@`C
zxlZY6X-=B8Jb51-i=^9{eY8(^jN8F{w>f>Fr~m>inw92qyxK<D6=>41EZ%1AtiB*;
zA=71PZYH6IcRfHyG_yY`);W4@m*M&9YLBj<H~9M2IcsvNw&JMzbat-z{TG~yfM5_>
z%8TqTu)ltYBm_LmYK=b0j6CWX88%5^_Pw^@6h^YE(e+75eTx@%li`4J2~X1hfb~sx
z<&=cMk7siPq}so^iE*v104!`LKNnBQ(UGs;Z>xMR-NPrXX4u#w%qk#>UmK6qiq%Yp
zia4*vi!Siy@AmXWgG+p>fAbWFsi2M+F4=WIuG=DKu*k%?%V6M=w*mb&TC{G<i!MIs
zr4D~u@6)Khsc*)wy0F!AS?)`-dLTjMjd9#oXhjquow3F_VNv<B2|MXMs~L-}Xp8pC
z<DWj>kSsqM#T+eC&~uMoahqG4)82dQGTtL`%ve}LLZW5!WaDP^!#=4`CF)lG9$LUH
zuFu6aTaWqk_QRsvVsaFmKd&CRRI@c%&rt8U9@iHCd3PhzRPDT75O%yVdggE=<h12v
zpLWBT28%MbTIXv`g;_n|;=W8VC$el7Y?b%1UWX_udLkv$2x%xUPkQyU?=PRuN*hE9
z%f6`E0Gekrjw&Wg2NMj(kWL3}<ZVX+Py`NeF!;~gNUS=e;GQyP$B7tkN-|R6)^0(*
z_2D304XQp7W`D0;mQz$i35e<<n21tkA^DWAP3nd8M3&VbsU6*ydqh#6@nhXGS;Xpq
zA?A@__=RK!n4q^y4f?4;{i)lKLz-}|yku}@?8&3JGN1Qblk@%Moow~Bi)8!KbsSo5
za~1=@=FBz=5XbQH3>y}PC?5<v*dbeMit}?#rgQ!o9Z%=K|30ljmDIW7HiOV#Fh<Ug
z4(B3i!+>H}%1w}lOcg=wzbCy(pl`jSW!z%t_MO!j{XPdF_90ctZ!q03-h5wh!X!?H
zH%MV651v|WK@~5L;8@AEc={PEi_K1FO$<d(cH82=0`da=Q824JzMvn}QHQA7G&snx
z%MvFVJO$4@n}q_~c`W-Y_d?F;<Spt`6QAK0?R`Rz>zT*jlnx!G>KGJl_xASos@4Jh
z0sl&3L(T-Lw{~J~-_v<8R*}+*&0UPx>`O^CUaltDoS@c_!0CS6L#{uUAAjxs(ArJ+
zfBA>YMoc71HTglmMVLwjDLVmVc<PyUba%hT<Z=MfYW-yGPLu5@!X=wWKj~2)a*CpL
zpey^w_>OU&uf3sLShB@t19L;HgvV<(968#?f%WflRZfq={U6Gef10NHA6Gp8?_be4
aHT#%W@}Ua(lE+k4F?Xr`9JAy2rT+y+Rgh!=

literal 42806
zcmeFZ1yGcI`!>AjEf(l)(qIq@NQX2QxU_&EjndtniY*{6-6$mzE3q^zigb5_O1H$)
zu-|#%?eo4f|M_O#=bd@}^Pg|N9qt=k*z5Ym8OM2?$M1Tjq##XxjQSV~g(64ay{(Kw
z9ZEo<4ptl?g?B2S4u6Diq>p5!Z^L(ZZQd&Jfp14`?`k-pP;@Vl|481BFBzdw7f|Ti
zH&k6?=7!utw4GuF_gtI^VO}KfYEP4X$avy+@A}DOm!6P4xx(ZBbNR}Nz}c7APri<E
zGoBzD4dmLBy#3rLr1BBp0aDM~-M>DweKn;gIY=31TJe-wi)BdXK3;-nD5+!UV(jX?
zjFT?b;kx5YcNw8bwrh9T#cS3>7N?ncet&?J59J9Q`#<?+qfz9@Pm&k^YTbY5?9Kng
z8y|{>4_V5Z<21uK^>i0`P`;=5%-WOq_{oVPyK!-G8Jf6HzOPZf?vXr3GG(%;-kBo_
z()VzhO&BKG868p-*OTf1n(*%K?uRWsLqnN5D3pOeidz4|E!+JuD;*)>+yCL&-;xKB
zAO16Myqs{SKw0W^XJ`a_ES3qn3^}QvXMYfsEE{h8^V_RFmk}?AUtbPSey%*x@bu`J
z86D<BTdS!OvC{Nzj1oIPPV#zft=@=tsHQR*`*N6JaLNHi8J%~IdO&H?cG3rxaOHq$
zLQ9k2NDS6%-eMYF>l-;n4fd0<E)&fni;aTiO97r^ml^7|M~HhN4dcT1W!|xd%CLsk
zOT~8#4ejQ%km%2~shN7-imi+#lK6f&lJJ<Z?hb`cNIJG$7;WEqPkKBlSfO4)WIiN6
zKflu)m!Vz6qbR;<m{q<tqwU;h6e;9jd_rXIv#>fj%KyC8ArwmB1&X@1@}$I|%MG_?
zp~<m|gD2+%%T!s7mdEOZzWW}uuOK-*wp7E=QXk4TdyiG?l|zeI!7vkw>vi6_>cDG4
zFGPq3QPGL2>0Raojz?Pe(o~l>M&I_7kWHnkrH^|pdgz6*YhY9qgqRq1z8@C!&>*h(
z?6rt)&*c^^6wl_^kJoEEH1QX$4|}W(I<$<>>Ji;fi2kZjWewfg>cKbfY_6<)_d97k
z-JXot4f3nfNwLK`dXKqmbc0^@qdQrp%k}U{F^w{Jr{Q1E1;=hNY$-X9c&#(my*|gr
zW6~Tm=sugNQS4~8)@KqQV_$z2*~J3aA!Lu)u%$f69_xB8Rm~Mm#tChX1+P>KmfIyZ
zxGvYRILzaECLSNAuWe73&FxSS8Ata0C`(KbI+&SUSP@=XB@4xaww2_YqYT6d9hV_~
zumr<EiM@?M#}0X+^+5-RZVi+1UzH~p1xF?<ClNb|-&;-H_SP)<(UQ_4zCB0l`Rfas
zG?1joxG9PjW@Tn!(Lm_YlNeLX@*$+_jUU(BxEUxs^D)M*n(A^+K*F%|fK@?We*OuM
z^5*7d(cRUKL#lsWmeqQ=F}wEj4d+_fS`@#<a&b=?2eRO~J-Qy`LOz*l4Q1=Y(X&{*
zIDU8DMkT!~2kt%AYw)%ydU!PjoV3)(Gg-L~S?=8UU3UET&|-T>M=%wy@mPZ2iTXBa
zhS*46lM@jpl@1$WF~nfggB7H@D^We2C4c#52GX~F4$vxfwL`X=QRv6hGx??(Wd?_b
zJy)897E4!1<zz97o|7VxA}-c=GmGwwx)$%X+?_cSiH5Y)xTs)7aks<<JfU05Vc2al
zSu=A@zGO5|#J+~kWvpam*E&TZHtM9$Mx{osvHZyDVFpjGlj0lt<y&3Y2^d@doKv)f
zk2lzEjQ1#m_|C6Nw~Ze!RtkK!3*3m?BNF<<nweq8IZL@5CK|!t;AW95@t!>D+IDxE
zC5Su7uJ5L}I6F@)?ky~C9a4QOw)OzAu0hw)fJiY9XK+CLe5-{+!OGSw?g!=DSs%Tk
zACy7!^YcPuLAQ8(_I7sG3h+%NhiSR=`_RjY47*oCWtd>>gT6*K%>oA!T>FnzY86CV
z7hfIOTPxU>FWFuwaabR6nLHD}aa%!nI*DXuZFO~wVebdSG8oFb#|~m~2TzIyiLDRv
zLTu3O9~js!8#YUg4MVQ5J25ThqU%NID%#tcJ^Zx5FJQE^Xp(rF28D8UJ7C&dEw<Kc
zfbJ%Ir%4m(j&~V$6WW?ebeKs?HSW(dyBaFv)nVKi@y=%})u(=Mdolj1N=i~%+SPP*
zZ1b&?Vj;OL;vy7!o^~h1R$J#vSDJ5e5Vc0O)P}c**C)n;6`Q}kI@8hD7r6+YjX3bK
zB5_r5dSRjY;tN`gqW5xeq=1!XadGi7_``MNI^{d#oRcgPn{^3gF9oW4@Oy;PmDt6`
z7Z5GwVuksKhK7oE*9KNXv7SuCB?jWV(YF%fXIK>G1X~7+9C*Qd=kf=vH}#0KK1SfM
zW@ct}GhOKp-~!_@4$XDQniM%q8V?rQd96T9)obWbl!!(AkhsiA#OOHpG1V2v)$47w
zhm&f5%(QXHU(xlL4;`>BxyC@;s9Bjxd^=GivA6Vj!Irq-f)`ntY-z#u=!#5LO@6wc
zZogQzZoIRxbdckcpbHI&lBm_QADgh*vBV{bJ!x^`X3P4u?JzCtIwWvwyZ(44^sC|^
zFW5K9!03+`49%<49S#t5)(Htal?;19K07r&jfro?qmVT=iT83I5ygWMFAt3D36#v|
zYwc~u6NN+;OC6%3q7dh+dP6Z;O=B}xpz|Up`S%9*7B*SjCo!l-tk}@dhjk5Nq_|0p
zom7fqy!iL8li$uLHfjwohsni@i;de0B`aS&!z@>e><yA}&=@54(CF+T?u_3q!8atK
zgOyoBdAxTvJSTYL(JCq`hzlcLpOM=<<FN}_B*t^O&TX7cFLJygd{WV8tHT&Oa7vo?
zU5nR(gBL|ZW@e_)%*Vv#{DQJ;Xwuc2Gjnr|F6Aq+a&e+UBfASOFxTxQ91dqw29DM1
zx!@4r0P)FwrActTslai%ebBCk?rM0$X0uCq@R0MsH5fH~fs5E6-Wkwc#5CZh!l8C}
zrN5_K0B(j@%QoT4tW%5FIwN{`C2oDS<m1So)n64;t!k8U_>DLCTKwKDeobqQyM{Ix
z%s~uI8dDj5O)HGXy6_@;d1%pF5K_C#h>#DAs20hd_C+xe#@S$`mLr~T#kWi`V-E4#
z+Q!W>eFd4CnwmTiIy`@#iKqOPyiskruqn|7pin>oMLtjnA(*jltS<P4XY;`DT0RMp
zd~KyomtpVM3&Gh-#$Z1RISZ31G%JEWD}o2<*}@z8e2BZjj0_tUhe^G5!QuGO%R4JA
zCrk2m{m8T5F}|R+zl&Kd;gZAX5x08M)Y9EXwui%E8*WU_XU;B^EG`J@<zz{>>6bM@
zIuCE6PqbGlSg{Rl7^n5wSwdrwg{xS#$SPt+FN39)jf_T@1fVGCAO`J+M8CB-aR>*&
z88pQf^Zhulw-OuQ{m__#azdtC6`L-%emSJJaabc4%-FEU;=D&`LHP0+MbYd&T;N$N
z6iVNK><h_2;cz^U^_&8MCXgW5X;9|eZ<ZQRK7q`7Kd5v1Y&Nj#mR<+v-c6ApbgIzA
z`fSe^Fsv@6siZQaong;!q^|2;$NIDhYTqhzwmF$d?y)PnTzeUfdBa(L9SH>4ZAP4$
zc^?-Shu_q_uf8XTL3~W(v;LQ$jsiy!n?Qp=A!gW?I{qH*;K~ys8H-B@M*H#gStPeX
zweP5bL%}Ij;w`O*t^%~WiR!YlvIry)UHW!LBi~X334mkC4tv$rv2hUMy;l<%2;?s?
z8OM#mss?wq@kEb>^6dpA9rsya%W}ZxY}S5V)Vc{Vmhv@<I^V9$MS5|UYEs`C9Jd@#
z{PjWtaNB0BRCr%|JI`1iai@jYI3BK7-nJ>|{3VKP_e|UHo6Pqd#m}P_Au_t2=g_|X
zeQ7qU#9DH3^ascGGYZ|im>V`{3*Qssb01Z`X6&0%H1Xj4aG3Y>fSW^Oj1X@}s$$Ec
z_j*a`udm0E7>fxHe7|0{=yh<S?~n28YCVKtb*mc(!<~G^5;wK}jIcc35X`8OB1dIk
zK1_48eB<YvUHX!(nRJJxDvHUJXzQ8TbHn}pQLw|@EOD-nM%-NaOaWfsIwe^tkmVv;
zgQQAG4Z~A+RCrbo4QxFxcJ-KuG_l_t4^PG6_=y{Di4kx+&R}MF8HgS-$q-ItMjq5B
zrmbfY?o5#f5h17*>DeU6$J%s#x_?XDWcN)gq02!eTqd~`l1RfL3hkiHmB~o}jf#L$
z?yKvBjwQ#pW!d~|1FfEclU>A1>cYlhR%xsseYSPGRaVv_NS0PG;=LW?HW9hGGbs_D
z8t2Y>{5*SYsoRSEc&PeBltotEI-a;&I&&Y}pHy5BB7j11oi%`oSwm7?*p8e5n58#m
zK?t<iNmKM<wQ=u==5d<oET@@Zq{07UZLgxxi-AmGRpH|oP$sHf=Hkw<Q24B5vD^dm
zSdd?P1Tpg)4A^yN?^&&pC`K=em^bII)dQf<A?|IT>@NY#@Q)2zJ$qkmxBz&6_Rf%q
zx5IL~5K$dMe-L)0L`QdbM*XC487yY5aZ^1Y?Rdlme2D8l@iNI6wyeTO9cs2ukxlX2
z-xO8W@kZVjIgGYr+Z`G@6<1lp-e6vl+b;&a#z@}O&plb;eYqwqXzSwX6!1aU;7O06
zS>15P&9=ARoh~b>glpiKM1mfXf2vfgIM&1C5xFzPwmdf!E~OLv*gB}jmgjO?CMG3_
zZkR7NM?x+41P<ssnzE6#FokRLOxd0)7_^tg7~*%=WIa4QMn<tdyR*R=A}80@f^<h9
zX>N6I17IIcqIMrRr6{qx%G^`-Px7LSfl>poO|Q%3GLlFTc${n6_Q6|l2SE@Y?!4J@
z&$A3HTkB^-+y8h*fq1hQg-Js=XUlr|dYLvr9<9&kwNhW5VVN*s*nWT+1F&Uk4I|0W
zEi1NhS65d*e@!z4Fn!L*p<OoJrPs9fwHIO4>r5oJ`;dTy)4bMY&W|8G@s-FHvdt)1
zfpq}EjCI6K38G2v3ud=PkCAA@A)Q4m41<wVN8iSDe;1{-9(L^Rt>atpy94;-#Kg-0
zD_W41Kwv1dMo)={7viDsr0F9WH^*2cBEg$3!M)&)un3Ogn{|pQ%4uWdHm<jv0pyl%
zW)=Q?JqY;NZEtgOySWGcR5pyg4nS=1ShBB+ivPFYS%#E{lrM;J6QFW5Vln#_#V(=8
zW|bu$3H9Y0Rh%cb`5`>vX>BV=5af#>y%Q1M5R%6MzR|4N7dRtet)s2&9TK27!+kcx
zFUGGo*?8xU;PI=;oa3D;icO0?#O+ez?&6}LRk)6G9fBbmV?|sl9z??uA*ge5CLP;+
z()*Vm6crM8i?kImF<xtZ(Ss|W*4-p_rxk-4rRkhh@k<<nc|`+9eA^N;Kbwg!y;2<e
zdYrQ{vtU?Qzh7E>`CWOCmlyHZNn(&moEtMzWh{eTI##SAd7IMK+jDC=)uE0loJ^wz
zida6wmeDW&T8Yz=2hrWTrE7GHuF@wYc76?dtq*PDiR(n;FHa63Q61qAphhqv?yk2W
z6DZF<COFBD6b6maf}A}%E;@*LOn0Q3tj+ZaO(zBCAOV;_5enri>o|hOhXIBd50|<X
zEtYRD!?Gl2W?n0q%aKLOPFnY=_g;c-GyDLSw7oaSVMo0&ZYvW;OFygnoO*N|zMYaD
z!xFc!+ung9Zp&jN*aCnq1w+mao0IYJNTG>%U6;#fqGo1(-K?nfU?FnJNT^*ftAr?;
zX#~QwsrB+Ly4Hv+KNl>$sIKc~w16k>fprTXrgzmB-}rLU7_6PfF%D>w7@xh(BACE(
zNBkZiezVC&Ia4hc%IHa?r~~vlOmSp=3yF(R+>0W(7D4xuaUL9_)d3B09t)9)fx@gd
zUb9*+XzLBRF5B%X=8>R$AIso=<X`Evgc9bh#GY$e1FHHZg7n;`-oIG(W7tU;QM7;D
zhJ&z}jKewgt~fb6pRn*$)1O^?eA4p*f}kdvq6IGr@{m#obIPI+^OZd44j_1?_14Mc
zq9P$)<HnCJLI{E52ODacEG#T+Kb;(I46EoRcyMNBrha#QB>t_>&L|r5)@#n-pf~0?
z{PAZT7b#zb+9xOuhmM$X9j0?sQn>!(>Aft3u+#52nn04Tj5r{~C=7!0puW=E+o+L1
zSetzs12BgXY&+CH1dcPvXYN|xy#9Ld>EEbodcli-q1=m(UaXL;_C@GERKni}Op))X
zV;BGZH`=rp59Bie^oH?ZU8n{Scxl#=!i0vhD93YiSy=sBzW&zgw3)fN3}if@7G`x$
z4EO@>Ld*@_4vq?RnXr1E72x7%emw_=T<0%WEUc`W0A~g>#>U2K;LPvGvOUUR3zg{u
z0D@r@6BC=Bn)>K)$MQH*EKf{0g>T7*bI50^r90d~S<bHh`?L7JnE1c(ktPC%eo~h?
z4*criW)-LRyBc~A_H?z(dLXBQkRnlNBEo>jpxQs6c?8x2O1ud`qfJo82Z4u=*Is_x
z`0xc?n0=9`j0Fj@QLP)*swlvlv7DYij%yU!KE&6=127O>Y2@86Q<vWQh}O_LG$yP_
z0L<L{Nr8_r$MvuGJ~?zeNB_$cBtYnG)~mO7cdJbaBNs&ZpEF?fEuZ<6o@4vtt3QK;
zI8sFBfP<xi6(czb!5K~bJ^K^|5+LRZM+0{!bbyj-hT8%m7UTN!6%uCPqG3$3VPg$?
zd-eeQA`qt&f`QHEIq%;oz(_8D#A`G_kQuE233Coy9_n0lnreN>Rh4B(Iub~z$BaSh
zq~uxz(1HL1L2&ua))(R-YinyEGRerzH)quGQDAHy3q>plj{TU07&=Nak(!sp5iAV~
z=U_&Fv^5DWLQ@HT7)CbrELyHbsCT0ok#UkX3PNn#>C)T1j~N3#k~TYPe{HLCxX(xe
zUTcgK6G1Nn32<U7Mh{R68Ux4=J2FZ~N2gKZY=todSViwRJp5}5urtj&_un5bh7YsU
zNlR?C!7!1rxsAP(R!&pJFd~!#;^?Bl*+lYNsEsJmmW6TXL^1YxZ_lf6gdf&f^QYp)
zFe-{J-F|Gbzf@e#{%O&FFXVM76zwcGI6&Z-@aJuw614jI^r#RN8V-%zHNa;0ER=(z
zF>*d@^rI5A*2W~Ir-QE;)h28~J>7^b-HlZFNFFAK$>yOk!b3w`e!ejP`E(a5%Yy)6
zM~HL|{?CUEI5b?c9y;Dn?`n!_F}dv(KqJTjv=4#9&+0BX<+^C%qh04OP~^`(IEu>P
zO*t^d2qtGjI-gu>-t~!HyO0Z6U|YLkFiS?D^=RyiW)C-anLE{@iqq56Ia`O705apN
zQHd>UCV4^=lvaU7)sK9-!slB|VIuvs4k$}<Fzelwc%mqUw(Sk)-iI$dcW3olfS-Cd
zF)@K827tgG9K}-~5DIj2c)dIvO02b}p21RU-qpZ^ViChXL@{JjH_FN(WynPfShbo#
zHPAPwt87_5ybDuPPVbu0CLef0khokrNkyKloVIwNgS+R!9JUR&=W(aRx9x*Y1q`RF
zr+WE-uT@vX(S#l#PLFdGUO+G7uwI!XEd$JQ5kW4cqjb{{y^X?k!elwi_)_D&-A7i3
z>DvJ4#Xr~fHZd{5I6WjNmBj~-MHmFuL2=GIm1mBNGHM93+LFnxsvox>p*R38d}~eN
z#XCO0qkR1Q$xr~d@Uk+?M|G~V#Q_763a{pKR$9-uer}F$_)~fTB@ij<W{+{Qs=1%8
z)>U+=x|r~yA3z^kT3Q-{q!t$f=@ryCOMgA#9FXb*sHC@e8kH|>Fp*w#=goO04Z#zu
zN(Sj=)ABYln8tVs{0O>meX~V^=!uVOp4G}RL}Lsgn=t(E&afUhTAIzB^?b{1xid|r
z0}3ccjZ)X8gq2~a?$H>(lj5##EPz}`p?c5zN21(;4V24SV19aQH*X#oW4KR@P_CYm
z4r{1A<RvEb1VDFvgw92%WVG(go&A1IMRfpt77FJ@8v0R$2BwD+zx)RuLR{<Z{G=!v
z!^mP7Sz;aAeK$u4SuV+dVqkhLNDY;hmBm;WPu!V|aq8AUAn;sY?)DSweJ2vgQl+`&
z!Z<ZGRcit`xD<-QTjKjIjp@{Q@hK%b1WnijZ%r;d0s~tKu<^VMb|0-1AN_Y=Il<;;
zZ&%ki^HcxV@M9rRIPT$<0{Xkre>*!m79Ra^1&pj;%0@{vWMN?;AYX&hZFc18=iJ;5
z`6E|jqW@Mt3IDVOIv>(+J)~d#1n9VMVUV<im<`aCCP+<<cn=aE_VYpc8V=zwfo?7}
zuHDqz?(dn%Y2au8f)I>;-LNmm2ninuNlt6`?Nqdr-BDzopEIdd#1aae-6h|OizTET
z7E7SAa+mB0r*93ob<$KSn!dHukG_?Ve3-97(!iMPcf!x-_>=j$Q})5YOopa>L*nrn
zohs(EQhTXS9lP4}sD!)7U+Ir^nw!P12fM3hqr1xq^V9toe9K+NpE!0GOU>~!n+z3>
zLeRNgLpPG`=DtQR=<qG<FiPnx(#NXs5t&aTa=yiS<qsQ`W&{^_Xzh9Rv~-t{p?t%Q
z{u#^v4fyykIT%4Buo(JUgpGcamDB~J%lW0RA|oJ8Flv<ByFn6s$zG7ziRnADM*Yr+
z<g?W&NhmcXW3^WY2}N@)g54$l;W*jZ6K=L6`)xY%+P`V{t?1urB1X;XptuA=+>3)X
z%hG%Ql9x{lZ6IXrk1P6uFR9eGr?Q-K(^Y});Y&HidV(SrfubqH&`L$2EYASng#7UD
zG%t}(B&uS<)NLyKss!N$a#iy)%*OMlq@gbb*ZO!I_JBNXC$-AVZI##sGrS+0uhZRK
zas>J184|wFO&*R-DsI_1=HJ2u)6A5CkcBvz<Jq-*N^9ZUa^YM@xfZ@=;lXtd7YQNj
zZ@P(BteS8!-W$gW97u1H(&&Jxe)Kx_4Ut#EXK4?)|M2yPi-W(Su<ITfxg{YKYBsx-
zn+5zmGdjp3C>_@FG5<ZwTL6mTo&S^W=6<UZH4vqT-Sb*_u-E$X8g~9!KA#{~BpIub
z%M7OXEo^sMJuYZM*$uJ0JEkS`DSW$|o5*-rvHe$dUX&)oDp!1jdsbZW(C=DYw(;5V
zE^FvzjQ1QbnT4^HW-K$r%Ww9j&gxV*ux%?-_*%WacpVua>dI3THS*o}Cgl?tvOZbi
zX4{gRy_sxTgR91XV#e6eHa5eB3RQ7s-=h3Ue6)3&7vo2^4o)>MC_@7nCH3yVT<S=|
z{xV#7%8mTs`_RMNNJtUiN}2t2Pb5=5m%|n1)JAEtkNMM=H{!K;)_=Sra2N#7@g}l0
z$>ZF^Nj}Rj?=m3cLjBi9F_aLf&vkKn8qGtBc|9fm^7d01&2lt)nJ`QgYJd-{;&WXX
z)~sGfF%Ymo^jL*X_c3H3GmZbY(N8j`E&b5~{5!V$A8F11M=rYG@3)AGGTciv+ntA8
zX6ZvJb^_p2>?f)?sVp(7%@(|r?z+?`ugcM^cjD5~QBnC@?geXG)lq~IkN!i4K6TCL
zd||d28<i|cz)NYYXXlSlXRf8BRBw77pp^ZqHPI5PBm&37=&ttmN81!1)6=d7w8mIK
zfAlGNpkG+3=8S67FFrxRlh>cu1f;8QS3=WRYG=2nqdTnrB}X>pxV>9N@moEia)mCk
z5rAnO-K*^$V?{V8cH;<U#kiQZjb5y(z~Wu@pI%>5ENpBPfzK*ypp0e><*S#j+E^M@
z8UF6|fFpbsZj*<@k#CThS!Kd)_#Q+X%Q^`PrV4+MWtReKx!UIQf|YFl{&4vD$$M?i
z#KCZ)A40#4s)w@4+m~A!C04JN@!;O#>HMqm^74^f4{u_UQd3!=m~+Z9oik5U>o~H@
zP+U^dQS@c|GhiGTvSP9_)i0{{uC6e{S$uy+m$^pvqw$v<xkV)<7pvcWQcFL$Hqeg?
zINg*XV&jxaA&J%1QD~<m*#elK`{>S+o{B#M-fh5OX!~Y~J|DlJpvj<*k3&yaSC`Ua
z)pO-EzKTe*Se!*qN)Fsn)9NXugHE(@WlK<8oSoTI*-|H~sIJS!jbSp$7yCazeW{WA
z#d~&PAxnk7k{9OR6cxr8uw*n0s(_9TZO`yXC|}R*QKJHkXKiBrxj7uA)Qhwijwhsd
zeVW%xkeZfLN>e4JJse>FUZ|IQutP=R@?WiWwLW{Htf9}3Bv|13FKlOWm#^OKe&%?!
zY?Xd`!8*jn!=~cFPX6#9O1O=K(h8I<oWAsPo)t&T5>Umkb~-e)hjFA-Hw`}<6e^p^
zU)KIf?rc4%JZ{b((CXs#d2MiF50gSqnr}vZaZS$znjKf~gZ_okdZcGzKR)nXKr%7B
z{%fH4k4jAbdxR|iWAE}iZK3=&Rn~J#mxx}Lx5G79L$~&_y38-<585nl^_5!mM@w6}
z0b8$z<bz(;E@fF0Co3c`g{mT131u1j|Bed$NyJF`ol1j_hHEP=@(7?O?H1837He7i
zF&-sJ@>i?DeH^#-Qx*5k)cx%zum4wYKWU2c<<6LXW@NVKgHMADkhINdk}BYR6L>Jl
zS3!{R^vNt{9)#tWEPh0OoijO{hKx~Pj{C2}`&auvFecM17n0BKd#+t)itWMy98*r~
zTzAP-qsbokHh<wVxv1y%^X0XZ$knQ;N%*v4jl>$H`FuHKE_WjM1Vu1Basv5|I`;lB
z81UKe`6F*-6_Zz&6*F>&@@JdV_1bhmeubh;MC4vdz9Q!XTV}E{C49wqx?&OBdd%R@
z1^$H=pMUo~wOXMvuQ6Oi@WHOUMu*N3KjD6(8DDPbbY7m?yECtmXF2PmH7}SbyRRRU
z{E@$x6}3MUKF0rPzJx6D9k+#|NqZnx_BA|ED}<|;{yc}sHtd0eFn&SjOle;p7#Ijl
zw;&KZHoDNlZ;aw+Lo_^yN(v-c_q6xnm~XYf#DOUgk|3&qO`v2(7MBnPyGPqWKC5UV
z3b{g4(?RuJXaLkv;5Vv({wc3Plw*gEpEm?X8Mvi#4772-_Ur>3eRfI*lGPX?2m7jX
z>PbK-rN%mIBI>22vN8y^Vo*)mAw=qwC!1PEZKO$DBvi`#O}bb|<^KNu9K$+{=VpUm
z^Ves`S2At9*kCXdSFop$&5$&pRxywSae`0tId$!KjQg#1q|*$<uWXvC3?wY*Y)2}3
z&8YaTd6$ETL<K}!6M}dlhOO2Y?Zd-y%4s1WU*SeL9-v{68fy$xGBopD2v|j#-UVVT
zj@Lv1Gxqe1LT#YPLSfwsaCzDu^EfmnSV7pVVs&Y>W)izMgT*jHK{t6s6+vt$t~ID<
zi$N6zk_j}17I>h_r~+uESoCDcV-T&0pZFvQdSozzAkflMVnRMsk#ErGPqGWbrWD|C
z&^e$Bn#iu9Z-Avk#4;ub?}Mn+5PBE-I>3(spBl^v{SdGE@#Tbucy0qJ%osF7ubA%F
z)Trt(;G<j|9T_z!E{)hXToWShtZb)b0$?r}cDJxDBXq~uem%Mg4c$STVIUk>+^!nZ
zHx}BBVi<LFbkbB=Z;^JbkNEh2)Fqy*$RD8_qe~T{GfUDpdMGbKnQRu%mo{PmJPMM+
zwY0RDt&}`eR19`LCKMI9NzQ9!+*s3sEzlHru>Pg`*$6eX?n$<R#o#vQ43)X;(}>IS
zpIbiG-r31#i@#=*4*6El?&r5W{<6Hx8mzT{OOfHw-<rY9fSsy?j=AZPP2dN(0`#Hr
zTjxGtc&DddSdCW{hH-GsBr(rSQ%j52to=xN0bA%hEwwLTIqlsE^F?7{VI(!$vVJi%
zhb=n%D{e|VyB(s+pc}rjZS{FY&BMdMa@`QnfVP39xi5DrH|C9etH{%8M5+kgs!5$i
zclEt3EKwMAI*t7}3kO7~_2f85EmDvpazRcI-)v9JFDxkJWRVDm5Dre7<Ae=SWv)v<
zfwsU?I`#u=vVyd3=+}zL)iZJY0jF;i<mDxqT^{hVPy^<VmY3YV43m<Q5<tHgotUm#
z-%YbpnxxH<>Q>=x;ZG;n>unKak;zCy^dF)Hp$qlJpCGz28`2-58JB%KhOdky9GD_4
zl2XXwP^Ae_kuy5}HUFKr9$89%J7(dlo{=Hw=Th>91<d3v=+dd;U^(vf#ou|*lS1|7
z3~;Mbn=`OkLgVCXT8W-^t+iHd0GEC)hA*U~s7gD&sxk%UzQK1*+kkJ1bijtZGfAT-
z#Vo;@tl~lY1^JNh9*_1cwRD7H1+ihOVS5r9x(;SGHZ36ZSu2lg3D<Qu!@GI-`40c>
z!8NO=Eg<t?pDR*QBwzI!ua=J!Em~YeG&JB3VB;;IBZvd0D!HVjWHD6%=sPrKXIjyR
z+I|z@BYLkS{F_wydqnt#Xl=-Z%3MAMT?!53RP^|P<>67w)C{dB9Y|8Mc<P-u``o$D
z)@N;1PVRDPCW1EGvdwRY_vvP)oZ32`sZ%1rCfI9JhJVuAPgq?gyFSsKVWvp^olY;k
ztG#XMCty!pI$J=i-bc;M6YzJFAyTbvZEe`YtM#ExXy$Hg!ovr^ehX{9USz=+NnF-j
zFTYZ*qoj-b^l<AG_CfZguC?&|y5)s&rwn6PHLR|fzE8Kg3WoH$NEY0hj_&eCk!o7f
zJyP%KxjDHO((Oz@rO22`2Y*G(F2n^H&MyAcNK<WZ%YFod?(XRLyDS|hk!$X^o1Y!1
zq!s*SfX@o;S30T(YR(KRjy+9>na;Flcv8v4zOCRK`A(WkEOk%^9QJAk?e5mz0(6^>
zClo+0i?ME{MM7e1qZxXzXv`eY*PL24Teu9YW~MQ)OCVoi<l}EG^nflc1ZOBXbNTG&
z0gyhl7*Y1i^hora=6*0AVE-=0@Y~y>33J@V15;8XHqb*8>uPr=4sTWF=|VZ4PRyVQ
z-J<@e16WvD!zS8te%r<?z_yg!=-U7vxnm=F{z5=I2W7^Zlo0-G+j%Ripxth;J;U#l
z_Q~zn-`xbcsXO(fR!QIN)Kle*!;Dr|R(&9V!;lR%xDsZ%cH>4YV7_KnIz57>&`$Gf
z_JB?(3;Klk#`jZc6i77H&!B-;00xP0Xry;ZF1!mozZ?dVUit`m0@Q9uG-s@X=t|ny
z12VtglBpEIGPBzj`<*e$bReX?fQL4M#v0OoL=xC)Kz1K++=!|Uk^EuCLR1u}xE4!>
z30c7T4+5KC1bq~!WI`D?fy<7`Z5C#Obwt#ah!&_#>mo8ZU()XD2L-I208#C^5<Sug
zWMtfa$NI-fpX=X+5Xn>y=sn0?J)tim1OnoHY3--<ta>0kyKJ_Aszij>XVpZIt5rPs
zO~`kp>xMRPl&}j9+TL1#CJ7>#Mf5YeAg@A1CoLQ$b39|Eh&;{#1XV^0gGG?*JaR1i
za`vGBG_?b-|9pAFMqwX(ReZ13M#VBBJyb|45s;GYdRMHW%e&uwfY$qYC4@^r@)k68
ze$%+!xBe4y`~OHy|NmbU*}VU6@-_e2y#<Q5BHtL|PZj<y4kNRK<+)V-mLa|!QjaQY
zS6b8$NPrBVB^t)<5qbzR?kS1$=|BVrOr3ty1`U)o^6s+a<YWXiIXJBN?sg9kQ;u8)
z`r)0#gr*kF&j<^1bL!6vqiTWskjSV$1R&8WePm$@w|HVOl4K)=oo2;kUb{k?7kGH{
z(=&X1Z3Lg0a?Y@T1}?uOu#2n(D4oM|EmCG3z~&gube<BWP@_)0CJagp{}FvWKR<tU
z5hzuiD!6<4`zfv3pu4<0|72p~xhX{+fD^0A-TWjR46sGtDr#wzW^@;m0qDuX-&mp|
z;<7Kj5rnkFrAuc14Y5g@nJEI)14$@o_Eqd<bVXrEd$;_$%9CY?5*{w}BdVc9pPkqw
z`Hqwj9kr_$xLWJWPd-VIYkPO+ETzCHCCM9<8l4|1UnU;-z<%(_%LB&_zPx^kwf<7W
zOWzAe&T9Pi*B5Naoh#4UugNcOC*rH0r+BoV-gXzK_p+@MTaRgJlJ6f-RFJ5dK3TAX
z>6l)%9oi9eesNiHZ@Gq@iNMcdB<4~wq^Ha~ogM9u_tDE82*B)I{_?P3AT(@ZyVK&K
z_%~L}_JNY2liobZfK-Ed#8~!Lb(cK#^p#(ga{fx}iIEt2<6h3mRm)H=?eV(o^Uiqr
z_qWcR<^|DXit8WD?)+-Hdcl|PIBL*;(f<zn#fx7i4Jgl?F(PbU8GaWN!#*J2@(Mrb
zo1BtjToiXgnrgF>JYvXteanKob9(iSo`97=G{#1F{Sq4G_BeGmEQ<P)&xYE9qj1??
zRBo^3@(VQki5Is7bF>ROAH8NK!tPy+{;}TkKv_9~kr<H{8WHjF=>?EBHH2N$N*MKA
zD*wfJK}chdXHxv?RrH!%OC9+@z$1TVA53ttn08CTqgPCLOM&Rqr%N}q2j*GF%Z5E!
znV9aRX)H|cjM|X4V+Wen`I5&@9yNVY`Gc_NbJ4kkA;xXX%cNa?(mHpuM$f}_t0)xn
z=-tlGK=$3ZYWnZnBmCFSziFvKp?n->P3n<|g1o$6{q>t~g6zO@_czTCZ+kxZpYe9W
z?b-I^H;u-*AojwabGcGA11&?I=qC7j{p!`#1>0YTPbm%VSFb44_io$Ose4|lZPLJT
z277P(ILySvlqMI+Qw#-KXNCqZ5Q_>{{dxBSsQC@KC|`?cW3&4#bNVcy`ea*BdL7y^
z9nxgXw!kGSbN6oR7GW0WG^;j0T&7j?mLa^!SS6J8erFQ;49<E;Q>WPRUZPZhAs^4=
zn%d0+`#lF#!qXD(-D04J6A80DCVeh@J8rQOKDr{#bFEN>FrlGpR>FJlz801Xkwl}>
z?ohVyd#qW$-3FO_Cg^f3nxgn$2L`H**M}17*|4Uq2{(?Bk+J_Y{c-dtFeLEuJ<ZO~
ze?L<b*Pd-q^IGKW+1y{hY=vT*f1aouhw8<=?ZdO5KYuQJHiCGS063ySpUZTr^}V?N
z3AZXw$A2zi3CgsrF$aD91ml*t%y^$YjkL5h`|Gqh1M|f&euX&EG*DSRxb@;hXw{>u
z6CanPU4DE$#BbT#dTnzD^k-%*abmCEyiw8AjG{g90<4rnuROzRd(8~u>?fu7H@T(A
z6(fG543yH7rWm0PT$#;?IC23i{1<&CQ`3((Z{2c&`s|}gOWYm0OEQ$H9ckrW+pOH&
z_b{EGAKuE;!|Oudys2H_!UaiK4V5DMab*9*0AGPj7#k85rP=xLGEJlJKKw&ndEegN
z?l{p%g;oZ!YYt=l%GYVfPr7C9U?#;NdtGsCgfj((0@3HFsXv8;oGtL$USACFvkdFA
z?8f5vSkYUcUm<`d@FRTY*ohNrfTRd;pBZ4S-Ci%k0VOrqH&rMjLOFCahe}*}KvHU0
zFtBnKn;M}2n@6GRdgI-@cgRQmNXc_(UA9)u<fHh|nOX&5UFP=zt#>8MQZ&U&=q)WR
zZPKrRW{O(EyVSfVE3>s#$!V(f27~9X$FQ0M+3*K&6d_DA-|{NZ)L?{g_-rdYOAjA6
z8Uf4Y6hL+6Ot8T~QW9gPZkgup7C{B9=G@t{Nid`tI6Bi4ZBst|y6A%Qe1EdlKt38%
zA9gKWr^MM!PTb=WAN9F&=aQkYG44}uosDSAO6alQTprJ|bMR<FoWnS`&tUU!#U%z2
zXE|5{<kChs&8`%Anx;rzX+i73TDzDJ-~Q<Y`<|{h-SM)1q@<+uc#DgYEQ-$zLrPAa
z1jY|eEBgt`uKaljo5QZ7<b9R`0dyh)4TTD+Dgx0>xH9XZV)nXk5fPMC-@cgwbnY*4
zvB^hQc6O=~<_FZ_w2Ga_4pfdEa3UooMLrr<N~b8!U?Kw62-G;Aq#3+AGvz047gzpJ
za&*ko_1SeQ5P0?KRezyfqJZ__M-X~wBJPIOEwiWVn07RWSyErOP0)&-A1JWcUYmD^
zQxJL9L&A}A%rJtFPP5%I3JT7+ZIC(>fY&i^ju8@eoC^A+nueK;5ZYYrQ0&6$N%WA7
zlVxXTzYYlKf}P=aUo~Z7WUMvEP4tg6!MQT|p0({oyk3I1Xx*Yyqp5nYMdUqJMoutJ
z!`!|QfEN}!aPTbf`ALR_ZsYZZq5d+D0#K18fu@y}hlfXTbn7%P(%FNT%$3BpkMO&@
z80Wd(_qir5=Rd~3VDRn@ZS;ov$-#2FOI@!Blc*?0Pz|&i@gaJ><<;P2WM=+kP!mWW
z?1bqoaam-qn`~TL9KkLOm6R}9IOKw)j2$hDw$2S=0Kpae(S~T)7Q(`i7NTizYJ7H_
z!Wb=XlK-%h6bL6RnB@I|e5+isc+i!lYZX`*1%?Mhd6p*qmR<wXGW^r_dY=8b3>s5s
zs2t9r<H@6-o0T}WYcYKd(RE@xo9BRqG4Ibydt_knhCO92=#R60*&|?mit=YW(-Nnq
zOub+_n=)L_pFTD1{CE$O1Sh`?(LasWAOPOQ^cUD*fi)AW@g{;+?g~4*9LVw7yVBKl
zc+n?muO}2c&B|anbW1;8)5<p#a)y1~f}LVYX6dJ3e~?gEcwLD01Z4D?ipK{*{1gh7
z5s|9VN|hoP`5`FiZ}?DSSA55GC+KR}(OaNWA%LE*D0UIfI2jcT80Gdk?rhi*rrIiT
zKHn=I7ll>3!U==>?{6ORg3t{)BB=6*ZD>X9-5m)Kjn531m7G3vhTou?46;KV|HR(z
z_WeXDa`d!QIq&({Ml3}55--!%ToXk)QCB5M01$H_^K<~8hcjw84|ZQ5X`o&1*@uh0
z7x<OJz9bN1la*Wm`Y3tkU^E0a`!YdgW#v4VMP2o)bkR*I7jHd3ixw5S_^((CRxA&~
z?!2Vcr(JMDBn8OY26Nmen7TV8MFJ>qq$itW8?xi^AgabB6&4m+o+-xfZKXRe3|>XM
zgK*70pvh8T79i<NN9tRdaE@z!UlM$MQT*0}4@Nv!0@8<IPjhLvAygLTgXmW)fRg(r
zpx$>7)*+uz3tDG@Eq{WzQ&er2%iz6n<KW>Fj)d?&U@{i__h4`Kqb!^y;h_#VcI1fC
zP_YxvxQSY9Z(|hG-td%NE1$h)>E_Lwj&r@-Vj#oJ(ahwbB+Gfg4v{!~qB)lBs+YjV
zaG3|rZN(UrZwlvFRc!<MASqi77PfW8r#|)4y)7+Wk`G7p_LCT7dQ8<L7+w%qDUwCf
zR9G^#i*h8Bd7I;5NX-$k@v%1Lo7MNv^mV9PA3rtWNXImyEo;+{_rX6uK{w-W6VYVM
zZ!@e7wxt3YpE0>5kO<t@Yj$SEKX56;77j_YLjpT{?%epAtEFYeeu$!XyA6j+R9>8*
zb6g%nzx4uAfe!HpMl*m2^aJdgd3Tk!zS`3XJJ#}NffhGSIa!8&9gdq>WsNO8K6rR=
zjft7r9PW!rg0z$dk~I2lu1Gm|(0w@sT+X!{txf|TjeZ^ZtJ&^MOuLDziTc7<NckWs
z&gyHh!S6Z;8YqDIfQ79Wa;}gKN&o?03`Bxxe!9BWP4?bDS^#X^*RNk0(JxLiG~0<P
zf|0F)R$E3!k<7%?^oLcX1s9xD6R63j;(wRBU5{4ixwkxoTMYyIGb}MRg^iyrW3HR8
zeDPEAA0&h_@6L!6u<T8k?ZH|=5OIgo0bOMtE(IDH0|hqf$gX?uy1(@*1-&GU`;Bgq
zeU+6S017s4F}G#INVybkgJPkJ-nsry*PEQId0V=hGyl2)snsz1fqei|C8)<^=F1yL
z#o_3b(3$~GQwQA?5fMS#5H<*>==v5KVj}i{*9@}~0sDo+iz>?QeVCnkPiu&dgzE;q
zG(4O#R16G@!Q4qP*u=3C2wHIQdOIK3NbLa#r)Aj6x>NsvE>z*u=g(*0lv_6tba~G6
znmTxI9e{*AaNcp+yaQ*UUR70PBqYGfDs%DTMNAT`cFFuU9F|X|5wyOGsi_(ft&7Nx
zj`jbRJ!I|Tu>-j=YaVj^MDL3)`nI8LwQs;djY>FI3aR)%IbhyNh9|+xasc2a>wp&(
zuMJb$&1c7i0>j@8Uc38b6`Ctq^N@Wew>L^Zfhk*TfB)hqly5asUKXQ}I?x0ETH#ap
zvq%0>!+qS;0iRS-0~vw4@?Lfm6{=RwNZfBAp}vP1b5W`mSnB{Z8NvA`!1zK9YT3EC
zTJN)LgsSV>$vVOr{d7z_g*h7pwYVCNBdHyc*tJb67Ea!R6;_Ak>nv^oE$X=#ruE6r
z@KM9Kwq1CVz?i1YsIi-uLYW)g3a_>G^41SY-K@u)SQYO-NkB5rFit1R?NmkMb8;Hy
zt7VOq;M7dXob2KE6xZQIJi#gm!>X1s)i3TaAs1*BtB`tvPIxTTj<-cp+-XKNYo50!
z>%@r@Ycgczn4<IRfLEt-?fj(@-3c>HSH12vKH-RX@L;$!Eb`2kBBlr*Fh9{M7jO&O
zbrISVvDfWxVpL0<=S2zAY>fXT+#nW^H)qX%`*!=S6{~ty28T}ZT?_(U(CuJSENBpn
z?uE>MH5*n1oqNw3Y@&mu2hfd{ElhZxaHm=;yUMXKL!hhG_8}~`DS;5$IJpK#SVTs0
z8&?cgr`odS!Gy003H6y67}Z4g@T@#~E!ZQ~G6%=uG-e`ACMQk{3ch*u%FfD!<D@dJ
z^}ITq4MSemR8&TMjA@X2`|_g!WHFinv5H_2h-OT?<#*p>H8Rz3Rs(97Rd~LGp_Xj#
z58EjKGVA??V30Gd@BJ93;aLpr`BnotR@<P-EizX>$sj&x!M!1)q!i@7zHki<_zOGi
zy=@gA&{gi`(L*S4UHSm04Xu$whT=3WXKZvEG;!ud`5?0$%{~cu9XZ(6vQ)OxEF$bY
z7g6H{t7na!9X!9X%76Oz13geo4<IZNK-_E!K@5Qt_Vzgz&gqbF0U{EHTt?EM$>t9F
zZ0#B`IPlrG)|YRkg~UHhQgf`xETkI1??_s;QDhEotXqcC*&H;QNa79At=yVwOPuM=
zPRzF%S?ID$m5cn@ztEW$464;cz%w#3KH^ZPq>~&ZH3ck(X`eMdNzGTA4pXi^d=#?^
zf^qW-UlL*W)sN{4xiBPvzj+2VCy-<6S$9}gpmKs^*y0!{5*X+Ea;3o;+o9)}>Ua3$
z3^<=Pwhb(W4q&nhsA2$mA9D-CuXN)w)Uk2t6RRKZB_dl<XzY}loIKr|ZGcoE1bAnR
ztsD*nSwKybHQ8rfFx&e6mia(_=Gy!K3%VG(z31rZ<63yvIsUbTy>Vh5t8ldLBa~yG
z;9(_C{QQjgsExQN4FSuaKc4~_zzo7^mH{NIPcL7-wA|*S4seHaluT&pK-zbV@)2A&
z;8iXbDF^%X5j6XX%I?>G0De|YmI=i`-j<Z~y>#hPp4YZBQinjrvesV+x)c?tc(jS|
ztO8;dwAkQW8C05?53;}FeBd<RvE#>A`ZvlQp@uW9_NU4sLL=qosZ*z5zp_>!QsluQ
zd=5C%SEytF)#`nyw$vfJLGDzG7xyZLLgB;b&s<aiQh>hU|6slRrmd2I!b%a|B)2aE
zT1Jhb6&zP=bQ%DCl&!YQX01&1VB?Y5b5Wk9r2GhlhH2$<as(Do^P7jH_Erbdr6bkD
z;)ve+_wTcMoFG|i<9Yx(!QpY`h|~(UKk52H%ZJ279Gsuf9w4W^-a1dbEFHLd|1Lch
z8L1aMUc>$S<HI>tXHK1Z4_3;?$oMVYfD?dXW?(i8z%anVJ-#FdONH~X2>t*qy(;9t
zmYUZuUn*HzTIMs!h+dl#wEZrrQ|fvT$}WNo*>G_f%qJr~=>^NZd-pVp?33Bg%f|hr
z7IDsi0z7tp5Awd*NV!)r_}WTmJm<TA0p-)DPp{4wjF<!cKLgxRlz`PI9;5nNQ@;8~
z*;jaYl%e|TfXz8eL6Hgq`{MeeV~hZi!Hlp;tILNXDV*3?Vehx#<YXQIOn7#}E!eo=
zsz>)!RYT5m>Sh2qyK?<{@9b!l95Yhju_(kK)fC)^HMlMb5HhIL(L@jyI8C=R!OD)z
z8c;j~oHGLvOS9B9yVzwh>)1KgT0<TrL(L2p<-!@}_keQ&b)I);hx!!`0%)mYb-Uo9
zCw!K@Tz90TVCcx-gWXc|7`_C&ErzTV&|)g!+GVz3)1^+=4jw#+P%mCPOEs@wzs5iX
zefRE5_tmNQ{1)9)4V-vYNlD4LQ2>Tph<WaAug})8#H)gf8uCPTmby8VEmhMXC4Cok
z$iK#wtB>tw{Eno*UI13;Dt58}4o6t;O~N=cL}Q%o0D_A|86dXts(XzLHb!t)W->ly
zA@#cvE9|74st}uFl?w}qtqReAH~1g{74+A+h4yea89T%oG|Y=uR#vVIA|}pfSo=3Q
z6%V80{PA=Uq0fNLYN7piSf`vqj=5apr3{cF%=M{=d8{?&H$hpp(q#f?l=*!2JRt$&
zE9^F@|I~lqodAkphOE_L=1>Lc4gNq~VgAE+`1T|vC!0Zmj!;NU$vytfvUMj=K5~D4
zFZn)zidPDT|M>A^>*GZDM+#-)0j0q|9#FwD>^^%9%W>pz1@TWt_U(beA=Fm9*IHy8
z91{9@;;<xlB8XG>U&pK<ibjFH!tMph&O_J-Ifc~R!pd4f<Nton@WAW+W*Us^tXRpA
z?%>6-XaM+awVpB+@qeas<smQyP>#J3@%QAVBs)e<er<sZHFoe1k%pO(dg71YQy#oG
z_A0SCo-sJBuo4xd_y-NhTp6ueIkxdjqKZx`E=dZ1`vCQ?TW6d8AsSH|fBnIRC||`t
zw?zFny&dx4=+UFV4@E-a&V&HScK!MT00bQXN7JB`kwP}+mg5Ql)_O|;3rJ2HYv8|k
zjB_=By3nO*q44@(c=XC|xgk)BKR;Xc@qo?Vb}kv3Ujp^S6g*8u^RxbA$oI(z5eQdc
zOSv)xr8Lk5LbQSG+rat3mwL_0o%kynf2cm+)05Dn>`1ub2h13deOz=x_P6Wm>X0f|
zUcL*WdxqeMrwXtKT?TK()CPYX@P0$}4^p^tuY7ZYMm}C#2a^Yt-4JA2>urbvkPfqe
zXEm!0x(E~2uzMP5qXop+!r#8^|LeAuK<_|#j!CKuW-&pFkFYZ`-o7m5Z|ecHF_cyE
z)ZCAr!ZNWyID#BTPA9B-_#}N}J{D3)t)&2)xVSD<i*0}=?!$Sp$R=Z};nKcLBEodQ
zt)T!#Sk=AVMISa`lWQJ0eCp9|jd=X^(I3x{@dpSn4Silr5>i$lnlS*`OO%L9)_?)<
zbzN|DJ<qW2w0x}aeUK$+1R}kQCgTo>p#0{YR|>qSoIaj8a|WT<kU|h=1Bn3qJst!~
zbV$@4D762tH!Sm5m%%`6!9q4T`|&Molo@Q2u+Ltp#f^%M4Ob+M!N8-g+kFURkcgXK
zf?U`Rb-_6r8nzde7XiI}{CEZ3{`q00<5cU#t~3>CIJxWxG!+o5p8x^OgzI^?!HnK8
z87CzC2^tCCu6u5LW<=`HLkk9Tz1avwz<U2v5@cvdozI><Lztnh<pxeB^l=J~#<dLq
zaTd_>M~W0OQoq@y-rfg*AZ|hy1#(Kw&@f4kIrzZAgI(DM(n$5v`-t?|>pyJ=8Gk4p
zWij>PoQuJGS~zniv?ku$E8hwv(sN<1&7UDXpxY6Phi7#e^^JVIcNu5e_Eq-X9tS7)
z!9#cc)S*mL2<||uXK7zml>k801|?i)p`F3A=g+}88sN(uCxZ#36A7Eo2KI!o;VLKR
z&p2Ml^#};Z{plaW9r*!7<Sc8@!ZkQ1{L379!XCUNpTB&01dZ=`!toNMGw5Iz#pY~z
z1tH$tzPY6(|D?jyz7{H|U?Mzx>CXzlG9C-{1t{m7&t`G{?4RJVAp=1kP!Val^L!Lk
z;LA=spi$$83Rr{vJkS)%2o3}C*oY?*`W3(-=E!rI{8IJ4g^;>zXdvMm)_OsGa7}N?
zoel1B<@c!+XcHs?zX}9+F{2qG^Aq=m8XS`Zhg7ElgQ`}&KBx0$3;m33z75EBbUTva
zEeAlJLb18f6V83G=&I_0Ehun`-3g!6@xP~w(&MHi(=2vOW1NPQ<2|rq_LlK6F&Usb
z8zB&%KK%==3^=G}?b+t+o<giJT1L@duf+LU!(O8FTXUc~|JRj^Aus9@_eFcqX9C=!
zKrLjS#5fH{(Aohh6X4-EMKVpov?r>ntHJf|AgEU@OM6;4A6f#KB+wK}9X>$|)LRgv
zPPwNBI2FP!9H&*snRj)jt8+q-+69?mH$0GG%u#q8SW1s|Ys9Z4cei+qF9?Qw|2-qg
zS1S|IHs;U_0WK;^%p)J#7ngJU*!{j-0Pusb=}<zcySf%4Wl@hEvK22*&>>h0_~_!9
zE9xJWZou;xG#}Ty8|H(DcV%j+1A(Ge=1u@?4qMg<J{`)Yt^fyy>s;c?1F35Nv~f@&
z*C9DWjB177=b5%$0*>((P+383rmAqm=VVkLfSa5GE*ZK1fL*kpO*b6uJxfJ(6<A?l
z3(S6f{{sE5wwI?aA3LWG4Hc-4li*QkGw=k9VDPF-moFn7q$%+E*Z%(OtwqSpSxD{(
zJ@E7_1(8!G!Z<_Y5qcE&-qMSy0@nXP_L~wwL2dQO8Jb4a!j7hKZ;u{1(pvlOvW}6c
z^@O9an7B8TyrKjK=r=$I${eDA#u_<;xOU}>lk2X7P@v_^=O%DZcCrLfJd=?WiB&+l
zaTvxoRUg10jRu?{93%Kz8|TP44F?htv<Yl@7N{I$r7oYz`P0aI`$36nM9+Kk4jj0=
z2PH!uNc$}Z0DH**g0==)8%`{L^x0d9e|B_Vqy{@``v$Dm9lSPc9v(|@VZiy;b22+C
zJRBnw_E^jC-kN49sL}Hx+^?#sp<t$c3vDuh!za@qM7x9R*51m8FmoR&mIp8s^~K>b
ze!HKyt@?8AKvJB|{%2Sf3>xocY+=roxFMh%-&z5)O#qlFD}%kq3r^cp4uZI8;Agg=
zgTRP}&RP*E8KqK0(BSo01thsajf@GgIK2sG4t>5bV2{O|H-0^&6Zd?8{4pFi{FIPz
z0bBK3v<;nF!)H+>Uf(N7dYqwH6V2}{c1pMKfb?R$4FMG%4|u1C$a}hNI0uS1<RZuu
z=(4P^diX3b{`w!b9|3xAfmja*q}4U;LM4E0oscB?fm6X&|8F;uku=dQ;)PPjAX+|J
z0FB8|OP}e^j5hKCQcQaQvL(CRb!#X__@G<qv@oavkC@T3w;}?cRBv674y`|GKGPuf
z^KW2K2z3HUx6Y8q4ECZJScINOfBkkiUx}QXObO7DndujxB%>d&?EQQL;|P5icgr)>
z)HD5iaJ^$^0;AzcF>G91O0W?v0{LXnFpBqFe#MvuO;U}u7f+u~L6a*yL_Ga>&lQCV
zDuJu|`T6M#P&tM1%F4(n0|C1qPL_M6C&p~e&CMTvwcCVG;Y?cS#o&lL(8)#lcnEGl
zbTXo$o3P%S0>K}X1f4w(CaK?}MQtRqbzXW3O5s!sDO<RtdFRI;`NSFqA4jVK%f5C4
z28GlP9NqczY7w@KXuvt{^SGYQJTn!@Lzfh5fXCOss6wj%O5C?r&_=q17KXYZ&?{ER
zp*mB**%+WXFf+H}9<h@7F<c9wq@=vkA<uAnOu%4Q?bP3Y2aO**;qz+9ly73XGIHlv
zxPxG%9Gnm{W$!exyHnlabo|Jb&Vr>&<MTb*&LdbGep0_LSgaPXIZyl_XAz^D_LfRz
z5%QwS-a?{h*jvx_(Gjx7vbJkqA>~C*3mxUz>JgK_r>&^>Yc)4p$zEe)TkZ7Ue_u$9
zA8v6gw%%LLZKGKKu;(c;$=TD?Ats-|u<M`wfIa80>kc+YP``?A?y7YcIhd#)aEG`^
zE#{s#um{n(C_h)0)TB`~ED7k%^USp9c6gFO2xJN1s>e4YfbBtViPg=at1TCyRPUQ#
zv$Q#lG^pU2B2}a10A{A(xjhzfqpVj<WO7P*!w1*FsQe@AKX06Yw5oPf3bQjde2;{L
zMB@=>hN|C<JzEh9-~zr!HxKDy9y14DZE)g^eseX#6G}r}pQhwPr1cESv{H%O4Mm4H
z+YUbiV!-<7)c4scN;&aoPoI9g;{C1nc!cFj)%Mpj(zc&1#TlwZp!r}}yBhOA1@oFa
zY6s@5k(C-h#!V!O1yJ}T^v=uFm33Xac;(97l<2HzJR=XF)ZEgEow2a$(U$73IgxVq
zt~lwDBS((Z+H=luqO}zz3U;Q#q}0;yf7x47Jy^k@@O~i+Xv*<^dguTL(hB|DA`*8;
zh-Sc}VA{`g^$qENtEwu>=jFWn;P0A1x(*1ceD-5^q4O-<QqyNSjSm|S`MWm8*7^F*
zkM7_7Zxrga`g`%qZ-Ik=${xC0SD-soTYDGDgKA(C`PM@-=7LbnTW;5u{?Z39aGdrH
zfKVU>5lDRJ&YkhuUjM$gktPNs>??CAF~)apOG%kS9ZbJ|=+L2QpsY4uXI>yfqnCqU
z70RH|?-Gy1ozeT;X9<f_c`D<kca{p{oO6lw;N3OzcoGGl2x5%)kg|2L^`Y3Z2c7NM
zXpcF8XpQzviBJIRGt~jNv1?{BvcVE^9FEs%HL{`$x<#)XgZ8qLW(rknT^%!e@1F4m
z$WMaS8+*4#zwS`Ey&I%pWZ7==x}mI$iHVF0{-(O<J@P9#BqW5rr(>Gz-OhKB`&+O@
zc+S50XWLAPNA`t06ol|PW{A2Px(;S$H(1B8u6Hi&nk2dqzkV?+*#1&-ZP%NFzhO59
zbWbu{yD=VfSFe&_b_}Q;A3gd&dq?R>r8#cPlPvyMxWoX-_wZw0E;;T5b8zsRz?1|r
z&JPxKSP@ke#X=3PO*FpQGE!#|=7a-v?*W2CxEC978sIUOjhFBd9}qyJrv>kV<qCCA
zebOq(g77+P7hm}U0RYSYPkY}TRAs(xiQ4MzR`J?K6rsC4im_3mAVJ%J#{gy|t04J+
zWXZJMEd~@l<g6kfA|R5pih@XzoIwQ1K|nzAtbNe?X68+(H}6i>Ox3mg!|H|;zVG+#
zu=d((EmzsI%FXSgpzOejlP518Hq9J0A3Oewa7Sp>+S@;k9-ckcTD4#cSV(?;Q!RAV
ze|*R7ye`iowtC@!^LKHK=*-rwdU_5ftq4e27K5%DA|apSm-Ak2T)A4F`MrB4<KD>=
zCvc%G?rIrt(VbmWYLK;Z_KB0r{cU4aemivNMmH{}mY<dE)}atQm5VEdAD+FC8yy!X
z(wDKK$I@d!-B<>rQ1{NTkq3cMe)W7mIWl+Kj*n|x%W7K5pJ1J`c*M*0c+rT+3Vc*a
z+%)+g-|<Q4mmlw35P10dY$x$$W4#1Rp?E4m5hH@+Gdb23jj@khCT0tr#ldp7bC4Bk
z;_K0n%+85%oOWQApyr6}&hvhK=gysbsGAS5Q2~5>EP;y8nu*fX>se%<9at$$Dv=lP
zuA7P3KNM=LxH<RJu4p?cK2#`(I(pFH1i=Rtp0#@J2u8_62mbbJvb{~Wo+Ffd!3gm{
z#{<EQ4w5J+0URgIeh8(2%L2z{Ua{q7=0wO3PL0-+eX%zT<~AZX>7@2idjyDAD_%Js
z?Z?*fMf3i^Bs!GpXytU9cswp`39`5nfWO@s^^jp|STwVqe$V?=t#SL=4?Z8b*C{Ap
zt?<fyzj&?{mzHJM%D)X>agi;0(@`YCXZL9jL0>fqEI%ZU2N?UGMe~kvs~-)nabxHN
z;^6%H_~}e#V%ItTCx3afuDOZxT>&rUNVi<U%^7pvJlV&%H~4_G5THEw88cg5;Lb|g
zhn$_AyD($f7TW$b)jgkHrZig;jWD5`#JE7w{uT@xj4L{8;v?p9^FE?Z^Yq4Q{i>(;
zfu}woTmS=<5`2nNVe)GcK{`kZ$4qTT5e4nhlJ)mc07N+R*&O6{&g$t0g+U*HE#(Sq
z1?&awpjMz6^@&=L!<b%R4asxkf0yD2*!{TR>*sP`c0gnCrIt5KXgmNMfe=RgU{qh`
zv^ovx&=!OfqRlP~Q{boexw7f&Z*twZR<!h;VCKX#h8}<`;)9Ki^hKj`e~jv+vo<k0
zV`AVi)kJI&RBjs1UyEO^jlZC7)krblR4IlA)QcgF31fAFHS}p1%r#<$8;{KFnFBXb
zIe7oacj)2YfpD`awLXxw2F(LgsZ&<R)5PxFxpU`Vek~ih>V8A>_v^_}mjkYRku;4&
zBidgTif)<x5Y+VJ@?pYx4rt0jeK^R*K|)3G?Q107L2*O$Fq~zYBcPf```V10+FhXy
zdMOSz)g7m>w~&s9X$-2J1Z@)9uxPc&rE-VRZ!iVdgvqkavsf`_ML<v>Xa?vu0MFP{
zP^f0rr<9ks;t{9>UK;^uK0wO)1a`_~%OX|8EqZEB6EyEI(Ju$29ze+SNqXq)fBX6&
zomBQZiA(CeyZ1X$?zWwMx*Hu&F{FNi@!(Piw^=3O3E-P>h(8e?LkupO?@I*8qxMpu
zViJS%5LCX#e|~KXxsvuT)1POq4XA*i3n(p7ov05w5)pDRUEds5x(RavRQkJV_KpWK
z9N)(Pw;GXkO|H(&M_cA|f3Gw8{8W2nv2a9?)!WZGi5WL^n`{$yECwSBXb-x~6{A)7
zLT(^~fdX^G&alom&C{vySon$c5cg9g_#9*B&lm?i2KFIoKNgqh{PlAVY}>Z&DELf0
zTR_Vr6bU$Y8R{a;w(LQtd%afwcP;;uCT}hq{k~9LVYf~@o+fG<K+Q7%(DPUg3ad69
z>(!lRK5x?cG=TS}k^%I0CvOT+0f@sfn8a!VUay+JWcE~%&iA@ZfIBodBPvMwqvLx4
zJ^)XTr$$$U`|HEg0&<qLD2;a?pV~yA7l39q18FHe>9;NJXfNO30YBui`Ssc#-lzXy
zuV(R$3-DbWreWX@E?>GdnD|-Q+2|w=vVFykqwuIQvFTF`&fH@}$#y9AmgBOgi%QLW
z{`bqJZ9d;&;PjMuG^SK9mYukFcb(j0P|?7Qs|c`a2q&lnU`&5igHa+ulPS=&I~AoW
zK_ejjvV$}yxy>i-8)8qhe(?49`J?Gg5gAV6r)l8DCvDRXwaYxQDS!RlI=v%+sVJs^
zAhrz$0^5m)4+%EK=#_3DY6@UcH%t$xr^a{;vpXB!LHsh^YMf2f{*O<aMZ|!NCYd-)
zjRu-9T=d5X>fwamgL+E3w1z>0br%%SSfG>wN@M!u<x{X1aCW32%wC=F`^YlMSv{9_
ze#Qe7p_**^_(aGJV!|K|M4(sSj0Yb_F9dOW?swnmqJNe&YjsghG>SwTqqiEv6V+9@
zzkViM95Y3;c#B_FebE}RG8N<W5R6l{NJuCFTBrbR@N~$b<vsPOl|8Fc>!a{hRM35u
zV}?$+1WhC*%@5-4q+p`=j1eWQzX_wOBPjfe@uLyI--x<^3mQ(?E(Db?yX**C{f=i6
z3{F*Q4iU=2X?&v{o2;+yiVr~ptE5Z!<^6Zw$EycO+n&KP(s7zufJbYXQ(#x<V_>LL
zI87ug$oCyjG^!_79S9K}7~j&lC6KxzQf14I9XlFh=FgvR0O*2frU{1CA9fsI`U+jV
zVJNod`}SW>Jo+vU1rgYeiWGDSd}4&-fJSvpRz_=7BI=og`I4&soMJ90jByuU{{U`&
zIC2Qaz?v~n-f{$XxVY*J@iem^0-{Rs=(zI`!9yQIVGQW#w@?Q$oU^Dxqu>wXYYGyG
z$DKRxCAATnYGO2<ap}yFa`26C?l<Df6Kn`Z6b6q{*+QWFS@boifkx#9>LJR+2Kx~;
zW(i<Lb70W31Da76h+O`3PI391uQ2NgdNTFPHxm^Yp~Av}+F5ki8|3{THRrgd4plz8
zco?yek~-VGw@yOQo`qk<XHB`4&Z-qV9i^%Sj4u+1JF#4W2H?~lwjJp`Jv}wKVA;6$
z4oyagfRD5U;9tzbqc9GAbUy3qT$|oIvdCqExV1=J$Nu_Zc^p#9dI5nhkdY;=di{w@
zX4WQu8aa5ERc{#*Q?q2@x$TcMG99RIryGZ(q>R3<9C_l0Z}EQj9?%RsF)?#hcNo3M
zEWxy(eprCP&;>BEStBEDxVJt6!Ql<&eCM_kWslN29b_CJ8X#M!9!Pe<0`enN7oa!0
zV+4)o3JAhI@rKKL5n+c`odh-vJ*i-z%k&zUZ(xho8;i?7F)=kY{Jk(9B^wPOfj0QB
zAC<Q3K0DM=N;CQsm}YlP(5Mi({{%bkQqym)liG}KWBEFrq)Sa#w){RtyaROmV4o2u
z3`4YdL{W6<MBNZj2+X(Y#vq#_GnSAI)RHd!oEL-Xq#FZR*{0fuvS|^=zHg^N2Ak*t
z7Ts0HF=CCfM}Y>`TRHy6x=oX%_x*?{4F21FdJ&>DARwszqaqkE1hqSA^=qUz^o6cc
z1J^LB04&$zd)n_jiblkK8!U-0<K^v+DWdX^{TbLu3SZu%6@Lf&w{I0jlASwzcHx{c
ziPeEa?cV2r53hRfJ3}xe86lO&f4$}+S&HCr8Zj`oTM!q@V8tM+jiwk^{|n+^>q=Qa
zd)Vk!z=Js%fTzt&!1)Tle~_D6zIj$ae`q)ep9!p&Sy>z&L2klPP&h1xyOs9K$pJo_
z3HLu~2<b1=QU79uZ({=klGwNc?_A!sYkLx&tG7nGXqmODR$;~a;q&Lar6GeC_17>I
zO1%tM*5*BdFb5z1;varE!J*W7dAy1CAFw`QGXY`vW4I;YX?IG>MwD-6g0yfpBgfsL
zNT9)Sda^p910^7XrsaGiZ7as{>Woe43*}ndz97JzR8{pK8}2~?^VIJ3tt(qj%}xPv
zj{Oio;`&-K9%Cnjq_!$WoVKo|oV_{hJXF#ITJhEgL}w~`5I^5hsKoCjZ}S(J3~a-_
zFj~-kaq8{a`P-T`Hrb!)gI4Phv>uaI)I=N)z8VoY0J>=Gt(a5cC#riR09G@S%l!(s
z#8!i$M(GZ`aNix8S1(++V2*FbTO=rpXuFk3O!)*BluAG?!i;}lZ7KsvkP@|tiAhbY
zj%!yx0Nq1Bo?dn1EDBA4#djDqjz=6d3fj1nmz!!h8uc?`9y4a{htVdV!z$iKHq?V?
zsGRALPR#>oE&AYx81)Euia0`u7vIHtj1o|748lk$S}6~A_lFpv8(>iISR*q7C2}Z%
z-{2PUY36TA_P_i0B5x0W{%Vh>I~^vHFn`$!G?xbPA70;#;`xBIi6}bCw<Xr4#q_{0
zHEu+{p}9>^bd|6zlylcl2Ab1+gQ|Xd67=y#85a&Tp&FI8`*Ml6l{n7yAYK&nD+ho^
z!{rq>_v5-rnzmd+I982UnfZcFDyJ`9dWx!l)28%7Q_uwsG!A?i0Jl`|(lmYpPiQgv
z#&|T41p&JhEmPH^(*|zj3|E)mlE(xRlu8DZ+NMiV;($Q>7<z~?bZ$?B*kAeEpKNoq
zN52g<a%Lim8ulJ6Ka@$Re6X1L-lR8eQ2sAxX9GM=RF~mb*D-CN2mMU#rzIK3AL;DE
zsse>k<Y*e#B-UCWQuj1wYKZwAJrH~xV+tDMN1be*N%KxBd(aTmItg0ZY7ZCB7G-x5
zpu+_VN)tMRD}uR@)Nl)=9h`HNi+N0lo)0#c`t|)|_SqIRYnjA2>P`O_bY@9IX0a~%
z-=n@RM+N(=+tt;z5_>Z1nTw@9?QXa-{2XK^=!UzyPpLwvahlCov}*gk=k^cI{SeSA
z?pHu`ArGK*C?kn(I)?7t0>tN#hYxje41kt4Tw6YK13pQBPl?*_FdJyqI=_Mqo1~K^
zSv4X|x_v|7j1o60su@d67TClAmV6YK#9Vp`6+bcX$1<nKWh-6uk$|Zk{PL*@GgDY`
z@M%_qZVRmZ9=-zeP|#=^h~<m;q|TlgJ95z&HIxUV19B6^xPz*>eP~j*NJ=UrH`(0I
z(b?+z1<-D4U}8QUcl<<3_S=nJUFMQQFztAZkAU`{3OR$x<SU)^sfi3d(98kFx=+ES
zLR+O`PDXS5Xe*EzS`spc9&<Q?CP6f_XU|S6m!A3F$F$IlM}SV<g+Vfn-n;tICZ9q2
zt^^C{b7JP?(evle19ik-S_0X(?@vna$as}IV7n7c9W=lPHGsbKLq11-SiHCr<I&UT
zox#w0p~-8U)_)Z%(R1htp%+1DM0y7!azz!&gXlmjblYY3_s&OU6^<qfFM*#z47md5
z5K&aUf;r9n_MeY4OF)m=ib5DeSrn*=HZ`<xK*c65_+vDY^oyW_;z37!L>M6rX#SG%
z!Ws%1#y9cjK4A8)*e-L|ahcTD{#ELY_gw5JE2OSy1e3xB$|XdLCm@~B08E=uq=leQ
zX{Yf&%4%~+b0m#H?)JXS^n@8P3ox0ZEdd}d)EsS7OF2bMW6Pgk08Lk=(KGetn22K@
z+l4jvQe@F!n(nB}>fpTL+fi^r>+6pB7+#C&D_R?Qb!~|RA3um%#5qSnM13YuNEAvS
z!baSBeW4hacnDLxEuiKi(IP~Eu~&vSviS6V4@ST?AMMbRZ)1WLbrRP%twdnJdDGX`
zxQ)k&#ElZYwI&KBkkR$he6*Gk2>u43Zzm6Hq9uea)v}~e6I3feB?8-qd2W8OHbsH2
z>biJlY$gie)^$AAR$eF$^i1I21u?hq9RM?x<9?_%=ic$EGPVReoOuG1up=8zX1K~V
z?U?g*wDFw(Hbz7RKNf9Vbmc+L*R2~&g*F1w1Qq8tRpl6~h2sHvz4pZQe+<2!^S>lq
z22fdIj;YGdB^mp_pV8)_-$g9K9IXU&TMLMIuC&^@{vVtpCzT_6R@D80ek@saC39c#
zKPV3WtkuB(in!xy8M3;wZ3X{wt5wz)#Ms%hCzkZ7avnCU6&Wr(C82o^V3rPt%K~1`
zx1p_*1{RH8ubu5=_wB>&{@z1hyj}l+Bg10LRmpu*JfCF$LE?E-n&~4l?f8O7Jo%Tu
zq_|9MlYMV>x%L~%@c+)1Bafu{Bh-MkRGff2A5OH@!PWxc0M&er_x8*opaO%-^JR`(
z{|%~m#wz_c4CB1kC$Vp=(T&GvR*vd204Q5vFOFyzct|QBPA>qcs=0q-Qks-APvyL+
zTmK+jJVY^}fNYMx*klEER|@X~fL`K8Wyth5C4PH8{f(Kp`?{9MRN!hv161hl)LNsS
zW3plQqpo^?PYEU#n7pG?_4vR&_pg8K1iX33LA;P<&{(xp4WkWNEv)T=8k2U+XfZ=0
zQ>JnUfk?M_B~BpWok6yzyh{Yo6r=>t1VD+WBP4ghQR5DJcv?p3&QpyYYYTF$z$~1w
zEaIU6FvE1*BtG5r;|<!c!nh?DdoXAk@EeK=%{7K-P~w<G5?Z?y6eFNSofwrX)i|QV
z1c#N%F9!9<M)66Nkt%KaeqO8JQ3H-%3$t?jx%1~o0MsDjX|2Tl%X61m&7=t~Cs}Id
zBbu_DQ_F8OpvFLP9tv2Gx_+hGCXxZZ+s|Kt&QZtk7yOI`X1@@8-j4;*V_5I08*V$Z
z0Hk1a-`1*9JAxYqP=^swIc0r0n%qc$WnEO|g1)hwhbJ62CTZBXAx(+c0VwS6gDxO@
zxRG)au53NuE{weis)fimrEv_L3x`z^9%~1^BnUeJ5ndW$T`5}zh*oP+P&D#-7p&F@
zVasVgZvKs6#ihmGaWe^v6Gj&$jlhm})kEG+K`({Ifz4)rM)p0-4s@KdR!g@L&D(*C
zTn<cTIl?mNubY5^<1}HZkzfQmjkv;FuzcOsCVJu3--w;;C8%Lpp2o-FfS`gn1Et<F
ztcu{c%Hub&)8{K`@tDy84Xgg0Ytn#o;l6lac}LK%pjFZfK7#uY+Cf_@19e8Nhv;Ep
zr5%T!2JNycJndWykPBhgTGERGH+ZzTyToGo(A*4W2+^Hzy--a^<`_6X$U6P?HZrhM
z^KTvQz|KD;VjU*O^rj|8Q+g6=iHZXlRrlRbL^kHMfr-PQ<Po74b#FA-S)97#>{d$T
z3l<Qj{du}3b#P<yTS>>~L7koJ0}2max$<N6gFk+|wqR-hpBMMd694;m{VunY7P>4j
zTPC+(DF5<jfvDhLB;UFS1;6KMc6u^j>)hXu^R7$c_1I&&%w*5n6>i+swvmneEMG?b
z+7f2Enp!}cgh1Qw#*`6<Mw>>Jp^7l0dRv%QXrVGAov#xk!|7POD<aMFZm6qgRi;gq
zg~@neE0JRr2OW2BGR}E}1ndX7A?QAnnL{<Yu2>|P3COswjwv8PZHZ<V;el5IGCQCT
zmBq3Kd>cqUa?Alt8y#NRsJv`a`~EtLk>aKdjuixXWC5gwjtdjYQ-Nb;VXZJ8yEKf>
z%f#4kY$=C8`czI51%-38v})v;QfRVNLSC8FiLiv?vs8ZPdFL(~l1@HyY#du%qB0I)
zFrODMUXbe|Q%9%mQCA@Bo|tTG>N=zqSgVpJk=z76-!@428?s3U>L7$GV?)WYLUmk)
z^s~FmL}PNAD^!e+veRHVQh*@WmBQ*&;K-sp=QGH&xSE)e_KIZAU=;b$q|&~`El{Mh
z5zvpHR=Z1Qq&>*-3T(PawRM+`yBq-|K@Xo?U4D(%kxMYNwN)uxCW9q5IW-wPr;J?G
zk8)~L<Yd@qQ<?e<!c&;AY9?)igcp;IjNNP0QTqkXBknCR=lpYze*GXFhoSNRDc*T}
zeB2CfQ6EXCJj6@g7d$EZvNdC@Nae`eV<W|dzsR%6g)sNsqR$E6HP%kon(obrG|pEP
z)Ku&J(EqFRjx)CG7NGZzWTHpLVQ)YdDg_DS{$&+D$euAw{&=xrMtkp^Yn;V<<;XJ}
zS5fjUdj^=cHKi*m@0NJO*~&?lgz(snEm2ji*|x!x<1lRzj$(QJ?FoNT5vn$hfl{1a
zDaVEY4>X^QU)q_7ki^8qHx7yZchlEj(>9&C=g))8EiJXt7cj3H)l@b%Y9z8`+a!vZ
z>^caJH!B-=3E#<i+y)+N!_Z61Vl>HtjO6wQH#z!M7zglWEIH36lbtsXL6hBZ7b4rs
zUuwfLW(;MYdXO7e5iI2B{5EY*;Y+A1`viJo5m_V!s7J&31`MF1LSymw>9mp)>Ch%q
z-im0AAg%TTSA$3CjJKx1&#PK{O|uCma(D~K>d}f>vwG0=^&FnQQzQgl$wBTgJFSOh
zd{{$6LoHz!W&z}x%4Czl54k!50u@iQLrUkEir#g#V~`JBqS6R-%r)69(5z=UjMp}9
z;7RfPO!tL^=qw^kq!7W`4C|59#sCue%Mv$L#rhGM&`p%ePL_Iik!28Um+;w}qwF#M
z7<HWPn_kbHg4LIlqMAkdr$zkp=gk}NYn<3XT1Bc4G}$vcqR%Y@N7C9pN)%bklXN>>
z6N}nj>$U(d68Wk|6RZyQAK4p1UJidDf0ZvB*zbZBO~akX>OX8Vwmv)zENuc#vjxZj
zWd8s;Kwu$Z(8R-zp;5hlof7)F0&={A>bg{yQqiG!<)dE>J#o%O=(gpkj#xz7s<B(<
z@PFA|Q(H^A^>B{}$mks=7cNp|0(|)fZE+yv<8iH_lGf@phx?6f<9I{UZvX5VZR+P6
z6a44e12n7XxoQKAE4o^PWKlq&fc%`GeMpXFa=a${$e*tThvhABlEeZV=#`BkbOoY0
z%`7?@IN**Sr4Rd-thSbKIim%~CyQ|7G}b6QSnrZas065Er6nb7a*(t}M;#Od2Se*p
zzXp-kl%mVo!W=t4n3S1fW7Q8m-{+wrcn0*8WvD1C5Bw!)_p>Zab2x4~D8V%zm+RwA
z!^qt5Em?y}!Jz1g;>qeok+**3B%}=`B({deZo-5=5gLof=M<CD{w~!%yjD~5Jotol
zo*ayEwcpA=UX{a_czYXJ$&oG6C~T2-UZ^GmC$mBcow6amXp#@?`=ne6OfwI=BL~zf
zaKSlFdtEAxlAQx<r56|3HVj%`UiSjhS*-kvDpGhRbLry9_BQMC>df%{k9`x`{$=KA
z<68Djw)30D>wc0T#h;DeBz~5B6|ukZP004&y+m<MJEt_)b(zz)xaG=9V_kEeT_K$!
zhjb5de%DF*lx@7HK>ical!fPhm<b}?=au1wh>7C?uUXyDQC<23E*2B=Hez0laslS%
z<`3;t+a5wG?~!jmiTxA@ZQEARZ+j1p&?7NbTPN}DB_H%aC~{A^OOY-K{8Zf2&klq7
zsXaswMdfO7%MJ|J2KOv_tUZAOH}JM+PGFZ_mtV8RuT05ZyGqMNtJ;OKPkl&QWg%M{
zy1Y>?9YHNLq1;R;-Rk6=2%aEFd0zKvTmB9vE{!$w=XEAVzNBMb@o+G?cq}qLUP7kf
z)^I~oZLQ&lQPtSbwYq&OYu6SWw-piz>oC0C(fp^rXOYQnGlM{@o13t>6#PX-zo(}|
zFvDw1*TCTL#o2*wKSHzm+LWQ^;;k4*TJYbT^f=_(B&PyhxbjV9#^w5hM^<%7x6Z?5
zvJQTogGXoy%h+?VZ|<>7*4o{PiQ+}xBwxKR?RA-c>Qtxr&x2PWL>RC#F3dXP3D0Wd
z+F_koyGQ)KrDgr;m(KlUKUAxH9H~`Luf$;uOZ{C*Nm_hgl(r8?j>zJbU6jPj!QwWN
zf*q}F*#bSBjzz^%K~7=UP`<8gl*<ct4OJ@4R6-R!mS8Jy+4jf8K1}CJuT6FL1-WVO
zd@?pR29ixpiji6N`*XhM$Ex8uT2MQrqM>1CcZ9Dqk!8>rr)R_NxV1@_7dNq9V>)!`
z^Ftn)y$csE)atQhHG<v!$77yMM4UK9K3g@F)P!xh-Py}UxT*c_)E{jJgE2WZPW^iG
z1(C?EijdeZ>YbWss(5rAyIp!j?G09+E%@>Ttw=;|LQrY`Vc+-lCWzZg=_$9xgI2G4
zlaG}92&hk}RciC4d(6W3u+Zb_UtLnWOE|YhHaR#mQ#L}ea^y>3L#3DYHIwnNu><)F
zY;0^+pDOsWkemDVDzi0WM-G?pdR=OVzg%d=K#*u#QILimKUYDhg#0*%h;XmtKmPFi
z6P~|+y@b<0Go1bZc{$yOU;p)u3&8b%CCq=jF4rm!tURV*0OxJ;Xr6$&Z9e&d<H;pc
zC$g<1HN!9%`R$6oMP~BI_#-9IbOgxVN-Bxa-1UQq>#Rsln)F^BdW0(-eL0zLuA7>|
zjHU%P&3UZEdQUXL<jA5qFBcn|`Q&|v?x87@7L7<)(KKt3cndWp=mc-XbJEti%|1f2
z%u%dhL^24+I$0FgmoP_mL&NlWc(`@G?3X<<Q~j=OR7j8uA{kZk#7u#|Lo$tc(p!O<
z7V+r#-$e$HLdC!_#zK=I7&Or$5R0Fg7sr9+?u{PtG1y&%;-t^I$d*Ku$@mM=8)Xc+
zSivM7F5FW;GfCA_3(TTdW0e|?_Veb=GX-|rhUMUV1W=e)aop2k_<9f(1!#zOF*&^a
zz>h-_edmsAGkH01G+$=}6JZnOXkr0aB%Y875o4M{q0;3nM2kAC`)_LaGm-&?|DZS{
zk1X1~W7g-2N{fam$wJ&JCiFfzKAUSSCfj62l9_DGjbo4D#Nf}#Jon^zpPQAEO)s+V
zJ0-`)n)zMCIFjRF<e0x^8A|yKxB>TNIy#S6BTiRDsqJbVplUD5TJiK|j}POI;ONEn
z^lY8rd+1}JP*N7(cN<Ak>9&t{lyvyCw?S)y_{pAH*Hmqr9$h^>pU*?``|Pu8U+K15
z@2NM4E~n%gs+=iW+Mf|txPbnp(t~_IIQHFkkM1S2%#DqW>7EHN;fkDi>ukpQ?F~N)
zxoRKQt*@=6LT$$%ohnAj>mldV^eB&RHs;nAs_}g{lv&%;Uyq#N$H?Vip1Lh-Fj3p*
z6?HGsJ^IEh_PWRE>Gu12QX>*W))#CK=xT32SZT>J9%rc_6$L>%bjf5w{fM6187MH1
zdw2D<zj?D|OhE=heEVv{qJtVxau{Qm<d9sRX3m=|=|x+${XrS=kX)R4{FbHh^?>6j
zFACnT6E0P>6CB!MJKTLL!A4$eNF?jHj22B|#$uVFA|xO>Tw|a-DYkR_9c}AyZy9@=
z$F)PXX9p*8LxY1gUwQjEnW=SNh?6Mj?KEH&yl<9$(gg8kA^X$>E2**_*}(!{B!M_t
zQNAznAU4>HB>gmN7H|J3(pEXyynW|R@5T1*d&v})DG=bkms>*XmFC#kRT)o~qu%XE
zmh_VPF;hOyIdF+$7FO1g%_ye~C--@31eA0FL_3?6r_F0RJ-c?hYInu@S$;N)!85-L
ztP&mzB}K)`OI2#8934mP%W^R_p10wH#HMqXE?wFOP2Nc6hUpIZz44VJPo62eP1IS&
zIT&~fdcZ4aW4vPN*2eV}<3rIEuO<^Bbn?Z1LmQUhP}|iP{ZJ`%@#N%WN7t6=nz&uE
z>w>OX?}@zLIv4*f_e>GfacQ~C_U+pbIf~_kTUrFI6e%{Sqj#3eZ}YX5FXbJ)a(^Uy
zjIXhv#5lN!^PkucB^*TGRaT1sEbNU|<Z{n^?}G*X-<z&1(~q}<{x-*Ge5=wk26Y}e
zX>nPY#JMrBn(^Mdwie?}_Wh?ea<X|Uc&ssDknDVhNQ5rdM#t}I9-hm?iv8(jIp7YJ
zj<g5YPDCnga0S3u7+g!AQ=s6|*`bk<wqm)Qj5DKA-p3<E_k5Ny=Lw(+DfT<wy^{&7
z9zSsf1))*Fwqp_H2g)*1Lx+aN_Qwh1_F1eOW0_HH1ZXuheW0qV=ISCAQ(HXhp2=C%
zV|=VFj&?=B-MlKcn5ephS~O>i<d)k!1N61<h;6roQmta+$YVC><vSn98pK=cT@?(q
zwXqp!4_?!m_~Q59^Pe<U+^E6&wM}AIqW1T5Y;A4jT#_>~d~oAF@*-SyPK}ADXJ&4?
z@Gc`G!>}f*Cq2EuWY+8AhD0%zucy`l%^y~W(ML;+pU^1)8o9D@{_a?x2@Ti2E8Cg|
zsYf9vEtslSa~H{jkEYJX<_;gv;FCD8OgA!3-|d-So_UT=pwlMZw{zdAI2RS!RK%LT
zn7dM{_trjoo`+@YW11H`e#v^|O4t;eL8|)p3pg>-`$6a_F13jAf$Iu(zch|jBoacC
z20QEe@YJ)4n?3x^OPEYHJX1|y4PdVL5yBQn*t`~H$A`9Y1~%tz_zKPX?D=UF$}^T^
z>Pk-7yOzrsn?P_IEl3M-j4^z2j?Nm&k)7H>=6PcPbzsq|g{A9F<(xekr%e|J8n>|o
zIKI9ZEcU<#c&cxjk_rD{3^kgh<Hed1LljVjH9+$FD+|cLbE`&%o!>`_tq@O68(Yaq
zE!+1Wg;|?HyfQ1_?|UO98DA_YeY~kLaUlw_E>9qSP0C+bSTcM0y+F%c!OJg_3LkN<
zMO7*NA}Ggs*l)_Lt@XjxE|eMXCVO3rN1V)Xu1NG^)K@X#mS1Kx3-0|Vn!j&V!M|SO
zpVCYJ>vH~QYWaNz!3(NLkrxepNW66lWYsq;{p9a{Eb@%pXPuA}ddEbYVNkI_YpeVL
z;sDng2bZhEEd@PZxh;SLksPZ>!E22R%8aQ~HqfhWo%Y+0F1w~?!$`mMlIYi<4L2ww
ziPw}!^_>nbSm66ww@)xN`NbG3;;D9E(X9&Of{BK+t}L-Xw0je^TE@=^7wB<}5|j<h
zdAMvJwvH~7*pD(f6>z|$eaAMy0hI5R(Np_g9H=TT-tj=z@8VQBPzT@~wIytA@51=R
zM4d5|C7#dk0W)q-ynTD#a$$LoLm|DIQJLw|b1dpF@Zig=tC8s`)+4-w<VkKv&Tfyo
z#i>XDDt&*sw&3~ms9Udo%z3RlFEyovQ;-0Cp@O7hL?q8eTUS2T-cc;qy;Z@?S2E-N
z!i5jR98|VI_)IU{sM5IL$9V~fiLR^6jtYhFSjfkwjw!1MpRL^HNpj1DJv9yZgK7xQ
zqepdg{<u*+mnH`~ZrJcRd5g>DiiMRGK!lIQa-~}boxqTN=m>P@jKS4a!qwO<;eZG}
zGay1qeR@VzZ8tCP5n;PRwCK4hJ!6s4(Gm}QrlzKrXc`T+7Bbvq^Wk9C(W`#4l9e#>
zS>#2r*fM#eM&mW&VhT5E>+92xa-|!o8L)kBZPDdL$?VlzG4){_wvH9QMv9xOx(BU1
zRT-_|W~b<Zw59#DIYucz*xps_sc%2<)2wUISZ-w;{nWctB&_;W<|6KeS~imjXUdS<
z<?{Di4IK`-4!Z#13;9FCmg{{c&bPj^Z6@49+0pT&s>ZYEXu&Qd(!jvhFK@L`1G!5a
zl`CP$O<=X|nf2^Kr$7{F{q|fUe%fEUWkQa;`ZM9;Q=W`*ejzBjh`3Gkh?<cZfSy64
zT5x>2QpV?1k;5-GNHzco@(pQZ-(?wx)_{&Hd~8is=d@o_^W+`WzszZ6@g+m2ecLTA
zjE_|0HaMyX3sxOkD!sTsO2Aj&%-6;+mPf=abNxCEFF)3=lE?G{+g6|3tQV+oms9tN
zEdOe_^M8Q-{VQJmXX4ergHr!>IsYk_Q+bWrb1j4*UsbGvaGZ>RPLK^Om`irIAr^*N
z!2vJMD)l>&@7}3U>r2xawEx`GJz&H``@GJL3@gYqq7*E^=Ra`Z1z+dGmnL%mJFtM9
zkx-TXN*1{s&l=2P^JvI$z>C9er?+r4h1!A6xpO~3!podIy`c}f4M+i`kriYH?z%$d
zT^kGmYj8c+sBNala`(x<?-mFz*H1=s=*H0TH_5*C5nSIQ)PWxux#X#Ie+Kdp*)q%g
zs*zL`5LZSu)FThr=bHtM*D-Rjxgl}hg7djW$f^T;DA)rR1qA_o>C~ht5F>YTq*3<U
z&%^@Q+0OGsEmbU6^XEZbz~pX>^z?L|RjXDBKgxi%tQiK=E-8i>E+vE7VHI1Gqqv6m
z&2Dr)a*B$Io6Xvc1``j3ln@dh8!K#<7?G~by4`1v1V|kXkn9r?T`Th76@0J_`3!j#
z=@^3}$p?*+yZkis0VSlkCcn6Sdtrse&5O82cPA4vVuA2C`b(IV6c1GG5Q+_xP!D#y
zKT@A;CeXL#B!R*4a@ryVY3J~v&=}@s2Tsj9BP@g2EV^r@RuOCmz}vTHsP_Hy-M%4h
z1pSL%kP#n~a(o7t`&BzyYij*8)wkE!HutX9WwCA~>tfg)%Bmc`?YxViUx@X)v?q2f
z7SHKYoq_iCWS_gQbCNHqtn|{-{ZZUAQs4pB*fr&kVBI08aiUc`_*Xw+ox(ql=o+Z0
z<qqEdH6zI8QSaodQ^@fRagCcg*7{HIs|4<9d$(lL`ql5bvuwp5p_AL5cw!{xtnDyc
ztNCh*QS6_da~8|zS+X3f8{{rd7sg~d`EKRzv@5yhu<OhBxh6%r$M!V8I}<rQf9&l`
z*~1}`w|{5;?7<@}7dPn>8|Z1a!oT6(jqEVEA(g+?9O@GdmdI9R=XdDm?rS+XXHF_#
zpZuG&bJ5mEg#~pxe3Nnc&WyW+N}QQ8%$`~|HrO7vKK<yODM7mn0c~?V4(S&NwFai0
zdzJQHbUe`8**0~}sp3N0hVHBbpKF^Iu&YbgoO-u2zw7a|s>sbipBlFVnf@QNPE_kO
zE@4gIOb-mu&uf|fpc$Q@v`)X#IJy-hhs4tYTIyWS4|*s^RxH$5wsHs{-gZ!M#%bhd
z_vsIQ-k}{J)aMzf5Bf54MJrW>TmS5+F^DesYo+?m&Sw&4tu0^xL@E?>J%9K#SmQv?
zK}SbNWt9M0qB_Eo8Dfwf47&xYDZGO_z)U$L^m*x*wf1kMKDwWzIW!LOrAymk7te1M
zd?MSRD`;eBc$izmXzn4rNjg|qY~@HXyIa;9_0WB0WqyDJ%h9oMf$8Xjp=`BD9_z?6
z!h+uC;Ec7`YxK>#I-{(sxzl-TeN})vqMl(dwC^D4i+PH#0?%Q%o279nN;!UWp@iRA
zXe=9>f6wJ6Z>Gw4@^qWqOKN2EgNkJUG{WnfTT=IB=gcfkdv^Om`@MAyGUjWGWha^z
z2g|eqvOL7GI$L^%<G{09cqw+%!c5@WeS+Nr;Sk;!JDm4q$f&t7<kni0{W-H}{_Y9I
zpZ~U-Ed_GM7;WaC_9pjrpehm{uB{^^QY7gFMIWcu_Z$9n6#8FwtMg9JL{K}5pmDm#
zGrqhQYz1ey5bJap26a-v74X0GoBF3KD-qwsQuc9PIrL|zhC*B>)8T5JHf-q`nQx;1
z&ULgv^gld${Qo{*Ql<)oEZlk!OO4EVY~2YHaU8L7^dc8{lS0gZ=@`8ypR^R1Y{5~_
zajMPH$Xud(RtESlA5$AAjo2+%AT8Q6e{I?O8^f3;rViUX7#KuYzxZw(7(JV2-%K{>
zI6p&4*5;2b7an)@^c1XtMIa*=N)H3BAP_Bzx+eX?83(Nn%poTG=C3Im5knV6{mn@_
z00lg(Ohi-ulz#jE{W-{s_A+w8Rg<1Rat-vCR**#sfn>W#Y<NYFa8qSULxXyA6!X;P
z<@Ta42zRo30zO66pn?fh7qT>?!oqUAHGiWwf|+kf$m^sz_nK76_Zi3Te?Q215MMlZ
zHxm&yze{~2g^>#eRMmU^s*`C09?|*Wv6t3#uJ^odQg&SKBIw6VHgL++7v;}e;(@<3
zS-*%49C|WOF)I+g6t}BHbkPxaue6r+*2A$u0Sru<jW3CE-8luQJ+gQ|eITywLrGuV
zIREF>u`bJe)^=aQ<h|4^mDnvOgT_t`W7B!9%oOBj%`-*|j5jc`3F=SKlBP@oYzv7s
z08+Xe!*R0GF~BRm`=X|d1I;V3)BqLEs3)q)LKFeP?284S#S7(kYiQX99tsgET=Bp)
zuc|!3(AohWaEWb#Qy&Bms3pV$f(QE6_B4w-?|T9NJ3x9LYQ<*1uG$<7gWE=Ixtn44
zR2$0@z=GwGueo7f$wB4-X<|e!)0q-{>wdA+P`E-tj?8e(j!JttXZe#WRhfk%oZpDk
zLAwiH;QpH=+|DgDksj)37Rq1X5_uwj0oSU<vqaqFBhTa!2MkkP1~UW1wKfn=^0+Ih
zhH#j0b@&_%=F-nNS-~>HR+-~!#9(3#i+dV74EiNQ^aprnQbFT1W=bu9`}P{8bc9Ov
z=qV88K?r250Db<kB=>r~JkK_(xHkQ+HU|R|&%x^bi#nUGNC|9x4n|p}M>O&Kx<m>A
zc{KhAO&@tj$7wOgKAd?9Oi(cgxhN<%0+y6?W{zMQ-D;wF>wXVwT9uXAOC+r}?8y=B
zpg&1DGNE+*e)7(!Fd2K*tJc5AoW5Z_i>rCPlXgim#9?DGx8i(2L5KdEb#{XV5?xPX
zODZacle&II^aE>BgGM?lGd}%=01mIp>ed*|(Gsr=cN&Z_O+Q>0Xa!Z2FgiEP8&H30
zW50(?L4!aXkqW}#$MUk}ceN!sL*h$V640wRgC6;M9^W$Knz&7kU$VtH#1yMK6FH(B
zL7^`puwb>gX2ev2Q66|QUUajpi2*lp-Wa;0qtNgVFo;UtpaF8>GjbMyK6Dw2C4DtJ
z;zT&PNMoB%QyzO?Y6c6B=5p@vn6Tig3x?%E_}-~6Meq5T8>RJUGdS0e*KwkshnF{>
z27v*}BlsrrwzlJ+9_rfSNvAv%i)-X6vE&e&I73;rNuORW0HdW%3-Vohph19J7_VHg
zH1N}(94;U6W!AY$nfgc8#rEXdPmDKC%RsPLpN>I_p`cGvf}#D2lSr~K-ZLv<3Lu-y
zGuf&pua~Dbde>_imRlLpXfTU4`h3339sEn2h=UjoV#<cULg0i!zI|h#eV?rvmS=QO
zGin+cTNVB}o|ie1$H=Ak2SnU6V5uu(J7AI?R^>Kcm3D8dW?mYXQ|=zFf`=tYo5ps{
zYrw2R#w-3LnjV!l@HRl%5iez(dsv-K^e`&o<+e^&7ddzWwD1STQBRM@{!8V|py7y+
zNQ}h9r!1?aB1{<5+V>0Agpa+;QE}kjS)=fSm4)pszG!L^*ew*<niLcc3n#q26<LWv
zB{D*PbCemBxU{jKZ&5ux95@^o_VIMI&1vBD*$d}*+YEnhwo!N*HWFjKM<Ux3x6I9%
z%a{2Pk^MY^8YdHjUJ0SUBRV=dy@-w25!DV$;LzlFQpBo<jgp#>79f9^tvY?*nQt`|
zzwHKcn_076_wrX(YUv&hj_ynPE9SJu^oZlMxSd)aOj^TVlrNO%i7P!3c?R6A(I6#A
zlLzOWpFQ)`Xt>?q);ibKXW`^=!PdE4-Q0*1Z#{*7Ot2f&2tRdIU?)y*jyy|~U~4K1
z3PdXn%_?4Fqm7<bjAXR(cL@pP(i7Iy<6@Du#4<o8DmwR_XP;f$E+&V~wP^C4o?&?<
zvEeu=&9bWXI;}d>NSVn7bxJ&G^@c0WHl3w8L!vx27t}v_=f2|~x_}zA_wT!f^`4+S
zqh}TG>4_;d_cTfHIIvp`G{$S>CtZkhxEvxh#4#iz+bqZF7mFS4wDf1jO!pW&`Z26K
zPX<Z$iapgFOPX3;?OEU_-Ug96zNzYFcq)oDi5i|aEZ4Z6plV*cpS=BYCK82ze@+BZ
zFr8Yit}!}jWo1>buQ_0%s$h?o$X{@EmCBILw@*i=hfFr5sajRJ9;SlL32Nfd(N16&
zsv(?(O7A$6jU{mFFUBAbo__4|_^0DsT=RUH`}UkF*C+SkwNa@bH>^O?<dqxhUTClC
zxU||cQkLP5Tg%}E<E)D1zAJ*R)RmRXqR(&5J~PSE%X8ro&bG_f<zGR8ruR}R9%{|0
zTA%IrU@WW?U~z`sLe1z-<$baL{)1CaytA;r>;p^{53!fHl_Nbtb4OI;%gdDmh(gkB
z{$_>EM#f<EVCU$(5tKw}N}-f$$?DCVo}zeg6p^_pg?vfbkSplBV6dtnup%e1&h+rF
z$t~<9j*X`4pb=jQ#V9Xz$qS>XLjsA2w<|s9I$t!E8q?BNy>+}c?f0#VZ>qavh$7mp
zlaO6;=Y*yKwwpC&w7dGB24}KNz&~t-onvjs>g<7+D>JrJ7B|9ioG90rJdNNa&^;{X
zqdFXiM=LIDD8~B5s~rhfy;pK=_t`nem)S(^J_-+EyjeGtIM#U@OANjzUt(k9K6%z4
zot$~|=bPbxwb6`;y|8i8Mvl0H4C`)RR#^_dluEBuMzFBN0hNZvM%k#zBQ2K!K$w{U
zGgv&G+Wjog6vCn(Aqi*PF3NW+Qb^MP0hD<)urbC^nlHhBC}G{uY5`CWD2=)?2#4r;
zc65W6bWc*l(jGl~L-p+@F53oYb8X<)*)6=O?sD@jCL8Am2G-H5V(jw1dyI+%v#oya
zKC$%IOXPU(YPGL6&K$4rqXwWGx5G8H0p+DT!<tmKv5&?ybGxOT7&g=os>jaG`EI1$
zhZ`zC)oMJoLD053&(c<Qsf4;fo?1_$j^V}2K|{PM#Kd5?h-Z!-#Tti*U2Eyt4K{W(
zh#O6G98au+-VVJwU!sg}UZACF-}T`*88Jcco!Muuj_Bc0&}v$!yBf8l01Pr~KTW$1
zFPiiWy0d=o(#(Jzc+`=|L?GW`g(BGu)|tI!`*ic-o7gSn!?aT+OZRiXW<r@_G;=gi
zM*UV~j{7PVR9lDHb>^i<EvmJp<KyC5jHic<-5Bs2o_=<+^7=ywPWYNwHF#xAD1lE?
z{hT^(_}}j7C2h01OODO{z<iASf{a*`eW)e$*;**AcG){OM`rfOwt8z?>IdM+6Z4+Q
zrd*Caojz{<#@gD{f_+|hKbuIL4BwXevT8F(i!BiMKgzZPW&ABRi`S?YA0)mj0W@`3
z{UKV%YBg?)4@rSz|MqJ+NJ;fSJB2n;0zx(h?RTxiURfwF(v@Hiz{uMmEWy70zB9Li
zNTR>}Q(>BIQV?OX!623<1ZVL5AB(vg_XUIJotnCfnEC;gnNveql~**)$C93emwEOJ
zCA`JPe*YyE8c(X4=B}rE1nfh6!W+|IDbVDz#O-_!!jbliVHm!q-OCXLp4(mF3jAK8
z9yLPh*=Lj}=5MZa3cWuCX_{7Wjukjftn2s}Do#czVc7K;XyoN-ObtA!Twx1BuKOJB
zoj-Zu?LKLliOgSXeyjm=-4zkR)g8^(cX-r1i*<>--VZ0)P4xdjXDRv^>St8bRAjUm
zHEr5tk1@a5=>C;z?nKGnRo4hlS1e2fOgl_aag2j3BDF%-i1R5GT<|ReE*c(Ph{wb7
zFD~D!r04FouwLW>Mj!Z$vg5I`hfytq^x{Wj+ArFx)`N>ldHXF<q=_z&JXpBP4AgdQ
ztZY|<W^RT8pp7yJg<huZQqSDo{Qr0(7n};}#VE&PORBIA<ZZ$qAtVrh?G0Ykvewzc
zfp=+#5rpZ>bv-PJ=7_+d02EHvZMzzkDtk&+{SQ9-{*czr2~Nwh?EUI@GynL1v^}11
Z<X-&nZx?^p@u82&+%LZ`>bG-O{tM((Wx4<W

diff --git a/articles/EUCAST.html b/articles/EUCAST.html
index b9b996cd..a5998145 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/MDR.html b/articles/MDR.html
index 5ae6cad8..0419dc2b 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -385,19 +385,19 @@ names or codes, this would have worked exactly the same way:</p>
 <div class="sourceCode" id="cb8"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/utils/head.html" class="external-link">head</a></span><span class="op">(</span><span class="va">my_TB_data</span><span class="op">)</span></span>
 <span><span class="co">#&gt;   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin</span></span>
-<span><span class="co">#&gt; 1          R         I            R          R            R            I</span></span>
-<span><span class="co">#&gt; 2          R         S            R          S            S            S</span></span>
-<span><span class="co">#&gt; 3          I         S            I          I            S            I</span></span>
-<span><span class="co">#&gt; 4          R         S            S          R            R            I</span></span>
-<span><span class="co">#&gt; 5          S         R            R          S            S            I</span></span>
-<span><span class="co">#&gt; 6          R         I            R          R            I            S</span></span>
+<span><span class="co">#&gt; 1          I         R            I          S            S            I</span></span>
+<span><span class="co">#&gt; 2          I         S            I          I            S            R</span></span>
+<span><span class="co">#&gt; 3          I         R            S          I            R            I</span></span>
+<span><span class="co">#&gt; 4          I         S            R          S            R            I</span></span>
+<span><span class="co">#&gt; 5          R         R            I          S            I            I</span></span>
+<span><span class="co">#&gt; 6          S         S            R          I            I            S</span></span>
 <span><span class="co">#&gt;   kanamycin</span></span>
-<span><span class="co">#&gt; 1         S</span></span>
-<span><span class="co">#&gt; 2         R</span></span>
+<span><span class="co">#&gt; 1         I</span></span>
+<span><span class="co">#&gt; 2         I</span></span>
 <span><span class="co">#&gt; 3         S</span></span>
-<span><span class="co">#&gt; 4         R</span></span>
-<span><span class="co">#&gt; 5         S</span></span>
-<span><span class="co">#&gt; 6         I</span></span></code></pre></div>
+<span><span class="co">#&gt; 4         I</span></span>
+<span><span class="co">#&gt; 5         I</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
 use:</p>
 <div class="sourceCode" id="cb9"><pre class="downlit sourceCode r">
@@ -438,40 +438,40 @@ Unique: 5</p>
 <tr class="odd">
 <td align="left">1</td>
 <td align="left">Mono-resistant</td>
-<td align="right">3205</td>
-<td align="right">64.10%</td>
-<td align="right">3205</td>
-<td align="right">64.10%</td>
+<td align="right">3243</td>
+<td align="right">64.86%</td>
+<td align="right">3243</td>
+<td align="right">64.86%</td>
 </tr>
 <tr class="even">
 <td align="left">2</td>
 <td align="left">Negative</td>
-<td align="right">987</td>
-<td align="right">19.74%</td>
-<td align="right">4192</td>
-<td align="right">83.84%</td>
+<td align="right">937</td>
+<td align="right">18.74%</td>
+<td align="right">4180</td>
+<td align="right">83.60%</td>
 </tr>
 <tr class="odd">
 <td align="left">3</td>
 <td align="left">Multi-drug-resistant</td>
-<td align="right">475</td>
-<td align="right">9.50%</td>
-<td align="right">4667</td>
-<td align="right">93.34%</td>
+<td align="right">463</td>
+<td align="right">9.26%</td>
+<td align="right">4643</td>
+<td align="right">92.86%</td>
 </tr>
 <tr class="even">
 <td align="left">4</td>
 <td align="left">Poly-resistant</td>
-<td align="right">217</td>
-<td align="right">4.34%</td>
-<td align="right">4884</td>
-<td align="right">97.68%</td>
+<td align="right">257</td>
+<td align="right">5.14%</td>
+<td align="right">4900</td>
+<td align="right">98.00%</td>
 </tr>
 <tr class="odd">
 <td align="left">5</td>
 <td align="left">Extensively drug-resistant</td>
-<td align="right">116</td>
-<td align="right">2.32%</td>
+<td align="right">100</td>
+<td align="right">2.00%</td>
 <td align="right">5000</td>
 <td align="right">100.00%</td>
 </tr>
diff --git a/articles/PCA.html b/articles/PCA.html
index 6669d655..cdb6efb8 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -290,7 +290,7 @@ function:</p>
 <span><span class="co">#&gt; [1] "Caryophanales"    "Enterobacterales" "Lactobacillales"  "Pseudomonadales"</span></span>
 <span><span class="co">#&gt; Importance of components:</span></span>
 <span><span class="co">#&gt;                           PC1    PC2    PC3     PC4     PC5     PC6       PC7</span></span>
-<span><span class="co">#&gt; Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 1.232e-16</span></span>
+<span><span class="co">#&gt; Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 9.577e-17</span></span>
 <span><span class="co">#&gt; Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00</span></span>
 <span><span class="co">#&gt; Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00</span></span></code></pre></div>
 <pre><code><span><span class="co">#&gt; Groups (n=4, named as 'order'):</span></span>
diff --git a/articles/SPSS.html b/articles/SPSS.html
index b626fb6d..1b49ff5e 100644
--- a/articles/SPSS.html
+++ b/articles/SPSS.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/WHONET.html b/articles/WHONET.html
index 0464ada5..864dfe84 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/datasets.html b/articles/datasets.html
index 7d093caa..0e60b784 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/index.html b/articles/index.html
index c084befa..c74066d8 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/resistance_predict.html b/articles/resistance_predict.html
index 005d54da..90cd6374 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/welcome_to_AMR.html b/articles/welcome_to_AMR.html
index d4d6ccae..5fee48ac 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/authors.html b/authors.html
index 94614354..23d97110 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/index.html b/index.html
index 041acd92..9aafedeb 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/news/index.html b/news/index.html
index 963518d7..c207376a 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -142,9 +142,9 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.0.0.9007" id="amr-2009007">AMR 2.0.0.9007<a class="anchor" aria-label="anchor" href="#amr-2009007"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.0.0.9008" id="amr-2009008">AMR 2.0.0.9008<a class="anchor" aria-label="anchor" href="#amr-2009008"></a></h2>
 <div class="section level3">
-<h3 id="changed-2-0-0-9007">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9007"></a></h3>
+<h3 id="changed-2-0-0-9008">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9008"></a></h3>
 <ul><li>formatting fix 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>
diff --git a/pkgdown.yml b/pkgdown.yml
index ba975ee0..c4641a84 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -11,7 +11,7 @@ articles:
   datasets: datasets.html
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
-last_built: 2023-04-15T07:37Z
+last_built: 2023-04-15T08:38Z
 urls:
   reference: https://msberends.github.io/AMR/reference
   article: https://msberends.github.io/AMR/articles
diff --git a/reference/AMR-deprecated.html b/reference/AMR-deprecated.html
index 6a29a5ed..88e27c95 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/AMR-options.html b/reference/AMR-options.html
index 769fe838..4cf99743 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/AMR.html b/reference/AMR.html
index 84937ec7..9e545ad8 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/Rplot005.png b/reference/Rplot005.png
index 60e91628157b9e49edfcb1ea74f5a7ff9f459c5f..cbf0ff4ed1052e274bdf691b5e355c4fb8df1dac 100644
GIT binary patch
literal 13226
zcmch82UJsQyJiXy5HJ*xrXY$SNR{3ZMWjm;qy~`Qr9*%q2uDFss?s|G(t8ULj&PLT
zJ4r<8CG^n3Y|sDC%w2cgb?3ixXAO(2EVkeN_FJC!dCRwb{X|EN_7dAA5C}x8{`jFj
z2n5Fc{!mf?S3<_n$-ozdji%Z|;2Zcke$W~Qd{KEme&!7VQ8WDhfJf#-&p@CXAoYj$
z4FfVZ=L0`nvukhM2~K%_?^|S~0Jk+2<;^l{s`m$xs#n0zu8{q_!EsgL8u-1@tvfe%
zU*61l{hsm<2*VY+`+8UPM3zyIOOdzli)=jSrTWI5__0r`BTRl=OM7&FRBUx??PIgj
z<oKkPv60e2+148A(7?!oJb_#Nzx|s$D5FeGc<eeAF<e#YUt6A~SYgOt&QY>bnkb~K
zA8!PO=9!tEg!*G=6++BQ3{4gEhsSv=Pz8CiH&!9sOx+%-YwL=TISPTd?ouGR=UU!$
z1d$<10Z;`@a^S-feJ9WGHkA3%Xgh5N+!ZnhX@m8VE2b94K`GOXj3ImBtC$sc0X15J
zAcBfO;b|Gy<1p)E_LuiNCrX0K*aWSz5%Xx6MA~6^EPnD~S7rQ`73aJMI4wLC)f-OR
z;>g+QJqyWTWA{@R-`I+Eq7Fm{@3uWoxFqt9z=frxxrM~fu{6=Juxann-XNc&9s`>_
zigzOK?wL91aBQ(hh#{W)D3J^BBAYx|*{_CeOb=JB=cg$?q<lNBC-;h|H`YC`mpR+B
zbP!g(N@Ac*A9=fcW6vuB<&by!DpD9TWunlPXI-ysAnrOT5MM&B^QL>S|AX$*3s4&a
z?Ww-&l-+O@_G=W=E|U2KkSYivkB?}gntB6w-*L*hCGPizwnLHaaDA%E2ZUu~ZxCnm
z^K~`R6yK;?A-$WDmwc`5uO_}BM=qe&_SV9tYde1(w6!Ml7jn)QvsisWO@*!N$?Lh!
zJdYJ?>EPCt+p&uYbNa@NDgHCcj>0o{&_8!D#_(Q+&sy(QkPDSUOBmEG@||=X9i>@M
zQOMoH3#Gh{Xa}dg!l{dGJJyspq=|=Ni+cePas8F6{bP)+rj#nm&&&3{K{#f|z2B{h
zt9X*=iI=YT8vJoLzr!kql*PuL<-U9?((=G8av856OC#*5c<ju-f4sG|catd-{2A?f
z-8y@LHZmj}6bx>J!bXoHB$F2}v^JlSJYr~j&j@i?PW7pM84)&1@@r`hmeW^E9ZZb}
z?-wx*V<S+TEzf2jL@qz~$8}+t^YM+UVbS!G64@G*N3xgT^G!tWw7?rqfRg^%%q1%{
zhy&kBh!qc#2#4CMb{%oMj%dva9EJsnZHK6SxahFG@W6ISTE0E+aN4+-Z`mQ51CQYZ
zF*61cbiwKV`2+U2?v;zvJV_4N)kj^5Dm@MZ&`4oA+t%UGlb8YAR23ELsL%58*1$hC
z`yB2mPPn78?LeEm47K)N<nPq012NNw`nOQwF*$y3yczy5(whYttgh_P!s2-MTUtgQ
zuatn1i9_qBBGXdu9o7Ipj_FKQ1}Si@WRZ7Y5y`I0ei+vHnq<k!e)MAFB9p4uD^O}C
z^v+2z8NSvf822vL=~4)~^|bA=sspG@*oFJ-$}eYxDE`irb0^H}WcePJi)?zz@njlP
zi4t6y+cW1(Wt4QO04;EB9JRfryQ+I-s@pivPm!tK>n5I8(Sq-%%wI_m5{#(8)s&S>
z(Ed6&JiO?Ze@mQ8;D{9YBrMi5XI%J_E3-<~0%Svbsv}qguUxJ5N*=2aX!#G)8FS-s
z7dDDQs)-wSp4N@5CjyrX(Ay%N+tOx~u<?CW7$kU~Pz@VC-gx$^ZhqW0Xid3Ox45QW
ziGeuC&{x~|sj#XxPhJ1ZBSxLoCI;f&>m7HmYxL-%CVIMjGJH#uz-{P*tVcc1KANIx
zTXv@QRu;CsTJw|K9MX*|sGpeYNQ<gn&&)2q+R3ve>O=ZAqAVL)oau61Q;wP#xDm>P
zzmlp+sb*VTJec7@o!N24kX}f(nx-jxV0mXD+jBUYH_y~tJH7I)cR2k=-B|8}hl2RV
z>{f=*AJt&OtDA$jLTh3*NXLI^A-Xse4|O`XpK9g;&pwfu4m&Yn8V7Ts!ZPjBfCp>u
zD0i;UkIOz)mCpT(ld?E7l5mR8R&%4_I@^+Sm&G4_`6vk^-AWq__c>b%yn!z^ji4&-
zY?B(SYmS1tQfIugL$BqZU9Zw`V#e{{oI0sEo{o5lM)<_PAj3Ci!0CjxrDWKYUJ~&8
zu+D9Z!JFo1xJn;$eu8^v3Aq{SBsS1NN9pp1t8ddEuDriouvin&k-Nv5qEoPF-WmLS
zOztg#OD@}U=Bvuaqb6tlB4M@7I?yS7#i#wphNFXdPKP{56X6>f<~QAfaofW$iUxg=
z!g%NVy?MV{6XPNZF1g8(KJ@0zTm@zK>4!B)^3qxEsrr~FK{}_4X2fQq3G9nuU$=U6
zkEWB6>nxFsFVC_(qblOny3(j}GtnygZT>X)quy!f04NdbI9D5qWq2UX_gy<OF|bXA
zSVMRk=j2@vwpO_Fa}Jj<R(OkwH|{U{JNT{;GQ17N14@PJ=}7JGw<wosIaF3ywQlYE
zNfz50cr#50W15SU*rXGOy57K)nQ~#t=)U=ADr^1J{Do;fiw9KcnAUqAJg;~K)h^8r
z6Ra`)KCUWQ6yX(Dh#yZL+f&Au1r$VsI`gi)Uygr7Ved;PPHG_3WCuc!{!+6X7+7U_
zde)&XYgbLZ%u50iej5o6ctcR_h$E!^>2mY%L$A%=YbE2_e0*~d=6FIhuLqe_b$}PH
z#s@R%G#|Tl{<^eSln`d%DS_{MzS=9arEStUvQ?1Zm?`5{A$ddI!9cIW8g5c3o=rz#
z(HucX_BN8kJjh^kbC}>p<)G|*d;iABX}|vS?UJ8qq(+QC)hUBPBz)&%q!_mXYniVa
zf+Dv#sdB-{2Tcc!q^7MKI*$1gfK!nbqIsv7y{FNc8gE4xv>QD%?5%sT!8`ALVJu#`
zU;hS9q4;1be){1GIG)E<B7iIC>~UxFht)^3T{iJ0w_M{a*aTgcyfe%Db-~LIM;rg_
zetXN@j^EN?=8~+A1r`2STgiB}_hG|`%x4OQ3i~9F>t$T#EuNRH*Sj9ePL%hcG^xH^
z)P8DLF=WiDjah9<7=0m|JsKp|S>uo{Y0N&fbFCy>1ZAW#NGDmnrMz-XLlM`1Z{C55
z^DqLXJ6c^L8REW>n%`r@I56IJuQr^fx#)rdFW;F;ub6QJ;kdp3Q}L0Su={1}4#ZNj
z-^h>qNyn#C>{Ogf*>SY9qG`HCS3Fh4D>W(G*R<~yO|ucb_rqwdNAE>yZ)M+*FJ3J>
zNB%LOu<J&tFtoq_s_uGNA2XHJAKmmpX>dDvMYD8?NMRPENbNQ6ykB#&CrS&Urg8+f
z>s%i;HOKFDhU?tQYly#j?N2~yAj&eO=pkMZd|m!5z2rerF{j#c`Ss?4;BqW4S=fv`
z?&qhs{o(%k`01klaf(P`;UnfJ(cDbW1w7&S2L!K9#Rn^G>PI}CMSZFm@Gz0y2hDPN
zMdh91{pEb~Fy_;XaQV?~iVXU<vuQ(&?l&U8yim~<LLYDU>M87mU{-?`eVJb1CXXl;
z`u6R|_w7!$;<q|<D4Qrcmu8=;z+2yVKHq3^Jn3JRMtlmd3Tu;aUd(Z19T{bq=VVMr
zziU{GpB4(bOwu8~)><-p3E(@Da2p|!E2VfN?a*8WuCNd~=h#W#^D#ZgY=yFiDw4y7
z5#JQ<gIG50aWC4t%@oae$TUgU@VHG)8hiAbwf^S}nF3dS15xh?MxRwyOl76<LOb0h
zz+YI4OMP8XY>2zW%9F9~Kdn;rJM_j6xI@(VlVxAVxm0Q-)YX-iIzMF)8}MzeN0(AS
zO%leqs<j9<Gzr|dF`yJ~J}^ZUw>p&w>bAND3OolLl;7(cO4N~ERoc}aotiSK-A12s
zm{p`1hE7jJED&1;vlLqKIT4p-Z+a8k0{7OAW<5FvZ|fO&jEpabuSdRE^-#O-;Jf%%
zD$c4cU<c>As3X7g=cMGk&*&1dsxtJTESt3H5f;ph87b6+#j=VmT}6F~fC(!c|4j5C
z4abM>$45m)H2@!pT8BaRDW~F0w$b>0iICj-fpn=#Qj&qr@qT{1VvvJwic#|~Gq{d4
zK60`<o-^BD;e&kOu9Npt-^Y|qUznqdOPMSY7ZIN!;WAMiP0KEMQIzhU7POKZEyOp^
z@GGU6qfo!(vsL%(>}>17?RMeM+3U3&KZD+$?#brP(I9XmdjriYV(D=#?_|za{n^W~
zfy<fMTG@){ulK7O8X8JpQ8UM}OE{0U>{pdH%&dJ&wF*6+k-{Qt-A^|gJC?rRtwgq<
z(dcvHVtm+1noGs>ucdSk5;mZ<xk$KR0=T7=Z!&sTQ@CB67%MhF9P5HBA^q{19i;fp
zyJ+v7W9I821S0%1>;f6;bYSMuevr6c(JHhZG&C{sl=j`a@5L|Su;y=P$9p}3CRMl&
z<8o6YF}v?c?UxnyhtxEhwY+vFrLjSEiW=kYGMT}{ubAIX1s?(Xm05l?-uo@e^X^#I
zFkN`BIs8R?_jzFE6Zg<Wa1^}MrTzJ-cJ%WF#r7S-%;Dicv$VrN#uwY3xJ*vYr$$EO
zmqh{yxWl!zwTZN}v@4hb^~99^k75qJeaFAjNHJDtKYnsOi0WgJdGYfIxUpFj<5Jl!
z=~&w@dHPgayT5N{X2xtW9d)ngdf?CZ#iZlGFvW_ZqNPJ%3->nU@$L+;>#U2jv%P!$
z_|s+d`QfbZZzOz>_WJS7%)R*+c?1kjS{*mGYL`%6vW+2eA3@kJvyTNG%P>YgU%0H~
zISMW@EFD#MsVRp!HCrA5Q1WH>Xxn*7D>YZ;dq&*pZ=Cm=y;W=9KSNl_k0(70N)v3D
z`oT{4GAXG*`jb(2t}!<k&nqDz(P-s6Ze-R4n@pdsb&%Sq=@qhKQwlwM^&pDoqt~=u
zsv9iRYLWAT*u(k8L&Lnzarn{4(H=W9soK|-+07I6uD$f*$hE6xuA+8F^Zpk$4Gm&0
z9{?~$G4krjv*Ko4D(Csn<(EuJDzvVSj`RDGwt)PSbGD5$6%!Gzm7@FGzADYr(5<4w
z!^2YG#}GNyE8NlM@9TSz1!#DZpefYsgTsXLp#Y10PIsx%4jWWBiVZv%H<q#lq*>KW
z5n!#lAf0B1obB{jiQ0C@x?NT}BfyGvGEe4#d&Yjp@2H!7TrlZ)IXWY7=_B<Itj+Aq
zj3O4mnD4yrq?^}P^YYeSzenia>q*OCw^oPjki$IR^$DZx)@}51X7E;X>O2q^O1;R>
zFM1m|3VsF6$IGsLQWfqv+s%Mpmd1H2uYIl^NUO(3u~%pwW#s$0;36soF&6&w5{Dlh
zvZhG~lU7Q1=NG>>EX)OOw~tze9E@Mj3L_m?HrCf0X=h09)a(t&ZLjZ41}wA%9{A6B
z^_=d7oF7a!_GTz52u-$pTy75Rn0H+_ZTR&;A=s}A09!+sH(-djecEl!&H=#E$`9gB
zBN?~i<#%y1-b=1>{#$dLMa6>+XRqAt*5djOZp^wM|D;zF*xFu?tPw-CI<;;#n6)Fm
zywt%SHY^0KceJ1F_D+(Pq&ir=zmPK{@jqgOL+NoP#aV3VuFG<5Y15AyRyjk7_?>tq
z5|O?u8m=UetYOsH*f=RJAz_paXyY9x{o@Z?zbWfzh0F2;Oh;zO;k0nU?6+(F-K-96
zCKeXwr06fZzj|Gc=DY_-m;2Kj&CJYZQLh<!6)EMbfxssTo^z#cy@j)g++Yg(y!%gE
zgNw92?pE>{6rGiomzO&O;KrhNy4i~v<!-wMb(k%=oc_jVi5h2!Pi>;E;&Cp~e%p0j
z+uPgw05Iwq$>r=f<8lh4i9g=`rd{(&uZC5rInS;M^F2pr=Taf=p_+1+>6BY(ht;n5
z^vWo}x`*GayQ0pKC;O{dooM}vU(;@l^G|(^JpAp<;P<Q+za{coZOP`k&XLV)Lt&S-
z-f}1e?Eso#FLo112${7{`B&X)zVUbf=(4Z{+XDo#$Lf%=qh-%NU4#YTwXooi4cRuW
zw)y(n&CM-aw@|-lY;v+Oo=w7e-ZoyrZ#G64ExkFc#+kX_Ni9sH-Iyq|m27OuT4VF|
zjrHn|L9x!feP<+<aD`?2$)6>_pXweu@g4Zm($3Siii!#alF6@BH-*Q&2QAp3_40JB
zbV;|~-*oQ35a@tg8!wBV1fDjSDd(U5`zio%2Q6FM#VCLs4!`kc&mn*S2s}+ObD!?0
zuHHE}Shh3s0H|;#8(0}HXwl+>$y1G?Xd`q|w{BH+T`t>e@18Cil!{kTa;*JrNoWqR
zt)Q`7v$OO@Rae~ag&kpEnT)T^j*ab;mY<=2@fH1z$TrvM8gK>U_ihlyM1e``_UF`v
z{<i)A-*0Kd`D$Ufx2Ij4B*M{hhW9|$^h}zh+YF~r%SxUtJ3G5eim;X9nJwq()OX~b
zj&2wbGJ-5(_I)(~187xNRFKA3hVv^y#F12VoiV`3n-LVWErk^o?wfwIZbu}&q>qc2
zWq!UZEPGl$bEBQ}2%yA_qrYy&BijI8EQ;m`y0aZx1rJ$y;IbGmxbbn_?5R{?nxE1M
z-e1gP)IHG7H+TI$dh#6LR!h(A_M<IxE31o`>wZ)CH6X>EWdVflG5v_$t*)w~Vk>2J
zw0L`bXsGI%B5_71L)vTHtLJ(nV!gaEG-T|Pp4iCg>5Foybk~}19lTl}Jcobht;A7X
zrSplClaoWD3-aRpDE{qairdM4lldNqMbdQ&zFOqk`<`PGpfCxWKmRDJQQ)bK0)XHy
z;j=O%!EA-xi7~be{8gTP_LDdMTcdpQ%z)u|O@-4IIW|;kuYq_3uV9sMHnd&Z-}%i9
z^7efnQb=_=pFGbuogZg^jS>A6pZ=R@j+e79UIW%xX)Meb{5y@0XbR8&)=qd<ul3cP
z$=xF!MczQc^3qa`=hqux0wrn<K;n@|zKYiOuz>@0SoSnDg}X#a^dF^{fVw_}2BDt7
zFoYe5JmBGoysf_W?#P_>?~!ClhqNRxA5>q9H%$;yPAIS`O^T?}xpnbH5BlBc4{r5e
zPxzD`q+J@LN7FrT1ttd!E6$9y={dL6Lo^D{c>Kr+h^(DT$Y5&8)!!pdeXFraA+-Q$
zLjASHC`bpWD7Bo8&%W=|{o;v<i4222$=Ml$(W^q1-WH;>NroKlzd*&d;a1Ed^V{L4
zFJe!xiIh4rsm~i48_TUOV`qa~=l%HyoQeA}z0&x(XRT0*sxj(=6c9SO6C%wt-y)~O
zAG5~)sX}NVs(4M~m^Pw-qa+D*=#NP#2rbk{KRA^`sOxv=tK<E&v%HLx%P*-Xe9zGj
z!dP7Yh}3^p`i{Fqi~lxiaLeY*&8|cxq2L~HH()obe{VMgNHZY`1QfUhWGtBfu)6(U
zCjK`|$9OE1`&e)+2w}vPDw=?6O^hG15f%yDOcsUvs3Wo^NJKb0iVs7B01>W<$TW{|
ztMj8ZR>4@%22I;X(KC9SB(4&p_T3_hTfI=9PXSkr>AbdhRc#UQo){o@WsJM+%BPY`
zQ<T6^A(6Xe@KX{9O%`ywr5@a`EJxt40uk+PlGPIoA;~rHCfcTZEwtnm^eO>%QnMvI
zNB71Vg2oe08cpBK9zO=JznRK9d96W(Ycd)x=e<lm&?o9nLqNc1lgHG?#^9!gO75<j
z)iW+>9iE=EGxeMlDObw058%lxnCWZOXDz7JP|o=pnJB`kjrzIC{HOQ*au>K7udmJ?
z1OAn!O&hDr6j#d>4mf`ca<>r}N^`4!H3T#oMWx9v!jj790Ken{elZA_?PPxGDy5!q
zlB98|(PcNbwba$<ae^U5@(46*;VUumyZ$R~bvu1NFw&2C(c`WrQv!FgdLbFmXPmzQ
z|3^;vFZk;}S?Zi9bi*Es^ZeVDbVNo^rJ=O{<;q5wCAlA%EnF9*iCRRZQsDtPvh@J<
z*u&%LRakIpm;+2Mra0Us+~AU<gM5`ioEKxb|74|>x<0)t*@op$$qU*(!58VbjrhQA
zw+N3mNJw1H%7qd{j86ci2IBlC>VB=NrI=hJ;Z1%En$$$!s?$_z-P<2i6I@;H<Tn1J
zLy=^-mr!_mHNX7@fMAk@=S@P)3P}{hnRl@szI@4bd3q(KUo<kLH=!W%?Tl?>c>dvn
zEkbn0^k_jNrSHV7a6@0vq>zkojIlzo4xdYfe;d9yg=TB!-BC}_DAb1pkXPLmN%KTZ
z<xMr6GL$?9SfDfsq+^!g0|xB>pmNq;2#EZD1O5NRlz$V^e|u^26-+Rw7@V$l6c5@W
z8vr>c@@pg%=mR03NJW$x0?k3sq&zPX7!mh8tzQ%ZL4Zsism*{OX-vT8FmZ;?011M$
z2)wBd<#z~+8xY;<!YEC&jx3b8Z{Wfw;RVi~)oiZr%k!!(>AH8H29pyB_75n|J4y{p
zOHF7SiUMpx4ffz~#<RwZX|BoarW;9&w_Yi02mU!^Gog?f<Z-2}ADsi(ji!qKBusnX
z-)+B<oaGrp?t<*<GK)Xm&_w=PP=_@;yj1S_OaVNe|7irTyre&$b?W_Q*RYlDTbEBe
zQ*0@i%D&jz_fG>IbRmtAQHg<H6Jbs;W_;mHNwF>n9}#xUO5w?y%z*I+ErS|C+0ZQT
zW#|^UB9*)eLhf!jvv=$)_>L*)K$5n8ynNREN!?`;-|_KsRhQ4o?BnpqOx~<0Ls9m`
zli1R=!!PM>`gKbbm)R#Q>$*?gX-vbALRD~pL|Chs32r&piMKs1|EC?Hmg>@LGVaER
z0Pz72-Gl-~03p(;OzO-x)b;rczw<Z(;mh=2CCmRi#2iD2&k+wlu1T}97#9VqCnPl?
z!SZAQ^h9b;$|uI1vi2Zha2PC(j3U|765wqiE08W!k^)U}jp8#|1<Y^rhnIo`gETeq
z+7RWLK$@`;)zWQs{XFMZmTX8C6d1a5<Vv00M#vB>5VAw&1*WFqyr>H@G|e>)O1yS{
z;6)Bf@-l1yh);1s^ntL!S_ehkwVm`eaDD65^<b~kLObQXnqNK8+BYKzau(?qf7*>p
zjPvSSj9SJX>X(<-Z<ep4JKVp1clzq6o19+;svtiE4^a3)gkW2-QQ4Q}K^s;tTb@Gw
zA2w=-3tu5NVO1Ml<G_!~!<_UljL2uVCC_1IPmD4^Sz*`+!ODgG-nVZ?OkRDeD4(`J
z<y(&Bln))vt2<ht_6`VK(`^*cur0lFEO|SOIe?icAVN;0^MqDGOfH#U+A#ic0$QM`
zxYLCMa!@)_0oN1W`&Y;7<}wbST#Z0fDz`cluN8_^jp}J+Dv2|EKl7fu#Q3j9svve;
z3~N^$)K9=dCV~3^ejJ49fE<2j@slEmM**C?e%lHjV4&Fay7@YbRm%&Y$l%;1CzMBG
zFS^4#Jo$4S1k@8I9-y^{m?3ZomMrULM)I03F0oKp6F8v|v;s+i6T_=9k1z~~`!a75
zxJxQ~nK4EfcZ?7Q73(#s`Sd+N`^sn#Ns>T?D~|M50&cqr9IRR0GSByS`{)cviT%s}
z%6?mo5tq8YQlc<Q7+S<oK_xG~$n(z!Pd;3Pf4}FxH<ENqUH{^pFshN?49F=5V#kvA
zf!!EZ`B9BvH2ECeJeHBgWaJH?0t`^07?mF06P}oFT}D-01mx#+E-R3grZi}M(8ru<
zH4wM2&kO*`DpeTOLl@KrDp~Q+cIpMh3Hyr~BL%%+I>+irOYQ4nv~O1cC6%HucJN&h
z=!pJuCmWeO_2-)zoTdrf<<UrR+g0gzo_w9vm{yG3uR8$4p#cbUs%~kI`Co00<41_$
z`d2On!Mv)A?qpj<wo1SRuiX+Ig2|_9$L??D1Bs`AVa$sIpCgRA0HbNlFC&?yCD?d?
z{PeyOCV#89Dx1E7(cBeFRuM<ahPcAS9~~({&)A9T;7uAXa~09_>U9IeYg!)j{k#uX
zp?72EinvQ2?~;2;dVqSs#aEi+n8UTH(sR;LzSUlCkr9|n)x5cAS4A@U=~0NL(^yV8
zcIw4nIbuDR*@nzx51-aIjFVh`r6~=1ILkD!Y^o=`5w-$3#FcSnTwnjlFt#JnNk4f(
zZmv8vc5cxbisi!?kvHsl`t&ZbAjX1>p52sq5==Twr&U615c2AzJd7CCF0e7LLY>}o
z-@ai5ssvN~xzz}UL$ZbMU%vpMm8bgJjKwz|;@ni|tgK!JY9u6mK!VLh-&3)GK#YpN
z-v!u;5$dBj<cSPb7`iqO_}06n72b4hVmOc!KyQc+8l;%gS;349e*X_FF;{VtyOSS6
zAAwHk2H@?~BI16)Y1({JC9F-f>Mp_Dbt)bhudDF`$l>@t2~}hZ;If^%i*e92jsuYT
z06;1`SLEVlFv;?t!Ql2%kt2YtDZz91Z6=i(@3vV~3n0ZPfUs5!S*J{r6eI;i{ap`0
zScrwOlGqFdk-?LP3wcy<#=8PkuY&;Cvu~blta#ymIsylb$uZpOBS8ShCLu6z7*7U_
z4fpS{NLQgjhJW)of!j&p7d0-ODiucN2rEV9qtZ3Z0bN2Y(fK*WbQQy=f(SZ-K-DGU
zL)JAQ@^pd7a|wr1Dcxt&Bt9GY-(c*3xY7#5xdTfc?`}dv;VkAADu4>QfC|YN-Ect^
zErB5tsCl)4D96ThUr6*e^=lgZZH@*I2Uq~w!0#;x1RVRc<bC13rZ6j+OF*0`t*+V7
zfU*Sw{}GFaU|y#yc=<6S%mbp>9d&)q#4=bLHQp4%NVyyqhs}QSQg-Pp2}>V9Jq7(h
z)&|}%{D-$)0VYE^RiB3SHo>cO->**z9A3aF9dJPcEn#B#KQ?rkh6dEazsYoOUTRzD
zIvIo0uo`-+Xloy=*wjy2s+!p@wy>j$Z0e`su9Aqy=fhuJMaE}HDlXo8*>9%pJK0Lt
z*L6!ugdCY|?$69Vo0=H&39g<ou&yB|knAe+YC|Y<vkz&iJi_BGw72@lx54WZ`9cR?
zUD1;k=k3%y?uMTai{^Jnf_3Fvf9hi9em`eJ?nR|S1qXUG&giS-=a6~Xg%5#~8xyzt
z<(Tu^FI6852{tyl&V7Mh-OQk=JhxebK%36^oj3{Hoxah=3>E04r<&4&_FR^4-KP!d
z4+S-!(N<Ktkv8ssJ$-$;P1^O_V;mIXGYvjh?V2zvdbD{^{e#R?liH)Nt&Bz6DCxw@
zHcbt<m`6@vZ=9dj|J-2M1T+QgsKoq>?S2-22%&yA1t3Z%BMne?mcyK|*Jw3&Nj%?-
z&Kbi!B+wG-cu)d;=E=4HKiNN-0~7Oi&#M1Py9M=Ey|Q)+o*g_IE{Q9%EB|MaN`iPQ
z5z=Gv#n5<Axn1QyuX4c8Kp)7EFvqy4MzFtce&&Pl(HF6^EJSbJH?swyIKgqF@!6xF
z)zfu_Gn4%QTTuj*nYi(|jeda&m*<@f*)%jG`e$lQ@zpjBeCo-0K&eMdU_wAdsGC><
za$uYCbP9^;gAiH;K6ho`gP$FtFP8g*cc)y@2OI0X?tyN2>60fQW4(~S&S6NOA4A~j
zLv9~zriTE2U3YL6I7!jx1bTst!)sN{)?wR$7?isrn${%Q)|^qKfLGP%eraxl^cTnz
zGlOJ)Q(LBj+=eI{1>FOQ<WOV|cX_r3HG+~WNKk}vN(gTXB=pxBG`Kodq8QMfbN=#E
z1m*z$?ehEI9_;)dx-Otnw?#ow*2Cu(;nd;h3H*Qy^nZ6La0Caz3KIjgM#3mnOni8L
z0>9Sp68^U<nJ{sf^~fxO3PJ!lzlYC(&v;6H0ID<qXr#ih4`0Nf{19FnBo6WhZ)s1R
zIIsM0rTseP66UGr5xG#yspt7z+FzYLzx<GJyZf}>_37tBZeO4`APH895_EhnT$F*b
z93)bV@e5@J`c?{-@li;jC1Qva9P5HUk523XD(_7A>A4(m^OZ6gby1*kC9Y$rs!vC4
zE;ykX77IWv!(R?G>%wH{RNJ}hn3j7JH`VpO8EL?!IlGJ##+LV^eoqnx|KCg!{-xp=
zrEv)tgkVMlq<EbsH(micw=w{haySK?EbcmPBX$R#+<p_d`Ux2K+{8jj&;ZCMs6EIa
zycT6BHN&b#x##Lf_OwFn?QgaQn!!-a`{9dz%r~IoI>4m14iDI46lJ>IsQXr}Lx3el
zz!KZYkdEHGQ$CzL?gfrnSv!1Fp7kI0++(<{&YuOe5of-NO;~1}3W6iqpqN`-Rgdq>
z;WbaEI4>-i?Yjw(uWlRjfoX=)9Ol;kuF_Zy^?_l_n8&}Q@_%_G^B?Z2>_LUI1>T_p
zW?yT9V5G|kIWTe1s#j;GlcD|eO)OM7d~<{LT9)lx1IBxv?{}LCz&Gm>66$C+=w}Hr
z^^QH2uJTiuP311R1I%T>72m|RN+GiWQZ071G9smBOhEg26F^Wv5c8rg|Nk6W5T-3+
zJIV!qPd9jg9u7!>cmE4f_1|6kB;5xrYKyW(wWIVf_i$b~9Yp9$UqDbFVA8U{_<@>+
z!W~ou5<`J8-k6_1HGugNk-rdzgjR_W?7InSs9978gp<!-59t3j03?_otmC|5@^@ZI
zUz6tTX`&6c@~;&F0R><A++uh!cI%sM?X!uRip!2#SgTYGLD|#n3rlk=gL(bf!^uK@
ziE_6#M)t9@jot1w8=<ber4$`AT~mWikB~F`G`q3!Fwiiuo6W+&cWojT(sy>x#v3~t
zi1Rje@S!y4?K&6R>D{Gzxv-NX)!?`k0W&k$XLYRA>|6`3V<5~`&%&a=#ikBBG9rnv
z(BwzcXorQ^==r`+%^j7U&T<Z0&$c>0d2+)j_RwrnoEEYWLu<M-QMqM#IM5zuZWeo}
zu9xiW7IIhdQ{eROL|9hf{o$;9-@6NC(1prIxA_+TC3CO-&eEBg37fiX(?)m1Y)b=i
z*>-V+m-If!W2@s$15J6Eu~heVV`GC5Y55~F4ZrE>+cH3x(W5f`61&Rzv$ESBXKPza
zd3`zM?L`WUzEAN&(9lOy@C*{75+Vr+g&>7<|E>$2Q66+?u0qt(ipMQNxnmnpuRSsv
zA%8A<h2<e7KG{O+?!We$>6lyyr{imP2YXg*!mq<$HAcoCki8-_L_WN;VHnI$z{81r
zmcA+e$#Mwhu-eO_{ZaA_t8==F_;c@0@^wz=;avwW@-=7Hio(6q90uXEh4Fj)QAgfr
zyA|5)<%)@e1w!c4kC{{%<6p%kFfR~^BdMderc>}#I75|9GmvID{+D2xrUd2}=5Y?&
z2eLXygjmttpAs4>TnE`OSB)mum8D2{@!MWAd&^e>U51GG-PEU5DwFxd{p7>YEoauC
zuG8ir-*$cMpay2ur~RH5grpZ`8pQ9-`iO3!ZM@pr7{Z%e`-vlsd?Q8l^SjAU`p?Uh
zwj40Ly@r~)c0yf-oxwR$-;QJrPfle7+iBVl&NEyrwzapHg^c_aUQdh~Q{F{-ytm}l
zueNr>SW=CRT!)5dh8rge6-2j`hTZCfjU?KYeL8(1*wwCli@=LeX^vSds<4a()Q%H=
z;DJ;+it@E!$|>`(J@|>uFrumv?9#;SME2ibMA=~!>?+FSN-41)1_$p|NFi+pj4zxb
z;eA&;AIbo`AbUYvl!u@+O3td}Pi24G)3tZVY+>-#=k<2{xw%L%rqGwtlf8;(Ri(wr
z3g_4v-9H#!7Eb>9X%d!6S&R@-K)sraJQxHyQ|0<nCAZ2nmQChldV+?0F~#4F45fVQ
zX@Gq)+*pHpPn#P*udCXEQYWNPoV*qf;Q|mvO=-tP159){jIsPq<2GGfj(p}o`gBl?
z%9<`%6U7OMPARF_S{ZN|(lM#z*XHVdvbw!&-aC}OFqn+4U`_^`%d$hwz!zFA?>MB%
zSX4}u6v;Q>XI#T?YSL8#;&gNUqdd?jF5$u;Xx=G1c$w~UMG3csU{^_GNP-bY2Xg^}
zC)HvgS86zn0N-Hm0Ur7-WGP(_Luh=;8+SoWn7x*_B3@gsWLL0@rSm(Ma_%AVx^-a*
z@7VmKWvoM}Je$>DE=dIyYp@SA^4e1c($vyLeG-0!@9d`FAGD{API(cNyD3wJDk)(8
z)APB10M~dusIVjZ_P-W8|Lz?b{$X>337qp(6{qAK%MO{N7Kg&X2bj#^^ZX#`ju+n>
zT|>Ssqau36D`!#f?b1?DP-_L$?^*~qh8X6T7(3lAVx6)ek9>!9HiO2VJXk)`K!#?+
zI4CGo>qD;w@U&c{AAE4&>NTV}PASi@Peq_5Fm{*+s_s&$cTtt8PL^v>8iY{`7_)#;
zM#vKcfi&D&?ZgAt>@_h!hR#AR$n=NL-6*+IzV9|=4diDeq-~!d?|-*bQmL#fCv$Vy
zyXgtR_oi|m1cib9`dK8C=sffDPj@V5cQBffbRSiEQu~ZorpOf1h89nr#0AEIwqQ>o
zQjDD>>gt`<W9|4g$Nc<Mjt-?uCfdZ^cYgeyt{b5hL1MvqT`05gZpXQTsitO(Lmqw`
zj0KlYcu#}2;!<oS2yzImM`qqs=>ZpD0ocIXwKHwQWgivcD>;{&cuWUUQ4ef4&2<76
zO!JR7C%^9R1S*lYy|;Z<2|Zk~ZddrofndW^=L0fNL!=eXfJwOnWv=KOg0(^t-Sb40
zV4l+mxQ#EjxJErI5O|ZW&YX7RG36`a=drrcWAzxtYOmCuwVOe%@~Dn$_1eq_-OFHt
zxF-W18m6goBlfM}tajx2U<68S<(j;LMMIsl%AJ9J7Sbg`tz*`M@J7_L$n%`~$c1ID
z;W{|z;yNuB6hJejI5A-^3qu-@c0l^bD3(ohh`9B+%%I?V3Yb(><<AoJpzQRVakKVr
zSj0{8&)^BjX5_-~di72s)v41F`NFs1tw)g@yPJCK!XTx712wr!DKGnl!Q!%@(Qby9
zKbQ4pD<N2D+#lNBqC;2eeHBDRHRa|3+5B*ND!Ksy-A$T#ffbNY?G-RubESWQY(t&$
zGnJl2dE~;;D~uQG-eV<?S6XmSdi-&(-RP&Kt%+8}QQ>0S-q@s6@aF|*Z^fp{T??F#
z%HYamB<hXFn{!b-R2-`~@RqW@ziD~0Y-FybRLYGz*MaQ_k|~v28GDX>co<R&hybNh
zK=Y{R2Hwn-VoR05-mX3sj0_<z=FPHo4&wze*;JL*lCN|+1avn+9(!LnUT_^$4DNTS
z+jF)AaY0Smhv{&OND-hee>COcFK=ySj@(=Oxe~fW`m^aaMu)YlVcn~+DsJGEs>eQd
z(AZ<9MnJ-ix^24Ow58US9T<75F=lOtM=r}vqJJS5Zo4{jYE3oDy(45GMQvM3-F2|z
z;qDh|E99x8WVq&gg9hzMfVu@~RTq2lk=j);V%;9vQ^wC85Ix<wHd-~!z}J+e6Hac_
zm_3xn@XWK%rya}|AMwf_GP+YB%h?Z#1i2$emh;mjp=fpDxtG6>!!!j0T3-B7{dLgB
zNdIx6;0=MUWh#X|eq6qfqRFbSY*5oHEvrA|@>+UV#Udjb3WQiOYqVK6BS&pI-&d#7
z$FU5E#}mYI8uOf@AyUt^Mztv0w;6(lr#Ijks#8b)GI-^(ELjC-7YY2z&-K=4!jYg1
znrk{!0;ka{7v`tcdwf3ADG+1&py?PY*dON}@TF8g5w3^KbU{B>^J7NQs?y)(Laz82
zk23$z>%98vMaX~~d`@-BP!Kp1^%M9d$2g&tAoKe5zazAN;m@^kl2Qn?Zj66t5&8SS
O+^DPSJgiVby!;<h`c!WK

literal 12882
zcmc(G2T)V()@}+N5fP9MDj)&^D!l{*MFa$tDjifhq4$ymiC_bj-g}V_(tCstQ0cvf
z1W`aB5Tu2gyE$d%+%x~2nLBsp{0zyS*|Xoa*0Y}VtoPk{{YY1XfsT_71OhQ=KDeh3
z0)g>o9~vs)PUu)$JaD0Us;zMkxB`C%cbk#Gh1TPNsW%8jfAQ=C9>F4xL7>YZ&3meb
z0ciwmU>vtyYvfj;!?omxx34JDUO^K+Q{04H`8;3w>arpo<m%fSK}L6;kJHe-;=V&E
zbp>_#`sK@SY1mpy>6WY>-J_+waN!(U5WRjS*naJ($Gm^crztq-8q5GDIk=prENN+U
zGEq@nay0Ai>&yBeMnLob_kS#KfN~Y(@U%1IRYYig6ufrdlP7;}^`ln#)!z_-T64-F
z(I&g+8}+-j*!dpcIIj{7k;dXY`VWTsM}n59ydR|B`dI7)#uC%9;zwT@Iw3_3(SwSj
z8ZrHtucb~ISJp3{(0V+U!ct=>G2Iv*Ob=!aljt>8#b;Z;dK-V&hVEu5L+@kSW6%>&
z3w>JV@>ZiC_EPov&%02osF^0p2er3P>T{j=200OMspF-U)BfQT1sgFUl?P>|swm;^
zlX_pw?<(8G`<=XfDRoJ^*o@t)nj&iM9jV83HlPLQ@&mkA7E-EzA0<V+`G~=l3044R
z=W$sh=lq_4q=N3|968z0F7$`KovI`~8+;vs<sPq*zanLPpTM%n_Lz(DzONfw>Lj_V
z;K*Cb^(ohc>fYiZXf)@j3oU_p^#lgZu{FZ1I!+D9^BPd5U5rA)T$HDK!9-)Jbr)b(
z8l9(#GNnnomg_+u1!_ATJGi!-ZL}w_iw4@>jv)#%$4ib=tyQ+kpf*VvS6iv|l&Q)l
z$0^(46GT;@D|hNfo8#2`H&3DixD>l0RJ7K>b2AEG5pz+P?JDwHTHL$koE{!FEDqMx
zo^?lY%kC}GQJ4i&*cD+%?NPPXJhgk(mt9uD*TFkX8qJGs54*4SfLntGUG{Xejqixe
zH;n7_t~t2BPJZuwPFn*hn%lk=*rL6?G1=#~>RBd6apkht_`&{F-dSMKJq9(8Q%0g#
zN@5|qi8`{K`2+@&Q5qeXKwIq|p?8V5`l&9-XR1lFHn+_-S>?q@qQ=w5ncGI2UlJ`Z
zV|XzzjA~6tuFmp-in&2Fnd@2SXI#tTe&hwe(7ou0LeyQlKGDRdYkiJzp6BMAC$J0b
zqunzZ0;RE*VPueQbOes|gy+uGc!<K4xe{SzpT!?*Qb%`2o=*CkPrfzuqN;3at`DnV
zo<F7r8RRZBGy6H&yIwp}sZQM=zSu{`Rgvpm9Jt(jPWf1mkcl!%$~a&_lK6{ijHl{0
zqcUTSmq<oC<lM(xgHS&8&bopF*s^B_^(!X0qsq2wp}XtURH@U<=eF6;|6JI`XewT<
zm6Ot|J0X|X-7IwF-dw^z?by_ny~fQxcF#!{Ql;d~Wpl9~))t1@LR*=*7+(l-2H}Ku
z4o}19n!i@p)}8+>&D3VnntZ`W0^0dDNw1q>7zfX3H|gqb<v2oWba+_|N7QA$JLOdk
z*qk{pC+Cv#FN>{aMQ7$%K>LKaDa};__y>+HmNd|pxtMfRct|{z9Ad#4Ym0OpZvFWf
z?vDKof2NKfFR#v$jK>C+b7gd|9{*J+-BlXy>V!|l@T2i5_qUqgI1J4#!t>;%uH4vf
zLq9@Bdt{Bfzj0+#tDFa~YmyNAmpj6qPQNk55lkii&Nt4IjP;4%?`HF-^e*_CZS0=W
zkp8|u`+|R(FFM@0Dfc7{J997vbqd@oeLCYtxJ9T{StvAUoZ*9n<U^OHjSL^pnGOpS
zId;+%`dCmMzg)t_?-d>h-C0|7N*Pob{|Ihr+eL&gRo@;5JJc^!EsxgW7VFeC>e5}T
z4#e+xQZD=j1geFeFWPdh)9D~Ke_o2LtB8|H@RT90O`WhTuq4vcXgqT$7|d|z5mRBw
zqhU*ba!%=f?{>hZcEd_1{o}HO0<p2~Kn#AJm0y$aSe-;z9zbUXxPsE2{0RI@FX8ck
z3ST1^``AFwydDYbtg-U7t{SVok*Qpeqi~sm*eYMZq1%gN*}tZQD}z51?x0maeIQ2=
zK;sz63eLHF3;sAy1DbZmfjVJg=5PqGHrc^eT9xrtZ8_GZPRfFQS#BG1JeqskNcPtz
zYW$-g#0_e7H4Sge(a$FNb>})YGotrEZs8AtIcF=J)?F7Va6G^3+R?>$s<xdE;S)$R
zt33bdTZ;eQ4i`8!*K?5;HZm_|eQ9&QMyYc|Qz}zCpuRLnh<X0Gia?rQ6?^lA@{~Bj
z+G9muj51nO1jan><093cftFosM8|4BccnfSGaKk@jOM#$A?D~=6S6-V^1-kQ-oxh|
zXgF(uM{(~iJA2<)kk8cERu{gU1}_#a38iVjb!xJXIQGdb6RwF;mAmqlA1&z<D#KZq
zaA77{RG=%k=K`WVtt7%fj2zY7`j8}c3muy?cV8~K#~jT_zqy<&W6gD;F8t{LgScjy
zLX5|cR~CoN^K;b9;`T%DhnQ1!r}CAOJm&ETbjFwGYVHmODgM%hU$M{u*^^<6DVo<<
z38ataHC(#wPgbRgT~*rEeZRV@H$^$0(uU4`CD|;k@+yK6<W?BSc1VS0JeOQ8$uwRW
zb3q^;V=(N+@G2o!h7-ZJ@X)Fk#p9^FzZDL5ZDw1uGMAMk7?^f?)ygMTwjD7mgIXSt
zvaEFibbm-Q1^4}`I{0gHe8(}Mjn^X^{%++~=GFC3lD8`<18v}T`oW{Iqd}8pp4CEC
zPSSMg^V{Hyb!G34oHpPNdZ`r*G;6LGS8uI@OZY<{(1cISY0$i2Me|zNn-E~bL^!R(
z9p}qCmv7@z^S@yYzR8~Oq4=2Fv>!6h|FwB7?aJ@XDl>nO+tr;oy7A_;1h%IrkL)l7
zGsI1H28(;!FTuB$y{+z(h+AB0dZ#ui!5hh$C(na6$ZwY78;!SAF>ExrXXV#+P?1b~
zoGqL%1kHj)UrjavT-9U9?AIgyE<rlja@l!%8`C(v<6Gs)#Z-QqwL<uraDQPrx)LF|
zCgPp^mC7u_$h~9y9Uc5xJX)J=Kwv$TU2VH=m)nEm3duccM)W?VZMvn}c6?gG(4Vx4
z)C&o)$(n;1)RJ!=ZwJU&Bjx^7R}(CId6Z2~rpL!xpk;a=d_F(W1im!a;(q^q$>p??
zKvO@c=^q_3tRoODA=Dzj30Bfx`4$?nWHtA&WB<jp$;`J`)Q|TzpCQ!)BvqtjTq7No
zr$;dH!!6>1JH@gCDfXgxy<u`Z+Oqe8Un4TQQdiRCXgVzc_6JS_8|vHXs^LNQeM2+e
z<6;U*(X)pso21608QFz9#CMa2z1&z&_}o=;X#*mcF7)kYJKtKkQ~2fatOnEhry?~`
zQ9?TdCd?4e8w)kL&uE&1BuCxv^|taHJP#^Uxk7>LzJVY66r~fUK1{S2U2=hTL?-sU
z`E)nt&231)E8;bh(t_e$$42danU3<lKn!A-^rfbS{pg<BhqgPtxfW!_J@O)D0gh5m
zlCz#QTgXD2CR`AmVG**Ao6HURfdf0NMok*^g;|?02PGwAi<5hIV3)9&Iy4Pt9UHS$
zYK)5Na<~0*9S?P!lx;pG5KjW`j&+9(-+o>o*rcK)6M72>X31-2)JXp0d)JOcR2yg3
zHAojKV}`gkS#^SWvm<%kRovJYUM;R$4*5z&E<RCX^psv`2zzL=JlpM7_)CzL`eK`C
zxxo5IQj$m8X6$F@Z}s#+uEy}K+zm#7(vn0PKCM4GsqO*h5)ZFvu8AoQ2^48~u+{uW
zg{uGlqjPA?27kIPpXzq4iJ+!gl2(4fwOflJiRNqNBDYY2n*A4hDI~ftYwAPJ*=WXG
zv;k?y#DSnsV)7{1F@&4&nVQqWG_UW-ODXnUZ&>4lH(U3s(v4yjtjh^mqRN}2g?be*
zA_n^YE3dN4L}^Os-t@Az=Ga(#%^m_TlN}N?^LR-9WYwgd6NWrJZfopL_ZiXLe8(y6
z3=f&AZ$Ba2B@-i6lt7gp3msOSk&NxoEO%TRy&i0LY!<oo*7`WNuCA`CuFh|K=l7_K
z%E@oNimysCxSg&Eg|p#CbrlIi4w<2Qr+YU_{)pD_q<M7EZocD%HR1hk+IFDb`_kmS
zy~>w)vZ|_X`3|X4^T_+Ij@_j`$4*>;*JEXVf4F<zbjVXX&U();PPfn-!S3$t>^vH|
zvr!pZKIr#hQ-0&yEc%ZmDy(-vW&el7JI*=LV3PJ*W5d2=$>j)PgMyY191~MhNrx-B
z?`1d@d>ljVrxMKF4)$enA=^#+^T8EC&4jw<z2cJcprV3;g5RXY_sHKfE*03{d$aCj
zTtM?dfkeTCSpA%rZ<}nr?0i7(X0k)Z!9igr;_%ClM8pZ-tmW}a486GWVb<`PD>XU9
z&bI4lvmMzPB|HDbL($RIwG{MqzlFS4-;O19GOEluZp<~3YeNqHe1FX>wBh;nN~F^0
z$6gjTWHdcoV=Xs#hVXFNGGw?be1Fb2onUidUM+$H+{)$F^t+(lF2c^8`XFO5qebVs
zipn<-^vF=wq6zy6F<pOG<9sP#oaDEX4g>3oPyc$wxY(&*WXOC6*A|*8A|k>mA}Trx
zTI_jmt>nGbC-!+c(fu%1PdQMn9dY8udHeZSy^Xe`jgO$smTlck9hvE$)ba80{w797
zSPmRz9Bkt&|9hnqJ>=o2Cvbm%E_5HupLoMm-^kQ7P|wcp7uMXZ@mC;U2vK$S3<^C_
zT>h(<%w0Wgf#H#X{nC@Jlpju}Vk&-$+YF(U8BEd?>#X+(#1oBOt-?_;U9(sh#jk*!
zCMPB)-gC=)ZDgs2bKZZ?+qzfYyb)x-I#v`Ot$esLXjd@pTHW79y{25Byd?ynb-uQ?
zR@Tticz$~{^VCQ5iGOpla%d0%0NzgRaIS{+ScP?as(AbHpIbwJ<l9aU*JR&sYNg4#
z&qqv;_WYWW@qX=|c~Dnt(aSU*a%i6lm+_pm^oPlt%uY)`Ojqz7YVcgtrEJ(}TC3|T
z?Fs3%E(Hc;$kmlAu-=0YxiuTs*75udiq3X$XZ}9O>%k>0Eu9ZoT|s%hUluo4os;u)
z-$%jH^LKut)kL%ZrqmrfJG%j_bYlT>B|9>r{bX;Jf4M)^zxxFxeGs8}vu&9hdAwyZ
z?=z}1%Z(r{=sir4`rQK<{I_Yf{rK~lKHmNBq7^%eYo*mo-6~x&GBSw9v(Q<Ll6CW&
z4_qefo@^q?Fa75O9r}7D+Cw};LqogfgEvD@1DDhN4^H-RNSD25@c=tq=ErR##vW_*
z2XFVwI&9SA5Y~{9vrrvV4W}A+2pV|Y9ACNNO%IR<<GUmo_>5n*!=SR_=;HTUtkN;D
zGZu$9A`q+tf5mSCvnc2W{C#k+oJq!#yp_&E|7fFmGxlI00~Y*nZztLFpspXXwiN5<
z4R>iwcy_q+yB5INz@DUiAIWM@d_F|FF9UY;eQU92Q0dQCe#R7e@1?qm_S3^b$<bxA
z)2I8lYt{GsKCH<r|9Hi}w7&yaYvjPdrR@8X;=Pv#;9E}aC1rJoYpL#Sfmpx*M+<CL
z0Sm7aExf+DfF#;TKQM%P+$mvQ#!H91GphF<aeA=)o?XrZZ~NP)DW|BY$ZL0XoR!VO
z<4YfZwA_y*;AuoXU@UUQa+>!*NwVMPp7g+_<O(B0!;nArmCwJ$6l48yC+`5K5Jsk^
zrd;M4JoP{l>%fwb{Vm_@f)-nYcC~u=N;<sY)EoyH{wN^UPhEce^_uML>iRH>7j_ug
zemGuHa6wVfbt$-heR=P2tpd3<?U0H6IcA_2db@2_ani5ak1+Fw$A4}sc9~?5c{rwG
z6-=l_0DzAID8OQrkyGl^6`YcBg_Y&whgrX7CcMNnqzK-P9rceG01#twXFR$Fkl^u6
zX03w+heS(1(|NO2csvklh-jgQNggj}(O#ZxK3uySSVfrYRONwo!i|HUo!U!Lzdq$g
zr_^tCbG4Jt003$L{OPZ>-6vUSSO3xFuyt={ExdJq{wOS8J27KyYKrvBM<Mi~j*iag
zQ1;!m%;1g2=CjFu8&p18Cz)7>)*=hi*FD`^ca7VD7U#dd%an2&k$Kh=9SZ;TJzhvB
zMat=^y?@X#Wun&0$v|IUUxVW+ksFhKA3kmdwr>w8%4R49{<#zt6;%WvW5=q|>lY>^
zC8c1}8X20}-Q7KQmk}lv0%X8&8|?Dl83L$)(I=_>=RAAbM2$;HKgR+a>rz)&R|_~K
z?L+JrI$pLe^`}m*jhk3w1CI#x)}|}+1Ja?{fh<S&Q(eq^Yq>#2Mn+KwGv7=)Z6kU7
zeyX!s?!<~#wEUSGFEK&>K^Qv*Y6%A`e%<Akuxe>Y1Ppl#6=vi#u@2jfQlG9*owurV
zo~pE6Yw<vyZfB}^Z8R=#WR#SBixnbo{dg;(?01%~0dsSZk_SWVO|t_X3RE^47MITR
zDTizk7di_K4GoXofF4XBAp{re+1$^c|70kK9?m_sv}^@%e=Cz)JsGxv4`;M$0FnvA
zZQNo8kh`lh0Gtj2Bs#zMGgj}?F|R8S-qy@WS5KGnVADp0)}YDUOslxi)Q}!?(YM(1
zbg)egzR;byNIpbB4`5N8E5J#UXVk+;s2)^)D?8`W`M$WMWHafu-FIF9dfI@2{Q$W4
zzE|96Xf%h{j<09mjhv4=Xp_MCRRe$_2d__6vAF};N;b{2o5O!%Y)q;vbFqgv*!5mZ
zoyDj__pelH3<?ZI=yLrsi|%VUb07XoI5K7J7Qndx5PDBfjw+gd#%NnLuNIeVDB)4i
zXyF>AgPDPZ;u7nV!<Q-+zyio$nM)$h^E6!zJ|vwn1Fv#OfTiBdHN%z+Kj}P)A6@KY
z{W_V-t$Q!%#YuBOraOp?P8;NMZyDbI+$%o2n-RS6yC&D~?XYPtF1|sR?o4`JoQ@!X
zwVe|I?crzC__AUwehQi(u={)u5MryE|1Q9GY9wu2BdKjQV^Ua^Ov3+N=?Uki4N$g%
zJ>)8>Z?ceR0_XzHIX<Wq*No9Bx6u8oiiapu$y^B`aaV%m&IiO^7>E%l`YVIF?iCit
zPI|UO&c>9bTYVJJ<oRUbrz!!Z0!Iy>usqU}Gccj7jQbJvB@&AJCRwgR<g(E+e>?lB
zU>{m!=-gbVES}lz(}b8`ZQ@5w=Q|txawiQb7XoQK!~DApSL#TtN=o}`w|<>)k#}5g
z(e+JA-K!J=m|If&C>Iomdfhe+(J{l*`f5o1oc%Z}>!OvC<D5Mq&{Z6lzPFb%Yu}H(
z0Bz7HDlg|Gua)d`SFaV$)^e0D=1*So?g%vSr#xp<L@$yEY6FoZJq&!vFdMZUavPd>
z<Gw;ut*?cua8^#-5#4vY_HYGDbvhBPnp;M3y-eIOGx-*f0O3l>o9`-n1Fc*w+IY(Z
zG%bxADLlGg0Gq7>MUoB7+JDo$F#>`ZP=bIkn5t4hllCUy7%dd|#{Vdf{~M29F9gjq
zkf<u1e8@C-1pZ-`NKuY}<|@svi<m-CJC$=-B#I2tg}Q;Rf!G91QUo;fO~hfnuQ3j&
zd`uLEPK~{SB7@o<oX9#n5Qcdj*bS#ss-KVd(~;(P4#Leg=j6B-ahAF`o9zs*Ha(Nv
z*O)N0eq{7fq0*25?XzsOe+p}P@?EC65zNJ~8SI}~{AN{O`iTin%3<KxNGP!w7XKG<
zH9H&`Tl{IosF-RrD$2dgvgT)MzO!DJa3YBJ{Ehdg)~qL%%qL~g2$tyqYt-bQcZ%me
zxtjP|T9b!Qiv62?>*0~{#b5X{Lwym)2s;tqzSdxPy*9jJr1VE5&ibq1DDHrT%ESB|
z)^;r{vvJ`wHX@<;3$*=kY)-#6KZau(Ia{Vueelhi*P@up`rym^dT}Fj5vxWDVko8&
z*bh%cIiWEj>~f%hoUeWpAikd*^)%O~xeQE33v+TjpX+SK)J~RM9gl;#=BCW=NIV8H
zu3Czx+E0$u>lrO}cWT$=h8GvV@y&1$tSHvYELgoF*lVp{q?Nf$5!dUFSq2A#-Jz+V
zV2}z$3JM2V7W#(|u<z{9xfzRoR8;pDkA1Fbt{Q(AL~Wa<_<&;se9>Ohlwz9t@1Oo_
zvGw0T(|>?-oHi(v&Na@537B7k7cD*&C5vhYYd}I{#57{^qK)Exz_;$AJTdiQ)Tr4o
zVT{ye%jaCdkjQ0@da;|&U@q$y!kvrvN_C7f^uNoPNJ}Yw{#3rTpkJ3<*?)hxtnE5w
z5r7;<iO?En0s{b#n3<e3NCP+kOrj(D;xFKhZCE^{iPcwU0{ESU5(gnJ6YYH?Yw6{3
zKT~JlDZvx3oM?~CQ<qG5{T8i`^sNT*24n7r>nXWa+m7cu6H5lkE)bw})w(B7=`p8;
zZ(EU}ldJmLBlgCv(UtC;C3!@l+xX<@wws3&B*3P^E7WXq@DrjnRjW1{q~En^`Y|s?
zG;tF}e*kK@{rjqbrbs?uff#~uoIsK2^+b@LNfuCS1AtBdE@wsa|0*T?ixUA%8DLhX
z$UUI<>h-xfwt(-rj5OIU$nynU3ScB%BdX)|FEd!2J4fyI;FHYXG6RHkgpnR5Gl$*6
zyjeMALm>?;K<_E{`X$|jY$k%nKDoKskgW;}MD#ng#;ptt3>JHOx!gd;@x}dlMtg+d
zC&iz=n)U0ZD?<+4!{mpt!$v1Z$i_HAAs3f}RJqyilO=>Yt_}C;Qz`eO&m2<HW3r_d
zp|D5PkBkhe6^)FTwI-B@D((9h$0qe8>{7MP;?xCmU5zn7`Vk-3B+ZWS=XATrT#c@3
zJCKiFMTE(t@0mJtcAfgQ``fs_W0L#mrDLXmRzvu;vf_e4y*fF<UvTZ+{GlASLg_y8
z_LwOKI-Es&cb^^kD~m_PC`MjtT=wSCKyYCXv;k<qYMz1kf!D8LB%X#cidk+AH1A&w
zef4Q3YcK6%BsVdC)%LFT$mw@~oWuO+VDyt_k1csYr$=_V77&smCKqE8Mjw_M#>ecZ
zsz-q^d#+fWYcAf38fm#YCN@51SPlyz>u62PhwHW0?*S8yD{b|<^?cIvgNP2K!m{#{
z6JnxrMod<ZaoRU=gu=s;r+TxczN@mhP1+@Ly-8a*h1zD`V6b!{J)x5-8XMM@s}Y}f
zQj7>q-ruPfbkhC>q%aa6<~17I7ksZ%7ovQbVymBaTu@U#5`ZXG()o4Gm7)odOKz%w
zCRP`SgZnVCc0gSe%?c;tz}himxh!;egRmGL;p=CDf)3dB&7?lzkYoR}5%&g2DPTHE
z;&U5;1tGOaCd9K~$x3h0_pt(+WsYJGMlt6)eqX5v?@^!9-k=!hvZ@l$B#fAWOu$DV
zM&^O>5W$-?Q=BV|O7mg0nlWQ=pmRPbaOQeHiN^K(9OQ=J4oZR_T`i#LoU7IjMesJH
zbqIA{@4+!?#~AL>QLd0#wn*LjtXDPl_4FOtc4RQ$Ogp2Yek%=Lz`Qu<c2P);?Uziq
zc`2+qE+hyzwX&>&-#^7#_UT|&qD29A%E*2M!fBFD+>e{m3YmktV+5RFEHjj$Ohh0H
z;MF@gD(#`vJ|U(+c(}iW1W4Zmvx8k}Zh)5j?mq_Z`M-q7QLaPQDR#bd%I0^9078lS
zItxaHLYeyb;*$~iUk_r&Bmv`Xg1Epg3PqPRV}jnPX{Zja)`$S}vjyz-3nS1W9d_h^
z70?_Bx?V$nIOBL6Cf^O8x%JPsVv1#SK)WQh<}AQt)J|fkdN2YscM*%@S;1zr0#<_p
zBMd_8p@Y!E`<=!Yb#;U_V<zrqgW94!KogmcZ6YJ07!DrGIKaD>*&trsl`TkKZhJhB
zd9;8g?Cd!nlJgFdd0}oy16=Rxp#!=bRsj;aAWm^bQ@>vSI!XxA1Kxy$q7uWZQQC@G
z(InG)KhQk2AGBLzo9si~XAqP37t0|Jk<$jL#^^&)Ns~0H>I)q6ksXFZGT(0C&Rgin
zT`!e32QB`2H_MQOn}-MjJgEi_VL1r?y6=BSj3XF~jKXG8ty}(lcJvXMxC?42juj|+
z2&~JtMrp-a&X#RQ%;zEKy%0CN^&K(Y`#vkt_#?dKBGyYjf{6Vrp!r&q1ta^5-A{Bu
z;Y+?BeSf<&Le6E57Ol;%1)z$Bu0~?b5d>mdI(ruYZ!s^(o#bowdhPno><=7dS1=<J
z=s|=9GrcH6ORc7}*5KuJJ46tOg=~-&<<1+dJ4FVlZSJ48wvlK8Ha)4gywE`6&3eR0
zdh&*TC0NVwEnv<2*{Bm151~rNn@Juo-pz)kqfV=Ur~=Rn!+*pKVBSqtT7we7Y<|!G
z4xb>52DHMSA()=@v?rclQ-AQ$bre~PW}zWGtlif_K1N{o+)F=IK1L;|g}U59cQiWo
zDNC>|g=S2g1~4~@cY+pgJnq_nZ`Mn`0kGHXLU6c03$o_7pmY+iRLsb_8<V$dd>y5t
zN17hqma;B#6eONRi)+Q?ZInL(SyOY<9KZJ9b)=b`5%c+VRWrsAtp-*~8(O4%0313i
z)^P){ivZlDNE}}wU%O1nO*uF5MH&DcfmMMn=qm9#5t_wFyj{snvJe^ruvrfbH3>Rm
zM!b-EL9EV`Pk;Om$RX&b=#uyVi0i**IXq8#mgVm7_mI7gs(>J9U8!7AiI;(l`J9gM
zqD_I5oXEW>LrD5t2zyZyZES8;+6hepG5-Fe3)_x{={_Ifof;57nr6-HPz;#I>Lp<L
zhqnN&9iw#vr}{*3I0PK=z4Qnqsqh(KtfpoQ@G<vIc|UT6={|UGweoMA1$5k&Zl#Xc
zrZKStOlK~<qlh2y;c1lcZMbstW#!S)Y`WRsYa9sa9{v`7-?VcOlmX^^<Lbb^a6I1V
z%24WT;v18v&k1t1{vo3Rnius<<tYY=1u3GWjS`XH1}@dY6p+P0aHZr<ahPMr$M0Rb
zt|=1rW_2}|>fQ9=_ms!{lXc3zYn+p%Wls+Oh)PsgHhfBJQ-d1;sZ9iLj(K7u;z3Ic
zP@D-=Zu;eQ?q-eUIIzOPoU78u)y#(sSnqm7zGM06qTR#HEwjd-ro-O}{uoIVjHY$G
zFwE*(0)VHU>pgnsqR`==H?C0t)C;gXl}C5W$~C}Q25x7BvdZ-DwIe&`e@#!Kyy)-?
z7z75jayo!f$0%#E0+2aVPp5h|mxxAqX+ZADVwCVf_)mFs0738@3R>RzsbxcLBa<z3
z%yjd`1<ZTUKDb>XCp~3ltMOcJh_c6nn4ktgl2u`vhsoQhYc`1WQ#bXxYBplL(xMFX
zbY|cX5N$=k6DlBnK$e_rf_|@%tuTF8X9Gq4ZuM45tr$bCU!S%2nlZFhN3qYye9*Mf
z#xs7d`kqgH%;e#l;kggqO@9I~08hC^5auO&TTGr?p(q7V2x6oE7i++O5qy7h^CMlb
z1$3R_T;DCX%mFd=Gj%QwR-z)YH!vkZ(_*Dhzv)&yh{-!|C=L#hCT3#XFg7+fZqh!e
ztx9JZ5*;l2%tHV&t)b@W{>a{ZT)xO}$kii|#(i=Hr7k6cZth%2D+7U>E<|y#VF9y9
zDAfbfofY&@Zw(eetkkbHsSnW9IqB&=PhF5u+`o|ps1o@O|Ms`JM^5+<JRM#Zt@o@e
zK;Z9IKM~Xd*l@VH$-dA9p_F4tXx(q7PHgwb@g2q$w{GMBTMx)Y-}ZgV2AU-GgE3)E
zea$%S%6^b|ujGct9k|d0z!#CCfV^?Me$&ma&<Mz7LO@9jsG6RCx61!@a`j&Zf0Gu7
zFZHani`O@y#Vf{&-vKD4SgQ&3RTlLfvKZ`Zd<D=M5dc0lG5e_QUDss~{G8Ha1Q=;C
zxCf-s*Iu+XC>MI*B>N-$*x#r37rTvP>X{A+KPxf~%s7x*g@$Kq2ck&1Fn-J5SBn+s
zFa~G_ush2?j_dx*i~bLkb5?^$a?4RoLD}hUP-ReWP%A(D$Ies`rWslR4Gl9#y~gO=
zk+7k<d8Kg#2;Nq&-(VbMou(yG`j`VRj+ekpq@Rf$p0k}B3gY7o&+Xi;E;(*F*}(=?
zOe?&U9`%bMs@E_0IG=H5d&=U{<hTh`^!EPR=<mSg<89owi-_o|)-WPe!E$=&YuZ#+
zt%QW><Hz6alIrWqyXIpfd`6ElLxT>#zG2bHcSNe+HQ=*xavkcCZ9Q1{9z37i{)vSE
zmC8#s3#qLN_%<W0$b0zU+r;pTE|=mkqvRu(37Ni=Rm#EslJfFW3H2ji->BBrwUI5m
zCnt$)OGa@49A>VuI=>6{$p?hZJ?fEs$9CKCRb@<1m8v$5j17OgtaPm6qBX4Sr2ji2
zVt+AwLfmSEI9M%yV_Kou`p{FFsM#8|yX$Rl6-dx1DlU%DugNU0*u*};u_KWdRm7Lb
zJQc)=wV-)KM7*fUUz@VhQhnrQQ?@-}(<4#iJ#d2EM&ZcsuFbjAX3EXejW4x=$*Ru`
z><lKhOMh6NpVK1o%58UNKx8P~K;^ohfK9`uS}lAqTJM3A4SdI+k{IsT0<hkFfE&D4
z7<aCqiJy%N;{SaI@_&9gay1138B?#X_Ig**>v<GZXk?P6)_W5~5?pXLL;|XQZsbiJ
zlz2URKqHLsbkQt0`nziO;S~$Mqe(RVgbMZgXmS^8QLSA=bV5bASBqniOYab?)!@s7
zY|)ks^Vx~!jy2Qt^&9wg<ANfJ1Q3^hh&&<2g~JM@D>T-|QF(!Vs?n~t_+kTu9byPt
z45P|&pYZ8Y($KtKaJn7#7~LD;rWN4LIo)V?$*}MCLx|tn@yHwFbw8HOwmGZ8GO@cR
z0Wh}avc$DDQ(C$33E7A(jEX{b!rphQh%ab1cXih(BaCpmsiC3{rQbJB<34Xgaj$Vc
ze^HM+LgOP=)4exe6FFD3=wOV$PJ;%%-neTL3R?yyJ+jtl#9F48v%4eKL4`AVUiaF^
z^$CBa2Bfw|-Q7k5PspQpDx6rweIQ2c?CX|%BK#5S?8MOFg>76N*v9Xd!5A$UcDb!1
z%1J>RbhAz0@3>@kJ6~^6EaCoX79opTq-_qDfn0(z`g&QyKVA)a+IG38p`7@-@zDwH
za*J(27{5aGCmE5Na~EFN$l6FRFw}9^)|~^oOmpFA`o7kf1aAeb`_`VZ;Tg}lIm%M4
zrVlbRTyiNy`)wCIr;S?<E32Pi<t38o$jcgo>_c}*F-^9w@ULdY`r75J*B+puD9o~A
z$tM|SI7d^*n*8K#pZG~{lj#ZVZqUXP9JE}o>6Kp+b;w7Lq3&himBWk&H95zKdvY)S
zoHN_7UlVy#q{46mggDPVqUl?!Zk`c-t;5gA?Tu-K7ZSE?9#Os%B)$)C%{zyWmb^H1
zk>mi(qVvlgm5#lwKpSiP``5;Cv-dg_l%vWy+Fq_!Ky)dB)c0j61_Ze+40O%RBSvX)
zngu95D2{@6vk&t2QJ<gTM#ZvP?<3&5{Bv2!LvC#n%uJza9Bln9WeL*pHphb1EMfs2
zg{1W0TJT5zDu{UG&o73|JeYP2xi$DW#;k<T212}OoA|>JpQKw}CEazSQyJp}q(MEf
zqQBegG7)=@tQPBkz^T5jEb(X!s6PMac=?a_i@00QpL1M(rbpEl<6xnJx3v-Txcmq@
z$A?uZPTyX8_%fkPk#y1Hkx>7dxXlBher@a>^%2SkWdV>+Z{7GVcEE9^PF55VbtAgt
zL1T|JdndI*5Y|)~REPI!5ll&!u;i1VzUm}9k(X+{6Uhbsm=Mvh-Y_BUIX7h!2#$~!
zSj2S`Wwa3l4u-Ub4PzKlqA0$e0uII->wl&E*q*&a68aFm;eMB<$|t&~)}J?BxagpK
zkUB49@5+uAmtq#d!V0Q;IfN9GC%!p|88GcUWQMps@lly~QREE>zi^e=>GZ?FrT*ru
zNTwi*)aB%58~iOB4iCjE>w52^2K(H#3^n-sTX#q&*%+;k$jEo2Vb7lJZ;z*9nR!5S
zw56}Qquxga^N`e}j-TN*?l{8|8Sq~m<&7a^hI50?YrY-g^GJ|3YCA^($u}<la)_St
z6IFRs!Zri`!xKf53lrvdrP@Qyl9iP=*~0v{Z>&XO+z6%huu<s4YaupqdEyc#AcqJ(
z_7jz;3!Hap-6u|HRb_amZlqje#^ln#;-l#Myg6+ry(lZ8S6FoWI5TOB)=;fa7t3Fb
ztM5z&fRHffRO8jCK`34j&(gtldI^1poyojzmIkM?56;N8Bi8s&-xi_CCIw9p>rv*p
zfqT^R)CCvYsLQVIC^JSEgmRNA97$9dZ;W46omHV7re5a69D}`sQ|hH%QyzpDolP}_
zfn*$(lBd@|Z)Q2JSjxrXWW!oX<#=@`+P<e-?{bJ<v+PYFy=Jb9L0|Xp!CUB#Ki}ce
zshR6a4sHK1vD(kBN)uzP0dHrpVBls-UAk!FJ2ugeY2YT*_)gzWK{?RE7Q##y#iN!Q
zxf>FPpceO5`sb<Eb!keg9$PY?=l9hyo~GMhOY5H&P&Xu1p8nxr9iN*Bnshi6l-f-G
zNOv1GZUq0{gfkL{3|!uMw;@Pj7-F)%i<TWy!+E+rSb=x9ezuBVnlx+WxJv^YZ7^|a
zqz^S+Cy)O;)vYb-ty9VFsZSX);MG`(>b4v7S6xT&EGQmF<;;q73@`X%GHC{F#k+Ld
z8}1N5e3fpDjY(%ihY4)+G&Nm@KCyhPg0C*+(gGm`L)`t97MdGK8{@RYC+nNci<dx|
z1DrAi*myNyn@ouNqjcM&R*tvcV>Mz#D=rtO-p_E*9GF|@39glPO%dnc`|`%sb>~fO
zl3Ts3ZF*Xov}JMBXuV(7ESV|jOS;pIo4K*eMdIH<#wPlzq|<FAO|#9iLlo`}(b7(E
zp}#Sjh_&q2w^8Z%I7S^atJDFONuFOZF2(r==?x#l7Or9ZXCAqCYoH$;dKr#h!|c<x
ztGK<byJ7AQpq}+H{0OXA>xtm-rtKx#sSPSohP+9j7VR%+j5G({xNDFoZk7xU^B77P
z69Lxz<t^GHMNjVbo>vD`=d?W&f@%jL1xMl&N}VPys%`e5t$f6fAP&rJN6jxhvW$Y$
znQCieJbeE2!%NxJK)RswLhA`9&vuY)n^p9}e$$sADuO$omzmFBIKuh$Ni1Ggdo>`q
z^OvLso5L~6BhG*6`pQIsM0YhBMwh;;T+c%U*_zY>mHbSV&wO&_#<k?wr2qGyQRIme
b$lw<O9!*?b!Omwt4bfEBy;rVg^Wy&i77&T!

diff --git a/reference/Rplot006.png b/reference/Rplot006.png
index 56754b304142968a6a829347b3cb63d6790fc844..6c26182d5e88c11c6b14d6c77b8dd31bcda4a503 100644
GIT binary patch
literal 13237
zcmch82UJttwr)bCi>OEwBq|`%k=~;qBE1*sMWjma1PB^MKtNG?7myzi2vS5^@`HfV
zk=_FcNDqV(AS7?|pL6cJ@4h$AyJMVp9)pmbWbd`-TJxLV{N~IeMqgK*f$l0D2n1r#
zczE9s1Oj8v9yC<IJK@7E$-onpgO>Vz;2HQiQf-U`o@l)vKJo*B=r5l=z&~dqh#=5)
zkjDLc#=%*eGa+f5PG3<wjn22;A<y&hM7=?ANmI6#&fmXoZ*=j)b*)xi<%<`6?%lhK
z&7<h#e)Z}Z9knq{8Updq{Czkr#Rrf1yU#v9G{3B(qViBh{N3v6cH)=G64%g74L!5|
zp3}yPmXD34$E(F|4aX&i<qSL;N&oV1Y0eOW1v@{E3M;U84iGmrn;Wxs6NZ*7tR?B*
zHB21=pMFp`JqU0f+pK7*Y#g>wHf)#T$wm~$P71D`<4Nu;*V+%Xq%ewlF}QfuE;GyZ
zfRYQ80>&fCq73AQ6t#a}KE31ZDLFHRVaFU}_A!_3q{Z&&afMxKFoB(0ra+$?UHt|h
zhOB_;5ptLyx+a+I*i*Ug>tolk?YBpz?v{Srn|uASna`P^S1@m;URjx7^99t4>BcZd
z)oOl=MtN8wm>k+7E;2L<J5Tzi1evA8@sym8M?#OBFm|m}E4Q&KcD*hc+Z60}@&nLu
z$xuB(l!4Hw?T6KjD26Ee!S(Z~G~8l~tA{zUc`o6l^|hrvDDp#<Vysa@uKFF%xZP>_
zgGZ4uI*0m_8ymVp&!-O=Ksj+XsYY<{Xxx&7?A1}wr&ljG->)b!V0;D%6LPul6riBW
z`)#_f85+f|2C93Q%XK$SFWuBwdlpXv`zDC!B?KqxF>R_jo{Zzl3hdE|4BaeP4u>|D
z2W=wp4DK;6!|#MD-9BJn@BG*(cQx=HJN{B)m7@p2`n?FIDCOSPNyWLGS4yJAgeOW|
z&D*%&`_3Q6=wrXd^jpFUip;?zUk`Inut-oyYNJ)5=VGdE^Ms-uZ@${0z?)lFV%lga
z?c>I4yxMbM*G`qL>-D5M_NV@0Pl+Losz)y7-ibcg8uO6ZFV^fmmw)$HH{Q#s>C3SA
z_W<#HZxXHSi-RNnPPM@~FSSU$R}B3f6G;Q55pgKalmX9&>A6Ni#lERQ&Z%+6J}h?o
zPs(Uc_9|{{(4QNptiLp#m;kFur|9>qT?)xbVCX*GNkDTw_<ij0`eiYKR!vzj*B9R-
zP<!4t{Nm{h>v-wAuQTfAx5%^}7qk;z>cx{T-13*oy?cA>lpp=OqdnDiE2?lwWV=s<
zwPZmEv$knNt$UM5V5E9-zYV7P`)ALj*n#3yZ<raSGI?YiU*5>JxId0(aOj84#2m6(
zP<@S{faeZ8BP*bM_;x+0BCaW+1!H&4;XEZhv?e3{wr+Ub{WKOsm|)13a%ijTPX8#;
z-6+wmRw_%63a!4?I*4hbEzeD)5r)#t#B0&24^j|W=bMK1X{o7d4btQ83dK7>taQWT
zylA|6@<&X%#8tEyu$(GoUVghlZ&%J{S$pZA%tq(7e?Nq~i;(rnRxJ{C>9qN_^j2=w
zio(U^#pvu;;kJ8+cU!&2MlmG0q4$kV3V=Ift3hQlmJei^mkhB=tp=z7By?e8Rh;!A
z-9+f%o<vk8Lg)ARuGKXdkH32as7ZBvTP|5&C`Uk|gWn*lU;R!3Z`Oj5CJ<d_R0IKU
zzI<;b^&{(c(Sg|oogo{^8$E|P$PXmh`MYK7U9ai$Q8tVln&aq3==|L(t0kfB3L)0N
z(M>=`^psX@{`jTdT2#(xXv7%@4WDG)?G)r(T~wxjy}1x}ShP4&*A-*ErewYUsI|oO
zXn_%uu=cWlga7L7Z2`AZdoIfIzTbMCT6a`r-Rd*eesfso@C`*U7qei8b(?~yTa$Ad
z7HnD#`m_HUqZTsnvI5`HgLv}7`7C|8_*+Yic8s#Ft_Is2$|JSnBWM&gJMr0iloj#K
zx|c*^z9PK$0s|+f`=917KDZa_{VrAwle-!`v#mrc6B8`ZRXb4g;^mji30qvTh06J`
zdChx1q9$_D?|uj0iJf)3iV9?%3!|S`9NQYmuJSw0A;u$(-%}&Ee{JKnC7va$T$lM7
z5o!RL&-#`9f#44A{N_NuR-fseu1T}PVaw6Zc3)OcaVr&xkMVnY{&k%4Vs%X}_sqlb
zJoD$?t39h~AB813vF|X0A<AY-NMSpZF8xVSt18}2;kWtlreu9613C#;K#&$wW?46G
zjlaOfJDq=v(hA&kPnPijuHw!U@dH!tr(B@_DLBXW$I-N-D>?#a-pc57P!|$;ooLrF
z$B3I6Ctk@Q!-rCLU0bbFe6#Pn$kl?vE^cA=yx%W+eQ*urC7SnhTfM&N?vAZQE?q)9
zE%>)yd&#1PPv5k^Eps4Tb!f%5B+WR^r$;(+@T69x?<qdL#d5JicO-=g+A8;h{Hi&@
zmaB$S;WCM_|H1a@n}eKey^DR3Bq>yo<fn9fRCSPX?3aWaS=(8n(Q+8a!TJ^26)x5K
zS6yDTtmNPqs4ARklq-EZ0;hC)#bO~TG|E93n~(HtxHA8N`f$Jo(HE~13E8AvcT$P_
z5HpZ$tv6nZem0;vkv4Eze{H@liUA4TJT0&yX@=dIx+Hr$G-uPTht>V|yqjU?U=_lP
zt9>iixy1-M`ZK2LsHZ_$8unrtHn-RQ>7MMGY~!7sKuNfm81Dh8mWG36qD=165;{x&
z;ab#5!4Xv3g<o2&%`4$$F%6}Qr2TVZoo>fgXXkc%X7&Lo%l^pW0x!{al*a={RO%{#
z%}1toF-6|aA8>~8wS4;Act5rlfxbWfrhDb4ou$fln`+g3<7JV-Bc;|&hDDL$U^DM)
z^O{d4rX;uMIInU<(r=b;PM@s<sz*d!DFr~oWE7^|-=n$Rl6q(8k>@R9o+x)s>*%d3
zz3a3m^~)CzLY_VtCy!{3J0DQwo9u!%VGq}TMsP=MtSrS*=9>_C<!57@CB03q$dtVu
zU~YQvy^=r3yP`}ck{LHC7t*p;^<KT~Jk;~NKko8l_TlxZCDIN1f+hJ@9m<2^<`=ov
z72LEh)}hFhM+dVVCzqu4SuT41Df3qUe)OdVDO;W^Z}~pRE_HBmhUrDB1Z}9aig!O{
zUXD8oX(de;4f=jh;LxZS96^~AKQX$Xhk23P27!;9yaXpSI~_(I)}LHLrZ~2cos{NH
zqpNAiX#1LNs^F{vyzdQr)$%+2C-@R>q3Z1+Qn;mdr@Nik!?Z*A5KAn0v-_dadrI@<
z8s7Y=trz0OuryqO5{N)CAHAB3u}5w%A0t2Dsq&|)69#^s^5pLyOt`?6@=pl0S%f2p
zd-cP=QfX2xIj=Bes<|+CZdX*(<7o1i>LiL7Ndl5&vRYUa!Md;BR=o{<kwaSkc-o2`
zt8S13d*$1&bQ4aG{quK-Qobd--F2Lt%DQ}5P~H=j8)4TomYI+&E`i6s4xMun>8Kl0
zNhtVscSvMQ+CGxu^_6_Ba8t=#%lrL{JJpkj$U&QP_yDrVP0rtvlCj}5_S_d*Nn`J5
zf>bpxrTnnRu&J!WDf6#;s@H3;nj$M^H)^<l%o!yKPPv`l$^Y%#OvMRpA7=}OUCr^D
zRJn8Aqlw6_5w7AHWP7lTcOGo1lnLv_a`4YmD!fNQHw;=^(9I4*Svt2<^e#o@t$lD^
zxnvP*L@ONSk%|xTpY9J;-w5&i6s+w2z^7U_*7wI2#1lxKqPJ?MKU>G|IK8=1b1bhw
zZnx5Qv3~;N4zonV)GOz%U#Y*Pa`;p*pYH}`mhSC~_wkuZc7Mcp+ZniDah!7@lvJ(i
z6`gj_FLflKodsKWPXy<$q)#`}Eyc;bLV;0P1DCg1b;9K5A1(zG>jP-iIaf|}pTsQ&
zB3TybT6d^+OxHs(n}hXyG$$X62X<IqtJ0jrtkWu8)}k4shDr0Ks#p(9E&U4g@|bQx
zI_(SD7ZjdRc+kNEmZZ>plE0AHQkSsyQfYfZo~V#g3{Svg)*4eYiG0f%Q3X*zrv5XX
zETC7?*tjQ<uDyJ>tC78dr^L%VO|$3;&(5C=MSQC!YgHhvq)A>=rY831JQ}np;MIE&
zJ?cLlhQ43P3G?h-Oi=K&f{%Z8>Rt<)3qNd2>e47>J{nDw9ZR14IhOFuH2&+!R^wQ@
zoZm7Ez8E<5^vls=XQC}9^q|)(0#6@FT!ea2n%8^VqjwfNa~0i3KM7`JWGH9I`8^pr
znDRmkDWAS(ml!3@9=04#sB?w<VnNU{-Ga{-zSBLPilXKs*aY<&Ia`IU7Fh!4J(;&9
z?WSH@?1&Ewny&YO`md}sA56MK(8MLt$QzA{q0drMQigA3dh9mi`(fk;YAD<rpXu4K
z`e&ivTI|MW^mfaMr?7K`g@uJ-s&(K*%BugdV{zQU`j}|=q-$}rg{^IF3}b%<bk$$J
zb}r&1+_mF1yDghyFm8H|bnqorFHOw;o{^D}{9J?K`Z}#~q;&}uJ?irQsh{5IT5;VP
zdNuDJ!?lQqvtf~HGvSdf`>X0)VF$4rD1Z6v(8HM^^$SpCxQU1PHOyOeuA>dT$m5}F
z#oFn+=3CB%L#vUwPX<OuQ@S3DOZkybe*JhiH|`K8EOHgNeQR}}{Q8G2Qd6(=l!uz0
zKno~7K0f`c-%1Xn_d*O`pN4#HMXczF@A685!WP>O3|&ubR1G2xcXkK|FO&?|`z-2S
zQwZEh+CUMG?>Ke6XISpbR`8u|3bB3E;O}}m;hfvtjihDbdfB?JDO|~?e;QD9b>o@o
z2g88jT)(bScOtH4ld2tBtUK##XDu)^e<BBXQfk!FtNH8E!kJ?RKRv3J?!DGRI$p1Y
z?~j;$admZF#W{+H?EdmGD%Q1zs%SY5>BuNKo@{<0YlerP#!slLs<tsqtOE1@d=Ea|
zlP-~YFcUNf0R!&(_;!DPU*_Y`>hRgypNGzKNN;pXJn1oS9IsKo7BEbTV-;0C{SYV8
zP*GLoW6?6&x0nc1mL*Nlvx;m`dt<=V8*}JL^4#mIQftI$XhiVl^kKW-59KGl8B#8Z
zN(X7?LV?aJHx!7#46L`mG3iZHVw1E)CKibJ{<&LqO`VKaC4ZONx4k?Ko~&^#SlEWJ
zDTVHtnSC-hFmq|K3EQlV+G(P1@9hhcKKK^H1Phvf!Rkrry;0S<H9I`KS9W}S%pv;q
zSCa6qaIT7+A_4ncb$xx^%frJXOWbq1p4%5zJRp8n+;GwL>Q&TA&(#DxFW_V73jb6)
z|5A9>zoD&WXTPAN#C7BkgM#I90ORExPiqYD!zD)0KHXF=YyO&?``z^$0lYy<{IyvE
z%@uo+KzYLU^y$+QV}ax!G8HW?Idye)iQ&02Qy$gK1?q_rfmlq`&>CPx6A;)5;Cfsu
zJ^7$I_tXQ5$R!h3GWD`#cUsaVoJn5t*~$*@bfiN*78Nah9~~Wa{Opq=YCF6A>z!VU
zP_{0#YW^ih-?{IP#RGsa*?$ft+ARQHCp!dADjiPaQ~c$_zX9NljKufKc-eSNs<bVd
zR#-hk1Mze!a(4OY!4wQ67O*zFKNqr+y+0dCK7Cj5bveV9Gi;-(_*a;hbn4j{e9Aj9
zd>@v~&4dEYmT#Ppe~@l>Sn7QNhIut+8yP-KJi?<7_J;H#x3m2E(m5k-_hyd`@yRD-
z;VUu<n+EFFYF7Xz_>619_hp8!mw%}^oc8N~dfLI^m6f4eoG82aTEd3E2EMz5I-Cs?
z)hr%T7qY6y5oBhA9q~@xDI=-X+6(v;1;(S6$};Yj2u|PcH}GdeJObQ5_6_jK`oQW?
zab;$<2*3s|N>P2~f=8q8Hg^B$X!to~ju>(Ds2wrwUg^!05tyq-lTWu*>n5ILj^X1Q
z$)po<+UeUF=iKm*6dpB$4|>lWcZ6R#Yy{ZsP-(jfzaZ#;D`;*qOU`ffsxqA5i)d(Q
zh)h)2A2x!81FaH0sH`^@eORmnKr4D|WMpP9&X%~a9t{{-*8WjgT5<hoB^O%vClyB%
z;~UMQNl*@a_lJQxG<>f>M@MHBpjaXEuf9teN3$IL%!Kg{t(I}?^k@gJU~E);PVhnu
zB>FtN@9A=;SHvb@LZFAIXT_P-iQnrGPx^C|S|so$w>|49PsSY+H^~4l64(JF)j^4h
zyWd}SLL-UcJ2R{=QuOjU0owYsNzKRwUj&dm>*D5i9E7hH>@HOJRRIO2e*ohO{he>Q
zg(j0=S-xHTw$@F-K9DOmX1nEl178D*20|%D9+`z+1!~mS9UUD#z-V}zgJ>R4AS@N&
zr|Y(n6~?d6mWDNbNDp?J^PEvRc!7$;1E))*mKuv?7F_$Nm)mkOUgfyb8Qq_)5Cqt&
z{PpQpL{szO?8!$UMA|CRq+`F9{c<lIA?c_2^Ky9Utu)7k^lMP*Cp~E)GBf@|BErJL
zC1<I`#nEvw)(~&wxzX3B%HOzIH#OA=WR!9!9QS7xkV;-@-;yYaB$J+oZ8sn4OhAd{
zb(3pVeSKyv^$_X{9*}V$KjsE6C7X$)i#v5Gd$k-rA<qO(ZEmhtq9gh}x@*%^<gDO3
z?GmXX)}h~i7HLHjH@zY)-2+lIf?icZWv0E`j?Jum+CQGfU7y0Xq=;<`{QC#BxZ`^v
z>zZ(-sNK<I6(B8nS+BY((rCrFxmm0?)AA`xf2gQ%9NR5T8ExoQz7uM{wFf(y=-*P@
ztQk`F1Heo=0VSOwUeu;3_&YEz(cW44<U4m_)=6z;_~sB09@~tuIx_aH$mi0t!HaSL
zhucQO&w#K+CT){-zh^5?mgY*j4CK9FwT15#0SJ^-bl?5;V=*WEV4^<}3M2VlY>+qv
z&=MuuLRhH$sGHs3F_3p}?2OvBt$=_^O_rPDb=1q2-#_l_Q5{aoe*fd~ns~alTi1Jj
z+y1~mb3&HW)j1;w^Y}A|x_o<e32jy7(EjF(qu0-Lf_=;A%2~=332NDGw?^6hIRSF7
zY(Ag{5=puO5Kv<$+i3F6+1-=B0Bg?C7R`uu8!0u>VYT)jJUjq0U<hSOcc-r`nTY@L
z75j{yRMyhc;?#L92=2X-9Ype8?n&1vO3?`Xy4A2=A?W#aDaF-^?1umhkP;2?34C&p
zJ{JZHvcfMgu17O))CmLy2c8l}DkJs@tY|{JXm-T$>fH7mn*8(m1^M48f93I@3c(kn
zOn>w>{AAiEWRGXR{qguhN9LW|;$E{&9cNrxCW<ER_P^^Zdh_EQUm|+%r&jLkpzN*M
zF`H=Ry#duPqrM&pU^tgK*P)LyxlfZ1oB;6!^8iE(T2DT)VvTma%k50}afv8BT6%;S
z;hTv#+2p>Zn?+b$uV~!LDoBuD%Pz#fbu)niG>aLr1E=sTJ^Ta|)hYi;3jX5|(Gtjo
z%M1oSE3q!_ivdmnnk3C5_8NTGH4JTsll&=?cuWk-IgtV4?TiU)X65&JG)iAu$T6(?
z=E3ZrU!PM=;t6<eXx$TdPb(=j*+Pyl@V2+t+nq`X*{sOwZ=)G_HC~$sW4_S6wq&Zm
zKyVuQ{MO;Yd8oIFs_Ln0^6PZZZmXTGFsSvTA8ARY1;w0Le>U8S_{T=3`Z7#?3<ekL
z#1mjhCNVfxGzX8Bll)G);0(Fpu9wtvl^0=Pdeksv|2+j9vc!zl-ut~FTOzP#sBdPL
zo>1IiAs2nmFm+fHe4uEjVVG+uI5m(%Eu^t#<W^FDTJybLt2E^WkA{i9pfJ`@{T9?L
zSqPY2k_A6zPUKF6o5|-lJSCcLMSzeVE;dK-YG@)T&65hx{VRueRe#ccdkwk;ZUnVO
zsbQEf!kFoE_#~c^1-BwfBD<Y5iprb8TiTm>fH4@%mTTn(EWb^84Wbep2%7C-Cy9wM
z2VWWgJgEV6vaEqinz(SDQ9j#hi@X|ZQh=$p>`D&?a*XKAS?h0J<<l^%G!UdDP-6rK
zxfvuOPciElMQqkL@pn8W9K&78SV?b#J#!|uySH1Rf#SN?UaXWv4V0z~f05Fk=uoFJ
zH~BMojT;!WQ#hW>`VN@zAj*du5!T3NW+-X^^TrUPxX0W}jGLJK=B&A!eV3Lo&otYO
z=k((!WpmpQbE$V`vIn_yHIVo?-hKPiXh!$hc|O*JPsUA;$l*U4<8s3Ds|<IBgU$>w
z^n54})<_a4F}1+(LH5-;4$Dk$0#jE7rY=f-%p^^-tHh(RX7a!L%{GNC(&|4v71{WW
zP-5~!C8<!LB$+}8@VNs3e||8Fokr5-vq<=Ve8`}|cd?qq8-$`4;|yl4hY}<PGVE*s
z!>s_rzfjpw2cAm-=R#OO(GW7v6=#j4(0B`1F!}0ux;_#dalwi~8`J`_qJn>YEz1F(
zVr4tz$DWR886_Em*D1)4=F=)Ess%Z#Ek`uLTns%i%{lZN97<#+vG`p&oW5N*#o_~s
z?#7Hfo)Ymjstbzn-?~%QKWkPym?xUkY^ucfXAAU*%^`ob&In$rv;h1_=8|Qp7YS9O
ztyc(Dz8IX}BipZ@2)}jdKv*m3vNU|7m?L^yzOL$Wm8tO28%l|sPs!G$PG!jya4OtI
zZ<D=a9Xt3QT+hzo^54-1iUe((`=lx><`LmBZ5{KNN5fF2G?^l+_WD^RTl$h~%vnUk
z(Cgo@?*GJ}`dXC1Lf+yipS|O|SQhO1T~)&~bFTsOhf-V7OM<^ZY{4z(iF9m?S(*Qc
zFQI;_Kq_TW#krJAu{*w4TC5b7D88^k%V}XZy^I+u%XaM_j%=2?TItDC`=E$I`pXW9
znB2=}CSb!ZJ?A}uAZs{@muOOY^x}r6nR{U+#)>6hTsWmSvW&xL5|U$6yB<%PikJuA
z5-T>m6ZRY+7;Z$-AU^Q}TCe~uj6sPnDngpf?511pHfT-k!=I}&{6>?R9i^c*B?xtx
za@Y;~)O)oaO7_D8qFmLhufWN4vaTJUHUaK?&z;-_56Se?o2xP0SthNvEN#!840xeH
zLHa=8Kfy|3L+x(jIB{xr@+d}cuXG>fb2b8Eo*a1&lz$Yvy8YpP`pbgZ9W;clsHk=L
zv#Vwc6Opdj2YFNSSgd61;Ye+H)%-Ct{g`a9w`KdY{hPI)843P&GS~n+RXbK}*j)~s
z0#@Ni(Jc+br4dbff-2Am_fY_=e(>>B0<fM8O!Ni(%~=i!h_+aL1|%81vnIuVX-oVg
z7yYlzihuE41aR+82=_Z(fD7CJE`T%R#BpX=EezuE&|998Fd(F;*r>ATw1EIcg99lH
zHE!{07zVjKl#fa?#qwisV|nZ-@@c$4R_BR@ui2<U#msD9E_ffV74z>~$G5#C<yY9Y
z=_XH#^wretx!cqb9@;%nqZmbW*sF?uDyvjTX*jOa{MKDlCtXupalBK?sND47@{X~B
zTM0m?)Sd}k9H7qkM=c5;)Ro^M=F4(3hJ%Xi*7eA{e3@@bwZS=IW6i>q<b$AfQy%m9
zKivNye;akqtsA_`@l^k9u$E0$J4}>3rz3b-TdF9fA&)+UgJAGe<6)Aq#!?MpjAFFV
zF?VQ+xvwDd#iB-%@lY%?HXw@n!^#weD0m8_N6~03o2dOCAC*OUff>QV7#FM`CeY-&
zR#Kr&`M5H+ADno<e`v6V5#$``r<=sHAKFgm4Z9x3b}E6y`%~X<<JI`-c6*dE+;-!L
z661%g_>FIr;?_tyMmSIss>bmrG}LwspyeR<2f(%9_J%yso{;8qag{t8%m!;JoHo&q
zk_tWbfuk1{PHy%oJg!pj1uzW3Z_fjXpu!leYsO0t43_3_f*=>WJ$jfl+<8S11N+1D
zGBBJ}QA6Gs@AR(-N30H3#Lgy&5AdFs*(b^-CLEpEGjIN`d5jQN;_s6&rzdD)hmbeV
zdn<@B)I-KwGS5=3ncyhJELE_Q^LQpEWhOO&M<ZOdiULmU{kRXMS}>mk7<6U*nKEVY
z6~ZN)5Q-ahe!QG61mKb~W<d-TqyQ?QIi!eyrp1|c0O!^+1Lwx+d(44tUXd)|yc(s5
zzUc&gAQwC=pH2{?^tckHOiS?FlP!!50sO>V>#NYZ4NAPI>vt^REjDkM#*RhPutJVZ
zUcii!3cn3^ZPN6EMdEXE89dZv7p`KjV@<jQG0zciDLcx)$kPT^OVLm_n*0pIL^CJw
zYm~mR_<C(#3qyru!O_{7=w5(yy~eX+aTJRr2*J{fX+yV-S~4PN=pLk{YSxiIJP`z9
z(m2}-fQaZ#e)XkBY6h3c2n+SzicM(~xTKe490K@S%1fOf+#1hCf_mTbmcq>;M-L}3
zyiOe<*F%3v#CR*MXBaUuID0hDziA%jFnk+aDQx{`eq>0=bUcfOAw}#pWB|9Aob&iR
z=C|kfMOQ2vmJXYUslvdbqG`)Vp+RlVnn~}|fUi?B5!SvhXCBlGm<C;$Psdc;h1p#n
z;5<wC0RV6r2n1!U^rRl^nn>C2dPYEj*%X_z?lB;Zo-Gt}X5V#T2LL;w|A`VV;w?IV
zB_9n@0DFN>{39&@oOrg=0qdbSPn-ydqQo@0@%#moHAOo_P(d`1qu%(^;Vdv2{?n|)
zz{5gr4Z}J8PoPSz6E)#FUaN994y=Z9L?|GM*N_0F-CCJTxhO1XR!9*S#w-2~1qFsx
zKcvEyd$Q2_gn^sN)tP<(w8jKY5hsHY3a!ovdt~O#z4fg^V2sV!fO~VSVG&>)XTIPu
z(X;nqQlWAl@Kw0V#!)yDf}#TbBY@zPvdPYD$jrt_w)lR3%fABXh|XK0=n&5$@DsSf
z`6D_UDr+pR!2W5-$7CK2>o=7k(cX|5Dxne;5n$fz?YgSZ21cxG;{n0GrnOs(h<*@x
z0*<CgG!?xDMAb_;B|%ta$C{EzEBm389RM};F92PoIe;Dx*DeXi0QcbdOX%LM(lWT^
zDvJ`GzrAsSI84$}Pb%yxO=iKlSFIG#Qa_8Q>;U;8Hs3weOe)+m1e7#`V}B$CoF!N>
zREe^ljR0r&siW**W&6T}d%%h}f{MA^JssTN4_G%Au(6EY`|MO!0X8)jcmhS)qwhf&
z%O7L3-KXNpdwUPf#GkZg0K$go8*aUHRsZSJrc9fvg$~VjqmVOEx=E$T9(Kx!3QOO%
z)}7y4<3$>k6*j#*zZ$vP?i}GZquJiLaGaW|xKDg`5;c(=J3+mn?2%fPdSN2MU#&uB
zuFj3w@8gVob-+FRh2&Re+;!%DLpmayU+0|1J{e;ot!19(P}Uy<e4PmXiBu42uT+=;
zH5op6JyxKu%-`DL#9t{zB`pbU+U{VE3+hz$l7RttifvyP%%~felz^vZ3mPFTEz%@5
zM>Ub9{1Ej77p|7>K7cy>KF<C$EHM|bEx&?wM=Tbs4Ec3jV}O@6tO6X@3`{Mu{CoYJ
z{a6)GNoq-QL0()HK{F{dJ4YWVLDm9<0N3zh&a^GXzx6P0lpaScWCBVc1xcRlyT8Qq
zl>2c3QMMGW*i4f%<a!zd3WE*XkAeEWjARIAb14r6a2ikmBwh|M4BP=?1@#W%B)#4F
z7PLXSB4VCbaCT-%mXUUg`vD~l<&C?u@So{*CVpl$+7z>;#yy2kQ4bc6_}6Y3i!V1N
zn&wQ>C7OwU<Qa(t284o(K~rD}#5Uy6|3;tE;0a!i&1Fr~_jGNo1J=-gfg@<C`6%m<
z$PrgT9&6-YRil(un;}Kcx=-nqPl(RtAp07f`Y8HB4{G%QH9D*XWdFWU@c0W9`cUC6
zTDJwpAS5j2Nh$V+phnU4p<(^>R*C`r+%97wa|S>p6&rTD+J%=xp|>^4ibv_hkT*lw
z#Tdo~=79otjiuHcQN6tA3ap4tSA_Dvr_T7l=-qQDRx#PoW+rbDl)549-%3MJBE$wl
zg5oZVf$J}%F%l_cc}l(k_Fg!vS&lA=T@8Lda5;k2JW(I9ea@4L^v2j1$W;~qCN~js
zgZLvr+u3aFkBcvIg0f8QrsXj+);juY;89!m-U!hO^j01-phCBs6MsU5o=%_)cX(=n
zN`a_ucLk@rcWin0R_H8an#q%_zYCnduBF<L3w(@^hjG9@8-jxf3)$OnR85iLJWu;s
z4OopRaICC+rIdRP-uRDDpd^ZT`$YN3K*~zf;&?P>DuDX1-5f}+&ANKGfk4=o|0gT+
zZ>T$JjS<uo3KXilucrzcO8y?MUX()MigUBzmTU=9OR4i&732oU$nWhKSuB4Z%$wO;
z&RgKk>iw*@NQaz$7i`<ecY~zDSU{9EQR9k!he&uUdeeGKc^mRAc+hMBYt0w+$ht=l
zI0Y!Ch_d!`+aG=hP!TTRRI&1TEj_Z4aa>2*6fc96)BvGWY<d9BZSOohp~#|dda(J6
zU&BysSkpcXEQ`j}(<43#EZ@{H`~tY<{D8&d>D^MN8ybep!-ha9T+;u4_=@mfRNenf
z!vE%{B%uBxl%!BiaLbLqYQ(~qg-oxq&JVM)&sFxwHd0VuVLQ~ozUVv4(?MslT@Gh`
zy*b0jhRTBe^%RHs*Nh!NS-k=%0R$5k-%1j9Y=SE7PO!1fmb?bQee0}1N#*VM|Iy0%
zZ#IL@$g_vW?($iS!2Fydc$%U|M@;lg;sRLC1wVnfgT_G45Hs*8f)%mzKWnM0cGTG3
zta(O=QIvX=a9Q?y0RBa$bhuDVBV|W3YrJSD7~=|PK?Y*WyAUv{M(T8aJS-=?QE<E0
z*`T|Wg!#O&Zj#<Z^n&5n!XWGG76O+dO>P;@Wh`fp=Pj?Wik6lAQta{aTpbAenc*7d
zzD@lkp;T+oG=|V^F+~M}exnlpx|ZvgI!CBHoUObMM~rG)Mq6{lvB*?T&(jB)daw(d
z*L;TI3=a0YmPbR#+pjxU4!3R5rI&XsEq<Pw);?aqqZS5>m&Z(kx#Zz|Q{qp(l<>XP
zqvynvU(Fp4#)2_P<9Up;4Xbr(+uG!zF3oRzssclk$EI+7{D=1Pe)wWftZ;z|RA`lv
zs4%xzYO>vPJg7IPBPCg5dNbn5NNLAjsXy`1XQH(@r%x#TG%>bUb$xfKd!cg5!g4Nb
znZx<QALc}-ZfX$piEXiXx*9pdcj%d%%*?3OTgHc9M!qZ&b4^<4qvkFiK%67TjW7+E
zN<<t}*I(ri7eU0Ho*yEq9+?VW`CE6*P=oJHX9fnOa*2fcR`cK7&#E+(7?tvSCth*U
za#vBe)FN<+Uz+iG6q$EAeytMod+noX-5|yqsklv1mk=+w4=bf?-;MT;+;FFr`4q`H
zUXbx4xnx+;>Otpz9*b9ojT={J>#>!`Uw_vcXPHKwO(tXzMq1iNj6zhS+a&)6o;gKD
z%B;KJ!<p=Eh!r-tCL1#nFS1b$gB=m3cJW!OT}M#f{463G;&HeB>F*9CwAf%or}_`y
z<#}H_k9{LS%dc|<guU82<<yMm9F%hEiFM`3{v%q#)gttHM?`Vi8!fY?zBc{VE=yL9
zz)Rj%Qt#G2uw#n-UMAyVz%GK_#1jUTUb63M>2yea7V5$tPdkaRwnf?5X(hk7qW?w9
zx{_<SNJ+&WkA+V0#TJ~B+JVB`7zQm!BhMQxXGsbLP$ggXL)PT3Nb6R{pL3-t1}n@N
z(W@A7Y=m8-8{ddV5s6XBK0KjcRnICntTo75DsOmn{BCTJ^T;ze9w!cLWK?kBLDAGV
zcZCEzh()!-ALRHb*~fh~C-E^wh)H0gMzl-c#r8swDq<|=_XtttYDLTWe4qM{mh+20
z^)JE4!hi*qw#3Z1N7@PC41UJ=|J=glBcYk@QCd+UF;9%A6A@3ad>VW|)!KK_bS~Gg
zltc9!XTBDZsGlMsh>CN{w&jKLfY0`j`*L%Nd++zZ7Q@E`J1C}`Tj+^5S9u!jl!0<D
zFTNj=2|2u#VPMaCF(Hq5^;+XZXsqvUKZqWY3uY>PZ|3a3969iSU^9~8yPQ8dwxWU`
zcsIIYL9Q@+Pg#HRnnD_qqapuRWE{$NpAZ4(8fU6k7<|2}kcoPY*6tT-Y2Wn%C4i6B
zD#s{wxjC(jv^0C$Xp!Mb{B~j3GK|uQHtPHmJkc#YTtxcJKZozP8{EFxBk_acg9Vhb
z0?ru{G=gg70@94!G`1usj2G?7rO}KiWYdtpBFt~w1ujP};7RU++9~3M^0j=Z#7es4
zQVjbPH^4nS8z;@s@sbAq6yrX{yH6|o|F*zIE$hI2wEmlM^IuM@wY!P3mHC!UcYgh4
zeUdRg5OTJ6I}s8MDY-9USYASHlRz?^bisDcTr^8^o4kwVv|~^iyhf)8=1hBRSSl9=
zSqU)OxFW{NHlVY^Thb{@LD(K&{}aQ2WZ9jIx>My-U9j`W5`vCzZeef%r$B;0+_CU2
zU5p<Fj#aPuQWx7UD|0pVL{=tcuJHDj1J+~G@~}Ees$eAmqlIyj!yg3eCVaW?voQ47
z(SxGtVwkl+M1{jwl^t^1U96!USnM4x60y+jY>QpU;?$+m?Rqzrj2TxvN~wlx>Oj0H
zQSLeY$%V>}7rnVr_dLd{F+Rv=_5Aale$6h^g8o97DbUzTj3xEPJ;FVaUqX4Xd|t`y
zfi(e{2iM-jkUE+vrghRP?*TM&Gxb`k@Ei5}KBE00+eS5_akT|w-M$|my+aw`^z4Fj
zd|oW92&4#JA;T2UWnGZG9J}KqSA`eOePBmBAR3xYG253O{V5f(kN;)ax63cZfQiBI
z1DijSLYuo0lJn}v7Ojc0NGRb*ZYYA4pt;vHO_8-PDOPx2gaIRIx2XH=;U(YxnV?h6
z_eP_pn1U)F_seu7SXBS+4h5VBclvvO4Dp;095s<L@S?#rr(c8xW>#etcM2V)WHE%J
z!}FK?*imMCa7nQO%t<P4$H`{vFC+4+Tnj~h%p9kL#(FW)%~>F!Yq@G|z&^kGi#F#-
z+y}?ula120-_sAOk<fkSL4uxIuEBRpOzH1CU*hig_QomYYTZuraR$$USe8PzxslI*
z9z$$-Yb5=Y?wdb&(V!pKE-EwTK#mTe;owadUsyS|#n${jGDB$5X&*|@%SKrx>W3b^
zm*~CN`T#lX1nkLp%x=ezW5P-dqSP=4azo*lgC!0^tyO}aaHD|z?-s~WTs~4{<bld1
z{!zmzv5YO9R?_#1Z{MYEt{i>J3YlQ6uf&8|M%i9IXx8QR0R56r8z@!C)jz+e`FBHJ
zAmfuNIKPs_^NUWQ$Z+%_Yuc8m|FrO16TmCZ8Jh$`M<&m{n=0)IU-bz%lZM(LTp=|3
zW=&1Ps~oR~x2YyhquLwtq9J}Ru+~sfmACz4wTf2={Voj=7&YW++ENG5v^%9%Sucal
zgYpU-7Hw``xlThJwG?=d@z#|QZOLuO4>TiNYe%PQ6{lu<zlqS8AvqcivgO-z*n=eW
z#8|r=fjAkPbUUA~_-^X_-tFuClC@;yc9lj63VCb#T-a`3G7gc5=tMkG(b@!0Hs(oS
zg0TpfhQ@-G?e~|$Zscp>b<XyMHzqQt1>QkH=5No+4X(@%{9t>bO`XH%pNzgQ`(0?A
zJr>IL;Js0-K2L0j$Z=MiJUcqeO6wGQ!0SO2ik&4p@G0XNfqqxA+Q*P{vM-5fpCzGO
zhanG!Y0dHW>l$mkzLvjhg-WcVFJJg9FoKYMz4i6-sN^m*L|9|(Pa#ZEHhtDx%!(%S
z$XSQl_@jJliE|?OgeMCqH2w?y{Ii#(STdxfu9|W^Z&DQauN#ntn(qAy6}xBu1NY}<
Ap#T5?

literal 12900
zcmd6O2UJsSw`K|uP!SOXrHX)vNKtxM6fhv5i1ez`yL3WHG>Q#S5D*X|(m_J#9rA&K
z(mNrv0Mc8O76>78`2K%p&He9PGi%n|b!S*4f%la6J$pa<+0WkR<kek6UDjhf$3P$u
zEBy8?V-N^TI(jiP0VCmqjS0X9(?fmTTfisqvv;#D68K>8xozPG0v$hn^aA%!L>z!X
z=RxpWH%x**txX`p_yQW}zeg^*_Lqw{Xk~nOGtPNQF~b~{nELcC1N$3m^f3s;_U<Wm
zrAtY(;9IwD{Pj#X!@lN?$uF_~ClZj$dXic<*ga5{9}*M$6DwU6_GrJ;<l`N^;fkuM
zzqZ5F{`^?)Tn*Bctt;E0b$50nMc{G&*S`sV3cV-PczAcHE`*RYkHW&(6{#W9Sd&0`
zIQRMd4mV^(pPkNpg!9N6Rs&mSVx?|8IwWd?%qmqmzXTCUX!TB7UaN%WK=i*fVZf?R
z27WR!P;-_m3|<U6js}~T9O4&uk;gNaCPCed3XERhM5r_*{>h*($f0bx4i6!T;a{YE
zjI|_Pu)iw9M$t)cTOj&dwO{+8a4J~CZN>R|!H+Gw=$vpFcM98=X+@n~@3-rUP<K=k
zas$H4=_=S<>d9pIinUIOC(wJiJp0N9_6j%Lm}Qwo@Q(!QFSPWhOk@Z0MxWdigot##
z4#hp#`p9L!X>JwyGRNw;2h)kz^(t@&v*5bb_ZQy<soO4u=z9i&=h3YNd1=N6m)vG2
z^Sb#T_H0KH{9|vmbZ>mS_9MbN(%#g+=>wUOpk&%Zaxv$}sqpMf^Tp;v4PUo5ecV<X
z-2{`L$gK_%a2;P9nqIL=IEEzET8qGKaLUuqg5`1Y8&fj_w-7F?r+FhD$*p!1aCbmc
zJiL`6Jb?io=6-Uk@qIK@$pS%6VZx>lr?3ApHkh~W`wM#F4A|P^++)pkCQ?3O&A3@{
z_UEE++pS$qo(Vha&uNtU?@i^L$4JuOUO2*h@;mAV=Pm^BPWdl)aY5Xf)oUZcu3ESG
zZZe}i9}P4L)X|a_>C?)@F!4Y{NQ{GLADy@ud7wPs*SIHNmK?hKQ1%A%OY4Bc8gv_%
z71OAp7{dY`+MN|1q35f;MR)I`-+$O5yXK+0_@K$q{A7o#V%E0>ag+PNv}GOImsO$W
z4WlZ}8Vwls9Y)A1<M>HFtu{7drCL>4#e8*I3~R?BIc7@Gkg#PT$Z7=UIId<Ul|7t%
z54b#p*nXr8E?mqV@e+4O1L6U_6Z66-`jG9ShnvRpQ|qiB1ZsVMJEnx6cm1E{nkdA(
zqS@$w;X7R@x-6-3vI=h|x;^G;p6Al(b|qt~{w2|7kE(Rryf*q?wJiYG)5sPU)%z@x
ziSUIZ0LyqNT}vCwi_S$VW;%@Z9VTy{pFaMrHO)nHQ``Bv2cg?yz~3n($f@SGqcf;b
z(ftA+tJ>3EYDjGFCJI;M%Q$_>5=p;su<n1q8Fi!R!-B{ui7%C4Y<5GNB7;&)@5*H-
z(TrRsA8^J<6>E*+duNHt6QvcWcM2zOGuJkOh4q8e->ziR1>YXpvGeZs5Y}v1Hh)hT
zmecNT(V3f_M^551ECxQ*)~nW8XO+q#hf<3~4mjuBNRrL>aPnxjna&<ZDN%;e*1oMW
zlqynkiLhxcI3?;a90vPnMA%SHIK>rtxg=UPGf;!Q!uP_on8x=HrN9Ef&Y)e6r|w+Y
z-j^d{b_Bdrc6!k=Q&bKu8oU{0s+dHOLfbbm5>j!IyQi8_4@dPZCT%RF{y{j)a%@#e
z1vfK<Qwkl_i+1*pSSWv2`FV`9Qa?5P#MzPWZ31`N$~+VL154WchuWAmE82$+eMl6q
z;O_J<G5y_NaxTx`>s@}!q>}!cz4=~Cg2~M(!mkjOHD_Nprtal$kAg%$E#*r@7%45+
z$a-=k?wGCVDG`;;sLs&cQ<L#s7Lnr3M!7SZz6H6n8?}lepWL==NWLnElY3W4IRqN#
z^oNgcSaiLebGjlXom3*kZ?j7omvB<}`Fp4hn$s89BVW69DS9?eOQJLDqJ;8|T+V+I
zzqJ1R*oY4gzmZO#)dbUtwV6j77Z18CRQ;XDM%P7x#DvZafv43&oMT*d`hP3_*e<8n
z=f#jyf3fMVd4oQka;Kgnfty_~3mr^Sa`K{4=&4t2G&C78<6#Aw&0L_IU2A%e6${Ha
zdtE7Dz8o?z&wG+AMDkNkH&aKe+b49$5RI%$_}A3mJJdHN-Q{I%LXk5lOfo{l!xre{
z{Az~PS_a3ePkz*=@UM!ZCvP8oK&d`f*KMqv35dA55@M7^JNRpsS@1)0$2{#d8FemF
z4KMw0Gv52q&%mxz09|;+Q8l{P&y8tE*c!Fem)DBX9auG>;B0RzozreTi5Fz)5RUly
z%@r+iLNa<@w(NPvVC6=P`h00#<#YTE<>j8C`EGm}{sK|@A$WS#q{w3JCdJ^7=EL3D
zT$to{FZ9Ut=wiu6f1~5VGxU@uUC_r~&O=fNCu?T%dN&3ziLx2%CQ|H+Z=~?S&e>+T
zNyH7My|xat^zq__WCc6kQ<JdlPx{uz(s%P<YHxALQrb#Oe?2RQ^*%3I^3GPr*<RSX
zl){`^>drE?Tr9k0TzTFjVm#Sr6tB`8wUcpAGBQiOGY}f{*2`Hze%{Uf?6ilmSl?BA
z)hnXckE>JSTHZ^8gfOS^)2W!SO^o}#7SpL1mF}?QU|}AOvmZ|*4w%r=T*+n1>_bhj
zPl;6Ew_FZk9HFlb`p9)(rp2{D(L!NDO;z!pyR)>BnXWsk>h9)Pg(!C0q#I~ywVqo6
za;I$TOk#GT*q>@_s{M9M7!@_ngB^%BbJtj7L4g-M!h=N=!n~WsRhkT{>m9}`I43!+
zZz{!G%wLN}KryePn^Jcs19!^zh)7%~R$Dz0z{40jKEZ#r;X4BM8&fu}O}TCdUwqCg
zik_E5hg)wlQ|l`)uF~CvR%H<}y%NbcsIY#Wa=Y8-H^XX(PkSW}Ir)pf$udz~2fcLE
z9qyBlH77*1a;8zoH|d(?ux~6D1DMmSu^X82PvmS-KOt1-#oZtlJ4>&N)+VI8L<A*y
zu9iip`tZhLvLn_rjCuNa`@?2Y%0+f9e<g>q`AzhxkjrklgO#v0fr0A;zB)9nvlQ{X
zhIqi>5V`)^Mfq{7r&jglA+kC3+(vIifj;v_W@l-;wQ1?|7>5T&)%)z|^hel{(nO#9
z7G?B^x6)c2I9<deq~<MIyGWyL)-PY^O4&y5VT6@Vo1eY6&c|Krfq8c*G3kBiC8+sa
zIln{MgrBG(-L*L?Fp?zG3>(ly^_-qeO+BsUEagz<%$ku)71G*Rd(=m<Y@VMrD<$>}
zaiQ-UM7;K?{f_FxDWh$D50+IB;8^xhFNE;{sW@ztZU@*!x~!FECwG7&;I8&<I=Mro
zVwdZc3e>4D$)2dF%&`h|S34*g-^S9g(m8}0KK;}~N3ILTqTbuNm0ivs+4;DcJKuo0
zV>jb#+k#tJBAHQGn~<d;meS*yIre);))EytAn>$Cfi5M=w<veTje4m$Nr{<iXC!RR
zDz0sQ5yRMeI&`6s1ywCOEtfsUp|I_gGl3qr(kpcgEt(QWN3=@df8OJ@0(tAU_!*=Y
zvohP+Mnq+42qFCJ=4Un+`WlNB{klnG;`J<nXB{*Nv*_?h*tZ;I%&El43t`uXZVgC@
zY;oqE4uvEebaVIlYOZ)ctSTFOJtBL_O>wq7FR@dDbg?;#eod=KvMm2<;|U^jLt}S$
zq>$O^(2vOrKdgs0g8FDRXr%iEk48@+5BP2H!YRm8mk3$d33>LDSKM9^m6UiQOg;9?
zT$;#Q`JQcpW$F%lwD)9=<kiAsb8db>Ud3P5GOD+eTT@00C(N$3dEQo<Q5r#9<A_n^
z2z^<|(#HD@QN#<~)t*hiu$r2#)uu0VQfO5SE9&vy+)zoA^2(y(*BC>CpQ&e4Y_#e}
z+}Cu`F!7&9RG!xG?s=AN9x4WWzhKq=@&kDR#&C<@aFKjr#T)M7MWP;DYaLR0wV?l{
zX4bpEx-8Y8XJs|U{vq(HKiqf<Cz7Dob!X<)%4?(k!oi0i{Wzj%B8%<Y8*y0-XYp|&
zqIgiEh&Y%DCjw`YK@MehrpUYZ!o||$G&DTs+7l|M>vbE>@dfY#uA1RkrICc?{*joc
zrU@Y=6infhI%0=xJ-ajNjM3(}c*mSeaA&AEVjE{i-yhipU9l+5nnJU17-D3dy8{di
z3^uyb)$3f7YyvILVIt-`lW#WB*1RKEOWFkLc<pDty^2Z;B)Udw%)AtyT*ihhzb!0o
z3>_<Z)F!ppB6ukC<bd+qJ4R6RFl{}o(abg^`}c7>O0z@qTpx#=qGE34_>&HAyC*+I
z6*UjYEo0-pZTxIvHuudQC(>@Rsrws=Zw`!)f2y5Naj(?R9oV4OxHLu3`kgW1J56rx
z?qf48vMahOX@>kyeh6Vwl>O!%p265`$#3iqW{9si#H763-1HVK%?iTRQSHSN3HBg~
zds8*!ud;ztjSht<=!#0%yZY^&<&>z1pdLE`#LVc*wU+)RK)fnWjX(bOl6~c2iyJ6L
zb-mg-lKf0?Rl%|SgIFm>IL(m0;LKE1RFq#?Sy`}0qyG9Czu;B3R%v!ZKrQ%Z$U<6>
zc97=Ou$6a1t=Mzv>*3+yV^0~6OM#WP2k$S4+8CLAPYM^`+)SN1aQa0*pb))T$NYA8
zqpc1GF~+lPv6}AV)xI6FEi)@^AH?tLNSovA<DVbrj`02d`b@<FCi2jhL(DLY^G~tF
zP<{IKxse1tACB_V2?ZHDPi2G7k|)Z71kTb`-Twqe%jZ{~+~@%ebAk{&8_oU8&3Tnj
zqQB6YT=rmxY@j&d-_>-uUCf`FnyMQ1@lLv0$iZO#eZ}X!0|d9iqV5UDB%4NaD=P$I
zz8H&LAMV_`pL6FNzn~&wXEo;;n+Am$3E1XQJdsEo8(8vp+gTkoNOpa}CV1G8EbDwy
zQf}>cn_%Q(sbfcX&CF{FFKlsflcbsV!cQ>_A7A9UsD9!WR0;4qo2QElWiRhurc}sQ
zpKg?srj)Jzym$8}W$5mhcN6?MaeY<o@rx<H9(7(!=yE;+Y#lK4V9XYPjcRM+E*b@e
z9r{zq(^G&4#&o_5!epE}KgyaG+uFo?H`<2GCA0=l>=C;<gL2m3@fX7nN;{;+1W4aF
zjK-_-^OyFIR$pAZT;S;^i3yWe1J=_5V9UF>xEOOS;(+p~3?nvm?NyIen82Sdqe|Aw
z(E`V<g&2X4w5q?HQsr|8mQD_|j>P8V<OF2uL|ZEPFZLz^_z7DBEGgJ^C&}IBXI1*G
zj_O|lq6l^I%1`YL*ey9GT<F{3;bD`@32q(o*viU8;Gf+FOx0xQ%Fv_Mw;`1!CBG|=
z7A6=*{)+=7RkvEINhe2XsxgyvHTU}z;x8J6x&Y>;ryAzQPCV(5q!Y)-!>sl7J6Mtf
zO^YmtHns+gnl7dp3f7G}rFJp7xVsm^a|iO@NH+%e=cIb=hdB{xyHoUaf0gi60KFUa
zE7-b9aXEm|eBFn?=BxjDcQYdS=-dDVoIrQdR00O}HW$1PcE-FhJ7pN!YMWSk@Jw=z
zKx)1yFbnlBwg_^*i}En1Tb;z_yO8i}g0Fv14utPcDE=8Tv*WLD>H8v0o0E>*+hOFk
zmQg;eUM#8jJ}*Jt?i%rOBF@HYM$jdz#-IGu=C;|IQQsXe`~B6TEbyah(7MHv|2_e5
z{q9^?hnN{FOdy!lf3)g2QGLU7V7r2Z8TPBBWAe8JNrb?Y2D=g6Fq+bGUMAOC6aCQd
zq!I}Uhw=H~opTIQEAKhgTCeCeZZoJ<VSiZ~UF*m^y`pFI2vpcch@h^SNm^I?m|%T-
z)HXZc@du6n9<rXzF~S_KbVjY-fbq+nvES@cv>PK5Q!L9}?lq-))h?0VNY!3y)T(ma
zuu4_*o@5f%d27yi_x}A&jIVQAz_7r=C%^9U*49?~su6-R9Tl6OpI<ZErg``~DOP1U
zFY-)EWiR>d5uvu|#tP6Bt^;^r4BlVL)eT?w!yxMO^TpMDXTE(0TypNiO380a)NXjl
z&!IrG`HXkxWSu+?2k#s4Uw!=JomC~^=G6JF)T%LJg}Xbj>Ijb<*w)M&X~V_NusL_d
zfoI_}uf$G<1LtmwIeT?R9oZ&;@F<Hn(%8$OtiJ(FYsU)E)}$0bppD^!dH4KMQ&J8G
zXshklmQIeYwCycm=&`y2A-~p_26E}kow7Y@k48%!1Kvg2{H#d7zA&5+w!&iKWV7UY
z!hZYg_V%_XuUGZ7RWe&#^_W+k=Lq2Wj<VMk_l`{SP8l$Zz`<6orn>9aV&CShVBY9a
zw90xC%fs8Ed8;mIg#GoDF;$JWHK6La(WXkqLpNMJJ=NzEt-NYT?simSmKIRSq|1BH
z8YxYqxo2BiWBBXH08tYPYig9Y0Y+gfEH1XQ@tD;2tSj5R+o?fa-E3{7t|NL>H|qT!
zs-$UD78R{6zIgFs7|Nzbj_HIQ0?4M{a$b-ytBa0~E&{2pl@HvPZaVn$0N_03#flMI
zcLI=iCadQXt#*30tdIXRYe_J(RYm}u+=ewTdH4fEKUiQLc24$>qU`&w6jgbJP6Uj2
zCK%@4-(2V^wySU(dY7%AwDYWgIDrxh$u5%E8|KIxuk9ZQK9zWSXt4Y*D-NUZhmQ>m
z+6+2YQmou64@n<IM+c6=zMj5X)^oTB5cU=ZdfOChZBgejS}KHCuUV)|3t69yQT6&O
zsc|b?J%Uc1va@!n1(KgY&37)VPE{a~RR%W!AjANh=n;B5TYXjgnXr?5)xX*$itB58
z%lBS5|IPemJsQ+kEF2fZ_?qWCX**-ZzX7K=MJx~IO8~nEZ}w)~T$u77Fc|ruG^Rb4
zt`e{;nU)-tCx-C1va&J&UT*Cl#O=C0p3>$On?hEvw(*tu5X)Wlbz}JU;)e>&*v@H$
zQJS1PKmMMuZs_?LFV=K#Ic&}?==aR`1?UNWm8~>@@G7YrO?3K6^{w7`AkXdbt~cyX
z)&NmOS*i_KNx@dny!ICK@4az+^Gee0kk3!iq}AZ1?4(08PfyQHAOr7^(-G@?>#L(>
zsjnsDJD*G-HX6*P02-=FIG6#oM6ub`9qe(B*&fVSO?3-Y1&-EL91SL^tCayQHrlpP
z#GiP~!5{$8%`^ZUXO0j*0i^Nm<#lVbKSg49lLNBFmVc|3sAdBA83?}0q|GH|Z4NLE
z74y4aUz&Dl$?{LKTF4(XAcOXoC^-XAfPrLVfhMZ@(6|ErJ#a#@XVrv)`hdh*$HhAz
z$)iA~oJ{uTw;AFXPS`%ued?BBrGJ2qi`YcaRJgF1LCRJ`s(0hw(<73M=-<9QRKWIC
zg2_h|(1BT3UNPce4)C}SAgKAjm4@MKLHOe78^CB_+P*>gzjkc5ZHD}%7Fm%ks0JiE
zJ{9jz3c9ZUGyooF5;*kaLJU9B3^jpFz_+2k<FDd1S*EYR<Jwon?F$Js0~GAbSQJ>Z
zI9NMQBp}mmlz}EC!+BeG_dZY-C)c_mgDw?uhbfUO)MlB$icrlZ58qU|;i-7N?7+p<
z*+1~AiXyA>+C64_uNtDsHm~v*x_Cf9g>zC_m%sa1fOq5eB<q~VePc(Hj{Hj-42B{M
zBKW@YT_i7RLC<3$f>agKYH(rIYQ6kLO3DOA`SGq~-5-K=ck1@?SW~d$w9Z+4xZcg1
z6NFUkID#6x+MiuDO;w{d8*2o0cgBL4aD&hX`XJ14HOPTnEuBY3sJ1~<NKL<wixv=Q
zeM9_n&Zn_s1&(#kE@Lk;$~%V24w-bY^TpL>SwblMq!#=Ov_bcqhqHgST}0u_B?Y2L
zSuQafpd+3@(g7@V+8z+<|K1h<ROzB{JtX)F+!%7g{=aP3&nb{#J|7jFwm+Sj<VEVZ
zZey$sj~nC%R&E6Gf}|j+NNI>22n)Li;=X8>A_AW?lT`26M5&{Kki5tQw2UpI8e=`g
z+E_~!1{M2tu8NWTE7XiAEAKUK9_buz(1m;=PZ%fe@1z!{YNpm`7L-hn*QN~qHRmR1
zKV2ZdQ2flfebh->F*yD`)N94gY~U`IDRrcx8$%yP#CHs(w?BN`^3p*u*UfD|q42Lt
z|NXfNZ)w#`>$QBjq0@L_)S14u-7j?aFZ3=v`Se%_U$9V5wGpJkrU1LZTfT>X;j1aQ
zo59*KM9LLF92QY%M3d!3)!k8t*qn$ti*EzAcFjRfbcEOmQuo=bPIW>E+sL2Q>~n5p
zQjd|HIkwV7A(JWGrA}Q_W{=<i3~zALb_3_!^s@^SL5;_ic&iydGIU;Gn3p4+C+&(>
zmN5kj_f%J*O2cKg<!J71{h2%~9mBRwDJJeaI0K%Qb0#?;0ZThc@2+&m>-5^K9N~`2
zjAymADZ35bdbT$7!y?v}j>M)c<BG;^mb}Dp`~rvyDu$$j5#T8%OOzdC>NZvm2()6$
z+H)JHV?tx7GBP4O3stgk<6>h;@TVSC;O+?AI4CdCpf^rrTm1hau>MW`2_XA=1q1mf
z{vw=P2yUEhq7R~T2D4Cv$>N_QOXqIK4K^&tNu766!l{xUkOb_HkvZ(SdQBhlBA`(V
z=XQliHQQfHtWJ1-9jg<6fG}1b3oFi^JFH3_7y!W2T*;^YdAgZ1t9^*161>y3J8Wx*
z-4V%`Ef7aqAvM8m&|EMF3IokVNuV~8dRz7Hsn+l@f3=`r>nLt4a+*0O$hZAm{RP`)
zeS~*?RpJ}EMo^0_7hYAc{3nhhX7owRizo7wz1+jAU>T&S=$90TlGhm@vn@p)rHpTF
z4g9pZQbw7FH2oEUv6DRb^_F%H{LTFbD;>2FI&5FPB}cA7ZYMN4YR9!>EqB1&f0%qi
z`n7MznHU1_bsYP832tn3R}#FMa~*Ds0bB@#Kjx^K|Nn&~08iy2yB<}=GDUFH_|LG$
zi{y{w>DMBEC?eaCBS=}K5tJM1iH`&eqgFTy4C1m%k0Jw9tx_AVfm6p_tBn*POY0pc
zrJ-n>Z^u}J9o5}Tq!l0EZHm7ypAW>Pt-HH>=-%tZ71VC~kW;@K>;&a;L1kdnlgiQ3
zhu@`9dwmmKD@?2^m7mtCvIlyyrw|)K$y9kL(<j^eR;tw=M!m#RtmDwKAhZh<5FIU;
zjrGzRCBiI+zlOXESaC`!GY~BXsF~4TE(2E2W6sT+#I&D8=&rlRTjQZq{`7W@9P8Jn
z1M0#?$-NpPb-K$hk?uP@14D9m0ION%p+<TaN`E3}JXzxmr6yZQdaGaCJVQ!%=|!_6
zq8q{%v8oAk=PXAmWOj#Do!g+**b;hBmBt*}Va`R6v|YE3aGq;gn1FAIe(`#iQyiNT
z+?(}+Rrf<S?ZKw4bKl!G1>3sEOCufqp9^$=_!vP>K`^jJmT~3-MF)<pJ^TaFN?FDI
zj%>lZ>GE0)#*ZGY5nD7XEk=oTLHq9RbR~D+QDPxii)N{6R(m|&ox5pb-*gz4Q>59e
za3GBMAcjm$O-8Jw@xK^ib+J}G8p;d-aT!GVv(nd<JbrXPI*Z#|EG@TF^Z~tbQZr4g
zG_e7QpAPwSozPitCbxQv#Hw{_>f>D-Ad$auW3fk$;wRDRZo)W){Uadc=YYD+b=$&$
ze$%$f&>vMGZS8aZtIqgW4$|A>Co|#CtJt0<N3V<P#$`2T+y!|vbiVZ3xK(Z69D^Sy
z$4D6i6W+)GHNN+GkJe>2W9NZ}ee(IK36ComIJO2oR3e-EtMVJDKJ%%#@b?&_kLG9j
zTAG=?(sXS-t+wtGJTA0OEA_MB>xo9rkJ<#zaCnue2;5lk?j<DV<wV3wACPIJ{k?yV
zxo~VbTI?o0qUgn$aD6xY_WtrU+oJ`PaQK$bpYxK@2c~_^=)>P@`btX#zN`=YU3=jH
zz*=pbMA(7mnL@3&ERCGIAUo^)3&3{w*Pc%&nU(kmkYHAdBo0^i2DlAXB{2v+lp$Y}
ziSxPK&W`6JWuD2?kIS+xy30mkvS-s`hK|F=nGTo;*{LhQ?q<O5lkCCr?gV#y;DlL>
z2t52|2I!F0$9fpobE`!Z-XD6YoMrzG$(QtmWMQvpFN!l_T>kq&PW%R_4wA_{0*T-?
zA9?ep00d&E96bwg-Ld<vJVfcEPkTocvg$JVQ=G_yI~fMO3+&B-8f5FOrn=_c1j5=?
z{0d&l{)!A6+dkmeYtKXRNnkV6yqK<sRZVPRCxWllYKj)ja)_3foxvf}eP?lElJJ7l
zM`ru-hx-u$7OWB&$%XTN70Z8HDde`)GnC`Xy(AI1<9&l9VLtt8N=uzZkCiUf`~90e
z#8y&AA3D4P=vQJbrF1E>q+g3W<zIa<&_+`fj|jZrqgxH%bkec6R8bsOD*&KPcJ=8e
z=oiHR_{2H!RnYjd7yLIV$?rtqmTb=zZcKq!6XaKIn=MLC0GfCBW`+RSWwME_`V66-
z+WuZ7-}@495X8Cnx0r73snFIq5m$9iB15<k89{=O&H?hxn)G>H8gR>G(Opn6(?t+3
zN4HePS#$GOUjV<Zy{4T!OX^xQiW5nIi-YUIGB0DOPp1~sp8y+qk1>*U@NXA)4DrYD
zG3eu>kLhYaPd7m8Zxo-L*F`!tdq--XT(w5k0=o|#qn%iq#Xss>^OsvYK}wylju(M9
z*k*v%b*YYE`mqzReck`z<qX1_KFR`Z(3j-z4ruCa@N)<SM_7wuhS_h!xB~t$Rs&H=
zcytzD*JpRkWu@{pFbDJrBiZux#zGf&KL8Ad8c1;PFwL<KH_SJn7nddV;|yM+biE4F
zA#wK&056>kjL;3jptaRMF#cp48Kq69f-zu$Vryk!Qq~#>B|wXUg&qp}cxX!iXJiA;
z0F|(P4jg=^<cI|FdH;Ru`R~*Z!<hjAwXOGDO4l4d@{an}iWjU2?#G)+SiTp5Pvij%
z%|HUmk<u5DEWw;E;w5RUC{G|?oD4439|H7_tIRad=G+z&*)n--)fC8_sn97{D<tW(
z)GOwU1%#0pag<BxN>B9~swt=f$fO~Ia&n)Pf~jj#-hAqAp1<?o=oed9ZFWx`9#&Q8
zPfj-Rtv%2K2p54*#&_fIkW}%{Y+M%d7p0RjQS3GahH)ku^78rbVTNaw9&Y$LDsRrz
z&TU+y)^Hby_UM^<!W`6LtJ;f2-RD2WTLLkh%hPl<iv{L5p~L(TAf7b06QsA=6j^|8
zq#t;ueg-N5j{ibQ|F6pHUuz1a+cDC6JQz<}Jd8peN73Rg-;T>#2egNpKrkakjSP`t
zuRdqaaBx=Xa(*)aqmuz}?o%~<XQ7><Tj(hUg^LVi8r}w9tml$@H8f0$*I3<734nk#
zV9#!R{o>Ar&u4-q0wb+ot*t`&FwWzN_yL=*Mu0LXNCX|q%N+YCI6>#><(gQBbpnoF
z>a&y5g$mbNeg<j_6Uo%aJx~qqx=5SVoj&}CgcU%16NQ$ccyEZ={J9`*9QJ7iz`JV&
z*)Z#u(-QFIfKV+!Ee)>xhrs*SEB|*j@W1A!{~Rw3apI%#Uif!>vpa<z;s6H}yRneg
zP;+=zd>CoPVpg!=pOrBSNdom7;M%h|Ss%%F%a2vXKij1@5v9t-;NkZq_cZnE_H(Zs
zS$~v`V&adG^ttA9#z)x4QjDm4g5s9$D~y8GnPWt@&(WCJQXXh}5MIo=6^AU9wgz-e
zsq=lbz$ze~0aJ^yP$QCbcE^z3peaVLi($MH-)aA}y6qPru;sT|qw8#FQ@lxq4I}H-
zLEqhjXtj|w#1+W`M~<zK`p70}{Byj7iBTFreA*QZV}5wikXD;xau0A^@VHu=3I>_$
z`Y7MR%ccMooVjc8w}^H4|477ceE=PL^fMl*Zgo+lx53ffw)T9fCCG(bXa!^IZlQ?~
zkP5W`09W9vkXxaZeo8)p>At)Wwy)0Ae_XQ+p6%G%x`J;C5gfF+Cvq}h?w<k5WP<`n
zL9)^7x0?A!a==6gU?w~1YY}eR1@A=iwE!svg#P{i98moyLUmBo=6dICl8e2xJp+z2
z_*gZs`8#_+;w9KrY#}v|)ia*}MKFD0JK$V|slo32_lh$VuL%ugwC&(Iyd-lbn2&(%
zKWY>l=|x4R$xhkzB9}1nld$e?S+7ez&SEPNdu{#w312o1s*agJYDfQk04u(|lNR9V
z`KIx3B(h=1+-kr&W@n_LVyH4JS&+AU$GgLH_=BGSSCQvBZaXWxXnPy#+$r!N{!0bl
zTCs=g8e2UFZ}~wk-5R&N6WO#Ks7!>pxVo?5+#fBKR=5YMuO604W`5Tnkppcwt`}R3
zm6A6XG-~oPG6HRsiQZm@yH+FPT$re#Si0*ygXD#b7DQ<UFiBIycKwa(R=_SH-T{&J
zAs)S|#Z$f;{d)t4Qz=i%jd=4b6B9>fpAAdd4F4G^4lDEMaG6l;;6>60Q*Eof4nK87
zlAQ{$*lfPFsv;{hjBQd(qz2adPi|AWWaMu_$JD6A2Zg4s8&#F%_1j0sM~)KhY6>*T
zUh@$JMV?Ddx#K0lll;3_$qtSzD|f3hTjzxJYorA<4WG=m!--?}QTK7w0vd0Fg+q|3
z3t>0ipu;+JGYGf#EPyU~V>tJ_mh+!Ah0s%y*NXnNi}xSjRW|O~Qva;HPt}Y0-KBhJ
zSZE%QEiT9Q3`G~Uj$V$%e{4@QExn5OW(hdtA_ys93GODW$A;LZ_X&#ZQs#6KoSo<!
ziF+j>)h}XJZphopH4xOc(Azb=f4>tD4Psw=3UI|B=QGJUT;@z3MB1D`92-L6@Hv*T
zBZ(5lziUr?U?NGju~)haeamQx1X~Ow{NWMJ_^{suetXec!T)%3)IeT)qQzbDO&>`a
z?4Rs}uY<ey!uH*)FmJkU8kuAC!;8&U_P;WOy_)fUQG&O-d{^Jhv8P3*x!sC`H;~cC
zSoF>Emt?$vMT=fYbb&T@e>UPIpGk&g?PY`jR`e@W9iB0gK^$3l+o`rSxUD<|thuO1
zdx#TrYh~$9GjC(=k9slU!<K%$Ez4m4xotcaUkK;!*Z#gd^^%O*T6q0nFl2Aufd_Z`
zBcSJ&zNq9AR(d&x7bt35-?nSS>PH?hz7FSg&mzx%b$jP7U<-*6_BcsoFh4eKHeIVC
ztW9YR^NR6RpXT+;*f$ajv#$i}nv~`lUY27!_0*mZmqG?xMZf<0Lj8bu3ygk9@h)KC
z$2-Wnkqo>EsUhq5QdT&s=ahzr7X-`1b<y&kLlW@#>4uoiZSFG#^xW(GLgi99p^6J!
z2v$oL7-#|%_QhB`z_=u2k!8gX8?q?A;%5|6oD>ZnZ)jvZP+GcBYtK%0ZN9;a0abz{
zFfQ7AHhM}=|LFUVcMjkGU>wPdJ4+FgDbWfD&~dhXX4*_GAbz;UHq@xGkQ$X<u3<(+
zG<-clT9-XW;GwwpKllGD1Ao1lI?I7S#6w@1ei++BJ038GI#IX^nocT#7r7^<n3Ym}
zd<^8p71(l5?Z9)8Hb5@{CShUEq8B3gfVyw(B2W+>zAnBI@ZeR?>4?~2E}A^F&Dp?D
z${{<?^!dDl$aGiJX$s?X5PB%*{oSCHn5G^z86LZK_YYYQx1o1H>7pLSpIG>8rg`3o
zI|}SToj7)AhA<85(bI1(I|_WR9a(s|dE~Q)8{2Mn7}5VYQ2sa1F=x5Suqb8m64Q>I
z*mw~rn!mgT?F5-Zj38~G{96*n75R*|uMd;P&XN!ly;zY46*?q{JxItu3Ty<{6|wkG
z(2c@tPYebgGY4&L<m`y%w<&Q^HVCx8@I`2WKeBiNp_)7M_c>Ki)60n_ZWks~a1&UE
zD|nI(T87ld&z0|19;@(mkdvZrG@FO(>aIyayK@_Y=oe%z)!IPoLDuo|-bPMC!9jzD
zVJUZbtsp($*SXy_tuib#$Sb|f)~r{UoH%S@m+He#GGRLlru|9fd=(R*w;lJq#XE8d
za-b0~Vj<WTzAVcGse)!cYDs4_yudJHie~GH&h(WYxQYy7@cP;3#flT0hALw=kxW`f
zE<70{58Qa=uUl<tt~&w`9)__pMCdcubXMQFF2GxX@Em?bzeO!Q3p^W~EZ=p$Iq7L6
zMEJ?uj**B;tqQH_k!f}k-{<sGtzwQ9Y3_T2&<<2YAB~f&GpzQw9^{ddIcc0|RN@LU
zWbE$zT@T1U8)z1bV80@}#y6obymWiYjuoCeb1a+5r_~NAr0tdu^@3I|-r^P4S{tQe
z?PA>82?D`t3SOs#$aI#lx4SU%J$%p?svRWe7Y$s-;lQzMs+?YTmpXcE$Z|1&z-+EH
zP21T^?2*TV`+&N*Q!Uo6o0=4o|F?NCuMC6(;5${``MDGoA&SEJu)A~_9*s{pxZHXO
z30gw+9%yvktoiDysYAJI#~(eV9vTy73mevsJYGxCseE2CcAOb?E=YiU#@;oiO+!cN
zQW03`S?@sS4zt6#xiPe59?jTYa!bYIHpRH#REs)#$gQMWOVcJ5s0}pSP%=C}_K4F?
zBm0glnk=fdd<|-@Zo!L#P&CMWE(Bxyq_0aF4E0=fP3#VSPU<)-4+;}{lI+Z!YO=y2
zWSo~<X(2b^j;6i0aTOl>@pa6vbbjs>DMKyR6C9yM*i}g&GoByIWof9@XLdMi_Vpht
zxgr!MzSRDHMVdX7D0qIAnwIWdtJ&*YbxQ{T%m>%Nd79lM(7NE&A!sI#vJq}6y<A=a
z+?SCX;Ng#u)jIol2gXHYP=|cfrLqshPHAb3<jgtXb-yg_gUwFuJW3?$0NseD3tNpm
z%rFqYAnz_j2zj25A+doaR7S{T>`REZ$gYMxvz>;(tD(DJX&%qrBzIH}z?5qa5;~fs
z>aUfXl7h&1l-W`+*}4+Sl3HK3BI&rtnab3h7^{=DZO>+|-epWuC$ZQ|X5=b7+cD_%
z#50h{F15f7t4)0u1dBubygS|sof(MvA-i_X-mLjv{pOd2hKhL4U$U$eUWfa8$I;I^
zuN~@5Lt9?D>9K2ld1ukL8CDs;mSpT+GBR!7oP^2lo5gH=^E-Uq3vJB6%f*7l-ce<-
zALj16r0^pV%ynmhI{#K6TSJQIgB6+P8>Zh?PGPbU-RJ<`n%Me8k!^b>A75_B!bNhu
zvBl9>8blKEUXTaM#E{QUV}auT|A45@km=xks(01B{4xKdFN?sn4R2w!?4SNO6|%AZ

diff --git a/reference/Rplot007.png b/reference/Rplot007.png
index ffb60c5b3d591e181efe39da37dbf6119bc02b80..d73c0681d454e401ccfbe7e1f646d30411a484e2 100644
GIT binary patch
literal 12758
zcmd^l2T)V#yZ1p?SsPdo5g}MmR1^fH6Hrl#Gz9@E0arwNQF>^W-9?ciAR=9w2nbn_
z8k(*`M0zMu0tAc@AVO%N1Owl5+}q~=-MM$}%>L(oGasWyLOAC=@B5Trc^+Oe)ZVsP
zcr$_^+jMo#8zTtM5c>D$jqpxzcU?TZY`m_geI8!nYgw~86kaxY>R5Oo$d;YxUmo&6
z$ae(UkLaF1d&NIxav;$A2|JZE({3H7@BVAGz~c*-*I#MK5xji$56iv@voFV=e=D*g
z6jE{aZq=6xz7!RlOv|tS5?T1bf5Z7VR7?TxhSde;W#Ju<@0sQA7x=kCKelRhfxk^Z
z?vz}jgRD`=ff`$er_RkZ#>z@?x}Lh1ShP&z&j{juj4-(gK|D_!yu*Y1aR-^ocwv-Y
zR6z@&E}TXXi|ucu#`uQ!M3Wl2R*;V1WjCYe5|$-59!?%Z5Tf!F&wAwA-7+ME-DA$~
zA%vKYjEp3y_~iRe^(WRz?R@CC@a?nkscUzlRHu{%@XW&ShU?=@>6+<tC#@?l?Xe9i
zK7Rc8>44cAlYM1+_1{ON<?-{5?5P2(#lb+2<e8lhe_fr^STlJS#&2$55V<-dwsv{g
zv+`Ylpsd+S*mD!RXd#(%wSkMhMxh*&!*NY1^tzeGeZ=WMw@|HnySuYXN@V5b<(+z8
zS!~{TAN~l-J3mPa7)?xJ8>&v8=FUWi>aSrQo)_4<F<wV}c2K=)VK4G#uOv^<SjPc_
zR29>9jkOx#ef!vtY`>o))UV<>obj&Qg1kIkYPnk%Ni6i$B(;K>Ur=<>RxFw%AG#WZ
zo&9h~#dGM+3;o2*zCKI0zEWLgZ(&!t8+Cr@KL5l!ehq!X9G4YpYgOUi!(lVa9NICF
zqN-*lFZ9Pfi++pfSzV^M5Ngd>wTo$k!Hc-b&#$!^X@N!M?gL3){a$U#+6CqWGfhoR
zPDz4oh=ttEmP<zk$hC`u1&*ilb;L8}U3$k>S6J=KHC`_mzgp2=jytY+m$oAa-`*|o
zAO@zU@yeb<Z+1{b)%-hjWQRSKf<M;<uSAG<b$8#0kh%Hs$+6KMb6W%3wa*Ued(+z;
zc0N4MDWQ7Q52$g*vc_k`6Q4ePs$jQGM5*KZxKZdwW%FFSy>=}Pdu&|?;dB+aA}ZcT
z8A^#QX;`Wn?8P|ENQ3J=HyFsWw_adVY!wv;yiFRFh3r~B#2jkPO%F+0t<A}4(2<?-
zS0hZuxuo+TDX(wySJu>6yHJXHwkh^Me<VfJ@uLO%anfuwHSd3HZr;85H*)jhM2}u<
zY3SPOynXP>g29@|&p%x;H9bsNY@ht~+<^xAEnRXNHc(tQK0bat%<cZ$=Ma#eM=>`Q
z3>%$2ScA2je><1|^5vLk%0f{c$9W)tkt*9b_PSlYD@s)L^vxC_T{6*!>D_r@PactI
z`S#i++cgfQ%#Er*veQ|1OSfLxiVUTcnV*doQ8tdoE<6(-AMm5~G)bht!d3g`y?CKD
z?0NO%$&<%Vo{Se4Rq{L&dj*HXbzFsDoLvsu9QJPWPwN_-_8URynwgly{W<&xJeO!;
z;Gdf$UcP#zFBUu>lNP!fz+EC~JSEXDi|_1QnxV7dU|rrn*fG1p#ZQ(|=BMBBI~0yA
zuI!G~>Z-2@2~ng?#<``J)yb?wK19dYr=T&KZ(2aUyM61%9!Q28vU&OW#|;u?FL*K9
zOiu`!oEGj$QTFm4&q*k+GXHiSVneF_`|W|-%_p6monyrzL@upC#tm}<?M>`x{`5#^
zSJx*pT5L9(vqX=cvs@cZ_UNq%m^<w;sD=w!9*O1CNZ%K!Ws1X{tfvtMs{LHrQk0dM
z`f$f+jn&H7rtE_;4@TQk1K*2y{p%jaBN!F$mzI{6-hEEFdGPESOK<t-;ldwT8bM(}
z4dJ`P&mWwi)z@$26L}dPz8O37epjln*YKaeamWdE*>Y`4n)degoaFlDeZh0dv?nC`
zF)cmila{4AP%|jH5~<lXwRoqIkMY6^u2*fChLF^c1W%IpI;3QTa5=gv-#w>e59@ii
zDKlO|%$ehS;)`l#Kc@J&SB(g|eJ;5G7Z+A^Pia$S)hJN>N`qDU91z4ot#PvY4uTB*
ztQNqF+}S`1LbMO=2vAFlSeqg;i!h2($n(IV1C9uCLTQwRR><`{Tj6s*ok9@7?Qam|
z>a`IQ0snzL$k5f8$@S?(wL5mjS2?d!Q>XE@6R>fdN9+49UA~-g{$R%F=uPv9z*-wP
zK}U$&qV5E|7C%IFIEh}w9-3S3hJuh)7dA2BY+k=TtE9xZ_^LicUQst|6LyIkVrpty
z)u#zZo7p*bnWibe6N2ehP92S9Zf~EnFiB-x49@ey{(3GWLM*36vjdiP27&eR{KI<x
zjyLbp7JfpWS1;4nxVGG3{?IW`WdcPKBE|7^lKH@<T}Q^U;|wRh&39<R7Im~iameRz
zIGGetEZ)1*<;z&Z-@H7tI{wP+?DsP&nCRRgpSh8_<*zgT*8ASkXDTgiZ`bn@7N^}5
z6a#gFo0PF%i)gz^u`;92zP)A4RmrBGi+Y%LTm7eXJd}xQuAk9_HGiI4e_A|ZD84g_
zqAP#t194fl@q-Y(PsoNq>EV!vF%bPOc0zXIRrO+H8FUW0Ggv*_o5X$GSJz-RX5Fv$
z)R;&Q@yxGY7+Q3QvXtZzi6)5>;x-SR>uoi6rW570%-N6ik3>&kjCqMxcG*({B9mAl
zyQqn|1G}dOW`cB%#1*xY#;yC+pBne8i=o%E^QK_#y}j1h9Ka_8aO3A|5RUu*YVjM9
zH|y5@fAQwM%nhDU=Wu=lIncUYK9|@x9N&VRiM~>btU^aV9rE2DyYlTd)Z@NlJMH3&
z>yZxn(j!yH?w6N|ljYRY(9?0AZ#Qt>iLE|Adw*jNq5k`9^I=_y^q>;=y5-S(r172t
z^IS$!BqeZZK}T2jp^Kfr8U{ahr=4N4f4gTPZ#1dv5FXMRN7i(5%9CVQd-1=$))Bu9
zU5doz1gS4`SF=JimV(qFr>l(Xs~6#v<!o$95h+Q@E-0?zx~!VHC}_jU%(W5Q)x)*c
zN+Q12H2TcT{QUgqK69pKW-p+!>xh537)+oPK#9bUoiQ3aAh7uuCR$QBl4zWcnKg0b
zpYiXHUp{|u2Z>9p6$?^NKbLW-qMv_xA{>LZ)JUz}j~YY>$&(v#o$Hhi3r9LP#U3V(
zJhkexR`>mORoD20VAtLCydo5Xf!C7R%R%u^o*a$QsZ`jA{hC`^+TDYJD~kICLKI$v
zKwP*MajTZMVo}p?@&Fb4wC(r}sYW65#rrZ^vDFOt7uM2)Au@}_b?=_pPanCkWeCs<
zimdYUFH&p*3!(jln+hX$Fu9IAB3n0>U2h1#9={%Wu1ya{i|5}_jQ(i_4*8H>Rb}z;
zeCE3m*pmnu=$S1A?r`+qLsn)SLV+FJnEo1P<jm!;FA!E1L)R9CRefDMnJRyGdHd09
zma6e*qDfh^v$OYl<F0fNmjOHg0-41RRN=nN_-~%lu)TX`=q2kdYq6QhCidO`x?23z
zmmgP#hRBa#4XIZR6$bo74+&OJzxVdJ%gS5$U>*ANix)47c$in<rH&mt=BOb+zMuUn
zloxtgqzoXOD9RkZ7VytW$AKWzD_0;|URG6oj_24A%nu(vT(mGW;~&Mr)YuTd%v8Ey
zvkkMeYQwIb8pHGdTmNdqzNg<ZAKewHCA!F*TNa4a!cqA{>S4iedbrT}1OT`{JTFq1
zpd)UbXe7S#uQiDO2E8m{ZaYwyzgq3z7cC*wU2lqiSzF~20g}&J_R?o`Vk2ZkrK}(Y
zmAyv2o!tkTW=EP$ZEe#jCGeb0H)IL+DA!2^%8{CASy2pVpGyhln%gw1C_l|FDDder
zQ1o$jC&i|!`c1s$6>D*^kXXq8`1tx}>qK{dl;BUNi05S!yH~j@k8Bi$BL!<;7{Hfn
zE}!_$P3Gl0Qf|3uEOAMOCuaT`&-?Fi<v-oS$8vDeIC*{qi8`jd-v8@|7|R;};-uu{
zYG-u>5!rQnqi1k%E#xxF@3_qR)q-*l+Mwy&I!NT^y>9?ihr(tQ0@1Xh;QUgHY8Na~
zaOzRd^)+whhwRULx969=cBSqEDg(Y$x7che_o@qo+Jz+alN1SF<c!fsyU$2gw0eFu
ztIjF`=bJcHx8e@m<Wj8n!e<8vXy>>0HsEA+5d@!<!qZQ%)hM*Bx4C=fdFu!!T01f_
zvd9o%S=tGPX2-kVx2YZs(pVZ=uWK9-P!;$ZRv8AXv?E2eGE1IB?o*torg4iVCMLY6
zhu*fe^TGO#!|&ZabEZ)Ukl(z0VW@jyPR@nJ0l)OADh38(Ucm1ug3O;%UccmGyOI>L
zSWR<kc_tH^ZIG-m{(Y{!z49B1aq>)ZZ*HS?Yf^G@a!{a4e~7OQW4&78D(ChebC2#c
zg*H#b@w+d4EA=)12L0p^fx`5Ua8>kFZD!2vE=}ER(cYAzhB2yuo=?&#-i_B6D6y$S
z3o?T$UuIKWrhbIjwG8>TSzWAz9rK#ZU8E6;?MTiO-FdV4TKwuVgAMrhhP6VBj^pCg
z0P#z><Y~u_{V4k|L%}r%_#ciuY(z;?^(&%pG`6IiD8J%g7CKmc2uLxpmw?7QCR&0O
zy_BMKD|2;LdX3y^Z7kt@O31r(5a{d+evR*^2==M-r<};*k$dH|Vszej2F;GZl2ndt
zwqU)vyWX<W^Or&P+<;cbB^@*x#Ff<-W=)Nazf{t$Agb7>DMxQ;0Jr=QU*%srIB(s*
zxtdHS-&@p#j+@1{37Wa!Hb9hzTZj;7OO1+GtgM)Q%scqLkjH!syCcfgs;f(MHn3Dj
zIA`ck_@TSJCGL;k-sfee`VDqwUU*a*!o}CJd##dW?JsgTBh3kVvDb^Ap#Zs(2iodj
zZQ!0#_c{<Op6G~+gwBul7FwZvY)`PdW*A@3^zb{;LTIw}Yg`s?d{}z*i}Y#NPp5$S
zJs&H}dB-yG!|OwfXHWDr&)~Oh+g9Y76&@ZwZ=Koc*vZs01`0?Ik(88#9^6ePfBBdK
zhX>U`w7t2Ik{}+}<X$BP%^nJ%C@ZWrS+St5Zm?5jSxEVIHn5_xz7QSpo#So-j~cA^
z9unc(Qz~{aM(3>G5$N!Z`$|LyYo=GYDwCyMDk9H;%dX$JwPSv~OCFYoGQB8?O~{+#
zgARyCf8}L4hqi8QvEc5}nN?R7Pu<YHE#7Z8>=E$$9m4nwq<CMclV!PUqO*(3zovLy
zw+GZimF2H-)y`6o^m4a1PJdsXD+^klt+5s5MUdIJxdUT~at`?*nix|nv@6-0&qBf2
zt-M}IgwL->4MCJ%d}Rl}ajy;Ah1{_-Z9@i2>>p`GV+w({<w)<7z43q<2f3IFxk#}M
ztqoxp*p>yX`caB-MMj$;d8Hf>0<PK&9!qD<J>u5n`br)|>FL+4L%MNC@-i|Ga08(T
zLE2iU3m^y<*JgfJ0~iMEt_eUIQ*&I7X@ObQ>@V}Mco$gw;{%$dc($|Kr$5dD8Q{mx
zKQ6E}0Jw~95x>x>{dCINvXHC7u<Qi6JANQ?ttuz#JCBodYJT2=+&TDR?;A)2?(23&
zSHxa9G>ahFTiFkJkd8Q?CEcrqll@gDkW=oh8{lcR+5+E{m6ZXNi_HeAclE@J9K8hJ
zruPUk)&y$-eTXXct-VSKK|YwYoj>f!gLrDU{aTop*R-UN{iLz6G1KU0xXjr$WR<nH
z>VaPSNA5U5M1#PQr0jJwK_4nr+HnU2<?nsvZdRPydUM<0GR`8)2#8*Xt}^ZS?p!0W
z$xp?HxGQa`sy!7RwiJmCP+Sw{Fw?t?)H3AS)l48Vo=})Q=(h<r_`HJAjew!!<?a|^
z*;m}C<p%o{Tp!D5t-&&iVq;^AlJ>z~n}xCD09OmE2UWs$S6~0DDX8<-*f$GCVz8FA
zc=knGg&QBX|I6*<?w}GIcf!2hc>i`C+j19*)W7`%j=O+o{l@H2#l~r$UlBwAo;mHb
zQ>?JCFu9&Wp%fGqwXt<!m%B!ScJylUW3!1wm4@pwIG-L<%QENq!O%7CzpM&2YtkdM
z0ARZd6a(0M{8&a9D1g<@?spC`DFg~6y{dH^0PNDzE3K`q0X>C<g*`JQG1}*GpDm#4
z)UUD$bCwE1TaPE|zo?Hroe&$l(;!XFf;_DKv2N+hBR<M4qL@~saKocBommiw``jzf
z`uO;$u)9qlZO*)%U^3ZM+G_cjk7mZD=uJZ}UL2{N{U~{XU<EXtZ-~a7^23AvXTA46
zqGc32r#uumRi)jozVa%z>4teL=nZz~;2GNd>arlOJ~HNx32l9`#)I5xYg*p!tt2v)
z9{^&mev?1{638fqYc;p%jZ(>55rh;T!4m}SDK}J|JKt69DhnYmd0U+qe$*esRvuc<
z%lCoFMjtBF5R{m2u}!d_CiYv0VB^Q0m>9;0vzZiWuGd9%j}pl2&+rp;RRs(l<c-X4
zjQ^Th-b=A<91=`#XZWXf^WGHz@}!1|2J}alfmg}7W8P8&d1!BgPfUd9^|*6?k!g6+
zm*(DM<d)Ul?(SL5tBdQ^G#AlxPv<wJj2kk%ja0-^j(Tfk_qM*jh^%ni!VG@U?u(+A
z3`w4I{Gl0M<5E~Cy35=U^F^!taw`cJphZ3>s(S8|=;I}r{>?+Z*vepar5MgT+Yfkm
z9rn=Zwu~Z`+*F-`Q)BueWe$h$9Ey2B_c4|@e}FkEx&3Fruu7OiKzn4<{ne)Yr3T7)
z6@OeA`~JGjg@ZdTWL-9&*k?z^ipS}iH|k9C;y)Dm@DGfq`~b+<iUrMypa%`tL7EA-
zJJxf57vSIxg%b9mU!VRroA*EE>aT*tPNh5~(feuwylk35v4uk&WvAu=CWUg7nu<Zf
zKyjOgm}Zo@9u+WF!?ZI~7NAQ&9amMwdhb}bbaXpk82iJaXn|UkyNtFbo6i%G+b)id
zo+Bw!1JxBE<5|rUJ$d=h{*%<AzmK2^oV>Hhq7k4V7^JJ?^b({_npprM%m!tEU{hOq
zy<sz|002+xhA#i;2k#`Yv^pWHH{5@#kbt@tvDx%!4V%!Ficn_d3lcp>99XxCrF5eH
z#L(OO0Vk=SJ{`4-fb_JP%PT5+D!ySIkG9uGbHFCYB_+XGu+C%6_>-w!lbFoTm%yqr
z!^mV~xWw_D4=au9eSp+R=H4KNK_M`o@EZwnbanO42{B)|WMeaRkz1tn^y9~mS1c^@
zE*<@fa(t>i<Nhw-K{kZN2d>PBOy3G9r~}?z2AqO=jwImD(yF5Ja<kZOsN^7olghA|
zXdrHMAAXG5%Vc+A(~Q3;Ft$$U(}#5%pJh@K_-OtQNc0VEgdib1a@qI+)r!E!U-A48
z&z}RPUbfGRoF4drvC;Lw*Z~dgKz>|+q3ZDBN>{BaNM^DWZ|h@WI}T|%_T-!5N8-&(
zow|-hiYUtl57;N*j_88lgZd%#K8QVlc2G~FdR?5HZmF56N63s<RkFjB1s~-BGc3c1
zcWR>h0|WwB&D+npdYc)YL|wUyneB?lR_=a-9S(vNJ->hZrPIPEU$R`I1>s;7JqBNW
ze(liAT4YAZwRJ2r(rsUn0j(&3rVwYOZXs#*>ZqAAoc8HKsB`~Of&EV@&HwJ3Llsya
z1abXT7hDYrQbx^Fw!d1exSf7j^TK$SHcAOSl|i-h)CUBs;y-<@lL@IkS|;*0=b-oU
zB2S<iCO#oyPidMsiFst_CX(GqmX8=n0m(8#Tk}CEFTUCm&nXQ2`KNV75it`PVBy4b
zVy#&j+1cm80CaYD_k{o!(aXbt>4eLp#bclRP`4!8$I&3>_M(N^ywNjI1JFFCM{{CP
z{~vV&pBi@*78lQU5~HEoeiZ6-yaLvr9^O;(>%i36SSA+4tl!@KLRnWS8Fd&xcGXBV
zcYruIybuB+6gHn%*TTc|pTdek1z2JeLJPO;Q}C`#0e9v{M79=8Ro<d|bH;Q1eDMfU
z`6nJ>0UX<>=zan}0I;ceOr8fhDu}uF|FZNNF8oH)yr>(H>pU1d%|a$EXf7RvTmqxY
z8K@y1o)7G|d6LFz@zoq2Wb9VB;G6W&)v6-~N#a10P!S)}&dDnn&Mqk_3G^Az)X8i8
z<aoPETzziDuy1e$9Q!IxX5&iLO609lN^V$N^ssdAwL-Dm3;t@_YCmCbeL1iD!=Tx)
zMKD`hgZb+9X|OD>8ys>2QFfv$HyQ*>A26*1YwJK{O;-;V*QJx9DIm{=t2d5yX5l75
z&B_f_f}$?(KRuKgJu@O5Y7xwtzieTVD2e@P-Cb{fMv7O|?|h<`^D>5jVA+sfz`l#-
z!71y)>OVVm7LcJNM<@>i5|{NjM78+9yY~-w$p<Y>XGX`Uh(S4(L_@l4eE9t?qZ8;S
z*WJCt#Of!V2FuCYxRa#Abz`q^i{_z*555R9F;vbOvx@+;5S9_s&hW|!1ODgD9}A>S
zR*E5W0bjy;)&PS6JDky30N?gBEFPZFyJ5GvBkEnr-PBLk5YO8Lf*6E6iCt?$z%Nb}
zVgnZh?1+2+L0$usv9H>XAj!^2>jZNw=ZC=d7yD$sWMu#cL>Xvz0^j2Hzxd`wZd%8E
zaD)JU7GS|eJtiE9VWa5<n8ti!1xzF}GiO>|F#L`RMHBGCQ2~`NvzgeR2B5>h%^iUk
zIy*Xcpcr|Sb7ueZGyC_~*E{+Vfr&Zqmft2_^>ruicGKa86PtiFykGgRk>dXp?5H&g
zb;Yl5q~8(+d0+<Lbi<gJA9DpdyY;i4U!dQB#Bu!Cv0G4&P`eC(KGdV#*wgazP2l8|
zi@}HiAN*$bV#lXXFHsk5LT_qudo*b`Ul?xkfCwMpzDi$pklSG6Q8UfhHZv>;zJ*=R
zD=8tzbBr1IqbE<AT3CFJF@Kiz9$e=Zs07xcbQpO!g?hs-Y`@7q`^IQ7mSwPAL=|^|
z+WMv85w4)#j>IST%b!0{05i4}Rt!3);U|t!CPG1vxk=8}E$UHhe3t(GtHdZ+@jivC
zFhkHnsauf$@p15NTgW+jxPmqCoS)6LYtYI#jY4x-V%!fWZ0q{VI9BDZGPLibins!g
z2pQB<ZTT243HJ<`yXgg-zS4{)WOuVQ$sUzXC=(u^{&*X-LZ$f@*2y$}hlz{V0m~x^
zk1XTDp2JAU8$}?xRpk;f(O@)qD!l@moLVLWru9aC%&P;MzgHS-^t=Ou8kZ+6I`zv~
zM+R!mLY0S4gL|3k(`)e~+D_g0@HmSY*4U^8rBna@#%;HALJr1U0(0BEo?{C89y&E#
zNssdS@$PA1pW3kDcVR9=Z|)X#N0aC%keF+cgM0WGfSF-!yZq7II!{_Rj8BxjNh0Mr
zkQ7)4a0w8xzI`hG>yFpo|IB95>K)~)zbk|N^`-!QoJ=d;Y1j;TyT+|pkcB?_YGb=(
z3#F}!um5(l<yppWTlVA^6&V6!gEkxGoGnEKK>`GX)9B}61p)1HRQ9B_hm(_T`%Fo*
zlw_a6L#-@}K$bp#V!8GTX7hjoRQ+zh`W0MHPtQ02M2m`G=8RO;*VtEf_SB8b^F!W&
zBXSg1pVX+HMB?YKUNzok<!)D8(V35_N;)59LfWS0YFDliWj(*zV|I}DK}xwtsG)!}
zC@nywyFk4u^By<WZJ>!&jarVW-@47G*S2VIfZ>+AsC(I#9RCh<t=5U2g1M00pV4r<
zw_%I^!I)EkeC5+aI8HXrrFE{L5R5W3)&i25jP`U7u$KnqWg}B{#9IIr8o+!>So6(l
z^{x@fpPS&pU!Wa1HW}DnQ4}}XNeny3R8Uk*b}6cA1VwJ_K~*_Mvg}*<Zpqm`g{tzi
z<rvu}zgMnaJ_pl_H|HfsyHfL?^?77n57){XjZ_>w<u@4M(CGpp4>STz1OwT`(;$-H
z1MXoIZdT1LZ}%}20K$@lDpB7)zm^ELkXg_!suHwI|LVo(ca!!ta1j1qiRb?$l!b;k
z9<<&vh-=Vj4QZU-3Nl4eQ8CxUB72oPrmYbx9t;VU1X=;G%_I8Ho*Stze|^A7eCibZ
zxg$eU-m&Ak0tNhaZFv4kHXeo-3gNK%5?XzO%bOEUSY$R!*ITz^7p-l$Di$w-S<AgX
zC0NVF>G>|BJy#aHj5K<>^Gr-HU%vI;ni?H1%;GQ!<_BXwRJq-DyYGq>Ad1~?mA4wu
zpA~I(8VI^UHEVd{v~PEFlDy05TVLL1QVfp4hzO09APzJYoQupJ_xee%)Lp5Ujg85p
z!G#T<&@+w*j%`=&PYjM@1z1G{f8p#Ej3ylh?`-J7HgoVEc1xO-E&~!)({-MEe3wLT
zTH1c@g?*oN0;je^c#<O5I5v`CYlg$6*4TK2&9(Rjzi8Ie(_^>DwU0sdxB@yD486?e
zk9hCRWh#Bf6b1qr=&KE^pc8=sRQs`dcbi*hfWeWiQJKTN8cU|PreUoh1yy~&eW+#y
z;m2A+J}5vuziutef+MGj-ssb6DDj}Fr}}?+IP0%=p^$0`n!4{~Uk*CVg9`kYZAGaz
z<zAVWpiaS%4K5oDkQeK-udW=TS`YL~Ofqc7>Tccsan8b^sA<O?F(9LY8mN|q7O%Ak
zHM5}7S})##QvXVk7G%;Wgo?KyH7)I6%bo1vl%RuI=ulX$bE%DVjLukIZW{S(Q=F-d
zO&Ue*H7?x+3%1yq{hsf|sOKtlwKq>5=vr_b&;&FwkIK5GZqOG5Pg-U-OI7Q8)UwUm
zijA4Bv^pGkI;^_6@r=jZj!x^>J+1GXR=tfW<x%CA9ngg-4*F+7_>{u4&U>Xcpk%10
zx7QiC5d>ykPMHfuFgW6gKI6PY1Wc|Km=%(b<)&nUM!4H2^hR=l)rxpm|CY~+hV9hr
z-{PbKcbNJ3l(lKBeOKT=%OLXh|6l!9dVG4<7Z_;yNYrOG!*tEYZNg9LLSWvFlfJer
zh6|c$AhPOKX7fAo-=ftyI#2?7S`y_<&CPSA>y{4EOGH~`s3UoMc&vRt+mBaOn2jmK
zfO1CkW=)DUo+u5|r)K%^tEU@*y6S0N@$c#}8+9<hFU{;F#jbw;^I<3_H#8O`&sP?&
zWuxNV_IY<}9$3l9s=8T_tgF6K^Oz{w<WnP{2}SONNv>fJ6ko7(H=~UqNx{wXGE<KX
z0y;aH_FW5|2z+|d>V<UZa`T0}WGAYFio|9#xuKLg0nFflXYc*xp@bm1T`n>Ux^)cC
z11pW=XkPsJ16Vw_s^7K=B+qc<KOpV>M#~}mFRf?+o2%;<Ygs;=NsZr#Ak}qwjGu2m
ziyZQhNb$Va7_ql&v;>VNu%<j}W_}lkL9Qc&inm{@t<9B&f8FH`y@)U2QNwi$g3EwW
zU9;}(k&{Z3d+p}?z1qhmZI{D=r=wYISRa}5Nu^q}k6`<a&U_?Y_n5}=8`(mm6k6qy
zFoF8U3wARrw6&1S8aFl!tmlcS0hXS6`{OYV3<jpxeJiS-B128-s%KFvqzQ_B47mN#
zM(m?=D{Z@b8*Y<C{TyM80p;4=Fx7>Q0m6iUVFgjU=ksJo2=}^}?Up@K-F|g*shK@4
zZXivArxBk0jr8T$O}o6G1bLkh*?(vF1Apj}<^ZUovDxUL)`!Ojgkj8v!|7dA18|F?
zf^8VJt6AF7y<uV@&wQ$&#yEoUh588dfJesf@?tL4hj78#`#O)k2jcZEL#2$?AaMK0
z8VoCm1Z%ISPs}x9(XDancz#xe9wAo>LS#g9Ym&SkSiGQLz%Bz=OIGygtzx8s^?w}a
z)hh3XncceazGYod)$d#PW&*W$0Sj-O30@4i4$(`<8sHDqj(W65+6?Xw>;hFrEMDKt
z(a0xc$;h$4qpQn&B!#+o@Fd{VB-k(jAW<snxo!Yf$7<%<^k~<b%_O^g9ce5W{sOb8
z;M%E|NlC&3p6|9no3fyI)TVA3C)6I+dy38^IeS^uk*K_4LC?DkRSf{Rkiq4p_FE}7
zj+IetnA5dXZ~-Ae14Q2`g$qnCcPeRZ6IJQ{_1!OW_8$e%$x6`A92DI8Zn#6~dkyx2
zU4#tK<Rgjt!gdicH((-lZydB<_*Co5%UR^IKIsZ*@aS7iLcROBjK|CMYbzS)_aH;L
zuTIidTZQcO)i8?SJ-Nx{g1bN8zTDf?O#z=+HRW|&h~SB<*8ujTEma>-gTV<w)$7W3
z5i`p{<21YCXE16J4I%VMSA6H_Ly5FgfOXs&ZNa>SH;xELCV`xjO$i1B*b3$<{=5fF
z{Eaeg*YJ&XbE2<<+d&kXXVGXiD^t~Oc$v{@brqmmt<cWVR<7zdbvifYb~s#0xx$t?
z`8bcZV5bIx^G!HN3yP5&;~d8Ylrv%7y$nj{j9{de0j#hU&@K8vU=;qb>8Ew$!Z05z
zufZKRg2_g8L25PV<E@R6`{ZoGvUWkjpxX-wJ`qIxWL}K_n-nM|jY4s9cdXVr^I?c^
zEzPZJbaYhVKs8`&ucpHZLUyxThJq$;OceMa4#}`X#&=yJWN0gci!Hxz+ZT1UO{i-$
z`W84vRh)@}u6l_$T@&aOMTheYga&SrL`Pw|Q@&A14yJ{6@r6Z?6@mi?V~vOHXv<Nb
z>lhpkevW@_ntv}dcxgCHD;9l%&{%zdQEihHylQqSYY`gl=`5{CSr}dbDh7d0$tJke
zhd8V5A=|DzZ{7VyRP@I-H}3P$x5Yea=xbpEJgfQ)3NB~SnkNXxt9QM@ZskAwt{5fR
z5*o`7-D_qV`4Zf?YSt46+O3<xgjS$QePQFNYOj)X#K{^CoT9!Urhtk=E;l<wA)s#m
z(XOze3Y!Wxn_}%1iCX2Tb3<>8Y+j0#MyDkq*wW^dd!rg%X|H9DFvHjqJ2!C$Xxvn=
zDLLsfN4Qtc)=>%EelR(<V3&sOTUPrPLeEkEKK)LCbWUA<c9MX0)yr90d3kxq=stOC
za-trM&kjZX)|&>nGg3(AAVFQh_0w~pMp6X(Ti#HIo&kl2v0lk^0=2UeiUPI5!>GQb
zq8dMumwO|klaU@;1j80n4;cI=oQ25(Po)#O`C!LD0;1EnP<z2hXF`!N-M{@qr8`7Y
z51E_^52DVD%z#-a?sS+&Hza8R2pAVtz8^jstv34rGJ`I2*a-#}P?BBx%e&tX6&1im
zB?&c|Fn8YGS@77(BMcz(15|hgfCa`}^%PN(z}_-09j7N<dj+D?r_|8-yF*%lR<-YB
ztc(_FgmH*4{ObhNEui-533lssFt~23@p{|-bSmmN+Idk00hA2)x#JW107k*y%k>DN
z@8f_xk;vv>4PG3`g|&d41E!7>)JgE~UO@8O_z!PD$6l35;P*s<JSq=F>Q!?;%q*)w
z<@bhZgM854c1aj^gZLm01C?j?5BclED?n{+uhACW&~(>{3s<2?p|j}N#r~{IN3)^g
z0cG<3qpZ(8Oh5X{R-j}M3MPOzpbvVz=cPGV)jwX9Mf0J|bNC#Ix#9lVS{STHku<t;
z7}^Zk(OW>MLkG9SiVXod0k`g21KcziG-rTLY($Z?7aJ2~5ba}j5g`k&)5lZ1+B%gP
zDRzM>*g@2K4P@1V=wP~`FkSyhnd@g+6hZN;FFikEl=cedz)ljvzT_IF=G!+vRjy-1
zO+_Lbqs{>%0c(>81p%GP&$QAI_I#C$4J=1*09!W^t0&b7WA@)Z^5TcaG=I#pwxbic
d|L7-7uSs{3Sb7UH+6a8<UNAggbne={{{uI>(s2L)

literal 12768
zcmdseXIPW#wr$WQxGdnZfeJwsv7jQ-1PNGBs(|#48W5x_J%oU`l%-M>M5T#HlNJ^V
zgc?wU2vVd*2+f5ANQ6iUA%wu4pKITJ_jAwvb?({sxzF(d1A%;bzxSPU%sIxG+&4DV
z-n?P=1{4alSyxBP1cee9K|a?D!ZV@W<OFySyr!?M1&{ELd%h|R9)9)FvGzrwHf}{e
z1v&=_%P7=dl&;oUv!Ilz!Qe+v*r}8mqqKUz_ID@j_U*m<%I<-2<J#Nn<dof&Py8Z~
zRW=ZGK)%mhwuvb1rg*i-wNPfP_2PvyzZnbc_uAEZq;LJ}hfZ2&?wD*D+i=3JOQCDr
zd-cysg|%In!PdEXk$ar{2iKN@$hE^9F2*P<J2r7f3>$?)ozV^UG(w@m<9`#_gbH8x
zi_bx&&?Ub@>$i;yiYS!zmb&Ao(C_6Q>-<6D2#hR_kubO0TsvM}D9b^iPPNT!5`&v5
zSodR(cXj&4<K<_*`dGyuH0mYVSDhqX$hbU6;7u`l@}C*1j%^?Gr`kWDj3&}*XQI6)
z5?x+&JUMJ?cKLGpuiIo?In#qngDgVM*ZRnOTap)U@oOY4>Y0HIo9Vb}vsOsh?9!!Z
z@+zMtyY;@`srGA)YO@C>=D*w#+-ySf8uVM`b7T|r#>6?PfkPcC<e6w?s*;jYZgsWY
zrAwD8r^;yCHwo_8B&g)^<-{?&@)IsKzwN&`As5Egr{7ZCZGJ+`>||m~$m%y61=N|V
z1;6}&MJNT&I@QcJ%er}ZbbAx#_SCR@Z4+rZMrp+CY#C2l*`>6wm5MU&VIs4rR>L=B
z-{a32u^M?fFK~K7BIxc9_qQoIeca;NU!u$GE$k}uq|Gmm#xh4^HQPMq?no}5Nef*_
z>@9LEstMsRs^{9e;032s+~u(n+!f{}mBGwXcPitKh{orknh^h{1J5SjwrhM+oqjHl
zonN4N=clJj`3^qVA*+aO+;sPx6lVEH{ey;U4=!fdRNTr!2Y-8<!a7ajyzpUqyQ%eS
zN)+xwy*$$x(b#y=)ZE-z7_A=E?HMU7aWc+8dTWy%DQuOnze!O^X%{vs@zl*%!K2YC
zCrM#54Wf<XbBRtT6Dy`)giOmDY4ZK9tLtWGWo5Nm!LpUZ_)JINw$jhVQS#TDpB%p4
zlV|R^q>5kkX}j6)%bOx4!)6@u<qr6^E4fpNo*c4w4f`qgt4P?FX>oYT#OL(uus4aH
zjvYI8F-}){Yw%Q>ox33FP)dSJ9Yj&SWl`@j(!eX-c$vv}LXs`&UGA=~#;3$B4sCB9
zsD&%WWkOgu5t*<>bmp18FZ1$_1lNSQAKbp-@M9gFxP|FKS>3#Xf|hEJJ(~n!KZ(li
zC*B@*D%d|oBN?R|>+IOELn6jEbB|Z~S<X;MQI!1BUk~L<uoU5FaaEJJ60bqEOG%2l
zJv}`e1n*S-^+2`+PCbJ1XqKi~(Ypy{e9Ap70<Grv`bFr1wQi@7B>v^wHZ}dKK$ZnW
z>b}Q+*x1-~XX%UTcD}nKbO5=`g=lkA)BS1fIXcp>&g>mASR2gfElf^IO4@#3YrAmd
z#{Px*E+fm};0g`yw{1x1Ej1Yt_Qg^%Tov;=GPIfXBAVSV&))gQ;j!t--i)S$X)QLN
zSRC1%51o&b2w^J2{CLk+n=pknsE@G;+HJ7f8{FBk#53y!@3^_SnH)(lF*i?;F-&<~
z#Uk6z1lbi^8N9vT+G%cS-$S>)DV3L(=hv!4ooGAFGBY)em!ABbets!-by0*GW}%E(
zC?pN#K>+Q-nmIZawQH`b7fppNb)_+G3!y)+6;XfbPOP}tX~`OIye4mMX$k9cZ-0SF
zQgXLwQ`>gXu-msClVf%y3vLD8o%dRm-v5tXloc4L4GSwRDRKSq$8SgE<fyTP`TaG#
z>8e>?E$$rIZ_)%%g#EqG6hhA8!iBr^_Ovhqtj1i6f*QNqRLQOTP{OlkOxxk5r{ooO
z(WlXwQynITzT<5@b+_00(-U3t;NWe_JQ4*ri9Mp0A<#5X;fuVCJ<)N#(^5`I&Za~M
z+Zc8Elz1<j>R7}iRvmXqJ<X~%O;+)?fYUf${o|Z{K%cXx7t3|kujD!^{C!Xq%}781
zRd+dPP8iV7a0wN2F=IAJeQE`{IkmxZRQTvxxwC6gSKjHaA^^E({S_4I=-zMv)Suxf
zK~&uu+1d-Y+d~CVhCBNRUrn3Vo<hgE5J<jK)ec3K{>-P`dI7K3uU{LVOf>WLeJjhZ
zaVUZ#Eb$)Juw>|`W<)kO>mAtoD;4*Hi)ZwgGJhRD@9$rlAGRgq%^MRqS;#12H)|7S
zkxwu;H?QbF4+np(_zV0RfSuxQ|19z_%hK67Yk@V)(hHsZf?I$0+|<euXNL%6ZEFxj
z|KAt<pLx<pF?_r=IcKsfhgnQP$ICZ1b)ryyM`G6ffRr7Z37Us|%L`jw>96$9H_Z}2
zP53Pv?qGCgJzQQXYUc6@ch99Ole`DYFUJ9T_rUo_FhgpF3_MBYn2Wi%6OAdKF+u9+
z;2H<q$9GJ2^XN=D;V2icL2ZO>IWYOI)gK<?48LP@%`hnwl+NP$k(r?W+M!ePHpTK6
zYav?LnyYh~yH#&xPLp}l%6AMQ-QyGi!1&AKnsRQNAXS}CPJZyCB?!x@IBMiX#&nz~
z81|xf@7`T<<y}PeG;=0s_C**3C9!I{GJ+l_Oc}i?VNqa}{xd&#JKv-ouU)>idDqFz
zmlfrqM<v>sdv$Zo^lqOSdCipI1zhdQzO?(K(;r?HV>@eBS9mrxxYCQU=+uf($lJKg
zAax?2#}Ty~X0r33B3|%JE_(1_!-05RB^8w_6Xe<K?0aZ6V{7YNt$kl@L^RTj?5hGW
zUqfCKi2*f{@bafmcUm$;Y4wh)OO~NO-U-FD=RC*0XL0iL@|t`6U+3kS9Nj4!B%$ot
zpSiSzqm29ZTD#;1vWC`qLY+Wz)m4$Ph|etQO@H&IlkI<~EYkQ;w-@U40{RDJ7n`EF
za@jQ7pd;>pzTZNh%W3o7sBl9{2PZsi=Aq*$b7A-{I&JNLX-NG`3jJpy^56FII!A^8
z1|9qUtIuVc?h!W{9>NzwF}P+L@A%hD&;y1hI+ocUw&Lr+Ve|NUStjri-0A`~FfJ3y
z5fipEIQlo}Q64tTR(i9BYRqkIlc}Ly%Y@o$2k&=GV;zy(XU@z7sTc8{zKO)|2ssL<
z7z&#nJV<(kZ5p4u@nhuOy4I{O=;lwKHdcm7%^mhT?odRUpp@WY9qaC#<>JW^B;WJa
z*4FR%OL&chgoGwm;K5s+<4H88v4=<>T1XFF*C=*j-{T0<9Igh^Q2#QGp8x9Axh5x*
z*49>HHwRa9L{?U|Jo1i^2qQfbeG9K)U+LEY;J;TF$7fSZuea`|P!@Yh<g8j=RjsV+
zo+4_#*1pR>)T$Ty-Eq*OZS0qkG|e&WDZe?op+EZzdNzSze0<)j|E)``ECs1f*V|v%
ze^zc-80pnGMlWuH;<jad`BM3}Iqvp{4c(ocCZ7YEoH`S@S{WS?JT?~(9S?jETi`dL
z;#84^8y2=~xZ7Xz;@Qi8Lhb)oaq>6%|CcQZ5LU%&;5CcDsmjaG?@B)(nR0Y9>P*gG
zfqBOI`VR^0e8)*RDHDJwQ)d9!C*m7N3T;Vlv)`Jm>jRtO4#Z`84OUJ@Y&?FboJ<*g
zEbTwpnYE}JP&Yo;1c)j&suvnd*&j<W^$|g8N{jXqZDpQ|hgjh8*Kv|x=oiyek8N51
zq#zO>Tr>14ChN_cla_ST7CS>adV|FNE$g?JrtW#5D%pw2l%%9uJU|fn0_TzEF<6Jw
z$y`jx!bHD&k$IX%=zM(IvK9noB8^&Tdr)`xi7VlaQM*ii_<mgt;(u`UB8zOX+i7=_
z=X9w7Os7kdC3k-Wsb9F8OT&DJZVvi4ZwFc?RV~e%e&omzzjh2~yJF6@*aNl0#ilEV
zCM%9w{khkd9Qa{$<{N)At2@`!zvF^vLS`gBfpIhU3C;fliz7NvL}exnvjUHWcNuvN
z*a^i_MuS9RB$`5b3q2vMnw$#XaX0=F+oseF>7t%jVEA=AVk!QRct~Ax@Mrd3iWHFy
zaBJ4i{ST#k!*qIaaYq7I413b|K4p{`^;`7CjngD3*Y~wvjrjZIM*>z$XyC1)qodti
zU45zv2r^4T>OwOmT5T`A_3*?B*9~gODWAFozTd=WDfsPjY0Ni>`=4-5$%6j3;aYKo
z<FESCTZt_>6%`dD1o+YR=!-j|FWM)@|6TK$NVcaNzaE4Nv@^G|5{eGHbAGa`^vb(6
z(P&J6E>fe_V#rT@#}X_V&9X&)Z=_ME)UBFAKgr<<6l&*|Iuy$43<}yCfxj8!f1@XF
z*LJVPsiW`Ke{C6KGpX*tP=Y<jIXpP&x!o=wA4#c=Mk#DaN*-oCYafrNGTS%@(6QsM
zSLPmjw>PvL#5{w}zFF+ul|M%a{C{Bgh=qu=v-5_?dN(hxfGmPMMXQ)%g2iIba^##e
zCMy>C)9MA8)b#4=frO>Pkj2_np61j*g+h@hUL$SmeJuxUO2~8tgIeTxc5ar72QmWx
zuk#+iH?JnH=BFcTNo)x@-YAx3k}J&GBOHmaMV+{zu+`A1p_;0C&kgpGmoqL-cAFaY
z01;tFYA#C^d2X0Y2VmbOWAM?gZNbW77Ny*HXzP8a<3;vW7OTA4Rp#O;=u>i1Zt0z+
znVFd#N;IfkIKyP)%q=W>vsdxJ6)R4r^}2tx_(*|><FRoydeU3h72UDLXk}c!u<ti&
z%)|Zd_wkvMPc{w`w`0EX_FBC*A=ZNsz|PU+H_gbu|N1BNxfY+5p=kjg0^qXF6UaVP
zE^;UHPj~9^W42{2GfRV2fz)-Pc6)V^qyxIlS`>qZ7Fyo?fa!rrJrMwqZti$mT7@`*
z`jS6e?tfoQs;>PaW||j_Liw09?W#K;Dcn;XJl8!iV3)^5p8L3~j?HH0<>q$${_D1R
z*6IqYpBx&JOJ4_o{8S<Q&byZ@Gm@*9-Fpi<0?Bg{gMM9?l7Mda7Fe6+aRpGH5Bo1l
z9mPiV7TV^d@xQyoWg;ZRo6ODjs+^Re9uz{IaT#m(AMG;IECjY`Z0Q(UipKvq%bp&z
zjq?Mx{)x$UYfDi*kci~#r8d-bM@A$fF`U`^nT`V*3GB`Cpdei3>D++{fwh9-JIIou
z^N*zuiwjq&$f8hc6)6Jvq2Tc`e+d-okU<+t_?I=>{FB0fgN)xn>)G{f(}=!YjTu7w
zPCiqCrty<p?EqUBmfknEyrp-4top0Dw$nzyv7S<yJ+ejBuMl2s=DQa4va5MlT~2C1
z5*%CZ<~_=X67(h!N-&(}yA6eU6e--*4TKR0VAk`EDAd8|6qW$e_wUz^F#`q$h<<Vv
zg{muV;%*A+FS%j!#_9gOO}k9~vF+SVi_ku)F$>=6DT$&`hPzeQE_P^3_Q2}!-R*1E
zqQbH9aL0)XE^s!wasA7B%~nV0(*-Eh#J5|5J^-yf>Tr9x-`JdR5wyD1g9<p!PB={<
zfW06E^?-KJ;t$C08wxs~UjSSl_;)WWY?Y_XTAd!Mq5WeIHjVV;TY_xikoc)l3?U*1
z;pknSDTGsEC5!IeyVo)XT{Z{-6&i<Ox2sapA_#xoKWJuYnFGB#$Vd*Kp2<-oB?(q}
z6|ko_#_)mzMUI*^`~_NGQ4y6>3n~4j_&jiec59!h{?a5&NLfbwFQ}JqVPDGOZ9!Yp
zwjW+{p6vZ=rhNCFJ;7;WsBmF8HJ}B~WWy{Io9dvOZ9ev(5go6YHz~9!WxS>V_3_d*
zSzX~P`O;fj*oB%`r!t|6L#7`|(910@mM`)IiNYzWiD&6;VQ#J)mz11L<6j)p0e}Dv
zskw?^ZJpTM-2B8qX09?UT^$_@P2z!yTH(7tczgt@R;O-|a1+4l;CZAF<qqQ{;EGRl
zq}2vw5)F3xAI%DTo7$y!^Jo@TYIv@~IP1Gqq5+-%Fa|^vlUy?g_rXdb(n>%G5(#jL
z4R`HwS!|p=OR7dVYeMQ-%3!eiixw&XiNf_3V`wE5L3PWRt^!pn^=9KP&$1g+Eeh>V
zq<eaM%YwsovrHrm--yBD?`xfd^>>PdEuN<^pCu$rLd+yc9|JW2Ak_~al~1hHv$VT;
z!9nC>!-+;Gw<<P|+{H9rpVn^K9pJ?o=~dHd?tY;eMur3)4dO$1xh*fw5JMFX@(YDX
zZIjU7XzlAbjQav0K-aw=@8<6A4?VEH+D&TulUV(%iL)lX2Z`%KLy7_JK*Jz~(3%ru
zl>(>jg4NN$@{T!FmtQh=^lep&BjXY)+1|ak+=V`j-URlSpOw{+u+%69U+TxXi?n!g
z_U1Zawga=1eXO&+I@K2Q;hH?c5*Id=vx~cTwF%)q5}#nochseR#UFAOiF>2b)dmQ5
zZ&Q={Yj~@M(VNJ-4e|_Ms9PiHD?J!E96F_;4{Ej}Kpm4><Q+1u?iiZ}dd>_8Oe4~d
z6fO_q){28_Y~S{KVQy{{chZ5R5xxHJfL~?SuIN_<Om!kar`rjN3mjYjve<6`EOu=u
zGH9u#pii}EzxFQwDhTRMJg6cgVq?qZPfANm`-`#K^jT1lyK6!M|B*y<yM8Ql=loZ=
z<L>m9#93TT670M~$W*CG>t^7YvM#7J-!|3$GS6gXk1u<%Q3Rl%uL}wa{zf0hkMXEA
zx5EX6#a}ZR43iciSogU$PPmHqPyr%1gGQ9dTw*iFmofnrzTXo3(W)|BFuc0L@mx9i
zaeA=IK5aXIs(l;E0XRC2%}A*5i2CZyhn)yd5l|;A2Pr8kIvuA{srf`=+y8>ZZAR+p
zm6d9+zxH8#whb9yp#f6uKbKq!q#p-LY3bE^LC|wBGat4=dCyAP1Mg+g_UxrM2m=rd
zsc>hzmE5*}-G~Z54{JLwg2@zh#9z)e%QKr3K#gQRQV6f*PkH~`nV%g(BDf7BU%uf*
zPHnya#0`x?rI_`H3NCl0ttig18>9E=EAIlJ+&Lxq12pF6+$GRxkM%hL2wKByK>jJ;
z&kU&p9s3EDX?`T38J}tayfLl`P|3P<PaV=Rj=Z~bKo^6X|A<d5^Bp(jxIke!*z1Kt
zWaF$CLIC1BhW=ks|9_J2AHy;ufi4@~T`>mz7$J&Fg*=}sP(r5l_`R54)(BWO>TrA(
ze_X}zzP}Cj9A)F2qaMp=*Yg4<J1?jV`o&9gaED}NO+jS-DZA+dCWW|qc=%-z4u>3)
zlM95$_DSPI-;m2K;x#NAeL^IFpXV^7LMt!_M6O_?_C402-`e-s$2rC7Xf_DFU=~<1
zNYfb#^CK1?b3#t}jD$0oOo<{%fH9WT?&u?1@0aha%R2RRA|0DLl@h>gili|g>1C;z
zLzWWi8}vW__wBX+rBge#6REZq_V%gQTb`%i-6*PNz7x{AsThS;bba*nxP6|eL(tjH
zn>Y8@hSmO0tx$9xSCdC1TKN0>Co_vG8Ao(GL9+&vDbSfHCoAiV+YpyIJA13AyZa;4
zf80C(dZ47F-MZ79k*6jLj|^n&a~&U`&!s;CX%(u`&#Iz;`Q^@8Bucg*mCCUh4b|@F
zBh(^Uwk>DN`d{pJ?H3o$&(6Mxki9H&`?##N2&4+c2oo*s9J=hQ7#=N;=pn$|0?mF5
z-lRwXfIsr^@My7<jHRTeoV$2*rzsYj;Vx7uFVhuC!yxUnNg8@~Tl7W!-aEEZMj{gW
zStj$3BHKQn*Vor?!aaHuc7EInbr6bzUAZwxZkG>jS7R)Iho!T`IQxbjD3NQ{oO@VY
zDGfrse~n&PNL^r+5Gmrqt4KWPj=QiEQX(l`TwSViW4VduW1T18t#0K<n!FG(S#X(+
zsnOtpm*6_{S3{DjZ#Lj#2_$rm-dfb>$x{oPg1-ED702$eOg#b(Xij6hz<*2H_b;Ki
z=(&k8$35v7qK>v~{DG^19>%lrmQAHH#%X*eNU!$}Li*w-fwL2El3BF@cW4-$6cO&B
zF|N-mw0`Oo{?QxG)dS)DmD<fr`kibL6xe5sIA=xrpd;k+SCrkSOZ+@ZhP`mOOK=Pz
zGnl?X52#7na7Grm#t(e^r{>ZX=8YfBA(&#Z=G5-!>tsWjcw*FJ9chHiKWwnemE#wR
z;65H7JkL}LOrl|+E3l-#6N{geO3<q~d5=ahabcz_q;z=|o?pWM0dhmPTtl&0v#*Uw
zueU`I0`UJO`u@L7P5r-A$?7^#4&eA8NHYE+#IRB9pgsh1E?^9AVXEr|CS?BoM!7@V
zH%x*7{P1ru0X<5tcG+Z<68j9O%a>wosq?3&$|M!=kbyIFxSFA356-n8%M!1jT1s`^
zL}FGc-J{LPHHa0=&8RfqcSu9Wgl?)ey;DkP>KmOAXK$ScjZ<1T<6?AYimLBPs-s`W
z1;$_%$+YXEn6k%n=mmEGRqrvkRCO30pUW*vewL+;LjC54%mS2I#3|zDUD=aelo|PZ
zB9hZ?B7|DauKEU1#{zOFPfeq-&n2y}zuyL$#;VTqd$)X?KXJW9jLjMzo{?`;9T$gA
zH&6fBapL@zO@a!TD2dY+YXvv?;G_Hy9fCM-Y+><q^6EhO&E2PbUXEfj+as@>n9vg$
z8yoY)odR`3Typ;)T-B#0a%Pmmgx(pN;dyL61aelS&#8gzNYD{ZYcvAXf=Df!);_K$
z0#<4wTKX_LmK35Hdvl_-AIus?Db=A1KJ#HGZ+!ds*b}YOxlKoU>jSNQ>!_e5BjzV~
zv`p|<%wYxq+GRTZx+MdYGyrVZVR9(3`<a@y2xx+!EfCowbKGtqV%x}(42BzYTjeH>
zOL<V*|28=S@1a2|2Mg0~Dm^bxuh{DQ??0>S?&wOBVNl3GXyb9<2FQLMnBUJyfwPoB
z4E%mz0$Mvn;szte^!)idhNq`Wlu1Hs1lFw);PPWIlhBm@KIXdHFjdVQbZh^AixM^>
z-}u}___>a>-{Oz25hOr<HNS~Rl>t+X_XXt6fq|o-q9d{@<5`{%I8w-2@lEDGcXvy}
z*7vJP$LoR;xcEB@1jfriE@9UOSW=I5K+h@fKQF!YGMwZTUPmS#_8s=;Ru)-HgbUvy
zmM~a=vg|A@GaaG@tXIt?LEnfkRe?nnKi+S&m%uK3@1sMg`4_IhHnmQ4WZ36>N6B*r
zd}9+;ykEGp1HXT{+886jv<byVRe*2WGS{xjvf)D_bw){Q4wV8!@uf%vK8IelqjZT@
z=Be<^0hjB}j+Va;oas6g9AeM#8|Q}=%d?+;UV3%Gd-b{lf$L0Vcn?+g;bFiau#ha@
zxICe)dGgcKW4?teIcWqpV)d*Zm9Yog;z=63PT<joD=ot6?`@_h4=-mUSEoC!vK?Dt
zJVLy%>1Y2mQU!i8s|*8*l*wU`r|j`F4aDf*?rU|Eyd6R1Yfo63M1%7-1!ibIdWpj-
zGBv{VBrE|-1m~l2;?+Zd+|Zu$wFJK51R9vN(v><ClAj4nV2%Jfh}!wwhMlZs`!pZU
zffAc&aAfDhilKVYC3>m?y)79BxBdzwAT?}-3+JQPbsok=sN@ADaC19>fA}v=<{-KO
zvD-*`tDa1}8moHl=R4Me-{1Y##fakebQuE{a$OGMYrMyy<ZR0ffbM=qZ1sf~Q7%>d
zk4$Xwb12@3oM3h&A&~FExxuPzO;!O$Vu<|e`@0(@Sm{|=2fFHeEFJB;SB^LhZ#RLd
zftyYu4b#cddsG-z!+auK0@UU70v?$i1To*LW>FUU$VlYwbP=AOROpqCmCzsbm{oO%
zF)s`KRstF624O<%NrQ;UhT#|rI^-ymYxRd6Z{?%!D=Q&kabsxeke@U>6xF{)z}#vr
z{i1aEoA}cWj>*^BXjq4B+M1o_F99&1`=CE}I(cKKoP$T1*I*KLs-i4pzC-&G%;w}1
z%6NVy_9qh+V>Omu-vEWYBog4_t>0wlD~_cUukpUWt9Mw*bo!S{I5B$T9&bfx&otbK
zg%rKvKrl6er;_b>du>IgngR<ve2-~qV0W0RNcJrx#K#P18^Z7m9VUn55xr`(6yg(R
z7p@Og2g@YrC4$b@<I(q~p}1drnrAnzRcw;`Bp42?6-;aes%kO1g3kDm^vzdT@>Bn}
zkRi2V8H+T5Fz(p1-I|1I@be)<@<Gk~<{v_w0<JK`emj_x0bdn?V`FY_KNTeMaObg3
zC8}Kpk{u&_^N-}4*ChIBl7%5bU+;=O$g2XO^b!zr09ox;_Q&GR(LwxND};$E=MpjW
zQDNjYsub1kZI7oB8N0*g@0;qUX&YLD&I4R;JZP}wxP9eE7Dqo0FcSJ*Y-#KOr=smX
z_A<!1^l_V1t5`c<|7(|KRU>1aJ!diAsaD(a1w3qOj)GwxgG<~?o09N+<_!_mRGKP(
zQP!dWIa9cU3=Hi5g^i-eyCc?Z+#X9Qh2a_PrAeJ)Os2PcjiwFfk&bkUOZ$rmrcAu<
zRNq@|szXTO_12^WZo@I{m;;9uhNeivM6G@45~l;c4F+mp#6PJyCA*hZ_R)JgtQxv8
z=n_(F%A0>EIWS-m(+k#-ush6(B`MyBLxh)!9Bk~9sgy&#^wwmh8=caii^*==YgnjV
zR#90Yquo~XrS$N(YPh)qK_93oY`}qLu?+KkiyI?#w}S_VIs&-8?Ez^XG>}0stIKmq
zC$2_-IPH#17OY!yI|J?Ua4Khi!@}pG71zP@o}PsWfq%6CG1(2OhCejM?lAYHO40Lv
z8_Ej+5x$z&mJ@lcH$9``dOq#Nx!$*rD$D#!Vq<zh-0^1?l7O%nLaw(}QztVoB`e<m
zO99aZR=!HEoQ3BD@KGfTa5VC+pZ6YfB-?@4+M9hTS=>I>!`I*aQh#!Yyu0Z{F!Mu_
z)#j1^P`wn9IhyH#3Ty9n|4=xi70~i+5sUumG21soMH%vMJURcd*Vhiw30ptH$S<-`
z+>K$l=)fJ<gpPhtD<Q!VB6Szm6~VNy{HbjwX@pkpJZkk4CXz^}pU#s+43|IEE<XgX
z!mDbkEP&EnCZfhjf9^lwO6+5l9ZXY_%l6W~B_U_{u`D*_Bn;I-E*L<)>A4_kpLwGz
zTh+!f4$);aS7u_9PC7q$der(A47<@DS58gwU?;AHLarg^X332%00YU%D1|m3Kg^rf
zp8HBo9P#7VJvaOeSb{Lp))uUa!Eoil{r~E)-c}#u1)dpPO3wL{88XZpl3!gkD$X`Y
ze5JMTs<TIVB<kXjA<VYH)YqF<f0*APM!b6oGPs1U3Cs>UXbQ%&_<CPqG>eM#J=Kot
z=yseflQ3J8CT&UhWn8CGtY*Gbf2p5J&IYmxFgpD_EUMuKrBX6xU}$pGeY`Domd7V9
zzvF;II0^MM;R)Yr`JD)1WJ1pR-OO!x`>pqX7ZgDkXs&YG6PXa98j$X)zQG{M2J>Hr
zk~y;L4!*G7P75Ud8PNQ_?`^45)7F}mB_@>cPN;J8Lm?~)%l6kX{+i+yHC+^{Lc4l~
zcNmWr)8p=musSdqGQU&)g09v-VtLGJdpPRiS;F$DB=fO0`mr>UmmqF;fzqu&A`$2?
zg}|l_uUH_qCp^cVp-8&a48u4;4;0I2G5K?j_?f%tkni%y02N{(sqcq&LXAJ)MQh0c
zxns_s?0>6C$wfDqy<b<ZW<G9deli0rs2ih=(NjaLGMbmEI{F!ykuY_6B%u=udY=CA
z3N7$;DrXw^(5k=ff(6WelFN6jB~*g;t>n^{(&7nIO(0jQGDH`(_x&~qWiJT|4sL!z
z3P?RnLk$MdJQE#zs2$Iz*vrr;yLM*kg5w5inhnXz{(3Uf+z&6)Rgg~e)A6dKbDM3;
zY^J6n_w(#aTpxp(@aoEm*B}lI-uiS5ih(uByC&`7BufW@W*AiMqgUc%Nl<!p_Fs%b
zH0F6&ASt-aE2<;eo80%c-3yvV;QQnLn?`>z`M`>8)I|oHWVYUaet+A+BxG0W)`~ob
zd`|=~k5Ub{)hLDqoB=r+zK~7?#Ulwyp9X*4RKerRp9Y2dS)`zuYw-p$t+w7Z&H&on
zddZb5aZQ=Q(-q?_$Rr6iO8&mq`+3%IZEFh5ozR(hW(k#gd##XKimw#EB~gJQz4h0(
z&YyO6K?AWZmJ(Z;Cf~S-C%23Rse1tdX$8at7*m`ZZ&v{Y#j_D9;kq*MGCLn8p1mXJ
zTxMT<?JiR2Vi|>G@{rxlh8<H2sjTPP3n@C%22dbd!G-#qEs7=EWIU83e}TZHKzsET
z)NF;IA6H=MzSFh6y!0AEtoZ0%QHK-YFEmw#;xt9Oh95%>ecV00tfn?}t@!z5-`ku%
zP;Oxcln&^mc>By=(^0?x1<r6-82uI#JEH@dPHJEIO>7nE>jy2=es3^AR3JO)P(PGo
zF$>Qtpht_6mvKRn2%nLePrJ5&S~{JsEL8<1Nx`3ChBY7vq!^_xEV)V4_0jEgG$-qn
z8lSU5Ss~Y<b<`eg7we+GD~J0W@TuRN_zCos-|N2`9MkoD?~1g+Ad{YG6jK0Nw(Y)F
z%+C!mNI6wJ2=eya#}`Z{vlSU7BiXWG!dE%Y065ulyc5ic-9olNYU(3F^r+R9dz<%M
z2NimTi$@ximVtn83zK|1gD`DDPa<l1A}GJ8NQE?nbEhu_sSjNzu5!~>k%;JO8M70>
z*KbzYQkS|(?rg>tEG4E#B5)ubBBQjPS4NOL&X02;^1udB4zvHjWS0e7D<v9SCwsBH
zd+4?~UsOf=jh5Ww$Au#Lc?T8?NuHs+XqBPYh=~YIc^90`muW}*E?|R0IA&oAt2jWB
z{ur|d`)1|M3ed8!rJOJr6#KNS(C9RD<YVBfgeocZbRYwOfeMZ;csdA1kW_ch=05fg
z(}ps=8z?SVJpDDt_+cTGWO@2)Y<ejo;K8_dbABusfD=zl4V#$cQ}SEt4n1!lN643K
zts^PpCYa_hRQ-bM#F}A%v-?c`q9cKu<$#;a${5l#fLY%vP~xPKs)>UZ3rqy%UD$b;
zQkaO-KMqvKHIN4UJ})clg32)7x7Yg~c!%?&lB-sTy1Ot%JE#jLd@pqOS;%10^EgGn
z3F8`=PU`>jYW-yrOzLSB)vi>+^t$cmoJY2-$OZ7TfoA8!AUPlqXE4ywfhOAJ7(xWK
z5gET)=NXR<`}!Wt=MYkqJPzy$1rqq~wjd<5GwZKS)*kJJ7CB-(d{k5*YFqPP4G)#P
z22O!x%PZ$@_YZ*{3NS1kEdN?6GQ?9LvRJ#+Q=|y=;^)YgMxkAWiGoX;*`e*7`9<VB
z?%epexC`_>a2FQ9M&1mK1NiqiKeNw9Fcj$hZWXVTHuX6Jm_LK|C4w@~<KtL097S-Q
zTZZE=g{_B)D%ZhEf80cR<n|4Bk-<u+?!pTeH2&uy*&QGhe1>=cm&6U~;p}Tie3~ck
z+LC+wW|e`LE-!+!N2Z`UI)t*#qa`&RK>s&}z`(C(LOgwjA(Ghs?6NY8cUMl#$t4;v
zz(ne4CoH^;pipL_H5*YWFJZ=dOfD=}9^2^J@?5?wr)v`NMUYv4fPeGu1t47dPmgv$
ztHg$JdH46f|B9PyRhh#bCcwlJ*uJ{&+6Qjp_lMu!W()#7pdt)js`2S6wW>tN&8Pa1
zKQ{RJ1_0){ra8!nwBML0Zsf!HpTjDw|C4t4V>NHwP$dlgv>N_E1EqVxP>Xo(O2q#F
Dv#bIm

diff --git a/reference/Rplot008.png b/reference/Rplot008.png
index 41022be9c6a9b07dcf561b060424f5ecd2c6f4ee..fecbc15e54f3d43760137c420551dd6363c26c4c 100644
GIT binary patch
literal 18981
zcmeIaby!w?w=Vi12q-NnDWHPV(jh2<sEB~lDIg%-A=2HbNJvOXr*wx>Dka_dNJ~lg
z9@Fnz`+RG!ea_kIy4Jd`^T&BFe8I<OKFm3P<9ClS?)x4yNa2YL!A0teC=`m|;RC6s
zC=|vt@&^|iUUBQMkAiR5`m!=o@E!g;xL4x=-!51`P`5*&@Gc>LFnTB4k5Q;AsE1N_
zm7EiPPrPy^+c}Zg80z@_`-2?r1>g9atg7cRHqU7&kg;9FB3C%tIhU{Cp)oc}abrLu
z-`L`ImVQs6=fz;#{ivI!Z21(WS>FisqkP$@B-i8|og5_^B>qes7=2$edUyHHjPq@V
z2(c@?Nv}M_x4!?bcQlSr^d&wgB_-9Lp)`Vdg^5YzGLL6aVBpo~s0xLvm%PSS{q?9g
zCU=Y5Ih*_mXu`i{-HN|ucv1XxA1$yR6ByWQfU1z>qn10IFm1f-k8zo+s(l%G+3q`i
zW6<<~s&3S6Ecno_jmz95ByX{L&pGcb4+t$J*b(DmaofyFy?_5ccIE2~xBE`6Zc1`8
zDpAy_)yjP<KCQ1lM%(eSj`Pg<$8mfY)Ya9gZoBXi(u)N;O}SA{ovb<a)VsYt-i+{g
zyv#)rG84q|u`xUIWAOO6*71Iu#C;13ixPBRVPP9b#khA~9y|W!TUhH2XYP>#Ve)s4
zM+;khiT7K$+`Y!E8t68i#VpRu2J^lc#%M>EvXfo>varQSb`b-$R=f42a>5e6@Ts^_
zA(UKQmGVB=1d=v3MF+2iX#K}l@3T{2{yf%FpO9f<dL;h{rK+lGFxwoYR&IXT)YO#Q
z<McS~IdZ=wQ;36ugEx}Sj&Y85SDQ*r`Z{*}^`@6HlUi$EZ7Ha$2NfB#rRp}g57)bi
z3YZUjrlv9-A9Q=PMssL(SXkDq3b^hJs1Db@;w7XL@h#~R!82$Jw{XmhWRbrgKuBl3
zzoB=$m2}p8e6ST?`mnZjblm-#)F(wU3W`*?sq*3nSC#lrlJuGbN%p6Gh>*A2jpQij
zayu+5?Vq@#8X3;^Wu%x$e4F%+(F|ve&*X1MZSpTE6<!c@_lz_t$XjD3A>qIGK;hXl
z=HikPX+uN9NC#zQ<#V1{`T6`YQ86)iC?>Lt7Z`o1L>=?g>RigI+`B*Cmh9sr32Est
zY&co9YT4?Ru-e7B(?2xCvNMqVjAe7RVk(2qSf72ydRR+EN$Dyo@FkxqXFQ+DJGB}|
zi`J7zp+|Eux)k>U2+7%0@*a$>zeR#1=+)NzhlZqA^B-nQy2WM3PEYoxC?$?Yy5mB*
zQasL1_4n2$=GS+2cFuWn<9`~dGPPs~3j9WWquUeH3pJRp86dh=iAj3>apR{5aZ~Xo
zQP+L$b6%bYzX?&JWo9_2tgI~Vn7M_8__HAgx{;BQhuv3C+#3!QQ{Xf(P~KmXU*!z0
zI(|w^ySnsY?kypMc<7TvkuR%`@$DBcUeqYlz0h#FQ%Hi3ZF4XelbMvv{5VORuHo!t
zozb`P<L%d<J<i<m>BWY%8uXg5AIEZI2n!2a*GyFI&xR-}DZQw2H|Xq)igLTklsf<L
zHKqO8>B;8Q*~t{jb7y7flYEl6kn_eBTRS^NP0f(QLl@^d9n>8|!)vH3EG(JIZgcbV
zaKrlt2PKDgC@fT;KJ|wCX{oBA5oZ%`e-!0x{n>d_zxH50K32rxCIy!czFc1%olK!l
z-SpPMXM;9EcFl5p*j$2S(ilHC4p$Erk|Me#&S*0e9jUcADJNgA-xfRiU1G9QrNs%M
zvbEP*xUTUbcYgP6U|<}}9DPYv7A~7=0pGpGRYzvBi;VOU%%Y++5T-44dy^qA`GOx@
z^;R!2n#sv6c;uooehF@F<$RnOw{aKkR+uaVlk>C}&MkLw0XT|M*OiCfWs#A}-wUqu
z_)koO`GEVi#p-YzdS?{iP*bH1I?gpiC~>6382wg;{tI)2n73I$RjZaI6*kjbTw7b)
zY1=9V4UJ&<jfQ#rj=$B|)jp#(ooQ#RsrDvcTlI<?$FZ>;J&=;>jJ(u%+hzNXo7-({
z0&1+J?f}@N3;RP2r{`mGXD%H4nQJE@4CpB`kg;FxM{r23^yS-paa{l=`_)nMd;a)d
z-3v|Rs#;zQ$J03Tyx;9%%ld2AI5HCBK41Kq63b`uG<PqzsAjDiPgTq2{QU^}u*1Vc
zqc#aZzgk#$s#`B`MeG-!a}r?zI1Z@t=r`kHox^w>FF+tTVgIaE!*0IgOM!L`tdjLw
z)q;LUEYHIg-cDs%<i__tlgh~S1o*aB+K?7yVq&`R<Pb#|(4;_iZLZsgNZh$M)GIJ>
zltTV4DGA9#>s|@W>r71Vyf7Y1NnORjj13HYa1Q$~FylY}dvF|z^Tv%YpY@tLLh$gZ
z`5x@P3BTd5m#kW-Q@#S=04SO^;HEw@c>!LunyT;I6*g$aS5j4F*x5`7ye=2_LWkHd
zFzy{iqa<$a>EQ~MfH{?`I79tj-MZfDXc>x{6L)$$^V8{eri9+wcvYYjQ&vGiv~An;
zw)^T-gTzv>v}Hxj_n}7`4%3Yo_;e!uyRl;QMB-=1TPk~ohOb#@g{)D`GT|M=3tpHw
zu)@Un*qw%TE<2{T76t|e0^88AndIt8$6!BB#V0Ps;!x9*{rdGQt#*F<aA$?bW&7m|
zLqomZw1@Kp1>v-^vn&HcZ%+~2ge!iNloXK!XZBFnOG8=NkFB8c9ISS%*sEKB<m?tP
zCKDDF6aGWG9=AJnJp<FuZvgN_q|3(47J8hp0lur`Yxn`sV!@rMt*sqde`%S$I#%(?
zX?+qk?QD^oFj)wHMaMK8Ut@Y3c(8SPv|f=j*p(<c_UnVO=3bNu{=&!CmaPI@wHxOw
zYd2fd4B>+SW=y(BF%p-*QisJDip+cYbJxuH(`<ZWj<|YT0nbkoNs6biJ(8=dsk?9Q
z(dxXKBS&$!Avj~dJ~?rG;zz0TfLg}Ff<wS^JdodP5IzzMc3$l5*X332e|~+h{PTlN
z5ia-ZS4l0W35QP0A+650%re)t7kvW5ub`Ql`T6-J`%14<y2-yBDoBJ|EQ!l#uT3c%
z!$}Ugn!*Q%h(fc%l7DQenp4N)#Gxl&Q?Tg8_e+ev#G;PBi9g9iP<(l=04S)fq^ul7
zV^yn&B96-lvO%{7Sqrfr?yXx5J}e6(mQ+$v35GQdR$#sAORPUqY^dLrAPm3iaCemr
zejNl4X~mR#4Q@b_QQhpUK9Bpc^UU6nU%|>O<Q4fUU90+ojK$HiTq^G8o{%Q(LKZf?
zaOjC4t3Rx=gp}~mV1J{D$d6dES)XUK|CxNyWZi2#?ICGBy%b`}zyNxe2Vy7NeY4S;
zmLzb#$G=!4c+4*QGt#?m-0dkdQ$;Ro^G`ch{0aq!##MUfX$&5d-m5(Y+M-3)Gm=Fv
zJIgA2WiNY}?2hCmPLvj_IpLh^Uhh$?Lk01}O>QWHSQ66l=8Eo_hW+nh#qHHGRoCqv
znR%+gLfxsf?$$0LG`^y?c4BFsOay%@B>y=oRG=DrbSbSTTyiJ<mL#st_iHhMCr5iB
zW0o~?<|D-|TJ^BXJkA@_rDGQurPS3wEKbxowF-o}o$L(F&W3PNNaB)Q^z)rs7mVn1
z7UMj2_xMpHFxmB^8uF&-oGZy&;-}}F(XC-7R?YBET&xaJOw?@E!behny}-hT)4wMQ
zCv7+J)eo;zwC*L}%|CzsGy@Vzu~U$SP;lH@4{ZyhVR<Ag>qpFV!;{y7*_Zh2bg!W$
zN>%5E<N72=m+%6u9@YI`HG(GM!rDK<&H!H>QxF!caMf08_o`1cYMqM$TlDo8x)Svp
zJux^ww&8KrDrDuD`oAAr6<E-pZuCk`OH2Dsl_8(RN&otH(RHVS7+v=&$Y42Hd3j`S
zA4nzGv|dil%X^H=*xd1fw<R;l{U&}BG35W*uXtQ!b8~Y>b(`q6c&FmNOnJ(dmX`dr
z+|At!o6cHDJUXt9rY8j0pIkk3fqd<!M}>USuerIP2UnRm8;<`N9bx@^aq6<Y$jB$h
zyD+}KhsPL4G(8`FP+WY=X7ben6g&`YC9%SGM!knfaF4rgb<RRzL-BfVO|HsK_T2vN
zm=&c}!$~=D>I??@+gs+yK_UimF++*4ijv~BjCjjSW91elVw|awL8T~qQAhL99T{w8
zCTl-p{npUS^Ci>F>l?6jS>Xm)p3+CONnar*?s>_#L|9>iG9JA?Q-8EZ3IXeSv|2G=
z9HZm%5GvI>5Py7fq=HkfB@o+k@d80KmX%+6-TCY7h_HR+)_za9tZ;0FBbAf924zH>
z-_VN1AI~c(0O<O=zen`pjEp8=L*3W1{eI1)ZE*j?4=4t>OwG(%0RA{ovFM);+9+Zu
zWJx7)k)6RC>h}_twTW9}Koz|TXFialJo|d;=;MY<9bm_MjL7UHu7=~Mk3WhDn~cQr
z7$Cv=t-D)rA>AhF!iRH0HnjXk*F1UYw(J(V$dMZ2XszdyOe78&)S0tTr(Hs}ek`}1
zWbd%XrAB$NP2bA1)1%I*kl^4rtPQxS@mL#g$JEsY-45-sxfQ9O>R^iR^gr7KjMc2C
zazhWvkxM^xaeJ&B=`{0g3WM*cHS_TpF5||CaS~G3W##0Y`?)cnAaQoktyW=42kl6?
z`G~g~yHUBka$(iUBZu1)09YRim$aQ{{2s1A#PirMD!hz~F5b<Mi?{xAo^raVjlL<6
zgc*g37qoiv>NYwj=cfJ2AOX~OC{JgxaDXhRvties$D`zY?9%xR*NaoTI=P^L5Z(d6
zN{2#zrW1Aa%`nMdh6vRxH~#|276FS$nxcS9BVgXxLa95Rrc>>XdJYRzxtJQ#F-6eS
z2-QZi2{lr>NGrZOG=Ho}hV&{a3Rw>)l<W#}Zr18pJw37(!dF&KS#fDK(82YZf=$ZG
z&h87XT^stYjSY`Vp-y6df!on8mAI?WN9WlK?_**NV0CZoiADl4;z9~|SU51huz*Ht
zc-xMJg$3hrz>$2-id0xJ4tkcJ?{^-dj13KE3ToEAA{`g(4-|pZ<kozr?7`YE*s_-;
zaeq(LPy()qJdrrre(!L!vl1XU>5M5YEln)>900#^+8Zx<#bvaJucA};^bchyt?;EJ
zx82LvAIEw^5eU`CzN<KVNqy=`W24wvpJK48+o348oG>*Gjw^%uHI)9g$f}F>kPWgP
zurHcsngTFT=g*&aMu!O!69z<%u1(g_0O0X@OjTGha8~`ggu0XYBoXP--rp^Ky=STA
zvXuU?fo0NfBCej=s=;AJ1!@p7SRo<%MPk^2;qZxqm+!$6Bm+$EC!HNIKster25l^H
zblH8cW-28s>zgZ%Jz6}%en44uCbzKuQ59!YyjA^WxKV&F0Cuqw9^&r%O$?HX??c;;
zTf=A&AYr5k`9NeF91^nGh)INcxsN+B+Y-|0M72IvL8R-tc^-;>jtBx2G{#dX)EZn|
z+MIg>gK?6ZfJ&Yk1|t^y-%Ih+{V(Xv7vlw04p2IjmiD`P-j|Yj^QTsmFTv>bQhH2t
zqZg*%*eZo_qC@ol(bO5I?@N~)$DUMaCN3^{1UFnaTPTgfl$xfB4MQLnDq;W5R<9KB
z$~$C;o=-H1w-_rA;xTBAHBhf{%zyRB4#48;`d-NC$x#TLipscspPW(MU*K>*nESfw
z$WnJ<<=crVyP#mj_oc4Ke*rwxKgr|t6_f|ix>8gZ;1v$B!3tl2k22^wu<|(4d>a$P
z0_X+dNG^$s<lGQw|6<Ej^EIyNxGY_>i^pMbRj^+hA8}pf-89N-389S7lp}3ufX3!8
zwnHJPzrQiVBr2*oZr6Q#c2Ltw&c)!VWVJhWVS85>MP`C+uv(>cim-phq)YC@B$?3~
zr^3pU-Lc4Mx&!LZ1uOH}qt(?Sn|(>AO26jkgCR!*LCWoP#njao%ML%#w5sEui(kSf
zqG#V-n_!#WtaRS$6zp8>5?vQ7ay|HyR^FND&B?~bI~5p9wFkGna|g1J{&=O0<d6f>
z7KZ%z@x!RXtYAKl->f-RI;1x|Xz_(phi>@Bw`W~a7AB*mCi~EY2mbzTK5|cZ?Qwz-
z2~=C1&e*|=FIrJZ{XQLgcJq-x7YRvXVE6&@iU`TSkv2$~-}v`Up8rzhduQn0aeaTS
zp5o_4zyXuEx%E)XC+Lt*W9cg*`bBDyc%Lio&(`>nPO(@7<m4zQ^UtZel)q19{pm2#
zBg~86^fn?Ix;|V++7G;PeaWoB26pqdRkXK_KJ{c7*il5ZMSM3<nO_wn#ue)2Qj{%w
zg=$0F^bZWEo93>FKzBX2+j#-&9KfvYudWXCCO}=+ThXvPS5S<;%tuR`&eJ<CblK@S
zH=$Ly$;M_ebPfe=m;&ps2S3mI+@<o@JNTk?U8j(;x<K@nF=q^(PT^3kb$~W(09fmA
zU!x~a2$|kK__5w;*;#psvgC97_pz!}R*w2amR-NB{7o`Ggn9Z$gG1E_z0xJ_e==PE
z`<wOeI->uh17dz-{0zG1^|s0@P}1vdQKIKXan7r$k<eh#qR(~<LRXrm&ROyur#(xu
zBh~-NOG`&d(o+;D&mZ`gXZx=@i+^q8Mvq+@gHsz9wqOZNsFjq<#wRZp4y`<(Q&ygV
z`)xat^i_(0Ww&q6R#?C|IJI<feGaQ)j6iKszK_q&)p4nMZ8#x2XL&K<M)0}9Av{Lk
zRgIh+*wOctS0&a49q2rH+kO|hin55rjf#2t5oZ+^R`jb3IV@INR=L@o^Fn={`ONHO
zL?40k_5oJU%YH`=xjqd(t`Aq&o+oBSRX!`#Xt%17xk4SrWRxNi(|*2*n^sgni!+9~
z444Kn`UnH`pQ95fe4*VaH>;Yk1ik^j#>y@c@g)q)YY)-Idq^v4xQgx_B?{RFX%uu~
zQhCnN_!ECUwkfvCTozVddAXYTj6Z=kCQ4k>#Z{=s80`@er4eTK@mpK#CbzMa45sei
zPWWFp$$x&`|MialBTybx(K3=?^f=R=-Msy#NKVD#nq-PX>k0;u<rIc+_1Mx3Nsl7z
z;dg1`^i8C?mgU+DU+ym4@(c>UCw5-$f8Ue;A4TAQJd^+G82^vIL5QLeR+mV8|4PQ=
z58luTizr721}^&kQbSpdmR?v$@(_<^S3jpcR0MrW<|7F6L~E@l<kZ~HQP2p`BmEYY
zpe1en!90!qQg4e^gGt|YlqZxVkdyNWy5_w9;!n07z$PxE`H&*ndCnN#zRVng2p<Rn
zxjx!>UY0h)sP;K;(-eunux4PFk&|OkhBC98_dY>$_hd$$l1baxcO{5)CDbOe1?vx9
z6&VzEe1GUFF81deGs+X`*NfEHO-|hQCU8)TKtUj9Cd*GQ?Ul;<?Z*#W(^%kQ!uu7K
z$;Fep-*U@iC6YQ(Kj~JNHI=4a>|WWCEc>a;<T+tku_~UJz$>kooRgETQS@Ng(E~NT
zcf_%ii4<U55YemRq;2N27y)z~AI_{+B=`F=<m2;)##jGj`uH<Wt(f%)1trYyH#GxE
zrmE{k4xG<J4IoeoF;S^KtUub@IR<(i=)CTr$jQmWLpdZQ7?2-)jcOcM6@Ux`qOV5f
z3b7~gxfF$OjvNtfn1w@-W*&`|DJe@^S{BST#E=qM0FOZ&A~2=PO(n%gE$!x3w<=zz
z!)326<KR%XssX?X#6a|X-soqK->5qd4*Wl&=6$$XSa6`3!VOr(X_#6MNM!}Ww@f?t
zTE&)63U%J?%5KLb39)g!xNaiUxAyiD?T9RXTD)nviW|=|t^ku)F>Z?o#Y^H%h;I9@
zHtcY(1f#ih*OY{rm{LipC2;<4n5h5HMt$WAqUl&esd(L_{f9CGsDYU_p-my;h;-e;
zY|j*a3HO+_-<5&Afp}iA#Fwd?NlvDc9@}SH$x6NB@$6Gr`-q*MadY*sIqtF3h1t;$
z#7$g|j#?fbq(6!&`wAjX*X3Jla>5fy8ul*Bv`N43nj%_j8rRk|AHc1)XBS(S47e|4
zZ$5qR5yI8|x7;Cbfd=}|sjM3ZuF<2WaoEbr92FH`S9UZ^DOJeE+?J{dJHHNV7x+u~
zM4f~#iQvbhiw^}A$kL@fxL80XX_WMc%lLpUksWeq3+IJ{yVdz}M%IW>umRFfm6W0Q
z^j~iDTXoRJdA=GeS6ar*lQ~&A@u|TJI?z6J9BY&S(Q`&DNFM3s)dly49NJgoNpZ1=
zgQTwbTBqsQ;Wv5e>HUt&P*0+4I;DFvP=6`qg~MrLr6?~xCJ){ToE{_+VF5B}ul70H
zwCD_z4QH`vQ@>9nV<#AQu3jqYPXfgTLjS6M!&EaS0ow^RA#Di?S_8Vvq8kl%8T{iX
z2Pf__rkBc;;&Hf9&1jqURbS%hv5GV!J2J-SdsR`y=e~X&_9Kqo>kG2M7(Bz~urN~<
zqp#@K)vr&WijQnlpB+gbaI=<_ZC&ekzur2ja<ueoisrL>0tua*E5U!@TmK8z@XDO6
zuaw17eB4d40Mp(AP%YvzQtIo)E#he>!g%erB3d_Sx7LfT6e(prR<%9k&I6vL_PiVw
z$TTwiR3owS5<em^yb+Z_IvJ3DO|5><Oq2f*Ym9CSqjowzaadQ?EVp$hb6XEZT1N8G
z8!0~jt5fEGB2nGK{!E;j-+C9I<mq>+Mj*r5fSXcORUJ}6GeQ-7;|2b77>yv4pdcj>
zkF8uD2eQA%Dhl&krQrz4cB)3p3L5A|g+aYEI9`;I_}i+2@HUH%kg&|%B!LX|CeDpC
zn)n>jZ{OY<$3(^Q8WSSY$GB}fhm4ywRF5n-RWqVM7!jj)+g8+a+Zk{MBCiJoEmY&i
zOjAnE&5y6wsst`yg%a;3Eg?Gcog41u9+e@g$!r>LFHfIOspz|{sI{Ldm;zRl_}W8}
z(QLuqadB~<M7Wt!(Ji|5<K7ee%K4M-hHYJh;r`*2m*wwzEQn5-T&j;3usDap+J6}q
z7??G13wuM|IML8V{cE|!nDt72Me66z#LCL~9(*8b*r&ETU(`VICKT&cd7Ec6xgdoC
zyUij7!Yz{69N#0C5*v!)I^#zPWMO^d^cNot)L4a8n>3~N`{LELi5ec8+2+!jnpay!
zf75bXI2{MUlRiGy;Bzr-Xl~8sIa~EZ|3c?D9BK}@Y%)9pRb^<|WRGqrkvlddbu1_3
zm^NLw#In#J3|lr1$&Mx(A-he4xpo;Q)R3ezf+|;St{vJ}X_+w4R`}-RL@$)4x4oqc
zs!tH1$fp-=^F|13ki8big?Cn(fd*-h;c6=z(iv-IHcJFb#eAxs4g@ASje4soain>L
zdLkk1ZCPEY%rr=teuz#=%JKw084+Z~4}L|yw=gK80{+GZIMPqhRaG9X)qq;pxf2w@
zLjb%9XhVhRU!dp(GG#f9l#A=$30{P;`Lj=~3h@_o*9n~Nbgl&6lrEyPhknEo&p>|s
zF5Q94>zjHJI6DGu(83h6hvIq89pHEdCf+^aO6tbpZy!y7-l=k8&1g)+q>omvkG<0;
zl~qA`V3ddE!Wcaz3Wy;rpSv>NUFc1<HlC4&fAa!Rzm}y>cvYt}hJHjF;4ZY4e2p0Q
z%F7ucQ3^z<Lo{7fBR4+6I6AME4H1XkFS1*Bl3@Ge#&D4Vj($<>0gC&X=4I-DTw<oV
z$YlF=`4^Y1Zr^^r+YCJWXW%vf-Z~OR1y>0QfWY7X6)C>~ai9;B4I;nxGA9_eM`Qe3
z^+E7t$N@wtB_$=ksmkpu{qhpUN`jFaL>Z_Y!fW&a6AK7QRYtMPPmFs9*Gqx5-&`}j
zpli1hP9wd+D<|h$XJ^^*p6#r~D<G2srQ_GRsPLJn!&2+(4+5A~M)}&f@nyF_(0P-X
zXpwDE78a3zbs)RoepM<EBO?XMs;b5&zoFj?PE9T^FCQsa3169q(+8gF)6HKUnOr&0
zw9@mVP_JIS3hx)Ah6bD4diu`R9+AW`u|aF-7hsj&*tZ(=XDRLjq0m#P+h8<S9@UyM
z2Gl;Ncx9b!)_G>Tj3w=JUz6|pa090v8sTVXYpbB3;0cAybb5@=SD--G7w-fGJ`n&`
za(<5sbtg&O?X&&T)7q^rQ6bm;&sDX+C9>YQ@o-c?dknM@U@oaY=H=-&Odh{z2l4l3
zp{@iZNkoYB*Lx1^F6_fwJ`>#d9SOpuh`~YBkv%6jS5ZqV6jaL;(A@r#d^lQ8ldo7>
zBN!sQz0U!h5#_4n-)h_Vg2TXPlJq7gf>gN`HCb*!1B3)Vw9Vjk*kVZpx^f0KN)za!
z`Uj=gNJ!EL!7f27=KS-x4#Hlo_{9aN%4~+To%Bu)cTk>i=HR}#VlrlL(U-W)ar5Ta
zJoS=}m`hXcM-~VR3^HBo?&=r@3Iq+pkFVx0gUmcT;WX7!vtDmD2+BDnz5BjiEr>|~
z74)z1+oL&}zWCt8Z)fM2M($q7J`_?k#Gn2i$$|!P;I6hd9n_*73;@}Of3~)Y;B3<j
zVMBoe#_7KOiD9ORNCNBU#{K+0d5OC3yV;{IbvlUu0f@qhY6qh+66X8KfOa&3md$|N
z;m%@&6=R9^ha%88&i#mjrjb~3I+(2h^>f2EC6yI4!N4{eoy;LVj@78`r)5?J5v0(B
z6=Y>0D>!P(4tVK{Xat!taL);#4XzjqgX^LZ9Jj_?US9rL<FtOAizLGo4+TPTBhdU_
zAcD;POu1)tbg;F+%*92ds_j4y0%L$IR~?ybG`m+Dnn(VwF0hGeWv1lC#l_Q(HANO<
z0w{v@iN&5zI7VFwL7-M+qmcLtU~sSe&bwv5O4_?)!}MeSdLC#P)K;~d*afwJ9^K%Y
zB_&Dx4bft7>hXKHC{QZSeR3K|IkRGRZB1q6O`x~<)y0AM2952u$%yxPywA_SoZE7W
zY4-!Cgx+NBtNCKkle7RHosTzv$){9maheZ*{&HLgyB<Y7IexT{ju14N0vf-h^Q~J#
z79<vk9JBg6ll#oKvQM)hPrT4>MV0>{!G!gCwex#~6hP$t?NIc)^c4(M6_xT9H6Svc
zP+v~MSRXAz0Jj-ZQb)xbkUr^N@BTK4{6a!PN5r|@iy6?AfA*D9uIP-z$o?2IIInS6
z^VI3C;Pzrqlh)uquL<NNQE5eM>4=Y>VO)g+S{hqni@uROo<sSXG20Zjj8eT$VVB^3
z_!29~(qpF{X=pP~qHmzY7qF$<{6ZIQ-w&gX+9o%G$dJ<0n^9ySBO&Pt;zaXK8-IL-
z?dRtgc>hzZfCaTmfmRTt@Y?*=`>^<5e^51obk+vMq9<_LU%BzcwmNvjwMHS)F20D_
zB(uMJ7Xu`EPheQ}Kz?8B&n6wMu$odaU}h3o%2zMJ#v!DAph0obZv)UpmRhl$oRZQ2
zd`@!F46mZnBIQ~URsF8I`egtn#FS8Fw=fIZgGFu;R2<ugUjTGq%$NIQKR}wpYnX}v
zA%L$6yHt;=a<i2Nq&bM6%}&9oZ&bxMNIowWG`_d2ii%_L4#mi04L<l}LY?s>F&KO;
zpOEXZf6B(j)&#s`Wb`#jr+-3T<e=OBOaK+H5kArc21!}}xRF^pqUMz`GYk+IN+a0S
zBOZQVPF-VrY5m>1OZ%>_xnd-WnyhSW_n;epTCnmn#Ro3M7Xt11Qg6ERLZZ_<@h`=Y
za1a^uuRq10FGCLH389e;HYV6}YM-BD;5RjfUgmuh6=kS{@%{e|=*+OkUo9k3Nx0V@
zY!0+~9sf^+v%kb25)#4#Mv(;f!zJV*@SC{J=&Fc7&I2J^05sx|!urFUhn-3%>r)L3
zAP`~AZVIhcq6xRCahG=M_-|obH@KfzkD6r8l=eMoLX2W?r;jRKCcFX{odFt;N_E}s
z!L4yU=5VDq9S?X5Z*Y>0I}B;7HMrmQ+|G0Xt%=)gko|ph^enXHZQvUVljW?!0tOPX
zY@wzTohHBVc8mFpj%w6GQQ^Ed;nb-C?fF;0vQSl>SLab1!v+z0Aau;f((L8_6BZw^
zD1sCO<``IUBqa=2JFubB#&H<20C<ojy$y93a$QbKz30Jt_Laze19KeMig}theXFm{
zUbs?j&v(X0($w4%U}0jy0q2qdC>%G2kf>}p=(LJs-*c%G+8ein3QhcY;~qYZ06rkC
zuG<dz{ZJ||hm}D+2oaPgK<e|K$#;i8>tTwYY(Lvx9>BA#5MBCH0-hOA<eI^WWy#5P
z^QL#fiUQersH5R^6bMgnnoq+8m5&~~sqvWhvu5Q4!_7?1$@!7z@Jk%kh}4q1A!)rk
zx{%c@C#o4~2{k8UqQC9q56{_NJ0T`f9HW+Sca413>EPgi=+}`)a|5}mO{<RZg<h*!
zZzT{MN1+hVoODJLAdVZbyWJY=PLg1NWM8?QlZ&KPM7Tk68uXd34tINHxmv*724Qy|
zkQ_t{3=~BD&rdQ$NTwaqvLo>Hm+ulg-e{8h_#x8_k|<FVH@C%TDMhzxjvMMZwi);(
z+&4pX`Nqyb*YJPN4StOUG*}EDREtc%J$jduK_2{VgQ65d1k|WfnxX#w(#j?vVGfob
zRTnT5<0gZIf6$talRU}$sRb?k)V1r`orN_8cN@C*aW^%~n#*_@{dLF9YyMK;=|h*^
z@2TEV-%ZW8Nii^PUU$nFG0Mq7x)`W5qJLo5*Y!<SqWTxcePb6wjmCfz2U)&<Nbv0Z
zK3>DYrS?5{3o|V@@70Z;9~K10y5?*dMMXuIb}H<1!dMG5_XIW3=R9$65<}`oRyWY{
z63wR~uVaYoPTz~i4(A^Tu0j3D8mzzcE`2@bcMHNcgt0C57H!nx6$vW&ob8Rsl$&BS
zCUqauiyR%JJi*&SaeGDNsSxe`+I@OWUFjPxV&^?nYE-PI2EpR^+3m;?DHvq(BM>M6
zw+Yy_L`~gF{UeV)Zkntj${u(=r)4A#Nl?=uX@WliDe28>41f@_uXb7whlp>dZ&i%q
z@$~o;nUoBQnwS-m;J`TX7Bmg}ODiKKEH1mhZ@i{@Dpa+8Sr@aby}b!UsLm<bM~}e9
zv;LqBX>LkFyFDp6G<;#F(+ugn=1@{@0kvfV5@y-JaA06Kp5(gcU_&te@K|iP>Sau4
zFdMK!;R7B)Fzc<m?}<8#eJrP@A?e|fS0qbD<Cp%%Bah5B4XGy$dP3akUjAUnA;D!i
z``h>LCLx=|By_62#DQXaxKc}A^E8<=r!7sMLo3r+i_UL&Je^iY{ennY5M_P7!ULQ+
z|B@G_Ha)KFj#h4Xg>l&>qg7kC=>IJ%0-Me$3$~JfW?-EPOYL64I9$eF_b5u}Rn=p7
zJY|r47bgCH<-0O+jKJ6v22Cpo;reF3I~`t028pCcmn8^yx12v4byCv`y*b#KQ($ez
zo1+c5RgZn#!P|}0Qavxp0Kc1lM6qo`p<6L9yvX|Olk`TE#M>gdle<@bK2B5!IAVN1
zuaQV4e*2h%e!TpPW8xfh#H8xJu-;k$$NtfmL60&fR6?Svr}_zwC|_#iP_beA2DBCD
zUOHd+41Nf}4e<REB2p!kl1=M-(7MrqAo|ewMqgQl=~TTNxZ${-#ICH<o81z}1SiQ^
z7_iGIq|A%(I5zkV&<+LI%fDH({~tAeW167{XsHUix)Gx5wWRBHdmpP@|C#gR`yUKV
z21BWqK`_-ibZ8MYXz9cRsorVa28T@g3uH*17vG4tTmqp4*p7;dN_m#~<YBvI!-*r5
zNaL^9>tcm$QvVk9as_ek3*2(>ey)#{;6T0XGq&0ag%;{qS1m)s338$S@%|<&D{CXT
z2_RL!O-u|!OoT>LNP+?a0Tge0$b;DadRHx+ih+lSkT?~B9HYPD5&+I?5io{X{ej{*
z$@LPf1NffRd#j-$PscA)T79PNSr5+25~EH@6O$VS4W}+BZZ6j((+Pu!+y2m^%|PD{
zG#3K#U?2*UIG!PzFMH)j43!Sj2O4$6dO=Nd{U5&<1b60wx?PQzaYi}@@4CH%0!Qz=
zgXPk4Jht?)vNE7I;?N}W*!QV&?Tq6W0*W5);()jf#vv5hj93Mgvlm0Dc+Np3HC$=K
zOz&~LnMR#GXcFfSiYcn`XuTl<{xBfHlqoNR&K(b@=D(PelM2ofTtCT&V~M{Z6I)p1
zAK<cH3W}A0YZrjVCh1SVt%?c-5K~~I`$xfTRjIW!r8-uL-1L9J`gfc!h_1|4LnDNs
zH*&|pb72kgzJ^P7@unk7&3li0#1abDFBHmrtegNSBCEc;BqWMHh;Dtx1xFyEw6!Mz
zUXS^+LU3hXA2TwQu$mO>h!^ZWt^)^gthk#??=CbN_bMzWP|4p#pp+({IbA2kfMY!3
zwx{-c-7vB7xnl$;*Iq>bxx9fmiBHd9Bbk?cA%=>M-T49`!qE2CKL=;`1!ZNDh_=o%
z7A&7H0+(r#g7l^#ijs^BF;JqY#Wkb%JtXaPL!c6s`jC$QT*vYa_?4v<rvX8Ti_~(>
zUg{+IFsGuWTi1bqOYIo96dX^i{zi{Y7qEYw{eNYGUv3R~f_l+yyh?x*mvL8FS$5TL
z2#=-yY9ELdn+L=|<CfWL2N>!74l0Z&DNf?i4$!mHnxDF}Go07oxUzFDhu4b9re?y^
z@6}H}g5cCUMH@~(ws%}ru7%&rtjC)GXFT;loYhNcalrRl!bjQJ<3NXKBf@=r1ma0V
z)dgb(Q9?#_HZ?LHAVQcOxCbu2G}%H?NM3=|kLbbn+7*M7DeGC`QcRvLoBYuEQ&E_j
z#2LBi;2$~N399dZN%lm_T8I`~iSEgG;$?rYSU432I)6R2xRTf~r_AeD=R2&QpL+QV
z<H;n78a2&W_fk$*sOUdQj4e@PpWjaq-qGF$VM;H5X03aDPxNVIR(e`3-stii0jcWp
z=YDZ|r(dovV)Qt(Hms73Yg-o>v3&iCSU8>a3?&k&C^tNgmauY<Or(L<<s%9@C>|Xw
zh~74qo*j1do*R3BXDZAukZDR6cCcWm@=%~2`@ciKcw;O46>IM2-RFBTCPR2~_xjOZ
zmoBDrrJ4}?bW2?PWEcKtKp;7lef2Q54U-Y;J^qjg`71iFXNR<5Gl<mv6jRN$jC}bk
z3rGr>S(vwU&juNUb}{#@*u27$(zKHTCmtVVC%nd(1x-Aa6#F0E;QweE_^;4I{}bfy
ze}W4SKW{B9ef}aI9*^M<vfABIvnNs4pf_a{rf38*rwJ_Ehy}I3zdt!IuOqt`DF$eV
zdRUi1`F5;{jJBAlCP%?fJt_BaP@X^eaB&Xps<grfz1#gNQ-=$H#UqQslT<X1kW+l`
zf1;$^W}5x=gG57yiRZEwN6UaK$6qG1X)5<}j_H|=k$xAST!}W`OQ9}45~nm3eR{Hh
zaP^q>xy1xw_4XfAV;6JV2zz>dEs|844RId-HkN3D%;pA0<ZJmyJB1zuDDbSJ+>gel
z&Y_rexR%X#vso{Cf4QPxhS5KqcOC__mj-v>O&m$s!C&d{nSR+anwCTttZbb3!F?^3
zRiO^v`4{JXh<Dt_pw0vOhgE}^1jqEiRXj`mZZlyWA&K~#dcCr9%DDTt`k(sTOEx01
z`t$rVKcCz^ZYtlx@?J*{6fU+;pv>3senfT0_6f&I1Qizkv0w$%cP&m}Ct=h8)b|QI
ziG)`_FM%S{aZ%)HNLCpw!F1mfQ39kv&^<d;Mfg}iT)`m@-FjLSFp`QoI+LG2mk;g=
zTQf@CtIN45)0L^Jtc)=?r!Z?X>?RKWR0T~PLVi<;d2sD7x3{PC4~)>OvQyl9^-8$^
zB`{khImN}7BzcIflU3y82=sewopZ}2L);B=RfInJJjjz+URf1?0e$8jIKb32!8sNO
zAq7XRXJ?2MARXFD-(#mJ(ar^P9hh)H#gq_wFg|!M<;|)FG%)Z|)<t37GZ;Q#ji5$q
zTQNlZd2fJG3!UxpvTB1jFoJIw?^*XqQwl4`A?h|-4Yjw_*X9~6i{SO9-G7Ur<Ufk-
z|2-S&zta?>s_B%)dJ!x=s4Mf1P1ea7-3vY&E+jU|(L*bKvs;XLtmS5ipt#_ZViGu#
zmu^BWCeEN=ZTY&Zqrq#rNIe@w!ShN<%w>@9rnl~9m!1v(oU^^VbpY-ai4L%=cQ2Sx
zC1JuZNLB27s{vjUNI${%+VZ+n{?}Z@vc^LlKGJ+b{FdE<9!3*<n`ZoV@r^AX!!$^s
z5J>}QgBX|4CBRTn&2ST!&@|kE2xO;qe9?8u1CyWHkCcR#FaSe2fYiy@U+)S9VG}df
z@79O#9zNRp9bO0W9Uo?<d1%5#oI3oQ^boJYEqqM9fO&R`5Mgm+5*(|Af6YZ;n8CP0
zAHi~p{w55C+nO^+ix-Mm@{SN6XR@C8lTbEAyr2djxu6q!NiljEF?y$~k9~>5hk`{b
zlb(d)?Kczws$>_@wQsE}aik8;n*IL)_`e#cygp&n>bG2coG3z$N5Sq%{Pp|a6hPK?
zt}-tVKRrF&c`iy7>>0qc|5h?Vd<fy~*^<zqv}7rMO3t}?Kb$rQ8Qn1M{y2a5mp*_Y
z6!5;IP?CMq&08-3+h1~2Y6Y?dBd#b(o2n~hExW^H(k8?5$_{zaHxmxF%;K=Kx(1$V
zak3J2Hh@DVXVfF%LoAr*%!kfVhx5ucgWt`BTB~gX$q{q5YeIH86pCgyzNXl<Aa+l1
zP(2Y{<paK+7+Bht^ORc83zE3?&Y`AjrcOA477<6?soh5D>#jeRs64B?_gzS;^ZZF3
z3Gt2tw}AUQn^2$+=(}Ar7pR5sgSk-Xtuo@C!2BYUDPcO(yOhnKF*+YGYL@jACMGA2
zQWl-G1g;;9s&KTd1epCCAugg0{JC4YiYRnO1lVMhvjZ#f`PY2Ei3#Xhu@-0r{&Wmf
zlRI=&+3lOS9Gpp0pIsnj;}DgvF=9!Cz2MZGawuYcJK?}8oAptN-R=qJ1W8!i=kgaG
zt&S@5XC24k-)vrQtXmN!cX8heC-_#Il=)&ISw=;`QHA#Y!>mD-eAgr*OxrD+D@s0G
zY(FdpY_o6rJ1qxmFbB&wa6B9%{48MHB;x2jl^(yE=)57>|1|vk2J~G>Uq6E|bHU_n
zAmBWAMKsf1PSBW&i+i8SX%7L7s-UPi(@gvp27SPvETfZT3C3%1wUdP1w-~yJb&go_
z3faYxg1NtjM2>Eo>;IF4DL2Eo1BPfAlsV6Q?|~XQJ~kYqsH<yLgMeAV3dken+OUp5
zywC&?F_dfLp&(uqAp4motG$hk^!bN@d93W%U4l&du7$<noAMujU5a3uG3!|s<Kl|I
zc>Gjom)aWIF%S&6U;TMO3vTSCZC>c~ui0%&zhNt^y#zdBdgL`2&wcXXnD$@hw*C{f
z)BiK%-ywOTl~{iszv;8<%$6FvzXGf8bMBWlx{O#iZ{GX~<1R9s_1e##L1m8@(|$@$
zx3avP%zCj_r*KsRkdc-UxUb;?@`yHMqzH_&BL(MCkX*q-^^>pDF(0^5Xsw;a=*P;y
zV~^it{h~|1hzeE!I%bO+3KYnTh-V0@sv=vU-~jlcS<ud{ucw#91?Trz8RU5wlKE7z
zm5@N&Za3fWc1|%Q$Y2;5`Tz=i`9VI+ZTJ(?-IPpu!@P64(r_x9r&-bURwLr}Zmjd}
zh%sIE4v6_dmwAnZo~}USJbS#=?UWWxEUD!<VyF*vM0kH3OhzGNc<|Qc+(M)u7Jh1m
z%%^~XH@yFnWFUCJLtyGj<f++w#|M32`QaErtB;5a0FK#gV+dh5-3SQp2Puyfns{;;
zZ++_`B}4j;GCO$!h=si$^im@JdUwF955u5uUBJtQ*sYl}@8ss>{A}>>0N?Rw0r^G0
zpH+6o+rLNp9O1&w0hh_!CDi1Y5Ay_YClfqQ4<IfHwj_YXfNBzC(r3?nKxa$^fv?=m
zuSxHPu`x0<S`LFu7(j5E4|9)|p<p<T7HF7o=FCwuQ&a21rOZ!omgQzZWHW-TEc2sF
z&Z-79@HsiN(9xD^%i?;0kqn<feEe<Su9VEP_y(lqk#eO(T(x9vN+=m75@gI6I3$D;
z2BOE(PF+ur5e(gZ%NiG8+@bmXjc43WYg%f;7;g$xu3q{AbBTeVsv<%{bZZ$D#c;g-
za(}j3t+P#UHMqT>BY*k)+$-HCJvYW=N>hWa&skFgDr^F6H8teWX<!UXl-Xv0+G~O-
z7ArGz@TkovXoDLAAuIo#BSN{{v}|7BjY*e=%W-DzKpdLkfd_u+{Jy+$ZdsdzVtnL2
z_UF=%?uRBYsvO6jB;iqyxK2%@qN9WT@F;^}a%$3bOKx*#NVlST5JbKfux(3;(NlsK
zff6vGM2n3gBnTo<1NN&LOd$alHG}V*1*C68mv06-lVj+SGS`6fYX76Mys|Q1VkY{C
z5U@w;(2Cf9Q$b>OFi)M?{p@I};-!|%U@im>e7Kcy&bS*qD<B_vE`Uv#eVJwbfe}zV
z7Bz!!HC$+filY<JXWuj&!#x<^MPSsldE}t8kqgok&iIJIlIF4{1tYD1LK?@f>X^;=
zPk$Fc9-3OWa>&QP#C{GVI>=}v?CK2=mP)f!z(fsGvnbTRPlGV8F>0HywDUA<$TFWf
zrmS4W8yf$y)pF$(7#YVw20P1MK3-a`J6z61rg=92fyZ*nAPB&=UNm4OAS-B`UqwKx
z-oCauRS9P-!Dxd&eEXDU$W%-x)nLTN&KC$e3S=b3VhB9q$bd64@BsuF6-XlH4jdq9
z%h12Vf|!;D35R`(=OW{0(}9~1GI36qQhRO)N-MG_dCRI6mi30^^Y8RoR6sx>qt(~0
zU5mbVQ#t?7A6rC3QPxehesLRYkuWfT20b4hTF?TVv8FaGUrK2y88X;u)EQ@Z5MtcB
zYAh*hg_&(yw)@X0`MFK?+3vVv-kC{+f|e44-M0}IeEFM<d%4wAxckYW9>~s>+r6?y
zmJ=dl{LF80b=-E8w^xP=N6L%T@L~4p7L5HSZg<K8tJKtRy2FLb_}Ot)qn%;>fodWD
z(*aY9lgDF;j-w`ORkqg<ISa}Uh&GASO(J9z@h<Eqprwru_~#xQJR>__U7$(msZ>_&
zu;LFG4a3qT;2Gr~EYLQ4t;JDCkcLEgLzO}DwKk8hZ`<yeMVu*>1%^|$X`v`7D3I~A
z*0hI_9eoPOIGjjlY|bDeh((AW;znMV``Vi>%i*CTpq$?ve;WxoEt?kd=rvlW-@{(O
zq7xuYI&|JPFrbUN^Y4<?@E>FEz5!YO$-(|dstsl6(JDI@q(_HTW)6N}7>BfU$VXW4
zmSA$VdRJj&U;;+Mss;>XYkL*}Z0`%vmLDI?DwRPX{)_XX_*i)PvE4-P*qv&PeBsl+
z0n^S+qBL=Ajn~JSq8~Nvj!Db--3bwIowvan@|cO9@BiMTws9f(T2i{)x9#wG&^8eT
z4D>5_`U3bDqygCx5<#>{%rv1ge7y(};W!SzJvBp~I^nNJJ0K2Z9QJ1^7&7+$$G{Xs
z;a?#zD(YI<_s&j>U1px1m!&Okf|K*##Q$Zo*}6&#q~_5xt92d8c(qSLo@eM6;+<(3
zkIZwQnkm0&B}>C&P#|OXeqdp8_wEM9U>X}krA=<-Mp00%#$xL8Pf;qVYIn7jq!h7I
z9`Gm|oF`}CkjmH2lDi&>o}IibA{RF#_ju+b16JIJ$n}K6kc5sGw-{ikHK4w}K5y$P
zjl|T`&h$5bM)uoUTc4L{Y!$P*-INKZ{l0XcIke~)jjbgGk%>m5W8>n!{`^Udj0c18
zW}vVCHSj}h?6;-+q$9B((C|`gw=kH9A3nT5!LIhEViRx4YW~NZPq%q>O^ppGrnO;$
z@f@1v&j}0f{1`sFC^*d&dG!KC$a%2pl$DXQ$bXblRgEdql}Ke~N)UIWhEzu^*-<^2
z2Sf7!ub0XjoHx&b_J;%nOp2IHZGUPlFBiba$43&CB<`@eK&|@;HRS&jcd(>fpD9B<
z9TapshQh?(A6tl)5SWR+8>)<0mQ(d%kf^|y!bF9CJ<%Y;&ZbHW3?rMfEkf?cLa9Aj
zH-<Xn1r^~@8}Kj%G`cNfadGhuX!4LO{J(#H$h-@b^-D|3`*5Ymt`@YKoNf*xRZu2Z
z$pu#%I^*oS{*Eg+u#sm`xLi*uEF>};D&V(hFKsoSXKKF%rZTxPDg)`K`(tt?BQRXr
z6Tu+ycntFKeK|R~R=b*sC!5X*KycHEIloa-mZQQ!nZ(_PF|zc@$w}Xno|o^z<-G*#
z30X)>R!K?Z3-u@8Qq0WF)2xLc-#&ZxOzGLPds47yP}}D`Hh>X#rquU4OX%F3M^7>%
z@5{(M?BfIarhgQCyKRtEAN28E^ppJMSaY_ewO#%C_3P~1-1hgm4Gl?ra-Y6@x%-sN
zkN&ocR9r^STzkwCjLx>2t*orvpe1}JMxVL4X_J$k%_!IR;N8_{1xiJztjtW7rCE4@
zLIUb)f1*j)ht{Rh(a}XX^nwF->nW#Yqcoo;rlq+#-^UdKLtEQ-FbyxAn3%|S>z2Mt
z3HF`N&dzP9x6)qu2LvpEF41bIto%$MKO^HhpdAefi8K?5225U(q+2#-FZZ=E(9>U!
zXfrU6XhXk%vM1wq$psFrO74^!hP*LAHoX~Jy{;bp@ZHrvE_E4aAL#cGmcO>%^*|D_
z>M*4~=YD{C5N(LY@PrX*%OCNaDraxrKhD8Uc!-=hG;@N_Tjx>Y=Wn--H+V2W>2P6;
zjt~bpH^dhb9!`k(W9*Ayy1T}DWiUUD@(Kyb)rUW1-QqGXd&ujW@oT$PzX%b291(wd
zl3#Dy-7)-l{+57%Kjf&HrM^sfssWH_8KapC#cJ#s@%!B%EX2lVm<U-<gPksG^Ga%3
zh4y1g(J@I1*e3u*fGCfuxwOMZnlT!`eZvJmNOUPh>+n<)fpa)~Smo<I&aRKQLw0v}
z(|CeYp95rpKYRahCwGZpY-L9ubi0>UR`SkG4pmx}E;~2HJx=kNB<1DhpYT6=hm|{E
z8p^w6I;ym@ggE$I_ct)4d_hu6PD#NiW;fQlmthwq#q@c^9KImf;ltbAzn;z4*ewwH
z`}<!KS728!#**+j?O+v11VwimGL!H?Y#8JnYoSo-5DIcJN&|L&SpRu@5k_B6;LE0`
zuRu7?*o%<P(o4AGGh*ebutAM)b9#K>oAd>l0_EV~7;f-rSb8as>jm|O9u(f-G--l|
z*Vq+QG&C?EJujpoIhouK{VeUb=*3+FVI1%-l*{<|jq7{HQ4)Ps@X!eZ@G7!$a7b%w
zYq#PtbzE(~^-;ou5ImRCidTH^07LBQ;a;E&6_b{4)J*}ph&G?KwY3D(j#d~ww1yJX
zdqFQWy)A@?TR;YCH!4al9Uz8S)xx8rDYU@#ky}C-TJ&`qyMxLglpG_;+bEQ$HQ1Ae
w+aQ!j1#8^%vO#DO)4%;I1QeA)9_}ehKe_7?KKCC#<Y`Y2rJqO@NIv)eA26q|PXGV_

literal 19005
zcmdVC2T)XPlr7o>$x%R%98^#wDLE=ZFaRP+$w5(ak|sAOIg0@hM1o2V0ya5H5|Jc1
zCk3U6lJniif2QhA&7C(juii|(`<MP8-RE%5clNjU+H0-dVYf9@Dan}0P$(4Tbv5NX
zC=}il@|T1Ne&X9#`wG4gS=>}rhOhA7u2PjBd?9sGyXT5Rk)K5V;(Z^-9H3B~sO!pC
zbv)iIj(hshZyqYF4t`tI5Z^u#c$qKc<fF8#yA0i_d>6<FX;tc|pM(?lrKskXnqlMh
zv~cPS5phb&$`!SDf)@1iPT6V2vNT;FJ^A!HNyT<Ta@R`C<4n@waXWOd55A`y2Q@o2
zdhYT{*L;c0@Zj>|awK;k4JS8uy7-5$>?m4VE!8H}Id1Of{&+t4JBOHGl~j$w1~p5%
z`o=-|hGlR4wN%{4-3F(7H5KgFF=3(77l>9#Pm&Pk9haROqiFPxjQROs^QLm2R>ghl
zRGz!FJ{5~xG_+bWjqdfz%E~7{jiOBIFmjlKSq>g4snc}lZe6*4Jq+79zdjvbcW~Cl
z#icvnP(pU2TS=X2*Tk(~*JHC^U&MJv`ThI%W_?*&k}f|;#O;RsIS!_XzkL1r87^b|
zeVv(b=))A>Q@(o}SFNnhVfK1c(o0LlGm5-wOvb!$`D)j%H{5%e9JD>@SJ$>TOMO)}
z$<R`fWX$jQuzbB!#yrug=}5w1EHt;EGN-M$vQqlYxpV0S1ym@fF1hV1gKobnqpt=K
znGY8~pv6(1zC@^^qB3Bg(nV}MNJ~MK|3F~ew5T&SH0zyBJf4xUaTF=tIkTT%Uu9)y
zH#|K-o)|ddHfS6IXQe-NYG(5INP>z@IxxwxcG$p?iO9rb`oy;s1&&v*UNK#^qWJUY
z&&P*d>~`ao3_(FbJH07KfypxN2BTxnt!z7cxWXdKR;rh;UQNGo?QBR8v9w@b`O)^G
zr^59itDG0T-|_xrky*pjb2t{i+L7;Liug}ZWMpK|Uc3mHf9p+^!@QfuEMh?@f3T_q
zZ|^fGbr_d6@;lsAyKw^_C40EhySjh4y6dy^>s`$1!FreKfsypsd_$D!6sl*X@b0{t
za$i~)Ix8dN+WQY5!oGg}YK6<m$st5(85-IO<Yr~jpp=b`lW7z~MJ!uFH*tf8IBIrT
zK2deL2D5I1t<lLNz3M+-`StuzfrB{v@A`uU#?A0RINb8m)^>d4ZSR?zr=d9UpZLQW
z!svLz)sw`rl4adP@q)$|I_3B6io7-#vV0}B+D(t{z=};)9=_u^RP#C7ou?hGJ3iW<
znO8WjaI0ElBBo;Hqhggb%U}1Z!S@%YXiQZ4w4eJy>LhI}&C(w>Cl{AX;*JxMRm+v+
zv#l|$begi}HB~ZR8+^}SyvTP)qn^da;-MtbiwW2~?M#h<<8cRx@87>CR!7{raibV>
zPDf9V2&Ja3j-~2dsEmI8{Q0?+3yo56cqMv?%y=;Wfs~Y#bBDkW{klDdJKEaL5WlKR
zRYj*STTM~>?GOagNP4VthDSt*JpOgt_HZEIPy}<}@jf$CY0%9GJ^X<0;>E}cj3p9N
z-;kKHEt`DGF6qR1^e4U!g(|fhetNk}mQFRA6^V2kTifYPujw@p6bb?e<-f79QNH)}
z+qb|B>#Y3zpwT6V&C;`H&yo=050rlR@Ik9AOth?<Jn%t#ocYoSw)|)hS7bMQ=~3dq
zjO5<dQbbde^5S?EBfow@(;F$*R6a8Q;4UYj@+o|uwPwa&lXVJ4f{aI7Wp&dZ;!Vg5
z+kd(=tZW;W#T;Lhjr(VT-5xLf8UFb3BaQ7qUXdc~oWB1422pj07xQlkB0C+9n1Cys
zsJh9R;gW~5BesS1e+tUQU~!!qDJ7;Fh&evhe$vs^4N_(IeBV6TlJVigbaA_2qh*X7
zQKRtGrq^18=>c~^MNs*;gY2I#JWS$tOfAuDql@c<YV00Uc(O-3vmOU)t<G?^yX};X
z{*x=JUS860(Kl}16!G3#40UUXJRP7CaSE;pLhfKrqRv`;{?WGnMb|Uj3%^Dlpyuc1
zKI1kmzC7bnyLGFnW_u#S4>FZg1@pwmLIW(Bd<wO3<>RXmy0OonKRtUhZfIe>U*A+E
zhF#8S;NC+n5fR!!BUj3T@)<Im@qJNbA&(CCW8b`qEa{SGq2twv^md3Ecc1hvpG&kA
zw&~;ZsF^s`Dq{Yb@S;&U&BJ83Q_}9sb^@9j8ZCc*wu@Lak(}Y>ot;Z^Y|+I0c@gTy
z?z4Jzak7phEG$fNrFvc1YvY%defqd*{%an{+aE&XCT3`9X=7(ce#)3ZM%QK|C_e$$
z9G)I{xDC4+oghL(8(ZQ*k{BAQhF?qYPny4_tb7KKAOZOikuV%hNCC%klQPvuy?pu7
zZ0Mu;K=X-UiqqWQYD>Z9Out6U3YVneq;R!y`9~J{=JDoCOu}YYB78gFNYVB8_w)M5
zW+uW8HegidS_mDnN0D=_4j4L`!<mpp4PrD2g}r?bclq*VLs?B%Te<abmlGr$*$*%Z
zIk~x`2W`{J-?Gcg%i9<t9vf48+qA{8%KI=uelJ~GJ9FmDRD@9N$9~g1u|;X09pP)y
ztf#SEjUm*HKV7)Q#2BtLs)$6_)#c{qnkSxnZ0v}Zw}U<DYE|~Bi-1yy?0au-lCi5-
zdz=81m<|1%J9mVkwBT;&x5k{^5E{!?J3iX3vxE!%)t60&*(ym9lRC84)nzECm}5o?
z(4QY|kk!Mis~+K&%V(*oHwO&0*zwY}4XY@pLO3u?{CauyrpJ5w5ccNdm2NwblB|O)
zpj_OVw|0n<^WI7|t;3+EJeKah$&xypVXT7?Ejy}#?3G_o;y76=?m2iqw@%FxdARAN
zo=EBQ-Fu8HHD}^Gf8N@~FXXe-n2H#)kgatJF*CmX$R}$g-t!r4-Q3)e8#+3eS9n)h
z$t+ZNaLL5)&<*vm<+hPgq)Cm}y)skZ&Hi(<kQSOt?MFX4&t8M4%PAm0NiDnTkHx^9
zC5T#|goJ+k_HF+phsx~cC4(F(mmgoO8230AZvQX}maI%nWKOd-C?T(vh>MNoy46ds
zNHUGCY7S@MS1xlHZ|Y7{YA!IY%0oMp86r!Q{;=!qOq9d~jraC4!@FxyC$qD&Eno+x
z=j7ZV;cD9W-FpI+W}V0+gU*ApV=-0#L@(KCR98<gydi)%0tzNqAPsCGdTRNdRBVSo
z9zo#f(y7y@PtSD9tkBD+Xp(R#YiY$YNjSWL3U(5HDUzl-=IELCN3gcYo@`3J8qgHY
zCS%}hDi8U>Vzwo!BaTDTDYcDB{%FS%PTyd5TlV;1Jslp)=OuK+)2I0G!x*`(1dr(;
z#-{wTi3^azn_<V=_g|t=lHL3DE?qT-9l0@!-`_tBR6+^}g>0pK>y4z={rmSrn<E$_
z{+7Pk-;Qn1&+0{W$?xBSbOp<#QinNg@?NQ7+`@$RX>!ug)a~^bDnoT^f;(&CP4Tg?
zUmvoJ2@^0Z6~&blaU89Nq*qpsR3;}S@xwiwD)mEgGf{}&qq?%=Q=72m$rV_B@TXnH
z*}15EHd>~sGg&5xMv<P8F(OSV<l1;ab+yq3ZcxZ3sik&zj>UQSK|Co}U{-D}-Sz9&
z2WqVoGhofgWCmJBn~RsnT)QZ}{b=0?moE92*^i!Di;+AdB{l4&h~hNC>^?AO3f_Sn
zgj}mKC(XwJ0h8*xgaKD+NeGqE=+dD&zd91401LR?0lFd@#Yi?8y_a!uWL(NGP|>C1
zbw`^*BG%u}I8W8%t<7>A-(?E!vC9iK4;?i18)vpe?mtezFfnjx&6O<57a$hgWVrAC
zRu~{I>{bDNypc=TZQXvd^TvZJ!c6o5#MGytqII+gTeeWF{dl1%?(I^uw~*VsIcO?$
zfuBEUa)nXhV47OR)3XAA#Jv)$Fys+11#?xK6qf&Zep6XRB}mtCtlW9v#bV^?%SZ&}
zA4L~(DJ$_o=?ROBjQqH*^a&FOsDq-B=I76!+%htTfP-y~Z~Edta^aYpn<G>2&D)nb
zfBrg2j|-}`xGO$BK4QH~!4zT|9#m7_y^=h)-b_u#vN4wkkL_{yW=Qyq=+Obf)nxaH
z^Ao<?#$3vc<Sns0s^a$)e0Ekp9*Rx~#<?l%wrMskk5^f;GxlV^A17J`fR|n>CGW5F
zgg=nx^25$g6DK4v-$zUBli-!${!USKs4RB&qdTN!&Zx3a<13hLnb^d{3$>6>&RO~_
zVF!^7fNYw?j4(ro3KhG_TH{+u;`z-|K`j$IXd4@wl6s%{WcNJY{lCyyx>q!)b(VBL
z-K^dpZ{`UxJ581QN~sNIf2nNdPrFczWNFKajv(LxfPDN&SmD((2f*o3O%QW|G>RLG
z!@XpdT+H|vMBjSs$<($~y5W#~&nL?s(=94s_eFVOKDV&;<O^O+hhn>pUp)iz-Pzi_
zxLWJ6hidOpRQ8j1FXD}TmsfC{kS((6V9s3`8yh<(#P_wmy%{zL_j2{R2B4*#bF((;
zD24sSl9}lcj#3B4Q>Vnqr;z0&pPDU;crXsnm8rhZ9NXUIzrXQ20Pam;j=YCJU7<vm
z{zF^*YaLz6{bL&1M#dCwd)~nM`4qos*go%aa=se4@2r|1{MPjQJlByly}tX=bzTEP
zorLT2K==cb>4Hod^x|EdYt2o;iuY}m-@o5^<GVH7Et)@!9xZchZDur$gzG%Xb1f2u
zS{y3kS;R)>=HzsjJk$h$M}WH33*kl!kP$iUMU(3Cwuf&ONgl6Eux)N`s%dJfUb{ww
zO0BJB2ar+JLZ|5$WxF_5L04G)hist07|Do8V-RnQzE|QEyEk0pEg@L5aR(_6Llv&P
zmo8t{0`SD86nsVNrPVBz7X66;B1%PLW8)V;r<Wadbpa<Pe%jpixvk6KP*&CKYeMn_
z*(!W|eEtPEH8r&>aB%~LrjFP)XslMJ8`l;~y3*6r@c}uJ8uBN$vU^jAiHWJp=Pp5Y
ztlgO*$E}?C)aAa=cYXm~lsAgCWrXKFu;6?$nGB#*=KJ?kwfoDBkVM1({Bc21YEG=r
zcg5^<{P=J)UXkR<O6@+CW6kENPRZFwD|={sR<}kS-vM@1B*`<XILT=0BQoaT-nXVa
zy4>Y=bQubLSeL>vD?s+L+MmDIcb_FBgaTkC#K*(ss1OiSHOZ`02N+kOhbtm1irrUC
zBALZ5EJ~M+Mgd-6s@or5aoYH$g}S1lK{bKdw}%{h&Yqf8(jPi1gEDI9$l8VKSW(?r
zTm6f7Kc?Oz2`a6EZY62V;ec|{W6##e5<s6Mgk0>~x6#GLmjKQZ0P1iQk5)VUF*i5k
zcf9Qf%^;xhwe^%^*1F@vl{7vwqz&;U*xPZIK*MgF!4=j~RV{l!ULc3?B5o9>p&){W
z4ga9)_<)*T#o9S#5}sqH!m$s;94<%$o(H?<4_X9<L1G-Jb^q1P<+J-U{>!&-k=90B
z)N&g%C^JA^>T$eh&rU-YZ(iun<qE8a|Hr1J!~_NgW{qM$bqZ5JJ~j~Q4wYs-zfxss
zmYCsz<c6t+fS>~0478H8aPh|v^A(P0HlCloi6nI<(MQjAV9V#DTQ!~MJCiMTR;NGD
zu7x7Npv}BfEhLr4zRY{uLBwn0ku7VIxV?>w+B%Xjpt>N1d<Hs%lSo1fq@fH^F09?N
zNyB-)5Hb&vAsoMJWo1>O)ZHVy`{P9i6?GjfvjxBpsK4YftvoF;970s=vX92+>kgM3
zRp45>Mb#;ogs(t${r=%5a)<eqxPg4S!kVo_Y{$D8`3n$rR=!)O_qh9tAGGHwWu%ST
z4i;b?T6;}rnE{U?*Ul{<pnkA7Sa+&y5>vI={Jw>Ilg{96T--Sgg~P{19%~l1Nf4Fc
z?h~H8i{&i)%T+5)kgKi7<&Q3#m5ti7<>VI@GAis3cPU$0WqkSag~ol%Ib`!hZMO&a
z(mI^edq}94l1*BNRo3Hno^jQ{$TBq0jJbOGHs1?AD0M>_8HlG*nq`;u_=v4dPybsa
z0Tv+5VFYy2r^;-z=USpznqm35qr-mbxZf~}UfogZRJQ+(pnqUFqCR~R9afUczLg-1
z2Qc%|8VP+*b~qja-mg|2P?TetYL%5A7fYSR2PFUNe&fGzIR62-PfRf?X9F}4@jFu`
zJiY#>3wGg6Pi$c4Bnt(R{h&+LIJC`MUGL~so{TP)3Jy7hWLV#(KRc5xYuLDi<^dQ|
zRqkW!j485>Stmdl53;>Z0pO_HAG=#&B$$wKdi?-;Y5VQ#^fBnu_3|k~8Jv$Rj8;8l
z)dio@6uy6d2G_KY_LODs8yp<Pn5SAN>b4iaPqT6s)baxZ30vplVQ+u^dSle`#;se>
z%SLx};WkI8PU-5#zI^%P%YiIA^_W8$&w8&LTd=vPj0D>DeE8EJKkm2A&G*g5$Hfig
z>;@feg^e&%U!|j^y<Y$SycSG<i78?Ku+Y#mW~l$-0Zwh~S9BCnS9uHwLj5^}4a$Y9
z+n0WQ<U^BjD`3b7Iq|hdML&Ii!@)!wdw)sBABRhw@V0E~Kj(kr)2jGUBu9PqzIh1o
zwW1q)N3~hFnvf^&`Ecs`)O`=faf_*;p(A+gPydrH4Pn*({l%vmza?#-T@yV}#apl+
z_%2Er*48Fa>RQF3q5qmyX*4b?hb*R*z<AKUAId~{y5yyE@$EnF3S`bP+L{(c4*zs%
z9utp~mt&8?YBt@}qDOTuYHM_A_KHFSR{yhjdw%7|fv9>whV_ySMw!>3YD}rdMCfS)
z=WTu4eE~0FCS`kj`-ml|bg6tdZrK~A<D{!igz%r7>eL#?SMN>5Rq|NgxN+lYPEK?m
z1e-`#*K%*Rbz)YG`8Q~7yG1*Cc6SdkhHi>imzxq4g-G6H{dB3ATHl2~c5uPXJ-bra
zLfb@m&i90N!bX_>`=9fFIWYc{0|bW&Bu{5Yq!4V`$CTF^=mH1Xr!O%lltOs&McR><
zRg*aWl~*~6VjW+CT=qX#+oRh9<lC%|<kYfEXq{`)`Djqj14D<-J$o5*WhRK%>~Us6
zRoxD;P1Kd9%>}=$O*QGWXJ&f16y#}@c%*-e_|J0Y@Tcj#R59W>E65_Yr<u#=W|8wM
zmhGk^ufk>2*}FX!m(Pw!_u|Gpq(d*INZ6ptly%ePxRu#h{`;5KNlN!u{S$(6;3)G(
zfpBF7qObpb)F7_;<#}xsiamxH+I80)Zy+>Ygj?eIj96!y_vh%M{Pj&dPe4yiG3v0;
zmz^MN{#1MXBrR?7OIGqJn!>?|#YH>5@RR66U{cl~iCWAwg+Yt^9D4vTt%;b!2Zi#O
zd;Jihn@Pr_E+ox5R~V^vezPk|&Jkyg8g#2^F2y=XP$bRX(9{fh{@ltNlbFFJ7rc8u
z9A8Ci3SDKtHRNRaAtOVPq{qVWczbIPHreafuZ459&4#K=WZ5;p?JGiz-&&7Qv7+!T
zJ+rYRrFBzR7YH4m^XJcJV3xKR+7puBrnLVIx5g-6l47riGWuDC(U=}>{Oe<hbs})*
zQos}T)Ofq2>Jj>Vx-rCX2|&AlrNQVdDNz6=)?f;#KhbLcM`5QaM%eX@joAVTI2w{N
zPWK+1Jb5xT=fVOGXTSaW`E&fjLGs2&yARabg&wApcW7>U*{|eb>NpyhmU9Qb2{Ef^
zJ&TJw)jQjJ(s*#%rQ)`}{=+IgAWDIg!GCfk!hWfiB+TvjrI-Rr?dHvrab7K1R!TE2
zLizp0%SO<3YmEj?goz!^F8AlgZ@zX0!lRKxlhaHlJ&;D^kgIas0Um_5VY8_DiZ34X
zo=Bv4a!P+8fiH6~t+qfF9&2KX6;r9ZUazPnRkE4zqy1VkHeKf#`9V?2oE+(`9VwBz
zyUpKYGOQsn#EQJm7|vMd36Fm_`Bd=2h0oAl4BdYX!SXqX91pd>y`p;cDqhB|*Z3)2
z4{P?%a&s>{V)Z2+t8#bTfZnR@QcP=rb#De9YHxeR(N`-XG&GB6cIE$F?*C7=_`lL<
zNP;d0F(jX_s@DHcLt-fIFo#S<E0rjKb~J&}n3Q67EsW`{uXmZ!_$s=ozv!E0WI4r5
z-ZZbpW2oqFsOajmWXTrCPdQ^x-;8RQmlkKuJg>{JH6Opt)7k>EPtO{S=>JaJ{hteh
z|6i!^f8_c8Cl5gCrDV=t%HWAaBJ+~CbiQs;%G<i5SRLJ<bZeS$i;|PfEkEiH@(idt
zs1pY)WMG|gY?SJF@BUgV*&-#jY5p9x8`QGcbof5UCbxw{-B2EL#co~U^}H&5Az%%`
zcydLO`laAWD*@P~E>-3>%oIsjs8n<4#@o6H;<kWK>VGQMTd^T~*a?#}%BGzH2Za*|
zDO>z*UqUO94o&KcsRw)y-yLSC^cxe|7=GRzLBnek^t3a~plE~Prb1#y^H}NGv{n0v
zUE1LuL4u)`Z9qi$CWT9uKQgR=K2{_pG?Nen@de*R=%raVS^%V?^2ej=bc&MF3e%gV
zL!Gm0^>7f)qurlM#T_C+><S$#A+1&dKyo`a9~@x3g^qP}Rbcy7i)@_c=e0R|<_sqd
ziRfYg@7+hokwNKv(cd%&H}yJ%q=uJGZqRdJi2ehZ_a8wUKnI}#KV149gHK(IE|>o`
zIDLsC%j(Dalie3WA-6~7NvY%yj%aEN3c|}x2Hlu~@h*QoIJdbFa7zxa@W5NMuO!`5
z_H7n#yqY^M;ms(c3by~Q=^x`JblPQe6`9?(m`f!h7jwzw_iC9;b@i{=W#XitHkdWG
zIdJp+@|2c7J0!PBN~_X{%CIteQqx^M%2ObLW2Q=0mhm~M_AR7)<RQxMo>p+3pWl#P
zRD0E?V#ZtlZ7PmHt{DXp>zJndw>p<1?xZmK2?%}?%TQKt{Fo;=<ebOK!76n>ci^m)
z9NabU|Amm?f6o{H0J>1-dd1LEW?~R!Lr#kMgRq4VjPGh|Yx9wf-^Zm)Ib}au%60iN
z9nh<vg)nR6tkRFO@>^6OaomVtuCFYZUC1qL$xOk7k2+LQmQ8r^BMOM7!r`a<7FFa;
zHfuNUDv}_y0uXhDcqrgnIsZyLz}U-82k>xnOY2so=llG8rN7!lr)l=}<#~^pFkYlj
zM%4pHkd|`+p$K#H|82P@H*|#}?lBuB;nd8aKb4W>@HCxIqa!FZt78|0my#be3z1jG
z#Dd+I!uo#PCstMA4amY91054s69OP7+FVq$Zfk4z<{kEBYlA)#7`h20kd}c#IM9Y{
zj&+CP;o;%kz)neqXejr|AMEBPOWxLI*xs_OeC+BZ`nVXDE;AWzP_jB+>nlS<%^vwf
zxNsm&$TV7F(uWR&n5OsFUnJ%qL!<XBC52j7SH$Iq+Tw6YE7??q>%0YsV<>-6$<p)-
zO=#W{vPO8@P>wlB+$k=ZzNv97xx=8Xt!?%G!*|yPX^(BkiJ<J?zVqF#s|(Q}WLS<~
z()W$zy?XhQP!lbVZ^Cx9u*Lvr>)RW49(85<t?(up8J30|9l{wu3;_zXW^Oo$l$3Of
zEX^F_mo0klU%dds*}o}Oo$L+_0C?Yj_>f1;Y@JHAaW+0VnKGu;vPuuct>VkYb{uJU
zbQy++hefcu^k?Tv1^S(<#zFEfGLHDA9L`)n|HhT-0OJ?Y?tjdV7FVZhj~7yPb{460
zUzvEXK0C?4AO8Kv*0<M}L2B3tzFJ|Fm6e5BSiD9?Lqd3@-R^LJ59Cx<VHOG>J<FJt
zmq$p^i)L#SW}efxJ+39|(A?fn8_v_ccaL=1g{Q{~>UU^(IN75KgJ0sdo;4<fP@<RX
z@^yijA|qz6>pu9*re%}Ax96p!qf<Y>K3t#+f;m~*kUXQmbt2{dLvp|^0It|7IDmKu
z0?q>S26Upotz;J7BD#tz@X?<O<sbB$()3fNkDP#-3WKJd_;7EtF+)8`7|~RX4Gfq;
zQ$(Q{7#M(<_P3UH$r0=oO(VgpN)b=WAeA)AmFv(X!80GBesx=*_lZH8ba(*vjbuZl
zbz<~@OL}KmLJFNlHXU<`_I{-HK1WX&{pRlR^P7SV@unE-@rja$)Ihs^|7gFxG8qGk
z!L8SqKxFIk+Qw~q6*)~SqON3WBtHXvu<Zr!?60182M6(?StnQ|9GU>Y@e~y1<~9P6
zG3uneMbE%s4p$DEg!E$);51$cb9<)O5@0~ncJ7p#H~Sn&3S1qcA}Sp3c73!5bQ7bS
zt0!i-yyhWnKO&0Tf++rsk%#Qxkq?|10-pVYW8OGa{5(~?JC_8y?@*Z|2f}e6x^9CR
zP2$!hbqqK5)ih`|2)`qO(3vF7Yuo|~uT=hlNr>16>;|zz-60zJ9-_iJw}_V3?GdmT
zOh90`?a#(2w7`vNX=@YIO*)>i!C>TTfrCFcdd+53kGbyMQqMbLM3~JuOrbD1Ao>2&
z#T*n>Ch5m~Mg>`p31OjMt|E-cE+cB{+vTn%(2rIpyjP~-lmmYdA{L~!w$j*<<<T<g
z6rVq&C^KjPhF~9~rhv2h(%v3WfV=zY5iLbyJ%lZy#8y|!q9|8#9(E)Ky?jXz^e++c
zK70^*u%&y-98Hb9et*c??_xArshDSvWRai(jlP3Q$Zuylq+=u`5I3vCAm$JIAqseG
zZV+(+pbscO>RT%=E_V9yg%*e2ULId-VR7VyR11tg2k7wlC_a9EB@GRY7xp~ZsK;4l
zKwXwR?7C)ceLh1YIUM2qAzq|F(kuc;2dW;VpAaB5X|Y%=2#f?^VlnF<sRL%ZGdTiD
zYN%CEGc3S20u~pw5_w%+`vLhgMjV+rS$MLZf9_X<Sf5o`sH(0WwHXr{s!^?xENu>2
zfO;GdDQ{p8lrNQzuCBFm5IovRA2|K+O^@Balf4`}b?wofEeY30&vmQZrBGTPMBam%
zF`b?H_NjGZw_8n{km;@7rbIE@JjYQ}*A6ihGe+bcAK7E$vRdB)Yl9~K-$AyMcQ`WB
zv+#TtheY0Z&b_u5I|Yl=S?)ZW*Vv95EDR~Yb-S^-&V6h6WZiq))HDWjxF@zBDr{tk
z`qI(SJnC2%#V+TSnwR&@rVi*%NM(rluVP}tUQqq#Ml~!fu+JZ<u9|xOe08_Xfem!o
zRGc(=Wr7j~a_dzG2SF=%vMdhecqqio0vTG|`yqR_uiATg4HYegK3@>)5cb&e`}^y%
z4=;m+{Z2Ke^hm+#Tf#?Pri$MgNr?gxeR{gO)!_E&i0cCG_OjKtN5ytM=_(LNv2LRf
zp+^V12?~C-*gSZSK(U{G>$Q-5ZnV-!5Q<}e<v4KoC`!|1--YbVMC{6NNoN1tj=YAh
z7QqgL#V2`AN1q!vcstJkmhOvHp`0=x)^Jo)R?aM#sPSHZf5SQaw^uz_H0(uS<<hBm
z7G$Ol_qQ!!gAdhsmu)iq0f}}Rg4_O*By_nAAI4ps`xuWI@<p4&N<R0towGr8C5n-A
z_^jf&xVq*)i1K@JO}VcJST9=_@5WBI^J4MixR{<cJ{y$dM0G`*{+A#c^-i%H@E%gG
z)VOaa@Iz(_%;)5(hiW}|lkL*kx4(3CIl7RQKqRE4rcMP?hXZM-!??+|3T$~OBsHMb
z$9&d1?v_|l0@EK+%FIGb+jE}Z2DQD=PtJka;X*HsoM;qYorw@q9NhfZmlwExy?Mj>
zczNvf?(Qy=oR=tgV#4$C@{rfHLdrmNhKy4F*J5?ixKihPs6k;?770X<W9h+8?in{x
zErRm*?+GC}@Cga2!cGF3JS5)4D?7gh?spo=aUiP`bg%NigrAZE**sL`4!o1ui_&0o
zv%QVqY8o2B1-KoEg$ESFC&`A?^v%LQ$;KsSKFz|*;|t$}LW($^%5eo%BQ|!*%4`On
zo>Bl0#_r$ad%V8Bz6Nd%v3uLFjVwW)g5Y~HxzhSOGiAcc@<d{YC1}dRkTF&FC27ST
zSoas!-Mn$*S;CjXuXME7AP_koFO7&TRzeCh)W1$91-^zNi)OOw?FnynOhd8bq`c3c
zHeQrJD7<F-TT3W^5Hq=jgs3YEEFlnuDF{I0Q@(K{-0j4fMqy#wfs2Uc0EC9Df`V%x
z1z2^xjjHwCpZR`M2wQL(v8I_JGG>=P3-KQ?9}MOBs+G%gllEVPyca+%A9}e{k^uGr
zcsBI%XXkJ0=mZk8d!Pu2DC!aEHP5R2C?X;P(Re<Ks*iz1Z9t5MyF-p$i$D^t38GW=
z_~@`FQ<LM3_i_bq|2&nlGH(ey%TQhg&{=KK*>%uQ1HhZO0!AdjQSx@f#V4-(P^tmr
zT7sOnIO4f+ThOTnG93}BwV=)eS%X4BrkAURkV2dY!IUf?%^Qhw2f!sG;=XKzBsr8n
zBB4Ri`_wX4ZmO%Bgrz1OR6UcHs0if@52<6YOikc3Kyfaz2GT%IY=wVx7n;^ti8XFc
z0$V}>7Cn6<=M!_^UR(O&NqrxirQI~_2IcP2$Pfcoik4O?3yfVurS^tHZb(^HqL%Bk
zt7x5V@SIO3*414@o<5{#;HweK9pb{Vo2W)28s$&RbIlA&*-)h$Kf--%ER8Z&7D!Ya
z<N;j+TcrSm4qH!ib1ndjz?~Q1gw^R#sn*Ou!!$-q80|muZQ@o?;K<3b0D(0tC#Tqk
zO@SCyzVZDg&s((%caDKL`88a^>mzUa&DA<8YsKGKQ2&J=q?A$+2L=~!yZZXd?Sa2w
z(bE%f1LRx?9ngOg#O;|;oDvd@2rvdu&=U}-au30K_$)a&%C@lPl&7a>Imj%3D;O77
zgS3w~;CTz!N&pk#Dj^3+pi(n3h$<>762xpzIh0Qmp(yL#yq0lyC~=>QMM`9&Fa?qj
z@@wlpci{Om<UtuL2c6k)@ff6URU4ZNr!L<0M@%|x{dh4cH_H=?ZY#emOnqQw#Z5z^
zJXW5Ok<riA0&-&dbOezb_V!9mk4e#G3~GHjB+br?<EyRE(1iyYwI{xCkUyAMNn6|-
zGs#yqJ@H&SZNf7@Ut03;R>F2i(4WGX)QdhNdgrx-8D_rYd*mG9cT|n*<?k(;HuM$8
z9vsS*E+iDNXLVIFCc4YW>iQMw@;~!AanKe&{o8kRb$f-ntokZ_SF#*_&GS1>OS~**
zp*yB{+iJI3$mb)Q=2dU5eeCdENHp<XRme<!!dN@<ggUy(&p;WqGuutx&3l&exMY{0
zk2yAlz~FoHi_qOhL7SrF)>&A?fhr~$K%Kx)C)U`8osp5L(p{;Ho?qWJJ9RiRkj<yE
zysmbmE!2CzRPXNHP}m7m0KXK>eL*pz0Yd|L*@j4QJnR~satos)2;2k5PlJ8gI1%b@
zxf2&K=}xmz;!3fhp?u*`E0D&dIK){IDoxc&EemY90q1qF7^dEg7lb}CohlE|%&+mP
zvPE;X=^tb7Fhp-46lP{DaOmsTNu}KueyFuVsbag==U#s^?qWm5{M!f?$7))LOz?4d
zfG6N@dgMJZy&SotphC20e~UL4fQZMc8Ms(2KntZ&oZ7BCmIJu{_nk{`)A_E%zkW1M
z%8+!YUoV+1OoLY7sPxMc`kiKqJZRgF5o<KG$vS~Ft91vG%GL*yd4nq{<Q}qA(cv0I
zS_B@DY=FYWhoWzveE1G-4{VZVNfgnbWpRcdQLZINk#h`5z9vYnhU$d`sr=3q0Z3@J
z_uluWgXv9cF`Z}?%0<$f9%T~RH60VUJ^HFFyf-N+lRv_l0Vye6z1l#^K~GC7HdOA+
zL&Xt&wCe(lsnAQ;lh7pz)$VYESr(cer}YjAB>Q_T7PbCUBqqMT;_m^T7)8l}2cA!m
zsEoiLG{6G+`3xka!Ad<Rwf9>^(nou>Kk~Bh4hsDa|JFz_S_P*ZZDjHZ3SM(?a4?LD
z3e8gD7ZPfPN}qIbAKWk`z*9qdCHC7Noy_|QDP{-y^~C<rKKWB}UK{m8MV5^P5fX1s
zFB}6vU8%$g@`XPIbJT2JNoR3E2mlOT6DVL%Wk>E0gJ4M--ySpxwnl^u$5y+}cXkvc
z(r5dYlXr7Km_ZhRlo4@C0DpDzBSqQrTkqutz;Fnpf`kDkXOI}j0H*3qLLTy1Z6J1T
zIsMQKRzjHKT^pLsxDSN^^s@?hXQ*<5i#GNJ)j<DLdw6l^u{^&(1LMz0ReNpASu#!g
z^Zfj|!$O*Hekn-VM&ROB9{}(ZM2U4;YBct*{WnON3^fq6(wOfJrLoB6=M7dV7eeTT
z5eM9DC>aVzYcT`5`GN3U@R3??)%hk2M1Ha1f_D*nGE={MGv9$xTVle)@<j^w?%@%g
zyfAmV(}bK+pnF7wUBAcUFP==#29AV|2f=7!H(HwCc1c$kNDHKxBIOXwK^Oglg>2=(
zao%AQXv^^%e?uvlq5*ulYr_vyrXMQozsCABh0=BmSSJQU--@c=U#W{h%zlhUPI$=W
zwCGoKbajQ~<bVqj1qM3A(qdZ`EeIHIWW)f+@C@<zL4b~eQ_W~dsU4aNxET;%mHx@*
z#PR%pymMNRmBD~v{7YwN3wF?C^oQaW>T^MRTU!J0BC+s{klF(fN5ofW*aJ?#_-?bF
zfO;xcl^qYYI8nm_76`lEtMGdQdfurT9(TckntprQxGji4Ufi+7_+#x7`*+wB1wZ+@
zt`x^{#8eCbx##}=TRCsU(T3`_OK$)98SXrP6!AeOZBFid_XP_{ah$|N0T1~;)lL}i
z+mA=b;JeQ1AVLTzt<{sPu+L5^AJnH77lV5cpakxi3w(YEkOc#(?hvXIE(9EIDA9w`
ziyOz!;xr<z!67|Clx8Ll&qDdc!_%+S`3W{TXFjo`?0E5O3N}3LCNeBQpA2n96*^vy
zLYfrYjzU)$QKm>$jfWnKJs|k2z;KCDqPyllSTpOCv1H^Zej1a#P&P_A?J~^%qIX?;
zZ26qRw-``0pE^|-It)GSKG11AD#!sgS)l*Oo!VHCaV%~BYfC3hVhUaSZl7q!+O8B=
zoOEKwy=|47ZxT#@)p9@2HYO78UTq>Ie#)uS?qC+YAW5qcg_F{2Z8Om5cm5bhH|z3e
zO{U*gN-m>xxkPSLh5mXKg&B||g1JApM~{+qeqA)VAxu)`=MZd;!YI)9elq5#AwfOy
zcU`|sF=|Oh6d-(n@d!MO=YMhqmGL`de48n4*ZK)+u~wCWC;;sE(Qig&X-I%9mXP{s
zBC7~THEty+uFD)ff4oN0(M4L+r=`mPgmm9PSZkLs#oPXv_x}TG#=n=F|9_$`{3nWx
zU?$lTxTg_67}PCc@ZAG<^Wh##;h?R+wukK9QoGmM<6r<t)&U6-AgLwDjDX;f(s1Fz
zg=eo{59f{l!$%TkR)Vx7eO?MfVxX%F<}MyNIl0BXpY8Fp!7L8-hK@D;_dTJwz+tzw
zwD7nHLEp%czAOv5hcBGR?M=Z?!pxTUeBqXsE;)Kx(J!zgv$az{W(V1~yW)<5TE-Gf
z(UKLWw9V~B?)50nz`v$qdV2c6@gk*=WcA)A&@{Ec*b4}p0QJ^$?sT3>4KoUHS#tpj
z<i4sJ)FDza?(p8~K|}nTNP{FS;D@QUuZq~wDF2SXT;#vfl>+?a2wgdp$B>v(r=i+y
zTc`&nG<rGm&9hqzj}n9P@-7nQ-kDOcD%7*E;J#B*4BCB-A_{!ev9FkqRIF?R=i(O%
z%Z&MfHMw{19@57f^MkAS-syX#jT*YT_a8iH9+QtNjqX@c@FnH48{`QOvBYBq-xCZT
zfNPc(dN{4o3*q=>qvQ8mQ!YQG0@O}`0uJ)Zy?dwsu@i98Am6`CWFGPzH`3M)NG!g@
zhpAgK04MGVAG}f66z|M2{r#n_I);W3@S?{7=8?FqE)a};I%h`nESZRM+P|iH=1vve
z%Y|ZbRD21{|4FZy=i+C`hcJJrhyoBMM_2dNk_ga7X?b}RCWRgPnkX=H248CYB&X0T
z%5oHE2wH0@&g<580Nr|SUY_#nM>`R1ot>q|F?{UNY<|N~oF;tM)yIJJ21i{zaD8~9
z2Stdl|4Jhx7NCXjgRk`Pi*e&Zkfc>-hh(O};)={+bi{efvV$*^vfi&Q3#j|Po;4N{
zB(47U?=#RP{X;c;Wun=dSKNKAa$AO$YeY6TF0(Py#`*w|v?0L9>;0tLK>s<dhz3h7
zOQ`-I4Ga9wT<?EjMU0AxX`%~oG>RxI8cY%*FfOmvKdv$#%KM3~O7oNz7NyMSFaW4=
zMG+rg9LE=q9}}>yEytcEwq+U*irbZP*;3p;Hksx=@I+M@-Iim2lxS6@r>LmdSWbU}
zW^IsE4&zWZx|IMUCbCo=nuBg0vRfQLaz7q_-C9`F5%VP)G|6D|dQo*wGl{n-E<z9m
zX(&bt7$}I$iSTJM#&_%!cqpo3e;*t?eS&(-l?wZigpgAig-*Gkw60A_fKK@w(7+ja
zCDnYgxJ@`Rcz-;j``{^+EGEO6yIW)aq2$Lx;(!LUgaWq=ST2(?hF1gWDMsY42?qL~
zrce}7A5F7JJV!&J=**e=Cebu2PJ11uu^M}biEUm}1%}h4PuIFkU6;^l58FKva8=b-
ziuOWU9ZM#=0<Q^Jemc6^TD#hIX`3Tb@cxUosQ)Ap|9h$H|JDOoDX02#^=E-6XiZm%
z;0z3{q6DHWyR!%-_z#1HjA5KPdp0dAi?2W&HVNAkOS}UZDB${s2l(+N7V*{_^k<Zp
zGl8Df0x2Ewk%HaHrNS--tXJhmf>}9-**1wp@$Dy6wCo05Y%pmCi5Y-^b8;-#$;b84
zLF{!~;&t7#56cEXyLho*NjEY(%b1v=?Rq9Wgqu~G>fmR*DL0H;0;|&sKIxCPgMx@{
zL!|6A%-ule304@OP`iOUsVCuF-BsYGHqnCduUoy5L)X;X1LGtJ=e9#=574H42B>uQ
zQ~KW90Rvdxr~Bx7Sv~fO<Qzp3T5O!{uie{54uqu#au!Lq^B=8i-}yep{P@(jVjhws
zZ_OX*qHl%z9FN9bxvGzYNm#M^{JSCk3s3IVoV8%#4BoYFyZxL<k%@t3({z;iMY?;)
z^KJs~=vTA*mC}aT&fnh|+5{zzFgu*-hbOS2b!Xzq8!I0xRg|&I#Ka9VYdhF5YiO#s
z)>^7+-O;zr9k`e5`fOofE#~=(S%Mb({HeM4RBK70OqmNlCU!zXSh0+^=d*t$#XTwH
z=Xc5~ZPCl;a9eo#Sgs*4fG$m=&mj7Q6I7fD&v~|6$<hqD`h_i^mpFs*2wO>s0_BR6
ziK28Uv;C(cNKMh~QLLwm5I0*oUsit9K@&snw{N%l`uae!AIf=W%?!1YEeZUQS=nL8
zi;<BOeFFp1m+Ih~m+`6?5xQKkF+WP28#-86SeV-02TPtV1JqJJ{s`8*qCXz8PF3ST
z0hSu`%gM2s6f%O=qzCo|;C7aV4jvn;B8AJq+S(dsXhgb%WMq=?ZrzbYlT-r7g$%yJ
zfT%M#pTYgYf`S=3P^dm<*@uRPN;9h}pkBkw&pGwPzWc9%{sQtoy_5@a%<LfJW5@{D
z|EF2~2@Dz+6FXOfvoj%M*rE!gLTHd+IB<Bm1WfN&8iU4{a)9dupkXBFt?w;LK>#ch
za0g{_=fFb2MF?XAO9mPpLQE7e8N&>cYH90_?R|45B7iq`gK%gtP%&Uw)om43hhYw>
zOA2sUqwq7BlBm+Nw-*4=XQzNsBw>|7Qy@nRJzCk`hcOn`q?FMm;EhGF?iL5i&a}Km
zHQw9dFb(`Q)?j_EgHBU!^Cb@!*6B>`!JnI>Zht3get(FU7Ut#x+KZFjcSB3nW*nv%
zXHt$2GMA)7sMt<28b6Lb#3SX3yLgWq1MR)^9b4$$W<WbDHO~C>Ne9tvs3O%u0W(HO
zxz0&~kAKvG4k-R7OVS{h&HyocD#LoD0PD4B<GfO{JyO6ENOQb$e5g<abGxcGw8?7!
zl;bBgmbafjxPN~toWH>7{Qxy)m4GRDS}ng_u!;gy;ZofDjEote70_nNS3q(Bcim65
zeCQG10asLtgWP0(u(L)LNdi9n%g<iDf)@`Cd>-QlI?!xjmV!Y(xJ_hkE!qbxbBrb)
zT);4zS4EF5wSfA_%0%k~`+|#!0`3pmWQ23#!G>zQNAI47VZxs5=#W&zSSy*04?dZ9
zsi~+FCr%8My$9>PnE*fFB!tb#p(_Rpwh_#gBXfWjQj#>;alpHSw>un&dMdCxhgxI)
z#oAR+cjR@^u=JZjEvyT|<%58ub;~kbhj*kJrc%EDfxU%ZWCFb9gp8?oNKArB<QXzK
zK&^1_G2g(XaImrv{9zWk1CVN+VYCIgC|Gdk!SIKsF=$gP+LT(K|Lq}b=s|fI+B8Oo
z_pNVoR!7?b(cNlfS{t%+l7Q()v#Ytav7SE3Fav`4$ITNn?pC4mkz77gfPK(@stCjm
z<cC<BSCXJgf5Sd)Nc}rh1}m>}@7`+<@bM!9O^&s@8In#@SB%`!qxv=S)!GdW+eOva
zzVa7_7CX&`7Q<%+G$Wr2P<+YI?Eq5;)YZG4MvfyI*JLLw(8|p@y153rJVuD5?%Xa=
z7P_!tGm2%lU8=?Su*vLu%^IM$T)7hEm(gGf-Pe@em)0_r%AUXr$+B5D_pUJkEv{@~
z+oyGK%|mv;kq7wZT#UAtPd)-ofgetg^}K|@U?7%Db+HKQhw%qwas#L;kfwQ5qni*z
zg?{oQORORP*dGtXtJHKb+M(tqzxRs=p~*xBL-lNT|NJbU4rW0*lxAZbxIGcB4`e<A
zxeT@0aCcKjqt@kG_M8U~6{tz&kZWymi{{|h@^<^WnEWrc$osk1z!4SAD)n@2wsjU9
z@z_oENywbY)bHIQixV(GVu2~9S2Tmm1_17#lcP@6cs~4OuX%-&+hV8=|6BRb_9cGD
zm`Dx<c3@mZh;_@Q!6NW$u+TJDGl!-i4pJZt5UheU$wfnwT3#+$U;vUi%uOdqyZt4M
zU~LU&@eS$<Lvra>V1e^Jwp~+qXW3V3*}IOE`q<x`#Jd<+4<vXnQ~*P_t;OL0P^MuX
zj0mi%XJP2v&f5-5mxuww#Ka`R9-tk}nT2b;yLRs(;Q|o<Kz8|EA$bDhv1!1XI`@a^
zzc*OhptVjyn$eC#F@#})v(mXI$H?!IfW#~TaSqb%T!Or|gEc!i`IpeG^hB}j$R{EM
zkuzF=U1#W%wRQvqS1xwn>%H{aBCZE4pNsQctqRNVkLd-P<ck`WC_&hYz$8Z?bGso~
zV6HLn9TG80miOJ8dZ8)b&=f|8NLdG~AqtUIdcSURA~P&76`PpwRv4u52qXxAgyTWB
z9ZXO?Ug#qQn(J@$u*)&`uCO%rhlvk(*r?#%iD9>vMne$a#9P_ZFg2wLbCEOby@8~3
zA7Mx5!IU-3W67V>e9P*d-_02PkCih7_G+sxQUF1@FJG?2Ax~-gDY@XIB8^YZux0;l
zQ#qr2k1bb}Imfog*5;#qP1|j^^wO5ezu?vBdkr%0EY0w5TL}3R*txP#Q7U`lu0V`~
z9z|q42n7W&k-x)u<#Z*kpycv5x|T58uce6YWY@15Z(s{f;%MW*z)*t_ys^%IG$0->
zE<E5@5#bArO8J{$2@*IubB>0jso#BeiFq5ez%H|iYER&FoGOgU!JM(SR5ob=`@(sX
zuAOx;R5Ye^>i!M~7%sq$2n1Smzw88?`&iEcT@+0$jI%98{v85-0zNBbUd^>jjuH8|
z3l)_U{=qNQ501B%dC!DPL=x<{Cnf8n2L|qI^M8xv{KW7%fL`tDN#%s}+cX=*#m0`z
z#+B#T_FRW66Q-_y5#X_mpvVcJRiP!M{cd27R$Jt-yUM;-A|tc@c&Dg0S|+!|aC9$V
zo`Ae^{oB55VTi9)%dn@bZ@04i_w{O@-S0bIz<cru2pqoquy)kXdgLa^c^tsOucV{|
zNw3?KrRysUcXkgB>UXn7ir9|%Gjd&jKIJ3{*iu?X#u@Ac6jW6BJHFRcm4D%I(1J4r
z(mb-UDQ4woqL=}1N8IRJ1;6N)mTO2@OgjyI5_pxFn@etKX$eN8KpK2lszQ^Rr!@F!
zw-NtL`w(?~_2!3^SJ&QYefspNes&EoSb|^~8JE-goVt#_{=2j^yjZm}E1sz1{IH9G
zSAaW55{fdn`B%5YJvVrVCCmsXyncPv&rbokn~(OR;@>(unTu8?YLvXaWkAy`^4&*Q
zV-A^7$T%6ahnc;kT!fE}yO@){o~8<c52>(e&n49_FlqpuZat^RA@5>4unU)$+L`uM
z$&Smd<04>+dT(zt_je7i=G)tbh9Im1RrB2~IlYIEP1fU?j&27N0m?e@8Zb(tmo8bn
z=8aXm{oujb8sGi6=WS;wDJY&@Y;W1pVdqXC7|;uEwoq2ySfAGfp9v3l`u$7SVMH&(
z89uXuwg;A?MNjt?OkSv~tH)+o(~|{dm6Y^~#y|pk0soA;);7O>*du!fP8$^&**!It
zdVcWNFFyF)v$M1B`N-rvR{cfQ-;py4c0*o>^i4`iI)5r6wg3mC+r01#FSG9mU4I_y
zn06N>Dl2POaTn$Y3F~#L#+hBCmKGM$8HG&l_ti7;Uv#LCxK&CtHZpQUxsK)Q;^M`8
z<El6!BBDo-(PslHYig2Vf5(e;H8l}#Zf!Bw<>n+}odNsx#0!~%;>8}*3p+FP(GiiX
zsc&`>@40hdR<>DIaFrU+eLos;W$6Y()#XHM!S!;FHEu8%K7a7~%=PpuoMwATA7)@+
z)I4!8gqq_KWGbMQ!<0!-ZN+xgD5hMB5A!B`;%=$;&l(bxYFic*Vd_#?ge_I-<5Q1`
zmnUi>=H{$=y<q|&R*euo(gKN!#Kgo~5-h;lki#d&eDNYUNqhDAdxZk^UeVe44L5zp
z9HC|#+K`R%jpNA-y_MH2wh!4k6fjM@>+@?nYnDy3&dS`h+DpGHSgAsOryYUzCNh^{
z%?yKr{t$)Lp<n*cMxrfB1T3bVBtc7Dg^ulw?Kd&Bi_2e0JTE{*PZG9Kk%w$F<jz?D
z_rI2xJBJGR$k5AUVUYE^QWTQp^9Y`x#O+4{mzN#dPqg81IOpHr&sO^#vnvNqPfx$W
zy*NXvk=e^+xjg=9y+1yOi<QdK%Zph#5a#C6K72S)d~vj(VOe%&O%jL=_@krSoUNVd
z^49UfBzy$W>c(&Fc7kw(>x4@vwO}j;e^a&R`nf{sr5op7gf?3Mk$Ugyx^T-SX9ANz
z2)}<+`kfs~5P_iuQ5T`+kcZu?kx55MNht}RaL}S}wgpurI+_YT-9lm3PLt$`jQg@#
zYcv}|1Oi29f{l)jwty`Tl|JaVUB8BJ@x@sviio|9UZr7Zh)FT+w#M#K=eyF<Q%Mqz
z*Pwl4W?``x3Kx#Q*zU2lcp8S2K#`}x2c*}s1<F_&yit)v?YXGqq9RN=1P2HI$>}Ws
zN^yE;ZT3V*15-&$gotoyC>vyC5JzAx`uvw2Ha50$*x?%bY)qDZ#1dvLOqO{hJ10dg
zBSrKG$NW!QMiy~T5q)E_jAX$3msiX2F2lQ2R>^rMTR7QY+nqu_1?swrhH`<T+0*|8
D!{fej

diff --git a/reference/Rplot009.png b/reference/Rplot009.png
index 450725b053884c6959fc878ba3c71cfb7d82c700..2095e86f5ac06ca653e95ed67738eaecd699b485 100644
GIT binary patch
literal 8480
zcmeHNc{r5o-+v}WNwg>>QHT&uA;vPKMT5vLYbVMw2{G2j(n%@@QF5|x8QW0V2Sarj
zOJ?koWl)x(!C0D+8OwW5=Xd?y>-R3#`_Fq_@A>0(&GS6hnCH3YzQ6Z(`FuX#d2-Ff
zU=P12KLkO0kXJ66LlA77d+g)||H1STlE8)crjfx#a0P#B7wW>nWtY#D>wXZldq4Mp
z^-#msA?P@Sym;O+C~ck^>SM{=*jl0t&MCR7@3pSAow9D0Y<>LeolA;}whEffA99W-
zEnyE<Dppz%owDL^1DR)eRIIU9c6MfYJ6`j@U+#V1VVho-!&GQ@?D*Y6Nq_Hwk0(#G
zEo6{ag~A8D^*_ioAxBd?SI&GiX3Z_Y8Gi5DRNMlQ+O)I-5Hw?Xf(`?hxShX%neX(8
ztYr<Mn5<!M`*;}S&I4P3UhXr-_I|yEfm*|VrNj8URmj>dI@_S*WM5tZC?c|+e{rZ1
zh5iyHA}=0~YJVYDR8Y|BWaI2y2KSqGZ;F7idy)xx&RcAX;cN3jy6n}Iyyh4Y)VIDu
zc{#c6hr13`c#k0(zV{f3s(HRJflmo<ECe>9sv3-Cat*|TFS=y}=kI^=Fl>E7qBuW)
zI?v6EE&M$X`TYBjiFo?A;xcO_^2xcoBSD|gn=6@Hec+Q6#bO-J%GdX;Ckk~E88{k@
z&FL-xFOtrxgQ7D5EIZdAet?v&Rh~?z(+|d8PHJ-<LJQoRmxacqYqWhA$InyB-At=P
zSMSm|gyF{UMti)!2aDbIT(&NAeNuLzH9@L0Kfi_Q-+Og|O)n!m>H2=XXk%?XjoA2Z
zk!*sc)(5XRNGA9Q>8`&)xx4%D35olEe6+_e^_*AxC@ordJ-cqcYIx+!$7n~*^ne%<
z<$z>|du>RvCi<J@>VUoXEt)9ee$8;XTl@+}mlk4C_#&qHX6d_kXY1}XKRvk6a@6~d
z?{Le!lYjT6yHq?HcXt?0yBsGr%Qb+jGNr#Cj#NrFsSXwx8Zw2No^+%_5{UbsnG4k6
zV;VkL&1mj?5*@Byy&5n`%M4$Tt{ob(qm77U+t&qnvDl7v0kt_flF4nZ?>ZLh7>HG1
zXt!$Fw*LNpwc!B|Y&v(Dy$3S-YhS{gYVX}5G1b)ENMfs4-3__Wwe=NpAfsV*^o;jb
zyFyt_-2%S2-%Bf5tI6xwZ&j=Vkk8lUX}Oso?NT&-U>0~8WwPyg<&F2-tgNh%iA6<4
z!tum|G0pF)8NJwe=|VhSv#!K@j4&84mGC%Zbpdy6COq)Wp%}Sz6Qe`~XHEraUgp&B
z&UE&2u9=mkrE7JlWO>!?#qsy^Is*8$=~U+UZ$j;GELf5UIYUQYL7~HGYm>u3El;+|
zD=J#4iuO+>JC`2Q3aAL(xLS!8hzrz(LG#Hrj0fWIdwCf_Uw0vU>KKG#uvMrr0>)5!
ze^FtfnWJNR2y0Fbsp&HwAzfHe@%>>{(iLe-OUt~J6wynP2~D@XMAt88&?-Y4+|to6
zpT@*6zeG!TPPHeo`^&<T8p1J{1|`Cen>go2C$~&Y)rT){oWj;_Z7juyYfrPmJ5f>5
zcgd*)!f=L*k2Yr)<lb1nri6DP3gVm^G>^u(s}_MBTO*W>HiV+S{`myIIvSc}_`0vF
zE34Lz<~da1(Mft5Z@?IBKvU6_*^JPIHp2Va@%O)lj7Rbft%q0C-rn<p8aReqTcM#g
z*Vph1c>24J-q{N9y_R-%MLrrO8=O_t!bmNgq6S=B@%p=q1V%A|-~_(Nn}x56J8!^{
zh5X%u4}d}Wic3pPKtx%ChznztXU=x2k6CK0HzV0aR>hVe4Qy_3=oP&t79dbxDmjLj
z4?ENcy(MW(2*e&yx!l~`jAwr<Mo%T#R0X#T4V1`oQ%J~io2=UHPluUwigKN{cs%`;
zTShmfaTDD<;oF&_W~5H_w;-XZeq@~?0;UcaSS?`A)-ho4R%a<0Eua~q3(L}4aj?gR
zf;8(B><99cUZ8%2y_vJKGI_;rL*09{zTQzC%A$|UxkHeE4>ys)w*AW~vYs8wUoRm5
zU2~6PcBC)MG(`&@GY31zJnZNMobH9;YfBp&Hy!?E%TvPUk_p#t-FnSD)#|bo<Up#O
zD=Tb%0)iH|Ipmu0fEQ|lVE-E@y&JI7(o*ZQulgz}PQ?cmtX1nu>+2m<Zhz`ZJZUtU
zw%hYL1o>Z&+)-niiLk5mOv(sjdmKaD*WeHd3JMC9;ag#f_EpAjZH=`87X<#g`AeLw
zN4&U>aO~xi$httrz>lSggZxpdcSkh5hO4e#cqEV@4Pvt}Cr3Z=1#of)hmm~~{tDUG
zu3Wlwi9cFv(jsQtUVhAypL+bh$^HCMlW7ya`ypUtNAZ~iD%c$0TS}Of)G<r2{nBco
z?Sm`zx0A;(tByLX&n}61S_?H7#(uP@Z%aKn&tcDpdhe(rlzyFY8F3U)n#H9Wq`B!_
zPW}>{5yJd-ONV#ac0$NA;mV&uiKXP#4eR7krE$gp3Er^yVK;j@xv?Zc%HUf$8PS`f
zhVuWoN4)?T=hm%TqMH8hF`Q$X{#TexW@KkV03m;aVibuJTANQB-PL&%lMVJ%|K~2Y
z5{$Q3$cV>xz_B32=w|qO+tc~Brw48Z-zbBHfA2OhlzE<lz~Di}Dfso{BV;0*HD8>V
zxc_P<!V#Eh5Ss~uW=Pv~c@So4unAWm-jT30Sgwu+kDy6(CX5G)U`aJW(Bb3%fBGM6
zu+v_s>y(&a$4Y(EK=QImByRT_c}1H!H`p8UyVCm=?KqJkVZrDruD3;8D`5Ij>v#Fc
zJU6>=;ld5NR1-DEPpOM&dSZ8!zL;`F;h83F6B8#hGqd836`3Xye2pM6!|rO>zV>5Q
zP{XOU87}f;b!y?8t<G1q8z3F*{r}VdV1w<4#^;Bt6<!&8w)}p?j&MJ?oZjBiq2|&e
zz^xUe+N^WCAid;+wh?3m=MK)U(y-&DqJ@=J5@KuJ4`~iEC5tgucB|v1+@Tl`8Y%s}
z*M2BMNkQy8|Ap*lhDJsJ*~%k_8bYgE;w8$ioyzl_Xz>`X@)AAk`dE6lEBgY#35n7N
zMMM<#KiPgRn!#5k@4pYEqX8-ZUD;hCx`BT6&tho7%i8foB&1D7p@Xwv0i@X|5vOZs
zUwsNoP{;h0g`C4T&^pVlQi*w7r266EuE@^Bzg$gOOwcWS=EATxc_Qcpw#EHouGs_<
zPcY7Bitjiy4v^_oM=}?|K5f1^IK{&!*as4h>YdNOG%yG3f1(U^j~?l(DXK{GmGUpg
z^NwMgs7TFp!S72Jt@_!|z^sY8;h>bkX_of(C>_IOk(g#X%p>(TlnCAR#S1vwxB4n>
zBukLzL4`kw#Bf+vAbaMUW|o4L&-Ic)l6TAKcwT){;vYE;r#yfEDyJ-Yo4v&HFudVF
ziaJ}Leg^-rMP<Cb-H>kfjL6MErw^f6pM0b?C4M6PzwhZD?`JrL%a^)vlLCtXZ8Q5U
zOlQG0T}=prsQM(x`}3RgPcG^okTLF34qr3E0JxB@CIUe_6w~PK03H>W;tg#a(MgES
zA1>4oI?fQ=i)RoxssVGKNh$jv<ETxB>FbYtIO2>YIztx8kFHLZG%`)lUClNbv?M`B
z&h>)p@A)KVvZD!yX8?Zc?oe(l;j)(QoJ+?L$01ukzTzo#ITTnvw^^2RuKe&HY4#!O
zOGGY`#V|t0dLQiA?LXv!MJ6iMPVSG=KLM~s)2{X-<6#?YkKX*NPcKS#z6{O4evB3h
zoB`QJ_+6U!ho5EY$K8<{vqXS`weHG85WfQna`t(@W8MzX%Q#aKWFVPvsPXrYoGr%h
zJP;(S<QCD$#CgyDCWL5p8m;n5C2Y)l2mZJQM#O^=*&B@TvfWBGdKUS{W~YRE+LIKR
zBrS&jz#VWyNg7NX1Qct5S`0uz>ncWvJ(CM6I%De!47ye@RN|o_HZaqjtL1VCg7C3v
zWiW3l-U^gcc_k%4x{xdh2-1MV$q`uKmyKH+4AC<;FS>Q|Kzh~BRs?GBcssB<M#*)+
zEzjNK{UH?o<2PW*+Cy6+hao5}EzR^iISp=6Sy`FbH)mshPF2-^&Js+kCJk0vSU6h(
z2hUmGL+nt*EUiWeiD`5lDF+VW1ssAkKdk22cZxaND_eJ`E9?9*gfIj}0aLh<GjKM}
zn94zVBZoClU(AM}Q~q$C`ny!kJ%@ie9y$oe=H%oEO7KGw`pGIy6U2BMP_tRfkM<mW
zVJxF{{}eE|BPsB_vO~?aHdpgPOT+Tpoju?Biz~slky7?R5f747nttQm(}OB&$OlF{
zm2QIi@*(Q!<=k|&qrm$V+#>h{4rf`)_umZe#lD6?O-mg|#-BcYI!7chP=LD~W66{N
zZpEDGmU_dCS~tEy*WX;xR_2zf747&5beegFo6a^(q``f!hx)iis=Ql7gNzU!Jkt5c
znG4v=Fg!>C;xj%yB8)dA*9S4TA3=c%=XJyQub&eB8U!PD?Q=f*#fM(ld1O2n@S%d5
z8jWX>anl?^&#eCqdWVMY8+0~m=Q2n`qT!;npvp{Ing-tj;=$&S#y}|c9&gZ}kM|9p
zKl|!;^THR_CARyxzUglOObDEIS{>2ip$hgK0go~C0Wjw<e0S;<X}b;YE3twS2(ce}
z;9fpB&pJ(a>-xci2ifn1!j2=kNFES6Rln&^CPxH;;eiDMM|`6}BqnS$HmZ-^FK4eZ
zOe0{B1`@t?_+ue9qev%|<*IB0rVp6kKQ@<kWU=S95wo%kbCsJJfiHu%mA5-n{<$r*
z^uP=-Xg1fE;aCo%G1J+Z57L7G-?^M{<)@4QDvOqjIB@1Dt}~Aj9CI(nnr9*~?>cz*
zi1vNC0Nj2C*nl-R7{ctgIr!w_yAI%Mlz)BzxVGpoH}qKV{7OG=ik$$d2uXtCC3Ky*
z$gkt*xjUe|%>Bdb#vWGse9=Go9QoQ@j>}kzZOR7NOu8289B?vg60}8k-ue%2L|m_X
z1VLFF!09oZ`Ra}p?Q|esh^pKcSlR&{KMpM0bwOx$7MuB!!TDz<4Bz66Q9iv=0lS^&
zu9~vJ2SFw#BuWIz(^C^A2-ccpO^yJmZ()vTUwwDJ;#Uw>N_Kk|L4tZGkr}?ZmVQnE
zEaVb+1P195HKtKbe1c-vP6;P6ID_#=nZWxk9`Qg~*D6KFVLZGuX?~;xX)Z0}_~tf*
zt_G~Tf|z|{%~Ow}l#((4z`YyA9qAXnzxipeZNyPgQ4sb?#xhf!u>TIf<aQTW<Lq8{
zDAkn=E`w4!Ki25X#WJT4^#TFuw;^c=a<tZ%IrvDwGnD`Yqgdb#fE!J;#P(Ks4Xe7g
z?nU+hQetUgA%$GlE^Ee^KBD>MQ>g%Y%DKi8pG=^|w8<gc{ByDz&(*tVhiwyD>`p;U
z%>_G^cL0m_udl6~L^iH<di$?UCG%BLUu5pO<JcPh#mDx^#SZ`pe*{RF;#<JdUXsGB
z?&XiN6kViT)=a;P4vyvv8gGiUE598J(p!G@XowL=-GlUe<5xLy7Wr2a1&?XwwYRr7
zRiy@m4Xf+Fzk=<JMEp!7fXt2u9pfXfHp6{Z$2no+&PM@bOt_NQysSqqf8Lhobbsm6
z)pSiOiSYHe(uE+9xI*6d*<KI^Nf`DKC}QDsm&&+Rv2`VWJq1<TtwwP;Fqsb=uO~<Z
z)G^+_l*Yd={`i~B@52C(s=U0sxvJ=%JD7~WHa>&4gAF_<gXUWwXEC%=VxT9>&qhfJ
zdu}+WdvBXddk%OHGduK)-zWmyy2<1fP6VD6S4pVf^@hO#0&FCJit9}SQR}p{-CQ{O
zAM3#5i;_4c+W!F!dWhqLP6xm8j9T}kpV3SL@ExUVVfHPHc`BVGwEBGI>wpWCxbqi$
ztq(O^!ER-%ggE2B$I9H4enOxxd9=VkzMFeP5Wgq{9oP;K2G8I9l)is_dHEi<t{c5P
zo#0oh!sSd(^hF3L$(~!A8+KK9Ufq2AN5I0!V0Y?v=r|)vD}?92QD|QGdZ?+Yy6UpD
zmEX*V@ZWWu5jB}yIxy)X=*W}lSMj=BT<Vzkc)lq-G=nm?yh7G3<CD05Ezy5#W0ekM
zT7f%tM`)_3KWCZ-qSpr+HS#S?b(l2_nn-e+@<KQ4zzGTF944+_oVcY?XtXI&`v@=i
z$Ii7Dg}7qcuKUVuCzA{-35t~W%I#sSK{sy7xm)vvHz_%}xTM7RLbPC#G|(!IWu%Zr
zIGoP(GxtWPh7h?V!@|-y??dj6|4BWA_YVx%#rI4#-#pWN^X;Jyt#!3=0)|tRmv^xj
zYx)zi&AQFTcy9+~9lWyldbjdI{u0N+ct@Q6U856sYjWQW4k1#+Z!Q5q;DhWWoBlVX
zm)6uqJ_ien+((ai0mZ5ZGEvmWUoYjF0hWcmKSlw9Xg}6eg3Gz$#Nd+Tl|Il*;0j3@
zI-x~1H8su4^}Bv~a3*lU!4Uv^uJ(yDIG@4(-fIdf5pz1#+b;frHf!;tkb-EeCx9XY
zxx%M^N{D)&L!j;S54)B7o}IW*Levvi066^Ys|s<R;D!1Xl7)t`q~?Cp^E}Xv2yE8R
z3cUNG%=2!kc<mg3-sAvR2MYFp)Cp578ykAFh%@)WB7o8X(zU>v^pDi~p=Y{I&=dF%
znJ$Vv#@SbUexK=P&zgqIlUGWJ=QCC?V<Foo-(D}jJ*zdg7B?Ek@xm;==Mz=Go5sAd
z<B7`nHs6*bZZkmr?E^q(?a9F=<n;>o1a86MvgNtYZwDrXPj7QL{<FseP@)asv|NeZ
zYm7h*k%k=maMhzlAS5u%VrMHfx{|4}BL)(A2Iw4+-|0^kO1oYv+LsVvU6+D0WXUV4
zUPG$D$L!-R-URKb(JKLB`s!GCqqIj~ff>75IqX;MeG#RlfD-`nS5#JJ14PaeqMXLM
zF2J+`i^2fO{!1ZxMttz2js!?$eLqjD?)JkwPNtg_S5#PruXQ-b(ZiO4>IbI|#9DW~
zHF|9>+kkVyO_Y?AdLnuFhSZ4NMB;~~PhCS^Yv;GGJ%Vzx>X%xM;=!R7zPUcZz8&hH
z2b7PM1MH*>*^tHqzVC*?oaPB$r4rjUJAOW>wc^K9!3Vp1{`#96k<*`E<vuwe>q#HL
zb(Y3l&SevIH?zSvd4iP<)d!bL&jJ!>DW7DnA!e;An#ACAl3s%T78j^+?*iKf8gj|v
znD1r)sF?zi>>hAv@OxNYz<dwrwj2Z<me|Wo&<1g%td97RJphFYnSSL4#7&9W9wTKd
zZr`9ovAW`iRSuAEN=$S&{DD%RKZsDH4m{o`1(agY?eGT(wKzNbOHDj=Ni36E7f7!g
z+bA_OH1r?5l{`DPwHa8>RHZh$tA>2SXt1ji?HmJ9Dq^U{c=T{Sk#0*|w<SU|dj(JJ
zO-f2y$ca(9M}k*-^vbA*vgU46jP7+LD+j(ZZoz;_Er2<8IsrN`d4G)T6i1vG>_{AW
zdQibZ=DBZK{qj>FvoFM|kNSYyf%x?22CKT!%eT>Aa~|*t#wcc$dYkU$Fa|Q(6yP;r
z^A>=ZfF7>)=8muEi0?c3yzO?iBk)usZ12KEylw#KeFPR-7B&AK+cR5X53;a*g}YfX
zr>74zI~>tyrmsXM7@bS(tAU^nT7<;~1wOPizqk(9vx=-T9Cy971DNl$Q<SjkfZ>*j
zXY@a4n!I{lJAdJC$&E*Rvo3R*2RM2aqaL()!^XxYxxvZ2+`GLYgxT&C2b6&Uw131=
zUBtb~$49k;d{_a%CcYF0zpF7EuaTN=YS2V1jwB~{G;Pn(b2X{n1bApVgQFxKufE%I
zf=Gg|=1Od|dJVpN-TZs_2HlxjOUs~3COlS<m%mp%a?c1X#1aL&OI{iTp7eZDGT{m<
zQyL`I{+nAvL(#e3sVJ&Jc-+1DKvcDtwqR{saH$KlJr<i~wl~c$1jIYYQow!sa}9*%
zM`|qqM)eA)%P)gH`Z&LJwIp_RMcee`$&-Uq+1CpCb?0em7N`8@l*{rdl>u6mNhUpC
z1yrD~mGgi)e0xh2@5Q6(+!j%1s=C7SwhEUrJ5Tabo9kKpCY#>h)%9!x3?P}HF^!lS
ziq5b0BIA#ye+r{%PRp_n!{S6hxO@hSP{Pkh-U7@^eIZ>d@LMFGxI1M7@c-hJl$56F
zBcP8rP;$L@TB7;znVS!R0s)`@{PqF~j&rCrPj(6^<Qm{yIA?flGOc%kTF0C#Cx26L
zUNbC5_faUtH8r-NLj`bCin_Pc4NiB#?9vf1j8o8;9iYh>Iv<v6Z_nvEMZw2!icJkM
z95Tr)F~2O8y*Gp(62(J}tEmC@<+p%hU@o83Bb#}@XL>^-?8mQrj%ij5rUsZ?))3?U
zRk9d@pbGA90S2@f^|_#fS7Z<`-Z}cP-%@&iH@&Q}^p%R6{GpiHHCiSGu-;Uvj4*$p
zb7L6(>r(~LHdn6P*$gyMZU-#s<;x;aaz&i)FCod{75PMLLBSP9;}$_YWab1Yr=Uu4
zg%H}t@K7`$#gl)~5p2H~s75~wV%YCfB&kWl1?tMS3mp=J+(51T<9HLKDeTs$NB^%7
b@g|?%E^P53Pj)1jKZLwwa<NqZ#)E$Y0{?1v

literal 8540
zcmeHtXH-+`+U*KeQQ^o|QK|(Hk+KDmVrUx>B2@wD;6~}vK?p5~8x>Iz5ZFLy0#XAC
z(n7T$O*#STNDI9Rp>v;j&i(P7d%khb`El+YcZ`pbtdO!+)_ULh%y-WDBt%C`^#~I?
z6M`T|Flx#-5d<|ty&qtJSNyxGqTqqSQe9OU9^r3OsT>Cn2VK;R+!5puEA@`*7!24!
zkkbf8Sy9g$KR@W}qPMoYzuY6;JIGsp<_v3%V95=kpl2uTXM@FR)kBMm-)5>=?U0_v
zoNy%EF;S`OcINWDHc7TJPOtS*H2zDrsZi>e<Gln?w%G%2J!0~>iL-2%E}60x^fr+x
zkE`b-AG|&25<#(E_51p3WaT)XBHcS4>wdq`yG8mug0!Xk&7u%wD&)YgaOMYG9+XYS
zIlQ+g3C><ZkonU!2{mFtS$fye1Qujd^scPJ8RNINAFLff0?~Cxse7yl*5p_35nHY<
zqH8TLY2u}BlzT0<3`MK)dQb+va&Y^5Ta5-)uZMRgC9m^G_V(wOjxxz^&lSd9wu@+N
zZ1iYXVY6#Zl=T^VE_vB)TrI()1LHIIuFjYsnxHisaz3%mE+gShW8?KfpIJh7e!l#7
zBa_6Ss?nzxe|!~hooc+8uV-Ww+f6X>>ayA!<JoUJZeZFzLwxjzAu2jLJ0(Ri!lRDM
zOMo>5Zd191Egd_XtL`n*_FV#w{l&t*(&1{<_Y$<cY<b4}w2+#EE?CR`z1_UDw9oV3
z-hHwXJ5}PfXfElsFfcd&3%`bo{C02aK#J01Q-A-;^6!s020VMrVk-T2HkR{<#6JJ^
zUK^39>t&C50>0_rx<#zx!3{`ANR;hvQ_5i{;@WJFjXe3h{ANh`d~yH4hlh-2f>Ca*
za@)Ba;?`dew#wLb@RnHCKAkiD^yrBDRj&n)SPg!%TVz98=(W_mH*ffT2R{ZM8eHqK
zz<u_Q@A3UW&sG|B(V)1@iHzsCWckN-D{e2ca^TyyDc&+YLDGVpt@BkBQYY$6<F_=T
zXkc!>us+}K_1STovgj27m*Brn6s_9$h;ch|<VZ`Is1jvsHs8j1xXQo$qM)GLw1<rE
zAa1t@S7wul<u8}R<h^_MjzrXw+q_HZwMpWl<hF2~8c_*7F=1-1?ltURvfY`q_o~vb
zMVeg7BDXP;Nx{t$N(K_VhI%K72~Auh>+6cX{Ra`L0IWNc%!yFDiN+}6?s~t(?;q)!
z@zT0QMMV*5eSOA&BbC(lxm{n%f-ojKC#T8WKwm#<SBjH4r=r5NYF|G7<nwD$*VB11
zNw~c--YkQB^IlzIxSBE*d3h9XYsaQ!#fLIP4i5m;Ov+>K2zRai66c<lgsb{yW(k%4
z&2bWOzy2O1C@6R=MEOU;qMxcsiPQYjiiy2559jQC8bn4U-<)37^78>%%7A-B8f6$~
z0Ta@hDC-Mo%i7xVk+^atJ1tE);=S{*9OkBqO06p)r=S4-Q2~q^z?t6bj{e|0i8X&5
z<GVGTk@Nn&9*_Tz@DswuX}$|(=eIXQlz(G0_fEN$Z%z<zky1+0QFE@^e6zPvC(rGP
zg=d<Yn!QcJNyGE?a#GRrbcl!P(9W?zqGwLDh*{io6<*dGN=gsKVxKiOHAw{Qcn{+C
zccHxO?d?0Bof7w0BN>#)2+Ez9n3y20_c?eD`%|neM&9H017tTw9?tJ^Ip!HXbXlyV
z%!I3Qx1S3`zjny4yyELG7<E%uH<CIoOu_E~_sxG^I!7+}62_A+?LH|G*&q<EHnq3C
z*gDibBsVoTPZyXd<V=IMZ95I)Vc(T`Lr_?lB#PTq7q+M}O=*i^oDO9Zy>&KRr#fKQ
zW2NDIPHwJ-JGn(R#ZwL#KxVB=SHkCqEfneu)N$8DjK$ExQ3v0`#LSRi&d+R;lX|Aw
zQ%NPx!*grz3^fj&5NeaG-qfVBO#Bs1$pIIo7OO#kU0;D!=yi2<&%I6ZY=^q2qo;44
ze_Jo$Og5I>cXfakK^`>4pSz79KCCnYkCe}zX<hBxp)7r3A<q|}kU_?bWEApi%}+A>
zD+m50!k^qW!*$$S_9T+r#yQ`du)<%%$jqs8HvBDjYX2-LCnlmHjh%yopsJX-;%^ZZ
z6_uTp^^Th!D|8~XK|01i-k7u6_Hy53KfgN@JA%;Co%|1M&dj1@)CD8k_xEfGYbVV_
zIGHcPEG1}}gmt7dC^ud9tUuL#2T^!@{9fP$CdYo=Q2T+1n{`2h4;>=Kj}Kx%Y7o>v
z-6-5f<>ln)qPcq{dQ4M;53v;!9UCI};>4_;PJWF&M>f^Tp+l1UnS^R8eJS0ewV`XH
zp`tS*A0EPhg!7WRx@;GRD&r)b6JNJy7CZKz=n_OBQ^hh91cA`d(BmP>yqK%^=h{kL
z$Hup-zP#YdX^xk4SQ_~dkv7p3<M1JfJ|ZnkHzS)!lzDq9A~tc&yk6Gq#*J`5KA~>v
z1iCenjGYr5*VEJE#V`dkQMf`0^hBGId%dr(E>`FcZ*`aG-MYn(A!teaCicv%)I6YF
z8(a)9i0CSDw%}t8sj)s&Bdg9IdGN=wZaunHSBldbcP3+W)Dko5${Oe*H88pMfMMgA
zcuQMHy87BoPQLx>WHUQ(EyLlH$yQC#c2jLB#_udua#9BrA2QgrB`Zdx(K0gAZ3SzU
zY20r5ZO^@B`Qht_e#17n6tfhaCv_NwxK@5nk+<YP`Mr%hwPUWDiD;wQZbD~UiV`12
zUteGF;>FJKhDd!AlX%(P!-#_RWEmQ3<YvQ(ve+GVrYlB|mxwoATwBUq&4ugt8#b`A
zvRV(0P%yE4_b1-n-q!XlcX~gp7f-LHs+zVAqiB)afyn=C{@XD)4XUQlMJiWEpwu-Y
z)`L1{tNs@648Qt3bNaA~#wOP7{igNZ#jqnLj17Ns*m>Jf(wPRY!5^i@OJic*Xhmak
zV#R_#@&+h^wUdKEi`#-CB2)|+3h|Ti?Ck8hs?+PQ+il}}{)0U5A0e0j2M2vX@7)wF
z{IqWDC%LpH4bK$wsYly3zPb=6Zu0`~u1H`-0-Y|tMUq^<oHDNPemB`1p8=A=f4P<|
zA}ubCeSWaq018z1GCK*VCdil%K?ZLLOwn&u<v)GOq_3x^7IA;>TZ-%0mj;UebFQnm
z;w7ECfvWg0&XsG?i2+-7m<~e8Q1+!eU+Au=ibXQtGpff?m-XD-_dxqg=&;>jyx)G)
zSRqiv7=~EwL7eBNXTMFxoBOZn*N!dEvE@%(uxVX2Hj^Xc-938Dyf6`4YqJ>-8Ce*v
z96~J^iN$Iphb8?sxm^YF_nSq17F9=defwsM#!%Qol=~{=-Xa;DcFjrh7Loj#H!rg{
zo6Fy>L4-|;HIyDRlb#;Gs7DnsgzW6=Ko&pA29{+yi5E9Te)(4Lav$#wLZJJO$D!tG
z&cf=K>b$Jqw*^mscPVY2rS)arNDY(g01YYOIim;MGv8OF-VqZn{O?mvI%thtRYmU5
zT1&T<tdx`wKChfa*`F87hz~rgrv0aD%D=Ge{97MUXhE)$iT2E}%D=*+xPhO|y}#3Q
z$#`VuOrnrv)%sH-MGigLpwZaOJi-@<vm*YW%giL$5QJXXCh%PNldApQMF&#0K5-)2
z#ACHt(g8HRagn{gK{F$wplDA~F>H}07!_Wt-ko>m!+^I*8uDA!9Q0dlPLSh7kYK@A
zvtK|bUlX@!>0-fcC{Y#d`6RyrUc0Y<UIKwoXw$k7aR!A5T$ZLCfVGEUQEd*hLRw2C
zPXhoGWI!JT3z08Ool$zkd34xwwi^>+`Oc86NslNzXgW3G-YQ$7)Pq6-??j5%e0SM+
zB008%&evt6L6XncZ*ng2#hAWkk>AlFkw_6~u!PR`5AWTNIn01;e)Roejy)nf>nZwt
zfB$yVqTS*XL-Ulct+*b(oW@fl!~1&_8PK^BuA|DERr#Rjrz<H#vk@PV)6R24B3uK`
zvMMn%zxVF)JkBQG)0d`2doSIl0*6D=Nsm9WJyKgPOGkj5fgpj*wk2;syry1zKJ(NF
zOywoFssj$4Z#1*>@^0DLWdYy|_7S8eqybBZ#;)9jk;HW_eg9N$&kghT2VS+t)6<jv
z$~{AaW*S5xEL^+>xABSR$4ZkZ&vHo(f{c6~N7Ks!awRTbR=b%~l6KGDer6yGK?Gc+
zX-zFGhV{W@x21Ya?b8my2pfF;+fhu4@3q&5pCf@knDd0idG1FF?BfAf;=kol2@Zsi
zxIb8Eqn*J5W1RwH4W23+oNI4Wi}dm1$33@n5abvUU?u5<w|8(TjOocU%kf4JO)H@g
zohi2}CZFzHBOom(ytpflaUjvNNjU~yq<gSiF6<`dl01YZb2$!_-T*6IXx)61mvuV3
z7tX;DuuzS|@kKVA%X7vWgHGfu$D@WSeZAJlH2A4nYvrsEg3!DauSq0Z$%_aIcD%Zv
z>(O{2!**r7AwiCcncP9IkM?$yg+Wl?^SOT=c5W04kDMudS;Q-?j3^EMBA4$UMNS<?
z0)LAZubJ)1clIaiw3O4rj5QkR1sy^Z$n{3wV0y0XAI|CpTT09Ec@@36cS)8n!54dq
z?OQ>cEZyeDg}cq$A-kT3jVn$c4;GzTJhCVdmV`$IKqVFVQk(|enuH_L$VoW!c3VB&
z46P#`QqxTaMvR;MJm&mdRBl4Ij%ixT)UTq~doI}*a3f}4R?)$<dqYxr$o?o>bsPBj
zLfp15*tTqo>VO2+5k0|l<+DczR!sTdTAkUKCR2G*_FBovcGc^4f$iCo-Yp?_MiNuR
z1EQ5v+ppxeV)26++C1|EW#YbA7?JGkY$gv-@;<KtTi`rMl2yw`G!ta>s}>y=2Fi?!
z?-?01Gaw2dpbQFI<xIc^lD<6Wn80_^vY?YkM@RGGjv#?Sq=n&A!JmFlxZh`&otZiH
z6bsNk>L$lnVbyfvIj8hZki9MDk}e}PT0BfJ#4+MEof+Ca{m#_{7b$$D6T}+{a>rn%
zL~H^L@=UY#cDHRruaY+w51^0(KwM!Ql3L(>dz&13^7PT%i+@9>#UBz5-9kXpe32Nc
z<57<hA<d9-%I&Wp2-B?=WPjFTzXLRG>T?cB!KmwYfWZoXE(oLQu}oX*{mwCDtPI#J
zs>K?G8CGy(*l1VfA%%)oWokU4=rbUv)ud^6ATu$9xoY0iR%!lgZEkY9Kr&#^jDiyE
zm^``!WDvjW4OMJ*<uHQCs>GubrQNO9#~?<@XnF+XngR3!gFMBl>d)*A;Q^2x#1`AG
zh31t$o((Qg1ld=9!aM;x85@yS<-ct$?^FyI+mZx`r0KQ}1dlgF`dPb6)FUzcoe%r}
z=PAu07ckJH%cXFGg+8Z0TFB`21>HBcEqH0S7W$&=2tp*(&~Sz*zxQ6YH1nBGC*<X4
zWwk@aOE?dqRZ?$IW2sDi8l=rJILJJCvBYWX1=rQfP6JXv&F}8i{d6B_@3*|uQ3mGi
zcfw@(F+_5r?~5mt5H;(L2f~LoMUOFMX(!2n0^mp_zpH+sn6Mb??j`$haXb6)hVQwk
z>qS`q5tN*1lWt2Qxrpf3z!x*+V6h#SCK{GJJ2OLLA_^kqW|rRn7AZ|ly%u$W87)39
zH28nnpj^XXLOy<9I@;sq6Ug{qEKo2+HH9T$&*6sYctFeeiYkzuzgYEE|H5=#rdiaC
ztDW<gb%Q!=OG6<yjT!&c;`7v98n&sN<gw*abKiLh&A7{$B)^pq-YgI|;A-N~*a9lw
zW+Z`OY@m^)F|Y7;jqkDWB<T}pvU7q=kAu2n$1wtmP&EIu`A1{$;N=?93?5P7*npG>
zRn1Ou2l?$B6C2)Np*X=@SfN{e=sZ%At0gN^(E%%ySKC%A=2#w`-f;VgrKvjYGpnF^
zJ)enn(<ZCa?^cFWP+A$CApV%{VK3B`XlRe(4^gc%)!=fSYn66AJm5~ZTj~1#oP7ZO
z|8*JoZ)wKA`>;a24^ngU#>#$nrd=q6DUGY>^qYK7Ic4t3UXM{fo<z`?x(lH=hVG;+
ze)tFOSRSs~=b1>1j6g8q@vkoruAQ%`=lEA6mB0Jyf9t7244wCXiC+wI!4y?=Powhw
zo=FIW1_u#^p+lbQO#hAR0f|738pC8;58bOw3^F-Ed_0ETq1*gZiBi+UIX|6Ur<TE3
z`Zq@tFcD?&qfLng6T$60f-(!(oOnQxoX5X8!gKuF%FE%csB5GQ?W8+<6&iL$V(GOB
zzaCw=f!T~*c^bCs+HrE<!cFrz^|j{)?79uEJ3<Y7u^PpdB0UY-jR6qe!D<{E@FSJS
z4lWJ^WB1E5O1zj@jcd~$#t~g@Z7yAB+FdJs)^3W$>fJdfFVuErn4%A9ESSF88!zkr
zQTQ=D-HL+fI16IO$n)B_9336ke-!?hU<m@Z?;<5MOs4Ne0uxg^!ve3)KrVEhmlask
zmlKsL3-@zUG|Vr0sj;9G>p#!P{)HJ-7}~+rtgWp<?G%8Obg;G65jX})keV3^MmE?&
z+hJy~ykt$F{?21&t_U(#@WO?65anFFaN&lX-Sp8OvS#2>NO!HL2HaaoK>v2KOe<YB
zN&auV(RmP+nS=$Q*Ehz(F0zK$ZvB|<PCX{1r3kqX<QqtkCkRkG2-UjpoDPG)RggQ(
zB<um&3;GookDWc55Te_LASXwTUH)qiNG+q&XEfwIHAlY49p(T6ru*C(ZEzOTMLp()
z+_YGjAFX9?Q!uDM^X8En)NDA@iSrwWKEKh7zYN`#-5s(#2$1fv)2+}$nLYZl4&HdP
z=)dR-o+?UiXGsancehVk(C4Er52PRoF7n%SBbZml4I85HFMA7Z97aEf#L45TTIBcr
zW?h+1phW(1KEWd*U@gajI-jkw6nyc$UQ1clK&P3>c<1g2KJ_1K`8YFh5Zz<PglJ3^
z&W1mEbcEwglSsJ+IF<L@j0%zy*hF+|C&|Eq0I7munC@F|=2C@R^GahD^im+N-FSWY
z797J7eKc?ZIzY-$9FWu3*4DxiIro^U0q*}<;46lI+0S>kvP$>PVtk1^@GH}GNYPbP
zg7;tqcsj|omhW!Ggh?7J)``SwBrXwO6hG_KmN(m8pPy~xe7wkWs7_4DgfhW)bex0c
zS<uQt`Qi*TVR|5wchiu+#}d}XX5r^*>O76DNb*8!d6;GCWq+bHuZ1cYNJpRQBRU%d
zI0n8rT_Yes^_>uh6PCy7sFsW16sml7YkPP<4@Jvh3s=_n_V<Up(=V<r=s*Ge1l|q)
zNITE>&;p@qks~L6RRG`C0S%(H@ks4#=mHU^UWXcUsTA*2%=ec#eEj3!(^|`?%4dxW
ztu^msMXPrT7??RT=?|Tl8Vi%}u4S{xU0HD(^yt)7t%#aZ7p+Xw)sj|8RSk10(iHBI
z@Y`@vIeQeEVlyC34Rm!oFD;he>6ND@zbpYuv=E<9LwHZB1{Z#-$*#;lTx~qF-(|y}
zuc&OU*jlRZKF@rWFr}w`eY1TX)pmhX=QPyO06m-O2;SXkcWccFAWv|L8J}!TTI`s9
zzYT>jXk?QRRY}OqthW-2otrQeimnuD5H>AsOYgL!belMr*<PL*@~4=^Xk`rIrQHV>
z11RO^<V2x=7qGik22G!8l3RQX<>MjIQV*GVNc(3yGs60z+n}D&=>+ycggdN+xH#8a
zNNwU#bqg4)B#4q#zkU;fgJ4%D%K*qFWx~Qo*e};Z^>D53VbX6pK_1`)iMU8)L+N0-
zSGjmAx--3V`do2-rK8kNRavzEMvp+x{SwdN$=#O@N#s68g*JfI7x3BBU@d3x?$kXY
zY%crq<;&cBgz>J<0@%%UHz`i1qTElk13SymYaD<USOKNK%srzVq|%Fx3J4U+X7j77
znx*-y9v0r8H}(RXW$oN_S4`wYXc3d%YF&#o1sZr=U{jZ$oZ4TBsV*&Sk!b?sW1y!u
z?nIn^bEPCby_jYoe7ErTPYmZ9f<JwqlgH#07q35=cW~xlu6E9|;@OjEEE;qiEWyf;
z_mRuiQGdCtrI>nJicDQME^t%HDYLZHu)o-`6HaDmCO|le_HeMwo>p#i5*eFFO$d6n
ztA;0W^JIMFBF}Dr&V-}mU~7^09&zGpBAIJ>U_H;Q{709rHnn>Qj7^1g$Fv7y@r)W*
zuRN?3khmqp#l;ms5C)+gdgjVR-=k>Ce0@QDLj8SmAGvP(B<jU+)HTI#u%}4r2n~$=
z9Loae?&%MVJacVi>WWcSCHEG4?b*o`NcfAklPnK|o2DYZ*lAFZjHkBoz(yH<caic<
zs@_}6cWbe$d%*>2KIR80KcI*t#v1Ymw50TnjkE8HWkEMs>g~L3x7$ATF!@zm+0Yz)
z$Xwk<sC2w$%>$MVS)%?Hz&6^U_c89do1<4=zK!a-blY*5_K&*Svg!R!<pdHnxzH1f
z?aD|B=vyE|^I(i!?5<i4+dTe>jzAh^$X6SB$U3gBt~qSK7ae1Myavr+U9figkcD2%
zuXtVNPA(>fEpE^Bm*k6-&xutof8kL5!?OP68JYc^Rs9<`Qf6lC&Ah({pGWV1H(p43
z{rW65?+TOK%7n%Zu;~_MF==(RzyFan#7~(`ayt&M9LnAOWv>>rKFF)VeL<3Si#+={
s5mkt4{ybfS$Q)O#R_Omn=53FsV?SiKh2`lHxON1iqNSYo+wGwL1sM>HO#lD@

diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index 94abee68..83a8a688 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/WHONET.html b/reference/WHONET.html
index c12b1479..453c92bf 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ab_from_text.html b/reference/ab_from_text.html
index 6127193e..501f5f4c 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ab_property.html b/reference/ab_property.html
index 5663008a..27951d8a 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_antimicrobials.html b/reference/add_custom_antimicrobials.html
index 01ce5198..3ef2ad59 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_microorganisms.html b/reference/add_custom_microorganisms.html
index 2ee54309..6d76e4c6 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/age.html b/reference/age.html
index 100aa407..643db3bb 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -205,16 +205,16 @@
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">df</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    birth_date age age_exact age_at_y2k</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1937-05-14  85  85.92055         62</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1953-03-15  70  70.08493         46</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1953-09-11  69  69.59178         46</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1950-12-19  72  72.32055         49</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1974-01-01  49  49.28493         26</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1960-09-22  62  62.56164         39</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1940-03-25  83  83.05753         59</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1957-07-27  65  65.71781         42</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1986-12-19  36  36.32055         13</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1998-05-29  24  24.87945          1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1948-03-22  75  75.06575         51</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1971-11-19  51  51.40274         28</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1988-03-07  35  35.10685         11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1999-11-11  23  23.42466          0</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1946-07-04  76  76.78082         53</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1974-10-29  48  48.46027         25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1969-12-08  53  53.35068         30</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1969-04-23  53  53.97808         30</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1954-03-03  69  69.11781         45</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1966-11-10  56  56.42740         33</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 6d31f7a5..daaadb90 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiogram.html b/reference/antibiogram.html
index aa126e00..fb01196d 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiotic_class_selectors.html b/reference/antibiotic_class_selectors.html
index 59ca5d30..cf8783ab 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -610,10 +610,10 @@ 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>   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> R     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> S     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> S     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> I     </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> S     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> S     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> I     </span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># get AMR for all aminoglycosides e.g., per ward:</span></span></span>
diff --git a/reference/antibiotics.html b/reference/antibiotics.html
index cbd13c98..42f57415 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.ab.html b/reference/as.ab.html
index 03abeb82..cb0b1b72 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.av.html b/reference/as.av.html
index 1204dfd5..2c5c994f 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.disk.html b/reference/as.disk.html
index 42f78334..8e20c7bf 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mic.html b/reference/as.mic.html
index c03fbb05..169cd153 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mo.html b/reference/as.mo.html
index a0e8cd9d..0aa7c9a6 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.sir.html b/reference/as.sir.html
index f6b3804b..78331466 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -12,7 +12,7 @@ All breakpoints used for interpretation are publicly available in the clinical_b
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -534,16 +534,16 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 50 × 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-04-15 <span style="color: #949494;">07:38:42</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-04-15 <span style="color: #949494;">07:38:42</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-04-15 <span style="color: #949494;">07:38:41</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-04-15 <span style="color: #949494;">07:38:41</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-04-15 <span style="color: #949494;">07:38:35</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-04-15 <span style="color: #949494;">07:38:35</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-04-15 <span style="color: #949494;">07:38:35</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-04-15 <span style="color: #949494;">07:38:35</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-04-15 <span style="color: #949494;">07:38:35</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-04-15 <span style="color: #949494;">07:38:35</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: #BCBCBC;"> 1</span> 2023-04-15 <span style="color: #949494;">08:39:30</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-04-15 <span style="color: #949494;">08:39:30</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-04-15 <span style="color: #949494;">08:39:30</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-04-15 <span style="color: #949494;">08:39:29</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-04-15 <span style="color: #949494;">08:39:24</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-04-15 <span style="color: #949494;">08:39:24</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-04-15 <span style="color: #949494;">08:39:24</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-04-15 <span style="color: #949494;">08:39:24</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-04-15 <span style="color: #949494;">08:39:24</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-04-15 <span style="color: #949494;">08:39:24</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;"># ℹ 40 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>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index ea4ffb45..c7cd8f9c 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/av_from_text.html b/reference/av_from_text.html
index 42fe9506..13c7d576 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/av_property.html b/reference/av_property.html
index 41aad16d..2a58b499 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/availability.html b/reference/availability.html
index 5fbc8cfd..c449dc31 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/bug_drug_combinations.html b/reference/bug_drug_combinations.html
index 20b97168..4e80e6fc 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/clinical_breakpoints.html b/reference/clinical_breakpoints.html
index 094a5639..6fe76e4c 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/count.html b/reference/count.html
index 0efddd62..7d89ec2a 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/custom_eucast_rules.html b/reference/custom_eucast_rules.html
index b7aff9a4..dc0fdc5e 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/dosage.html b/reference/dosage.html
index 1834c589..76cf41bd 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/eucast_rules.html b/reference/eucast_rules.html
index e74fc033..1d498cc9 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/example_isolates.html b/reference/example_isolates.html
index 4df776d0..b00da3a8 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/example_isolates_unclean.html b/reference/example_isolates_unclean.html
index 7378afad..eebb304a 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/first_isolate.html b/reference/first_isolate.html
index 6af6072b..b32dd629 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/g.test.html b/reference/g.test.html
index dceab4f8..67c3a662 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/get_episode.html b/reference/get_episode.html
index f4f251a7..8c7887a6 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -246,28 +246,29 @@
 <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] 17  5 16 39 37 19 33 24 20 14 18 23 43 40 32 25 31 11 23 13 13 22  3 24 29</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 13  1  8  2 15 38 40 37 46  7 30 17  3  2  7  5 19 35 18 28  5 46 17 28 21</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 41 13 41 39 34  9 45 45 41 21 18 11 14 10 30 46 22 45 12  4 26 41  4  1 27</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [76]  1 20 33 44 19 45 21  7 38 46  4 41 19 43 41 35 47 44  8 39 36  6  9 43 42</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  2 49 45 51 50 37  4 15 52 11  2 35 26 12  9 18  8 27 48 16 17 31 23  6 14</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 18 24 51  5 45 52 52 14 44 20 18 27 25 47 16  3 29 13 42  3 33 35 21 20  7</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 25  1  6 28 36  9  7  7 19 12  4 41  8 33 46 43  3 33 52 42  4 38 39  9 51</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 32 34 51 11 22  8 22 10 37 48 19 49 40 36 43 53 13 22 42 30  5 10 24 26 22</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]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [49] FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [97]  TRUE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [49] FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [73]  TRUE FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE FALSE FALSE FALSE</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># filter on results from the third 60-day episode only, using base R</span></span></span>
 <span class="r-in"><span><span class="va">df</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, <span class="fl">60</span><span class="op">)</span> <span class="op">==</span> <span class="fl">3</span><span class="op">)</span>, <span class="op">]</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 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-08-28 390178     57 M      Clinical B_STRPT_SLVR S     NA    NA    S    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-08-19 A49852     70 M      Clinical B_ESCHR_COLI R     NA    NA    NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 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-08-14 785317     51 F      ICU       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-08-19 A49852     70 M      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-10-11 974319     78 M      Outpatie… B_MCRCCC     S     NA    S     NA   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 36 more variables: AMC &lt;sir&gt;, AMP &lt;sir&gt;, TZP &lt;sir&gt;, CZO &lt;sir&gt;, FEP &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CXM &lt;sir&gt;, FOX &lt;sir&gt;, CTX &lt;sir&gt;, CAZ &lt;sir&gt;, CRO &lt;sir&gt;, GEN &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   TOB &lt;sir&gt;, AMK &lt;sir&gt;, KAN &lt;sir&gt;, TMP &lt;sir&gt;, SXT &lt;sir&gt;, NIT &lt;sir&gt;,</span></span>
@@ -304,16 +305,16 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [97]</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> 066601  2013-10-30 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 067927  2002-01-16 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 069276  2015-06-18 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 077552  2002-05-14 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 09B453  2010-03-21 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 0E2483  2007-08-10 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 0E2483  2007-08-10 A         FALSE      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 118928  2004-02-01 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 1435C8  2004-03-03 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 151041  2006-02-09 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 005088  2007-08-22 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 005088  2017-09-28 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 010257  2004-04-03 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 05C73F  2006-01-12 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 066895  2002-02-27 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 078381  2014-07-17 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 080086  2010-08-08 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 0DBF93  2015-10-12 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 0E2483  2007-04-06 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 122506  2007-08-11 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>
@@ -327,19 +328,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">ward</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 5</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [93]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [94]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    ward     date       patient new_index new_logical</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Clinical 2013-10-30 066601          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ICU      2002-01-16 067927          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ICU      2015-06-18 069276          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2002-05-14 077552          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2010-03-21 09B453          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> ICU      2007-08-10 0E2483          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> ICU      2007-08-10 0E2483          1 FALSE      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2004-02-01 118928          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2004-03-03 1435C8          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> Clinical 2007-08-22 005088          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical 2017-09-28 005088          2 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical 2004-04-03 010257          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2006-01-12 05C73F          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2002-02-27 066895          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> ICU      2014-07-17 078381          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2010-08-08 080086          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2015-10-12 0DBF93          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2007-04-06 0E2483          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2007-08-10 122506          1 FALSE      </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>
@@ -355,9 +356,9 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 5</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>           <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           60             13            40            46</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                27              9            19            20</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          6              5             6             6</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           62             13            40            51</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                25              9            21            22</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          7              5             6             7</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>
@@ -386,19 +387,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select</a></span><span class="op">(</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_data.html" class="external-link">group_vars</a></span><span class="op">(</span><span class="va">.</span><span class="op">)</span>, <span class="va">flag_episode</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [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> 92F410  B_PROTS_MRBL Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 501429  B_HMPHL_PRNF ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 978801  B_STPHY_CONS Outpatient TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> A76045  B_STPHY_HMNS ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 188588  B_CTRBC_KOSR Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 43F266  B_STPHY_AURS ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 729574  B_STRPT_GRPB ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 973274  B_ESCHR_COLI Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> F3BD65  B_STRPT_ANGN Outpatient TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 578848  B_STPHY_CONS Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 710157  B_STPHY_CONS Outpatient TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 716939  B_STPHY_HMNS ICU        TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> A84726  B_STPHY_CPTS Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> D80438  B_CRYNB_STRT Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 658640  B_STPHY_AURS Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 686445  B_STPHY_CONS Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> E44854  B_STRPT_PNMN ICU        TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 6B8C75  B_STPHY_CONS Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 005088  B_STRPT_AGLC Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 696587  B_ESCHR_COLI ICU        TRUE        </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
diff --git a/reference/ggplot_pca.html b/reference/ggplot_pca.html
index de2b7617..ed5ab836 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ggplot_sir.html b/reference/ggplot_sir.html
index b6763612..b0e824b1 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/guess_ab_col.html b/reference/guess_ab_col.html
index 13951dde..85a0e423 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/index.html b/reference/index.html
index 00bb41f3..57a3e913 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/intrinsic_resistant.html b/reference/intrinsic_resistant.html
index d3d2b154..4c9beb0b 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/italicise_taxonomy.html b/reference/italicise_taxonomy.html
index fad8857a..79e77ace 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/join.html b/reference/join.html
index cf40cc8f..eeec197d 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/key_antimicrobials.html b/reference/key_antimicrobials.html
index 01b31395..08df9564 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/kurtosis.html b/reference/kurtosis.html
index ca0130b1..26675e30 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -182,9 +182,9 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 2.960476</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 3.017473</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.01258413</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.005038699</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 73046174..aa7aca5d 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mdro.html b/reference/mdro.html
index abfbc62c..48d337fb 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mean_amr_distance.html b/reference/mean_amr_distance.html
index c2325344..4bca00fd 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -201,31 +201,31 @@
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">sir</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_sir</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">sir</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] I R S S S R R I R I</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] R R R R S R R I I I</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">sir</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.7745967  1.1618950 -0.7745967 -0.7745967 -0.7745967  1.1618950</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  1.1618950 -0.7745967  1.1618950 -0.7745967</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.7745967  0.7745967  0.7745967  0.7745967 -1.1618950  0.7745967</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.7745967 -1.1618950 -1.1618950 -1.1618950</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">mic</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_mic</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">mic</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] &lt;=0.001 0.025   32      0.01    0.0625  0.125   0.5     0.01    8      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] &lt;=0.005 0.125   0.025   0.01    0.25    0.5     &gt;=128   2       0.25   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [10] 2      </span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">mic</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.5257422 -0.5427941  1.6420106 -0.8226018 -0.2629864 -0.0513201</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.3720126 -0.8226018  1.2186779  0.7953453</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.34952811 -0.26581181 -0.80766996 -1.11616251 -0.03244621  0.20091939</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  2.06784421  0.66765060 -0.03244621  0.66765060</span>
 <span class="r-in"><span><span class="co"># equal to the Z-score of their log2:</span></span></span>
 <span class="r-in"><span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span> <span class="op">-</span> <span class="fu"><a href="https://rdrr.io/r/base/mean.html" class="external-link">mean</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span><span class="op">)</span> <span class="op">/</span> <span class="fu"><a href="https://rdrr.io/r/stats/sd.html" class="external-link">sd</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.5257422 -0.5427941  1.6420106 -0.8226018 -0.2629864 -0.0513201</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.3720126 -0.8226018  1.2186779  0.7953453</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.34952811 -0.26581181 -0.80766996 -1.11616251 -0.03244621  0.20091939</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  2.06784421  0.66765060 -0.03244621  0.66765060</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">disk</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_disk</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">disk</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 16 44 41 26 44 46 48 50 48 40</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 18 34 13 40 31 21 44 32 40 41</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] -2.23059935  0.33963858  0.06425595 -1.31265723  0.33963858  0.52322701</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.70681543  0.89040385  0.70681543 -0.02753826</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.25112890  0.24275635 -1.71796804  0.80296332 -0.03734713 -0.97102541</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  1.17643463  0.05602070  0.80296332  0.89633115</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>
@@ -235,22 +235,22 @@
 <span class="r-in"><span>  tobr <span class="op">=</span> <span class="fu"><a href="random.html">random_mic</a></span><span class="op">(</span><span class="fl">10</span>, ab <span class="op">=</span> <span class="st">"tobr"</span>, mo <span class="op">=</span> <span class="st">"Escherichia coli"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">y</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent  tobr</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1   A    I   21  &gt;=4     4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    R   28    2     2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    S   23  &gt;=4     1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   20    1     1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    I   27    1     1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    S   20    2     2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    I   25  &gt;=4 &lt;=0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    S   25    2     2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    R   20    1     1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   22  &gt;=4 &lt;=0.5</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   18 &lt;=0.5    2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    I   23     2   16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    R   19     2  &lt;=1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   24     4  &lt;=1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    R   23     8   16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    R   27     8   16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    R   21     1   16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    S   18    16    2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    S   21 &lt;=0.5   16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    I   20     1    4</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.37458457  0.92678423  0.01430793 -0.80688677 -0.22319302 -0.25784351</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.08244556  0.15908059 -0.28933760  0.18494914</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.56956384  0.09857482 -0.33782767 -0.23465405  0.85843659  1.20624076</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.25625432 -0.33010519 -0.36084739 -0.58650835</span>
 <span class="r-in"><span><span class="va">y</span><span class="op">$</span><span class="va">amr_distance</span> <span class="op">&lt;-</span> <span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span>, <span class="fu"><a href="https://tidyselect.r-lib.org/reference/where.html" class="external-link">where</a></span><span class="op">(</span><span class="va">is.mic</span><span class="op">)</span><span class="op">)</span></span></span>
 <span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .subset(x, j):</span> invalid subscript type 'list'</span>
 <span class="r-in"><span><span class="va">y</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/order.html" class="external-link">order</a></span><span class="op">(</span><span class="va">y</span><span class="op">$</span><span class="va">amr_distance</span><span class="op">)</span>, <span class="op">]</span></span></span>
@@ -266,17 +266,17 @@
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent  tobr amr_distance check_id_C</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    S   23  &gt;=4     1   0.01430793  0.0000000</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   G    I   25  &gt;=4 &lt;=0.5  -0.08244556  0.0967535</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   H    S   25    2     2   0.15908059  0.1447727</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   J    R   22  &gt;=4 &lt;=0.5   0.18494914  0.1706412</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    I   27    1     1  -0.22319302  0.2375010</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    S   20    2     2  -0.25784351  0.2721514</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   I    R   20    1     1  -0.28933760  0.3036455</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   A    I   21  &gt;=4     4   0.37458457  0.3602766</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   D    I   20    1     1  -0.80688677  0.8211947</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  B    R   28    2     2   0.92678423  0.9124763</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr  gent tobr amr_distance  check_id_C</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    R   19     2  &lt;=1  -0.33782767 0.000000000</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   H    S   18    16    2  -0.33010519 0.007722481</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   I    S   21 &lt;=0.5   16  -0.36084739 0.023019715</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   24     4  &lt;=1  -0.23465405 0.103173626</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   A    R   18 &lt;=0.5    2  -0.56956384 0.231736171</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   J    I   20     1    4  -0.58650835 0.248680682</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   B    I   23     2   16   0.09857482 0.436402492</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   G    R   21     1   16   0.25625432 0.594081995</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   E    R   23     8   16   0.85843659 1.196264261</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  F    R   27     8   16   1.20624076 1.544068433</span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># support for groups</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
diff --git a/reference/microorganisms.codes.html b/reference/microorganisms.codes.html
index 1c4d1a15..06405a07 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/microorganisms.html b/reference/microorganisms.html
index 995e1bae..08a4ad36 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_matching_score.html b/reference/mo_matching_score.html
index 699b6b2b..78619f7a 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_property.html b/reference/mo_property.html
index 1b920d59..ac996878 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_source.html b/reference/mo_source.html
index 0860bace..162d3cf6 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/pca.html b/reference/pca.html
index 90f20794..d2489092 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/plot-1.png b/reference/plot-1.png
index 81be25fd9b1fdeebe110e39a5af5b93e61adb82f..eccb3f20f09cb1788c0a0673bc678877975b7464 100644
GIT binary patch
literal 26245
zcmeFYcUY6z);A2whz+sK3<3gr2rvkOh=BC5Vx%d(2Sh*!MM~%a)Dav-(1czc0fB_x
zAt6B-!BABU0YU-@h=dYa5=aR7?!-CInfJWq`{(=qc;4&W*M*7uUVHDg*IN6x%HH|?
zriF>veyROJLPBET>sPFVgnoz=654%x?;fCqobksB@UiE%smT@K6L_{RW8#62efO?A
zh6)MEB=P@*Q)gGbgoI8Cfv;S&iOgH1L}mHgyV7|q0^$16qkH$=+x-tsk+(mnT{(Qv
z-NtP1`;+HfE*`!pcjs`+lPA$r4-)zwl)eAysu%7b``@4Z#q+qr{+=HX?zyO#UD`Lt
z>aN<hI?;wos>h%gHWnBLoO#=r>UL%`8gp8y(5*3CSiseP{`vn$0;<g<o4M+mc8?cV
zR}HuGgc3?%ldld42_<kx?h`MnEJA$co=(q+2&q=?{@L|A3)1qFKk&afSnYD-e<mm>
z{Iemj4zQ`*xo!zQDMv?GU8u$^++NAn*oyM1%>p({*r~QJtTws@uV81=<dNMF$Q%rZ
z*Mo;tB2j1?jN&xDIy#;)M%avDPH`LwRkRt}9NHSyiH@&wb7`+(e@zYzv^K11bA`3i
zCQv%|@h<Rtax`6B+hxXX<Pt}!fX=I+-fC};wq?x1Te`f-frIncP7qgOcn^u@XlXkW
z8%R0TwY`?TK&y9lA$gN+U2#*5aqWq8PPAAxLB-a@UP60&hilq7IQxu<K?SM5q*gX$
zSNB&&SM%2#{ygTq$WJlaHI(pYqzmQjO}#E|ER3dyONuWWfOy1o&TLL0jq0md`Lraa
z)cOc*H~RC|6WVjwXGhp=*w@q37D4Jkdrviwg~wY!>Tkf&t$v+y$A;OVkzSp0zi9WS
zJ8yAx@u&8>JcZ;3@5F0~JRXW`de;7xWs_Qc$l24px=^EQV(=Rt+QqsT#~87#V$?~_
zwTC`y3}iw>Rj5#4uO!HP)d(<{aWwsQ&z<oAew-&(dFFa_ck((9r`O<NH}6yxu}+BW
z*6y2h>D3K_2CyI(Ua~1-M&c8wz{W&qvM<KCbV2NpdM%pG&>F5~h3}m9q@yDST9yxx
z?k!g(o{T72j}Lvc!#TRLTy8{J(RA&<wu|aWirqd<V)p{v_@u8leQ9hRr8fcs>o^qF
z&OCF^;Y`?tmmV3jIJfED#5d?z_4>E(HJv6@`+0twBka+Iiq!%1=Vr7=_!Q1a!nmdf
z*402M9D23~JLv2qGeq_l#g_KBEMFD-gKeOb6TDoIs36L0surdf(2AbP{TT%7!2DF*
z-yio~M`gx$XHQP0N*O(gyLoxD7IW$)<`!cT$B}0?=WFgf^iIaVSc<UQa`S%lLV8qt
z?FcQ@uAFWZI>1e${gya7AZkPM&wA5lHBoJw={W1;Il2tk&@L)wX_{3#DolSvjMA)v
zkDZ<~3hj!b7kuO)5?D{gG;@NeXXRN45?7e`Laf&x8`CusgW|Q`aP{1SO?91hlHM2D
z{5PpE=5adrHU|@5dT7~K#kIE0CQoNVvtSogE=1X0cBsRgx}b}T-pSjEK|%Y<eHzcM
z$siYGKGfhAI_>B2rBi#XBMLT*U$W_9rv@r^?DKAsy_7sF!v>(vQF~_Y_q(B)*`WnV
z8Ub^24a0ILWIryhY#^32h{U$@_w<X~!aM2g=CSRBW}2_2Uv6{L%KiQwszqV&z&tUv
zkvV&HC$MYNr!r(YOPC&18B)pEgLP(%jrXyf0EN0I<^1$2HmrD6&cJiqkoYu5#(#St
zZ@oZ!E_(g#`+BKen0D?$UMSP1*>Nf_rf)ueEqUx~|DA&7#QA=oy!wpPg;WoH<I={R
z$$M0U2n4z}e6H1uQEbajo^tB13LO?}kGp$~x9$v&LN@AoSODT%UEf9RuCSVp-c7BH
z3<zY#oB`OVdDx$`%KDHvn!@=q;gj56Iwk+U{>0ef8<k<ysQ!Y03+l-Rur6K8g3tj`
z@4V0w-MMj}E?u5>5pTg~1OMl;SgfVz*ubD~rSSy==m5+jJ2e05=5-a)){rI}A9;;e
zn(8ogO0%lAw2hIs-gPiCJ|JC+B)t+ygobKPK!p>`8!}S$goRW;>H93khclifu1pW2
zP0q)raW;pUL3x*R45inS6B!OZy3Nt=l08N3yDO&HF)`$1Zed>N0DW+T2e5Ra{Vnct
zPJ6?j6Md5C#L<MpoZv+}bRK5(=dHZJKi`OHdfKnG+Tk_Gb{u0(Ca-5d=MZ{XtB5C;
zVr^k7(We{EI8v=S_)b2hF&(geK0;|{^G@y-B2##-vzuB{-Up3}Jh+3F_7lD>8XwH(
z@*+xfyN8b!_wN^nww(GH9b4kD^f|rnz|VtuwY*ola}^tOeAM8(P$_SfK{76=tJV0d
z&v<{+x4AI+DucO^UTJUZK&5y?Pu}lhQxgqx*&kU&l{lk7vBA}6(iyf<w>rg$MiVPe
z6C74>2D)lW&-1wEB&CP+)w`XvODNZ@<A9KVgnCeb@P~$nXi+=f$l+mG+@(Uth2Mq`
zyHtFw4^8QJrg|u><M2`Ui4s1G5ITPKtD%JG`3g_{pj<Di*qk=`6@Us^tkBK(KfA=Y
z<6OCfWKZKp(sa_`Hy!BDD+-6o;&7+ZjO(KVVf4g=wU)$LtJm=o5rdKoHMUiaG6A#D
z(0TwR6U-F>kJW@ZfJWwUSEq>MRUWUWoR&rKvg_W~RV=58f>3{|f5*D_;)EKn3)8o&
zx*cy+O75=*lx>rVJCqX0WWTBR7ACFa;ZYv@l4>*FjO<^(^fgBg8<?K%mP=-||19M2
zD86i$Q12vKOy_!A6k|J4>mF%3Eiv_(C5H`c?09Uf!n%=#aS)f9uF5WAL7Z0@I-P&5
zuVp#Iw$_N}0{4Ez?Y1XnH_*>dk4v04e$0DEOOaL&@HpfKD43)%Y=_s@nFb~sxdZrO
z_iQXa`ex^1y^5B|5%IDDVok=JK`EWF85+u_hKn_hM-SA74&U1eKSytEfp#WipZTv}
zx`!iS3p**~0!?|Ajb&c&VjQxX2klyQtdECo^3qECba&8VP*=J0^DzYa`2Em<(bJi^
zp^GnRzrm6l%Sd0d0G#hoJhlQX^{!>7SO#_U?17adM27V6j6qD7t`2o!wYA?3%1X-N
zy;!-7is`!$ezBeuOsN`xhW}!?@YNxij`im4$U^e5j~XkwO}!W6?{=zE)4jvuUb83j
zG*W{cAQ1|9E3QQ+een^T<-g=OmmFZ(356?=azm*Bq^SI>c<t^;f%PXy2#plR){g1~
zI4N&t>s(%u3{Bx)t2a*Mj(@FQZFB99R+AlJ2jzuDGJb=r_;g3F<$1;vX}w7&Yz(8Z
zA;U8&M6~@#d?X`Ba?Sv^)qD4Z=G@3cziv2Mx4Vm34QxUOmFnP_yPb8S3ym_6+yyv)
z+86w3mu2m^ccFNVkB#1oyv_X_Hv^wMj!vH$)-N-zV(SSpR0{BtJMLmyfhOvKv+nGd
zgj!<Y30v5ePLnyjm0=|IQ+QgYtwjHY@Ycl9ywr*v=gb}FosPsw)(){$>g`Y^^RpzU
z8rXcjc9Qg5U|EyNTob!^Tu+Oqo@dw2ZmCP(Oy6!&h~}txR8`ac1^>UGiXRayic5L3
z^C5=SdW~#cV)ot43UC`*uZg_{o=9&Z4<6^83LS8yGy80DnGt;#==8a~P<GyeYjBsY
z=%DW0RA?0=L3a*bd}>>_&a{yAP-@qTT+rU(*PLqBwNU9sz*CcgUgBZ~T8EvQ*5{Jj
z9m93T5Br~Cw1<dI%Zwim8)WZTR3FOSFf8_HeK1%RLWz3Ax)x{A>^#lF3@;gmRyF?J
zdz)TLf{z-J7aapdZGw(ZN%1}%KHpzY>3r`hHbp+}k)9Ay^J4OzJ>#t|$vMFJN{2IJ
z0a_6>d~m$oF!b59c@W-kZe&E5zDzSFIZi-xxN(~5lawa_3gP)E^yg7Ap^ly9?ZjVw
zhr6ljfqS>TDZlugq1thO?G$^FF<L-dCeqKeJ(mfz><l^Z)WOdKg1sjO$62+<Je%e^
z)d&67g2=Q<bv5C^VYljonpzM#b`iciYsczUJE5VCfRA)X?u`^q;EqD2hq2o;r@3ln
z%anT$UlZ9D94p2#VgNcQ;3aP9+bh~1L@^XAaB^E*J2p0Ecnn?9|Be`BODdycQ`V_B
zDfg^TJ5hX45tX0jz?EFZ-{$O;w6}%5v<54dhlZ1$1_ia0kF}yVV&Y&)iL9JwV*}Ow
zjX3@iCp)f603Py5()rj$b~JM7&%_T4eqzvzvecCqlj`<9TB_+QuW6OUIZ{-mrlKdL
z=u}I4RA=8f`h4sa_PW@c9*(q;A6H#WbAf3h7r04Hg*sTTXApU1RTC?Dh2+CuW3i_$
zMB8_+ua#W=5hKUB)5)&O4BC4%zGiCfUT31T54>cmh#Ta$xtFK=RC%4p`Yo|0D1$*2
zSwa&7q;PYERTkwIceBp$UeJidLYQw&%j12j@uU^E4QrySblf!)8=f5(#(2=xzB=OF
zuHC!_;M@P<8G$T0g#m%@;@+5RCwlQ7r0!60p&B`T_m6@sMW{yO-_n%-!&v`$^-l@B
z9Bcfx%VEDx)v~qB*|!c!_7f1pm+aIdUAu*Zno7}j;#G%S!%oS!ykt+)JfEtG2)WC<
z*)2&%af;4x4*{4{$=vAT@g83dRF`7S3nv7hXyFfsw`#8+Gkoh1QDspzAmyP7#FLyh
zGa^B$a9k`Xvhymb&cmk=9$p>KU4X7}g*w9JC%w)LlouF&a+n|;UU9qd38-9jXonBw
zQXBLs^A=ClJUgkYDG@G5S9WzYo$ty)3HVn{01z2?+`;=I1?7W`wEw;hpYK0aO9;13
zvdb(Fx0kS;s2Zqbs@A9p)|Y#1C9vI<*pISCV{CPDhFF)0Drk}|9j!*)pz$dZN={8u
zoFXdX@NGR(oWcvEI}wagng<c$?XAv#|6D7wxu=R|iNgDaw{V`(4j`*lT0<C5XeC>%
z0?F;$-`sNy%`rFJabc9v5{XB|jFWop?DJv`-RpRJi0WE>)b>9uZ7s<gPx$l+0hS$@
zt(59G7;V*4+I!Wgh)tq7!|8|vF^U{x7w&Q~ui8>3{tB$IUs<3cho5&*`&kL)OgWoW
zw3^f0aS3}%RDo_I{XWM*Ku|Lyg3YBjlrxVpgDaH!j|&<{?(-WHt(OLurX3)88Ukt5
z?A{ltGqGj8MB!W*-WXgMho1ln89<#Pgg-@7Ia3T6VZpL-0+;G3SevN@!0V1Tiu-^z
zDV7rYVP-qMOMn^SCxz)>V}di)O79_QhD64&ZWj!ti9#x-s+aA=ru`*ZexYPUc%agv
za>rwBvx{hgvb0l2QOWn#8>_WNnnmqQ?Ct&bhS6<Zq17662Y5{V0Z~3bO*+E#;Yd>e
zw!MB*YyCJzL{B)(U68P6l~K<+dGRSaKGj|69Nr?+Mrf<Vtpx+t0~&$&6Pl+JA}GOh
zAkICEfWk}Im5I+;dc;b!v<<1E%1LIdrnu7wRgX%wqi4ms2K{o7Ki1-$2=;04MMgDJ
zjQ?Nv%Oco{ck*Z+<$`JSiE~@g+j|AV=txlnwpvQLn*Lf=QUz5YhAfkgUMGXs(YL4j
zCgCBBN!sF(u3f+w2{Ps#nApHuOF0b_jgLs&;p@{ajwkq|Ctm?xQ0-*S`_gkrNBAux
z_-CsxV));Le*P860Dz~aSOm-e6f*6R0<_p8pQ@B55X@;|y4{6R)1W8(!lckysrrk5
zZC**N^Fk5v9p^&VKF=Td90;iz0~+Gog?%Z857G2F7pPl~YXai;N5!0{&R8#@)lhr+
zgzh}~NlGj|+Yb`&Vasn2;>hs3ez4(qA3zJn8lmq6>;`YyXz6An;JIU`+k9Aif`l&2
zX;44mfxT>U96&u_E#iA4o4Zu5omlvCq+8H6BTGSw|3>J)Gr;`6W1|3qO73mZ(z>=D
zcEA)N++cyQnJ*GD8#mi&Zt|&7U*1pi+d5MCkX@j&)fV$xZQ%IXr>wsjO|KIcR`+Zw
zTTGa)b4^N|FSu~kg_qwosti;M`2!#TEa!hw{ZGTc%Y)7gzYDw42>tko|3-+Mnh*h%
zv8I$nUxB64_N#1+x*FE7!x;HAY2qW|0vg%;+Kf-<F3I=4;m=L%EFm7ePPC8Zn5cbF
zwZ#~EP?)%+L@u;v0S+VWG+%!SB_4YKbh@XKgt5gtQ+z+g1x`pWFE1Gpr>~*D!|81R
zP9v@`^2)pCY{b#BPVn1x^hZQ3RAH_`Tnua}aaJnao>W0K(CP|0ugc;xAhhVthu~wb
zY=ii+HjB%XoEYLhVhpMXZEw!lno3+@eIbO0cdi}eUC>(27id5HJb#z|Ue3IXS}&D_
zd^n42ru|7EC25V@1O!Q#Gbk}G{DIv?kFEsba?KhCU8XjZn9<ufT~G7Ecw}}v|80WI
z6c7v7>~`@&ar=KtDa4Sbg9as`ZS+;?s=HhZXqKZvmz+qI{#NwHcNEN>uA#BWW7{5@
z?SDkGUp-CeKMA0RgiVsg7zSk+BQw$XcDkKY@tO4st{%|8Osv_nl2xU*1_UKS9g%^y
zl%S7SlfQ-UiyXD&yP|G1Ps3Nv8XjCdZL-9OEHP4HaKGU)o4k!7T;E1uf5iRKX39{P
zPv)boe+tExgkv_wOzxIz`R1hUKUiRB$o`nBCV8BrfgjJMyShrP6gY85-MTGD7gqC8
z#swO~GOx$z6xOHVMKUqhL~7wPf#g`92B<M1;7eIi3e8&wGy1A`q{cAjPw_?G_?>`t
z?yL<*93^dLh_hfk0CU8ZAcd5k1+q(U$c}=WuHAjU)H*`=GHtdk%x+L0syY8=l;}w8
zM)hj<b;0kzc8Ui_iACsK%O(?Bo|}xW<Q$rq+f*FQ@90hj+}2l2i(aK(z3FZS+ENBz
z)@H)UPkh%4aglK`j2g&d`L{$#^J!}yX1~E`89BJ(+1)=e3qPFIZ>A{_c{!Q`TVe|<
zIFA`NpDID&4q%O2k+6E&H`*GJgi^2kK%Xa?qB%CrRfnpLtlCSWVV!0WKCO^2eOD~3
zu75rItNKSlgZu9SN0Q+6U*{A5mI?eXPB8xaP<Z};Rj;y;3N{d|)lS3iBnJuXsX;sO
zN;Tt8ErQm*v&>}jG|I;wf^xH^gdD5lZ*ietryo_5s$?PX7{3Wi8y_1;nXH?P<|lr=
zUP$OJHi4B#Yep5JtWi4VGWxHh?HCXu6y=;6DF{9iWT1;L8E<KHv|NBg)zk~IH_Hmk
zH{0QL^jpMQd59c;4EOGlzU&4_MS-JhtzLOF;d5=TttHd}H^m?ZpeVTx0vzdx^HIsT
z(b5tPfzfGoL@uhnG-U!8ZOWLXeI%wgy;S6nlu*)4gigg3MSH+16JJJ*d7+i;3oEI&
z@?Dn3dcN=}gfa+rqF7Pbd@{v2e~4~JbViHY+D~kJ&jd0)+;<MkhuVmvWN*n}NwpDn
zsnES))kGjhE6hKExd^j^5fii9RlBNan|$B)LOxlzqvudrRo%CLTw7z%&`;GKJX+W9
z-|>#<#G_fFkX-+oA(vXcJHSStd@!S0GcnSaz^b8H5QDTu8i#PMhK<p2jO=o*T$SvH
z!<)Fawp*RX4`fM)57!^ZI~#`0XjE$gaPb+9(pPJH{KCb7dy}zzRpRZX_SbqaV9c2Z
ziI(N<K_4I0+^j~&g$Y_{q9{!X*S-FKKq}${0HZ-XCgCblL+?5i8DXoW{o8$GGHYPd
zponcu%$45h4#=?7`mK{^6cw8Zgnk=;Bo@9~KGLPv=J9hip1C`ju4vnRBGe2Mk-D1E
zejLIXBk9qx>xcX|ch@FF_>c?ZO2ttY*E=vnOR4ywU2fqBX?vNdnHMtQBOXtyygCOA
zS>w1JMm1^1aGygQV1y<>;2Kv%=N_lD5{FR6s2xuk&p1C6{1F_L0%vR!v=e>o@HX(c
z;#HxM-q1qMc#8gV%hk+U4@)@BI)<{~*8J_<$hDmnabAsQimvxZFaHr_;r0x5vr9*<
z?O@Z3Ib+_I41D7wKi7-nG{<9f@LT;))pq~<^`dz6&4`vxnV(&|65AP-K}*4@G2^d#
zg|3~q>)<>}lrA%mvF!Y`AE-oZ4n!}Fl3oeyh3Vs|{_$R1r$1$mLD9UYLsJ8E&VN$_
zky4q2LptA%2l;!}!+fHMkH6;$i}qdnBZIU)T@duI_$d5TkZ%YjJd=d(0SZm0kW72D
zMAa&m=jiGII84~ob%ua+k;U)mWC;DV^9+_3@s2i+WOC3EDK>)8rz0+?LP2Wz0x^!F
zHxScl!?BPj3VdIUeDY5#)NmB{cUT^aP~IfnDB!Q6(?OUHD;=9~>W-So_A5MV#XkuV
z64HMQw12c-dP)kW7L+q@{e6@;4;1{p-hlpH6qoVBPcY2L5rC-)Eh3JoH-KT=a43JL
z-=WxWGJ$c5UXKNxC>PXS5@b9o5?Jb`W2|xu=T2Q?mvw2I<bU1;FuY4!HNA!sqzmpQ
z$5ke|A&kxP?&`_{8=3k`6TSASl~jX90J7))i|E3=KWk+n6r7&#+NQk{*#|h=Rjb;G
zfo;3ZaXlGO`Qh)%kWbcn*i3ssOF~I3Hu8FisXD6Unur#T60uTo?z@-{0cUHrbN1q8
z7G(vlaOfkWiJTLdI7U4&N}eQ;3?RtXE1eCgHsXc;N%oofi@a!+B%I(?#gO+8*dbi{
zO+h~C9tPNipuOYgBmW+Lj#X$yR=c=j+HSzU0g8I_HBFEW)bJ$rC%IF!C}N{_B<`>J
z!m}=yS5uj2o#xehf`JoY#{m<8p-RmRcP=r0qj8BkC_{NyLAsOhd+jbNB+n0Ds@JL)
zUtB9#x5FC;)AQqTC~p0}2tk831<)?>^_ZNTuOOHc`pTE`U^(-u{Ih+0mOD-Wn=oFJ
zXmq<+L(n736VTUH>m{U#)G<Cmf-Ya-5bk_2Hy+)aeEz%fY63Q9$8}-!&~6Y#QO8V9
z2;6c)`-uymE~w`w!!~DDVQ6tX;Jn-!4t+K~9#9<36g9E6uL!p-MB|!9LIguEc>{B)
z@h=MCU0|FSRkg<!QOiz-C2d`9-9~nXb!>8_+I~LeNC6<3`{^=P?QwO6J{EWi5n{`$
zri(>Dvwq@^(H{L(Zg{5ikoEpW*Qgw&&eTVPN6d?}M8(~%hRankZFI86A|_}>$Q}N8
z9f!1s%|5JO8)KT3nm1196%DQu)h!KoxQUG9pqrGMHZw*=`Ltz4ie&9IKE3<Ctuo$M
zOur4sT9Z8<isI5}66heyC5{E-G3_U7PF%=8(|QFU;v;4I#rs?<lq>Y(jpfzKY7%kl
zi7Eo4V;=CVe1mB|hQjFdxf#~#`PcCtmmArm4;3^Rf2<i^-1+vhoLObJV-$3bXapT_
z@Ud(RYEr*iImAH4oF9-A3Dn(+e!tiA4X(`*)_qk%1EFpo|9R0Ev~&d{HGBp#-<96`
ztzArqd}nUVmQu~$d6%J)6JcNN9Ck!#5$SAe+{E`wTeL0W4?xk)y&Z4?spW3tW7NqY
z+xEMkaMqolL^wt9=)m)W!1Iw&l11Yjw|nMQIdhg-Tg8ZUVORsn8uvx_!)KewL|7F|
z0^%Pj?tSkPqx7lT?JE*CCJKK}5CU!5-2vb84VySI&t(`L6w-fVibkupJwC#XVKhHg
z+Xc*gFftWwWG7?TNJqyQ7BJUnqhf!|g`!9e@dIDD7&WoTAPD!}emK>Z`@R@{ubyY(
z6Ro}CV^SU%5Qk>p6okLnwyTV(BV7;Ruq#B$a(Hvfg)fhZ>_BIqyx?m-`7k@;3&7*#
z>b|07d8W*73|T_L&TwX~sz=|FaEqL}D8_qscxBne#6~7&u{J+^%ooj|4DWnV-+A>^
zt?k?M#Q3NCBZV_aM{HSbq;|c{$%pm}n1J@#GePsf5v($=U{A(pU~5$+O15PF)*4i{
zJaPC^!9;{8GP9*7I+jrZ<S`Z~s-~48nE<g(&1oofY)7%by20H>N`&cRDDl4I3vJd*
zIw`i3Qn3}$Z?AjGP!6vY7=Mba8C;GgVZvusAW?j0mWkUaG2P{6cW<$_o2hBMt_e7@
zLhP5Hs=vKGpzabT>3^(SCSv>(&jP<uqP_(1?$j<XWI9#A!upuVwqi%W=>o?w;En?|
zX<coEu`^P;#!#AQ{e~vV*Fy_c6t7~Zrd&;wrTLhB8FiesW4q!-ELB?a(H8j{L$);x
zpslK0s}NK*94-Mk!OHhDE~dMwgctC#{3fFLoekkE^E?Z`y?8lliDrTN-ImdzITTVl
zqq^nGXWee?3j0_NVcN2}QBzP#O$fLP?D!_@B~6x|c91J&9wriGV0DK4QIxZMczY$W
zL>XrVFOI%(Ig$gE{aH%VZ>e;f2^8)o1sbyagP2YkCQ@bp_cB;@?eHXbr<~a;ePa5<
z5!%SW4%XxA5*pQOv4p4IaVAg)38iT3wlIQ#++9=}K++BK&hYAK?B&;E`W{!;<I7Ue
zvW{?HnYnz*Su~4A?AH0?dtr3nGp&a#SJ$?IMGfLyDR8iSV=@Qe`5MX#qhCFB&2P|e
zb0^5f72jqD8=2Ykk-kK!m&(9yu3b7UaAi%605t1_`*y@QF_fSN^!wIJq!gRpx)Ez2
z*%g3n1sT9;tUrpIOnY43UGKe8aFhGVrZE5K@7`k(2@Ifahd1<<bA`Y37`>l<!hurH
zp8Sk6v70#lH^<sct95NlS#Cs&>r}jp$u2hvLJd^9eJauMj4@@z{L2|iuDCf+nxY3j
z<EELk&>NY1fb<-~b%1?*4CBKaaQeY_h7v$RUUkc`mff=-j-wo2bi=dX5p)Fv6+`!P
z&o3*XyUm&|OApT)zVyg<g)Rv&E!n+(7u9#pu8{m-;rn2}{Lk*Nyf))*3%C*bTd>jD
zx5ou!g1{pN_3+wppXBF)CU=vXD+1@(fsg{U1$T0Gh`kFdq5+p;kZ{Y&ffMD2_&pP3
z_%6z8VUedo)I=rOu&U!q*`Ka|Pe2y;K6QFE^#CYROQTh6=mFRoNq!%96NecoYz)f8
ze2i2U7jpkQv1<O+i91W4)=L=m3W1+VP-ys;z<N;5OjZ4R0|3fXf0g^(_npz3Y=39N
z>3d`=P-V?;KTEE}#WU7`xW(nB41Y2q)A^1UU0aX*SW@gIlp2Im)wc9`XB|EF%;tOU
zl5!RZF&A+$h7?9inO+Hd?O)6T0RWn4jZ(3rJGlQfm~Vw7R_VMdzUJpSdq_F%){^AB
zAiWjR9{><Y>6+B{ctFc(1~{GMKa0Enx5Y521x09cS@^T_!>aVLnN`6GGJ1ev$bcfG
zpc(y#o_}w9^3T%bX9vwlI`wQPGlN)dwiF-3pwX;}1vCz72t_t$M0FJlayFp_{*p*U
zTeLAy$MFFQN}4Jga3|O-?W)*Cy1LC^<$&zJ>{dbQQ29VbN`=wq!{b#yF1vlHC#Kr*
z99&<sOKB_r3N&-x#H7-)z?}QUAD|cJUV$gX&x>>#yBY=+M;|At+obyD8Sg!zwG~|g
z6qen6Fs=*}v3OOta0xs7Xh~t>Z6Cdosfo@c;5haOkSRrXmNLC{>!Lk7&joTG>ew3B
zfBT0}LcR}RN>$cN@jz58m*Y2~D@+fEwbM=mUTy{`N!F~7m$wbSdV2h0J8)qwETXEa
z74V>8gI`6lI+cO7R~!8waqPrV1I}TmggOS!*>%LM*>JXjV13GllXMOBXw~o)JHIRY
z4QGTlhpNAJ{D4p!9Zo0Dmloo_ozq_I(;Qp`TSk9+)$1<Z%Hz@}%1aB{_%FEh_;|~x
z9_!(89-D-Z0}_*I?b=uU5%ib|%mH=mJw^&}QPRC4AtE}j6CDKP4wp;EL;>rXCJ)sF
zt{op{V}ymEA%7k*345gC;=%VLw@hRjqm{zb@|pVZ4;MwxFjxnKYVLYc?kpvjGnE%E
z(6z0Xnp6L7pI^$Eg?5>cPF)iQfWGZv#ZCg_3jYnjrc66XRzqr)(Je}CdZz1z8a>#j
zxhw*%+9qD(Uugw&r2s-fvF}|ji)p0=p`M~yHgZshZbq9}L{I*q40TkXYrg)!$c2N%
zG()Og+nd_n+?fz2o>3y-7(iL%=6&BXddZDfIu!=WEh+*@HEQ&$DjTh3(NT;dG0o^l
z7y)C_XTKh#nl6@8&yB{l>0$Ni#%$q5?61XwY)OdYt_h%2jMOelP~h5k&<oG2&Acn<
z>i*P!_#hRC%Iuqc9gwUV!jAlFwo9d6<fol0836(khs@gDR8OhEDyAp&TMU|Z70Jv;
z*{8bvRg4JeQ;<r5X8o=&vm6Jr;APrF0GB^>@0hlr^DyA`BJ4X4ju$DVPTb@+(?W<p
zXb!a2L~j?v8)?P=vUnih`&c5plueXD4OUHIN#>38bAOW%9nLdmE*qHTpsS>JB9_l^
zt|fp#hr{;?|0r^2-(iv9i+dmYU;Odr*?*j@!}?c0IEmi7Yrpt|m6O#c(Ft`=680OY
zdhCOq6h|CJJcqZ3suSRYobLJ7Ht%!o{WdTdBi4vSB-vON8qL|emZC86t}qL)EoCq>
zc?(;w(yR3O$M1_xylMY{^=HqTj-5f%g_$V*)4lkc)~eriaLIKaHP<d9qN+9p4t*>D
zbN9|Nl{YcAUQz2JgXGe>SUdAt0j>XDm_j7a(ratwr_?2xHLSBu2HxTC<5=2e#CtxN
zGpw!K{+M%H081l>X*X7IrFGjmAW^$zalMDECUAk9viutXXJ_xX9mPs0M)?M9eE>l$
zL&g*8oDl}63C*W@G1m|(&?ny$&C38kxghl$@h2$G3R`Z7b>t#Md3_$FkHqS82_r_C
zGeOYg@2p=g(|i*XfH;Q4{;`IauKFbuzi|u$Uh4vhU#~0e`kv8i|E6~g3l1?ylq$4F
zAu<(O!_v>$mx97mP1m~H=LAbV`^OnEB4-+;{*A&km&}Z??zw>J8WV6+b`g*m7pc0D
z(Oezr?}I2Leik@6Awxhq>ZWy#&DgUQCk3N0%Ag0`ki`N)m^lL7G*x;BzTchBdH}3k
zu3A;j#X4U=d+-*ZqxSS!&ajP=pyBf8^hvH2B7W%%UTffsVCuUrz!;z?2ZW`Pt^t9C
z*bYIQ(Ha(PmtU{C?i*ok(8kD^_%H<TdYuxX8L?g5Y|zu`_vCv(wM<N(gx^I}qPOEi
z5&FzPvt^c*TPG;WIrqL`!usyR`|Fp^%qtBjd=LG+0M*IbSQ`r7CYM)<(5rH2*(N3x
z)2&4CO3ID+<Y|Su>Y_mY`<K(hh)K8^`}gjM;p4qnJ$-blr9pY9{no@KF@_-OkZH^i
zp_7L!9S+@Cxv@*2t@9P-;NdRtuAuWIkZ#c1x$)w<?ID+l$AU7h`)=szH>MNsz$s?n
zNS-Z1$9wzA((=Z!S)D55hFY2DGry_I9gD0C9OFPE_hsSwl{srW0isq94Z%i*Gqk4N
z!a`*&aD?aBp;wBfUW`9>31?{>#r9*O5O|9<6EOAp3>Yknn28@d=yxf|LNdI_qPe=&
z$i1OdF)Dz3@$)wsuq-M3u#k{px5AbkzhOI#fRi8}5=oc>Mdmik6Oc&k8A6iP(Olyj
zYja??f|)VqC22A*bLK-@J#TnHTiIu|!1l6h$DI@l1W@Qw)M@+pY%ImAUk$&#wmm6o
zd_8($x6oPnz%-DkOxR6+k*vwnF|#^$Rs|e#rN=feX6)IXgj=A<(z(wd9n-Zhpur_B
zJQjgO#A4pHbglkQtvpn1zP16%B-zNF{X^7f<$lzRyxeH`aVWE~8h&Olj#*DWv|GsC
zwi!EnX8nmh_SMqa;n_GA2J*8+e#?OmKf#jAdp4`UYgkaXlCHeM6sI!n)Cs2V_rvv<
z4?&US)%LX2>;f`|mkjbzY>jai7FaSx{tdan5bTy6@-tlrc_Mq}DVSO?lkoGjK+Sr$
z+dWsP=Ll5W9eh;sIrLT`tZV41kK)!lkfqsLSDNHhyb7UHURYqY2WzP!bV;pr$GV!~
zU-bfm5IRa**AXm*Rv(0AlawHhIlG>BO3!(~G^84o3eJ8mh?m@7Hs-yF8IvmPj{F&k
zRUs%L#v5lH_-2?O*_3f*$<;6Q0nr74m=Ww6hxAiY{C7fnHy#LzG%t%l->-@Mr{Uk^
z;b%$~{;-c_zGhNBCwjk-&NVDcY%3$Z2C18d^fv7-CuAb9ZA&Nl!ps4^>Ag^pH8Z6}
zidxTE@Z<(&&gce+-YQB`h%!a=0viP&dZ~OAn><YbQ#0>`iop!k2)mK782*UEAYEEn
z(OR*RVfm87@N9Z@tXKH*c=m-ZzJ-NatUU~N$(Vuop%x0-@i9<TYK~0g<o(t``0`Nr
z@rAV<64qN;;6cuk%=kY+5fb`v>*)7O1~LlYUCVzO{&(_dELjrD8WB#PU8=k)*w76F
zlGq`b3nKn{hzH^ws8k`!4RKkiZ2A+(o*@ADjy;NR^bH3s*4jaq*F(5e-tzMqFR<G6
zwX%#a-#7h@2N8O*`7^ecWhZiGC}8T(WWM@^jwA2fUT1>WGJ3e7h;6?fN34m`76l~1
zl8uQ)#Haj~j$ZsnZIt-+_}dK!th%PSHaDzT;~=_O$TUc9DLpE(XB68c*!5>WXEf~|
z5sE|C#oj=u*eln|6CNV4dIU{`!9NI%VA<R|K|{hR^OK*EVbsz@J^uW(rsp%yn;w=C
zQb3roLl5SkPX<t3Pxlr|S_NtlG?9w{pe)U#$*i(sQXA)g0vA|^<~NtM8UZ~M7@H0V
z2vq-Zj!X8;061<W{N#Dd2hCABXjO>DwXHeOs5-&gs%wUlK11-;A#mzJnV?aZ%dVW)
zdG9dwiEV<}LoOi}@w^>J2Zy`*8CvAlP#@;vXy{D@+2ldQWj-$j`+C(Cqnvsagj3BW
zhdq3HK8OV<MDbonpgW;R14FMmelDMoy+&o>bU1W;JlUgS^Z;b@?KUf(7eV$odsT7G
zk2-j|*SR}(;5GvARM+V{Lr82zR~CQ%1l^Nw$XL2<hLU7iOb{YTVatWS6N<#1Z4zYI
zALJcJu+_F1K?YNy)#j4p9O-tB`VGVBNr6g3e+5<xsZ`~?l`6oi5ZV!Ww=4zWQwNsM
zxo`R`#MM)Vj2u@WSd!!f5ztxnrUsdgJuCGfC00g6bx}bta$JK@KP>Yd$R+rGGi!#T
zMTFhzxdY{MD3tg;od0%u-}j%Er69hCN8f(=PXk|r|Fb;CK7|W~y){P~oM&vGTzT4#
zcZQaseMOaYbqT`X!=D`mf@6RvUx~lML6MT(DoBG@U-eR}TXBj8x&#23UtME?!JqjN
z*jXh$L9f-o_Bdd>N{X%4h#~%PNg%>fU<Bqw#CUK(cb&I{%e{*`>&84y@Sy;G!66Y%
z0YHC?1qy9tEKP(ykVAux^9#Cpv1^2Yq+0KZ?XNnS-vPN#5?LWYnXohwbzn-NUroT@
zYi9px_&0g*@$KXRFw?v)9?=hGf?D+m1E8m8zTZ*oyReTs?|eOE4umh5@c=KMEnaL!
z#-1f~BV)A))UF~yK&^NAK}4Hu+RQU>ie&xvQcSaiqOLk&2oZa7U{MeY-9AY5b-cdD
z1j!L5XO`2!YTvl7{kH)BJX7ciR3L!o#V>gonF>)Zvpa(b15Lsb;zU-R%pr@AD|Gs6
zDlgS?Z6mEdA`?Jdv~=omeuu0mAgtEcBZR83AZb8I2t~x|5ST6z?;pLR^6;56u=cgV
zYJ;6pa7uup;117A6#xiWob*{8g{`Nc7{v<DAVj88RKRS!rHhY%;@58QiZ)&6bZ>m?
zK%1M<O93{x?{>PYpCC4g0*P*9=#=I?!^oO;>bfBBko6X%NOZ+03)<Gj$wY8fCZZy4
z=W$&?OcY{HHst*&-I?c?`GGe-z&N1RauN*Wi@3{Ac5WlAn*%91MJalIQh#WDU92A*
z`10j8!o`^I4tRTkV4kW+EAywc!A{p|O?`Q)KEPZeBWKb;L9$jG)d+)y50}OJ--yZ?
zq>tp(cy_0_L{2>dug!z-=Ze3nD{OtrW6WPhx)@d5MR*2=6-j&bW}LD9y>g#~YuK$S
z9GeE(dI;j3E&c}JJUoTHp@i6GKYztCTiXgCH_g76PtCjGZ@xvajH_#ibnmILd6<_u
z^In%W1mvhGr>;&spHX(D57|TDFyQFp6=<s&BravOVFWg69yH?2JeE(%0=k!P%)^n3
zK>J$|$(a4Es6J}_YuB{jjS@?q1tK13HwRnjF4lC00Ocifg(gKC_C^xIAnf`_j>6Uk
z!2TJ@xF2XG;6sLAvpnm3ts@5IFe`5l)B|e;McE)&2bI|wp!g3Aqjorl=@Ps84!pJl
z5|^{uut&zeT7X9f2WtSAyP2OTx1wrPkS8vfz}bMszMQ?6^<X*9YB_~cuKvc^ux-)B
z#1PqLf*=pO%n`Lnq~GXDgxO3;L9e=8hUI)RJvDM$30#HyngeB4$G%*s3q`tUyy{~i
z$2YL+1JbuDj{S_>cE6Gh^zzDd&FEFbRBS!Y(Lq@jX5Z=7BDvI0<ZaB?YZ@HMNF&W;
zg$^1<?4LSsQHZOOQyOiIVJ*YI76YUo3w>~ffPm+RVvyVSu4F$OF6Ai^mR&L70l7#c
zZc!TYY~ofNA|^j{K-YS2X|N}2-c-H)e5PBp@A?s~Ae+LSTL@_Q(pV$Rg1sTG$>uBo
z40212x${51^&Kw&`6T~RWEnv&W4N9U%@q4wntf~laH2_wywA=!Pef2vQPnguwzPS>
z79{Rs;))zeo5@h#N7GYP)NOy=mJ^QLIJV*16y^@m{bS-rlEOUG*8^@$_;zO`1Js;z
zNp<L+V^4Nq(TUtUyhP9JJ@9DQ`sY%0^R;@7o_^CpoHl{i|IG;A4x$)7@@}m^#}=Ka
zR4%;u^-T+${Tj@KYNwSSZ?=>x2zf*@xS&Z$IpX!T+!BJA+1BWxsLu9%t->fOjFwoc
zH=iMN{&>LgpLYSy<cNEnR<j6sb9`3YsSp>3kUlRrV6%OpDBgwo7%p|Z^O)74tfydH
zL8CajMvIWC0^@p|`6vLHvmbEE_-Hi+Z~TiH?PJ5i3m{14=UV;s;HIN|NU1rLcsDEM
z7&12e9WO5L+^IMAR%#@S>g>_q&nP3m0U2i%ST=vbt&0H#8;!cO@Vf}vaIf_^+<Cgt
zvINc+76cp#%KEB=r^v;gJHJyXK!Sd*g&$1`{d)BB`35g&PfME;NY}_Ku}iu%nS{|K
z=qlHD78cB`x8pI+zyHXm{J-qU3gsw9#UjKNT7Mzff^m5>kHCTBwc!h>^+`~~^|dTe
zwP}bGf|5@D2u)7?I7Ul_HC6Kb4-PG(VNCQRkcr|J5fq<McgWZ*Bnq(v#^ufcHIlr#
zg6YlnpH`FG;NcG<=iZ&?Brj=jaz?~4{)M19?<l+hiujmTuT1z|xqI0f>GI-^2|^Qr
z)gjP9x@DD<4#Z(lcj<|Gp3$rW+ymhX9<W@?1`V2qkTqy^)t01+csHjnEkeImF6XaZ
ztGh76>`BvUb_{B+(vv&)D&-xh+w8E!G!$(-JleEVuVIF%9;Q^w8eM~%HZLhd5Z9vK
zionzqx3)!A2Oj#eB*~skty;P8(S=Y7qaaCyz6u@~_!fXwB3KXg`J7N>%_igH<1`3I
zF7xNMlrU0PNI4+%c~MxBC$^AZPJdSNd-y_y^@A#z07iEkc{u(nL>k`MudZs^JeOK#
zeJQv`oBhw#(<DAYx+&?iRZ5XTFAy)Y??@Y$reAmTMTpREBTSJej9#j7*c)L}>j<E1
z(x`X7*Z9}Mj2R2%O!<HtTferinLSDByNiL5wqAmG=`-rcytJ8NFmr*3$q?U@JZu;5
z|0;m%gKH$(FD%<DmALG%eskN_xn5V<eCU93rj8Ma5aozd>lQDs&$)@67OCySH2oKA
zccF-StKlU}D>ci4OpzchaEttG2v7Po{+YO0$fXRqUI}aVuBB)QB2#fI9i#(}8gv~C
z<bYaj5fVOI;hc_yw#9{^p+|$JfN*3YdO_;okmjb{^IP>B6RNoMwToU_>SbyAI<wDw
zhR5=U+hXOR9QTg9fXI9Sd+JNl=Ft3dmhDAf7e+doN%{mn_q()uNbJu~wgC)4L2+hv
za^WAX5Q`YFwolwqtf)^^i1$cbixwgEw3pn+$gs~|vp-2aOj(`IV!_+Z>(`<P!NM<#
z0<&fa-~lsUN9^sVtE!`j*=eCeoJYadh(f!bolnV)`u(sMFQM0*xxr%r3&s?ZH$>)+
z6qlB%65yg&ocG%oSmUUVf9lq`<+u^8W{ddtKniC93yMrNk2f5UE!tL2UmFZOt453P
zWs{e$EmT0=Sd6Cro;ii?AIk314jwP-6$Z;@oEzEM0`I8J{))TfBYm;*9(u!PYa84n
zdF<h$`5LN+D>~qS38*~4@C}uw8JpcMVrEv`XNU)!c@j8Q22W)7Psg?B5|Uzi<6oT9
z<QlYM>#z~YYfsZ>L!l{;yj`6gaen!*{%IWUR&xE)35l1N9%MQ;C=lRQU30Cc2^{2j
z``V_CmG@_Z^MuUTvJ@DlzHYlpqbD9!w_PI%ZLWm<VH6N}nVSUm|GZNd<h2!3dG({Y
zbmQPneAKu&fPC7@#&Ot&S%;i^j)-bTMi64A<&;-5Xltm48y|G~7r%&Z5Q%;!UV-q_
zLPd})i}CDsUcg+7&`(FPeNP^NnoZYoKxAaBnpZ}@f{#Mf4TQY)o;&gO8NA!gIX=Z^
ze_D~2{uEvsZ>rm#J))s7`!Ish3eBfreh()*NzjJAYJZN;`t#b7I^M-GZZK<5S7Ejf
z`_zgmkI$W10>^23)ghnVwgYVVBOE#^?lWo*6r!4Atq@SB<PvbISsmazXVd8WlS=SG
z^xT;NW#lEU3q5}DM#!5VJ@16%S|^G}S+SMqF36c%TAvMrIP7cZmYYIdgtCrw7oTt+
z99$FrB!P56oXhU%Cpoa{?aD(9n~#Y$tWVv@4({4?cDO~~K~_0DT(SstP5xsnxrsg9
z002N+bw5t;`ViM|0wlqt;k5~j#I(wkExpAiLjt`RvyTpL5ZILlA#UV{Ttr?@ol!Mp
zb~Q@!VFaO88QgJ;^JNw+J7$%9kd?Jz`O-0f3^!t6MS)-A8<~2~uUi4o_aWyp!a&=L
zxsWbOaRs~Op1V(o#-A_;4ru&J`Ub^*ssE&qJ~!_Es?o2B;#>7p#8neO?x8?u-aHQ2
zX(!G3&@G4h%+r_eNzJ|K($@aR*GQjRx$rJ#mN;@b$#q3kc_G9j1M&%bhk6tX*0tUd
zlf?4iN?v_|-b0?6k>qv_#&&{!Du=C_T{38DdO||z^<qRlTbPxv?70x&tKOi+v0yJ~
zERS{(v)f5*4?v@(t!hWZ`tPEREieJxQqI^S`r-M}YB$Gnj+`djq%TQns}~eu9unEZ
znZ87)zfku1HQ&BGRD<vkni4hqU1DeF<1Q?uTyH%er9o)lla}2qLYGG_zK=9+0IKdr
zOTQ5gcOJz)RrX;TdE^K50rG<WQ(jNfeTZ?2UdefCoM`rf=Cb5f3EP7DVa+EwcO!BZ
z{&A7?KPu0fOZzE3+BoYR)m^4ZVJos^dHvkPx=P>e!t$}Z<RWO!m^iua`Aq%1(#1X5
zr6Tm9PmoL*Fi`kRROXCcLhMG2>l1v_LrP!gDn0lA@qn^V!GvBf>*G7npsQ#8dQ<h_
zD@QhV2GAp-r1w3lSqAKuIWsrZuYO4m9PhfUcWo=(bC>Md%Y4HEearc17oQhSW?Qlv
zN9{$+F_1IG2lX3l<~UY7iGHqiqE62F)zPc<BR+Ox*U3dHuWRL+rj95tgkDALPD;zo
z6rtamukKz3>Bw4zhxUL$rn8p5270uRq>aHF5VMdCk->Zt9RBln;7Z7lDL{OyjGJ_6
zbIsw$0;5i0$QX0>YT@~7Tim+Xd{Q*w=CS`JU-giH8*9uPa5^~D_%^QO(}01c?763K
zZ!KxBn6NkJS)IOm=ecr6<KS0DqrfXhnp{TY&hgnGJLPz{hrze-5~cX10*$YsUty3!
z+wTZ|`ozZF&UavH&bjwn{mAVoL~nGeOwP<zWw~oW*-<HbF_Vn)DK@?gl@aVpZqM2U
zpC2i}anZvxovg;YuP9B!kJt^ZVhlM&jX|!LDT1XG1r)pVkp_AMYT_8@qE}Rb&p!H%
z!qH#Ip2Oxb#(A&xOAqctfOt7mg%Grod7kSQPtHtbBxf8z%~6e>LPtlVa}2ZbcVV&E
zy4XyOp22mT5q%i*7w|T5FAz+v258)OAfC!>U0(6F)TWN|vEo=I0^O@l{YEarzj9Uk
zy@X0{s-%1sq+AsrpS(8Y|2GisgT{|45lTN9hptyD(;?<@A1em-!=oN9HB_p=y^H))
z9f!N(Ml$*(dF#+de-cjAF3G{MH&v^PyqMCzJHx*I1(OkF-7UbdV6qi1jq6;c|6Av6
z1n)+a{Bf-eYR^8(aEyNNulmmQvDkL<!QXwY5%s6N=o+_W5`ACsvBGpQ_kXZA#~}Qe
zF~MF1hCS6UegOCl_uvUQIgtz<Qe|eRYky*9*#;~o4TbY6c%e(k*Rl*Y)`&aOogKR{
zq6(R)QfSbrvoFO{3UrFcuZ@s=h!wGJAudASo<Bt9<;~W+*#%9zG--;dgN<KT`>aUf
z2dmQbjThpr`MgvDxE0FBEq`ZTws-)ONUSJ@$mGpz^sGbDzvAx(g0sD%%ll2w@s9QM
zIRQKKF`&hUTDgHXIWHrsx?Ijq^kUD->Tf_r;ZDi6k5p<(+qhvbeu4WXA%w{Y|I6T0
z^z^)3DC?h$&lZk&|N0ZjG$eo>4A&woed67Y01T;`CYoU)R!&db=)TUuC^wO9^3g!l
zVByTI{k=)_WBk|4xp0^kbjd!+XKVD8y5nWCt&&32)t;E~Bg&Z?YVfVmw6!)v5P^4R
z3%dRd)<pgxU_+8zBu%4=&%MK%)itdxZmIxaPVktgr*agxN<ff-HTWuS=un22Y{9wU
zF+=3|*;&8-l7Ob?A+}!!m7+p3f|{-CqrVK|s5r+h0gMC#@tpxquUFJAhzxezd9AU?
zynm2avX-jiHF5r3cy3wfDYPZ~R^{}Vt*o&}@&(C?${mLYGJ9|vTEvfz-OhD|ic$_a
zmEgJ$Iq(d3@8Gj$0xl0nP|YxdBeIm6thfv6UloAkcJcR{oSjcgu9a7A5RvD$G&bHI
zEQooBGcv5-iBb-B5qf!wH3*y7u%o&ae$0Ggk#iG`rYO=}j^FBjNp4qsoK9>c$}Ir;
z96kP;!jDo_@HJ*3xu7?gu_aU*7_2>3Qa-e(*<_;gxm|AHY1EAsMX!Ps({t2txbH#a
zxdVF?B1I`X8nfqiE&}1E=0ag+#s#%s`=s{5IAMs($ZZRRs8VZ0kJqUQ^R<s@qZbDk
zum3H$x)krYT!@HOo;{cqqtJR8;anU$MR~E-7JG((FE%r1L+77$*6KI%jOke1WTpLK
zwVXNAY^BzYgY`s?&w;kQ5vic9dx)n_PhQMYb7n%7rx&RDT+eT(l#M^<znCF|jWX)s
z>UR}xwDkoG659XEQpNvomy=bn1P)iy4HzKbVfvfSi(-(mHC@q3jB4#M5$%F!(Pj?U
z*9w&vc3y>F&NfX_98F(i@5J`j3WbfmZUPRlm*J<lBA=J}2P_6}*6FQZwlK)N^Tpf4
z)PP>62d+ihV|N<-CNQ&UWB#wylTr20v?V^p2jFjdVx-@l0$W(DMSyWHX4XLZh`j8X
zPO#ha8MW+12f_v{*w_KuC(VE_laS+>=53nxZr_iu(>#Hx2FthcDXfuR1lFJ=h#NWs
z+{keEhU*f(JRut@M(%LzqINDPrcF>()+vo5m}>zIgu6ss1X{VFx$+a$#IGX4f#+A$
zUkv&^V~iW}Y-s?~S<lu8_^|W}WN9%v&{v?gEDC)VC65~nun2MMiN+VtI*f%SZE*U6
z(|II@Y)tzNLwsvWw2=0B{Bz+CiN=!k;}^kk7{aeYuV?-M4-DSvZs@cIu)|6Ih;XL?
zi14C)77x{Yo^eK|zRGOv;T{?uM8HJ%#!Kt&PtXcp5pmC<PH;GnL82+QcHX4VvYw50
zHKl2$r4*j5V)zxAYafEQab)w)T?>J|f7Gnd8gt`lglW&*T4g&Y!fcIKoM*VV-n~fX
zn6^UH<)AGHa=YT4!&t-fnbhdsAoIHBKf>LpoEU$E==smUS!~TAqUokZnX0j0@?2cA
zJ+nyJhnu2#Ww&Z}<|!%f%KqZq%-7AcU5-YJZ++W&&pfRW$26&{i1~#taUb4gk?&P+
zKuR%<Cron#Gj<m4k$y@ga%DN4Zmy6@{$1af-b8gFo$G7a8^{x#;|*(Aj@Pyby(}Bo
zTw<*JUQ~sLw?>c@b>+S4isTfd;D|!$BXiMX2B!$p){1sxFJ|<?1(`FGwzQU82xH4N
z2FPAPSD!GU)Y|`eB+$;6Q!Y;e?$?xTyL$V(Dr(VseJF5`n{_ZlxQZkdZwC!MrJ%g|
z739Mx;5`GWn}u}3nxcNC^GM!NpF(D@JjNigKEF~9fS2=tsyDm2G+B$Ynr0Ned3;rD
zEF7OUQ*9l0V(eqgb^?g!s2ty}L9;}7o*tBB?SDXwJ;f!>Z-6*JC6IW2E4r$guBNL>
zpescM_3YqOyjq^{Zb*_hsw9IhwRR%6gL|%o&9QFl8J1K}XckplR6q?$ZE|K~LFgvM
ztw&TgUZ23SR>X}Jgka&JJ$Kw6x;<npV~VJAs9~~F?sDq%=5==UV9oEd-m`|mg&?3x
ze+*o8J;b*sZf*1bsqW1GlFa%(UUxI~c-xHk=(JcaQ=x`hrlqE)%(NLQlDOr*h5Jgm
zfFh0FjWv-LiyMgDDVqD38o82bnYfjjs0dg}rlu&0hzLBF^SoZqU-10$@bksF&g)#C
z^F7~lKJV*$t>;*&Rd-`v=ZjBcH(D&{Y91eprm>Oqj*zHl0JQPUMXdTtOx*SsDE?{~
z_a8NCFcLVvd8xv4(devpx(6hNYF>)F$$};HC3d{X0@y#kdbIH(OnPVxqV*FWd?~mU
zO`kd+q6=w5q+ibf5~6}pz}c{tUDUuD6+{!7YQO<2SxwUM#76Y1do5KAwQ7V=OiW9_
z&nY4t2;q-DZhgwyJDM1ntD8)_@OH~U@6+>jYHN;^N{($hp3AANr~Oulv0Yqf^+BZH
zI9$%W5Ovws<VZ=jD^bhzuGn`m{Y(V2X6xM@lu;bt0eX1sz#1XJz^keRZt+pK#~oY4
zGkyBaxXnP}>+lckb?v-TkQ1&!#7uqY5;qK~+R*hxS1*4TCthQnjr@BwKCr$MzE~gn
z1*5n#7wv4d2Wcv(E-NkgPFU_b=yqgIRaiGV{w1p?Tu2}_#Om0Dra>T2mh?5+M*Q=j
zFv4_AiOIPS48p2LTXFB#+2!G-)u`xOw$P_X%c$-a%WHfyPzQNYzIsfoMIzju;I-mn
z|1hv2qV~5`dMch)V|jn(Ro`oHhPBfY#oQQ8lMjsBM@iFM0;){-QtV4ZHC-bvdI4rL
zHQmQNHY3@T9-xJA?RR_&T^ajmK(WrvUhH-#Qqy&Lu_WoH2wK9BbxEy;NGgX8pl>NT
z&qz$AVGg@!noCND$kKlh152H`cfmA_)vf0kfbwvpPL+tLbjP15*H%t*fs?x@Bu9fo
z2=#w5dPTF{1?CKNC_$z_!DN5wfTr8ZONWEE0wN_Kw70`>u&aY;-oxngQPPD-vrd~O
zKm{N`1zS5R(1dih-sU`>opqpa5c*47!+)Z>25)P9EVp!D&<tzqzH1yX2e>9+<ja3A
zEIv28FOJ%?;1kns0u{X{b&o}=OdaxMDPG@8fmf5{BOj_P-zOW2@eV)3f{)bAVPwk`
zk5LI6y8P%S(;rL0B=SuKJspt4*M|Z;7hax2KFd0hx@x=*$j1Rvtv^{-Pa^`cdY<73
zY}*RJb?hK;*rG{$c9y>MAqY}ADl01t_BUI|zaCZ`y>P?2HuCuT!4s?(QrgQ$3g7P?
zvGbkaFq}#0eop+HG2b#b78uqlm9KJ7bld%e<thlGR;vsECBi>Ms_;0T3Wm3O!u*3F
zuX)_37{kugt9x<x#|zCK$Pp7IQITt{;D9!dTS8ySgYhR`eUbr@3BIbvenf>AQQKFl
z4_m2a{H>*4^){P7Mw_gVuV2%j$N7g)dS^Av-Eoc07MaA|s!)GdaH_wD@~3bCrZ{hr
zR{wI?lq`w^B!CGOoDUhVEi1g{<J3O$ZwvWO5aMC3VAYN^UEHJPQ!!)jh20+3qdafJ
z@ngwmiFI?OvQF=<CD02x9&KX`W{g3{u4-#6d?UiN9eczN9k3;D`(xK^SG!p=hsr<-
z&jzbr1J6bq=M2eO`}5+%D=8W(yoLAYOVW3+)3WfU?}Qgw$l(Xg%bQ92JXp#gffA;d
zVvqg(JRPyoT{zh$f3$IMSeF)T+UscFE&0=7V#WjAHvgUQ92<!s>Zh<dhYG*?^xjnA
z@pV6Z5gQ`w2Bv#67o1l*Y7h$W305rB$|vr|KW+*zkU;!lLi+3A>#spz6)xROX%X69
zWp(okJ_`uH<id1YHYd3%jN5^^?APTs)Z%|Cs1+e5h?u^D)fV=xb`@TNYzegNRiWfn
zUEsN8Fb3@=M(Y8EvcqJD1)MZ^T9{yUU-q-by+)t4$kVpZ5J~Sp?t=l3zW6sCKY;f<
z`r5lkW6vG&4JYYm0*FaL-CrUs6!;6{&Sx8$VXm$KP(~K)pO#PxUsJRhOsI2PuCu6z
zeyku1g7T&;gLq@~!H)M=`3|fJVV5sK;UuKE4mMK%SU4nhkxx&8Osb}s!h51rz(46f
z@9*nn7x8NW(WtNP@byqFBjQ{u+lB1_>!2mBa~I-O>$F_hXB;6SKkBERLcO_id;ztZ
zHdP%NrR!$~WfpbMlLgj8M|9~Gc2-MEZt_oaJsNh&lfwHsU*%lNtm}z|mNS`Ir@aQS
zhJ8xY&b6_{FtUK+T<>>hkU0JQlT%7xuiETRNd}J(FHft88)hRq;(xdWu*J;Z=?gIp
zExftxlc{JVdX!$8$O&IGg9e0`#K~`8Dazd0cSrxQl>HpH#aW}0K<`c}-Mu=x?mg$j
zPy_k(Y5Kh%+XWCG!Rp<016-RiQmenICFzYkX7O27<vj3|u*uBzEX2!`di9M5Wu;D&
zWKu&VLlSF)Vfc|b%dD7rhsQ2N^B46w9<brKJmb=8_8M_JmCyiq0}v)6eRQ)vG2%Jg
zIn~BpqYZNOMr7hh8vMd9@(@;qW}OK(8gJ&9tN(dBl%<wAg7BLwDH}ii>l{Efyw6o7
zr2U7nJ;mdPj4<79+2)C}qo_B>pP59#8k-r<+svSi2<|E@xTK~JwA%E6;jHTif{KVN
z(YcOab=|yll0(;34f{$4-`S*Q+^7W(j(MUO6u0kBA<67_zy~YlQJPv&Z{$a7y(3XD
zCT(%4^<x5xX?4{vvs#Oiq+HjyFDnBva$|jr7<wh@*qCo6?!<LYDgIQdH!Esu7$kvf
zdSV1yakUr1noLtD?{5}UH<Bu8Xy&cgbI!nQeZ>-~^@Lk`rGL{61yX~LK04>T0$eNW
zpj=4hu6}cX%b9GvEnV|-RfjRztvFa=^X&s)CSLZwiyRIN3akh{_tOkbB_t&ZDOK~l
z;GtcP5o}HqCn>Y3WLekSFTU`jGvT)=b?%;@eXF2bOP$b;qR_4D+!mfemCD<Q0O)XI
z0%O3>sE<e$`(#CCV0%cMy<gAm+;v?D#Kp}S(9pM2%DPb-f4w*7g|f_0W#|Ssv>#<z
zVGPHph`il~B3qa8hbm}G*7F6~B~+q9@Cgo6n$7JYUU<RS?ybg#|6Zx)o(r$|Pshy-
z{~>Z^-dxU+AA|E3Fp6Xc^>~7h-=*OGj5&~1H6zV~z;~X=QFF2iNp{^@#HOgO4q%F@
zmlK1VPVCE#3=o^^CTBEI@TUo-kRPS+R7ON4tr^Gr-ySy_$s6YVA1UbVaj^!}W;g9T
zAtr>RYwly!u&D24mp=Q8+B0Lg_5JseSFyAynnKN@=cZIJl}Wwsr5N+hIPyuaoykF*
zPJ|P(+;nhg*pi!pOABtHU^Mn%z)+?3JdhpcHyLO#$|3!4Y#Y)x?|O~SN-F8l#U%Y^
zKZ05*=nA8J`<l1y(T%_Gb+!3n?QrMM3oOxq_k-ZZsu3KH=~!!1F%y{{bNg|$v*;yH
zbksmCidzX4pY;jXebN9>vf&(-$-m}qN|6KALv#T7(s4<OA{ba4RvnPl{FI|xh}sB1
zs9y@Jt}lwb7(q=?uOb@Sp)OAh%;)qKfr^iwErX_=mY)^p>L+cl@%ToBw2rc*^!!;P
zvP{>>HY|5=a<Lhaco-j6T|#3>6tNDXdx@hXB&Z~_X`HH<s4X7)n&1!DSxs>@9l{iA
zv3ct~*|p9(K<!sobvbkbvTXBoTWsc^A=zAKO9RFZPPVw!UDizYMejP^srsv|gDfD{
zv>jh^eqkQ>q8t(>u{BHa5Z@*Bmj9@;a-O?V2D0Cu675Q0(3Mi5?pa>{VkUJ&mP)}Z
zoV;M0?Z*Vh%-<BpkryjKfMuG@{+S!k)<+}bq&nakoQdC;ZIP2*t?-uzUbJu4c1Toj
zf&l{nbQtSIkz?qR*tY_6;O$z&cJ(TBI|eD$){NUfIRLJc4zS0+l<H5YjRnVT$yaMN
z)AiT1iESx(Ysx+Jm~0kg=jGMm66J#Tzz*;qcZNBeXv=z5S9S((JMdvbO^>Z%UzB{e
zdf+7hm3tEN0IX6$U)`fjN=eXf%r`4rC79?pCvQPBYQWI)96j{b?Mo%Q_kpA?gsd`%
zZ`T)6f+>U}QxcTPMKRd_Ae6euO`s4lT<J81b?tarOijNCq-GbFZRd+!D4?97O^rRU
z%0ewEpDbXM`-kbHFA5YzL@H%g3|*G&g97;Q-rYOj2q1|{Si>M!)pi*JCL)nyq&UJ9
z5X2icF&^?Wy?oDQoLR3ALj6z2urns5)MIE42v<0p>{&5~2jND1cvMm5^kV8zMfRbN
z0EY}k1bD_ld8^EFuMh-e7{>b2@Hpu-sMuMPlQMs}!>acovF&6pyQjM0{{Lv&l`ODn
zI`}5M7$(A{_SuVbaeDHz@r=^_^Q+AugNH8si(4UgndT$PdhD@YIi@e{=K2Is)a}*J
zSSx|!>tMnnz$!v2M%Nx46C_Dk`>jue`_O4Q_z%l5hJxaAbPK*87_#s{A~!<r^GiqH
z(0d!icrXmf#F!#|nO;75P&XMblK6g<`*;4aqHvE{Yk=AjKXA~dNJLlARq;GXI<PxY
zxXk4>Jl%EyhuwXs!4D=Rmlbbnz2MEXjb)}KU7-~F+xwMVuogJ=C$O2A)G<SGlN6IZ
zlFZPPE?Bco!O%)L{QA&vOcQh;<;D<nBeQ9PW3xXzq=^G87j<>VzUa+pX)G-KoqQz*
z(mNPACpjCbpKH$Y5|H);X6+Oth};tEk4|fnD9M$=`qW_|qy#9}c%2V365FQYH+DaZ
z-)pj~pXo@PGLS>#J#Klh@@DH`ddCankq+w9OnZ{73xxB$l&b4!bs~*k)6QW*af6P~
z#$xNM+##5zMNoq6?(9!`M$62`&KJBQ!Y<j@XBh`POYuRiljI+Ew6NsdJhkP%SUopM
zI;KO*T^(Ep{L!2{BQ0%d!}7pW9pqU_&q>KNo)KqxV69rxo8U(l9nljQ&kme=YsOM@
z)wgetzE)ra7$Ft0YuZ($)ayba4aCnslMS1f6uU5ftDB2+%jH`J$#xy30k~oGex(8O
zBz~?eP0Aw@E^Gy|4vqWJsht2G;EW1p9TF&uP|aI3(tXu{T(e~XUoB<1bVI+{(*ZG$
z1w+*F4zG%e&9c985pPxP+7I!`;IIh0vp_uX%y#kAuIybgB5r$jE%`k{ZOncGpZ&<x
z6X4%fx%y|_BBUKh;)he$S?w0RgS*88K%5&khti0%??}f2?Q#kCCMlw>kwb)ScLxZD
z`v|j9hF`>7V{NtwokS4uVvDU_g18ct3`aG9bO+bfvjER?>~jowX0qcPeaJXw4qmqX
zU-1AyR=7IW+PgCevZEsK%Q4`t%KqnZ<@f{Jr6A>Fk=<Xmf*UA@tu9L~AN1h&&9!tR
z8y;EI#cH%|l1M1vOPrm9KK$)PV`iiFFJOa<MR};`&G^3hQM&bLufj;j=Ba30UasXy
z(DIB>{(h=)=cSF?qm*H|p%xcq{3=?yw4S48->B7x(JoN5R9j?=Le8F-+Wa8=+JsH=
zMeg5eeg5sd!MTnp;PP)1RE1ZYNvu__7}(Zq_YbcwS5%RtX~KHAlWDD9R+%m*6IghF
zKYh)=OPXC~kH8J7z)Ah9eoP?CG&q^C$2%KoF4IHDIZ*BCcugv4X6hI?B)yodsE<va
zw7Qg>4{^M|w0=Hy=e35zpDjn=D7U!sa?qt+9^Tgqy5l^CK66c~blH2kI-}0{d$bG9
zRDgMC)AV=U$TKq@jw}9@*@H2AzyIsU8T}MSc~S2O(9o_(SJ;X_Y4((9{gL-rdwsMM
z0p}ztBHdi3kyQG4MYE5=_XBsX`+xAeqh#8i2kmt9U+c;yqv-#GF0ZJdFu4KmIdxxm
P8iQVOzFd1TFyp@gtc7c!

literal 26346
zcmeFXcT|&U*Efo7&{4$lj0gyfW5iJu6a=KkGK!%pEg&T*0@4)>p#`wP%+NG6rP^o-
z5PAtDpeRge5g`PDBp@Y_kVL^GLP+x63G=+)yl0(r{`l58=UeNn=Uz*J>%Q)*>}&7e
z{_VZ5Kd#tXDEz4Mqnw<a0_5^<_HuGtBIV>Z-PrmA&@!I=;tTNOhZ|NFzX3miXXQd`
zJn&=N?aQv=a&l@((tjJ$XTSQ$$^9$``R$xzWd0&Gsx1iW!4Q%9P0w!Ky!Yo*5C3|+
zx#sFkRLiS`zTGGP{CMKSsQK?7&nJ(4d+_tl=jV5gZTNcb>V^&DiTgZl&SyT8)BWSL
z!^Vvp4}N$ocmA(PVY-K)<^8N<!4xN)Ic&xiuo_^l4T7;iiEV*HRyYAc9@`>Y+kgK1
ze@6n<6P^wpEpH<@za)Pi|8BlP&WiQ;q7pEdeDwwN1?Xt|NArE%f^Bjx*W^#&)|X&#
zsbjnJx9ZoM+hi?Pmj7;;xTzo~XFx(Kc>piu4L0b=Ra@_@;#?7V!AqIh<kTa=_G=#Y
z9*)TRRWIHYaT;5-Y+UN7_|%=XlMEqO5x+~W;9H~FH`l1bue^$zP`H2zcJ_0&fJ$8O
z_0e~DSiON33*IQxlgz`UL*t>Mc(OeIRpDNY5Q@kTI$~%_FT&8S;ftf4c(bDBF5mGG
z(!wQo>=Z*RkLF?stvFk_KQE2h#w3&9ySY<*$DOFpryAm}byASmIs=z3k!#3g1#rAZ
z(04*U)Z+@$djl_|xIZ>HgdB51y5k4=)Lo8?w2lapzUTB#a`(t7&SA15b~-Tf0(|zz
z@s^Bf3%k`m9Br0N<ts0npaoU-3@uD2<*FY!7%iyO<$UA+nYb$q6D(kS)5i=q<#L0*
zcRy^1(-4<TY5Z!?o9ed0YN<WA)jb(jct<Sp-@2>R43~<ZLqJJoY3|-O*t}C+bkcl#
zU>D`K53k;-inpZ9zz3%`gzy8ywP=AG<m3|6=8guN&bV65-@eRyDcUcY7}*EH!@E}E
zVQPaXF?UZ;T17Y8xVN6ZX~_<!O^k8cZ(rfXsK%-jJgGhkl>I{y@wODz1DqPns!m{q
zH=W(%)J21Z=G~zxVW%cM6wYxh8IpFbZ}g%B1cLW0k-HFJu;<GFZcfj+WhB1n4$TB=
z6sqN!mnZU+YRTf+(uVkZodGX8&neU$7YJ0il{?*L1E2kLiGb(ze_R7AXt+t<83)Gx
zb&SUjc<RyIPI|8fZ5eplC=AC9CJ45$D!ik|7ZU_=dQ~wt7s|{@g1$2dL?>#KaEvZp
z!ILh<&rQaY)ITY6zU`Eaz?3G#8jWF(zjP~TTm;u2TszZz@VT&%c?Zd|SmYY{trZoX
z5?^Zct6Xa6`|*%rZSc&Y;i7BB1d9P9fdW}sp{_s?O~73Lfn|wow^wWEY3Qn@77e9t
zZd0U^u-<i>Xq{*+Uw2^~CO>8%Wtn#Bm8391kgTAW8%jTU2ti_rpEGd^y+Li>U8Aj-
zBA4Q-Q=4d|m0^{@2yS1;CKd(PfF*h*ty<I7&%{<8yyeoLih)&dOsBu|RDIP3ezf%@
z@5(+fu`55{1%KOCLM4}nGhI)l#Ik0h<@GDLs}G%4xgpJOhA(J}6wzXv3%~1OB-``?
zOnh}mEE#Q$S$=2LKQ1-|ke)4@rudtHOB=+KUyS>A+6jW}%0tFz9qcd6eF|U}EOdDj
z4NWh&I^NdsNYS59;U_3FOrPTrfiTY*o?ch`?X2+b9g#)2o`w<CFCpZ>a6S6EdIdQD
zzVzftSNufER|HhYKcf0;g%Lx<$!GO%Kco}1b&=0&XXMwl;<|ri<eQaBsD8r+p_<EW
z`qrV~>HLOR_xK&-D@K((`K0A+(09uV)h48?<j~5Geme|9BMRz5=HX4sB5V+E)@Fp6
zVgyfBen;9KSyXG8%2J4I`rOd+iQ51Ouw$n|AYcjleGwBHMfs=roW%5>NnyWT__g6<
z6!dgV<5b(pr6j-n<vt@u8=}j|FgJYQ5b)<$Wf9Eql|)@WbTUw7C?d`_Q1oW%QFvAO
zTt4gg+a$M^fuj6DNwMB4IObjM&Z0Z1RI&#n-_W;1sD&ABrX?USfMTxziXHT_A$EA1
zoYxbYfwyECjn#js5r0*5zSE+`E-1Kt`T%Y5)8o)kmvne`s53VI&SEvQS>HV#7Ft*%
zDPrU=%j@yu{RfP?tE#zQe05HI1v65dI)ggwNM|B)oCc^t$+5PEpQ{s})o886V(3qU
zF`}^)k)7vt`V(?GX<lM6o#{Y!3Qwa3y<_!-vw!yvo(&AI1I$0cW-k6OxsC|I5zGN_
z!}YGoaFr3snl(JCGxZ)JbRY_lL(qwHV-;Vj6IJ(Ab{8uImR8;Lto}|=7Gj@;4_LNK
z`eU>U=_lQyXc0>(;oLKR6a9_zjJt<IOc|qED!vXON3g&a3>2p5^&0tuf<u)A^AH8n
z*I?Cbrzl9L0$JNXvXU!YKGTb+nlkp@uQy5U0qhbF*kztI;3R?&*jvFHKGb)jyPdiI
zTLaTQUyv%`=L5HDJBNSG_g>CMxDea0p`Kp6_sT+w(1g~;`20K(9>fT)>ua5w@OAqZ
zj@!LVP}HE^XJILZXmG)uMGHaH+CycLZ~sQx^m8WI;NcP%6W1R7+l8}Hv7KQ@hrr45
zBxTlLPE`$R|5HqwlUw8(TQL}u)57UaObfKry0c+oTb$Wke~CM{fpCg3+V&{{+Be$n
z5!Y=JaF1esrD%vf7p2Dsm*cSyyz}sJUn*QX^i3Jq0GGGdD|}8izHNKlGAEC9^C_mx
zMIf<T<eaCJoaDTe-A8Uecs&l)33AzlFdGQ^KKi{LJFw8s?e2x@a;Lv7k8nMRFTv50
ztSzv3z2mD!)Ze4%Np8WeKe3k6$$rq$_#5zEi13`=0P^bcgYQL^>djw2?whN2N{go$
zca1Rt>9+k_y2mpRP%!nRaPgADxp&@ZhC#)w5or@YYHh^`$!$rz#xZ7$mX6#ON9b}}
zzCTG+j#B+J_h>S<6__xo$;|H(rz$SItEMP-O#mjHF%RU2D#Vwr@$;wKC#pwyFER)*
zadSHXEpcuU=X)nP`&D>XT*Mo6#{zpbc$T0f=W?l4HKh7mW1?$9`;`J(wI<_;Z+`eV
zQa!%zQy`mGxuUTR+-4lpRfEaJr?Dd77wax8xEglfh=raOG6e6K95<KV=(eCPaZ%vY
z_pKjO21w2tPxa>hP++mDW{BiEl{jB4$IUO0Wb7Bzs_MzoG727u61X$q`$S_0rt$ma
zMsIHPl$$)e^xl_V?_WIWN89m+(PzYm<%v!$(nG~6*l}_N<8w`=qzhsJZ70OfF1nEN
z!x!W0SC<YZIk%toGztv!=QU|9f^pIPDdB~KYd)vb^1>H+fTj5i)YOQ$%0e!+CvZZ2
zuzK-LbZ|FiE*b#E1RIb{n~Jb;WexPF^K*c42R%aS6zC1SQt{P{^NRtG#GdD^B_<%U
z!R{AQ#|N$4jGmg`4GU^ewQ%w%oqDyL<D9OFtyi0!CF|>@d9+_QVC==@)e8_S7gX-k
zEu4x%w%Rp~ar;K&la+-qLQkXwI7vm|PbyQ#Ss7s+T2v!>p13R8Zh!o39-b`3<b_Nc
zyYa>*`qsUTys$IzSsc_^r!217xaGR$SfM@y;Y7bG>W0v>8ijrPC11k_T)7bg$6&o~
ze)$4H_&`)gKC9s5bbjYt{_;a3N_1cTviZa=v3nDqBz&Q;;X6|Ge#3&8g&&-_BqcL&
z)iQ4PoO|Gj@vQJJ+HrZqiCsY_c%pulE|ZFb^MyQ~*>mHtkAg3Wvp;Hk&f=Eub5moB
zI1OD`MCG^%!#(gHgyBle`6SUN?GXO)rU&S7i{>tQ)%zt;jWPRMFb88*4^`~>veRJC
z0S?;Jlo5>yPTm@c5%;RF^7J<$V2p}8Z3}F}xdW;ulV;7U6UM9<n>u>v+?M}xy<QnE
zFE_}Y`QY(s*RTDnqrwJ-d-Mv`i<R&5FeU~QyZoQAtJFP3O&67FJJ}&FA=h_Xomfm)
z!oDCClTAj>(6Fb4mwwlZa^=;-ztLfo(?Z{5EhDTkW~JAzuXYEvpDe@RUjTL3c@rD#
zvb<CTT|hYTeos_AT{(gn%R$RS1r-Fsz17B7f#@PkhzCA!6C?il)bx1Wh^J3*Rb}C|
zf@>nG@qkIwD#xb$7QCoZ+ohNk+Q84-6<3F|=>$Kon9FBA2}U-5&rZxkBg3=ebSgOX
zFP?Q*$5$F!Mu7A7+IygO9^gUFU%w}&dlVUb3K`lJO|8Fv;;&b#=6lv=nQs$|_Y7cZ
zjvloGfq0}Yzg*!Bo2}|QS2+A-_kxwm{VarG?C|OX1wGcz-!uZgkEMsYI4lp4+2|qF
z!sSqdhejHKThp{}MS2qIf4`yVC7GxuEGnqnf2VQlyLl|4Gqp}T`1>u%ih{<JWcWtU
znnV<RVbriUI`n>oD?B|ByK)4hhtX5<?Tv3<9cPlpRgY`m*x1Wbr6tGJuRclS4#Lst
zP;8awaI>NMcm-w7nIL0zfYbj!f8@~~$=XuhdtLCm_ljBs(o`UgULNd|#vs6>dI&fU
z;Bm1B(BVIioQt}JBc(jz1a6m97zqWOW@ZIb30;R#t@^;2WY&=V(9{feE)!0sHkDY*
z1Xf~JgTKfA#$R?o?!?fHUeOELB+P@xiU8RNYMeX$ioqJE7X)veR@t8lYaTUhlD=4U
zq4>MpxNdhwNMth5-B2Z4zQ?r!V=|+k+^_1(R6lJL5l2^9Qg3<$llAXN`?i;@-~;|p
zy`xh-$(j4qxRKGGRB>|P4Y{?nD|&b?Yln2$vt+F?)t;)m8TI3WO1*G^(pQ++@nXnj
zPEztOXXQtExqWnlc92WR3+7X1pzr|rB`%iv6^_P|_6Op)rI@@l$LW9&H?!J1A)JW2
za7*4(ChXFFMLD_b_lnK}*xlWSR&Ky;>8njUOh|Z)h9}U_@;W+%*MCuIV+TJxD#njG
z@Z&H700jaPtB&c=kBp+ny=oFs#gW@t@^T66NrzNP4DXkwx-Mk2%lV?<uizx_5XA$6
zg$<)BT9v$>=Bj|FQEnF^TVsl*g+Ji5c&_DKeIaZt*Q_Plt<$(e$U3NC<>Y?mtqTxx
zTBo6-hhM3apIE53%wIED<YD8HN}iF|Z3yZS^{>$CqInC%yWJKQBZzTh!9=+5dpFoK
zuH@d~!;{ol4NQokzXs*Y)e?WoIOD4&(wQlIBGL)&H+M1%eO+T4vNf_P><3*rxgb@=
z*vU;M{84WukFG@Iw^tg}y<g5dDaL(y(8_^hTjzBR7B6V5eke>(@;aJYQ*vzC<0RSB
zKlr5{K)#+E0f8xnSET^mEIoh&yEeDwaog=0B-J?H@U)w=PHw&A))JlJbfoI!z_yHK
z!S}qHA7x#$GZGNX_?GKaD=H()D_*=m67_F^uc-~4R2BR|&dM+^DvK+}iEhT&^N0Z?
zKTmDU03F2yVqCd|;9eDAk}+l+SvaOzMh{|s*C&4>&yww&bSigZ3XS~wGy<EWRHf^w
ze(>x~tG@Y_0#Cf(Baz?fzJbbUS6&e#CETaexQ&tKt|9C7uy2xTtbrl48#m(4@v@j!
zTHj(Kcu?{oOe>Io(5Rxhh=Mz<VbZ>G8@L<Y4L;4S1TE*>k~LKSwywdod%nn&@c2<6
z^#ME`sQ)xb<?#Q#JVFRZoWZVYb@S(?^CxUd1~kpAZZ(;yMeaq9Gos|B&6j?@HE|8>
zjK|<!N1umxzR#AO;&HtV+#3_sfW^NDK+p{HK*?1GmDRC82+z_c!?<-^bFwPh3RCKQ
zBm{m{I#Ng2o-ZMlO;AN_6-*SwTPgRZR2F(7OQJ2{5@vO!wrl_w^`zst1T|(YQxOfW
zAhfT(Pn<-gn>b_3tI&l|(N*~1KFS$(D>}(w0K9b~ZV5J}AB1N?(<{=h-931yxg^?$
zM|4^h-GVbqpmqA<7ptuom1_DYp05&jrW7q;RO3p(4fE$+%BEG~O48k>pWvdScsj}2
zn*mmQWYVL8st{i-xdjjEv>A<SzzxoPe?iXB98W^~IZEnQyY^95@-kGq?{@t)y#W&w
z%L`1_zVREPLfwGzeL-RB?Y+-`CO#G~0n{kf^u_h4SDW4o4A-<f26*q7?Z<Jy@1`~$
zto{LDAKN0E(tA~WnS|#!j|*icA`6-_xmS}7E-!>3y^;fBE_Lqsd@5u!!naeST0{Bz
zaW7<AIgTA1I=)a^M35rf=VTpDYG|xCndiI^ZB14Px&43>UL*{PaLr?8VPk!uFeGnE
zp(t+G7Y^K-EQsR@BF6knPvEi@gcA&NN*?W7$u*H*?k4&vC%OPhr&NZ(F&8Pd*NayA
z{Gxl^X!da>8{`@vCLn~LJn*fnUzvV@^DA{SEMzWgXpUE%KrcKXJ6uv><tHWx@(!iS
zR}86fBfAI8g^L$+YOZsmNHP4)ZGmBHU%LgP-R2R?KaOq0#_=$%t4s`lo{eyZ3B4uB
zEQofK!)AMMqbUGrqH(<*oR6-41r1Upy}w<1bT0rD)mtWR2FD03dEMkc6zZa32JI$N
zU8>I58ky6{VdBY$RLq(DA+n#+wcWB8w>Q#em&wdWWQ6v*_x7sU+}0Z?cqz-r%I&lI
zcOG`9>)j0|9aId!jAVFp=F8SdL%PY|l<2ls?caFyA9(uT3fJWqfD_U4z#6|8b3zhU
zdv5efots>vs$OJMjtBVykmJsA(x^1o^^bpzqkp!P!BeB^2JW0mTQv1%j5t3|9x8dY
z%3==xltxEK2lGD1(xoFLY<}c6H9$scj>|K?2`iazgp0x}ymrAS0T&HZsWg`M@$%mW
z=)||$A478o8Sj`%rRtJ%@Vjspvla6S&9GII^fQ}x2d?|+#{ha#z0sltWn^3sTGT`)
zIn$qxA)<KO$y%j+v!G0-Y}R5a>1fIifSJD{Axp>Fb^R(zts69Ir~Z_^-t_ihvbLA}
znY(B_W(<G6h+7Z<JL6YjXWh^qAOGjI(!DC@=TC{xO^#$p)J*~MQ#~|+G4>g}m@<PW
zgSBy6_i_4|GZ&Rkp#+W^E_Zj!bqpMmk{m3-@1uFu>gOMkX-@-S`hFFGC1Vsi2{$q=
zK-XEQFSlB#E6VM>Tj~_wKL5+5Zw-m`)HxBS^B#MIyds4-nE&@@1mA`<IXQ0t#0iup
z!%4gyFGuTJ%k$MY5Med*Pi1c#(hr2lOy<a(039Ek@7jbY8z|FOxqe)36q1H926$8J
zPywfY{u;kGicvsmpm@em6X`LV+e|15td8%`%mHRLj*k)WRKx@+BXG0qXk8Io@LofN
z`AjE;>kIWt(pll17W<%Km~wuU_fO3~C|Nh2${*VGB@X%etDKjG(bso-W0o?C+U9ln
zy{fb?iB-)vM%w-AhVo;Vh*lCkq<Dpa;E|y^xE(-#IV_{0U%+P$W$+a+?U<@oyP_Ou
z(X)DzzY7KdYXuU&(Q7^bJY68}J;VFHQ=wPO^o4OmEf<}bSArzqVt9Whs^+o3s*$Z!
zvLnk5?x6K3%Zff72B1l*ibk23Iz0Uf!*I@V)~JeWJ=iAVB~}ZrD_rN!Dp)DUzF7TA
zY=Jr<%B!e<zLgO-HbC6m7&<DxGy>Y#H$dW_5q#KUarwI*`5D_|Nv8gzZvZNGEwn5R
zTj+xHS7RVwUU%m9qtk=W%ObjtJ-QDNERVt4hZ-2pbSG+~F&-BMpPBjoUf~7j5m|`V
z(RmG2IspZD+xta(fWv%Al$JZ?szb8Z$=bgI!32OK|F_8SKMntv^6=i$rc=o|`57o5
z15d?`inILdWD`s>21sI@{MamO?K{a&8K1^5oM32ACu-E*D%okCoqmLEDl5E-^bVju
zz%)T&WrbJN3_nVf_;PZ$+7bi~WCsk($<LW#r)E+Gkgj+%#Sx+Qb-mbVGBSFOMJCgs
z;Nfcb&b_Mlsb(A)-lvueAtO>^k<u{|)V%flKE~A;mm0soUEtLM)C(KebbTd};v^{B
zNqZ-)x5&xuJmXg5__l!zc1$lzE0063z8n53bPTN^xQp!JuTGS0lXmi22<BaDhG9J2
zsci@63nHv}eaz3yN;2R`-CPeydvxf2VkQVa@CQakbw(nNJ-&Rkl<Ax2`IGGBo-uTS
zU^wwpi)5^NjzcX?!&l-E@JIktFFJIGczC!_BLjOT_C+`~m8m<5gv>YO%CXgx>e6pV
z=M3~to7Nh)0)^49i9EPs-T~ny-Z$oJW)+!*(ZVP?rI&|XLwbD_OhV`dlX2vBM-7Z8
z^<?jg6WIc7h1T$J0m}5i0vq)rI$ANSh0I3^b#Mv#`aX_&D3CVwz(!x=eNvu|#Q~))
zb-z@1hO=?gs*q?v3P)3%j|`lN>txO<kSZJgkeTUDW&eC{RbQ5vlIYqpL~s>_@VXW1
zrt-oU{(Tp~fx;YeV5@SV@MJhPu_1}E@|CGnq7HMyzh1os?`0ktGZC(U9Yd?cHzsst
zWBTYhcL*O5%-+TNb$<MjVYoS))esY(d~J_~W4tc!`x^5gnNrFZ1$73^o7Lq?s-rK$
z-#h<nt8`aEc7OuLxPLn7CfI^x?U+ctHdm}X!t7&~L4@1Mn^yUg{3YfK@<j#KUJVaw
z<-r{?i;pO)*+`2oi>ounruL5%%sL%PYw$3;ixw5-nP~}_Ob8ifr(Q%J+0sVwZ&s%5
z4>X_$Ezx~kEWS@BVukY;m2~e1qMP`YdYv2Oy!6z@PM(_mUD}92H=RCy?ymv3ODFwz
zlLfz3`e~u(x!ySunc=(;ejeU>qRdCj-5%dmu)J+WEw~~<pnWK{ZZGu?8h_18*j3JV
zCQPke1p<9<T>oFw!HL~YBsU<*5bZx5uK~=I4XcU^2E5+9qDnT&n-Oiv8wQ--ONNu(
z)9^I|g%|VpK8IJTJGZw?d0v+PQ=?29@P$Eynw(o+BHL#H@prNaIkpX?{q330#I-oj
z&Xf@mJi3#zR=&GyEXc6jc;R&hj%X87E2Y{Pm?%JF<u8kXB_5zU`&uAmo6zVX+cQ%S
zrGz=hGumI8YFI($5=k9LOY=W|?bc|Qe%A{Vhbej7y;>>OLuR18(~L@nY)yiPSYy@z
z-)#*D#!lrqQaKS#tjP!6zn|SV?X4kn$?=GAjiQg8>iRKKu}U564|B#xrZPmo!8;*B
zfok@_QGe}Fu1XuF;-g@U7;(j|HK>E7Ilh0OT<pNhdeSw1SAgdtW8NK7uaR<S5jQ^G
zF81?YB@f`JO@;w#O@5&M?K#;b#32;Pa*JU)D87c|En<_*zrCPJ#6Vg{S(RU6h%YY%
zixvVo@jx6<>u0|FEYD?dZVVrT@GFd(!wp2O4i(X^TBtQdcLy_}@jPgZwBNk$=y~so
z@@qUKIsC{tgms4duzZ=*Y)Ril9xolkh?YN8@#9DYoYAaQSLJ$d04ILWfh}oBTOKF~
z(BXm?s;C0TCYqlxr+m7*B24_kfgP{jbXwZk>r+a@Z=GhPV@j3NZ3~aXj!cxXHK0au
z%S?~(G+4Zvw+uw(n`?Z(&;rmR9y}kh;uxb9s?z9T=9M))gvoWYmN~HqX%}@9G9f~Z
z!7dDdg}%PlnAhFF|5+4>Ind5^6jrKg$%5W9S5kiZ688dc2sLS2ol_y@c{=dV;{8X9
zQqGLDV!ExzSgt?Hh~^o&)Ste1UNMXPNVv$e3pC~WI<OHbj=lF5+jZ8_*-N-TP=Q9V
zYly$2#xV0oBWah{aeZ+sV6Q`ZRvNC<PzA=?IJ2}=y*=plIuu7d1k6$gN_rZ-HpXm1
zPdm@YJYf2h={9U2;j;21K(^!2-CfrnGyxHqIay6JJwB?|!(HSJ59WoU_X>=-W@K!N
zi)=R?X(vZ^(9jrktCP-{pClC{G&nw99oj4`C3|QxWbD3rr}qzSPEhCc@`18KC=&U|
z99DF|1Rs4D{{An0=^4lY%het{$?hcY)f^urpUM!yf@eQSFTuzqz{e^Q5Mz|ROxaK=
zA&ZAqr0sH}zpQ7I|G^pZ8h+rWV%!{$I9XIow<!hN8p(Rf7uIZ|#k=93<5qqkDXr&+
zDh8igonE`aLj;>n$WG5ott<CUOfR#kR6YL1DvwDeQ_$2y9<nVa`~k?Ts34%d4i^KT
zz3eSJoa*~E*|(ZWj>5rh2${ePs4g40Hl<@4s{ZRq+qwN(lcEVnVeXSI8Hx8w1BQ_p
zkqHBry=9v@*$sSQRWgRq_{SGW1kW#nU*u?!dKyTo1CJh{EzY7OW++<KiCY<>_jy#-
zyg2>%Nmta$&5Bn?(nFn)&vEt9P##Y|ZTZ6!S%yyT%p{;ag-&X?w_+AlpuDgyHf!bZ
zKV;Y}*Z9FjFA{6=@r-P^ia}s4KOIVy?X5$_6)4gGj~8THr0kdMVHc~@i>wsp6xj?t
z?r34lhxwsNHkeLLb~2ip=O~MRJ2v<O_e7eR#bi9?gFu^XrOB3eiZ=<9-rNBy0`;eI
zZk-`q*W}!7j`@@?#+DII`-9uZ^l$wAz6}tMhl1Yi^a4}!CL9DVVxpB9?jB~|9|`{O
zr2nawKSpwgX$gEJS%gWZ+@?u#1B&$R*T*n<3+$pjF91xy`2x_^>nN-`L|)gyLx31*
z;b;*7nZ_;*r_DOB$J72^cG^kjj+h=tVV>%N>ECzDA}P61DNIV>Xyg~578HvXmH%^o
zou>gBO{AJYM!vwqf!&n;&v9su!Z-k+Y8=><e~vF)D(8ozS=MHS`VRytOt1}a_urb>
z2`pI&xMNVCUP*H+Fn`58NKSXscsd3YWCQ=XcxSUpJZqlza`g%v0v~oPTE>Jr>jZN9
zM}fp>({7eb#(>f8h{RTLT+QMG=wF53jOy@jLdY79f~qRznw`=vK$WI1p^1rRGB6Gp
zdWE*f3zDJAed-XVs33p+?2XlGA=Bb;UM4Z(w@zFeaOb5iu#(y!6tD}vuD!gtPbSVF
zaNbW}Y=yqOl@rYa_vRmwUt}}_6=>l3zRz1{Q2Gnt&OZIA+-5@ECcMMBD;Gb_97CqT
zYBko)$0`KC=opO0A>azn?yk`gaWTI4_+mP#vN|+{A!B+j_5g%&gYtJdc*(e7^`-1v
zqsCAtCG2v3M(J45!ua30--v2JaV#1eRU6f=BJF@;0xkpD?tl+{ZQS@u$H_3@>C~DD
zS)-o+oZrJAND&WwwQ{SwfF3_RV6&2@aeapYX&V^=grT6KGHs7y(i9mHdhUeVR4*B<
zgWH<$MC~dyS{eack&h^OY_47i`FLBBx#>+e8hZk_RnFNEpj1n6etZ}&pZS&i3hk%A
z_A%yX<A&%6p2U%ajl)G>zVN;NIDq2OGp9)VqfGhqZRAo+=RS|WE)zy~Im3)fNr7mM
ziQKTpcZyC7>6E+i1RU#S^8P_8x(Nuny@q0;7k)MFdiRt)nV}F*;&|Rx0|J1nR;S&a
zM6m$Tqmf(DZcb30vcmqmQM_j6MKVUk_ibETbO6uoL^mbY^8!^q{p1Klp)OJfNcVNY
z?ct+SNg6cbk)pN$27B>kvUY%gL!}RXf!vFdMBZISJJ=c(Ur<!@R{r|Fc?M;*%7nIG
z>(uyZqvzz=FyO77S;GTG^=ZoE_utnTU^<1sZ&0C?ZfUzcX<TeP|JR}P#n&0x!V7oS
zt0aZY+(-L1b)fgP{J`Y^ln<=GhMDX{w_o!z%VSf?{b(2_E@}xVvMYu}?rf~fX%f4R
z)#W>gN_S2uk6UqPGVC~8bRyrp>>bsSmO}(<2l1NiUsc-&Q$yR@ieASIgclA4dM@W)
z%-K-wU&yQQgHPP)K7mV7h?&zX`UGSHn&x#APJ{s&O5UO$IA+jiF-MPNT1RcQnb_j8
zFIhbQmqqEABFyC{HwKysRT)9GRv-K#I@`HtXOd2}41&G3oiLun2cVHZS3YRTRdgyf
z?3<~KzR|gQ3E}B@PNwQhu6H|3@bj~S+c7szRrxo!O!T7#P(w7$Q{->LZIRi7f!E*$
zZb8Wy*UjapWFC<jK_)p;oWV}Ws;Rl~WU*M*X?*mTP467gP-`=B-WGC=nmgdPjLW0l
z;MVYvhPI|;8Fm{`4<1Tg)~h^`G6CG5#6jVtauL*EbG`}nJ(-Huz=|tEJ>JUfbkYrg
zJ#%bo(i4iKpEFFoJlm(KHQJwtWA5BuC3AeET>#J-ey(MvW9U_c`VQkpjE>>M^?RjS
zDq53fudc5=YG|&-)vsRb408H=CxG$3eA2b<BT{!>yDR%mE+}Ok1OBJm$ozLhDm<gX
z#Hsa?N?`VOgQ!^PFbT!Ffbq;RKRoHm^{Lx*bG_}xx_e4EtPjwNB*VUHd^m5WTohU^
zZd|?F&}!U*gTb-o=A>ueWN-!e?H?my9!NhPBcnSMGf-vTdY(?N3~|T5J~%IW#uQ-e
zQvM5`NA@TrLAjVJH<81I+pYG^t=;d*icZ|}G&BvSX7*1X@`-#WgYS*OjNBg3&mib;
z?gShC^L4s)1HC<MS?rG%J^rU-0Ll`CFg1pU8JRHt-<X(Tpd0BL&ceDuQLTKRY@=$|
z0U5F#*m{&ZG_#ViQ00HN7dx=Qn2_qk@G2<&Ci5#S^}n_NNDN9=(qwyMlF{;wOSRjR
z9Kogw;S)FM#bg-Za3nc+6UCg_W32bU#lN1jb7z0p`0&k1(4Y4c`hM8r_!zQz!<OB<
z!hhQJ)0QdpR^6>XLa&7Hewb|9lX72a<L{4?pI`C?fk3|~U*4$vS7cb2ZP<WVRD+B6
zh$-#HV_I=Ia1mp{4@<*GlhIX8=vKOC!;jM4xcoSN398&%2vWSf#LIlmnSz*S-h`p_
zP_c)I0jO3`OX!GZwm>t=3#A&sT;~e*Wm<3YGIzHe0j=CdWf)7wQ8RG`ZeWIH)NhP+
zd$E3AbyNj6V7IghqK?wl;nK|Ee9b63R8n!ueAYT^8%;2__!3d6X@n0KJ_0pe4!e!Y
z0#P(usvOpdo6XZp_nQLr55I_^X6CHZw!6&2b#9ZO{A^?^ZEuF@L1KDIA2H@ELn80Q
zJWzDgqI3;*DtO%){>HTZqW&!GPD4`qRlx>`xX~f*E-JpFMOIvt+g>?vR3*()`42Z6
zj;H=>aSY0R@M!y~*<XUBLXk@;uiDJD?AbceX)FL|&x}BJ+J#LgFeWl*W($_SLO2c%
z>($Kc^B&u1!jhclB72mDX3NbKMuGEDa8(IGHp=lwxIJxln9QP#o7|_Q)@u7WFB_!H
z-dui!AC9!E%51Oa)Q}I7#+{BzuKe>=DC{V``i%h}`$AS>m9u&UtOuU8G_tL*3052%
z_s_nPN_+D#s<$xFlxv%{)IKu2&c2JUK<^8tvz88NMgkE-k49Db`p&Ih07JEE%~B2<
zm4(HBkjb&#-r~OOE3b{fx^%3T{<K}G2EnYunl`|j4oBIeu+CyZ9;B-BA7g}~+D_x6
z?%Dxr1ESl6c@+;FK}|fKDOm7GVSfX~dwPRqGRQt(u#J|7%Fmxk&621!R1Kt;=8W2)
z+O3zqfMNm{*8>szGQBr>AVbY4Pn3yfln+WvINV}>xF)6v)IJg=BR_I`#|(-i+OuX3
z7mSOKE-!^Zp7~MSTV+$|1Ns=_h03yxV&J+%E-w}2t`{TES^$TGK?QL$p@~j19{*e&
z-v5U6i@)qMJ!e2bZI++5%C5E~D3=BPnK*=+XmBtG5y|=ut-nWrjD8`)0nP5#T=@hN
z*w*S3b28Q(7&1AYMXg@?LMXM5yKEDzoqGt?W<unEazHHxM8Av!?NzkxDEIss1xR7;
z%u$GE#*7tY;Bwe#%BswQ`dR?JkQB~nn9Mf4PWfESaE1&(mfpc7?ePprH=F}LK@3c)
z4=)1I0kfd0$(BA=TD3V8Wok}5f;#YQh6RZ`&a>Gt7!hBzguCmJH-ol~vOu+4g?U+q
zwXw1w>Y2K~tSV$lG#WVO(#=-CW?FU-T8Bmm1EOivS~v<1A>_{7w~fl|rVJNFg*AZ`
z%O>J)_T<0E91UNLGax?5Xfr1AZ3|*btcf4s(I~;;mAee_P{x`qs<&j=PdeuFElkTV
z=Gyp~o8%FYV16Q-?0sw&3R<~5D`ucf4T%!YnoZBY6v#6nl=jytUy#lWai{$yvCO$y
z_5AC{A;AaBmC#jF@r%sOp%j>+KTBuG>WjH<oz<5rkdXn;dg0C$g<!c4^lVU52yU-F
zAX>5w0{GmEM$Vdq4`ScgqBC{om%kUYI7Q&smEp%`x%AuVnu1kOyJvXbk>Lq-IiCT6
zg(3Bi+=-{UN+M+&1RzSULf~tvhl5G-{O^`6bXI*_$mi?WSzgvsf#Jj}VnG%vpLXqn
zTT)5NXMAH~qnrz?5EAx%D#?#EV!ZQHe=~n9ur5ZxVIKwiT1w-99W_rjb4jHLwAdtI
zvG*lTlX${pHY+n3Q;G174&N_`G0p1c7q^K`n9RxjwBZ)=6c18ZG-IOQAm3qJS{NOW
zX3Q)rX|1`AMY03K0j{G@RRBD!^XTRKg5ZV2hvW}O9=;bdV5Re>6^8Q2yA^mCPa(HG
zl%48K3H(XJ9aKl}=Uxbhe3Y(Be1v4Kg>~hLy<&>j`fd0!b-UH#e>iesr3pl0W^z&D
zZM3HJPa`j~mY{}1M`Z^oYD}qmt0}T5j$P6mH-2F+?$aEX9n-aet+WN<rJmCYkQSBi
zzNT&V;>CZzvb~R34Y3YO&mA*1A%+{zO3>vtveAk`k>j%-HVEk-a!)np))V8mj&57G
zv+S|Oe<{#&Zo-Nrp=z&e!4f=CEbDqawO=!mR9S9I>A7Sgo4z{8dOaTbV6UqDMwq2w
zt|;x9pb`wa8p9onkwIz4yZ`F6XPx_;IQ&Mo?+^C>X^_h6e?=Y*l?yvh*0?$Ln5eR3
zWb?zBLy>;05Qx~A=mT-ih&@c?Y8nOIH>k1>^I*uR?eSCFXrETtAeh}!3aDvujmv>}
zKAZUnvI{7aIm@$FkS_yW85wQ9e@%~PwCNGuyz`{Xlk-Md=MzMzww5r-OAz>p?w^8Y
zkeyZ7MMe$Ga;a)mM&vv8gZ7kirxrZ+vp;4=MS=@a!}v2q6V!wOG06m8_*gfW(kN4h
zMAUEjgrf3HJ4je?k#Q@^^caz4EGT-4`d(1Vt~=p#?2mrhoPU9I-sj{-ed@i#x4D)p
z85fw9nk$u{7zgdY_?e*A4AZ)0mkjaGM61A%Wxjrs%uQKY04mS9aulX_Nu;D{^fNKs
zer|?ZFasS5LLm^0#)ibk#=9XgfwyGZmz_H_TN?WDx48fmqu6@zai+hTXU@&y0b84S
zGK6nu=5V_0#n9ZNI+hHek85rNEX}sK4cW)2(2R;kDFSW)Ow<Zo+$&vbwHzq2l*`Im
zda>6u6o%?P0?;PO#iQX<W4_YYXZH}_x_&=j96P?PD8>O*WW7{8Aj&BzjJhqANy3(&
z-<TkaFq!eUHj(HBGv^=!m8G)l5*;rePZkicjy>R-HwF=!EeKR-DB<rnqa%0avpWzd
z(_#l&-5(KEwqfZYozc7L()kh|Nk_y$Xs!-!Ii>DF0AK-0gMZ0>$OZq${G{Ue-;O@(
zCM?u+UC5MF64Rt>lIurJ1{c{K`9wR4-GPynhmIRK$dc)D^_iR3i49<;GW4y_Gy-&P
zG<Q5BQ>Ol?%U=fGt}J-0AM<mAJ#8t|QII$=FGbzFdRZ`{UoQg+E1Ua>#sS;f(2U@G
z7Yhr`yY8q%fDt9+j!SuYLh&I$bNr61+_PONghT|_;?16kG8J{Km(as{_XR&eY#~ei
zDr3?GBou1`T}w-ICh@_j@LX0;iMx}7iQ(|Dj1V5j8(+GqJE5GlL{(WwsOsBN8v$$0
z#^{g8EYNG}@)uirRMygiJf@68RY&##BT_(7H%en26xeLo1y!j~IyM4UkSZ7%9U-Xv
z?f3fr*5&^d==_iRONILXtoloJ`EeFVc*N)=aRd~T;a)V82*N0=^P8vPd)n%nP&1y8
zxMRfWj0xmrs>FKf9;o#2iaQGFz*Up2M+NA_D+9$pn=$Ynk=z?#E27*{Gf@zl#vvJz
zNO<}H;p~iRJ3&m+J<}2sjIuI`7aAE5V=~&b8fAL2>yNjtKyXqD<-{K$h8|uKgXD{Y
zk}jYQP*+-umn9h}Q?Sps5X#<+HR5oL?7nrM8G!00+Qj5z0$48K*Wi!=>smd-qOj`?
z%M$F7l{#CI5>#E13hK5iZI!O_teaG2^|WRkGS;r6@Ov9;bch&K8)2y(M!VTA?U9h3
z0YJ8eV^4fNvC&iix$Itt*S5;jQcvcAa=Y8(=5T2`<PyR-Ni}0}^rqW%^fi=HNukE(
zG|RBxENfTaA7UD?ogkif=U*hveYl_)jMGt#=u|MA`DmqMgBr>(y?L3eVY{@#9&cid
zdZ!m$q?F9P-LBKeWCoxnbcsJ*K*wnj+39Bd(I7ejsfo->)T(O!#RS2zMmeC`{4bL!
zno)1AC#hv$*lBcA`r4y4Vz#zd+X`g|iW+^42BT)^O2<nSt-^TKXh=vn%Z+Y4-WZ$*
zp_fc8_3Ds#6j%|6WVuASfF_s|mz91k0q4$?CORU|qDYIQHHW$ng!fsm8k|sazkRML
z@=8y=;{)IvpKkecq4Y?U@G&~ndMUrL`<rx_UY&MRh&U8wp-{g13SvtSZ5M@o8?+$3
z4jr=pV?mU$sBX`z1vQy+nx|{wtdVj-;I(6?MB5?ah|6S$jC?8UXG}g&ECiPJV$YD|
z@ywkIXmKRU?zoF}Xzv%jD_HBW(cqBqyr54XX<xmiMcN4VSQg06a*1=$iJm{>8l1jR
zV1k(YQ>*GS5J5$~1$O^r=2b8*_o2bR?*gPRkjZ5C$f-xv)>lhj6iuUB_in8EWwf<V
zaZYYxi(XHt$JoQ}H$~rVxxSZe%@jjyD_Z(lfgzzP1C}TZmS7BpnH?|ssN$Czxpp5!
zp+`=q$~&8XX!!IVQl)&AQ2}ad2lBv|90MPbLG=C7h889o6GnD|+O%5?86GPkS=F+-
zR6|X@&fQpjyTk6`;aUBb{`X2S(+3>uf~SO*(8HhbexyRtK2Qm%cb=r@ci71H+>K}$
zD*V#0YvWTf7Zel0rQyAS&-0ExIGJdqMSP%*n}4Z%*N@qiwxES=(}j9Q&3=nHjeG@k
zfrLx|m$~>`{#XdtT@|uiAshiaG(P4B>N6Z3GN5+V!n$d^jK>~n5$t(?diz^x{E-Ao
zU&!P>nd!~D#d-~bu`&S_dIAJOd)!d5Fw6V6ofybKRe7a<t4H*<RRfm#C<XQ*6yKRq
zALHUe+M-;rV?2B2q4GDMeN~pq3kE%3Av^QKV7}+91x=SvA$?HXl&hgvZ>*MpBw2%}
zkiVh$J72i6)>6c85HUS|k1w7Kv8J07Hw>|RtW#8nEK2gH8nzBt)dv1naPiLt?%@^A
zejewsZfy%Y#2OOu$3jB{sAcF|tL|PXsO4@-bnm{QChIWF0>V#|kTnR_*73I9<Q;jb
zXG6F?QK{~$|4)raj9z^l!47|v(Jr|k#=x^sQpgRy6@+7aT@_)w)MBX`Q@j6FmdyBV
zPG0N`0&*!1EU}<6bNik(i=KsOXmS28H790&G42Mn*rARv=1T8~Zlcm{urf%Ib2R(K
zN4u76Gr=!$-ypjTo1koBO6)}~4&3~MY6kJl(ruBIThH!sIDOhDrl$?3XdPzX^OH(w
zo-T~50MWK=F<$!wF&|oKEqzib;|9{j{Qu}t7zGn`4zDDEa*niU6O|zV@eg)uoWPBl
zf{4_NwOAC`YAFj8bF69FU=%!O<xm4-)V^niJ%v|{C_}X%X^^G8kT@M5wE;*N98~~-
z{1P9OZtF_Av-TM$PQf7q?u)hmbnQxEpOTc+Xf%F`gJ=(oHJdgLs+0Y!P#F$s)FQhu
z8<YoRz-Fls)c$y8vc%W|HlC568P+GpWP0;_AQ4AaLQr;^D^$>tw83m7vT;tdY@ai|
zv13o<?VdMC_+RXF2iom9WDC4uWpsCNg=S0tX3-6E{hx$zZMO>TB-ic$>K)$0Q)4Vz
zL`f_}Wmb7_eM|0)-rjGB-F?QsLFp@osiNwB+T%Q|;1^J&on_edOQF+vNMYVWY}fTL
zzng2KWmv`mv)3nttBdth%l4m}<*NUsUig*%8|}&JPX3TfNI|e=?g>K4jdqStGWk8_
zw+e%mN5wHQUw=0^{4e>yU;aHuW!$fL_=LmJCbKs&rJ0-iLF3;arGCrgX+pkKX}0JR
zpKKbd#gc4Q&2@~l<&NL$tmR)|Ls1iYv;TT=;;2R#B|Ri^F<-lhW1x{WGXxR;O7uoe
z7!fxVL>Mml_Q(1k<CoS1)!;^R|0Lt4nWv7HO3YpjN!$*98gxy{${bSF$eTe`c;sXx
z*1OvLO7p%?IF2j1(ZzonKQyX1ek%sG>@dQnIM~{G0$C}2NVC@LUCFDD<6ZKHqr67c
zd!Y_D?)l;kiCQSr<3zSSExdI+xE*u^6y-V+(j-v4)k`op3I5(T0|;kxoDP1|cc_E8
z>9=K+B|h1Kwqq{1rS4jej*oZfNMBCLjri=|eVF7IL>IQ-*d6$l=s$AEnNf2;lxzNr
zYyOB(@8odGJLY&Agx_hv)FcATK|eWT(hL-sq1VapWJ3t9<-&L6f;3zO_=5L`Q*j59
z30Oma&%ebM>}q02uZD>lK`Rl(ob<j=VSX*zC|@?kagh}L=|+PnH-&u8cQ+L5?An!e
zfeHDQ=AI#)F8hw4v#}*SngwSJNcJ6m6B8TFx-+$(XIDNfVISouuX;SAHMa6J$FB_|
z@&3z8QN%kNj+N+d{2@2ud^D8S_Os8wI)4_T+DgJCPr@4~N=6<<1n7FcJC@-x61j4t
zIM&4*f2-6dRhilJyKrg*q_LPOIXT<&EqR7%8AadEgKEtt2XeL#!5xZYslX)fkVw~*
zI`#pj=jZR|T;wHKu5i1`BwsC8zWyHv|I}_Tj{fK1%NY~;v)$>?(-S%V&BusJ#<Syx
zTgD&b#!+jRX2oC|jKeTT9TM{CsKf#lXz+>l3y0NvBR`nYEcer%w&Uo%TC;jxW$|xt
zjF4}CjsxoLz&dZDudH(;3vxWLZOx^4jdQ9f+_LAdw%&|IYvq>JMi96ltR}<flnx-r
zdio`PXH-NhDE{M7uqH88f$x(Wr%j~UuB3qME{8=%3;ALQCoAk~S?gV~;65m4pgP?;
zB(Ue(L6Yqfw?IODIs?(K$KMjJ>MA3~rH0U~=vx~la6ZO^W*j(U(OWQ!drGMn<^Cyh
z)p4t6gk{ti|5ZO7AOYpT$J&n)cVA#SGh)>u#-Gh7eWX1UfO1om$Gz`Z*J?Dr$p#hK
zxfU6Ii;BHEH_0|OKfLWs01Qa?POC5vb&6t9W(98T!GdSQ%j#{w{HD)JNmhSMZv>sX
zpYtB>UK~r_&!gDU;*yQ7{Zk}vZ55y>Xmn|zxfxLqa7)ku;$D`#8+hq|q3`$*|JEyi
zc9Ko>C6tD(@>Q{kg1~1VP#t;<iZ_2f@a*UzzBo?P?1sG?kgJ~<G0`V>I%uO>l#`pW
zI?1U)Cf!>Sw(uLi#g(^CKP8oW2FJWQbfBbW!nG>->XZMj&n3#xcz1tcsBZK_#$MFg
zRg@59r0c_J&KjV5+h02CVeb#P-B*E}<u-p^0FK_DT!=fvO|v!9kJ2YT_+i+!es>!<
z=O(mE^{Qk9B-9_WNsJ6g3~e$y3U&|bddX%j`xct(98TLVx1F85p!SZd`!a+wo5h$2
zNXs_qg+DnR*bW%=2w>D~%FT+Mx|Pk*@M5as>pnx5BsGXFrXC5|CtR$EN_mF%8CMV1
zs}xlq)q<F3dG5LS_#%)?*TKU-WzFPd9LTCIs(hXDG5$6R>&Qf!&nE4k8?x+K_>LGD
zL*CUVCL4^-Nmp|VSk1a>6eHx?Nx->~hMES4&Xmf8^V(Gipnsibqf2nRrZ@aCZaUyF
zk);((FyzG#nw}(bdUU&NVjBldyZWMg>&?b)>=Rz!TlloroB}esbs2vV@<lz57QF}w
z8$Sqd(p<S&EItavQt+0T=vN=1brAuDSNFkTMHYWUK*}+%t0HKz=|Iva5rx_wmzF&~
zjQe0~)0OPvvnN?y$Iae$Q*0bV98=4;B*9zE11-1(F5$xE*9xcVtjAv|_%>(^j9ot(
zZg#{6Sru5VQ@509xl#<#K46asMfo{%ByUa|zjKV$Cu$uN#E0}TPB00C9R~k}3~*;)
z>R*e-oqFh(SDZpU|J&>bbjDF_I<s$ohCtq#8W9OcPjFSUmVSX9ZaZ<R?)bPjtv?!^
zUmR0xy$uDDJk<>g{=gO<1L}2462E?Qoqp8W;<fTq%p&MfjSO8}VZ@nAdxBs;Pbmrp
zyPHRiNZWqp;G5o;s}#!>Mt7N{+HwW?-?3>p@{<m+JHxapTyg>ucWOxVG73o5@&1)F
zRNwfnuQn(>YUEwqXl5m(QL#k<J>JN@M?UIou;iV(VleK_N(ck@)?;;YjT;N3-hQ;O
zA$*bwzf3&=8Nd$XCHW^1*{mC$L;S#Fd_R0p%~+gG7xU-5RLrJ~*s70Rs(K<V1h=RG
zn&vrkbi>>!-x0SG_9<-csG=YHg{w*Xw@V?U!YHgELt%l3%ufzgD{5ekH$LR+3NyYn
zj&paGH|-Fvw&muKtN^XI`aHX!*4F+sFa5^+D%%pz^<9=<^*@eq21;s;`=wAMr5cHv
z-VH_l@5l!MR&FZMe<oJy4?YTg#?fAmab4Tq)92Rbcw(CW)X-)zX_=Gfnj+}!E^bn9
z)r(c<oPd}+mrICJr#7Jzxc4^L^m!o?@4BvHUXTM%W=g*8{9I(UBw9dz!a4P*TJkQu
z13WpxGI}{%^nOQ<Nu`1C$!WJ8Ht)r!v(0{Y@z`P06#!OE#T=@OsGsjOtX@QSgQDQ5
zjEn;XVJhB&UQ%`@g<S&?n*_r0j)aD_1b_IgZ&aOqMG)8g>wpbcUzzdw;c|dz{(B(G
zRG&Dtz)lw)S$P8TyU8Yef9#6L)-QZK<8ySmSUpQO{w^Y~@^!wi<N<`1*)YytUMTur
zhcyiS+ao{ezRA89JIWR*i&;}xCuX5>=dA6k{;Y59yDS<~^ME>7$Ej6f?5$&b7GSa-
zu{Q6dgl*|mp~-y2?IM1mv6o1&^SdOV=clrq_Z8k<{98#lLFdJqU$@afQITDAL2FZc
z;OkOHGm{LB3p%}%$&O<bKR+5+idSDGdW@~foCimhTwCt^hBqu(!?hWA_g1#{L$u!w
z;*EIaX29wB9|umavE&9k_l`dErNx76Bg=MDu!%#Jxu|d3ctD*da9gplJ2r15?sB+!
zA*!z>tZx--y>c&c<@B#gU(-Mc%V%@G2l%{&T!B<wK1`wS9e-d4GCEGw0Y%+K$(QD%
z@A#q=OWkXh+p>>0mBU{Y<fbUq^nl*=UW?D0p*vjaF#VNCbs#LNqr#4Teg+{tp5bQ1
z8vD>%eDr#s)|h$4tvU2K9t9W9_}Say3E`F-=U;+gwo5NEHSTMNmZewlvO%S#eOTe-
zx3m{P0k03JLdI*ZT<+oH>z{aj^aWJ-KhOWY1UeQMt!s}Eq5EQ=^%bcdy;FUJC?61n
zaEaBgvG!Uy&N_AdFi~RVD#$Sy&w6y%1w}oI<tiFXC?z<Lf4nO%=Mq_DqqCvm2vL9v
zDwteRbP=qXLDcnLi}?e=<ClzE&)FQ$7(~|ykb2kVPT#ohm}hf59H?jV>-4n|t_P&G
za`7+39F%*(O(<#^6?>9sg_<zQP}6#bH{i&tvX^TKB#|RZ9?=v3@ur1J{o&dDz+Bt4
zB-m*)J{p9z{G$?aF%F1O=SGwv&J-#K{AQUx&R9uTvyZnc9eAd?u=oS8kxQ5^+BQ8G
zT3XMNxubV$=V#0xKAMLi!yX)EU>$>M&&1vJ=bCym)&hDWe8u&5z@xW{a=s!%0#R1>
zBf?n)K`{hjr{l|UUWxbM)>t@>tt{BoZ>k<%JO9Jky>ZCCX!#>6pZp^>dtFk`nQ48t
z_%z~X&#!cbO|eDC$#k1A>(VtPn~2xfsoo<E5W=ZP{Pvs~uJJ55{lJ!v#50i_Pg-$V
zYsed@2LRKZw_L${YkOPtY%R{voTvB#tItk)8q$8GwC{;~LD*C!gp-4MN6lVpiH%{1
z%}{H$J@e<D%J)WCkD_K$3zoo|E4B}i{vRz-65xKzVX5z9I2E*aABp;&nGF<&g3j~)
zMUZ#yu~V6D@rz)_o$(pwo^d#Rmh#ei@MLJO^;lFuv_nW<!;p4t@pAi}AV^qPmx-rt
zOz?!_*eFBO^jAD(fglseWiGs#gzIL;rJI!wjW7bFRj@Kw-u8}4RIDx@)P1rEYs&4`
zi@T2)&LSXQBd$JHbQH&vKv=u5ke>Hx1CXUe5JGv7)PH>W9z?7=`_{4*6?;NjWqfU?
z+GM*Vgb<$2;6O^6D;N+$ZLrD2F<Uh81b}6Ny@VFtsGXt0o2}!x?9U9MS_d8OoW{^~
zq4uczp_XBBj1{1eC=W>+o6!v&T#?wg=GD8$AADy9p_x5rXMqHkOMV4>L`k21%r(mt
zb)!p?AA(yoAWNl3!8_SZ)3{`i1Zyw({nVHpYTU6<kE6U<6l(zNdl4iIeOVb-vJxF)
z5Yf8RZmAE%g?yqTO0A(^7cyIHxEWuye?{Cx!K_+#Q4uCcW0S)p8jlD4j*K)Es!|m-
zQ^(P4NL*Q+m}?#8-17(<QF0)Zo*8zk`W*I+uYh`$8}5{sO7!oZK4YFqW9cov{U6Pp
zdstF=x5sO0>Uf&QqrEd`md-n(4zHDY&wE#OlW2;iX=-JLcT+<Y6-&E0nigVeiZ*$_
z-z5=nD$~RZDI%H*rXnc`Mk)aU@3wRPJpZ2OIsD6hp1s%lUDo=o?`Q2D^Ho&*G5{Cg
zA{v3PAe|;b4wCY<EUWCgwe>rJ9aHkpC<N@Mi%i07a%4GWJ}eki%d6bM5jc{wd7Z0h
zat}9J8Ji@C%CAlD6jtqdRp<6F0uZq-$?l=$E9eIe9~TCupDxHxKP8%mbvG$!4;2KH
zvM6-jm=;nnZ{WGC3R|^k2mNgD$`^UqMYjXjf3&5;j=M+E6l9OuH$Z;-u%nhJ7KezR
z0t!?nPvHo|1wY0{e^cG@!TOJ|Y@2TDUa5iJ$I;|rd2iA%#-NTrkggSud>le4M!gku
z;B|iOP0!QF4Ca*wwtbO6oak5VEJ->p2Z$GR4xEpYuhc?S-jJlz=7O{1%MbfQ-p;?Q
zX=F}0jS(J*d%DUX?{~L<q2TW>xp^tX&y7F8F{Po(3VI;QAilQ53)^~s11z2&sCQcx
zI7jUq$=Gd+45R%Ao{4vd_uo<{mpE%yn+<EQA244Is%ABlh2@!~gynp>?A7*x;v1>x
zalT14piV~hyf(XLsOj)Z)}QGrh>PlOdleL^58U#kRkcKyC>Q@J_w8m^?hWD1;>!kx
zhvgZjwvz?;!1pMEG!Hq?s*jhDu;U><jYz-dF5P)ODT#Peg&hIaP40`}E#q6yR&*Al
zAn|?aQ#H~1$hFYu=wNuVV9ViNF0OoU>xLY|2>YvNW-2)QgpUieX##ZD(V*fffjnBB
z?BuoV&_<sJ%_Wv;Ad$@X+S|6BFI`t*mtB5YCey17m|IZf@@~1g7lB}1qAU{UR9<A=
ziNl?L88)tOFkG8Zz|%``#_g~fn0DxQE6?-vfeX*Aup#twfKNC8*b|x>Qqpiv442hm
zjGw+akV?$*&UXygn>UE>BKiTv9+wug@ELJ(842^o(K_qTr6aj<y#+?mdSNU{1%&Qe
zaP%)Jsm|@1eBt(nv|cR6*&fwvW*Xg*wZLX{4vcVe3{fe8Ys-7r+F>@O>SuHE-|{;r
zC+tvuiC}IZ0Dk_|Ml5G+*m+<-Cyw8aQ?!lt=0Xv62N_FrSS3YP(R0;&#3Ez8=$6BT
z^K_j25{?5)p#1EnS<gv6q<T*D5W=ZzOAOueCd#GCRKF5+_>h;m8m3YWRhZ;<84&vX
zIOC1EMf)Vo#fNAKa@%E&Vhh();<MZKP4sz2K94HZ<w`?f;2heuer{E9f}0}8J)AMJ
z=T(aDp?y@?v8Lb7^=#m4C(wLtFNO)-MKZ^vr^S9Xx|Y`9LrodSUj0neX1J~n$AHcY
zNkz9dAA2+b(?7Q=I50Xsj^FcZ9G@DJHsGS)eIBvyR9I+oT(b$cfXXH1l_|4N@L4k4
zbW+b8hFCq8GWC$ee3Cmqcy-Fn{7J_%3{QoyvE?huSJH;IdFZ`e$El;emW&j|Xv2|9
zS{x3i(shP!wS;YY@{-V#g|~`&pvSeqJZX3DyK5a7<I^`9om@T2uCi(cJz?7^`W6ID
zS7JN#B@-lWR?e*4rBdLu+t&Wk&L~u9k-I|=7&T1CKpF`b^K30N(!P7<WUjQ^L!xX`
zCzn!B6nRu9#=r+Q@BDMX7l^|A$%HiSAL;h;T4vXSe*9nTw~y^H$*vlsK+}x0J<+M+
z`dlep(;e+g3#MFEdA!b-uNq4quc`l<rmhbFpW^tN9OJ1K-g{KCZTP;3ddn47Y-_Xc
zA(YHO_rrk->t#~F>p03Xl$$cf`$7W$Q(;HX$EmAUwJB%qv)v5At?T<r%39{P#%4<4
zR0C?M=$o!n8>$v1KbQ-?`pg6UesVX%dG(@0nr&x=#rCJK9eMk9+#d3VOXhGOmtys{
zqt<$qpNtUnnQJDWT{ZHgy*c`ymi;E(77JgP5T$!3NBCO*LP;b30U^d=Z$`&aRPU*M
z&AIpy;hQ8QiXkNmt{GyrhiSB2IyYMZX{?)0dG}B%!zG0dV##$L*umS@Zq@hzyXV8l
z#|`M>@E7&#V1yZ0>tZhbs)#@1`{q{4Lf7wavd#TC@B&k-rIP8o&`_O~XOKvP=(zIB
zys9tm6~E-PvR#=vSgQHQSfsr8ThA~j8L+p1Q9oc3zl_6T+dLFJkR-jtsm4b+yy5=P
zRt#$Y@C2{&%Y-zc9-+I$S>oXU4{(;eHXj73)9pLLm|cU*m;l=s0%oqL3IXst!uck^
zVKX&fjz4Shx5^8&K33DT`_C>>iT-%pPE9TY)a9MV>`eO~1#WP2fCeExrI9{wxa7C_
zr3RmH%yPK`B}Rj`)r52x7e1QVF<J=wD8l!QI)2WJ8EGiXtYJ@ft}IW-c}0R%cR|7L
zrANmndhC77f$6yVvN~1<$YJ94#C}~@MwTn8B!PUBq5PutxElTVZqufVDXmFv<g=JQ
zJRM2)mcHAMB9S!aHe+b2X{{c9yg=m3%eTjKW`BGR&C{2JS8l!-=FBr}F2tHvu4jc6
zU7x5j3S)RLQeg?nxL^uNW|<!3n+Hf)XTk|~Bp7ZX6_)U8z;o3Gd>_R`S`NBHEkVQe
zeO@70^F&a?BC$SS><~w1!BTUjIB34X53Q`Cw(I}TJS7;22Ljv7-$^?|R9%doyi9?`
z)Fw{(ccLD_*36r;FT&M{K!NXuA+&J`tT3Ae`7f>WyW2%Y*w|IqH)eq`<5ShvBE@}`
z5}N^WPujn@vAy1rEgKUKgIEAtfzZCyObw}~>Z6oZKQz6E#BUGw5U=rMWsqms=2&H~
z3vcX#_w{*w-C7_m_fC67;DO|6o2xo(52%tx>Z|$c*;t~J<N?k^N=(YcbW!1@-s8`v
z7qysAv5{kt=tO6na`4u*s>q1!{?OFuaU{-V>gCj;eXa;nishe&HwmA8Y1!@rPt~}s
zFGpYkj$@DXN1<p+oAqHYz<5}ucwU=gsuWn?pnyf1oZ?in8q+<(AWKrT9Lxfotg~X=
zF_jM-EGdj4RhVeZRT4P)ZS02&%Ja|?kJE|$o0MYy1vk2m`JtX;%=OJYJY*I^Bvtg}
z?>2IYiLXq;;!5C?*{U$j<}N+Tx_!$X#ZaP)>kG`)_P|}^q5kXUI^rLYL@hr(AWB;l
zg^q0XJk*)epP9G!eJBVCnuVY-rAz)eb~Pm`w8CajwY3pPEpSW+)gH6RT4{+>ygRAw
z4|T(+{e^W*E}kx6t6C8IKQKCXCtNAtWInnTdN&WP5I9>g!NZPk!sZ3@Bb6An@&^^g
z86Sq``Ip)aDG;IiWc=%BB!+R>_P4OgfP5#$razMsJhK;|I`qpBxED4EETlf`zMbuS
zZ7uz)c23Sqst5ISAZ7oGbdAjs5()#xnoCL!`sw-R*isORf&Q-c5N4S)Vees`=j~f#
z{XuH<Um8IxAw%KAxw)e3M^#;R{YGxhMlKwBX8dLoek26|ej;?e;(G3b%@5{yQ>y0Z
z;6>(?gwC9WHDj4sI)kBA&7w5T3(*P?SvEC4!YkU^&y;t@Oj~ZT{pss9j4PXq`X3T}
zdBUd<x9KxB3==S{sQEIqR-^@)#k_T>u6D`A5}uuYU%L^dv$R$tyU?;0nyx7OtfQ*w
zu6&r8H){u_pcJx4s0c(2@<paiqwTgQ;8IKo82XS=PqrTN4-Xsp>>{k05z}XDYZ}Wg
zCoMnTp3V5VQr`;mcc3qhY)+x4q~v^QAltt?OXx-qeWK%;cR5-JN6B8%1E>Zbh8xH!
z>imnn7mdI<2=KxZ6D3+~#`6jiB_!{@H1y#*3xI0m9Td;S83KYre-CQdcgv7h$;ZQ-
z9=XlY4Y@=l*(#V=L0&{p&zcyR_k$+NMl<?k*S|S0CPES>_eZ#vejlQ5-sMUBUW~EN
zx;ZFeXBP>yWqn`n4s*hANr7qLdxvFSG%fjd^(#;ise0eW#NYKqEB<!S@h7O%R}6+s
zuQvkPN}K8q@Jj+Ww!RTi<d3_O2pe6}1&SS}8jOD=I*W!N+2^82_v@iwuVHJxDjSrY
z{XxkcqYCA_)sfpJKoo?pfCfyL;QUWrI|n-@m|1#M1;+)@zG>`w=4oyvO8FO;Sndxd
zcA(-x`EMd!P#`LWiGN2J5@ZJY39ht`O(KLCz*@AW7GK~&B(*eowq8Ok>{PQ&YJy(S
z-Gy`jtJ}|zw#7!`luT$8Tyk=CFM;RD+vD(?-bp1HpHR-pog8{)v*o2)z<wI4gIm}K
zjnzVDfAq}(@yv5MNzsEAl_R`_?0z7L>_J6t&1nRns72U=JsI8@-J8U6koCsk`Z7n@
zFih;dZoO7zbFyB4Hk!t}u@;O1neF?-&JtYHvxTRH!914Xifx=T#g1T|=D2gEs_pAv
z#!nMjFgcPQTp+9)(^-Ej`zx1}=Gtvb9__nI9AIdjq&zce<dEwJAT`Y_;qPXszVBJQ
zb^tR7B!&!3F*c1Am&b1AyBiZA4&af{jxg25Vmep^c}^Uc`@%(8Yw9I$#uJNJn8$AQ
zzKaGHBjbO#xoW0c38Y?8MxPk|IgPyIU_#%|v*^qM0FUHrsc|GCR^w1nFUGY+C)_Mj
zXn#dh9%)pK=bS%X($#CFKlV!w!}@6!|2Zr%O3R(NB<`_6lILj+kQARz<=^%ZGtHv-
zZn1K`M%bLl$S83q=KUNj+{oR)CT4PXoWBZ&>%&yToXud2#;YaXCf=w&ARoxizaNIc
zZBv@OU^hY}83&$<pWxL#@*_Y^C18z*!=I7y`hsO=p$z@H$cnT;@GK&0%%5vv7vQ$Z
zR;&K}g;fTol)}OL2}yRf8)Ze2@@MdlSOo1Ks`P<)T{|OZiQ3JJm3eL?o$wy79NXAT
zO!jcRY@<zTD>Sxh;CuL&mSvt|f4CChXl1~itMb}g9UDPg(`QCdYuzYLD1`tnDp!#;
z>ruXGqO{g9_AflJ!n*^zy)obh+;mU@qPdwG<w+8-S;SU)f~GOC&%<$bG%^uv9TA<C
zD9ef(sFvK<_ZnRa#G=MswrDU=+5Vwdy~f7ts5t7)QVUJ8KP4j;_t<way2B8TA&QH%
zAIlZ-nH|gL;r9ay7Z?bCb~zMmxpwLFkQX8x&-j;!tS{piN};iMb~i$}4n*#M&nAO$
z2Gri}ftr574~x3c^r~d2gKe@!e;8u!6a9W$t5J|Y>oj7KmF$F5x?W-tpy{>XQ9J-=
z1Cd<0k#~Ih9k>jl;03IWU!cZ}nPHuC61CZjfWmmbUTh}&?kT~+85@s^3k67Jfr-~@
zYtCjYP4@RNKCmCU1n1mL;#%b`E|QROn|?G^!`6-IVUAIy%lDq9W21!Djj_1fWk1~|
zLAVpEukOn{@|Hafb~hw`{zMB@B}8}Q79w-G4lQ@MTdd^~R44|xH-A8|=U4#Nf-?VR
z1k~MHvw$c+=}_tB*iWvC;n!0(1Jq-~CR+e^@2#md^#e$=X^kt2aCp=|gaZcz12@9m
z3a}N4<iyAl>yjngjS<a_T7J`-bmP;mr&}<7+aL@UBhFaT`^7b~<@DdvnCmp-Yi>AS
zP;|xq>?|tAW3>xSkT*TDVjoltN|LddK9XI?jk|(l-Fc(L*1)wbxcgX-TV>ut6?@nf
zxWBEAh>KC{PB`>7@q|=|wQEM3>0-It`Y`wRq*_2Qd2@>-ziq`bdIe(6Hs+Ji+wlFC
zuewZ!F57Ow$ImU8JB3_;eNf}#jt|0oh(pOj6j(&kE9kQ1rUnUJM6uBHE8unipMHw&
rjoHUr4|L+alGV`k9b*4KdcIYaa8uiBW^8xr)(wEOu4fufT}k~nI3bpI

diff --git a/reference/plot-2.png b/reference/plot-2.png
index cf6a866a0fd771c20d7c321c6b94dc93bc70963d..c2824bf951c0c15454ae8fb4bcd964f220e47630 100644
GIT binary patch
literal 26525
zcmeFZcT|&E*Efu#BRYzVI*L-qkunYnDkai&7{Q2u(n66YLg-O2^bp2^jiL$CLQzpl
z0tr1p2%soP5u}6?NI)r(KnN`a5<=c9;l7{y{+{RizV)v4t?!TbS<kiB2%hU)=j^l3
z-oO3Z`yA)-RV#C;pJacMkdTl9U;4{NLgL2=35o4DcI^aOMp9ob06%u#urU7%_z67g
zrX(crWB08~PN5PK3J*p9ZA+e7^p=qLRRa9i1-po>Ia+i*XZ^ZR*a}a-mvKfb;oS%2
zkj$Rn|2!UY33ctseV&<qVX(@dC)^Pie>v2Xa=F1>=g@ni&04DM<j|YnC$(*~Lwr6Y
z+)fO@k16HqG&*TSmyo$|#DH70D?hf8HW1V}$XJeSG$B-Rp@|)#<UzizShWB7<NqfO
zJe*I%A+!{i>u;LnrkyJ8rC^~2i+o9m>MC-F1~BL0o7V9DV=E&Dd1J2<bmCbK-BuG^
zX^Fr9Qkv_QNDs}L_K1EfeZ8Yz+@gN@pADlor6eR8`iZAVz>A^Zw`oe0DzJ)zZ4nmm
zF!%(svTap}H+CiyqO3VdOjk5RNN!t>vFEVRp|t$E;HrSLn;0Cj*iHYau*tJN=N=0?
ze^uZJPh+kz-LVV@hJ7xkhml0NhckdcaGNDj_8cUZs9<I^STuhP(LA~MLaK3Ah;?%(
z<D;%|iki>0I)>R3aSg<}=w|rhSLO?fk{xoa28sJj#RjB(b*_nOX0PQ_2Cu}r5$nR>
zA)Jr#v#SbH?B{6^7*@mSPqK^ObGF~$IbbcP2L-Z!KHUCrp{8$V_iYT5j5)&1lk)s#
zR$oUYwoG`V1+CUe8E||zWbDqD^a2N%Q$dT2Lu+7Zi+Ywl8J>N+KuNREiaM#+a)%Y)
z<m;A5V71HU8Zv4k-Fi0~zn*+r7bf&E%Wcf=WBehdbhVhHziMyo$f%Nk(l?#Oo|8&i
zT-M?tUmrW4wQ8zBW%JHA&o;L244}@jk%I|?rG%(aeMZz~LM&{^qvUC<HS8lYcbkMn
z+@aO<eMY6jm*Pr^QLCN_!tw#>2W}>L>@kN{-Ohg6r`lknqwIcWpWNIsRW~g80gVDv
z{Kg*t7JszTg{6uPg}rGJ2JR}^r!#JpavuJCaNcLO_VTi6gL${!;Mb_;gwPz~-wh<$
zyQ5V+Aweg}BrA@49`4!94={RoV4({T=^Zck^Y`#geL?j%Bl35l@peF$>ht*uZV{z!
zait_rpXskT6Q?LWp<P<);|Q<j5NSE1ZZ+A4*v(DL0j_JPKkise)aI_nhcHKmp_hIc
zuTyn4+NBvKRk7M#F?=4@1Bk=~M1n>OCr2T%Yh4+)=>jRGTb-fHM-kH6C-rWXHcLfF
z+p&WM(if|vn@ES)GZ)<_B$_;jKJAs3h$~qrJvx$W@7j3Gjz&AZhnvC-kb93M2H)CH
z@^eHl-J-oV<wx;@<lYk!_1}8Z+Gk-)hK;pdn{2|of!A077GrO&6Qi&hFBJgCPfby7
zV~SZ<jjE1K(h@4Ll8Nr^nTHXq;QlfxB*CR~NZ7<YdOUa8gAnLwGwwmc!Q2Yi(p^Kb
zv7A?W0^^?3q!nF?4rz%?F8EqkYg)0r7o%OwsJCC$^yn;!u!f}t$cwzHMPsf58Y6%-
z&sB1=90Y-;kLpr!Iy=-Wd{W7UJZ8Ma&G6>HchJvzo9E&8jxsWJ?s1>A&Z;q}v{Ik>
z<^iC&Iq`KvK*+{?{K8Fo!a%_1Le_^i#{f>GUjTBgkvOdNXRhvqp;uj3La6)VT17l&
z%60#DTFtSW*V*Cv-9FGjjU_70*Qix@^vJD&Su$g%|IrRxpZ?P@sR=Sg#%G1UdKA$>
z<_+jJoNQC~NkG2SN3>?W;}5~Rs)mo&yKr*cR&@3OD=DsV`uh{fTvn(Cbb1+ORbl$X
zJ-d&6LW|eACqmOV9UNYY1pMJVyj6!c3hP=7Pro*j+%=;GJJsvb{k`Hjfu@9i*nN)s
zcRb-OfkPaj@s6<#F}qhpDu0vXm8mq32Ze?Og0gHoishmZeF+m>9V9sA^SMwf*9zlb
zif(VGw-(z@_-v<(wEIykll(TH&vbqf^M12D-^3>Y@zOJU#3?CgSNZ^x`(PkP0i-!j
z<|iz7l8z3!_^i~fW*JMT_b|qM<b@!uq{jC-rV*B2k=(4%?mbh%+680j+hC_wsjh?^
zFWL8vPM$Oe{0l>ttCl}+^JuF{c*~--LRr3-Pu9eFIA2fDvNvLo^o}NyC(2rrCo3tj
z@19P?wm8-|DXr>U7ew{3PiqtLN3+MM3lu@(hRbw1GfHcfT*m9qYDja?%qnAlkFQb%
zO;l-B3;9{bjapuOHO7iwWMWXOcC^#u#!M{-sS95vp>rgfK0>;c9<O6FxU|a53+1_e
z*%<3dKMZH#8I?@7>_CpuP(yrG1cR0p@I2P9W!1c-jP=K7H%TtH<wOCtV|s36&Ux@5
zb7_AowVk_Cj=v4;rpJRA_hsnyuFQ*kKIIf6A)2fw0EJXkDq;GB0|D|T0Xy0CzpfjH
zb}e$Wcyl>@&=R@dKJ$&{V7qoOjC?qVk6DB88oVB(o)P>~xQDTl3$4)7l>tP8bQiZW
zWPMI+_TB!BXX{HU@D;R@q6c?&SCM#i@oyb-Yy}9@HQ{>0ifm4m1M6=lvg;_a^Ju*Z
zsViW(b1%Il=AX*6wihY$#}Z^k-aQ3ZqZ(d8eCgDhPEtnIG*k+-&$;^{V-7>CZ+<sT
zu118eB4S!rKW`cY)7hTk&D5r4#fr|%3+Lh^-36Q7QY&Mh&UiWYS49_g8Q+g;2?KK^
zwN`1|my7_!uh%M|+uVU~Bv0oS)18g-jy>9lkC&EAVp$Nr8ilshwd*seN!3e6WE!A3
zk0)_55<?mdLksrHPVPUtb!X!m1HHoGV+oNJMxao<#q=D8TgB4s9BOdgR0tm}-;?e|
z&ZzSm4j!CGW0ZV?UpQ41D-FLOa3+}=T1os4Juf!it-thsv$F*%5Hc%po&J&F;$6aB
z2_v;^i#stgB|IV_VdvU^t0K<@((UiKJzQ(vCL8{xT9^~M@y`8_dxu}>>Svd*uO2Rk
zbi0-^RC0w^V}iRH2t((EeXW1o+<y2rOA#AwhomkEON5$~hXX^g*~}L7su6Sr5w>jd
z%X(Y<TLp*DJ+pH{re#7Eg+0T%lek^NHdT;pED=|=;l;_5(rUxge*R<Q7H5S?n_UsC
z-pfJW>?#YVo<Bv*tzd7L``+l<$u}AW0tD@q;q;H=4+GrdHb2XKN4A#zG<^RIfySv1
z4QZ$vEzl=Sb)_3#6|^THq%$`*GLG^YC1v#_UX>mn*}%ib50{ciOU^Wdf^LUeY8JxW
z9vXb3*qdBHTmt+{LL%vEf$nG(qC}2g?~ynm3~ecs%oK9wy<}4_IpW3|1~yA$1}q1B
zXwQn`zj!$y1~YpY-}MkaC4M|5tt4bi7B!W1*Qc>7pmQeto}OR;V@V#y_y@K400J`g
z@W<>h9Q|BMh$$WSxo|dAsv=^L8t%CqV2m(p<OJUc+sKMt4z7v#eXzM0lP=(78HZ=v
zjyZ#zaIEzl;}ihy&+YYD_(1~qed2S&w!X4}Kn!Sv4Vs?gKkz}m<sJR(ZV+ye$%&4*
zg=yT@yGS`GO~{gpoX$ct8hi2aOyc3I9Y=Jd0jEaAW1f^${qiRz*{*ST=})>fMAOZS
zzeut0S&95}*>ufzdM^577J`VWfCUQmz4*lHRas)I?)^nfmBLt`mndH916;2uZ1GF{
z(LgzJ+ZQQlAd)RRl4AhPQYy|FJgvU)gz&pN?%1yz5A+1F;oEhBLES;DtGvRthQ!hI
z+57Q?CS)D&@#1C7%zEgmQ6Voco)bY>8*wFkopxcItS?tT1q78x-FEI{rDja$SnSu9
zfR3~3j~aUtSj(H!I>?}DSXP+;OHm?d&8O4PdGY7tf95^mG;-~Tg`2fsskCAdX!6CI
z>d?dvo9dP9E}nNocsCc9tNSR;`>*lX$vS*oXE^4}rs?#`@Z5x7s9S58+v`{HRcE1`
zXo%^fPzrt{TZ!^>EYijFye?wHC-`jmxh{<D@+;%%;W@~X3=mi<b7t*xbG0@n1|n%s
z%L|U(r+*ro>IR*r_fR&E3b;D;x%jhstLaP^tTZ8%UY6!tv%J%tZKhO_>RVV6xrIc4
z*-1cl?0UGocB=wf%)-0rzSpDo{4D#qoVK0rDs_x{<W--;kM(MxPU`5DAohGmGj68U
z@S*I229rv=Vg$l9oMRZ85W520Q-pd2`7^D>M{6XbsXJRSu^UTS2rtR{XsnQW6QSw1
zip-n-vEF5IE9A=Ww9uB2Fn@xO`ub(_C|?t{%O*Gc2qPk>IjX?@T*8@D)_IN*1*S=Q
zW?56HPx=b0->($l2!jvQRgQd)0+`lD0LL<P)uh(5Exsg-zB6h44u>lz&+d@|d5sh@
zs;acoxe)Hiheb`oJY{1_&By5hcO@O*&$oUCGJ#vl5q`~seL_U`ga)pGaBRbcJ>-{L
z+)z<x3tv3ePox2%U_IDD(0ptK>C!w{3N3k6w~JjEe3cB%o}dpb)EU<<JZUNG2?*Ds
z_iyMt>JD0S7CP{*nz}9<7A20=Ec7yq<E32(mMfXtf)F)pb@3RiYhBmvZtQ%|!dQW6
zRrXll(;5*3MvF3;rVpmF4Syo~+9rzQ&$FYXX7v@v7C3Zkdl~H=v4rAHJny?|H>ag-
z2;{pf7)Cp-#jTTa58w1Py|k1p<&KFppGB4+50NXr!rd!8gE~iaM~i0@;>WmerCxPL
z%l+^Yq_bg_dMGE>*JeZk#}3+c#yVh)$yLWP><GaV$G$pN1NL6n7`#gdN^_h;LelO;
zXi-74kEJ}vPGZQrsTZXN-w#5@+-Yz1D?H-`B&-Z*^gjEE$L*tN7q^~UQlrGW@aB^P
z2eC-pW_eWD1U(|~8UVBr0MP!wJR?1LZy8|i`zM+nd98;tzpY1alaSvQrYXwTfM;JK
z5R8Dw<KpfJAb<Fu=YLBBg<(Lx>+pWiUb-+W`Sidd1!8Y<UBK8iu}z}F^(}9Pnc1On
z^Qpj=qt>DE1E5?|L@eB6vXu>+QJ09zo*~H!k<E~=w<F<8yBbXZhQGS1AsR0a3$lwg
zJ2Fec8raDsoIWgZdhE76sIDimZq}7uH|Jdap(0l>r$Junb)}r?!2c*AQGGWqEphEU
zeEyOb!rQco|M7Xtc8P)8yqSXVT>dC@*gNns!<bv^8a4B_Ljy3B>dqqpSU@5mm*4S&
zo9JiUA(e4pAPEV_YySr~h#Z`SO)5#kt=jQ%7FY}1c8g+h&0=VJN4*OS0>?4uDd7-M
zZs^<y&V;a87ZnO$e~%OUjzfH0cmTqjV?cp}A~u}Rt(p!>ctvM{lh3MHRZjQ9adX(s
zmpq)$LsD*uvF>_pY9Cg{0h!q-C(_)rm$z^mmpLzs7)nKoP6$i*pUq=mKQNuqxg@m_
zn1kR>^Bhfmlo-|iUR_j`lc+Y@#{TA7z*{e3BnPB_<jYYS9b~vu78>&Dfk-F^gPssF
z`Zpg!23@YyiuyNUe_qg_OIueViBU0CNVL~=H>08`YJat)l8?AT)AZyZ&_U0ZrKULT
zXq|aRRMn9v-M%|Qh8>VkRnqG$GdA|RE^73UJOK1;C|b>FmJi^u;WM5|;>|BU2Z%%t
z!y+o0<!2L$R%iExo)q{0C>n&2PwmDh8GpE)l)2&_@NWZ!l0x(zxY#iuAll>+5T5Qx
z^I6&`XC|8$iPAj@M<-xkn)coDgL9b_G{YT2#__mJJ&K9;XbkIh{CF4)9s*~@pXWy7
z<P^21!|l>e*4+|M8+~vgIC0R9>+9(7^@&`GYa{Q0Wm0G)ypidhXD?P_@ktBqz-%ET
z+u7(9mDtvhW^awh+Y82?&x-fVAq7Z0XZt8#a(~k0AVfm20|E|@f(JIE_9<aC3hA!o
z*rm{lSEog@-MSB`uhpB<Xr(CntHi^<nmWu3U-Le;IQ34Xw{_2oTv4KwoNY&bRYx!1
zGkinnK*QHX3_p;#HF<EMe1CzRT9V=PnOP-Z>f)LT+0?fqeht<76;aFOd$x^#QXBU^
zu4pT`JkdFh2;m&0@Xe0^rs=p1nswW(adWn@VeV}8hi0YC1&x~VyWVNrn)dxR?rH>u
zkW^Wqps$gwJpbpIkJ}`g_EkW;bCL|^YrNCSRKnPbUT%9O0<+@6IrY{0{=IY^_IZ)?
z<DaJUE{cBnzwvBuDf&l)pvlGiOQH_vRmN#QDSdCpycQ#WLQCM)t?#^dvInBV;p?7B
zx2KOh5Vc9*teZ#?Y<yQ{CCmx2dAfBZO+`uE`D9P&AvZ0GF~Uhasf4*AU`g2~6k{(x
zd-0d%@*>khU=g^t_TqWuZ||so%2l#u8JxuJ5_K8>G@%;slsiU2sIfGYPSeYdCv0`x
z2Dt9TgX2l?^+#Uf7WK{pK)Dfk{#AhdFBQrE1`Yn~@;x3Z*U5Dj6EVNunrO3D5_`1E
z*J;Yp4via65tTd=v#ETK=i-j~zz;CUn88vyG|^CGy-n||is{!C$a8<Dj$^QcnxtKa
ztwq)xx)j>I%M0P!e3H&h7MZg|lcAcuxe{Wf2QdMPohT0&KERG>HQ;?vGrk5d@g96X
z@H1f9NKj<LS3jw3Y^b@cH1LrJ9&M#x)M~t1)}i5LvGGlF^9CWBHk<0Y)8&(XA<*H!
z`_}wN;rsuSnUTl}F4<RE&SA$y8f#iTK2CEku;XGC-Drfm7TMOhBE{>jj)(?cAm<|!
zhBXMZ%n*0{V~8~OL)bHOJ8M@jels>yjg^NRv?uC)Pp466s>vpJMLXAqXMc!%CGLeM
z;Kgf?2lj>IVk_zxZv+VqhNDJ9+p(?5c4Ep``X2DZ@IN^&w%sOIjVgIXOawZJVGk;d
zy}7gjrzFaz1`OFE;2dnxnb=pJwW8!1h##Uz6CO6jUT0Af<$f3&!*>;T5v=fT+VD;g
z=ze3GwIUnlnDaF^zl97H%bcV-?pn{z@;7-y1#vdY<1^~*p_Z}6m0$DyB}Yu)bMGd^
zfNk(BE_^Zg3?+6}mOmEzWf|0cG@wp+%12QgpXPRLMG{)kDq~;>Idh>~Gec`&rEE}d
z@`)}xD?a0+7vL%Awr(_lt<@v~HpeErW>UYJY9SZ=Yui^+7*KX#iZ~g$E~>ZuDS*EF
zp`cM5<GZ&^`2!6?EI~bubYH;|z_>K~Rx2tAyIqnsR@Jh6FWG5!Nbt~|8jpZA%QkuG
zBPJI;40t(AQkv_B1EU(-*pBl~G}!RPlkbRjjn@#KKunM*j>|2aFPr-<)q@vnR+=Y@
zpk&IRHMPJ_$;4L(mNasoO|MEqaKENidzv^1JgcDh%VO*6Ae^NAEq7VL)|Bk|I|W^O
zj4bcL@>^-HVNS`BonGz2>I6S)$}lvSMrI?}z$+C+!FO{aQn=}gSeJYWOdDiP5wMZM
z;K&Xa4N~d@(!%>a2Herm4k0^Em<wwDMlMp{PA5T-cfM?r<X1LwD8h_011oAF!dq)^
zgN9TnI5XMVd30`t&xz*!jLJT%SqEYrrM$zjrbB}iIIJRHW@W_bSGX-@&!Uq_0zPrc
z;twFXjF%f7-)Zn|ECE7h+NZhx5NHrwULAqdrEJoeKDOPk>qgPNo8-3cP?u-~Ex?lJ
z{<XXHkDo=R;b{2-{bO_x=M|V=6aRKM-QD#nPzay45MDKUO$F&q3n<<8#2iCKCxJQq
zW2>EvJz*5Z6x()C#{sFQ;gN7F&H#RIKf$C5iENg-W9)8J7!}-{t(j{G?c{?->&3BR
z=w0VHO%{ghD%|u-WI=U1yGo+mI9j1C!-J*!*d1ng5w1x%Uhr86&gME0u~vAz8zP@K
zDcfpP#p`2kqp)xjxNv(yk=y9$KC$DRZzAoGu~b}+DO?w&*P^etBB+P`Kawbil>d}f
z{h!>>@3@T}iW^Bdx5bWTkElN*Tf<{HUzr71T(Y(}G)ZVB7)`8ZQfet`I2n7QYm=T>
zFTV8)95c#6tVMn`0?KJ&dQqCOwr2WbElMQHEX2Ny3WVDL$9*qs`Bp_aZiv@WU^st&
z_tt5nSE52?Y#DEaiI?ioF?@Y&i2U9NJ7`&LRIU%7TozOJxg$@r!2Cs~AEgRAV%LqK
zhF399NOgcVEa9#G-9H3~S;M(+fgf#l14n%L27-QB)K$)AksuuBW{be`YME4*s|Q80
zHnop1t8SUNWJ74B$G&HW-2keq&6HW3fgP#3Ty!8P5ocdc*~Y%+s^`U(X2^$=m~1Q&
zGUy($MRU}B*@v?kJ1NNy(u5>q-!VCCD`-a@D6nRoDs8z+E3SK~PxkcD>?p(4S&5=L
zWq%6*r?Xj(+4Xb3RS&h|x`9|7mO}8I-4w2el{WGSq6ok3+<}uz$n$s`S_RKt>H@3M
z0_#r5u}Ap&^9^uH!MkGIuhZ(kP6s5zc0F=R8Y_<VpF9IITmr5DB(US9#;^uq!w&+>
zl0jE&)`2>*r+LJmoIL=8*q!4n=mcQ!+<^pzg?Vh3|E}%GLe1R8^_GH_6Q2LP3&2dn
zLhRkMw7Mka-hUOQ8#Y3IpnFF}H;>%_s6_VY>8D(+;|V`XG~J-R(O)ghOJe#%NK_G#
z$X)xOR=2U#VI7oyZJq8t*qn6hDON-rypr^MhO17FHX!(Q-(NrVU#i=7F2)Ned_lMY
zYyFFLk}OhX)MXBzf(*XVDQ#6nxa~-}U6Z3DA|VuOh?0VzA#h$jmrAVnwvOsWr@FSJ
zMvQM)8hRk(Rx@{Y=x;?%p*ehHgdR5ReR9-=zLXj}4ZSk@<B>kVgj;2UU+S_p;@=)}
zb8-#a<>mZzE21R<CA*=)(=OZ$#LV7NQ#e7iF~D=~x5PsW4Yj-%%qazGAkE25`<tWq
zg?UQZ5A=~lZE=btAy*kaEDli;w|rYN-;oNUKD|L)gVT5N1<6cV^r{wCGs#X2F-`kn
z#c|wJN}n3bedw>o0DJ4~N?}=4^CgaWSoy^k=ht5i@~KGj<5*3M|5)f7XYq@$`@nn#
zmQ`cK$FV|VN?4w*s5#E^i269W&5r-ga)rNP$M1aZFE;j}{VhL5Sm*e=H$0A&%%`d)
z+KHX1De1IB6Thrz^$g~Fc)uOL(Htw5+QS?e2GM87Hv`%QMXO`U|K9&e(Q0?_>#^en
zR86HK5owf&Q}6^9(Vb6~F6<gUp9{ms-eImUoBi8h0z1zAB8Fy3j$L+nOBsZq2qF9X
zkJ#dp6aG1JY50e-oU62wy3dpA-PVdq_|3O<^*kz5Uy{QwVD=mz5HF<kc!JJ7BD0){
z!9tZP1(nPZ+0>wO=SBthm|^G!kt`B{?}6hsN(1vDP74=`dpdY-`deFr7FG${a5`iw
zPcV3&ZlQf88p0`Un^<Fh0B$1$v%ZMoC(hE@uE~J)?S7qjs64so$Kt$FqWaN)#_s;t
z1LH;|b=TlD=8)w|^y-cFEm&CsoF_Jv)5(l~IOP713lSH*G<p^)C^-F<TmP8m2yhOT
zh;zq8ZI&?~Q%oFkOZFw)*@9A4V5^WJSVS!Rq5s$=FEOH(#+Rk~){NNkA0C(&6Qh%(
zfbnwjscZ$mD`HWnfgKYNidHwDx9ku#cq9S#(U|F<d%8DW+@bRfu+>>bs|seaVrYxg
z1LhHy@tVPWB&0R*KM?!Sf`i}^he4^r5$&Lf=fq|uAvtW&d#*b-0lqQ0Ziyw@=i)bC
z)kWN!h~Zx1$nUno;_X>jV;h7|?UZ<~k<Wm1WNaRABvi!=KA!ERHe^o&4r7=*C0Wtd
zoJUMy5d4~`XVa?o^Z}`2Ryq@=nmm>nI-0}O#0p2!9+GrApTzpX-8O?o-Of*Z9w##|
zO~^kE9(hrbF1*oo+Zx-j{4$7Lyw47Vp{_PDX=tF#CbGo9;*6K>M`ms->qD`EaIK_T
zD^7)NH?qLfXaZyJZmR$>Lih^_b_EHJ$3;Vz-i@Ik7w6AWHpdgZ=1nNEw>fBvitPwM
z8|tIJ_E+;0Y!t-(%0;|*0$`d@`Q;#6mU;Kl*)z5*w*KT3(d)S5?;Qgc6z4jb(Xu`O
z7Q1?v3+@+r;UNk}evJgrlHub$*KAp?B?5ie8A^jkmm@pZe~fwS3H1%efg6w|y(8FQ
zJ+gC`S6NJW(R`^0`!7-|u-&IfB2E-nww-PZTzna;``Zf!F@p9sK%0Aan7>Bif{p!h
zZ4fbuUP;;h?z+%ofh`NC;Nyx}Tw^vIPmXN)G*Kq6$+R%389re=`16v;bWT#zx3P6_
zTst-EAkz1jj6S!k*&{zkZ8~sJNu5shgzxQf++a#>@$F6w7M4+&9K0&U$cJu6Mx-!x
zr^_fKIHThUoFK|D#lZZ?(<y^jOv%`B$yC?Y)QDxw*r>tSdKVU_K@!12oUG<JjdFTB
z_sMClH$__a{xd$W*JJ4?_u`zZMr6<0_z^osvR!xBk__dz8mmC3Gs18UM`OUfo1!b2
zr?gt?034h0I#jcbU6gaK*HI0$qn>Xjn;bO$w{(mLDGW%Ij_wIx{3zqTA2=KX{C<xY
z?Ivq3KCYTsLNTHa?d@yK@gEC#<6MmaIVfdS60VW4nz;h*2J=0b?<e*5`nxcD>x`()
z_xl6H9^>!@Fxu?}ROuOu!6(@alL9JHsVJ2-eV(HL5Z1n*V@-<Hp@!}QxB4oRwMR>t
zKT@jld0Es_w?&$2w`O1fR4j$Wh-jGXd@9VycdQ-`H!-1X);;$hPNEN_#gDgwPFgO`
zFkLAGo%=-Vz+KVozMofP8|rF!jvO+&Ax&rW<@{2~@1hGH5<?9w&iA;ud}^BFw<E1d
zS6jnYTcxyM?snPdss#DyR_A@2+1DLuZ`IRcMBOFAO3Qo}tj4qhyH$A#T9nPEOI3kT
z0v_*V^qM!R$|E;=I<Pr7uEt9-H}m*05x5az=~~-0cY<PG0G#w*9>*0>Ve-I|=l4i~
zY@(x@XN7gl1ZF(NUX^b$`ZLq*OX=jtf>fImqS;DIM1im#$Q?qlCPN;LlGau3`ZlL<
z-_COy+QgXU(I*OB>$a@1LaX#BV*v0nDAv{r6@CAxC^w%40BMn#rp7|!h}tI&N>j-c
z0gh-H6#W-x_}}9ePI2(X?00%$6tvm7zSUA;xt-a|jC76Esvfj!G`b;nPYD3ix3Oh#
z2KJ3QRjf=&h0rwo-Y{Hj0dK%x_y{hNSYmFM*UozTG<)fi;H!emoEe>@+Be6BjPiJG
zU~$z-Lf4Odw?)8Zo<X;kNzE?J2RlLsowtrejysCtLND{U%PlcV$0>NvsmO|l9s2E`
zC32mC15(7ou*B0{E@nrzbRY_(MveOZ_iwlCdMpkQVLSej9uyY>`(^wx@xjMd2M{5)
zrjB`YgaCmlY*k6)6uf|tx{fj2yhef9Nf*VI@+eI7af%rIOOKxncpTq>edwS`z+V%X
zPCWQ57RBKG*}-w6t41Nc4Hw|KDg#@cLsAjwD(;o4M(96^Z^bXYCF|2Hs~Wxky}{hF
zD%sunka!?<-{EcSVOthaqeOIx6sQ_jcE)jWSeYwE!etf8RwzcTCTVviL!xzWjpCV1
zN;b~GGH489^nYO}q5NLX9gr6iVDq;B5<c{C{8Owu4sTD6eY~|d#cu#*<P4W?yf>S}
z8M`8?^-uS%Z|N%w2xQ!U5v$IBsQujDf2#ez998H5XZ2n9ute>FlQ8FnwXGF-1L~}z
zTsxkq)A4%yP4S{$+}MilaffsU_R`sY>7LOe%xktIKuNlW=K+7oYiDLLyKGxGS|-nl
z2hkPL98Fvw&Lq<iX$sVxO#|flDa=Zyp40_)GNikZZenvv+|%H_qlLD-ExD@BpR)?o
zv`cPre^SEFI}2>#*E!vk#sAO+KxeqIloROHd$<nWFHqs+5K((a^O!rJ#;7BM$&h3}
zAUIfMZq%>t^4iukA-ic*hQ4ki@Z~VQWqz=m*mQ}szwRKo&e`ymd7pIa4hKZBOm+Qq
zm{iIeU}|+}>=@bv!aUoEvdI8Q3g3=TI<OE70hQo^;vhsJ(oiBSU#Ym^hNx5#t~&mJ
z^$n@L+4utTPH<qMTqn3Ujou0^SbM@8ps1(0?kW`kK2P_=l3@o04M4=qf9~%YBTa~{
zy6vN4i03_L-re8wLmW0|F#&pqSyZ4wN_Y@GW8qGXWMmWP&c^8&ZZ0OX6STS<MZmqe
z&fxYJ7{iCXOSfmo@@5RCsr<L@ytnklr0|oZy&ew|4lP(EhsJPfrB)4qGl>36Ri_)a
zOU<e#d*%)9ln5N65Mnua;70LDU>bw3_YbDJ{&2dvO)a<n_@=>~Z;#b9NISv`$<f^T
zM_flrkGT?g?m*ljtpWXOuq^*E?}Gv$=Eu@5Rf)F?fQBFIyR-d;o^X!Tie6DvSO2n!
z!oQPSYh1D=RSm+%HRM&LxemF|5Fwo>&_MtZy7@0gJ}^#$(C|@E)57Q~CIQ=lTgGv<
zizlMc%((__N4h($q3+JVdjCL|^_c`<%@1DDR!yS>sU=rkznZNzvqjBS6RQ4dK4g3~
z+n!eI=}H#_$X7H*U4Re9A0@vRpYOz(o}S)ISC=nz(~68i!eihRe+Xxo8H)B2FX`Og
zr@JBw6nuBxF(HmGZ>{p2mu8Rnx2D5R{d?(JICjzeP^l{0UUkGeU4J@?(t}>*mj{ZW
zt0^BKvYW^`T4c>hh^yuX+t_wrhUuTG2Y$Hl!?CkJUHjGJ=L<VCcAv$@{TlJ0<Htzv
zn%`f?t^IcW;-dX8kFK8|zkA@q&iz;SUyMJ0MCI=N`+J}1=_%{!G3NNKOu;-ALnGlx
zxH?juNiJgs3SpD|DOh*PyqjRw9=FfBwwAixKZOiI5jm+!sgp3d;4Ph84+wb@f85sW
zn**8z3AWjE1#8TnYBZiw4HU1czu)d|_zCYF^RLJZC99A?R5NOH2%2pKjwKOe{zTcz
z`EL#Lr|%!{_y?UVzvN_39s_G&%jlBo9m#=(Tduq3RnZQ1HzXCQ(?-vn&31P(E_qcg
z9{=S1`~&p`kkoEBE^*3ofP^oPVZ>9nK=$X%%M0}K@)*G*_*~%2t(deY4;ZQH#Z-xD
zG11+7z5d_(ZU%U-FTjx_#I`6R{v;Cn?^7rhoivGf1YD4G+B|O>Bt}8UU6v{lV@^)7
zL8$HO-TcIHG6KbLXuq_@IrfS~=A!Fg6JvZ)-D-NZ*26(y#k9$+c6LtMWahumtJ>C4
zuAe*~go@E=Qvt6MQr3M@v*`NcIFJ|rFO-RY=|4n&)wYA3qg<dCiI@sE$E$}n7ORG#
zC#ArO&u+r*vBc^CWKxYlPqrv`gF|khAgZ-D?wvKc1fI*unr!53rE4CSMx3$SMpXS9
z?oh^AO?GNZWZ35_@h*Ic1C+^Eb7G!iJ9CM%=<B0j!o<UV_xs~rv^R=Ho_hQFC$VzB
zB;-$z!_nfZTHNjcVDnh*<@@W!y$^n|yUV@zV(Ok8b}Oy1)P6CJfOxMrNKtl+dNip5
zJG1G6YGj=fMkag{=eNGDw!7)dk#|tZs(OZP5cGx}DoAQToR6QsXuEqTe3eNZjE-Ga
z76Pk9g`#2#h=!l?<ovfX_EC`ppOi;HYk~pg@EM~cbj>#(PJ`*%pX0?MRkZ%{Qw1y0
z$ui4gYkL9!k&FsoMTy@Q76E%DB}LInPLlPaF)bI8+L-dK>KaG$#Hr592{Z75@fqCX
zR-*1uY9u^XHzzm3Q6_kS^mZpxEWEyd$__TBBC~WZZT!U!aeC_O<O19lL+^0Y2C3Hi
zeu4*Ib87h2#PFinkxQGXmlw*J<;vy-%JsrAW!NRbU#$6J)%IjqgI|@xv&qWh?1K?@
z#5uv-`;`MO=uvfVp-dYTbzPrjR(d+=%92-K@Q3@Zm`Pjksuk%Nu!uXkJ79dPD@%NE
z&WlM7IOqA~esF`%XEUi8YukL9Z?A$Zo*<>(8rTzatj#r_w(D?9D|$4RnwWmq-D(Ni
z7c8RNG_`jl4YR0?%P5e_Iws}AGzh(6hJvUJYmxIQtBq*+%(JiI*NGNKKSsN4hgY$t
z!6Bo!Tc?J+lC#5HoQVLe$9&!6ekqDCbueUExfZwzkr^~HEj%@IcaO#=pz@QxW&*7K
z<*{X<UsPC(Zd(be-mq;?v`H>%@+-JO`(qeo@fAI9H^E|QR2iaU=RT{r)+9N-+dATX
zC8noNolt)^IjTP|pSJgKe}~&@xqQU<-+jSmvt5SEomr978GXSb#fQFmtY=@uZc)~}
z9C8^IYI~r8@#f0c(y?Dg#5;B8*$(y{z|Y!F9FIg#MuHo%Cl&kr#Z~SvMhEKqDnM;G
zTeHR3V{JVr!tIfvsO|YfVsifScuV#@t~qLMWSr{~kTU#<*b-<hgD_}IR*8&4ft1%j
zDkonKF;gBFVMCl{0%qKZ`0A{Bs#(ybR+hz50l4e((!4VF^3vC$YVl!edZgK-uGFWf
zQG>RFw!xpoM)PIx_u~<b=e|YtS7c4Hz{V+){U?ZGxzj!Kl>OQC2=$>)QzyV~z#I~B
zQW;y-?3a1UTUUbgFW(i{GXAIGKkK8~lC<s4dj#50{d3H*TLtv)d$NUlBs{K5TP>w1
zTl58g+Ch6ZNdb3dgqcc69Le3G2{$xqJ1R98d83)LO(NkN5j_eQIg2Ye=M2jX_(vzk
zyWN;;FO=C<<yC*z#hz(1Ma2~T4OFOFs*J!n>z&YPpv;;Hct!Z?FqBbT(RCT{3W@Vv
z@PbY23-D&$tGam#zn1Wd2YeAmB+*W(<(w1B9B~b&!PR#IyE}a!Q!EZLcT#p}iZ=Va
zId}`W{-@#pNgqL&u<b{v+g?n$+6IVy<}}=F!D^rly!l%j7kyG~{RT=#Meoidef*`6
zAhuY$Cr|IDw?$q+5mY1nQOBbiNnSwATz5mYS{8}<oJi|dEfeSsx+-!kXHo%7|D{!2
zm?#9FEkp2CBE6>8!_ga8+JC2G)YjLP(>R-}Day!0t>XC$FZ@=9kp9F>>}g0lE6p~y
zLDk8qMh2iJ&@nF|(+Md(^+{5qy)7*Y>I-iAA;QjkJp+s%e%T2JD`rmWfB~LR23}Q;
z3_&4+K&AQj`mXdwHtuAKK9TtCox$#K!bxNxI-~=flY0}^E;XF<Y%*TidR7pW84GG7
zfUYx2<hIVt4krP@A=uujq0VgG-8uxV+?aV*jV%R^Rq3-_a?6@rQg)Fm41fZwn3V(E
z0(cH*0$;4|bBfh#3q{GJ&R%TRvPHe>?pQ(93vpcE_p>NN(3DT8sB6=a(N8#p3?!8}
zcpa+Orm3oj<8IV~-G)6dqStYHzXDN(;E*bP^adFLR?MC}NM>kWS;E}z6u(w%d%ubR
zSlh<4*?I6%lQNW>(|Gc8=RL6)o!fTPR}uLDr`tc!c&v?#&KkKQo-{7<7%-})Ln_ke
zgMOGwZ8U063v8cgz|)!{U*9wSP1*YUDYjx>4h}V{(nd(6{U&<rp>b)U8m8A~Ad8*t
zO~I6itswm$FpB#h7!~R0e<O<ck5tN?R~tRscD%1s<_D7jel1x9et>>oi4YElHmv@t
zZ|zrOENXK+cc8w1v0a&=GE6=1TA)@NfFgjdiUZY2Z4r##VE5b~e5)KmfE8|i;22!K
z6%MZ**kY6lD(|)k>i;x|G%E2geT?MOB+656LQw*Apk+CzO&WDQ_h#f1mYAgbWbI&2
zo>HlGK}o6r%-SH>X4L{r$4uS>8>4T!&z6X}sJ`jl@Nxieq`*lyr_FujR+wt-?||3W
ztC?-xsyrjfesfYKG89$OYf>9+iDGkNgD2C0(6<D+Jt~qW?$R$-?ds@_8&m5a0W6v{
zN6V*&$nUcXv12n*>1=E8(r8K#NnH^$sZ&BcBKjgd@<2U{6p4~?0G!?X7j^(TMx_nE
zv5>N-gFFT#c}gqojWtVL;q%G+VVUBczw-b9q#OsQO#r-J++;t4&si*Cl?k|w`5CWj
zagXok0IV>oDc>;g8sK1!Ibsd$@%5uhIZ6zw>b)e^>v(I=pL56$tvS<{bY>Pi%Rp~L
zWv>4@{z(~R33h0VI6v$cZI6;s4Ec0SZ}ORGJ}q^CMI(X61oPqON&bn}qNFKhz0I|W
zib`#vrW)k>?Th%@>C88suLM+CT>a@b+&=y9FXh9AJWHyB4$qAcHD#{fx`3LqDtG@(
z!Cwjabh}j{?Uc*3(4bYsWg+eexQGD51{|lH!1P;9+axC!nx$b?K^5ObCHwYomZ<CQ
zUN4qWqu&6E{kb}5#5rKFxQ55Xg-*SIsCxfYzyLno4W?HMH~EZ5$CG?TpKdI7cP}l4
zpyabBQL?x!^yEI^?%18Mxpcch|0q0pm3lpPeG0sks%%|U)^3WbM>4vy^_D)>(e4F{
z?xBcoE-Kdsp<w-vQ@QA@u*v7<K0pugil|jU#VO1QwE;(&Qyix%m4)?Qtx590%{1V(
z!}U8o7i$+=<j|A-%DKSUe6-;tAk?Q#K6}i6#OEDn&^;Hp4-*YuDpTg-%GwoBSrtJe
z)$-AEW#Z36+Ei-4#>=55H^IivUN49$k?+4gRLa@D@0^FnS3C)L1@uT$ZeyTEOIrSD
zRa@^$J>>!<AcFa56ZZz8fX%3z#ap0Sl_R@TFwHwUg=(*6MzW_5)Klinv!%(FwNTUu
z5EG?EiIBSm3Wu-z1L6v&RF0elyUUf&wJ~y$u`WRw_U=mgqdJ4vD^N$=ere7zHR-X~
ztBI;R!%J4~5FKz(s{$YxR))^l<w#-iL;yJW_SXk8)k9esc3gR$846*t_D;Im4#jvn
z{w+oG8FS4UWpF)a@#867s4B(i;igtw&McuZcI0lhDa4zVm;_p`QZC>eaCrJ=UT?)6
z96SV6$71({?Q>0AQn{(%Zn5;tLX%wiak}$O9plT7U_1@jpud6lwDd`gPDku1um)+a
z{A=%C;KXa|{|oR!)8p_(TIly)<+S+`BKy&g1`k(N^}?x%9%rYKpJ*!rOVmSdDjPMq
z$EzQH8Kuch6>50@^-(zxymb7;Zl>zVg4nx()Zpio9fH?u-6>svDHxzfu^+2DU*pg*
z;g6PDRrCtqR(E1yDz&eCh84iUv>PryJyqcNbq4?x9#;3KI>FtT$o(~^+Jc+|J5KU0
zFx8|`lZ7cb=;5~Y6T$#^przi!!$s~frtJZ6S99fBCksI9W0sNKguI!C5Se1-oPn{E
zb-9@Q`opJCPtn(}Rm|D6>s4ObUg~hb8s7cN)Ry<x)5&Ns(<dMem6hJ+I%TkD^=+0Z
zT(U<YWobC@`SsKg#cfg%{_U875L7pGMP?L8rCf_<)8zcNDk%uom0Cln%9-de)QFT*
zEBHhxsHDHlpl!ptOU&*9{hw=G#N_v(V`6CRO?B_zR*>CH!`q<z>#3o>?THtxESJ_&
zI^bBv^vPzH&eriUR#I&kO}SQ+XSkX_x^2H07k3++Z0oQM4m@+^MtC?1@^*Aw3`)N~
zJ|Ua$9o=4ESD>P&GPQ51wV-n_8qw|=-EFzVQO=zcj2gX26?YX4^WW#`OnK`El9=v)
z2M*4d+y}O@42eRa)sc<%DE2@xK>s$qKZMn5x8cmM6N4;Ud_SftbHPiWfTTIZ2E_tv
zTnY(8RiNrM+jR0k(Ko1%tWklMOK7lS?qm+w>Por#lzcQ2Mdapmm%mjuSE;qV92k4D
zjTPNEk~%p8HpWaEfsIj<ykoOt83%G7s_B(*H`KwK8f_R<mdX6S%Hq#!m2fvJ=e{%k
z{H&~a-BrKn_SvN(@O%%B{~=|W*`6Y-Xta*Z-t_m1?o9$KEelW^5Y+KM8V!!MUGy3l
z$=AKHvIk5*_m|wJN*m(g?<QdMxreDXn}dqa0Z0oL73Ic&f1m_5P6w(s!AB4vXUd&~
z=@M(&s-CvAfT`=HEsbEl5pbvRTpT*=hPEccKdyH5k#fg&#a5|nW3+(&LH1%w88=_S
zvh{bc6?o>?z1VOV3JR@m9QQwN44z5I0==XgffcpfmR-Wlm_q5f%S#`QF&nH=vpf6O
znVqZaeGV~Hea(VbGe@c-t*k8M_$xEVm>YKOk_%2cGhUky<@%#L)8W-6iARj!kMz^f
zG38}sKerLamlG%2a2Mdnz<Qdmeczc(qA?u9_)@=u8+p=Gzfyz_8^bVOxo2xD<wY`W
zw|7=KU0zVsU!_;(%^acWzrCk-B`}u!x4_pz4#q1OD6HVEy|^9z`eO5)0f?d|{u+CG
zd?C9egVyEivY1iO<qK?p`gC7^i?P)5Hb1?#L*RX|Te+FqZC<gA%L*j*j^&i`61lvK
zmJ9o$_ZfLU(r2i=b5S!}9w-Q&mCr1Qh0C4E1kNye>Cwx8gy?B6ZELY6zbFe+Cc|ws
zF6y0VvqZ(5VKsUPBfRC<etvS6zWQbq5N+1R%t<~Y#BbOJwcS=@H+G;gYtm<eeOWy-
zse2QQ#}-FlKuN0U{jOr{63rq17BCUoyGH7L@=z@j(k>|=<;%A!I2q9;3+`lTv{MCo
z-e`U4&(sfXGSP4tn-YB`Hev_ucqXl+rE-7n%{oGmWq`g}(8rie>QF&=L4DV#N!ux#
zuG|;ARg2n~jj35ChQcieD=f2|6jWBn&{-};0Rso?gFX~yj*~51q;j8CcfH~lt0VnT
zYFws!QM6E*Xt|W2jO-mZ)(Ofal(>GkB_7I+WI{j+d6BcWYOH!tw{4@opRw6;f5A@2
zOV9#=%v`u#_3h-;>Yn^-H}2dTXvm=7MwgGEV=8P`%Z?N8=$jcm#40_~ycE);>Wv%w
z9qCc&)0MEjVs)uj3v`0td$~5$Mn6C<68v`b!HH}VURKo@lkp*7q*D7(UNsZ*W6)e5
z@0y8VQ;Fm;x>g+Hv2pqGx0e>X>2>jsuW<x{6<mJg*()(&ZxZBPPVk3QKJ?WGOu!3g
z5lpP-w~9*wCbsU3bH6eC>}d4zZ>u=;B42ZPv|wktdQhW>l1-7Y_s+6ZNXn7yt4;-7
z%7X6V6y&>IL0S3Nx?f4#4@7@|HZl|S!`FiHI!(yRiHcJJ49Sten;oes`vjMVm0-nh
z`>v@O-|LKqRz5yb<urEE*DDtb#(K$NL!HeMyTLCw4ra*DUUxx7N_iKrEU0oOmgg?l
z&f4(epT2Gzd=>fKmH+`6KkX;D5v&pp*IH-yN5kAEW8r7rgx++1e`TN|y*Tb0<Btx)
z<#L#_R7NT8j}G{1WNmqjXEPA*C|$kKfD|F7eaTvPG!@K`@va@)h$Mn*^I)hLHSagq
zP57t{x2bhgGZ^(s;lbRCg8*2ZnFchP)4o(CMbSHz_W>HvPOCvr5>YXEJ%>N%L~b<t
z+GMYtR9R1KUlwLmA>Kp|PU>kVBbarIPJm?DM^1(0>KAe8^`8XHn+-h8I|(~9J0Ehg
zc|<GRG22_-sBTUw?D^!RWqYv2lF1+4!iEyF&*>$msf4iavk6w|-UjL&?kwABw--~y
z!NTR^FQ&|;X|IQE)Qq3vXO4XK>cr3sNXmMzi5qM%KKNyqpR9^;w`B+^MY@&XTYs?v
zswmXVv{N%Cb~1&QsQR}hEuDq=U9Tcpwu6b?zj1N1AAFzl`{834nOb)vm_SC~?5@mo
zvny(}p12_mZUB9(zS7+Nc9aD=0g69&yv@^zEH~Sw9Bz@(xmisf6F47Mvw}iW*>-sw
z&3|-+2i2THuiCzt3ST`D%5PsP2<TtWhR=2_xgsTt{zIRZbA1CT9gy7TlVd>j=S<r~
zi|=6Z5nW^ArKL>zQnT&1(`+-nhdCK%+t+)QNj7GW$$D+w`J=@?IsK2VIRb$R`uc!d
zsE>^;p=6m_pr~s6luE!K%)2;io4iD?_Z2WB=Nl!ym}5ej^(8i3fh;~6)$+J!_X!vl
zfOUvU<V{mncICB+<&E~Jv3BbIpJr($0TWeFba_QE6vc+ZO@gTfqx`d@qwW??a(RN*
z;F&x9iQT_08@fB%p7F;uIGtu18=aZjH$ou=LX>hlW3sH9Tc8&0-i;k6!jHJa6dB_R
zs%8|u2v9T-4c^?*yjJ?WZZYzj16No@9t*Nwcjw<~fBQZyKcRf1s#x_5;{qC3NpArj
z*t(}*2zabqUL@NVv`9B(10m`^{EzGbVTX~_r$UPGvLG`Mc!?Ld;X}%r>^QOfC!A8a
zsAuS{+|pjhP}MWS9nVTd$!APHaAL(dOjIK_@~ua0+Uud}{Dn7`?XlH1^VOIXTwQ&6
z*Jm@>bpPIixfiCZw5T@|sD-e@2^H4XR>DCh=;o@)IOWXcnAjr7Du4Lg?bEQ`bWblk
z&^yvn1VX(eC(HBOa?9n~g8X_=cG~BOW$GQ$Sh_Z!s&9>89-8<7rSmE3@sE4zxkZ==
zSPnN9juE5*cDKDVyV|WZ*R6;<B{g6mHSys)qkJ`~1Y<-`x!LHGX?Sho0|Q(ngLxqx
zPhq$wP;eF0&Bo5@yqbpVC!%kB=HbFOST|7K>1%t>60&<#z52}%6&_g#>fH9;koHgM
z1-ipSCje_Q_tv?6i*4*Zed?V-U_#fWB?Ex_fGY!MODawQ=M2YjK)eW@@su0rmumjN
zV7(~swyOPVpUvIiN*9I?=&WxoBd-Ozp9d@>vB&VgE<@L?G_8D9YVoiX#o$z4%XhsO
z9K6NMOQnpEqFErEp+?o(WYnjOG4qL?M}S17RvC12*{Tg~6TI)Lz;*E33dt#mAFZ_(
ze<YWXLNMqZ?`_wwFz)prdroM5G7K}rBwg#{e7>v7^*iBR$pp_bU9FD(NVy2u+KIN-
zicF91(3}JHK?3)=OH1!A(`4RaxC%#gjbZo{_u4ya=o6uD=hH%xSeG&;%JrRZ>$Q1d
zV4Htw3-p1|%)Gg>cJgwg{!t^dr(X&bIpoOaJc=dPeY(tA>U0`4;$4HqKv;2IaLN${
zTPJ8ZY65hEq|?^=$5gIfh($r(<IwL-Df<}w3TlSF$y?iyKM9@Le~i?IC9GOeZBT>W
zRV=m@If>`=0&Z1Oo9!<-A9qdG;734}&mx%#x(a#KH;gUOLj?vtER|B%O!YhcYlhX3
zO=imAOziZrcLt9`eTBuA4gHp9JMRK+iY-RKqF}n#fx-)K=ZJkJ*Xo0^Oo4E!2tZ&j
zA^4koCc~Ix#%us-UT%y!KC$XPT?DLR5LiWQz}qej_q#PWQjXZe!WO>CPQmO?AbUjd
z3QV3c$t%xJCe~!D2DMRpEZA2B`&|en#oPs;7ph93M<eEUV1|307SKw7x*c8i%a}AK
z*OzBAswxxn6J>KvD>4&ezQmQgS}#~F$z!{~BQG%L6A$JxSAKwZC3D!`50k#o{d@s>
zlxEDSS#-J|%TacJST|Hazmm<JzW5yi^U2!m0GQmiX}3PjAxV4Y2zofTuPEu-jTL&k
zKDY2%LqNEHNoGH0)5N}d8FiT0mlEU@t+?SGKU)Yf`K9r-+4_h>I}%ZtYSmh^c=V>C
zex7A(AuHXw`3-kQ@kJ0h?;}gwJ8Ny@jyKuJiEO|%OP(_JMi#vi`1ZZ&e&vn}ob@{u
zTySEdg|X6JM+(5(A_NVBpGPuN0g@9rV+-1!8_9-P^WcR62<8PQz+|Euqn_R7X)b>O
zsLU?QMh}w`o3UA05o8?5lZFheKbD;u4F5}7u_41&>oG_$QK4(BMy$-vpG&JslWaKC
zj9f-u_7=bfe;49jEH!FPR;!jgUfbKt5z)`gzdF@|WchcTy`$OwkuDRmAY;l7c40D9
zyHqJCvqf*E;04Ple<~;u_jpa-*{L!3E>RycU91){V)$_Sl{L*SW*P`!GlQ@2oTAyn
zWx8RvfT`ay(|Ct$Eme9tGv=M!<q)^G4d|9)m;)fLNpZ0)^eq2id36Ql?KL<$q7Mo6
zmSgx-AGGDGtzU5%;qwv(=qx7#$OKFG1W6@8$eq`FzpDDS2oQKmEU;atnx8X&C9_@E
zUHflVBKGlGXY}20S;m*H6pShSSmf}{m<G2ZM&UN^a37YQc89HYW#qokrnz-(Yn=g&
zQL+S6SElWtJ%b$S#;3p&`;apsxw0OwwAb&tW|txrHN2h9TuxAQa$>{>8Z$;yixn~!
z%AULED+D#nXuiEOiOXK$Yu6{LDr8kD-9&0mz_XAfn?Z)Het}%%g}0+B88qp$maR}N
zSC+`-z%4O0`Bm1G4!Jb+#?X#xy(fMj7?_y>;fVH)%FP3F9a<z1C{W*6n$XX|Z-Wcm
z-p<u}1y%$F<(j$zu}C2|a_*m|P!}Hw%OS?XT>)3CqXMRI&a%NH*QsdsvDbi(h1ugC
z-Zg!Q8gPKpTuzM~$(U?K$LI%)-C>W|HLKms3jJPyuGgNr*ZH@T9ERi*B#F>#8<F#c
zx$Ntv!uUwi-}<o3vuyh1>|F3to|ENIqbCDQ_G+p{Uf(_vWGc5fd_~3pFmvDDGr9Nk
zxibkVa>=9WZO_4BH#u<M6I1x%@OEkkGtGA1$K>hbB|n8_4cg6;nIlGqQ}ZhY1qoI(
zO&p^oHDz$oTzTDLAjdRWDU=lCHz7|=4FRuQ&PL`=?sKxl11autAgVfeY2!eLFdu|Y
zY5e{mAfWLmK_7f`c>O_S5v`9x3DPuH0sp1i#FNgnw@*}Na+GTD`0cWR{5RSPd6LC0
z#4fK?0~Y|Vk}nB{Vt$`8{Z@=k`susO)7a#Dx<y3&CBH8dMj4;q*!H@`P-BBIZ}PqR
z9Xbn&W)M+kx|{CQ5eByd+>pC;?Dk>H+4S%e??&z<<YayAeg&#3hkgdYr4ByerfBqi
zvDzmbcP;3Db$9N6NoD;Wx0<J>xztQeGh=y~Iig0EmZm&jnWl-_B3|%HHrkA$mLjR4
zDJsqMJe6Z+Z4ebSIw|4>b=1_nAT>=n;Dr(|Aqq|b-osE)MB!|EoqyqZz0T|K13$2V
z*V=3Ewbu9h`Mket8(Act-*`x-sw#3EbqksY$5rnWGU?5i9?Mn5-~MR1b$8Q6{r3Fo
z+5_vnx6DyfD5``>oPAGnDg|F>!Prh2r}_wdN9DEGhvOH`W@013N!xUPZ_Wcdm)}nD
zyJKX9n`yO~|J!A_@kUP>BK-m5H@}Nq@$+=ootWp9d22Bz!u5mo4r{}-ABL1=$5TI2
zy(>Zxz{wYNFn&?;BDXH?keA%YlueGvBN#-z*_6ua>6EyLwLv?^Zz2zEO{mXIb9)UG
zKVYEw1{x*L9vx$hcsU0i?~&VVK_<Wj#E^T&ClB{KUNd+p!9K_h3=*=VY}uWrkp1=*
zSW++`d34zun&6ut2Z~*$yGldn?DExJ*S&!kQa4zajZga?c`=g9if!5F8Z%fl^xG~_
zu?;YIEWiEm6YlaP;C0s#Ii3ZM9aC<5@h!Xz+mF$(VU$8mhJjc05X5O)U`D#*uhTM|
z=Z#&yZRL=f;Z>-pr>+MI4-TIqWrKSI?X8hkf^C7Q%t$B>Skhx<i(fS$AAZluNLd@&
z=nG`E&#$P`r$T4>|9>>5|J0fELf(HW<RPP%)l)-!cL6zk^!XzTaLDD}FsJuulG`Bx
znz|ki)*K>HVy-o&ozb+zCWBfaQL*P@Yqr~{7qK0>yK<g2(-fBCypd~w`*Fdi@P;-q
zO}f=2O5!pP8D6#eLRgx5aTB~^D4?-+Pmux`;DS>p6QjuLmof66$?8e2Hj>^r`kd{B
zpLssL1ha&`zC7Cn6R4Nq9i+#p6@)#Ln6I4E?cY76WA~5&-5-jGzy!3^f~N2S5`8ob
zcq@MRT(Ke;$aWG$Lh7TSYZFI7J;aYfR`l7{BQ=8i%lX&9u|tBB)Xr~|C*S@X(%m$x
zXDl#JwJ^&{oHk^dHTI9S@PB=v8-`I{hG&z&c+M+2Zutg})r!_kTyXio<oUOdTbH0v
z0kV4vBo@5s(_aeC$-@mJw5SGW{NUeMup>xlNWkm-Kr{LPAIkj)S`K{N%RLQqZEs!g
z7AO4mNr#7$XAc+-dRamq)zLDq(&)C8NAvCcBkWt}-94<6RzaA&o)+obM$`QXIJe}R
z;|L;LU?LicWDdE=$hR^q0;?vsY!i0<H&#2f1wVbeqTkx3g*LRBogpM#fJA_rV=+4C
zl#unf5YdetzHLWLj_#5BZ+-kT4#}TL20a0LG$b~L!dz_xO^5KQ<-I)}QF}gB7+GXz
zpzdq`RK8GC_vPr;%VHijqKB#|5GS13k?AUE<0<9$VjzUX<UVWWLz(oG2H8eqDojn0
zme1AE-0xD7zAHtbH8l{~<JdlTod#1$fPNoMIoHOz`nu^8vJbeJF)t}qyxb-nX|NJd
zshLLwLp&G0gCG!`n=7btnrVzINes9^bXJk=`0}ZMBOS5h@@na$VC9Oau7RIlM^mR=
z>)KalAuczhQ)vN(X=u$3o~8qv_}S_cT9#WU%G|xNJyKn}Zm0ty3PDAiy#Rq#sm>u^
z^L7$g=wK;z%vDKQF$cQnifUOq1c!0ph>2>asj|p9U$iM;n5VshmdRYutn-9<w~a0j
z#_}uPtzCyv=#Iweqr3bhoE7V~^49VC742jMb568{r&S9^jiq^pR+;1vZRk?2GT&CW
z0gId-YU>zL1(XyFWgR#!S~#9R&n*cR_0Q-o{qfl><jX();TB^8BfOy~AUOa)BO%&a
zvRZ(d$v81=6YN4ZYfKz(-zlSF!5BNiOECf-K9U32kCxXKa$q0Kz?5sxrvHVRv0M%q
zf1XnyH?Hj0XQJ5aF*{{Rw=ZDTod9SBW>!CUF`Qmwl?isUPKRR?zi-BsI_!VZ@{`Z&
zbJb@7&8Hb9R1hZZU3*19YwlrY#tNEuY9cLOT#w!LDmz1(iObv2C4glvVaBWbXX`v<
zV(9D=zUbjk2af#092EPJkRonCHlsWB%l?|^`FO?R#kx(yb+41}uPdwEjo-(J_OcU#
zii>~z-X8_wgHW-oqq-fI_Uf`|#?=e|!_0kc1XB@QFqwO2!hEI3W*MZNuDF$4+fj;0
z#D*?=ti=fr_PLQ{6sp@SW3VkK7)pjq_Poiv{qncv26AMcn}eTe!McJ$cqF!w%IS{5
zKI0p0hwzuvhajWWriK4te@{O9mg;S&=mhi6a+cU`mK9L84qb+aqMCi-jcdr|=KV_O
zI-Gy-99Xcyw_ht*wjAX2-j5aw`?BeQ_8p#(j*3Nv+p{yn`03ycoAl7@ehXfmniVz2
zC;ez0o7N+**~vUz0Xs*>s`#FyAB%0kWIyiU;@)ket153vADBXbUFr6$5KLS-jGzB&
z93rRgDk^Zi6BF~Ar#ZdZ2=CFmmR=!+OQTm7+TCiT8>y_d8OCti(hkUFPTuzHDYhaZ
z%o~U?XDFTkT{y`wD*-!#YS5>GdK(F{rhEMa9GEF^v;&rSz&$FsGzLb;3ugnI`z@u>
zdVVB4?G(sikA+<dCrS~3j-vBnkDb;JHnXuRCuTxZ?L6^|o}R$|oRf{ZgG+AJk)Mr0
z_{;?h=>=A3uw^yZX=ZTK%YN}&(%w#DE!P;IB}||vjN)*{lU4~xiN_PYT>(GKX<7Ai
z?HgG^M*W#$oAXvua6M|+=HPQc=-Gu8-PaLo#2+WP4Af75K-}AX+|(?e9MaNcyCIUZ
zVfD2%-oXQ+YwcdemlM})lUrivFMouPXNI~s*QQk6Hpel;plhEzl$vE7Pt=5xSR{NQ
zwPb)Z*U!a_5iWc9R<3U_C08tl_l1L*_pyf4h=WZ*Iz0zbRZ}}(pRYV6S^t>vQ|XUY
z<jJdz2byES?o@^}LX9}2RG%yJFzLPJh6sW{AZe&w&qhVut6rH<L&=lStD%;i(RA}B
zS(xN*SfO)}(IJ@5VkDoe&zl1@kFK{!_7Tj*%hlZzZ8)BIBclf}uwe38Po$eb;5>u0
z!uyJ#Z3h*theW4!$<faav(O!ZT`*iyD`VEv9xu$vTTcPw4~Zg+4LMV@)b#+R4ppXR
zh2XNU2tA}5bLgC;=F&G8$$I`B$LfxqXdK4Z@QroXQ--3UluZcb#8fV>Z832=34xGb
zmorQ{1Ru`Iiy-7k8Cx;--9>#7;cT1ha4uPdq$RJcWeeH^g7!LDe(kS)0J9`sk~Y=l
zMYZ4U4y7BDzms^vce3`anEOL&z}*_A?i^mXx&@DLnw=aNvFmA_55G7x1ax%@<WLqv
zR_g9Ytw@9#6v9@ol!<z_C!{^I#$g`FIVjzU(J@2UadKykRq$z@20zf98q!h<gMcX_
z?tMQ)@E5ekEmrTmHjCoEnWSb~DH|nx3~({?8^LL;io1>##x=R!p04e16wQQVQLp9?
zG!PEBexn@tyBxMNbtG(Z!?Yx*#1>;A&YNQm_4M$WeWx*Xs~n-md<SjgocAAbP9q_7
zsJpF-4Q&r;dvb3q&2;`K%$u!V><rnFHCWu#>^oO&HSJ*L-{O`*+MsRKvmYYh;(Bgo
zP7{7y6g}@%oB6l@<o0mp1+qR83M$IsLnE`fdio3zx@+hyysq_Q&cbbvd+$Iylx=Uz
z!t27VhLf_vC@8%W)K|ce7NcbD>KUQ+JJx>x(B(av9&BR!P;@c^*u^~z?Stqx={$BF
zH=;N;eum`xcY9j1F#@0d;-)ly$GWF!NkVlLV{)Kxb1gK#9>$TIbq14u4&7jlIo+R&
zNs2%s2&LNKJVp^~P%E-*>^f1+QlpCR{q(;r>q-(GFey412$Aa7f{2>q{hyZBozZmC
zK95QB270^PYpnKL-cdwi-`?)RSt^@wr4|zlFiJu4<WkEZ#sX0q{r1<2+tc5WqQWs#
zhnJ5yds00Lclny0^7Khg`x2x7XA5tGcP;l5Hlv*Dbg>|KNU>TOT4VA!XtNA}>FNc!
zyLN^$D3kO__5~3(=?TJ{j{=+AT3<&|J>sd$4&H#7;iOtu2H`e+Ht9810^jPk{v!v*
zvY9hW#<lThU96=1X%sY?v{~p{QZ&A8`tIGb%{g!u*fo2ERj4=yM=;!uDk*rhw<Z~`
z%<bEwKWbvK!*uf*0U$0oPmYXj?ju>cJKnoMq=XHn|CN7lp{1kF?X3PmRr6L8)Hj>4
zn(A4B674jKA#ay39b;#+n%urp_H5^-M1eclK3ne4+@(emgPDCXlzk)(%{y?@^U|fe
zRaO1((#89gY7dnb<ytX2FPu3u@uo3Vcs<*<<}k}ip&fOsO_?stK-T+d%HWZ|mdN8p
zU0n0|%&?e|I@rh(U0t9est{9){!%INEJ-#Sj;Y-@9)!6`A)n1Nxf-z9gBy@;>0~FO
z*!A@SqoUo789SD(9Iq&(d2qz-HGj1Z3Q`^VtkdP=`ZjBU=#zuwAYtWe9O)EZ$JtIB
zzo(e~l#uo+s$CWtOs6D%C#eM@!qN>n-?k1_04#KPlN&=vHT7tn-urwkLMj`B{sez~
z^-*<w6iIcK0BtTlTB!J#r<}?A$aF5XKw0lsyU*n4R*26%&#MI>L>w8Cy)q7?xcr=j
z@Y4)_Vxdbt54vmVEBJ*^FAvx)zJOUyc~UNcE1Y7O`hZ;z5lD_>C5Kbj@!O>F;ySJ@
z%Wx0kCpcqRP>wF<lbi?^;%a35VZIk0Mnv+5;zO}0X1-J8WwA|`{d~{NSRE&3@y+Ez
zm;>=Vldx7M)D%}C>KBG-4*&3-TU=3Vvt{<zkb9dOHe9kEHD=Cz(IO9C;T~qWH;0%!
z{t$v2uO5M??3Q^676VnYnP{aNVWSgpBkYk}0>sE#KUsYMvyGiEo!af)c2~-2f=W{4
z<%YZpZMo0OOCf5V2&Oy#oKIV`q-Hj^W?lh_Y@d%C9A6W|g?Z1s3M3XhChhZFW292Y
z!J^{o|BNGpf#CX&;N);+{d`pWYbvg^J1y3GK)DlFTK5y$d+U5D5P`+1;Z_MX7^+tx
zy=jfz{RHr0fN_zovhYCFNHz`>A%5qzlrj~RWqNCc5C7c_cs*`N_kaj0T%aXg@tXGe
z#0DzQh-P=i;ur6B5)$|rs8UBx`besNz=o|rBZT>+O!hvC@hSxuaK5HPtsR;$i-pzH
zwR|o2Y*l<&0M&NzmG5$cyR|N;xlFUt)Ywo9$im?(FK@9Fp2w_z@u=(@u};S*bv*rG
zE3PEO16sMqcRW-(9K!GD3m}Khm@h)9-`lG$$CG@h8SnmSBN#dfN&9dCBX7_(zdA7#
zZoIW$iEx@unZE7Z(yX}x;B~w8gNTGVSpXavxBp+PI@&zKxX?l~PXE;3q2%)Bx@Kba
zw8(TqW^At1(uMxi?RTt^8Bb%W8cMb4&9CVNjSiJBcbOEyQ43JcA_2jrbLmSdNuVv~
z7D}%wlCJv-EB`cB256xUik-~=y_5$)t^*}Qq%L#>2_-OfD>l)eB(cG#Lej%V&aoD!
zouSbSXXX~Md$6nn{v+j3ko-1=!i2GE1GN8!i*pa>KdN=XtetbS6^Jj=$YCHd@jRIz
zr6%`#+AgDFDYgQu0i)SQ2kmq5Y;C7Y9ZSWYo^PEVrEQ>vH&<$zH1?HCc-?pwdduTm
z;KV<!K1<C4KgK2oY1?6bKE;zuMKGf~KI3}Q5nG*}*0ZW+IJzy#$s~v|WYct6mM^5*
zLPT8!od;ix=z{R#C8!GMojui%AsnmoLz_NH%kuuOw@=}Psg?x_WOpS6G&r+)4n9E9
zTa2l>UPk-j1p$j%*ySjQV!#T^d#&|*0Rv1~G>1vX2#=*_3o*|kN+k@&PdsQ=AbRH*
z?Xak|x<BWhZX(z*fWf7y_%r!mU9`5M-GB~BiT8e;N%S^D7C7Em@`O@lWkv3WmJlhN
zn!3S;E%o<Iq;LfDt@A@XmOD5`@Fq-wu`Aix-ztUg3wf_rNkGT7ELZE7J`~$nQpWWg
zK2Z9(`2xW1Xy>H#L7LRDr{5>%r7r2;cAK9cwQ7kWeWC8*j6rNwTnKeyH#0eW^MJ|l
zl{3(+p9U4FK!=tFXsel?DD``A$SDS{R1s0{48NZYOuW-tlH7FW{V)D6zFjp+EzIt0
ow(P?-W4rk;@5`J2Lk%_iAQvpO`|b3%@4Fm0<@-b3_ve58AAoE&e*gdg

literal 27544
zcmeFYcUY5I+b@b^!7`wZpQ0czjuFN|K%_|@$FW2yD!qgv0@4Kx0YVaNIF1wzy+%br
z5+L*dAp}Li(4s<UAqhx{gc2!9AR%NwiSN6=cc1V2&c4n*=lrwxm+Qjdde*bnz3%e6
zfA{@7Ji20gL1CxzPB}R_1@Of`ugS@6jggbve0}>iV1%Ce{2TDK?fT^le*)jYXYDKz
z1$^zeb<s6SPEPfq^k-A*)S{o9+|P30KhHSC<j*l;n<t$iY>9I~=udyW+44ssP43Lw
zKYf0o-&Y;p`^IPQR^;}Eq!+*b_#5YR@7P_%oiD!r{P(lX+kgCf=g~b^{=D<-$*+&+
zo}EZMcX8;C4+CVY7Fu6MS9y~l8Z|pm-a=(hTurrfWJTE`unPp!0)YjzWvfiI|N7_u
z9}V34hJ4<1yFIkfx%c35?gPgrH{P5P6D8+;!7OMPP<`v&!>+1`JrgOpdJEpu%5Ao|
z0K($NW;wHwy<IvokrM759h2F}<?0Wf(vgJy$No8>Qw=zpGnDJ61dQiNhofH{#nByD
zZj1_3k|}g)RS9e7s9wf&CgI|!lN(C)tLDbo1*_N!y2BujZ#^v$aYAW0jb*Oc{lS`n
zLXIs>;0(j3;5Vw`uJZ13F6+0CHVT=X3YsBqw<8{p#K(0U>5pP?khD-uf{H=&pu|la
z$}^^EVX3NbqmumWpwYZ<97_fE`>nKDEDPToI*Oq=g$_1$-O`Ciw87VtX=KcLEQw=E
zdqkU3V9yhkEsx^Mnb#oA_u~kCzgYG4MgT|gu6Ss8Us0s^B|6K-vLh5L2=`&y8Qy=C
zx9CiJH9P95Z-QKZNiAawFF`vDqdak@;rEoioK%SvWr10ZDe7KqNw{u#OW0$oUh%BK
zmh;O&@xJmw@gw=j<>u-&t2WmI(1n(`_H1&#{&bK6`I!qB>fvSqy*C(n(zakZo<N^G
zY-QrRPBz@~SD#wn8`7Xi*;7I@a_w_sNi6g|+g{PAq2D}obMzK$^2(r}Ff;S3qC<e#
zE<RR_H}Xb#JNBet3t`)r$;HWMpOXvp__{cff)><x*@IBn4J+rowMmKf%_FwI-Alu(
zPr|=VCGM}K&-<sbnbyhb!Q0Cfjm9jpe}_J0FF4IMx-Fk=Dd~=_ILj+OL|waUlf>xT
zGg)E0L9XbNT={{CpmnHNda0OXC%^`x!v3v{9N*qR2s;^OX4&_6<GWN5tfA)*<W;tA
zzhF?-ZQjp5jW_l0UGCl)!y2t*wE1J$EaevD#<=!?pw*;~w#Slm<Gx_LUd5c6ZTs4i
z{9efXRO#1NHnALH_|bi(k(d!zF|bZ!S{Vp3)SE=TF-$FG<QqMzanC^_-lywMouc6w
z!<j@#Mjfy2+svF_wbm6LmX}j}<L?AuW5`3z?wIvPnz6xsEFjKXi&EiqVkKwYrdQIC
zXmNZut=zN$PhhniSsy7&Q|6biCu&<#@!_}D_tMS=9EP8TKIVK)#J90t`rvzc&Gn{X
zkLy&+yh69f625eEK22m*SDeET^XdrWY$)zfhq|K$e3I=k3srF6SqA+RN>FG=Qj<DZ
zZiwr>4X9ujNL(IgL^Xz-8ge>(p?@x6#a}^W5}u`X;3PXbz8KbNq6k=Z&Rd-u>>Mu+
zZsXJ@=et=n9{CeOHB`Bq;i}c;d6m&{M9$=ePu*A)dxhm(U^LO_Up~e_iRhFl)lZcH
z3;T?|lJVnzT-}|&V)f#Pc@E(PFa1zm!O5Ipk{&)t?6sjzo7?}Kn!RZ5+q96xW}@J+
zZSR-(@^K}`_mfmeCCeeu_tU>n89f6vgz>itHJ;qfMpwIB3N4EgW8nwY9TCv>1`+jO
zl!Q|ligZUu`FBh1D72?E-W3EG$5fP8j4>*xD=(<BsCwVC^G~MP=XI;oz8eVIt~}Li
z>r43&b{IW>&sNc$#Ejd)BzSK&f>tniXt~lv%rz*g=jQ4AGd*7t3ibT;y@*y0R=@!T
zhVj}65{9ui^zc$|O~&uxpV$lj9FzLB@rCnR0Ugn4CUxCS&jwWkR>-w$?k_^#ABy7S
z@-9DBHXaktC<KiLwGvf<m^t0C2>`RU)-oF0$^#<a!`@&YisA+jv7<9d3Y+@kCR#>>
zxQXel&4Qdo^JSfF(aa>h!5sbRr~2*jH_uC)sb9&gr}B%r?MqA(s)cSkaV9^)cUyDa
zP!y~vE+urk#Qy=5-srqkE9ibbvsYh825$0Ftt$2nFz;yLC`Pp>ANm${`wp>uTQi-P
z<GBJD`|uC&Z$HSHz0dPE-zeieRyfnHZdCTQIiSs1V7wfj<BL=2J<XryL`AiGUL%FH
zSNSUQb4UL+?u}VL8r8l&kknyi7SR1@);v0-hLEvZV-iK%^KZ!8?Nv3#2jRb_1PvX9
zT5!uO4Fl%nb0uoYfmhiJ=WWY3ntZs!bvmI#k73OBjR$5>K!9`%#?A%xFy#fPWP4l3
ztR9nk8mVIUK*rJDx&q9MU%>?6m#sV3DyH!b`E`HuVOYt@0H#XsA#%>+R|rY|BEhpn
zQntT&`R=4VH8!QjKgr~JZ#GZoF9R;3;l+_X`LH}ge!dBQ_6h{vyKEV}Z^FwcVBOpu
zQq}lcsy%;3OMm6v*qoH$Xv83-PeAuyfm1awvwv|i72K<uD@_SU)+LvmEglBUI}-82
zQj_IWz~Lw=&6(w8V~pPK4mY-Ewfr}^O8e&8WZmf60X>?)DLj0;dx}>HwamgQxZ&2v
z^E%m4Axyqva1T5*tJj2|b0{^O$BI~HK0K<--&P3A^BdUtR<B#c5p)>oA@vdMm9L`&
z-i(ExIfv-)X<X`Q{zpT>py<J$J)T>eS$h@832PxxByTS9=cRfD^5G%6BX#^JyBk`k
zP#CN^0*Ga6*0Cw!IFLrYOB$NTanm&|JDZ;polqmw6`Yp+%TDmHsYabbK&HWZvgyQP
z!4kJ&A`{YjSf#vQwaeBFh8b8t8Aa@N^Ao>RY#!K$BT~N#N}{GMU&NhjJD@ll3a+*f
zU5Uz3Y7WcdS@xOD1GrZ_moCwhlY8Ctdi?qYLPa6HQhvc{lw=y!<Li~(hnjbOKN!Wy
z_g$`sxC9g5w!2!AC)rj9y>g@GSfSU~c^$vq*modeL9I;Wi0WUGluJ@+ngg-xO|+Rb
z{$~Fqgy%Bq_|jPgceAowU!&8=3GMDW24<$<cFJZs`%H1FrCb89xm?(im~mq;aQl8W
zcZ-@h?lxa8d3r;Wy+Z2J2x@H0_mxyXS~Pp#EEqRab{bIa4)v5nzMkIt6-IxzYL@Ew
z;XqRCLf9lmgGwlrch<exsHGurB%hubD$+!4WF6{Y&sW9&$<vBTk=%e5CDJM{+#d6=
z2<pwAkL)q&NU7)@dh5|8v<_#>!1Qo&1??7%&(oP({tOkOLe8@gJ(4&<m4Z8{%y{AR
zfW&XD>~UF7)6ez_&pXP5wmEv!*(SdJ^MOLDzR(J88`{Oc<4^8QV<(w~_BJFt*@yF9
zxVcx+WHBGSo#s#KW!H~B5#;J~gxA`BWAaiE&1;5UsP=|ro$Jx-`4P)H4KXL#ZDo(M
z#qaa=1ljhiI3-tH!CH=GcGO|H(_5SX0Kk3K?`e_iV?x#P2qWCV>BFKNf7C1Ca1YB2
zrkTsLj1PAw%Y9y?QPtf{@|N;VIyTrz9Rde(Rf1c4B_PUCC1VeV5K{RbteUepu4`AU
zZrMhBK}Ray)5N#iK2QBE#(+I!5|vV5!5$i7T1+g$>o?R0aFw^K<s*+UGgSaudvBI`
z>FU$O{ULdz4<Bs+MB0F=!9V54wv@z0v|(GtURNz&9r<}Z$7BKt-)FdBpc^E<BK%6J
z>hZ{)<tTXFAy*3DEMCf+ITn>-(ImW=D2@?G=E8<<EtZRPnyWV-0F2ts#?>hEFG8rh
zjXh#QUH!K%8W$|CHe+IYSb1w!0IVs~)Wc44vzg`-i$|6J_$n5m)Lj`^;lsoz7_NR+
zpEL*P4B$PR$c#JXy9@0ZB~54Au+?JRZh=9(SRl$1J5IxUvL%aA?IApVk_p~dGyKz)
zHqV@zc2dcaca7)enaf2gZ@F;eEjRkagvh6jXBY397^=^O7M3HAp`>|bw$X=|VX`b4
z-G+x>O$pil+;}-^ZNjD-W(|Fxw3uZSUsz!@0}tVq)3&OZbBEjwMxkkVSPj9|-JqWz
zU#x@xB0)~>;T`d&x6em)Zu0-GJBl4l`gWKbv_08>cxDr~FmX?4(#JsJ56pckPN8A1
z>IM9|aoS2~;XQ>ICFnxft3r2&ENW~aW@xNVx6`htG*D<1ymi5iIy4#INALm=Y%W3Y
zf#XGRVQJ-wVg1bsFe&%41d!&e_v3AHW49s#&z`>hK54?)XiKTC<$ZRHZyU12%i_LC
zW~dkM3CB1K^5KAo1EXR*p!pCcY$zN$&{AvGa~@!S&BUgO{0Y0@p=uu@$$K9{r>vJT
z8E+TZaFFg#YM6(-i9g4y)Lub_@}5nHTj_QE7GK<94s2|=rCF|Ze9Te7%TDrPn^*_e
zf;+NKf6c9>I<Y(%uY^ly`U!m=pY|*<UI>Zz4oXrI@jld%v(UXv#{wr(_&p@|W())a
zi8(hhG}lPnA0D`&_Kq5~>L!U6{&^O%ynZc@d~5s|Ek}WTd-#Js_CmdQ{0qy#!(kq+
zAhaMfd9|_Z<byR)#Yz!U97=JE1~UD=)bQ1vJY(Ci0HZB&#vwz4i>rxv0kT5)``Ix;
z69<p83tenvn&*gW6UX=i3R+S4!EaDD!1_Vq!K))H#F5otG43ly*;7!b!f$Uzw7qW%
zV}3(=ecsdAOg<tPcexE-UG{BdU)somheh*|cjk5DI2PLh2t91i!~4F&y-~25jTcAy
z^PxUfta6=&k50AWG^+7^L`?|qmzzq4`MUxfQ(rH57JRCFyJ11Y7<=3gM^!c?z1L<N
z<Zs?x-csbVf0hQ6K`1v1e1xuf{c9kf0Lliu>p%M>6x^g%?~;=ntE>ut*SKy5U0iRL
zlT+M$;RNyfEs7}#(#lQF``nJ0|GS0$vkm@t8_$lOtll*yF~N?rt4c-)lWwvDW{;<H
zj?lQy+}Apx+o1v$5Cx^k7p9~mE3&%S`%&06aiFt8lyMY19LoQRBO84tY^hh9t00Nb
zv^hyxJWzV1$w$+k@gX#OoaAbORqWgnM~_yAlUxydL&LmOmRf#uH~K#D@r3eQx_Hz4
z*@2lTOz8xxae7Drmj$Ce5nMRnctSQu-n?S-o4LN}6;Wv^a?p#tYG<cPesScqwDBVs
zt>?w_YIb&DSq8G635Sx9B@USUT8xv0U(cciEf^PGFp6^EJ)Foe8PvvIaJrCma&VEB
zjO{QIk%o@jmLeOTPctSnXtP<6EpkN-ZoDD|_uuC=!ton|>c_zHin}EPcQObUdS?g$
zSQfea>$0{z!t?a?WR+O(tk=r?l`wKmGEcosGO~(??+=rhzlF=U_Ez#u<%m<!e$X%5
zx#~bw6LUeEm;mvP<FPZMg!6epEbsFem`xow`s4mkMyhjo5b}4D>+Z4z2ZZ<i#sl*W
zSUQtmUjQ9&?W*t_*J)Y(QYcwxXU$v5DQb2&GFFO>=hXxa9o50Z2dHr7a?>RGGT)&?
zhj>6vZb<P5=6lgCX!}b<Jnz*ZG2gaMH~$kGUCOUhtg0wq&EmKo?SbA)Ob{$Ropx`~
zr<&KuTdlt7((xVFY5Mv?yh&H?Va}|VL`eKX_H)#Y`}A14y3xXR0M{Ss@g4kHqDn?!
z*?rt-`*}k5SA9~zl9FQ6FH%d4RsK8%X;!kU!}JNgP*(N01+eIX{&X&LVZ7j>i!Amk
zzierKEJ)-OrSTQ80!KlqZD7L-o`o`hfHd=x`ih3>&YrC;<p;Ox{F`(|7i~VUVwZ}}
ziD>5J1`jJSE0G8c;236jUXbMd^DLPIl%3kd<)0>-662uIWD~KPJ?UoeBEfNYL9HYr
z|Fd+N1jl1z49oBe+wvA%oC{QxD3FBGFpgB5WzCzz^?uSRavSQvD#A$KC`Cc~-?1kR
zAC#rPwEq1QKvIBD*{^_V{%hcWQ6CE-a2(DVo(Tc`NKUSDd3y|D5KOy=RmZ706*Svo
zj^eoGmY#@L!t2mj9*1K~x7UzO+$qgx#1H#$UJ&-8rUNy%Hnnu4xTz=C@`8gPcXXpN
z?lyGl59}7{WT(Xa&GZR*cdOBIA&;{ujb9@gxdkh~;3Pr3Y?4k$*slS&6V92e2bFkX
z)q&U-j!jl6Ig~i2=8a17IK>Kd!^5tOhB$HmVXMAMhLp_6RX*Mkqr|0~eX}Ij05JGX
z+`~!Ylmi_#tzzM5`H^)}WTfa;8~?{}Os-&)EUyrA6JU!i2&{OO^SM-%Wmq;@ZW^`3
zP6cvyXgP3KMS(09h8}p_2we;_q*<a0Cb%9^5-z*j&|<?$AD+w|P*93inNa#c60yXN
zINH6{j6tEL;r3-hJ{Xym2q$d#Bovgqb)b45qSVKWZ>K}t^9*a|z;c{-jXpyEic?@|
zh{n#VZi-H@P*Bn&4_EIR_E*Oj4pa{9^48hJ{Q?QcieEufysD=+-bYR6F2EW0DsIje
zI#`5En%JqwS`Ix@yDDC-e(ZAhAz>{+0K?fIaOtw;4JV>1H+Knw70BJp(3HT2Jttdj
zVQHL0T{_pn%qyh8;d63k7~t$WIKJ%&9E%7}!9%pGJuy6C7(0Bi&_V3iww0wwyQjiG
zh#cG=^~RP!;FQ($a#CQ;6V<`44PCnAX4ZNStE_3{K;nG4@Q(WG9sUA?c$Jj_TWDlQ
z13v=;%%k2_d?$nehJp<?4b){qy55pR4DLdHRPS-r?oBw~a2i;%p#P})+6TYEYHiPr
zr7S^JDxz#1q7Z@xgkyRY7zSb-5dJ-jc=sq2$#Ry5;6Bf)55&Ai2E1&v4c{I!NDnxu
zc)0|FjN2X4I*x+8>(U{HpjwH30umQN6w>gPk>|{)50pF`tj4xRXA_ycih}5oKq-c%
zm`rB_7}|QtWc>cV==bDO9CNkZcwu+UCZqS~1`cqw?dL^hQR@rA3sjNrz=~xC3iffo
z%xfNQ1q?%q$BOAR?cxQDr$zYZ4X-pS3{5DSEj)FI%<>lyWNxl#4<J0;x9xzuV~63K
zg=n0!nI^*SQ+ArLtZKUbncYUSGw}E}F`xh++lYcDQ_Phd@$^iNbdv<tF16;zFh3}Z
zv#z*>!#W9F|C{4ObH-k9)(vXFE;i$EsDQTjbgADbK)QD_=ND5r(=_^E?0Qlnt<h1p
zVxucR7U-Tl6c`>Il$TB``&lc7Ko#M_OKr<qT7>buVW?0X#JfN{iZgTQaORdWuZUyY
zE_q4k%5CEQ<YCa*v;1f}{F7`z%GrUB6rlgJw)=nR!~fTSRAc}CT;f0K18|S)yuUd2
z{gh;x>#(OZ>DF>~<EYNM6=4MeRjJMo-gy=QM+ER-v=XeQgQhM)T3pI`XY7c{nwaF|
z&;qc|&al!H5C1dL@m9{>Z(;ZvoTO&D3hsz<gt&-9pp1DP>C-ql7n>iL^So(*HyYy9
zv6d##Ib|9OZ|Pa!&H%dK#9iOfx#Mb=j(1kmYhgKu0Juxx=$`cj7@d<r^P|;ZC60(&
zdBOS7B2Gl|@~%5{>kV_{{YICT3l1=^=)Ls07aS!l%02qX+|I!=WU)}_r&Qg;bP;dJ
zIGW4WADB}k&SC`bBj;V><4Q4sW12Q`!PyQ-5T$WJya3vJx(9n7_F=L)+va>>>eMQO
zGvudKwMD(GkTmzp(0(-si-_TKC*B;zDmi5VU<&BBz_yhb<<VbxO<+QERd~JtvsJY!
zid%dsCep$kxI@Jwg;&I^_QpM<Z8*3CSJ_7=lRJdfv|6Lg57z_?*PR%Zawz5opD?)a
zW1VY?FD@*$%RL%kYf-~>A&*O}#50iCsf-JLD#wA%Z1#RzFc)D7hFhLneXNY+v$6Ii
zLi4aldc~jf_B8b*gF$1U%5+XLP&aD@Aczau`wh9;rp{FV_O`xhgNJ8H2mP|Dv<nxL
z0&Y)bIO`C91eVS4fp+)u*ElfjtWg;UvADh<GiBH>V-N)qb{WgXwp0jPIQuS_%d)bI
z=_W2`?GN54N7$t!vzZH!EI1>CIhh+JO#PDyy)FX!bUL?6f~Yd}10>lBfFv`R^cfrQ
zd8p}bAp7ONDAWIY#wgXboIU~qy;N5syun+W%9OE^IRmF}3n$=Mi30-YcE)+}m|zi!
zhRAZ3k=Dw-?Eq&P;?UCQ;oUQ^8$3;#q}0}(z1o9ycGUeql~LS_R~l5qycofe@WFf}
z*#RNS?Es=hklUf=D1LX7CQC|Mms^Q3ee~bfc}bRo<%Q-@2?0BSb9a!mm{!D1_b+;t
z*(z6^mm1r9tCS}7+Rvx<eqAoGpSQvzUpK{Ys_+h0PNWb{m3-<o8SGS617HLbI*7FN
zg`;q+INc;lyy76bBM;dtUFMd{Y2Z=q+z%J*>I4oVpd`eV^5v(ydE=#g!r@C--EWt0
zL@I2hA4FcWv<un0<kVa&LWa+U)I3(<FG$9!clkIExr_hcaivTN4r`nB<gylmlh?wh
z93xzLvoyN#C&7nA!BXO`@|$n0{sO4~_jdu<Ygc$Rw2Zv3@I1~#Iz)m(p5xJJc>rB)
z9rrdC%inOdbU^gIL|o(LK!tM!K|lw;LaTUW(EMFf{TC}3Efmy#YvL(;vo}nLq1j|Y
z-u)C`FI@CfdQ)+$gY!trk2YXDYTj1?3rp0lPgkAEHWEm-2h_oJe-c-7)QvxJHF5IV
z4VeXBUvezFbbc7SB`u|*O!s_a;>Okg4ko=44uD1392`(ic`C%e`IQ#hJAtzbT%8v^
zkGs)^ddD((>mhf`nl_;>S+zA^d<RgUTj7XVcQbZ=RM1kBkIG?t=!6QZ;i1*~I8al%
zn~R323vYMnmi3@|Q%d9di_~ZeVYlu*pw-zovn{wYQ@W_w&_!`0Ky3z#)Wu)VWz-d|
zGr3|<C68NYLKiLKzMfSdnJK}v0NhOQG&TOEQp>joQ)EB6qP^dAm>37U+*-_4(hK3|
zTua@rzqi64bD9rDF+#B7k*b}e_o+_0s(}@BgDuT@YuKOULOO>7FpT3R`PFl$4oIaM
zl>(dT+GHA$&WP^#g~qm$tcf-=wM}NrYD|~A^_8xC>Wy6abb-4&hA{bVpWUb-`(u|U
zzgoPBn;E}sjEW+V#q+XB%vkn3K)w!A!bUWMT$vt-+n+5P;}FnfLxkrwMEqyu`8H2d
z@O){ZB~;>fbU=oKWzVX9U@94wb^qHzR5^l1uwjsG+W0%|Uh`2|E7ggQixJi1zbNRI
z7iS%T;NpDR4(v9(|AyXp_dBb<)4ubDx(BK5NW=O#XZAv_;1<B4uG$My@rAAs7gC8Z
zBk>!bt@4&BZ+xHRRodc#Xc{5U4ExcBhrdW8KrWh8B^V<`^U5gmb~vxF?Z^jDc@Gt|
z!o98*oaC(nJ-yjs;`BxbjtKMal2I^kC6(Z<TpL`8laieUe_laEMK<}E-Ay|mSK-Ka
zRyeY{PesS0-c>!!g(gy<iIlE<FU9Y+yS)+V(x^_7BA?yEB@Qf8ljv)0(Oalxo{kpf
zM^+i-xH$62ts`{-PR12su8ig;Ftm=cxJ&sD#%>3;GsgYWE2+4xDMtJQ3R%u5lSV)r
zfAZ{Ul(Y#!-l$F)^11LHNB`(x<!^jP_54xkWV!l~GHvC7<($L}Y>5M*)YBX~mrLtY
zsSl5VLfM=TTL)yR=GKtwjaDKngT``Z(QZXlT`&%@s$`L{#s(p0zwM(z>z~W2!-Nci
z>LzZju9NP~p>Y1E;FN-ol~&xXG?vla6fwZ;u?#6)j?q=WsWI;CCsHwe+&Q5433Fmq
ze#6Sdarzj&wYkKwtXF)kt&j-IHRTs`3Tag|Z7kbHm3WSKhtofQe4lixH}u4*F_Igv
zk^`YVROSy__(#rt;gFpNaSK-p>>+Mqd)^Qyk!GfWNX`F8tE_VfXn1q-uxz8U0dY~H
zV}pp)*aYK2X;eo{wjT8YPTrb<`uG7VJ91fb(fM5VyF^+OP<j3a8#zYn!?8*&>mQg{
znbIuRo?vB%IsIeu{%^>p@gIWvm?M>SZ)dSxir0G)58Y(#lGgE%vIH3UvWnBJWeKjL
z)xxFTUv|uFpRxo27w1*xNq<v5P%yRsXs;|)-*P#mHD&>S87rGL^ztZ>Yh)k!0N{b<
z1*cR@tuEHHk`lp!6qpBE5u4&)#>uWL!hN?kOP<F~zZC1cAB0`v;nMhYtZ}l#Zt3M#
zpK!p+EumPklKVkHZYh8Bd8}+dZ|8$rW27zz(LG@NX=(kgI$4$pdE>H)+fzK^#eCa<
zx2~feECm`_0Dpl<#eP@H&u~9T04i4KQJPFum0C%F65_CkxdZL07PO7G7we?c<>qz*
zLWSo9v2O30Xz{@!7XEddZC!_Heh^`o8$^zN=_Z>W{Q!vbEW0}3DGO|$?}8J8)h|{`
zbpU$Ez!54=I<<-#Ii>ajFGuk;=x0*|xkcE>;n}AG)eYrokWBEQ{VB>36(vprY?ywd
zBrT1;m1gDS?8Nebz<L@8&US~YWZh8dLH0L0W;w#j3JKGT_Bgn42))v1R4nGqQCwuQ
z)O&X)5ICPXRkT9@8`j15vAfcIjqz&s2<W6NrOQP>&?DT;<`;5yq|p~?JJLGHABE3l
z{6fyX_H_bmBx@f>rk<p*IqmPa3~Bs_+TiiXJwZRGn8w4B024I7PnWsXt<^(jV<dN8
zK1V~|#IseVfl9D%*r#uk9G+@?!*`V&NUFOlSm8JqFQA%)YrwlqN;t$(3z@~`_5rH5
zGN2)Yp(UKpPp4&7owurQ=%-uwQoip`3o^-0i~@F6C>i0Z2inR`J$*3vaU!bRHm??c
zFtC>qWY_k96Xpr20T@j<5PO}+24rqCcM@0~<s|<462VK{g{y)J%8?~a3#J_#<v#d{
ztgzs7GLxkk4jfR>%@1M)zBJjbgfHEQjLc&XVx8-d4eroL9-7mrfQy&fEdde+I94ca
zS#zFMo}v=SY<mMK39B)07FJ37HO&~iQY0DYS-TKHJKC--<0UTV01*tgq@p|^C8l`O
zsCSLK1K=uuEQ&n`D+LPz2RodaeZf#A@X8ArqDq8pm7UkD&jtRi<;JPO#WayIj(HU*
znjpL>o8D#2d2B$&C~31+p%sKd7IJbey#iyxEnOIu<A@gDvj+k44!H9*V9VXu6i@bI
zu#-S}#zfJ%?>Qee6WqoS>)?TI3Wg$<|6VsIKtjtBvhKm?rTp`E=2ePE0+PKttzmd%
zWkmhT5E<IB1Lz@1*CdVr7BD=Y8(`e@$w8#AvO>CrMYONJ>RuV*n4K?NK7W)dODV)&
zU|w11)}bM1(@J^neqdr`q}hwjBGvGR5)biJ=;Zb&i(((lI4t?3ESt;))!%e!F?MDd
z1*#8M4g%EFw9@9S(gD|gWek2J<YnW6!P;`?(`l)@B|rdHNopy@LtcrhO8Glz?CB&-
z%M-?h_TT<dPCnilLw&7wjnO#%!p%9)9LX!SG%icYskL&McfX=-MzIRJwXQ*9^_U=g
zw7(zh@N~Okj2+g~ff2P2L9OsS9ccATxcoHO^_(Ca*(yr5pC`NC(w3^ARngeL6+X{F
z&>q>RLTaZsYO|cELE9goisJkpvVUW$&$YHRs;qt4*1-j^g?>*<rjXMf0Ol+Ny4)dJ
zbt7ze7PPIjR}d(7NNNc;iy9wdBHbZewY0Ec5_TbfHk9V8IlnvQv@AR;@3!xZ2_M|^
z(W$_Tfya}whvI-oV`JrUR~`nmniXg1et$mY%^sQ?*rXEM?;u(X)d5<VLk=Rve?>f|
z9~QBZ>$}XSi8~!cng7G3n^*+pOm7wJzNz$xa?!~Evgz8?rH;OB@GTjUoVq4Ex*YK>
zU{?3y5zTUw=&Ae&<H8_v?7xEHpluzO_#lF1Mnls66+Crwf+TKGUa6?Y>09Ad@mB}+
zfAqo+NRhZ$_y8<=$7$wF>kHK!ftEr_X-A<8BH~|H#$sk$Et`zXH%f&L&`}4>pktPU
z?n3MPA)q}p{TEawHGtpSnzMkW1JajM6^x&W5-4sVI+7h3HBHyw{o`N{^foiGT|n>F
z7Kf~Ax>aDQWW0rFj7Q!)C4-y<ZPTDL%gC3)8A@n)TTAl=gSnbuyez3D>^<?@SV1(H
zM+uEllkS%Q@%xWJDTNRMmY;Nz8hf-`hVim&(^6*|cR#j$`y<&<^wxhCxUZ|6zFAiH
zJa`Ysg=5v+A-+pPlCoa)(tp6dF90*g+~*_{G`wRfzNJJs#i{x4b~^!JpY$Z2?gbuV
z$i#ylnG%R^PYHlm`YZxJTb9Rt`zctqp^HgZ%ZCwB@yKphxBaqdS~rI`asBM)!y*4V
z@X3CDBFjk@>8(56qFdp_QvTXyoD7V-w`%K;k*@N9mNcsQ<#%;DeZG3MXL&R2Y2H^t
ziBJf<dI~94BiF|D{;Tn+9IR+2?EQWk14m8%XLhXY)>hWRB43%l64H+id{-12Ae8X)
zZTww%5rI%2-uocdMXD@2RL)A><ko+u8Gd2kyML`m_WWnhR$f=>R7Vqos28JpmNK{g
zW0`9}AhBFjEk1kHoG|@eW^k9|^*3b-ak=VSK8Cp1wv$eGwzA}{vK&yJh}scn#<Qky
z=wPWO*=VL?P$<D3)tqN**8m+JfYPx6_9O1&2x;op3*^!`7v3YN(2`_Y7w2>Kqi8d&
z2Ddxap=*4yQFTc8$M>Y@@!rMV;IMmv7o;dI;Os4;X9JP7m1cn@ICnTouBcl5dz@*-
zs5=!H1fs&B!y4@#dNXj(vnSX8;+Pzz)uiP|Zuc$OylRir8ayoNKhiBL$IBXknB`^%
zN!kvylcKQVRz+%pz*lw1fBee&tZC}}As^Wb$=>IZ>&~?m6pv(u`HW84&zq(E(<CPc
zb~0yTQ}8Xdln8jqh;LaWgQ62W1dq`QJ4xG!@gkm+g6}s;4UFYe?J-4qjjBnzU;Sjy
z&h2+j{s5{zqp{ufV4BS-lSBKGLt78OH5~UoY2=-xFzDUJd!sS)WcQHwpGMwjn{9V4
z{&3>R{U16%pZ`3-gfFP$*w#HK^&t!hjX@K)Q2VH5g|2l$v_V4#j_gU=>78PjF($r_
zhVwgNmzVD3(#8I-)*BOrr$TkCBX3^%LF5Sb#0VdasJhz5s}IKyN-dM16a3p7QOXI;
z7#4c+JXnWQ)3X6)dNxWbr1z!RE)l>RCn>XN^J9Lbag24f{pKcTbV*6hF^jMfQ6p+|
zsMH}>mX|<;oZFi1bIs`<y;Erm+vlaLR-_M?J_MQkOi4wX>rgJ(XKJ{Rs6@?Jcl5nD
zGVwG;682iRZ@LqNN}sd=Zx~Xv(d(xvm}9Z$oGQ+mm#d{sS}G7?9opulTa-n+pxJg!
z`}QsAmP)kYre&pDxG5l*?GhvX*j7dBr8nuXwzs5D%7YK2je;nu)sY%sD?pl{M(pzz
zYaCvq(FdKS5$nliPo$auOd)6v;Y~MwK6ZrMc&9$o|D>HrPiim*;TV`t4<|Q|ZPm@b
z?bZHeGR>|xu%sZ<AWPueX}I>g<X1{^T0VNRfyp&G*67Qv&+N1JPuzI@25DUre9h9(
z)Wpw-3(Ux!q=7x3OmZmD(6jWk_~z&J3!g-dLs#IyCUPnxzNr?G>x&(BO)9<-oySY8
zn|39+?hD2`735TJc>}Q@m}1nOFMxoVY1P(kHm9s83@lfp(Y4c>35s<>>sKRxk@b(q
zoDB-bY&yHUsi4@~oskM64HI+9UNC=Fyf6;7%vmdZ->5~=vd;`%^+%sgi`S#%rOjEq
zLCOF`_0##ggdjc2esC{%X*pd>&=YkHrX2uU<ALmKTx(VZ_Sd1QwUSk-ymG1<cTTHD
zYp!*G1}`r?NYCk2zpSrhC}Xq!4(>aczG=;;DJAIjU;GYm_v1K+Ga{c>sc5?1ELDd@
z*`kRrPlQMG+!x7^(YjGvfdISG`JT3LwP>Lrt(oN9f<mK$8+0Lc**~?VYUHGLnaO6J
z4UF8zJpx9iXHXcIjb2L%K}!5i{A1T<93&k*32BlYqwJ%@UDy%7Z3~-7BK6CWG3d=T
z8`n0QrLCXC$2)X?N9ThV?RPNEZkU`AC4&Suu6Fg9REN&pL9f5_`KafBA8{Q!?Jig2
zrlSKKJ2egZWh^V95m;OB^3s|LZlk{8O|-L9CjoF*nL=bYDf~8tOAPU)ZWGExIcc1G
z>6_=(<Kb%FM2p|1^i??DnY_nMAP_JaOJ{&(;P>Xk9FC)^p0~)B>3&fBQ?oigovYs(
zZC8<Q7x=Hs6SbzCHHS+gQKUo79U8IzuTr+iHgA;!_SyJ_(iJzg869sy=@}>`9-|yZ
z=ew;jYS13cE8idgO#cC#8Wao89Q;IzKyx)rbSa)0rWor;M>NcT?Rp3Xyd+TI%WUYa
zV~{h($eDZz!sFH#o;X4mGN;~!p_?r!7U;R4O5mLe;1l(nvLzhtkv4e<3}C_%NC|(H
zopt;XBk$PS1oQjrB|qN0e0hEYhF0Q-!Hdhfh{yd3Ai?u8V;VdIwCo8!5H~fC+lY2V
zN2!d+vXz{L&9N9=aCM!t=g{k4WE=I|3{vn^0?Q;jSOX|1z@gLsd+JI$1Dpvkp2)CY
zLpE1Ms@uX#YZVH0JEQ}x+oZa2Mx$mkB**<1Wn0%)lmddApQdQ09ZsJlf{|L3%x!cT
z(R}uzbjutO9y-6ku=<5U)*Q~5><3xRXNY2NofXTBnjH(sr=EUeR+-GopEM$=$hK7o
zihLx?h;r?(OAj@RjQV99M9vUEUsBWaXxXIKf!SNQMK#T}Z4?E*j3y*(`Y~+`5tXU?
zy594y^G^q*)1LX+Xn(47D*&C8-E?%QpDg3$a(x%S_qd)Ffxf>%WqRp<IuO+L7hU3p
zW(2PzqmoU7*C>De;}j}I8Zma^uY1uCe7*<Q$?)?w-%d4zf-4Fp|7M12KRgzD5lt`Y
zPTcTE+pQpFiUS?ec_S)6Ldb&++Abx6b_2fg7_62t+1<%4Oq+DX)gv6Z?5wm=eabOy
zo~&^D`o!m_Izo7}QVrJ>+>$l<%#lpCN2_a?m{NwpNL_O7Xt}8+W%soK!<Oc?Fxe)M
z>cG#c+504DAj-RH%y+@u(J;`k7RAbu(`-(GphpcU!CGXi8#IJeKi;<BZ}nV%@PbDp
ziUksBnw<1IzhDTqwO(=t*Yi1}MwDG?@s^YT^g0;di)Pv7?3Yz{-FiEie2Zt-kgn+6
znyzyU$t84&p!2eoSH`4DaP4wqS^hX&uuUXuNZx+3C0v9gUPIEAQIavNNYZ@99S?-4
z+3i%R1PM7OyUz_A?2gD-vKw3#t>G3hjc44g%F@FvZ>Mg9Nz(m($zA<@Y%tDhcgQnY
zA&?#XQ}aAA`c*tn8O5sOY`8%)*Q>8t`hQhZSODM+H*SO<yd}#ECt;u%I?NS)4?gwa
z1fJ{;waL`2tRG<6uhAFMb86|i9B&0Xu&V?XwK-HAftJ@?v;CfZTRqaoLRp7gZNDu%
zo$TB@;`U+b)Q+r_kG;<-E-eiwjx?dT?DLO8r1C%82B-p|PnnOKx|fy@WEss8=G;(u
z#!~8qIT`GIi~z(HQ9*W`jBs?_zUJ`q;em~erP89?GQa%VVk5?#e4*>yshK=9kgPRD
zO&yXokUmEE1E!Hb-emxy^jrv;Rm)gXIv*l~z^|u)Jt1k6MhbO2G01K<1J!>ePb$ps
z7r@`5yNDVLS*&@-x!jY9@c+c+|K~yRfB1}`u9s%5t^A5~f?b(RyRGkX-k5nBUtXeu
zkxy^vQ3z;rE6S$LwGk0$tvF+;S-exg-%_YiY4OICedxoZB8GMv5Q}SIHNEHmAP>jh
zn5m^&FAb`!BZAQ|jaYkg86N*`gMKtmKT1*25>Ra;sp+oG7eH$yAa8H*S3%srJ7g&M
z`php?2*HP?2cLTFTptQ1j)NH(O%oH!Q?Ts}E%s(-h-a#dqgNgQzvGL;Uaj|ovVdIE
z2@+gh;xNSzUxAPomQpcWo9eBbHb;%|GnPt>UK6q>hr!XWJf6&71y|TEy<@U8X5N4c
zGyH$*y}(0y67SSYPsSAc12k~hXeK4;(*g*ESyH%}4VT8J&#QRXWFabd(hXdgS*^jP
zfj53lvsq&5QVNvAmMatKKt4){U3m%8v;`<=<?T0dvis<U-s1Nl>cwglx}*5S>@CO6
zA4kB)VlnxXJg|}R#{mo|HU{0Nd{Y_+(~M$J?C6AA7M-=h7jvSSIRS+^&LocGBR}nN
z2^xstMlgRqgP<{d)i>`wh>Sr`l2GUX;3f>~4+*D1gOa5ZH0z^KCrynjha=wYHQ^8W
zYBG`sLYbrQM)k9`E$45tU|LgR`Jpga=Li8a!$5hWl{$Q7xoYL&fqHIm#?sTxVMKij
z2_0VqlN<~5&yhWR_TF|8h+eIXrSgYE8ypY}92uwoJu3Yl0C?Eqc$^jW!Khxd5rM`e
zGi47Ky`369xQTjgmR@@{_HG>*hzdm0L9x9bEM&Oue;2szKw5Ln^Lm|&jYF~?X~Hqt
zmt52T;UW3|>G7p8@Z+4Klv+vhZ(IOeLoR`W9-A+uY7CEP>4rGSGIMrl=J(S5>#sXx
zrENkA`ukfzUw;h-EDtz%TDpuAp)Y<*Y0GhK`Bi4C-+e(br4xI>g?aw|yVXC5Vz2yr
z#!<y{HHR&(t8^HBdb&v*jiwuoPD53~WV~)VMd~$}$pfUN&@>N|>u|GE8^_c)ex?Mc
zg@ipTXM<uL&|IUBvdqzKC{0NkT|1aZ)7EcALJo~ofJ%(|2iCrOx?B|gk)h-8P}Xl#
zc{cxmu<oZov=FqW=>NmOp^T+RX&jk9pM;map|^CQ&C8sb!@tAfMjvG{aB?#!relJn
zP+v!UBgF%`1jU*^WlU3=ie!#^JN-M&{;z@mb$#?_f?)|KK*RbJPq2}cRcC=KE>)lY
zN9n0|%B|?1?*iD{-i56nK#%HBNNE5?*EW7Fng?<1mY#yVz|}+^Q$`F5jsOV@Kz|`<
z5a%j6K%zfR%a_(6OeKA|bV7p5J($M<bh8OXz6Kd7SOT$uzrL8N1aWPaDq>`hLK80j
zTS`|~+B$M-qY(`Bji<qUaO`3J<wypTYC~eFXHDiDuYqNmpP;a6nZ8oT@a9OF=3gKx
zZWIOXJi&C<G|{H;*E#52k4Y?)F@?qBke@9HBu^(_M>ok>&TT1B7P=fKAE970hYh_|
zh-uBgP=bFW!<YUN%UsLU_AUV-C{33{zN`1FvL#CQX+7+geOrFIbw8NDkYQZX-LCrn
zbEM)RXxQkwJ5=n6wzAPz-+mZ9IdYuBQCcZA3&dYsY8DGvRw6E0@>2A<2||pXnyaDO
zqP<?4+d@xhP@Y~;%X#o%7-ibH`sH!d+EkXNpTfNJ;Lv0&*t3e;BARa9ygQ^Wyw6*(
zz*rlmA~Qi|=((#=HJ8zIDAFuMH_xbNBOoQqBND7boT~=K2BMXKn|G%*Be^6&?-_a3
z{vcNIdpne{@70$&w1=Z_ntqyx<XhWrYNock+w5R%!(4S&B;{BZ$ZtnUz`)StRWP$<
z&=Wp2c5inWu<sY(E!560U#_DM=T0^&=K-yf0}s{WZq|pY41NrXtZ4Z1x5w>I=fF#u
zpj3Pn1(6nilWHO8KJu_%RqZyNirQG78*S7FhoL7Q8XB#6p!X@7Og@=wWEYn6LzP2V
zEfz|iF+S+^%V<`46=et5k`PL-KOFb<IdItxcx~0BaXL2`J-G_<Dy^bCM2`vpsd_!(
z^EBX4ZycQ=8Ou~FE3jq8WSF5*<2kfFA!Hccw%e+i)?)K`xz|kB*$V+hk6KVPgF}}1
zpj6YZ&+b(Vm~cV)C{%i>*Noc?T606wX+x7AKvs;}K>G?9iB|!)az`#c_L}U}!ds&s
zf?`?siERhFH_V<>=ufAAYNpLyC@?13G}@zmRl=6D6bOTf++&niS)RF<bxF5BBMy~t
z6<h@V0R>PecSMd8OZ_EtD$A=S{a~Tey~4Awug4PEV8%i5&y+9xdAd@4IE(3zD(<nn
z=4my%>WQ8O{+_`qyvoeJbirh$4Maq(b$NwhK~(me#^dTg(-uh}!fC;1l>1z-0~W3*
z{*}^;t7r=9$}c#Z<v;Zx#dwJX(p>q;Y565^I}2RFtn%$pi;7l+<SZSzp~|`($=apU
z@a+A9^{XcKM=IK*DvI5Un4UY_q(Mmy9sqpUBWC=;W%btX$H4WiV4WcnT<`|CfBsUW
z@TJ+CnC^{qB1JR^+Wj>nJZ&=XXf4zO&0XnKx6Qe#r<jLcce`}AX~*MI%+GnXvjHY&
ztaOp-r?OxBQbEQcRl0p&t3d&~uSnv+{LoU}K8_~1qQVs@B30^!vI1|PL!YtSZ*qdN
zNt@^AR*)l9-x3CnoH!slm5j_0g71ME!#W88(-ha^l3-|vt;xgbK#zE6XA~47ui0pO
z8PIe<N%QpJrxlmRU70`G;dBp>3WH0`m3q>m(mXtB7XIioF|gZL30#6wpKrd_{^#=K
zItW@*w+o!oyV^2krVw3{e-^6wX+Cd>8B*wx9jUfSA?A<H#{<{V_<&W-(Q<H$L*VRg
z<rx{FlA9gTpPDtf{Af5F)Hst6dN{2*y6>8b8M=Gpi?s|Z5~pWyH`8ukL)+nn3{=U9
z`x{dy@cUpkor95z7aLE0SOlx(EI|vf@MCK(aE6R+KjT<}qy1wKESw}jjywPUo$Pf3
z?b6TbyWD?74>6uj?mw>7AYESW;`K*~;NjfriiI8El*^5G*PkAr<#}dA(wKc|@m3Tz
z+zMv>vP3rZf3JV+{d_*FCLF5sLaTs)pr1&~PoMP9AhS+Vh7IXW2(<2x!>LNgVyB+a
z>&qzzwTIIu-+^{tie!U2K*PC{0pOOWllQ=uPbQbfi55no?=*p=x7GtnwT>(SUC<mZ
zj7&lNN->KQlnnoYp4Dh{ycB}8pj44qq2S2#XuL+O7dln5F{qU<uzp0{jL!c^M7aTd
zidcJe&3TK2%(_FE`rfXHVAJ!Vn6$Ky?Rud$v7VNe6jgYrdO@To1iggfKT2oMaE+ot
z^9KdKEf>%d+sIo}unWgb0^UW_`_Ct-Wlbh;UK!s7UNHS#9HHD{Qu}0y%x?w3>>?*X
zgP=7ZwB({R<yuGbzCHYeE%r4C_T|)5pSvD(CLAhqJ!r2vPd0)fJPK;}6}cX=-`rg*
zui-iuMP$m&Gg{8WXBlc%OP^|sW)2>sL>%9IA348pX=%k;AnyU_;`qI%`l4E(;y8PL
z7CEbyE0k=er<unk)Z1A{`eBT`a%L=1BY)euv!_4?szpXr3OH~gyT#!5JTL3m&6efu
z;%stsa`bMMs-F6~y+xWoew@CJrW!{Z^aP6zo9Y~krQzr8lA{ln2brF)F)9vQKAf8o
z0d?2Q&Cr8>UI<=3k%UW|_BFWd8<db^WV3_0`MhOrG_aA%s~=CwKkC64-8vi^IB`z0
zsvPPRjxyk!slEB+jqvmQR>KiehunNY{)}o;{eFzAa*~m1QT=sGaOmN_pTnOVNb|^_
ze6}sM6g&~%9S#Zfz3|HX@(yN`Uhd!)?lbnsqHQ;$oPKJCUYBXI_qnUGGhuI$t1_TT
zk`cAD!8FkFe2qczw(LNF*9?PDIZKY|zGx3E3gPp{K7P0Zf3YQ#|LK0QuLI%}>6BmQ
z`y<D_wB0XO+jTnM#m?($H1>Xd`1$YRi5h40Wi9%~2?_!|m-iE<hs5{H%vdz>UpX82
zelxmRb1Hcw)LyM4)D_t*xP0hzL0U#f)abTQwI>;m(!zNo%#mP0<vQobCV3;cOLE{*
zOUexlJ$K-C(#YRypt=Zau1#!VBOE<jl5cf+e*WnaZ!xPPDBR7ftDTn}-m`R~$_gkH
zUzG>ieXHMF6m(Z$6bg;E9x;7r>)|N53rd}@Blq(?rMdbznE7!`&oC5CEr%SmCrB0Q
zY^+-3ssbpa*@*i2-xYG1bx~wD#4VefNYS1zvT1vFlUx?BN1ECOC1|Wgyjo~WT$s7>
zBV5suwMTM-!c^%mN4|*fyv4{@7TuT{WHX!2Fq9lQ1-YkO+`D#Z@sNe58fLL)zSKO8
zFelhtveyg3kph7rDlg>KFeSc9Ny?a4#z`fwK#EQ2W97k54mx^Kjp9g{WB1+#xOa9}
zy=wBZ0h{+U85KTkvMjDp23al}R8(M9iegpmHSYnooM<pTgjhe-C3UdR{C)h548HC~
zW3QhdKKgVuBb0OEv!wr$n63D!1FXzHEWGJQ6e%=dDm3>XwYoYY7fqq{H>QN%Dm@{?
z>8GA~VMQv*yxXTZ?@BPP>Pbd>i;U=b+d>c98-k%RXG3i}D;G_Qs~Ml?@UGV1G<d!S
zsXLf2k@1C|r7*wFp<A8?Yvu;Kd^t2udq8134M%(Q$vm|*Ee_waY+hk|UWME(%+Ag1
zdHZ<(74zn6$a82$8s|ec#O?T?$@Ke6YitF9pPQrnWv}w95-+VOR!D>H1fO>)mc&~Q
z%a1(A0<8shS~v3MY?lTzL;}^8VEgB`@zan#z1;WNga~Uhttl<#pr~t!kEqk>xCl*v
z1+V!OS>#&QtfD@>G+lJPxD=2flIUx7T&$^}MBO~l(GQ)_r%rH8^>W#I&}-bf*uoAP
zB_!GF>%kqK*$Oy$o~9l4=)PNEG@jQvXct+dzzG8{S^Xxk`s7qn+&#T%)>(c9>aS^C
zW1%(0t*~eJW-OTn)vhgGT6?ouaI>lZ5w#gW&6<PD#i=t!V8w+Da{grXwvqgoK3|r*
zLB=+*QR~(1a07(@qT~e_`X%b#2?+~CaUbDyrw4Hk=hF0`jMeVth9=vj=~!!sKqg;}
z5%M`u6Z;sAYEbr)mdKhWsJn=q`wvSz=8calCC1zYo<PML4p^j(>iFr2@>Y<7{BFDa
zmaE5E*z;nMb0;BGs#W)lCE{RdRLHCKSIVIqw`ui#@iZ2a^DcmC2n0n^?7og#lc`yp
z9eBx$!~!~}dylRJyZxw)nblm&^IY3>JR%#~mVegHCTA-C40`@}%{ylPB<z}wlm2DE
zb%er=B9K!3U_ohrf7EPQN~t`ch!ouHyPM4R{x%@m=nZk19lCO5MLmX4re~liOo3ow
zTlDVh>vSdBdrQLQH1pTbH&W=8i?PvuM9ht;A0N;b3Nsc*8qY8S2?1!Y8*8U4NVcTi
zH!ADM2dYn<hbNErQC_QHkp8ix%Hr$&PVheOA>X*$o%`!?&chW<OU&?T%(i4|aXMbC
zQ|#drU+3y^4+ezV;27g;y#>YhGwIJaZk%@Znycl8vj9mjoI=g}9{1Yc^0Qy&R8)2T
zyZo&-mW1BU?53dX)$X>2CTv)eKf;>vE_k^t6-Pfz?q14P_AajF-G`7y=K1OP%TU^D
zy(TC0px?X_{XK{Uc2&aS5|gQCj_d1X)>~Lmz^;YkwNECWfT&$da<$5Y@*)`UhU2vX
z3wP7Rj*u$?Tt=Mn@H0=^xs1>X{di+d|0k;}`nY?aG<^Hd1E)*(jSCq-RUi??5(Q7y
zws&kWsfqky<k3CX%ik20i<)*YU(sjXW_YVV{)91h;#eG+s+;K!IgD{Gp-;5G9A*yy
znLzi@G0Pgu3eQs)|1W3Z0B4y7&LW<?MAQwfWPlGIJHMOSsZ}3#8*Y!b$emeoN&X4b
z@zOISlX=jI3)6GLcSlNCnaKeWh>~l9uetNi_*LN4T|Y0*1UShT*|fh-<`=*DwWIcv
z%FFlZIeK<Ct84b1ycu7SH}&ofWS~?(cn9;0@5)CY4Nb15|JjwvG;#;3vr{#k{4(>b
z1+xET#>tEE%&VoMmGoVnwAdcW6-;yqB#l}Qq%hA@A@S2b9;6!|5B4l&H$57hc2##K
zm>_d#dWNmtffGC6N3^{5;8|CQX{SPx3a<_?bf#|-0_hA2xmXQD?@NovUE|_rnB7TN
zsm~v3HkzvJzND5G8Ii!@HXSG-cSf>Um<^?Ot8uT8jGS#s4)r<woNYJ-Wx(4aPLAA8
z$_)!wHi)&}b-czg)s?nzz4OFt9c2T{U0}<CsV!}B{>R_Y2PE(7LF%Qo2-~Ju#?vzs
z%hQ*{ukeZ}OTY4di)+1Ap~r(goC36TG-6$r8S0OVF%SI%tqXos$HX3T)@<vzsRo2i
zixIW2p=oBZ>qJWFCjV<Hc0&Y8=N-pEg?&YBztQI|Mow;n8f&gOyxOpT2qY+j2*vrd
zQ)BB_GUe?9Uj29}g#-LWpP!X;(nnT=`^BZ)69O@*)cA_T+b?e-c%j5Jfez2^wQa2g
zES9;g$fo0UdA8l>(<w8Vu50^;bjtUehQzB4;83oe%PVpIKszKQ>L$L-x~1Rdl=VHI
ziRHh`;zQ$5Mz$dm$g71zGXp1>MpDjUpZb&Z48{?PfNA2ip<a1xKMzvo)ehb7+#}T7
z2jdY~)8%!><CJw0R>>^pOtR3ptlui&FH76c4W28QYs1tM_ffkvBfqJ+SFn<eq;hBH
zdid|j!okkYJ2#b>{|4-U^!Jk*VkBwpWzurCr`s^K#%<(69}sSvTy4)YiFS+%&6ti@
zMaRLH^PT6OoquEpjlE;a?%)hoZ%+Km1=T_odpfh@`lXQ_mrp$lIcy*PvNw3yJPBuf
zs&m!Psl8uLA3vixhtQgz?_R;rICPxUi$nS4nGL*V)oIl^CC{Fd)MSX8E8mL^{4P5c
z%7=G(Z{~6STY2aHmsHmMai^Z|^fXq^)HB`8Y$nu5%hbH2CezqhN4!kpCA?u5G%v`g
znV}+6%~VdBc0kkAXhy{gUh;;aBF)t3fF_orq9T<bi5Ch5LIj@U%)jvc>HFnJUM~)7
zue0{rpS9O}pHuSoKEIko_SVTwhKD#i9X)jYe?+y;?rbw#0(PqHgiXzjX^baSTFzFg
zs3D=<p)W)lImdY7C$w_Bya%^ieQddu+x>9tZPo+(xJ<v=gwFCAC%#mEVZ+#H#XmN8
zWPj{md6GT}*=&kZqoi$wkzT$o$3Cn0XDIl?FRg6UW*4X;hrWSQM$t}UUGodGxM9rk
z&xQE+iGKYqk;{4g+>euWm5|wab*t&GO&va38G3^lh;lDoRglae`BA&O-SX{_|0pzz
zdoS&=Gj9j>3~emXv8p7*+_>S7f!n&CO+9?|G^sUqt8@?%tWxI}svT=B-==(n)k0ZF
z7Fs;?@HGw+#XsAnqCON$l9W%Vw>q3?4dsx7ZSv@IJF%;;l#sELmlV)U<rEjF?(S-0
z#oGDgM1~1y1Lswzu#zY`vPIVO;Wxt~*Tau@*@~v}RutH%)v3E0*kLWn^*tqt->0F1
z^>ShCZCx%B^<lQE@5W20ifAax8>+ZFi$AE%)bCU|*IB-GnA<o7lzL{+!uQk~bNVc&
zmvr84qYJ1sUY+|b8X^0p(^}Pma^6Knn}ztlB~&9X$U0=unk9SE(Qu~6HexSSeH2(y
zAJdIhygx$Fg`2jOZwO*QS)=h-JKQ?PGBfVoLqD$)+ZAK@dW~$K?)gpi%L-kyB6l7W
z(|T<Q6F9z-&V7CP5U+mN&2~uZMVtMYPyr=&$l8ITyuOONH7m*<sQKb?lep!=)(@Jb
z4yC~<duP4=Gu3y+Q+G_A%%~dz$J70(41Gs{die{LfB_Xs4S6*scX>8<>AgDl;WoR}
zh#Qc}<7+1O+D4c`CYM1bi$Y`PUhZc&`rgcbDMP#7w;&`yV!{3DgaZc;(*y)}znf~S
zxtqs1ARWY85zcT;i;2zlPVFzapRAk*(~b^`7<(uMRF&bo^|(kktdLdd#0JGPXur?G
zt*k|xY%K{V*K2W}rXK{Scl;eLlXm8}Am#Hbe8*m93g`(Y^eL7GzvTwC;0p>cbc_%4
zf$pd!*GgHGHv4tFZ|}QL;2~8AIQEKcFWSS|snR_UafIXFtk{z-zOBU}O{If{l*W^`
zZJKOY`(Me)*c1?hMDJ+cT^`G-9&^$2I^1cA`#oBm8WQ)fl{SfUZG^%e{`4O9<s_fY
zM~1fBkNte6Fwtr_fkX|$EeNATy_K^&g%|jY)Wjk8vAF3y=~1%YnQ}OOYgJHc@YD3B
zvvP*~(}my|4`nCIcBuHW_xK(E2_9~G_@DB`k?7;k88;w1M>G)ehN<WRO1;SG{hgH8
zI9IQ{7q6v*C85WfqoJ89JYdb<E0n8L(I)gWI0H2mk`BR{(Xrt|uN)}T3uho1kwc%j
z{n944rugd!>N=C5xVhc!wJ+jVS&MhZJ*_3}FoB2nDXVJEPNF;ZNP5x>BHLY(`}S!3
z(w<P>A`EJF$|)zl3#t3^jxy0y^9|T(#iaSOMk`m%4{s4kn&J+6)HL~;N+m8wca=Mh
zLz3QXDE-1qGHPqkj?F`YjYWU<cEwJ+-(py4bd)<Wso$ZXz~kBo9pdMgNYN|3o<Y7;
z&lY=H<g38U=p<;Z4d?Npu(FMP+eQfP<s-dvUqUjk_))C>=*Evh#z15^(*Qjy;IIFz
zoaBZ$$qU74sBYIQKHNKR1VDGO_y+t&uCe8CFR&5?PE>3<D!-=)`b`($aZZ1kJIc}f
zcNk`(1F1gD!Tt*Y-OcIexgm>w$YgJj<jt~Px87QZ0(lj6{%PmIFk06q;|OdpcNXX_
z6F-CVq*DKi`#vr0R+>i2E}t}x;#ez&8v?OaiZ+-56t}=z&Pw@c2q4lN)OeC7t+737
z3pl1g{|z@@?|%1I;Z793|4BM=Eqt_XgzY{2p1+Z&|699F|J$P(ipl`ZfNp+(b|QU2
zep;a~RN2*PqnUYDb*Pwpmk4Lh9dLDRp8!X~=61A0>H}64tZLfNLB^@G?8iOu9ksJ5
z*_yU|G2&IO^hT1~J`Nw=#N@9Ld;10Uvk==<ul*LBXk2QigW>sNHvnqv#RDEC;?hsl
zO>JrMDG5z&>Xgu4TVwR%^dGLNvYy!r7&TIgr?(T&f$Z?A#TgH6acfekbHuQi`Mfdo
zG%#-=Sx<KJe{75ET+@IMR))8nydRqafFUqK5}0Oj>@a6BTlH_Fo2?KZWMmZDZqdhi
z#BV2(Cy#J+pu4lgcacY4wc+gFPdK_Uj9ePfvbY&){_Hp_a)<o|2{CD;rT}Otio($N
z@fisG1F;8r{@+G9-$D%4*}gA;se9rLaNuN*G#F6H3JeaCrm<4{xgWmb;0~sessge+
z!S$$~G-N7f_)5&R8s$^iEfv>rgmc%Y=}ti894MAg>+GQWh>{_J?HTPQbt@C!ayKz<
z1Z=%!>!Y~it^1SGXm5VJVW8ncSfO_5_l;`oaW+}vF@^o<%HDuj>0Y9&yE{NV=#e^m
zmo{KA!pN6=%!>Vk7~4mq;4k<rrOdQGAr$g%W%xd^H9GPi>i6rOW};c$ug`;Jz+oRn
zF3c90d=^C14GRjJ56c-zm-7vssyHxwvT70HZdBV>)?FSdLp|&xizVdw(;G6aII}DT
z#;18dWb@;PvQ1N_CXa<e2$7YW<G)YK;1>MF=2yL#gAqc(JX-(ZPFIU;O)d=Yt0=Ou
zvZ(#E`1g#nphJdEa8LX@Q8wCih;xCQ3FBZ{9;AJoY4W^)j*1zPq$hP`RkHa-^4is`
z`mnaefglonar$O~2*K+4;PE7Y#4=t!v`b~@E2BCC#i@i&7-^KwJ}y~z%^WyJyAjvg
zbf~Xasprb^C1OW7@X(sPdIXCb;5$r}462xcZH}CJls-*VEY1K9FW|IgFhf!DCk?J-
zkC8jVjc^AJ?{u~>Z4GA0if>K23L=mSB}Ey<^H#6}Mi6GtPr!SZufe2Bl~y<PVUloT
zTF^OaC_`)5EhC1J&ag29s64MR1@umwSe8@T@``(oNwj8crQX4v(|aX!fL;}&$#jYP
zaRG8+l+8`w_m&c0#Vdxi5+)dFrX;xIZZIB}6aWReiQ2|-M&fmK5v4*9ki1;6SvHb-
z8BB3{H}@TU<26@+seF5R_|pZG49Gd}xN<{9j~${lfK>i3`GLIH0C^Vx-XLc-^?2w{
zjUY~uF~{?qD#L$@D|e!bs_-{<_Ck)Ji09JW94!FGJ$};!C?=Y=GLKtt6O#t3O#ByG
z49hAFxVv|W4;ziRpk>7;bY9ND7;7=j!8V4}GKNa<s7x7{w^Z*a^H(&L-CR0|*6h*L
zJ(z&T^>i!;e0|*BT4dAMz8%lLh;lr4R_f$)U40k*us971h9z9RsN7R*zrPJbYCNs@
zg{vb#w7^P{r4ppvs_0Ly@1!~>4hAdTS1xjGUby0>h&P<(c8@XxgPecwEZREVwzu4Z
zenEY0H!hN5Z>?!^)c!!<tYTYWYl=F0Q)0REirO<<yL{(KfMX%myZ8kw(oLKAIayg6
zDA51<kG;!;wu`7jLsfT3`5FY2!#@CRf!U-zZq>0yYldtEt(Tjq(Bu<B?06`=<<O3R
zsXFs};w%WI{(W1QN%g932OPOKC+;iBoSgsD3uwX~HiplM_OfgJwgJpjA>&L>sz*07
zAgx>+Zn|;mjQLOn$$fis^337@%pXWzu)*wmPt)*E&ZO_~9xucY>jvhON$en8usWm1
zb%F0#lQJs@-Q6VXe%U~?5j@TZ`(5`zd$X%gnj4)H21i1h-1c)K$nyn~-qk5MAggpm
z0?QG=!+YTJB;{fXcj=7d0ChadKnkl#O9HKE;b(t9;zgt08j{Ala>{BnHXc<u5aKiz
z6Q;#j7w)Jm-KLG1M!!o9MC^NVCU=FLnP5eX3?jBRzj%yXYh!<74Pl-S!v*?dbHjoI
zg4P(UHg8Ll;o|ha<mN$o)%0-KowmE3f#WO}Z1In634p>JUHoXL1zi1?x0`N+U4Pj2
z@k<{zZCjVGI}I>govdl5mZ1%+5vLV0Z(&Na%C(wK2C8CoCkICA!u{Ud&Nab$l3nl1
z#tI9vB`l}vkcH7$G~ph*c3TKP!Y6ssHC5fueJ%{m>pfGzHn>3Nj<zu&EYbKsYwrkn
z)^QO9q7EwY-Ckusb4Bdd6JfXoQmPG)(_=okNoHEWP|u^%>h(EGO=aTl5N(UME^M^g
z#0XVB@IPM~{isn1p}k6r-A>K)0KNPRZ2+{OVFCTGX$CrwSS<eI<~S*!a`h*Qae6&A
z20V4Nl?OeB$u6RPWv4q-`gLG%b{qp)ygH?Wgh`#3*2EV*lyV4ajx2F?=REeH?O#Y=
z-KCfSg_8|4SMpAylg}TbB9jRceP2t~*DJL!5{Ahhnb%qcb4^a8V=|6+qRxjeNUO)E
z4ATM8sm|xV>f>-QwC8ExPiH1n#ftcqyJYSpqo>395Qei-WBIhf@wp26H=oAUVT$o-
zoLQ4Uaz}6a3Az3hsv(jc*_^nO|GXbgltJk2(B{RA@wN{|4U&5WiiwqBVKMj~ojmHH
zv_%#(JMJ|GaZjmgI`73I?ssG0qKm@NzQagG*=Burk+`owtJ~Yz7|e~2D4jP+N7&A{
zh%BVoW7%2fb60e&OoK31^`T)P&}`<}{Uiiqs96p>)*jFeZ3`G3aa==<AdBgin;P~s
z=ZcVuXOzYl`Y`W+X$s8TAKjvufVaGmxzx2UymF=Ef#P%R8Gm)xW95{_Emju5<MJLS
zb8kb%Tbo#gT|{3bTA!{F2(FHZK^{cb&!g1w@QvlU;b-6`OK-gFH7T)QS!`D?v=N3V
z#-l-_gnGY~>XzvEvaz6;SB5Tsp=_SdM}9Vc@0F;+hTXjU)c`FB0d+T8m#=x287JT>
z7If4?#Wes`%Nvz8gvAs8aXWp^JQzwGKARy5>JjyVwS>A!(1QlH_$z*c`6Gd>$;PxW
z#Rp2`b5fIk7{4(eQ<VI&-jdu2H2YVsK6@}xD)_;i7D3LN4Xus;Y?M{2(-b7LceRHs
zYcgIT1cALUUgdreS{e_1Iu^}xyh@inZ&*PvTl|H&Z@bcQ<E}dTZYMiLgO2JLm7xn1
zi8i;mKXWmkh#gnUR9?sNMp1P(&~dG06zi{{13NBvxNuqmqKkwFE$p;YHoQw+r$F0^
za5G}L9XF(<%l+vIV5%TlvdkFv-RoR-aq&8B?@*Skhw)$#eYSl>oU;@@Zj0Tn+{Y2d
z9-ZxNTF}X580<bi3|oe#+t4k0Z|NAH8TtGK@lKEL?MF52V~aOzZYB7FC~}t_=UG7X
zb2F->?Mw4Qv5E7TzLfI(4O_ivNCefD0vJBkQefxU&OC8Li$|4x5T%DSVR+SRZpr(-
zX>KHRHs6~$TYT@?gJI@!6|iN#fajygrx^P#kQMA^xCMckuQ<VJt?iMgpchkw6O5eb
zS6cJHR5OKVZ<oA*J}}}DbDm}N<5#C42+5RiqB8Tu&CW~yh|YkK1Xg_E=x><-71sbj
zRhNYkn2gnufRsLeT;sCjN=@1)O&Q8Ydpo|PM`J{}zW&st=t$md+(e7}wvXv(=EY~}
ze$^CzvmZ#fV#v0NDIOi1beDMMx1{R?Wd$u|CjHCf55<Z|%|NXFe3ov?q>W{u1&y-0
z-#kx$>C6A=<E}NtY?J4jkmO|p4?~#-X>7FbD<#we3i%%4qKoN{ASb`6&QmRlY&jcV
zg@bAqi&_FsLP0P`>p%D~ct;2qQd^57F#p6$>>D05I*T5Vb(PvtLUwOVHaM(br29^L
z+;@s0I4wzsNVuU>xlh;(7E_&q;wHR56GZKm)wPW;>nB>>IL;Xo+0UQN%4r1(wbh8R
z(a!5@H*<UjmWNcB7l_Kr#H7uFDG1-o*E@(*KyqIsA#DZojTOsP4Ha~9JrT@2@B*Sy
zAZp2i^U2)sM5!3JdA`wiq9s$QakF5)bX9H#S5vtw^`@~)cJ(V&-kMan17UPY%F439
zGBgL~zH`P+N?$G7G%loPI%Sn6lEsyq=UaS97&zNeIr8OHsp8kCFXvWu^HaPMnjzyi
zCzXhn7sS2gA7zM0g)X<8tz2hxbKmdAMhV{NjQ3+uEsbtmI#j^Mkj2g|tErk3I6%RJ
zZ|sp;G10-1*;yirF_Q@In|r5^mtii&#c;Q7HlG)=W5B$N%Z&ksQ=nYM-C&^sxXqs<
z9rTQf@U!!GiWdc)KylMYL(n404trA-ki)Qq3XEH1_ZF`V9D;`Qph{9R)jmLn`@z0G
z#{_TS5zCEZY&~&2>o&1178>CBLd5czEyoJAbpe^Do}nlqRzN%lxe8Zhr6FZVUcmeC
zT~3l?^p42oHgM8~;{cYH*ssrIp{Fs`t?FBXtCo0EEq<sMVix_Np+migM3!Q97BRPm
ze)PzY@QsjcK@;5$wnH5lhh}{OueOpg^1zW0n5zrKyFtiD(8NKKA!>wijH9(ydKAAT
zcb%$&<!hB1==dCpNxGjpK5@VgxfdNPRS{Rzyn+thNcHg}%Dqd*;A#-n<LC!SroBx%
z3-*0FHp+o>9<&V~%d1Tctuat`E1m5ZQ)UYtRc)6u&Q-3Cr;eK*y&|t0mbY*E10N!5
zXxG0lq!?yT40Qfkw>nPb%j;02S>^}fp+(Z**)4HYZ!Nyz3<=CzsNm5poU4b4iMd%u
zPXp~BoPP$YXey+yaL1*VgamFvt9jlN9+lSby?P?ILrUv+af`pLoA*`>!VFbuhD5l7
zzzb05VUl%0I}*Q-$>4@C5DtH2^}KnzOwA@ndw(m7CywtPz3_lS7l>RqA@Re+NUq}R
zJD&f{89!ge^WDlts@Qz@7-r%Mtu%#qnk5h*d=*dYNO!YbuszFhNM0`eJ|Q;Ufa~~L
z@)5M3CN6!N3SUIQ*=fR1qa&5jX`86-hyrm8e8<5IU+`2_T}t{{&`{Rw{;YaCIrD2t
z{A#;zvDu0wa>5PFbi)!w8OthNSzAdBHiX-8Up^~Dz&Y%g)<%GYz~V-&X#KA{4_bVo
zZlW|^!8mjBye^SS^$wM69ug>8^e#5j>M17&b5YUnRSpBaM}Yw(8mZa>Oyw(z=Dm{%
z+zX0%%AH?W_Csw)pT$9GVT!WVa36YvK*TSCUeMi|lM1ee(Hy?&E)>G!?c`JiDJ$9g
zZDxq~9(Gal&1EyFT$cQHXU+^dKq7dl_6OdT73-ybWG#NeIs?&e!4&?qGHBs1*R4i#
zokO5VG<t2o%eUY@|Lpp{AGhqYbBTLYNPTo^gQwNypR0`fPt`s7{QA^>LgRG~mos&!
zRX}5iMgw2=<EwJyy9#G))-GTKfJm<-Lc)N3OGca*@9LYskB#`8zu)v{M*M(1-P3Dh
zR^q_lJmmXxK*9Y+n0Cg-p@TNFbbBFU?e|gkCBq+_!@5LUYSt6tWoKb)U;e-Qyf>Np
Y*5=9KoZHt`Yhwq#^E=t_ZPfMu0{*Ff)&Kwi

diff --git a/reference/plot-3.png b/reference/plot-3.png
index 2bb5b529bf4fe441ddcae160132a90daa336095a..7b5f9f71f22cdfa3fd0577f64c0400b925b78c60 100644
GIT binary patch
literal 28116
zcmeFZXH-*L+b)b-w`E&+#Jxqj$O1&9C<4;40SgEyK>?8>9cj`*2q11z6aiO4FHxij
zQltx^TEHMpT4*6C0i-1mN`w&dtpuOvea>6P`2L)6&X2Rk*gIyfl{M$Q=RNOoUH2sV
zs*&!&KluOP;^I08>RmSB;`%*^i)*Ld-raD^NaD*y_+z)7f$nAa6Ta3j;lkmMeRuUN
ze7U%U9<l%15jVNy$i;P>3%q>6G$?(Z7?SLM9VNNxh21aMx#RES%GZuRIeay`?J@tK
z*Rry*o{x*C+Ul5|dwnJdJU3<6XBboREoQ2}E;7(YG(Pz-=H$h`Yk>9R*Ug8UFYo>1
z!Et5LrstQsMBd!H6PPi4y`P9HxEC0%*;S4$zf<yM%b#8xwbeiDCe9h&|NGznCJB5Y
z<)PhYeAAUXUM%|V;JWe1zxNQ_)lE+;Xcg5-S8FBztl{E%^FGye4`&2T-}M%MWB;oH
zvrCTssciuMvjH){#bxUnn;8H%7h3bwaW&~zD&cQ~VT$-y=uH!-UTxY7;bR4f0PA6p
z0Xno~d1K&rYiAbF>R0S<4lyKBW@1>+0A5LzYK5(No`y_o1u#~RRtD&b4`Ik7pph}{
zIZ)ld5*!L8Nd#Yntk9d5P`EzrK0va#sLlX_??Jl$u_$B%fdJIV<CD;#XYtPr-sv2X
z@V7ZP*$p&ikU=T>a3yG+;A31lWC+>lt#64WlSMPasc8-+01l{8n+&TtH#xR>3ko-)
zVUdpmp_X;)J0nbP_LNMz48X8<+3)9lKDr4el4-xkgjhj&vFF!#A+`t!`J_HqWMGjR
zq+aaYPDF?L>cxa7IWP{}r!RK{NeB3<@1-Y@t@qdIAY1%xLRBAxTR)vCw}+P9?1GuE
zZ5Dr<w>r|5h`Bs|a_nj^D+;sAu797!XxD8eyd`>G{-QdzXoj`E1Lbt5AxZ`uQzzeZ
z9#~<t?Jbp<2$w^Ar=Ng_*aX!}JvA1527NY9B0n%V#;QADY-DBLOJ4?+vfKNFCU3^g
z$5e+vX*%=EIWbknA5sD8O)`Ca4R{oH_nE}A<py)Z6W&*`LOmHvMCvi!NM)($&tU|{
z=e;Or6P_C82Fn|}1}}K0#QL>1l*VVfBX$0S(7E_IR8}sD5Vex_F~oJWk#`3?6n<~p
z#Ke!s5<i=x&o2Aq6Mi~D3%hUS$u@^vYkRf+%6d8q(>l&V-Cxph({=~J$c&*T`nPMB
zihD8MBwmC>kX+kh$UL{sRvYh>t0G|}mDc?J_@e`l1F@P5NvY!*2p@~x;m5v4?V<u>
z1``de9T8Fjjsd&5v@Ppur#4-|uruQMwGxg;DV|`M3SQbo_^I$G1CxQ4TLq7tgUViG
zTeE?0I+d1f8!3(Nn&#@<^q5}a!JY^rFIxRPego4=<JPlKsK9oK54~#|JZe8mzk(J<
zf1?k!Cl{kGv_Zes4*<d6;~V4(R9KaOmT)&U3Nw`RNPI|)i2XDSsO1$ZSS1}tU4^E(
zqu+p*t@2awFg<Enuw){xQ*?&{riK*xWJIe1+g?%Q^7BcG;>}3q4-05eI39Xzfj;ZD
zRIy{h89mxKb<<xVXgYSk8sR3o%!%^mQ3Vz;^mf)FW6jM3I$wRjrO_GTt`^ubOPC&A
z!D_#iU7cfj7S|Y|TY_zXj?VESVXA(aO)b5zSW4>yiC>iR>7Fy<^n-yT)=A{z)UejR
z6%`3QT4BTIxc}T?n=>zLdKH3L4tnYPGn&=%={@hLY_AZZ(<kmE>*lhFzSDw5(3bin
z4Yqu=8v_Sc_%P%3CmeNbN~ni^D5Q~>P#fxA+6=Kfc52?**b8o1nq|3NC*xRhpWacQ
zI;ig(b5=e^x+o}rJh%2>y|7ttn89wjD`o%K!~OUT<-_CLBXwT<JQEj>)S-i5joxBg
z92Z04>Gx*hL*CK$HWmtN?ro~o{z}<E?Zzrjn&~`qP=8Uga!S=pq<cC|5w*tOJ^eFP
zlXatat6Xtmy3pz)p%3Fd#tSa*8*6kso}2S}WW308YH>z!fmP6)Tvbxj;tsVAthlN+
zGg?H?$e#PxoNe0*oA+}S0yg<7EDE4y0KN`AjmJyHJ))w&ZiTxrFuIeBnv?ivJ2%Es
zHvT3CNV!?deoVU4$-1kJr4OXDW+F6kD=O8f*`$Q?&Q0cEiq%gMMgK?KGdR<UTDca-
zGjj^cGct<P;f-B2LMDxeC@g~Ec@V;Kzqb6r-}}_x_<=owR^L~}5P@Z2{>eIiBgMnN
z)e1C1&>ruYpeVm!oy5OOI{1V2S#x2|Y4MOgpcT@jc&KQm+({c7CZKR|L(?6RlCS>b
z^<2nSM9G_daIaJ6G#&&JFE+e8Gnl+FxHjX;h)E3~2`t@ogVawu?!&}MuHS*?pwZ{+
zbR*);%5re)t<!w2^I}8TXF^##UmZGB?imAKl-zd7a@e%{+}Q0^+t(EUTBnk2On9`?
zHY)NhL(WMF96RW{5K(*Ki`okRN~H(i)j(9o`opcp@fXw&shG<9dxZRFoz5yb-lBgx
ze=7lMPtRo;(q5+4POsHb=ohq2wDt#eree4?!&1o*Kn20eny2u>QU+<J)QrlVEyK4z
zS0=s!8<K|oSUb6%9_Or5prp#_)i{8A`ES74xq>*!YZstRyjZ-7-8s8kLo>{*V||jw
ziWF#7-}0%K+u)nr`2Y+G>{ut{GEjr!_-l#_ox<{KsQ}i{;{8jK$?-4!F96@O=a*Ea
znA@8+;)=N}3(3vZjY&f)S>1DhdQAqJtRBCD)GMY(i*^pvHOt1j#^BCmaNTZKvx0a$
zQ)sJ6c7pH>52QwGfFvW@gyu9Iq#0z;6x=q#<R56o1YK$CIpk4JjNjOE+O`mEOd9t2
z*Mv-A7kI`|XT(|x|BP31oeIhd^w5(t39Jz95i#AzlchUni}_!&e9rt}EY3+OY##MJ
zpdX=JglE`^ry*#hJF{DE(<DNFAE9Fl(MA%X9=pnl0vLJiQC4V*#@Pk`XtV=ihyNT}
zur8uBch#ERF&CF~3q=aoN*}TPQK-34QtYah)*P4Og)O^$u`$fDhqaSlix}ALamc?t
z;^$i7OgS+^)8FllwMFli#!fpo^h0=;m8TURoK<ke<%Y*p=d^!cFr&XZ5QbreDKeux
z?5bR~8*85(;$>(Qk9?e0*twzZsvXKyvM@-T4skt0*W!|Qbb<qkH~p*mq`h}8VSOJs
z31yyrL5VYAxzIz-1}%(EzNRo1drpUn<s!hbs*1b()!p!faZ>oajdT)*+^dKhOKmoY
zo>zK7+1vr|wbyRLfo`2zDonyVVtm<r^F^6fIs|X1n|hJFT;^byvZDm?b()aSRo^X|
z=CqNBeCJar{rOonZ_2e94fLkJeq?ngDdry&KEC%hBy$LXvr!(G69Bbb^(Wy-2%WmW
zXy82cX##}>n~0{=W#>bD)T$l+jV8Wfd4Pz(Sx>ZVfl8x<_&$wl%Gxl%ZA>cy7&6~g
z(f8zPIBsCzXPRG<W{?e(Co!b#7%(zwKcOHMC)x;WvZ+>%)27*>ALZTl%Mm5^Dso@r
zF^Xz)8z?#PlnP`mX?ax&Pkn{t@$X;TKjh$9+Jdqv>=WmQAcs2fSHxbH{QIC0@u8c&
z;RbD}x=VQrYwQrL@>2203eQ2~V@q>FtFJAyL{r*fXAKJ;j^XU5c=!xdiV@8A8bz?v
zZJa+T7buxMP2WW|)IVDiO(p<G>R=0U!zWT1+>(EViko#BUmI5c9@Ib4wWm)pW85l@
zocenUeWs7)c?>h2!43mBOPc7y#r0ztg0hEiBEyaKPprm>-<mK0g%iq_Zd!Io1RFuD
zz~TFbpWia<a^NV#!&9Huf4DWozRk(~m8uv%jkh~2ze*x_?6=`?S$rv9-R9*CrMjdW
z3^*YBk_iW(+TNaRs;OFnJ(OwCI=*bC_ifd6Ed<RCj5YLOocM0(3IF&yv`2D%<HSa|
z<fQjvZRM?`r`O<hn{NfTg7wlGKmQQeJ(fa#DJ2qcpj-vNloIN*^hGMIfT)s9bOkdr
zX(6{u6PH8qaE~%?J%?cje(pztRGg2<po(xRc}r^F6C!dT{Z<<7<nmuq2I9Bk$>9<;
zp7#m0uNBsqNS^9A!<3W|5~j7d!~h()l}`J)mLpZZdLxyUK=Y?QFVmT}hXhl}FECVk
zh7|tg7bMR$Rys{%eP)+^IvG`JQZFMuWaj)b?FBKNyd*_$^AcA%g>RNp7->u*BSFnn
zPdjh^BgjtU8m-JUG6CsSN=YV@p!5v#1J{6wQt$etQ5L+w|Krs}ZZ}ke@4im<xLcU8
z$*OHI=Hddt0Zt>_epDCUEAaIq2MA(Eb^q`Bzeobf#VM|Pw58Qg;P;~oU2O}6(DO;;
zzX3Bvd11~dcc!N}RDGMMhz|Rm{r&B4MQH(C74PSuP$~TI?iN)g{Buy&%l0(qVF?%C
zwgY46JfXepuN78D+zL2(p8W4{BFDaD#9?0xU)?7EY^a2{!`o*mz#c&5B)%B*H1e^4
zq@huTPw&{zML6n21_lS;gpla@-aJYaP@?BEa9ND=(nJ}9b1|e~P?MyxTSXjSGlLyP
zKp~PU3V2tk@=%VV9V?dsoz!$Qrp<=i12#fW;su~kdAyazYHQq?G4GLdnqs>8f;PJ&
zt|-35abi4qO+RfJ?LO;TehDg<_V6?)W1f%9;M!-+e#GUmIDannH6Wlii3L<7#J^ek
z>p~OIt^VM8Dg1;4j}ZHzx9;Gg5y?A&HfNG(|6`g0loZuz2Dl&QjHl>$vl=R{03&y-
zXYFYM?PbTK?KC)g7j<R9M#@GjdjXL^YyS6U;x#ERp`NwO&gbs9!vdTh+VtQat|ZWg
zMLnE*m?=cn%)9LNh$?gC1+E(@m&z7S6W>TrW}rvUzhG_XuRlWk&RM$(^e(CcDnyUD
z18mTI5k~kuhSOYlH_^r1I+o8Q+%{)((t9^&NT<V{7Gp^upT_g8a?w>?vo>B?SwVI$
zwmI?RLXC9g^8=qi>rpAzi)L^3)FO^T;~q)IhBLLTlIzTK<=L&)8R3Dy^uoL!2;%!>
zk5<qAb|%m*NS*y2bANUl6&Ol)@Yre3ywDai{)PV-M>%dN?i-u5w}MgtIxwU<X?~B0
zp5iIf@^Ik{z<d=5%CqkRbOBf`E};dJ9Z)%2Q<#JOvU)Tv=+<+GfcIxOQ@HA_4V5FI
z%Ka*`20lOk{4VsUL&~NX-+O2myZ>R&j*6Y;SBwl(q8aU1R^TjaKRWcBlNCFP;S%Dh
zLoXEq)Hiioo=~-Tup8v%-|2y%eaB1+9752Z05)@c(?2nMO$rkSj<SCcVP_BFdaXRa
zsi20{D@|Ae8vYFN^~+OoLyNeHKLUO`{gwR`S4E3K52C#RrH#`ntiah|H<Yi>R_6k-
zBkX7bzFeLeJKg;r(3zPK5dJkUOai~2pwy}?F!ga8FVVhK*sK;7SA;3y>!wI1(DrZi
zbx8!<Pp*D7*vH1`xLmaMjV+CsN|6*^5Z!a?ybx&y(vy<1swdbtZLhFbF1!Sz++U@y
zWZI_OUr|$TGKTuPt((%3yQn`=l_p{C9&gBB6KGn5ij;hemz5s}+-rIQt8SRHX&cp`
ztkgJd0iAv`m|3l8f8CjjHODi-5%^7`$iU5pWU`j(Bnlm>g@^ZSibEV=tZ!jSzn`IG
z32nxumQrk_umrys>;Y-x3SnFFriln<CXmxI2y_H3Zs&00NxX-mf7fe_R{2Ud`>_Zm
z^ms;$0VJ47E(ZhnyD5JIdEBoX&*Od7CcTu8@Ux%cdNqh4=YX<$J|Pee3KhqT07IxJ
z-iV$lpd2*H3^>kyraQoC(P&@+G@9cm5|@D;T9MrzkqC`*c7ltP!8!Q?jo$V>zoqdX
z<7h&};S8wk%uRG_h~&m!?1!8FaM&&P>fH%^9J<iMwlKrQX=!Yr$(((Q%dmS2!&fJ1
zto9G~Hy5?ELe8%LZ&0rP0(<=*ZrC>J^=NgKj?m+GZKrKSWZ6^TGHl`lodh&B)$tsh
zj_bw=1$ftnK<;2!)&0^#h?GwZuY=oWq-mFjQA%?Ntzsv~9#oYdI>mm&zd?Kdhv)b&
zi19y<qpz0Z0VVJTJ@Cpu^4}u%{aVliOV$6)^xvR2?V-wpF{_)fZu_|IwCAj{{Dm~6
z(_-c?fAV6%y^IZ#|C^`#m+Moquncp81mnps0GvdP3f>Vc*7NE5b9)md^1;S$(iKk9
z%Z#zL0#Mxvyv31c9DizFb^5D(*tGb1==3o%2AIwb_fZBZ8RT{#FQ=Wx(O}#5Dj;P+
z&_C10Rbgai`6b|`M{5QGSNlY?T7p_VeA@_je=QK#F(>oLz)R4Gv`43LS$<x}A+WQ!
zqDBV4HnBJ0x9vdfg=nHna>FageI64Ik&`ihd-V%}u?9ZZr&n`<xHLUK_5_>C#9^n_
zdcCd0z#{e~7Kg5@qHPS8Ug22T3fQQuXcU+<*y@eQ-DrEHB*L*%-4Z-?z1874q0IOy
z<?C&Gl>e<cP&cQ}UvDHtRkv(G$DPx|DKWSQ-s^2{k18@ix^uu>(0h)^hwX^44R<_*
zuPXN|DaHgE`AkG?%}Gy+DE;*(`-j~|upM7r5MA8^tZzhYSn<kpjP=|17FoB0Rh;yg
z_Y-JIt$ZBezTHfL4V<Lo%H@r&s6G)ZDVuliw%uyNMcAy3k;ct=C4;^5HXrP6<%k;2
z0IRJu&n&Pz;)<BO6q$4_J(-Mfb?TV1Qe{#4w^itE0l0Yf$sWm}YS{JN`KRl1$`#@&
zl1DpG0XKnTbH>Pl!(j-h<6sO29)FX_S2saV1++jPBgisO@QYoCL{09?(y)Q<^X$If
z&MKDXo_bKPfp3LIA#w~57ei%--(1~X(JlCmXMl|{jE|d1*3kVvY>UY-GEf!PlSauJ
zO}sN&FvV%0nlptPhxd))Rn_q%dU}XHBnQ+;;jzGwbI%3N&$>y87(|<s^mG8|V*<HJ
z`}a@0fpZxLT(piVUmCKZ<)3k0lRT5B&ezFA$x2O{d8FPFs#C!4I1=r5c3X=g2H<S2
zXjmNo1*!Fhj+08O@DQ}jMvHDof)y>V_l>D2fLjKTLXXy0wKQ@C@aUZIjKeRAps2Ka
zmsfv11j{yc#dxLa`S$KT=K#BJ+ZUElda45!c$C{d%bAhhiRO``<zPb!`S+R5S>}@I
zcBq(Z6j_b(L|8nahy8N@$+G*#*6z&l*Rchsed$+Xa`O&bp?;6mJFBp8oP8%EL6_~*
zRDZ2<0-om}yZOI~V;v7#>zqN8ceqaNyl*A&Pv^lzKtoY+bi|4@`&SWveLi5Vvs4M_
zN?43End2mf#PQGmC-aHtIJW;k=Ceqk_uU>zI1O%<40eHpRHp+AD~9Co0U0!Is6AF{
zJ3#p>e`XielTCk+4-X4xk|$sk2_0JSZQFAl`zj22>Ze4j1+Fv{-%KJ$b*@XJ+YL`$
z&AsE>*0o7?-NW(l9)v#rIt3|(yMZ%xnsRs)G@nYIRzy*ZXah#Ujld(tKRE$hQ$e?B
zB>n4*go_+VTLB2M-Bg7HTIs=0oR_>kbuM8XbvtLX4Y1Um5A@I39E`H#Xq@?9srrk;
z7E(4nNCIxnvtKBI_JRM&wqd*Oa;g~zTa4)wt%Kd#f?U#gLx`2)U;rr_EC0z~W&q(#
z!g3qcC)x8c-vPg8?1of{m3HHT^yC}(9p;)&(55~VnB7ikl))pwh5;4&-|Z|7`Oi^+
zoIVW?DEqZ++=R3cK8?SB^kV^exrIl<+}duA8_#@Hy(37-1%70{i<pybL81k}N;Uen
z6K+ZkNCw|+tM|Fnrs0FqH(9L(u*S3&V2_;Lyac5=4ZV3qva=E4%Myb9K!mu8q@z^S
z5D>D~N4%Cl=YKbcVn1;p-q9WwF9R0u`$3KK_=K5;*16cOIQfCYDJ)zzX(@>>GaJ<z
zv6bgs;V^<zUFZ^ixnNR=00B7cn@cXKghFLLP-|)?vfLS@LRAFu0Z7}QpxGJ|go34T
z?2TD2qjmP_z1iL3LCR*cVfN`e%G~u9ix0_t{sC6q-Zv&GXImJTquCtLsE@0b91<0e
zzGpbO`6cQjE#3$xBL&uas}}PRtnC{H^vmLRQQg~OXvC<Pp*{`s)g>c_wEa<bQ1GRR
zlEP}G#U|8_Nc&&!AHu;z)445qi`_twS%cVFt#AI9pb2D{aUlqXc^J}O0Fn~xX*=u}
zAjmL7U~U8yeohNwqyiz5!GT??nb#Et_NcDfbX4toNAR1a=#>@cvW5XOzv243+U*E)
zG&!}ivXgJQ@<wW-0c{%0#5j;Jm$yby)hK9>M6kgWNdbFI-WpA}?H_&gdpQ_u-9%s;
zRr}>CKbCpDI{re&a{azBf2neRYH@n_>SZy<RCt_K3nrT6ln^hQ^c+;sa%)0q1A1fi
z9?8@-5K)zJxJH5q5SKSrNaZ~&QAI+s!EfPWuSy6w^SC!3mw%kGajTroNU#j_QuOCu
z^9`=0vwe>tu@<nwZ)zo%%mt$^Oi2bfqeDgak0d_}K#yAuStn3J7_k8T=6mzGv*FQ6
zd$?V268N}N9wPn7MuVJU($r0bgpIIrIeLB{Rhee?Hpq7_)eB_Ce9s2@s{LZaU#Ev(
zZVOp>f}wt!lqxqAITvedS-5fgBWj~hIhcD5iE1?b-T?2mh?fJ-Bf8i32vKKNZm-6V
zTh%y0x3CljqtZZ-`l8L;>{<6#p!5Q%2U%^F<4H>0s`j4^$4ze<Li^SHz4*l!#fLGT
zg(7@C0XY2;UlS-s<nuTQ=Ot*+w_sXt6G%al$QpxPOz8z1g^MBZv<F*Wq}+bGw2aZZ
zt1KA|LL{)v%{UFl=Dz{q8RW9YZwZP2tObZF=?a=hmmR)-L|}(d&wBMtNZibb7QSA(
zM62%O(xDQJvB*p2^r^`SXcL@V%}Ai-YNDJ^O?%DchZspFvh-+4VjoLQ;|eia^$}qL
z==A60noGmXYD|tor;Y6`>5dP*^)`)}<N-~O)Ve*4nzNIQX>;hhb9gDSTkObQ!t+ww
zd=2BH&K-}{YChDBwb!k0Q=%)n%6pjW)?b@~@=RL<9D56%rG&>_C*Wbsn<n2y>8-B4
zMixz2rt8xWGcWNT-O6HK5l`H6z|}IN+0u%Cnoml>#MwmCP(>bpB|*td>CZX09;*{s
z(G#Dez891$IU*~LphpuZXOA_S_cq`|-gY`mFECI);o)%YMA#jj%mBCOyNW;jgdONX
zSEnMf4G6wKHQp~Zw?0&W(du6hM772A@aDEh!4HUoodzi$8xuPwuA|ckv3Hqj_pGV$
zw2#`*DEjQq<)4_m16vJw3*H&w;hE&{>z&wCnrOc(xaIiwvDCYMIqE+cy<OaF(#H3T
zN?@M4%+gPc#pjTmLV9i2i56<5#Fvni3=&ML7}eOM+kitW%esopw7NZWw=iU>4BAd~
zsN3Ij?139TQw%aI?(NBl4!YP@IQXV);Xv=KxBje_OYOTJ&%Tak&%%|V`aDX6K2apE
zJuCxEQB+mN(fbqDbp1Ms&{+lFPLv5{LK?}FZ=+|?@-kZ7upq6TsG02nziI5zL01+{
ze?*K|$dNF2_UAON`&D#uL9EE#BD&L7S0y%=+8maNbY*QGE@8V6c}1Q&X~N8mM1gez
zIW;D+kKwnW)fVQO)4|k@`KFto8A8tw$48v+1OpQ{)@D4LR{Qi>VrciGneYpVTc#gl
z6P9F!UZND6Lkyzi_AP$aXH4*lIJq6rU+k3Wy8Aw2YvSFW5RKxVvE4y%Z>P<VD0D*P
zub^=G=ZUXU<(+F_aQa^^dAL)PjryP`N?bhuo#-UJV+|BeC(rAT<mI*7%~$4_2>bIz
z9891QQL`j03>wervraqCM9E36uL6yUP#prQ&UJ5E9Rjd3=_88b(XeUIMGj0`rIpQp
z&H!WeX;X(M3XxV1{9hW3Y#Qi8cjHG+P4+J`*6gJ~Y6=EBa!5+Sds^v>C6>Gsgv$WJ
z1?jdWv$<iffWKiG*`BV-uF>^_>lm^NW62-xIP9jjT_*~<E8(>q79Z(R3o7c*j&y2j
z<e7vI?j@ASdda7K@-p|on#Ur70dLY-y`AeKjw7qD-^2}3-+i8wn0!z?+dg%>Kq07$
z?<E{juSv?DZAthZ-;RA&Z;Vw!zuUuIT%qOh_ZoY7jFAdKX?}VT9f0$m-dw@`^0ndA
zVCEAHUzvYFxdh!H<*?=I1N~r3$}@p`*4!hb1=vcd=oui`0>a*ywH{ulm-J@LsO6=`
zpvWhR)$&v)%IR}2El413I)TtN*XzVXxAnJ(8$%4kz1hCb<*DleecYkIm2{RJM9ACx
zwpoWc7%cn4wOqxKcbQ~N%V}F*fYQ^*`wo8E8$<Xjf!2k-rIyVU0voOeqp+D9)az}p
z+A~M1O}4_K<jlIeK&kRujS1vS3CnXm8Q<2QX)-B#^f?We!-NbZ(cGg%JVrsP1PqRR
zl|S)0T8Cs6CN_gj#(vZ=XWH5ihOjfjmOCV%Iu|$8{et|FBBe0qgyiAx?{K4_%RHw?
z#oknZGOSAY$a7GdAe+({+<&scV#fEbG4X-4zgevOfHZ8YmA<dOSu0+l60f=;bBaBq
zDB>9#$}-=FeFsd7eHrmp_?0A=Agd`k@NM73=iPQUAGh8pM%}<}fTIukCp9v)?AUbh
z&&Jf$W}K+_wQ{6BG$F-TccFU~%uInk69;F?OOb(ywnCzazqOY>Ehg&wu9oR3jKx!M
zDE>~D=z=m395lJAsIi)qmv(YYPF%&p8PV4Jo9~wQ=gN={K&2kJRql=(y{vfKs=9?z
zuf`fPL25k->B;D?JEJ+uU+sLoEomj6Efb;Tvcn8`FxnGgY9E}dSC_kCJS#*ehqCh4
zB)J(^#=JSz^?06mzGzk`p~|eUBG@gbLmA1_%B*YXq12w<{P4!Um#AGt;U@$P*A*KR
zquN&EZjM)m)YqTAK{fnt-J97w;uMG99QyERphAGI@iRrgF~_}|9S|7!1k{GV@NA3-
zn>)qqT*!Z;NkRGVJX59)$4BmSCc=)`5NaltcA@i@iMt216Xx{R@s-X4G4%aX0&yLc
z3?1l^UkljgBiDa<$-OOgY=0@T&1Y{pUtQ<yh^j|%TNNJXe7(4__qP(#Ty#Qdrbc$r
zE^25ONJ|7BNe+okG8E{d9}L@$h&I9uO-gvzt@I6Uv6f)&&g}MoWFk^z4!~nX`r6lq
z4<1S_B^dh`5eriEt*Ei96-m3OZS)8r&~e4zOiR<DZnkjzcB^FBBI$w%b%og-AArl*
zlubpzVJXia3UGAg8TnI=H)tU&z>q%2cNB(zLnU)rsM5-*P4_nFLZiIHs5kKe!)&8I
z>@E`S^jJwvNB_}{$F8fTQ#cr3?0;4^^pAz(%{bLjxn*bCfRI<4OI#W2POXB_Tx?+6
z`5XNu*^C{%CmV5@XU8{e^qCWk{r;Y{jl6_IE|Se^Hdc|<l%Fn8hOS_UAblK6Xkf^_
zU@PD`N}V4|Ps3>kGqzxb5o&Cu=)FYTZRZdS2PqnGU5pRRk0)BxsNoMvxy3f96A^fw
z$}{5k=`$GagsN=!nANJ&vMN<pwR5ww4q~k+be*yz@|_GQt4~XF_3Ui}R89~{;c@)k
zFecfc2!=^HTK(kCKAm^h9wsQ%pioK2mNl>3)8F1+MUWnl4Aw1HM#kBxoy6?le(2rG
zKn-CpD!@>=rblk*ZQxW_nVn<&_``1l*$l?gyj1J^AVCZzd?HhmlWrUzao$p`Bjl*J
z!Adw%DV4U@%E~p|01~=4tWjhVzG<H2#191BKG$VL4;;@##y*@v0h7)l{;3&Ec9%~B
z?oLt9X^sS=Znx=N5HYlPRaV{M-c~$S-&xp4)tDMg5!`2etYg^Ed8xs%t+cz)s)tD(
zQOFZy=UOt=-NdO!!P;#bsoa94Om3twf@zJdMI@9V25!W5fMIfYH&w@@Q<YKz4@y<%
z6KKl~l8!_IE>GalK^6JQOJA|#HOIxj;znT#!?E`eJ7mNsgG1^IF)P?2oFbl-bNbtO
zX<vWqfw3GF>5+y!!9$PiM_a$K9f`$kwGPFkLt;Izb14#&@=h%W2n$anR~d0=3a&(3
z!F^)|LzurQ9`+6FdO)tG0{iG)E{{?GI4%4Er<8^IB?zC-6%XKBww4o_&0pFUKLU+t
zC(VB(8~kG)2I1b|_kl)f0sm+!@P}(`fZ(faJcK>%zj*3mzKesI#Kq*s!Nnlyj1=Fd
ziiHI7*mE|LYks38flcNd1`ip6WDmhol3VMa+y-#`S`M*6TUIJL8Awu+AGia@rE<n)
zM9c)&jgn>PmI^29KUR_fGxu#%cb=-4uPfzk78=6<vP^{~w7>i(J?X=@yQkNJf>YPy
zxnW^NDXKgOqyi*FncD;V->l&Lu>+pZjht{qng8$wc%*NOB$PT*1*XeqBmx`Z;wEtI
z^QP8by57)>$*xn=TPGczzI*<AVypqH`irn+ayMY3?}LIuPAwE0`vgPEk}8G16c121
zgWU2T+49Y-Z`G$J&BSZm{?;Vvft0Olka12sh3R@}sRAxd+zAO{&WdeJ0ZHODCzjEZ
zg+_URiZ48@H=Xo64qG+h?^-KRIuD2cIVQ@z$ZD?~O22(<>A}oIvhGY{a|i4b)atwW
z?YDt)b0<$@<-<d``43h*X9sS~YN|~g%bTnNuvEbZ>Co4JvsyAE5^W=wx5<pe6iX8=
zgKAYVe<ZfS*S|Vep-HNs)3$hdv)%Z+CrH}{C)<soE(w*en5EdXZDi-P0?9ym{ar&I
zB~qWryf-^wHcJuqjp;pm8unMq&e~Y4$B}PpfC{c>stOp16C2zY&q41aqE=*6-kOsN
zFoE;=jEgy&Huq)^6=LMvP9|2tba#u<x+EA2f<JE%pOfDKW*p!4F8VSDayxB_5D#iJ
zk)o22fu1>=W-}5B1UMhfp&$=_>QVY1u+73#+{S_H5rmb#4xpyOBs>J_0&31I6A~7z
z8gAzttGfIlP<l0lo6oIUf22g|ukpVvve+Ri7k^ptOK(|(k9FQ=L}u*}pewmf0C3su
z;~KSj9bceZ#H*)0%Kr;CsvS<(r^Wg?Q#=tVc*dgZZp9rRoEFEf=41J8*A>l#v4&x6
ziT!$)npHlTlp3A`28)@<d=aHr_i}sIaz#Coq<^uPdPswFr~A6{{D`h<z({9Zku0JV
zrfsKH{}<#G7KqjjzPa@y^CL<mVUuuesD%49$$!T-*d60Acy`ys?8xr^60gCfL{WQ<
zhMu**&wNtzWEX3&_l2QbbW}e%8*tNcXZ&Xd(frW9u^N9zYRa8ICziK%x7MD=KUJF)
zId`5zI&@#`HCpt1jVUSi_>^w^tBAmMJ=rNTPy+8|X3af(D`sY+9telNCZ!&8kj-y2
z-iF|t3aXNKQF(i;ZrnCnT{Sx!^r0dJ5J0QH%OkNGADbt~XrSkZ7n22|lsW5=S|u)i
ze}uf$e@;OSvoxfFmpv#*MXaY_)rS_@57<toOz|Al0#g<kUjb}e8_~hz<u+`Ou_#xT
ztT~PUD}_S;F%Z>K^X8>Dd)Bu7mWGklq*tq!P+?Jwic54<wwiC!I=q?sR&20q|0{c4
z^a%)JbeyP{B<`XPe0o%VA|r`%^MkQqHwAORx@vq3>@=ih1ClzC9J0#gvr)o>^#Zq}
zgy68L60lAj{|KrR#qU8TD!v~01@5z}4dJWe<J(=-D4^PGI34SNG)@zO(yd&5Eun?h
z!}GiTNhGq1Gki>;XBjkONDvJz7S)R3y}{zyx-ksd`$#m$T$@)NE#FN&xn@Lb0_X@9
zVrVw>uKKsrZvVa?l<=fLYmqc^<e3%@PFHx=*wE+7R0%IG-d>#lf8GN<WS)a1#x!H_
zkjvfnep{CQ`i7{7R{@6GQ<DSTzd)qI#w`h|dqvxj1jiD|-vO;JZ5bIOf2;LaJqVnO
zucG_KDh>sRDRBg!;CiZ=@kD<euG!JENR9XghXFB0!5(clasEy{8UCob^A9-KV`3wm
z5*X)Wj31LdGyZ3y9EsdF#ymCoMS$N|d}A$sV<!}f(q<O#-{z;yzoia4ETrlO52}{+
zsr_dfK~eDmJsoHyNKuo^O8GyrDRj+wMu1;V=(q3Nw8f1l@E}Btm77B@L%st1f#N~o
z5A3bd$)8}rmS2!V1e;H4VjPt4m7tQ5%F)D<4k<eRU&M8BzG4uXEDmmo;;q?8_sfH^
z98g+2E;rHTe7V9vZs*({@pU684GPu3FNnqZ-nz8JmJ(NC5WK775M>Qr>sDy>oR@B#
z)~jDlBa;$5tlA&}#Oaw*-JSNFW>?u}9P-k{TlIQ5{Jw*6!FNAQuy;jMK`)H$7Du(*
z4&Jy0$5Jp4=1;;{)DaZ7$rY|66)Jdl=%3uce^&$24}-|{hm2_HK%B7!&i_&8x{$QT
znn9TrOs-&B*EpN=*tOn$V?-!DlZ+Ru&``&>s!cjetebu)<%~@}O9L9koIMgq`GK;k
zl*J#+ST>VLNilt4n7}?iz{T}K6j9Wy2IC-sNu6`c(5NI_S`ud63zuVfEnw&dKIWIU
zUsU)9ED@0m&&V|hFgEsC*vr&JN{NhIJ<aLn%|%!bcyF|o7?$~e3^Oxpi}N^nlzk`S
z`pf)X)aMB_aSi`^H|h<zNJFde<u;Ul;~~7d470XCS)Z7L2S4su3?IZTpPVV6S#OfU
zB&~Np2X|k4{70MZ-H&`1?d<-P+<Pcmr`|hOr~XBa-MO!?qsIzQUJE}X&3|sT>pr<<
zS61_V+pNb~5-0V6_>+5g96k|woc7*;q}4fNiF?X#bR9c8JG&7&p!z0|FcgB#Gs-BS
z+`B^<V~^7J6`XTCyAnLHcOl?pTT<mOaQ>EybTcC-tInCwFtVotXLe1qI%j+6Qx`4w
zjdlGwX|L--kIdS{CvL;?wz~qs%H&}?xUP5JWFD74Xr@~D4iy5aAv6sKB9JB;Q<6s8
zly|bf$FuQz3A{+(BoW$lgDx@ph#0aN`qtIa024^0dV2(1V#65n)0vnyD?=ZD0@Yc(
zrf9CJ%dz6&P_l;(=NyQ(!7zVwnrZZiJyiGRod>m8HLjE9K*6EaCHnu|W?*7obnNni
zMpMa?ASH#&jqGS0S&+=<!99`)b|rF{*9b)yHwc9uRXl3)Vf#njsfagsW3UqITc-p$
ze&4pZP$x2JD6k8V%+8R~5WdA4?YU^fmL1mt@0$g#e+`dnzAd108U|ig=`4C0(k%Vg
zbzL*-LY$!bSsGTNrYI-Kg^-30m0XA!XFfE26(o1(C5J43@w;xW!rA3Yu?n?(7y9RY
zA3qJ-Kj#!2xPSs;XVK*7E9>othf%dBwetUc0qmd9!ehEAxGO_@ISxJIa7Ds+z45gM
z*S`alc_%;I{KbgK!p+2@lO)ZHxKCN3)4vugdA|p2Pp)DDkG&*LWrbcc*jDuRhgCdv
zHmBP5#C21IudIKO+2&&8d585E!>UfQ*7hz~TVS+$O|~^Z#x~A$c}CWwRmo*}zm>;Y
zhPhv%cwY9sI^*>1S_=6&c!d}r0IySFEC;9>7%JB#YOp<$*3s&E89d!`dyo-_J&b&;
z6XV!R?FcC##Ze_cN?C3e4TJo1X@@!F+glwE(B}>%`Qt)0Y-tW5qcN_WARaEus8GD}
z0rCJdlgMuYs-X`uPF1;|0oUJ*0@W3Qobn7Vu|X+(=jwpRG{ES$EMd0uig8K|Ux=sO
zoSoL4X@7<5uB7I!2;(`fvFQ)?E7uY?I5y_ROIRjJM<*%U1K~2%hSgu;DXmy$bsxOs
z@}Dol2Y4!fFa&Z1{*W1x!OP?e_c9PFN0X(w4Jz*r*g+F8faR8U1-3X5!Br~wZ(x`h
zJ_JfnBBz?}D|&;53n&%ALvG*9)qt9_*R$MRM@nvwgbXZMC6J>`cjCfSIvOi+m7X{m
zyxckNV29S+dvP%TE_+11^Io|dBnGJ~;NeVF>`MunDX`}2V1~O^Wybx3elTB{;FVY3
z9Id_6Ir|>XO5jz{j4?apPIjKoQP93K7~lz^Zrm*lT>DWDM$+?l+HL5iijR(6BWR(>
zuhT}7Pes?kL^Zn`-&;{OA%Sj#gy#o0W~-Sk5n=R`vl=g#G<M!__l3H0;kQ4ZJyMH6
zK6_lrDN#yxegy>aqHiTRbe)OyWo5;ATnRRhq*JaCt0jicTtBh8@6&=De@`pw=>+AB
z&O9RH>c<M|uDJ5C!UULoytJ`(*NWP6?9=|8l?f3VMU=U<4LXxuO|bx%?$GLM)!X;U
ze7b~-MbKy!%aQl68`E!jePHRX{s;j(_2Fn?OCw_j1~J@0A8p84e4SXk<(Z$We{7OT
zoAT4?-0A{gZ0<#r2k9zHU9R8s@Y7W)R*%*Ocp1<n;fe|$%eXZG^rnYZSQsP{`w#j_
zB_P<$YKsAou-)DRuNJ_Dc=9sXka~yz?=R?3mHvu@uYTT1H6B^&-Z%!*mH;h&6P65^
z`JCJY#DTQ@!}dFMOvCu!LC-2@F1b!G$yC#eW;I~VNtTJj)96>#V!GF!`KRqiir<ox
z+Tc3}ms_Y(sn{`lmgW^L`a*9jxVm+XCw$_3!Q;u>@N%fDXuXOX7y6|8bW3FHZO5mX
zTgKWVxmRCA^NO#3F=ZVq?0bq9#F8y#R^U+Utu;!be{XA!mlh@EPIJX=N=D}o(nRn4
zNQFTFLUBVGY#6d<aX+D5sF`5YGLg>~5m25(+0L3U+!kEUR&p>O2XoK<>qo$_99b>-
zewP`^Y<(B&%sZGL*j#=qL<l9FY&J&=&*K*z`-n5?5ND2?iUrHLX`QphACmDX44+~r
zT`p6pemd$(7VV+-1tlYLxeEOkdqQ_n8?Myv+~}(*9b=^zkMKh2NNR}319LOGX}|BA
z+7C7?pKLg1^XG@&NsNo9j9K^I>vJOkx{D2Oe=rinDsawUDcOnkzu6jcN<=?s9MAZ8
zqxWlUN#UGLVyE6{c5q~1b=KHRjWxMH8F6#N^os9;=&h>7GgkzSJ+3wyE@md&5qc?s
z+`nb=#k<5Gt-mM>)MWh#p&lMi?2QV=eM*M;VRkAMF{YHO-_#(V@sLm@UZeY<YEL#=
z8y8M!xHdIjUsO!T2s5ZAD@fTE|7k#(P_6a)LZS3(;)&Q0#n(0xK}l6_(CTOUKmT}W
z3eH@D(k=UHDju2}>#rWGsub$IXvj2#BhscUQhAFDD?f|bDbw<MQ!=N_;8d5Pq&LBB
z*Nlp5qRUA99pT|mrppNdZmHu4h<jjFlVneN+6$^Cz4A-a`Ph(mq0r;xk>{2IeN>}G
zYiKL_eFs>4YL?RY-rOc(EN<c5$QkJv=XelK*KVyaew-O*S$}O{eApkM=qieDh6&O;
zMz16#Ym5uD2IuaxGi>ciiy7?akU%Jde{FfQwnK3yV^L7NIppd!dLU9<m)Au6Xp#=S
zA?tOxA8KUPYH3WdpV4T59>tJ-^K+5rGa(~BsgKk6t7eQA4;k<@oL>+(oz`f^xg}~@
zPZ*Mx`m*9|+@xe*-2VX8Y2t_Sx0*(iJD(&N95PJ!tbV?K|2cfAg{B;$#tID&%tDf#
zvRs7^fLZZNF-ApE^Js?<E7ogGe;sg9BI9rGl7$#kBnb4|%^2)&)+lxfH$04_2i&-!
zq)U~(Vnez!m}|Ibjs2$bSnTOW7r$J4$~m}{cK;Ji(s?Hl-M>)n6W;^h&aN5KW>#32
zuHMt}W*jj))6%~-V;W5<f7BNel8U-XA8QY|c#Ca6$77G0JZq>AgsPp^8BORt73;UG
zrXTFw5LRqXgA*XyS3o&ie;`Z~zhto$wh}k1*>&1;L?h#QgNUADr0*r@QJ#V^HBF$U
z`-`SU=4sC?!^J}(UYVx*+hzL0za2Z%Sx|MPj`;MAki3(Y?w_cY)W}^fU&p}WFEp)-
z#Kt5g@tUdzW>0%Sk59ahY))91%$Kg-Du8Ods=JArF)VHr*1UjWZ@OcY$EQVpA90f%
z%<E@(>M530V!e6lKAaZ6;ANmV=!T!08!6Fq&Za`NH){{R3pv16+W4G1QX;6!<ti&a
zs{t<a6u!Dbul#Gp*ZgZ&h~?w`KkP;E!87XLG!r^So?Y12Y4#^WSan@K&kn8-b1MjT
zNt_K;3QV6zwE}s({+@=b*OM&(_QG|y3-kty1ep*Th&_A<R^A;L2#5@{hr9?(jS@Ff
z&*Kg=x=XeF;nuFW;Q55u@r3b(l7(H=M^CmgD<Z>U#vh6f-+VWB8x%H4>N2MNG<{=q
z2pRTl;%A~=iej9R^N9@+AowEX{I$&v&`8h6g30Kd(W>Tw?d#m7_009p#VBs0gm;Ee
zqp{+<*Q9`}Un#WjYtwOj1OpTC3yqnxBY6f&ISM^L-)IaI(~XM9yU)Z~HQ0;=wrk$#
z1^G4yV`_!U3%<rtjli&aSubNn)Z{zLEew1H#g+m`R;Yk$TScbEV-m7*ZE<&`5-of$
zUJJWkU~C%#`)KK>q-jM_I7yb5Q(BXv7gPr~4U|yMtK4Vy@Lhoq6^}ecO)4Y8NAsBd
zt6jv_^8wIi_DPaGyXU9_VeUFarz<sjo46h=!q>|wpBw#tXExRL--x6qXN86l8ZP*D
zjordfNhYVubJJ7p1_=gR`6snrGq1u^H@_4s-A1HV=G_*>>(0`slIuo<EsrZTBtcwA
zzgCHeLevQInV?aD*9T9bauEq<Q9SjpM%K_D47Kc&HWlw1B6cL+cz>&1h}S@xcki5|
zE6L-?Q_tF{j%LfwMx3jjjlh#y<%++?PbutyO-0jP?k?J=Dzmenr?q-JM+;i>$|G(z
ze$6)P_qXo1Ck>p4)h#(5TYZ!{T7CiLyQtJVAXrD2-f$HY4RQKPdiQj>xprV+@0h?-
z+KZBBe$tH%-WH^rbCxPkf(QGK&PM-8|7R^gb>8x766N6_dx9gGsdv6r=t>N!UH|Uw
z8sB%ZfF4X|*Lrly3^NU&aI0qTFRp*48s!fz7=c@?+D&QDa{)>1+nE01)0+Ol{wd9@
zB}NR?L}EnVMTRBE_*`gGE_z$?&`<NgJK)Q*vG$ivz3E;Is&*~mRR~V##yq1N*qNSn
zTP)~{ud@3t>cwmH+N$4fIdU?Q<=KZ8nx_I?N5-btJ^=(^$o^q#efAHp#xsnccZplf
zOS20poy=h40@pu}nuyyaH8gKDw#MAX%g&5qZ!ZBlivgB;)Za(j<|tLdjI_cGQ%$9(
z7VF~`SgDPTg}>H*pSxiR_iNl0EA*1M{|Qaf@`<C2+6nwOE6bYh(c(+PNjCS_J#jDL
za8+KMIhGcF5?>E(-u=sdX7Vr`hn%{=C=>N(sb$nP?VnYu&f|YrhlI=cf{A}j)SSU<
z^-VfERCw_q`5ezQ<P?SIcUouO#IVlxPc-s4#?F+O4f4u=v?>dAa8;4iS7~+67p%u=
z^b<4&UQvvjcYAR2^$;}q7LaX~pV@hct+j`q4;APF6%(4xkm6p|c^hkUzvt_;X)5&p
zdC0>8zjsV#ru_}$<KbbUcrp<zHe7A^IciFOQ*_@+H_sO<teRbXxb8~=>5#CaTET_J
zq@$};(#1kjG2`a`rw88O3i4Go{tm}CH%Vg|<Lsmnd5~^X%lzvN|I94EIQwWVih1iA
zz2?Z1z#fhpHP1gd17sRweNG#;yqqCx3u{f9+ad&%rsqzM#gnIzDF2CZfR#wzliv_o
zN-hLi9o7kwTT*xy!A{Vv!=PvLNSg@vkd2XEcxTWzSn-<L;o18ghRamI{D!4_tEOUE
z9+Ctt_`u23xt;fe;bUEDy`djxu~V_jb={<W`8pI$<porcV<jKk6lx17<tjW098|VT
zk-_Dl)$a9R?C&d<bR4b&ecYg=JpJz)T6iysq53zS#wLggW--898M?Vj@q#Ns;lBB+
z!wVkbleytC+ak~!J)2gnmEn25f~>OIMHR0R?N9&WMhryX(p)%hYf=Rt^}}10hw++N
zQmxUaf*b1}F07ein=;BcnQAhxTvyP3y&-p{5&bH&J-OLMhwB7-z_G3K*Ll3~#^}(-
zoC$fMG$d-(@#QDYk$FyHG}WU&?Tzw-&r3XO-@I1uVN6>$-5&{lFXHwxOdu2c-mk^h
zc73@a7YYxS%N*Mx)C?b))P*smuB}%lMR$L4!)3v%t6`@sq50?JmV0xKji%FUpH0P_
z;R>Ac)h^eeF%zw)GOKXT*6nc#!Xec5+R83qXBB^}-Tv!#(a(u<*azgUygw&ymg_>j
zWt*d+XYlu}R;?4ZrfGGi(qLy9(uA0FgmbRwZSg#YylEINY?Ria)Hw36bn8zAJM8Jk
zAUQqSYXFz0&#qP{)Xt8gPCYLc3Iu&T?rE)ifvZx+kUGvd!w08Y&a~qcpBlbLo@J6_
zJDkcjq~Er+q&%SGudKfZxb@+>+c}dC7$gC>5wwJ?v62{paaFh!eC>1?%e%lg!4#<!
z3iRi7gkS4h|6q!=+6;vPk5*HOtL!pdd`><j&DFb-0spZJM0#dt9*-{f>p+KV)bcm~
zAl&qKNeqX4-Bq7<38gq#q8MsVRk?qB?Yd^g9CggPW*o~-MVqqKHTt!)UE{{fhuoK|
ztuSQ5PKED1ezId3yZc67z7AX<f4Et0WHhZ_SJS%1>$txEy~x2IbM;s1oht;U3OL!b
z#LQ$$SXQf3c?W52wh0rXaOFeTmG!9|tDd0qWRu38K1*s?>B;c7ty>DUVOsv$HdNWR
zI1#lI?De&^IwskSyNcm`)JN3RVa;`XyRsglvBr8aNB^>W#ozl{19fow%*fpPT-QDF
zd)7|2Rj&+^GImj~JL8R?(CS-b;hJh&X6;!#Z?4cT`M~1j0Iqg9xY!s6W0wBGqV>8O
zq*MoAE8%me?w#qc;1z(}U8S|*kldfl>J#8<f0!T<#I5g~Nwijqy$Yu?<?n+AvJ85`
zMM`}0@=@;c_|6J`LJ5aQ=CTzsca5Y&iF2|CO3wN=WRjcxgG+!U`s?M$)5cNs@|u&Z
z=|8q>>z&f2_$8<YV5UtH6+O0ZjQiaDT<4Yb$b?-S?7F=Hj-yD&%87Lw`qwli@D|cP
z=Ek!^JO9{*3kL3c^Hl0q34hvHqvq$j>OqX+w<WEAPRbR(<={QGEqu{x!POGM+6E|i
z&8lZ<;T3(7Y=O$dNwf2pR?b$3Gq(VDSR9-y=GVzcTR7b1;M46VeHVK^4glPsn#kVK
zqOF?lf5K5q&A?L`FREofyUY#_f#MI>om&cr=CKa;`%y&c{*z<UH-B*Ua>R8%{er`F
z|AEOJwcubS$=80Jxl_>JCg}dH*KKMjg74QE1@?eB5Q)>TKhV+?^XrJr|L&K(M)V$v
zNV#hc*&tvEsAp}}T-uM~3`PE<D|pm$>_6~0QL!M`@BUyzCR+j;vakfg-L{c8t{Y#a
z@^uz7&o5}RWo0{H;lKe6|8Jb|$^RmHC4?H6(|efs)`uk^XwDja^{|06jbaeijU#CF
ztVvC}Ta6aGEm@5RR)a`@YE)MGu)+E{c?Ohq-xfl$8+^+fPW3DL2)#FFIe6z(CL64R
zum5IUr^c;9j>3d7%sk^H*RMfOp<57nP3jk|bB3qR?Mo>*hIU{HGl~(k9w5B3VA}||
zC9-!_FMNEY`odTy89kE$pTmR;_7lnV`8w+ywU)m<0-YYP)M~uZXHhs(r-jFZV@c%1
zVrEyWZ5=v5zkqS~`}Vn^?PDo!P}&n!ETYWUEJFyLZruk*Gl$T71OEEOUKtpEl}E)H
zl_9ORE<iAD@iWoW$mb&TWtIdV0qHB)=5z}!;4>zHoS=Q?*uCwbJq~NWeVWZMemtY$
z(b38Bs6J+1*5-?~OWW$sK8VRQyw>2PN1S^?yS=b|KC_)?-`EVU=A@U134QIJ0p;C4
zI28`^&hSY@>S$J-w;u7KpK!T=#1Rf}CNB*yVT6kBWy*PdIxVZt4H7xz(pYmcyt?QG
zTlf(}Kr^nk;fw?80@!fYmPHX`13EB0<D2VZZkZ|Xz!JT(z8`&nbAra45i_1qmy{iR
zg4ud$O{?l8R>Ar_`{|~8qRnc-;a}}+Yz%01wVNU`Yn<)heth595KS4Wz7`7}z4@b6
zk+bq|pNwG~N+%aG-rVD6|JqjQY$_xHmloJV&tz6ARr>t{-F|Jfw@-{f#Yp<cUp4>b
zoqNZImf!kKy=V5E+sP4Au0dqrTBv6KxjmrT(@aj2!krHl+lZ{K`hPJqDGvf^Yp}+G
z!R)S&!$Q9E?sUeLuk3GJH|@`zgv)`-<H=aGy8$g~ChBZ;fPs%eLF;%JGWK^aTZDXM
zpg(L-*Zx}bHW#=L6PymB_z!5oBytiYm`)x5c=Pn5GE>N-reIAN%mt7EW5Y6ENKRrM
z4Pe2t!Q)XyU_+Wi7Z8W=Svy9572PVXqT0`7Ozab~uOCV$kAcF_tZI!-L2C#B(9-w0
z%`QmLz&9%Xpz4BS5P22UOe8NBZnE6q-1|qQsh8nV^!(t(@R285POzP^)AAmM2PGX4
z1R3<Mld?%lC%<j<?O4!+oJi+Gbgft`XDFAD0_a=UMW(kwSL-Mn5rdH$aLu)QTKGzu
zWQE9CxR#XO>9@6`K5##i?F!tQ6?)XY33AOL^sG)xB<fhhnd?2CGi$sDqbC~t>pk*$
z!qGk#5BD~(QC!%b2cE(E=j+&UFMq4u$~m(j$i;PJt=(_yHp*xFeZ2vGiIS7>zAXd-
z!31|py)q;O|E;Urkk(vpSH3?(j^Lp$38M){EZ0v;5;fVy^!X)<zL)@X%R*#2W}mRL
z#>N~F9)D*ecBhH>Qd04AArr*RQp@Sa%&puDjRw)oPo}*vP}}rT@Oh^e)+0274M->F
z%H-=<$TGEPl|Uf>E9}9UO`GKvVFq0))|;e>IxT*`F;z|C@ra-4;V&N~g3^Q6l204c
zDBUk$=u>?QcAIB#xyy00TGicH7`T#0$QewBKTkvdf9-vDR8!g8ZX65FC}0~<X*z}`
zO#}p_4KkES6M`Z=2qRJgL$3iw6jYjX=-mMYgGxY}goLOFOi&0?3`zi%5~;xih#@4o
zJNVt-{eA0OcipwVf4{r`U}dp5hkf?h`z_D=yiaJcZxW+aHs+ddEuL!-JOlUBSeMhg
zy4SYsuYT=)of66uj?}UI>8Y+IahtWI0eNiySQoaMiMJnn(O=I@Nohax(91JDrvns;
z3d8N6v`)Ew2{dcy`vn-{LXSO&I)oy2z4zzU=8(6PZJ2r5Wk!-+wq8G$O^n*9sofBM
zHZ<{`DNoIur{&0_L<NMp;g)osSQ?e|1_n}htub7NP5iG5TcUSv-H-hb^ObK-SN(>v
z<%;YFAHlu-1p7xJB-KvK;kw~}gDj_;_S!A0qe;VIw8q(ObEWC5qb<rcoNwzlJ_8Gi
z2ZrzY;#u`FI89z<F%Wd^&3BX!`UpJk_{ccW66sDzX;p>TfuDS?eO5D<W(NpiP<6Dk
zV(gV#2kag!G?)h0Z+#f<zo(%*w|{jXI;f{<-_S8B(CQy>yu)p<XxEhNiPf*zi2hIg
zXb}*)(S%)AZ|bP`b8O<{F=MlE3V_g@kSE<sKnt#CUO+j`)c7)cjU&tTES+FYsAt~7
zP%g7k5p<B~wVru6S@w|#=N-&00h@kUCaNPf_TqA(yC*s7%}-NvU|&K##H?sLs6BI(
z&iHwWG3k0ABv4+!Y@BMJD6u=e)P}Wq@0tGs@v^l>p#77`&ufXg7sDcsU%V3PAHh($
zvtdbX^{DWz`Mlm<y&*R>2-lV8xYy1dx`e-Ks&D(sR&*>vF(yr3#;bJwKy9GW3-04>
zJ#o?bCe^k^&0nUdAAURt4ziG>bd_p3h^Qv2lJorYl{SB?_4U`F$PFxKIC)LkLo$Od
zHx@$8xjs-3V~GFwaZuKT$DNLjk$T&rk3?f0gAM&}%u!S6MZ2~ux9!Awtkc_xE0M70
z?!~K>haQW!S0B}E9CSE^X#Nm-db3XqR=-Yj%$>{+xbr8lP8Fbdf6}y7f8-yUi4Aia
zzdVJ^Y}$Mzi{YC?8j7)Kj}SVZf`m3bYF~Lk1ZA=(cGlgfu>;L^LeNC9)$uVdwf?^V
z`H)3;wjC32OQcx*e56W3QpUOfvfJd*F6Tx|PaSTYHe1Vg66{&NJDu!=7<aD0M}gK-
zfN`E#WNlOuybQd5fIZ(}eQM%HlDgmwFJXMy^tbyTL7L<qt#8{uMjwjQ==&zOBJ0Wy
zb%Tu3$Gp5I6V1<_z!c<qjZgmmW@_1M_3Q0abnkwGpZ3EfD+j?%pI6U3rT>~a(NNNF
znQ-~-EHURtQ5XuXb-h4=e|n_!+IUE5cW6wl1EHX0KoVAu?-*L+0)W~09-oZx^ehm!
z38RBj%hy6Fq&$=}ZI0l#kFu|C(Ayp5MXY~62hvIwGi$!3lIHuTPIt5^WMZWw84ej5
zmEGLjr94TY(V_rQ_FSeYMfid>U5vc~4$>vjVp3Cu8jr@xD`u*0>i*2*pQ~uG4&OoY
z&6rY9sYr=#wp=OCoe%X7G`M>6YsUO1a00W>1o?=0!cfb?1pim0mt0j}z5X>3&{=1&
z!2Hq0*fl1ta&t;3bHp75NVDKy2%i&cw7)hJ)0?vBmaBo*I0PL2+wMvi80<}&oIHn(
zC+L%n&E`XFnaQ8oDwcZh&OzD3Gm{jVnlvTLee4pSXxs*U4YMvD9)A|GRCc8}6=6`P
zR54lK2f~6%2_IlvHcpvuhrMZ0tYPJSBlUi~ImCbXFrIv?N8h+?=kP}6d17rHt5%lV
zBGHq$daFmB*!+cFE;{e#i#D8D-J6b(9j+fQGA{|090D%eLMVULh(^}pUTVmX7?(`@
z4Iy3z+k{=H)pvS*V?4(~ue%JQIkm?BlN=XPx8R;{kf^ov?DJ^!(NCk}iGP2gD~rxs
zuS6N@kO9@|G<gEs-!~}o!yZJGT^I?TR6axPrJnwlk|MtcYZ0cQ(DtnF`8HTGALJLP
z^>G!lnoD`ER1+rV72m|YHC}KxE?(iiCl#{=s6mFO%65De$bKCi@4fjhwJXPJCEv4f
zg4(%m+zRfbK$aEd3W_SnLs}2(0&kHFY}RA(XbST$0<VR7wJB0g)}ggsv#%pe@Opa|
zkJHrnWmIv2A5329BEe$}HsoWtXgQmw3%hxw``5Ty=$#-(*sA~*W1%NiSl^p~7bt?T
zu^BsSjtM=RUaHe9Ulto#p?9u*J47%T`6YNv*f>z+A7c8cY6t;0j<E9haUx4p*paO-
z)L0vVo7jLjY8Ebe|L7Cm8z-b*#{3wz-)(5;dk_Ok2xHmCt7d0!(}w`3HP37akztb9
z3##=t7u~8r?<b0gHzL2DXXZeQT3wePmbwcFzl_`pg(bIbC25^JG{m6J6xeC)d+G-H
zflr{A1vbSKkU)WpQ_<&{H~d9j)N<0{IBTW>g0DuluaWAf#kulWBuBNlXxbs4qI}Rd
zr2{yx$<3y~9HJ83keQ3V9YHqCxBeog>-NmA{vw+4l8S8<AxHP!E~NHW#P;St<t(Sl
zZ^F~;wg4SyI#@^{zAPoo9=loZ;9f<5yX%e*gkI+uVuVrBkg(u$s=NTO&rr*}Sz*Xn
zEesV<hLgonu;(=HzyHeKnwjM<vhB?SP_woB&L}#C5eAo2ZHD9pA+S(TX9EcJy0(CQ
zg4+0=H*JRu4VHk0K?E<nM`A;meI&Ojys$o~ShI07pk#R{EJ^qbr=sB?d29tedE{=1
zjkCsNO4mzmuzSXGN&&`}+!j6~oEj>z4D!_^-~NxD;j3l;_w4Dv#JvAX=>JQ8_y10<
z1BRNmAKQZfK%X+X8$On^2?w~Hs-32~aO$W`&_RgVBWx)O71l*wCF4Px)>k;7M+HD*
zin3e0UYL=QCV2*HF`I?=D4JHr9(dKbnCrx*|DT{<n(zozeYnEDxnRuvrXE>*zJds(
ze{eYos<PlXfpxpc%2$=kjK2uw0PPK5IxW;``5cDpjqv;{U^VzXf9cVIHQ&SFeS+~O
zgV$)N&)slJ$7WtJgQyW};iz=YI)(2Kf9*DI!+wHwhgl)d;lal&7pK;ps*>%MgX3TP
z2Qq`YrBS0bzh0-ZxB%*U0{qL4>aOqXmuuuLh-uj^mqdEmQ8zclxX+7&1bI;w2@E#@
z!TNjB^4uM0gb>hJ2^;I$w&)NqQ?K8zuhpo0@pA&~+V}Zf_r7nyYyxD<6+kcH9~qEg
zo4Uy{GSzv2`U$l96bO!!r@&`G2xzmn@RAO`kR;hO3`&B+kk(N5HN9{A^i`9RoKol2
zwaQDCU~2%18SV*CD^k>qPlU`Y7N;f<9j>blYGgaLZV*6$6*-2~ew^h4CDbjnFcdg{
zK)Cy^2}_oUU|SsxW-wObM7$N`WgT|Gd8|i)vpW59D+9b25d@759=U1I-(o~YUNYDc
zAb>&RIRs6z+7Yz|KotQ9YxBnOtr-O7DIcx&39pTfl*^l5fwRwtv7K0Jd~I@)d>fo>
zj_AiG1(%!$vDN<{|GgD(k`O|62OEx)t00hWdLzVapX!iBfp8=c67GPe1BLX<>bV;~
zo@xcMH~-)hE<=LCE2=Qo{RG}p3lJ=D5~x&^0fh$1I!AXHY()V4<Ih;WDH^||muIzY
zmKr-p*d-_IS)WC4HpYCpS0JOB1IoXeNeTb&6QHf7k65pWItDO9F(A;Td*#<1^{K$H
zJeF&h=Wsu>L47m|YFBs<&FdujK)_3@kty;VFRX<o*tZ0I_{eac^;oLYZ5q&9ZK#~!
zBkWw)z6e1hkV!rAEr7p|#eV{RQ~4;Y+9#Jf$(D%3Rs7)&^U=C4iQ>fsIV8HMmVzuv
z<?Ac}G4|ery#t0nd2MRhoMV7Y2d4F1T3~zP<k>tWSSsM)UpDD*&J{0m1^nH5<HeCR
zZYJ{f52)Q+m&n~=Vi97+m$n{-(4v$iPgWcHX$LHsQ*T}Curs|Y$`mSq$D(RuJAwO9
zeY)$EOs8iOU|l3By%yjSzXj~v4SSwo@XN^OfOJetAOs+!gV3V(gTvdvKQ7E?u0_W~
z=&lwcq984i@AL~m4T6`TfUZe5ASuzlD!#OU%yfjIBEj0(SaLQDf(+Ei{2^f;0NG-z
zuf|-2?C%Tynb_l_t?@h{2i!3WV5PbW`eA25bo^^byh5xa6yCU5K^3>xQcBhb#qU!x
zGYbq*LqwksLqXBL96@hd-PL4J-Wa~^!p~mt91;~l)d3f8V>v{fbe33Cx6Rw!2}{=b
z{W$3I-<;a`GMBpjlrwMz)m3u~jB}8NM5Nbg&H${t(HqDEp3+H2bhvMJP?~-K!II8Z
zO>)Q~63{Jpr`+|!sk=Kgo^QHZG4Fv5V5hPV)MHZA?ZPZPCW@yyNTC+b@<$gJV-W^_
zYYv5#+fZjMFg#+kgP<C2V56>`{1q7O`b2^Oc?^Ik0S_j}bAs%29Cg<yWjThY$RZ19
zGCgOLT5ArZS{grnhF8?SHjs~<I0OPuRGGnv*Ot>~#_Q~#(hq&!S?C9<q&7WzI8vGf
zIyl3D@cgI`m|X(b35u8JFt!k+z+vEKtJN8$(@8cU7KXiR?8DCPj*o*{6@XNmJl5h%
zu)U7o=uU*4H6Zpym)I4;UhVcw_CLa2W3N<>iy~T@<i2Y>{r3*>|B$Or4F#Wnsz%nW
zma&oxH0o#xLPVOh%5!3@F?H*0B?Ub{#f9>=KR?<a++Hv(A0KF85YdZ?$A9wu`_@eQ
ziKa34kP?OcPJ7<PC7=Vi9pIusR*aVoJ<j;yO@8rVw*GJJ)jYk&RH`GaPzpplzaoL4
zx>}j;S{l5K;&cK+p?IUY{cD8!J3VXCu2SG{ZMffnT9z=(wJoDfwMgRPz}tsyni&7R
z6IMK`Mb@Csu;uj)$!0l(KVThx;420$2)`phoBRlgX^y@WR1^g>d%X7T-D$emrEIzs
z?D2kKN#545N{IwSJr|g>@N5^}cMo~(%5m~VghY<JgP=ox<l%T1oPK7}58KxQm(vJN
zLP1C&mJI@N#aO=$3Zp%Iya&DZwV(xU)G`#;B-g@>C+PtfI*w3(GPQXLqQc)dTgpY-
zGUE|^9daf@-JV(Q1j<fY^S!I>im{#$sWv;@8hVtIU`#H74B;a`#Ex%_QvmZAw1^?c
zDQIkeEFfQ{AmzCvhn@s9q?JQZ9l6EuZn@7IEpu3nw}DLT!(7H09E4|uFJl+xjD9qL
zwM<67u(GRNRaZ9fORe)ha%ESyAI~q}E_vpm!JF8*((DxOu!{=i@4<3x|I8e=t{tE&
zx$}m`r&B0X&!{L|luBFFC8oPow~2@fM*32mn*By|Q_~<dqooc5*1gbL+=iZ+q)%TS
zOCMv04A@7X3o(O`jfM>aL}In2iGjF3GB|0didTQ%J-W1HK5;{4s#?`vfpE>rrgK&;
zxLBK(dop%p+K^EDiMQEqycDhcVJYt<)?~3z@#@MI@A00=(rKg_prYRmADpI@y*&m9
z6O#AO593y2Y;|l`>Tc36IC^M=TpQpA0^~C$sn|0G?PW04-7pwlKiK2_fXck@WnIwp
zwfOD3W+6l!KDT|2;63r=8E>L%i8OStf+@P;g0;AzgHYXcbT)ZZ^wCIV<RQVkhvN-B
z!9rHHpYfB)tYNtSQ~ACF3f5zw3FbZ4VsI@msRrK%XjW36o-t&?<a(#Xtq0W5B+Yx2
zGY1LjYZxNyr)=sl5Fzq6PCN4e&>fqy7jkI7|HJc-6I~Bz9Srm<)%&0)@(8e(qSbH~
z*IS?bYe@}$|KTIRGd0dD#=Z?an(WBgh4F7cOFoFS4X?j@(m%{9Ur|G2X=pOFvfo*1
zqQbXnN63**isE~0R(K%P^Po7<8{6;r(mP(r510+Iiu4p)#@qYhj&;B}jdkCQOQ&za
z4c>i4TSeN*-95?SZ>F+YX^1TQyxsG%h}MBfxnOJNOL)95$A?-L5f@a!9a#9LTT{%4
zor@cFoJ`Y*9$C=+rHR}YZwWcS<1Lp5tkMVd$JEFT2!5m9y9&`SfyG--J#ne2U47)x
zaqhbwPpe27<HyU5HoZD+CMk6<OqVW&EoB_EbfX_TA_%><;95Q$=wE_6g7)HqS9D6Z
zyr^GlrYdzYY4~mje)66dG{JIFxLEnQwlWx}d`#jFk1nbo<v+ZGaT5{s1<C$G)13Pw
zrULKQXn35)=nzlGN$V2}PrlI1TIR-H+?9O^^P2;^W!3(ix-Vx{#`ytT`rddCNuO7<
zF<LmCV?J)eK;oX<Sjcx`-B6basrgY(<A}x!gG~CspXNYhgrWbiAm|@v&r*j6*OIu4
z+w3;itQ8=QE>H2@q&`(Bc7L4{r-o+fR4oMxJCJ9)>-Xblc2AO|2A$bbt6Xuc;B)1&
zrqMbMFtPkZR-5lmr&cb@?bTm*OUI{W9r4l+Tggt74!OI`<rE%Yn{*!LJvkn!`{1aD
zuF~8%W|J;D7oJ_Yj9$~kHy8bZ@eL(ZafgclBkm~WZ(Rv=oV-f=5^^{x91u)#FA|q7
z#VutVwJf0@D+;=<dn8fKe!jV>4{R;m)@j`%Qp4I6J0RW8oBgtMsl$|HoFe)0yby9E
zN?5sO?g+`zqnw-<cWdJ*A1RMGEHSxeE=QczLDv#000AscYI?Ske{X-fwWq@{Bab#`
zH@Y}jW!D<k(B2uh7^3wF?-%-5auuu9w}a7CZf1>m7AW=39txa4Q^CMvh6C%J+t1XM
zIZRz+NyBsOSH#-$71vxp%m!MFQH^1bRfrwxBCxw~jg!4{hc7T>%sKv|Tz-L52tlN+
zL5VS1KiQ&ln?*`z=9$fVdgZoe?WbhT!Oz#(=4l6X-b4h;)F;(MeCFYts`As654u?H
z#m1ZGn@sRZU2?^PE|4m2I_(+f*?}qyNb}XO2QFEUjhOS|pL_&g0s&sN7*?Y1eC_>D
zwrf%0#Bs-<nKs&^V6AJRFTANJ6JSv~KNn8xAMSA_<|}fFHC2*KKwIAGMt~ITdA`%0
zoATrWN1`c%z6qbSZ+<?&sCM0n$<>|Y?OpKE(Z0=EuS^)bi&r7q&nP{^;p%aNGiK|P
zSf!+P?+O#8-e^$&t4zft;*=QFdfQeWFz~x<iEp1wN)v{(GwB!Dgr=(U0@K?q|7j{C
zt{wk26`?;QZeBU-g-iqxC@MvDgy>eQuT0Ya`&nVe(urXrCMFO5`k-oOhn>-F<M{VF
zBh78x!{{T7QeB;1oy!5-4@V?=;FK3iSLa+kpU`z-Z`6da43W^X!0t0^8LaP$IPAsI
zp?eR>HesbTse#L5p6lwpofhV@gY}f{cbIIc7G>huvKynnV`qOeJ~kp<CxzsN5H5to
zXT24~IeUtDS<&5f##?NTRgd7K@*n4g*T2KfAV^ogmo)B;B_d=SuCG%l^ORUU4Z#qt
z)DDVfJofxNTODB$I;r-WlsHbQy2IRQHZObEm%a;QTn#Fpro3PZE{U%_V#OjM@~rU6
zBTAiNJ3gsqWCS5|=mWNhME3%@qS^FH+ra=218W70SaC<b?YwL7LUY6*?g;ExZ_kOn
z+hBc0HIHZ!z8}buC87vf(odoJKW4<b{zlih!$drap=JL(QzMRT*DPB&j^JZW1*Fry
zf?%wLvckn57NA|2sGcV6b1S8LD|%Q*POO`xcgKnmN&L3seUcYTn-E?G;~$Jgs*J_Z
zUP41rwi+mGBO2&Tg;O8Ib&?8CY7P#Mr$^D*qofC;Nfs%5G39wuy?vR=Jg@ZuM}#^y
ze@1fsy-7f+oZ7s&b=Kw;2X=!`cQm6iyGvEBNbimVgYIC?D?w)VF3|hT#{&ns4a(Wz
zwuol?3jP^5C&q!z!_14GjoyQ;%K>CVzm<Ppi$rv-_iJY9*0SzQ$<S*0U1P*#+*f1W
ziq%${H7{OglzX&h$0fxz2TpxBqLX!o@&a;@O+x@f7b7%uJ_m%yRZ18(JxHs`88%WO
zXIos0k3FmMVbX;Br&{+2MRK76plerWec+5P!~}AaKL=;n<_%mfo(w-uw!_YL7;2Im
z-Sn3A5gm>Nt<^_&axx-1;)usDGUuCAD>^y4gF$~iD9hROgQkW!y}WKG_NVZ*C2LRJ
zxNj~tOfsGjSi8Wz6#@B3Au(28Q{jTM7J|lrVfp~*U%Y=U+!P#SZ$y;R{8Hh`{TocD
z@QFm#oT3!nqRr+Z^Z`05x5xVcl?nH>R^$~60i4wfSrJlx#W(2^OOwORAqP&>m*1VK
z8p>}$uSL0LpJ_C{9<AJst7c;u&BR)JxvH#kn#PFqbK7k0-%jM&M7B3}f)16A*Ha3_
zZiS4t8C<zB>gAS8W$m5_EjKH1l>fP;{57CTnl_!WSZN9U?)gyUhuLOhTeHYn_teVx
zxHEYh_yNnO>A$wb^QI1CHa#4Sl`kIfg+NPYn^Ewjdq|EkzbVMNdEbQG6J{vxd|tw)
zYYJYmrnob<!4$|KosUWKwjxT(bB1>D*1}C8y3RxP{hww1@-tY{c(sw?V;c62f8|eF
zhtULRhM3FapI+*T37&fFvq}6>^Y(kxTHx+oCVyTpeuX-i(g#;~F`c$g_4?aNiS(!G
zpCY}-@6o1=_Vi%NBR&)vXhpviydfZoUZdS6`cK-z2RpbZYUn82-7`?lBd`w!%i0fi
zhh>(R#44e!4C7q!sFhSsx#%otc1Q{x9gZb95FZ*xMP;q?A1*sd*1FmL%4+8Dyoygy
z#Y_0HO+D<yT6JgVT18uztQ3W7@yPLDb$~|(`+OzhFL~g~bu2%K*G7*J=dX|osxQy`
zBloNZH?me9F5ybD56~YumzCZ1pG*2uA4f|#jDNpK*c@1;w<@S64CG?koQOe0V<X|5
zjkzeY-eR~qt}VZ=8Q38(q?(!lLi;?43@S8WBxfD~j{!zdZt@mvhpO5EfMPJD<b|Ah
npiHK;ZHuKP{QN&-sIm_FnMF#v4%Iga9~fb7_gmdL)b;-bmSsSc

literal 27925
zcmeFZcT`i^*FTJ7VNlT#$4b*NfCxzM%?=j`D7}Nyq)QDk1hAnF2znEGi4IM=bm?FL
z6GBl0BtU`^Kx#0Q7(&Q<6K1~O@4KGoS?^!JwVw5^U)IvVx#ym<&px}I&)$c}S4|BB
zcOT!)$HylK7+x~x<J%d*$G82)ue+d@k>nRk(ATaT#s-(5Z|K9k*cc6c3EVQY3*qAv
zeaQW{EphUP2Or-FKH$=M%ZSYRF;uF%6;gfPrFYw|UBBJUywtw^%wO~?kNGX1KH|63
z`R(qNQ;L7x_(kj&@X~}ZMm=4=qgUZ$)2!6d_~X~E9=!JWk4sPf_)F-}_GgdyAMHMW
zb;o&k_wTesEA;AOHmR|w5n;8u*g~5l4V94QUg2iRs@u&<o2`H0k@tW9`#-~hR~u*@
z{FGiN60>)A>k&TJFkAH*Xr|{AgA#U>>B!cQ_(aMczE@{T(n7ZgkWJVj&;99~0kFi|
zno#UN4a4q&e0<4Mj{tr?zP4G3_C0(hmcAGr9sC4FM+wgc=LfW-L%=yOQX3yFQ7?;E
zN0kRUkB2R$Q9qDt#ImW2K>qECXbHRo(6jJFzxh5xnPLfE#5BS1Uja4AdKG*cK+d8j
zr|Tuc>EB?j+3qPY3P3LhHudo8$-niIf$VhZfo3-x7PqPjoHd~{Vd4NCBjK1MIME<a
z3cd<XOCc{1n#29Ul)O<3C$%K1jd|22OA2|F*4rpGtc>pg77goN&KlRN>nBm;fGE8?
z5uM&xTwd822U>C4nbmnLwR7c<gtxIx9d9v_zS}08Q>gfh3G6gj21{gmbyj_i^x0{y
z7WR-R98w2!5&dm~ALFO(9<MBxN%h^{Q7YyoRp0eX`N!mIV@JfzmTA6<=y1c}D7b92
z#=Nj|Ota6o;Y{#Xk&a@Yb;?ulT#44%IF_!76w(P?h<!ATQDy6o^?4Od>H3+{r?;0O
ztl_Qldk^?3t@nP?*mT|j(P&#a<o@Gv&UK+<b6{r0{U5zu<J8X&RMGlb?iUFrW7o@8
zUy&mkCF+Ad=;69<u~bR``qbsky#a9g_mgEG^RJPQ!~rn1)#0;M$}KF>9K$6^i37v5
z+cdGiXqHBQ)VXl<7y6^51;{fneZ%_l3|X~y2SoRf;A`?j-*vS2xz?b_<ST5(A6)s6
zS?m1-9=#`Y%-7u0`RwX(7kDN7ZP=_((~&%#bp83T07K;7&Bi_Pv^2pA2?>F4>pl7p
z4feh^b-03dsZJYjK7Ef?p)a<cB~P^QDXWv1jC&x-ulBAHfm<_%FPTc!|IzJoCG=#w
zc0%u`m$Ya;*Eg|gS=;#f4wb*ujJ^$`@?cg&xx_bPs(6l3@C}07$F~vJ2&7cw)u($+
z53h#YG7<`~ZOkvhA<K6<Pj_#h#idZ~RKsv^dK+xcLad7-@6p{CrI+N++SyTiG^a(L
z6nbkH#m(YW!`e=1<K4tMN&LjF74-RTro066`o&gZbI%k#9sFV%+o=RzX+hBH4-@zV
ziB?a{Yf`nx4!4Afs?T{WaqbpPMm;U{%67th6}o}S(^-$Y1!td?7RYWm79b7;<FJ>A
z=~%nC0`+Q~X)rC_cc6PbOY`i!lP{c*USEE+FG|bfZIRa+sT=^ljehQnN=*L}KKo>#
zytjTv|BkEE>=0+nG9*jw3BARTl-2H_OU`ts5Xlyexf}a%>X%02R`b(s(+3Yig1eR;
zWiYs+sf0hMyb*jNZ0>-|a9{btv8Hm--=;5kEhWrVsm$^yetszIahi<%anAkp9|f2u
z`BgmF8t|QwpRNZNAj?>Iu5=@i7jZMN#D)IpVZnv{rH>bW#_GX+|I#bT?^Q_T$iII{
zi*r{IAXEGlTONEVKbhYk*u1aMyH&H>_?hgxZGu4q=wlzl?=n=k-*CKn7a@Yn3mWBW
z9A9Z+#^s-tFm2hO`C^}rY*V}G+MZbKC7af$x&n@DbN&t*#<y%aHdfE2bf(JdBF@cs
zJ+dI5E#*t<wQYRF_?!$0G{6!d@2~x>-~6-xlC^rsPh$F7bpH*LkwHf{Exeo0dUe(~
zdNt<gk@RuVAusRG41GR@>x1Jv`K&?t&zaH2ATAGPNzS0=Vmse5dTw!atNjT%bhaaw
zDkX@HeztypOikL?`Ru!CpPuOQ7ri4sJ)GAsdVA14{u%2Y5_%*BYje*dn+W(=4*!Z%
z5v2Dym8q*~BP&N#r#UZs>le&h_bqaUOf>+|MeVa(=#!cE4OQ<eI+%8|B=&xY1tm9n
z;cQ}U!^9e_KmvL5?Q53Win!!41{k}!f3CkJU{|2UA53-OvY@MQoT?yt-Jke*CFBdJ
zWKlo!at;;smgV#I<zn11|K4$@x~J;uzl;><)izJppzYy}f%}l9sz8*ghX9r#QLljy
z0|L56Q3U~|q#0PWxpMf3as=mA8_Mp(UUE=W@)a~^JKw>n3_Cto2~F+pjI*m%aPWu}
zlYxEL+o9(_J17Px?7DK#apdYyb<^8OIL$xg;@GO{^pSPSUAX>3RcYVt>Y`z@o=UYI
zmW=nO9kW1UW-d+&X#*dtnrdETTs~*6zbB$29V@RF1zAggoDM#UyabL}B&!vYwS9#<
zNC9m%$vF@u4WSSvaVNO`1%`kjBWA?`G3pQ|6Z17Z#pTgVY{LV`xoN>Lcw!>OIV7rn
zqi%fdlvs2<`3QUO@`HAbro5>Q8D&<;7ft+E)rB7KqbN9-m@E6WFHrjFWRWyJQ$@<T
zGmqj`Xbj21t6#e&^=G&7k?8$cc#2pubp@+>>&Uky*#2z9;#BO~vbY`1t30+L-{Z)X
zuhH*`Z{Y`9HqGO|wH$qrpY~-U)Eg9E(`-e6tW|<p`3&kxdTYFfqKEgxvSH72Z1iD;
z!Pol6PW7B^F_)imWv<8=6u~Lw`1fL|9eXev{-DgR72RO+9LM`6>dS8xI{7aaXHTxn
zAAuN3F--efmzpEJja;ini%as;!gDMv7>&*PW`%|28SD%!hZEs;kzEXqDtoBSrxVGi
zFwQ9&K)Cly2OKqKXS`}*FSuop6vK^&bz3OAE_yM%IqdY>e(xw^<Oo(mXnl1gbJOMZ
zkbmW1wdUt%f<G3n^?PN+>V^3hJ6rW{mI_vc;V;nQa>w9<>Fe<$XJ^DG<fN-2SOe@6
z-HCKcPCn&1oT#R@QatkgR)zjV1DvS$v2R*H@W<+iyPRD%F7G|0=56=WxI1Y*R1kIQ
zr69UTwOdQ4=EY)k!RE)sx_soq=;X`A>7{S7k*D&X0M4z|x9scsST`gZ74e<xnUqxO
zgeuxOWh(Ddxc^J-))$K(1;hLso2E7n_D4S%5tQx{ll>gLAq#Q%`8`;~wwNU9q_px(
z?AZLx*7Rk{Y{()pHpuxYl`UO$&`T_dd<sv=gGJ0Wp&uPh$x!asmu_ycQNMYr2sV6j
z^4f+lCbQ4^X3Z6(OGzjvu$##m%+&X7i>OoitXnj-kpPgjT}RcNEJLE;Mnbne#};Y;
zF_1b3tU0|4>sYl5hNPB{FYCt|@ho~N0cK`eX-1f@P3!C^Fc-TR1<Z;UMwxg2l=uH$
z)#qmMmSx*xtOE1s?rDgkm;jOsslzztI+n^fApN+(hxNcusm>PiO4hSNf&idI#(rI#
zi9UX#$shD9oN3jZ)FYP-g^$1z&4L$V=4zWSy)EC*jC!a$n|#x-W7+QbD$lg^rKer$
zFi-Hc&<_cKgUj}>J3OTE#admu?b=Bo(f1TnwPyznG9F2p<8V+Pe@j27;n?eC|Kq_;
zvp-TGHcLeeN!EMb`GMA1jaFBYi0J&WHL^*n#Bn}8Pk&Ru+`q7}RaxTM`lf{AL<k`E
ztn!Dw4O~i763@vBJ>jPGy~TEhta~X#7~`lzjVL!Aj`z2vnbD{B+-$XU0CiB?7N9`v
zrHZ`%wSqmkyn!gr_O?nXNLsFDW>h9jF?Ln6JizIEzjc+D{sV~^om2ShK!DSw$gb{W
zn7lFM$z7Z;aRPI7_Bq!j&jl;aqboqR0{#epHM4kc>-BMYP)B33E8)DFgr?er+1V&P
z4~rU?y*ClJ!Gipa=2x~|%qr?8f6TtEkl23Z6V{-fK@;5%`DN^m_W{zrre$y>mPx?o
z37s{h2Lfdd<27ezpP*^jcMEULJ*UXJlNEDw=Addyu1*Wuj^NjvG^KArW-LnkhC%`1
zbJ%`ECX(}qgyu>q_R{Ag7EzM=Vs7yhP4d=7Lj^F_tZeAPYMdm}kI+nSf<2VdJmKNV
zQpZHf;!#Q&wwdqVVV5ly6TKvuPq20++AyXm7y@QK3s)Bt9`M5RHkj)||JzS|@8?`d
z7-RmNIoxTF=akM(@8CNJx_5IMp^s}2q$=DWw2bZ^;eP+$&;K3{#NgA@L-|7AT*Pdc
zf~s=yH5WlNMkIwgd$@zQd(YeLfP4o%Q}H=%F3~ZEZjR+{e}2#upx48E9gfbuggumC
zTJLe=ZLq?X40F$=Y?YaF+`iA}NVXP-xIe`RaNQB~`F>i!nb(j2{@w6046`q$)I?%f
z9={!&2dM=>nPIR8s4aDrCn~RqhD&GV&46Hgu$lFF>?!pf%qvlqdm`X-9j?6e_Ip+e
zwZAzBUkLQTIn)4fR26Rrn3|<c?%{T6d*pAbG^RbPQ}D^NVQAV3a89De!|HmA^~3M~
zNFe278Mi*=Zs(DH)cxvR#6{3S#=pm`GRQe&0nD`U4lxG(4Gzp7HRPR5&l$^pR6stI
z8g8-Kyat}K5NffilhD+{4>S)6V?>mazjLRI@i4xNpeK}J%>cWE7dUOOsgl0_^4VqX
zaf&bW?hYDN_b>An*K;Gi)&%|<aW0<1*C!#=ghBKgG1s^G2bN&>-_-w|+x*-Z79mBe
zH9~g9)FRdr+~=Nr;Wo!uU4dpeTZA3jcT+oQm@?d*BLE$dA?E%G@zOO(Q^BG46FVxe
z$pXZwthl&HN0*mA=RS`K0LMkkjrl**Qm9>mtBta*vfO6Z2UVBe(u1in>uj0H-bAI}
zc#TZudx#a&4@-|%aDp%OA(C$eedRvjlX<X%_PrSjD$fG+H_prvxda}oL!a&ltc#4e
zFr=%77thO*&|RBn*E?*<MO%?%dzXS3hI(EuvEH|9g3Iu>qEk>?ls-P6Cq{`Do;zGV
zzOm)b@Tv${Ix9X0nn=_u<C6tCl_*)>@+Vmn$sODmW30^XB9zt)gKvTbFwN8WO<>Sw
zHaflX1!*U+sfkYl@;gONafjhM#FEgIlCW!hI`JngG5cIo&MWCj-K>8J=b(vJj1~1K
zHtn^U%Owg+s$Kz)x-qEAeY5XWyS7-b2|a-@*M(`)!$TlLGa|qkJd!U<xpfshh>7$j
zYjoxl`Ld6DyyCvV_xp%c{i&)hIg$Q?Zj8)ot7>@w1t#7zDk1EwSLE8+CIn#_&?(ld
z>2%fOVRe;i7RIO%wNe-j&x<lP`t~|*%R<KV{4`8ISf{-9vYJ(_w`u|Olviukjwy6r
z*)p8=Hw4KaQ6_nj@QaP&R)pRK3;itWK+=$bti);V_|I9e2!lYkyhyK$jWb3_T)J9{
z6(P|fln2VS{duBY`!=N%t3Ft3q-IG_AFO6x&TAU^>l6=ovECs-{@D21Jj%qsnEEV<
ze#Dn#VntAw*V<AxD4-N=X4nvDhLvcX+K8lPDSdsrs+*M;AE#4jf;WPe>0QK%UIw)l
zHHii{Y(Ocg;ZyiUAp2=$?IIfGuO`KuPOn&WlEw{%Kj%_=uC62_l&`o=6v$4a7B>$e
z%;@rh3ocI~Os1j0ih#4deUsNM1z1Yx90GN;@KTuhFMW%zVP0yVT|lZ`Gd*wNJ{N!F
zYg15@L<WI-z|nN-8qCFz-U)<fxH?W$OXEX9jHKwV+)klc$C@U>e8GMcPhHx;FI<EP
z;#$r>{)r$YxYswadig<H$Kej{BR*Hdf_%UD!Koj$6)ik_XnTh^?s3#cl6f7hfvlw)
zL6+=bf0U;JF^VLt(mh5lz|UiclNW|3Ofmnmb^pcq{cmaD8DZ1czMxcomi&%28hfUT
zXRc!uBcj2X<izNs)52VC#3X&#>m2)I5SD={@xNYj&)oAzRKbG^?jydVIdEy^2($Fi
z6WrhW!UoU(4;KG_%cB29hdqQ*e!qVY({y?v^5oJI87J)U_l9oMd+OdWIU(M`<Vl&U
zgwnl~>rH>)TVZx1Z)|%3`h8eRjlyB>g8AI4r9F1h0L(s~rElnw^yM{+a)C?e(|1j%
zX{*5lQ#0vx1|J28J%u1geR%L?PzE!q+5VdQIK~4q?ntB&*bmN+6)eWWq$D*_B?ove
zsw-LI_!U|c47Vr>H-!fWtV<y<)H0yQDEKx()`d6t6~7R0hJ0;WGfAz#S&wE!FM@f&
z>e0^Zic|53&uV#15C2hywiEY+nuNhod+(4a@X0dCFNK<El;HsSY5(ckdF~%`^Eei-
zt%F}{rYC|TY2Z?6gB<=NP`21iPNhDrxWrQ<SqHB33eAf&A_VVck3OR&LH6j0EYE5@
zKgji92a@PJx09l3&GlZguksdo_Stw=6Uv$}wErdwvR3C<FL=~D{n4(Ctg|9G?5b|A
zLckmX-|^U9qQsryT3%E5xsgKRW>0_^T!Y*HoDI)@5bq4%PF`flOlE-_xi2{DMog6d
zPM++AVs_9XoV1=twZdEiUQ#@^ZAB?EnG(m7Q%*sC5b}*t*gL$ryKu*vau63{&2l+@
z=hzU*590Rl)@LgX*;HDVTtXNC9$6z$0)ia5FL2L)jgxON`*?5L>cJw8b^HLFG2w%L
z<a)+*wp=`qgyQra@^2$tLA1SCNM~{<*M!7adHH<W)+b;AtQl3-KB(A~^$`7v!T9-H
z*Wr$3TSJ5_Ee5l38gGCZ)%j|B*jEd$D)(fy>L34C{zTQvdo315g9lrH3@N1T#wgD*
z9yU}-7z&hN21B4YB&1GK!aU;oJRtT34Z)%_sOvDCNw6)+j=~dJ+sm+s&bg0(o(gRg
z14c^Xp#yP-J1vNxNBOzv3=1{sjIzuTO}qe5R{Gg0F%F}nidS=c5~>49Qs=)Vi7nKm
zoNun?q^-?9*qniBlEz25Jr33R$EV#iTC!fqq%zF)iy3q*oK!1rmpgHCOD#e>UI~zo
zSpZRTcvipuN9`=?3XH#2Y$jqW<l@V!=-UxE-~_=K)btgzmGEa<*@0^A;o|v6IACgA
zi2xxxw8}HNuxH~7f6l;M;Pg>q&n)}vr7hPcX?nK~6<}(2k0JKAdZx+>kQZlXkMmUW
z9295q6imwpifwIo?t?3-&Ya-xMNE<b<kHS&ZzU_*2=0%00{P!q^vYfGZ&Qteaa`YV
zRxX}5T-#G}HrITJx}kZJ^y-&1DCB9uQeSaH9^X2cwiFZiA0lVJO5RNWwi=Kbc@+tl
zVAeslcZ2DE@r8u8RK4ybV!c&Tglk}AVs^+Y7+C;fNz^AmOENVXrk?LN%IM%GHb!Dw
zP?AV<P#;cz2BR23QsaPe%%+Y3+1c)If4R|sfUJ#U26YOC`|jlC^I=o?Hd<W@Ir>Xk
z<54ry;G5+e`3GEl^K5a{JAm_3I%?A#oU;Inh9sDwppBHK>o&JVEVT{Rnnmpf&cd1O
zUJ;bMYY9%0S?ruC{wVq(#Eh7P3Os4{M;pv0Z=)q6!E9(n-}6z6a%ZVDzV3W_hmP`F
zi4pRsZ*<RZ{wX*7js8Gt;peVImL^e+k8QTppT>)A??6rcHZh96qqu35M|-wsp1WqZ
zpmU(UF)-?gQ}U%HBmLLl!4$IMJW;a&3K7F10%FZ7YamObxtV)1A7x2uK8X*P20ovX
znRZbcN9(>E3J5U*1F#8Y?`ozWmDhl>uy*Y%rJTs2*dJG(K^O&Nb=~<;6<0KDuY|*c
zoo6{xuZz<8Zj+9>xmUs>Y+5cVGeV*-f^L}kWbi|}Q6(B=NonfgM|?YwSHLRnDe6V@
z=7?p-7ikHmnsQgzRD^4HL^P$iRl^~=Ff_P)u@*MxvtAAl_9!2teXjQIN{0=tl&yZ`
za+~Q2wwgfxg_R4Vdo8B<TeMhi#1Wgl^hOoP{b1x-{G7!ip0(Q1q+)Em)Dvl^kVSoT
zc?FWQn8Af?rGq}3#Fq^_XbljWO57`16=B0KKu+?{AhJhYK=;lAE+G$LHa2C<MLqw)
zTw+6(DScjV6=k`u|8h!885l2jUx{`RHGe$)>{QF3&+0oOn^71b_g%}S>yuCuU}tfA
zDjU+bn8)da(aszCY3}9DV^b?;OOkk*GhvBG(W$cAg_>kWx|CRHEpm9Lj?l4AkHsU#
z%L|T$w7U91%e>7r^em(7Gi~HT)4fQQD&zB?yHA@MT|j&0lt&k3M&BfOEfBDjw{>8X
zgvX#tRgue;QU5#W5yK^Geff#k<<QnYA8b!!<35+?>kxEuq}x%gMq|QPL{4?x+d(6!
zCRI+Y5xv%v+?v8w?~KrB>AEsutk3a5#^syL<sLJM`d2oLbhW#pu5RgGr)>N!yjdTy
zX@qE8y?z|Cv)Di=Ox=n$ly&$^-IE=(W*N84rVonTDGvqq&U140e4L#u?jjnE#vbJC
zed=-XE@HC5W=c{hL#@omLG=y_iCg#i<>xl^Y=-BOUNK^GR;4%Jzw3IEZNjm>+Vt_}
z6L`BB+~=%lo$EV-5ZxD*Sj#^@{jpy6Y`pZWD82h~0@rku{`B<Z7$6#vVRbgM>uH6J
z9_}A2G7Xo?9D9lL(@cV*OJjrggfHuJIS_16zNyaoOtYSecAeaCGEde>H4VNR_d|_Y
zY$VIzO_`-xW;}e<uK@dQwE+g5b6$R$DoVbgt661ysX9nx(A+U>Fke<YG}4pfPs*fE
zzPkV^4V(a8QJ(N~e8cs$uVBgoPiOp^nSGG4*1mFBwCgd%=G9qZRJPed7KH!SVKP(b
z5<P-Ik6Ex0p`q6Q%hO?l1)3pUMs<PQ@4H;D7uK4x=}Yb*KGH4Cvwe6CF5)tNTKAt?
zfPkZY;Zb)PgwIj}LsIp%pK71rIMTyf?M>K;SBGyDtuGKI6Io8QH?n$~Bi45rHAz8H
zVFD8nVQrx0kYXn1*AQq!MvTS~SB{<NiiJoEyX~pp+nGoFvstTKpxL6T+GBq{7@4a?
zUOrA*wDD#XNaH^iVspO{=gBsfByo~9!U9~7nWiNNi@PLI2VpqC&ggo#5V<pc*8D)-
zzK>B+cM(_bE-}vd?{^5rRwbkEGQPz6Hp_)Xm+u*XC`u)0^xFNyD(x0CsbM!~r?7BZ
zB){b>S)0ITrv{meGG%2JGRhA0RdO_^O$^_j;=I~yQ0hU&9-Y1{7zC+-@TGu^VfnIb
z$C+qbP)?OC|KZcn_pujBWRHv0<&qJBgmDJvl@ZJBh`6U0gpU?jc&>@neW(~QS`srq
z*10PJVu%URSed2&Qa;sY2s=JzS;#8Aw(CRX$@a$JW|@$KUdoAW9DAcTp=TscBF|0r
zKzcv?!S4n6>I}y$4c@bl{v1X#3l1@=Tnhmb2&2^R!l;R;zk&l&h&?N41mSp{FDQ~Z
z+&b;t`iOC@#$ZY^p1)8sLSOe1iyz`*>xZL_K4(1eaV(F;X5}oZRov0?(jBxrNkQbw
z`#}(Ku0WCS?_;S-d;B{}XK>@CJ>)US7JYn(S2_U^Xr<1d0W_$|IV?>XjT9?w$dU_*
z?BMVBj_K8F$EU%*ivr=LnVc#zQ+%b~c~y}mS{Z?|>0ti+ZJ}6zoCxg^r-Zx%;<)Fc
z-~59zVAT3<-Fo2H8RMf|n`l+^MD-MgetOwujR1LFA0sdq7baa5)_P475e(vLe&3^T
zjFQDze+NUTRhRdqkE-LHVqbTpL(wzy9(k?`qoXZxZ78-z`tb}534r1@v(BTeW!k!9
zd3rqhi%^-%m|t+;E??PhbtM+f+I%qwczJd%XypD4XxY!-l8hkJh=UZ*rX>*Mm;^gb
z1>6WZ54z;)i0LYCU#tQ)1LK1DFhL%98(lC6)roch%Wa$~{^wX>fF72LK$TN6Dy6L~
zgpe;x4bvvqSFsXOMMK$XUztgI?0~L$Rw*mk_vpZrfi*~9CxU|s!6N>m51**6*BjrG
zl~8Q`eL!Aq7uu7%1v37U5i~<4Zn?EMa|G?2@m87fajH%Nd4rUJ<~QjX;#VIwYOSef
z4Xfb`%m)c@5Fv?-BEc6IlZI8VCT6Rz)g}dx_3s*5-5m80P~2!TZy6HmIF_Oc4Aw=&
zkC4*o8de9HHt^Hj=taw~P`jm<(FKz?vlCyw3`FTWNNGo9Q^n1N+HI;M(O2APFaz#^
zbKg9Bc&)jU%2wf4azq<d1|$+Cby>qtsV9?$hCWx1=;2%Q{05V;$2ju6OZczXO(Zm{
zY&P|WZ`VKWhUhuoh*)4F`-Q%}R+hN7Su9OMT_jlSkMB^HnJkB&j%CYua3mpr^-9*?
zFzrQX-50~sV!fyJ8D2F(O{fxDOc3&lXLP4m0dk^R-J0ZV*Y8<?%^fmnRNr?rq#}VZ
zzsn~~87N<<(abX&i#3XWD6g2TZrRbmh^bYxb7;D!%%J7oJN%`!6h5eT?U<Le@CszY
zUl~1dJ3J{5ZuA~4d;1-Vhy}f;4@?>45x=p^4|m*PYO3Q0q%-nGF-rG1R4i;k-eU0u
zN&@Lb@QhP-9`-76vQYCIEnuv#0-K>b6ltkcanvN``}^TuiWCwKrbuY2hNRrm_{)5g
zE;PZk1oan_#M4W?4qDJsVNgQBnUJzeAI?OZ7DOt(LW6AcLHjbv*BsqRXW_a+V${i7
z9-xEdZ`{L3+g(2+pf(c%#g3-2VD-9hd#9pYx;4r(h87d{w%QF{$UYq561ag7yjkZ<
zxc#*s3b=v8rg^aIfeTrjxt)%6J^Rwoz4vY?-9wa3^mD{U%tNBI@T)*n-gRQ(N^9q?
zv5drHe~?ku9Y5b*r@*)~!hof+eGJ241)r<I4AnxH5hP??Pj*7C#bA|00l$hRMw`D?
z)lXSd+pS%vKDFSTttsEGZR2#eZZX1)pmYMBe^_IR81&({AK6#EqkCVFPeP*-`v-*t
z6N%r3-e;QHb$nfi=>x$I#){i8%WUkbn>ddCW#a&J-a@)>$^bn8{RK8pU(zE3Ccc=2
z!$33Y%X=^%+vNH6g$=<{U`St(;k8&PX#8Uc$o>@fV+f2a%nPz<Ku9wE2<r_G^JV!%
za4-arW`*(qIfit3$nVi}9$(U&^Jvy@&89!#!c8W`jZUkSV8?W&V(&%>JnDGA*ZHU)
z+*3VF+v`n*!twnd=37x_S+}?tY@g3v#MEnDk6pqtaXaMqPOB@k7+=K>COlYc)}BPL
z*q`MsxaXVgH8q#sDoPuxh-6X|&rIuQR3=lS8P1eblh+nHZAgAb$c+dbq*6N88CU~M
zFP#1whVzy-jVb#%4dY<kdm%6Zx#0fx#bw9@W;rw8Ro7K>4<^NZH-@?wyl}9TJimaI
zav(be%>3?EhaLNhOQ%i)P;RNQxuH>l=}MR~0EV+R%cSR4KA|(fjq@M|<#BjQ>{yfZ
z?=qb)0CF-l0W05Ea;-&a!x>D;FKJ}0gq~_=HDja8xl!~BwOqesl`LwpH+dBe8P_9g
z>!VnAmJw9*kXYKIlO1W2(XMnY`KE1pRsUx2>3t91Dt?dPp1o|7N%jodFc7|w1ck3%
zzo8dR=&WYCskCyGm!IkIP5+K-#)4b8b)L6OJ4-l;u70?WmXSnPo*F>6nCrQ>Z$T&}
zxBMj{iUq!O@A-}}$lLgWghD+6!r|7XSM(CVZsNG>X!zD)Z)M2(F2X6VDQFuTf=cJ6
z2jDgYHCwlu5p@qt&M62`e02sbi+7L|<)S?fzR;ZSjhL@?t`rB5=ns%#BbEdkIR!CW
zZ|7`x9KgS=#NGmMJ{-Lt;)1L;L_%*7mU9wvG2g2$g3%>Sn{7?&PBN3xE{?XZZfx{I
zc{A%~2Odh<W#}M4hRP`_Y{;tkI#5SCBqboVLJdD*u4X$@1=S3|XjwyxCzI$*x%UE2
zt98JpWXMqduA?c@X2B+)xS1B0D^s&6F;4L#7#&Hxy1CHnMk%H{C<mN14fY_UH?Sm-
zmgVq)7eGJ;Vvz|!HN1hkU<HtOLKE-1ZL`MNxX<Nbx!bUd=gFca>!U$4SbZREl!Ofn
z7kBEPMnT1LN*RcjiQ5L>o^4?~rPYwI#?x|PNO4?c{$jG8KeTBtU<SFw?+YoTaL=K2
z%;*+EnA3d>!VfSTzO;w{@CguZGJJ>S1q960Y&*QjFI_dct;2g$$q1TX_8?S3W(_ZZ
zg$5q`5$0N>f&2t96f(Av)y<c9=q#U`((JLOlD&z>be8w@o;%x7(TiWUvI=~AZ+Q}e
zh5f~7$N!bevQ&;xhaqo*Y|N+(e(mBKYVy&y>)xh@!QotRceN2nFbTH%`-Cn>lEza!
zepG4MG1c-m%Ki;>`uB{F$>1lUQivcEE;W2U)fL`@L=7C#FPK4xCBiFFpj=XTqZGt7
zj)f+p6*Eub<<j_$R$WwTB)&ml{2U6Q(g<S(os!^9X}3quCfm321$|&GbciT7hoZ)j
zhu@czVCA$V{lm%;UQlWz5G;^FMuA?r#M=RL2p%UDIz7^|o-{5uHO%fM7b3%0mb1=^
z-;OqpO9N3)H--D0a8x_Yo>Em$UOKByDa6<F;In0~bTavBU9C9-f1p!CdKx;_({2X)
ztV@MYix+s!T|%a8K`~Hwi&?K3Yp>jZ`F=$H;?%WW8t21&f3wk*3c<XFP#+n5F_bW_
z2k0}f&IASWHOx4ds2Go_j5N4j8O{cAK5tQMc^1mnEFKMt$0(g{Z#)^|bq<FsJ@|D*
zLbKr0R5EewL)qV8%yS8U|IyV|BjiJ57_JZ-?e9FcnM6M%_x_XW|7QlS7z#U&oS8)R
z6l>R+Z)OlBm4~E|#(9fw+_w#E2nD&aoqfHcfU_ME{rSTmT+_;Do%GN>oEd|GG+m;;
z#5~#;l5i$4RVJey&5TXD(I+IBVl&G)t}s}ZRC}cE(0HodUp(2fuPn<8I%^#4Tpo!-
zhV=sphIDZt+%&Bn^{z=x9-y<6Z_K3sSEzFZkpc@O&J)Mvq?M84O8Dm;u6=vS!e>@3
zF2>hMROz>#Rl3JZfNBMxV~st_c0g#Yc<JZ;>DP3vyipS|wOvVnBVoCv62}kErW|Zo
z%oR;7^&(rR<bRR&hz-eFO`<bMyLk!5@A<VtO|;VZ)l9{;h4lZD0gQRE*FM(O65aTG
zeRG#+w4!TCr!`4T{jUgv?tkPEko)*5J@cu1_f!99wdb3UjF@lUKj5ic$?siI*<@AO
zeAdAyH$ut7-)tcVdcAyO;czEUD79{W5+DmgwD>wGPW&4$l}sDYGNNw~=JLDWr<Uj&
z(n)(;KVQP6<!+Myflf&`gqm>p`O4kOMdhterv&@+K|ctCT3%;Q{Bh&D&YEGRahF@b
z(NP}Yesg3ByCWc@^S!rM`01P~3oy$;gPcs)*7t7u$_sP|%6N(6QCOuBhAyC&oYaUX
zU4Zkl&gP!on=1H2KpD|J`igp;O3#Aa6W+>-$q)f-u~JH=yT1o9U*b48oYqKO#li~m
zIP2BwFil1Lu-g+}YRR_tFlKx~J#M9kC>c>FtCx9brioaly74+TydWPre78|jQwDz!
z6cHB)<_g<$32p0rQ$=NVj?<cHjgmhgE6#)Jb7g(6mj0caw%ywQ?~l$y>;nQyt2OoU
z9Z3IL<6zUgZaJV<^zth=ZqXX_k+V~t;rs9vsHG)EW2qmo_X7v~fdtdwFxqMd>|wlw
z7Pph@us!j3)7vjHcr<2Im#ywm9MW;~josjXrmB_j4{w(z8U?rix|PwhPV1DYR|*-5
zbNWyrBxwKFSGp0~d3y(`=F{4@+FwMJja9fKpED*o{`GY~WWYhTy-0}aYp=XWc1*20
zl;E!ZC&BG6_wiOMED&;a*Fflu55xCX2767{eyt^zwKsa48_`B}ru#J?;ANR!5vr5M
zbt}vvobjSXvZU*)I8dk5#yO*MFd(at*wfI0#GdErUY85x9Hp!XotJ~_dj97ufCbbG
zEi)NdqcUX_Is>J-!N~d-Q7JpO5PB#i@UIMq=jq%OwVM^yd>+LyVlL<G<q4JTCMmt0
z^$`}`CqsK$S#kWmz%jjNdf%tRFXcsk{q}}Og!P|X-RknY%jknm*QzWUE%hAkY=GhS
zpe6(BG|qAv^or0d1LYxoF@E}AZEaiB@<yek;5^UF_r0NZ5P}+yNH7avC`qOd$X}<S
z#(jrxnd?98nk&@SoGJQvb#OG5+64rN2506t{K<opUEf1t2g(v$MfcD^Dj?^?6WSOq
zIVFB`=E<Ws-GIa~hoih^LzDnn)ZzHU$r(`~!52x~ZZF0y2j#QQg1Xn$sqE|OFMvun
z%Al-XV*&A7bJ@SMdO$vgdp_Xy{_iR}UP24VqQ$^EVNhuisdQwuhj!JwDiHL)JsDV_
zQ_GvB?J3E0X)&Ejgqex_wUC2pDz}Nc4JOv`kZV4^izHqA6KUljuLNd!@t{Qg3&ds-
z%wl3U_HiX1D*fW)tIjP|jezJIUmQiDoxw(lVF|pv?>dxh3Tvjf0AgfwUL^xx@daqB
z4LsG(vua>w@Zg2t*m~Eb#RvZLDWwqWlJ4I1l-<JNR3T_TDzlfze(L+;DkU!Md-N+{
zd|}@^#h#DV_7eN@f?l3R|Mu|VUjlMs{?ggz<vxFYa*_V?OrbSkEMl(n?&Qq_=7qmM
z&b_N4A><IgMxJAIsuqWo;)&@f&#@}c?sNugwZUc1KE#C)7VS0VTs0UugeWWap)}^%
zau>xn#ijOO(b|#QYpXrY4kOoUXnlW^8u9{iVZBxhxF?z&Ylpw_x~B?5fn#|QDZ@Y`
zpu7kjWW1GkB|d<55LZUxUz;DPdJ|MvM8f$<^YS|}^?eXFb<v9T?mz;{d?3o@?>7|g
z3Kz)c*QQbpfHIeb#s-p&c0&Ui0ScSwnGD|Px5!?$DA>xF6B}yJM97=bqqP^<;06lJ
z*|jnTQq{pso3U_v5Lf*>&;0P6B7s!QjP>MMNoGJV!%J#-AY{Zqne@hwsCI~#VS(b9
zGZ7f@weCs0Z_!A=r~c^{yKExb31sD&eB>>z?N^cs1d`NnO97IBO$`q{va>!Mn1|9C
zGg)rDF18PArRu%GjQ1COQvde7RUU#pKdN99yL-#LF2tl7!zCqFKpHi-S~;)NNz0|~
zpY-g-%x6la7cxd123N$mecN_@w%$pbg0+r$b2Pd!h(sVb$COnAgxCDOf8n+_7?_*2
zo9tp#_^tW*mMX*?7D);4nA&qiW3hVnH41*>?4WpD3D*Qb_V48f6Oi9#p$d9<&x&<Y
z?maK2P&fj`%h^|JIKKBMTI_19wr;q@KZo|#zi4gXlt^8UkNDVsZh4dys`uAUIqL=C
z+AZF;Io^cM7R^P?L%(+Vmy&G$U(GW`=y$(%vLgpJP5x6D#LGyn+HZn-%ShsXO9J1O
zTjvOo4aOsn1rwNg*=_+^72j>mOwEujW?A7Uxa?4vBNdIauY)O;lva6s7bx<jfVK^A
z#!_91N1W5B+JCR8?NP0yrg~R#@DU7j?Z!?Tpcu2}Ig!cowH+P#TS?==LVtjqIwu*#
z?;mJXIb`{Vhy7N14T|XCA78n9flx|Y3tx<J94qJ@$U+-PATNNv_B`C1FXq5}mOHLz
z&=&{eN7P2K(&W$ZQghEG9PE!zch2<WH1<`|W>?Coyx79^5Gnny>j>is?h^R=u0r}0
zR}>z&Q=a$xL9Y0h6g3ALyK%Rp#Qh|mV{Es=zT7YPAbCE8nvR`bS+hvkIYk(=INW1z
zLhqCAe6#NP46532&Gv^w=ci67BpM8Xa%EuOdH|RRgW~NR2aO?Tpd|}D?LgWW5HT;O
z{lh7lO2ED;bAd0LEd<a+8kO<#s{4`dQu$4tqiNLjgF3xeAbaS>J$@B~k<wk|n2W~~
zLL7U8a{PLou8%?&Sjt`CsP~W0ZTHIGSVHR;MI1BX@-o$HI^W@hsvpY|yk{L$X2UpE
z1>9vEka@R)@J_ykvMS)93=$gZyQKl@dzgIMI8rVBq36#U#B!{g=#Xp4`H=~mql}m$
z%Dv+hW!HgPN#-rWeoCG+=f#N9z$4p4?ykfj)r{^U6!B1cU!w!Lc=bs|mCt_TCGuah
zEIMq+7|7Lo*}#^**zwvwjJ&<$QF9@tC^bN<ec4ZCPNKb$^0b0No<Ur*{PE^bl2Kds
z$78-`)2xdi6bOs~J;wA>Q&cL({?CWuS*g@C@9CYZYFXuPoj*W2qxM%IRP~SV1UI}I
z`jurRhm)y&&`F8TpS1~@gd_z5YqE64x@XfAq?iUrymfQ=%)A{yusjf#MdL`|t1wMU
z5T1&31D((bluRm4Yrz8CxOM-vL4`ElS8E~Kl%6G!<#mdbMLh`UWm7|>`%gH6RAuRY
zwfJu#-g^F>V_MUOAVP}y<LRcnad0sB795qw^IwS<JbH~yX&dk>F$*--?hR~i_J-3S
za@+jsU6NZLl6>#Gxr}N~ZD8-uJs8lCv04f+VzAjc>+||Ak5AWb@6af%ipIX9Xe5;1
zsAuiyRW@sR`cWpr;75Yb21-R|%6G=utc@@K>hs41FlGi;f3NjiApl(hkl{tVudbm_
z=e-G<=}+X(mrYe8miCu!qHWXB>EZYm>48>&KB>oQwW-<P8%7xt1<k)^!1njL@2QWf
zTV5r>aN?g34q!2~c7Q&YwU%XGlqZe_`<h^RMk_Va0|V95u|QN#|K@q42N4I$fi&aw
zv(iaTN9x3nzj7~6R#Vdp;Tk8E5M;xlMEGH4N+vys^**$~-Z0%}iCjI4_#UHY6Sl^&
z?p@de^vuko&fl}Oal?g9L>k}Q94XrL%C|hzs@Nryi>jNh6I)$Z$L}Uf*|_PW?oR~R
zi6ZQ~6t^iza!WsBzAmN)+$i?0nW)lc%bV5-se5OSkCo3NEOG2T1Dg-m=27lpi$Jvf
z&--T*3{<|mNJaFT+8MmWf4<xLDR^{lELW&$4{)}$qXqwK=U{(qWX=0jKHHtVp*PhE
zV6M2##W%j%n2pGLZu{ZtcfucLqjQMujm7=6ujn<(>*EE^@pG|2cxXUt2(*Mb4=a&6
zpT1VprL+DNIDH&T`2GN!yYdXsvs$fx`M}o97`bnRWP0;t{&~ry@n#Fv#bGxQ&Yjtx
zX#4m*F^ar9i@zrV>On*0cULl1jH~^P(jJB@dbE6Uh97JK=!2%MiHu>!=TJ;fSkj{T
z<@q_`ccfUY1NF`4IZ(FZ!LiKKP{mqh5$$Ag{Ho>*XEdQP>lGowTB&dcZKODerrq%)
z+E$dp>fI9)=6w=>0J;I7RPeD}q8?6=pMSzD(|I1@w@ZrdoZ?Q4oyh#8IYnPFi-0Q5
zbem>b{7{<f0ruTD^DtUf(I#VNH2ktzle#gIgSZA3V<J^Nv>pt!)Rh)Ie%<g@u~~q8
z9e7ia-+X_zNh*TTO`rD7oY5A$_T<O+<Zr(m*U-Z6!9>C)j}Wb9%53YYudtV<4oJ)Q
z!K6HyO)9J5NJ8e7DpRi6dTuM--e@V!x_{D51nZ6{;QZLW9uJPg8w4hzM$)7$0GLO`
zO5THUv8$rd7Y<p_!o#iA4QQ*y6)m5ZQnlJqmt&_-Bowdfhc_vBeS!%!nH6<J{z!Eb
zae1Pc7)NPO*H*yuEB`!let|l>#$SFt-gn`i^y9_Ey)z6i?=?z;x_j-xZ@gNop_-@W
zXw)1`zL(Cp)9dgxH8Fg>DeOUo0UU}n{4q_Z@JZ5mQX*79liVtfzU)P;DjHcctNX-|
zlRlK00gj#;L*8~FDa1zYBhcN04u;)Dd_gVe$|}@-=HT7lX%s^-?b_M0@b9S;A`VYJ
z2JRMmepwx$=g4v-KC{sN#vlz5(0aNmtJ)FJP5E>pv4`I2?FFhAYzReLG+^ce?{iKV
zag}Z_!Y|pTeJx|p+OsUQO}=IAJ|(D-GBpqOy$pM!Tta?+G|Iansl|9UkyQRW&1hd?
z$Iq15&d&m5W#JY5%2@~-Z_&1%Kt~;#5OI349DDfNFS~3Fg994$Z;2Z+QaX$Tdc3Sy
zi)u`Tf*ZDX5h#L=iZNO*bIx=vsu@NrU3W~PUrV)vaZi$c#JGO6c!Yg#3;UDYuG{CV
z2gC0oLcsFy4%Cg_mb^c^r`I$WZ(E79YE0GJIJC>OYuk<pkn5}_blne4yc~aUl4SpS
zZV^}{c}JhbZ?~|{63O2@+WFT0PmjS-^|8m_TT`g#>lZKm&;~QH)Nefumiy8u7uWOK
zyNa5cxV<(eArX`Y<7ApUs@&9W(pm&(*DN~X=e(tXKKcB}^-z3rsLT`nq3PG6GgG@0
zjxUd{vL-VUG&}6I<Ye^Ka{{DFyjLa~&x4ftYD9sFi)NXy^@3!*WGWYN6}PF0)}DM=
z_t>~-t=R#hDATeAhoOsqi3*oMhOe@lB;P@Xe(L?ywuLBmZP_cqS#49(@$t~&(`H7M
z1tgp3Pb*T}6F33WbDM6N+CY?jO>`7daqv@q$;N1WL-(JzpZy$izg3p=SnFBz$1@#w
z1i2uTfE8<xF3UO{6>c!la?!Ygn10*m&+FpyOxuB$5MI&Ss|1~DA4bbicI*RK^pH2_
z8W^}TPqC}v@2)`Q^bE;##9ucvn!IJMC)kK42Bl^~y=>8(lwuLuhaz<Qna*FVUsVfD
z-6(6cwQoLWt8dH-hs!q199QEH)a5KDpLFvtT6Z3{j`1ama0BtTW2d@~j5x!e^$zv-
zj27)TMr^A&KaiUewysmq+p=IK!f?7QB46H7?{RN)YTQ4+R5K#b<w^gQ3u`4lO+iPd
z?+KQc?j{!(tr>|6&sarAPJFx5tXA9bC-TeZ!>CW}pT@Kce%weaFwxLXW5F2+0Ko{y
zGoZa85{F>HqLZi=13{c*D#a#<eEax=e2X({4d=nuh3vxL;{K@xsE*df*KA*Ju2^0@
zRv*ywb<>Jf<<{{GCSF8B*uU2>xzc=M+}K)k@InJ;?`wswWwUc#JtmA+Y5vvu;$jp^
z)M)`V0^6SX*Y!h9t8VHgcM&gUSvj@8IJ$8I$r$7+RkobqL<-;k8m$Onw)<=+k@6)S
z+7U!WGFfx8`{KH2>LMG7CaCP*BmMYGp4qESe5#^seN+R(%U0*{ZnE>9nbsHw^w`2|
zRV$tZtcFyj4jd_9JE{)S%7SITyn>?WQVuHo+pnFvg+8t2dA5U9ZWxjNs)0S-3)<A5
z>!%bbe(GG*B;UOcwOl7rZv~2%U6*B#D&z6e0wk}!Gpu`|%fFb-id0GE?MBjII72$C
zIDWbaMx#}m_1wh4@{f8bw&ax}jC!KPuGMfPCz&o!v^rPHtP*za4VsWGmo1&XR5+bl
zIxx`KXrZ@QabR`xh+p19*~Jd6(>d&vU|n;rsuPRhKtL9?&OBe~r=t-)96=~>=`}9I
zqD=_D@AJ2V@1)g+P7k1$e(e-Zr-niCF1_Wag*2nM^g<OY7lm6?%Prqco}4w~PplNB
zxQ@mZZ6a=-9E2=|{r<SUZyY1M8}#3~7zbNUuR(4u8P@vDe6cl@RW+#csYcc4F5~^h
zj`ascw1bkr({g!E^p$<aC%8^4f>5Dw%pfmgJ8~TBb|=jLOJ;da#5K^xg!#SW0I+!q
z&oI}!TS1+NNx3sSrSy`i^7ip=%}D!n&O^G?#kHY>pK!{~+>#ZA<+WUsBR|Su`vK;=
zIYhzn1O6!I>A5_hC*AXeLSU^VGA!Muq(yBgYx+UEsZrr5`T~h%+huRTWzIQawE~Ct
z+Vcl1h{^0v-J-hggo?I?A<vzG+%mZ|X#l!fu|b2e7%NO~!le<Y2<Lp)H0Aqd5Q%#n
zED3p-D{Imb`EwaceA73uW(}Ku4PW~}%4{Ut8kDh^a&)G(q)|a{{%x2_T|68!Dl3dQ
zS@UF(DUD~1$@!toH@73!)5#ES<La!VJRx_&qiWc%csN@)m3xd<&&z0H14crD_+Buw
zAa7Yg)WJe;y|V9Hs(%9SP!!@_v;3N@jyEtrqZ~at94^I-Al!8YBZS|^S%6Ir_FtR_
zjxB$y*~7g(&Zm|iBok2wLmGe&_kW3wB<y}jGo$xm6B!nM#=+;HfYL#qA3||D^DKL!
z6!8zWT?#y)<Cbi#3RGHpt{jpfy@eAo^`V9Y-@feYqSu>$_N(CTQOomxpST@z4pgq(
zsDN@!Z*Q;bO5GFh3bC*TGd&6lMpL!`hF34<v#5L0Hgz)9GW?-9){QOg`R=@3)Q{{G
zDj8Ta1N5L9l+&p7(Hm!;m5HmH(%CDVudR}ktvUexHB@1>(3rMxWDhs?a}^THo{>WM
zsbwrw+)-8Q5ov0*uIV)ko`y}snAZp*P0;Q4IvB2WoxT2gTflD|s9tfFh0E2k2GT0O
z(#$tUHioQl`le~K-;Q9K8XDM=x)g~0PaUzK<F?fNKof1go8OveHf_G?$*gFX%`(2K
zKJsnWI@86$gxqL|>lICL_nKa_u|Y3>@yeV)b=3d3l#?yO#Xj0{b<X7d=1n>j2`zE6
zb`QAW>3YQxyZFA5v75bCw2qFZUoUm&HD&}wc;nb+c>0n1HYEy!!bMS1b;48W&$u}h
z$(gjYsJ}WrtGX#`qixuD<;!o|tx%o2*<}D?vTeJ~_qvbl;DIP#9NTLxlGAah<F?a4
z)cBXJjHmD$4FU3lqGpX;+M;3y<z_-5i85QoLFrOln%>yD6qD*iwg2Esg6qXEN(+2b
zZQHC^>3S>_W}Lk)%k&;-S>+An=SVT7KZZn>m}Oib%D2qD<Wyz?K_;k^?BeWlcx6q$
zbK#lWiXNmmI8a-2=mZyGq3_QU<ePfqbFk@Qfp%|zeulyK3>d}MLuc;e<r&Ec27$1A
zcz@N?#p>fWB{xKPL~OV9zsq=&%sRW5rWDeWN<Evk_5^hNRM3m5)H$a2VX%n3YSqCL
zbE1ZYiV3*@lljS;BFR436zHunC|JCPEEeFUJW|mUu!vTbsi5WADl67~m{<9Yl2b)%
zn#J6DAU?h?d>z1Nv7y_)3y(zSoAf`0)j3VtGKxt!$4MSI*A{Q_SQ`mlNOd!Ib9zdx
z(_Y~Cc=OVGu2+Dio@9jSRtnFR{Y7PgJ0NrcB5^At(*^~*JPK2<O^xS0UH}%;!#7Xf
zTJ9NoaJYjDMDV#js*|+yL!$b5N)8bdW4ZL{ojyzxhMzjz(O_kCh?e(v5~S_8mTul%
z#%J%XJ0(>;fB14o;8XtlDkYa1-k8LHt}`6_`@(_3Ket*u|Ne_A|3TN^R}ubC4^rbn
z+NN+Y!IUoSJuUtVV?J`M_#asLTRbdIE-=upAH`da@YCJS=|9;p7n92R2NhyZ&EK=c
z|Np}QQ=?#e67yl(^{jIK>aFV{L{$Oj^oUy^s#a&JT`rL)lOYCoQzWyokh@i@Qy8oQ
zb<W_Ke={Kj4m~P^(}$BgZo6;6U2UUPA9&#Sf3vTU!JF&70KUbDB)M~7`li9>!9AGy
zv>T3GX18gbYHw`GOr@>@`(~<WET{^cN*hwyG6G{tm)}y+3U~vp5u;66JnNHweFjY3
zDEJDfo@>eENt(iSZH#Pq?Rhb$Rl9kS<tbRNF+CqDT%M1f-!YL@-EXn@wy=Ne7L04^
zbpi4MP*%1cse#wiMVF;eo2_ug;JoT%*CD82ol8#jyWa)-5fm5-L82JbpF_zje*+K$
zI*u}<aInsDAe2XQgG9SFTFPo+I@bhB-Il?6%UYtpyxU6MdP27<SH?<xaJsp)&Z4!f
zk^Nih2i>adXM|X>=qJ(9mNkh1Tem7*lMR<lDG5c*C_{>FmR$WJFJ$Fw%Y-V$Tg<E$
zpcwFME-TYXGwl|4<`}yQNQ#MRZXsi5#-Ou93lR1C%@2p-HT99L+-fRZsL6NE_~M#)
zHnmD-o)UeZhs(zZ_WUk5*L5#;Ucb^O`UZH1I~d;_ZZ{c^vQL-#6s_dWVHdAyPHbgS
z{eFioX)uQ55>}Zov-xUH@%tcdED>`Is!4a)4El4r#TkUmM^HDnm9OMQ3XE$&R{w24
zEIz%1QkX_u^{LHwL=4sbeJ#oN`wDh9`Cov()}f}V>BX6z2do+IUA*lyN!dZ0he8Au
zen2}en>W0&Pk%M!{-BSm&VMl#Y4;HHeE~=v0Lkre0;&YIf2}cgc?-t3&pG}(@4YL9
z<4z7oV8c}e#e{%UTctT`z>+C>ClD~?O_9bYSS8dc=SOlo^WFF}wq~iK2p#9WlQ+K~
zG%E%XFreq-bB)(QI03phi>~*fc>HIBlVuG}x%33LN6eGXKYTF=56~c-)M$S+5Vgl`
z>&2KIG*X03oZEtT5HCgK8k@G2JJ>Ru=alyVn=W7$;H)xsb!spQC<BoD0`$2)V2}qY
zkt%J#zycU0x%Qs02%-yCZWe4uSl<a<lOMp|_c=JC-3e8-80S3D0r_(qZ!Y3Ymvn^R
zUjQ@mbyA|AQgyjEG5&->mn8J@&>tXxbq}Te41%inhSRB8Kcb)-$-&VX;4mgrYvCMJ
zx8JNa$%t$gG+xsCt5?x@gpz0X3(YEPlO`%N>j^<y&!Eu6{qFRzq4n(mR9!JfC;#hf
ze#=hXmt#-2@p&d*9=v&jg7ryKI|B<CW|FG^;O9#fL>SWJO<5%D?yl<r&!{x*1$}^S
zAZ_(}zahOB5X(}Mc;iy4(BY5KsS4@oOcV(V*$*$g0tbhnWi0#9xL1Z=!J>6?Y5Ofe
zj+7KL4n|9S@Ms&K>*YYR<=MFWk&Gd3HU(3yihnQNI)O`~zELS2N4pjDdIgU~Z)Oh;
z*PXf-C!}UGeS0*uLcK!TWA^cTm=~8x-Q{_(CEQc0DG-q9?m(ERe`<bdsV`I}C#BZy
zcszQfh{GP)C&K5N{PM5d$1VW98moS-ILricjdA8hp?opJjBi*?YtAWr1#s3dIKqq4
zZ7vkitR}&<GYb9*WvD(@ah}5{Gu449R2g)Kh8$kz|7q_^!`a;0b?gpyyQ{v=Rm$!b
zY(-VknswN_#FWoW5tLR{QDYE6tL1B}w67FJXltsdd1}n9l13G!F@(r&rBXwr4UtA9
zIV<+}UFSMK&+l{A57*_oR^E4I4bOU>`?;Sxnek?1FGo<_emx$_KvQ{^2+NUzg|dDU
z<_c5Ltje$4O2TT9cc~AG!!oyl!qBgmcA{Y8ZXx&(l`oaX&HCjMoH8Qv-#Fz&qGhAF
zM#nF7zJDM#`tpyx0h7aCK1(zT3vI<W{`wk6U{sg%yT|7>CFAWoaZAhmq7;&eau8Zl
za(Wn?s+uq$yG6m#S=xk<Q0TArKnin63R^Y5$gZ6Av<$Zkp#ReQFU(#+u{_h`&<fp!
zYpz@3z`suk7B)#B*2VHYB3q5xP<O6*@L7qiFa>zN&rD2oADerxKHk33ULz)BzCN*J
z`?Q4%6TkB8m6}tS$+I(JfUrgPecWR^s`lei)=YtZ)NAp23hA0vISysRw*be!W~<~$
zeg=B9TT_SQR`n48<*ut3Vg8Mu&Wz8m%9q-N)#NY+{CdsqW;=&X5hPD-ZNQ!)Cp+%n
z=V6JkQhLmAbS}Ji;a}W_$g<Qce#TF4=j0k0(nz0WEew`6QNjc^zk<~GlT>gA^mo{*
z|Kg!l+OIrWfw*}}{a&C}X={=@t9;I!&5}T-7U^*&-j=+MYoSA(r(R)vx2h>NmujAF
z{>Xda+`E?Vd5YMU%ev*<JMwWAo{b(LYLKOr6$Ghr>lxsL`TQjLHmi7uBUlH}XxvHL
zZ;B|cAQ{K_de-V<Sa}Q2-B~P%3~Bw1JWXMpvgXUrJOc-of2A*Sd)|4XBlhFSAD*;t
zIUtO!DV}j0L7k1-zXw3j(~kJ%Qx+zoU6k645J^P;L<s~UIl<B@6L|0{Pymvv8j~4P
z_mUocx$kTUqRzF&xj^=Ly7|+)WoTpLio7D;8pX{!FvbS|SNm@&H;B*-L6mV=yZ`a3
z+T66b`SOn$%EFKNn0pi{Sl1ySpO7>G;LO9VxHNfx+~!bd>Ll41@_Y=v5XL~MmtyPK
z`|#ff2qBZ^G%I>@aer8=I@xp>U&bqu88Cl)#=Sr@<eA;KgyJ*eB7z91sNCzm%86tP
zT1RYWGd_=BO-mTL4fdrL;A|yLaNpwSGXRKe-gyG>Qa6A|xU@@iXHA5lgcuTDBl;?`
zs;y!?xSE!@F?`edGh$`kL=a{~id8*rI8|wY-v<>{giQ}wf!ka6a^o^21v{>^YRze~
z6WAlFE)*??*p)BYfC7I0nMO7OUtNtTU$3NWo0#b};Z+f6{x|efCUFc~L_*oJkY47A
zY#;P?<nC24cG-0R*3~cZub<p$Ep{qXC7Y{F5MM{fL`|tsSY>Hp(`6-2L=dUwRZKP)
zJB_Q7nQIEo%H&J<ReQhuQ|=u#R9ljQpB6srQDL@y^PUUoq1I5MC8yJf-l=uTx52dH
z;BtzypzcOH2#sqfnnqyq<Ei<xO6App^b4NXueU4{3UFWUbhQ&!ky{nSw1I<yjF@Q^
z^Gd3@`Ru`<Ku4%@Waq`Cc86J{sAqte2uy6x=cA;`J?sOO;hM0d$Hf35PvTxVLZ(Mi
z0a-`hRDgD2orzeSe!k4TtK&DG>0p=-$B^`7W~jzw!#P#7_%{|Do#{YpXWZP7<VdLj
zZr`<dZzTFtMP7zsZ}+g*>EM4l&tJlu4bIhvV)k`oNohwADAfIkcUy&8bxl(p>UYLU
z1V8TL7+8;izWD<qn_xMC5;*LNhv}o&2KNGJzmn<E)XoA1RZ2KL&R<LO<guv&SJq(q
zu5L)ynPpsgF+Voa2hvs}+A;;%s{Hl_M`9lCkM9l~(d!qq*NMQfxhwJJ7T$}qIklor
zavynO#1SH=x{x%B;TJ)YaQW_zf}-X-YwNO}JqF8P(GCT9Duc-7Ez==GKI`4Xl}icd
zjE`)B^(#uE`O!>_s-Ynu$Uh=#@XtVdj9F??=@Xd@x&zeyKkzWS<(@AutKO?`n^5)G
zqvpawHy%(0$vR2Y?9)D;#ZWS4S(Hs!EScvxkono_5gb$=V+4_)OWr1D(%${MsQ4}$
z6l+=-XNjb~^}r9<>Ht(DM`OSHCfMcorI80BF>IXQQ-h<l9*PYR1MJtAMD#UvrgJX$
z%;4lRj%l|)$KtEARSko3Zvet~o@5Gk@Q{d(kw9~7?u`dR$fRl{A<pV2MVL>B761`0
zzdr0J`d7#d2!;^hsc>zeQ=pY54I61dLxVQPKacjyK<l1;4KVSpJ3WC!gw;NvJlS#b
zi(BcJ&p;t8`X8{awVI8X3IHSzwK8J!Kt*v<;5d#EJ+kwre)9uHPN4Le)xLGnI!hl!
zrAgd#AZ$oDMOK5Zh4{VzLM^x9-hsXwj!;g}?l!&emGHz5!*1r;&|fslaE!!dI^L`a
zN>7g$Osd2R8j@kN!@dZS5&6D^5ON$V*)+Wo=b@s~!<&z1uUc{542+TN4EMu)`kX)*
zn#R05vJ;krL8SuaR}?Hs2Nb(Cj_mv?$HP@MmJFT-D@B6s?_*MJ>u$2wr_w8*p^7j&
z`NaU16eY=J`NX?|u-fOC*T@76CP`0&cKP2t$F4LgfG5EJ<LU6`!svf=P3f3!f_*cW
zbn9(4CdY#JfW`AJy(0M(EayMv_PTu_yl8&lkAd1Vui5dRGm)9=n&i)W|0cMN8g83z
z1oL(b6yr0B;iRe|-aCmZ=nHtEbzQ*c4;w=m8cWXfgd83l&#$uJvPi@~2J1kOGx(n%
z=Q7?fW~}!tbV|)om;7FOg^z&PQ5~xh*CDh@Y=BAV#(08eFS(=cW86WdtwN@Mp=a|^
z^wS8z2SmXmhjtGoaX`>+uK#neZ9%)-d&IpUAM4w9@oEuRTE6Lw!sx}cAcQ2h27_Jr
zTqMfmy&(v*5u)G8OS?$GVr+?zi<-=Ik=y71I~T7?BTVL1hQE+^^%Dw?l5+R|hlQgx
zveRehRMXYOfJc5_W<FC0!FzaTcJ$GXP%1xe=5KT&iKq&y@Qoe!+gSHawPIX!T<|`^
ziKD%86f87V^+jjwM1o`-;}7<i9_~_zK|<aO4WK^dUd6$M9Ju#f107H_D-H(j1qn3O
zBJG{c!!gW8y$wE6*Bg@~@0jmtCua>jGV?v|b8#-uHo^>_CoDvCabAw_ETn9qFf)oU
zbG=`yOP<#1-5^)?|LUms;{F~ezJb{ksv3)d21_+NR%hU2rTzEXy!$Ttqk-NiJe8+_
z5yO@8Jzq+O2m5GeQ>Q^YIu+JLLnwBP-q?82gT+Ed52A{E<qi$F{8^0iK}shiooi5!
zpZOX!mG)O)*nr3eKzWbi{xLy4T#RSDh97_%mMupyoqpR`9!dZIZ~w~~c;c254J_oF
zQaI0!GXzH?!<`_23)pZfCB^y^@IoZ#3)~f{W|KtZlHsH%s)ZWATD|wD<H-3jI_e(c
z7?SV7S4Irjgo_UKfMpQRpd_W{n;Pe$+spshe!O$QmZ$&YU+Sd4KcPCQmZ@Oy$WrPM
zRf5i4q1*vQKjCj1fYeix%wGkFj=fuUbs4FGlKL>f11hXwgUn<YA|wk0B0-{AI7W>a
z3wc{|FzU`bfJF>Vw|U$W9yp1E-nM%|Xcys5L^w6qLK@aJ6??u#Nu~8T*=$5cI%yxE
zrTG}0j}>CiQFwQ^k+vL{(BI@qAk5dj_zAd(ZuhfYSlFVZpWMoT**cl-;lv8H(E@Pg
z_`wePvT(Kh52@p~HfwkFey=2886TfX;@VH=0aB~~=yzBO@BzmSro9`1Na44@Ex_2x
zcl|<G4aoG=tvn43p6nR1{HWWDre(-Pi;Q=emD%Kj1+GF@<PMCGMkNY^-9>1w>F80=
zcXqN?{a%IE&hcYN&MaKks*Z=dxEUB=p9^5NX^3c-$)y#s{2C6-EclKs34M1vL2mOI
zdQO&lpwvknR?`HAUs{wPJluqT$apY!Ya0wk&cc<;6=X8JPrR(-tv{dL;s!1l*oY2D
z_7LDCTQwUHP_er}I)+oODW2i7Ms{rX*$J>q8w=qYCa(bN0V!lLoZUsu9Qz=-UjY>*
z>S~twQ(Vzp%BJJ48?T#NVAoe994LV&f&kRZ-IBwK6kl&=M|Ml)Xh>f5VTFr6LRPEj
zK<33?fz3=vRz4@U2VPj-VSeQTxS+d?>T?+1DZFZ%I;>SK?1d%x#tB+*Vg%4HEZYZ6
z&5Ls&Wp%l%-IT2EC?N+|&D6S^NwbfD#r3KBdvUSC_9%*Y9*(g+rkC^`SnP2FpnW?C
zndn_Ap$jvw*_MB_WiFT@fFeRAKA23(T<7Kf30AoNQxL*zD3Fb3+>tywNoJ{Ev-)jt
zi`PR&m-?Gujt_$S(}rYF-D%-W^4#a#)@4)#M%RJ;m0Ss}`%pJV&!xbX<{NkjPG{)>
z@JRWIQJmpxK#=?*k$~~Fy1lf7GwdF)23VaMoXC%Sz4=#gUzc8*8l(FWW~yxJDuqM;
z%VYb0uzS+u=qP{(b?C89Z*^mTZ@lEuCj=}$n$~^dXa=p##C0fRK?yc`#};@xupBuc
z#_>C?c*?a*-flm^&CKw1n1}IX7Gg8yCRforkJ?ckBph!9G|N(qsnYc87~3>~?jNnC
zLX&GB#~ffe@?hVdb|k4yXwyz{EmVo`os=OTpP6xJiQ86_!sO~UnAr$ob5{9MNzM`l
zz1%od;bcL}tOOPNX1<=fAEc##@CG%oQ=P1XSju9|Aqw(1AEw=FgQ-$GYNuyB22G-C
zqSxD`x{RIz|KZAK20=)GYqJ`fRf%+J>c*vbdJiB}S=Z$-h6i|)4uohx?Ie6MuqG|q
zaF*s*ja3Xy$+r>FaQ+3zHQ?KNhaj?doMI>*ZmJ)QK3_PKTDfla`v68FDt^x>EJ205
zoVhp|kd~*y?}m#D7z9Z<CAP1vr#r3XgiwSi$N?x6lc-8YXU3b5t$|+Or5kOi<RvBz
z0-Qd+IuD-y&<}Xg4<)}55E0Plhw`ut&&K(SvyF5T&4IRG!9$1dru|Kkg{`_3VMt4k
zE8^Hvn&38E+a^47tKZ4k#U@qaIV&#T*kS)KZO<YWU5%I>$lQHrHHAC!=}*|lnWcgl
z1)V2@aeO(#;T(=z$EhzZlMfj;ais4kcYc@x@6aN8>S`69vaSiAG2dE&Rdm5<A=erk
zny6!GO;uPh^EuXNE8hJ?Q|3~kbF<R0PyY0+=~7V5!+CR-y}E8Tv#86+i4%~_NV3*_
z++Jdd?!c1>Py841t+E|=0>|5WY%^0l93WR)#Z;zVTOnKS`Z~8_CIkn4REi#Otmj<x
zZD-PR8Jo`a#xFh~6_fqYmy^d20EGqUxi^cSdo}kjFIn?*2qFsg@vk3)YKG502?OI~
zny{=idD2y-WQv(=MSGT-@Ip)R{r?_uD1s-moIqhUSA~epWqQl$PYUr4yGG%)-!x2T
zUR=7#Tf`CCe3?MijHQk!Rt=*i+$NPHhW$NqRcx}F0E(Yc>@+N6B-)Di3xOCG%K1E*
zb4%y2BHwK-C9LlnX%m-kqH80(LtpkS>+1v5AlLkyhr`h~dFf$)Lh`aibKB}y38czZ
zs+?N-NyX$wt8Y77vc`UUH8~n|-eb%ROlm*gNb1|PnLyj}RP2Y)LrE8eTd{$H5J<Yr
zCZgs6q-S{IU1s(HnS-H@6lR1B8+qcw&F1t^2Qn9FcOozVe6{JU`52)7sm7SB>j)X<
zIVff;$1ROmxa{(V)-NIBLy_UvpoOT<lQ>S!w2lft!KzyTcBrg1Vl&reSZie})eBLO
z&q&ftT#C!I<0)NNTEiz=^u-Tak99W<V1L*kJJ0NUYOC1l3fMvcQ$k0AdA4G`5CUnG
z1qx9Ve!I356g15a4rx@(fFh$m-`W~8QI^D=>}k1ryFPuQxrSG=#^L7Npn!Y>YTOR!
zdtqu*)fYs2Ruez>!)l`}n1P5How*KsvxK)IjI3M*PiF1*oO$6Thu!<Kov{L2soH<C
z%+YU&K}D)DgUGtEqz)b#$UTyFd~G#-x94^8lAz|teBWFTZZpXsj?KK}PQ1V^aHf07
z<=^sr%b7DiW-T^6jT!7zPA*#;&u3tr>79p$sw;0TG~r^;W)C#;ZVhIqW&efm9UStd
z=y)T=hR?IF^>LW2CR2e$`&Q}0&D5ZPj|S9uFm~^ExmUuqkn@cV@4*hM-Z&HT-A5xA
zw$ph#HimvUWhL<{g?GzLFn076rgdNM1t984;fZ$|^4?W+SlpNM_A>lYc5a{<nij-%
z9ud-=xI)$uEP!mrDsd}Irs6%RX|bm%Xji5}JJsgpbcGQeyLII;prai!Kc`)lK9~Js
zG3uWbafzwm{Qn#r8K7>T#yG_&>&f`{R|Hg$SxX{b|Dz@JforZGdPt$Yeg4!}SN|_t
zUP6qQgv8D*&?wl3@PYaYQMXG-VoZwK;glZqpZe!JV{P*YY~~V<(EMoe`C7G8?MnuL
z3KPiq>09r)f|WUE?PxSWgM(E)WnT<%i>0uV9WXjL<gj~5AR|yCf5H2iO-BfxkNI@Y
zP+vx$zhCs8^y}kzz#?okDIXg?>8(rcSe5cQH^&PzgeAdattbiawhK|tjY<>O7Za^x
zXWAjawBjC0pKMYM6Fs?_2ohErgw<7@&qP$q9f(~9zfZlM00p^@ccNRqi_lgS&he<<
z7RHZYwE=k(^Prxv>MOG*Tlb)Dh$cpGJ^@QiR8{e9Y``|pCssJ;2RW2}*KKg^d*+Tn
z97541q9dDv2$cz%p&tz|m-K8&^-4}|z_NDS^Mf*88H_G8nvloR-1$N&SWqe5ViE>x
zD$(4V1uwLVO*VUb0E$<;bmOVHrTZ2v?i4+FhrFMb-kk^}Wm><OeU<I#wT0K?obKG}
z55%RMSk)&LmNCwP{pZ$DL)ZI5omt89iX#gTaQ<{F$Iz8SdeUq?+nIppXcX06Df`jx
z;O?qdXQ&;~DLp`>+sA2vf1!X8)cayx1WVFa27H~B<#%%lHhe{OXCDpsdCW4-P`%US
z>C2onn(_)wx6K;*vMtM3sjT2lj&LzAJb1~xw>FKJb4tHY-z`W$mD^8(D<#|a4>z{C
zn9~9NA*o1NS-x4oZr(X@wR``FZ#<WjpK6O4Ds8z~MW1RGP8DC3t+;Da_bDgUg~ir0
zDP5h4+;j0jS^u5*D}4%8d5)r!sIS+g({)7WUA?6XEqS$9TY~dW+XO|iG~Kl`Ud43+
z^PDRMa{_K{5=vT)$UK^Et`cO<{M5E?Tdzz5!ftiZck(JmDnEC`W+kr2J;1oKmQz+t
z^~h#2y=~qU(dA@OyWL#8(A}zpZ(a(As_e>7ywLbL;OU7vTib+`DmzZ5od6Zs@jDe>
zNolP2AI>;4GFFH1dKcWDWw)lk3HH4IUEUGc6C!;+@KmJ@U`FNGA{1Y44IAB-7JK0j
zW_87CU{K67Kqf6@=2{JD3r7%Uqdx22N_B~yxT8JA@S0=Sj$aP7vEFx+>Hou|KrO>S
zq<M%L@bx{uI&V1Mz6X)F(l}DVBKdq|K4k^PI#icrCcFnW4z>mm4GZ<q9|s(FE8EhZ
z87=*ST@9^REu8RaQ?3BO^bm7+K;#uD%2>eT{RWh35<eQy?YT->3j8kwwvd#@9;F<-
z=Z<=8aMzyA{O&A1tnM6}+}1FUiCr^4#pNGxgq)-$mjr}%#nMfl(5*6PXZxanb948F
zXKXB~U>s%I%Re6#64jx+b;TXrqZUqnOIGz;IzWQ$N5}*?uDmjOSg@yYQSXOYzZ!oW
z(|7k62fkrVa^3(tEuXR-1$z>m5t-Q%0O|*RCZV9EyQ^r+aJPG5G92>2*n5NsJzE6v
zf)FTgtoRi?)Dm$;^F5pRz@LpHY9oOt!~Ow`9W)qCopdDpinQYujpYGvAi$rmFpz<)
z|1)b9!Qq07iKooV1F3Wi<7REX@I&|DMTi$g6_k3?Nu_xTlldIvT~IX0)9EdAE)wnV
z%3%yv_zhSi4k_aOs|j?j!|tbpHjkHA@s9!Xlgy~bqcUT5oR3vh4bwt?Zj2nRmII4%
zS}Cez(qKf><f)NJ#Z;hbe}nr(v)ays8XeuFyQZMKu&>QpC*hcojp<|=Zt6YQ7zY^g
zhDmt^ykK?m>=~YKIo%>NzW7rP()&n<Zw9Sa`Hko%q5Yvo42dsCg&?PEYi`Ga+kbi1
zX#Z-mw^7$lA=q@Q^?9r!wIfUI`-R*FUarI|b$J5*xP^CXR!0iPbb4cu6f-TAZ6^?b
ziB@jb9Ll<uX(n!1v~mBLy)P(!`ke!mQ5ZVJi&c*>&_4N9kcqp+Q%hOFSV3ba4~9Mf
z;cxAk&eRtilY0OB!lz#9j>#sv?~iJAK4LsYh$8wAy4Jaj*;O}zBM+|NYRMIBH!nF6
zk}7xW`JS7ilb51a?SZg6$(YriITg@&Mkr>{bnN!q?@jrH-lMAO6mrw;g5yw~%%1J8
zPwqJE+HQ0)^v~xuo~b3<O7`iUJoIzVwk>*Z$l|;-lfkW*XQv)}#Pg<gkuQVSOqN`|
z3GWI9KTMlbTIVluo3>r4%42q3P4`sN=NeA`6_x1HN?Di(LU3Utn}g|u?pf)7DhXO^
ze|WW*uM!5|KU~e5$8eug=X`_imJH;gp0M-qsXU&j(H$3K@3j(twzPyk6dX0Ix#O^&
zv38;!cb#(Uc42Olb~RzS$#o==yJXTtKBOs^YTNN{GT*vcKR|LMVHyn$jhkRyiDZ!P
z1TE>&?!PHTFK|g4h@wx)W`KKxrlImTLg}V11(5FlOHDIE+L#`9?f3c$fK0<+h(GQA
Ks5<L&^S=PKVi+#~

diff --git a/reference/plot-4.png b/reference/plot-4.png
index 30db574d9ca59b4c51a6b66203b316708a7f9642..a8f9df23e56fac1f439b7ea62be7d5f13efecceb 100644
GIT binary patch
literal 30265
zcmeFZ2UJsAw?7)Yi0Bc!Ahr#hNE1;I5KvKJ)1p+RBOo;(L3%ybBO=I7q(fAi^d1Z?
zC<i%-3M!pI0un$<h=vkFAbC6S`|kbjz5h4f`@iwt7;oHh*BFYfz4lyd%{A9=*3F|U
zW(E>l4s1an5E7u_MRNpVLns2V?#AYga1S;4#dr9}#v8^47vZ09<LWoWz(2%p8D0-W
zAPznh{#lba{=*%CIE(-<p0^CmoE;8JRkU)^7@-e6VICdX{q(SR{PU_y5?}8ejf*?%
zY=1T9k@2Z8`<!?CTyLE6?0)@xAII}foD|-!d-Lye&tHA++`a2kfd0ixR|w)MT>hCJ
z`mU&k@cM|Nh5`>7Cv16Yx=72o$5JE339tK1w5I?0>;EGTd>|wO14Cm0gQv9HtXHxS
zv1zq_g9j0a*xkMk(4tN+$F_apr}i3zn$O1?ZP6N9Jl8jh{-I{nA};*LiJX6SP)vIf
z2<ON-ZRR!vqM}MHbWQB_Ds}Q3aPAqy3|s=M3~KpRz+PEyG{lnQT0?<FeJK(H9UrmM
z4z)qIpbQ|bcv^sg$^ovYm0(3Op&*3_Je1=W0}tf~j*$DXjcQ~NjHX|im;+_-3>h#O
zWZwlmfG}goU-5-rgdEWc(zZ^_$j@Zq<++hir!3bQqAR|55@6>yd3%?3o;@c7#P9%~
z{6H!L0-Q`R;m~$j;;px<2kMA`hDlgCU2FWce-=BtF#yWK+Gk)^qZGzj@F*34cw@_I
zR&GGEhWz4n;jT-Lw&$(iJ%8-%HmQmycd?QFe}=0VVHm%)e=h_wBF>r>6IfT6UEQ>2
z;9RfOWEt38Z>Wa?t3Lj=Y67i;BGF0VGl`u1drz^1q0T9TJyY}>OGez2E}uxPJd5V%
z`%-ki@IuuK*8g$$C+`89WF+?6j7-L7+Wb72fT|jfjnb-pk$_U4)$6;pH3NG#CW%1n
zx-$1+4Nq&1GXd!Otbq^EYJ#|5hp`{HeJzDiYWzx2vvm&;)%;>b9_yQNvgr2HrMW9T
zbv~5M9p@>L>UW1@TudRG#84S!6y|RPy2gu$?{c}@nm_~uC!F=_4`u8vj415z_2lHP
zp>*V}CpJ+87Ky7VlHWVzxn30dZB<wZOwlqVLpzqw?;%S^$K`&|q&Xf+FsmxI3~L#S
zOYads*qa+)W$!KJWLo8t<m$EMSSRIH&Z(GZ?CQn&hqGgN<u4>6?(=<PoxLIUxmoH;
zoIow_7T&ufysI(s+9NteFNT$nFT(XUspGOxX_)6!^K~>XFqyx4IQq*P7C_4w<CkoJ
z=d&*CD+qb|Js*dES&kCZ>&;((dy`z)jWWSbUh8tV;NF8}gRsWiq6HX)#j|%#i^J^C
zS;nneLQxi%waY=a0rJ?j2xf#A#N6vutn_|0GePpZuIHn6)w$RZeW+M!P}e)DO8yj%
zccYb`70daG+wn2PaDNgtj9v~_xl&F^Ir+Yd&?V!QzLcx4qfM%O>HYmbE)ainre$;z
zdA{|=k|DbU2=VK0Hm1C4%^zXhMY@m&aU*V>fd5>zAQG}$nCiUY!k8>x>dpPYTCTaY
zghvtIbmOgg@H*R(N6fnT4H^r~jaCj#l*m&}2ItC*=k06d7c{q{Z967U?bkgslsfUf
zW<Jyp%5Xn&iz-K^A^Voc_s6tk04o09>`27>eR<se1i#+{Z$mt{?^Bm_X;%bck8x<V
zkto_xw1m`mv*{+yj!s*cv(C@Fw_NQ&7xLxRyY=u4#;HwGDol&H@u<O>y_d67B>RJS
z!T6K&;2bUILqOD$Ud;>t)ypS28LbQ3B-}T0iP2KY^O~j)wr}H^g15YkDyW@Hpkw3T
zy6D&L>AZp4`sEF$XGxlmQT``iMe!DjKOSy&YT*rCT0Z03qWy?7@mlYfV3&CPMYk}&
ztgYOZcwjmk#TCO~(H0j99mmVe<~>`ZT^LCc?v7syKG;Z6hF+u63{K;?=Ue#&>a+C9
z;Crs#T^QX0^7l8RVNrvcjVSG|TV~;$`6LM*soF(gQ`297J}{Vy!u08m4{i;`R~sIB
zC=n{ZNRys~h55wgyDQyd2<P+;-)k{9AbQ@tL;fiC0uGO1rM=-lsWweF(9eE$@{kX<
z7|Q%of!2pi*VWLO)e<u?{RJOp4)hA@QE6EbB~-bO7RD<f_<HE%f$!}S)NR*uXJ4Dn
zXC~axr~KXT7@gGS|3TeL@TG#!3NN85lUt>hV)V6#LCC(#gL;V2Z>HB*d#w+kXN)bw
zBLD6~%+oco<8yj@2BIJ1cHAvDNfXQ$fMq5`)lW<wt|0)AzPsMbbkxP%&+t^dvH64<
zGta5wXYGSUyJg(eB8wC~`Smn1=NV7OZ}7@eLe%uZIxl?J)!EM;)Ch~q7RvI6ysyQa
zGx}*0QvM*S^W)d~F}ZPRy1KjVGpvQ*tKh4Yh$ddRZ&e?HS@Ys!YzV~q7!cLF7U3#4
zvH_9Yz`0q0c;%-LwaatqxQgJ1GQ3kCcc$Y;Zm8~E8tC;8f9SY;(23MC{q@0OD_^Rd
zPP~RanTRGCV52oMr9=x^;Av;7{ju~g=n^FG?O*y-)`#-xFZbGYt34fvc_vATQ6l?b
z&mNV1KBVMck6W&NO+YzNmA>?1PLW}ufzdElb?5iBi1)*_;5M`Q&WC#g6LCoo?hc7X
z?_0fWv5nfhJBqL<B@r6bx;)PIZ)6tqFB$0+y#M$}Vg{dfpYx`}D_ie1Je_$5cauf_
zEl-~V@!+?;C*@b~_JLE2H2X4qEu!V<ivDgy>IRZ2@%)#AP@|^%wjmekY<BgJ`uEGT
z^woK`<ML`|GkvA0$%I$HNiid?2Ba=&9=t>%wU)~DJ|2zKA$NwC(ACJgJ?u&ecX~Si
z{0bJ5RtxXTzu9_}D)9WXUT&2p-7b{En`<2r&dHIo<elc1@xy0i{|vQ<Z1O&g4|INZ
zD3AH<L2upo?Y#rfx4}7<{T?I*{%FDN2+KLUe1F8ZlujQ#ay|Rlu}SQTPb<N|rZa|G
z(d4z@Z_d{nr!V^ocsOENpA9d#j2IL}F`+0&5lT^2tlxr6XPO2k{%!I-9}9+@r#|4W
z#-dP|44kHBr~mJPRQScbu(IKXJOS!$9f+}SCHQ<fn>d3B3QE_X%Fl59++5rhxjL7|
z_$0REzK`X7O@PB)ZEU)Ho3BXLSneizP*&=jRve&|eEaIYiRGNy3`z}Jcf5)AzLba4
z_We6Jf0gDtR=o$YPi>6~q5`tdoXAjL+!DR~<hMw7JX(-Cfp;OPuTF+Kl%;pHjj63X
z!3G<$-{u8*^n`<W^r64Mc0DXXv1ga+)t(wdk+0jA4?>Z-FFyR3(tGkQUze&&^PnDy
zBGfXe5;H6;EpW&$<0SJ<Me<lgU_T6i&hfCJ(}Ll21DuW#4Y_*v)@9b>HBN`_;#oO&
zx37-Ze_o%T10AuF-_^rb5mELDv^3hAg=KH*4UGgN=m}CUiv*B&QfCH>*x7*H0Rj^`
znLfWC<R2CnBs--@uIS2<6D{6$ff3hRmz$(|Nghed(R2^0!+~B_DuemBo0?yJptl?p
zd!g;JG6>WevtzJBzW0LV{sB&~rj2XTb<d?w0RAQzHz*@N{^HCBP%Fi)4~Vg1QfC4#
z>aU{aEN=F<i#?WpKPg3tszRmZ@M`KJ^wT7wC}&Gic8N0<bD6mB9_@;moJHiCpHUWf
zYM1$~G*3TESPf=tT@c9h7L=Zs$>4SCDEnCWZB{oF(DcqlNtxf7%OBI$A_w<0Q*%vh
zZjBygE{QiAaJ7eBTgDD91O(#=|6&ms1zmWUcUIYC{`b1mpqbB$C;oZsO;;5;Cosyg
zkv_*tB){*;S^qE)G@I_C-AMFW-w3j|uUjhjTJKl4b7M(4KlCadjo#GggI$UIn;!*y
z#A~dsrGbqa?W?eH7XJu&01^AlFVN_D_d+#i#(XU)Ukdh3s=>KbjDGHQbv)w;$d4L4
zczt}rBHu3cou#;Oz!wD19%4LR*UQN~Mc-VR5+WPM|Ba{8lYENqTba^@J$rby0PlHH
zob|Cy1SmUTKv5Vlu$X9E89mB#z%q6qH9T#7>Ge+X#2Ba*ve&&JNX}6LvmrMU;B?@{
ziiUY~^YAIo@w-H2@;o$jl)PUbr>#WhyH0)n8lB7#e>^+?b!+s_x5be3Q}zbR4KqXb
zD-&J&6?=+lPnoS7Nkg9KMDh6eDtSI4@RLv&xAvMgtV19khhiw5W&RF2+YH5;{E|=Z
zWo$$0iSbRLdGmaupBJG{fav)*p`&QJ`I6DCh=;f&q6Wx)v~UUehGJtL?Y&xxOA1o>
z9AcgjRfp3&&B|n;pdq>OOs8j(6Ok&iXO=He!nlj4v>NWLo^X#Ikjh{GC<Nqc&*Cv-
zCC28_gMvpm{CB4lS$_N&6%#RD`qqe@HFP;*1VvTvBzY8EGTpBfV+L)P53}2Ir_F1t
zGdGmt@mU{x_Qbe<jVgIN6!|;Zu50c|`@2P2CPQQ{!gj|0x>cBe6z#ZV%e+$WIK84Z
zU~Ub<y5e-#+^_LD!ZU%}hu>jv_`laa-HC#H%Vf&&7^mcEQ)GKUf9lLkU&kwIay1${
zdxji=wSUT(2KLHvLm`rBl@mlPT=Y9tZpO8fR?Q1$sf`A&L0r4sYXTocOB_1|?6pah
z&%GB`?Tw}c#5XiYGvn*g#QG4(NlsIitPc&HB0m5$%rNDEiZQzssGGUE^bF}T5heen
zYgGCfyY5Vg5i|QAL}92oXV)tmW>g#LLLsTm=`_t%d>GOoPl0|<8M2^Xwxn4ZC>G`q
zovh--FKjc~UcMxttzXuPM?*tZwtVh!&%H1YVs}r=fD>3)xvUnCcbe52RF5hlC#Nfp
z)P01Q7MJNA@|rjAv3-iG=C4QRyybvXeYpm#;6a^;x6HMOiVyqVh$Cvor+Vg#p~#oE
z&32GOLD#|Lqz=oqdjanE&Ep~E*(xS!)ghXi72&$BM$G8QU+-;(JwNqX-2J4qLuQz;
zJ$D+%mT^2o%HJL9ETZcLjkp~xDe_!fNPcp8{(}s}U;rc|3<!nD5!+%HSvUq4Y))cO
zrnz2TGCQ>XHvIq_$=ksWBQ_5pff#Q{&$x=Yc~K&#uz6Y49~Q)_@?7cpFrjDUY8<t%
z`%TY$MPS=pIz~~i(2<pNKjUYR%#1gWu1MZ#(eb9!B7qwLIwrYw>M~a>ton{w_<awi
z11w{Vm(i=0WuW0SPA4~<f5B?00_U@!0V<bK=Dt|nEU*>S&2*JBi^G*!R}Gqm9hXem
zUjVw9=5{^9v;(eBRqTV!*tx(V<FN8oU2+<7GPuC~3+;rvvWaG&Y1Ba3V02KrK;VhT
zjd5*zdSyY~XYBo_DJj=-?2C<c5>jlai6-30<zfI25}TFZFZ%nv_Mq^-mU#0nfwW{s
ztZsWvH@`M2LFm{WS-C{%Y$Ms*g}Bwu6%eCuT?z57?X<ACkj|A!MCGnr6#RU^oJWqD
zla}$>l6w}8^Kt-<*{i{oQ#-Q16zI)^X3`bSR|`Bn2YWRq<nuFmj!`_T^t;soKkJHy
zqeoFHAtr*rmAiw@bxv+{?x}|s_)@~5XN*+|ca_e!hF|ObZK&H(>=zHJ_U3<3v**lT
zTE+q8WlP){T_&x>XLS%L_xaWy3HfyK<bn?-mM?i77i1&rG<?&fEN5T~eex5(N7qB$
zH^vK3m{413`~<TAEp0HF9(KXV+0LJp)1&JHHF_pBuevAJrwoz^ovN@PpU4fg;LEQh
z)do@BzaxU1ZJWc4S}K&?&FE%-23i}P`B{Ox`Xmrk&x^0hMD71kdu^3&yuYWO5I&o7
zzh&(GfEMoC-ZB}RV$M%oQl3vyyM)EW;plLiG;mYnJTiyA1ZvVwgMQEMlX}E-rlnIl
zRz764Q=uU>*<A<zqJD{#(bAe+=|%R@>?r~Cv*LZ^z6hKh*3GzfwE#KV6^-m0smFb8
zClwO#-B!U-%+zQ|5(?_z3<4o$VvQ5np@QOBpD)tMvf_cW*)}~r-F{K)=LdlT_aiIK
zJ`}@`9lY@;Jp|*bppi^K0NsB&2O@Klwfh#IKr3O;LzBv;s}yNVrXWd%8FDs%aMCH<
zS37@jDF=u2P`^1kICy$oZR&c|^qf1+C#bOfD(NPC<4=;&nAI71Bx!3ZiroV|yg51_
z><SsUjW%J%_V6?k0=L3k-8#DG`euoGgSXib-{ppU{7NukTP1Wd??S=cT&yC}LgF@o
zHB`V?=+ZVBN<DcpP?wxlPdL5dl~mPlgE}YgX54OxFe7a9ha?Fh9blJX1L31=m`ix#
z2i|3<JzrqCVXqC3=K0r>hTD-;TY4=z(bh>fmDV?UwP#6*$k!}(f}L2_{J{REA)PIC
zJH4Cg4AO|WShQ}F0V#NJ)w^%m!(&uD(Qz`+bkF6WL%p@k?4D)1{6Mk6fTP?n?RR&6
z{qgx4U0!3;;N;&jR9!1{Lr*MI$*QZizI*JIQ?Yy=r#9SoPqXjLqOKtYcWNHlrQNNR
z7lYMphxdLirK4NSW3fNDTrr+7v#l4pf1=7Oo7UiV<dZNoQMg15!Y@ZW@tg@YtL;>1
z=+)Tp>Y=+!&E$zSQ@QJC`GNIv;^#ZJJr1gOZ^$)i|GZz*A!bEaTw`1D%*q0f9WP_p
znHP`1clI6wwR0Yqo6K{+Ex72qUvzE9ThAz)uukY)-~5-%=i2DbQ%=<F#;hH!!_4Ly
zf}iW2%Z-Bb`o!GGfs=T)+G@h$_0+eFxhP7nX+10kfb2OuYQO1lu7!X3r=Kg{)FV2C
zC;FltzmBP8YE0>*hwD?$Hj+>R6}!1?8a~B%ik=H!p^`IxRT~kCZG(y?mp<uC`a+S)
z<RIkedD4}M#s`ZjR-IYrDpH&*JDV;%PCzXVEDcO^m7|slXX0PYu0QbJs!Ov;+5MjL
z7iptlZ6!PUkZ+)or_h%y!>*c7AewEA4rk$REn)|j=>=I=qp}JS>ArZ$_+|xntpo+1
z)kZnl!z&Jp^>Yb5^Wqj47>;FyN=|lmbM|T~bGA->#5eXF`q(5`W~4c{{5RtXa&&b9
z7nU6{Rbz*Lzwipj8EYu2&#=F$<78zQa*eY2XSKOs{pml!It`<=+@TXHNDJ&jRp6e>
z0*+QfOnJ5*9)qo-=5tc4TKA3HI!p)Le%m!xy%=#A>2!NG6{Ev1n(lgrbn0+$n4!xT
zug1`=qLHgo?V1~7tuDbKO~tmXsuR;cTy+ReS&ZQxwi>UyYga<h+9sa^gg(yHB(#RW
zR6nOfzOawewT6RF&JRq-Jq_76BPC;;_I0!h@W@@U=Y{pun}U9WwNCP}IyoqZb~!HE
z$a$#(h$#55fjZ?eIXO|V_<Ka+G`BTsnl)t4gmL^#@WsWIsRx)qaLz#~gbozxI(e-=
zuvIY@L*Sp@S2<H3G`MPw9&Rd{<ebJ$^_Pd2(Vv%DEa~k*+G&(7JwR3)8+nFZPuE+g
zbxa`85O<2~&U(tYigW^W)ZDe=J|eq1rH5PvZSj~=LV$GEOhw=1ZS#E6xBlkoE&|di
z6a8wjd|r?^S<^3q+!8IJlZni>wc`hcC$eW(POUai>7eF-1)q?DX>Q88-o=^eu+Gm7
zYJqcUlGed`y8Y&>i(#I1Q-i%?OC5f{N3;WnjJP38HFG~Rf~(P$-YE|cU{=1K(&2t&
zgt@mrWNi<puebF5Tbv}_|M!qqT*WK|q%8IG^?K%C^vpLS1Jk0l-J8ESPBZzr1pZRb
z{050}EqCpCd~^eWU)D2Uck;DJ0-}m0EqJqCV!93GPZGEQ%P{T1jdEan$#ldm%4u$$
z{(?uh5Ed(y-7S5gm5LXUlPhy6G}hu=dxPz)Q^w>zgtaVeF`g)T0?OD%G^sZkg!Srp
zo^+s6UPKXs?mWpyR8sqjCO3ItG>~>v(}Ayh@AeWE?-dUpbJljW);WYdDfzt-hffT-
zj4U@L?!N{_5{qY_RNZ=_K5Xe7McK6#WIq^O&amv%>v(%={qRz0cE)AX=ojI-TI2Nb
ztmnKJUNY{(UK}cs|Myad;SySkB0IiXcZ58J%rVqf-*$yS&814^nRqPRD(AkzeyQ_N
ztU?)h(3snE@AbA@&*1eg#$0Z)P6?OJQpst?vy0;#)zwQ5U9_7dK7m2L7>eDC*w>@l
zGk+SXF+Qa+ID;>a5=6g^nhgyOr=RoT0Rl@U{7GjAk38vlQ?;g+aM=Ml@xWWz&`jsu
z2K_y2oARf&%vtNi6tolIU~uyND>V@^Lv}sMtn^YC?JrSKpXk{$0>vo7G&iPRyytd)
zif8(|dNuSLJP>AWbY<zmf^PC$a6>`HPxHmdi{TAkkf118knckklx81Fe<MP*Sz8^>
z7L`f!vWAXteE)4%{i{wS`jU2h82-n`kmu5yJq`DCuyU4XyWH$2!*KslUo*&KWsa&X
z%`sP)+IU8C?P7uT%(hvp-(|n2qljEHENZDR$3hU<LyxNZO^cPqD6T~h=LFEr(b^>j
zO)-weoa@NI_FxMAFnmMgw_S501z#Q@^lO?@y7$jtPtCqzpJ2wO;C6IpRGlyiRvtfl
z@EOCv$|?F;X~CC%W${UF@RZJt`oML~oNh|F>3$tvB>>w1PW?HvUB&3Vc_ulx3UF(F
z3q<PejzQI~P9mK)b~n8qT>74WxAX0jQ9r5&Uak68e2T}9BwSW-1Ihk1x->hd`ozgF
zSJ=qiPt?RSymY1;BT8qn)wdiz<YjgpgU)(Tm`}_nUi9$cD9QFfWDH%;C{6J5j&0U3
zN&U4kr8c4+=e0|#kG2ij^}yc#S;V!(F`tvuwe`3$LujuRb@~2SNMX;9A>1cI;D;G=
z8tI{Ym<1vFP{JT7Ak!7ri_YgF+(%>j{Z*aQIxTsmR|G%vHLPlj%ds7t(3P`I{uR9{
z_NGRu-NnrvV}Grgu_Lcx*>wq|gJeA1U3NLwb=5BoXG(4ik?t*^)d689Xd?At5qeWz
zd_L2vol|uSTU)PUL-p@*wKIQP)DbqfcTl&uw-=5U&-ihYbqGzTRy*g9h2y3|SC6{m
z2Xj8avQPN14QX+BVUVK_ZYxZV_&CGc{<x-R^}70>a6G?<W$Qo*0L1$~=t@wv_wXV*
z3OJ3_oF#v0_+ldv`>ssJd?4vwOpCB`SBA~k4sb)`ru_JG5n)EoA!sPj;%zPSz_f$n
zh$)nj7yoMIvel$4Qe#KBFCkm<#_5fX)PkYEW-lSTcG=@F*~%z(oA>G=74!CBq(x+A
zhMV!83pw@Lxzd~-<S2`LJry(RRCF?N_9|z*hp>p8{5p>OLofm0O~r<K7k{r)7hhw^
zF&)+NvqzIWlg3~Zj-_xt(rhxkLF&K~(TDPJMA=mHkVk&x{?7`zbHN3Gzj4~8AY%$K
z)Q0k{KVLIWewbF_zGRr@IQ9ki8@maKzZ8fJZ0snAKguMSQa)}#nS{kSIUc0LnX(gi
zV=8;lFz|Jc?PJ)MYM&tcSm?^v<wmM5Edu4mgFZ#BIR29vX*hy_Q26_>i+pjHGP3V7
zr?C-xD&>BmS@@H`Hy~m!5y=M-h~m$*p810O{)g?kk=$DsAQr0f5bS1GIO=Jxg99yd
z&!@TK7M>9f6p0BMgwZdZG<&ff&XD~ED-eWrPJ>M+J=Hm*&M3|J_1t&B#;ij4@I<~R
zENZ9gQHzoM_0*xd@aE%WB+U4;9(S0+HU0miDXIj*(FL_p0x0v$%~U*y`IIpM%A_#l
zmAW?}5Q?Y>*{~ZBx?nhIk3E*51U73k6A*~_uR7p_U38<@O9OZpCW8uJ_yPly`2b8q
z!6w9DC7fP$mV<+wYS<F=i!wb^j3+d2`wGq}UTY?xApPw+r+6%qpoVv{YQ9rXuOK_z
z+x*~mgrde;$BhB!p`CU`Gx^9htXicW;R;;qNUO}i*~)ga2B~Abl}SB1oOE@*?(J%3
zCE{TIx&NG_{Vz$||NV{}HQA5<tOfY5N#Or|djC&ocn{ZTpPPVuGu(K957rmNT!M<B
z52#8f;kH{&%8z6<5`j&!nkUJ3A?bb(y1!gl43sF##XvLfXre^6^Uckn@-wMGxiJR2
zhNJg9d?gSP$DTb+=G|};#gBdq{BB0EhXf{Uy4SXlm=s1zPoPQ!07r5f##qAA3B<)K
zXOMz)#^>5Tk|FzpD6h;8d3_!lE}lHyv%Ctem{PtCCp?r3<Mu}g-7SP-#9G=9sv4Qz
z=cuRWzKf-RjnpQO4}??hbG=tXpvL+^!69!dKAUlKY)V=9!U=`-jbohGgX|e><6(00
zk(t-Z<j2^|D|VcpvP+`udujkoQoD$-@>aHY@#}+dI6?sDehpi+qj`PFF_nMSEBn0?
zMuHI6?!%<&h=j)AM?pOTM;oO|(G1S-#6sIy)wScR$=CYO-tX~tHynh+TjF<qPoT&2
zCDYU0TK`-uDW`CX{+$k|L(!z*Rs-N6Ph5N&G>c`F0Gn*e;gsZ(bvP`SFglb3b<MRL
zzhwm-!$uZ`M^S-Efa?Nbv60B}2_KTFm|vglfF}8g#oFPA@<ex=tadoXK6Fs@ZnDN2
zmRqD2dDT4M>f4Yfb31lr?CGL?3gb0UP}{2}B=3AP?WGHbFHbHLhJC{RuIdBAKxi1d
zf=}iNbHH#A@ECl$5YTBX7RCWFeE?6En*&714yd~uJ;cjus*s7Gu9MDosVyS3QOJx9
z(JBMk%xNM25GN$psN4;`48@pfTZH>s=&%MZh?r7QBo?~=uY5qmlh}dYLl@2T&7kG|
z;p_~CQ&-1kS_%LI!n~dEI>Xp^dJSuqXaNzux#By0Iqc-=fa){C2cC~&LzW`d$;;kh
zWpo%ZU~W@--=W}eCfrij{t92V#7q7&o*4+Agp5+3JWj+O2$tK?JBmZQB!t7CpT2ze
zA7M}7j)#CgrOJdT>bK3phbMUOnTPm6>x#yy@<hy|MRWoZhHh9wQeV1A>N?obd~CCX
z|3_HMtYQ7ka<FUu*ewzv*k6R@igy#ueO|aIqJJ$wD2h3Q>=#|r>xHjWuwRo0e>x;H
zUi7eQmAdQD;z7c0ghFg=$VoG=%CZ^Tl3ya~A_RN5rCt@P1bFuSvT$nfzg@>n{_vWc
zZzZtO*}=`f^%sOMjf)tkm=v3GekB5WSZ6=EMyXG9hQ$eRUt?vsBlUtqo$3Czh-mR3
z;pw*&$&I-GhA)&spE)8svg%;G_^a1l#!|?y|E7%le^)9TXav(LRq{}c_AmD9t);;w
z6^u1tb~cP48q<}XgFqsR-38dlaUCEZY-T#+6Z!T|A%9ahz-Rb}6=Of>_}O)}3(CBv
z<ZsA^6-fxQT8_M<XN(ETWHIV17bHca_h0^Q_HJjF_7Ge;Bd<xYjYbo;g*50KCyU!o
zi?H%Us}OTl$v)oYDu(QC00pvFy@x^2FNvX2+=n-=3ZdMVfU{UvAvN!y6<5k_*ffHL
z;JDn#K@!hn^lS{A4o3dLBFPVEkOx3G!u)1Xmt!IpQ(i1HSzyxnom3m1C_(`tFtxMz
zwd3;g1NIS7rW8XOp!qyJ+8fRu)uRiUR0okttJoqO7F;`CzSz(ISk~t>XJON{!aTqc
zamxDsFU-acvRM(nq@tO{-BHs;tcJ<Ibq>(3B9A?${=6_^-80{z)GfTd@$JE&V+wg<
z``B$;$i}2$=ZS4FWHiW;2|a9kh+D=C)Nu@9b@|Yhj9G&%GTA3L-O5<<ChEekKG%5&
zge}x)e|{NpvE}_1S$MlFSuWN)%mRAcKwxz**7xZ)E$M_zIY{+8$#Tm9AG=pG<!};?
zTqiP>5c?8q!72_dV)92~%!<%f;&QoXc>|qhZq6mn%5y(>7xt{B9m6)3`tU{_$`ei5
z$q(x1Z0z`7zBH&;C_tH?%^eJ^J56(N@b!vyzfq7COgX>l;3=kGyl=GQN(*ID&S#9%
zEL6L*HW5uIsLuMm|Ep}235$ykE~kVvl1jIUSXK?fiWYCmuJ#V&;R?k%P#8zJw2gS4
z;yL624A?URqaj#D>Mw@ggbv9LR2EIvfx4<mG?C7EpNu^4j#UpB$Z~D>tX<SALDL~v
zKyC6(9Qhr96x5iD%Gz#B43iSdL`B^GH`@E@hL{XMKy_VhM&<-!84e(yfYQmZm>AV5
z9p{U*huYtpX=JV=bQhY<WIO<sP1!Rtyr!e%2JG46WC!f*Q${9$H)D_DlA48N5o>A4
zpXkMJlO9ugmqe?Ig_EbkcJmn=H-MY-W!Rz=b>RLRbky$t-mFG`qtq)x;g+L=Tigz1
zGG^fnUziajMX(gz5`@H{OhAJjv=h6cMc#xR3fqbnG63;(>1|&VRvOQU8?5KaYbuac
zuxFLX`N@MKQ8>)p(6|=}bA+-W>1@W%T66}~c${1gMFM08JKtZt?D5w2Y*Hu7V~4ce
z>mPXJu5UQVF=i9Jht;sNgBYG@mg0A348AyKGVTEl@|tJJ4c=6^%#n?ok}@;JZ~&k7
zei5nI-5!z_van6`9+XL9Y!t%M%HYy52sWGip|jfLC-R@<h2&z>G^U8RVB<9xs521@
zpAjVwl}*@OxUe!U!);PD<xMgi(O$g1uaf5!wWJM@J)lT6@}Yz#8_`oW&*6K6#7mGo
z5Ec$eI8ZxG*mrQ}ILSy2rwHF#GzplL9Z+z0Q|VGoaqFy^zu%Ie)V=1MzYjFzHkjo}
zb_b)inPw+~%Dk-8YmtI7M=|A6nTo;LY_|-rke3_!E_SR{cz0$UjR{F-F!1Jg2J01|
zMn!T4cBO>C*M_|<$)C|@$bTROo5Rl=o%?XRQHyM0TNa2<o>_MouJ3fsAAXc<pTY10
zo6j&4PFNiRF$@@3ARqJSyrprkkb8y8*PsYg!%iil9QhzN5<PhE53z7_C<Y%aZ@VxA
z2(*}H2;;us7VQ*9Ebhej%7O5|Ca;5hS@M3QV62zXjvW1-Sk$-u&)AUk<}`NQHCSV7
z7sP*EMC+a7`K16E>S)SfEjrQ-)t;B)m|k4o9PU8b``21p4_elt3&szrH7xHs$#SnX
zD#c_p)~)?u$cJDmT7%gfKU-8>MsZJZNVdd-EwerfBg2~H0FbY0Cy1Xb0#s1!d_Zsi
z%Z@{R$^JFDv`S0=GND;OrUS%RdCQ1z?7_Zf^#&$^TGOCfmC`ip&h2m4RcHED#5ayg
z`2U@6nvp;JB&mrZt3sYC!0U=0a6kHYbZE2A!az5BNhSPh$C<HsuaI^56Jn^)3v(eP
zo~h7}{NSOB-P<^_p=)mAr<a7aG^hNbbER{$xWe7KN$mM7myas779!D5xK6b=<!iRT
zl=sd)X8qhNnNJts+F`gUnA@#krC7*K=<4J==|!{O?3oc=l51B7w}fu@DwGk8+E{Z_
zSZfS7=Tqn>BMuo1au3@dn|aEasAr7H@#fZoW#~dZ(Fg@cm?9I~SY*p@KSE(<Gj{i|
zZJ^8n^BB=%>qbJp=b3!MO63tsmbINOA@3Kym25$8Xnfd{OwzkZJk*;!{7R%Qoj1e1
zbwx@}x)+HGKJR&i?q8S6>P2a6$mAe9NFSF`uEgp#7rB!N>-$0`^d{Hse>t=~$aYs+
z6j`s%R-OtYs~6B=tRs|F7c}?rf9MZIbFb^;B47)8A$eJ}`HJH;F#MDgR$c)H5?3a&
z!R#v$t7ZTCkS|C6QQLROl>HUR2%n8;1v*if%jjVRXyxU<?FY81XMO?(fadG)RZh>?
zTfhm0ae(y9syu9n0#kP89-auU;mJ<l(E!UpOda6Qv?UopynGYtr-O5R4@keLO2o9S
zaJilas4gF74@F@!QyFX-p1mWw!4ztjBi4@#6*U~G*@8Cvd?myTDzHjC2n{{AjkzBF
z@E32ldfBh>A0FQ^E!tg88S@{iBlWlc?7_SW`1q#50BXVx0b~Nql$p?ak+P{^*Bty#
zQzJ`ZhcJJ!|6vBMsnxvHS`B3;eQp&wU5E#tdN<RepcOmjq6!?@BHKVK%H&96rf7Xv
zyc9;F%+cIg7|;fW%!fst3!i#-Nf>k|ACejsIk_$UF!0k#2rEs=zkHYHiSUWy`;zNw
zEJZMhh=PxXAA$~ZH4YN(=92*|Zsgi=eY+x&Wf-dq3oZ#_kc!3yhE-9<zkH%k&r4wj
z@=ua^*r79I8?5xF8^0EC`+A?b4y$l_@I`o3F#xM=5K@sPMz(~@beqRm-^qet_){jU
zK=xY0bD|Z$H-+b02bHiYqf-Ebn(lYrCsG)HfP5vgQavF`gRBOvbmnS{#7+?fpU63X
zDxg^#-k9GR?SqXxOcs!PNBzt%Uy3<J27iQznEQpcnRd{w$V0XsPK~L?JnxKFF~bPT
zg6QB$yc=n-UJr%ws})_Yin!X-k_*$xG76us){b|cnyvPLJbD~S%I>;jtI#YSj<J*%
zp#^<FhVASz;c`#FWw0?TbB=cWfL7h@#Y!<}$XLk!s$GaXR3NXJN0@t4y0A?+F!efY
z5>g8Yk?yU!oKhvd0+d5%sghvoZygbrt?v;gMwkSD=wWWWqt0QtdTjYgZIoZKn||%e
zDvo&5=H+7TIB`L@gW8kaIb+estsTFc{H5^7uogMMYf}6VZJSPN&6T~1J?FuMG#Jm>
z8Gygh{9ds5vpuD8yvfgA^Kml{Q*CNpP6QIoF!NKvIj5aW*p*%(Yhz_K0dkZ`dEgiy
z!Lqbq1H^-#;Fbm?SzE1t)5;OhtSmXvG%ej(cKJNCu6W!ORGzEsB-D;a3seWp?P%_g
zRu8-rhtAfFYx#F!qE5sKOwuO9^Io4BS4+J?2Lz{?W;Nf^0qskFlF|>RGD^GVE<P?Z
zBj(#oN5L7VyCL#Kvd{oNB+JFa%W=Mj-q_e6%k_h@d}gAlaH_NkG&2#?al$f=T~Esi
z)yuvg%lQ*veXH!;3k?<9(w<HTJ{Kl#Y_51llb8qto73E2|9e=2oCQS|+^=^oRF@;)
zm05W1JM=oBGAgCCx<gB0GAqOpnmxm8R#cP1x^?B7YA%1vDHu+X)#Ng;fy~;zG8EVU
zUTnzXU@FisSMQUcHT|k>$)T6_BO%1?eX<fYcg4=KMf^kqOuO|E|GRI0g^Q3jDrUKh
zIC4i^QjopzrX?)L_LR*-W~mXjP<!sZrx}5(&Q)WBK)ZaH73}S7lGkj=<15M^f+J?$
z+<U+w6E?3b%8YWMrNId*SMLrg9%N6UgKi<{rtG)L(}S9_Bf~@HQ5A06BS+R%x64GB
z2sPAVdCag_=#)#JL&!&`l{P21(-=cR7BB{V%CmwsuF1hFwl0m7PhXu2@qm~9n6<gZ
zB(%R(Ci!4U=CJR=9dYGvaD|mxVQEImFjDrpDO4^?blNE8Vv7%9u2EWaC&K1kV)3|?
ztmZMh7=@qNfL>`b%24b>1Dx{;V=f|<mUf8b`#h{jVjS(FF=cu-zIu9vO7z;iW<?D_
zViRv$N`48eU7(A4akggD`MBrLZ=BzCI@!76+@A*&4&2=kA))&2+6`Zu8+%nZ=3HLg
z|Aa3|T9P!5myKo~xVlUG_?}&PHshmHnXE(AlY^QMtC^W;Sy{t<GxZZ%oPj1zvtD&z
z=j@z^2P>`f>*F)SnwQu-|1UaYVG(hUbsSO|bIAPiGZhP|GX<&TKWSNl80?R1xS9)Y
zCeMo`8{3~zJd}v#^v3$}u=V~nR~50}BCcnyrypzU-em)5YLkmC0Dq_KqXWE2B-E6F
z^)<o-KnAyE8g$w=OqU%r7!guxVHA09qqQ23D=GN8)@}Kk>c%n&m|z+}vkvvE$yx52
z#&|3p&^$8ykD$|j>z@6M<BuPd9vls5NTyVu$l*?6rJpjcgUV8)0VKl!Yt|F&O3j1U
zLgKM|il(>H1g0U`1FMj|Wqmo_a;=8aGm<sDRzIIO@xs->xJ8l!9AA`9a^rNY?#(rv
z&c@!LJbo|rXqS*cs;8A~s2<ku4yPHUsWQg0?T^R2e0go~hAz2NOT>wmzl+jejz;CN
zr@$q}Rr<_Unw@Oe<-(2<*<UV?bzaeWmMk0#K>C}onY+5SDS9|S59PUzQv?rLZq%hp
z;WUU3_h5d4?60>cKQ~>64&|jj4$&{{@PLET?Cjer@0RWZ0&^E>(NMJ)l=Z9xpj|dh
ze~Pd!xf^E9Uw%*{lH3H%mYfhFW^CFOcUW%|<Y8kw0|;}66p{-AP2>KWO9J^t^TL!C
z0&%&fEI&9Vjd4HAy>8b$y9`wAEF;3Dh;Tc8#pX_(uQ4Rv{^?gN!K5%eP86(0yt{Zu
zWaT{16YhEmoH*_|N!?u|dhNu{BBSrwNp4Xan3hR^Xnd;JKcaS?g+(1BQMVr$?_nh~
zz5ytcDw|0{j0wj2Qh;zq#D{oz|17CWK3!H*huj67)g^m@%EiC$5k8Df`_#Qlf{Hz>
z1A7&-c!pG=@_;B5eqv{O=G_ooa<%q&2Ed))=qg%=XI8#S)e_d6oBQsi@O6aei~OC9
zRO4|yFGb<^i?CF9YrSb`wxs1${x1AK!uHkFdX{P)`}&hhA_|`_n97C1^=bSsf<u14
z|6-}Nt<6>K0^qv##U>)qXN-x2#*FIxjoHa@H$?BGioufNgm0UlO1R+x?S$+duPTa&
ztGys250sg(r-4m!T%)_c_FH3a<?)?%ylp|ewLh5=2ar%FovsRgjW2)&rt`SB$h(X^
za$573PmL%({Ojs{GMD`I?VOVAKRc`(+?c6A;O^R<_k!Lbk<E3k*z(!PsyVa>cN!0i
zxd}<fTC4t|b<Wr-Xd??mc2qPOLnMV^{y1<5#hwA?K|dU$8B9>=(QL919ewN$AsJ6d
zN{*Y@A#gHfR{$i3{5c;;I+Njmlx!*h;54(7<*r{>!Q_>9+ye(}<}<f)fR0Lf?VwC-
z7`X#*OyELQDJW8&EVH{!q_bgB(YniV0heZQ_)It6Z;1l~g*@i2N23O^VaAt!Tq(7H
z8c*~@9;rZ0vd-_W+0f#vtxG25|Ezk=3<kKo+c6StzFJ4xc%#D^+j7@xLyd>q%9p|i
z6v!UtCS&Rnx*3d0(@kp-AF^Soim^T(<8iM&iewpm1qhYzQNl{w24qB74ap#?C;tEw
zJhlGZqH|QTv3l-2Tx@gux832P%krUu!(>(0ICp6oECUG=)DLb(oUnt%o7QAWQ-3=a
zjH86W!db-m02Jh<tA#pcGC;7S@VOG=Z&#W5)FA<%<F6IJTYILY8Z%v3pnh=UP6ixh
ziku6?^G+Rn7nc<_kruXC?4)yh^;qKBlPY0kWAFG^(en66Oz>>K>g%J3a}w}u$<%>k
z<Q{!pzdG|U7%8qaad*wj*|_vqu0iMz1a|6F3-~+@m>jdZQ}?cds>MyTNx2iLxo1Wk
z@u{XrxoWA_oO^GFOh}?R_x-<f-spRCgC$>pwfFzCeHPmmh-s>Oc}*mGH!oO;(KvF%
z*A}!?h6gC~biBX;{_;;ZON$re*Km|9DE#MzywW4xNEJHU21ux$C&#@ejDaRG<dG8r
zO_$;n#*=rx*TxQ=CjW=qf&Cgklp)K#2<2$im4cX*j;hQ+XsB-f*W{P4^z4!lkAB8b
zhtn~tDy$Co=~)vtAC{hg%jFDZ;R0K>ScYw6-QfaG-xL##s$gdT`T%1nRIL3gYjEwp
zmSm&*JW{gWrf=vMbba`D=*lfq3-x~n2QfH?s`9M4EGkE_M^llkoW<_EF(`to*d)uW
zkztj#ww}4u7l&Q3jl~wx&QPL_^e^$YEXKq=SZAL3$j)reaiD<D!`k;ENk`f)^^3T-
z&m86+ahJ!4-|UKD3eYgD@`so@GS$b(@3qETp&{bGa@qBZ>8I>xjA&4K-`4=V;<H2c
z{{|QE^>;NIFMv~9jIj=dXDr))eG&kpl<`~!YyS1eJT~)q+%G3m4!)&2jh3{kx9Y*g
zhyS4iu3FvUOq+)>Hz!hSE%{des%Zpv$60lZW*^?!x%@nK-@lSsH7Sgw?~vgz%(*-N
zgUpm$>gtfQ^8^uDZz76;&fj~Ie&t{Gorkw=3^l$K3Jn!Zn7tbEf34tTiNBK{m}hm$
z4L}T?DaUxGILOa?d*&Zf_)Ls;5KJ&;Klp;)q*xeuq5jb@0Eczq%-i*UQG))EFZ|sc
zpaHTefQ_QXWcsd0!^f~IR+FkCGVz`crcBta64!q3hnyI9z~0Dq2!t!r;b!?9=J5j{
zFpHfp%Rz$}mrJXnS3U_@MgeBD$BEIqMX3JjvQ^;sdP7k-vnACE=5n27@J3ODuVtSQ
z8r=#TLoT63R6iLAZ%+!P-KJYkL@r7=ARI~zq4+<p{$&k#+gQPh87^0^2A7Q4IY3ON
zo5THI#R^x<t=29@Wf97lD=~(UAj8cAg5%ji1!w=(KOQGi2F}y)0-|m~i|>b;)yYh4
z@tg?XxXBYBjplY(IAIGz_5NG82%q{#fntur4(B8o|01lqMFN4)FFO9Fq4s5P{^vi6
zLw&hNLpK#@xBs~F*!r`&aPTLL0{C6`<nUi(+6wXRwpl6Tlkze>-1kH3Hs>3J1I`(j
z0&jQ;w|6EtNj5?)!Y;(=;+dm9t-v21AD4i=@jp|go>55Tpn_kix|`P=#2o9DjWJi^
z?s4?w!Ym%3y8Vnbu12>`>q`yFfOF|>fosdVN8fF^f9{{P09mB`l-M7388@70pKc%C
z-Jix#0L#3zenZ4Uu(Mh-b@(`YSW(aFFk<KBJ9W|U*`tK6vlMhz7EaQyyd*!rypX)B
z%g=I3eRtiatxJ8NBNc}9We$+&qqP|kn*e8$%V8q7uf{!&>ePT?eHHxP>mLXe$c05f
ziMfWp{Ig^|K=U*?Vd8?+pa85=Z5xOw4tl@K;|IU!4k7llGz2`93HS87byw=t!S`_v
zK|NMnGAbIn4TpoBFAN<9mtglnI*gHI+Fo^>{_~v%#Aw+?`Z_e=dkV4j=o@Wa4>@80
zlp+`AILR6l226Mo?@q^~f|8Fns>2?-z17u-mOq72v~id15!bq0O8V=X7fa7hYIb^Q
zZH4m;2Lt}v5!O@e*mHYdG3Kq9yjwKwQ3C>fwJoz~tA7MEDX)2)tcjFtrW>o?Z!ME}
zCjy9?r|bRIqH#B(^CyG&G4Mz8*rB|_Sm6Q2E+vhiJ33%BcIGih8{B5Zu7#@~s|@Z2
zh~!_Xa!@lg(GbHtSyz7WWd|m@k`g-jZ3qZ4WHVqlIpESyILKxWj0gwE>RM-v=oGxv
z5}&X>VE7)6#3_Ng$&7Vif+>6I@-fjJk;_)QDF1!~IG4;wLMs0)LfubYMja!ob6XCz
z-<rTSYLg3Ks2mmPgjg{Gbdi~LJn_!BefCkZ2!$&YElvp+j;O({7u~~i#^A3U_y2VK
zCw_F-=dXLdI|0Q`DVz}hgBr}AvpR2Q=>sPk<uqSTojcBktGK-2TLB-P7Wn;Syu7?-
z;a7Ek^MHsFS}FEy9ehs~o&x@+7^|*7gdFd_bSK3HE^gTbm6Sd&ZHJv*h-LF>Pme7g
z*mNlJRyG?~0AGos%-}(<fhu?7ult0kWui&m{vf~|5|q3ub=8h3FMXwRoG_UkF(Jcw
zZ2*fm1&%8>KNYExRBvUtyc}--3lsOh*u4MKA>@=&ZP^rJ-+)XWJO3Zf&Vk9Tv>#e0
z$s}1KK#qhHiDA*ulVddjaBY*e=mMQ+1wz{=HNj{cLkwJE4F%tZ<$-tx{yscT^xP9E
zM*9(Z5whVBW1=7q5EkJpie5S!LXQ@yr^$B40)aZY$s)5Y!VrQhZb|~_W7tLw!Y|_M
zAN{pFtS~H|<B)knhSn+cr}2y|&@Yv-GfPW8?@UG?K?E$zwtcq|Y9pOS;}+0Lbeb0Y
z8z>HweW0@nWPR+cA^RK9*L!f}>5|!LaMD4+Qy7bU?i~m&d1?I_=WA9~J9T*9b}`!W
zaG@pN9v?mrW@ov1#EDmBW!^A|yfN7<*L0j5sNgrB4=Vxq)rtdxECwoL+smUQ6s8@}
zLu>suE&s-jB$YxTNxkF;VrR1%UdRc?a5|&VOPw6y0=>ryMSR#iv#lZT4nfH2BDnr%
zpu$CeVqzja!M%;(I{;;Ahrqv-L_KLFOH8tHk*axPl?$LyKd`X|1*yF*#&LyG=|*gR
zphw|b_|x)ZZEX`mI&u^qUBHLKUN5FjSc~!}%`4+78V5JJGA=kSHdI(T>M>j=uxFLY
z?OFo8V`K$|croF7scYdmcvlP0QZ5en$%Pq0D!2JDj?msVby1*J3lN{-l$vuN9McUp
zh$A<3POk{QTB>aq+07?50HHISkLKK9h0v8=AjBABc6wAu6w!47)}nN!XRM~T>guv^
zoe{l6R}^M&wk`3|irs$;F1OMiM;Cie76ElAc3p9T5H1j@Tj0fHpxD`P7V}hF8~htv
z;AZk!^y8ED|6ENWBmUhz|3Br2@bY@zZ^fQH1N*wS9(K?dch^|eHDNO|-4gTH6}EH$
zf;5JW=_aA-JQoCn?tkY6e_jxfVPG}ncrZJi(Vc(y)h8WuKvZy+Dk<5xb?h0kW5wR?
zyj{C2_b#AU_Pn&7i3NlfL?9!{KwW6CME+>we%(t-1*9?(gvLRvw-EbT!9oM%(wz|F
zOU$0RRM!MDSsp)hd!NEm7Aw-@h$zy~f(uAGE!<jcGW5&#hp|FrX#P*ff98h}-r($v
zAE*vo7n<@ukS}<W?rbk)U&}o#T&zL_LQF7tU^|GpjjyMp*rNd6g#8i5J(+{TL7xst
zHjXXE!bTS6+tWq=uIr9C#vK@5*e}jhi$ZXJYKFGEE0eXMNW~^>0}N~dlPt_OGxi?<
z>j_h&MlZg+W$&2A2*?wtn6PJoIyk)-$E*l})@jG|-S*QvPF6F|Y-$*J0XkYl{3Tl0
zU)YgS`VlbOW?9gN?D(pqL*9<{r34k&r?Q6lIY9YLcg*=IzK5J<N%k#~$wzn!zp&GI
zTtgl%oy<B$2tY#?*ha!_D%NJdXqBHZFj6%57p}0a2tnS7q5xy;{!=3Gp9UgsQ+zBk
zpEMj0@6z-|RlPq>J<#h4oz)OthjY+Oo}o3#`P^`RRyre$H(QNb8t}m9yI!wUvLi6Q
zK2|Y<f2WdWGpa`$&<tE%Uex?Ka<_elEgH^EH-6~slqd5+<r#~`6mXj!{G>X1b-D5{
z>xb`^8x-MuyAcG3nDS6PF(&LfDGk35v<Q|?a{qKi*!+Y&hAa!R2LR5j#o~5sWEADy
z!aKlbu^2A#k{TM>c)iYV_}Y!)R$->zr;I2EX5$$2Wy>fu<YDqTm2V0077D|Cq4L?P
z_sW{zp5J{ZY3C5VI^(3Wi({gyWTmnf(DaOZw=f2+MBt0y%CH(j;*^k1ietDJv|<Bo
zf?rProce?M90EuF*pwhksK>oq@B;};h2bEyx?Pj;w8Wu-u=IM`{6JTt5xY#+ik`{9
zMRA5TBH;WByfl3;lNf+}muIPSgzQn^Yf^43aC#1ZtvvSPp-lQ|pTP)zzif&<^f5z2
zp4^IUEJyX!$%UCy+ZW(;KW4x^MHVht$?PteZi1_BnXci{(YkQfhxV3qm+eeKRZZ@C
zGNmW{cDL1K>mbjJs6)uBU+>TTR^`5%89$u}4HbP=FE4!Eq?MTk*f<1PmDLwH>E@m8
zkhvu&$J$p%@s=d=G;X7VqanJ)tH5BWRps@_oi#nSF1lpY#%@h*u&j|yu@4)6wrF5U
zI`6tX1Z33t)0=s?_^J6XdOMPLb&_99;$!&x-WF!5Mmdm7s)DElbb}c=RafIKy)!e5
z@f^9ot51$Q6{}UPo*$FsM(r)N3rT}iSLb)hyDY#{Hmokykq+vgsg(*haSCYLP5c_C
zFrD}+`tG}hPAvTU7lLM%VG?>DM>@+r<caV7qvtbJ?^!ftfgSs=w5R&jou6sAGHIrE
zDnCuK1D1aSD6=0)*CmHof9|~sMt?#ILLgr0%hIbQAm(D+`k>tt*p=5W3Ddzjw|6d}
z3Adb`!q1cPmQ26Qb-k^R&U!<x2m<}oA6$DkO4;R6FM+uRNt|v!x$WHoJKxL1DT(p+
z$h7JER9X_lWB=Lw@|4`Bf=`M|#asDrL!#n1hr68nRii?o;TZ{c#RmtwczHkX_nkVU
zL7rF>Bz!%a@$$&@@R_!>kLWs`OI7bv9eq;(jZ!^a<!eQ9n|^mjt!h&YG}Cve<J!u}
zyCnPUHdTqOqhiQysq<iS)-zObg)Vu29)bT7`X+=3#5b?HUG#8e;AW>0=KT)p>oCYa
zd9Xiu>WrPpOu4qf;#7Ql0H{l15S;Q~AAX}@zGBa!?9xlRmh$ze)+SkEAY{O(*Be{z
z0`O%jB0NM;<}z+5S8=TrwJq$|>=4cpt4h@%8)JPxdOjLPgJ!0xL``A$IZ2CCr`)6B
z!h%@oj90sCJR4o&xZ!mG7adpJDuA=+S}}E}C6U6R|IONo@nB>2Pv8)U@q&tlq1H>F
zUw>6}v3DQ~Fpv*(gZhMdUv%F1)7|gdolT##ALpq@-)w!|?)_}cTbX<woXcXcEJ|8Y
zSo>#g7SJI%E(h3dQkmTvItztvRKg!RLi1AXP<4$kY1Ue5Rfp|-?)9_E+x<?xoQ9>?
zKF*bs21cj21ww&PqaHa2n(eW?rRWm{<(NxX3r@FHE<=DF)*i<Q1YvvMTEE8K=}<Ws
zL#k;BSQBeBtkWh=j>M1G>{9W=()_K^x}N8x=D}?Tk0?Lr>kcic@*ne1kB=y^)+sYP
z@UrQ?yG7h~@a|ccd+L+eNcVf81#e!r$1_#A)BW42vx~&JaFqTX&MRQj{ku9XjZtpV
z86kZ+<njZ$9x0j8qKh8rYcG&srAW4KKpYP)-zvDX*kQ?eYi>ZYA|TKA#pl0s?TM1o
z>neX#Imp<Qe1Ckyx<TBP+0sY<+&!WG|0wS}!<x*xc5O4fhz`DrVg(%o2vUqR={kxK
z5Ril_O?nMIv_NolY)H}2YgBr#p#(@&1SV9ep`#Fplq3)!A*7v$Ip25Acb)6|d48Rf
z-^rD|*Iv(BYp?rW_v3(DYp%5LM?Pg0$(~fn_gkc>os>0BK!49Q1BOI+QTyA&sI@r-
z+aGujy->e<d^<dudnXQawGy)VB5Ea5Of>5os@#9;AOxR6UIIY);4M&V_>=?j!r@<i
zeYD4inl_bZv(A@WCY7Ipak+Hi+}&!7Tl#=zU*T@#;xn}U+s?IM3yfN?aOZT=iQWcZ
zpS}r+<myCTO~SYg+cFNp$rjTy%S$^FpaE&t=p5vU8irq>XOgRIqvbJX;4@z1Lg=>N
zi8{$M*E)S^U&4Un>_@k$ylI+#`Cr%W)pB*8CI>bV8s22B;BBInIxnOywbfYAxnfG%
z$>a3q@uiB2^@M}ZR8=LqCxJy@%DPzITZ*)&X8JF<>vn2~w5ObkGa#KXwo_I0@Jm_&
z_n;>3i$LlmrERlUARDyYPGTmC^J5RBr!*GhMIACvEhK#ViHMi%YM`%~WTmi-6GaXv
zAZ`QwHx2dK!&^beyXqf1oEbbkLBG(Y3PHijI4@6)({GXVpH@i#ULC}Oa~qtJU9ssw
z@#T7oJ3;!GsFQJ|F>*$&PEl_S$9Z~2dv*sGNon+kY)GWhqH@&l@nA+f7?`WQ1wAgb
zY4*6)<ah&Z%_RGu|9%K1oxAZcRR^sN>U86XOGUcI9cDjOFgb$#+CSXhL#c-4fQNdq
z5J!hS0qWFv0Br3KMApoUF46pqu}uaQ8tLk4-Y`;;c&<!6f%9VuBuPziLND}ekC4lt
z?5QiOgXujK06y56GM95|?`bRwa>AVM@YCx4<=VUN?k6jagOkLzw(N7s&mc4?PEa9c
zJvx&?UUN;N;Sv>6=XLJ!22*-OGiy-UkHpJH$Z9I6vz--*>9a;llB#F)wfa{xK17W)
zOX^-FD!`)In{h8(OFL2__%Ye}Ys7akt5wE~zF~m?X8q8D#su#ADTH_A@N&O^^Q;|P
za9?AH{gaczj?$g>Xge7Ibu9up83v{H|3WZgG=PK(Gv4xMZMg}v!Fj0*f5=-ZbOQ`u
zt3t-P!!AZ~>T^roRokm`i0$c7+{0YyrVpDP*E|qy+@Mk}{)%LXQJnIYqRHlYb_dW*
z3>JuqYh|8Jz6m%8(~bxbF#(iOHJ9-k(x`scI9DRg&9gZAe%#<uPEl(B01qe1Djr3=
z8Gy%TlNZ2UfBzgW%FrdtuH?1V>kvDxdm*QoJGM91fz=<#IPtRR)+fi5&Qk@0GA-Jj
zofiIeUm68rnQGSc7fJb;q_ovz%H8ub=rHwooQo<`YXAX$>7$c%K53CQz3WYo?)Fha
zB$dyi?T5W%4bW>lrFMB+*!enHV*c>lU#x3c7nK{kx6iuk`8`vG3_PgSt#(@GduKii
z|LiP_e)5djS&r6j{&04M{%$4jcKu8v$EYmwcwS>n4En(^r|@gg!S`SeC^9sz+(}92
zr@skfN=*EQE%jx7kW|E={8)>AlBThPV^rUc!K3mh&Ls-Y@Y`5^>E<mOJ^{n@4X$89
zDa~2NjCW8@()ow66MrpyVZ4Z2%)Mulcy8KNGae_|_&FI`(JN)kO<w+GB<;INobuBA
z+d0m>D70^~-z_RMDxg)pFiR=07;rmK@;1u*&&5NZGIXSSB?IR(UHsb-{m&a+^bEsw
zUg%6WN4wKg@sm~g^FdW_jyU`uMoKInF@g&WevN${2}P&N07;w&ZPOh<@Fh|fj+KZQ
z!3Sg_A9sSyvZVI|^`-l>qB668%A&HgF=T(8)dzM@0kBuivsvlUT%H@r<4ZvjN_dVf
z=E>A`PK|jmjo0;-Ug1F(nh$(?Rp>c}QtZ5_0cTP}NuCqRaf%8$9)+G_V?+O46u@<j
zl>?GNw>qPrSx!h1WsKoYZ&&d6FQCNCI@@UpIE;jvNNE9K%+!U4dsU<&FnKhbpDED0
z7Alw+Tt=_IBhw&wyRvYPsmMdbiVWkRWp;mkgk-K6qwRE~2As18$}0FLMjf}^J!cy^
znL`Fjwd^p|i9H+KS}^6xs#5N$z$D?-@SL^Z?^q`lbuBgnd3UOsSUY7r1|;6jhPxtg
z)a9|*Z!>RQqVmm8Vc;sST|G)|rzGHDAe;+}n$+qNjO#oxQ6uQ@I=5zb06M@6;K?-!
zI!XM42lGivEW4OXvt0qQ<+&fVBe-g_kB~?L8L(6h4+@Iv4Y(zq25_CP5&xZ_uZ|lT
zNf3O!vP#eETx%P~9Q*HWCf7Zd1)^WWvhbrUsbxE3-h-{qyV5~@@}5?W1{dN(^ez@B
ztf1ZnVh$pTr9N}kLrIIj+#MwZmGXa4?b6?I%%U|S$KNJpj>p76O?o&|KrjpXmM@$x
z6=@d-83;g=CDHbiEdj1*@!|;OC`UAb=ruo+rgMGvdV^K%{$p8hyyQG^4QF1;O%_wS
zaoya2U{WbE<{f<Dyk5LZR(CIMpU~AjAfP{ByaMjSqw{7)OWt^+2)nMn3cn<XI*k{Y
zL(6b6dJAGl>=9xWFe*WgD@>V$>l1Mo?c`!nul6WuJwk<9BH>^O09vK1+~axAk&0)1
znsOHpr5J7uH#kX0+Q!vK(ch8<#+&sy1-oh+7?}O#B_Rl)kgI#G5>ki%QkY(y+LLtg
z_bOyskL1OV{97Ejk3)%R^7OY|XR#4Y$1oE{X6WEdv|SvjT2s#}t@>z;Wdcv7Qo+^3
zs<9j7>!Rn^Gj&YB$J#f+F^79$6&2*(^IP!7?kS0-rM_XjF1&0a49I?`{L{rGd-&H$
zxnF=QP&%~j#IY>nfR$fnty=euwPUM2Kc~R?+8|A=HbMxzK51^l3<!(%;(E2!2C&7T
z8K9J*lE^kxckH6i-Th)b;_fQu%;P3`eDHRq53L%Ke9I#(tB?vV&6*JHrkd65v9M<6
zkfY^Wd!eq9%L{fd-8c6d6+Y<nIwsS?kSI)4eNDAl*?)N1??@R9jW^X%wvI2@lLNQf
z<YzPRxpSUe-C_&+#|plFVIry<t9UYW$J<9cu^y=7G*vXL((AK=u;FOQbP2)gsNhbB
zLtOa-rR~VbBEi#}$!Z=w9zn<lS<=i72y5#>_uA645r?G86+O&G76_v_Ca~Wx6I$Ii
zJ=?XmOFW$d#tZ%_w7g31Li@^*cW^?>i&@7?$Wf56f(s<|<QdIb(J+$P=7J@vgR!AY
z%|+8LdIwx|B_OaZ7lm<qDykA|KU>BBb7jLpSf?`>g}u7d+YVtafaGOFg4T`B!L#DJ
z+zQBMo6a?&Qr&J#<X1Tk{F!uDJay<dOZv+Zmq&_qjoa(H^HPza=$MgN$#7%FOUS_A
z3o)C!K|;O1%M>;TPSrwwGu-s;e-2kmU$D+>0tSZU=lnfA*k3U*?UBh06cI=WOUqC$
zc~jL^yEbaXv~NK?0oD6*SdiUAkQ<BHI?Jid?{ATh9ZCwmpq17lsJi<V5&%>^Wk5_R
zaysRTT@Bi)yCN~|JL#Lrl$dqpg)^IDbcxfP3VOpi7El6BeOToMK6+pbV9d1CA1vPU
zrP+jgMw76cd*E&KHl7(56B8}X`zO-gHsOOvF++B^Hr;2ja+*GWRF<LEyh8kMUuaKj
zO*nDA7pPOM_DjACT{>3f64u6gHSu-v=<g2xEt;MB5D#i`=^~IG4YVxUB~9OW8*NB;
zA~Y2T1E+URgH3usKU2R`v0Q^V%qGhPsFnZYDzH%Y=R+(2`e%^MArkxiLev>X2MA*r
zg!mR>H~e3!s~e7Ikk;tx;#-H8{UM2_!6Ral5$eSej`&ov9?U)>)K}SA%_qmTi}{4O
zsV7@xq;Z9aDcoJz>4)`o^QJ-b5JoLX(j?gXF1T)D8XbM5lZy*CW1YpB#VM^000VR&
zL9PqOamFyEA#?E`VDkU5>*D|2?cC7KM*A5vW@YKg#Cqenpc)0@%j<qk^SeGD%^oxR
zR>97SL~&RJ=S}u;cRBcjI@QiC<n#;IgI-uw6QKj2Mmat>;SxAR(X1})uWrd!^5!(q
zF)8Nn4b=HdeXe?VD(0q5<oYFWk?z`AS7Dus0|!oH_umm9@@&fQ<6uiDX1dyHf?hEp
zLnJ}~j!6Z`S_(+SGr$2ezJS7eyt<9LsuMV$ja>7_NG%*t3$mD-C4JcYTb5Wi@UMAx
zxb`^G#C2ds)5Wh{odJMZH);nAZxY<t`Tv#>{OK+sc(1$DgjnSU{_n-i`W@p@p{sP)
z(~Z*s(W*n9P|)i$dph}FP{p$-TYkp4Z;J{M2J`cjHoL%jmfEHLraHtI5PEcJcN!0r
zH__Cb1&6q;Fv}cWtF3(~{Bkd$$3^TH$DT-Y``_*`jTjWfuZM0(i<$<T-`6UlrZ33P
z7n4r@``aKOG%zYls3qP$-x%1p7lX!(e&a7e=4NFD#^h@UtiFCe^(1KTF@+9*WE%H)
zLO^CZTbJYj&G`^I`mdl$E5MRk@heQ^y*LeYFHEsbhv)zW1(6CPobdQ90X3QH5LYkc
ze6nu}3@Ej$hxSOC1v@{hRq<9NI)(KF7ze{mcsWySBrxnWwl7Xmb94!_F^jc8?Vd>D
zITzDppgB8QePYLJ9zQDb%4pC{4&$q|%c}P+c#GqwTi|B_T44H*#PoP4z$R*4Gk>)f
za<ngv0QSHI;RZW$(`T%AeAmsi;4$_4nA(%LRJ{ZCdPK^wN$_?^#7dBi+wKwi`|B}u
zG)@1Gu04(?iUv3l8nTLE+asWAv*0%egQ|)KTLB_ToXB;!DWKawXjaF%37@$PP&U|M
z`+bpgvJ)@{a@$W`afe4bOaet3mhy9@{T%MA{_OA^bNyglhfsCBzM_XuTMJRthi)i9
zP-Br?TL{oxe`3jOF`zIn+2%CZM_u^}hs=@ksryZO2F{d|4ee9q5XD?W30D@@uvGpH
zqF&){uvZ9$uY-=RwGc$zZNPwDrb#HTEBz~NYb+E~EGaVyKMhwX9-xF^UBf@)A$b{O
zo-C79DO*&&3yo_rq38Tiyw>D|CKv@>!M)K0^KNz8=&3!6&9xbestVORi<n8PGz)GW
z*dxdgCuJ3*v9g_;Oa)oRU&q%pY^ZpxpNJ|ytZN-@^HzLPA&0x&S~FA7CQZvC*8;+j
z<ZwupVJ${mch+@)XH+|f_&ZE|4oNix|Jqw-y1_@3ws**R0Svj4hwQ_j_z-@>b}XTO
z!f~dwUbXXOob#!+XNpJaRjxEj6AA8{LUV<^Tb!yNKVyIk<p*6Jyk|kQA{KlZ58L}1
zmJDroUe?tuwIBeb;Znr8u^Ym3a@~Jia=m_z`n&HMEcz3jM9H@vqDUN`QdE+BR5Z&2
z2IyXO>niJ`OVXFRei%eGU_H-BhUaO1-ILM(;{F31evSb)p7n#sH$8IJY9HN+wo(lv
z74Et?XKXT>4o^jHo`C0Ml0ShfC`PPj=H2kg?x;~aT(pw@mzuH+@ngt$Sh+4Yhs7Y9
zCCci&&}i;oq_1`bhVNNEiwrU05l*^)>+}h#^lZJ4z%`Qtm?LezTD$xy6Y$8R3MLyg
zH0|6yrJtJ_SlNNwnPx#&FsRv6R=w<i#rfsKbe-$#Tlsgl!z1JB{UvnVqMN8g;km+d
zLDjt__aPfr;4`ad?T8z~bA#@I!Qsx4+@l<O6ZFp~VxFnTIlE2F*8wY0v2|uz$U;M$
z-zqm2wI`#Myl^%YQOqy2Wh1UTHi8D^#{SuHI5F@w{&}JG({P74<(QXnN|_kpOlgQt
zx#7ld%Kp7COg09J&x&&_#I~L~pKP;CAmS1WJ2b0Cmm!B&)p%JEi}tLF^`*3OSYJr%
zh5$H~!^S%Tw@gmC=|&YKJSW%T4iadnK2MX5NM86NB_bJ|W}L${Ujd8gnO9u>+*$)P
z^A5_QG&RzH{}9+KZ)%!j7lffmYv>YRm||L`TFh{eLUyR$DD44bTMY6>RTgcgZg<kD
znr!~xnd7;82s+s~hK64F=-}i8t)9<J1e)zxP_2%>^jqn`ZRIKv27QqJ5apOAUCVDU
zK=xL$mLL*2zt>{z53vdhaZMLa(1QwbgBRPPba?Ma2j1Tsy4JNBT@|*DkAxuUM!})z
zSuJYiN<$1s%!#Q}YM>>s@L7x#gXvrxeeGE_G6$CJa@H79OWe7L(6b>nJ8a-UgQlC&
z)a(U6-g8QjD;i+2MwZU1TLbpI)BTrRx0^%vuyg9E59*g5HW5i*TSBWXYi^`TWGt-H
zTf|1xX25S)3D4a#fEL`rcIQmaS_TErm0BA1HUj+USB3QN?ItUYOXyc3lF_JCn$R5X
zWE-V`_43t@Y?TY)A?t129@jZe)Ume(S;e_iL9*-(?_Cg$@2xbL1-z*W@FtUusxbLc
za3gx?WLq|;0jt*ei-`Ct-u-!ubiPwbDYvjcaohCQJ}HfM3)WM4fz-F*9sFgIj%!fq
zUE`g3@OyuDUyt*0jf1JiJ2i|CMYxi~wx>?Cv(Ze68(z<&ZdHtS4c2qHg(Bl_o4fd(
zn}{;UL31FN#ZQ~Bqg@83QIM8YM>qI4@P{6-EvYut#xr&5f{JHYa`o%(R2l)KzYwbd
zjEzM>2mqmkFkH$hm0*$HeOE9`Q2zM_U~)c=Pcz;aDBR85j;_)o%;pvD#hT;VtAGeE
zdZIXGRl?dF)3h=&Z;u;+^~pqbKG}7&EJKoSvPik#fmTSo&*%}l&;N`g3ZFS&55_oF
zTZ9`#Icb-y9-&Vg?_kv4({N&*YdgkI<Q?e9<Nv-pY+|!*lmXKJBmBca?D0ujFw^$r
zVwYtD)?#*$;?wQVu9zkr^D4(MY)QRRe(7?80`5}pjMGk3mD*>m_2x^RwS`PNzK@5H
ziYULBjJRa{(j0|SJ8n(@PCq=2MwoxnSVaI0+!3B@H$otJd+!qg*h}Z{t8zZ49!pn*
z>Vgm0B(TLK0SR!hEXt+zeRL5?$Tx8@{9LsDMnGy0Pw}X_5k~K42=GRZfE2zH?TfU#
zXIc*r73}oV+b$i5nWtQ@%MPIE6h>(EHeRhWGi~u9|Glo)MSu^}Gc4#9Es2Gr2Sv|y
z8yhd3LXK**SfDJEG&^jvwC5Y+8q><Q*cC48X~lN8;J58~^3lX_+dWC&GxjMi17tTg
z*~1pb`T5kmi+T-ZFJ~P&zIz#wKnw~fW{B$%E^gK?qD-Q_D0D1DSNVOV@i1}~y)=_=
z!6#hR_Qxv9r;19t5)M?#d=|M4o3oQkr+h~`Q|O+s=#uJ@CTR5cRSG~fX60easP%1g
z6wwl-WvTYh;sVQTEaIHIyb8DxRbSBWsB0@HX?2J2%+D|!$yd`q>GoDBwZ}lTgwp|<
zei^?M0;yU_5uh?Tl;QSWfXJ}?*}n9WF@N6uG(2^TxBsZq@@N)E(~At{E5BCBDo&+}
zd0Gan%4ci!jt|#WHpp|KZr?i3XHOXP-apqQvJ9;tiJ-Y==&j({9YTpk>^E+$WogKR
zM5I>gsWx$D1-2~+FHL(#126R*Q%~a~UulY*QT)oz6>~b4XdIa<D)GOztZ2#@Gi68S
z5?&T^VEtp<ig23_PzT=$$&$D}ZAm)FMbds)9W89Q++bPq<lU%?q2K$@J+N{x<Aku$
z*YC=0hxCsezxUVWf<vnJE3X*|7rwQ5_v+(^50Bti^`G{1Fbuu_d|0ERW^%cGuF)}y
z{v$~>xqTpXdA*&2rOcpoi31fa^#fDB%!<hnin_1BYC0WjxxQs%nRo1@$)hmAUUQR9
zx-Rd6i=V^1BY<3E%i0o^zKNFfI9T5&VC9<n|K>y`;b(HmAI;enGh1~FA<#1$Mm<X-
z-8Tt$Pq8F5u~xC=x_NIBXEn`eo|+A+y>9+foI+vHoVrxA>fCQu(>8YR175MbDhHcQ
zjQl4BrW!@!(i(bF)!XE)`6|B0qu=H%ZI&|ZS!))9ZG>{leASlnW<go>-IqM+)<GVU
zT?HCEm+Gl7-XymJwq+*C9q3j)=y>3T3ZBcJNx40ulthcwDsKrro#^TC>>c9UV_%QT
zF&ll!B<6ZYYZ>E>j70gCh1s$Yea!}~WWi$f^tb%2i#y9u#gI@dl(xP2X+RQ6t^C~G
z-p2WEw@Z)hS*f7%@g1y2lN>8^r}Y@(32#7^e&Mmxsqeo$HWcJ6i*)y*+oCM^Z{*dT
zr1aAVdA8-T_3VLF8+u>a4C^F0a<qPGfVQi?<43|PUz(oDS!QgA4BIb9L($^#J=Pxl
z(L-25b&rzmA4uZzr9sHf5*xm9nF-Y!Oe#8ZkmJ{D^tx8qF_}DS&MpECnnX%sQf|7k
zZf8+=-w*CJt+>`DMLA<fJjc&F#`Lu+28MYcQ$Z#Y48b`#V8I!Jdq3yb3DS{>gJ*{Y
z#hE57oJu;AzjR|(LvbvUEiw85HSM$HSEXF96-$=avrXkF{;py&Eszl{W`ACGo{Z68
z$(vR5koreT&jd)!=DiIrMWVG^qqqvjQ)cb2hS|0QAH%XEw0*;igc-UjTS6B_iy<MK
z`IEUQ=Tnso<XFTIt`*IF2#D1S$4Qv7-!<eNNBZFGtT5^^512s)mMHS$cCT=QtU*>c
zCGU-<=@yJ?S(i(;zQ3eLpRasAc4w#hx0=`|F~(2CpL{Su{n@P1s^sedp0DW98;7zU
zqs6Oglq%*z9!cm)xig)hhwiEmv|u#fk4l-jw3jSwJzDiICidonNTKU6Nm4;(sk-CD
z=JEXL>16xX0^ZD9vR)ZSvM<;p&3|e$$D;Ui#MmLKy(UiQEtw+j<!QNx7hSH+^=Mqf
zdJk^xanri3$0#O}$qtu{leKV;+WsT!1xNOh8T^Px#yp`yyC*ELciz@~KMDJM)cRv+
z|8>#Z`-Y!GOtw$-*eS2O*mY-jcw13*mFlf6=Z$QmSIOs+>h*wn#amfI>n(ZKn=fF^
zh1x~Nq-7g4c^2{nDTq&WGnfavpMjJWF_I#}A-a0jbY@sMx+$TDQb-m^I4yJ2wg=a=
zdQHQGS|yU}n%zj9)JC-S6_bZ3zmY^r!Jb_FJdtL*7}M4+=alBJ;nf5P&gU=Bcsj+*
z32og<^U%)AZuh(?2t=zRyh2XL%x!}wyHhRM$Y0m=TlX@Y(k7LQyD5A{lz%7^iB=kz
ztk%!5PNnb;p8W0z**_I(!I6S4_ThPaI3j8aLiE;V(jj>{(uRRIq<)6#qpho&d@DWy
zb-D&|un0n`$wiBAtqu{Ac(kXSJ)1GUaXriLlkZ5MTYEr{IEzv&Y<SU7`0sYT{`e^n
zdo0xHY)Q4|Ek<5hw0GKCIRsUS6EyG7uLq$+peT!TN;k2pxY#gsdU0Etq#5JYYc=)F
zh;e^I#=t5+6`}|czLw~DBcQPFEg(S>Ak8k6r2?2(lED%+Me>M}1kWT_iTgF>0Pi}K
zVI)9|r$1{N<UE$pg6L|?VRFc2DKlM*A-iF~h$S$YW`^+lPxI(mE`{uyr#v~@+d|jX
zg8y1YIgp-=9$w4>>5Y77uT*LIGM~C5m;hQ#-3Ch+Ms)1}9+pkMSwS>p0>YRTY1q18
zsWmv4Kljc&*H-zdX~`7(<!>CF@-o3kRq7U_3^grI-zvw|D-yJ^tBa1)aBq)?^aAqE
zbOUABK!;hR@JIc6ZB1Nl>beeoHO4U)5PRcm(hKB$n$sJ>xuC&}A?CXwCja%GXF=c5
zwP8Xo@IHZ4yEAK%;Tq%h_ByqL<!8Lg`;`j%zOL_a*QiZJ4eI30^_yX4h762|Zg;_v
z(yG;=fr#wJpWo&3JTa`#ZHvrWWhNMobg;xn2**gQ1)JK8XV{OmG?XWoF%{vZTHBrr
z`6JY}U{ADO1x+u=$S$c&0>fnMmGa|tvOKsA@PM45xvOPNRBH$SU`Yl*0_-LLB8Wy=
z`hi6)vP;Gc8Pf1os~-=IPJGW-*a7rr2GeQ?*P$MNnQ7jdk{0K+NJ)L;J6)PW!HuT=
z%GKAL_?#_6b87w)<B)gq04LC{vxh3H;aBW1S@XKPJ`A)Jy!PgdABC18CR%OSl$qyb
z%>H+vLwY(ZMzU`a2O`XUn5!SAwzrq*2JB_5uL_`v=1`9-0iqM>YU%~@iF=iR>b?;q
z07_U6H!WrL4N-?c7}{jgVec-pX|=ToeyAn?_8{-@%$o4Vp-=4{-7u(go7z$@YbfRW
zkPr<2iGRE2m?N|4DkLw9q0iQlO)r-;v2EU9!5EJCkgj<qLY|lmeQG3W$bJV*`mqSI
zk@qlf(Mr2}=7Qe}`-Y<tJx`$lYv0Cij(*;_3*o~%IjyShO!70BRT%-~exH0vw)@92
zK;a;oN6nSYNlLZ&-bZGKY0JcD0nF!|JoKUExRl$YwJDN$z}SQ+v}*{nJ~U99(pDw<
zfLP7JgPb6dRWD(Oti`3+??6cp7#}K>0&nd*Ki!n*i*)YEI7b+;F5>=c<1I*#;XjB>
z{U<Pt-7;Va%X(X?O?twDe<55W5(=V!yJ)JB-Uc$+dqFSfFOScR?DixQjM&cZvx;YD
zQPNV_eT9?T<p!RtLh1oX=D+p@WPjW}%yPF~wUA+DN31uj)^3qzfR`+O_7Rv#KHi^P
z{iM5-sB-5y{Zg~iCyz+~tgQ}j;0NZ##gU35jBA9;_0I@vfs<bIPD$nQ0C(_7qC}qb
z`_0#Xat`_BQB~?A=2Zfn&IH|%;`QxDhks7dBqd64{yxu94KvEZ>-aw5?bDn&eO5++
zESUGxqh^=t?tbcuit5o=Fhp}iXVSe*A28HqdD>T{Jb{;Ng#adF$H1~eX5SrCz8kJo
zZMHJK14iys5+^#8hmUBiQuk6G|LaphWr{vm4RMD4IuqrXjnxUs@E-^@>iIod3*dS+
z@6S_wdXatRd%G5qB|0hl<d@Ln8xjLI-W2bXALUIheQ#GFO4Zh!uMy<tk;MTPJdpx@
u+F}4ZBj2h`+=3qZ41DeXlh3EsXd&<MtEHScsNepUA^N8Gs{VNV^nU={dphs{

literal 30356
zcmeFZcT`hb*Dnm#<2grp>;(bKCKyBz5Rh&;3L6MW6P2dYM4BW(fDpjSv4QS{-t>S}
zDN+SOQIBFmRZ4^qf)a?d1Op_75c2KB^FGgc?|0un?!DuF-yL^6dkoEB@3q&OYt8ms
zbI!Hzp0PGt|MRY&Wn^U5gXX{4$;hk@myua{`KLAT9a_@US@>toWlOW);9vL>oNS1J
zf7V?yKaY`-QHYcLlT8@=<|QMuM+W@uxI=ixG(95ah~p)V5k_qV=cj!?-=h?*(K}=N
z=fzbU9lqQMCO_PTQcS+~wm@@u$JWg{wzj0;1ih=oJ$J7c==tAMyYc1c<Hxt{zqjX)
zsMvk8FWN<;4h-KrrR=P%Np@i>AD<OjpEsFdpYK;BOy^MZZIq>C{rkWFO)D_NdkakA
z)bgz=?T2nMHp_HhD9)$L%E+91eOBdsj|Z+Sz$!s{`=InTOvUN_BdaCETtUieNPdr5
zt_z1>kde7SLG{bXT#VX~6}A@cU~m;l=2-f3iwYY^MJ2)tawSZk31~)=t3h=e?i*mc
za^1^CL0*I+YZ=^75?^ft2@&UQtHm7v!-D&)NR+zTDBJBUFkni~2J{b;5umy`cL2z?
z;-;q=*jRBZ02_-6N9Z6FrB60R)LoMm4QP^kplRnrhR-rM#e@t3a~e=V)J4m-?x=km
zW^MN36eU#r5=b!TJ_6Da=aZRJpfw6@2l*j}%7UFAdrlFli)>^Uj!&dA8wviY%y{Ay
z=MN&Itq|<A<kFDySm>Q#FrycD2%c*BgWZoeIkZ10-+h>=$pg_7MuUyIWP8@P-JRwY
zO|58)>KH<i75!Tv$i1Z>Fno}VT{Ay-3y^Qm$p*RI07IcWkk73n{saASn^0f$C3bl|
zx|t}q`Hsjq%4BTiz2JepjoDp`#68z`#Ms)4laaEQYm+^zs7qE*4#EG3XSQ{z@906D
zF{fUmxCL-nYvf!jwO2U!2(Q5R!))SI!xXk?&E-8%<o>$Z;JG#T?&_)-i#xwSorQ(s
zL_j|8fvUoIctYu5gA?Va&P$USiJ#fc<yvH+nUS2H%0STX9!Gp%WcLWx#3>wvmc|~5
zQW~Bsb@NW(OU7Sj@BV{*kGQASNz^=P8@*SSV+9r4Md#mquxYkmVeYGJ>tbzMBxA>!
zpiN~R!OheaFez=_?DOYF4j%|Pm#RfUKW+VP4OOqqvUJ@M5jd`AF_(;VcNTvz5`J%&
z6*)iFs=xM>b(taC>ihAsX@1Tcl2WRVX?=3=T2fr^Zhj~6Ok;LjUvDOuioRHSdksk&
zR0rpdFXgTr21&ZDBDY`Q@zm^<EI4~U=OEorxf3=;Ket%-RWXUVwNB_XE%&u&xy^4-
z$t!{y%d*>kI=<oockATAwey@)_{prto?XNbod*d<hrL$$l~w2=2Etojq*Z+Cnm8cK
zsoeJ6=$*oBDGKe}@j`Cr8GcGyq<a~Xu`ayKa_5Jouf&aYnN$%4NPlKk`E4Ps#s?x@
zJl34{Yd8aDPtGb5Av_>n*tiX*?_6Ff#du|0vHguZ$HUCI^*}<&K(iyI;7$Dq^G{;A
zr=!KS3J)k@0clF`Og0hi+;Te0ULnYfvQ%oe;eaUteY4Q#?3fcmkV*VUe(4fV2Tvni
zEq2P(c*g(feP3aAF)zi0^%T4>$Uw}=ZO}vE!w1g~6Fph&YXaqgh-;MUXv{mMSp>Pk
zZ?Qip@N-{bOkiApul^CTz1GtFzWlzbn1R@O)EZKd;<e|3H6%i0K>XZabWffjTJE|k
z-l{Xx1qiGrZ$88>6!O_7ty9}iyCrS<)UhBk3H64IUYKR>UnDY`^MXXDwfO08=0E6!
z-VxMCZ{9Yij~Z9n%}a+y-Vra>W<Mm5JdULzj1DY_o;N(DZoWz>>l&Fr-KqA;j@H@v
zC;yjl#*rrpbL+!Zz76i?|D}0-55MC=DOXx=e-B2{w2|(|ODiu~9Ox?^4k%O#_@wb5
z>MAM|%PXAAOf%rK?OCUELQ4yfF=&(^-f_QCKH|_gCavA{DCv1u@P=tjhVRRxjY7fe
zG;VeYQk=C$SarNZ6P`koO(SCEu-=BRqfxMEHR`qsV9|Q;;jnw?3YnC=vOa%PU2>WI
z>jWE>2o%Ms4%>b$X4L=D;)h49y!O@$tbRbHciK7KGktHoDfPS#P26CUDcA2WcFZ<#
z=6$L;KAE5NJ;5YE+3U!N%~jrv-V^pq)LcgV<p9e2Pj1m!uk^grt7`lFWAF(9^2&mn
zX<VhiJVOwo38!(#ZnjRaO4rcRn0^=+Sk+rn1Z#K7oSQZ=xhPgg?q9=5*AlZF!9cK1
zvwQzyZv!?P|7MkM=;upzf#ye)rtHS8XP&v2f2XI-z>Cx~#c7UaeOZajNfaJ3?CYi1
z+BA&n&R`7gDJ)J4T_{&5Z<)DiGjgbP;(Ft{ylLf~My7#wo!^F$Jw;K7u{&3(d8B@p
zTS6#X@6X`0ZqF7&GIjjru%B$K=H}TIGWY2$Ef<;IfB-02SrBG%t^rKY3Z1)!P=2|C
znPwtfL~*(;n^{zi^7>M5VU+mY6juFgUb_b^sIZ4~2lIoF=;pZlD%X|-ivf_>zLHai
zi8iUobD<v?iBANV0cD~%5Q;J9E)iqV4a5n%`m(o<_`$&|Eibm^fK9rs3lg@a#%_lf
zh;3eBGudon^qydMde;Vw%6Gw6y)<-F>taAQUUYip@YzcIi=~IP-?k()I&@83#`t&e
zsNTHLa<562T&eu(3?e4_GG)sK6zZntI?;*o+?ZJdWTRX9{RLP#cC;uJ$sCg(dW622
zYo;PNN7?;yF8Csa`mTZAo4+(vmdyXinVJ`kb7s5--5Z;ODXmIzzS%vt^Frfk-4|}{
zU8}+9eh*<h7*^7s?Pky4JfZYwvljVM4mRLw|AtTEmWV2y3F`RKf39o*w*=6z*@+M1
z5chm}1`a1{CHt7hbqWM5JVo*FZ|;f=A4cNIUU#d-%=-+Rosab>A2n97vKB>(S%kOx
zT4)5B(LXKBnf%t}$D=-6Mp4A}%cWh*&E~07ktoL+Oh*aZ-p8(HvN8w-8M8k0SGlF5
znqX`0fq<R=;1$H!8cTP}ovXj60l3_DvLGkT0M{iD^!IjE3vbPfExxY-;|m6`xJg#9
z>+?WM`~g=iMlB8NJXyw2AWWOSYHDu{)}gs)YTc`){@$6bTvu+BZkX3zMr)fQkPeQe
zHSWhMmAE?P`)VW07Tm%(_MF%VMW4a44#YoKz>*wV*z9XxHj>Zy=@p+hz;Ct_>rBU(
zi}l^M7uRFHRkVxWf$2bm@O6Eqe`94=Qw(fcPWA&4Co%M$lzPDZ>kB*qaDQHi30bts
zd4bBt=PwM@x@Y52!srfOelCA^t$dyp?y&p)Z`Jw?{sozf4`4vka+&V~Mr*ubq<lTD
zL(`afF;j^jj0mQ@|5ND2^Xs6g2##5_II~WkoDbGq^p9NI<5z^g8Mr$UNY9H3jdq2c
zj!>(;#=ZmC{%M-3*AbR2$R-Rlk2&S9YSysk5{R=QAD5fFg*W|bluVyAGUf;PFVkky
zl?C&$Vd)`(9lS*3-Vl`s?upFLU{kUuYh%22AuJXQKNx_;dQG21?icl|2+W~;!~oI@
zxZq>`aVyA9WZD!}G$!4=Iv4}npE=j~owF`565uDAgl?F@kY@ZQpU>E{-kY>W`esLN
z&%b4w?!_aOf$Li2tk?C|w{`JPV{$G`v*wu_7x^TU)?MD`8Tm88=M&K<%P%eR1$zgb
z(>H}sjhjyr{2dbMd%Wsz_^sJp>pp8t;Y@%hO&FJwgXZ=70k`zg=rRd%Oe(bgTK;G(
ztv3PfoXRAwi4V55=<e;hEVth&_f`<<mg9=y%fyjuryv`i{_qp8U9v$^5K=6E-H@tz
zvWD8Y1Tzb@mQ)P67<Vn>H5WK~q80!2{}1jWcge&)3&dMIao|_;8|+pz*UO(;Kl&UH
z<_-O$umd*kDr9k1m|0R?Dsf_4o@U?c6H(~jwWgpb{CnPT%A)*U9@+(}ZO>UcK~G&w
zKg2^{h2HeUEZ#K;2oKm02~XkOZ!N#bsCl_tq|R}h*Ag3y$#eFB-A4-iYu%M2PD3l9
zA)^!GZ8?Snk^$Kb>{NQXd>iS`C{4#DejZ9>c7S0ZcPygUP?>!4-N&3)(Me2_tk>}4
z&p{``{h+wKs93G{nxGqz9CzO*f5>5`Uv|tSiRp{v=;T~zFYCAjGdouEobk*C8JS;a
zi-={e9JfQTfo=@5PW=T<AeOCi&t_H-3pZKYpuHhKR>X5maSaw+7pRn}rNwVTx<78x
zRX!&;OK~dEu-JLNc8h4wSY1%ER{ppL!AOg&h-5AG6A!aK5=Xw0h;!Ux-;l6%LJm>j
zRcpO&lTtDl7j8~@SlRz9s#-ixESq)L&kS6S39?xyoNVVKuIK>~mnoR&OVCQfbgI^c
z<u8D{Ik&KV&HbJoE$9mr+y@L{DVoB$(gQdF`be_M$LWWy?-m9#m{R8s3&(%|Dt9PJ
zk!~usdGGRXW0cR04y}|?yYye~N&fr2{HMF!v95&YWl3_VI*nfzJ`h>KEh)4qY=$lW
zkT(pI!k{kYIxTVlSPG&qK&CboPS95SDf*S+Y;MERD;BMI%B_T7WLoxBpa&ITi6)v_
zSL9uA%i1(v-B(0pX|j2X3O>E~`+Xc`!6|67MC7c&encG>-U<nX@ZKjPJfWV0TBj|S
zWp2Y_Jt8vRD%%^d-)=Thmyx;uJM6EnP$q%0(*80~U^vRpqbh7my-CPO^PB@XR%kKt
z8rsX^J&r+q+~{u2c{1NpwDfHA*QqG~N6h1Wi+yb)FC|k|v$e6%A~0_NT?PGJX;%{l
zKP%aH_Q}o-Q4#X_51KMT^rxQ|oE$@aD!!k-%}M)M1||&8?B>h=AmYJBc>8AWW^df2
zL7wPa+zbu*8PG3noUl^9<^^dyI1?kB{FX-4$89IXIVQMgeGIlqpAD9kIp-<a_HC|t
zKmER41E|xlJU+Y;KZ)1$@?^cSYpNHI6F0W#sR#lgr!n?iJ3E=F4MwMWx<Xxu0k8MG
zT61m^upLqNEYe78VgHG^y1N4#z-29R9T-huE&}jA@;J2K>`IWy<lt0vr+og<%V}q1
zm!JYLQyF;v)Z|yc?8)FJ%-i9EV|7baixF|{!+(}lK4+^oV<4y8jGM*wS#z+nBzU%(
zv<ixgO19?>jm(Sy;w0uf;u*n7u%@`M!F?gz&5<8V^qXG<sE(nvY4$$%OP7Os^WEj0
zW`>4x9<oPy6+RGFSrAQ$c)8E(>Vr!r*9Nr62MJ3)6u%iguqg>0SbGj=O}EMPv+E3X
zb=NK8F_IR=N;7HPs3vCxKUYZGZaC+(;2(ZOztE>$qx8Pz{5+DW2!yolOUu&H{B(JC
z3b+1f?O;p*WTPB$C7V^%y{v<eml*ko?@CDb?P70gP5xP0DTRLXW}u3b*Rq;&ZtBE~
zj4bX}QH~$4EBBVAXfOt4ajv_Voj~xX=dhnlY;>dNn`(pc3KfmE`Bw^P)QHY9bA5i}
zBCoA?t<UHzwl7$C+q7{yeVO(BUTH<bjx%A1h0nd``<72aQB8U5j#LG3Xhzt#ypoXN
zV9!q@M%-y|HGX0Pa+izRvw8aLPE1Xi1@~22bURSDzcJ`C^;<=em8)npKZ+#iA0Q2e
zIZra;6zviP7dn=)3;O+5<E9$(2dGy!cjaI@NJh%#GbY2yMOyGecEmP`f)i@C4>sp@
zX~L3x*d{r5NoDD_D@~U&D?4pf9W5rtUJ9jTG-dvSHAK8N8-dK(<pc~Myoh5~l;6va
z&$y>)6@@xhPbUtvjHcK59QdH&V*E!jJ;(lZQt9)g68rHz(H$8Egbm?7cBh*qjB!E?
z9I9+C_K2*~SI-or8n)#_OMw;#jy$k=wrms<(kWmgsl)e(EWEhgO=bIhL9G@!vv0ZB
z?sa~nUFoYnWKKd^87~HHP1kYln#f1)J<p1Q7vmGL#ScNYAMX_%n|xE@85U1(E2^1{
zry1XfaD?o&<fBbZymGx+3*5(78TCWj*Q}vhFWp?67o}jVGqf=PGPUAnAQgj%1_?!!
zm=~?z4BcE3Bb*cPagM_146U*Dywt`Tb|N=xzTPB&uSKb@?`D0#ceDcn3&<GFpHe|G
zeoX<nnSjuTCkpEUy1J(Q#)jAPf_AfZz{{Ev=c*;Yt6gCo?!;o;-OR&WVV%$KiA3a9
zgMhB}?;)+eV?N>}{9v<k<C{NG_NTo&fr$1De5mZ?VEdggjrLiD!mL{c?v5U~j%LWp
z4a{}zISWMKA`{vh4wEfE#uVL{DypExhc8v9uFvalAE-U)<Zf-nnVNlcRh(HT)SqhN
znLZk3Rcc2@un!Db7cA5%hMvt`<*z+qyjYDH;<OJe-)WB?`7jk#+CE*tUO7H3q+b;V
zK|^I`bT<T^WIMU!>j>i(FB8|qh^q;B9|vKWJU9FoM{J4ud_;(Qakdr5Z($-;R9-@z
z+Jm(J*q&>}=?>T{N}t!41V6{WT4i1fOu*Z8PG4!Ldv!re{&aswkML#t8iUYF%(srI
zbYT_4?>FaG`C=_jW@V%LG2=azImWEbkE{(wN(}Q4YRk|2YZdgYhmo8?eCPWK_LyF3
zWAM4!PN(Le&ac<!?-4hSXxFjKKX!io;%paVVt`KpcYgTvt^F!ZXF?%QrSkfxIhH>|
zbAig6`-uB<c4)Mz*pHT%s_-p3J1r6vlzSn@{1z4bv<z>PHw$}bbSFk1+NmIA7p*8)
zCJi#faJS!?7V&1N9*m>CuEoFL6}t*}uGzymh19(EH^TIJarxNY2~l+2qh-|M?v*Xj
zD8f&s<-~K!w8JV4D+2{p5{42tDbD}mrCvM`ZNKno-71_QV&T)ls;@_Lx|%ABT3Z*8
zJtf+IRBXPYb~cnXUrO9~1H>QDry}cE9UcAow@%N!P#-fGIOw%uL?wUKM{u1}GlW~l
z5AN)vrvCh-^BwZl*I;B%@X*J;E}H#{*X~ZHSXyml6wc!Jp|%;<DQrjywlo#nJ}_K@
zxmj1&oKQ>{O5>6m%n(6on}*A5QdxD$oxu$(En{G8A>5@eER%6Ip*AeQaF5rjr8=Y@
zeb>9(1U-w)+@Zr7NPEJ3g_pOPm>;PqZiqBe8AEvC^7(O&bDBTYVx3Jwr?LA=Q1HZ~
zk~sA(*)cm16kKE1lrH0+sfyF}7q)+F4$kn9Id@h9^G_HdDsvRYm95J(XvwmAdC+90
z_qIpoF%B<HME6=eulHxu%$+MLsq05ecU3G^^=9_u-XhJt$n!q`ev6!*vH(q?Rx?}z
zXb7@3h7!8slLp^+Y61*2U)P?M%zTB!yb4<!5Y!8h#*-$6kxM7Cd4_sU4XRkV)(u69
z%@^#0PC<;~e%3Hhglqc9mcJ^(TgZIpwnw*UI<a1E4-LSf7rqDSgc|UQ6dQuhPz#0M
zWJ4QJQ{i)km5vryBJ3v_D-HIGn==RGOzIT~%u`4upi$S$;2zA+uIZkfr9C+=#VDhM
z&d^U&cmrgQdx*cwg6|umTxWmSLfM?S^}hVHdk<_Qk`&+=Z}~rB`m2|V=M~2W1XmYd
zO&Hs-fq6srw!Tq~JN{EneWUR?*!<9FJ>};a4H=)#2<da(frowERXzz%qv&`-29b-M
zu|?{s(A1O<OwCtnZ{p4ChdO!cj?8TTgk90sg$;1d96&0omlf8ATAZs<CqFdii5Zi@
z;>qAHVx3iUwwAlE2EA3}OXZn4Bslf=PW8^T$1I9UXA;U3H7K)EQ!stOIBO{1O67Y7
zE+7OpfGnc#0T^BIi+Nd@Xw<U6Xi<AoVjf=@csck(OIVbsQ$Ro1=stx>9^EzVPLNDi
z8J_InA{4=>c8cXVVN9u{RU&$-ai5yInykxhx9{m(pih1qNF72^lIq#|E)6&Px2CRl
zV#UYKe22kMIq`99^0O#BN!udAk<!ruG1D=Vf$0N&RqQ-FKfAn(=8zmVpgCyaJE7hB
z<Y8)7p9j5wJXh3u(tcT;vx?q@5*?W83~tVDNbu)8@MM(dx!JkJ_`#@8>t2;d&)&&S
z9f|(uYe&AME{%W_G~1PwkdSfuGN0JJIMK(0cPyqkZW1$)DVL*eBRG3XBfZ~W>9jqo
z?k?t6nKlSUl{@+_^^MLT^~NUj2B*r3D`GT1n}m_}HU>SZ4u+bG`fYYplwe?xWS#1E
zv61NiXh8p{&3iiQ6&<L&?nVz;ZBw8a)9t~y2gD=~oC#qYy=(|AF*V^=?IYvtnr<vl
z42k?E<O&tVoFNNWgC5J?4q19?&B$ZWEqN0Wf3z{XZD_PJGw{pO<hLjDHTF<UQNNg#
zfoBveW~YBfEr#dx);YoUhvf1YO%FZI7gLP}QQoY_GkP~7N^Q&fZkr@@ZrKy6bOfkm
z@lW9?y*sH9ietN1!nS<w+HuP7#r$7wc_xknses(%U^KdV=2D~TvsG@|NIgd3T%t)p
z$Y6HiVuPReN!D5wfi<<ME+<(0Vi0>QAxvCeOs76;SD+O(M^Hkxl<lZ!jBefO#dv~A
zBNl3VYZ)59eYrc0*@)a<P)nXZFt8QLns@}5mM(JJhA^rRA8O&Ul(L5R=Nama7&a9z
z7ZE>Hic^`3SH(KUlTCSp*Z|6rpA*2HGB5Ux6@O`U5|&vD4nLt87U5&g@R`~;kC%-?
zqTqse_GrgWBd7v1RHvjqP4DY`nyQdW@`bkNJ{ZaX(Vhvq*`FNwj;W36XLB=pZbBqD
zjwJuA6I0C9%X5)CXcyfqXO$}cPAS!8Mbk!tkyLgQvgbfZX(P%mZ+%^95uc>kRn}QR
zojj3c1}&kg%iNDHzbw@qCT<!G%bJ@cQaRT_lQdk@2D2H)(M~Dw%7w!krqd0-o@cce
zEipm@(j8iacZeIGXd5RL_XyYciC*{R-U1s3r_@?E3=G?C2seGa%qpnNNFT6`#bj#b
zPcIS=zZ{J<nOXLLwqr}WLhY(Kw#Xb`Ty?OocTh$DOnTokJ#yO8;#{A8m*@nI8mch$
zyUEzNBLBECukoO$Yi<tLJMq0cwmzmmrxUjJ41@GstLxpx(;&zz?#FdZ36odG>+l=>
zcdVWFEoM~LKVm&@chhd@pXThC7iNH*h}yr+rZc8pBgHIJ#VItfbK1NUTuqX*+<BeH
zCbqESf#lp<e)4@)h6hGaP^SH92e)(8b?Re?6B=aW{9EVZWjXJVdYZy?qVLb8D194v
z6BAi2!mg=$VN2Pflnm5qS3b3^HOn{R(Cl6_x;(=uw`(0k-9F{aq!;7ijlkOm`xW8^
zu+w7Q&{=*#t!kxg?@;>d(4mIGn3-4>_M9Wzd8bi6h96ArCq_h3Iz|Gm^p)H#1&9A|
zGB>7rKvAk*ioJ&Roo|DYIUZBv2eRhBjXV3q5hrv4t=8=|P3F2)?emJKrV?#)F#(Uz
zm{%V5ZVWxAF3t@gsB2cqze8uT+F){S$M}UAUO6Cs#5IZVp{(`T4hSxWlInF&PcU9e
zSzdnY*Ue!SMgfWFfcDH}EOgd0tcc*YA1y0$agW~ll`<FgBd;xlzuO|5{X&#eiU-kx
zEkaqDWA_&pDLdgkXJ|r^Vpsa>7f$&@7uibofdvbB$az_rSmhIN%%lZ9|L5el*XtB9
zwZytx4GJmDq;)*W!*^TO!|$5e6e`9XdF8=AZ#<mFyhTj^$<651s6@U0cV8_(=~`9z
zLR)*-KS_paLD!<7Hv|%byb-LKvGsO@<JWbnWUK0-R3;M;+T^862?{Y(t-Kz<=lZyM
z^&<qQQFWc%Lg1iEzn|o3tQULhgwmi%qbmP}?3h8@ht1Q5lKU+c)xMN1zhqwHwSsP$
zOh-_?xTeIi!qO?V5;8jAmCL4FWlYrJ-Zylt%9c*OrDFa@`<;sIc~)<_Um(cT241M5
z6aR{jBNP-`z3}B*D7@_OaDc$Y`{aO|9*7HJn`rT4O#+N-iihq#<ZY5XzLE*gtwrnF
zc}mDHU_}Jv-ZjvC339HF9zH_u&<O}lhIgNt@{^-`a4HeDX?1lp1jx>2J_Dl%kKtrw
zy0_U_bE|x@f9$0y{|=@${YNc;J_0Ll{<W>k9x@6Y%)Iix8V*D=`+c#iV&Afo+T-g>
ze(CkOb3nUxS^*V$?Wa~&mR_XuSMG;(JS7>KZ8s10EHV0eTs8#p=DSarw#}ElK_tIP
zGd7kXeDEuEN(;qN-qUh#)oNpSUF$<|i4%^z&fD04D`hs^YGOp}_Q_PFy`xM2F=v=Q
zguDv*zWdS_|EdqCd)RI7tqo_YT*3ytz=f!D{kqmrGKr}?aP7_dwTZ4(*7{>am*BTs
z@A~b6Q`nsEu4&B2eT%wCcdyBsw;9>efgs61P6+*)r!`>~>%vv^SHO$B?ctjZhHB1%
zbz@ZxniWdRvvHZR+aaJU{GE2ifOk5oL4LpRm0WZ;oDRQGcvs(Xf<r1@aKmg?ILcz>
z^L>kPO{H^Y?2Qt3lmkD7w{jTu{ia0EveIlUihK8}=uO|~3ovZ@LnqHs6yK%ScU;o)
zN#-ijDE2Jn&p9x)i}eR!YLR-A7YFLv?0krGfEFB6m6Rh+LS{~FeuSl?Aj?og575W&
zYlIW<Fu{i~v+)d9a0AGtx38I$`#Koo1MP=~AZ7v-rAr<JIMY4jb9RBllHHJun#bu`
z>vy+7o;i0$k;b>$nVAl>DhuXJW}e%m#_@@Fgwjr{9&IEMFustPG92{i2Lr9R#foFY
z1g1MgIzS#J_(M!M=7-|mCO(G61in@bBVRtfuqZgcX!AjO<KjK(aIrO;;0zIbRS{ue
z0$)#_!N6N`9a8?U3Jfe@8v<Y5b}QT@zp+XG?&5!KEexa0lp`)d9r<*rSYGtq2n&oM
zA<BUK5RA9vem%;Otn;yzs~!>-NB~QvPM7=`tjP?-N|#@E^Q?7ijYQ|`;n1A^9&(Xy
znACn=QIh3&&LlJ4S^kCx$UDJ)<p>O<ph8DVUXw^PAv6$T0RyU%s2RzR;SIv}z6fx)
z;Z^~DD)b+MZ+zCKVP#wIde9_=c@k7iWQHPN1+_MTO({$s(25XTgW6PvS_9>*xX+Kw
zU2n-LHv6n&HGCG1oO_P?VsmA&2>rd}gtbImAmsXPIGz068`7|8*nGdeA9PE37K~y%
zMx)&IXW|b#(sEsT<WUX#*T39P{su-H%*0C^*^1$bG*BQX#K6TM=*>0F)@aUEaT-uo
zlB5La8<1lF!OSh8pw>|-y~^j!jO@)uRWdD)es|4GI&%Qe<2>G^uC}%I*{%6ntA_pe
z-#<q7$RFC8U?Fgh9h)iuV)SRMk6hspTi{%U=B8P7MZMeyy&`kSEbmr5T}-BFlY{#f
zTM1En$hS97(mo*f|DOJG<Ir`a_<CdR^_p10fDy<W#&M=!v?@yMU1{BTTGT?ZI|@3q
zW((a2tQn4++8xq;e3adPF7w*!b#<fhhPvhg-pyES|2W8<jWacB;4}%VgjyBFWlaV?
zSrOh^-_yJ&Xhxvox8Kb?Yw2O>VeY5H`W&6crYpOwU3z3>Ht!vAjq-+~4w97sK@VUC
zL|8%!^^~RH>gOqEvehlPd3Od45XvKs)lYe`5rbF;9`ol$Gb@Qz<kdFQ*M-Mb(8FkB
zUK+T8?*>O?RWd{D*e^%peX$-NBBwo+(tS)D7#G=ZXO`x=IIBpHfPtW95&HY*I2*VJ
zLk?-qKvHhBc?98ipY{-jsh+Jw+s4)f4LA(~b4z8#aF{gG)ny|nqO}p0{ELjG)+Nun
zg=PY8$j?DSn8T8`Eg|c|X@1_4xIKL3S^kGjf$N^GdtDR*2lMFbBu_3*NR)y4SJ~4=
zU#(M8cl@t%r+-_c|Bu%~Vi0-<_mO$vSwIj0$>-CgJiPcq^9DBf{A1>Mu+$uV5>i6c
z<z8q8$a{OHc1ajn{t0%rK{o*vr?$0=MCU{%gRtZWxkgSi4v~|gD6QxqNvmV4ZWCrd
z0c#!G;GJdTezNwszwkK3=^B8&?Qr)wsUeK*-!vQV&ae8}r=JLyn@!b6FJFXE&~zem
zFQ{wHZ7LPTz%?Ihgi<3|^(Yp*l=Z24nUJQ{HFZIJ0)lIH0;o045R5C=xze)e=Kt!H
zQR+HX+e_4c=_h)KAB?o8E^7Z1Dm;hl>5{JNxK15}+UF0<&6X~-Emke$lrESZ%C(=X
z!dv`A|8wmMoMS@qt}DODB&Dk;*NLkPKRn_9br%OSFHUZ-s_2pY9i&osZ7>tgR>9W!
zyX#}-B^dR9rBk-vZ%P+v!m3ao>f+g7rm0aRQ}V|3wSq@?Xe;47Dj#r94O7`QKSgYQ
zxG0)=^RdPW>dA-g96be%V(1s_kvT??K$HvKD~E4FOPB;LmU0BTx=EKD0OQJpHBEVs
zhu5=2a018sG@VWG>;jVYy0^g^O9RMB&Vi||M&p{W3A>RIIaydYRob9yDQGZjX^09)
zS9|EUNVK;mx3{-%LyDUvzJ9avh(dFW4R`RWC<Rc-yY-B2k~$EJEhCnx@hY6Di-i)L
z$#S&Z91pGw4+<<WhQoPbL&2@2<%P2BFuiTe2il$Q18V#5Ssm!g9&5wu<unt~d=I8o
z0Sg-{xM*$+;Wvs6gt8r`Xb1rs>KG^Ln~)v*7B!KWh0f}I<c5Z5lc%ptq^9K%027l6
z#D$7THkA3F%@6|>gJC!dswX<jQw(HV*1b62+6YA<yza&2-g-sY{Yna6)K07zCcivP
zRtgi5K!~plS0a9a!zr7Fn~asG@nII9aF!H@HO=PSwT^TeVLF*v3Wn^K2<SOd`zu5J
zZ0ns7xXVySLk*nvZS;qsWihlnWdI2yYRR6X{ik8F!G3ZW7;nKXj_4KIQVNFG0(Bw3
zilii8cn?2sI5c+pD#w!B0^n2z_LFZy{th$E2<6^JH8PgqVw#vGZF)Z~78~gexwuK{
z9pM0r_g}E>-<a!v1b-Ihtr&(=oB6MJ(pB8?r0^JT0Bm~9gn@*0Md-;H=~|!3nb=rM
zQ`U!T%AkxC<_nLbQiv?$s~&~F2A6y;)%el0p^S9qb}-(m0(G)g`qrL~)g&hbjI0j9
z62P1<#nXTYcgP(fxD2)Gg}X=wjP)v>c(M==xPx3AvPWlk;-={^qeJ9@z8Wf`&go67
z6w#m4eWwrc>VZ~Zz=Ui9#!n5_IzrfdE5<c6q=GoF^X><bSJNk?sD3U57*^aRAYDa}
z1DH+@#+-r55OpSGd1wf?0xu=&N+Z~HTR0^t)qO&IQcD{Lhg0F{!f?-&d=Cth`s*hs
zICoS^p8lO4Gie{#4EP`fWq{lcT$yy0E?lvb<)|ZbFfjxz7JJ!M*p$RXg1Y8#65b|c
zhIWwb1%{<q>21Hg6;#Y%PJqj1kPk3$h#)r#XGmpYPX%T?{d^jXH%Hq-2kpkGuFf;U
z0H_vG7X-Dc=pQ040;cBNkAR^{UAbyQk!r*4-4HV$RELX!DF;}a2`&(G5a`Oh&?Q~K
zQ~49I*i%p(j36ji=rQ2V+qB?7=qADcG4l`@eYU65#_n`^*zVzLrYaLez`ZajdN`eF
z35Go%Xbylz?K?~A?n;Sz9$1ih$o}-yav9OKjvk2OvH>O3&P;>n*&!uC4NrzqRD#{O
zBAX=#k@BWkG(r@DEJv75W3EnB5G}RBVI%H@cY_p{RH5u;IU4A$f6U1v?GI*TZ93OU
zZ9ieyw@Dr$2&Z=Ct3-H1=?yiFT3$y&d>rQDpeS{60O9K%$#lw(>TI12dv3F{MEH0J
zzlvQjXr%L|9Ci@F)ywyRxbdu4Gl#&eL?)LgxT^=(E)x$+@`P~3YTD1?&8f^FI2irm
z^i;q8i&r(<ihV*$#1WHbW5bV`)!=gVqF~laeT05w%sU*_KCl!!`C|RtPh}Pn!|5;p
zUjI^?tY0U5e@#YaN4^enrM+%OnAxstIH=M-Z;z+oLOM6*&#@4c*m{z)wO5y6iC&1+
zqNzkMS1oF-qap;>NnLu(<Z4)%M7yr~=nvNV;m=$Y_LVMxO`oHVdMS<|jH^EL-hJK*
z#%D^L)xZ%kZk0@|LCj-jKo9%3n<gn*c*QnqIz)<q;}qR5!1(D(@l)i}uXe$qYvTHR
zo(=utTNv&F&B563UD*V3S4y)GTjH+wWV*g|!8n~`Q4(Waaf<SL|Lwv3WBTp`$DBvQ
zvVl4do|7&dVwp%FcwqfRo(r0+42K+G?0AAr0ASFHsbNG5efeIVQ~f1vUdgUW-*IV^
zyIzV#oa~tzTHqjl=fDEhJ-bb#*=T1JilGAPGNR_Dn}lo+4)the%(8%dt?aW9An#Wa
zynlY7@3&Q23dwGfzJV`4-}zJ6U-7}Ar9qWkT(lq$MWNqEYM569R4>aRd;X!OSL+$J
zVc2jjv9b8VS?`LTH5o34P)8ADu@&0m<jh0*tF=lQEK{+dhyCt-6Tgu&R*(~)7N#d*
z^#;?WStHSejgrf?#|Eqn40l{l<Js|awcg6Ch37^yzBcJ$dZ)w2Q+>uug78z_V_149
zl{A;h+3k_=&d=K$u~spBgfvN7C<*F#Cm&?=a%A5EHAY0$7fx5^)7K*k;K&Gpxe*+8
zI>gU3Yn*AAoH2YdZ5J9yU3`)dch-}K4eJT7mqP8TQ?R68a-9<ECq(9ll+^O~(?1)l
zk=-y!*<mw`sAD1+6N%~mREdbj*7#n%cV}gNzecuMBl{6rf2d&QhOAJD$XqfJ)~1=k
zQ6d=nZ=&}8G)%AW56UuYbgu7LiRdYRJJ~HOZ1B<1OO+gvkx|2-9*)o}{6wV@z3CGd
z7=Ju%QqwJaKYM(!Z0)ou49_w?{2)$kD{3{V`TcZ9pRPH2>d`_yi|AUUw_X^2GXQ^(
zY+1Y@u(~bLd>OUla6=dqSywN^r6xL_jcY?nVjAIYy~MhbA};v4Z)T5~&4QC`^%1?e
z02s!sUyvTLxOo1G>d1`Z`NcngxL<8qSOSSO#Twl;DFqTO72OUkI6Rco5WQ>%VS#}>
zvw;!<Ntv7sE58c4Oa7nDdUumxI3x$3#8{YfcWBdrk5ZtWAO=`5ni0vc=Du442XNu5
zT<wU?4LvZ>hI<RhPN~Gl0c-QEXovNNM5b`8eNt-N56i)o;b4Uc*%GerVtxYj_y;hU
z>YxNb14KK&!ArW4Ikzn><BzAbw_yD9BoyTD1|RxpJn1fdH16vn8&sRVzxT%p5|<wP
zBhvea_x`sLo!*z@BlNxGn}i`f@}0Q?{@rgOQfGB>!q;F#L<f{W?vssEzx+6Pa;KNM
zWqp|?ckF>8`#;Epxu`>Cgo>8#13@-$wQRGsR!?`ZbhLsaTW6bK7R!S?n~J8VHPYFC
zeOidzwPEr?40x+S+RB3pYZr#P_-uW()b1Wrg8Ar#Eny6tNtZU5ht*H0<T{nE+l!Fi
zz{CAU=lS8qcLrBUZahhV4OWn{Apfdp6x0nYaFw>Y3b#U#l~e>#5Drd5L2<gDbfph4
z5+5;IT%%hUJ$#6K8;+Xjo02<D*33P>vnbVvawcrO6|+212{X>h`UOutq_1^9Bf}Ms
zk}Ks&-s#!E{xgQszkV$&jOEwd8I;a$SqX<#L|C5xbYE=fv-bRk-Co<T$*v|A*ydFH
zz85O61=iFS1k34Zz60JVo7{C-&;GI*HE*`9@h%mA*YC_1$Fkrz>-BzHop@^CvrOEZ
z&(AU9f-FYwuiB064xyo;F(zF-T_n1Q=NuH;?ARlknXG+clXpc*#=njUIqIBx6J@5N
zZ%lq8;c8$ejenp|UyYn*Er5U?oxen0%~4@C(40FA<j>pkUjm#7qEa%Gu$BKqA)Y(x
zpL!FGjQ{gcT!UU{q4*V`7eWcL)N;J^L%`m-Im&Vz?(M%u#g@kCl8=Ktumb<Mb=sUe
zX)P!R<Vp)Pq*QHwS`^FQo4WprhB-F{a9a5G5@R{mqxzT1{8pekf<IljbOSIHMh$I!
z#{IVSFY5L=Y@N+=P<21dX_`<^pxLQ1%KrEPkF0JLtr&h|IYvwV^sfHrMd_*^)-3ut
zJm^rO(}vlX)z7$IfA1x_#9<ij#nn|2n_wp>{`;dWCsotP*jD2*hvkq{cxg{5KRK=@
zDIG}cvaT?jSiEdDtC-0=^~~Tet&xSPa!Y1Dw~oL=96<l-<N9LANT1BNtQDPtP=D_l
zK~7E0G~@pc$C1$}h;A8bk_<=FIBnD9PjFmKNp)JPWG%lHXpPVxGjoBUgY+5($w0+N
z_Y(@LRnb=_cmDjtS{&Y3^lLc569>WNdN_y*47@y+NwZtkV5Te}bpDXc9o<D~gD?e7
zA?j0h?QISF-WoNG56&=@ym`N~u(|_3Vvh5@TW6E#S<K13YCgL~7^p9^;zvL@C1>(4
z!QKH~+WpFKg6ICuqfK_{IvCc`AWrkDf^$Z2_}B&JxQJlo*xiX$z2ed9@_4{^Thb_H
zbzt!qed%m26v4b+a@c(NXEo_sE_&X(^LZePStP53xl*{)HWd70Yjg32<JMUdV^L;#
zfGY$S!>W+8GHJsp%p3O>HSYzQqmSL&pTS6B&P<pV(31xC=Ws6Isf#tLWW0R`DBu-8
zSwC4B1D#A`|8@%A0D2@C_z{MDe!}m(BTrcRW5Qa-!5{8b@)YjMw<lBPD)!91x%>w=
zvk?QmAu2LoOJFKjuI!Hi;kq2s9&#l_GI^Um92~+2f~>iw5a|$kj$mYR>U-}t7F?hD
zHbBue7^lWqhELN~<W0moFzdHmTBuPEHA!UF-s#DF8tw^o>Co53{w#8WM$_59-L^L8
zj^!E3_KqtePkd0_@L=ca<h<`jhV*NuGE&=DqXI{Q_Y*Q8raW9T?rC;XRM?XQ#AGlt
zL6f8}=AW{a1vH=xW!NtuZ4tShKkgitd-NVZ?dQQiF2n)nE5l|6cSnAGYJ4!E!cx5s
z=;`Ufg5NB!2f8cLwLuA{c<$!<_Q;oxm*Z)E=(a<(z}vW=Wi<|4vr_?Vvyfhi_SzbB
zGA($a&&j7J4+Xx+-ZuOCyMYn;9vn106u0{$Tj{N9)VH^w4<4HKuhN#8?`7^L^+<|C
z<?NykeiwqnjEgaoyb=Iw$t?mjrk3z$A$xnHwK>x(cP<^6c?&zn`&vzA{<XtT;}p{{
zo%;C`fog4q`B?^Y$LlqGGDFX9Fe-0s&NYN_%3PrhzGxy)rgwayEC#RZ|EW7fFKIfo
z4CmSjgSxy1*<Z<xF!mz}I)Vc0<=fC)vWidS;PnQXfDiLFX3=)4*~8~F?)c!K<opy%
z_LnW!IedGo&*e3*qNM_Os5hjgq0vDxKjJV>U<>8g?Ix!KF^?}t=fvsu?Ue}i6MWi+
z@HT?maN!HLBOX5Y2yOI3@aBB?BW5u;oJhv0OB%&0UojZLn-@kM_h`J*59jKP;ZS>+
zG7SF@+Gj+SPEe)NzvB{W&F^t4f{PQ2X7ZD*2R<b-Gk`crg&-W8&;@Ze+ofvM8|Zjy
zCgbt)>-U9#5E1bkM6jq0vfOyh8a5>vkKpasveUTrB`Nub&0vjluAD!N_JIh5p>wwG
zgMkKQoMg*#Q=TowCWl|chA;U`9v~(%*Mosq%9U~^-)-3|wY@Dj;AaWenxYe?HOd1i
zp7!^09Hsr9y8&BJOVz7VvSUq3uKWO6GHMV1s{~PDk#z;{5n#Wyx;mw-Z^%TlD#wap
zV;GGjPu?56U`3bJ`f)Gi59tt3o)sC~;LmR{`($#2Y-v#|#zHoTIwNujbdq3XK;CZ=
z+R5&f`r3;!5`$}lrUK&Oy5&Upv?;fE^<)#0d>yVI-uKmbKYZ#`5b-bTjQUWnOI{7~
zthhI~yqY=jnf(AZ!CK^6!gLn10c1Pa{_szT6Y$y*Apft#>|{@zQo_JMVfvO=v;WES
zh#Kt#4J(b<YoBpP5B|*~8NYBC)@>OLBT`fxdZj6|*t=&OTbxbK)AnE{N)IMFIsNUn
zu+L7wlvU)<+6kKf-U~jcaH$!ZrnP$Tthreq7x@3_rDcE`MwycAfnS^tAH3}dD)tpt
zKE=@90pf;#Iy%S3;(0G;XcSsHaH^oe2C@ML5}8YYDX5jnbORNkx>wvzpjD-=@t<$N
zjLki|4|Y4*)@UnM4ZLq3tW$&IUI}a?$%#mrSXl=c96V@)U|g_Y;wmuL4d67?Ve)?a
z-5(APNqzsh8>$H-nVOl*`<ZP$&=8WG1?EBi7HGfxA0WEzj9H7bZsxx3#_I7gNvASa
z8AbU&K*&Y&Nto|n0eEv9eosFFJ2li~R@iw7><^(N|M|m@$gC_h7@<G<!o2!F0z85@
z{lIRE4vsB`iC=yiTF9KrMxoC@c*x(Ksc8t2>g`R`$T$BJ2h6=!4*mieA;^w+BleJ;
zpz7Y@57fF5){Jah)#g3qP7@{UsluqJe+k%Xl1d_FdwWArecNaak-{(jJCcE!%u}v;
zQF<f#$HX7N3+`+=mblU=FrYB%{NH<VKbWWo_u`b?O3!gvzWVn^tVBwJ;z)4U!9-Kn
zzsu`di?K?=v~7LUr;Q{txIUmT{)a+d+@>8s|BqS#iM~*k^^5J@vYCcp{DoY05dc>W
zh&~3yJodEz`!FEd+ne>lcpo_dav^x~?K0t`7RF?u7EY^110jg}JHEh54vEk#YG?Gy
zI?1W)!wAe7&>F0$eEruvZ>g>v24Giy8)RoObwFM9Gpw2|uh_QWa_*coav`&(swgiE
z4g+k>Y^&cg$1OG2>?*AblNtk6Sa}+7P@#3i97z~xgAP5__QOczz@9h{C^j4`4BRTc
zQ*hc5Giv}!QFhBC7$vw}P&K?ERl$ot6{Y?0c?jUMiF^w*=G07ljt<B}q5W7Dk5<BG
zU7)qf=Tl(|uv|PRZNCQ$HJgntcZmM&R6u+>UXtPK2b`1#h|GiFhIA*+Td>rM+Yi{-
zaC?CubM$d&j__Q`E=EE|>_#WY7U2SrJxvrVzqKW`*IPo_h=?yFno@tAXryz&2Z-=U
z4ueBtDj@H9{Y{A|923IU5JBE72?E`LK_550F!1N!YlI0~y4oI~z(Ba@3y27U==Qfp
zwcQBJTU*S2YpxCvM$eT>t>EUOA{pMw%$l&!Ql$*07#K)p3PE)a5f^ddlxU~2nX-Oq
zh)5GTu9ju3*~)g31TRCuv)D<aJ#UG>YQu=~4cOFMx7;q-9=f9N(x~QzC-CxCwcjCl
z9V84jV^SURlPEsQg07DXK?pdnD0XKB*;#!!vjOX~guS;vDw|ff{C<nsvQ$GhQ?~rP
zAS|&HFt)!GZ$_>d-YFh@R#NMuJA${mvwhZDS^sdK)x-<4)d4c)<y*lGSL-)#g_m|5
z#y#*Uf=O7tGUxq*TZxopjcelSxl;H3XC>K56#jX1!WupdcFqQ;n>h?A%Dm0sB=||*
z&AP0<IF~M|3Tin}tU5x!U~4#fg<%)*l;yiT^d~*5jb<^nKY1wUl`C;yh6EJh@{iub
z+OH0fJxpB*d1m8zWJ;prbVd3L-<~{wdVOf<Jq_*Ek~#-hHRTb}&GuynF?}n~%Y_ax
zJ2SZs_Xx!uwZ@g09U37q7W^5DZ%bu`MK|$B^D%|5;l$Aaa^KeKwJk=R@K(bLIJBfg
zf2fQbm1m@2x{PaKzyibJ*LEw0v0l0lT+~LkuIQ>iQYp(B1e}vT^gDQGJI!s9EMv>9
z;wivSbgPB%r2$m@gk<QGxBk)_;kKB*d@;0esnUxlb>dg*>Q}gV;}4NBhGRId&#`>Q
zqQ4)<P9SWX*aG(=(;a;<(&<ualdWoYReMeRfy8D~dyV8lY!YTwkSH3uoOUPosQh<y
zhMj7RS89M%l@6(llrVSzzpS7{2|mq}9|fKYkg^u8`Upto>q)*n0msimQf^As<zGc1
z)kDZ#>{L(cirTX2oX!)`P3_B)mNHfk#@3LwJ308g>$NldVMcweepH%t+ga-0;NvW#
zr1=w>trslL2%k`J(h*u({@Lii4L$t39_4?gu;!{`kHW=^Sk**5y?&|qJPD2;Q7FxU
z;9TnzWThf-gOXLwn;w&wCkzeNNm;kqs>RSKCXs0dW@W<CPm4!!(*P<W0)6tYY?Vce
z;cobR(H(Vu8Jt}OI1i}OxXM?;;TO?xy%T0)u?$)YyO$F#XU%;8M*`Tmvk<>^N-72O
z#~+<*w%5X4uJW^Qe}i+ocZN>^IMy(r%VziL8^8TPa+8-(@#Ns%%cAHq2b2Beyw#Kb
zAommCgDo}HJT+@*QPx$o#U51SYgtT52QH~8n%H0!yEc)M&9MtIAiE<5Qor2tw?S3t
zkTC{)ory%S^ZCn;HwOddBwZuoV{4<a2NQ!Pa+cwESrT(Ka-2y|V<z<Yzi+6<oQKWD
zL4)MXtyNNdv$>;dY)bFSBmGR~ZDigR^LxGuoz_~8UioY0>wzh|jxFnhW~w6I&elu&
z9tB&Rn~N>S`tT;+24rnQ)E^kpDbUUSQnqB|Sj|1Knk86_HLeXGDg|uJxo<lclAopg
zLiLl{U|{364R2~K#~L<#|D*s$tB_Y`PWj}eMO>5U#*dfvEXRb0K7Vs2!07+W)gMs&
z!7s8wq9!L*F>e#?QwH-m7+tr-mW(GedKqSaij0#=#MOLKz|NVW4CXTEMw(WXDx1e~
znAiz`Q(RCoWuM_M-Eg!>N<QH$;NR6=|1xs_zpO=XQJ!H-iz4J%WWRiYpdjT~8f=ZT
zHI&cOkv5^l(sG6edVj@g|KIg`UK@rN70w0YPDDr;y60{zc87Y~H2A{^tL`6prleuT
ztt}k?`k8JRBUkj~kfd44l@-IE7lR?!HviGDss>t5;G9~)%MQBg-*m^+8qKg4$bvO$
zm5l*Amx*#3DDI#GW)<f=*lEtK{CQBK>9Kbau&i&_mY*HgA={)+Q7VQUYz=FjdZpU}
zE0Svb``m^(%dwnYQ&K%U9JY$IAUs~U)bcJ;I@bpZuvDubO0@AW+AN{0<-6wEAQAlO
zo<FT4%vR5oz>yuv?Tf$u6dpHva%)X>@#`OMZkzVMOM?CnDb}op4fCTyU<#Vf^7Mi-
z!9Yti4w_galydyRQCZF`N;%>pT(lZ-0`h3+6&;5X5c+y#J;HQRBUZxQV}3Aqr(S@=
zS<FW!Q;b?ngcno{kq(p1zPxvnG}tpfqL5Swa4fiY)fCx*7U%#L=fnmp?o)u1K$Qx}
z?@z9sgE4gKvneMPK^wpaE6nauFO>m8>~iVXp=c{;`?I5w*ms)=q(Yve6khMQf$ic=
z0_k~(sC|psH`oil2GTLD$nANCwc-P026j>$I<ahOgFa_Wm(FDH1pESvNa2`sO$pPx
z%OAReZt2WJ&uCe-?SI9VB={=Fa;(|e+quj&SDJFTxB{g^zrOC8A7mIxIcUH8VZ(0i
z9({kC3h&f_g{hsOTiVs8e|*v)Hz8k7HnVMOealeXibnphA&%3C?ZKa~panG>Q{8X@
zP?RQlf4zff0bpEcj11jiG~041q(s-rCHPccem;TO2?l<(Ti6bV`(|5KRz@yNKAkVw
zpf_~wq;Ak~2H*qe=UevaAtJslE=*Oz{jGl%6#A*c%d)hAT@RP9LuO%xi}GNTiMK~2
z9!_C9qR{V;uT>yA7N3>0e7U?hg`ox1DwE-F2>2xz1%cc@G<WsDAJi&PcT9kjKRSN>
z%-EG1c33bb(Sot$t}T3X%|m^cOD)hXJ04EJB?h(Xjttld2PpNx^^MM@&C82`zyWH7
zN1X-ST^hmyc#Ie^OtShj%|>-{zq(_YC7N|p&gAGpr_$$*?xDzs6Zy&!HpxXCbM!kC
z;WWXRKZH4eFFxsO6{AM>buG%uU}8LU^PHXuHO}ZE&d0pp8|V4<9#7FU49<~ywIv+_
zxlBL_UZQOHjM<Dw<lJ~i-RC><5WG#Y=GZON5~A|pyOEIw@QS`|?{m}tln3A*d`MXq
z0ZP6v4Szk3V<2l=YaF)ECh^s4HF7eK!|BiuTWcen-_G=X{sX8JjHhGfI_O+t|I30_
zQL;*1fRH!SkUZR7J&*_nPT0Z)<Z<qyeU8RO)vrUK?D+zWEi@F;gQ}azOP}P}iXtCQ
zSQ7jPn()Fv53Rg1bN(JRWESCMDTzzj8<HRPZeBsOkK7+Xt0_?+XySb%o3rZ<kY(Yf
zSY?54f&oD{FDA>A)?eaGeLzlGK7a4#;d;2iy5_~cvOC?GgA2xadVxbJ59Rgx899p!
zyLwD5EAVh?ytviVN_?czwAqcweA>J;rV$4>p0Pp)Cm6g7X;`?xNHvg4d!pHqat+>B
zz#qftwH7RcO$`rf;z8~kYk?`j$a`nN`pc&vT;5Lw#fLMQty`-dYfoy+ch?TI$K#jR
ziN<LvV1wK*>7fykahKqVDa~6=zrH~s<3py#%7F&zQ1Ye2dE0fZJt94zVqt-vx<{lL
zWcd+i#YxX?jO%U>Js%nKxxwHq?on_zC&k2w9JmnXbzo7UN8WDfwcl=+G*8O}gV7^-
zK~`v#(gHi_%lq*fTGqa4tvuER0#k7T>vaH*`Ufa2AOfu5-InVlr}NCxzQ$&ktUoo^
z&wn03hNbj?O@wDQ#pMQM!Lyp>0%%z3o5~A9kxdI3>%2A0(HvRYQ7y8bWq^NM`0f%Z
zAXU4G+;wL(7jRF((lqQc9*xK&qf4>&_p;5OTLf>)TnQN+CEKH0vx7y}P**?oM*@<f
zn0Z;fV#3QMEbr*beG=OybF#(;f`brguWrx-V2g4Y4S)L)_N+kO75F<8TjnMevzaMd
ze6EoE?g=8{Y-;fqpEz+aq=8)y^vlhcH2uHqI<^unSw9OUD8r>qC19rwmjYk|2GGS<
zF=dj{^P50SHWLTdB&x5~coFj;Deql$Vw>(+l{e+BR})9Cs*+{FXhSk1_gq{yqE4SY
z4u8_(|0(Y~qnb?LHx->h$HF)wiVBQl00TmlCN+#YiUEO<P^BqVq(ne^vm;#-2sK2d
zcWDWb5NyDN7O4ROfiXZN5K4fA5R&YR`~UCxowNIKKkf3Flc(L!{oLicu9uGorJ2>{
z3pYPU2<JoipLPl5j(<L_>5|rO*BLtM<%@F4Zf0;kT#vHG9D`Yy)-H=|k&Z||SWqBR
zN-5$t(kPd8`oL`ra14UQIMdo165yafR1nZa&Q#WGNyGUqeAZ?yXL^l7cHMk*6uvl7
zLU3}yepBcxh2YC|6s8JN<^c@BSIBiZ+`X;K^Hc@u?x=esD=;Kdf!*t*Q?mJLsJmYB
zUa&qnQ}X+=?g?(zYGg7=ANN@&%6F-W&iHjj9yOD=9-9&d6lsRm<l{eLup&IAMro|g
z%n`Toug_;e(U;iWcmBvjio^*-gJJgKf_*@S|1Z5AuE2;aU_?euLhbmBBs#m>m3I&R
zrm0D(Bbn;HK3pq@8y0F1Qh`zmPLjyGapdbk&dIih*ZCS#zwcgth)jX$oF72@13Gpq
zv1DKfiAu`ErN${U&Le5#Be!3FGhf;+I3;iVuDhzG7dRX%WSbcv*>e`P2r!Yr;!0UH
z^Aw>z+P^XtU)*tjn86y7HWo*PmWab(b;b3E;ow;M<|fF_bE)O@U{P<-n{e^&Esdp|
zlmC4-*DFv?Xtznx`F0AbQ*l}?{+XlI_C#D;52+&xqz4V=%?^S)Bzm|0Mgjyb4f0#C
zh}lOB@I{?|J!6wCXo>N7y>mE&FL-7^S>@<7LW8hJ9GiGa>OjP`GI|DBB%3@Q6yK<R
z+{5R;=6YA1W-ljYo;v(|$f%n8kKc+0#x1|OJ$+BRyYF{1M{R8{qCCU>75jaP*Oj^h
zsLGzry~HTb0Np`<11HRkcTtOFWowwVrwF1YL+j+ZPvAF{Qo00+f}bAkf3FhEoLk^l
z0Sw-@^TWcFBaTZKsMqd|!~$D%7ecf5Z&T`IxxKhp9b4a!oZ`&dFTGq!zR1`(0TBko
z`v-e?Q5XK{^Jo0FB99*1XnL2n<(<wF+oTBJMV`_WjLQLKppFnn#CR#uwa)bsvL*G=
z<6^njW10w;{BP%8v@e=+UJPt>CXWW?-abBFMqYKR)OZP#gG_-lsFy~PLUV>LUft*j
zG;qqEVPH7on}J?ifkDA##EP`7!6Ht^G2Zh?_PGp%vzH^Ismd}j*2O^Z)43xn8r7+)
z8B;V9;hO2J^8fbZ3#PLQ+W+z6(YKIMC7T>Z<qLsTd@eGY00&w@x13qkrW|I`g4o8c
zq;x`vnrMcLt|J}MV|3ks1=Kq%wJ&zJ>0V-T1rS=T2}<Mm#7^~%WLn61d|Aj_OwMUY
zhsx8ep;b<95l3<>x<?kA+CzYn=cG-lNvh=KV%;%v;fV}jBk#2p`NbD3egz>|=|I__
z^&@F$9tH~y?PBiWBB0rmI4TgQCZeuPRs_?MP)-J4pc+jX;9{wWSY%CD04;xpe5}DJ
zfVKsi=QY;5?m7{yK)JKFWS+sYR33|YhBoL4xme>P(AMV0xB9s^3Uf|ZB$Y)uRhb1j
zmk8xxT(%Y7km-x>o&#B$MeSL>tflwg#&ih4)Y~R*L@Y?~(z;I*H4mE|k>HNYAS{Az
zUyUgw7~cSx;SS#$1wrL}1w&v0=VXg`W(h(GP~ct&V`18gUkqhYutcH7*@lVYk>{cJ
zgNP?84!R9=bXy~N-rSNB3IIL(i4D~0CmnQ0WiR=k&_u0AHr#Ti-9-U`FBN|JmI(Pm
zpm8u$5$Ha~eYawMk~UcscK#jt<&7=KVY0c0mkKH=)P>CjB{OhPFq$(y2HBNd3xEl7
zTL?UU7H15X8Tst0T({g@i>^wYFz2M;vkR_vJQlb~?L&IiF0S_lQ-gwiltI+CGg4A{
z?3LS6Q(52C9;?&4Lu|@==Rs)|O_YM-ANDTwG$6hpKrC%+o^KKK>5q^O_CC6@;uunt
zS_*LJ8han2)bsO~YG^oVSEuuxP5ui7Ug>m*B5=dq*#_B@2~!m&ld{xI`QXeWxBpL9
zjCInkMzvAUFTHli_O3ZH*v#KGV^tI~axOKy4i;rJUR=$74~D}?uf~4$xX6%RAzi3n
zs8b}bAr~{<4025a(?tm|l3h8kO4{|yg`8rm?bG6adM2-zpoo46{;4z^H1Ybp5Gj=S
zkR|xbD{NY7sX(+Hv4!5!?9<<|ks~>cfLD$i1s*M04Y{@@tGsjA8i`LI-~PK?{06{t
zR26xypNhuy1M}f4&2QXGy6YEj9`2U7(X2?8cV?xSeTcf_MRj*X5<<%e8f2!~2Bj2m
zI<uoa@)=M}Gkk4bqZ+W0lNmc+@9%G=5*@>eMM1_0FKRC#mbOprKd#LQ-fG<+?UY@v
zK%?MekI`VTO+fcV0WY<>NqB4E#YIh6jmfElz6Pgp8{oM}3t$F~A4vzh;bya%D5w6S
zr9Kb^>>TGQC-+Wf$}-4yehak~J<$YQ+B<qR7@<V^zHnK);~8DT)3ZBZ50vy2E2Zl{
z{ZF7gqyibO+n#V4`Nzu$Q>3%D+Ol#HM;EI|RCD*Ta!I>&X_5UPOFqlZ^c9Hjk$9FW
zLzt*vZ&EeI8;99rs{RQq;vC;9jq@ps{xh*)!6zO75=m~{ip#@q1mY+Dm*1#Ccg1}*
z5t^X86y$4XbsE(h;3!7Bz2~nCeU}j>JqXzcvmi#!NWqsSd(WEA=K4BW432AfDa~%2
z@H7YZ-XYr~B(vKsgvQl-Z`j^tMXJ0w<rP)wR7iXU8z1R3Ken^j4}0w~&B4=?1hdIw
zFm=`8n9-MNVOa}qE`wa(`-@UhV;%Pe+IqIf>n8#mqmT&nc(^0WIGEScV-&ouYq|eI
zqPrIf7HM?d<|yso_d?sbK1geN_gXxCVK&0oOF*ZP@rS!7HvApm7?J7eV^sF6Gt2xF
z4qASF_J^%K3lH%Mqfe3L(%iCE?TR9)9(;o>z}_kWdrOHg?hswb1YY5I;EB0{)~x25
zau@@QsaIRZ_o__;(ev4!^sH6mw>_mPz!iu#x^50kqEz6}!4S{-WILx-%|oSli6E@n
zusE9CTA(7;JF#ntdc4fr5i#=Pz1fxZt3YY&^%!RJ5^6%ZUIDj+{H9>aH~)enG=yFE
zVyX!`&#2?8b&mg`bxP_-NYHx1J;YE8*pIrQz{WGdX)-YzzoDH&?<0XeCYUS&$9Cwh
z{p)=#k;w*Ff%(mpUO2jWLg$`aPq@+eTNe9)lT+Rpvk;3qnp(~`>6}6WP;@SNk=vwB
zMu7B;gYoSq2MP5(fsshNqAW;AoAjCqh3Eyu8(v~xSRZ+U%64?n-K?*=gs`SV0AF_V
z6<jmSgwE!?ekkUySek}RUHmdT(m!V{13hBWoFaE%A}(4%=%J;h&8+|&o4zRLL<K<l
zvE!|dwyQ^}f29u|cMxNeCZL#a2ZvB@qwXCG{fBK3@eDU72|7qmQHT&|X7Y3f;9dFH
zkG!{3&sCK5_(;6>(A19OS`lk9_c4|jV2irCR+CnI(Pn5w<g-l2kld$vFWu+9l~}U-
zhem7M$2wTyzV|Cf^r|B<>-TCsxpiL!xL$A{RG7D$cE4VUhwub~T3c%9jo?1BBXfR>
z^&(%Z=*yq)-9Dcb9)^r6%$h4!z->gPZ0&?3-ye+psq~SFtlXh~rkMq~C1US8Wz7tN
z`$i*t%+R!<mai7(smI+jE}wt|1E^Nunb;i+lyKnDqm!!bmPdfXA{!)rJ!1x*!{lo1
z1k_R|<ir_n<>@HYwo4+`MIrl-U0XKDWhMS!iI6ANh|;v44G6#?b&H)ms!5QVG-!XF
zeO#G;87aQGy5&N<0rAoNpGBkp$1<A#yUV!~uA@ALo{4fN-Mmi8k!IX+L_Yfr?FK04
zzwUe^AkB6(0KYo?MdLA9vrO=;3?#nP-hv(Tv+Eex0y)AB+uBARxbC{`e{E21*PX=}
zML-J!2LcKvdLI~Rxx7t(m<8J^E`(WkAB=H+r-X(fW^2PJXVmIbYrj_XDxvi<#+Y2y
zW9ng6i<p@*nCKz^ya})Xp2s2>G=ByFm!yB>W*l@qg@0Pajj$3^j8w=87(h3E@y1iz
z!ch}{GtR&O+h#kh6-@SpCs*-Ipg^vDc3~SdxTY?3YI;@S_VjAnvQ?a8N#Ap``NiL~
zYi~xXrnR1Z@t&w%G#m5oQz#*&MhTrQeWt%Bh*I;QnGtYRhF+o;3S^54CE*xZBmarR
z=y4`&+Zd3EvjL9?h7a+IV4Yr}J*RD2TFb??0`xe4(z9XDh5qQPKmU1DR7r`9QsN8s
z4J0mrN)(%wp0WpZ3U#}9&l}hGeV<!}9sZs!t|g~x`FUX*!DP$(_rx8bWp=vwjK(jI
z6l>S^-pPVa@C9E$QR}zFz<U(G<<yZQZE{Xd^UpSPMS`b>Uh+IQ$}~|A*$r1GYLc(Q
zpEXrj5h1RV&9P#jHy^nEd-4+)O}X+02WP=Y!Kwq^L(FqbImY_4aj?3I;#neYjrSf@
zGSqMosDsOP8UJfQvW^W>NNar$=M92Wx7gl^KWAN3hifH|YoJ0!TCL!)-U*-MBx-Y&
zf+{jEUBu1&aUMF{=KabZ+=$2<pJRLmCN%_xhT-%W8*!S@r=$vD3-AJW{awqEd_({e
zTd%9B0f!+*OEc>VD_s3SUQSQG^h`k!P2m;5yivCZtSbP(55CB#jql7LbVM`~U!q$(
zfCd4Qc^pub+SiWDFp&;93^|cAlehyzqZ@67;s@%)4a^*n<+<UwuP>{*-$cf2Rz{vb
zFN0I}_EVhfq+aRHGd=Q4K5C|}j{&&>Wc>oQ;OsEg1nF$>)o#A>l?n9Bo}>n&jG4zU
z5ou5~Cmr0IpX-(!@Vy`|sWr6i^-M3Abb5TCS!@9lA<9Igm<B8;K3#rr8M04?lhFgU
zG`6S<ko8w9>|+KuyN7i^VZc~V!8l$OxVU1|DzVvIAx~s+4u6J>Ez~_Ssf~dOb=&QY
z)m!5*_QR3tAqFQNPN1tSg4+7F+92d>V2kKRy><~dPg;48<D#DZ5{|YYb{Y%n^q6GS
zDq#OvTpMJ62`b<i2mX)}%m(2>V_9wn5w>1Dy)^K~#wL`8iCAtt+kWDF1%Rp_w2F$i
z`6>^b!CT-A43znpfsFu@TFh8ky>@$iV(cEei}I6fg_l(~I5pXV$6=z`S!e2l6;B{_
zdad3~%WGD!7nhod`@Rq037M=7P2TE!(N@w=L~~%LxAuouoIVheT;=f|Ras@Ry1R|0
zfh8q-(#uR}v)v{#_jr9U(s-x4*znqohOFlu|8~mw_@?ztE^h}aEMTP{clWr<k2Brp
z4BT8?Q(fE)lFAnNmG>8`O;_8m7&B(ujmGur({xA~9^x~VOe_4;%bosX$}(k_#2lgY
z<GVI7`TfhVk@6F$kd)5Y3~WW*!mTiAkuqKN+9Q(vsY}KCZpPss()PzR<o3wh2$l~_
z*oAy>jBVo_Kh^-i5v}jVejq5-oBS%=_#@3B``f<sd1(`E#f`m0tXW{8m9av&g2TTW
z#`I23z|FuRKtphGsz$ADQGXBpZcX=_pMj;H*jaj^_z`byUT&$+DZlZHr@As|9MXQv
zQwSAd3F`<^B$if$F@ir+&o!Xd+~mF21amLrLs_oaA}s#f@Y<F`QA<9hykjY6{rGyX
zlgxo|yCU5I{8VUw#j5XXeQJH;BRn?HaRl+f0ORJg=zI(7y?%7XR$FOdJd?XnXq8*S
zE2XWAzYu0qO*|nFo3+~w@tRb@{%{^-SX}kfQjPw!^Xsv|&|5#T0dIIL2lzxldxDu4
zbmqKto?+#BRyOwB$dQ#kr)r=>E^Ukf?#a0cgW%5zW~wf8MKJl-9=tvcAa}L)x>_{f
z6I(i&4Ro=uBpm~PDmgp1fv8<6?Ryk9x}Z^dS%R+8aYfEub>4Uy(+u?6hXypLg}Ode
zDsy-tw9vigV(Ysh3*$9K3(qBepwF=_J*WtPCHZGYmd_8+uPns4BL}VaIv)6`sYYeE
z)iq6&Z(S~6w%Q?X8J}+)R6Td{%Y}T(Z0clKkMFV(EY-Zuv844F2Dgm;)=grn5A@{%
z_0yXdhd=Meh;D|AN8Lyav_CxlqBj3&fTWo$UQ+}myB3F&xUj$mQO{Zvlnk&hD~Fa0
zR9I`tE`nz&ogU7Df!K_vU!&GbX*1$4Wj*;7cf8IUskiq}!NJA;;dkZ&PHASwO3;IL
zwF)G7)QglDzF8N4FdcY-58XaD-HMpUJ-_lLTMC-#$=!o+-o4!JuzmFlOWL~@TNd@;
zS~u}RyJXGtyexy*UmX`KXBRYhdl**$bNvA1ZL&jeb}t8Y?rfjz`RU1lqN)tAg}pAE
zm#3(%DZBlb`7Fdg)MNF+9ToCeQH!1DzmUgsH9VVU#*w5oIjeGUwR}joi7i(%o_(e3
z^7zAYjB>-$jwj;%6TvpZQGZeU_TK80ardXS%s%_q%?ttbz))GFk>uoIv_^nrtx|g)
ze)39lQNBkN75cX8q63xG;CeiLd_mhg6eT`tsWKVooH!kKMimtuN)G}|t8Jo8kbP~b
z=IpeZWy;_}k}mLiyp;JRyu@nzW~6>t-c&%EmC#sa(#7rrZDG$B*`gL@n}!}ir~}>F
ztE42$BFHvP)LL!LD+SEcU>eBl58nU!D6HB2ZE9`CL75e3Nv8%+ZFur^yQRE!$Ol26
zl@L&7C8)IbM@~w-;xELQD#QR-%cOP*RN=md-mK_yO6c)AK*PM+^}6HQurOLZY!RK-
z5(7`ewSW~uTK~Rd;L2B?jl+Ks+SD+E_RwQH*}tc%HpYDe&hglat=^BjRIt76w^R@d
zEO^SfMSRg{yrr8M%l##scYfG;kt!LompIG&-LkCI{87UDA^sOYFsm3I{Q!paF5FCD
zCv#rAC{#Bq;0t-OAKRQ&!VJI@zjtrn%@mZNq6;3zygizm9#dhx#6=18lW8s1dNMgD
z9D(;a>e3}I?#*SOdFP{da8`=d+VL?JR0AZwf2C~^kkM}`vBYv~Xvk}QOSKGF{0&TO
zj}!&3R#3%fMMEo25N79PT&4=D0=!5wgfo*oZOv-fMem@x2TcwmLpu8IuL2ETDr9!q
z$ZONhoZW*)YvBAOtn0ze(Ys>HXgB6^HHf)!Z=vNpG=zLb-bF=>-7SxIvdip>mkMm&
zRi!-r(;M(IB%?ccrS;t!FBl9RqR!L6&<7#GzGXz(yT)>7uZY%~#ap~Nt7fVttU||U
zLE|6$dv1QhAmIB6dU$JS<&#-%U6hwA#kFYP<w(9&S+rkT%W<VKy0<G7I|IZd2$`lh
zm3rkkBDmc!%WOkDP7q{~t6L6FPkAeZy=_3tq~la(+i%>zsH8J~=i0TZjuoZf(qDe0
z?mMAIdh>R-_P(+kDYsM;|GokS*@E8PyH{#WyP<mdi0>`9qjvgjRr8}ascf`on1War
z5NyrvGvv`D2y1@E*cq?B#XKfGcsZ}RevQBs^{pl_<7Mpa{D(V(`$<u^bF6=nD%^{n
zTg^&`5s(_?TmRhC)4vUMRqHJGj4ruB^GLZGecd-^i#=-F6$>;KO^_2PlO?ft#g;$c
zJ<~HICTMaQE;lX2W;Yf)GQ+;j`}BdaH}Ir~G4cBDj09bTS@VS^^$jQ%-@%qxjFKSk
zIyfr=;ZwUZ)8w(pIosZA0SoMMvkR5%&T$o7M4gJ|&k0IugqRq^ac+^N;Kg^xum(FA
zGP+o$h9S9r+-|m7vtY_KgLZvpa<D+H6Xm3*;`+*jZX128Yp)BeIcCdaE-d^TA5}cU
zLi|{wBa_@(^|{3>yT@G6r1khqXYpQqNB773vc3n_53R~pZOr3gWHo^$xN|)blvzBJ
zkv}13vk=9z)6UOrxa5#F%Z+~o@lhhSe%nz>X;)b2Xh5A{qAjx%6tP-r=vzm!DN7^Q
zLCSaK4eSlyePUpf%S?hxm>U~Lik?@_jo9dBgdDm)a`|ahcB8HPF@MAU`a{c=T{U^(
zRef-yYz1Ns3ZNcGlI#NduHpLIUoG>ATr&gaaLH7D_6*#?T;VoONLOCi#b{XuIW$%;
z_qN+KQ%a{iOZP0AP>KGJV$2^Me{?1W)GL*WHRa^o;!D*{L}y4llX%{}qTV^e8~4_=
zil8aSSIk>!_X+PAQ$q#Lg4Bn8!H68%XNXyF?i$cOhpJ4y;=>ONi7Hjv?(bhP(^(F;
zC`V8bW|Fm;k;cY3zwKSDKd-9Tp%m_qtT&k@popN^;OOgJFDLi-a0Ll_8W4j54~2~{
z_nCc_+QhA_FwFGgHdh6fV>lz$zCBVV-yAoUgFp1XX8(%Bg+fY+tT}H>3(qCRWX<Iv
zS;T0|?|--X<AQXk{4tDi5PG@1D@OT9PBB}IG8u4s&re(=VWQC9cC$35k9E?e6nUwl
z306J`QtlGBhQz@w-#zp}YnDwa$y3JrwJy_@Jw=ZgueE&CNnpYt#P6MrsQRSkZQcW9
z4UD4<zTAHnd>ppW|K7WV;Mo|lGjS=K*^)yeiJ?+O{8;e|!yv0p9}=O}6o=aWr*vB&
z%x!$HUn-j4jgxwh*jYdWS>acn7tg=<{9LdNpXSJtzsWhO>UW@m_YF;@n92$>(?5K5
z4h|?ed@h8HvbQYX96-0wd^kbM<X$=2P-m~tbykXU=ypaw<0&k_VIXwrCMRroP0B;>
ztl1?tu=9g=wznk~n!VP;e<$-G@AGZu1$tSXp*j84_(CJfLicSKSDV~Rt(Ku78s<yi
zBRNgx^{C&zTXr!SwA(D>Gm{cT%FTL8oWARzjMY@afOd`Ht|QYw-3iBg^E_1B^6x6s
z^oLKwG<|uB*+vyxwp}xD@4j%1@LzveU-s(wV*nzuCT`;u(s~x^Ck!Hqzq7?9m3v~_
zay7aTXjk*>zg1xJH#m^s#sEYois)%g0x61ln>x%(C2=lO4xx1hqZ>WxWJQ8S06t^J
z!RHCbJvY=)c{uDYQJr9t!do3FkM?hweKTpHH)n|r&W+jNpYCCJ<cPupx$@-g5Ey;*
zE~et%S}~6d4Jhq$)v;F{AMV^9?~&Itg7U&vV+uMYQQNdU_U$i<HWBm#uXd%G?zk0y
zWyRmM`xG`uS}O(zEle#KwQc4cHJ>MYCE-sjsLK4Y4V{!@x<)&?S9GoUlQ=lXjjpxD
zt98Boz!7h|ASN#wom@d{opn&i<$M-;`bhjHX(bV~Y^M262NtU}sr)mm;&3XFpyG;}
z-Fk>rsK}3tL5eMcY>-J->gCDG+2bdT+AfeSONf~YW}KmfkbrNil|T?FH@tQV>4f?1
z@6%~_=%%t~0FD~gjB^z}5)3ey<umYb^?fedTe<qKn?8Urwq40ghNz$tB8k9KJ{pE1
zqwiTmHOVR9=9Et63VVl-@B)C(H}%;x{IJ|OhYZNc%46&RQ_gY$C!&B8RxJBia19JL
z3b5c9$&KJMl<YPQ>P1OxM;OW7nxx7u7zX4jwYS2%(w<>Ju5}+GV~cN7lDMT|e%9V2
zFW+1pjua6;heAqOZEof?Vs-fx_p@N2e5sNKp;V7IQ8|C+92qhIM+kNNUAIaF^aj{H
z^yG2demt^OVAtB4i`)(wpJHOtVTX7FBLJX=uQ?Lq*FZ$P69EeMpIRCa%H*iQy-?ox
zvU+DEI#&r7!H`(EzqSW__99^^u66rU`o^IML&EyxRhTIDW6Vv{SF8^C1zE_TlAKd}
zEElj80Ll~Ep;N3@Q`2Rq_O{pExo>|r3ss??85(lEk>q=uby$emOnzukbK0DfJG|y?
z=|CN<pq9jlEz8^7Eeq$3{ku<jRW6qeZ^hPr=I$;%0jS!PkSL1$5iQj8&ET-Ew3#@2
zvn2cHpTU<OrQwF6Jdsn5pSabQvPYov)AzFT)|sUAKLyJAl>$zB!+wJ#t@lqanH#pb
zJ*Ty(EAHaH#U*A)!h=RF2=#Z5rg^jNyVxUk>P`6!Fj(FN6L8iD_yF3G2hR9Ro)9p5
zF36bvmVRK6UEf-+gNVc~vcy)Yx2&$8K}e0Fb;62orf#)G4e8|}>4mYBG>bCclYT}5
zNIY6ECpoZ=#d(gbMhDo$#!=XN3|WA0`cUw>)5_|uQ$B|w_{((V`yR0Ioi-KEy$}Jd
z7DR#Z-)=9Z(}pbzZ#r%If+HYP7a0hFe)dc*{E6wZW%G@%GLHm)rt<yXMKcFT?n9){
z-~ugIl*Zd3NBv4)S=OD+e?f8e-`JB_jYv)cSaTTo{?Q+tx9N-r2&7cW%(+$%>t#IB
z(9k_*=fcOFAp_daxk!n*t@J;K$ms_x@k;!Z^w@QSs7j`XsSCBUWQH1p0P2=w)U)8n
z6+qDKjx15+-x)cso5u{kkQP=n)7bh)5hZzwdCE#%BH9Ppb^|YT@%-WXwEOyF&M8)P
zDG97itEcTi{EGDD$7jJzpi~W;T1jUimMCXamKQfaryo#V2p#*ric25*!E~z1e?5uE
z?E!iIJ`@9HzK}XRf%YteV+;enH3pYc)t!S0$eD@?wlU%ndk5ks7@`gAJw}S2#_h_T
zRrKkTVji48U&G{jxfajfijDA+jHCWL-j7>OAS44>=cCm8Jf%0QtB+|Ce)(*zg77Kb
z2aYm<7Zim(o6%uo>H2se2U|Hw(+;)G!L>g4uOWJDO&{=3K2Lt3$kts3K%FjKdf)7k
zgOUN=TEKoV(nIqzk(#<-W;3v3+a!bD<|X?VvTq5Qt`<Htxr>oIJcH5CYlD0BShK0=
zclLcKtV)M%>x4)z`(($u<TeuTWO?;HwCw^#8^F|0Htm2{KfK75nKsIwQH}SL{vgrv
zb9kCZ78#Jp1GKe@53fL9&9JiU4~>fZ%sEd1w%`mF{-jyiO6fd7oooh|__*_b|9|{_
bU~L<_r;#y10>Y=A6~nGs{8fGB&XfNEXg9~I

diff --git a/reference/plot-5.png b/reference/plot-5.png
index 7ec2b3394bc083a804ca35150d986b664fb045f9..d521b2758b5e2a360ed860d670a546d14bf59b72 100644
GIT binary patch
literal 39084
zcmeFZbyQp3`!5)3R9<RWix&tkZ_(oLwn%VysSsRR972Fnp@jk^SkodcP#jV$Sb!SE
zp#&#bu@ns!T<#8izxUqXU9;BA{4q0Y&AMkTl8~I7v(Mho^O0xooR|8#>NMw>&O;y&
z8koi%LkQ$_00eUK{@F9&9YWHF74UTCzLxqO@C>${+qI$K>D)sN3vUR7HG=X-6+5#E
zhd?+WusbTo0V#{4{t0v@V?S0Mvw8o1dV^Q>@+rE6X@N7wm-SWJsq{@%E&6Q?ECzgO
z_#7IaS}+EfeTEcY(^t94A#ft{><P}ZCj>O~>0WZ36hAn8RIr$lm#^E`BffHw(vuTW
z{4T$yM&w|@YD@FDHUInJfA;{T2U=>a3`?56b#ceald_6F(ibS~F~ulBAbbN}VxyED
zICTC&dBry;PsNF%OT+cYhRZO&wogLByoBX?Xec{SHtq<B=$}^*WBpSBRDWK-59j=R
z;orCE>7oiLZ`Urw%~A3LvU>bkYv${$7*vgxtfiqAjHYNnTFX*&&I&fJv8#!{zcBue
zwvea{%dznFP3YAyOfoqnqGmPTx+Svf-V4ou!(>(PGpHI^KBsei)+5vp&EfgDoU*LP
zDBT2OBfJ;P2zp?K52qV0Ysj)i#gwu|!(+%yuyl>LBF-6Ec1F2ed=@BKSdFrw9(w(L
zQPvhTI%y*>9ErJVVoDTguh!R^y~fTt_xD0|T-F(si^ee2dn^RHem&3(F9aiq{~Rk#
z=<Jdp-a5X*l|FTz-<NeKyP=)3vYM7}m8%!v;V)O;@Z=57tj1K-MJE0zDCUGUsV7>P
z;YY5yr*QBqbxI8nYrJL5v?fkLVSTiPTpBd?C)7gR_s!#^F0R9fj;Q_d+oE%_{y72D
zJD+*=9=Bhj^Vl;Gn(Mr_hkEr~k<7~KcwIVRdYpq+*{4Rkg>~Um`yu1^q3k=cp-D}O
zbXqmSYBopf&C*<**z7%V8-@YL<F@KQrZHHfdKYlwtPCm*_F><jPL6NmrTW+<ZWGk?
zJZ3!`b<3H)#PXY+^6Y~3k_@F#g}2i;2YJN9v4yN|eXM%SW-X_RP&6w%wE8;4>UU0v
z^V96pwcR<z#vLoU-fk>`W%ehkJ$5`F!O}Iuq=lR-+KGZm_9t+*zCX?vHcZBm%C7CS
zPKu{4FNhzvCwJnafy<XC=2TDJ&~fOz{+nioX?hB_RAXqd9)<5#U1!jQE;H`I`m*3*
z9`r=d(TQ6Z)f;npHJ+iQpo8_N#f+o^+_&PLlto909-K@3uaBHaD)or88Y6{y;kcd0
z-}J0vare;t)EOU{CTO%QGX|9+6Sg3p7Qxv)$QTgHbl=6lo`gW&3;nejfK15B7E|eS
zLmO08Kr7<UnRY~#?Kd>H!_fH`HJ3LxAJ~W6t>z1hd%}B8Ed)yZ*i_P*Un*I;4U5oh
zO{`|EuWq+a^%zSumidB(F5EzKcybPF%(Dj@S%2Ici8h0xw+fy#ZAL*Au0Kre9!o|W
za#&)sif^vj&adt|qCz%WDpeeOoYi4uI+?K>==IrCfz%q8lF(h%g$Y?7+Do^!lasw!
zjyo;kK|uxa1x8XVv**4u-<&L(Bmdo7vB&h7I5;hom75mQl5}18Rx2;k+)zBW2B)?%
z9IIDYQwpDLXJz3+nmc^REi2p@68l2iaHWW>Fl_3SIFsa9Iug3y6}R=`XN1E1Is74;
zFCo^<o}sPmWRNgC{8dRzUiuw%x9s(i=t_k|dxkR`!{g$UPFnhG8%|HgS$@c%`~s%s
zI=H%=QM#u4Jt!Q};IQ;s;1iZFauRAbFJmTz3%Y!2x*q)r!Y_fR?<AcvKBQ-xiGbE|
zkT@EViaTr@%~OmMHay}ekzvks`FpTbo3)KqSZKI9;cz~_$x{T+rLgwhn}EzOUd@#g
z^0ulWAd-s)Rcw`Bp4z}8mw)u61@BP%KZs7DvGh*I1_=N5#i{S!-_d)CdeN`Aw6<$-
z=e*QsIc_y(TAG!lM#mbV&Ogoh#JIv#=bxCB&!2RVsy=iN9q3VKj5_ys^$g+0R`;V2
zs<AXS^0x39sR1s%lj-t|fzuYtaUqfFK~{V(k>^{lrq>*VdkF`xoxVPih(|2{aM7#R
zUg;7vH%sz{$_Z~e^`tA{W7jo~^uyd+w{p3J=5D12tDFgVAp9`dDXg+kv1d-Pi3*~8
z{>>9c2qb|~T;4WR8_$4N{^2dgC99WI?W>e_)Hbc<GFjrDon?nyI}~vaZ^Fu>t9fWw
zOPUr0k!$iZtGl9#fi6|JBvFzxbZmuROYHGic6qFCWSlg;jF@*;jRl``o!%IHO-W5f
zbD)}8>o$zNrCou!$lO81wxO{aKX);9;Am;h@-dG1<v{Q6jyUe6jiIF9)&ng9G@lAf
z_q848S*VXkkG}cY8vCO;$w<GftZ&Fx_sMvrv_`zhR!eA>RuJY2F68m_dhq;qyn32j
zy1d5)&K=f>tLU)z<KF~H2*tg`{2)cLB7^$jImMj=ZrS_dHbjrY%>V^#>#Mt+S*>dx
z<A(;$dRrQmw>oP|p%uyK$eGiy^wv{HQRRCwi;`yU=6D^&8ETpEtr~!Y&1c6z({lDG
zP2-<1Gl4+#ZE;zHQLL(M@e=xYMzJqR0wT`1+5Lp}uPP;l<e^#Vy4w;BNWsma&9bJ2
zmxoH7q+9lF?KF#9E0dDpf1eGh48cTlg~~gJzb^KcwovEoPJ8d3EHV7Rij*5#d%$rc
zF!lr%-nI`}kID)}r6ruZ!v<ZSQid*tT#N{A6?kD_7HFK5KDXuvzy(5m0tcW4Hwg7E
zs2(W#T#~{!=i6ABkKo)_L+}_5_@%ptRJxN^0_t%4O2uB;%oAMw8l&$MD!u*R>_0)n
z8(kB~6_JasG_X;5eBH8<A2#cyn9;2&9hjkQW02kc2@Je(N!(_P62=qyw)NM*@Mz#Y
z#iCeQ`JEHmS*l+C=E>9Pb$y4#tB(sTXMgCDYH()ENHqD>-Io2=K>Dj9MZ#tj*AbP9
zB=^O+TmJEVTKK5e{Ub6_Yqxubd;qN|KUDn2MG{{-GO&N$-g}W=$M)3{HB{f!A~d_L
zN9G~~!XkE%t_V&m?ah5);=pZj68-)w1Qx4dd6kRgY;a^tjK^xRxXW}p61E;qi;C{Y
ze3KF5T0jMEpZ;t#!>CMRQa|hjXQxt0t1St3?<3C2!yY6KU5UR3+X`@7@KiWzdr&*h
z(l&%z-Wm#dl64ZU_RT@it9W*MnqN>7iJj4ONmaH$?`kK{P+9}FO+#O}sk^_`AQ76p
zQ6P_hJ`;-YuWzS2=dlwxbNHZofYa6Xf*6eF_piSCUADlr;I)7b=iOBGU0&pHl5^X1
zUAk}Zn&f&5qpO5(MwAPbv)fzR6d}-dst>p6ogl_MT{PESTqKqmFp4co3VnBJrJ2$7
zN|}J-&OU>+_H6Kq<@ZJRba~#L@-Fu{$-Ll@?0A{u+`je&s3C!j^qD${5j1&VUu}<O
zYsjw*=b0B`c<4<`Qnzio_x`FKBrh_n*3ebgT5a16@p+0Y1dGl2AgrRXF%k{0ZO^#x
zVRS<SZ^x~W-+nq!S~I9;hAe>M37oDrI#k&nRwRtA5B0Y=TK!}Q#D$cO5UYx~X<z9X
z2kvWAACuj+vnwYcVQZ5v=qqlkB4WKGQ{;~#nCNwWq9JSwu6BC3l5ZgS+~u*wc+%Xh
zVe_$9@d$m{fnkQOuhu4TkH_PDbCDBoXXio{3A<WBrVfg>dv&gyW!wFE&Yl)`WV=QK
z+)x|5Xc@y%YiQYuWp=>nNvi<d@>ZJGp|?2u!fKEttgDevT0>mHwkzq}KZNzr2yWlk
z8z0-N-{qF>YCG=!2Vg$;L~0}d{>M-c77bTR9Ll^@X76!SXFXOamOg24n5Y<d6)C@1
z#y%4md8Va3aW2ubMEi2iTh1nVGoJ0y+dRs%+Ud=l-g(y+dS>m}L$20Am4G_HEje@M
zHRtRT?l1b+Jhc!1xr!6T{4lUh%eor7-zb)zb3)L)K5H4(|07rWH$Ri^EAP-LWPnaL
zM`DMg?C8HzZ}7q()l*|O*BOQT!d7@Ws@~N^?VrtBftOYsT26I`pOsBC39EeGp4)L}
z7<&hC29t70spU*SkMA-MKJ7MiX)TYqdu=aGM0%&ZWoL!yG4s-|TW#Ko%bP<CK4H?_
z&N|^s@3={>33g$XLjQvnGJtqq6pn<4--fagwBRT5ri^l@9-w!0{j>DdvY$ayMdw~>
zOLJ2-z+^3F6=It7#MX;~I<&0DzRUX4mT2Ht6$ue7+C%#NKYqkHWM=7236a#$jf0bt
zws5)d>N|$%r|=Deb8b6&O20mG24_E!r$j6r1-tHg{%tY4xsiAizm(wfL3>5i)H278
zJC#2#D$5;Kj=}NAom*oSaQ3^p!`M9Xd`U9GMK&0khtBf6pJl~SX4jBar~2i^)`-q`
zp`9+3{WtCI2k<#{wBJs(*{Z1Zc5RlFm{QI6wNF`5#+zRn=ftA&57@Xy`CxVS#d<9Q
zUFmZ^DN_*0=Nr7oZsU_RzxM_5jsDDNZDq{Mc3g~!y$9*Q1TTgT8{b1IqRJJ&)Hqne
zrQ^?yu<?tFRmQb1bpj#I?QQSz?ohMDa{=?BK52*)B<B5qjjPPuOb|VFP^+!)kf#lC
zN@~B^V!X1UUf`Yzwc()s?#Ac6u!TU`zLwBgr9St>FbTxZSkgI{AYq}+P!v|M;>yy?
z8Z91xGTo{_L*iu^54q>MfE{rW7XKPjk|hmi_*Hf?3Vm&4Ev;SVrxjjCEYrL|(^6#4
z7uLl$_^b&}MvKJ$8&k))^?&vdw#FxT+zX#=xmfO6>?=tg1T;|a?!*w<<3C^KkoiCK
zU;p{||HiX2z7*<<+IRyv4y(Cqf~SL-Y2{DFd1htZhuPrAzkhzlZ6h#eggy}V3k*&x
z>4)p8BJ|3j^eqPmQ6X++c*n1qrp&r6`UfTQ+&%SaREf#0hi68U)|wR+d28LY9FEjm
zf-mORx-n;LE3$i}?=|)>)J-~l3l>~LD>|c=Tr(<s%6H~&t!v;7On0GTO|DO}^teX_
z%Sbyh<u@8bM>5#Crrh*&&{O2{tkWo|HkMd_ZkwxpY@&(WHvDtquIWiICZ0T7rUhLn
z>5icL%(W#z$H1#jT!ytlpFNQGNKBwj+-m5@iokpOIigJ$k!i{QUd4jo=AM&MHas^P
zb*|<qRI=qR^L~4r^SH|Yd=b=DZdyJ^mn!g=$b*W;tD$N&0p;uEw}wlaH4#Zoo5s6u
zownrg$$Wks5_&u@SPGW)SOWifl(iMKFRg~)&f|#j3Q6o8$$1roGDS=a$N9K1&FfZ-
zb`(l%?JNQj2&^|%D*etsSPgt0%BA^LX)EeFjo+&*vqA}lj5V|JyYGvhbM7H?H(B}u
zKb>9iYk4R)2~Yo~<XCe<agAPP+)I3fL3${%9AgNX`B>VZQu$Hdi!EKh7i+(HbW#v0
z9J}NfCOu~GQCH=3fYFj`ikH1w{&Q&2%Q9qUp$~zZ9C!WkTX%(g4HseO*IADD6CUi1
z2w?0|=0@q7Po;{!J{M$)l3}PuT}-~N;7+YIs#g1)E-=(V!^LezG~xPbwxn{cS@lmG
z3*eFrr&Ef4m9SDS>2i*xnBC!`=wbKc=T1xZ9-gDjKCh2nbTSP4pTyC3REUxK1koNZ
zVw1$&tx<E&6XKBWp|o)J^sW<pZESUN{k+kv6FT++C#^11jlJJ{OIuVr+onx>IccLr
zFNk<4Nd0@RoNc<rjLl{JK#%;EQ(50oB7Q?5HJp!oPb4qV7B1;!e^@qNXLEONkba4!
z0!jh>R-FbC7P)*wRSj~WGwY|Tv`(+BoFV^7{l~%EZc~o4yyjhHV#DV{-HV8M*WFcz
zh6XmJ4K`N;MZ-#;n|H;Y(KoF*H9BDZKtYLf4!J;@g7%R$#_>TSaT}_IKa#kt=+N^Y
zqS`hWiiiZbnuK~;&f@mFb~<{M{#2K-A+hz%Ln{PH0|`+Mr||OYsuQq-q6Q4g_^rK6
z$OSK*Qfx(H^}(hTy3stckoaXSO}ZOhsgI8qv)itOy}h2ese#_{Y4A@#=471_nMu2!
z=-O2l5aVZeEvJH*w#*+F)K%GPcY`Eawpp@o*9#1(RWd1F!Yr=QZ7lveD}9&n3Jr9W
z+j}u3iizy)tcN2x!(m4#v}mvGAW;|HZ3WMJN0wJ=*%yX0aF;R$5A%ta?r8>6zv31b
zc=$T263*Z<Ea3fagMQfiLxFDpx)9n5U8@nKGK<`{aIlAWTw5Bk!wZX%eo4U=pbCO{
z(Ryjr^cIB$sH`?9(tc*#t)daVY@A-&>Js{(;^RvbA~%|_9>p!3c#d<K)N>fXT^ft+
z7fbI@HML4=OVJA<#;kAOi6Yj0qHli1A#AWl46QlcH!zsr_R2aD0B+}ubW!NmYV!j-
zuG^6cK~=b&#-NzA_*-Ui>%ZM&aa#7B(Qc~YBPzYDcg76S91pRa0}m-tsT>|-FrCzA
zY+Abc4%27*bCwDH9!>a1XuJhErr|hdm$}wng12uA{ZM`t=BS=X_{LkOz>b+#QoSuk
z*5tXyn6!av!<Nyb^~82f314mw@2Bn)Z{h^h4x2LYP3vj4H%QNrQq6ML7$k^A1Jpcm
zM~XY_?>@5aoDuM9t0r*CYIu&<jOpMP*aG`okqI`~tl9_V>!NH+<qHP|+RB4y$5O2t
zo|(I$2g6=fdd!OvcAp7)8GF}I8wq;5HeyC!s#Xb2=A>smtER)Sn|Qca<n#BtOa!Q@
zMY^2rf^!|#GLBt1h3VGt!y@&!cM==vXi#%c7F~;bs3J*Ko#ptAi=UR?ucg_447~Aj
z?YMS_5{cirUvab1Yx3Ng;m4)e$XD-WjpOcqCJwJ(s1zp=#WJTe)K82$xr-)UzhQMZ
z(a6l9Q$;RRFd570=#J=n(6E03*V6wkr}_L^vaGF=a@=S97ZEZ!{@hQ=lGaa*WzNt!
zR>AQFw!QAA?ld{L+S>4i3w<bb!`j<i`PKTI9(%QC&kENrCSAYDkhJkh9TC3CtB$~_
zJwcQZG5fka`lcqcgU{{9+Uilo-YxzSiJlSdPF+EfEIqPfnfYD*SzW&6j}o=-_9=R7
z{$6D5-;B4JXLfdfCn(OU3NJ`Cf!gq`Kl#TT5yRr&&zxk@o0~YIeqz{pM2(O*bNIt0
z3R%yV(M%NKrX8tdBx*WvyMoR(oGz=ho(;M$Dq&)UKdV}d=~i)TK)$Lt>OOS-$a<B_
zhUX+sg)Awx$F%O)<a#=iMH*B4H;)XyFj<C&w;5;G!WRW0l|+`y)TFYq5cW^>i}GC^
zyqFI<UaA7`rtvA55{O}qhhL8Z3!mQnPWzV-3hi*i(nOWvzRWNeDX5xyIbUGybZMD7
zA<cmM^7Rfjli7;Dlg+}U`+}GSufBHWr~PT+azJpU%T9l-9fn_u@=4=-T&^S-vWm-z
znqdobDQZTrednt-Kg<|a*Jjw0zxb+EPG?NTSJb9R-U@zVebs5!X==(#No324aKu2~
zz23iIG>vrK(J_77hMZ?zFu;hX5@N5z>l#AbUqbcbx=iJJk_J&jO$+qSIfO~mp~zPc
zNmna6#+s@{cCL;dt(pc^%AHABT&O$vmN3q>E3YN_nc3KmYbnG-b$sWZDBmo3%J6ZP
zG|NtEY&tvyvi{DL%d+Mq?pfqWomXPpW@qF+-!I}#!BHEkepchL)<_(+M>-eev*L3Z
zP+`_cVfBIeDt-@;=MW!vEH8=-p4+HFZd|MmeOy6gv*r=c$$e*4NE8u!Jj9V@NxCG)
zbsH+4v1Wn3yXG1xq#6I>s;Y;lf`kj9L`((4PQNewsj}siai(xdnjrrhLdgS}u~mN!
zo=-&b_Dum#+J$P}6yF(vwI|A==<dALPmH~myyCkOi>O)Yg`pjpmiP@^dn|`z8{%I6
z^?q-k_rq!VcQe~JPI{1Kd+M0UK^7#8oz-NCQQQMMQtXA6#Rn#6e(^<lk0`6e)>AAW
z6^M#ttGmM82cDh^n3v*p(?{1~+<&uSIQE$KIwLHGy&tz<>0hV!8js~fvuj(n;6epi
z3G*5?7PBb|qG5j70(RM<x%}b{E42Ix@X*7_1MMtB|BS%Y^wa>%H%M6BH7Z*O<f<ce
zt!09WjR%*7JG)g^Q;?fK^9+ybi5s-Y)<Xk_J8u(qC$&`i<y0Iljvv6o>s;a4_g2n-
zhB?^(x{SU%h8aeFAJt*=9a;~qr^{Tl7g`UfGmhi1lCONzz_n%Y)bYnqOnf0R3Vz~R
zNNlP>;L^l5Ua<>S70IDt1ySuO4dOGbBmNK430tiSd?GN`B1hsQ1p|jKH3DLle=}Od
zvi5&dG-WrRt5i#LKDzcOhm)AeEN8PZ`OL-`ySFgFU<F5awFjW%NUD)65vgLNafTfd
z#)uJGADh#<|K@Mo!^eF~{p%zH457*K`6iv~QRdJErXNg=&deVN(`hm6S0~S1u0e`k
z$j6-H7faRN!2Lo=*v#(6^O9->x!1XRJH#>{3u?LWiZgEMqBr$k_sTb7vpLlry33Vd
zyZZQQuZ9rMlC&jf1a6QkHS^?TUN5V$EpgLlzX}4$z59o}8~eR=J|6XJG*mM#xs&Cw
zo?8K<X)$+gUeyd(cJ&1tHHzj2rCumfxUpprhSh?r9gab1S@QX}uK0ITnIP`;&R=ua
zd2TkLtLc`NHo*5aARKmD%=^3+p7C6-Gr}CNDn^>A5UXrtY&#VoTa!idP&l#+C#T$3
z2>o56pcSWF;cZY^9Md4!_A0WNoAzgm(X{!{5u<J4=n%Y~H52Jq^UMH~Og`MLP!-D*
z4UIonxS4qFnyKORtwEy;xOio&_#t(<*ntfZDa4(FwcLTFsr5uHwuS@$2h=;0siDJy
z0SiqRlbU+;2K|L@VJ-o%Q*YZJyiuLrBgb9mbihgqE>lG@Xw;}U?6T~szb}Y)dyxN+
z7?+)1f`pZW!O!39*=|a5hsD!I4&n<k{l7Qv%wH71tjn@{+Whwj-TF91(oM??H~8jg
z<-4%M8@pu76}H%|L4MHd?itHA`lgU$zNl#Q$!-5Ogpbupv<wnjwr#|P7F`G6Q&ro?
zMH21z*3V4t`A{&Teq}fMHJ0`FHbV8PZv;GBc~H;c=?18Sj;8U7H_SF<;MpA&YERGN
zrun?I4lCK5U0O~(l-3-cHXQ#DsW305#j`S3I8cuq4-~Ai+FSJLrg~pGX4imaftJ0#
zi*5gUUl<-De~!QOXfrsS#QSs1eslHV!VV%`LIxFN87dkXG^(iBz4yEF$d<vpYp)Tl
zczu&^fu}yN9nsUgizu2R1CDn5NoK5$-Ea6gJa+r=Am*K~Sd_iyAy-&WBb&m=?OEg!
z=TY3y0&6IugEbX8r?EhSvN@yj<Z^MHVM-T@s36B-_tYKr!y;6vcw;k%ciXM(q)<B4
zJe&2k%r{=0ld5V`s$C6l3yl|OT3-EKC^R>Y>a4UqQeMvdv?$|{p0tr*l2-Td?b6C`
zZ3e`L>~&+Q3u%dxa{5?9#Mqhi7oXbshy(WFUYiJnm9Z?sCu7{H+R5+p0(D@lny0&h
zdaR~4e9TEM_o!(9iLhUd>ah1In`5YB`;?}ad_AyEd$x%dQ68Y-@JpP(q!EW2Qr{~h
zCKIjE2K^)fvGGrIGKwC@eWX~CX0?~C8Lg0br|{XxMW6kpeS;e>>a+9x(sM>#>)ms_
z<8zx1Ka>=z$2+vO$A@6EJnffzS85Axi&44Pj>`{m>0D5aX_E$2amSW_?e=fcbF(KQ
ziyx1BC?&M{l*YxljTiT~@`~uL(<HoDps%jz&nxA;fYNz5v`nO3*ts0oH7?g1l$O_A
z)SjnVF@}K8@}=;IlNQ><)>oxa77vBrDtv7b)EKxkw%*s7aL!o5)ay&k+OiXfWx7)@
zONl1YY#*Fs?`&9J{@HP_f89#aIi@r%lbDZPsO5XS>$Yj#T@n*Lo?&~;pCzHcw};_Y
zNm+aJ=hA{YE-mq(kq<{3cK@>$AjMrFeX^vkB<p7X_|c1D2X^*KXKs|mU5^-YaDr!k
zFU~=MovVjBpae7HT}}+f<ZVjkSar$4i(iIt4K2wrdAu-CFK2-zTZD#AB>#QaLhOPY
zNcLC$3Fji4rW6-;Osn;J9sy~uxs22h@XbLD_`N1CVkbB#B7}oV!Co!v8C)&cuWxz%
zhiT$D4MoR~b5|0N8u}M(tXtD2`4IK(?tPodD-2>6a)$^R>TiYv39STH)3==HzQv_D
z%|3Yj_ONel;-gm;9j<I043RAH@8_2s>JAIC{%KkW6jRCj#98p2aIwNxH17JxM8`T?
zm_zxTnmW?s@#iR30wx~K_EoX}nHY&kZxA>csCO`yd|yz<H(f$yyEQ*YFMKB^QNo&s
z&r~OF%0Sg2q%Xb5Yfo)vp|H6GXBc<ThN@=Wr-MnW%~TI)hCbFqjFsTaV}lON)seTk
z`+UnK)o1G#d7QI0_xDHKXQJq<%6qC0Ao~4)W|CC<u}Az~3rG!z>3M=!dfq3$bS4fq
zK-dWNv>v*heX~Rhp>DQ&N`oI2_qMB+GRF@Q{GZkq4ec-9m%d%(qsOa{?FkS(azNj8
zg)fkW&~rD^OsC(JKN3{VBTKFq4X{OK7VXK*moRF%3a`t|-4HjF?TS;hn+@8G<FcE&
zHNT@>(nU5erIYb1NZ2mFDkG+J=NUZY?-C+6rm%U3E@@9fA+I;prPlqD1$=w-%5g>G
zg^?9n)cM!7*n7k4QiB2Ej|bXLof&Dh=Gr>lKY5P(xjlp6y6bwn!dmv#37zb*8ZoM0
zpGI<worGw=)3lxXnz}d<Ntk+|TJMC2-oV{dv&uBf!kncVV^JNp<J{W0m3oPo(jwh*
z6z~)t&gGF76DJz<D7&j@;L;|as8-z6j1=_AI`v6R1R=Q5udbVjGLyx~yl?XYZUx_%
zLvxh4bMO11oWaZGOu9W}^-pLl-B8o4A^|scL3ES+;fWrT+-GLf#jaMe$j&<a#9YW8
zPOBv6kw!K~=JRThcw^JW{^9f~?4w?1(vyMaMJJV00nBQBq^<e@9fi{L_F$atUN4l!
zm%4k|O*Q0w;bPqJ>VntrU$;A9uZU&NM8apQ_LUu`9Z$vvubw&S+NKTrWIU_2akao2
zW70Quj(b?PrTt`;DbHY~IS-_#nO9GMYV6Jejm6B<3gTBAU80q<sq5AhN?81@&-3=Z
zQj6K`jj~qk$*PdbHR-tP3RTLp+nxy)uja*;WRPmAXIG>Qf~nqpYDY}rpz?MO8xs%2
znjXAs&u!a5EgLR!;Jd|ooC~q7wp_IKa;mkl8Gp$PPx$SX+bf#gTdKcnSdJBoQWCD1
zC%9FR`O#OJy5UVmo<245=|1q1hSl;J4fHxNJK@@*d}0xm3i)FT)T!o^qv|<R+;swF
z`Xd+7UBu`$+pum=_9>+3$YADv`YLSduazG`cVf-`=J{wZ+i`lQU|UZaQMU=DF~;5j
z0+SlO^C(Fa-KA<iTjnnMec;Y)%<~el%%e)ny-%7BR1IzAdoL!<@mD6uh;6cJBAkIe
zh1VN-WIHSJ?73o~VV>LzKmT%Ulehpg1wCG?ygcPh1!>t)p0%_R@1dcZ+^BDtu>y-l
zj-BN;7g!Q9=l`a?!cQZc`Na2M$~S|Ki(LYLfnu}1lv>+JTKaM$&12)b8{(>J8ym`$
zgNAv%__M%-BYSZWMtSG|uN$nj)#v0V(z%Fld$9cEIln*G$uU*m)!I7zW=_r6UIx^9
zH(_M%ie?|KKcBvS#9Ty;N=W^)u!iy;>UP+1r-GLPe3T;o@ushGW#aUomtp54|I3P<
z$6*!jgw3^-loZA!Aq&HyouIAd(XMmP{+Y^T-`Uy8WR`LZKwxa^bl)k3hL|*zzLRwI
zvk3_~{M}bzM&u>ba||1p4p+GP2lCM|h3+j?vcH|fLX>g1T`GPr8pZvUZ`5}@FHACd
zB7T2}u=M%;^WI(Zd>?yDOH1GlC8eVV8fGb6nNf}|<5<YvQiR9gryJ6JvY+G{6c;|9
zyo9?!cRre3(#1HQqpc%hZII_ZZgt^8)-<MPgPxvH-)jcpvpN;<7!rM5d^YUa1x7!)
zUr%Xm<)&ZX#>!PDCM7u}CnY`4U~g<}H0dw08kjGt9IL6i9dYrfZoN~^DlkzgczeY$
zDk`dAV|jEBXHU3xN3Jz;w4bBZWweHD@<HEe|Kuh4pPVn&!j01iXE<(#9E8zT7eD*<
zOX2Vm!*|J$sUOiY(ah3pYnaf3g=Nu({k5!)chV#?Lqn96wY9bTXpJv*SBlJfA;F_|
zsb9){_%9u74AMY;z_~%OZP_(GPp-NCZ@!rl9p%8u0miJL)NBl2!*4-|{Z%Sk4&~d=
z|EktTv4w2^;<t4k#=6T%vRvH4vcHpZuem$j95>KcXtBQc@K%a1!M$>H?b{`#szc7u
zehbH<anFVWhK{$A3+<SO!x~Kicb$){^ae24OIG8SRv)X3L?V_-LtFkJESaNtHC4`^
z?UPGiz8|>UCcDG6WOW81^M`XWta7`HgC&_=TjQaj-EVF_I1B`bKB)9t8g@nThuSsz
zGAVQJ?}i&w#$tvMc{)rREbBUD-~Q$%b)iMs>`&7oOJr}cO>L3wTxnUER_c+6kdV;z
zTMs9;z-ZUqMrmqkd9wxm{vc($bF>;8`YJx_@k#15v?jvHUERXG>fx`RUk|IcC?m!f
zzXS;j_)fUA4Vz&)A`jS^SyVl|Ck<m#4BmFnREvH)l&$m5Juoov7Y>Je2*$+U+N%Xx
zV24<$@UP#UFUW~^X2&gQA^YpgG0GXB&F_mT@xwTv2bn{~gVbqxEAFUUq4MNRs)@02
z0$#&3Vx^jxwg)RsUHWwITW4IBU~$!Ck^P!Kh+eIG_kO*l4DuFe2s?*!j8)B-C)A;G
z_RX&|EXo{Gt3wWU&yg1f#?jiyJnTtG>yr<+BiN)KO@7x!owzP+q_6+U9Sj}@O8Z`?
zg8j8&?GHV)*vAjta5y~iB9nxZYN<OYN@rD7-CF21(o-Pjq=)1)8>8I`Sev!|^{&u2
z+O`e#9Jvb;$kPxGCawU3d!q<aT~lY8!rlfY189DCFTLbV+x8Z7x2W}VACn#r?%@{{
zEb#dpMm3&O<2f`mbPsdfSr=JlgD+o<C|j;2)tAS7BD*v-v4>ihxegQ)`--gm&2@D<
zy%Pn^*aBC+P+zK_ijlKKB$|N8_B|jERJwL&G)kJ}8}I0Wv^T48>EpG+x&?Mje0dT(
zhzne2^HvKKW_Yb(p{GDL?$PIy2${owOy!<?&g@auQ(ZLza^1fm6`PyOw|BTl@(f%o
zY1%BXsog|YS64q+Utd>efB2cI(mHsxF?Dp<$y+4yQxJK6KTQFV=E0iIc>cl#c1ou2
z3fa};KBIZ#uv8DXrsMT&aSwle^-v+7E_3WsJSeVRmgVX8JJok7%PV@k<bk>d>g%tE
zeg*~xUyqs!jPvlhly-Hd$n=e1F*dbQUG<8I2?>h~`g*fWo_pI<v94)8c$nh=#_p(i
zWMqW62AU=9F%r=HG1)d~f0w*q!?+F0X7{qqNd~xCt(7c79LP6W_(DNakWb`^>y9ap
zTsFf0d1;+9Wi!DuRzn-tzN(>$i#pXvV6R!y!x5jB)qm7VW=IKMYjGSXFe9ab?-J(+
zFrj9b_ue(H*6pvg#Zr*Cz@%XF>A;RFdqa}2l`U<ZFnZm`PWt}$7ug_}mS`vZ!;3-K
z?^%g8$(Y)`p7$MAvs1B)dsVtD2uToDTgmvkd$2X`4bAgDV3OSnljTpWaM-&zdPEig
z7d#D(KSDdE$!MUMq&@cGDk>_@g&Q8T9q-KC*JnHSV1~rb)a31tOZ`Oz+)$b0R?tFG
zWehV&y%GC)Ei7vtVryCP-q)uMvUY+30<Cs6KF&E-o^=&HgC!4?_T~#PY<_GJC={xY
z((>B-jgc{(!33;(L9N?RX-!*_u$;r{WaHF0a%*%Tg)qu+L8H77k2jQQI~(!M;@88$
z9g<S<6Xfp3-0JK*&&}8|B4C}$z~yS<Fb-sPonu$p0SQ36XO!*((a68ytqHde0ho+b
zA@?>dH?hK2Scx}^$ldB9t4hVd!~Gqzp(uB5ycA?vQ&ZCmI+s*1oOh3P{EdOOXdO9K
zao;V~Z*eegB{_#<m&&SiU>gLzN8N#cx*}2+ITbC<^X#7+UF?5l0s=@ezffM~uD8h~
z3Uf^LHSHR(3q8Q+Ca;?nS@wAV3|s;r`g1=@v>wcZywO&&udFLCm)O`{z_3d>{d~Xf
zw>+}b#H!3J?cughxiF=b&nFQbZ*EQnAx`;o4$K8GRKc>A1E2_b!z*2!Dla!8bYG^?
zc5abd1u^oNs;a8U2Ue{IP8m)9-(OrQ%hpRj%xR2bOn*4?sL7@p^lU_GAT<qB@1rl_
zr$^79KQ9%s(XFnhHjvyNSc4(d__`Kzo8;T+MRzJF%&aBFUdwz4gKd%;j?x~ki2n(o
zm-XTGUoo$o(14BpgpjLEU8#tRrP9ZyxoE=+mnpQy0dpC{?cndMGtkq+V_D^}20%J^
zCS?hj<hxaY;Yr?^k(tlU?1$l769oy-o-upE&485&E*|YSD+3^<+|6u!`%XqNiY_+*
z)KR1m+e8a*I<DTK<E>JmdC6q1ZCz06QoH}r!B(Yp$$ix(@TH7<-=2?_f&_~KRMh7P
zLWmKh5AR9Qx($5Od|$zqtNfC7d7&T%=LNsTvOJoh8fAg<*&6k~<SQaVp)ae&@(S01
zF|WfNVr+_pGyXjoI`Th=@igS-kSmj<i$o}hPhUN`rE-;!B?P(8jM^Aui(J}Xouc*}
zudgFfm=U+~^}-RKkdU<zp!ubYC=ppDG?r?`f3qdJ?+7=`uV7i38|QP7w{fx?RriBE
zbbqx$(iv}G%w0$Bw_-HOGlbg@6x(#wQe+4qlP=#ZlgnVoODwlm%=a$rtv0bAwW_lt
zeX8r4yOQlf0*6e@Y{<&rp3{VS&BCzkUT@_C*Pw|4Cd2Yx)6EN5&+#$;z0D=0dMq2#
zJ(@|<)RTZM@&JPoF__sIUa!k*=r13Bi){|25$dEhoAOB~O@0UU_3KyP2R~lz5J6^&
zfOM-11wF!SI22(YOL}!({Ll!XI(Zx*_05A_vRrq_L8|{)-oZwX-jNaNkaToN+I&vK
z%z)@)-KZ`VZ7#5|p{enQ?ZnZqMc3^__A#Cc1Zw6z=0zoLZNv<6_G0F@Fi0@ahtx3q
z7ixB#tm*KvUef35HQAjS7*z^!l9>oQISbfuCNAHkAZa^sHAm^dIi8!Ik<rWwP+8hI
z<J0%UC4uX+KLIgHnxn>o*E>Q}y;}Jj1_^)?v;av*Cg!C24ZjBQqp<!ff_>ArA>@F0
zGx%<qLx&3w%rPx+cAb)`(th=nQ~1pHIs*VrReV`F+LDx*m}nvZlaY~0YtW2kQwR#$
zaDDdd8I;k+r#qGiuD#B8p&uDM)0(K>{!SWW8F7&nTa{=~7er=H7O@FRULUjx`1Q<{
zlG%5U4i6%_fJT@Gz~`9C1)X$e4qFqB3*ksIE?xy~VH(Rb%5gO<w%*BMmGd)BmvXlx
zIrn5c|Ni-*wX16!U-F>IpFMcxOQoFOVwFsvpX|K$b`9>))Q=R(C1}EGwkM<5*};b%
z1LGi~-I0Jl75(dzG?k|5&Oh_(M2i!jgHdG|!jMVhp(X&qJzW4{=K`_KA^|k-?0}8`
zD7%u^8Q)ahY!6Wt)>t1{xsvv5%0tTO%L7&?Klsk~p0j5+lBt(;?H?iIwM0k93d}IP
zP0`F-TRnP8$d<gEwB4Q^V!Dz9%SFenxgN*w&lqj1eqatcy66*91O8Q68}x|Vc2pd<
zUQL`n@d-$ylh8b%l9;Dpp5wbyf9224%(x>!;}5%*HjkV-k3I{Vf8v<48>V$`qSce{
zz7LXQ2Y`6Wul?A^Migbo;?;a3{pq(~h39B_Buec(f4=|Xi7NM*!#lKKC0XInjQ8)~
zmji{Lu7S^j#WMwdlsnpA=dC*ZTeNB-oE_>dw-c*$_@>vG1Ja7Qvqz<rXFUZBjyVnx
z(_R`#0M{6~<tnoR)1uv`+-%C&yra+uNX3oZhJz(f^_*c{E3tu@CN{+41Rjr10l;>&
z+b-Vqoy=t?aPXQEO=Ay3oUxMb!y8*b{niV>C}Cc*x~#<+UMQD46({m?GomGhR#ySB
z87z}KQJk>5x-?Wqd=AvFA}8$RnZK&Y&0MiKF92*bz-vkEfo|RAFg-xa>&4;z)2++D
z1^vv%_Rd4T+&d+DISgoc1`R_Hnh!!soCw&Z-ko(~?CW-GW5D1AvH)^>96M72`zfM!
z1*km)ywYPdI7jed%%PBgfabh+ij$l}SK6pC3IvUx8xVe1N<%o#M||5{Qn4_!?<|71
zCG{nh8=^ewcV?>rW(;BPehK#g_~0@I_}?FBvx@0g;+^JZAhvB@mdiDlj^F^aRj>z4
zJnp=}D6+Uh@NAF-F3}8%cvt5sXjWV}lh|NW>*qRZ+tt=~!4Zhx=ih!UE)gnuLrLsm
zUi_3?0p<iC&t8dLLx`wm(4(c{iokdt9hX}U?Qf<O0TA^73vruE?bWs;Kst;f3Af(=
zad^zWxGfzF<YSc2;Jt{BNdM&~<J}uMA~rR_GbT+GWlRQoIR^+^?5iA|m*-2D-^Zxe
za1XQdc<bI`^=`lUc-iXmA6f<H=?>}6P~`<*E;mw9`SL?gac8<DU{f@n$d5|apeU`k
z^<P<$jmxcw{{;E#ckisYVT4N0*y_La{QNfAD;J;s^I_$RI!g)s$E)j8mK83N6fHpf
zdO;M&)1RW*xpeyUY1nB=TK6UpDTcSjj;{0Z^S6kCKVizBuy98S+YMqkRVNNu&9POG
za&~<HAYcs#n*=Ia9_?*c3futc>1qwS$D@YADUF0>j<(2tj9mjQV&nJfMsJ?c-XVZ)
zYDNI2C0l|n<MJoVfxAzuv<JomTJhpc*qZ3SeXa{oLWqrG)WjXy1AYNtxsUMk^Lxon
zF&YX+!d9BgH8_A)|G@H%a$**oIHmJ8ZtK!8Nvz<E94L+AfvKvh_D#8){Vx#@q}zC$
zwjzL=aRA`HNeBKQTe80+n2|hPM%<!9^&DtmYo5vNMvf+K)t^v)c<oEnc~V^kbH%T%
z-ZR<<Sn-M@T5u3jgw8vur3R3)Z(EXX2ChvT018#w1WrkI8<-gnNl<0L)Zsz)ZN^$L
z0Wx2ZWpw+wlxtZrFV!OCu|i>2(QYq7g=;0btV<E$x6ofCs{K|XZwz$PJ7BjX)P?Qp
z_kRQ9hE2cqXfi>xetQyKD$*tegeVh5XxDP5dUwhk)lEhUDtZnSk0!m9bX_i0|I24-
zm`v#!vaZiKRo3`xYGQs+MX!U>&SXK>q$VnSj@oSw_eTz}g7X;7wxfGoLE09L;uDgR
zYC@_B)!sS8<oY|9Hb6aA+|GdU)BNw;(W+oCr7*7v4qIf`P+!VTPe<pbiQO;F2Z&-|
z%MC&o?no`?0evwg=Q)OR`4(}hq5p7ekJJ$QMGFWcXVO@mjk>fPd`-S6H?qI5M><wM
z)l251T>O#kl{<EqyL>G(Ff0GqmDJW1VIULH5K)0bS>JiLq%6-$x;cU{LfarAAv`=h
zi{Yx%Q0WXF-~sD;hxE7vN<t1T_EyS$7XdiN4o%@P3Ra>(*V&R1H-Y}m6@dX~ZUrVV
zgwcL1kG@|K%+W??oW8)oBFsN`#9~}zS&;=~l`D`hwWj#?xt^SX-y_xQFRHzXn{UJ&
zJD+mJ+~Qn5de38&H075yDi7eih&vC+ds6*ct01ZB;|>_|w?7D2`+y3Xuu9O#4xl54
zkCtLX{wmb24Tasgd=Ms_IuHQM2UQ6N*!gGw)ON(a1zBngq}vQJJ+#xmP1=8XgsG%8
zW~(On`xW)VU|?~|ow_qJwKO%;qKN&3_q!ir6?bzJvs66@pw{5`f*Yv0X{*YmJlh<j
zJUL7Krc9j1Y>I|I!ce9j1pg3kdhpt7K>qtcN63!@CQ4U(b#1i^jD?RA=qXH0#S4Si
z#MZH55G?PY&cs>a-JL1);{-INUFPO*R?fbDzk33+P)_?NAC}yK-S<2N+`hu$_LR8G
zKylp?(1m#{cLIT-ui3zBDG=q>0D3hQzL5_sH7zvn=1i25-~FBGSqVx9Tc8d!yfK%P
zuDC)9J=*j4m;-QcV~4sZzw-HXUT?C7+?h*kxal;+@=yh6(E$dOO}GwBOLf0fa>WWj
z9|j;A<^T*i9S@jE$STxK6rhLUDJD4diYV}X@mVP;ECZs}@w|G)wO%u=T=DMj(#_pZ
zPPmU$J&KjzTP%x6Ov*05OJ+ZAJ7C#2=}z_UL6NX-U>mrz=M+Gvh2{ZuS4$2A6+)|O
za1>bzcisRJYga~=1WG|c4jJS?n`BJQeEvuOQD3tbtUF=;FD8lKxkvj%rSu;Hg1I5T
zr(%^9*CW_N0?L43svX5QP)Y}&igjcSlLhT?l&L)ZNA}FkCyPVT-khn13iW`C>K=k@
z>(~TLr3!E~NE|3BrJd<`=O_kY+10A4m|Cx)Quw94nM-TdLj>{?!GCFOrp?m^7~a(P
zt@5kiX&VHEgf{*v4my`1x>Bnv*KJmni5VOn>o<d}{9wW5exhj9=a<+I8-X>>p<cbF
z5VWyDt9$E4USF4J?PBQ+YGc%Y+?Nk9@~(FurKAPuFjNl(%x+qU?c7-C(ZNMjZ>D<e
z^_KobC%O6FyfSZ4)QQ!?gDVcPp;T?rHy^0^BGR%mGBOr{S7)>ZB{0^DvcKPl%Cs%?
z6%062oHV5twF^Yg_5<Bgs8*8kGEg7aDZ`rz1n@B6^K`n~rEp2lv3&&W?X5@mx7b6r
z@5NrB23=%x17-(mGI`Qt0S{^c8_jA^LckkSyIgb8F&(*iu*%kOr_qHO;>nv9F!`f9
zQ=J-r=@pPsyDPuG5kW;z@|P%Cg?!R*ZD1Qvm=uVG(V3&etp<W#s%%9Pk~KaHkk51s
zlVm;&=${CWq0*0!xoKEseIms}yV4YtP+1^h4@CjKdD>cAr$Et!_E_2Z+$cuiwnvL7
z+z)i?&=BCgBMtnED_n=57rMkL#f*++qa+a<OG^CL9)KQ2M2hQ`0>K7@!9oD`kb+hl
z8JUw366`@q#2#2lEgHZN{!M^H&b#y%?tq$?-BGl-p8mj`{ro0se)SEghWCL2k|L;3
z1OGU%0Ik(ifz778XcDd*!T%W3+e?Y5RA^xvxALg|*a5gHNX^!E3=6Vr)H7B#1*png
z;9-mQK)l7y4PeG!hLCx^i@9qth$lC0KNq@~&wdT)`;EhcJ&a~HYsqn;Rd<7agMKxE
zzIPR(e|R&T@hrs=MuEbc%mYe!O${uQn2r=I)(D#E1}3>~7{p4vDaLlxWAgh;a+mBv
zA-Qu2)WR)*DwH!of%;g@vplRqoZl-J8L$2y(aZ()px|^8kn*rUh%V&l+HjQEAgHdG
z0eGxdunU@lcI_4eXrR77TKq=Sf|7GeNQyx&w60!z!K3q5J~=UwzO%Je0I<{{isBr`
z8bXguw#E>oSD?`4$0X%8_!=~A$<*P=85#y@r=NGp6nkq}D8(aSN(e8$q`VS7Pi<KJ
z1L%|pN(sfCQo&#gn4s$Nv9PfCNbxOoKsk?01RnqwnX(RyiSRfm(y9!ASXTfKMdEr@
zfKQGB!FV1q*w~g1%upgT6PUNYAX43y$Qv<uYdYYdHRA7JfD+q;&QM;$C7D!EL=Xj*
zi<)Tt@XP5~TkufpF386>xZQ8%IZBUYe)wnT<LAK=uzr3~qf=0C-S38$mIA~R|Gd<g
z-3Ard+7)o2bt))ISzFE$>$cM*fB)D%H5?s~Vn8iJLB?aGsv$jOcTTI&s(0&kdo`-H
zp7YwD(T(x?Ey(g)kbwEx_n)-@`==ktLlQzM=E)1xpMaU5)Kg=PTV-Yvj6$4;%jXzT
zK0P|psqA$JK-%7-aEpno-{P%2gG{x@#n)K%<S4b4F_1Kh6QG=o#DXGsl((0cpS`1F
zvT>f_3=!l;*Rh>U2V`rP3a>jl-0K<z&f1?c@nGcAn_D6)Cx<ZOqZ_sWwuq#A>(^7W
zF;K2+P+Du|visgsY~Kcgr6+rJs_BwPUw)rDkk*G#;0eL}%k!_lR@jw%gsrPqN~lhr
zk+%f%NS>700531E$cwio!gdb!wnBp&Bk3y#!2AqZX(%r;#~sqzz_I%nIOSv;zoAP2
zi<x}7RT&kAfMt)Rv`2uK*HPWn)U*mPM1zF;u#fI|Ju=-E>o)WelzGP4di3e&=n_PL
zgqtnvlwD{5L$Lp)6RhXi^XJt|lXu!)`ITPP_pVj)5bTX~2S)KpjKb#NOViYkp!`hO
z1XS@12n^(I#egj{V=6B?q<Ie5nLV$~#UV3LAYARBWNrrtb74>c>H%3sOcu2Z>FZW!
zuWR}$sbZ4@CU%nSW1E0EEYL6nJr@XwdH=0b-5jc2CQkPy%Qyv~K{b2K8r0JXlmisw
z)>;)pe$V|^C)ii5pJXK4NuNLiYW{r-<<X!j#~HT<N;#m9yjEQmHif|?NnKU~kxwX=
z(r&APLJRNT;ioT%xc6jtV10VKa}6@BLiSgiq`ZlptUrM+Q#NZq4awr^3kh=#-j$%#
zvq8TON3+PR)c^|`l0LU-KMYN__WDYZ#xoSnFdGf<Ua)8B@t43Fe~m5w6T6Wczr@el
zw=WhJ3MqQ?-vt)*y&SM#*I_lYZ(XmxWf!satlx1M1$D0you(L8-qmy&2w$k-9Cg)?
zOrZ`?Ief9WxM%~cTYyrJJJqJt+`g`|9Tnsun7cgt6P|2?o&S0J(!t7;ONzhi>|0Q+
zD#=Q~#I}K`@zZ|u_peZuWEzNujlcn9ARr-ea&oeeUeJ^UuubeL#k+L+Aj0Z&WE*II
znn55Ve>ZSl{zMTp{4l+bnTuf0k>nUJD##a5N1I@ZEkz|KGm7x@SO49!1le?$+x^p$
zZ)d@>$>S~ey}3ON+{4q>{@;5ZoVyoSK?l(H-_Hg3K!Lp-l!WI|`Svx(KXrgWnyaD#
zT&bcxPW`*r|MO3u^eFSk`ZxBC@I|Q7lYD~Q{ATz@)DLQXHV9;;UmK4=&BJSMz}>J}
z@!W|HH8(($lxt?}Yp8NByJ!jgRn`7L6-*t6`N&!FG}mJ01oDcr$Y_tVV7J#Ervk3T
z-asuI{LK{*0jv239|>ta0f9WawKx4^x67u<zUDeSgUnA$Zu`NC_Mj}o(04ey!f8u5
zA&_(Hy%#u9ikEk(Ns*>U_B#Wf(y}*?{{s8$C2^?PgToweVqyPfR{D6w0QmLnf4PqY
zWhv|NmiwNvxa)XRK22%$pY8wJg!li4ho;<EgHOv43QL4O<4)8V7Mb&h{rU_0@0~J~
zWz@qe7s0(PC_jB9YPu}M`+dkVgVqVpdBZ+Bd;S|*VdtMfJcnd$@J1-6Ms$5Nxyl4@
z34Wgyr21;{-zk2M*$H7m3zV8x(Cx7=qr#|=(zH>D1PK*<)FkqF*%08D6VKo?Y_J2?
zBU|1%OIQRfUtnF4PBY(A!O;rCE-=R~mg(<a2UU2p$?)$t__ofjWRD-BJRa`vNudpJ
z-=M;%avg+j^<}K>ktIIUboU(#0Tb8Dt<dprGxQBEPv|sI#WbWR`P62iPPOqR`e3pm
zSTQu(B{u&VvRfx`bN=~Lq*_Cv1>0DVm&e=U6Uxc%#WW0jH1F?XoB4OJ2dS@sBi?Ts
z|3KH~Rd3gjW6tnr|FH8h5YJuY;`ZK8x;B@YZA4Hc{NF?6PEZcT3|bMFkZdngZ5mSP
zMKy6WRJ$Gk>#FJ8OV{=H<G69|DRl9aHs{5&oPRZQw#tSz7k_<!kxPK{M5N;GE57pr
z1)O~IVa&C+gf5kyJrT)KE5xJx565F=jk7Q9myn0Ktv#weqbWVefjn>jx^awI-F$v+
z@t%LkoY9>3u9caMG-&3hr>Ai1TdjWXIS*^+pY-_`mHsHo-!k)0Q5>^8=-?PVZf|CV
zb2p99<AVG>6H=ODy}Pd(`Pn>uU&LGM;3X8#m!<6a!TBJa6Qk;8l_N#7Ckq5;N00A9
z@~Qq@z`zegKDES<>96?<MWcng(I)*v1`4G?dv{a+92y?=ykh-QpKrdSsg-Hqa{v5R
zK5an*bJg+vTkd8RPS{v6njICunh^!_#eL3w!uiZ5>JmfvU%2`9dGWrz?5zTtXOu&Q
zJxK}kzlk+Hx>*<fWy|!a?w)Dz(dUiBW-1r(@dDvSpHcohp_(|!&7Jv61*uUUr^243
zhb1Ql1d(4nb{z|v2m(Lr-1V-Vmx=PYuQFzV4C>Z_JY1n&DZQ#!Fh(f8@SXJqd(m>7
zoe%g8>U9<i-|sI6=FVKgkune#w8Xk!?8E!ysMZ_?Ds!$Awx*L>eOhPoeb;%YNZ7~o
zlm?948>sh_t~#n?9R2aOYGRaBD?4#IO!CGAYr32XbN19Fq0%dqxVc+$3OBXh)%T%i
z^*K`K7^*LNL<rR!cNb(c_7AY!%{ujG84VZw(%4Sz;b-#GHOjY@p%XS2h~*0zPL%&3
zPfD2RD9?X7GCj|a<!-c5gwyd+uPITH_L12&9X|VYeTmfOo?6)BAALYdRlivVbhU4*
zMY$Y@_^s`;0YuUh@hKyQ{^Klq`18t2=Xj384}Wv>W0?D_qW)Pf)Gp=vxVwQ4<$Mro
zc1DYL4W6d4Z(=HG^hqzMT>iXGMMWA87!9lN`^)?oV6NS?k~se4Rl@&zVbDK|gRb#Y
z9mm3FjdOo)<fEqf=Po{f8=g3Z-mti<e{lEz-9xzaWH8^QlQJ3a`P=hs$}MFI5r-wp
z*4GSWyfc5mXiOBTIoJOj1lV@jJTG-|;QVJY<wE`ZjmbOnZ&amAA(a?K>~EeoN>rkP
ztJwK+mnlevhp|oN?l7c+vghW^_WT<fW@*0-9Z%fv|JL4{M??Mof8(S`h0<Hd*1JTd
zkbPGPNut7JC)w99wy}&T@3Ixjz7)cYH6de}i6ZM{8T*VWNro}R%wWvS{hI0h`F`H#
zKIcB?{+;vt-uLH^dyeDqdcCgedS1`#xjdfF=k>bAar~o|6Ww;E=KX6K_{)85rk7Ct
z*V{rP#X1kdWI@7wmI6Q%=OTV>O13{Of6g&P%;#IO{#KX#PIKCM1mF0x-{&21{GVmg
zf5uY%n+hD6_!r?g=CPqVTe7S4_uv}AQRHWYESRyi?25}!H(?!<1($=H!u>Eau-0m`
zJl0a6M0{;SxJ<vF#cWUlcZK2lxv2thMj2w>KbXIARk@vRMt<+zV~=3#l~LCLT;qB$
zQFFF>r;BiTbUlei2@DHMtBmm}?qKx>J#rLKA61y}ppIU7<ZbdnjLoQPtQEFxM{2Z(
zdAnfte(U2Dz|e&aj%}sL%;>V(aG2fzG)%yMqG+QWW~a&<#eA>TxZ@1=B|py5)Sr~z
z#a?VLz}|;EP8%AFwqP|t-DZsv@6l~u)ij`ko4$WK0OR+DYVI9$s}bv0l+y}fyE|uI
zUO>4+mFLq)U$@PPl&vmWg(`$Wq-e4A^X`GXV_1}+hL?NPlw={&ySWFnQZl|WE4CVD
z45uE&)T#`K?U~5KIe9>B>u?3ObVG18Alu!zyY!vcc^cPdt9tc_Jr`JJw}v1rjNQwD
zx;9%L848|!EoNh&4HLFjunRd=Cka@X03YzjkhWLTEi)Tpl(lfGCM36&j<U0>Z*BBB
z_~cc-VxaEbG|9Wzh+(tys0&Be_!smr0_PD=_Gwi2iY4U<WA}5Q_UpV^*v%xNW$=%@
z-$SV{%y639*D}IxO)dmuh~@M1@PlCxMmAQG<TX_IBjyLIcUen?3N?O<Wl-+!nx-pj
z7Jd~w>v;u}=)$OYL#k4kUD(RcLelQlXqp&k1<7Y6ptqC|vpptu0g<Kp03F7F01uq6
zJq0NLv;}yyDEw*<_A4G8p`cIgkEU!Z$RiaxnE@40stcwBeh@ZS>3A#JwRqZ<8W*~+
zjS6Q(HZPJIXXbgVm=J|VNkwJGm$>Gpd)mk4pS61yYbhR=6_4>O7Y`nLJ(Jx!sNIHC
zSLl)G@H*>gV3oMC5q};yhGFoltoYn5b-g8RbMY1lyJmUBzPn+MJ3dc?;riZ!-`ZdG
z8fRqDulUy%i84(x(h3}j*2Eo+4@Eag%nDsnE#%wgE}Txc;A5-Ayo%*kWDt3vgS^K@
zpawU0--@K5HWleCN)HC(LZU3mON14`^EQ~tcWk~QoW;Cc%5Q*|gXYxRbsKl?fd{<`
zOkrU)CRDZvB2+C=keg&=?#dBJZHH=<PDd}J&8e1wB-C)lU@uPI!Xg8(d0Xyg@>eV~
zlFD@7BHl*MZce&jNUFRs`j)!Q4#M8>NZ?j8+xwaN{wxODk<Bpz>Qgme&ze2N!gY&x
zvX<)0ttUjcmTN&pRW~d35Q+2UYBmLSWEjDVR?$$_Tl95?XO(3hIYeGX)ReZ@MPANm
zcO^|qx3x_-=2cy9FOIYWQ@!WKAvOYfAndE&SlR{HQ5aK6S8q82V}hx*3aG@5-X~#=
zt$VDQb!tR5qn5F6RJV?6!vsM3*7O_X60@e@_uHG>v>O3)RfSe`D=_2uX5*Qx8v(Q+
z$BYZdS;KQsysN35?e9#Wkp57jI;7D@l~)yM+g^*XYjnAg$HufG8IAnm0)B68sk#`a
zRacw?jA~uv9ducV-9c!BH798>uWG2hs<*H;EH7f!2@U}zg37HFfWO}X3$x=hD#Lmd
z6+WPh*L~aj=!2d^bVp<)cyhBv4mRf<bg{nGnt9i+@@8!e0%1b#U7Af9ZDDslAfkoG
zT11<Z7tO4fI}p9+X5sBfL;&~(Iax;d=uAd1oM%uc<})gqJ^y6fn>d2_%>BmI02P}T
z+RHFP3#Q1*$<}Z%*rQuk+#-zKC(o-_dvFJH?JxO_^W^zfuMK%G$BfNJ6q~UZRD9s^
zf$-X<vR-d&7NuG)keXF3%5Fxv2PjMzrU4fAE*1`^{@~*pXAi1TaY$$l=T@x6eyZxr
zpGm(Dnt;-k#}439Fh|ShO<_peuMzr=1&R{L_tR<?z~O<who>E&gH-LPA;IiEH>6!3
zi3{0%PH^HOu+NXe7pspQ;}ggiMS_JE+oRogi{m2M1l~Ph04Qm;Xi?+SjSfZS&{t}#
z&Y)Hz=kV?1fvsOw`C$tKTVwxxx@Raktm<1^f%3d7H-Qb8oX-M8J1Q#cMF}lRXel#(
zTxw_a!g2l)K$E~gvbp1@2=zQs=FC5@$L5PNf1MkG5C*m+xXA3u*Zl!-%Sm53<_4H4
zl)n*=Vdh8d!u~n-Tt%Vg#?}Q)1ALyUNPSNb#k9Jo>egz-7XJ=XUv|FX^wDiVn1g$k
z=A8;~9k$W0r*F}-2#;F}sKbN_?iIES0t7ccZ1(mcb7A^JwPWan4znh|N!{7#2yoWY
zZ&|78e8w4oc}XaT-+}AH<mbBb`^(V<x9OIR5qL@V>|S<0vr`$+D%tt8MEpsx9i5-^
zMZaPrIS#l=Ei`O=ffvl?F}M2WvENyYsw4k1)bn<PtT`gJTC^&)?g1;~t4Cz_Egtol
zKRmWB(hJ;A*Kzs{2kWjFaJM1t=^vovyZZjtx}`2noA2qHj4v$wujrI$nFjN(`)M>j
zDT=W>hTUsAUrKNpBpq#99;OgT@Ze+E{iqMl6;daf33gprmYvqS?O;n3|G8Wzf&}T_
z!{?Us*$Z$$ztSfNLO_JT8LGzHh;|A&b^g&@ZHzC=Cpo|q0n7)D|6svMLZg%Q?_#T`
zl`Q;@k;32#)?z#r;4~R{xW4kG3mhCjma}1}Y9Lp7=9W^ER^7~^hz=yLnFWw<Ma>In
zR^x*knDx0>TB^qSN0tZ5Q`n7kVxkgZsSY6u96U*Y*w6-&W6ynE{qQ4Wbmp+*7ioOE
zcQFva3`{+j#n$ENt_~;pyP8GKcS-pGy#n~}<(DT^1O)I*p}>t*`R(tq_7ZD*6rcS`
zv8+b)4r~Q;Vc6isSqhLbq>?gD&%%t&YKjY>iDt_4K8GxivMxZQ0ogBTf4hq1hVim4
zp!5Lgjw#*gU)oZDm2kt@umR-=T(qXA0i0d7l7jmyJNvPo<p^!?D%Psa8P|&3*&4^l
z!js?vR#~-mLk9m=L`xLy8R3hrI5HGm6xYFidxk^#@ht1WAz*Y>6+q8@_$}FL3l%zk
z4v*EbkYL^7u>SnF7@hi8<WTvl$#W80iRps3f|@H+^Cgkp1NnKDiDo?>R@#eWzbU=!
z^%F|nBD}z~gA}Rq7`ZoqD-Mu+&yH)L@za11+c)=KpPdS%rbiFN`hkZ-c3*pUL4T{T
z_$I(EbrqX9$javW3|!1|qNZteA>R+9Tt1&?875xwyPGmazz>#(?t3RyD`^o8-nZBe
zcHe#WPt8p$5Y?}r?&#d;P*Lt!{-+^;3?%D!%miywAK+dn&(HAxP4;b;30fN1g3+rU
zeB_8`bKramAQ}Dc-D02zxUb6d!T+>BG0yH$yZ&h6WKTqMwkY!776A}eZTD`f)2E2E
zB2lE<e_0CPx{rG|y0+%xMtFc+xOsJ<j<WIJs>ZU4!q!M_2`RhiDlIpKV0EiBn4V_v
z%2`a=KaCZ<aJVKq#JuKaZHKjls`6q1#tH+U248HVTE^-)OR<SIb@>bpvje9Q43&Fo
zT4(YhjdGLKktSf0Hx2stv>yG*g@aXNGGKWiG)x}Xl`ogOx3%0-UtjmP7+6iKlp~xf
zVxl9pU-x#jC8|t$OgOf(d*{jqp;*3YS9R;R&oFhnu*Z>tzKD5(c`U=Z9V_3&mLBJJ
z(MSPD{(;AYSC~b(DGY60l#{A|2OIkUc&!!qEDu`9g$GPX=j&KVi4}K828WZom$n87
z!W5+dSMm<w10;emj<JIwYhvC`Uvy4mwL$IY12m&fD+H=#knnMNumDcG(ZlqR+9<>}
zC$^S@wBe(Gb#ChQ#(4-}POw@i-fZ&BMo#$&;aama)vID6eyp3qO7ix$&N)a}wFmy#
z_OR*^m^{UP^ol_>KKh2-!KAc`j`E!)Lhh(5x>8TiLTY&!>(RZq>NZs3-W^aA6Vtp{
zTNP7ja(H)bsXoz4LE`mgR(t1smNRMS+eY5jMMmDspx=*0B0P&7$Mft4lWS-D^JzoL
zv3^pGG3^eVq%>)EEDkMGvqZJp+QDU2dG$#S(G|UhADb>z6h-7>^TG`>birX^tvTyC
zv<fg~V2ht;WGqIb1F*sxLD1t>QeyD=W7v<!Ti+r8W67dm?Asn(?%o3PYCRzI>3zvn
z>*%b%@oQUV=JuGhbbFvcaB8+_0M@vg2pAtJXD9f2KEaD?qHO_1zMD+73bPG4>f`H^
zaZt7cGMvKd@4OPedS_)|>#IaQCrQ6a4&QE0ZiZxU#1RtT%y+>CA(g7F$G70|A<asQ
zmQFrzZ8t7SVDAf&gt*4;t*=^wXI=89fuh}ONKR{ilV89FMIuqn2CTrI`7!@tPST1u
zMrwMw>H$sP%=#P%K#c}-jP+Hd_e3ny3)4fny*#cwA9e_XKd`&Lsg@vYX<pNzWT87A
zht}PqX>ZMAcT&uwUg>Y=XUPN9*2NsEFDJxhJ3Nov>_lYOQbCJ1dt@z1u$q>c{0U2^
z!c-><$UvW(CAuJD7r_bn9a?&_$iNjyIo%cBXl#hY56o+;O*wuQhP#&cG^w?CPH$td
zunB9~q5R+if{<BLc!h~b+e<li;sgrze9lQS%iEg+qS5w|>yPQ#=!X7SAI2O6%&;;{
z-%}9BxS3H$busJ2$-(=9SjE^JjkU#=P1hewVdH}32@A-Y-m4c5P#*)ZJs3@pRPJfE
zRFJ61A`=2~tJ<Osz|}ePbE@sc-XpELj397rsNXhgX*kZ;1C~jjU`HKwNFkbC=?^$G
z)*ne(B_J?pE2N_YvU6joCZ;UXwb4)Sx4yY51CpjMU&*NIrR){HP?y%&)YAKC%<(Sv
zHNp>k9o$d&ytLuuCrBuqx*zb(Z9kHwrBExtALusrQVz=1m-XTrvea5Qrru856sWed
zmAGo!g0uFSAd4X96p6P#e>;~+{r_bi=`rH-bODTy3p1T3FwmmMYKUSXP)0EL=cPu9
zJC2hL%TX1Rzul8_>0{duv^5zyUy?n&Z(u#P5@%mvN38O<$08An1Nn>Qi)=#bSOzqp
z%HNVs-dsmor&SHjbj>bWPt-aNOaF|%LjFcr`L}cM8x9O7uM=`H<+*#CAqT>0DHuW`
zJk8qJis>k!Yw;UWnX=sUbIkha`aHZ^PQ!y1;&1lwYmvx591yKUc^-I0DxxS?l==Ce
z9;S6LxfwvLe#-Mw|9oB>Qs0DGDT90**!uEsYWB5}ibUspgch*?Ojh`(v3Jr`X7m%@
z3*`sjAV1CNsg?Za*aX7ErL9Rq6(NooG4sd_Lw^&TS|r)}erM*ty3Xs^$P}8ojV;q^
zH>rRS31*m7AS3MoFThm8waL{Veo=q~u+=|D^m%)d`kinA<2CA<Xc<<BqkJDAFh+yf
zEWY~)aQ^S7H8FlLh}u+E7)|nrZ>^&pJupM4z0-lUl2E$h_X9XMu?hzyaIS(wz=Pff
zU@!1g2tVsC2amHPC#k9cNNe~1*afpMy&U@Tceb+5=ttv2>KNfG2Aj9i3;DjerRx4;
zwp7bkOHXcw9V2j5^?l(at((c$gpz~?+D*w%m$oir@_1I+ApyQv?fWsl3BR|3VQRDO
z_oX(R>>N}ikbps*WRG;06*lpiS>q+OqjxC;ZcHP*8lvf8M;=((lEFyu{3EcyRXT7I
zd*D2lP7WU;0st6s|DP`0m7V{oU29VqOeSglQ&=QfDId!0P&7M)Y5FH$1GJPoy!Cy=
zFJAiFMZ1n(0?Ye=F16P8?i=ItYrXQXy#UtV)^gT0xyYSstE2aqQ~tyq)^LlAtp*@B
zD$Pp2<EPB{q!1>+x?BNqr1&@`Y@vSAR=0d-!ce{Q_N0YwErJYWfn1$x3N8H{Lr$S~
z)B*4pM~E9;U&l<i7tYkDZTMeQj$vMES8VICWcuNA)g|6ba`Z3dU<QS;ANS<n(e(p-
zi51;@4&jD<JDCnZ=XD2+!UZ5H6k$a!G*suTiUl-{<OxDSn1ls69n!k;eDk5PgI$m-
z<YqH#52=bCkU))|DuBr+Ey?A`;Kdrq><8q`XdYw9l)f-mVAVzE=MjHzW~ClIa7vrd
zEem9QT3R=iJt$=p$jV*akJD3@;4R*su%x1h*@t#EVvB9xzz&R0!Tn4R)B!$n)+ZmB
zuvrhf)^Xzg%;Ra=0o)z9EPCL`T8&edRe)H<xPTdn3SQUcxcdSU#Uvxv`BH(@ZE)DQ
zW)_gfaaO1SFK4ulSMo4rKZp4{Ecr(%R;3tAOg(6JO7&@oT^KZ=Z;0JJW<Wd&b|JTp
zuGeFFrW+>+t7`wkV=rRs*#ZT`Yr=cNjan(gx_}+k|1UUZMtR<{GtVGZGQv@8`^Evp
zZ9vUJMp!s}c%XiHRc+BRdRebVp>oy1PpXccMS+$n-bdLrHb&mgfZOQ95#a*CHJ*Yi
zg}3Ruo8s)zti2pT_jj+5mq%xgm{AsVOMCTNDbsAp7eN8Q@)qXt($+6*VJi#>O>5b{
z1vLg-KmE_DhqH(Q@x$^-FLsYUzJPs8Qg;3A$~eYZz1VqlPaLmcXFE7(0K%qC=dA1U
z{39x1*pYt#QOVn<Y!vRi3LqZ1q-}eHR)<#m&Ij*ND4A_4vM*Y4&~m-1B}RMHt8i9+
zwR$!M+7hv{0umK$`G>~ifYA(K2GqbPS8(eRAB!R=Ctr&pn{o~x&kCWo3Gs^Gc0*1D
z@LUo9m7!qlZPUlqR7)`2QNLsGyN~F+;ZC@kgD~O+ywDzY7Xwokb}B3Wr~g!BPnHM&
zjHJWn7L<JL|8udU(u^mZaRDv?(dc-vFPQRug=>WklbyZ9JyDP!mx61WTw=w38%edM
z-*qC9O1jMl+7r4?8iqz9POpA*OY&tSj=QlG*$R5chgRnRMw?cM*0JBEmbuP<#aeFg
zN88%#976?s_*y68Byqb|;u1U7bN<e%ES81(H3XjMc$?@d#$CY<xRNvfPKFuv0eSL<
z#vQ^rbj$j{R(~|@cb_OhR^r+aL(cUbUCSq&uGXo*j?@q({8gfS<U)xAN4|z{H0x2?
z#VSets-3TdpX_||+;_fxcMq!9tiEFz9XE`=TEsj{TKWHihB5pdb!&H~2!<GDRZOWC
z<hfb(ND|ywz<xuGYa%bP2<}+-Q|1_cG-aOF_2H}347nSvw7o48umvy)#mTC5y)b*&
z3Fxb*V19JRjuVhy@k{dY`vicKeOOlRxCzsnatg0kPsnslC0I}Bcn`M^V1GzxN6vsc
zZjCbi@1Byi#*(;uz>|Nv-kpqf*4r4A+gVYsJ;N*lhEO~V6vei$fg1?Ta3Cqeyidjx
z?i^h4ISn`_zOVZ*8E{h`n0lB%>pD2{S6IQjpK3o=m-CuKm(`;^hyChG9iw_Ow10ew
zXBv-4<ul4+nEFEwA*{m>#IN!*7H%*1j}s<fqcG*Xy&XlqZ-GrA2UplDA@V0D>0Z8L
z!3e7~a0jMf9p-3hz!E?dQ1BD>fRJfs*6R!ixSc@9^utSpC)sMGD7XjriFOZ6Bk%$a
z`T+(6gDle6QoIt+@gREgR{J}x%AE;<EoKIulH|+!IvS3<b9>vC`$2H2ikP<EeN(JU
zKrR$0py6j$svK?Fs}b`LA#8~pzsO12A*aav$%Zv3$*F$<tACX{{}tQ+hgJpuU20-$
z`~NSs$?11LxkVn8TcJI()%Wrj;EGfLcLn7l+nL2oOtDg0Uw#lgU=#8PpnlAs4^$jA
z-e^VQa}#40&vI}CQ=btk4AtwqQ>#|9fD$Xd_ypeVG-Hln!`JY3feM$kb`mK*#(_G4
zqrqsQ)73zVNi3M!r(TH7h@lxI`2*ia!O0tLQz^#-Yw%-PwRp{6f2Bx(KYn1s*Ig3*
z>_Y%qIy7K7&R*32klO5j$142q7n%KlT4B}nu=0Gr@b7wgU7+<^P4yiZ)4|~`u}be2
z-4?uZ&fDJJLG5>30@U_eLt|P1r&LKuSgI#g7Fs!2=z3p{W~&5{&T<e-t6?}xp`~ow
zVUac+vMgSs4)7jbB&`w99+E{MY<cfFoS1c5wS2A~H3I|R_}$d{(ld=%s{h2JVR_HD
z0wnF+1cXy1;|<~#87SK%s@n`MLw;-S=o>@zy1g+W?z;(u5#527w~@}|S)jUe3g(A#
zg-LAq2ku+7(5-Q~ve<fqlqL=c4DdOx%Gy9MH?UPixftL<9`lA|9DGZ^+t{+Rv=p4Q
z`Ht`$2-nHK%ihjQtUUzo%JTs=&WzE#D*xzv8M+bbApMDZ2Dox-QVq+Dx?ptS<^mRM
z<Mc8Yu-i?wL5v}S3Fe|%lV|u9uvJF2*fF7Bg`oD3Vp~~t-tgw%Wp9p`FAqix&TT8t
z8-T)xhGZbP4zHc9UQ7e`3Ohxqv7a^gX3qLWxJH06`3pgJv<GQRckl3EGcvO-kf8@a
z-r;j-tTncIXKQm^`MA53J?kd^#0h)>QUIMC&?>bEWK)W@g0n+eH=yy400Q+cDtDk`
z#^1N?bP)P^aBKt+ST_kM>`T-(Ce5tJj=y*)*18#97>bf$uO`nvfN8`kM^%gJTJ@I6
z<Ltiv_K4m8cjfl~>i&vKvm}4$Esb{wzpl1F1Ka=JF9KMe9DTT?df?zFcMTiGm>RS8
zJ(MB9jSrx<>i%z^QsG=<tnvu7OonCH{Quq&F(*<X$>Qz#3&J*R8UIh+NAiDU&DAa-
zIHxTnZb?}ARW*S?mLMzbzukG=5U@uJ_n5$sp~Dib=Ni&lieQY6NFVZ7@1EIKHs_2C
zP_0dpciT&~ydG@?0Ku|583QQga>H9TAowiV=Hq5S{zWh&>dv;mLpVnwWr0ivs9kGL
zowWidE`PO+uqMCH=~)DsS9i1`j50`Fjj*HT)WjQUMb<z(LICQxuOnAywb==oaa}+|
zuys3_oF23%u)f=vSj#Lb(N2CPUsAt)r)z1K>G5OR3Ffa<6v|R5X#HUTp_!wTnWa0`
z-n4T*D;0$f?an_Y=LPE6D1wbd!<aeiBys0z4^kN`{RV7&19%d5dJU^QzadaJ{s>a3
z9gtRChyynB*oQ^N7I1o3Kgo((m22Mt-s3=|w9GUGQwy$Guigxx-4)|racf5eZj95l
zNVRA^WUL11bzG}WY^XS@MSpY1yy*e2<5gkeqR&tAqT?h@ehUrUEm9**B0(ecSVDmW
zVhJC6Bzj)Id1WFZAet0`T}8Hg;r++UljNt`oECL=pOA=ub@4MA1+wfBv9SWt8=L6O
zVW;pN6t>D7<Pi8ZtneLAQS{fMkk4Ne1!f0#8t8p;)aAB*J?5jb2tL0K;AL-O;CN9-
zTZ(Z<B+zk@L>`qyT9QKsF@Ci@mfzipDWE<=Mp`X)tfp{<H855t-^L;Z{93lsS<PF1
ziY58SsmcJB?*e9cbiJGZJXa1K)MLeC;nB$O0TWQFwIc6vI{CLUF1g1V<UH4MeGzP~
zxjaIr8ODCpYsifd4wxGMWY;uUUjX)KtbL_j5Ir^0{@8lQV{^)TQN7uJZf&sIl<W}_
zno(3F_rM4|-+&BR5}&cjvfeqqW8XMG(%&rkYf9lf2K{yeZfdPTO(v)<=7&xF{fHKP
zx`_@O%&XBM$!)B7v~Qz3$X9x3K}O(-K_~sKxdH6pbteO-3V`JZ^4e(#pMy<7LuZSJ
zrNHE`lq7i4;>7Sy!^p&!EO>vY|4e8K@PuEr9ujzBOd7TF?FC~?`%KlQ>L!`6tR1$Z
z;nM49FauWxcCYx%<DCd^!viWLbtL9$cBotxU|aIi(v}pANBmMXMxzwrmI0024;<rk
zsmW8_A9M+Me#rY*|Htd%x3Ipc?N!EeRYP{4b~9i;LzO_%bj7>ORGA;{f3e4Lyrdtd
zP<@X<hPy5Txl!;<x!6;Icfh}ZO$li=o(r!o0|ko*!34MVo!c4A3F~{V853WW=#FhI
zy>l2j@Rd_Lo0v;OKEIS>Pd{cjL>#K&FSOn{Qa7Kw>+tTzP{4v0@v%(pD>qvx7`*ll
zn0dWfjI6DUu%%q|qNf3{O%Z9QkR)N|XdvfsHEd9Zsb(i5tQsM~$+cA}qyH|{TFQsX
z?9_d?gTGN-BwDJ?QXmcr;V&5}bc<FtJ)G<SuX+F{bSbMgSsL^Gt3c7edF!1a!kD~@
zO^tpPX-Iw*N<7-!*xM77T3rLe)<=e9q%9910?3r@Mz+gGRnb5*(~SqhV*O{}iPhkF
z_Aq0O@Hzh=mn6*IRy&x7dJBpj7+(VRjT&mc>+L{<Rp0ap+P5vHI#o-B$$*Hu4Ldi;
z9ZU3=k3!h72fLI1{$IOulvQ2d^w)ZuTfqAsVK)A9e?7c*_(PY&<-cC<uL(c(`lN`V
z;n(m#3>1x%*MnXQ3I=$tU5sq|l!52dbo_ED;ja_86v11E4HeIPfL6%$89w8Czp@Hp
zROBeDb`6A}Z(u^q(bNr{4PSHzP((x4G`GIN<$9Z>OaF)d+^#-v>A+d}%9=}nTasIR
zuQ>OL1U(9b7e2iaDZN&Garwcyz@2Q`kC#eDe*I8YlyaN_R2M3QLdVHLH{v#+b16>5
z%HAVVP(%C!R6WWSiiLs`)F_(xqt#S!6UPe2iuqrIQhR9c7y+7rx`CpB{DBt(sef(P
zp8U9Y2LEN829HB?Npbt<Z*nO0ix$}vgQjoyoC(XTx{~T@d-=V*)L!w~K8X62)}0Gq
zsVhkd%bRKG5+;(PdW(6SOx{_A9i#)a@#v4dJE<b=hc#Riw4x4%@9tkJ_d4$98MoFN
zs<L+9ISem}mqks)9gH)D&ZWhQ*p#K-8r>OdnXx#!gVA&yOVCsOj#NiSB9H(2SaCMm
z+r;}_NnF{(38~~~bEizdtN$dwev&4WHg<8(WY(9<XZpfU1uBslT%gpgOFxrmEuN9M
z@lzRA`mL^KnA&yx;UD%#)N-z#`@9iCz{Ui9k_EL^T_K1p_-0u3KDd#U`fTxZf&d<@
zN(^Qc>TR!TxD>W5{570p{5hC+%l&PMi9(pzbe3YcRVEcAqn%uJyQjh{nvm~Tah6W7
zzvz9v==d*OUf!45$D0?uZx`97AFsa2)i!e@N+qH+b=Y9P#K5h48(F-mr?SM=>G9XU
ziy|4mBk`X-GlwE+<Q>6nNxdsE9=GO(JZrX8DwT7!j9TtFmWlVM^zoFQ#;ZBECiG;E
zsGzsIN_57JXUvY{FNl>yNZ=(J`E+9wbn=u?b}~k0%Xb#N4a^9j#lLQ4?2J7l;bt>q
zR7=xX|D=z38t<9oz+Kro*C&bkffD!}`ys~CvRgB!@7kZ><ZpSa4hc5LW{!5)HgWhG
zZe6#?X9@-~dj(D>jjd1Zd9OQ7T}0i9tL9y|@m&Zzj$NN}{bkVm?F@c2L12eRaA^Lz
z)*?jp)%?4ctMgM~*9vF8=m!3Zx5mlYZm)iB_xK`FK&eXyq_KiB{n8fT`O}COLE@tx
z`zLZ_xdcwWD+-OtJJO-YcvHAbh*ZcM*L1q<@p7_=Yr-f36Ae{2PX5M;;|j8hx*pW{
zN>z6$fIBr{VQvU=(AgY+70<<+cDC_cZFR$!@*$xj88ZA1Yh}DY2M74yMjjvOsW1T~
zC)X78jQNn>Tag^E{Nnkj#zk8*>R<@+PcIP1grQfFa;O>nqQBTv{liT0$)Ib~TMB)`
z$)LgM$)~He=mJe?V&yG_9B)Bm%*`hw^z<(+c~&JKJ+i&*XJF~)j9Pxd<HdW%w3j`;
zkmk>4tLPC0l0iqg`Q5#MZvwn^?~gh3V=O7}e&$w{^nkced3&<r+E|EYjX?vhJT*nI
zD1rd$>Ff3c&OKF}ZjX?pVH6{nWxXtE&zu!rp<Ugc8}P-Q=y@_MKdk3=Y)Sv@b!P5G
z!rih5GhYmcV~kVp4pj-9(1{zWpH(|C7=)PM5mRe$6Mbbccav6eU$xpOXX_8INDmdm
z<e(oQ9?jIVlBJQ(uXW%`{!x^_C_ZS0_csoO%(P)0{<SOHTlwN;tw~?h^M%jW8kqgO
zLp>+PqK|s+Xi3EC9fKCgh7J|(@|IybN*n8|;#HS3`4C(}Z05{^!9HhVCH=BAf0TLB
zvYss820idtdMmi3FXpE&|G?o55i(3ECU1nw>I@6xJrZ();(hnvB->-Bx2)igl-6^?
zDqY7uW-n^I;TxtDJo#1Cr?GA$t&<{#PeGZdk5|OxZb6>k&e=N85i8Nolta+2nPt7@
zQ>{05P}AF(t(E^Ld9Q5f!h<3_;brbWiDN}pR)*)+?C`(FDe=(u#8L<TUBgXAQp-6j
z<)l+@(zG|-+-1k6V4gH%t`TuTzu4DT3x$nm(8pVh$hT$mHsry{xgr~5Js}){$Z<*-
zR9o=7P1%EQ8wZ>fIuqwd(<lCmGM(%p5+BMq*y_!j+l{Z@P%8VoJql?Uw|gq+Xu@0S
zkBC)}dNuR4=sZX5*dZPc?ZzhLp<P5L!t!fNLOK0PxZ=l)sHTv@Zp4A`y)GANx^_&e
z_Yc{dpsO>qtZU3<Pa5hYIHyVW>WqiLwFdKd(Oyq<V#gZ-3W|2@N^eB{a3F}NUi@)3
z)$92h8FMr)pqW9E#77(*gUcJGpyQ#yfv#yMKfYS(_A-z?;;uP&sOr>!AZ`CzNN1OK
zF3|oPjTXz%{2hMtLK&h-t<hZfdeo0bCkGj$jq!5HMVw9moghPXk~ZP`ZhvQS{ua*s
zMm|-=Ot8dZzd8mm$V8O#QB2r$cM2N*njUkVdgzg(`5SFVvB#y=tyZXjpW;2yJf+%c
z!{ZFwVr?V48}_5#nJMPaWom_A{#Ks{X-oSOWPN+gr&68fN=1oYV_WA>MG?cEtR<{F
zn%T#PWr}?AS>uOPbEUdcxDV`{6)Tz;)?|b=F#`5|4I>^*s68-uBin7;TPr@>?AfpB
z=}bMaZ~oSR0aD9a&B%;&r~JLTdb?9W19RlNUZb??^_qjByYFVe3ALt!Fca5znrn_b
zbG}(n`2OW9gRlql4H7OgMvyt5xUQcAfwmk?JdUR2T*rI-K7F?;LhS2Aco1DR{I5;-
zzYc-$n+Uh6PA@X%K@CbJAIq=Z(Jndbnt2MTmHj<C)nl!3hg8YrX;bQcf;P4FiZx)y
z#lPWOOFdrlmaC080cjYEj5K<J7QKZKKDuhAuBf9&y5B@gc}AI@F4Y6iNUwWEA`yO>
zBC74?1>bP9n=#-ahUpy|V9zyL<R@bV7ie!1wyj;#MRc=PWt;dR(IS)Q&0dsyr*DZH
zw@kj%7wIN>T(mA9tz`Cy=p`+~&Jg`iZ=@A%X(z>>|DUOS9DT|5<Un%7gT6j%=drDo
zOCET9J=cheA2e)CM1rerpT=K`U*5JgqJ!|92{~3iOa7+lpLwIcBB%9={u(K~5stUY
zfiM;i{HkuvoEVoOSIz(ep|c5}F-p0WK^r@}I%q}$Ev_I{8qF`5q-4xLY`;Y1Tfh9|
zS9Ra}i;)rU<{T3EcPI(92zd^>Jw8yWt4s2(6nFO<(~k=e?iPM6NT1&?!1EU~VEo%=
za|j_u{*%DREyv7`l^gMSCD8=E(c+1U^|K=%hdc=)Wka?6w<SmSxHJ(Yb+_e@xL+Q8
zeQUmfBkIKvN7o6!eGZZ#^@8se`ydw@wr8K;n%{VSCYlECnv<@2fe?L_QY~HeKoo6l
zzo#&xW9QEE9j&oaJ=J8XqKG9>*Ve_{L_P9*K&1(w@>QftJ!>|Z^ADpruo7?^^_$6|
z$rKxb6&-2f$+Z_}=q9cc?~b3H{$icLzqt4_<c+^{$n{XKvMK#@i$lBwZNG!4)}Lc^
z<;>-ZA}M09MQ_kI{@IuFmQ8!+yUVX-Xq8mDX3G7r%I&^LG^T=_J-n*FJec3ex8Bj-
zKe2Q<R}rP1qV{edHeSJvN0i_^yVaJm3K?xVBsCcmmPv_p_c<1jss<2GmR`@viUB`W
z8~d&Y)^{TfZj98fdW<kke`5np`AHAMh@oGg!!zAaZtd2^Ph?#~`eeosMZi@f@BDXU
zjTWL*T{X{MD1lH$rZS7_$wQvVlIx{&`Kzfv&qtjpl-4uM9T7E?D9OKA+ozJYWOhrl
zcEHled%oL4Oe_Am@gJoHWKNt{)2nc^X`6`sW76wSvV_l!>P3>=W|D8so%;>|m!&)A
z$BQC<g3LFxRFa|zE`76ki?5t?2c+p)Z#FAWSFYc7s%uXDHFJqR5pvEoU!*{c7##Ry
zvw>1NJ_*n`_gA0hX;;n4^X07)QOUzvg!RO4qX3D@*JB5-saAKF0>Y8N5{`w`2%$I8
zH+YQQqLqN>ZwMC28q)lVH$qlpYRfpioYH@41m%W`MS?BIc}4q8+(x#<j}cotzU!@%
zAw@^}VApHZ#sK^BbW5e(Ntd|%rHWjcl-a_vFAn$98Ky@8w51{p&}#nIF9_)2F2Olp
zB>K<k#o^N<)X=M-G{?cd8}o0F$^eMc4i@C~1-8|Tn_RtYc}KI-*N8g7g?8RV?vlia
zvC&U96_Q4fZXe&ixnLOebO3PT;N&+)HoV~9viVc`Xdyq|%BXrp0odq)ldOzJYCg=<
zfO+@@b!EWK?3`g#(-VpUa29**3mYmY4#26r(FDtNuOMXP^u#Nh<vUroe&A-m$ACpM
zHl5tt0T~WHwXhGu`TozofHd9>c+!J=n}wc5N=Z|sD`6f!FWoU_^KW89ExQ}XAkN+g
z@vR{QnqxPdbO15oJ?nFA+AV~+s_UNo>&<B^fYcy1sX`lGFhVx&$ct^n*-Z7CKi0i=
zI0A(HJcYh~wP;Wb&r#BwxVpV!@hnsb>sK*ks`A~Jg*nQT&F|1KR`!YRmF5oCIgnuB
zKR2_H*qjBxau2@96kZAcz>tZ0QRbH~qN_Z;NIm2f>@SK{KH8xKpt$E7Z;+RMe(ovQ
zRDIHa%}W(4b$@Q?zQm%saYS_57fs@#>McZG1&JqTY+cmdS{qO=mBDOtQ>&goV%s0^
zZgri_)J#41Em)#~OtUsjjzm6;mLo^McOh(v3oVeB9=72m%i2R9Dh2mr9|K$~(9$zo
z0h!aZRD1w0Zv+TIwUfhmDLu=Ec*k^P)+FMCo^s#vzN0^^WamFtguNV+K&=CAUMm0&
zHRjA3i5`uPf;~0wmG=8-f~rgqP_i4A$m3dCEmq(xx@IwF-&8`Yr3c)6wiwO3yxO?2
zE5Bx;6~BjCPU~6|Tx;9A@Z;Gjy{>_KY-USrcwLLW(Q{Z*Cuo12Ze98i7>KjRR_IF%
zTe{#^FA7-vOf4ZFJz_9^yXWVb&e0`-Qv)}#$v0>28of`I;@iz!RSQ{3Soo1%!goP7
z>NKKYQ8+GfSk&HTFGI}5;j@MjIJ#m|B?j%@VqS1c&usbcD5C|i>I9H^15+u99iZ(q
zf+$|6fjxV7n+d%>{R!Zrmtz;T+C1izYPG_eg5JF<IV+Wyv|mba`COrp;+bRdj&=gQ
z>V?~un_7vH{92bgw!U{XncevvBixo6eX_}PnAX5Ev!HW_^`ysdSuIAr<PN{n^E2Ei
zz(8s!=)M<VIs{(PmWK^%)5>+LN`sh%gONpAps3uj+My#QfEx-1;<Ayy|F$~SptsKv
z1{aEUtpB8^uK>BDEi=tHQ|F)l)cTBDvb;=)QGlEc#g13%kLB|oV#n_vT|0;0f2I7M
z^=8ti;t9n?PIK<nv)8DOouscLTULcI%k@_u^)#m!R7#U?rS1|=OkCt6Bo!KpR3O0l
zeb&WK7Ihi{s|Q9gPw43QSeHIUgA;5J>X~OYYAa%6&%8wNsg{{zU!G%$QM1{ytu8#8
z(DVoO#~TWKMkeJJ;OSu&1<YLOCEPJ6@(B*v3VS;CMVQxVD(d7~PeN@f@$!37#-1&`
zK)qKD4}uK=YrT!)Oi2ClHKA6pT4wjrHawv=gMPGu`PKcl(@7oA9~zw?>xsi1L1C(a
zoNJf+bdTJ<-7K)j=~R_@GxucL8s|^F1e>!Hd-V6}nZGY&BGPSPLwfvCd5ZB%^&!(=
zygNaCwcPSN4ACuamt)Iqh$E9JYgWHpq2-6&qnIz(td=(RQ+Fd)1RAHxC5K|j&Sr!=
ziyi9fubljthX1j-mj6fC|AGUR{NtR<aZ>mDV%_AJWK>H|U-sDO&$0C{oL)vxM)^^d
zsOGqtk~ZXwEU^n3#tAZVtKz{~ASjs6SbujbLR0B>BS%!h)O*PrGioRjZ~YYV8{%5J
z%JT&)(4}-~H|hoabFP?B^+4r7p+LSs%{4w};$Lo6p6x-D3)b%#)jmwOxSJBf+@)v5
z%DbSo{987pj&hCw(PyFc#rZI^670b1Og|H9(<PC~_%)skgL74;{>B_WPzW^4(mo5Z
zePK-v9{@Gyr0vN&SN&Yt#MRasyieNXc4+_7A#QR<6L;vo)V+=dThC~w_(fE`M!4l8
zA=JLpqpN-R4-O{rgIyfkC)Zw$Q<hK#LgQsMxY3<31$?EI_0{xJ6AhG{N&3zd@7CTm
z*Ul5K-+072Cyi5(M}|I~bQ%A;C-71xWoekg1NGyjw}wvN2?kl;_LJb#DQ=`Q&dJ?&
zZ5CVwbC9~wJuJ?b<|6*M>)lRS*`C_t!aWn35Z84FI(Ky`Yrm5l&d>IRg!AcwoqVSU
z4%`u1fX4}a7*!~-5FCDa8kshtSA3${-5AzX$~gA(BX#8Ia(cf~XY)lu)L>Oo;)s`k
zdF6Zgbm^2&NQ>*~Do&9T!uEUAIGQ;?9OazadlXVes-&y>TZ4`ZjWL}dLinbK@A3?1
zmX*c~M|`ys0x$4{`@9g!;RJC`G&RlHyBV^xrN^ZUKeW>J({!J&=Cm<`uT6s!WS=vO
zPoQaB3S9Ch2jpqGE{8V`;BVkHwBiNpZ@I6n?w|bvLr3Cm_AT|_<rNpO-#<GH+lW9V
zL9MD)+}s`bpN_`A-s!$LCqj=!g7QNR(CBYUp(zaJcflT7)fsv*&t_u^<mRiW);PuG
zUq?`_c1sgSBoBxG`8B&q?s?C3tsb!dCX;6m>Exkbv-@@v>eM_)$<#lBn#(2+;J+r!
zVa@k2`Dby{)N^>L{Q~%N%1f>mEBvPiq>+V(Tj9_NPB`uR`XzjA9O=k-eEX3t<IbJ(
zlF8J-8;hLkjeYHJz&eSCGz%}-k>@T^NjH&m)eXv-b82T^rtM+yzel`S+_5g`d7xL|
zDrf8QzAxA=D-^5*B)t0f)7Z&n6`^?`x3cwY7DtuoJYlC#{Ll?g{7ycO;IVq#zB<|v
zFvW?}-5>8x{4m`0xb%XLx-;<^0(V{H@EPSZ>Su1Y9_o#q1=)A|4>Oq&Ph9n6uIu|k
z!_tEfEKKvE=up$^nd`!b{7V8!q3@E{4#Qj`I%<mjOR|mZo;LDqKXn8Na`!%7O2G!<
z^Z$&fDS<$D%?}a+Z(rVi*B52*WWMFl<SR78?&V}NT}#$r+mC*4dx|r{PgT0;^0#@N
zhO0a0(0&rrLLpA4oNR)m*z<Ygp3aFYSYp)acwWH0{_rLoRX5<1&xwm)8W?Cj7(V&s
zl$?i0XY$zV9UO1lg-Cq?uC|QAJHVI3x9GaO^qC485=jTmrgmJ-F0+wA%L?>1RCzU)
z-36F%`bsjbpri>mSpYhTw&QI`PgAf-q$g$~^Xn{cOwG3xD7NaT^>PF}{WbILZp<Ua
zJcxy!oxqdc6N!d2sXHg5fv><IgkqYKhe%_{tZND^Vn-~^lu!p<TH+}T<3rc(s7#K<
zOriz9`ZPm0@{YRO$sg9MBJCCDjmjP72~T?(!w~CC=gF`=5k=RPtc#FwLAk}%F^HFS
zy>1`sYd_JqIJ^(Mdo43`5^tZ%i8Dc;{iDY<ZZ)S>40<$<HWG0O?>GxN5&R`S-8zUA
z488+Tg+qQN_qWGfigB~Tyu|UfJzeAY<i~5OcK$GTLlbA=0ej&W<hVa0$Vpf-YCi75
z&-{&3`{T!mD#Xj1DX4zl_`-guVJG=a>IUd>CNu07Vg`D2zrZnj+&M^aC#gTIB*f|X
zvx&E72E!6FbKtu%^=&V{$gFm)+5B|-7<(f8+LKMI!Wr0%)yiwnq6b;s&sgevHpzr1
z9Q~9MONOd+apzeZ(wtO`wiTnGRP^g22jiB;yZzz5nIyjiw>>*H{80s~oKH=-7gAGx
zowa4EIXXH|-aw9VwVfRT=01P%mZq4<Y>Y58%*bnEBvxV!_o38BROea4!_|d9LXXFs
zF#x9Bch`i9`gP1;<P#Z@yPCNBX?(NPVGl)u1^c<e=tDj7!|2))rdAbD$2j<UQ-GM^
z{^!ninZd6<tC)cE6H2=RDkX@MeGse5(=p_nA1&2yR~%y{%3{NxY^F<NjB<F+T}v<B
zrj&R>z6kPl`6f3pgF6u)k3mPF)MlI$_X^K!`Wa@{)fojDoiFerKGcTb3r)G8f>FnH
z&G3B%vRJC^9)|GR@;Hr$1CsTbDbkr+NT20uyBMiIBxO8Jn0+~ZlyPl@@>e=dH?8jb
zRek1xUHM3+HMhXkIleZ9$hiOtop+dWD*@cZGj;W^2li-_1$pM91RLzx^It^scNMNg
z8LJKk+m*kaFB9#v*OxYd@$rP8Ho5&goWpnHA_d8_W$Qze?&K=9zHzsl(pB#`7a4ox
z>k>Jhd%63Fz<@mvA6;0(B)CmDqy|r;>xU^l2S)r)9NK!P+i`*}k&pxLvX}HD**^=-
zMl_fCye8`Mydk{jdhZP!G7lwPB_$1E-G)Pvi5YaS<vF_peSWP^hED9{3N9smKOcM4
z3mv9&2b{0paf3EHUgisRGMo{Rf9{xGI(^rX?JJ3&xVXboa(ZHUVy<jWuOJU|tIBi8
z%T(EH8+7_MD24hGXB<7qB?+RTdEHfZ`gVdHT8CVoIY&Q<)-zr&zL!y|Q%?82ytur8
zbl$4!Z3+PLnL?%Q`HIde0|mnrjo4WzVP<5{pU2F77FvYAegLm))vlMODfu+LeBz*!
z!N}U@H9rM!H$C8MRH2Zt0Gf{dXfwW{5F&MlCcy6|S*Lnq^;fOT?g!}?Tak2lTqSoN
zARu?9+Lyx4vu6<q1*J<1P03C(ma-#e_v;+i5DFJ{S)2bn4kzC01btID`&o{0VEaNs
zqJNqA?7qo!(+rc|X#Z>Wi3rn(o3tkrf5_7;X->v7hRXh=^IMvK2&lcd<z_d{`~GnF
z<bK*A+jw<rnb398_s0+4b$y#{RrAZ)`P40uU1Ytjo|^6Sd}{-%(XV`CV|Ki91-C2X
zr=Bit_QF&Jkl2&!28A*a#iM>GIbP)fitM3*n8!oO-Cc13M+#H*s?vf)3l=z=xbzIe
zgCgbKc+&0&D4`!(F21`qHQCLjb&%_hl}E0hm#WJ#@|pNnuq8QSz=6^IP5RUmp0oV}
zwpPYE8hWeER)Dl6aJ8jNdu12!nm-GmJ$R@?;;h*_#8GIFeI)E~L8DL+S6j$uh7T`S
zqLY6+(-kj1!vCvVxtDUL1s#9%Wzn4+#$0jvq=3?rCQ(+8hj!=&#*gNyO&<9C0MKoQ
z;AB%{G}oGMXZ)L{le;zNPaSfUKg_TI(*L`R7dH#~JFJy*VEs~7ZT#C@Z|o^mNgh76
z)m6s;MDl^t(Ij1EV7Y{tCrWyyYp5nT?i;OB(0FFfq7JQ#I+Adj<Alx>qsXLrcMMS>
zpH@7}^|A1FeyP&>@gnMl=ZvpMU#bsj5*t&8Zs7HcA-#_;^QSb`ir2T<!@Nxuyyy`1
zHH%KE%l^I?kE7Uzg66W0aZaR<pVXC|#BHHy$v%e|?{&mPtF?8~)E@$WIXPLKmNq$_
z$mZ2ERg}pvO+DS+Y~(T{Y3S$}$#{LB8M0p>6;VNET*K>(@coK;LnbNV(+-TRUdpzz
z2Q?ecn4h`Ux@Rln>OyMdO-S^)=@|dZ(}wuQVOnj<UF(~p{-#MG?#i(l-x|$|^j#ua
zqDz4eI(^qnK26js`BcA=*Dp6iQSD~d;}2N*)_T%%`@H`&84(f3zmPU*KNcsv$0?0L
z5=QB#=FHthC7mtYZW5|<@_`)vB=F_ciyznU565Zcdx}mCo*;=1Q;g&MxJ&K!>b)#(
z%O4+(*x7Z3CLX%h%+Xd*7qhIWiS}BFAErQfl_Pi}T;Yy~-Sf=fI)-=yH0J%RB1RtW
zLXUEy@&q$;Mrp5!%4eHv)=qv++tbRowXI;wTs2(xcrCuLxcSJF7AKSmY%e?N=VWJd
z0bpM|n|-1##1GL>(2?=wUC+%82()K-8?jsQl1u93A;k{<$-GtB;Q+JnXES9X<HPjx
z3sNeLadlU_wyUYJd+k4ecPe9Ot(A;ZLQ&?t{a4<3>|T)7xw|4r(1i$hCVyfcZAT_3
z8njB32%$Pqi*caL&k9scKblMdI0|%x+o90hqvf$%0_VGixI3@ujw(hrnr5vRE(~v%
z^myY<6XGb8ZAa;<S~@o#!rRwRw8h6ZHwp9h2ec&y4nCbo!ii5xgln$Jbsk!~+|Z2_
zTA<#3jQ&1&E9NFp72>hBV4Sz*D4d+`c=^qS#EzNFFl7mxMW;KfI>^I5m3Xjjya%Lv
zI)a?1+G6@7=-WhOC;pDF+vdi`Qos=n_3PBrGE(2MDT+{g%f(h`*j190_6elR18;4$
zzQyPJ$TW-0CeM^<zq4UO0o;tHVt&BQW+wHdq9jgbf{(e>y(v;6o@oMQGCm3}CFX?M
zP1jzvAx@kHmXiCsy7!8nXqkd7_g9l!)0dY86l8aArj4w={K=S(URmNAX|7H2@Hihk
zb~n`<eukNrdCh5|r5fSTsH<_EmMchpCS7Tr|3S`VB+AA}WYZVPy)6`|<DxbVKKgQ7
zxwGn{RMs_`TxW8FSkD=cQ-O!p%&V#9(gXMN?mwfJC-7Kem81u?IzdfHwac2LfnuMO
z>jO?4y5`{cY~tO}*@W^b62HCmNum#Lf71CB8@4up_Q+;lqaMQ3fpzfXdNtUdAJotg
z%Pl^LSKEo`OkQ#%`nZym6e|1COE){$FK4fJXh>H-EH|1d63xC2giJwzWiQ<hRbLD4
zjPJwkYlGGeEv2HEr_ZAmD^KH-5^C3_u4PN?6j<Yc2v%^Ms@rBov7$GebvxyP?Kf}6
zNpVNz^mfQZ^SSs<9Nn+HwJLMyV|3gaW>o^p%s#>N+EKp}?PMyVhy{9q$h(~I4C_3E
zJ2|RT&Y^x}JUv=vjk8m8YX5F(;7v!v@QTT$F(0qTj(`S9$$Vt0bl#W?9q8a_6MV0~
zrZ5(KsjbK?p)s3eu%)Y?q!`%o{BV!yexGYnhgPnK|NK_$I&(E!f_|tIisSpExgc|4
zF*I^{?gi@9Iat?u%@#6=$~$Kdgs<#SvG4q;ff%Qghg5v(+Lz9w*WNu{KFPi#ZNj0G
zH-uW?7n&#=8j}9_(`ffG{O?A&cT1I%sAj;Onx<FE`x(jqZsbsCB+_Ot;A`{1f$-Dv
zN>t5<saCdRo1}ZY$E~fYd#vMT)Dn2UUpOLp?Cjqo{r$l2-v8h4|2_`5e_(PAi056t
T**wNR5zxf&=GB@j&JX_weLNgK

literal 39936
zcmeFZXH-*N8#WjetPh|fV52Bax`K*yQCg@fT}n`zfPhLb0mOnL5E7c93!yh@LAnj8
zf`m?JN(m4GQbQ6#X2<7!zqMw~%$oV;$NZS}owXp4oSd`I-uHdo*LCfE&YRmtI_yWz
z9DzU}>`-0JyATLl00grC!Jz}-9emRJKj7uS1AQG$@Cr7{t%fl0a`>^Xl{W;!7s>o#
zLCmc=K_G$<sHTQ#K-%&|V58yIUfUX3k@ipQuXp(;jz`JhvM?7+F&bQ*r3FMkFNxav
zLFrry4pS!+s&M6};qxe*VB+l)?=RfcdUaPW<6O^Zi+ZzrO|nO6O@2+Unoc=krb2)=
zLR2oT8McGbs#=J&#J|n?U%&oW4={TG<zI_=fQZZ#=MS9Jv(}e158iuteGdZ3vgzvZ
z*$;LIzj7GbX?Ot^tJCb*dE{oGd#?a{n*aoo;694>{BIu$DzXN!{QFN<#Dz~s|MNcg
zNfx{R{8^A?>BtWL9x*`}C@|l9&CC4kHvdau-?#x=+-1}~J-3HV&04qv&?#N&JsdA8
z$&xXNvR6H*r}U$!_&G)!RavsGo_NI=XIi}b_y~<lS|4{9B@;hjc$XV`RKzguiXHA6
zLM2^<9p#gaNkN(GrpPR|pm=hBX3#~pP(IaL52d_IhV`hrI0I<B2px5kPoo1h0L4*I
zL7i#5MBye$*AfhZdpS6<pi;^Ie$UH$a&0@upkb96XQ6I_g|9FZas(2uTqd$s<Oi}^
zXg^6>e{t8qJC@l?5C{zJ6v6RJnBVqyNzQYO)8T{$4bgX}5T{X5w)|dJ_+m@f#w7`q
zPlzenSL6qx?>iK=KJzH2GzP<Vxzkt8F3wc-vr@#s4N?2q;qRQ>t}}-+eM0lv8LFG8
zGH?GBoeXlw`pNd)8^5put*Djg3fYc_3no*SpCqlxB6iO@?R#yMe6h}fFKLt!aUGwq
zu-3ai68QjH+gd;j<EJ>cjt=>R<#qk0{`0r35+B~{so8TGL(c2qOvDoyNe>RbR9kPS
zWnlE=gnVZTi5H6->rvNQ(S%#Awcl@IF_G~q2k=hXKa*;nm)6g?&bXno%qm$X9rqP2
zs`ztx7(d&69-=@UNG!7A_l-pec_kSL4ofqnWfn~i|9K@+ill_Jq71@^i+e1eZ6&L$
z!%qmotU~ho;czBaLLl7Z=k=rmj!A~cNz2R04=T;;cWxB6Nq$nccCL>MAdX)2rcpXs
z@x%Ch57c2bx@`E&W1r}t2-AzM-Vr2gVR@(L!+z>-4s7D!E26lJeH6qt|8fJNP<b$C
z@&sDo`fl}B``IM)Q^9*hER!EFxl!~S-9XMiNv$qQ6NKv!h^~f;kP2u<=a*xM;Wk}2
z2`<wgNvB_0Ti;bi+Yd%u?_#{|PD?0sE1&iBTD{1%8)e~v4wOt4we0<R8OyM`D}eA=
z)mJjTTh>kb^TTO=$!7zL={$^;w&HAO4dm+6#)VI({+5^^cs5FOG{Q)#SeWqQS~xL!
zyR185Utgt&Zw%5utBshcOZ_Z1rH$^(<r5w>nGJ|^>`CRC<r7r3bXFr&-bKBV>-sHk
zYuEGSZ=c<cE$y2WY98v0HhP=;9z%4DDDZUaWHoQpPBKjLi8Fu*TRT@zpUT|45B;IC
zw0`EZySiHCQfCrc-d{I*^FI1zc98XAl~aURsL(xPaCPZVi7x40(>lgZrqJr~_nbik
zTo}6Q5>`OALn_JT;O4zf*3%ArChBiuM+^vcXT5?YI;8$tsA+Ne)|ZquzS?)7MKRi2
zn6%l>jMaYO^pc%?k-)Z`-MP!_2NWaxEu-sC@O`#6&s_A$ocY`StcZ;xucg=vcDqzN
zIrW2#CN-jhL)Ir&k!`Y{8f=_}ZL4MB>n}un{W|)G#ps9mJ!r+o{4I65i1l`^UJr6%
z{aDV*hi;EW&sAIOgM)!|;S)dg$#rLqgV*N-#$&ENz4q`2eC&5k*6<qt;@dfO5xood
zXw_Xro#Wyokky~3JPfXUvgXNLti0a#7q~vDeRAKNOhgssS#H<zJ4HIp*KOT}ihi0+
z^2#6AX``?O1P2Yw)Sem%L8!2YtlKOgU0&)?UHKP1-V1MwU(|;$Z6EEd`P0Gc7;d4r
zT6eZsl_K|9z1-f`swZ)|`df}+*tV|vXCeB27OePGPV5KFOvpOh>FJo7Pqx`Cla*A1
zeA>B#5Qw-v2NM<Ty4M5f$D!6v`%d?^M=z*Y%@5H7_GIH_3*WS1M^T|`9kf&olpnwD
zIG<whEt0>ye7$4iMH^9_He2{>{a$lpeqz9ne5nrBBQ4~SA#v?V)7kcJ<dSm*hFvW%
zxr=d%P285?Da9@V7nCPIs(yg33!w85^zxNe>{=%0YW4;8KBr~crwBpE=BlLo>dNBH
z&e&TyQP4dDiX4AOPa^K<tom=9`$^J6Xe2EG|4l4R<!!F*d_3b~@}`|o0DWHvfjaQy
zg-*t!Ocl?g7btv@C(z+pQ(q-lmDOm8ML}v?YA1B|plTGlu+js0(3q0#099;9w0#ez
zbKP@l?~bc6S+`cWr@m5zPgI_}%NwPZba;=~wby&Zy=?3QCN-p!^C|19@8xX~<ncz(
zG$S&zX?H)B7lGo{7@$$Xs~nXi<{F3Tb&QZUv%v-YpopViK7U|EsQTd*6!|ceX1-iS
z5<?7g(ZkZFp0p>S&yKAAYISG5e{9#2ZpWvy7l30u4;oe(3(Z#5z@K+5X~U}BVffKB
zZm#pQJ?cuLu*|zaj|!{GaJ^Q!H{bS5Z*1cn2PMJmSWek`fs}gx9Emxi9L&miBe24H
z-rT#~`k8~`9b9pgml;`eCuZ9KQ^u!;-}S^#F0KUyQo?NJ3=}@;lpyOh#JvbBhbRZ-
zyP}3K65Y8+htHtu12Msa`OA->@lJV<AE%-)jZs_8J8X7cQFxd7#&nQXpWZiyTn57v
zhk-fqC@bmVPN5YabM+bCO)VJ4?qCqjX5)spGCe~3Wi%y=?Q@cUoGw#8jSs<+cy;#n
zN4V*p!#!CMEl$P|5-AL#Y{KUAE+S3e&6N&+r8Aj7%gAZBM;G!*q%@wwbLwT4RPGrh
z=X;-nK(0Gd)#2c@p7T&@akp;e0XdDA`XZ{ruCCFI`C9bgCgU-gC)IP;Gd-qSku8mX
zlsR0wqD%DWfAK<$6Jd}h_j45GgM)Fbtbr@v*AvY$Q@urEESz-=UWw504tNNWlF5&!
z&s+8+`IPr=he4HYJ70N(y+Ck_HO{EK+wWpsh8a4XkXYF3W0mnQwAc%nSvU{+)xLz=
zJ%+Z733*uV)%p{<43N`F<(4bzNx{;U^EHC;juHHJq~cYiSTBfzw7jVxOxSq72O4WL
zNwaDbgUM%xRA`%s)fbpwIHBtAP?KM2aQlb5dfUY+jmZ>#(wL}x)UXHs45gL=L4;KB
zTrU0{-|O|c)v@PbxmNe&W`{S*m^RL172ip4Q9?8O2@`(25ya*NDs=MbC9|i2KfJ1^
zbTd5^x@bvDZFB1Wo`JKz=MIRkvBeeX)=SpRe{)Lc#nM#ldQqDX&y1aTq1iiO>DMkL
zF@KFaLYS_F``T#}=O2$5wzVt2;2Ncqp*$z>qMTGk;>+|%55cmL^by0xNwjmdiH;F#
zZzK?zi&?#(bR66Nmv`COh{#7sPinnN32toeo~t>mHuq1$l{?O+S@5?{;b_ROA8M40
z=$x3jAFOo;bG=JF)}*@4%;tG^3{f(iWv&@}ges44Oup0nOwCk-sN7qx^px!+EzHJv
zOq(-QhY2?GdgzzKa;=ibroPPhwvcVsGgB#+h~Z*rkf?T@Mha;y2y1X`EQ6seT-b!^
zb?TYWOdNDk>Sq>YuoXZuOdXe=-$4cGxk<?vb@RjDiFngioz|NZDJK!@<$pTj7iKgv
z=@)xVuIM_K8I*_UJ4Rd|JgGQeC--@kUyeo2g{sMe)^82Sye3Bb6Tcu$Syc0%@i69s
zYN^dl@i?^fiwJYQh$X-S6=T=eg%bm2Ws@i>+?K8zBEHGhGTKcV#(j?;q|wf<eszyJ
zQ20o#e^Kp!lnM?(%(|u6>T&l`)Z~$@SXsviZM)9ka0PwQ*F2g(3rqGjUUk&=5XE70
z$CLx+LUy3nKBbm<D<HSeNx0S;t15gOA^X&I<Qw)x4j&qS$obtWW8+C}FE(p`<9Vn%
z*Q2SEfv}w2eT`0Q{{z-e0`hDRyCcPQPGW7uPJ&A}{oPGIfzEFKdij@fa?(<ZDo}(|
z{rST?X1L38t4~xy6VP6R?sjAAqC<75uVqE}R;%DIx)a!)JVMU7UV~Dv_pEy+SVc?Q
zahYL--suZ(84A+zs2&t!lgm!xi;Ge_Gh#K*GpYPGn~9UBF^pSiLI%p)&dPX@>r1u5
zp;7g^V;P#X&eRiV!KwGCc~N8-vfE?C&buJ*D=#VqN>$RX*OH@cd5>A2j1K6X(CkJs
z&V56)j}O6;LgQSMGk-;e{rWN`T!W<ai6k8qu`Q_Nl<7&ZG9}fXTKulNB;pO%GY{M|
z$e;NOql$mkM)=$jv~>Yz1;2;mz92)#dEb%?-odM~sH85|-O0qwXBhUwLs#(<4QPYu
z?Tct+U5ulr|D+(7Fj~wTzsVZ~w+_?VOzaLFjz^!Z%ISV!Tk04~_L9>;JIS$RDay48
zn|$sUD8c$B`7|3Gt9svEI<=}BWQ6;tRY3S3J*$j{wICDGg2kE-BMj)+`vL80u_YO_
zeP*&IuLjL*-sbvET&9R`{J=fu7xWX*@-C?_E(dw!FMpilLwjc-FjY?473PW6H*v+N
zjJqF>B65lHw*1VL{C~X7-7(KQ3-%6&YhV9VxfA9_T?+;5WqE(4{KS6`a^vZtKl}du
z=LVZrIPZVo|DS&i$2jRP2`?T8HO?b`^DV{|RfaNc6PkJmZAH~%THZW63O#di(E&}D
z_6rP2sTguH(h4@N65;Nk)8B?Zs>Qi{`D%XFsN*)hLPfB@IfErJxpVKpMACY@nwnU{
zBYkH^TYCscQNyFNMLTK&o|!a}A!5_-hhJ|>lF(|dD3W`2jZZbD<NAg!uFssBE7#_p
zgFy(hCy$atbjIR-t9$k#`kr9(^Sal9?&2;$tsP_AtWh$tZir+(R9W2Sn;PRTk(fAB
z*%;q^lz(L+_G$F?U#55B@oNk>>dR&RTD{IUoiv!cb+VkBd)#-4Z8h0;OQKwUc2oWq
zHw|7bATKwd-N9=61(o9XfjxA-qk1(fyi?yP?763Yprb(MejBVvJtOkoVr1YWfxI1c
zAzPKPz<cLNJ2*W&-XT~5Zde`6x2S(o`B;h=mu9RPStnNI{dHWh>fYHLRg~#59mN)1
zw-pm@Rj9kldXlcvHFn?pu@z_Yl;Du<zY01oyeBH;Jnb&75are$UD=5`%|3Jor*EFZ
ze}^J@@6u26TS&T^X)t0*#ga9k!SN&CT4nFAOu30;0+gsUue#HoZ&M#>jai6?uiqV=
z%EI5}S40?JbhDPDF)|XHliK{0Kb>7IxSOA~ud#6Zs*$3ckl9z%(D%{i%jWeY6ty$@
z#t$sNnQ%?g6-%7S<<1JYTjH>K&!*=Q$A}(67ptmd$GNvQ(8#Xn4D9n<&m7xZQH|<V
z!dJ2Dyq(eeIQ7S*H-s$Xz$JN#KkXU%GxC=>zBZ9Y%Z6?9G8S&!s`itstz9`f))l7d
za+LmLe<Syg8oAX$eYEFmM3S6`P0He{1f=@do@l3<S|;o5B-J4QM&mQepHkaR4`2oN
zHENKrirsUPPC$zaN-f^X-0Tt9jE%nI->6p6sjQy0K5iO+ST|C{cD9o4qqVP)O$IM!
zg%>csHBmUP`h84I<qehvvV8}gqQedek6K~T(uU9t=lzV-k8&H_$X5BF^PP_BGZ#E0
zX4&g4H+Ce<qm;0C+CyuUl0)*!UY^-7f;h3)WC(C%mG~U4FRvR53f09m3{AD^7ZH)o
zxmz|D7ON~{q;;?oa)Y;clSvAey|rD@4`ZE;N7oe4;t~-h%7cyGPV=NDJKBma9C9Oq
znYM8s_d)lUw3H{9rZ_5w9(`(9fvribqi<hBw^~M(5YDe>DD<IgZ{uR*U^}(?DSU|l
z<S0HZ-U;x0%mJCXj0cJCy;T9&ZJSg1HH3^6X=G4uRVPe*RkmuoViz_*Jdd_cUPWGk
zAzL3!B2V*i_e%d^7nu<DUQT;^X3O8zxN+6h3Cc)7%MRF$5RA}$)=q_~TaA}GcBP$o
zge!SN#)Rc7X-5JNMhnYJJpO=DaN=<r6ZKBroEr;%Uu-nAaSm;bZUBfm58r`0J39S1
zMH+|Uq~%tB`9aSLt4bHf7-!J9txAefm@Z+s{oK@pnpX6RX=Y`oTbM&l?i(}0Ni=@r
zt*~_b;R`FP{d)nzl?d#RT;>niQfx__V&-lSA7SkcPjB#j$+*)R_p)bu89qmg$}7y0
zPuEERz)kBaw`Qymk!{V|uTBPUJ`UWd+B&By_N43rp)Zv`Fu61B>}V8g-SYzF*NwSy
z8q<%o%6>6%F`U)cbT(<w)Vy*#wS3U-=REK?(D<8DQ=RZhU6)B%_Ih^}&ao@(ef0^b
zi&i53t5}n&K>4h?)-Aa$J<(IVNt+Q}*s7CgV>zlh{`}>!-O^pc<wiN}J)LY^+eU_+
z%<4<{wNB+zJXZ*%!v{r?41S70suMrufcVp{I=qmQuGdukq#>@DKX9l6o?wf`G&odm
z$nuk_iS%NF8zX3!BK>;NIr}jB*wc^3XO|;kpYX=nv{R_f7sk{HIg`&H*YItYt1tW4
z%*Vtp<D8yGy~?7V!MB=QWh&VbU7N7lNCD}zGuOu+m+GWwCbphrM=d^Ib}#E^iCX>G
zgT-wg{;-m@p5d4qDD!6hFGiwdkdy~C;;m1AA3iYltP&d)ouy=owEvVpMmt(7znU+X
zGn=imZ{necY|`oT*7k`e7S25y%3+epSUwkz;8BMbKwdhAQuEu7tncS57s%4JU$jrA
zQoC3eQY@WD-i}tIHj@%p%@Fhj;=|r_IiWz(%a?8)-LODk(~N+r{?l?fUv8QQ9_)%f
zbyPp-XO60d@|QmT^1f-iWr}1=;^73dL`Cd*G`TVpL$q0+xIc#%mmjOjxX@M|+g-4<
zac<F@&%;KV%d!TMs;U&6Uqg3HrfOT`=erDa?u@#*m;oBIn{{kxQm8F`>y;DFRW}hb
zGTiS>ZJ(c0T}#E-gUs^Ci|chqJ6Or2);iSbj+6zpS0^dUrEzr`BS#Gfldk9?iS9nf
z@LmEAq_ArDlImLym@da~g@Weq&M=3)<$%%~$eDRx-tQ-MQrP9%W?9i>$<t29r&Z07
z*K}&DnjBJLpQwsj`|uire5R9m<|#3UlQ@}y_+bRLqaKrZ=~Y0)GcCD(Db3=d_M1{|
z0kac=<WII{TFp27wjbh6qF68FjOKJU^31Ov`IC3g%Ry`3Q)#DtN?j#k!7*Ppxlo61
z*Ta!LCc<&sF0HZ|WS=+V`)`+W166-YgtrS;O?ch$AhYe+oj{j%<${&m;zXBJ1A8_8
zALl$mOjp|G?A&Qn*>>t*gWxHRUeYZcdfsT`rWw^G-#l;H<(v}oaJh8FtoZt9l*`x&
zP)!1!Um*Edk4so1kFVHfV@GM%r$k`cH1$5cRlm0Icz9E7*t_*$%}kfV0|C#M+%c-X
zr3=dH%WSQUp*9k6n<+vq8*B01oc5vpZkqc3;kCDs4HjiSqmx!h0g+vm2e}QBpX#4?
zT3aE>pGe-Uke%oEnI6drmxH!<(>X8mlRLV}r#(_Hz?7Oi1)6TH!0btN2a~(H#h2!J
zh;?rb?5`av9HKRKx8LrFE(p0N`ffMs!dskhwk8s9%^5T1S7Pv!c#tjZ=(2|#%iu%(
zQi9%*dB0`LSpQu<)Zyho)zH_S_-{dFTrReCQM-aa^__j(RF>IlhPtBF*c&jE!63g-
zqjh0b$qk`)t983~Zb@6`_zJN35+lO$^l<B@9v?5ACc7aTaX2Yp`R?qgR@%%>Ihv)J
zbLT(G2>fsJTsamU*VQ^>I*+Bk4}-HRWB5DTZk-V=eBu<sA`Tt{Cwx6eYPvChkw|%3
zx2l8e<`gY;oNO_R_3#y*kn--yID13cBvH0seINl1+o?F&S*aej7AktTP`R(Mr`M=)
z_&(&5S~Nr!0(n#Q+*Z0XOQsfCg5@kFIH+P9VxGodcox^8=EM+`zhI~bU&|FFrVGnQ
zuI|Zwp7fRLzZAeW4Iuw<fx)F!UXtSP6;VX}GDRKs`i`GmQgEYPk#3xHhIRK8igxjf
z{LG^^=+K6i9Lql~ZDj?Get&)mp<kAA#D|3!1OK$8YL0K*-yswKb&mgJGKOQQYU5+Z
z#VUJSZnX8gw<T>x#QOrp<dRK%c4u{1^hXoqMqf<2OwigF83{an%l&O>Ww(oSc6U4Z
zf>!KT88q3ec$Yj}`1Zt9n~77X!Mlr$PfHv`N^QX~X+~Z@_-zfNZ<&qVA?9~=%$?=l
zH^ZEV*H{ltG$*qS4!<~wHWCe*d<;zy_ojEmlP9=Ql;caz=)O;hA~o^ox53E<G%=`K
z#sg~;q)^qvvE!)8WS`ja@+s?5m*6pe*==3ILU@3L@4>|3I#oV(83;t;)IOl>g+1SF
z*_bT0T*Y~<Xa!rVB1phatIZd(6v$ce9rC_9Wx95>$c}K+9nk?lndOny-9FXe7;)?B
zoZ4?0r7SnZ>w8=|r5%5cj6>hV3~ZdyI%RyR@P@O|eJEAxnUV*mUj6O)rbhF5?9Kx;
z#Q0$H=0quhq5mPnq=Z0L#kz=}DDab68X8>lcS7IkOLW|)6c}|*lE(O=UoF<qt>94I
zYgBuEX{&M))`Hb_-kd9!do~y<$MRJ#>fFI#w`a8{9=glX9un44CR?2m1+e2=_3)79
z#~m}Z49{gjSmTCqFq;>B<nwv}^)M}#jj(mTpn3ijT0mKt>>ZSkA(Xbvq<dj?0TE}Q
z&}waa#}|r(@$ZV_y4#1jM1CY%oxDPg6vrFKwn$PEM!SPzuPUh`K~@tRd)lmdA@%~=
zK&ga(gRkr~#Jd#P5BwQ5p9tFPb7&YoBp7_<F8!1*9-pJ5AS(Gf$lbkn`sc(t|HKgJ
z99W0c-hl3WR|xik(2D0)I}H^4frUAr1qt$<7okEJkAq5kc4*Cs`)KiF+wrH*!?E2q
zwS>;@a!PN(W}8*7=QBlF#i(%<BSt6Xo*c`#A?jMgfPcXQM142vaEKDI#%s!dGHPW=
zP1)85Qt%i0bh@O3-$_?}u+&Ej7~hOqZc&{gG#sv0K*LqWgZ6sF3}Z1FLsKwqfJT`M
z@J)P}?AsCo{kK8pKfwvUTvMj=O|Fjgrk=H++wd6q1!~o}&K}I(WA!{EwCzU_T1!rZ
zas1Qb0|fud`Hf~jB%^(qJ+`H3KDGztldwg;i@4G;z-Mab@+tG>5Cp>X7InY)LAgp=
z1k8eH{ahi~QI;g*6H@&g?P<T_^PXK0O3fy~49$zSUO8%?GEeep!fccbPsP(NN(IM`
ziixP+Pjrz@b5>SSif^?mShPv}5#i$WgCn67H(C2x?1GehCxsiGl}4YO<Voz|PhU{D
zCzHbWhiW&O(`Rkn+m~~~1g$W}u@ol6uz#DrqEAwdDEr$<WUJo%uINTPnT?q@s`pfc
ztNx%9MjqI8Ea%WiH@duIyDt)JxzS#hQRf6||Mro9b#E!$B=>uU-i4u?o?z7c_6m+^
z!c5G9d-_+dPGS2Mp#u(#pO!;8&?={SsJcFGSkB*VXJYU?IvhLUm9dP>dwHR4jtC)g
zTqr+DIloC@-C*+jzdh8W?zm4lQa4Dqf;M0t6@5VO8++9FJ))@<lC49u?h$zdxfSxd
zk+90=tlDcnYd&w9dvEnITJeZWdpC`m-5t^x<H%$4)*115{Rr+Vk{nV~<+P7GCeh|Y
zPNVX75X)>D*~@`uIXVx=gpN1yu=;F>5h?7MS9CxRd7I(4Y~S60Ukff<ux$J8b*KDq
z29Buvgv?cf8O)|AR^z7mNWb`Q))%<^|E>j4>#4~wUK^RT#9b$@hG}|KArSa0Cpx4q
zDf9-ZjVYM9*;QmHcW$!SExS`xNUBrrMerYsLmM(^_v|TMKU(aou+{>hd$Ab(l9s6r
z{Zk*L&}`Re9jxD#+gV#@o*=eDipTR8KmG{f7b2?(C)S&ExGT2@`B^_c#v~ze;rwz!
zxG!=-Y7K6^feyu;tiqWUxXss{3>a}sM#jn5JE7_JJl2h-A8-`SHn8l`CuBfs^q3=Y
zNE#x$-L|)NbC={`A*A|=&V`2_8!0+fU}S^~f*P#K85atFt_5Wn+?FV5msrEzDjn8$
z)OMY-Dz`wL_Nec;lW8sZ=R(^y(J?Rb1H$)xH!Uy_5W-257IN;0p2>um;j!iqON*)Y
z%?=_l35TQ1z$}?55)IoDD;^KMLs61^Dph{lkx}XBc~D&o7jq}@mGxpT*|pc&Jmo7O
zG(&f$ZbN<fJboYpWgDPpN}JTx{jDhv*knjPp6ZZ<tvzbZoW47rak6epO<4ZvmLa;=
z)H2wJ{TRY=d+idK);dYqwMev*>f^t!{w-IHw)2scGqo2i{$YLD+>zsf!q*ZXW6|5#
zeoaXR58B?{iMS<&UOb;+I{U8riR6vKt*b{%hxuRUl+qNJDtPtXr8g88&&%Ic>P4!-
z=7YAM3BhKrFHtlrdbcbqPb&HqC+<|AP?S^GeCZT=se&L}UeZoEnMAvyS~!sI*5JWu
z>9jL({O{cJYZGg<tn05+h~s0lYa@U<Dzvj681J-^B(n|uJ}msokw<dFeIrwKJ@3S{
zVculD9Lui{<N2l!rMSMacd>p+U!IP_&)m{#ei$6H*?3voI>!Q2eu!oAoYolZ0-16>
zos*E(q0qqyc;OTw<e3qTlnr{4XIwhWxqVSqA2~C3P2~B;!Tsft_>fk=ral77LaAIa
ztLrIHE4bEtc19xQ{<l5lJ8xEUPSW6YpF|KRN89Gr@Qss4Ww*E9H!&6cS@Y%IPIei}
zhSR>qP+FsPMg9}rymG})YeDj@Z5%^mnKRfY1FoyjhufDQYOn^J)gD|WHwPH1R%U|S
zw4)7(u=^hDTY01vnpLul{5z!_mlfCj5PL^1XD-TV{$q%-^Q_B$M9A8K{q9``&<_Ul
z`kQx)ZOY9CXATRGDRp%3|7avSQmZKn>2DV^mSCCGB(hu0y{I97u{9!Cxeh(-ok2;<
zr}!jw(<-&*cQ$J~vHL%U)~+icPpf{^o!{|7Sw%0MAgRK&wGREcb|-`-^+R{?OrwYj
z%z1NKNUqJHp}U~#C2HmFvLJA0`&~;aI_)I69F?_#W3&HJ9Gmu|RXeI#+$Yu9->t^V
zy;Ya4TEai5**c6q-qz>TX5!^juafEGRME0lJ$Dhk;g#PVVbCis7g?)XG)X*|Zuxsc
zCx1q`Nvi7hxDmRS5VLL<-sdGS1D72i$=S_ZhtB--=X;PQ!qRU^kn0#s!aEJy!D<rO
zE|tNH(4?KA9Ynu;k|c}n)v}zg@{s*DtT`Y1YE3SOQENr}aL<{gMIY#e-<G)J(_6ti
zTUv=uJOVa?-f)J|yv)m2YJq@gzV`F~fNhhPU|N%qIE^=~t}Kv_K;!v)*7E)AEWbC)
zx)rUJ!C%aecZ7hYyhs*9yOVwzD6qc%`s~3bU{DZ<=_vr!S&yO<>r~Yz-k#l87-Z-i
z6}_<djQJsC?%2O8Np2X7R>c2(=l`d_Pzi~P2c{8X=Qviy3hnane>)8l9!-;xlyo=A
zJ9`H?=UC6ObE`<KP%H23e?P@Ls>WfK|6N$a?3lQ7OhWp1yRC72n(f~|!;eHUb->@v
z^ft3H{@wnr*kLX4z+;o=W@lAueHL+@J;M$DtD$}uPo|urxA*o6;6L2|iVxme@*Vr~
z@@O$NaiYYkinzY9(N<<vC8|EU&DIxNi7T^h=(_p-=Qq4p3;m}-EgR(b+#she(*4h`
zNP$q-O{`$q8ulQ6K$aG5n{?2u+>ZV}EiH`zj>2FbURl|9$>%evb}Dq?d(2sHlhXac
z>%=M!l|P@tUfz8F#^HOk>j}p?^j&^DYl1>3{8_@TZ%T9a1DenlH>8t?#ZK_X%=Z{&
z`?cS#6Gqp6y|Ca=oQ>n_@yN~19R)w{7j&LHd6KwA9Ig$TiBXVon`)+qtu}7-nA^=E
z&MB@h{{H=20#4mjR2aQ>09?$2+N-ZC@6~$3oj@N1Ou@-Dhq4<56A4%r-DsG)pjMgt
zug3x9jOT1mVy3EHO^m>~Blk8k8I81!UUhZXt|Vz%VnV_!4==BUbxSDybCpZ)3LNiI
zJ294Ln0misXiev2ukToSZzXNaafzc+_8+~#M_jivcDC3G?eZ5TJ7uXyAZX2S-a|is
zzP}}l#2gd|d7NUAg7v@~aYlZHFSpJANbMC+4chd*>OQn9bB@Dh!Verigh3~lwX~C0
zCW60)(n#dFG)3>8-KFC4A`EWGbnMP?(5MlO#1eyAk$ZujXT!gJ>*owO{QJyQoi{<>
zqTFsm=HwC5ZWnBC{b#n;+XE}(bycf9>B_WF@`OKc>{*4Cl*y)GMy(%d%spP5fruhr
z3D^8Twz>V|lNk=n20zmK(t9=3EZYV@d?U`u#U)vZVQXn=DfjSa)@q({W@w~vVp7sP
z7~%aMjq8jV0meH)=<@^YO7e-@d1JAa9|G2Xi+%m|IMdpzX{*ZsyC3rVxR?60Sfcx`
z1q^QH#2jj2*V%StZOmzTXTQ{I9$3QM+{=yi^)E4J6($4MT6xO@=MpU@slVUKW*Fqb
z|7`0lRqg50jtF;_%N|-%GKAfE@`TPBC&QdviYp1+m^VAC67YC6J3Bi;yHe>zuOcB0
zfg(N9i9YoND{LD|ne!5kZ-LXct&bi(I_x=G>C{r*OkILNH^y=7r{!i--`|Sl`GJ-v
zbhDqmW>5rc*(-Bg(y!qI%iR7sdu`b`Ud(t!SUj#zj*X2CuY=&H>&dZ<nbKIqYutCM
zUHi}I-8DBiU!4B@+(Hz808*eE_4aL*k?Ph!RoL!YTfIi&C>Z|SUNzb>tz&kJcr>Ek
zsNVtt$-W%H%RThx*H=Wkvj58BTVC0fGe2|i4hYq4g5y}F=R|#DdCOkC3G>*w$#zuR
zB3e><I^XtKQgSk{C&+`~UyrX7GlEy3#6#BQejz)*BCmq63j$yC)tLo|U{d#Vt`7v@
zpE%`}k2y6KRw5!IRtn>fZ#D2p-?OpJ)k|c&xcUCDS+P01(WxuRf)jK_yR<cS`Kn98
z@B@}N30vQ|jIXf2yvda;Z9N1<?QNBZO)T2jc(%~D8wQQ6O-&Qvt4(CA%Jzr@ZMe*q
zmN7m)zDA)?95}B}hg-|kFJ$+4dQ>a&YFSn}8;15~s2bPC_Ikg3`4W-#_{(9qMTzB|
z>F#)4Jmh0A=qTBHjR8+;v#1durZYl^ZT)=>s`)gw_7~dB_^*tgMqwUbPqPK*{KHt2
zFe|zudh&>2nu3?z)mjp9sI;r9+!$P5FzY~k-FLj&?w_wIV(C6OD*zlVk_rlB^zQC%
z1&A(wrN`5sW)vQcOxJ%hmZQgQC^a#0)3)A6vE01$9+?38&7#=6l-7HFCfX#2_oUve
z65r}Rg|(sd*N(9|62EPQFHY|L^a%T{DwehdI;&)QHr`mR*sdvv(bLfpm={W?`m<HE
zyg4`3CDTyi08q#hBvV^s4~(``^JsK^X~Cl-EkDdBM?1z%2>@3!OQ_g_()}+lT133l
z9R9+H$0qkCcgICy^S&FS4_IX-N~S_-(iSMC;qv!Y90l=rt=#>W2by4|=1?fqPL7fp
zv{d+9xbVr$_e|cCClkKwtvY{>U>n3f8m-I}_FWkdEQF1Ln2>&_?C)8wFc~oO5h<k8
zW1QFQi0{ic&RmHXHKZ1A)PUsK1ySHzzcpm793!B<7cbkq^IL=P<f6EEhudi7T#ckf
z+46LEEy$z#u4LKrh7ihntbURddS@F{j^E=eSj!vPP5>D?t+cP7>p2qnwI_@b%D0TK
z^+F88!r(VH)yl1^@_xwos`Ss#CBs(a!LSmoYdxD(m13GMegT=pL1|OpdomNtr|dS0
z$9hhT+0S>Q3Duqx)Y+FudF@<fu}EgLNP-q6Vyw#^<-hU`anQcp^yhnR5F>tTtj^oz
z3oIjI;ozeVyBP$CdiL!p&|K9mu!=hM#F3XOVV9zLI3m3tNdNqeRULJ26y92yXdo1q
zH!EFQn%f;Lwx~U;;AzvK^_J%<W4WsLyOM%vKj)~2th6+H6LqOL?2JmlpE{6aR60kN
zVd}N3q4cfcgXaRKpEWuENb!BH8lj9N`luWo7ryJ?h*IS*eC>kF(xl$X*X%t^par#Z
zTclar*x0mINY8~{>6=k@8z@kecj-}i(18*WJLf<C#6k+zysP0d`T6-lf6MBJcWNUd
zA`C$Wf1c^v67kO1>jTvugo4CidA>FwE#qmRq;`zSM~pBHlwbYpJEx0fb+?pAnlKI6
zFAMEzgH2|M6$-fXtESA(iuYP+CT?a^yO8a*OK%1|PWY<VWQbLE;M=IE$~J_+R6#I#
zMM3{=qJ-HsJKsUGF8ca8_+}qb#C5R9jD&LaswAC~b8JU4!^Pdxb7fnyym7r*L_g`D
zk)~k(sUN8dnT(wo#MJF7=O3#UWj296<#tUyPv;xRlfl+yHg%P^JUu=8ULP0ov}y|4
zdI@;SN`o(PXhWU4kfX8xAV&xW<WS4E{vOS)`rlEK<}bhgQj@+{{Z0t#56bu@!tbXb
z%^O;ctU>pe64L!A7sO5S{@DY8B=dnxTFlREuD_F`eYDnV%8p#!Z*+EfxH%aXO2I7+
z7MG`9fATwyPuXu14<clW05DSkppg69w{MGW1Ae_Ei1c5B?DZ(sRUAmetK{ksd9I?$
z)DuGm?^O<iOH$t(7Bx)iPR1~k=L^7|=#{Y=Vx9kFpi42^QJ#;n)kkiE9W|aG;BybV
zufDf41EWqq=ai}9rBHS^dS&a@J0(}$M?U;Q^r&=f-!d}EH){HLH&@SE8^I5s0KrZr
zja1}JjZ`?4m)^<wo<hRc4wELEXt#q0tbPtJYA(g<9BUJ@J+a6Mpo0rrXp(PdV`=#@
zbo}F!;YSnoTf2|1j}!7UL#Y-Lw7BK9bigdaip)#vf2DdgFOIZ?F}O&>Q$fViF=I8#
z>{Zle7=s*E3n1{rNbyQmZ=!lcW6I!QR&a8HfYte_k<@ZaxJKNtEA<F9DxgcU7tR(w
zeM#w`L!T6;LcHUI`9LtbKggwn3o}0Q@}_O>RM-Ta9+|YC<GTGXkiz^$_iEhUz)tI&
zd-Ba0Dj_3N2J*OGrA79TMvViYSMS9#0v@~;ZrY;~87gxLCZX6`ZXTW_8&IT+jg(2%
z?|-CR4PK&?r&g=(e|<H)O!)*Lpx*%1qq5QM;`Q;@t8!8Zs94gA1BLzbM(IlMlU@z+
z(vp&r#ippIPoJuUCGso#Eq5;rA31tdU#9WT7l9sC^7t<hX>cD9$T~8XAF}QNB3oOZ
zcn8FxK$5hzU-HI??c>jE?*61PUq(2~er>SR^ehU6%1;*(`R#f(d|etDDwt$iw&p$G
zeR>oOK(R&XJ>PGDVHNkjyPVS-eOms?qmfH<1cDdo=lidC@>Ccjl~2iM1m&j8=PMdw
zI|;aEkBPCW?@M7@pFS-_tblqbg6IW88LPV9E|jSR)6W%n3i`7F@I!JrXcW(AIs2(g
z_P&IkbT7BQ?ACY8;&tWeZ2LT@j1#NsPY?K}8|8V*YVaX^pw;RI^J$MedwZuE9Xn9>
zeU}CfI|`U6HiJkQr++yrJ3d)#QQjtI@a_+}-&h^KSeTzdoe3nQD@XwXN+#j`2iSOR
zJ`9!b3HEX)qz6zVvda3IMTmA2#v*t<dYWw?Ao{QNixgT_Ij8=HdQDMh{wbQDoAU^p
zMe6MJlC~KSdl;WUwq9I>jd8iQ0S+_t0FYS<D3ED$yNG8dfM@&jKW#rR0Mfby8ZUaa
z66W<Y>vK7(8k8yL4(wGvCz0%|tgLDP*8)&ng1E_<z+7cO^hN8~7JAhgy8^=A$`nrZ
z-M9f$K}cu0CXGcM5QDSV9$7X%o$CzFfNzf$GZ8--6mKf6AP;aV^HfFedBwJK-ret7
z=p?T;%$Sk2-0++Zf8gvi4u?zYOq67-511IYZVAC8=y4z|)9t)NU9nd^#x`q#C~B61
zGD~2^+KT=KFz;V5gOqu*9SKs<NHusn<Z{7uSps#9G+IUY4pLuL7@BMsv{<Uc=R3d+
zikim=kXm)UAohYQmU?Fcqh?$Cd0Bna^U5FVz$)_BCoLd{ID`V8L6*mAif^DKEXvMp
zyw$>EJ@RF3K0Z!xoX@`Z!CqtV{H<4MYQfvflY}(yp65WIZF2*9w~=1<Ns(GrP;jxZ
z_enO1S=mjX_nJc}6^e?AI-S&K7te9vYY#d>k&3lRvM@VqoCLI<GM`F7fbvEI3ZWjP
zLUAA%p(y~5!#Me#>ke>`c>ZFz6~V5j8$;G!gUzeWG$mQP#*cKsLdPD0eG`{GwwnQ&
zDN3@~14^RQJ6Kg#RyHj$(d-OIWR?H&2y(Y64APmaNquG+@$ox(b&3(WN2jUFE>b}H
z%^9NQa(@AZ5laJ@YAgv#YRs9dODUiL!+clj2xZ1KO&vDL>h#V2{UVFTVbuP#079q%
zNQ)(0ZWpheZ(6|bH?XFS9%TS9W?cbe2?c^gj->#Mem4ES9N~pYTP)xHiCV$f)q*=Y
z^W7;|i63NJcGtf#IgP}{izAzTIs&REdiR{xRkYSmEFQhv1X%dTobnNqz*R{IYvl39
z8<3~o-fx9n!GSLG&Uf_m?9r3bZ(lqKZm|%m?Mb=neiOu&a}tm~HUKRw+EPq9>YB2$
z1PimAvq?J?LZ-X!y!w8?LMh;<j`;%wtm2T+tj(oQ=vu(fl$jSNsqC|GX$}w~ReKx;
z8pe0Y{!=@+BEyF`Oo!p$ni7ELbF}KCl2^mPbb@L|ni@Q)MF2>NX{OfQ4%H&1x`ba-
zSD)HQDghgYrw?*_PXx#L?ZmgMlZ7BpTY(m%dJdIX^)@l~XkooQJu*nludk70gPKR;
zb;NZ5F-JuT0d|(<ycx&fI2Erx{P}6a2u%k(u0fcao7)UgYy0L<<w{npPQCD$fT*|8
zbs+oUE^?GcR^Jd~pllSkr_z;tQ+QTAHqk1^$VNw6gd-C&Ru&|;O($tbAfN98;@apx
z<bnG>b@%M0En?Zgp0O!l1gi>OlZ_0JdhVju-v<g!+OBv_?vDJuyoS~0hCu){&Fgv%
zpk_>Yxjw>UONllgG-`9)28-|_RUbbCM`EW%v&&<+Yy!(HXN!OksVX>iCIt288+%dr
zXsZHE4_c!fUa_C`8=38h&j+~RVw~t}g+<G|486N_|I3ufB4BoVtAIG{xiSG5bd-0k
z>Vquz;W9!GKy$D}gF}%1YEm6GSey&&cNds2w*~5?fx5ju;VLNZ2*%c*ubi3Jz;)Px
zfN&!v<yBV?Y;{cl$WUq76bZ7Gk&+shfPz%pY!te1uZSK;Y7+=6`Ca4j^%Z-fNMTl%
zy?5nYve^W{?)3|3?=RxY$|FxCHO@@|Heq^J@#$>Mb_?J<6B{r<P7t)s#TljgQSo?!
ztCm@{UsH4FLPtWE_(b9^IZBWk5m45D0{)Vh8l_5dhqFPvSOf0dA1pL+c`FRBs?nW#
zG~phVjX8Ppq;O5#4N!lRrD4sDGa&pXbaCU3oe#&V7rg*hhPr-_J`Lv&-TC!45_H{j
zi!q>AOX`K^0LU9UKdW&Zdjg=oEajR<3J{Mz(HIQF`*w}nAPVT6QsQv=loGVcr6<iQ
z$D7cTGvAvz<uKV87$2*$-u{vCJjK8&7LVNi1Nt3{!hGdWUM4ZIQo8mEP&OX@0r;eU
z%CRhe%x~ZR;IuLSgVsX%%=s+Ql`Q+_P`1E_+>JA`P-Z2&0DXV^A%b$p8)PYv*u}e>
z{l*ke3OE}~$b59oE*Sw%XXe$o_NsYzy~{yQPcP#QVF;f^eb1@3la+{(oxuKhcX{R*
z)D5JXf+yaj$teG>e>I5mKxDTfa%CIyG=xcpnQ`@=na04T3BZD4r5?)!s%L<t636Q{
z%)p}YBkMM!!=O(1ycH&mRhp^8uPevNG1~=L2Nyrf2~*g#Z@ORhzgQ11Er(3UK!A|b
z5rF%clg4Ul8Gt?|KEEidtZWUAx|z1xZVXVz0_3C_P+5<VdS{tKp#aJOo&Z>^D;0=L
z{vC1)gKk~x1G>0W7784>>1@*_eGK2NSN~X1SHl>=WF~oNSt=@yUAOK~Iu3$vw;Wg&
zEz5vjZi6AWeWx3)fUE=z)>Ie@O6Oy`RwJk(#!TX5)AHCbU8!aT)P-0*tVigB8uswo
z!(5^&o1m8&h1FMb*^0v~K)#TGOlkX~xxofJ!o{ZVUO<p+uC)ndUW5V(FqP8_n8qYH
zi1{GX$KhNA<;A!!5Ewy2@?538#QG3m?8r0_%Nq2sfT_Funf|Q9AgD7a*Uhaowr+v!
z{)GnQiB4oXK{H8vVBBY0Xe$i_U7VFm`qj2N=>npUoNqAHq9sinl;XvNr8Ur@L^hCZ
zkFX$|;EDhYhHt&Uy_17bOIZV1o)G{VY+C`;>OuPY!N9U*B6W*c>)9H`T`L3hyU}f@
z3{Y97czAe%4p=m?_VMo6=BF=6j`vwCyTXW)kN^h`J5x)b7es_~Vs{_y?ySi_4~Pb8
zV*apLTHL@AA=&0>#}OzMpeLS}n_Gll=hmP1W1AV~d{8PFvxzCm34m>QJ5<o-!ez<P
z`V$^H06qO|gBEiUdN|O|AX`vgdo!-OoBIZ5<N+nV3_K7XyI@iciBoAID@>`22>Q_#
za3j*S!1Y-wxY%8|QDv@vviS<&AEyE1El3A-c&sUyEWmxM(g{erU1eyBO5juSY6~N@
z{P;m&=GlrvGXWeH0vY4b0MzT8E)Kxt)AELu`fZnV-=U^8{ua$vx3ds0z|nu_RXDUA
zz;Q+craIq_6e0k|d-a#>7BFP)t`G05&9o`F0T6ZqVMV_Wu(#X^)+X!<XkH!D@x@g-
zb=_yOAVDa=ywv&bDPW{>3NMbjWYW99(NcMNd0n9M*EYb#Qvo00@%1lOKog%byJZXT
z26faGppD&wwwD9HN3b0&8ijX)BOWPh*`t2#0q&kjS|ExPnFdmPol|-FLqkT`9_1BC
z*}oQ-Y~!DsUjadxr~ryK0@UqL|F7%{A*61u0beC_eG?`~g-6E5@+vTp{sHC|48AoO
z)Ujf68>J}r`$?B{ZFL2?Uo9Wpb5PkvPO|oN-C%|{GC8>x4lt5Dmcs#nPB9PEY+?)G
zRIzj#S-r1(&#@=bk?ae*<g@To1a#6&8zNKD{!{p1N41bSEDkvEZ<-^TFJx3kDDgu&
z)wTcZV|h68;r<f<$u3MAsUOI{RHh1oma8Z|`1U$Ecyr+i4m5tuFhiv-bak>x;d(8z
z*Q9|q(S+8o)DwB~$F?=cE`y*_1RiP;(=FvlVUmT#{(Q1`m%D7IJ@ByM6O;`CIpo(%
zUKL^kz=oB#z6}o~oNT>+TonNPs4KbbUd>WF5V$JwiHY1jot+Y;zyQV7xDQXNG28z&
zk~0$+SCvLW+R>+&EmQ4$1eiPO0Q;E|ro1(d8vG8T#`@<L%OShl^cxbxJAkJ!ZRmO+
z2nz6^juFsc7NmHyo>+Ev62w7F&oBtey+ANdU!s_@#)nihyhj^zFZZ24OePMmsxt}y
zRCbsCc0Cj0!#;o_bB}5IQ~L7^X&XRg?ww0t1w}ZlpR(#mJD(36I7%Jx8CI8pi_iE4
zeuW`C0P>{*!5-6)?X{m{Nh#f6BJ{2*|MnN9Ij5*B$DTKqdiwfvHa9LF?>NV_(Rnxo
z)OKO0%}@I|$NNCAO%aY4TUE`kFzBmc{+mmK#5I71yMVwM!`vpao0GwKn{IP|em%&G
z2}<`%xCQ%l1NPzIrGo#i1^6ZVdWI!y*MU{`Sln4ql$@YJzu$-jVea;b=clcEgDX*w
z$E14JFE%cafaN=)0kE|Q2b^eeK#Py~v@QgUU3SG`{MEoI^_iS2|Lm2AAB4rkTwMJ8
z{Gh<533Z!nq@=wCK5HMa!0CflLjYxH-9La(CxEFNwNmYvGwzjDRsNAT-`j#(P2GOM
zWfZUorfT+Rw>VWdtyD;Q0RPgJJTjR62(Ullw}EAx39Nf_S65e{AsBnNhJUxd6{y?9
z=?jzrU>_bG9Tfo@L+jwV$Dh8i>_4DV57ZYPI5R|Q=CWxk@KNSq$NmO^zD(ULjcL&|
z|M_xMz-zE*@ZeRq0n7CG_$qlI*KL?*0%5CE4r>WDmVq^gOarY{HGJhH7`I$W^OBEs
z{;QLWQZNK$zvjQ30qAZHe!z}&Jh$?m#)Q#GwJ@}tQ|B~Ln|_sMF0M>d3K$1rPr$@Y
z2D8qHY7(G%0#B95<KF6-z+>kIl02Y^nYfjem3qv%fbE68nNe;@bDO~K%Wcawj}31R
zFFG#8ij2-w0LCeSI(g)!pYQU>TCyh55RCX6AHCTf9&T<Y^781$JTM5x`Bj5dyn(N`
zymiYM7~BdRXRa)qht`As^755Qm`jNDW^?*l&UEEGa>}#Hbuo>Cu?NG~%WZb=A=Hx|
zUk`bQNg!O5LTrPgXAL~`;05OV4c4{aIaq1w;Xpy3wEFI!Td5$0VPnm3+6{|tHV8&^
zFf`mfgnGquJYWInH+&4gDzzSHP<Zm<w&PeUFD&E>Q|7k<Q%r3ISf9Z{{iJ7~1M9tX
z$^QGOQJcTy4>@*^my}4Ud5hbF_{?GoZE<Kla5%YA1Z3=h;0u}nrTD#JBnMyKpG-x_
z#jv}J2S0w#k@}ILN^4(UUY-E{b&x{82g~-=#a*KtFc!$;Tg+K6kz|`n>d#x8a7Gh(
zl32y`)-{sV9oysd0mtw&O1ZKarjg7J(Y2MJLxuwq5&=|{BuZNFkLKtg-hkN`sUDx;
zaJZpT3)fFDMKXS=Md;WErU*X_HOAyDgFPqXW1q4>K0~nr(`OKsC@>WwBQ9Pi*iV9N
zJ1tWGZOPX|V4>;X?eF6YoIGK6e;;B1-a33AS#uIhy!_{LiHq8Qvb%vNv4kpetmpgp
z-S&@$R#sM8XiwJv?Dc>9A}IJCOyah5Ap_Mbg<r~#^Ze%<;gM8SPy7{gu)MBSPQ#W~
z0mUh!JmUuLiZ1;3Sqtr1^C-K)jL+i%{Q4rkoi~F2GrJ2x?G=67-_VE1cglPE-v%Tg
zC&%P((_UhfMJCR>KHD1egeL12i7h^cChJozgAWGgM~VNP%?Dq|GB8a#JUPZPwqb+Y
z^m(+(TT}W5lU(f*M=tWY`rif~TjSN*S0xmJo0!%05AWK3A4?LEd*<+;^W8XOm=rcW
zWIl!T{MfZE1zo+4vpMxh{y!}=z0y6G5_(o-5WCldJPjv`>fbHgB9rAz<TaJ=;_`>4
zxP-Sj3t}p4gci-Aqbv#Bs07Ky3sA287iH7yJI@g$(4M-d&&n=F87S<79DD67r+#d>
z%jZ_-hz(Rsd_7E(*$CZx$O}214r~MI8_V^Dvm?zi1qZ(W@+38lSQjC5x<1f5&Xi4)
z8!o7X{_}g91=9KQXaXfv!~{WQIj7F-gK_55F!mtkdTt(cTP^UM37^DsVP5OH8>us^
z_2O8`<F`cU)}N!N`OYssMbF$lZ!<-Ou&V_y3>1V&*H*@Jg(i2T`hS3XKtEfFDGY_J
zEWKNFPIxnvZ!pxG>gQa48l2+>`uwNVPyxvk)2c?eD+r&q>w6h9$nT2#0`#LudIQ_x
zo#Gq?X>#!bo#umSxARhwel3ZQc_kss#ZSE}%}Vt=^HT4KR#v@x#(c&@n3P6z`wMk~
zN>z@qnIAM>*0p+Osy8@cF72q_lPJ=EZV<cu`S`S93)zXsFdp+A)toe7;%xUZNbYEO
z$oayTiFuYdNq(oR-n(@3pX~oxLU6m{lGZIMDQUnO7ebth5pMbwADY!jSX7-@Bc~QB
zFrV-Nwi{a7;kA#X;s&73dlPPIi!#V7pIvAwP<TlT?}7d+|Lz3g<_0&u%Uj>Q1?AOU
zk}S;WUdt3)yb3jjQpL4T8+83=uW5hQfUY4ws6z?3nfmXBd7%ZCKK|YQFCRAYe|is`
z#Kr&FRT2L=&HwH>CjZ|YdW*q)8j!7vEtzhtt8_<C=bqka$0WJ&tniEN1%iTt7oHcq
zj#5*JDwy6`DBUS|{W?2q`V+gvg+mu!?~^DHJR--#(q(!iHz6qrhfBgjQ)Vd+t16@H
z&>*8qU}U7zLtE@<zM<}=?zV(sM+HSn2GK_U-{-bmy1VZ$>V+du{Cgu|bi%)P5!z!|
z|6NofB=YZyl2hU=f0vVd(mnj|S`ux&{}+c?rTRJgK6mTS{&zLYkO0f-m{LWM&z8yH
zOmY17WoPfLuY-i5;-ao%_oA?pm4<5`f5X?|gHs>76w<}Cr3$g3ey7R)o`79bPCdcS
zq0B<nks1`ZHS0#OssD?;+Fy@M)~w}_l*db{^d)3Jm6Nvg*xzf)g1&SE{uhRXM5ohR
z&YH@mDXQfM1#Qg?TJ?K}*-aD$b#CtP4SJ+L8vamM@4F={@4b6Bp2W`#jBpX=cXVn9
z!<4Usq!iZXu-oZ&O$|zALG<o-2d^Ct^EZOID2!(OqRVfn$uYlSUwAlxuzE*+tG~!Y
zz73yRGFw`|u{qP9s$%NlrR@BDMfGoget4nc=&`qQ%_Oq|K@^xI?lc{I=f1tyK=L2>
zQ#S0__4<7C`Nv-%-k;u$S1UR98J1L36_-k$3l50)c$n0|Jy`eFbKefb!*kuYCr?YE
z@)g!Rv&>Jr{&+aIQkjx3bN{2oZ+RzJFLCUfq%<rVz+2VIU`@koiQqJT%dQ9iH}>8<
zs;O-27sawlPn8O%%A<$~lqJH!21Ep;FN+eSS0RKxD$;k-gqVZ?mZg-XfD)vKs7RMU
zqI8jj5bVIvN)rNv1eHJ_KmvgzCJ=Z#vA*-2`|f>Xyyo8f#(m@Qhr-TYYtJ?3T))}w
z71jWcQZ1uyD_e=$UZyruE~pM7&g$*`K*f>q*A|#KWbgBQ5s!=mA18hL2usCkD?jC8
zxrU@~)AyWilSQMs%wy<9`eJd4z3PYbuUl7$6w3s^I35n{yg>203JDgQCU-t2HeV6c
z@`tY8>V9n5LOT*PdFQG|N(_BDBW~{LAyxk*qeNnZY<L<BVqM-tWIg72o1ez^x;#tf
zf2w1y4K_zbLa7ezDZmGNt5}Z?sZD++=LaIB;<lx?piSRh&(4|G#XbW%ak8wZIcFvH
zdd)$rZ<Ax0$v$XI((a|N7*6e0X_)G^R6mSQU?W2mEU{!W3Q(EyQ3YXX#;9E%rF4(x
z%}s~VYh_6|O-VPb?d=n00lCf!mW*b!%|GI!=7|#(!D`IUX@_kjJ&9{|o6?0ROcn7*
z)3j?;eiC^~oz*cRe>-nW_e`7nuu;3s=V^It!c-eylA1UWQ+p@ddfp;X_IT4bNwfWr
z==G5A?wYUdS+$qM%g-RS?1U<bHYt^<{byiG9ghARAT8vgtNar$%cPTt3$m=+43{l`
zvxrP%c~(jUVxqn2-xOMQ51kI%*q~U(`9Y|%b7=jZw0hZf=xaS(Jmx}7ah3&{cGHM&
zjIwEvxk7uA%3N?nypu#Ru$|PjY;GOUT1tP7H5uPsJ((~g%i=B5L3DJnHBGw2v)Ep+
z@~xXTTiIfH%=qYaMn^`Gb<Jn_+UYa|n%)8;)TYW*R-&Wo)dY6CCV*3-R8&s<;=P0~
z_3(lbvT*LzZ2^I;+3{3Q3Rc#}v!xHv9dSfZ+T_&=rQ)Zj!?qZfwyAPjRa?(0TU*nQ
z?^jHs((!)>S^hhK)Bh?{^i7&z1$D76W*rpVO3yqC=yrciP!OsG5dzI#Cn=e^_3x+f
zb^2a{nzr-uU!j9nzBCthxVDq`>4T`?KreYPbTe}0Cru^3b~v_^oB4tA-XN~_MY%uJ
zNz_e`h+_Ri@qiQVU$L7+eZ1%NWqLM9y(hq`Qby+`($hd{1XalVHU*@nFOSyGZp$04
zpx?!+gJFc!N~a|<)7)$Gd<+4I?=L_{_DfFBbM%g8W_-TgJ~x!z{B(35|2!*E0Z=YD
zb5rT&?wJ@D(R<$S0El(4A*ibZZos_vZluGWCxZla+F&gP=U_DTBI`Or{)|^R#3-Z_
zKylUhfGJzZd7IP^7J^etDaSgf#1gd~DHlb;v*s@^UQZJ7&YC}0fy4^Kx=rsYT=Pqm
z-Aj0#d^6vgwN5(2{97pIM526^_i#vdn7#w2R(B!JDEx;bYR`FMZ8vX}VZzyyuPthL
z@x;?DZg=@tca_A`rcs~jaoE_#*&v_&`XCl>n<F%PceZbmQPd|oH((TR*-T^nQ(;xp
z=YRYVm<AA!Ya=5f(GMH?vF@cBE4gz~btjtub76ly6`d|Qy0y2{a_I?@oow(G8zK{U
z2vo0Mc4G;0gOO|o3!y*`24?MTGtiwkYX)${;kEt92+;_fcCmEiDoAit&H4avRmDf|
zD|Y-S2=xeY1+C*Rf52<Km8?XPV<qXZ6hqubBWdg}qr2Co-71K@_sbyy&wT#F0T@>Z
zupNbS0}P5{#?k8lluICYV-<g>j21)>D1Z5%?J@kdDR=Ez+5kcOw{Vrp{lRkQo_DEW
z5udlt>%{HeR-_Eg(&hUQZx?Cw9oV}#26*yxM!(Y9|NQzEfmoMXM@pEPD96IQ)xGU5
zl%9UiRj%^U$FJClSO`9=PTPwDof*GF7l0tO8;?o-=@{jtmm+p)H3oUgqeOLX%~97K
z(3fDu46vY}3>gY7zhS2c7*yH^3%JhXcd=Y>m6xP8$Rcs^GY{_89QV1Cmr9?p5G$Yb
z>|^a)?{BSe5^s;%SRb1fOXQ5q9!ms4u&H>`^8Qt&v`!$RDC+!aItEOP_+hn=bXima
zEYS|T=3P8eZ=rZry0Pzky5yO-c2wT5^&S}}67ycuk8|03l!W}P4%Cjs>ERLy;q_cT
zDhw|V6Mf+Q!ONn%gyC7wWmloR@y2fzx1P{m*?B!1s|`Utm3g7%P&G^txgOZpm2?!A
z=*7gE;B>ID7f|7r$ty|66a!RDZmV852f=DK8flR%u&M7YGSdndhs&xf1C<gna9e+y
zgqhC+TP0tnNBD0m;=a(sLDOnz*a=@SxF5Ii)DpHQF*Ui;cJBTckQz<D{oQq=XrW4z
zuOPO*>6Jfjal0`WZy%#LXjA3VA<ZKnSTX)+Iw@_U3H(9(n7@hQy2?W5`7Ht@E)2Xm
z@v?4&g<+_jR?4dV_DQdHq~OMkQtp>-;fb?f&YU}a+P>}sE5Ihk58@}6ekWKf<2{X#
zXV6WziW<H@;9q(%25VT|);gN3m_1z-TD_+g0+zE^p+levSXU2f^2B+g;N}{HtEfir
zjI<M%?KYncQu7apQrzE;F!5?%`=e0Si+dr!gz_9!hr1DpzlySl7(3KX#3qVJyg01?
z;*@L=XKv=J6%(ZloGv|kw6tL&@&(2WnTQ-v=b7f-YK3jK3F+}vUz<omVwm@41EWPB
zWM}RJQ$8jf*aPg;%8jlgd~#%^E$UIwNby+A9(EhXxC&$k_^MBMvw)yWvGe9*9ao59
zV13omLyD0nezE_iwX=8F3LHO)FO-emK={V-%{|kS?Sjircy6LZ!SshFTs$@vi|FlX
z5$u0zr5JUoQ6Za>nrxr9sEpp>{9TGwkqc#5`8{cKp-f%%1jDFrcryOImXh0=ukvop
zz`>%?2o#g|`e>^l&qS1_7-OP&C5|_a%Y%`bu5#Me9;nzAC9#i)eAw0|+qf;g-Hxi%
z$=-j-Q04k1QR&^-E17}5lt;3OCz_WH4vbtq`n>oU>4B-(j(!(>I{6*pVdoX3NT2Qq
zJ|RZXO>q7_P30o4r(5$FlR@1SCs*+dc1Z*)#-kS~wXzQY;En$6wrmII_~N(M(<*5<
z+r2*(nuzSw0J2tUc!oo=H@qjPdlm_m?9}v@<euS9ohuOBaszz|aEHYVo3B;yLwEi9
zsGiA5A26~Tk5dvwngE4oHXd8TzL`pGkd0VK>a|M)Q2pO^u<8)}5~MGIJ$OT>k-{W2
zmiRBRNHXzR^DWQ5-??Y0t(gY9hHE1rK%&a|7u*~4?4ASE1ceNVjrt!@=S2By`&RHg
z|4PwE`iQ*8l)V4*`WcdcVVHLu&P?qD1Lmz39s-$FX@^>1dHH2xs^!Pg*Xpe935uKr
znH8{QV?y+a+R}0?KCNNMQgl$wPhpW72&sWgBXX<v#^%@skhxTxku;p?QRokuf4c``
zQDxLBT5RfqU=De-T&S}7^f+-o%0@adKRG&L6cm74Hzh6K)EONxr_N2t{EYDH>(bKA
zN@6axTV<O<<tum$?52%PYA^s&aQa(hrp;pn0xh`67hBQ4*$TXU+KRV1`Va%5w2`h5
zjMLa<>5?q^cCiU#;k$~afaUcT?~Ox|jOh`#uh>!BiquqOY)2Nhc#<=FmS_xP1T;j!
z+IK|p{?IHPu2J*PI*Y}mP1ym~5j_1A$tu?@Yg<lx^x@McVv?T@1E~TXbQN$l)W=Eo
zbE^-54|nrZ8SXFESa{@zcM7k2Ol#?@6Za2F?#P;WHYS~R5Y%&7ifBgfv49H%a}6K)
zYs^u*E1&x!CDb?W*o_LyP=I1q8EUm`@+yH%iHZE7Kp-yKf>ffkL-@ON7!qwm3L-J2
zo&W}FdzUsdn({#se*0Qq77Ne&-lS6!T~B%C;nnHZ9}_2h-?#(7Z~{Iwt!>_cezYih
z`8@i>^>V(i@{G>f_wPLrEN}UFC<0w&l@_8C+;)<ZoWa}9+)QoIq-BuAH@R7{!e8kw
zKygmo;`WLOiTgpE3PwMZVD+d$>fVz!6o8)dDO|r(%9B@WA@++e$;50k-^a4uZm)VY
z-TNUUZT6EPOG3S)agfO}NH&&G+9sZUN6E4S+f>{5+bXuaic9qDp4K(tLp}c=N+yN3
z$z;G4Oc32`lYLCwo{)?NQHZs+#u;sjThqTUVtf}Qj*CKXuaO5q=XrRyX50%m=<upc
z>h=rE!#m6i;&%>s$x#t%=zRz*2?V0-FDQ+zd%O2b@~G!!tM^iwAFG)Z0g*p?wiP~?
zGOk3E(d&S*(eaVTqvcoCZvT~%xOIEt$;U7(5M8|vRLra5eHj31BCgCTG3Byop1y|d
zF19|e<Y@X9g~KrFD(Cas=*>4~lxE<P&h7Ch9}k*{)bu8lDXs$Y<FDBMJ;RuN;qJ-_
zRWDViOIA!oSvO{sg8rZaVBq8l&&f-VER=MeP6tMSdxj-i|2_gm$GFYsdogsv0k;qM
z5eHYN6L|*oNpEw!?Rgfwz2(cIx&erk&d&undSu5zP}QWT2oDiZJzFWbA^UQ}67V>k
zK&|HNl}@0seik@88u&R8{O+&7$j2TqV>Y3W;L7Vhj{#chw)QGLqW15`o+#(|&%}-C
z@ZMcWD+(eSO6B#@FAS}i7ic8j<t;^^yqlujDatvb&)IKp)%Q*V*<Al7SP)3L;%8Sc
zTf6ZkpFH|r!EnH7j}Lpza#1_6L8reRlHH<LZu#qT1-a&?zBiB)tDiC0Vy{jxQ<B(k
zN+-C@`+G?aR4c`uUU332$^`M(jbUDDgg(eiR9sn&j?H<cW2fSB8Q{2+B1xhJ*o=un
zneA557kB9&z~lluAT7dZ3f%refGw2a|NSFsXl0x1NABr_^e?KL*8%thdrU+#fW>~}
zit79M%L0$x0+<Br9oFYVW4K%RWRa`9?*>B2DWC5Ev$$#PX&1dmB42Wqcl`VHG#k&&
zSm@2dDLKG#ii}oh{Fk2$+IQpwkTA)NKm~|y@Ko0{$Q6iRM2`y-`>PFg{%ytnqFV7n
zIg-ii;q9P{!a7=;NF+oEQoBRk%v0O8pcL9AgPj^nL7prs;$u$>TC#uTk@#ye$Ox+)
zu(<D8_H*X2?vH6#MRIyMmTA5qP<nXJw(Qi}A4@1xWUG>)G~14VG2Ky$y(oAHS#aG4
z8Y{ZP6JYIdK@e0eEpoQ=c&*Z7y2KhgSp~NXlz&=<UPYte1jbbiD})&(!C+rkingkq
z;KOhj%XSgE$hwE`kJG71-ZiMD)IGnI@2-ah1_nOch6$q}enx)9mP`3~Eq*K^=mM&h
z6ezNxe;kVPsM(+(q|g4!)dfQsZ>{PPw4P;u+!Riyy3A943BBiiT!F^QC*B`Tk;)g3
zeK23Q-jzJ!$%bUFcuX8&!E^@8Gp1V%O_k%~g3x@$)6=0*)yMbqy<_%YDpT8eqI1+b
zv~puEaz3>q&=bgL6wfV}7uSlFTRCqS5I>pBM}>l~{Bi$!blc_1HhjA{#ze$Wo9s%p
zX?A*H{pL?Wv4>sRiS_`+<j;mjJ{^oYFv{o|RuAkPbqVDSWyFP0wa1%o&K{h&{z0m^
z>Czlvx>F%X{aNs<(0pD7Hn@_TO12DsWZN-|6)(IbPg!>GOWJ@$oesN6c!;j!UA(<u
zz6z`F6{dPZss6{B00pE5O@GGJr4kW-qOJ5ekUHRijJ7r)-ZZi&t`b=CvEi~G<@Ip0
zru-<ZMC}ygo4+=-OWXzjQ_%`x;}O?HWjwLg>4}NI@dv?#K^s_Q+htM3)(Jau|8iAE
zq|#yDS9O;El8mF>B-;kCurfRkv|}Oc___odKy^buL#Aax-YS>gzKxiJO61N>nTUeb
zN8SScsEl}dR2UD|)9}4=)pCE%ckH5Q`ZFf+SnXY@Y`|OlDI`^kL5->0$i5k+OwNz~
zbFbD?AKw7E`ifLQ$lrOIv4+(t8VTEVTDh}N{Bl?Iy1*3Jzt0Rirkef=BYo`lwrm$L
zya;6$8_aJ+%6)jk89+5uWE1?GDKn71ms&O7E-}?#)cNnb9rC_OG8CApMZbwP+BK{!
zgSB7u;q2X&@7-VLUb7K=1EnBb<=)`=qt`v+>gBJTqj82chJ@r@t5W4t^7;S;@%<NC
z9#6RYB{WdI@qd)?u6e9opG=4x`Z;m2pFCszCDN+~^kD-D9aUUx-Fj8=%=8P-zvQpl
z&+TgZP4e8$dlYbq8cev87vw0>SR@#_!n;i08rreWPg2I}DmVZU*I@KsEVV#;GfecE
z*NVD_3W7$8{$x5M$p6s`pm#>#iL<Ni)BYE#0D$i373S6Hr4#$Z1pnv+YjK_DkCT8I
z1X~}i{{m5$>34=?8MwuxFTy&LqTPP`DA4-XEWoo%O+?#)U?3xmC)oFI*O8Nj2qq9+
z0K07F-@&j!Ey}+)h~(HeobfN_12Bl<y2>8`a7!(eY5lvfHX|!H8hF3&nMjNl{aH8#
z{x8OWpdTA;@s>EmuWRh&%Rt6wu3&c+*RW;-@P!rJRLOglH?Lj)6BCOBhnal~%_gwV
zFV?aHQLW=3RvQV-P|bsRNow%_$rZ15fApRfVjbIu6_4N}=;rQ_H6e|6dFYFk^11c6
zIec`n1h9cyix#@c!8*aoUIctw6YbBSkA{jTwx8LT@Qomrj3v53CjGSnwLF1vkbp19
zQYy}ezxN#aP}+oZdW3viVyC7YFsOm}OMOP(DLj}Un`ROOZ3E9PDx<#aDe(8o@R)C?
zkNIMmu{*Vv%0@XKBh`Xljv~Q?f|2anjnofcR%_OHkQjcth2}glc1<$4^<Ekjy4;w0
z8J+P=`S53o(5<+rw%sNcvF<^4!%pEA*IKwmJVvGHI2Nh;A6r3Tl)%WZ#!avpU@qZ9
zn|c3m_J49{Si9Aus0QP`=<^Z9?HiV8ROe@M)^NQ;vWmOWN=L^h?Z0Jh>mRH~Kt~(*
zeklzxP6GM|G4X_;?k66w_*t3oRdERhTrhB>{v*}|XG`SK_%Ein*1YP#D@wzb^%{B~
z1)uiu?_V4+hgiVa2htB!itYqjU7xVZErHG#%1RZXLJ6}hX0Pg7t|UHoNM%Lo0US~|
zF#m1)T=zjf&$~4wgW(vb#+o0CslQ29dHP`;(W`)84&68+Xpy?gTU1;3D-+5-Cjlm^
zgQyqeSD*@`eSz*MS+StvWZi#R?R?S9CtinJbHwLG-q||qYSu{EqE@U~%9rrIU{}*w
zdwRooLpDDKXHvZI7AY?@j;q7tgT^?Qqd{@FjZ5veBgOt8qp}gBTHDh$=6cj&-CVY5
zdz1vb=wBPSrqHn*%Ua9w%O^99DQ)Lj3F#0!hfD9$B}KfA#WCz-9*5FlU2XF+*3G-Y
z_QkmIC7t<R5Ix&lQr(B+2cWRB$z8<X5bWg5j|%lWp=XZglN3c74sU)h>+7iC+4Oj%
zXq6|Wdtx`qmZ=0|uy@*s?%y^>+c9Z2NC;X`vQDM<d)RIKjIKLo+uGjd{mHzNaL}4c
zJHk#>gkCBtAJVf<FaOS8uA)+B%|_lhV%F9I*C7J`B+c5#2f<5yvLv+px<_>u*1gUh
z7we-HDEH~!!{;|sWVe8%gMRVXZ93T0D$6T3{wlGZ0-Qd%-pj>-wHL`y=oyjJjDK_3
zd%lOK>gFvR;T%lF)U?H4_;OCb6c9}!BcN|r-*zojr{Vyj)Xc_q&y>=;$6@D{0nN4J
zfCx3E2P0O*g}ixOmA4g6-`sa`{lg6LmJ-JSzi7{osiBqZQ}0W<uZD>_>2A2q=z8$7
z9jI7+Oqs`i)&|4`ZScyrk3T0GmapLA@NHGJtz!y~s)(Zi&7_-%wr(p*^j*YmU}<Ho
zYNc@H9t=>r?F60x=jdfrv(ZF~e$<jr&&Q?(B<)s=ZI_vH>|3=xDNUBoEgKM*UVrmW
zaam;{q*_Hxs7hQc(Z+boU7E^e=S5=?s6cI#^GaKyqR9qKQaSFmI6gHIN}N+#H6U<l
z`C?5}qQZf#)w%PO5^_|I0t_WX|K<AM{PsGv%EsTSHKqLvkoepJE<r}hwqqBKKJ58Q
z2|Yby=lxGD#2h|&LP=1@2ZSQ00sN$k&i!95-qsw?xV{;KEnPcJg?|$)o?ftDQ2GIv
zA`V2huhDLFEHuwu(o}NH$E-PA`NVxSH+^5OO>T#O0gJ7c1&_qqH(|<~+Ohvt#PZ*@
z)U5PE{<B&g+5JS*=a&qyz8BaPvX&4j3Z&a$d+FP8L{~c{+;{<1j-+2ipLp>mT(+;x
zbIY)q2@f!p!k~DRq^5X??(+sML|<xde;nUG(vgYvNLsu`<P}$PJ&LvMY6z;ZFjfOl
zeCv6?OF7}xp$~zY1e|+`MO&*4?wT5514~L3<rEtC<J(#gKZ|}VT+tUmmEr0!gDrw}
z)?<>SXZbZQ7&ld1`;HaFA|l+Oqe(ps5Y<QSC~D^ER|Y2|6VRZS3f{K=uzRU*vOJVG
zS<UuZEYhYDWy=wiwW&C8*g|j_ENO91+oa{CY~`(ggTEVJM|Hc()z@BZ+~#G6W^MLw
znL%6-<wnSt^!%-AZyl!xYR+hWWv+cmx!r!;BJg`L<tiUT0Uh3isYD>xryt6*(n@l~
zN%ZMzJFU5MTl<yLcX0%YPx?K>{*ri9XHe(b{s!hl6Vak7sho~XL{ok@2U1tPI8W@3
zZ3RmG&MN}ym4-O?qLJe9hE0C$;v&3#ybW)j7!!uB`$1I)`*P3q-c{4zxnMhARK%k%
zPI!cp{?JO>Pk-l*50_0g80mca;>f=9eQA}ZQ_Hul^T778Itz4SLzp@T%skV0e_vAy
z!NDD%Pk=2uSr<3iwiS3i<6}T)->{BlZl!`V>B|jgU$0ZbD%&;>_CcA2GCS3HrAu&$
zQwx;)v(3jUAM@NZPBU(X@iwjBv?#|sP%vK1i{08Qdd`a&lGXl|EC3oJtPBZ$$}iFZ
zK;g2Qa%29_>a6(Rsr&ybCDi6)q%GcyvxTywJLZ)F^EnMvnn$#-o1TGQ01%S_^YQ}J
z6Ym6A2W6ml%ou1Hkro1B^>!S(lFPqnLnb{#y!uV{McmHqWHX@L#@~Y1@ut)xB2qn+
zGTZZmUf<;RbWGm?4A|x=U|@!@`XF@=g8XL@cD+q;i^|a-&y`TO6S*(L)y>8-B$(pg
zNf<&<5UUn3mDCelTstE|Dna$Y`@FN}&%SO;tW1rBN`U|zWb*_OB)Z3or<>9xAS*8G
z!*>&nPHFbP_iaYW29RpN+^VcQZuJ>Jy7t}vabHS}W!OMwJL1Qy#Z+X^@FpTXo{SCi
zwkoo|zj%i}!po>+?45%Z{oZF!8fpj5HB)In3Djje_p;u6)mlOGaC<$dP{8A1yl(Fk
z8(eHTw#sx24T}<$A2;KmVnw$iS5y*NWMGZiYRVAw7<mepMef$J;^|cxlJZ-a8`Isg
zPh_?y^wksO4bd;a2C?$C0IF%Lyiq;>Q`SJDf;O`2?sxD>J4IUrke$VSaS`&^25PNw
z<|KjnaZ+Xr`I9Gx4P;e4wK=9~>OI35bxUP|bTrP~H9M^yAx^hZqP!+h=HKW8stAE^
zQC7H4uef6E%@om5sg07CmA~IwF()^@?Dd8VOzA{Wm}@qMeq!x|QkKf0Y%9-6(U1H|
zKUAWKcKJ(k(Cj+^E#(qd`Td(EQ%3<9@7F>oOBU@8&lPP#H+Eq4-REO6PW0#F$iQnh
z@BXS#{05Mc3?du|#~Yc!N0qMO|KD<;@_(YSOHms3X+naED@EkJV@ewc)Q#E8QVH)_
z1ZD2$tqM`6XZHS;)%~wq#>Q^KHr%zY+dj5d?6mXWUT3_rScLy`+=oR*IKTeATT+l}
zjYwC*tD<en_l^!h+it0ZsBzs^F~G-C(Sh(hl6$Z(UiSCQ+QA`QTD77mvKzM@tfK+c
zjubaV0xdIZK2UCi95{#|<Md?nNNRV+4jdJbH`(ml>#&`tlwQcO<7x{<RATS2xxd#J
z|E&Xv@2If;VVIB4mjv}~#RWCs0_5K>^aE+%!2cLBbuelL<|}#;f$CLR(Xwb)2KMdS
zfQr8+LE{>}bZegyt?m{4mAVCtgVO%}zf?Z|f6}w}KhU!H16>F)*sNMSBnF@C1@;Dm
z$$LkYGI-VpC<(ig$EVu^r~$KRA5{aV`BPdDaZQPQmJ(XZ4}J*r&#n&gVkO<05?G_;
z&d^i<!<u}@l$^e*#%`*wLHLSpi*@)xL4l{`FN~_Z2{l0vC(RZ5^5dD0e(+=wr*LWq
zfW9zn?0b&n<88XZP&T8uj2bLLyLk)v;uk!4qF|p=za&6E1k6vgV$#_kS^uX5hTE)Z
z8wAI-Jc~kX^zbBAQ=6E=c{>p6itU${+u(zM7U>k#Kmz2EO~DTn7iv=*fIC}sY~Ls?
zPP)>Ocpb`v*u7~<O|<(G^}2*B9M!L2MKwmJ-?SKx_qVQypYpi-0q;!T!;T%E-ZJv$
zuI;ikNL08((Qy{o5G5%6#hV|r`T2&~uF-A;bYNt0J9H9Kf;tmtDfo1Q?3<RX{faUv
z98qh6f6M+=U5A65ZNgBhH(xAuZ-q73#<1Ym1Wz;MAN;MNyF1c$qvpDqs=PLHs=Spi
zUX0uKqF6Nd$%UvrjLJrhGp&S6nN;z|!EQBv|KskybsxdzGDcHz4{wJNiGOBoX?YSE
z&#?ORhw{k*Q2H4b>}{1T<&@xYox1h}RjW@{p5G*`2Jf2al{F;Jzm!{`=v*V8GRgb1
z5bNqSTRE4o&_IxqmE&WrUJx>x0~6*3TY>-9E6x(z_bbd_GjBG6(qiBJbLb{LUUaah
z!Ee&5)OM)^tZF@Jozkdxqvz%AlZQkDpe)L3-+Y}3b=e{DbNW5<Ri<fR{bG?ta|6Ft
zY?DN2Ao!3Z@14^!ZG#p`(Q8?5`7sbIq`aYcUEcD8PF-xOxFx^;c_}oaLh#tb%gSi8
zOFWNSA94}F#=fCf96hi$!0Y3dz}_BU`sRDfv@LO@&`!EPF#yWua>x1+E7N%Sqp7XZ
za44n@GVyt`ht=&oX^+7J?L2MrKMo_+0zst>ub%7FX}2x9<a_1!5Xwbiz@z#>;04l5
zk>;^6WH?e(vnNX)?)FuWq3;|dP4g8n1EjX?MHIIWows1qST5r{DZUgFy<TB>S0dwG
z7?Q=(x2s*oTY2jgj>KWLQ~#D&*CE0(PkmdR@eKEH`_;S2E8?$LyFb<HL0oI!JOH{!
z0JTZ-g|d%yOaeWo?vz?^82D&lQT%o2yoI=4JMcm&`OoDl@6O&DpcS;ldn2>`I6X!=
zDCDTxF06Zvdx59XJiWzj1LA+D*Ntu8y$W3((M$6t3_E4cRuQ%(1fi)b;48C0`Ti1Y
zsc}$ei`8Qq=4?0TH}A5M*hrzaU*$JG<eOCw+cL7Egr);0Tb}vN!LrOi#7JS2sD5;e
zW79ZzHmUQJlsLA@V3&3>VZE@en-i0N|NeVphkqW_{yzBplgd-rVe7^#|17gT3tG!<
zzFl=Y@&dLscYBOY-N@%h|BSh4V!9{hZ_Wc=&S(E_|HmA7{p18U8`_sRLg8D4VG_l*
zLntbQutHj!AdCH?(j>M>LIZz1N}xCCYLS(`*IIY_NmC&wxNzflvK?&>6hs|&UQ_^s
z%0AxvTxOz7t3k&jVf}abfqc#(koI=;fsrdp$0L1DV{z<R|EFklYZz0oVM4>@q@2D9
z|73Ws<v919F4#TcO3wDD6L?RuXATht4phz=33E!gysi9N6+AGPW4nU?@<mCs5VZC2
z>6d%aNekMp!k*mi$|y)h*ZAz~Ckq~hV2PO%9wYo(imT{hti8^y5|=&X^yuo$%B^4A
zFH$;H%E|vf^Utw|nP<T&Bg5Z2;U92rJGr|iB;?F{r%^+5jLduHXPj(LhX6+*aC|-S
z%qFwoVWK|G$%$Xe8F9*Tskfu$=cHKEBAndagp@g)jd|c3eJ8P=bWT_8TmnwFQ_tdl
z!aa%s4Tluuk2&O&=ak(4p%~+uKw%5Sho!&dnB=q`q*>*xUwgH#=60vw20c+J*%)$S
z=Wq@?^%X+5T8@OIkSq<kb&LC;C|AQ@)R~QT)2%62a{R?YTeImGvg9uALa70FuD`MQ
zFsndfOZ_!x(>38157wz`0qaO151+l4YCyZIU;TPJdLs6>)s<7(!QqFd8<GjSuyYBE
zy6U>p=p4ymcvOzsVd=nX@jy*;aARx?51;)Q8V-hOltaTk^;wW&FeR`wX?Hm^!gFhF
z6Y}ubffd=EZ-r#|&Gp-qRQOEYoCDL?IcL7=)ZaU%kr#3tLt8dq($A*k4DPc)y0)q7
zwe&~R1rr7l8yctYb8hVBpf2X<+@r1d`tql$aG#T)0fxUYjd{X?fLz1oxz%rl>*u@F
zmqJVhsEyyWgf@r{Yx2n1d)g<@lodPKz8@cHB+LiT$_z@uQ^Hh9^uMS!1gMSx!}ciX
z)Mo`1Gad()HtLi^BNbGK@IC;|WlBm(-p*SSb4J(QcQ6MY8XC&<&E7QtZ+g~h4m@_+
zKQCwO*5n{NzZD`w@`%Rcpp=ms<MHHsq(7xUL7%&!Q_hULCZy(c6JNN+6me~-@eey+
zM#4)iuNQZO6O)(R5j*9dzJ}vnw#T9O)%h2baKYiF<MhBcz`w&zFvbi(q5fj0;xCn`
zMZOao!<jQ6J^?m-j+5;JzQ-uBy6d{VV@TuU#eH;jmd?|A^)D`V)rDv}sd}^=uI@`S
zq3sEq%yn<n!o1E&sq&M!IPr5hg9giE%x;0k*nZ4ZDDdfo32pvj+wA125IgOhmm9V}
zReVf}ZI101Idb4vo0CgYp5#k5g4!IposREWI96|@oBFcTUSw>PKOlx9Gk1sIno(@0
ztrIhJ!5$W=GHKvX)8gf-nC>`VLdeQEcg<wqVR5ljA6DomR%IJr@q#U}pW^=PcLI05
zcVZ4=@;NUl>uYeGJdUN4b{XgF@mNphUU+QaEi)*1*|#bg$~5*Pnn4G9o8SO%oYsu}
zs?1E=@vF;8X|Gb<Kpn@ej+DC$y_x+Zno__H|8-pMWDBmK2!>4q??q%kmhD*1&k2b9
zbzElG6<3BYa+z9+rl9!KhX!q1oF%l}j&b)guZlHi=c!nb+YguvGx4$hxy@IGL8;x3
z?#7JU^1?>B@q2pqV>Z+~JgSlo)Lz^k=ZSt(-By-KViV9#pAye?y?dTI4ji>yHWH}L
zeGH28Wa!=LkBtN~iU1)u*Pv<mUh?z6(jIoIFBhQPZ%+0*s_@9>N_~;~yND}Eu1)S}
zCz;NLinNJ;Km(ovG!sGdEYzz6Z_3t>VJAoPRx+NB<=3s;%-la#uU~Oy(gS&SB$Bkx
z?UP9#$=reY$Ax_9@tcOtHT<U}XBW6(SL3n;-j84>i_)^Xj-D|d&(vylTKQ~U?<~2Q
z+x#(hU<MwpH9pKV%~TK>$Ix{kx44y_BAW?jlA$O4*Fsp#;iPCSL+_vCsgcq`C&M7G
zvoi};^aOMayEczHm=Kr;V)<B>pOH~<d1<6+QV+8eJAHYD8)!9sr_D+DHupio>wpr@
z7=4ZG4r!`*uWL&V1Z3D*0DJDH?%h2ZXV8DPP|p_WS=Ldi>)|FG^Nwmv8CgyosMK2?
zJ10ca*Cu;M%mztOEBpL9&7eb{7XZT0`xa*aC0H15EoRbbh$e`SvE}v4Hqmjz)PxIr
zeADCfrQvZ>o)g~cr^Pm1Y9J*o4E)gVBvRiMVm@1Z&)p|9!@C=!kux(w7veNI(yU0S
zx*mQYA>s!N3%|IpF1Uxut}NDV`6W*J+Nq8COWEC1ZYilpY0CzXEX)8RGq2w=)o^@R
z*Ou|_Ln2z&XdZjg1zQ&!9>^San`!`Pa=X%44E#>$CAS1pVi(oD@2Lj)sF^z@(Ah#e
zU8(G=`TD;}T;Stz7qxfBJLhzVE}a^&M^79JIk`5!nkpGxC_9a6^|O6^Muzn2HjimB
zToIelg;5z#TY{QW5I3!<FJf3BsXW1Hw@(esCarSlJ-8;b(R^A=&(N20*#g6J37Z<c
zrek`U{dBZ-6)~kh_jD~eBI~i^(|ZZFMzkBb7p@q&B@lBn=(T9Q<r;!u^8u%r1qw50
zg2o0i%tX4&V|9x>J>&717+wURvUP!!zD0GF+p`JorC<<zvTeGR8<Dq93!QL*1wguc
z4wC3K2`@IY%?7>!C8as*{3u^_Y(HU#<I}+83_YpCHfDUw!8!NdtBGkbSEKH!7PnO1
z9XMq>RlAaMIp%FOZawd1BXhMqS3jEJF@}feyh9xDKzD?Bbj47M4LtTu#%ggtl<GQ&
z4z!jBZO^g(CysI98M<;A{>wJz<^*69t5QbTWeK<?xIy_bo#He4GnU~i6C}eJ-uS8I
zv0aNizoC6~$YN4v)C!4+BS%wf6N~p>s!M{t!ef$=KTaptfJ~$A85VMGjY+SN3pt(!
zE5FoXBc>9ixexZqq5aMY3EK{pnB@c*(56hn(?{Z&c1Sum_D~4BVZ+QCz!?*45<}ww
zUR)Phdej}#d#g|vSX)$ZWA8rbgUOQxA;sDyAGticZebd56kXA0>)L#==2*+rC6?uN
z{mctPs_c#VTcyK@Q~)gQ;*!*yTFgpI2bSTn-egumBQiFy$_zSrY}r?m44u?9_LG=F
zH354N2ZoKM`Z53*8K2|*E<Xxt^N2E@JX>(sLDD^<-<*Y@=+X|4*9Zf8f52?7@Qs#1
zcFs$1`*2|)=QqJuSO1Ck07YcS6r{=DOoA4!{+A@bFE(yfQPI5S^y?WffP4oOV7xRm
zR_>b}C99x2xYau?Rb#Dmdr8nG_x<IbIo39`I|f?E*AVjyE(z1Q4?x_|`R7U5T8VzU
z&~LbO(70oz^%9n5y6F}y3`~wG^Jmn!vCLyqlI_W)xWRpOiT^H}C_pxgN%61P??!ff
zqWgEjE>va?lw(Dy_XmHb0wxWw>16nj^Hdj8Jy`mHu32b2Z=6Kcwd<O7pxwNvt$Kbl
zmi}qgQDa!1sj>O<y=>52an`BR1i!E`$Nkaf5h)$MogLv!<47xN$om<yn5Xx=ZDRe~
ziVeyic@I2QfKJ&?%YC<ft5n%|TlEZGc+^8li*GMC%XL2{-+OM2sG9a;2!7b*>4D&k
zr#<n$+1?Yb36o-+oq7x=W2DBd)Kv$=8pOL-W)H-MdwL*a*lvrwW~R~nXyrB^m%x%|
zaXEFna3FKHds+AqivmvMp+UZzkbgves1iSSr7?b|R@vZ(6whs$HHjDZAMRWoEII#h
zMXtfKiqmu|%Rj?{U_y5R9cxhcXdic0I(hii!@%^2DU&`+QwL_&1+X#XDLi^8vtG1!
z6jXFHY5em9F@J*$czTyd9^Zs%cfP+oHZC1(L|@i$)x?B_&Nt0vYOtQm*N-f!*ZY-U
zC!f9ztii@5CE0~c$^<+R=CD-+B8Gi@kyqL?p6aVGw|?`VewTM0=?Ara^E|F-A6?Dr
z`jwljjM_nr)mbg|h#+-&26(!)>UF|+qrShR5yh<6G1`XcCn(!B2s!Dm`2@FAaXs(z
zy#~X~f#%@hkRJ7rGUjR{w!{(U<-n}W?0=w<<iLizj)MdrO1Z{f{Z8Z~YB!1w+lp4d
za?8qIWYiz3suui|1l?KZQj8e+yl^{NWZiF%8?Dr?pf$nG8*z?>74mw+n8@@dhWOjH
zK~SoCsFa%&d8KF{<+&d>Z`UAU9PI}{!7P<}gzKc0H<X7OLmX)R32iz&Z}hf5{Qia|
zNM@psox1|q`uLH@N-r);`cn_GIM(-}s7SRtqWjpgbS#px!{oZ9#GTN4FhXZ!FgYoL
z-T6KkSFb&O*&?RU)K(unuO0ou9ktQM{yOBiGvMQp8f%z;^aB{gMQQsrnTbxj;d|%V
zc<rz}akph-&6ea_%^ss_bwXs&4#18_Tv-)ImSQ6Bry}iF|DfSoPOQ9`g&g;vN@Qhq
zMRXso7m3@|!-Sjb5UStij$MPB4i7ixcITPK#k>hC0ma>G)+&d;Nn!7O?nbQXLI!q*
z^hS<+9@c6dYSU)F0;v7I^F0PU&8nKJ52ZV#WYvzujlcBof7r61)f%X6KmWcm_NeXr
z1inlH52ue0yPaw=BP5bZcYMc<aO}!$qo(85m*aFT$X$XL8Y}*L0k`WLx}}?5gPoqg
zra$f!Hdb3*&hQQ?c{t54uslX{JXtN+VG@Xvgv|$Jc4nU=>-*awiA7IZ;Somxv`h$Y
zT-?`tbY`WoItJkmn%O;bp4~VOFblS1_-UWzsp*gBaqr<{p(%Z}LW@Y(ar*|*KED}*
z{Uqz#Bahu!p(!Ixfs{X1-XCeIDUM8t31TEeJsTP!-Ysssp5YqdukiW{kPLrcS>>Gp
z3J#i@JCNA7NE><Zt)Pqq*rMsPX@@EfLd*v}B3tg6X+5ZeT*Z`*?e9xFKP`Hm+cD>^
z4X#-8%ah!7WiD%kfHccvI>XD1G5Kd>JW<H0&>T#Oec_PLuPL_qbXn{1pB$KRFE_mN
zfSg`TC$|g~M9@St8gPwaz2`$2B-`8G6gO6K%E<FT8^OwZEI@D(XS_9bkyjZSL#>Sj
z;Exfp^1EDkgs{D@fN`==&w=SUmts!4i4HKk*};756#Ia)8cmsH<LmzHryc8j->(Nx
z=u$6y-C$~F-aE2Q7McSlo}a`A*!piWH@6?>z*}<R5*a*Im$vKV>_1*yX-?H(yC!Vz
z?OOar9azpD<#O1@n2cuPTyF06><LTS!<+*-FX2GQS2L!6bv{M}nBfLUN0#vH;tB}y
z&W~wK3hNr0^KjQFMcmn$m1$$ZT}B?3rZj8Ys}($-z$eA;Ty$wUOu}%j&=V(a_C2IH
zZTNS!-iO}H6Ft7N^0}lgp_p{{bFDv_ba!8!ClKvKtynhUxPU=>tAH5hyQ^vrbJW<O
z6PvGz)6kl|^R`AYowHfYkr<)hOoz96=X=VawOO2tH0MPv@4}YXSBw{+bKgrx4q-Yd
z?EBLTNzSCZ9t>_XJkrV`@NLS2adu@!7`K1$tbHoAkfUh;`5}MciCB6Bx&-W!?P0>;
z*~6vLzE&j5+xUldM8|9-1q(zsAO@xZaN=QmFwjUa?0ZE-2!qE2<tIbcm7#~rReDDI
z>-ur(Yg{udgKAExF1>i1dW?3%_Xz3dn2uR3gUo>y%{+OA0puU~zWJT+PpIp|U309e
zP95=n>;8P7c>naUBA|X*kYwa4JrL^-nQn<ZY8&y)UA=SKx>2LtQ0TucFlOjk^XySi
zOKh8|TZsB4EeV`C1K+82PH1;gyR7NR_@DjUiw<*TtVcbQy+UF}WQ>me{9q+N3fR4)
zcz!XX1p#6XqhbPzfo^7&dDOj;Cb!<Nj<2Ml({+dsI1-$sAL4a3@4c00>{u%*2jkHK
zU3igu_hUYK-6dz};(kr;@#?I*Nq#xSPfwi^6eJuS_}*aia;ity;?*=XeKWxX2dl6S
zpE+YdtS!q;=w?-+TP<ji%CX%yZq#j@q#-?Ls;mrXnHSqs0`)??x_q5BOlkfX`?wIu
zx#PZ}1ZQEt!J&fK;+Murzjhs;#<&XybkmACa)WXo7%nmAKykuRseuze_vEKFrUB6z
zQ<Ts<nYsAbHikFQh|BN?Tq6eH426TEsQ;fyE&UH$$g!JSomBOtzdA~F2D>*e<(MaX
zb=2~U&S=G%==SQyTOOgI(d&sh0xx*l)r>}SS7ECzrnc*J0mmRSin=dQ#~g=U48FsP
zIz(Hm-_N}Xw>nA7zIY|^)o(!k++>V63v>dPu3gG0R+BQ-&?WgCPp3XtK%4@P1pe<K
z3jzu$+J8YH4;T@5J8Xka?8~W)C~<cemK{uEw(-$9)~Ivil;AGkM)(19Ty<~o9Y8$?
zpXcYM6-*#*K<CCw(IvT@-*o$ZuLb7y64BNsG=aW!UYFsKu>4EZ*D9Xl4N3x-`Deo3
ziy0N@023MuZEZO1!UyN17|^ypSqcAMtPf9o-N@)!>I=N|g7yAPn>h_4%ELV5tnH}n
zu1A~^aF?C<_3!>vX+M?(v>sZuMCO3?rIK9tUuU?#>t=}ZHVr}`3vL?F7Y{gkpm8#&
z+sHX#ELR+8w}>X=k3DPTKjd^#rtJc+p3NI2Uc^J4g!;>Jpoo)x7>da0WzSnOH<}-u
z{B2Qapq1g_EX+J25ACY!>FmSR+aJg|gL3!37I?eGe;c%Qai?^ms*9TyJh<WeP}~(f
zSZ_IQnKwG-ux;4}^%6SQRhCOO&Xbn39E-jGa`{@-H;ivoDnHrfsyrh{V<6W|Xt$i&
z3OQ3wWe+&Bx>WB93*C?)w*Ab7GaH)|IH!b-g2w#nJhi0r>X%GemeT=cx@j-o{aKst
zao7S!T;G1TR#9r*>6!h3BK~@wW$W)K-01&4LhY&bo%P+p!qzJ}ljnrZxdS0~&U0_p
zujl0J!_RLk{h`UpVM)7`vk-&=)a;h=T=8jLz-+ae(ty@TTT_~mzC~kxC9S&qay$tE
znzWn&IwL3NKvk4$%t_u!ysv!Y!LDYBI(GH7_Irl;qODtzj=7Tt6yBiQFQ~A)FHCPI
zRz?p^YjWbxZDWc$coK6rVQa2?nGTSS?3yTHI<^uY&j;5u+tD&TZOH^DVVqOjkiW#!
zX~TMYOMu%p)XuxCn2QcMX$KD{W1NM*>pCvn?*!$n2jyf}^lV4E=TOfTZYKSZ?=e>C
ziB72l^9w19EuudbTf7Jx>Y?*tVO9MjQC9z?#`zqJd%(#?r;zfwFM~>};{CQU&0@<w
zp5-$`Eb!WefIND>o>#O_1h_I^7Uvq#<WOqfAgvjl8a7qs$PvAWUi8usk$Re;#mP(B
z`GXN7f&(`2U&kx6+!FYIkW!CU*gtZrns|0v%jBoc2nbZ8)0?{4yN#LR{4mvPyWrT`
zsfgqWUD}?Ul<G4Y)Y6Zg;lioTfwJ6;^O;>M-v;x{?!XVYG^OfKzF_EkTGAZGw8<zZ
z_KBbRw~mdU*}w(!mi{oFt^&_^?vL)*aLO9LEO#;WA#Nh<w@*tJ|Itm=%wc>yB-E&6
z_vM?PqrO9tcXop6MF*s_x90)1XrJgAe2Hv|me*TH8?xg|-Jltl(Tr1Ct;C*7SJ`Sg
z6W2I-rio3t-`7m>*5tbVwQRv{Rkp7rVz3r1bT%jtD9&5?^gW#3IY7SX5Mf4JQ9UG#
zjtuI&SQoKf5bAsnHtvXG2E!tOOvl5MN2D)z&0l-<hfq@Cx@RZ}*@iwzYBdAWq?*$b
z`tuZ6S2+K&Gyw6d>urk`zs=ljbLuT|>c9&!i?k0WqPSgyK(j}CK<^+Rg*jE({3QHb
z5kRm!Lmpi@k&Fz;ajCr5JaJB1pGwz-c?e0a?3c)Xo?!A^q41KorU8-4&@z*_&s`e>
z6hr(bCSrUx7kTMnzei@xlnbu0+>%S0{ZI<U=uJ&Me^7S_X5=bd(#`Mwu;oT4x6|rm
zhRr|c?yrAtllc*{9HYA%3?)14g;9|gItN$K)_T)h{>*nPtiODy!esuPF3d^Tf~{50
zd>2(UiaJPJ%sG(v(w3U&tPizwqwbbJ(am<ATb)2(jq8$DXRVMOb2mFdBw(6T(=UHp
zLxez1POk_b9AS}fbDFB0R~~#Hk__5#f4=VBWgK64Px}`8SGn46QKm{^&Q4*)&5@-M
zRULpZ)7^W<U#@jU$~#q^Ot1}e?<3_zw+pE!NjD`792I5QJ98!GQ!}WITjjd@85+={
z{5q|FG$eJ|Jn9OYSSJEeS-FF(iS?4%Ve8h>IpqzqP!IjQOn$&=0gWd%tXNkwt<Zg4
zOIaoIG0W0dAji0_b9XKCicahLTji-~KEUG{RSlwpX-(+n3YKev{9uGy??@K8RNQGy
zpR~&_<z8N7qB*@FndZX%&~n+@+#w+kyT16`+Pr-8j7d#47_MWfx9Bb^<hBJ~9b?La
z9&U61LT?`o7ykT>$|cyEYm;^KpSLd<V)Hf=J4nN3Io5}07%?03faBoQHg<7C4VR~r
zBm9|A8c@L5IR3EZ2x+{ENniUwJb8Uko?Ps-0nQ;v*boaERFjkD+*ML$)$$|F6DJv3
zPkb6zm|bzxU{iOF?E6~8$DEvg<Gx``lVBxj1s}Br>|BNV^tDolNxMeBwy-X1CXfpK
zVTx4Nz$2|goHgjI+nGBp^*4_mZbKIV)K}Ke*Ju=#*r{BKm<7%~>Zq}5H?(*wQ`d#Z
z#Yw+6P`f{F7hEb+>qJ};$e9<*g6wJ=V)sKkdx|@s+L+Uje#ekw(B~d7VS1!=Pw-$+
z!QjUs7}<D^T6{7Anw#z24c0^_=Z4tj_0{GPOit0;Vd#{|H<RY*lotrQ*vZlh#|5j`
z>LH8r^_hZ%wYI!7`ZA|ogV{qNQuQj9JTTj<bOvLz!X|cKOwLJZ@@sRrxvKK)l=wL5
zE8q+QoYl_M6Cv80HncF$*kbuwu6w4rKHRaZ<l$z~$?@7d<;Zz4*B9m6^*8d}s#>PI
z;lqUaYZooQRW<YBx@k<-yl@|%sIsy+c9YpnEg2}+TVq3xPlmgWXICce%M{8Z;YDe&
zx_9mJ%r0JuX9SgXR$0HmmvNi4R|l^4jp#kcIS!_UxQ-)Md18Za3?E#aeCkRa+|=(Y
zi?Ku3F^4xZ?9tn!GY6qkjJq_$$)C3(0%uh2k1bnEF6?5LZOm?)+wvFFfeh=q)L`Yb
zJ`I#(Z9$8Bnv^<0k?@d?UB{Po_M^e59a3{oZ4y0{8=G?==y+Q5N6Ro`Kt>2-#+Kz|
zQ*~{qYCMhNr)~a8ycWDsc25u;dF4UpAV^^Xcj^0tjUH%i0?4&Pt7kb`9qD6oD`PHF
z#~Za)R*r0ze7mAqwUKJxySj5_g4pdP7O#ie#Hw7vy8@?Q-1D^KMC5I^EX8mJ3=Z|U
zpPMT{p|%~`FDT&LH1KfLp*vU{x;eMS5W^vOmX)v{R+e_gz)li=YZlL)b_@20%|`EZ
zYdXDRotJe^<E)Jnmw(c4HFbfsez!xv@Epr&?CS85tx)dgMi@?|{TGG$Ikfn7?dGg)
zP;OZpofFb@jocF^bH9(*4?RKrghH>6{~_vkn>)Rp!Cu372yZtsY5v)|R``#WjPU2{
zhNcmlyO4j%Pc-m{N{81zAnZM3pcRoViw_<Q`3*l`wQ@3K`rBI3P#3jNL9cg(g?Kn~
zryaWNoby0h)U=*QeQuD9t7dl%(=LjvIpDIyF&tjI4#j^JxkbhE{mUIH_k?dErLC@#
z_hs>h&V>!4WR0G)(p=;Dfcu<215Xv*X_`2#SX_y*JWrnvjS#Cmx61UWKOs7R$&b3f
z(P5Hj-fPR^|Ge$cjkKTqtD^VKn9+s$`o{=I0bJ4^S(CojH9sfSe`i6F1(ej4ml_pM
zLw}@65Zy%gHMJE@395Qt$n@?<qIz%9ub9%cK0$oE4y#<+Z+U%7`ek=#;U7G?=TKkC
z)7R_ZZ64>TzjS1$kbj(hc_D6|LPh3y4h888=8<+1U1^JPM7FaAsI|6_ke3$f3RJ67
zD=HH7SyfCqv?+yZ93jzzr-(KvyYuK3a2*$<$-dt88}~5GRrRoAgeap$`2_mp{uFN!
zyp|S#i^-p?xC=yVaV@Fm4^C-8j$?p629@@ID7;waqMOjgi4B(XyPY<!bgkoyI0rTC
zgo{hM=Dg#Ol4Z5`PDZ^fbZd)b!_bMHn`{Y(1SrDT2lj)&$UpaX%@5w#S!SDt(`D?>
zi9JMX@SKU$s^~`ft#wCAZy6kdXTT!~K~5Smw%sWMF~ySSN%7kf$z=rtYjb)|Wh1{7
z2FlQp(&-2@!V)_-?Yje3907zcx3-<4?uK4S&1VN4hlFgICSd(R-C@UT_o|%uMypk&
zy)3t7J0YKAY_I}ttCg*N<CJQ7lR2&5WJH5hB%QE5NP{+roL2MQ;rE$y8a?G}u!xOE
zH9I^j!%x>qHn=&hrVW$M@-|(}+;NC4jq6!?Yc~5cGhcY=xmrkzqd+g@&8N*8cG^Ef
zeowY@SVITc(fo7Py>G6Q*i|T<cbBv$?L936Q;l!V?H4~ydPFg!p@9@M{LgyQDM4_A
z$;~vxfd`yG1Fc25oMIl5x>%(v_1Q5EU98pJBokZBLu8riPfHqj(kDiRoN*`Zha8;2
zq4tc-{hOB_P7*>^&#?`=1cO%C>0-l2>!8L595H3O;biKtqL;LXK4+k13uL5as@{ZN
zV}jAu&*A-kc7##~H|?QEB{JxVij|t=b0W!5eFMdb?NfmShYC10W))lE0i|j8ITrLa
zrYbGYt3;-KemZf*ShR*aviQOx(x^CeZM{`D?Np^|%)-!9U+XM)A?w>NM2K@(uY1t}
z$EGRVs#@Ir)LcN>%p=cxZ;GBqO24re7N1Hc)C^`9Z~GXAYkWPU!_F5LmT_J%dq$Z2
zD41qWTUu;NOvbdw{%$9&py|!Qf4N|R<<4s_wuw~ID}ZkWQ&})XUbM7XBV2AP;=D8{
zAFwqKE`+#hJp3%!HJEA|@@CA!GdJ-<j%Uugn?Szk=}_N0NL!QUZudeZ{#vxvfEZ1M
z-A<VKxPDLP4l3C>W7x5iV@g03<yMVBtY{j$25oIa5D$6{x_N`G*%cmo@bH^Sl5@hU
z<GGBc9iCY&jum6G3r2b^;M+RoaZVb>l)%l27pS8A=5E2D#IxDR;1FAqb<QO|KT;~P
z_uSH+GYB9J8Hi(345rV7^t%Y#bK&mU?!q+B%CG`@Xb!A$q9bi6ci^!Oe;RdyMy>1-
zAUlJ`Fyj`*4ge}igiwk^UtgNhlU%%7Xpl&@Jr(lxq?)JYC!kUlCAr|V5qx`{JBPW*
zTl<`=I&}A<LuZ?D#i7}8gG1Ll3%Ry#IfRP;ZD&+}2Ybd%+2pV1^=a>v+D|j4w0GHR
zpEfl;T=v;+THGX||LIG5zPvsD=B+2N)79nq&+hb1#eI{zgP$es^EvhW&s0s>=i*C`
ze00_<_PB3!(iB*6S>)W-^OKaV?VrN8ceC-o8=0H`tg~JH{qqDB^XLHCu#?Kw_WxC%
zo&)dqZfLzZ+2~iT@zTXJAFi8y@C#3QYyo72&?J@bCl@^aw1V||>dd`1s&3DZ$gTq>
zT;NW#8?z5;+*_`@L+|vf6FgQ2-*0@d3namiQ+R#Kxzo*_dRrgt(pjv&{K)e&5_`dG
zC3R-@PHEpSdGz<=KA%d5dugW*D}k3-g0+nxq9OFde});7q3LUPnS#CT>FVdQ&MBb@
E0N{C;{{R30

diff --git a/reference/plot-6.png b/reference/plot-6.png
index 553196f0a3e5693812a096e2b326428bc5360ca0..e594318c76d73a2e0b55c04b523300fcf81c56d7 100644
GIT binary patch
literal 38238
zcmeFZXH-*N`!@(!5rta?u~C!`0tzUds7MJQy-JA+0g>JbEhx7lAOu2*p(=#lyL1(m
z7C?FlO{t+pS`b3W?D#zYwdTXjylcL^A7;&23lim=lYOr1+P`w`a}uGit8wPk<x>m{
z3}>L44-6R?j`=e%9C>>3IQSnz(ud#R<@i%=jR)WrY<sE=Nbth!u4&=Lz`zww|6xSU
zZ@?KCcp0D%?iu^1u1+Ew6KoILHg;3xAqt7Y&~WxXw(N2Azaho^ExzBzBg@22UF#~5
zd@j<Jlk{8-eIT6l<6K1abHafrRG6B>Z=6t*p^>|Q-$ku7`{fXuNqauMc=-Tj9uxvE
z?*$tPwjNO)!B1>qSDGc5{|@T^|MmYz07QV-2bpNR;JGC=DbQ<qsnBu0p!f6ZSvCd+
z(W(P0GkS>HW8dRmvTx2e%xS}6A$iYs<VW2P7#Z%qO2VwrXTaahP&JhEzi&lFm>U24
zRv&tH=GcGUhiXNt4THC#)U^2j92Rl?6ASp5%=b87bPsya#?TfjFg!~Ta6xas!X=_r
zFjW)#$UyY`RWTw{VUaI-8G6c`LeuQO4|OxAu;uopn=?Yw_^rkA3vtiUD)HNmI4Ih;
zevWt}KLZETDi9%RLn{T8MI1dY@5n#u-$UzGyY9eacKpy&@!KUhGXd&5^-CelnhL7@
z+321`BIgzUZuE8)Zf|q9PRq1rUqT0#C*buqMN6ThzEmi`1lP*H7Ei3r=xS7-N|Mp*
zU%xsin<BNBoP#>@_X_oz>|V0|WOubbcOxqeX98XIi`Th%>#P@lqWr{EMU7cy|HniV
z(R^FH3M#frSeGkTQ&g)grse`#C8BbAiJ*;UeOPfCGL*=C5izvErM4_L!Iy?1ZicW<
z+7*y`+&i}1P)gsVAo_CESvvhq9^>f9bEwU6p^qp<t4+5gW?uD`!oe6H^Bn3o=3$Ys
zSsr&sRV?m<M`u8vz%+$<`1U|4(YX=wcdVgW&Si#dqx|RYwqv%9FH?}(8)5fJb#v5O
zoTwC^&v}s*b|<8U=6Lesbiahr%Pa^qx7NnRRrIBMDJ~C-D$eK624LTt6fjO1GZkQ0
z8#;z_&8O})D=K$tjZh@ux>~$$cLift5@-_P+r*>(t?1@BMDVwGt<aHTy#I?GjP+*l
zMIqQ7n*nSHk`9;*42f1o*_=vmIPbQ{U&3NtFGcZl1SHH}n4#XauMdCFHFm>mZ!ejD
zWu!IB70s;DwAAV$cUxCJq~MyPC3?s5hBQ2k;49g2d|PVLFFs$dyip@?dS+~MJ8jX>
zRdeA4tE9N~=4*J))i;T*p|Up|U;Uy98}=P(9P@wZP!F;fD#I`J1q6ooimNXo=p}B}
z?qvZ&D$AV>GpHqKz5{(pX;HV=?ewlTeU7Qk5IldNHTY9%%aj{qC(rh6ETj&XE<rft
z%df*RVY`0n#bOHwItb_jL5o`B=mh3X!K_!fX$p)(1H0Z3QE+`LsM>cdBpX+*g1O|B
zgil~9-{eobBt$ZiKp};RmZ+c<xH_gL-dH1UmMeiMn>NSI>vCN>!>i_Bsj^<@#vCy%
zo)dp##xW|Z;Qn>QPbzERmq?s<iq1bn(1+Mhk%aaNGXXBi^9&vFm&D~h^97q5s$wc8
z)PIlH?iN*S+AZLl<aPJU@b?Xri?$I`pU;<`E!L<XEPh=rnXBa1zSl+zszaURS~HBv
zi18I6G&kL-G*9RH;dJA?-CIAMCVs`I((%Evef!3778idMH?`=#mk2@p$Y!<iy11x4
zK8q$XVU##E6)Yq4w50~%w8GiB9j~LLNsmq~-=l6dAnEI~f5-nG?Zxt@=(i*7h!vS9
zX*+cyjGa$uQ+Wy9Cibb}kv+e4Q8qW?3tB;OjyNCJ9IrjOA2_#>9JS4kQHrqg%_y<7
z>SXP*N?PBZm=_6&9nqFzY|`1Ce6Vc9PnvOUjH?V${G27>$`at?4TTAkL=4b<_$(V&
zNTlZBasLx-`L-2|Qy`p`eQk{N;e6^1B`h_i@SEs)O~dL|6>muQ7N>|xF$(4e1<olc
z^oV^5EYX&?iFzUK*<m!o*UKS+X!eFeS_PWK-`!6+sQ8lQT>9RM4;2)0+&>#np7h@l
zK{FrL9b2i8H}kBTm++~d5TI^J5H<GAbFX8hz;*f0ZApK+;`XA!4pd^m|5W156Os%J
zdBRhEh@iJPE~yu99pLKT>Ed3*kn4+5YUs-!ohf(wQQQb5TIL(v@&n!~zQez5exsTj
z!R><xiqc4Ly~-_yrc|99P$COp@BSQ-AoRS6m*v`%^1>-tTz8Dum>SwtQ4i@fo{r9a
z&~JsUbFfY9z<*n*mNOHiew*K*dHENauW!w$Ea>_0Lj#p-1QbVn3Oa))%<jMj>X!eT
zyK{9qQ+yJW>U}B_`O$45SN!Mn?8>X0ls7Ye#ZI{#Ej8oaJBO0e_3emXjB9he$6q@8
z51RR8z~sbc&-OF3`epwFMZp&bMoOE3P~WfiIs2}S`yVHLJKsL;$u96Lo$kBkh@3~e
zB3{Dhq5H4!#y5JQ$&%*}B!>=zM_o$B%W(I&DZ8MmTmTH>Pfj^E=SWY2Jl?(h$Ap7{
z!I)iA<nXCR`6+>&`0a9?vg~Bl%eC?lfl7CMr7KD`h=-(qx(Z$3+=LK!gwoiST<L7A
zkhE;sNOv^h<b8<0^?sAei-QQ<hAJ3W!FaAdPs>`;c2!qR`YoCwmG@d5im7J4<A9-3
ztzQWJz4PdGy~I6__mN~$>pfI3N1I6D_09#S`pg{<28MrLG5k#@xx?!Dy03`4QcJ>i
z@;S>P<x4hM%JCvjwQYAwyJ~hnD%lwH%oZ%vGjacl9^BDZTWM&W=fdMJ)EW#Ujd8`{
z(B)<H`fXJ3A~e9n{?v(F5vXW^e{Yo8%x%k5n*okuI*18#%twJz4&|qs*_US-@jr~k
z9+ACdEl~Xi;oP9HKdSvLEy3S;E7|v&Y0b-M*P8i{2ga-0qrS#Wd#H`V>&)#BrXLRN
zp>6cndv_r5+r_Q38rsjDsZ=LSqh1F^Bkqb_j&Gjxsaa=;N<=W6a@#s?Uygy{4SFSB
z1<W5I7J(hiC8(*HV4iz5u0{LNSs~J~TQs+AO@hFSdhg$(H4-llI9`o-d^ESWvlf*t
zW$>?WWLk0%jBTleaX?>Y1k0wwO%b{haWc?4u3MLqWbkkTsh9$(bKXt1mDlT^R;ro4
zMl{Fvl_4Uxhk{T_V}=8^mM?Jj&{Z)rKy73YZm|89_W2iIu%^pGX`G7<Y0@4qYm_8O
zpt09Ki@>m{$Qyo^cHJ)b1Urr@Pb~Z4wA1gSlw7@%L*~&TMH-WyF4YqR3j!ZZ6&19h
zZY0!@XDWqWYuH#eG7-#M817;2bcwCa(QX2T`pajW9NoAQ^j5psKkA*yR{LW0%u`Y7
zXP2{;NW>g*!2pu0HjInhOV-W)%P==z0(oSt4rvc&%n@ZpA)?7w=F8W5JzH=AMU9I+
z#cw8JR3QQ_42HL%yV+)G|GwQFC5Lv+GD6uL0KRJ0kiJ)1+8f-;&Hsm=cp1tj;&*SV
z7;WR{-<XUeN+8w~{r)+0N4ZEV*QEU{?{?F+=7w1IcuknbF@F~-yxyEcrGqXnD_xkq
z&%7us{ZhP7?X|8uA}F!dwl{EfQ4|^vS3fq65#|v&&wEg*(d@xISe}Wn>A6Q_a<aV6
z;$?!VI~r1mV>~qJ9*P1pN0N96yXU{QSn>k@%W@IkXnz(6frwE-q8(P=Fl~ar^7o^X
zkH>ypsZ(0tN!6b6lFnG){BsSR9$g881kY^xr|bMPo=#H~&acMl!S`J&Dt3~4eE!R9
ziJ#=ua#Su#60M*+aP`EoEVd(37@CdPt~R!zVU?ziQtFse53I_%uGhzlt&^JE6vr_C
zx|-R3OEQ)@B!llfZ<KBZ{<;_O-JHRqv6~ILi61gRXDpdm<K=SN2aoYIk$YHP@9Vu?
zV$7?h`iAWSNGyIOe^kqopLhd$<yXSWF8i4lowBBgsfnCtu@zg%J>LHv8svyC!?iTR
z@j8@wSNwJo8$3wjyo{$25EG18-ejJ8xz5M@+2Su%V|6A?mp;vyY<Ft|nWVEbX}3IJ
z)vto`bVUu2buP^r<SwNUPEMF-ou7bhua$BW4p@I57YN4KQFFSe%AI1LQldw^b0}bf
zX&y0>0kb+IN(wup-wqF~)8X~;ybN#Tlb$A~%aG%oo<Lg?w>3+|(Erl3o=a|B75Wv3
z-7}qB$S!{N3w-X4#KAsWiaS>1N`;FdlVgoma>mTzdV<AUafA58$+P%t&?dAdtp*o0
zr%e4frSo?(xsqP67mxZg0#f{ZMGBK!8XfOiitDm_iQMQ{CtN4qhg$QmX?+Occ&I7Z
zK4R4m%z<Q5-D!dg>yXYLD??SN*euTS#z2YqrP4UaxwVFlcS0ojH*M`!!x;~!I|sYE
zs9Hfkzhv-N$L{qBr1zmq^vPjSq|O@!WTRB?^ZaR&TZah+kq5~=59m=h*z~fdQ*>9f
z6h>dR+Ev_+Dd3FVf=`j47lMRBn|2*Nu!km#IU1qi!H?G(KIqJl*|BkTJ9ZL&Q~c-o
zErh+swihFj7D#xNPR^u{-NJXJhxX+q=ixECdQ$hWCQ^*=5mIgZW}gS#itBxnyz_Pb
zseG`|Pr{<p<7G4=PB2r^-OVX^$d048CofzGyx;GdEt{!qvD<N!GQr<)avTZY|I&e$
zzzmugN@LHGy9AmfDo<u`nd86BBw?k3-{<0@;Ogb3nC)!b2*0ubl9Rh@(5e3VfAQ)s
zX#FpLaTxH90Ad3PQ6Fs!_DD}gD8ax#Ax98(CI53U?`?X@{%-Hlf34O3{N?}cYo6V4
zZP9p{J1?q`)%}O!S-1E1{IwVStMNW+zbi39`Nlad-x}5``WL^bnsU`I<{kK}cMg)Q
zGRPR+Kx&D$njKF@C09-M_#v}Y=_^%R?pnyoxjLVSj)sYVgM*`;G`v>elT>d6x+hjf
z9Z;yR*1kdiY3LDwA>H>y-wk}YF?aW$<vv1~wqGsn24>B>MTZhq<b6*dWa6nCO2{0O
zEY;?eiu;DH>AD(K%TJXkkk~Me^UlJt72hdNlCd&OJDr%OJ7rc}Wing!x7Tsbvldr&
zj^Zgdp`|EAznnj{_>JqIqI47ub4mp~Q{uA}v;=3)B@Ob1`~0rZ&k1RxRJC}IulQMu
zUZ?!II$I{5NS3YLoLDRCJ}lCn8~&D^&dIMIo^3kL&Fz@1wJ-G|;B;I9sXU`aE&Gf}
z`Q2w9bpDaI86#N`!<cbC4a(TN!I9@jdr@fJH<cL*=w^=&9<+CTFFe<h^x8D}tjG9Y
zkIa1SQ;Pgi|2Xk9`2ILsUCEp9>uO9q$K*?*;+52v&Ax?Gvj=QiRt(Ro@nk&4*BBGr
zS{8>rN9~cr0ty8($r+3`l<Lbh{pmu)o7g)i?9{n41c`95Zg~kx2j)`t<)m%vb2}-I
zvnK`eF?iuYr4`eMhSE@3%>dCC!NGQGg?dbmlk8nbQza9b15D%OS&yN|+ux?wgk`&C
zS%*a`X^^xF+}5&Q<M*`8`&F<!Uk*eGr~m?W=O$*2USP2|nHsU62{5*)fo&#xmWciO
zP_DyeHdlY$!n3Se)`GmT_am1&mgOf@=d8C-DUk$YoO&enLS6C4)hnYhLt6Ht$Ans{
z$Xi&v4C50h>Fe0^lgOhO!gpxO8@A$L>*dzwiL2Mozh%{~?-%GUWoOR0py-_O)J4xu
zw7{-QSI8~Ui9&_0Utx&7SC`y&8VqR3ZnC$_QM_>s;*IZd6t7r(?BrIlIx9VpOFdJw
z&a>%=#NITF>&qGG(BYbym##bU$*p{yCgGU0<EH`D@Lw%0_u)Zrdo*^M{-el_UH%ZI
zolGdE1lp<JZmY;${itgnc?tqPn8bud1k&^%({cL@`ow=gyW?)ML}i(lG-ge8zWGhJ
zw?MPIwj`>;veW99g0X#Hyy42B{kM#a-|SF5?MIx6BpayD>|EjVY>KWu>!;5O?o(gS
z!!Ov32{@KqXOx$1VyDUZN1xWM5x41`{D3yKAW#AmfR2yFu~pGt-V64g!Hm4e!`u1z
z#SQH|lCe@*X^j$&sF0G$(<TSaXf4Q2)`8B_^GRgVca_UsZ~JRGgT_UrVWenJw#!_C
zUh=ywb{8DSMZ6-m8Mr>S4_z9jDq#W5Y6j>oAZYjO?cm)<ml0LC2D|++31|wxGGG2H
z?fnxR7Da`TI48JG82E!Vuizwt8}3lpw6Wa(Nz|(zPtncCJ9*>q8&C}?m$$<@3p<U2
z1-%$4YDY2Y0Z)c`gc4_8BwRi2b;6VrZ+xTxb!wj?2%UFaUD3xH6r#85bzmWr`_n7R
zZ6UBTqK8XABkiJmNHRPgFRlj@VG?_0?c32xYA+{364G3!Jh8m)>DNg={}$mnNba*T
zPFKhEvf>wwoaIovK2FMlw|rh2?E>~wf>CqnoRX|<y3WnP;>K89l-0PEs^FW;DT^Ff
z24i#k52>-L$ycn&B8AZ#F=0lbw}xsyD*N4Lw>Z6Y9JN2io?Bx3w14`l5Y@~x1M{P#
z&@6Pv<{L>Yf7=Msxof!%A8E_^h&sC&qGBpPN6c-XU(l`PwCyKgO8gSHleN>&c=9~K
z2oXy?mJ!jaDh(5dQlDp*w%z1#PBVrfcL*ycm^<7)Wp1vY*Zt8hS$0gXPyuseLiyFI
zDy4V62TDBksp{9;)r?;exvXn6_wHkNM{?e@1!Yfox!kL`t=V8sBg)(-Yx%bZ$~&U-
zJNp^*UZ2Q~Ek4yE+k{b%Y6vQD-@Jwg(O}`2uKk2Y57uwU*va3=?bJhG!PWnjKi0F_
zsQZE;g==Et)cDxvyrjsthR;jdG3zK$V&jU%E^u^+m~_7=uk@y~^I(XcxA2I~$;Bhs
zSJs<Fl-|tES8%5H$E32}l)edQ{Ge?qSzE*AGfGaHIPx~X<{Pmtigi8USXQ9g+O7>Y
zu92LnTy3`y-Y6ib$Ab;EJc4DwG|5FP_sicn&+diJXK=et9Yk$XeJifFL8gR#gvbYp
zu#Tgh1px5h>$DKXi8b$(kmZ}Jam)uJ26OVI;?k!mwFX3%%;k?Zf@S08aU)BP!_8mN
zJ-+#iv%_RHDZZJ)M>|ClL@Bk92NB%a+}5t<_BN~MeP-U&FL~=`tyPRo`TLZ^^d52`
zf=|F-Qpgko(Jb?Lm#iYswUHGJT0yvCbnqwoyCtFKIqhzZ*_GMq>5gL4{m<Nvo?J6)
zh3(~<Bd45T7!769qIM6j28DZ4_uLgH1+laJ(1krM(>qL!xnhQ}T!osL@pX=}5Z$;>
zH840OZdXoC1uO{wZ4L*?I8-P&O<_TDVj79Z*R<eF@#O_#6*ExEyS6pSCu!E5!JXqO
zLJJ#w9G5<rD%)F{sHw9|&6VjX{-gLgTSxJtJErwct!<*N<<pFY%aKQKr!KpR8T0G=
z)M?b)9fbqW2YV~cG4l|Yv2V~kU1BhYm=+>AD#!S=L)tnC{GT^_s`^O@my|JYUK{uX
znfJVS*J42^^%}K@$V$(JIPUR^byrKw>w1dFDohHo5-KKbO6$KG<!QbrI3>rM=T{j>
zd1Z|I_&k~r)w6%#xa!p5I(t1_DZdI?k=VAT#Uiq4;Xq?p@QGTp4LRz+wh2+-)$q)u
zn67e&ke@!yQr_g$PQFl$S|YGXk*saD{-}3(ht|HvCkWbPsHSo3J^9jgQEW0;C237#
zsvz<zGI!)32HviBVZc^7d_$)vR$1D!KUUac75v4BMclSsGoFjG-WEtEPXrgj7v{a6
zp0H?mM!UOC9Hu%AA7-s3?PW@0sJb=lk{GYwZHJj=3x+~M#43UDYf>z~Q+XZV>x6c8
z6Q%BDyUkAv<b22rmVcNP%RIK88?t<H$4_6dY|)o8d<}VIrP-GW&e8t%Tq14@uAVFS
zh4r;t!lmHLzM5OG6&3Q1r7)343i88>fA>}XRPB1!ks-42F-v$3kGm)cBjFZmF|*0l
z2l~}UEk-XBGo3sBeOb!PWOOg}Laiu<SwV}^8@yco>5=Ff?UfJB`X#Z+hOgu3_xL9e
z9%6H?6@0Qcp82}^6}L&Y*g!=sc*sq8gM~fIE7ip{I7rtvLA$@mp+3@1ePSd53;Po%
zv+K}u{5--MXXIOf$b!j6G@dxZAoZ5sqv$yll}^qsWj+1U{{CwF;4_l>Zmx#1{fYB7
zJMFv0*Ix`T9eca#$eMbAIkJuQfpMI1_Y;c2aPTUpza+8h+puQbObLHC$|y%U`@6O$
zTY8<m`T}}+7e0PT`K4>D2AA};#E|`n2@Qrr`G|^X&#|^w%nKy@Ntnp_#^3d8KJ9KN
zc&FkmCYCup*;swzuv@!F>S%9fzJ_#9N=kQ*LKRm+eDJd^3447XlJRhS_OJ`erxG>N
zQoP;Qn?cQLYuY?4|Ejxt4?k<2Kqc1?eKR$&AAj2+HPDwJ>Uo;nspO}a@CT)8o$%;N
zZ~Wf9Cl!rH3LA<k8JXObs9uVKej`~?{%bu-HquDS?BUnIw2#y`v6}8b)&f6JXSK49
zl79;3wR_8!ZzXH@H%Kwg-LHdvdt!NQOJztuN3R-<jS4K)xsoHiDIe>yC&iMJc7q5(
zhw$z8Vz`Ezl!s7P0;{|ldk5`0$$W0xWF6{9;OdwdZ5S9>2Q?SEmfEBkKRN$Sp8hdq
zDztnn@Kk8D2f5*MJ%oSx7KLTD=4(Ms#?pJ#Kx6(+F~yFl5rq4W$pRwq`#ufk$$FQt
zdRAka-|(}r8Fc@Vz3~naD1cP;AK4Y2hzi5CT*Ris(f0(EbIgJqU3kO|?0)XkDtzOQ
zEAWNfsv{#t?9BJadn(p5G%Mb&4^xp=H7D4ajoT!aeC-FPP2eHy`Pa|?5HX(fA6uO5
z%IYUj4$M;b$B0Q^mC~a?m;tUz(!|aiuZa)%6$*QvUd=x?rIlHdU(?sKTj5a9E_@)F
zMUU_zE3s*u^qqB6K<Y%b<?rDrt{ZxD=K?65Z$>{gPf9uoe&i8a<3K=smj?p*n;uis
z@K%-C=nLBQstc8Ehu5AxKINlhrf)yDA}Jsq>m8Gdd{;sJXUC5N<xLLSwc#6#7bl<^
z`$$_6Nyix4dFf4#Rmu15GDn*d50-k2xfaUT^j8ikd2Oo<%W)oLCpQ!~*E86oHJL>>
zrM?&1xpBTi7Q0SdHFeNj@xDXeN-YYP)V<jVZp!%6Ng?U}ni9O#C$t4VKON7xrKG0*
z;|%mElBk)RQ4>cw`RNICbx{Ws>>vHLhU?1CZZd!8+Y3oprk}!CgCWi?yiZ^R{%Q&`
zQj74p-tQE?uET5&eIRMoKZs_YavgdBc{d8bV|EaS>Faf9zK&TBY>LSo_;wum7hF?C
zrMYy{@tIGf;UPF?(SF~+=3WcvplsqDtsI(mzXD2T58YFJXmfezU2xD-!qQNPWK=OF
zOUWp^hZ{cmNjeeXx@>`TdoxCM9GrF#zTL+-BJRn(hs0J>uOg7#^<%=7yt(X1_Oj{K
zxYosXrCe)vq%k=suVr!p#j2_BZ9ni83UHLH!f5Y(CkA~+y10FeREA3!T@~5o)e!XF
z9JN0orSdia&-(meoDXKLrhZ(l_ep(!J>>S!akbGb2~~xgKOVi;jGZmyCu4Ojox}K*
z?WojHye3YYpE?XjlJ9F`gg4|NYx1^j(15{$@Fx9~;)l*Tr=htS0ntbC!&jSq-#ZtR
zTaK!5Ji*3|8o^(B`a&*WPW;ZDwshN2B8ltw{-e0A9oyTL>uKr&_1zp?C~8(K=O$~-
zC^2dI(^>B^*HSZU?y_~Hfb?=eH9jzWa^$5{R64Xnd@fPzN_P9okl3`Fow`L!aeHbj
zdBfv*mKmjK)Tl#dOD9nwP?Wh;Z30I{x<^nAo?vi`#VtIho6|gnPPDz*$pu0TIfcKg
zYz*?!-s^#5I(}k>vm>Y`U1AZDW}7Ioi4CdIPF9b+nv%#$FcMdsY&4uZF(M9KIKp6e
zl0N&dU+#SSW1^%z(`M}0`{Z9h1N^-gz_TGWmp$*Y2}Z;K)#5NIJ9Ox^rQSfOr`?Uy
zez8UqsC*PK^iIj7C|IlCk(E-#SypbQjIu}hTV~DWJk!h-uW>X$V!DpTlRMu=7Olh{
z9&ri`7U0$?)3{N0Z1S@3#-77KTvy04hCCeHD00&9NpIn0<@*ENuSSg`DmAiNh;iQ!
z<Gwnwx-{U$(85NMcqkWX)L(o#ag7`>^zHD89k#V56xSkhPANKVWJFukB>|6u7~0jp
zGT-62M5Tr2wXMz0%0xdXV8M%5tsCu?i=Q<rrVOxS11BS>Di!)Yq)B8f0_Gx0Bt_D=
zHXo>|ryq9KPm67FFW-)wY-aiuBS-N=OG<Orv13OR2AI(433ZWAi}8au8_?~LFZDdv
z7abK|KiWO-J+r8*04%f{RAH*#?~(gIbQyKdw^k?A!-~l<+|p5_-Z|rm%e3<(Y$nz|
zwYoS;dn&2?Qs#tHcHLmsY8kHAP6AfbvU&$yCH&lSRdb-loS+3a4Xf4Izbd-*t#7K-
zXwu$-uplfYTKmBMsI}a(Z#4c*VG!s*lV`;<$tEWK^HN^2ui?!y3L6ThK;=$3cyZ;0
zSG&Ze9yw>GzP5V@>&UfgYo)qSF~n#<OtExSmEtQoRoqtCezdk$eXUm{Z_x|}&8Ew-
z43*kWV&eU&0fA^Vb0k-0yO-%h`;Z|X@5hkUqINH@tm^~mN9`m|kR*sb?>yJd4s17)
z5*IjG3A!jzuQD88=5n&+z;wM<fEA^shW30ug7ah5fIRhX96f9B{OUC|HHjv+&bN=K
z7@fPfijL$Se<PH5r?a3Tjl`rj<y4@(oYkIpkYc+z*4CCEZL_v(=sZuzZCCnQj@~Qs
zk{au5u@)SCPRrwr#a{jr()%VDhVs!huGh26c@~k*)>Mx-IoA8gv8SAyrZbh%(iamc
z$`|mV%3i88-pfv1n^WCI42{rBxsq7h+!&m<J-x^jd9`6j%jHo-5SAzNDI}^;v_JQY
zg1hJk?@n^o6dIw@y4k$>cWwArMa%Z<d8G{4w)oX}vfC|6Bx^-8-=a2Inro)XdV$4%
z^d~uu413&tA;H3`O9U0%Fp;er-i2qpm~zO0?JItQHBh@2F5{=MmMd&e5U$fh%=i=;
zx<r|Unn__U5E$<W`F$6W_Wico!R<J0fXnbd=C7*NSehg^r<a|fzS!#%DhrGA_2*)t
zTu_wV;zd9lo?vG*i#$9wze?ckXrp~!v$+`6(xq#O7c-Hm?hW61ESxcfQFul<@p7GW
zuYF+Ca{sq1R=v&}R?lc@MRtT|QM-*+3$bmkv&`ItiF6i8a-fzIX00P=cyc|qMN=?#
zeP}8;5)vI|H>Eh-HfCnNpfSXRt%I+%T~=7_jo`|Q4mne+^IoTc%ayM(Ywzrgc!UUH
z1+kGFFefaJyg;axP{FKeG;Oi(-IFGZ^3rF8rq(uQ%FeBvFCz1ZgKJcpox&%Aq2SW~
zd;Ib?#qNSh-NOwt35cq_MAI25#>#mq#<u}BSUYu?vas~^?GuIRds3L%ai8bcq${3f
z;Dh2OpOOvurKi`!BCWox3dY$cI$Qoa<{!new>i-%@bCz>4-o|)uQRd#*9*oa=c1mD
zZ~w6iZ)R|-UH+jVsOfUzZ4*;t$HWBqMIKl>sAK(oNB`Fv8}U=$h?-Q^iMDnnhXy-!
z>kvVr3gQHMTsuJBzGo^Hj}nT9zr5eaCmd$r<6iImNXiKLZ#C^HRQFNmjl-%=QLhG*
z5e>NdRSgm(&eL{)BLLT>9(X>#OGJw5hQd?2y(01AuBa(L$}Q3K2ZW1-VR*Jjgra~Z
z$*p~#N2`5>(Ge<~uB&24(mlu0@eXMNZ{U`S*xhiBNc;yCGkct8G5_)v;Et4S?7e-l
z)uqU;AR9Hk2wU34EsJv$NLOd2cHE*Q?^d%%HV!If#;{s7UT$N5wxxL-`Jf!5bJV}d
zHRI!ID-foPU-ax$!iGBz%pd(itE5#>^ZXR$GqmZw+q<SRCf_KAXw4tugv=w2?Pmf5
zm}@2fFodYA?oK4vm7I)a2#m~a^|C(8aQA3b(ceSXM~$GTf9o8Zn<|&`3P+)<1Zqtf
z86NP_Z?0irsN1T;MWELW?8@cdU%$*J9sGTA;~W!1MHF51-~F~#fNzYy;t9@Y;gN{H
zx<mkPKed*^FIY?@u0%30kTDtbn{{H<#Oz+$)6e(+$<6RwyU#KA-^}5y8qk9Hm4N?T
zB=6$zF{T&AbtMnrNgxU{?~OGKv#iXR{_|J)+M)VuYX9s0dm=lX>;G<fxRbyCd-Poa
zHE_RFs8$}lD`{k5aS>Ac^jl;>A1cFV*n;y!*yj$H@v6FU5m@W%Gj3v{q5=CUZp|WE
z)vKZ=1v)2>hsB4VxiUN`-tAP{WGZy=v@R?7uUgm1<c#MQntJqORwnAaN|)NSw6(WR
zojN5r>D8;;?PXFLSzuCVI&vJG|7uDG>dcip?BgW0N{8MO0VoC*f>?ZfQ*Q5_ZOo<A
zmHlgePhq6(#ISIJym3_=pT?c%ll49=s%*;Jq`kepUJecpWeY<?PtqlaRF5&`-HCyq
zt%dGm<p{Ypg^%truOeU53oH@;HR3$VqQVY3qMN4h5L^^-eaU5hejWjSKD*1U{<#Es
zKA7jw+1XjJvpTkgHtu2zZ{0J!#E6o4vAMbV7=b|C9P*59HZ6W6jvzJdN~GR=az9L8
zn0>U~$LVlyF$1~L988Jqh0qR4y{uazzlTug>bZYos5ZtnHr%l|ec=QLs@~%{-i7Ue
z+|q*sM4BqJf4JCkYh|Pq@<$K3KLCSJw+CDawQdkm_EQ`QiHTel9<$#Cd4hi5Lw!&U
zXLan${5DyRkpG{{ViN`TtYJTgo!Cvp^<`=FYTf~MLirAt&!B<!Vt0z)&kA^#jmvP+
zm;}w~P2|(1A0J2$Q|_$!Q7OB~_ek0yEwJ%P>uZ+r8kYvXaFZhynK&Ho##Pqcw;|4(
za~)oSdg)3+W<K}7J%Gu}eN_x!o~YXz0)utqIDLHA%4f)A_BiX+KNj(V4}G=!zeitT
zS;S+#z801?j|c5651p~y@{I9u|9O>#;|w2I4a$2UsGI7K_nQtLIrw^BFO>lDpO(Km
z%ZB{Zx`iGrg|)Cyi@8LTL3r1K_U17({gx1_-jNq~5l^1{EMetRXsmGm`K4vC-j$;d
zEuj7VRqM}m)z_yjl2_^(+Hcs9PGtBm>USlH7uMKypi9s)AeSG`3+nuNuNHNo;S>u?
z>#J9<e(vwAkoG1?A-mm!`9{<G2V1>u@`<12hd+mT-7uDU3rxi)Rblp1seV%kPS?@0
z4<#^)Gl<_Zr;Yy;Ur|Ij8&60%|Cx(7XS$8MTJ{!FS}rR2yAvA`TM`phjsppNC?!v~
z0?PewBUu`#hspul7nA5Sm{kRw&!JFu%70d-g=|**s5(s#q*_dOK<w*z($(kR-(C_x
zv!6WL>GtvG>)ZK*D6gV0mPPYC&5NH|7(&AxGJ<QSzzR$77`X19?G^H`C`mGHvr956
zzPRi4nJcHvN~{p-y#ENd>@OFNWRK^3`SQhmWw@Be#TtHuPyOw)IOoH=y!sMQ@R>%2
z5O%l8`r9q<-_MNEr&zq6iu_k`YYPjD_s@q4X2U+u%#GLt7WY7Cd%gAKr`IE<Yy#J+
z70M}VBc;>Cjm?MeZhpAu+-!?dCdYu|5&bymPU<otTN^VyzGurhRJNr)y}7lOQD~6$
z{oNgxaVsiF_MqRmg93a%4sw=0!8u6&zND#1ucHG?eOV|75f^{lxYUN)cW`j92*$AU
zI9E3<poy~H5T0!)lsmiT3u<nfSiUzaUXi4m;x);cx=&u{PGMPX%+Ag}5hUq9^Wwzi
zV*p5^ugErk%XfwbET;KAPe&|ZF;_jlo^9O%!vQg0o_&}sQ@1CH+|!n>RkHDkbioX4
z*=g6%{*=G5saV?yI5aIXH>g&RzRX5HnQ|amsjCq0I$3Y+Jr}1jWu~wH+u6XNZ(wI-
zgePdo#LS1D@(>o~Y|7=b?9Fj2fGpK2!TSfBqqeA~%DlX#j+ZZALVcD8_f{+%(tI{v
z9%FgV@8yi!-uGQqK?gTg&SWCF16RwZDG1iv$ioBJG?*K?{FbN(Js-%cW9Jia?sBP%
z+v)G#bo#~!K<kuxH&=prQ!<Lj<l2}FKc56puCzK@o^=-;Ba)w^SgO6RL}frW()bb&
z*-x!b)JYRx-AWHw&Yu;?525a7T;Sxy<Qkz$tQ$fq9)EthH666o&6=ei{U||a>hkU9
z&Idokc~~v#Jm=%kN&LyB_T9;p@oJ~tQZ|)8@7t{XCWjpNw~20Y*;nK}?PmM?`;)7k
zMr^!(zTym_^=nHe@;Ai38TiHjL0>qw^Cds|zMw88Xf|3l=AEM7y4&o0G(zs9ZCgxz
zM$jg75)8*D1A;tM)l=H|N(o6MY8*aDz+l>x(_N#eiHV8F#;Y8?sQua64G$pAJ}blf
zq-KgMwI@vx7DU|{L0wh!U46;FlJGlI`h)&bsO@>TxN7h5)RpF$>d7qezgR8I?&)mQ
zo37lOECtu1{Ux6$04zS=W3Q?9ypwV456?gz?k$b(7CuN9qSUzuq#Le5h!U9?t-#6j
z7C=lK8J?XYe7@@w2s;3&=|RM7jJ-U#{X+xg1q1V;@F};%qn421!ie)iHIEwoH<)>l
z2O9(B^8)?c5L7XLwe#2}akMSu&(CmmQ1Y&WfEjF1ki$PNBUWDBv<uvw-qSVxAIW^B
zho4?X9gfwy!Cvrl5pr`k*?giE1?MQV#@w|o)92t4UUe)yoV!{8;6G)xC2(iiX9|>E
z4&Y_?3b;v**A0>K-Wv0eGza)nFmKlXxj4?b`*&Zb9-`0pH*;|090qTMv8l+}pmpVb
z{%b<4SsXOdn-qpRjg+_~I!}S37f;01c`f?t-XZ<?pgN7lVWk~x3{6cJKHlH{voR})
z#)*}D{3QTg9;;k@?JhSVy<Y?JslB${;73~LYG~3xai=`pbvlu+;J2<Ma3{DaU`Iu}
zMjX_`k6O3s7ieR1^QF3X-$%=B-D<nW!S$8`T(+JB<v1eX`0H!Li2O00esSsZds&H?
z6jB>V!Q{C>C2+mBr^HCdIIVuz68p2Q0T15??8QT!^qaPBcAIXt;Q=weU2It!B6gMa
z1b6UuA4Hk5TB(t1Si3aK6}a-_L+hY1StNVJKDU0pLK3&KkmBa52=7cdJa+6@gKIr8
z=R}eu?2r;nA@2YlBxHk&YH9+-4=c5(To~K}Y<|6^tH+z>@yj6)Ah$`-W`_{1`_#J1
zZ7{QIQ~LoLkh~Q?63T7cFpE8Dfoti?fdOk{mANCi86o4lIVr9I?{T=fz}&|C=HvbH
zHD@l%{F&=T9&R;tVI*nPzk5$LHSE&yJ$Uwe^fVA1FBD0QUUwU9`R1G5_@tlv$(i`{
zE~AHwpEqS0N<iYg@?y9Y4{Ps*9gpHCcFRsTW<IKZj>@3p-9#X%NhlyXGTH>&Q;v&7
zq$jRY?yCK9o^N8QQ~#^-0CzNlDoB=b+<aJ1QP`V{uZ0>~Sd3k}a>rToIX^y>@yLQ!
z|L!z$dTzC{xA_@eNo{NbiL+9Zjl<bF0-~rs!R`Ovah3dvg_FAi;NzXokKKDg(O9>f
zet^n@dV4<vJ2mqIS;ckJQ|KSfrA8#Ab}C?{V;V^dj)xum;*?Ig<Ffz3Y#ab2E%DOn
z<E<cpQ@4O5<K!0s%4co7TI_>Yg<U89!QnGHY3ZYxUVLI~n{NI(*a1MP5T7c)WeB}2
zW!K&`+lI<8Gc+{30L}uABQ!tj%M?nHbyLwmyS7ltPKNoG+Z(z$t{b><``W)HU`rvd
zeb(R!-nNGZ063w^*yG=!lJB_GD_%VP+G#NF?B$z}KaB%|_IAH{ae|UTJIHldm0=>b
ztJ5Op|5F4Lpi<5PU{l)s!Xg<IusoPAo!ajLXqA?qn_h2#E@|BC44+0Urg19zELRQL
ztmcDyR&0BFX)BH(++=KXgvd=OZQfr#1nKgF4&*%a<GgU;byQSTR|AMM9Gp+j+(k=x
zCcUdUI-~SK?*~A4vdbT5V<_fmKn-3?sq$U{Q^C8Fy8sIoI)D;a8p}7zwb3<-c~H2z
zXl}UPTZs<l$vc@*+~{|0gf8{<q0T_@nnRzDmi-*|-ZcRsv!^xrZ~VfQU{?ondu!JS
z;C^zbv_nth_8Yz!e+fxR(yOJtUWw*Ezizqil{S&bky`z9B#4>3W7i%lfd&dH*YWoA
z!IJ_;rT!uN#N7K(QDNax%zE=3=TUt**NKlQFF((uo7o`d#~K?OaS}hRs-K%|eB*>2
zSV9ZTN~h2d#*<yK#0At&D;vZ(4)^$``2|Ursy6Pxq6mI2&-QCq)|)Boa9v04fTa(d
z#R{^p249y%?`2}HF=17JGx(Y{N@-Iw3rt;(+pZITsOysrZXQ}jKsG7^nHww#03k;Q
z`%6ymiKu5E^58iM_zH{vq|SFWFAz|d3U#@#^suWKf6Ml}jEJOUZz+%oC_Uw!!9Zfo
zwX-2S1R(Ft%O2m0o@xq&NkD<W_`dD$)9y3<z1J*rQC~nn0PZwgbZG;HJeW<QYg9vk
zd$efuGywf;fVI}$0MtQ#)~}Q}k*e7!q_Fv`+M6V$F4XP|XJpOh)T_u)dAc^{C$CRh
z-hhHCc^Ig+u+(=EC>v-78$Lyr#1nS>%p)a_Utg!4Cq9-t%3bYY2|urhY1-;h!~oai
z+y*qQWp@UI_Jh1eAn;i;RoZvgo1<T|axKg8z!mPeO<95GITTmR(unJY0HrY?OtpWK
zol5p79&KE^MvdD*@2yRjG_2QqibyRw+Su68onU3I4t7&Vuyb1xSp+`DI35Q?g52@O
zi5oVJADj7ayG<SN)yh~m_)>34O1i;-IXVO~_&Jx~gvWHYnI#f8zVM9WgCx%B^UGsx
z(EjD2LcQMJUN<qPADV+f|1yg7HxCt>@kltjtcGNw)Na%wu6ltSJtKX2#j?VBRqnSQ
zAo)BoXquuQIraHs7D`3I6s@a3#3AzWjLD~3V%E-TT=k$OiCe~0E@nyGxG^yVxLF7m
zwDGNWcIetj@D&KGBVBceIIu_nqO6gZ_=;{Zbu(0&>;T(vE%as}?}0(PAN<*<O$Sc*
zh-BRyI=URe_TB47N6S``@ze=V>R4wWrzn&9-|557&Yqyv4}v$)JRu(-QSs~7uLSi+
zr$GibfNqn;ff6@cwQ@4b(YdsgR9aScGibeT@z5yptzaDPET6iJxR_X>?{=StBoR!U
z@vH<}m$8cM8vdaI6R~1RZpo%?!w#SjdrGYv$jM*|INMxDtbQwa`qK30<C`B#tEyzy
zzvA-~hz=n_z~qR<;gWAVDfBQd+XFNU*E9tB_HZS!<l{&GLVlO2#yYtng?;g%I~rX+
zu-~m9O04lZmiIsC8wj(Do_uxx7{KPeVV4$iU3c)s;2TffT;YqEv_E}QfW@ZhypBGv
zr{qz>KM5)%tod+%<$A4DtqZ|a75#jqByAJL+_AYb`Y4KxN(!{UcklB$0H9THeOm|X
z7H9YGgf#cdhl`4ch|qO=J)ja=9qnKdGO{>7|B9b@NFhN+M5v$rV+8iR(i4{{cO@W}
z2-1DEzl!$U?;%;mp<VLstk7HAk@dmSM}<bYJtKq~7sY_?<lDCgiZ!-V-Nh|ywu7&|
zIXDRF{UF#H&Xz$LcPh2M?a-4NrLC<Ela!E<$hi6B%Qy633zCMRmZ13QcK;&u`BWpK
z^K%`T)WB$6aZSPjdrejDi}Rtge(<MIMyIvlAj(?pD?W`F=Z)X3Y}3O4>2<Y}Zqzjc
z(bYh`F;IHo3c@+8iB6VvOCQWc0stHpfm+tODi4ZH(n;eTKNpZB9QOP=1uij3UClEX
zQ2Qh_{tJxMxYZMtzb>?I{&jh@d^Q{O5T+PelIB6=ho)fEWwZ0S4^znYyX%uJ2rvkW
z_uBZ*YcNYto?4bbsB;<GJ+Qj-$H%!Ah)X2e_|c=}-Kjv*P~&WjVh9xwk(I35RHG5y
z1X9vAjT4%q@fKTyUZ*bP%G!3u48d|zM@s)I9RNH^Uy!i!KLli&BA+dPv9}zz-CNm@
z;AtOn5F=UVY0@cU<^$*sDDo3q2wmG>yxZg+^waSiD1mk89T<=*X2mv5`&EfzX2bDS
zylDzS2ODkSTK0+4OLf00vgzTX%X>eJBy7s#&+nf?>4EEY(?zhBW)ooOV-(jv+SX0a
zyG%DL|CvQWxW%AcioOTehNxD4lRmlh5`NO)yJq88e`Da`>MtH3v!=IxsIrNt0^hKG
zjOD_?GC0N3>Kz`30{DL7G!(e@8<sVz-q8A)mn`U0zUkim&=m*#yAJ@%suQ<UjgrAE
z-7V7>Hs*x_s-xXnJ4NA50}})e`>hSiYozDhE!8MaNmogc`A`Q@mKXH2^i2VI^DrIQ
z*c9~k{z|D{A)u{%05WP6(C#8vZOpdu-27GOLa1>9cIu(Hb$wN^FnhqAEBB7Hpo*K?
z$FUCS^7J}#s{<z*rkmd(V4IF?nj|!zp>c3>x=q)4Ii&GG9?cO{RtEDcmB*Aq(p86w
zEW8@{kA>Z9Ls+xb06farD)I(+wDT8_&e0c@{pDx}TgZzlL4U02J&)ND6-Do*-#c*{
z+}LfU`rI_%@nq0$PzB`VnBdBF;fA?8j-Lyd&8UG%vjW$qo#7Ec8zUZH{$<AC0e2Wd
zm#3O25Ed4eU^cr6pAqX~f&74-<rE++6Z^BnGD7wp(}14c-v^4V-wYOfd;Yy?72s<L
zDCjeIStW=}N=X|yKrc(%>$KAO7%1hPHo%!ew_AwdY_-2WpWqn;Qz?e~*3$>^bgc__
zPJVIZgw1ujLAF4E(!uPTki2mN3lHq-CI1kCOt-n^JX#j~cjnK0dXf9~lJs|<9@Ccp
z<fTiZ!TAH#@5z%V{=h8q^~lY>Z4=aa=e{+Mfi*XR=}dVT<v#FGwzwX!@O@B81;MRn
zWK;KnH}BS~<=U{@939`{a093idM%YB->ntd3mS**fW~=Z_^gc#Kno%bxz`0#(Y})b
zThs?y?{p7{69(=5g;^+QJz?RoVjH?2(%U&mxhwb|{GvZ~8Y)*LS$86+ue$~qzL32|
z2+aZ(ykoKg{Bq;3Ur$H++&1vZw+pNJ)4Y1*iM@((nS~|w&#A?=Q}tl3o#~c!o$$}(
zKf|MPzy<001A-8FoQ->8eas=F=^h#+WaoYX<uceQ6x6Yd`^=}a#F+N6MugYr_Bg&2
zx(F~s4_3gn+YS?5u_41_<Y7xUE*1aZGqiXd=*#VQ*lAqg21YeIO~EH%FU@aiuY2Zm
z7>VvE+d+dd#1z2Hk4O%&0w5)JGwD4lXDB^@>A$mjh+4JXHWfph2gV?pO`ryLT0wj5
z<2+~^Gy^JwOHP2sZY5}5wkQJ~4PbaH>4t?N705lM!yz-++CIpP%97bw-4X=*%nh(s
ztu>Omll47@E6@^H?DdJVC#_t4FE9X-NNYfl+V-kYR?h%=-{J$hy|jx!RHg#tT|a$1
z>?hrzLpHvif7pDm*~JG7*_*FDc;=wc<~x{YAVkNZw$m4HKJF9AO|57GOx)<T*fUdP
zQTd$hvdmKL-~K8Dg6svZvP`6AB66_yXA78~F2vztLPK4N#`Q&g(9<lC1s%jK;BF6}
z&=J{nAg7xQICniBAGiY;90lBmCM>Z0YXhk{@U@Y}i7xr1xoJewH0j9LU%$n1hTd!!
zjX<N(6`(oV(gIpr(&<1aA9wXK`)*`vdg0Gpyk3Y1w06>$a1QB&{rLFiMIbMBS?FOE
zxXQW+sO6arP;<U})ij|0Ij?%*Z}pDTYMn;bqXF_DW0wy>vzj&EvUYtFSTbJXicXf9
zUyW(&;WX2Y>gPj`C;)jBLzs1Pbs(E<Ks&{k!0Nq;l4~>`#9SN%m`HNy<J_k94m?&`
z^33rtWgY+!iU1dCd!|%uzrPg`r`;EC{hxaQENhgO>E6+0d#TUwEw}Q1XvJTfleIM$
z33I8LFOYnIaf*^?0Fcppg6V}jo~#6Y1V*0^+@UA!kV;blj(|;oxY5RwQ45+n%XCdZ
z=}uQ}*j*i~3{*^Xl2o6|wc5_msoDiFw)bqf$bwXARk!&TC|y#fMWubyxh5(ARBQua
z?MHN@;td+7nBI4{W;aKJK?#4~K+hUy2hjP^@Bp-SVE`g~71w3|Ir%TCZZW-OIL}}<
zbT&Ss*`*SOp%-^INOQeMPpbS8sp?PcqBWrL1_JsLu)umfa7HC;O20!_nwehQ-E#p+
zqJeWXj6LBw@eO2}gh<K&ncjEap<HFr#4Kv%fTx+B)`6kI;&60xnQFYd(awju+Tur=
zdJc?ficP6a6K;`-JOJwa&~I$>(~Bdpoj@AUf0PeEMwdc>6-OR`j0t5cZh8WZYHK*A
zvAx{$(_K#A*tjZ-ZudcMWCOr#2upp*O-v%19X`8NXapJ`i(_k%&4~Fp{6s2XC~jo{
zoDFn`Z{y*yfdnn|KY%%@<f;MPz_qp7>E;m7w3X-C5ZD`8$UBfHvh>ZXCuVR~Q$u~#
zkoRi138aSB1Q8?q5TI7gGC=FPcd*#f4-pb_m<~j)KB%k^&_g=EV2zkhWRtY|ScVkc
z*+CZ`#z&BQK-b6$G)Zg5DjjyYAt6Cwqib%!h7S@4a;M#aM{J>&L@B+i4|HP*ko5sj
z(o|F1!!(5<`OM@@W7Hbx(5bWl%z0hqJm%?3|FE(Z3$UOx51P7D()2dlZMq}+X<9NJ
ztT;9zz{<MO^I@O7M%mdW4!C{%6)E;T-TzmF7aOoVJ79Sz5ajP8n0uCV$?>WwaF@Fl
z0BNE6+lxQt9)A7o4P<Cw`uqsx?j49FRjG}spW{u&(cflrR}Wv|suod4L&JvpG<cNf
zz&v+q231k`sOnkV_OrL(B$GQJnl<KC&-#Wy1A`pwvuM}2@%@U1mHX#owuL5zH3-07
zvhHZB^4m_stKWfAN<Vw*mBd4SD!uXDvNLQ+0+-X~R(LYY!^q=ijr=f$)Pj5#&dMdY
zO`1kl4ZM7OSIrM}QPZV-S4Rm8puHr{=g;O!OjrHZDt{ri;@FG3GY%e831ak>i}&a{
zpa(P1I7`>M?7#{H48SX2GnGuZKrg@a6-jQi%(EZwLC*+i#ndmHY+x-FN=*HGs!%KX
zQ#yAA20*WF2Vf1Yw}nO}rHh#s<t6J(fd#)hH+uR-jB@6@tEYi}z9{odzw28RX9j&O
zNafE=n7rkiqYMmJuL9{G8SZt1q3$dDnRbPoXAGfXBlJZsr=f!C>C`xkweQ%+#q>Z|
z-I8Unzy6p<%qy)Jk<0xFe;0Q{!;FB+Z&~llY8%W=4~UEt0IQWMU=2y`4|r<PqK)44
zrf=pKKc@&TfQ$aSf$wuT+t^<3E*F%CdtO)apJ&n;JYAi@nn<?~{S^Ouw$Ly`@NCrG
zZ1+OkHS}iCsF}Xu3!Iq1L-G^wl`EgDRiV-XLmfV970xekuINts$~gen0s1p##;3xy
z3w~~?=yB3XL#nt*CwBL-R}PMk-=)(>4eS=G!}lrb!RaI!ox`^?ToR6<xZ5hLU{#%e
zCbM#7rJSPM<#W3t(_+`G8orWlWp)G{(teq#QFBltgKV@g5CRt1U!L0B^46?=X=TPI
zw#kIQ3vOu%4U6L8lcF!((>M9M|LgC~ps%F<-HZ+YFCX#xe_CSx&w>B9U&-;m=hS=P
zDK++3V>Lq)=soB)XoCQiUnI3P;J-1*n>qR09(LEz61u3hAB{`mcEo4~sP(t-2lMAE
z%~sRH3O0Sme`dN%V9)?#!=|GHwPmiV{4TLF`u$x`?fxe`w@$d#9OYLQcTAoLYf$75
zcAHcbiIY+5XZeNr?@4%>UX4lV^pmm<r-g~&aV)g4^#UUA8c}mar8l6l4hLy}J5{}t
zu>JVE6a5h)u)Y7n_bCOTp<U0nO#2{}<*xyKB<hG^P4&FytlX^AuWGt~&w$_-H^?hJ
zL`9O<m3sOcinb1O2PQ49F++J*&;4`%%}w5m21lQ4$En46++{!Z?G+=(S;k`=8v5*v
z*pDx}_+k_yDZHndB9DlE41IIs+7s<i{(sJ$<F#Ay_S@NNlSl09d)Jx_?dBW#W$aRR
z6iVxR>PVD=sKE~n`<5;Hlk`D;GC%3R2-*V67_;6|a!F;I*3OsZ3G7I^_dBn@LFN;h
zNo&!-4@%16Z6uX6>CX-_JZ5GF2Wi_ccd=HEaGW6iy<OzSHAd3Gq@0l(1aDIbE4{*6
z`S)90ZhA6J?NKP${ngf0pJ5#;Tlm=D-7m_6-J1e(LezY=k5g7tZIJJq{|@Nfx!*n0
zJT*wgR}^EK;bd@{^13P2)~9ECZ+&_91eTS))5T)0DDKD16Z*=H0R!86O@&*9Q3a5^
zso}W=rwqq)6YF`pC9aeFKZ31xz7+<jRMfjph5gN=WlE@@S7Y7&z92z#!aJ*4x?r)S
zvR7+IeCW#Yl)rhqC~hg^oZeF4YC+ZUnN=vAw5A661nf8*>HUjdZxc8gQ&t9skZ$KT
zr;7IrmRFZ0hPVoBQ=EzJjys>1UoMLepjOVjqQ@?jFE!Nfmap03Lmu1T*+YJJ@R6hw
zx)5&JyP)hIJ1G_fsPCvnaofcQf85W0KAm}jai(2p1}>g%t?WCK?!Y<$Ab&Jq-Kfc~
zPxVIomBL+#fRhX{K}<HozbuBPt7*qQ!e?7d*?MFZ7#PY<#}q1%w=I1M8Y<3xmCljc
zupP6t{lUcf+6#=M{PbgfEyIuO)O*E;`t{zWg3*buFIoN{?Y#$7Q)~Ap45A_`pm0@G
ziVaW^5eq#*ML|SBdJ|9)5s)GfN<s);xgvt#6{Lp<NK0r+2`vy&iPVS?dQ*@RAPIyJ
zNJug#@xJ%F-+$Ju@11YW%$onKIZHuvo@bx^>}QwX-us-Bk(^=hkNLfzmi(FxQ@`31
z6I&up4^POU*mlGD41LuA!JUz}-)(M~q%%ofp18%E%7WWajH+|@g7`ZjBy{lTFTXBx
zLRer;_-lhtLb$%?{PnZ-_~&nmg=&5@8b<J+MFy_=!CqYO=ASc`wlv?;9q88|7ak=X
z-YU?w7IVBVVxKiLv(MGh8Ij8I?MMbh0Qkb{2Ln6(vWlqXg@*-1jwVEgaJlaJVDCFt
z{11eTWck|Uk>5Dp3?Mt;h}Yt)-Ip7jH&?|4v}MCa?)h*_OXYP-m^;5x2ZVp!s$(Q1
zOr2iq5r&oQ9QdV|>P`Yih2oNax!2ooHv<Vga2!?qj|&z1_0+84^<Otkow3{`h<A~H
zN&)2<;P_ul!i$h2di%FvYo=GK!nRECMZV}Ft8}V#+`0`OzHi4Qs6w}CL`SAnt#y*?
zw^G6q9<%w9DGm;2d?&xXD*0ZBS;F<{HaLUeYYT%kNLm$!j%L@{Fj|EL4p+9Vh-5rm
z?MIE$9eu>tv4h~H*40}f&Zf4iJ3><;`J@x)+_ufwnwOQz7AgS5@rUK$KnIzvsE?af
z*Z91y#?33;m_azN$UHov=^!x4|3`2B_Y&v-qD^%gen;v=`^3rv@QQEln*sOIOU^(m
zls4w+EDFs$EX%TXwsdxdmkwFs8lhjO;{?wo$9;&uDp`Id%L2C|RK~l>XzyXok`>T_
zw#Yzh#@D$?CPvv-B`{5jPgF)+B~+8Z44Lr9l2g!rnSD)t`<~WgK-p04#lM`q65!-B
zY?{u}H*!fmXoX_%dH7-oM%Qj!7tWO=IcGfVFUQrHFtF!9S;P101&Hl-3_l21Eb^!u
zS!7?+P2;X56bp_CB!GcV3*-hS(n8!>HRY|VJE^I2>=yzXG%*G2J0ZOY<v6NE4-ZLv
z-C)Daj0ks3%s`h^hfI%<;QV2cipKzM*d4u8J^T{07|LBWSV_lm!J;66f!c4^-3!7?
z)o^aWJB8!N%gO7I=-CS}%A$r|Hw)Cr>VCTZ7++GL;HQ02ZGa50)I^HmJ6Vo9LpoOe
z$F@g?iSQwFhm}Ja3w{^{#}&ZE9bNiL{)5yFjFK*~ZnDSS?S6u{Jp?c@N_y7=b*l0s
zE%}IsHnK8Bko8QOkyC|e6=FwBcBY2E{=jp22l(flX!}StGrVq6w5{Z=m0dghgA)}_
zQ5;te0kmmR$#iUZlbW!a^`@~-+GBEK5385_+=gK8$k@0zBRe~?LjqBG0d^hYTLq7F
z(I1*pL(xTNw>XVfqy6+JR~o6MSm%{ffmoP(UUb8fGvg2an!A(LHX!n90plpM=3|b>
z;BS&)lTE+?*DwWPp<+@sS{KB9hYV;ssy~BUbxT>{@|L`Rvahc3_*;e=QlNnwSU4L(
z(|r=%uQ-Bz2-g^qA2Iwrq58gx_`WYL+BX$sUi8Ed4mv2yHO;C|`}ViB<rrz*MFw=l
z=Y>kz$U(li-V+v@xE-&(*c;z8xyYN8Hu806Qm!TlImKrbcaEcoy=s2T-UXVqPHY5n
zqQ5`^Q7b|%gRxdv85^H(iU{1}B!8cq%1$Hu2zJzx)5TzWTvKaj%9t%Ex9$<N>km=|
zMlA!J<p6(Mw_Zu~Kx_K8t?>03pX?s{bls^)-U3&_dCb~>j=;1X2TTO?j`dL~q;X^2
zU}d9ENz+f@UXoLRfIT@%av<qS&{&}K;;s^?JEPcOrS@GbxWP{*6wD`iJF0kMR8OIh
zVu!qiw1iiSjQcO-krZsq3mefo*{$MTW4Cbmt=9$U2Z$J(!tb-Rl1y}0_KNdo3spZ5
z{E|`mR|x$7@5+kg0?Dw4j6BjP<{WymKXmlm%y~f&#P9Z)jbwfzdteHDY0$qebU=JR
zZ7d%^cAq0b0u$4Emc2RwLPO!~kE3*SS*fqhB2t@bOG+crJzQYE5b}y(82*6x9vb*f
zU4La`VVxg?N!mkd>j<;6Rw&G}L!N^#ZXt0nn62po$aDL|PGD?AKKFxH|AEplSR&v?
zE;s<Ux&cS|X@k-UT&t7hqp@lmBEtKAJVD?b@aX{kEOjea9C@HI4GO`-=5BCkkM9dE
zZol1NO9KEo;h1=5bt?rdd0;_&pfTW$gFuMM%{PUq1P`(taQ2K9>OFa&D~+}G&#64H
z)%ZiwJI&5srW0g=a*nY@K(_ooK(<2Dw!R1LR)#Ec9pb*O)5W-EX|JaLJ)6EQQ~{t^
zkEZ7{_M5Iw!JQec<PYa&a1Z~!I++uoNyd>5<};ja<%aD*#ZYrdK;oVTNhe5GA|_V!
zA3~u}b{Gshq?{kD`>u?pmiStfSR<S{p^UD_(}Jbg9{@P=UK%7D6(k@@SxOj~fYE`-
z&Yhtii!NVh1oG9oyAzUlK`=pM@TN+r>n$HtA5peYS@2Qx8EZUyMTt#L{tJ#+4de)@
z{MWdo2-y0cUxE!8rs8yw$80lwiry3;(}!D(Y{nf&gS($Rd{4*p10XWFWf4QDyu|~L
zJ8`Zuy01!Z@;_#u-*j=H2301n>rbo@rHBgQX^rn$Pp(S76Jn=F4W+0;cO^H+qWzoz
z_eQfJ<?aJ*#{YR+UYP2qvF<ry7(V{;$(dAC3E0v{;Z6UOjN%`-+mQeo>gYGNA&ikL
z&2T*J*erLe@MXX8ku2}BVOwNsWJ>2FOHz?*#CSZ2vvQSqHl)6E%^Jljz}g@iW*vm$
ze*?A)6(rNYJrtWCVy<AIg*C>*KJvk9YQ>~4qP{Ei$D{zek{5Y>08ytEnN!(4P16|N
zpAk%l6`4S0S_mq{3cmw?apa!BQg6SVe)l_b&C6Xv5Nd={)e|C_EbSFR@V&j~--mvS
zGKIt?5yr2bc=2?5D0648K=UIn95^}Q?BfJsk}(*VZODW7a-RrjrmbJ;=|bD-m36_4
z_)uVFP1P(EX_5Pcej3w=fpTQ;3-(*<hj>_Gl@F;M(=?|q5rXk`#+9;=k7s@<)OLfd
z7=3$?`}F#2QiAo2bx0<dVh6&tl1DT2-a%U;1rLM^o%$nt)0h?7H9d@rA^D(P3&&iX
z_23O|&@nmmzRpbED{`_(r@#f5{|2z$<de_EkUdEhgUqG^s2RiKTp1|hZ+if&@uLUX
z!-m}#IvRMN94&rcVEK4UnUfQo<usPTd<`WhjivHWZy~Q~MRg!RRL(J${&^vNJu6g0
z{JbyN3gQ1x`WYT%qq51mGE~v{`Htg)mA2n0jASxB$gX9ShNs@XPMp;a`uM>Id-*3L
z^Y}JVMgmflRUqMNg>(1r)YQ&qbtyTW9jT;JbUl96lx~X$@9gz(Wr&la(b5>CsqHcs
z%IGFH%xN<VyX+y0Ri@Qm_5w5&dEwy6iITdUIwuAK&F*aAUhN?~Zm59XW5fvmEqR}A
z|3q`!8EZ+e_i9v%NM;3=^^ts-1jm?&X8qEG6FX~vXDYGLh*WT6MQc{Q=Hh2q=gK=j
z36vlezFpLDbOKpb#>qY{Sfj`RXe?0G0S=AU|AyUr%~bCFl}kMQJ&gLHy#;BFbn(HQ
z#(?Vw1aB>iENPK%aB8n6cax$qL~Cl<>D0b`)(Q3_f{28-1uod+hVD04XbN~nueRgW
zvnt44qFNF68AId{Iz$j6rGE2$T2?5p18-pNn!%L=4^#G!*&(syDr#XCXdsBsApQY>
z9Q=Zv{%F$uqK(Bw+?!r+M@yrD09_Pc7V&6$jc8LKp>>o$^vq>?P3w@KEle|XktweI
zW$zN{9D^Vc(1q>lEh~z+O<J1ADELZkM$lKP2-Z#NpCb9Q@LHWmC*a@i+=3n3+7Oaa
zRHpw$TQZ{vv9Jplk;4(DB8-3KSSCL5!fGhLnH#v0p^(Tx$~h|pZ5QrzW)U?+%fJU;
zBwmq6cqFoNdw#$L`F{4W#vp@qAy%HR>u;u|Y4WZm9obZScnuKvz*TiWgl1%Qt*GED
zWrHPZzK>FYmtmNoJ;X=ov7!{h-G;n6UQYDDz50xi^Gl|`06O2{eW*TcZ;R;RMl!QW
zJRQ6?&l<j139cK0ymYC+Jl0qL668(qCMTNOddrtervr}AH`3+Q7zbmf4K)G^%uWE7
z3+c?lEe_ScuV_WX1d+VlzxqLH6VDkG=!kN{q184RlyM&f9u~~-6P<%h-{ABch}Udw
z(t+>%K0=-&5k$#^y|l+h@Gzr@1}7rC|0-@nWUP)a$3FE>S!mfIeOrZ$z5*MB(`YzJ
z8*$6|YzeVM<i7hb+BG$dTOiW4jW6`Lmp~f5YLk!|7GajSxF@1eCyX^jQPMQ6FNWS^
zD3j*S^^X8CK*>q3_t?&{jy-}r7{B+}#HcK_w9##PU5un=iz@9Za~V0-0Kb%2&Qv#T
z9-GH_W7;tUQ=oJLI;8oYuVRsT9+G37bhfGO7=Wi9O*87v6+{CT&@(C4u032;ex?Y(
zevRJkW0M$UkEkd!pKMDyhgRu-H2R0BEhEbUep}+NOyxW<2qeOA*jk@Ha&2)Rrrw%a
z+J$bc(eZ_DNSj_Bm9(W6mpXoV%O{CX*09Fc<Dle9?hQu0cLQY@)059AtGab*sgZ2Z
zBk<SwIsmCecqZ;CvLQMXAO&`6$UdGU4)P|9PeCX?)L`)g`%4-N0=PNxa|}(1f4Dz5
z?FKGORrGXvk;0jO`mK&M))3@Y2#}#9{Ea*SB%n;}Rhh5x9lrtpcCkW0UErwOJ;-i-
zk46EML;mMz-g&EWh+IEX-HJ#5=kTVqBE&tpeo$aOcmAK_5nwC*Z0M&0rRzizA|s63
z_Ro`cHu~r28&#wo7%NGC$_Wx3-GmHV%p<w~?Vf{o4$OO?qittyp!7XhYgZVhUU@8Y
z(xR<1GoDP?nkn!U02HkH9qSdsz?1i2T$)T7<x0aE#S$Ti0w{jPQLv=GJ6|HP<Q6gv
z4YO{#<qV4qEJe!eVptTfe*C$=7JV4|AQck9Fz6wOkz#uK%P9D4LFq_n{(M<vNMDs0
zMBq=iYW@pfKa~29z}m|NMw54fdjerLj=Xlkh1sFqDPYn6(|(-^AQKoQ7aeSH`Q<dq
z4Gp$7V2ipizUsHl1w2UHEd+%opk2nf{>%m-P&?VcJi6*_Aom#?K<(2BsRI`b114^1
zkSwHJC{aUGoH%gE)vB|BV|z%V=oy=t8?LZR5FQ!*PdO)`iV)>PRZqRg#*U4YKuv9b
zIq%~3mnxxt%Y6o!SRWF7JUwl4Nw7izWcBFiwJX!9_RDvXqq*o<>4*O_G-jni$I)(f
z9leAS9SxXBb(!oxW8hL6lz?{I*U?*0tWzDB5B`5e?IvQcCV-Dk&oMZ*a`o&R@JoU<
z6%PUtec=U(Qb`{0_8_NJBl0L+<P?v1-2J~VthZ?_x>#qml-%G6H%tVDx!S?sLunmh
zYJW%Ia%j`Y3#cFCsV6+ehOlZQi5as(j@;Wq{b-A%PmzE8Qz-T9=C8qhil)`RYcXUP
z#>rZR<Z7qyf(v}3othABYwnY}XWYY7KT8X!i>_6ZhxdU#Db<&<ipX%l=@vfaxP+Yw
zwo{v<BNC;j-JKE_<%zfW+50O1vXlbY^&$K}qU=Fd)=l_FJcxSUUtcJ>hiDz*!bh#$
zWCtJ=6q2>!+`ho}A1#|39>&+(={L+C-aGZ0lmQ^xa)!@+yskI%cd*()dJ-97Gb}pG
zcuTf0tzHm{{8*Js?sui_86_vV?E|%s;8;AD5#C0HB<V+Ev`FLEcp&Tk?xe$w$GQS8
zo>{vCJn$L8B`?qH%J48EsTUxJoU=AQZAo~q4Q7cVhN=|S?bmtx%MH2Zw^d7vT=Z|2
zl_4W4p$8*B=&iN;jmr7KnsW%L^^)+Fz*u=<t!L8225;rD$uB(dWq3XF6m)ZP@9Jd2
zd=h&M*6sH2c|z0uLPUf}``xtF7$DwFk}r(@>s|mMA+4Nkf7L3zjyj#+SlU|V6l+8*
z5?CFOSRTE!sA;1c{i_BQ$#{2FU`qIFKEQ@PLHl^?F;y2O|5UJF9L3KFPE81DNYS`-
zovzVgAP%Y?T)QREE!im51A>42w@aeE4I*R6K#CxxEw7y3Ps`G>8rLEa1!T*UfDgF%
z8=Qo|4MFi($i$N%3(a!m++-x4E90!nf&~-tmc!TZ?7k<rLV_SE<Y|lx&z?azxb|y`
zY_s8}F*WZ+P4oH&=*23S2<jIwH%RT5Z%{yIIRZ7!duAxX1#cJemzYMXej;0+UFXH(
zxA=r2wTG_ZVciqIO3UTG^r2rFSERP||Ae}3@F}Q}#GEc>v4^!MR`%~IpwqCQjc!5J
zucU8H?_U*$6DmLjXXRr}utsE)Y1Mo3nzCfBCZB0RpQXNrGki)mK0#rk%12~HkX;(K
z{Z*ql>b`|KJ?IR-i|ikHl;8MPZRFRg?C%1V^7{96kVKyYE|$3BD$y#<Y6L7=cc=bP
z`e+U-{i(we96Lu)FP7J@V<FJedqH26*aRj0n~|OV1Tr^P{%)eP6~{DD0eG{&5dO|?
zpnZeHq}YzzajrAQ(L77%nlIUXbNy%n0Iae^m>JR3vMy)7J&v_3F}{DHX)f|U5YMhZ
zR??>ddlLEa2mo2<GdBNGR_H=Hrp5MWjAQoM!uDzorE~5l9<1Z%mpDwlMtmfD1zlmL
z(^x;cu_j0!ZEc|(LK%9F=R0t$zz(!gT@bWl;buR82t8fHsvAQvAU}B?fT(s}!Pkdz
zt8{W%b7bwFgmD|7UP9b7;~1+c$T6W%M(tx(=cpScv^^_=Ijjbat7Z3=jw08|SXJoG
z<lZu5V87W=*c9*e$`7XVNNg8-Acp|Zo!AyIrIs?}7;L9+i*$yU8&9w)N={m`75G~I
z4n^*kqMdGGqbt&jr%Hg<&!1$Ky%z)xmNVc@W1k0|aD}ZW#}H+{&Kx&}E=g=h=C6i?
zm@xGRPy+K~BzfgQ?=qIi^UJ^TPKisAH5ZDln=D2fq27?YjHh1gBhiAiu3AHw+P54-
zeoVq@)*e2{zdHWXqWy|c_+vOp!M3cd%Yk-E@abNqiP5@JFR5k0JlU83pZ5Eott;~1
zU&b#2dW(@3p|*?$ekHkUjxa3wb%)S|Kd7mdsWZ&i{vjJsEh`ZSJwo{J(zN$`m2H%F
zjs(si!nX_IN8nbF4Sw1{u#q$e;D`T}UBC!^2hOdJ#Sg<Q7`@~iem7<3530+0c~|3b
zYplE*g-cUYTkzE9R9{U1UY#4cxuKZE5Md0SyQu&)%w$6rR^#<ozwr9jW^=J>P{2iO
zomTSZZ{Pp+J*oeG>HpnD{P#<!d=J{U7zKdtKTHL%>QpAbNn1?DVpPy@QaxG$W9DL%
zU~bocLy&3UrKD-TSqepCcJL6$&`K4|M&Hia1wQ}#w7>{}*j2ABZ--mkMF_DiD|Y#_
zOi&{zH*Eg2uA9#)Nt;QrmGpW4oEc0Cv9>cyfZH*Q*7>=YkdXJGYne@D-n<vxr~Teb
zQe8F0Ao?zx2uL)!swc3qw$;nURbY%0F9Dt-6=|*><N|AyE?&FeE}=Lg8*mB(UgnG_
zFZVH#(hnT8vc`?sjmSB|<kne%FBkMrTs5qC;{cE>gWj*gwu%onmJHdzi7Nv~Kp0l?
zV_23pfO&w!UI%dNx^DT6Q1Kc4`c`sZfyQ8Bh#iBYsxbw>&&c;;3*qFgKyRT`Asm1F
z?IM1LPt_rg+kr}Sidy%In-}>$cn|rQb9u}JGcHru@0_u@0k)Ma2&N|OFB+z)@6(_&
z2g(Nf?-7UX%u)I{R;{pyK!ou^z{O$wL`SC-sM9;+!dM&HB=eu%f^x?Vu^ls1xpNG;
zzOcnC@*R?H0TI=IhCLye%5TVS;Nba<%&nz>XD(+=oSEeFCuFppf5JOIVs<O+mJ{3o
z()t~E+ca><o)8Gr-+|%N!)p0BOCKbINfi>XBm9#S&-i^DI7vm6%qUXQbP~)c{|n#P
z|NA=jpQH!;@7r6ITerxW?YbD4W{2cvU(iJXt~w;F=1tEaNsCg#R`EcY6;O-0ZJ`da
z{k9&q02GE0lrW+C>ipXm00r~nw~2}Q35PSCK)5=uHxc|#%Paq`wEiC_vVXt-KlE-^
z_<<ATAtbyCH{|4OH+pl?X+i*z@q3jgM#G2EY#YfkdFRpjT{DdZtXMLHG>my&Yc8;@
zxTnB9DxmjJ2MGH@7J@i8S%5aTHpg)FR0QpV$b}E}4%IeIR=Bz+(e)_IX;g&X%VBGT
zBgdlAm%jxUe{b$w4kSr?WVzacDp;?`_e~omlx+*l_2n<XISb@DQ(NlT)H{+|2mCI7
z{OxvW0J1HjXFBu{E{Qe`yj-B4RIN4=aA$ml!L(^Q58@F#;(7jztMvVXI;PAHz!Kra
z8=PhGI%y2DYG34HkJP0PB}xPe3Y)j5HaF0j&(c_1q6g>y_}A@0*@9bk!dq{^2k)%b
z{Wt`lS=2>)2(<44C$wD{>hnAWJ~7GZHahJJl<u(}<7DLJJ_@&thpiUZYPW@aE*(8s
zM`50BC~m4-X?t8S2(^`%94doP)(<ys_RCSxT$5+f6P&x9PV*M<Jr7OmZ8cWSpr1mT
z-XV44H#EC#P`F11{WuEs^dfkiMg|C^mu_^FiaRqq%{le)Al4UGHZ6_lvp~$ojE7vJ
zu6^*3)a&dE`uNjsgP<&jXCsz=%0W8RMa(N03pg%I+&QE(S`B!r=WA)Z=Bi(`B!@+<
z<kaXN2u&~XaPM#7W;SvsQ&fqt+2`gyvvsi%%-8S*b6&uNXLZ)=gPN<HuP;#Cj&BXo
zz75Ohs|k1|{x-ZIiS<BX(J7BRxR}YOA7?9ETpdQ;CbIg)NBrcw%8U<Hbl<%Hw##*<
z)&o8pc#v&~_;lKy7=~(mWDfi#$`S?x`q=Vyyg&L+jlv$3@Lr6$F4jYtV?K6N7c|ds
zpT;^nP_?U!68il!Dq~X1>6_!YfkL4zIAoEMJBH}C<TwXAFw!n$!6G2U1Q%#0K=4%`
zOP+PJ%7ZFiAAAcjN0`wj+R_KXJVQcsKm^049t@e{oe6ne)fjym9bB?72Jd)<i!Ln#
z*R=!^%Nn^Y7_c)O8X@fi@`g(ScQRD?5wkK>2VoCF7~lEVG2PSw#`QIE<F^6l;b>NG
z<LlQw$qS%LENdbs`gWk~x{32%D$sGtXTZ@2{Wup7J1VjdVFTyfS#eCrMXUKr-IToJ
z>Mi+Y?_&I-<ZR04==AV&@AeXGJvtsGm&}sM-yoR?HhDTQ-5pa`?l}J~E*DcTIF(NR
z0i4PpPic3)w}Dqy@ecVLLHf13-tTelA2N7??!j11p9eJWQ6jIb<nyW$HQSxl7;2ZO
zkLf2@8m<i6iPToMj<0*GuQ1!({H<t}eXhc~d9A3c?Njgjvif|zm*pMvx7cfLF$b20
z9GQaUxCew)^`T^aFcjc_^X~7yO@S)=t_ErPE&Elt2e>CPcb|!*`YxyRHIm1N))Z=V
zF^IG|#?+;JLEM^n6YsM;udTVIf?7;z?2-?`jDdS5TgYp|9)i5l@IhL{9-lwuZ{a*i
z-urA2H*qB#_NPVPWp8a|J8WrJk$nGDKjc2p()_s5@~gMocN7g;bp50LPoPPso&f^B
zH3B#wvE+h`k%7CQ50n?A9T_9PBJ-Q~S3l+~JbYh9v9s~etbMW}m%h*sGf1pojVP~s
z18rZKe6b_#HvxhFqkh~r8LXZap4bMt3n?IHk+exqFctUXQ5Md1EiSIMILMR0jeCq7
zaTi@b1FmLWs|D!^+7B&%bF^g0!Pyd50fjJ9NHg4~RSL*484aebF-HOw^iJDNod91{
zKk~cqhbx=+EbYI#TUPkehhyY7DqH1TrE~A@yk^}pQRsb7yYSg&nV>^QpX9v4U;LW4
z`_c<dot)iQ6nAgF<h!fEe>!0lgsYz;P|!HG1&32in(qVQfR{wL_7|}j;QC-2ztvAk
z&m{3@X+abA6Nhex+?M_>Q@>fOjKOoL-n_7L!Q@$|^kbZ(zLWTf&@GW$+rsy+b*3`>
zE<GcD$6Gn^#<ztFuO0KZ8kIX<d@uaETuNfHu3=t6tLO1|=HA<8eku!#R+Gn&{<k>K
zX|Uk^-}N}e!PU2M#)#?pNCgqyEBeFYHMRF~im#t_D{S(J?|xb)M3l+hIA;1o#_`BT
zshqH$Xy{Iw(}XDgH9ik-_ZWtz8d}u4^;Txqt*G}#HPqdUOMhu)u<lK7m?7O%GBj;1
zQY`9@7qT^MkOv#Wn@~5$-}Ec=k7b+<AZ)wsclq}-=rMMrblRf6|LbRxQTL`=b~Ajp
z#uxW*{D?oo0aj02RwsjHYG7B8RFCQel;zS1$SpGiip*<0rGmUqU^qNZr|J6ICNM^c
zlZL1<$JO^1S5!)=Lx0LZN`>q^hBG#<D;U6}b;=A$@G#uy@slBO>B&|pdQa0|*`++U
zunO=x4)gK7>>|GI*84Wo@znvJWSvlK2~N{}D!w~cOl(@~-Fn4Nw#D_BSZ<;eInEVf
z8KS)XfU<*M(^%F`Y9OJIDtljZzv>>8l45SHoAt@*9_zcPmi6B&H;qU<L_I<Uq)&Np
zqYC3;xj&U4wEUI_7P_GX&{G!;L!{~4glUXLPXO7Ha5Hh4ET!&cX(s-&w9~W|a~Khq
zo@8ZWnJc&T)|Q57f0Z_Qd@>$;0?`aUG}Q9PAJu;XGWfi2v|cRtRPd1z$Lh_+$|F+0
z^*3!=ut(TE|00JfiPX)3AhyeHe`xTG7=UTCnu{mOGeYv7eSA#Z)i_HvUz6?sw%(w*
zOR6AaZVZKs?yXfFl~W$~CE@aIsHgS(H;?WP3sK3CT6#Q}H5||`musnx%9moVI5dY%
zYvW6!CJUU$b($9^m6^SonEv<1@M-VaI4PKjKis;%IE0q`%wpt2y=&1^^J_(JvlCg%
z*i8g1*{>hBhh{&qc_J>3oiu!&SVDhkmGayiSpA5)m!p}uJFxn;f35!8<+}J~<pp}K
zkF5QJgNimW-COI_^4U92)Nft0uwI>QQ$@z32{$+XSS!Hy8ML(^EV$uS_q*a4LF3?%
z)tB#;ul{T_xYoxCGqR@4L{0g+ypTrSQF`Q?k$g-2q|Nv#z$S3H5nDOnt|xU%o`^dm
z*Jia+3na#@CqEr;%o493(`?mRaxjt6?mG<=&z>xryPg?64JwES$Xsp1xD}~8_GTVv
zsn<}u>mtserzp+zzUn=mXFeeLoZR$!z2Ty5Ot){h&WXg8CXJK4zU@Al`Dnt|eYp&Y
zgMqsAvB$I<I_v;;<XOyImcqk<FUdAhQH{>4kq?1YC9TDMTe)}MDDHZn=8o$NRwKrY
zuQwoOCZx56-6j3<9MUHVmum^#M}ldWq2Xq6ZKI}N#P?n8qTiGbAiESTIlOJCv%4O*
zSG(Y8r8oTuV2Nr7PpDZ*bGrY#SHCr!cZ^W;=T#m!dne>d`w4b~lqydz(CNNS<|*gI
zn_R@zc5~uLvT?nJqx^ZqnA<k<l`U&xcixU1Vu}=8<smLH@;jrF)=t#{J9f9jWT9vJ
z!Fnm5xz}r_q_bMYX(@Qg_tg(p&o42L6aeFdsn5AQv%0{y`R!plFQ^xoy&wV{oltk2
z$~^F`v@<r-&Y)s>U*~?^(7gMzretE8twH{T9bVI^y?#@|LCfF^w3b<3%4@IQI0yNP
z@XW6Tab~IRPFLD_dT%<ca(>dK$QuEb8?W9uop-YQQ861pD2!1j;>_8?x|PYi-8JV7
zkUiFlV4m1OBJJl|?}BPN$aDku<%A+Q;Vm5|LMyU-k!DdFpPfJ53kYtiK}XRrHWPT)
zN5($wGG9k-j<%a<S?^A^u%x#t4@8SSQSE-f<$CClT9l}P>=wP$t{!`=P(;F+G>)5-
zK5R#<bisViPq=hj({aZ!{Xi$B#kB6_Eh23TdsGpi>@L(wv2MFLM@~@@9D5q@L^5<)
zcIAy4IAimKcL|EKS1aGJ{{H8hrNKRG7rod0FUzKvwyCc;HXomHdTbhHao0mw?U-J1
zzOm&GY1eVYwvG3<0`FUv26|fsk{|u3C=7!Do32_=8sOtn*-+QI9(&9)@>L)?^B{>+
z+yODSM9M50))bb;g^mh0Xj#FOOT5CzWJ{Q8K?yf!8M1YgRbkf#9k5&ccOW?fz87nW
z>SH6WCP9P;m?1zXdjXxCT5k^cTxboictZx`GHFqZYbS=6=DpG%>Ag6JvWXgwu-j%X
zLnVFE4kg4`=!sIx`;{iNrpt2QpnBIfw2>Tr9HZhw)OeNJZr?qPug|nCs|M+)XB?WT
ztvaC%DZU=Q_i$N!UQ6MeHYDCVu!l~5wQiCa=w<AcWU0Kc=84VNhBfKL)Ts|it!?9|
zRjc4b#ORkhG3ceitTR%%I0^%QILJ^-RajTpFE=r=<&l$B)0{N+N-DD$CrJ=L0W-Cx
zyfbL~>>JxR_zrrm;C?2sq~3eyJ>stSYVIH}^epWJ+aZz$dB3ORTn~2{Jqg>v(UnN=
z`=IL^XQ>-HT$b>gCu1s38g(u=pzPSK4Bva9;btC<bi*$&Umr`eQCnrODG@W=0{HYm
zvTXl!{tQWxo&qS=t6r@<vjLtunmHB6Ff%~P;F2iH)e<nclzmD;tF(<WnDFP`jMaS~
z*LZXp4710RSFj)ae7@dda8!Ce0kx)^fIKz%$s;LWDOcOgI;YX$rU&XN{F3A0xVSL)
zt`@TofX1Ym5kB;6P4aXUrPiqHY!8*B9lLDQPVUpeJdWOFXghj?`EDhr@j_?xqaT4T
z)~i>VManEo*HhvOL;8N|VKq(^_+k#Au6_a7e_@gMU$L)fHeeFux+|p9np$c7qI*7<
zK~Xw3tGnA5;=HMPtHjnux!3hi*AJ#yFlC@8{3SmozM9-7Df$ed;r9rtfUI`?G%I@d
z*1^~2a-RO)m0iUN=VveYh8ud`J)5p;SUaDwMVsjvbH)*pkOj5dmiuP9yJpE@Q|X(Y
z4`;3=>V%qbT#C1xenD<bTMwsvsaeuiIXT`4S@UYXRW!eiFyPoMo3ixa^PY*>jZW0F
zk(q3zpS?Fh;MiAo1`HY1%Vy4up@wT=5XwegjCR$r3zjj`s}VuUw)E2LaltWtwfjOp
zy?oz}|7o$_Z|gf3G^O>lPg<(WWcHYq=I&RoMjhQ(UsMO$y;wCHlA>MG@!_5FjA4E5
z)-k_6VwQ>ban5^Zb@Ku^_xy?doxeh)@j?$cXnd2ddEg(mFNobG%OO%-Jx|VOKM9c{
ze6<Y<X?z=ew&Qp7QkdFke}1gY*gH;k;evQa|M4*?00sn*b(S2G8gvNiy;GTWs9tY+
z&J>B$+v)lX4!qX7gOVm`6S0S?ZDK4o%Aa7BlMvR{+-ZJvF?L=te^woM^~2&+<#S56
z$-bB1yYnj#a37`H{ES16=t#OgpXY1QF+NZ^JKb}(6|SQ_)RnQ_=O`Aip=2|UDY{V-
zk|{A}EN`%sSxH~sRj9KRQ?T!vHW*swK5YAddOk@9Ku%WufDfM{CF)6bx|xA)v{i-e
zUMAlmPpJvu-ckUn92-L(?pPqsCFNX?JN>**`%Lym1E}bNMo}!+raO4d!e6(x82HY+
zweypT<fW7!R?=<yK#b(PbJUT8OrE<g{i=IJ{iGb-Gj#<lC*w1}@%wOVo>_R7TnRR<
ztEZNYv)!5mhvajPdwwH)b;|L<p(la^iVmU-av)UGTgqSr^+HQ^eqOJ7Z&Id?QFwZm
zojFVIyq`AX_z8ho=JvL_0yx#=+vP9t<_H_>anW;t2S9(CH32r(?D%-bGhdmeG^=v}
z=sP+aPn_KDqnrW>8kY}Mn&kaNP#<s(O11Gkt+^mKU+-@LfK0>84Fd@eq|{NBo(nxz
zxr^|8S~VGc5LNR8OP-Gc@Z-1h@!1JihjrfrpSSHs`Q$RJbVDa=&wAjVV5b1&oT+0M
zo}T#^n~>*8-hqj9@^6sklrUnEqUW6{y*p~cnud%;i;6}E3q?bP_&(#bjtI@V#FDTB
zHktsRTe>w$J*su{t2Z@XD!?gZJHq<Eg6t-<4BAR_*df$6+lMofZY}M1&q@SDn{M5q
z?CHo}dHf&)0e-w_^ZF>*lsbWIQLo(c{rgS&*RZs6;PC|VVAz#G)miY<`(e+Yz9R6!
zMdp&Hmka0x{j1*3-Xco?taW0nNUg5Z+6BpP|9C}@k~1F|k8*Mt0z?Ve2=h#MSFKG@
z!i}1S0F#2;sjG;XmtP3RtPg3}KYO;;HGRo4#C=*%DlGLDYxUIkd(p-@Si!!k6cYY4
zt^eNnkT|9NbmO!>@Mo-MsgQXlUIUYA7#{H{oYQD})DVZgJ>Iea9yt>dE|EZHbv&yx
zi*0jpb<4<m4Sousv@SW6(ljX%EZON~hV;q=!pSn(8bVJA>jdQa9grtVj>K3_hjhL=
zsZN&53sm;kquthN9o~x<#`n)P&VrBHeN=wirM~iT;#l*(G)55NKB7)~WzR&z&P7#s
zSRD^|U)NI|?9q<;{!;ou{N!BF_JwQAl<#{cQg;rkW?uo;KoG1!j&A$~XKu7xUT^ug
z+se09k@T-p--`y>-{4N1?cY6DD+VmUCB*P7`S(Do7A>7+hS-*I1yLp>^jnwll}pxl
zg2*~LgqD-dVH?{fT!GDqFR2~1ye?~i5yM`=&Nu8_bJjtswBxC}rvHd@JCBjvlktf<
zs5jHA_@f5^0ay5WL`t28=83Ybd)%`Ld=EGzH3^c*<3PRca^_*=Asx42WyO%Vtl<jZ
zHt*!b62MLEeoL5+jZ%xLI4Qs9%<;WXT!wcRY09skCqoWb49;!-`NN7eqG9|i-ARI>
z%--;*-{2w<jhjX;uf5WW&1a+$twjAOGIGQ<!dK<k1qb=O_-vydIBcb`zZS?UFyERy
z=vjXue?i{kygW3L^cTC{PdnJVLOpFu=IGB=nPK{joM7w9jT5)6kWbAlx@6#KFXP6t
zY8IQ0gj-~~D<))LqKJ;|)I+_r?ud<eC$n;3IuIWiIUawUxx1PA{W?R*+`4q_Ww}|*
zWPnsaOW_p&z4U^`+pZE12U(BW0{;8!C!!t}aCsS#`bYHiyj`ZA6BD-O2Kn6>nAT0>
zgdb04%XnQk8%<ULn|5G^l^~^A{h4*DgsR%2Fo@Hr%!LaDeZO@syCxn3eU+l^>*nd7
zFL~PWrhOasA$Z4{WRw$O_0X-Ih^^r}YEoZ59MQ?sFzfk@kBGWLuZ?nw(b&ap4&U-U
z_&u+615sNvPu(V&t{v~+PW}+(MA6uU5(S$LNk3MEu(fE2ZS)?woeKtQn^q1r7beX=
zMr>-lsD<L)Jz3IwN_XGdfjgUfdS+z}4sOFH`E70#+feo2bLY4DoI0@qq`%6#1)jd`
zXd~ikjSVX>%A0#++Q4VJ_hXu!WZzpLd#|b$3#$SUqw%Z%`{zHK1URRJ?KUwtQL}ul
zo)7M=i7roIo7JicHnKC*eWDfbDwHCO6%G;66iN~D+q9Z)J9*65KyG{SE*<@T^IBC!
zTt+!+T*THCd*aumr>c>fn?iOqo=<@KY+glOH&Ha^oD$KL?&>bMQLCEgV>AO@X+D9y
z${+nU&40Tm@P^VdxBPB<<8LAjQC+p`hpl|uk7b$+^dI#9txO<JUegn%?L-wm9)F-Y
zJl>?_C-Sj}kX_GcYyJFhLn_8(`z;%p{$`D#Z9Zv9gq~UnkYAh6pZuAgWET-x!<x?_
zNj6auQLFoaZ|r@Ta?G=`pj%s6KMWZDR$<rb`oSLGXM*d{r(=S2q)V?KZ`!;ePdhv@
zj8|%Y@ZIFG^y5XN;-+NU*Eg`ou~NfpFCHK-^$D2^xrk<(hu$X2m8`<|t;zVGS@+|O
zZqcf<;X%4JG&iAyxRKq+MeU)+8_I?@t_pGFd8W3iaCGHRpc@9>zgvC^+w%;*P(sh#
z?T+2#o6v^P&F)&Ae<$YSAUV=gF?RaG@CK`JVNVpX%FDTkjY5B#8MI|)ekDG6Y$uEo
z_B|4A%QMt6LT=KF>7v?D+<0xXGsBA2%<tVgC^_I&xK+H_V6}4Sl|f^9o+3E`d2PnA
z(y3WPuu{u*a8RQ)!uQIcTx8i<D0o~`N(atzIQZHG$62cbmiOb&FCSgTh2_(0MlDv&
zMyAd8kKOq*cd<PNvJ(c^LYFZE9Yw+)ePR(L2MJ?3L<Ngg5fH@hMqveqHT$gYaFG0J
zsb=95mAuZf_%>&eVvNPUw^RgL3Z*=yt^CPWS|`;iz8_oJ*9u?IS7WWCj#ciTaPHO-
zRVwWv_E~^Dl#@_XORhQG0gA<-rs6{bfofG{8qb(8RHBoHW6tE9sroq8A<Vc@|0E=@
zN<s4a$m*FQxdxS}-L+18AHrHC#@hFf?jMNYEWHfP3-+h<6^uR738fy5i<G+;^K}mF
zE871?L!qaq>(cP)cf6wO;aRm^Vvi15>BJ6~S;{qF#ByKSZ43M!Pfm5&O7VK#^cor>
zCM#7nR~WUNsK+(wRdBj0Ggp7PCiaqmHSzK*HSl29%gR>lcBW~R8vRLMjIN7@i1IF9
zSC=C}&lXxmbWgHDrwXh^snL;|BJAD1R9}62-#z83{>N##g<0pMu%M2~ZP+0N!<wrw
z=gLmG$0<@e!A6jQBwu#jgV749{<;2lfts|lw+%3GZzmtFqj@b-nk?J*A<P}qu^8p1
zTJ?k(&}=QDf>(Lk%VP({PttQ3m>`<`UK|4SJ;eK^6dQGtIg>`u{2FX%J{Tw#BJ<FA
zhIz*T^TJO#E?qva?VY55K;@XUVG`)rNp_2RbvF@~TPKga8S#pMh+)A#BSHssvKs{Y
zv*Wu;(DcQI1a5AB<K<a<*{L^$3->3~McPz_3yj?TrXS}HUI!|c_9m%EE1mnxEgsZv
z_*UXVNQDJv!;`6qoMxTHE_}53@%o+N;FIikQ97a!f3V8QKrQ5-f1Z$Q*w<5gVPoso
zgocK4o9UqD@KPH9@K%p~nYH+?xT<eMA)cGj7QUU3wJN9K6)k0>y?S`#gHn~-+PA`o
zuh*ZtE!FzQ{<TlzDp};a)`YrWTu;ugP<x#Z$DIZxbz=`9&N|MR8zniLhRRshZ;XMc
z<`qx&O`NcB7WF9fO9JIC%2`#EqJ4<nAK2*KKe4fGzWKb5*@h7R(!)VQrMsrzIp5uo
z81u>DG3O6GA70nBrcS)j)$&s+aVz`8EokF}P3tKOZ9rDIqK3Vi@o2dQAv>dai36r}
zaO>$;&wU;`Jtq$()pQ+8;7Ku<Iwwye9$pSJel_hvQNC#M>h0%>$7d|5O=m+R>}R<-
zoVnc)->uw}EZ#Zvg_2aNQTqw=CuLqDw1*SV`*?`f+30~6XN#(tfgheR{X|ZCsj5jE
z-ix2VGI6-%=VW1DHqU#)&#|3XOJpN@Ss_PhAGb3^79=+eyw`&-8}+NH^zCT}%zzw`
zRZA3G3fe(cuo!=vDXXdge$&yO^OH#$aT$r(n0yXN0&`9Jd1c+pM^%c|jK7V%dt&$M
zSe{nonX|>9=${9gH_C}3+;=w9j3~7!&a~v{^RAL+eGv)(hitl+!IPS`?-iRzn*Bsi
zAMH>Hmqea8Nl}bD_Ru74@+`^3k%0xC^~fbXjTS<fq?R!$`+eBQ^?~zpKfgT)!>VK7
zfoQId?Ft3;=U}%Auv}2`ndnEuXZ<a`*MSA#_I+n6b$v!Szbm!x;wa=%X42T1<%-`W
zkL;4S3^ut8PxRNOQA>U%vKpGMtiiXe?YU$2L+6LY7(&k8s}fN0ITrO<vX$Y+^;hSa
z3lp!88BcnR`@&UdiW99--St8Vo47C(q&g<q3iXg1`(S;yL7SXmi0JeiyS7_#l1Do%
z*s2rO&9j5i(!T00(zxVYNI=(zVTztBWqo~om!Y!6d}TWD#s=fXha1L~dcHFqMq=t4
zs^1?6Lc(LeE^WJW?BVc-D2XC=B+of}>`A2GH;%TRj8?^EXIub<cO0Tm9GQs{?_S1A
z&1Xb);yp`#g2E>BKC*lEKZ2k1M|3WJ?zz2@ZwShZ=Nb1lX*<dX+r=C+esM<>2%%{2
zEukvN-OmVTH!fKe$;m90{LGzZIw#T&xQo!tqeRm?(*f5*Z9;P2rT(nOzFr$~V+$K$
zlU<F5o_)1ge2{QxV~0){z21ozk>n-!pkB(bl)E=nkEZXakJwKWwK*{K3dS>PT@OnJ
zYveCZb}xHF$6yAP;lWRRJ|i<uNZKEK+q<M6!<sas+zHXU_NrGVn0EcuTUib1{LK&M
zaSZ*&*RZlrIw8-K{m|bE)j9j`98<)<!2cQ5Rl|ttPR7jMu(DvDU_J@g7-~6NE^_CX
zFZ;WF!M8NjS&bb&3hu;D0riIMMcCA`O<h2xHI+syl^qJ~pa{uclTjRvI5UdCSWr1p
ze^L*M9j);5<7`}h%6oM0r6pVc#whU|Q~NOGYt~fK=@Su#9?%$Rv0U=ujR^U1N3K*@
z{_AH7#j7tL=Y31k0rXyhCoy^}S01p@r*aLij-5ye?d=`PVruNpH;z2xgV%^#?R~JW
zYtRPIGMo8X-e0csh8~#@?7gkawb?5}S7u+v8cBjvmnq6|LmXJM&&XoeyC#ZNaNp1v
zu{4M%sq-Z;_h)bP6*-fFk4rzJhU)`sq_vu=Hq0ifN`CT&p*D~+{yyGe(#U8(AMs45
z?8d)W@ZDDj*`TYA)4#Vf;QIV{Rh0gaknC<8Z|uhKI`hH0#fABkkd2g5eab*%wjoFm
zu~d_)q9ih2_swU++cM>FJTjO{NEVZP<ds52LT~%5jD3#rX*lgzFupoOb?%$txBwjy
z{mdFp9eB6Txkd)m(kH=<8?$}B`0M@>t!pq!=j*;EPJZ9Bc|FwE)&cP9>HRmU&LvDu
ziBQDA(#oe<T<~!G+=;;J*7@TNA0BZ~a$ldG%Q<T#dA!HTu9Rc`noaKrGmE4V5?0v-
z@r8b}Ht`%6%v`vHt0!kcG)O*wK$jXUw^V!DJ^iTw&rtWECRa_4tMPLV%cIEa%o5Va
z;+*<G^2`cKf$nLM2DG<Uw}zQpukMu(?YE#vj43vsmtO2jz7x1g*+)88Br(Ro`vl4R
z?<2Tb@_jsPUpYPUJti_X=e>twZy4BLCs!9i4x*jj9Y0qijb?r@oec6vj?cg&A>F~0
zEx|V)c>m3}&_HehoVaL}|6EqC;p^zqT6FjFFj=FVz|N@)F+Z-~I@xrEgFF4At<3yi
z9Qzy#*KYhRRHs~S)ap#J(#Tf$=I^$1HCFClpX4M*mKpt|DCyaw;ohq!FME920%G9G
z&7Es?LxsWna0taa^2A_|xwEuw%_5PuP#1`9C~=d^<y1s~^9tR)`P%H!If_v28|?35
zRUji#zj`a$=OACIt5U}YsJnS>G_X38%J6S5gL~&D{-E71US)f%gy|cJs^O(`0_?hZ
zl8S!^+3ZC(kUR0%4cG20jr(E)Xi|&jrZSnpruiTmrCDSW+dN^mjLzCmg5SHm{tITR
z?&e;6e_7_RDt}|XHG757;@MDxrnV#XyQZCQlu%_2Ljr!1Cq_Nuf^kP3ONT$eCS`_k
z(OfzA#0RiZi7}PPcIn}@x=%X8Wy7-+S*i{8Nl4NyxrSZScYRV8HGM9{aLjFf&^sVz
z&j28<PKLFovYiW_?7KYjW0B|F$znMukPx>2;s$i~B)f0>FpvqHUVnMP_*E}48(+|J
zoM+m6>$$=K3krZ)@E61&jW4=<IudDe6E<Q$U4XBh_>wTMjBmsfSq+-=KB8+EXnGS0
zhDk8-N$k>|s4l9Kme|@I?{&AG^1v4)wQy%xdVwfu$`*-DW+sJx2h8Ty5nZ*v4^uWZ
zeszr4A2!28LZS`ZpG?;$^HGRr_CwQD!t(hEujY@L8q!%eBGm8P8_QMct=}vw6#m<q
z3#Lm~Oi~Oc{bWYLM@9X2?BboMb#T+cs`=Qc;o6V~ufuLy+l}sSm=}|CS2#9O8X<Z|
zzRgKY(haKSf5;P&sy4V<cQkYu)pK%UJ?hUtG_gaqe}3&IQNM?OB;Pvx>EXaLv(&QP
z4PQYi3spggRsL4T5GzV3+Sw?iSje7m`5Gh*208fsR`3Cu^;4q5Xma3YYI<R*?uq_&
zsDC9=#4yR{+qN-kRhzTj9bJJhF(zAJ-Ha+e6Dt~P=v=ui*ox<0zc*e^&4umOi#L1d
zdgf>KHNn6OzsvpJ`D4ame1Fj0)UzBzIU~d2HqIfeLy*QDSHI?>ZHj!YdG)^Bpxj|Y
zZ$51EsFin8^$m~TsIAfiW9NNLl&jU!1Dph4?$v>h5+Cj_(TnfLe65A4BG=^3X8Sa~
zslvg;0@0cz<0#GsIDQNW;{e6B7Qs+i;*Pn9LoRFv+)!UeEk$txa~}2^wK__4wnT^x
z<g%}hnSLgFYF^~?u=f)@$dF{#yxsq6RP_bbrXx3u4g>nUyt;=^@Z@|7p73}yQo;1E
qTv@>PFTVco&;PL!c-z2Lcx|k*>kQh?i+{6`@l~@crI&C2{$BvP;FK5u

literal 39136
zcmeEucT`i`+a@X&<O)|2QKSi>3n;x~p@lA8s!9`S(rW<qDvC-VG$TzRbRp6bI(9lp
z=!7OMgcfQ71jy{@{mnl!YrgNlS!>qpwFnV&&e`WJ&-=X3-X||ijC4+&<UGm1z;Ftx
zt7*!>a5RL0;mExc$G~6kDeqUouVeT0bu__mFm`U%MS)*T4|Q+*Gca(+(0>lWXV+X9
z82A{Vn%B)k(wD}<>n;2bn%5}mR6FHlkwO;H?3dYjke)zPtC#kx!V@yte@i?4V3kX{
zYkHG20g`&}#A_nI5DtPx{9{^caz-pUZ?UJ)pG<<2Y$~kkss<WMU}U8*HD37s5MgO+
zzm!C&BL|Zj$Zk=C6!Am9r}h6|{=Wr)1yCz!gr2H*q-)qrsG5^piQSe`-^0B_4A-8f
zq%G4!oZ-Tml%&)fjdt*e!X@z&>?P_koN*cq3<W>^%I*IXO4lBoSUvp5p4SAmqB;J&
zWe^iRT>tM|6KGirCwTwxo&TT1_--+VfXir|P3bej4I@VMAMh8pghj-l3=xg-m8Lj1
zggW+MBEeay8Cv^EtT+R;i?}gxppjImiz^;D5OA*)w$wFsgAVE~2o=6X84IdOxg${a
zJfXF^3sOV^;(^|-DUJ(jtY?GJhQ%cWG@^P-Y>yzF_A^kyf(-)hZ&AEB5do1)P;Q95
z7|{+HS#}+lhR95*y!Kh$s#Of#$lS~Epp|Rd6=8%~S=28QCZ2#&U3Qn<q|pfqkj~Uf
zVdgCfV`PM3Z}V>>M5D*0ugB<~#FjFp^cdlaAmloz(3>~UYY=*N-e_BV@oo3|HnEgG
zQP(UTs0~+soEd~2Vy%N0MX1MBI1-ixp)ta@wc{6B8DH%!Y-6$mxqc;fbsOwx#5hRz
z2fKyN?7)pPZy<R^Mn`V(6EhXPpjrvWq04Ne&C5JH*cQgWGj>I*oVXL*qwYQq)FW@l
zsE(NMyIZH1J8ZU493BUDZhF+Jj%WRz>oq}n&BEiJXPEeA^uokm?>CihUw<F0wtk>v
z%8pE^eUTLSwyG%y;-!D38?Wd2`Y9KbH8<q1p!QeqBzz1@%GnC1!;tSRiVlsNA1*>J
z)wK@fn;cwkREcQQ8w}@hG1BAn(G`kcOraU2ZW0+o1Q3l0p|J0XdeMW$9U+glQq|UB
ze+xT?*5}FWAN=(@Jj7~T^`t`nmWqxSkdc-dlRl^4MiFfm|3q!<2w;7YQlT}sz99!4
zK<68eLD(X~u0~Hk3`_TWY<?3*hAd(=UE7YKmm?9U=3Qz@LS|VvcHrd3&)8X_N_Wnv
zDUw%luX3~HVgk~S&$9N=_;VC{EG<V@i*+@n*+aP(#szZVQo?B-Fp=3`uJC4IU1bNM
zg0})PCn>tn66ePjyu#Hq59c|Qft5#YP$>0+^k=jtx2TNI>>4y>!z6t<Rexc&Y*_*-
z0hw*JV~NV{u*>isk2jZVt<8OqWDu`#Azydbe$~P^nb??CAST^y<pE!|(&N1N5Lq^!
zgf!)|j6+pS%`~)4udza4i-|rjJLYjghy{_b`mfUac@_0XP=+pZ{*qF;7lzz`(Zuz5
zkN-9r`;dZi$hW~@>73pvQA9wo!QcIchR9E`gDvIm2%~tW=$V#R=h7z=)%gn(bZ$Ec
zge>FhEN?4G`_GMY3Bxp9-xp+B?s6d~Uran7sO1SPzPsEm(Ov9EThp)_7r3Dlp2UW7
zQf<TdNVQ*1aXY^GwuSM+G`E>XYur$W^Mqlgx`p$(W1A01=raZSCOoSJPbRp2)F8-V
zGj*Q?x{o3v-+#*&L@t-n`hC}rDLtl?D!K@&JjT{L^deWLf6xCNV&mlV4=3)^j;N7&
z6E@T9pPUtdt*cEYG)sM|vvGyke{fL`<ww+3&k&ar8!L3ij&0AZrM=vgg{!`>3(6|h
z2ub2jsJT40T+@DQj}M*Yd^ilbQum@S|JuRlu@C{bCqdc9_VwpB7iJO~H4n_PAvrb1
z4fT;{6CR&hWqD!N?0lqtcI~YsT%G0jbRrMeYm>$xg<)^02W?Ihr;(xF4dw|<S88VQ
z;*=iW$V21)YHe$_e|eVaWQM7SmaevJ<m&9+<{^6hIy-VUiCx`=dUTePI>RjeN!$fP
z`cZ8B$Y8Zw+}bMBUr+_Max1@G4W~g$h%}E56k8P$;4jQEZsa>szjm%#U;dM=1Da?+
z@nv9$KQ=dcl!1Z$dpHjqo=|Bf6u<VN<9U~3i(PG2OO3%J)H5FZc<Sa8<8fX=!?mFl
zDVafM>2Y#MM2T^xjvCLzLL%WrYV*k%wUTdtWx=3ACfilb7#834JOL}$ICBMkL9g}J
zI-7%L5nbd$-P&2`TVWZB=Z7=Mnvnf-gf>)Di0VO<B%Hl1oM*K8abX<9J*ykzOsF-o
zxE)Ou>mCfi>?;1YR)MBuBJH_8`c@@e|G{*{#546Bw%eDNZL;?AYfu!<&x;(ojo<QL
znW?SMY|r@G{@qGaOlo6f-1l|}b)!~_+XqIpaVK6o5LMsVhp60>F@q^M!0Ns0oVBmG
znOTGmlHR<jY}(YNgg$ne)!jvQm|yOO+VHXMNew)L4SAG~JV$+2r?UDnl1h9>5FIDR
z*CPzwYT-v1qGeZ$#XxNmaWLKc9(Qk6AJhT?<Q;vvR9OfANIlnI??U9aJvY+EFQqu*
z^&&7{<Pg>24aKHu06YpGCpupap7_GIZNJ-~{%G$7is?q)u6NN$zDd@*<%G@3W{ksC
zTHQY1rBL``%xudZLxlyd8S$fyk>5CV$M;<<%hK1oSupk=qQ(4lQ)w-NIREsBL5e;f
za=YDwl|a#lsv4=X_Ag2nGXHAo$!txkYIaMTaKVSG@t{Qrz7`eshj`bt7mnp-Z;hQ^
zXLU{CK;IgOGOsMr(OsBJ@UHD{^oJNGBENk0(nG|Gjc-hGgh)tvqlvKtpa@0Z)Y`cR
zoWlpDCEs3}mxZ!9&wVn~R)FSzQ^kB0hArhzdB;Xzb`0zOF0Oz4+5zKMvuD1vJ{%Nq
zcn5x}h@YuNbHcEH2jO5s?%vW!-YjXKZq|KpZ+~ALUT@q=(@D7KoEKE!xjyZwap?st
znc`8)zXc+8GJZKx9b8u7CFE561*oO5P{G40RFl5VX<^dQt2CcYC|>SSZNTO*M)J`f
z`_l>EYHL?#dohJ3hLGC5!}D%}@lE<B?9dzWFon!n%TRC01X<`X_tgstvZGFT(g&(W
zs3#@ONl6Dc5rLVIBq}0%J}SkM`|Yw+XLIwqF{;qc#33t;L+|YHpF;e}xbK#9F{Vyp
zX#=6ZyT#)!u-;T(cg;1H5gQ@sM=KlkNRUGxMMBs%SBo6&;i^08q4jgJ`)vaI)>*YK
z_y?ib3XE~1w))Q0>pY{NTP4mAeDHLCevyGmXK@Bw(ioqQAv|muapC(SX8GdI;Epvs
zV(r}3;<?0bpU>aTcb^RMyVA(5y<_>2-Y-8u**D}eegn4q9Y%T}ypnGZKa?jX3Ez25
z4*%(f&zglnx2$)%Gi*<Xa>pF#MIJ&uK&%*|m6<M(DwZSR%{LJ|UDxa%$9qn^c7u0h
z-}5%Rq>Gb7@R*Vx*W)1#Q|lpeP#LxLQ2`p?UV=K_mFl@TSs`)1U6qISbd*qC!q4`~
z*itLP@c0-o&o!<;oa?HtE2C}p%fB+_*S5t{n=>iH-4+O;_E#q>rEZmqv+?a!7&rPd
z^_69ZI;>nLs(RS+Gy7Yl)-Xn<p&os<=<I!|j*k>3UO?`IEE7uKcTCw5T<TqK0V?of
zNRnudR5BeKg;cECU_y>gT?|)Up`_~{_{(Gw*S7B>GGA9r@HLRuLgEbm9?7JsTrR9a
z89VQKm$xm-Wi0=T#bS?qV~t=}9B?%V&X!kV6*|1noF!=umgA|?l+_{HYxPh>!)vm;
zj#g&&b!mT>uvw~|&~yJc+0ClPLff!7gXj*VI#O#6ceORYt8jb|5)O^bqk3m=xr-DI
zxzWB(RjQbMk-k2!nVA|T_^~Mhn#;4J@9bdw)N<r7)J=cn@BGns`S-U&A1@nj&dF&#
zF<1W=ok5tdvfVlUH?GDjp7Okk3yMB&^21H~x_}hB+NX;MrtG7q1H{k_q|?$l@`;7`
zliXbOe&c&6&dE;m3Bx>f3CJ=<lz>t6>Q4Hs9_Tk-uRZyLGh^}~9ow|)$*lb8V#=mH
zVk=FQL=kCX@Szi=-%jIvlMQIwo_SIWV~m~}CbgB(R5<_E54`k7#)_d6@9?>V&5KaD
za~(f)8;v4Mcl+`;rXqd%Jsd`2g&Zafe@H_!A~5iHWcmAgLp{Duc_{Ol(Ftzpmt}$v
z%G-h&{R>g!P*l`SoYs0)<QILH5X0m2RJ!&Tox4xwPg)?`dk23&vBo$T>Ca6e?im=p
zS`$+%Xq{Psqn4Q%+l<F0_q!)|Qd{hvEz89`5Q-2gOh6_3;v^E>2M1maikyEz9&_$U
zrEz_8a+X|_GM;GbYww2XMg020E11E*k)yAgBWVAAomH|?prT*|?u#>w4`}S5niYwy
zdnmKf`I+L3YaPA2NV(`D`QF=g%qW3rUM>kaSoXGKwn0PJMuKfM+zh7*O+#E>gn3N7
zc0P>FZ++EKBIRGRA%x^><wv&XX_)P`?~3QlN-viJsGqwa{W35E;$I(?#MJfy!Nky+
zsw6agGBeVnzvLxK-{tWeE$P(A?v%}RRE?gh?)jv35Zk+01Cw5lyJf<V<y&C_BZ+}%
zgOA<%<uBjuTjfcmixK^xV-UI23wLQXC@bf4zbcNr96moPZJWosi3lj`5E)oNG$zT~
z<IGM5{VFqP$P>T!FOdUx_FoT^(@+2OO?%FohetUGg~;X&KonNl;uHV0Y4lT=-u&OS
zUjOyU|Cdih>$yHhoq;;B=~Au4mnWoca<bwEUE-|TJ*^luLX{A)F1xn%cyDo-ysC5m
zd!3XvxLcCJe%Gn{QN&7x`C4;L^4iYRc8ob*<N93H!;p??vYS0Ww)ASK29`%d<I%cC
z70%(juzehg1@S|7*BU1Y)zEz_=pK(6VM^-%c8lQ4gbG$3Ypb|17vhz$S&E`Mk2v1R
zWfotXJ{KOY`nk3*Ny%XvB9TyebI!V6l8B9~{br_xdyP>4I8teYI{^)pHV;w`&A;tl
z{KK7%es_==N$6=o^6bNZl7q~(JvMvSc#+efQAJu><)H=r($aF3^@JwRB=lW*8Ms=Z
zn-?j}SlJXXaxuVOjGwyAwOB5ZOvZj(ADu1lJounLGti%t$pJBmaj_i9RCj+1-Iab6
z_E&P!VntSy5-vro?ArZCgTIv=hDkQWuS}?|S~cV~*h#jbZdQcRtBNdTMB`eEqZqLx
zy4?sn{`!Ngz;q=ueU@i#L@W58Sk0~vNFaKoRoI{AJsNvVeZAa{LqREa0IkPB)z5FZ
zKA6kz$CLH21DMyRi7?<d>>4#7s9e-1+QNX|w|Q;t-klimk3rf^X#se5{APLb92b0l
zrtOvKYu#PR7rTZZaVsf(wytL%#03@$71p3GLe!E!HL6#V`xPElI-GPl+?CqKs8-y<
z6{8CEa@ID+e>O$;l-||K%Ar8yK9X<UoQn|TcW>%oy?Z^GTeD&LAnc#!Ao}ce&mS7^
zxb*4e`nnFXk?e;NpUQb*z-<M9X?DiM!>4>{dgJ;vYK0ETXniQN!_EG~yTkQW&WB$I
zy;G9^$X%S=VSds((tDX;hIBv7j~I`uXc9PkN)r1zQT{ZqHMLeY8WyT#AatHPAs|=h
zt)m#HfkeQt`uCB{7IX8~lnkSB@&K8N7*$~4dr~e3zW^rmbGSAutKVk3B5M9kV!usN
z*3FWJ)^d3FQZ!lNTWyrcyM320B3e3W4#F~l(OJf`+zhlQfwW+#k4;oCA|R>z;H@<!
z7oi?&HGJ}3ezuufz?QCmT3{5mqhQXOoWwoYYH;hc^DuG7UPQ)+L?h;_nDR1+anoT_
zSH|U>rTa=5>`gsK8M5#jhc|KAEJz=zZx_>gIn2~^Y~sWA23w{O(H*+TwX>37E@jkM
zWLZmco@3z3enK!*g}VMq9z)EDa>j4qY}epVCR!$)@l%vhZb|p#Dp<5JQVVfRKg{vC
z<oQ0U<58if+U=gHn&R$hapWT<WJX#^h#-Rhvdfz(O0xN```@!}Hxw2RdS%HynyyKW
z4U@g{$el2sq~M?PCy?zmG>Hn`UP+`r>iEK>R;jWzWy3|%Wkrmrge1T!I$GM^GWBho
zhX%K8R*WI!p<&uMQ63_%NkCbt7@{;e^wdfUG5GzP0K!g^y~FZrtJG(fNEw&$;8+)j
zoE+ykV`YSUj+sAla6`IS-LY*`7~MFns$O;`R5Jafi*`baSi|5oA$Gmpj4g^Gq764R
z_)9v+Qjo}wY}||8YMKa-+i&Ew-0S(u-fFox?xjAZszt>$sjZ{qi5Hb(kJUU8Q5mau
zk-k33r8V)DE^hD%UN`EwBQ=Wq;$nMqN9tZ;OSTlbbJ@>Cg~scA*vxyU5kVb&r6m2?
z1ih{&Xg||4$0>ciZ%CDfV7jK|e6CG25bB@PtnN~Eb=>zM^Od}jb7(^8v+S3L#wN`s
z(x&<X4GebErcpG#@r^Shfm_TU$8)w}g2|DbnmgD19fDwXvDEXTG=fvIe&#`}gZD~M
z_*J0>7%@x%+N-wi8BaM;#|4dgZPx8!w>~_}63=u@rMGDTQTkqIXLi`3skU;h@Cj_=
zWKeUW=S4v_k%&Iw?nr2f{rV1=kN@f7#N^04<F}s1JrAE{H-Gam8qnMy80n6QYwoJz
zp=$T=O5E%B@B0N;C!Vq3F_YDu)5(9{0spHk&f;Ek|AFcX`<>zIGt1t&p^{Jcj{swR
zq9y4>D?nrpU*?zL?~r)tN(f|T99o);bNt!GqFrSkkYviN)f5m_@T944{H~WcAR5R7
z%S*@vHz#hYT5GOd_@#7;%ekP|vK5WMnU^h$*EXEBPdok!sZY?cmBM0J{fEi5^+#S6
zV!kie_#X@2f85i+O>NL|g`gYm8%rQ}F46u@%tsr1DtT`Z-R_Y7gNMkKz!Y24Y96hS
z@Y|#+7CqCvK1sC~!w=ff&WBz4UE;K?^CmVE0z3>do2*00ZHxztBD?8>DHopZU)0%E
z)!`m&XS7Tc+2vIGI%1`XlTuySsjh;Rb)48PvQ#V9uQll5y_KHRmocmDJojB4dK_Nh
zpXYzk%PJGZE(dk1&!A^8*jlLCr-?ULI#zC2zD;Z}vLRBmFem$^A-AY|eU(=l%U{ma
zs;dsvvC(_Eyi<un_(S87u{<vWN<NYUYo^O?Xu;D4`<W0-kMTtLR<6`8p!t-y3499A
z%ianscJgQrYKq?Sk3EKYBBt`ZzFB-1N%sYVs5qQ~gywP?a@?*9n=w?lZ*`gN%_|H0
zo}<Pi&8pr}Op8;uR?G&-HCN$-76Jd*Y`yWaVCR+yNo-eNzP7{&mtMZ}DMJ!pA7`QL
z^#Zo?K!mgJVR4g$W6!nzS#=`fbPAJv80>1-|1@o#b`Js8w3ol7*d<7_6Zh$5Y*%U5
zYtnb!wBzSgTG;+LdgN+U1;&w3-Wlob+DgT(f3|$<q1Ki$bE^~(Q%QVVT|;Ex3t?~p
z?1ZdvnW=k@^PGCs;sU1HBCg{(NM*#>kMEM9rtUOnarj{JIn&LGu7g7zq;vS@$0t@t
zW}`w(;${@7mP_oS<a_sWVCx)uZ+{KNY+!EBHMINiIOZE15AkR*aG#<m^=b9+3hlir
z!;M{}hj2;J{917MsY48H7yN<lJXvajt3Z%jUL7`Y8~?01DkXz<{a_y(S?2GM?cP0x
zwQ+SYQV5E#DrWg>CewY)7)vHq>dd`tR3)nn*EZR$eCDOTba<hYF^cLvm;crI+@#Vi
z93PS)IaS8xvEGDOwZ4HqH`Omq`x0AQUDmO}#A(t;gFD@e<P!aZX9KWh#<sS^3xZ-$
zLi;Nt!+*H{nh=rMm7PM&H4VU)78M+E8qSgLYIMh$%^KXsRF3qM&5z=p^LQVM4<c7y
zziF=MaX{BX?qy{+3-`2>%)Fcek;P(55#BFtlUo_NbB_?zw`}hK_Cf2YrAdC?j6^3m
zAD(Xgm<11*uq`cLA+$4|&iG+VIWjvIcMr*HV1x)g7*NLar);_*Bg3I@w+yTvbv&oO
zmEK_1K+GL14c_5LzYJ(Il1Fa@CbooMVc`2pm+mK5(9$`#cZrjH_l3U283cymYc+b;
z-f$bdnM)+uY8@%*I{IqKon`bKQ*1Mfrg?&Srwg?Q+#g4X2C?${fOXGgDMaGAS)N+%
z5B+tP%uprEIm80Rd4$MyU12Cc4jHefv2Q&tz(7ma97cyPO@CqB2*$3Ulb9T~$H+A^
z*du?F+Ae!<$%Gz{scq}np*Ge>X+Csnnp;V{;IfpL5!j?Wx0cnuH*aD%Cp~v>5i?jj
z+`On^8AjM}qs{xm_o6PB^)~Qsgjgj<g*PnRD;AUS`r(Wu-j8KhJ4SWRtjo~bYkps<
zSMr+By7%tN?Sn`CY6JW5xMsjfGFi@{_q|yvR;FK1C3RS^tvLugXz)YMaBc27+^1FJ
z6d%Dtn8cOG443NX5SwuZ3`&mUR=z`)E%nB72%=eu^W4<9aPKqG*hrQntR3=buTk=5
z3d*say5W)^=wrM!{heo-izFk5EPv9nIGS0=3sy&<e4m&ZK7HnFkGQa}E5u;Uvp1(u
ziS74Qbu~Wp@oHD3f;A;ZiKn9JinsBH2ge^CgN@D^dfgclW}7t3m%tQCcjILSXtb1Y
zh7nh|;;vA_No6}hq6hL;zgyd@Ais;(Q`_2RTlK24=0x6{j&`8xLf)8*$Pmh$7qVh|
zq&IH(Bq6hKEOy4XWKX!O;A^A!TcyLSDL$c|tfHI+arQr#FE>wExI~^U<Y)WYYPA_M
zOqkA6!QrWU!Rfoh#FQVZnXk!V{aVrjQZ#Wk^JRhF;9`-mzm^J*Iv8h{7Giq3DCIsy
z^CEjv-0<OMf=udW<TB;n@trfsCnMq^i_I)4!hTE*Fc(eFI}<CZa%`jUG;(YsZ`~HL
z0palRz{s_9_#RXrGA6k(>_q!pR^+L2p7>>%^(_M8oSw4IiiW|kyvjl8RAN^qY24?Z
zuyU8<34=T8S@&-<ME}K4H|(Puu|_w4>a@aF4Ej&2<5{pPO~I<J$4wT045J&yl$3uq
zR*raeO@yRB(#IwQ3ENUU>@lIxd<mnb)Z4lHLCAM&nprTfDiD0`w#KfKcUmvcnLEzC
z42{bcn13cz))av1HO9AuGfu8T$o?tK>U-Mv@Nxco4MH!ZGx(*=__!owigxcIYrLfr
zkWL%Mah2R9;n+{<sdidYt+X!!h7!ohWqIzsCok+>nZNUf5+l_8*&6~TNP#m392fUQ
zN#x!B*#IQ*j-T^6b`Smy0YmE^41NRFh}49c0hHZsf|P7P6UB*kizF9%471_2o5<AL
z_r`da)5HSFB8$%&3p@PHCU(Pbc3_OTqJm8xq#qhA@#EczLRRf_?L_f}4U1Ip<)4i@
z`|#&d!dF6zYQ8;tlsQ?bdBR~sCkB$?y5GS6i5{?jkt=?3GMF>ag(F21DP;RuomQ2W
z1f~oaX86%7RxbGP_1BI&GsXGyEqny7Jn<50FI%a7lG;MK`SIg68)r}XMI?Vy?{$Ca
z^$`{Gp^21w;YGj;)I`Wqx5EkI89{YIzM9*TA{1`3^^xO2Mb(SWq)Wt2v!;aTS-BWA
zw}@@=5vfPUTAHp9vN`fy`WXC~5^gAmZC|_Xd-)LuNAa+l$PaS^4fq00bWQejSyaIG
zjf2nURK}#aRUenu;}@+`sU=j$wpX<d5*y=pDODdkvfWJmm_u`M+M>H*TkRB(Gy^^&
z%7l-wh|!Vx!AK3VxpXJYEVnCD?~BiA1>z@OyL(aQLlVT$MN&-i9;JCf`QbqbdIysc
znc;jvo~rY6o$D4@Eu!pdNoSR~wZR++)`GE-d2}~BX~8@7QkM%;GQ1r`cb_Z{KsF9B
zNdH4ugm1le*1o@D5^xK>?)SGYE&V@x0n$eE&lW5cw4ZIBCfQIr113l7je>7eNaA6l
zANQM_E%niyiTSZr#!%(2E?MNm^5i0d5&1b*PR~2`S-{A>v|rnG210Ktja|*1)lxS}
zw)l%8Yj+;2-D?$}A24~*t&tYzN$!1DiCvjCydHlt+`)oy!Z7^oJt@I1p4SI&jX9}0
zXRu0@%hG7wYy(kc;lO&QX>5U2D0UDnNoEyjx5qq%>>Kt>x-Zo?M$!v@<X%E{uf(?p
z@8;)e6DmAdI2<o~rcm+<wx!m1wi%;oP_@!+60j1eK&H0v*E9vw9OhtENK}*fL2ygr
zS?<tX{l&<vj_`sBks#{H=lJQR3B%G3yBX5}heZQsXqf4oSZtNF+1Di_ewyxLWWi`Y
z@x1Gp@z2j$D#WA=?*>64Bj^e~U#IgY-64DFLqC9Wz<oEDd$tUgQU!Y%81+d1t?vM)
zlqb~ohwH=YW<CEx<KffLtTwww&!}Oq%kE`PwoAIbP1g8W7t1GDon0=;jqg3<Xxp*z
zN=&CkfVp=<$BEkK(?PF0o)_Bz?U_8CuSmAAz|BhgD`-16%GR!_SOR)G?#9ghA-~G2
zZ1l((D`j$caYrQ!`D*DU|KWveI=kmAM@*5Yt#$^cEu0_Y@my4Y=7ppER;I-K>q)$*
z?hk%p`SBD3C~F(zcNVivrD7qOrUh5-QPw(<-O<s4`AXqS$o9|Sy0rp%>D03{>w53p
z9b`L3hTDZDAs{KIv_^WrBn{OZIO#z}TV{ql(pSmAv!0zD1O3G13QR-6d@kiK@>Ve|
zg-Jv^V6~574TaOb9f;kqe>Wd)7zl;2b0<gn8>myatE+m@`;jM0BB<;cF^ZPbS%Ka{
zwmZQsjJC_XTQ{W5ZVr(yl#v$8x_nVoYuDIwgoycmmr}8i0X_e?t?m4E+FqdY$gOAo
z?<?n|(TV=f+WG_)40}s`ey9J87he>w$UdbeKD*hw!8Fa1-)b(VV5oblD3)CKoF!9F
zB%}OE0oFOQ`}rQap5DntS1(C5oUZ965bCw=;SMBR9lQ7z@qSIt8oh_c@y?CWI(FU@
z#7{>DJntgESB<U@VcXRf0#F@X(Pc!MpiHeCzf4g<pJ1nb-2T~bp5Z3rW<1;6#pd`a
zj>+VX-0wlrot@miZLjRtVCBXmSoURMu*7F7IBxaQZap7ooUv2EJ=tkd$sO7JrSW@L
zr>gZq_iarf#WNmu>8fSSGQ%1{vRn6cbbAOL9?HiEa5e|*kkZR#zqF7g8F_mr`10>|
zE?}$hYoatW$4Hd0_^|xQl$um(%}g0SB)eN4P51)e&%}*5g#$BVYi6Y4nNZZK;HD|#
zX+9(+Zp)X<p0IOE&e+xaHnmJ!lIrht{6Pl#R|->-JNB!GGsf)iL*v<R%J(xlnhJH|
zQmAfautm;?!`J&%bb5GYozRErifJ@Tv1wB%{3SPZ=CAZni68`#!ABqYZt;k8aW5(L
zw)w2(cgLFgCmnWS7o88gX0<b3S)jTgF2J^;JD&gSv{dtVk@Trr42bP$$=;XV&<cVN
z>pbd+sAClgW2#8ijI${BdciR%VZPb!FAkSI<)TdhqAx)ndAe&qV72mslC;3hiNu}5
z^<Rr_IwJY1xUZ0zSB3mHPOb{!{}|Y-;2Ykt=!uRaN6RZ7E`g2o<&+D7JB6t5Szg@-
zQecHaDO}$rQWbfb?W|wiyT4QxCWDBT&UpvV=RbW%j8-Py-g8g3m}4m}g}1#@3|i4h
z@N?>&rJ}^)WFgbkUgzBj2P7qpa5lqsl&68T<z%k<0&~?;2gzHBvE2$Yp4(c)4COdp
zWP?f84_O^koh?&Cb}M5~w_}2&Nvz^$Gj75%J9KAlpnVFLWx~ShJLZ?pcsSA$cIy3%
zUO3UtZ@8bKYT(-{Y<mb&kc~#)TohE=ieagIq|CwfbW^1AL(Q@*1ICbjZ{F~wua*|B
zhrYmF)SnEr?pfQ+B&gHlJy@kCOP?O>*J|$P#Zq!13GZw}{f~ttaFaLBI5@5z+6x#W
z)yM%Qkna%rtg()39X~^~$hq6}hB11nEFW=xKJ8>n<FxY}OOy$2V9D|*!=&aP4Y-^j
z17#B&E1AFNdreDL+jaL<-IO3BLz2|*EjjGnvdB<j1)$9_w0*ab_J8No9i+v;+l097
z>>G>`KMZQUH%1)HOUdREo9yrY6kPKExe<>r!H7rSG=`i}vN6r@9Q^l2Z(}9Tp7d%D
z5)`W#^|WG$K`A3R-RjQ#x&4+}uYpsdZLL8-e*ZHHF9Fi|XC$9J<nZs?0@VLuPn7u$
z30q9Pyn+IyhF#p!JWxH7JnZJk#S$Zob?=>ffQ@*~DOX$d?%gEOr*S8bufM$5yiocQ
z7mG2EdPIl}TDCXe7|jMg9rN{9D<0$3Zdi30m47Qo8yiH#<zhF=rlzLS>+9>G!4t6H
zm!AE_*$?`Q`m26D43Tc0%Xj+v?9>i9yeD1B{{a*?o9Z|&2+pid9&(Ctu8VBR92!)C
z&Hnrq$TBPYps(OZi7j>|YWr6VO^rU?$B!Qizl@DtA^v>-)#dl;!JW)}pZmqN`16a>
zIWbOpe3?tL2^*=>=Q5@oyrNolyTUa*9pBd0<_CVhB<OzIk~#Q%oHrs5g+ke&9U3H|
zReQP+gh%q}bts#dxHxlaa`IC%iQ_~MFl`*T3grtEn~>~f35io)c#H&PZ=<^@gm$q1
zl#ms5FgRT5sO8iYS#HnD*d8fGKOAc6?(QD9rST}?<{SKCM&o)fA(%xFO1G5P&v&2W
zHTH?dQTsEA#<irOvgvso4p)yrAim0bj}C3_Qzl4Co<kqs=coI%*_VYXH7i#>jC&gU
zj1}xG5JO(N`D`;0)sv&sttao(ovEh44cqK#pX<(w`n5jWo-gM!9ud4Mr>S)noFdq*
z<INiW(2--K8h1WL)6~WbZsj}$H!z0$UUX<SyP%)|a^}URpSpbL`b<rtuyJNuiSqk<
z*=R1#sf?R}MBMDc*5V-cWX#uabnQZs?~`Mvb}QX`^THwS(?4GC_!GL+9*k7FOIV^E
z#zf?$2-Y#@y2?y?t~};oh}LtS`u3tZk}?)7VWdn%g_hV<jU>0JN7ASh8dA`GDy8Yl
z(8&92cVOSrRL962$|+9SZOGY^$+H9kX$2Ui>70bkCdG5Ggx{t%fLN^y!FkO8eBWMf
z&%uEFzPSIBjl}g}XMMImMbdu65Wy3%`uQ%KkU<D7$;@atBP)xywYwWGd;jMhl1~&B
z?~`YgvAgS*1(WY8`Kzmpg*)BpefC}YinzL-zWz-@M)3I4i}IcY9DV9(3O<dyPdOak
zB<hWy7SOi43_Wt3B|@Tq9VEh>)U&@Xn5sq{>@h2NjmYMDkJVC5$2i0qGu6Vq7ltbc
ztMn9pIA1dzr()BvyHM=LSk(j~e>rTIm`|IPZ@8hl*7e@C^Q{F0`rf2q>DfhZ>qNbM
z#eY5g&uI|4+aVwm7n|08Tuha)uigCc&ReQ+dn#J0X|Mdsa4m4^rKs7qWbPa9O@{le
z92+G2<$=X?Y_Q(@S-OxjoJxK(qOEhRPj9#&HmBhlLR&Z2FkX1SjrH}+Q!!r?H4e6?
zzt-cDlal@^vMf<n2YHvN4hzeOI@rkCTKcYerok{vy}@WHl1d>(xz<Mjlioj{Myj5U
zt5c(YR@U7VhTRQX9@$a|IvCQDTdMD}_4Z!zmwV86zBkV>tvD-W>cuf{szH7S-@5R<
zu5_iUDei6_wXp5DJDh4^n@qx45$m58`inK*rlnEsKveL|kJk8;g2zJ%&&?NRg6bQ*
zL2ziu$Vb&{4dC4UG1SMl6XWGB`k5Kn>gw%xq@$FHsHo|OimElxM4_mM;<kwKNb2%i
zw~W96K^^YEzUQN(qi)5PCA%SDK0XKSjt96=akyi~J^U<Lbr`X%as6_3s%Q9qW)mIw
zN^a%+xCvm%4}d@yS-c{gvcl0{VoMnZ;N`}A@?@qrJza}SYm4Z2$6`G%IyM+Bkvuqu
z%hfO5TE<fd&D_DG+((ZdHJ+QDH7qjA?{e%`r!KwZkhHTFKspKJ4q}}s2}_F^M>(Es
z3^~E~C0qOpjxwLyTNn=~sYwinLHt;%f=S~aAzJ(iTv*CCO>>O@WoX-6sHF+%$n4Ir
z4G+Qkn%Mcz%nZ@+43*$HD6UMaKcG1fnw8Hx1E;_Wrg-&l)&(u=h24FXpBc8m2z>yi
zEd2E8Qx{@ijxE-kSIVw>b#Kriykz<bt9rE}vK}~Vs5*3G?yF^~-EAuzPIIIG!)^a4
zaFT=l11gD9ztN?l(w(lfVSx?E(SH5F)XvVX0{GlRvVQdo$uW$Wo9)bT#@99-Raq&U
z)b<!cz9HmIjo9k9g1=Sp8TXl*eI2S;58xq;H)_wf;Q%<)`s1C?H;q--zJ*^;zMy%a
znUtLTT`kk$<vu+U0fzYRm%FsrD)UZYylkI<V939oDrqm-c(A*u^O{>F=q@5qFQf+v
zaPmo<;r|SbiJ&aZKXgFP&CM<K0zox6Y?fzmVKU-Fb#?Wf{vr$RXDr+!cX22vZv;rH
z9H$BNnb6E7!k6Vxy(${2?zw~5@>bY^Wr>YN$cTIX>(MF?t1*zu>N_}nsRp8@D}dMT
z40YJ9#Z^|04~|WZ{oh`&*-G3lpZNw?-<>B8t)Fo>j&HU^*kC+&0+yTrba<<}b*2AU
z#$!qQ+tcuguui$bJ)d9i4JcmXuiZ4(7g;Y?pHBz&AV6`xuy9ez!|rOQ8;wzm_RH3d
zrXct_jpcp#2`1o{N1bV7b-|<!*N!(=Ww=;$5E8}G8BWj_FwFOp3##HbNk=a1drH9l
zFY~d#0$cX@4(SYB{z;Nly1Hz8J#t}!V<L*S&julWV>7l(_6|4F*x!7Os02>5Y@PEO
ztzMIc0#`YtI&ZLClwS&jzEuk+3xZK9t_kPWIN*oYPQ{8lAW#ksVP4NQ`5V%)Aod&{
z<WE$%8D|YGgHMm1t#ee-?a$Ru6)ht!4x(x9<zAwoK7xwj6AuBHM3v0D8niToUn(b)
zCMLqyroLNYJqB0Up>Gv^rvkk{#{{%@Xh!CjOK<E~1B|qFg1eE%8=9%J4U><V!z67n
zA3ThVjEK>Pj%Y`LGLlM~XlkN>n*GplaiGKzuF3yihZnYKOwYEfg?*i&^-ey(Z0T>?
z)N?mSmMpQJ<fj2+5gVOe`36X7J}D_5ilM?-0F7R;>wpI+<Bc$Cu2XYdLkR$6NA&HA
zxy_Ak4O;fQ_O1Y$FPn3?6+JE%3iA&-Pp+uT1uparj^VaQ6Ep*rYJ8ztek!3eEqHmn
zAv~NkR)?hkV8fB}(!6V%3JT`KvGs+G$8buRQy1m;wz~nks)5VykjN`z_;3(au<?-T
z*NbVg?&}VaGfZQ?&D=+(xi5-RVHc6N>ZXZB!9jzS-WH3z8Gbu2(r<!G6Pv)9KrKQy
zkVn`-WQXs4sOYMl$qZjnYV|Sq{LmH<Cuq^J@xgiGxY!pragu$D{BIs~#xY{;I}@T0
zlx-i}*kECPX01I!Pfw2p|MBikQ-Qn3Shy685skD1YF^X!cPYscfV2+vs+g6rIv)u!
zF&j%$Q`2RD2|nlQU_IGdF@TGe8Y*&)t9TAw>6SXubz1I4T&bw2XlpVmJw5%2_R2pu
zm@+85lPR{|N?TM?lh1BN*1l&@g=?q!s(xB(Dy2#K>#v8Xz{LR-IyZR?Nlr;Qw=~|M
z^4`DPxs4tV05Yy#2Gw!?-L#M6y#?3hktz$2h_FJ)DQ@M>%(dy}ZYeP_F{YTW2_Tx6
zt?NV95+!UZ--tu8V?lVi-;t15XscR?87}r7UScK=l{x8b_vr98+(tNr&L(TTz92LA
z6}WtvehN;x2T8yL50`=aq#;}^r0~TOY}j`rf%v%fd5yBio}?m+;*)^4srU_++6PJj
z0L;%f%1~~X7^9cftgwZ`i-N>9adgD?GIj#2_z=4AOW!kXsvcB%fW+kudyUhdm5W~~
z+g~U~uhbDT!&Brv20V=;BO_5CKYsiGQr;GvZ}*@6ynha_3@_ogiF%t{4-WQrSb3uM
z)_9>f5MZoXD#709x|Q0+6?v}_)!Vsx$-*kZE2DU?w$u4-k#T}9G*$6o%A?rT;kIy&
z^4D~MFZmm&S8<6b?bn=M`oWG`T3UkS3H_AI(1o|HAn+sc;N=2BHk`bq4_96&Ao%(D
zIXvu&3R?Tl0bgs2TCN&AFhl%+^G5kDVcy@22}(wFWvFxm{;2IPy%kGn=8ft|MS&u@
zPh9b!(|JG$>qLS5_6M5|wmd=Nnx;N1wW%svoq8#C@EX#Oc8qf8_cFwG1Z*^q)Q9@B
zLjkQ6T*E1=0ordUNc{Mf1^;l+K3F1Hf8*y()`t82HQz_7Jc?0f-F&$tt{TJh%*3#n
z1RYK~47>xSpR_gK<5X<>_Sh-TC9i=G!*vO|5LuVDvxA{0%@ST8u$hN9?X9<e0bYs&
z1jDU?8TgI}$m>47xZ|qR4_OIu@peEz7Fdndw)*Obm`kUx^Ws5)`T6B3v&SZ}m*59o
z04+vGNMK9Q#1CVuY=Q~hh#mtUF6_Xg_NG|@*z8$tE%ehA^dbRp#WaAb+2lRZxc|>$
zX<cc<g!)nwYqI}k(dvy4eB;O4s1?Z+Npr>yP{^+dmibIH-hdW?Fc}e-R?%@f%fTTG
zQ@;X;Wz=6hsv)hQ&O|l%PXBNPHzj-qx@1R=Q(3WAkJw(#08r~wb?5WruXwDF4?KXW
zVP`IlLm&6??pHfPjzM#Zge~Z)PU~=$iI2gymWDTQFe;hd!M{^3iq8F_UZoz4c%b+3
zfrIu|LRtjX&em2@ui^69bWyWB)x;OlPr7*N{_KYog2*X7Bqar6#+?reGHm;&xFObi
zEV8Awb=c9;GDQW<)&|7EUNEs={ya#xLjKLC0TO_0gg|W?!nTk#H8ox?r#O8(bj~BP
zmu<nH5)cDFR+>XE-wW-Wegk}@8O|YLWA5|w-Swyu;3GBY0xtI@$y|jua{HGrB4E8$
zxZBu;<)=AgpeH>@sTl9EuzEG#z{tphmEUz51Xtr}G|TV`J#WZdMZl~RWWdUfLZyB)
z<+%=|7U%?*s)50n=}cj|8QwIzRME{7&?=bf`KmKqB-07{Im0b?T|Iue+j6|l<n*8R
zg<nbvZH*u=4JVRkySi#xPBJr_ak^gx9uNfG;MmXd^78RA{}Mx_v`f5I<KEt0OAR5D
zYAmY!RuiEe$2I%`be1Dmo4G0~0VKG?P2;Kn=8YiC0W+;^45{D5>1#1_NUAo`X%$cS
zQrXUnnKF*zSSA~-FTYj~K>J+HCX;XK8ox7k*|D)+7x7@=15x>SK`MwkE+J^ugZ^E#
zW9^qOU%U{NF6}8_%oopBn&X#}mK*>62VgYMB_t*ZAS?Kp0|+~poSZysgFP}rkfXfc
zu>Lk)-`1r~W6Exzm%l(lSB92wMgZ8rSi4WgACKDK8a(RY0wTHL8Kl3|US*b-4Z+@5
zR&|bdcY@LZa$e1%$b8t!)O3nER>8mNwHJ`<&thS2ZjNh;q6Lx~DC7P<4O;_SN=iz(
zhyY-%jK!1#6V+zKW2J7rEf`-~R!M#E`|RHvl9{#_((D(4@!@N1Kgz<57pzM93(W|N
zfI#trn(_86ap0?xuw8qK#1Y36{0a(#!3C|)PYcX}CS|{<#-HE-nCYJ0-Me>(|6yX2
zOhJKGx1K8i1_60)*sN#z@|=VzOBXP}Gw<qO&(Z|lN2`6Kj02p<Kuz$usQ7TwCY*O7
zlInE;aLp(bNDMxpIrbs|PUA4~;dX`E^^^<dky7ocQa+dI8KC>1rwJ5{B?Jn5jC&<@
z1w_B<4Md#kddo?fGeZ6HDlQdLjJaW33w44OtAk*7-2S~HsxQw=>kQ?<+Rd@x3AOv5
z%RM)<-i=T}U*b3Q>Vk~JVoy%9f=~UL_5|oA$3B9CkB{L73T`>&pXEMn#q(Gh133J?
z22@N^vMUtuAP;)G(-ijWDMx9VM$`e(5w_J2^9~i$o6w&75W1lBl({$UstaL3%B<^R
zpOQH!E(dr}3T^{iC`W-}+Bt^fiX~W^?h<Yj>sg%_f5Q@lzPz^D1I&<t*qq=N47;1>
z!Nu<m8Y3T&wq&6+G(g;9(C5Q`v?Yr#>f5|A;sy*j=c`~v8`{6LdL2hM7d?nn0M7}{
z2aR)jz)B4vvLbSS*K%iPM+Mk|-2Ft-r#X)M7d^cdp$mP5y>sRi|FOWqj4}|z+F)|w
z-<Qh`q{?1K{qEdvvZ__y|NQu<3}~jd+krV7UJgd27t)=g04V?a+4j^dQ7DJq!|SG>
zyAqAnL-)ZfDkFB*F^EimeE`QKu3I)XZ-t>CoM@MpPafyX_}4|ie;#g~Z*v9pQz}!F
z{65JfKmAnR6ZQDM4`pRcxckl3X*p=vY_gSWAKH<&2^#S1{VLEw{n%ccX60P#2Sud{
zFtN7)YzG=ED>sMNPjE8AJeRcwx|A0`ywKqZb#4dgUX>~1W>f;)%AJJH-t=NbfBg8c
zxzxUHVQ=-<)F<+7;2ZANIi_{4A`t2-5Kunrx)#F<0L%ZJ?v}fu9$)eskrMs}{Qgt(
z4k4>4^xN~(!IA(Fj7+FYKqMIiS1}CZ8I$Q!bm}ZdHx|ix49FT`Spc+r5QoxRQ$zqI
zxyaVL#w85MRVs#WuKYrP?lXcP3Yzh4H$X!sAH7l`)mKzOEP!{-06dx22CM>O7H(|z
z8armCrdp|bjZ`K*u`&Afu-X7IP-07{6)~%Ian0^R$b#lX8z==*ALxY?wz~;^5ZMc=
zpZE78tg7$mNi5?x(~?IgW^F^VKt8I~L;$x}tpCGiB*IcOPSnlse9;o%cmmg{Fj0SR
zd-WF;>oXDA@$UK)ql+@GuL$WS*V}&sRjPf^Fh7+<$61gx+ClR_f0Y46ZZu+NHZ^J-
zu<;{#TGhn7G|RDYQbR82n@V9{Pbs7yfR0;27t6ioygoFt!R|9sNql!HoxRXUAf#K3
zGFkxYIB%(dz1c0`3j3&?c1LwXc}Ek13222+N?CuLBp?E&UI<6drOcVAG$U{t-EDo;
zYeE{fp`;sH^u5l}iXWtEj>CE+eD-&@sOx~}S2P0IXW;wy?@FKp&&-*a3f<^bu+_&Y
z5z-S6>e)nrj#fM{;nyw!<ffsY_W*4YhT;IEjkA=$qD!rJTH-G)XTr$C7a@f}7LY>K
zq5%&$1(ZjL^B^f&0(53Phsy<h`U-A!a$L4v)rUS9F3<I#>0vwg7J;m>H3;XDc5b0T
zaX=l~cP<xTHdg%g&lDhUO?za#4=oIwKNvXFy$>)3bs&Fe6Jy!Mi^z+Eq-<mLof!^9
z06=i{)0!E*$=+%ENmh<0OhIB&>;cTM8iVj*W!2bQEdiJq^=qY$l-Ub-B=@g}ia;Ys
zuLvOG7U*gf6M)}EG7xsv|27{Up4UL$_o0%Pv5ug$u*Pw#kOx5V9xuE5^%*|nQ7T}0
zq(#s$JJCD2Q}hDuGFBT%I}g~-C`hmsz!MWJiY?jI*S@hC(m7o%(8AUiuUE=sI8i5`
zux8T9J-5ok$xq+&GlE9q=rID4><h4_>+<I($7!wrb94xEb1U@5QvQ32ZNjen<H3e-
zN(pGNqlEEWx-(o4fJm^#3q-_?@Xh(P>u?^mM(^Id&bYU79xJIG;ah!$W^f+mfcqNZ
zW#0f1_ein59n+?ia&|P-@+XjK*676hU+MV_ohBN-l@0ZwD-fBHyToS>{#HNCOij=1
z0!<)F5{exUTg2V*Kvq9g<RbRwcQXT(ZTlwVOe?5QYkPB@X(W~hG+T^ks|w)8SyeQj
z!P2o}V3;V4e!5=51#q~bo76-*K%r#<OIJKgp6xdswFW(O75P^TZ_xgkH%7?oGw?vb
zpB$S&v}ECF8tW|rQCuoPOV>Xeg(oBqSGYNHvc!bb$v2ilnuyA1fDL@OZDwPgw@mrZ
zUI2_|=q86_gzt~}o*W-ufEU+Y>_G#?s<Pp%Z{me<DV9=fuTp9+wJaIgcyA(drb0~z
z0Z!r{rpT443iReC_(g@4BhawDwPu139#gWbLEGs*@Sp1-$^el>-FtTA<>{lM7x#tP
zmSKR|tAk!$VZye?&n1Qq-PsBg5gU$O%iXFQ9rdp-Dh$viid;YnY9qi!Qkz$D4AbOG
zQ@QfR`km?k41S?E_PgL^Jg^DO#t)QAS{2~1$GNi%HoemJYa@UL>jMN#+-tzdxZe~W
z%`+(z^kcCAesL&whGIc22&e;%uo{K^<kL29z+k9d03#$Msfv)UGSr>!ipLSWBIxdc
zcim;t0XwD6;OTU+6qS|gX-CB7d=5M_aY3CYbS8lf5KyZU`???*K-IH0?LJ-S1ffim
zwB-T$TltRS2)d3=daavn70%k528zZN(XoV7KvTIA+tkyGRdo0hOs-%5-1Y3#Mah+k
zCfYo>yHi2TVJKTylbwuvmid+-RLbzP^*gf(9i!>RR%jkIz)Mxq<h^#i@810tb@RQ+
z%<5NG8u^t>*PDYM7k%tB+;ON6@NL9nj|zb(%iYHnb~-ysam&Z6+INl)hb={uSb%Vb
z+y~L)00T;_ni)O9{QdnYb2BqZmc^D{8!v=26>0Q7Hw4H4M@$RRS)N;229=--t(iV~
z@+77kDU;s~%Hzc!-ci%974m@cyYWn>Th-sD^Q~MH3(%uOLqqG}N^@^=L7lju5V&AY
zdHx{QR1I@8hGl;Vh@sp-duUezIfM5ctN^-GRu<3!yCXJxbOz}?(Nn9M>y%|@$5chx
zZz?ehgXoDt5JvUCV#Q0(hvT5aohnn$1qSG8e(LFs1kkm6tAT!pV~g19HVULcG*HG-
zi?XL<a3E`!{v)n(&M2LWFE!bNT>HqM(9#XbRf~c!a23UYX}$-<)&3<23cJ8I(R_#+
zXAYn;!GL>V^DjHpZ!dsCc)YRJU)lixV~%9?<l{2>)XPD)bx{#oIt0|U$Z5cpQ~(8c
zc&ob$7HqN}wo70~DRf=X=Ct;7-js=_{|5@V^HqR}M(3~G`E(z9^mBCV3h<b!7bx%8
zt~3RbjrJ<f2u>{~HU>z2F3dOI|1_Se7qz7e!q)`-K^0RKghp+D<qd<RQIf43lokL_
zQp=@>U&a3Sn}}nqJP`>H`;cEx&9<k&O0TqNhJQhbV)Nm6LptXxaNgZo#5QWZJm<4d
z(4Y~k?tPCfYMr4smDE{a%M583JxePps6MAo@u*hMA_VojSYp0Xc|s;1eUQ)uYy2#y
zi0L=Ke^ojc?RhWuSdvQKeefjcAYB{*YiEI<(i7;VyBY`|-rkr6Mg|6xVc)o?dU2wh
zxTN1-@DP2|j2<B?VD+RA=-06cf?)mf&@V1##ZAzO&BoE!MCjw=mB$K(^zQl3NIokN
za%%-R?H8iRrH=meJQ!eU6fCPK;*<aU^S|-R2uWW)IT_{Wk_nGT>832wH!aY|s)-fO
z2cjn7{sMId`K}a(7jnm-@DRBKrrrO1q<mfz+8cQ1ib4YZB$T_{#PQFOV9&!LJ@t<l
z!^5>*#r`}gPhZ9+79KfLl?AQU!8t-;o@y9JQw?Y!q$)wy1b3L5YX)XvF#PZF471rq
z2CD-sKM#HgcGko#!|q|^k~Yg({#s{gGk2jc*3-wWK@rY3+`kgNKMIVMN#bJ^G2p40
zxc~g`1zE#`N4B>1I<-_gObnzm2vx&B^x)r_7kIvDm)pSTD&uxltXwxs(&AClizKv5
zp6l~|OI*yrM7RFJMHBAn8ZDd&RO!%?_+?RJTrxuF_{Sy#W&JrttM(wRwqXcV!4)h?
zM_-dg>^!PA!ibx8ozq(=ov&f1PY?CMy5|;l?eIcZXwaCsujj<y=1199t+?xlY-_PG
z?PUjrwZ@;Zb<(4atW%SR7{vZ*PulNJ_8eO{_HYjz9(__u0ne_;_#vThbhqv;_+AZS
zk>bJlT*91A^Mp?BZM5@W39@#dUrlmfa(~z1TX^;Wy;D~Eo_KY*RQre5aGh~}Bl#Al
z_z*)&^vlSeYw)pfZA|ek$+wg@c_nzVYaRWYK(5tX`ji&ReD>68P?BuBfPHxL#D*G9
zQHOz~Tj9_;!u>N+@9>CmjpzwNL72B9zQ3iKSHC8foguPl-OoS3x~ksOD#vc-pEr-_
z-yso`!l&*0CCfi^cnwihixQ3Bte&QEsFG*XnS<QlZvAU{lh)Ido%LAfbB2kiV+cz<
zWh+;QYGrBWXz<KpS#q8x&KwSt^V{1G`^o<A;=W1E6|I|d%c*^4xO<DVU4+91G%C5C
zK-|xrCPn2t%7IJMNAiV3<Lhf>C>H4r63<*>X%>nA!$=|e+IOkFcZ%rW3k1fya{f=Y
zk>jc65TZ1+K``Tz{~ibQ?IofpG;Mn6i97v?CHmN71?Q@=#W61admMxN-Gu*K=>NE>
z;P>Gs(9`s95TK7}y;!;w`Fog~(&6U!c!!{GlKnIO8~YUsX>O#h>C1JC%Cx4p0Wpwk
zx;IYz^YMg;N{ggGY~7M{EI%K=m}Jho6UqxM#=dqYN!M>Z^5qUZd-lS4cE-=VFE6+8
zzr1|t@YQR45XSN|%45WXeP18iE^0oYsJ6SrHh*PfCuCFy)}=PFQDR)=T~su&RYE%b
z=j&t)lKyOFxs%QK2Zq=L|J>Xgkwd@l?2{(bpW71B`*TlMZXN!;0VDdwng6?|7%y3_
zUfAuAb5Zyme4c8D$2$Xa7Ho^N3K}bvxBhmDD~x=%s~M;j=w5{lbJ>dS{PU#Zo5vaL
z-glm=R)vu-WzyCbYBqL<7P5+|r5F4&79MRhXIU8+kR?$1bpPFv{xCVlrGb0@b*yNj
zw9&<Z=I}q-dlR6hvhH6L+g93Eplv@zRG_;>XjDXGk|FTfw$P{yip+-K0LVOs5JCvu
zD71pmhDnAH6%j~)Fi&B0LS_|03?Tt!h$JKdLJ~qq@=juZ|Nr-Hy?XCf-G9}+@4ZWv
zWpd8m`>eh88h&f7eRd#+I5m74$uM(VaR|@JYhTe{5tH~<DYG#+ZG6d9j46uajHh04
zF4mUC@coCILry<y592$hSd`F1i3)q^cV|buI(N6`=4lxMN(}g&%XNq0q)nEU2^7B}
zviVMwa9CSAtQqveYCA7UK}XN|J<BKPhqv>yamSSV5QWuq)$OcJc9toza?;yF<#i24
zL5$~_@cQO>;r?;1^-B>760_O-V#u^Zszp8>oJbC8_J6s*`@7Trw=Mk6hx^j}D2}1^
zS?)x#h2TQ~^=%b;5SL|0+%Y4AU2MR{#2qI-aBL)65+}Qt?35-JpEB3{&FlI{2q&(_
z?ddW32AIG?%0~U!V%hV;*-`C)nvWlhGh0jVBYgR150Apr9xzg>Kihg3g5&mFSmrP}
ztV7}rX41|je|*A4{u6)mEm!#Yq|!Xv%kMX1`BlL8T2(y{?T|QBkz0LvJF)@tX3L?x
zWY~(}O5ZR`6S;E!ZWI2Ts_BBu4T9yy!~}bo<YDUbF}l$yr1>5>;wP_dunJ4j2Mi{G
z1|H=2e-yZBx2@g7S%uHkTe;H~Hu_*g-&SFWk-`!i#5{fSL*F-^Rlp5q1`9S-M@0$i
z(@)UG%557y5=cseu{`F6RUBujwWzpx$=B=^XQ$0r*D=BrX~~fGbw^Lr_rO}D;Sj^D
zgKp|o7N{4deQ5_`D(V8YkRdEVAg^zKi7TiqL>h5BjIq+v7G#Se`xp@K-=TI!K+F;S
zKAE2<$%(VH_K!7enZcqLR~Fwb?aDGBs?2=nyGewMfx}^|^;FMRTg0OM#>aAP3OP90
z-%=W2&MxWZ5Bay$>C?p-5Y`i6M+7BIX-~Z*U;p^@vfgK9?N6KLRTk2`7eoBFXCxDc
zIp4@-_`|-hJJN;dGm=f_NXjhL4P{M$oJ5JIR6DyljtgY%Wz_57@8k_1>TcnF>U?Yo
z^ToP!woo(|Y_B3~E$b-3Q|0a+BYlaDl>3GpW0ZCEMiz5B4}JpY+n`TVZ0Pct5KJ#e
ziUe+Im2^t)KP3|>JP)^NFYqPMV+y7?t2&8&GRCHzGE9{}CV6kbHts^abA#31?%D4~
zrz<JUDV(~yE&L(8CbU_Ni?`#bDaiTZSiJctz-JFVxAH6M9_m`xryB6;Zqs0-8?=+T
zmBhkzhcv%e2>w5Nh+nG@Yp2D8r%lV><p<up+ovM`Ps#QFHTLX(j#X9XR+46Md-7=t
zS*h)mD>fNtOE^*E>q*nohRJ#8_w^sIhxwnG)ueK~Ho*xTZY96kld~f}e|DVNg4>Dn
zaEJJ4HVmc8uO~0=UJkDjd!QN?+LYZ1)ixfIMCj`PbA`{mn4JuZ>1^A`WX>_|@x1Mf
za2LsS{#_;nm*(CV9+#pRICkl3+}2~vCrmhrhevqWl8&!~W{%;y34$x5)xIv6rhbqr
zW+Jp~1u$o=W1H0m`ps!p?n1!S6fHer?j4rOZl9xifm$v7DfdI`VOO}o9bjPBA7;Qc
z5)u_>@1|!;+(9+GVvfO1yMe-_@hJWU(zH8vdd>#xgJiskq5IE?JTuK33(a>XCh{4B
z;eX^VSCb%y#JfjYTPftc&cSd1>HFdLEQf2VoBC9WZSe@xoltGiX;eA$4sSyZKV3<0
zaOecJcvV=x#!<y4KK!<!z5N-CahyGk*$7zIY{%u1QSfBiiMA)q*MpopxlzHSuo_gN
zu<e~n9&Pa1IxA)*0!6E(jQ%WlxXB?u&d?GB9uWjBS4m_;Zo_DWlXeFD(`KDl!DJC5
z%gDOis|O+ajaRqLn%f0w{(cL0Y#J%}Jz3q1M4p;Ul`McFh)ZT>uLf<T1#w(z%aR$u
z65SV$6V1)(_-Vq(t!A9?PMWsjtfnfUx5*MgTAdKuVCy64WlojF0rOQ-I*v((C7h^~
zK5Bnee^8-kc^7)Dz~X$G{H{{%)qi1w$+o5K?mb&^nuFmA@BAT2ZiEa6!xim5l!U%h
zeE44mO#IJLJ_QGLgBgD;fNI(Up=rzs(hgP!Cuk@03r?VFSj~XyHgcH`_VJy612xR+
zUGdHYx(CMkQ!#!imE?%iB*96q2E!CxJ_Ns>Oc7d=j#=&JbP+ZRnT<?bZ|fM2>d}2V
zp0h~0zmVnDQkrm+{{T?06jA|iV~F|VV2Hw20)4-Y=R#;<zF05~pKum>rYYhi=MUyt
zk}*y^f)&p*lSqN~On-b^c*C+dm&833Fl9u#fbXshkNK0=Lh$vK1chfR$T0DBS#Lcf
znF|(L*1&xlB3qc;$*yDZGFN_&Xtpy=Lpa3T9a4foHIUw(%_1ZvG;-wPklcSDW*c`)
zgym4HW=N*Y?`_}gWJxOZXovK`>*7n2@tJiviI21LfK@tGB!xsuJ*Zv3D^AO*b-J;w
zqeW{xzsjNo<w8)2AJrUJ)2hs`UI^LF@2j~sRI1FMcC+<HCM{3xB{^R))Up<`OJfzJ
zUYzjU!lj?-L=Cs?+|FMK8BvMo5#%1`*OR8gT_8~^H?&MDP=b>&lBq}1QTwUgazbkj
zmJS7#IJ@hqE=(Dph6OYje1mhUJfU4oHLY;o4?H(ueY&;OP_+loF{-dleAs4VS;0k`
zIEKCL#Bqa)A>SmDHrbQ4+De%($sW_qOS)zh2A<)L^^7}QbsId~{5_FUe~@yMi!bRO
zsk<SqvfhipO%rTtGwaBeCGND~$C_av?V#pi`eUi2Wde-TGoyEpme1gr&N!F>ad$G?
zuPWjPE{=1OK!6~_BRNeZ^C1?(LtDF;_~MaG%v0ay!mKN>BC<J?d8|<Fbhr!G;-zS7
z>ah}Mn}IH~Pu=cW2jC;rENg8g{35)1L70QL+=NJaJiFRAasd>mgPJDE*wKz9UdXXO
z5R`jP_^uGmS<WR;NN;DT8-cTIK4~+f?mcX<9_|AQr8p{uDg)~i!JM(FhrB0krRRHe
zTNAM0P8?+*8$9feJ+usy^Sh%xWeayJUWWYBD5A0}%2(Tm-IdywivQi#^gN8kYh*%6
zMu&&^VI*=>mv*eu%;X^me@zbwFP~ce;4iF?B*@6lLKK8ox0-)4v}6|V)cQ&TBkhT3
zZLXs}?~`tnvD@a}d&^{jeIB%>YidjDMf983kYRiCC4Cmi4O0R^B`GnJ*ni(@_9K<w
ze9S|5H@~xkhHa}gTQ_Q7G)E!H#Q9<M39|c&$T<n;-1&(#kI?A31?Z#NdOH)7G7B>o
z?<u!3Cu&f)kq+VrpP6_Utoda_pWzEd+n&0OR{FYwn*)ZhaVKXwWB3u|ljO)d?`<<l
zGnR=@__Di`O>JQf<Tvz?gWo8z_^tL+&wS`h34`G`J_4JnP(RGvafH$iVkZ~XyzZaF
zVG~8RTHnN*&y9;|<$Jh|64|4f=P0=N_hi`FOps^}I5q;g(IiX!VTSgXD+eibY7>HL
zkTWmAYb8R>Z{oM?@Ank{3V^(UDG$?~%c%l$;AE+DyxBbqeJ>(~Y2MRVTgP`r_^q<<
zt(rE<ncG8NZ@MW9-yxhDIupo~mm~`_>#q(A6p-QKTR?wG0v@wdaN3}kB4-n7`$u!j
zR^*E=W-bX-6!x|o%qD2robHNfVDC-pundw;l>~_QU_C&OHdw*yLa=#_^a*93nyENG
zeBoP#9roKfIb_x8JGB%5E;peD#s%_cYPv8l;`k-Zm6TbQDY2BvD5Sv!Uc=9+knnwi
zBt%24@E&uOxydx*g$S<*Bli8Jz@^7Rt3dJQ!J}w8_ml+QklSL2cRFN^N)yexWctKx
z-en%NY@JuMtbJ}4v(1n{3E0a@l3g54cB{dyv!%wSF}X`&nRXlq*~V?a-B{p{*%ihR
zCuvJ|!QG^#)L0mS<B1G{0yUZP!aMES;mvnm1?IokS6GR%`+Jvd$|ix+&^lNR-IgIz
z`BkM4Cw)v5AO1UHZ}!!m;%*2SdYdfGH~QjmKaA|#y)5myboJPmK;2XCU&D?6<i1?u
z!uIL;63Op6{?kn7^(`?9|67}CAWsPa9{>M2jE~DS8QpPsSizSbOJEKh%^)pB=ZT=I
zWLUK(NfSq?<apDbP~yJR#?yT|Yb+ZkTOJ7&u)UUT@Y9UsH526)cy+LqhvQcJwk3b*
z-rQ*vQQuseki=)!fTpV3gZOGBY{rzr4ELPhZ|sST=D$dp-HFHII6ky!X)BDM6M%=Q
z#s9(|-z`>9;JE{^B;{ASL8qlO<{Hx+-{Pi?wWS+r!_t{#<yll|`^s;fik4Nk>%OA*
zsWLsT*t)YVhSobtqgPPI@tml`Uy@a|-vi!G+qwc(KiNIPN(ykXz4g>r(bN4oAkiMX
zm<?u;G)l^b?fr2@G6$gW*bFGig-h#!insH3{QEezrz)H$d!Xj~$F;R86%k2t?n(C^
zar+s`8<nd<AR3#D@>Y0zPZeMSD4Pn13oSsCJXN((+Pi}N_a`6`{0TVnA~b-17L44P
zy0yjw>D*wTp}IsAkM#1tOzp+Ug9Qo%RAq^`teYf-9^vl9#o&a)eN&a~{K62!h-SAJ
zU0>MM0x$u<=Rnj4p&^zxs~57)!UOrsOxME#1vvm0CZBvvcJ>ffYrPGH&_QYYW88qq
zoa`pVjcB$hmIj#0!ngFT0uPxrD$%(C1XEjjg`jNKp|)@pQ}rtYBu#U2y4NM2Pq_pr
zLmvR{p9Gj!iz5a4iWJ-SeVWVlMrxHw-IlZ8F>G8VxA^3u$uF+dU#=v0%K%^7u%{L+
z=^k#x1wL6jU`kez^ywtSxmt?bc*az27*>Q2RUN>5%41Ky{Kv8{jSOAB5#y*eMtVU5
zksw#JtHM2y9?+%DsXcge6XIP>IR|Q=*EB3`|J=${Q|==KH48aH_ilG21bUg@l43MU
zs3Cf(DD=Yzh)YCWk1enHVgbIkCk{V6hO>8P3}q2Kko;#~kV2@}SM+(r+#_j!u+TJv
zN+q>)uTR{8DuD6D=bnh==((=zF5L^>ue-usrb9N}Yu>?3cINl3-{~=6L^x|)J0YjY
zGYA+(j6Q?xZOQ;JMc3GR_0>{k82^WaUFMo_8$}a~^l#!(-R;b82ol2^W~X+0#73&o
zL&UA@BHNm=P;L6~Y6^+#)|YXT?0hAwhHm@(s=Qn6`@by%@!l405k75{b)%5ogm8?D
zjV!u-VIO7u00IxoFd@VL*6m}X`&5cp;mDPvv@A8|9{i}*!Ui~HW2vrC!IEb|ySH$6
z3^(tdN$(VUkD!A16EBKw;ag)Af<vA9=_~rNeJ2^Xc+WJoc<#vx8NBz4=J^yG9N5RT
zw``5zG_|dHkJ#RF>0Ws=sp!_c6UZ@0KK>cg*|{NwBPagkDW0`QX9km(f1Idj<Hz#k
zPAEPpg&O@Upg0hcp1Q}b@QXk~4;-7JS-rQG&swQ!3{Y1iQuYG>90^;)Yv<yeFy!w1
zNBiYB{b+Jb>m`}!NZQz5Lv-LT!6gEw<6-_6tIxg<&2CClW1>FvKnVxNr%zq}lFmJL
zttwd<qRjU?*veTtgOvTd^0sJ?=SR%6AKT8y*fAAS>31Y!?{bMrg)nTUU6Qhq`tO!u
zR2$e;-2)|V=O6j^%hRVSx<j{;X$dZ}!GAYc9%@W1U`U(~j>}H}J1s|2Hi-DNs@XyU
zAt^F)^ZA1W1%njk5L=xT6uG&|EFj%iH4@}7HAuE9C5SjE{XYiA93BAz+^u-=NERwU
zx_*Vv35M|JNg5$F2z!3Rf0_dCUZ1A&4JI>-Y>i6bKMJ6lRjI&aPupdi-g0ItnfVPR
zw=f5oV!V~xX!Qx(mk$RS48Z?Enh<keOuYN^hdw5|kdHQ2M6(H`yF7*=@EY3}o*rzh
zNQQl0z1^-Ds`MZt{Y(1Y?CyV?f^Mn+#b@C;UbM&UQ0Q|@0%G!y4aIan#JyIHcdkk*
zOL)KA*YI!uS8lYGK86>%>1CbPQw&Y^1H3-LwX;6uBS#E)Dkpr+fefqab|gPNg;C;5
zyCqdL^TVjkxdHO@<u?NUyF#D;Ty2|h7u&YU&dd<{#PO->4Pw<7Vm|z3<gu)^{Om;r
zwQgZuZ9CFhq4P=;VSqeMq->x~83HwC(-v-9%0}<M%Y#srDG3<?pRCA&#DvFhZ6+N0
zcQ?|1rZZ-^%~+YQA2Px|Fs_&JZypIre$*u`j3H=_3w>iaswo>oirIO}E&s>+q^_I8
zZTV`<Kv-lMr-s><5`zK|DYajCW!hZ+qX|k%SBEFr|HvFaIV1UkVLiBb4uHHu)vrWU
zbUm?zpX9&+aE{qLquf%rKI?C$(AQ89;KcyXZc2zCE=)<8XGq;1dZs?T;zy=8k}5XV
z|3mTsB0$KfTUKj#1ANRkukv389D@nnWS)|inyybUVq5>Et5#FL%&rA!H#~OMel;bh
zsOKf%5^DNhkx&@hI5$L5HHXHrq4$RE%Y3b;wlbBudqJ@dy1~X<>5oAd61wG`l&G)k
zzoNS}mT!!2C$!B!lKu+mIQKWS15yvLYtXR(s>!Auzhgps+?UeJ)(kgF3Xym0$pJGa
z(;{=iT|p>cnG?T86yv(O7VvmYx?9V+U=)rY4$%ghd0ryoU}jFwjLQ1T@jhA0D>uH%
zyt$1F(fkNyt-RSbOuPsnjmwfKem%2>WRJrVN+?SKF+Q~44OPRLa!J3~?}#VLGf1ba
zfmmNqfAHE$rcQ-qLN)wg&qik_CBjLH;2ZN=rhPz9HiSn6O<LWjP#GUBhTT_6jNd29
zNlgPH0L*)&bfzVr_WId+PeT%Mr)-`*7@p#IGd*<}&|M01gp^jat&3Y(0tUnGA{A=0
zCsyZJy!P7-*%jG+&0P<=+X2r)pN?CTGBZiefIkE^C4>TDl~3LWg+D*}qy6{G(!uSo
zeM!B^!u$5iUCj-693-N-eC0wBTbZ{2U^{2r35a)~oTeU~4^OU%q^0d1{1>Dy<_?k`
zK4OHSu+yh^ZTU1&OW44YhVkZZdhP^VrdNQgqSJ)#49(ky6iWES4URi2PelP4u2>z!
za=oV*-(BVFMT7PK?M*&B*-8iREJ0a`LmU255IFPKzP58O?xt)EZ0nLQjZ$)M<C|om
zy)wT@eLYEjLCO97PtCVlFY#wdG63^s?OXo)^5lcBJ0jXsS((-0J~Y2!o;F?z@InDx
zmC~Ygws4W&vf;520tdnd&Q$*bfv+78R--rI^xRr1Z0a5f6)dfNFJF8%UXvWj*+~jy
zL@2I$K03T3epIVdfftp`LNEOd&1?Ps<;MOe*UWt7y!kJw+$j=#Z|g|<B!6Dt<6>VV
z0*YlmWP(Zfzj<+V3pc>B48Zyoy)h9rT0R(H9rW<io-ynjjEHG(P;L9IGoUZd|2iPM
zQM1gmU?3>i7!dIShqAP%)zgS)h1E8mG{2?oa^@=1%9;7@<_8WzCVSml``l4p7#GP$
zzafG<1dIgpr+Rti)fNh$;+_LkjyRq)ROIGcW-6(F*nN&uspTT^ZVItkC?SoyMO68E
zNY)dFwm9EvKB@o;p7J^#;^iZ0E^{wQDq5l9^hQ}*BT%IYj2{<7jGC_J!XmpR1!R5r
zgSnSaN5r9VRNS9DluxH$<feUE0Sivr!{DDS3S-x5#JR&FfGp2c>}?AL!@uq*`Z$uZ
zaU<<CN?JG@qiRe}+s+5e%VlB-6JcM%b2>b#(3oTPJ;eC(T}&F#l2kZ*_P)goFJ&Xn
ze(K$8$=Qa^+gTddYJA+yD@P9gCzyOid};~x<$j)#63-$m<5QZ>Vj?2LAq~~vXKLbm
zq46u5MyZS|&XqP+UyMj?{nX8{73mEZi125|<h$Nc$}4+|FNz=K4pg>?IK(K+6`!Sj
zeMqgbi>(%?!pu7450Ou#=cT-GX&|2{+bXt4T+S+HrKW6v?8p8gzkL$fe9N<=MU_ba
z4YYNI0;un2hGK<vN4}-M68klT9l&v-b7GLZM@eIsMif^3VzHvgC)^)YV~p1uW;NIq
zD$bJy>d)N9j$4#3RUDr*(Ep-U=>Iy6`Y$jIa;5xG%Ti$u=1(ZNTN~>R)MBjMQCGk&
zYyurD35CAjzOa53N&$X>2KcKwxrMtRs$@z?Lbvh}EYXLLCy7X<`G428F99X>m4{5P
zG>dM0!Zm)Ms94@fiKTP#Y6r_5b@H@LOM+j6TSwrPEW(LmteDO`C+hgp<cHs`c0_Py
z?!Oy}0BU-+W;>y_UJ^JoojK1lntm5*N*GnFY^0}EKCS25_2x5@7o;*E_&f&$r{?%_
z_bi;ieHzU6iA`Ze@&Y9HcUz)Fo7H43VDv+s2TcdHGQn|&i*7;q_n5`N4gjCu{|Z~-
z7+1)q0q6w*Rk!0PDikdrc1;&5DZHSBc05*V3~W~-H}vlB4Bc(pmvr-HNW;?L1MVe&
z0EUAq488i+u{D{5lJQVyI*pXoIQ5s%3n+NquzSdo0zNn?@^%~0+mD2~3Vl!GOs$w(
zAt{~5r%KWd7mXv}Ate1l&bH=nf$#?0)Vm_aYvaQ|gr=uz*L1xNWu^Mx>EJ%JeZ5>9
zu!Xz#@UUFjk8yP&vgGj1WWv?BgF9gq`w^S(mcNP#pKFR|s4&5-jsO(@HZy|J=UkZt
zeOUtZP)ZI13Z3y>?Q!!dAO`^isDvVI*+u?NQL$n*W1c^Mbuc_EGF`=&*plGF9}%q>
z9|+XGD(~ud@H;@asoVLqteFiO$-_fit6UKw`w`_gh|2t}S&^B8c<~kN=?%qc!^!OH
zjQWF~TNrLx7_x`fD{FNRVMWqvg_T03o3{ZoWfOc)zrTtNifj0?edb@8sNDY+(f{uv
z?0;^sX^Nq!)Ls+f<Azu*#~TzL#jow_jxk<pFu8*s)%v@9xq1WvU&5pR3unF53;2jE
zYpjc08I&sI&ZStD{*N#m2Lh^#dOj~6n)Z!Q2&<A`*^YRxEIp5Di`8O?<*EWi)<y$8
zSVO_nmqwz>jSf&A0T`&uGT?TbmJc$9Pv5;DU*F_h-5GF)F&=nd1L5v*Xg<-SS>$6=
z43TgjEVLsUl7+Yj3vzUnoI9TiP8YVHL8kkgDugi97I36u@)=}b8T88qEBOWC86@}r
zbRp}EB>6wO$hWQJU&$&YBkUh?TX!$WC#KZA1u#zWD}TnY4@N1%D8J|byKMM>vmZ-t
z{cqVruR?!;UWB^wMa-Qf=@Eg#4}?Ymmb|639mbzwJ|NLljRn(qnXBY1zd3mNIZ**~
zb<g$?+q8T^gm#f--!xRZeuwEw%5pR8A5gfs9}vsod732b6%^GpjhOGw7@gJ{SR|$6
z)#rH%%%$`5)bVa_(6z`!Uw$L=1c_gS)N-l{KZQbIL_Anc$@@?~XG<0?DdwZ5;(0!D
zyE{^m6cD+Y5rB`E+4H-Yt6lMfcO*Q<G(;ju+(aELmfdB#rw1v($wRqmMamu}CGpcq
zZU>8RK=?yUixfuE%+KO4Aj1i;jcOX>-HACdAl`v5L8ANH5r6aAuQ;bFMy&?gPPC@N
z)!8c~XY&!mubqmzJ6FDm3A@KYe$MXvY&!x0%y0`#Hi`LVf}2FxY>CVGFz62L<$&yC
zX;|c1hi??;&S6*sf63}zNcV~<ck$ug_}$?6+l0sYiA#Ub<E5{FyQXY9>?Yx9TH<ub
zWK)c|`%fFhN-i*fZHIJ<vr^lw*;Z7&_&hyM`yF(8<tbUQ`-uJGT)q~C{P+SL6~K*O
zb<Ua^o>;rXGi(){Nn7rnPDmoRaiI2`09G6G-m%Qj?SnSaf`N|II4tU>EbcUG8|uAL
zU-zxK@a7UEF>8snwijz10rfqrp1AO5jg{CL@}bXn6D99Yfz3aVSjWyYPIwoP-{z_(
z#Ze4u`{m)WKeQ7_I@{;}zDq`0xl{Tuu(Yebee6w4Qqr7g-^Z<{J8x#1<P=n>g+?xE
zj<&D8NqUQ|H8wxRiSgjDfq!5>E1wZN$XTKIv;Q&S0dH>K=M<9kg5YY?EE;r-Z?ti%
zfs19W{LakNmaLcU3=O>C%?<f{meh5@a5@H~R?>NSdT<1P!kh6y?FtOUm>S&oVI;4S
zPJZh}qT{=25sbZzr055dP*Zgn|DdM!h%$~aDJfvf2B%CX#0P*)YMsDIL9Ch&A)f&_
z0L_&AlmGUZt+<UDlg_%u@&X>UhvY97ayq5=I#UH#w7r1mj34h=ieX6vEe2IW)3pMo
zu~^8qg1+)S>*1#D8@DGklifY;FY<K<UH6?XO(0(yf-;z$yp6r2vsu?`?zcMe%Z9&V
z8ZAXgwovM6^(k8<xYKxw+8$QaRVZtlpnfm-GKTp3ia8;?_K|NhF3X(-E{qC=QWdw{
zk%?Ppoe56fE`~lNi)xwr?^bw2A3sCjoHHNPEf;7uGiMvW-VND7k%h3LE;f+g9+h0}
zAX3OozGc%637_=aNSFYG0=<@c!M|1g+L<NUQ|nrYH1IycXp%O@*~>c^^jLmpT`e??
zz1)Dk>)tOSC7@y&OWPeAu+<)~x&jD~`6r$b&orQls?j@(Ix~}ZCqfz`yv2AF>rM9z
z2PcJ|B&*$juYd?j<j<`EsFIi;9wLEF3MwN}L}pluMNO5{{yKZPq4xX3ebM<{-eL%z
zTm$DUF%5Aoago?o(6ID4<0<nQ35oAB5yxO2E4vZAuM*`wly-rhPEvs=&VIEOw;>n~
zKP11HY}vNK9S#qzd*CM=U=|FAM=BhM3+2f*uQ*exhY*hgs;eoR28C?0_)Y+fEr|rm
zB(Fu(V}DoN<b(Vd{K+5)p_aj*8+pejf-~&+%lE&;Z~M+6{<nDj?_B6FAN}#?KmC5_
zSlP0x{z~jW_wUV6`{mdDx3^66T#vu|jfP*(k6XWba`K1TU$wUA3?%>jac}Nl-~C|s
z%gm5A5s`q+9;1<HZjuU~sEWjz0Ck3tYaryx4ZaOAPBGX20_y)qhY0ZxA*m#nSeo^#
zWN*5lt#m9*`weiyh@81W71qWB9qoq=nt?iSK`|??dU(Hz=5NvG(aO4QA?R%Mq4TR{
zIt*P4y?!5bVvIDv&{2KG0iEKIWYYg4d+JF4{p_oS(HWhl{jBXWNT82HP4=9beq9?9
z?W39$=ZPNG6a9uZKO*Ak$ZT#%?4P}4H0r<(Zpu1zP<eB?4qdIERb#6L*JGhqPxw%c
zm>UnT-Z>#ybQyq)R2?|h72?<WeI&AL(kMMQx<pEx5Ij9NC>_fBZPnSK#!a&HQU`dQ
zFe1PG&v&D`aLTT*^?#xfLoP`Lc~QH<$~J32KlFpLr%d``=tSLqM0N+LUpYGwA*Fr3
z0zAsciN-e?PwQwO+|U29+^N0WEF!@d6T7FhYi?YrQ;@7fb@iRLJ&Uw`|EMd9fQ7_I
zw7-kXK+n1B?|9yr&|Nfl*NbZ#3Eho-s&km(Tq(S#qvl&B!dQWZQOYMASKnwbZI1N&
zyD}5wCdBKDM{U5G`S`bS8SU1(9%bpsjkmj?NhjxbuD5#&0;SJE%uf0r(75XK{h)wU
z%a-hp?xxNl2)XZV^<_)KGm?b!Dz4Nutgj-%0-E3F0$F9&Tp!Obwp<iUPNf0$cUwE;
zK;@Q%FpOn<md_VL!_jEJk?)Hj5!Y<n-@iI1Q&nLCrvbHoc8a}~cN4ju;GL4dH9d<Y
z^l#{vf?t(8_um3|a&!Sd{>o-}bz6{C|0{<Y$|swqpaQHY3~zaYkS8ARrJC4@n^IsC
zH$Lw+9;f81(sdPlBpHpDceJPP=j#J}B$^425S%8nE@7jClYNO0wD1T#V4(VEy(4Ys
z(aulBdjy*Ju#U>ou*S#i{UmkT;AK0nL)hpLiaYwo<?tOi*0fVJ`xUHgPgozLLMQ(U
zD@nf}iN0!j#70?}kIBWXSOl$r7heWB(EnOJCyUd^&VJND()*t2IH})cNT-5-!SwkD
z_Vw#+hiV@fM|56=e@)vuNvocS-HpB3#At4A(k!jH-gO?lG<MK+#8`MS`j>$f<0|f-
zIn+LE9li_NnP<Q<w#|9>a~;HSm4d5*a%b2-*+G@L{b18Xhjz<UCyJZ&xlWeWxNViV
zLdX2V>bj0$P!x8uc_4<RJ2x(8CLF2|FidPr7{}EY)2Ll)Ge52*e&4nzy^V}(x^D$*
zynkYNPw9;Y-t`354u7>HqN{F#A7ff#O&36^Ov9Iu^U-U!>-mtJX)}m1`Lz)RE}p{c
z<$y|$3j1?zh8a2&29QUNv{A1#ybMJ97gOEKs`o?PrY%2T$HrxCXb8ovJNDflUEVnh
z*Vj}o0v2xkxDk#Jm|Y`8p1P2z>a1a5c3k`*C$qeZ^~t(%(E=Klx4s0d;RLY2rsYln
zL^Ez*hozS_YB9!1<?S&rwwB;dLR~ZCeP!XC;Z!vdbjm@t2e;~sDZP(3;To-F26u{w
zTQQE@f3DYM2<AT-`Ku0&h<bJJhg$rFeycV}uWQPyvCCe+I3~Q=cz-|COF=5r3C9ho
z9C0f!x6yNBso10Vbt&dSTBVW?y+tNjqkHht`DJsd;&Vle$2N20MAQ4DNdtIT$oHj^
zVpqN4nqjd8!D-(hWTV7&tj^|YRr06Dq}2v=VuYKDSN#Rtyso$dY=A18Z?3{ydTsoc
zvMR%SOW);D>qE8id40oJ*jSF<hHk(5WxIj<yiT3bN~vs&XC7u?a(6U|9G9`Np9h$t
zd%+?f15(>j-b;qxz*uYcoDiM(jI^&BYa{h-taM0hMsLRPWzz#Ahbp;~)~Op0UCjY9
zNAN{2Z`m@&9U4M-z?bZ#dBf2CnjLS|h}j$DD%_99miao`n#Zw!&F$MWpp`f0K$1<9
z+)5{gdNl^gJCND$cCeP-1dF(@bJ{|hHruyDrSPWBM+H8OzJ)IXyF;w(kQs2QI5rv`
zqLL@m?Kk(Xh{;{JJBm6V&C4<D3v8l4;g9uAr<<AH9aS;j=yX8aGI2&Bxau1f1Pkcc
z`Vym~-62B|<3wAV?7;GvUH>9aPp?htCo;_5WPMAm|5nWrJ{fUYYgbeP8Xvf3GI2P2
zGjiaj!2ICml0L;Y%Cg0~%Q0nDNXUyINBiWl`*8E*Ed7|lV9{9>=H~MnC|Ok5J@%j6
zG!rcP4Y2W9&a31UEK;xk#lBnQ_J^i6dOC29pQthC^cu~&@9mz;b{3F_bMJF5T_>E6
zp3X@ltvO_`kCTO{-&UJAg$;R=mMsF)@{%JqVpBpmAPae}qcLIh2sjkWQ&)QZIT|Px
zyF+F1gHXe<pNuSx=AX2K=AjN~<>qm^f04OOw|liPi(>K1wH8D`U`NeEmpGbc!5m(L
z-Dmnb2XP^wNE~v^>PGDNa|7`GXDbEIMtOId_LkN#eUy2evBRz<wP0I+Vp6BA<a9~E
z{n6iZs7WoZB`3Rlv>7v)BX;~l9ofG5y6`Jzgi=34$5~#H23yA4ZfljZN)(Lb_}nqP
zsNpZl$*?pMKN^k+fkZPWtyd^&aA<W<1|Y{RQDGc}FU?>2o>6?@kw?4bHL^3Y(_}ub
z(y{4QMh$xI97TMch?#TM=lv3fgU`kc=RDZ|0%}_{H=bd4I_!vrO@GAAoaBiptH$`T
z{P1J`^oEZ%*1^9}vaZaBn?1hDeiDoc8J!-=EjVH`wq~jkW^4x@Z&BSxDYp;YY}<I{
zB{Ph79NL5JQyEAyMZgZNRRh+3zbSi0v&(nf0iPe3x86~8RQNC_WK2|W2+Qzq;JtoI
ziwVI-GasM(G$!mwxRtk`4=N9zotzQ^u647FU}5@CZY=b<G|R1X^j00+%~QutZFoel
z*(ss(RR3<a3A}RO-O<wb$IV_Crt)RxM((2{6%tf&e`%|YTW)96iw%~ZH2k{W;BjCr
z2>rK;jF?ZlptWyo95?=G#GE>{U=(H+w+&bc=qcvuR`J7ANY)I-)UI3)9)Pxb8ryit
z%#%^8Lw3~gf}V-fx*(ixcs6|ULZYunF7o=oRzl%b-n3;I9ZFtkYjU>WzwMAO2LEl9
z5ff03*G+9)I5b~$0TL6OOkezTyE7M~{&J5u4(7IS{~h593!I03q>YWnv)s|8*~RF&
zJ#KATH+gme#}jseO!`}lE%f1623~AoV#B<Pr9YH5cUz2U|G83!OB{Q!UEQ5kCH^gi
z29R!oyl6+wyhP<!r<e(Yj`=q-9f(Ytlg75DyTDy{wD9J5?@1@DWjt}C^R#t872j_7
zCcp-Eb7H*%cht56x-QX=DbsooouOHBs?Q(f9c9&jb}~YGxe=+wbalcEX=5d54?SMr
zE!(+qo^O%R)t440ecuO2SbqEIYuIAUUDC56Jv%afqRqNrMK=fZaE|6C(i@_^C*7Le
zZ>f9aV`7M1|G2s<8ofu^KioBp;j^<5MrlS{+X8bk8vdRigM)J3Mp{9?f~{HK2mcPA
zHFm_J-!<PDcN_8u(h$e8mO8e@WiNb-F}G3E$dTC%z!QpXVwX<<qaU@hf)vJ`s!D;+
z@~W0P%sMTyt(qY&xspV)kbgv|_qhPFb?#FGfO*U^AKNg-5kU!IbVE4bci%8%Bgb{?
znzy>%68Q==eAVF3v%HrTNgsO04&-!Sa+BU_3X>`+?RRnb^~{w&EGApe54L}{?V21x
zSWY<=sorFKE+dzV{;X!Wu`m;lHr?utchhbgzDj=?SlFdg3V^M_hlGJs!bJ^IT*=fs
zvq`gv#LU48<JIzKIkYuZy1&+0esN>b>US0AKDjy@zMWhDfHbfQ&lJ@B;sHQ3fauu<
z?Nz3KNt&5adCAlMCb;b!Df>9Od+kX1_RpQo&L2FgnZ%!1w&kvScrQN>lPqE3E=gl0
z<K8|K=VVCWq4bY&lhK}WTFR(m%J=+@3oBkK1JhMUWs3#g?FZ6d2Nv2W$YebvJg*ln
zj*yy1IFVLiUOG0mm#Sgs?3@{NRukyi(yaGn)(Hdg{)F>Q)qQcTnC9aLu&#KhVMMDF
zQrb1Yi|U<Qlld4xy<soQxp02{=-Hw?SLd-gxdtZ`o?Fcae6N!D7pmS;pF1DaeP?5$
z*V-r{uxSKyAZHr$r<N7M*dstgU2^bdU}E^YcL2@5#?iIb>xZQIG9Nb<s_TphQZry1
z^E%AH=io{~z*sgQ7>yYZ4XH;3i{T^z{q0KgzNTA=OjSA@k|oEhjrVSRE+YxFrhpqH
zyTnZVM8ssT&uDHNN3#R0br$)il6ub>a9jS^G&6(p@F)FEZKH7Lp7c4xq7v7wO9#VB
zYFp675EAVDAN=Zc`1Q5t!5H0a3ictUe?s>@&gb<x8J}ckQ^e;yv^?6MW*p2-KLtUk
z`7^HGH^;gN{uw9b(EKym1{Zt)a<diWRy{Nv!wDAKNM@**9n>O^gDZ;&W$w|;$A?|D
zRGW5S^21&;#@s;Ug3E$8OV+6q@O!BzvgD{G>~%Q-&ObVGwkXHdoCGkH+|gbMFx7FS
za*H6>%=rWVwglOl>wl|cKd9E5K`pRmO#Qxes9>4X=F@%v?7P--`FoM2gKgP-SmWY{
zrOltj#mDnbW4%cHx}3RKL+9!N$%P4F`bFwW!A(~MsY4G92XTVRu1>%Vu=8t&;Z;A`
zU<U&vUDZF?5hHrLerAayUo_9gc)O7gJ{#v3<CX%|KLn85ZBoqu!);}Q9Kz=#wI&;j
z+bg|lhLMB#B5xBEWxV)+-*gb~wuFhRu|MHSwk*)IBib(}9_}yAz6vUxW53aXU0i*<
z)bW{KTAgax|5M*vXB~^f^XWrI6pbRPf8ZZom^r9HW6Lq}&`7rcOZf#u{;dEO;mJtL
z-t@D>d_^7^F?>OF(3*H2M|^uOQJ3=aW+QvQfz`s`TY(LxWOe2NQ5SG;A2l#(&6i6G
zkwr@#)k#+KK?2r?OI^6p#B8nliMR}>3vf$GrGBYv)|<~CPX86Hh59ENH8gVL^T(ax
zEyuuz&Zd=3eGjVQfgO^5E*;4Q;@BVjecxExu{K=l{5MO&qMc~x5;yWZV7ujz9SklK
z=Xe+zqbM%{V@Ym4MNPSsN+6n6$sU5CnzZZG{4(}_S_rw_(U(;m3XR$Y`eFD6FEhvR
zE(@o%_vDFvv%Ve}mk7{m&?L*zYt*UyDRDg(8SeA!i)E~2BNGw@Qt$@nAvQu!6g-gs
z651%Aie)@C^IfU2*l2CQNl>K;);w$8KSC`n@ARc|!kd5)sljoyk_hO)D)Yqk@$%yK
z!H^ihKq@{Ln$|C#ow)|qoSb#DYV8v{8U~kp45D)8-k&?r{!7^F&!evBcj*Vi#X{Gv
zpKBTbDUIsNpCh9;ubjVJr!Tnos+Fu0;SfElGhJ|*b56fIjmk5JS5Dq@K2SCGDynT)
z*z1b)jfpcJVv`f<NXPT`q;ouzxNRHj1ubC(eQ(Pgl1|Kj^eTE%y`Ff&KZhey0g4P>
zvc!rBfe{d~CR9|fuNe`vyeHZcTw|Dz%>V%##;5JOe+h80?zb?q!mqCaf#5U%#s6?K
zy{Xc9Y(8&T+j&*{a=50I{`~dzc^z%%Xs7e_Q6KLC2A!c}VR7VLhsQwmuYJ!p?}$M9
zE!mRMP-%YAImx+!lmM;V=s~8we#;ale=f|yw<N&%>+Nv~aI`G@lr2r)Asn;1?Q^hx
z>1CUuxrppduL02}#N++>2}(%zCUoGNXT-qRU7AJF7esIeo5DHg><&Z!f3TAHuXN0v
z+HyD7bc9YCD-wQ=PuVm&dU!fZ^!Bgfgi~;SJP?c%yUc_?67s(6WBMOW-~4~Oe~)i7
zy2HGG-XRIr<hVE#<<Nzx&ua0C@&Tsp$3Ap1x?HC_dk*Yy;(W9hkWYe#pn)i59(O>w
z=U1UaJ?6a#K6H=zzHHi&GTQAN?bqZ8WZjbakvGvm#zANP0<Vz_cL;Am=Y3V1pW<-h
zHw$}g+o$GO_5lrW7Kiw$8F)&M_i5u{%Q#rKR`b2rUqv2K8~8kxNZZ@uui;x%Prznf
zk{7_2WmfTq7gulVke#A`_P6P)?p=kVrw;dv8yd2OxA!)xCqLNg(1nh6vI%?@=9Q;C
z^w~0&ySGJNt8wS3qo)k#_e}?>K8^ihSGT8a!;82rCuuZeOTFnJp!KuSr%Svv51Ra)
z-47-$qZP&<ktzcbM?@cW41Zg_tCRmMV_y;it*6_zki%DVhTnQS??9iby{}y}p}}xL
zQ*}jUI)UZZwG8wbu}$t=nS+yqxJBk`*nf6AAL|pw>(C+mwwhf)r_k-FY61T!g+oRO
zOe!m8@_aP&5s0BS2@4-c+04Y&XAxP6!#VZ#N7`DC%I<E5szS^|-sasvCnCrRWS`pM
z?#sDI=K+Rg1lUp7U3tQ0^zpgT9f-CBbe}H#EZXo{qPq+oooQ*@uX$>tGg$lq6~X6)
zn1phL9;}Y2*GO8}x_!%F_93&frBhk56TqetqtcLfcU79@iPBwDmZgTI2*87SJJ>v2
z<cVzb%f<o?(>&%2=}C#<O(Um)L$4eN&bp#5;0&$>ca;`V*+ow6tx~q~!3m>9{&QRx
z4LkN&hx@QzTB^4+%ds3Sxh!ZSGHnQFFfYjI<>Q!~kry=9eb!9y`-MKYc^mZHpWB${
z3%Mv)aAJvr7322gHGRz?$4qkhu8AP=hi(|32MK+<pd(@jW30@t1{&IX@H^Vii2Su=
z;Bg2s%1zM!H|ZV60n)PyTsZ4FyYDz!UGz13R^kR*4p$S*2CKAy9L7}X?3~?g9*ebX
zaNKg2)tJ@RGy)d;9pRZ~u^#6V_qb-qw4=rrs}c9}<>D&MtFx1vwP5z47WN5&g3Zk%
zJD>-PV)v;5FODp0<(>K#ZsmVsDoAq-NN9$*NS_~%%kQalD{_helAnDjbv{}3X~r7O
zsV!a3*!?$-%?l{hr?ID0x)V`G^MjkMP-bTSF|@VKykNdMNA*DwV?Z+(0XkleSEZ}#
zh?;ct%BSd{#M-Ifb^4C9IipA2_#IC_HtV&W8>kitFSMN#{~26Fc3OR#lSvEGGy}It
z{tTvhm|hJeWMT%<)<5;vr3f@_Zt)=8qcF^Ns1tK0k^5-qm42T$zzA6RMblc$T%hi_
z?68Jr9|1psEl&|9k;GU>5$!;Ex+DU}9&H$odH(i7TrM(fKy$lC|7YRH4`&Wy^G*dP
z6v8tlI&ixtdRTc5sOhNqsYY{MexMta_Vn+C>GqMNrIjAc0XAeLBR_7{82){owggIG
zZ`IdKpPec@ia3WZ%G7VkorAkkc1F*?3k6te78O5m=<$no-TS|U463<N#q4cNucvJ2
z5X7j@^2JCGD@z}7vY(2pHw<%Ow5pD169$U&-o1IFtJ%T085^?BFix7AFWT;3l79-z
z>d@?f`izdQUHS-KLb-;aO2SI^py!@~*~IBa&EQ)lH*ED$wLz0cn*!XDHBW`ijG;YH
z88GCnbDscjz*L@i2CV|hsXbjQkC$kbM9iu7HJgH@ovX+2&?NYI%8ScdsV2u!crcex
zpJML7@g_mf@8mni@PZL)KD9M)D&0<*d!sz3+s;jJZ%Gna5u{n1cG*&?#dV>MHn61G
z;ZZH^_E5e=8_|BV2~euc*cLQVM}8$WCkYso1&bdYq_qjMHdkiRD_|lHtI}XvRH*~O
zD;Lfx4m&i7W41Sbv>ddS5-U(GWB66I2w=~GnJ?8jdApJTd&AX^DIsTIwaqA^bK<P>
zarim(G(n2W5*1DqIC~5_mTb2r+{oVi6)oH)l{H;N{Yf(!3>N$P+RjVT(H-#G#FPHN
zE>x8~oNG^+xA*T-l|<-@vU^ui^jQh^;3mQsje1xr)oBBxyAK?P6u*DRZ?a(Fn(AbZ
z1{?5Zq*Fz?PrM*!BX3@Vv>J3{!1{@|G-X?h2ka-=STQsfxd{WyY&{0ei*F#6KAg6U
z-;%7$d3fqn=;^fi$2p>FT+Cd=cK@U!^E*Ypyfm%cch%1!POJB~QxhRgi7ZNybxU<l
z+Z}A)99W<CEy}7?|L6&44Tsa?H!}yH$zLfw9mqVAVs_QMANy>GjGz=YBMS}7GITHt
zY|`po<M7!+2kD?6@SDYy0uY{|B1Hl+_xh}IcCnGCw9|ss<v+l6#H6EQM%shJI5Ly;
zq>?b~o*MM3@`I<=PnYm2OrKPko~WgFRRht{ox3V7)PXn`WXJCYa?`e12BzTrJ`|Y`
zxolvrv9eR?ptG`}(n<VB_Jq1FJP>VFmO*z!A3P%BBC29Y!EKA#!?GstuHM_x!od;M
zp(uiGjFGRcf97PCp2ac$wIyNs)b+%Q1Wh2-8>33U#t`*_ZDrXx@9t(>R=d*#L4|Q<
zNsqltnqn4S=^Jf24QyrXTUp7;?0cGVThsDL*;yvhK`K1NryuFJZ{WqWCZO|&FOkFl
zb6T0zdA9W0F8|h_`eU{anvdo(G`hfchigX9uXX|p=A5#^-8nu+TItT%AXMb((cHdL
z>U^A{uH-o$hb|8=`D*23!RDiiXPW!@)$?NuLeTh(>2RHc)NKCu0M^1K{T8mR0iy3Z
zhH5kZis5Tz0XV|J?wo+bzmzxKIQ_>m?9@OJ3bxEmH-;!r?$AH%0RRl;?9Hs+QSAqF
zdW@jY|D=j-9gDDm<i6Lq&JJ(s9WYlC+_cHu*X#xhH-q;~o(5~m1}nNbb0x8TTb0&Q
zRehBnsdzlSxZ`A_ctW<}&has;;;jdZ(s?GqcHJeX(5D<moL6UZMp|!Nw)4??bF1*)
zIc&7;$U%G<fN-jF9<;tlyMf7lx0%xfy(Km=kMQK&23E;nK^ff<Uc2e6uf`325t&H|
zInow0@bluwltn4^D}Iup|C|`Ef4IR=Yje}FV6*Q*RQsgNVV}gBYNI!<IXPJTzU;1H
zph@S;J+5{ny?G(;UCKP{87AlmQyCA2g;oZ%TS|#F-BQhVzuyy-{BC>(-g%h3oK<L<
zNJiv8yO{k~PSDnx!bOg|0V?{Jwif?!xW%GrW#-Mb<Yy>n4KLBN9H*xjTrKCA?@~OR
zg<bilf`x{z;j>zCnUarM{^V*l!s16OhO#EZmlQpg_AAJ`RJG6k*%Y0Y8lhu>sNM8&
zC^_jV?M@+gI617=^{$p_fD&1sbqJW!t{MRfea?2Yd2~m<|9C$l(OsC95jApX6A?e4
z9fqFULK2S#2U*G74W@7Pwttxh=Yw?fEBX6$Jzdf9=hKD-Gkhc>2M*;+X9e-yaVO`0
zbb7H$EY~{Sk-#lZ4YO|X4kWNurV(T<E;r83O?pSArMtr83biVt)7PEKdf0tE6WVNi
zp!)PkBxji2+l_FnzC?z{o!6UP{(xXTOz1X^mvtC%oh?hkA)V%-)E9BN77a%m$Q`{<
zNyMSC)ch;{TBn{3aoQ&*WzQz1)>Lafo%t;77sAoP%hSgfECevC<E5h?w*uL4-O@CD
zP6-ULo8MN`Z=&+Iecd<&i%wYuCiM0~pg*IUlzr&U$VesOCRb#{_04TN?mtdHJz52%
zYCXDG6>L>{bxx3OD#jptVF}cR3-r?L=+kNYxm0<IwBqSbrGB1~xT9Ga`iLL;i}3Y?
zU>63(p(KA1W1Akk9A0*445~NIQ8pib-wPFJarOFllj2S|N3*wwg@wq9g2lX0Uh!W#
zdhFooPQlN{S!R~;*%-|%TOR}2>nAEx^J=*Eh^a@L3RpMIX1j@Q98h>*UrWRJ!4+!u
z<}Gx{O~yZV0rB^CNiq;Kv7B<F)b355Uww?5^4C|(J3uc){!nK8iBDt_xmwUBT5pj~
zL?s;+F<@QtV&r{_L-=2-N{`rJ!a1vWNbcMjeV(({CCR4Wz;B<G0|S-cuwWjwPn%ob
z^;#|cBhk;UMW}tTAcfya8~}Hp!9c3>MjyV-JO>cH>R0tqY)F}v$Y(Iu?A9jq=i27P
z0xqOU0&j*p?N3;&sW-e(&~^QE*btD{-5!>B8I3K7>Q-Nz>GZ8R)XmP|>R`!PZcy9S
ze?dX&dC}JXxPfnifTjA-lB(I!(3J!w0KbBMp#WAF1Qc1<oNAga<0C+4i6y=UhLgPr
z=`N}yPQdxu$BwGbo<TaJVdkN;hNe|9>+L^VS@pqu8dG3}K$q-O>a5x&-?4pi0--DL
zW~fsIb^W6T6ETn>?)*(T;_@f=2$|u&stCirEBtQUzbGPJa}!j?gzi)_L#I`3Q9=M9
z&bILJroHRJ<;32cXmy>oAas^V1<(9c`+c~EO~G89$^gxlZG9%m9r9arkq(4D+X;<8
zpc9SzJF_=QInmvJQK;+2`j}~Cq#YWy|9H2_to<pndz~x{DR)zVq~z<22DwZhEpB7U
z!bbL5uT|@y%si8Roy1JTXtZ)~E%Rylj?$%L_T@u2M8!H>XZXXhz533&wtD_I>5dB(
zuw(t2*&V0*r`4F7b^~XhmlUt?vQ(i)f51L(=<|?CxL~r?<#0yV#G@e+u6>_oFXG~P
zdkW7r+@o8^Uu$5etJdqaDjk?pgY6KEA~<KitZG}n)gkGq|ILrvQsPST-@j`jzYyt?
z+A!ZYI2^Xj9zM`pv{ZaSaDyVEz`k%-)gZy?!yxoB=V-hSI^8viaN@j0K1i>hb_zZM
zBrEKfwQ$T0yLMJ0sBCgXvpk1A_6@yTJI4x^$p)sTR6F=Y)2d1x%lO0`5tqYSF#zP`
zQ1xSCxymhXer~qyR79IfYk#QrCau6vaE@ras_kDpm>wV5RNbsS*PQ8#sV6`(D!-AV
zcJIe$Yaxjx>1}7?oT}e7rD)v$gna#dbIbWY|9?=$gjNIj6Fa{&;!(~oPDwoNR;-{7
zROw=`;DmF5YbRmkH_E7U-)At;FnQwhcS`_ep`0R&+RKAoHkd`V*CB)MXtih4rSVx8
z;K}qjG_@KSwf6h8>UKE+;+HVv18&4!R0mG|)3E9Rvg@-_08tOJj{!Gn8{X)AJqx3L
nhWpe$;QRky{wDb{CGWjU(_%9UaFj0aqvYqDey#b%?~nfjGmaw(

diff --git a/reference/plot-7.png b/reference/plot-7.png
index e98e30b20e381091df10617618c8ad408cf0e319..e3011f1eed7f8a495fe4dbbaadbc1e3d47334504 100644
GIT binary patch
literal 37006
zcmeFa2Uyi-moJJjpT?+BR79E>6i}pC=m^_H6a^8KDpf&6x->!BCNU}<1pyUw+Ysr}
zJD5lj5KwwYK}5Rrx;OXtZp?Qw^W8aj=FH5!bLQMUPac8&XYYS`-?i4Stc8#I38l5)
zbAHdl!m{?*QN>d%EPr!hVOehS-3t7qHSEzB{IkMDMM)9=;=kELxm5hK>eA8E4lFD@
zH^~3Xf_g^Jv#@MqIi~oNrc2~t`<2_==d&qaqTMdIYH#@U?Am3^q|QmL|JHxQ!N*=J
z9B%IZZhG6c=Qnr%TF&=*#CQEqd9FWgVq3<l-YmZ5@*f)%&z=1J8rQEW0^izy_uGzC
zHRnaf`=^oosXO}a4&QTE=>7QAb#ACXn${QFH{Duaf7c{gcMbE@P6_G{f5ZGrSMD1l
z@`cy!4PTf)d3xK6o%~>1)VF!$UzT0`@Bc>rJ-Ta|82R_0@+y~Q<cm|vFISU)Z=U*B
zyv4QeN2A0%cG+hee6-KLBj;?BUBMALu?4@r#X7dakmXC5y8`e1`}bK{PYQ3YFsS_e
zv=pzsyx9HSKc1dYQ8BwQcd^M{-(nN)OD~u8h_1x3UYpkc%U58ibnWLKx4M7%U3w_3
z)}&f~+TX6b<gm51wLdRK;c}~W=FCJig@?iz4eIWTrUjZLOFwnW$jmGqY)<WNG7SoF
zE*QUm(%6`n%R23(`^W9PKC4Buwi&thMg5py){<s^tD=W5yrS56ajwzZ`*VN4Z*!_y
zsa+`#yS{C{Q(a?YDL#T-@V?`z1Cw<cafa2u{%v(vq(hZYyK|@fy?gge7G_56K0mrq
z5-H>GSbgW3gp>IV&coTgC28ihCQkw+edp%pTpDvb*l6@YGt=R=?05C`=_LaO?4dQ$
zVjg`e$9Noit9b0`xGn<&$9ISKddy8UnfQqW_jW#T8|EM%{N{nYoDr2i`D2o;s{33m
z?SuuRx!N=1NM^fjAw9UY>VbT2ryaRR)P+&$-bjb8tGo+m{CVUgIk~t@OL?6AO@rhm
zKfSrT5%+9hPJILJe$4Lhio=$c0}nIJZES|^A|46#WbEOd=fktu_BY@7bSh(<R-BO0
z61#=<(3~@UvT<Eb748fBK!5)V!^V?JJX%&ZHd`+lYDAw<EuqYQ3@Hvba*fIA3Df@}
zt7Cta^b_5koA88_o8G-UdEnC>(-qu>y${?r>%{Bsed;Nqm-alX(a3G>T$8}@JL>LZ
zWr8=-s!lz>txy>$v!8=H-R`_jZ~BjGtNk>d9p@MuPfATq-9hgkesp82azkOIWb2yQ
z%Si=u7WTPTlKNKG)<gTB#l^+Bv^zDj2_C<*=d-D$m6b5=ird?H9_66b*M1Ii%1ldJ
zlhYBpTW2b(@{Dr6$ePlE?{KY0S1Nr;jEYhTFR79n;T9{HF)3@fGSzHWI?-2q!%@6T
zqS0Vut8Jl2-t4D{LwY!`PM#6Z>0Hwfe_UH0I6swH$U~WLuI8gvm;QKzdxMUlQ@vL=
z@0E|Yq-Wk=U75c~S@^JSuU%J>%gl!xD|vD+zI)tsKHRXY!)=7e(JCf1SM89~B7M3v
zOy7oMox;qSvW9HQsWyk|E&DGVSIl$TF^Z*j-7(jg-mg<Owzrgfqmz@9M@gIec%|LP
zTS_I55Bse!G<I-sI8IZLPs|%D|54jWA*y5ZbyMSSacxg;csYwy-jmp^r>DoqXL5C|
zq_<^KzT{?6gDpHfJSTT<!fI8tw6x4y7^~RpJlrPTb6ex_qeqWAC)=;|-nZ+x(#s!?
z+qpio!_`vQxZuF|*M4?%bSzq!9q;zu9(c4QZ>G!7?(I)2*Y<Tc7&FGgpF~CR<JQq!
zCf+HLuW@`@dV28)b#cDQzCt7<*?8s;_O9PHp772c&e@Hn+1*Q7yplK7VtK2&cROyO
zidg<8C0-B5eV!e8S4LlN51Mf6T+J@(zf0rUj_6%mq-+cf?26fvT}HdeF8%q@`pU}6
zy|x{BO*q|<Rvwr4zr4C^@eAX2s@kDR+{NO$7!9|D!8l{O#Ty!hqNlI_1Q)D83&JWW
z*<XENW21qC>R{m_W5B&IPD4wJE&BdtJ^R_Q3NhXZNo<h|mG?po6tJ{caxZpF7f2;$
zf4b+wnC*R%kRU?tg_Be9KvLmW=Z-68gE<3<Wlh~d6ooKR!<@}Q=gzGu%~0?6V8vs&
zxvxjzH|d0o<_i%YyQ`@50pmt<Lp*@u(e6^gfe3N)8ZX|}g@Y*-uI_DfQ?0hfLs`So
zTfM!z$^>bVk=hS4`BlOuX17d#im)|u$41nVD^TCL3CrdExj{3mKF`vj)M|yYto-Q?
zx0j`1)xCZ<crNSiV<7SkIa|eO{!H^Nene9^(`e|dS`xq|l{k|`rCV0=I<Ct9^2h39
z^4SK7*ra>k&j`}o_i+@K2}De^4rDv@ZXUs{@k}!2r&Y5D$@V`#cfWJtlhizqewBv!
zn#K(E@};X&2z+m-vRga;XjtcLm2+Zk&Q{mYk6eb*8-ptxKE3fl@bfICxpeuEmBJrh
zI9qA^gDY=@b;fD;5w}ji;{vHI15zC>-O`8=t_y=DT(%^*CtP+H2=TG?7|<{4iLfoW
zlHUEmbFR+?QI?PI@v~<FHih)5WxV>55dm>Y1+ufR8EiTRCu_vsavsl~6W3Hzm_2u3
zv}j{lkK0JTR7U&dRwupQoED3?gy1Kta<Z~3<gJUa4a0<Kb|oD2DObFi-#U-ahv-Iy
z%6Lm&`e&uG9$v<m8;3+Z6xaUcQord)PwVuY=dYm5y$fpS)9*{dN<KIH`AJY9f|AwS
zR`>bV&J$t0o--eG3*2YDx(gS2#FU(zCcR8^sQ%PfYo+}2vD{ydw!eCcm~%u&M~Ai-
zanL$tAvDRIU&eUgVE@2CH@3)8(ZwDyD#wIm)Tu;;we|Hn#`lHQA|w+^`&O0r#iv#&
zhZWAZk4(uW=I6_Mj)l;6ga;iMdmY?H)zHw`;8-|TzWZHAhf(lkSj{Et)lqHiB<J^S
z$CE;KIFaJs9}`_dvRdkeO5ajms{7j)>6uzelZO=-N~sH_H*Hd1{UA4yb)YHySJejx
zuDo@!NhuR38@s(rV}-nZ%JjP%$n_p2Z|=)UogVhA8$Hvp$e0$a81Jp-9UE%UB98!(
z(m2Jv%SSMA(p7oLly_b?#T|*dn9DXVxy5d}%|Y$s_^h{glNrs!q*hgm$FY5AXvnVj
zzH>=T^aD=bh4(8>@#BD&mX_B&_VNt*`N7mO>mze*m525kwEnzn`Y^8N;M{jEjWvOC
z!&}G}6ql4dQlxL}?$mJFtaz*2AggI<U;vg<v5(+`Ez_OUMK2|*&3?r$xb)zPL-Z^U
zJn8AYUiq>fb|aUwFGml_=<SK1PuHGBIzJR^x+h3s?qW(Fp7vo=Q&aNh9v&Vj29%IO
z$CBK1o$F32@n>=kCWoHF^=?9@EA8Xxpbt9-HF>OihA3LfUf%9ls~X4S{QKY7cT|`?
zxbn$sKzOs?XgBYobcsL5M&8-iN?mT9^F{}dE0WKZ1%Lkh*}JN$YU^Uoz~|4pH<b1t
zxNfPxvwkU02`(FvmHzT_xoKZblpPjQ(eEpH+qTc>XIPzH_$Wy6iP4BIY3-QGm>IIA
z=C(LZFr=L{G-_{-P`d-9PK4>}>8;?FYdZOCK-SX<vCBT~LXrL>eH9gzw6ruueSLid
z>cdJ(O61CPc5Vu84frVIQt>YOQ9s?F`OMX|M+OUSn4o|t8=LK=b@t97B<<+!O^A*4
zUH*ggnU|CI9jatTv#UK4`Che1NVMSzO);O4>?)VWlelBtmz&P+HLHsJJUHloZ8dvI
zLS_diZT5}X<JedsKE5z9<E^xrBEha;712J2`Hp2D&irKUtP(D&8pg%R*)YbshIVTW
zrEz8cd^5cwUFi3x$3lX|BHU18nf(6i-{cb)>ytb~g-MV(sjuHUl7m})S9&CGJh*}^
zr0$GX8$Whq_r2PQ1{|~Q3b_1De#IX<Psj~vb}5NFUcEnkc}K=Ir}m{yvg5tTBP&U+
zjRMELul^vrGcl{n_oB6RfS+j2&TK{@W1z6BQmS*%F5<XAZMWuX6m4xchvU?DPDrP}
z($=?553CP25(w$DOMD+q^UP7&CRImmFI2bj2rE11>K>yv!jj&W(rgupXjax!Ay#<c
zwCHBPy_OB}AIFdkXO}fjj?)$ooK_fny}g?;KN1w=Iq`%P5Erei{H-Kg1;ssPd%_zh
ze~fQXFG#a`@#Kw?tG;f;QY1d{O~+YH4ULT?jUB%yzH7D_WnY6?+e(Emznsf1bO@hn
zn6C)SXtS?KkGFRj%Ix$k8_T;gUanjAd5=?n-MLxc-HAI*`QsYt2l5u@3l}3Ixu$KY
z^ZF<(cC)hXJ^ROR3dS3n^rw5v@0vZ3`ONyFB1~k!PH{fx^|^f~b#%fFwwB+jQKQf&
z9-5YCi>z^4Dnf$1oWC8+8?P!G3+7juGoTi+D($EUH};&p`D-jzjo@hn7<<&JmwDp2
zw~{px+=JY_zooUcLRWQ;-b-ber7Yxj(i2NhwuPSY6Up!{3lUT*((k=%=v38SA(|`9
zvH$kVjQMv_*#<Um=krmNG(Kzdbn3j2OHDSU=J4KcqbWCSUeWsZ7`U2*8Wbw)c6noI
z29T^))>D69`E2>^U85P9`6Af|P=YTj)a}1#ndpP`Ba_`GKbRnnSZ`^s_Y2~+hyt+2
zx>=Q4QcIEQ>_%!{T{BXO>u-+pBZX99)VKa@lTM%Rnh8{NA}BohGfY$F>!KATKFj7%
zN`|9db?@hn6v!2f2H3_Qj-tyU4ute1x%cdrFW8olxjQk7&nADe;ipC!?$)1U{u1&~
z?yz^41_ixZM>#Nz%EM){Ugt?%+-|-OS+m};o{H{*`C&g~J&`aG{mrbbC>oRJhjXV-
z>!_-#1~~*OOuRjmOrL5kMa2-|-lz9S-Mg1YRX8F2;kT{4S7~@0L3?6r&h5KPs(HQ$
zkAaxWs2z$?e{4mKZ+>8LVO;*#!N9;k-L#7*v6@8oTDPR#k+w5g=wdJ2snf@{E2L~f
zI-qoSQr-sa2(3u$)X|0UYQbnlZ<pN*ZXd3(cac0FL|y1E8+XX^03<u+*_qjXS^o{H
z)m2B=Nx%2nYI|X#_sgqwYGH-r_eY9IRuIddIJN2fYrtrTBD3SYOpLa2tIL@(-dDGj
zw%!$9MC|iJK-xx%g^zZQmoJxSsL8V_aoZ_!JGa>#((C;n$#9qExq$Tabhhm#0gIJ)
z_nW<(d~mtN+%l~IyE`w-v9HFnQHpGe!4NeCna|xhxPc*~rN}D}yT@nUgIrNl&+*Ko
zM%`p-VbPFfhKi>7p;LUEa$oJ6yZb}-I(K?Zdky4u2g)^Mg(F>FZO{`!rd_bG%o?wf
zyWu#Wn3&jw5G4MwbZWMmT9Ac|yCa-NWz5zmI;*<6qlR8L%K#wh+8Vy{RJrxptfh$R
zD*daoNL@oiNhfmdoxP?dH%n}@K3uoM6I$!~bm%a<;U=lJORsKL$+!Y@lmb8y49a<G
zZI9%Yv5(}50W5gD&Xi%yba%f~;^irct+50M9vw`rF0siS(jGpgJ@7Q-ME`iIfoNm5
zO4o{0sEpSg_;PSCt@gy#KvFYy*QkgE0QpKJI&35GXGMDn;&d0Dfe#|i<<|ouz>)?_
zSW+JRz(KvC7q5P>LqabG0NG3)bere=&?p`+v*w?ioE&{HohOLWDCv%ZhwC7A#Ysc?
zG;Lm_4ZGJr-Y5dJ?gB{ixibE#7_jikqenjqs6F5Y_zZXwC@YlF;W}{E^S7wX(Gspw
zgsfKGJQq7`>p~wak8O;ZQVPLJq;SkYLT~bzZts4%e4YRDbqDq!6Kf0y?`}c)wvh^G
z-L=RVS?rn{ND3mKg^GSF0T~zG+-btiF~O<(t)tGovYg-+zGis2nIFHF>e3Uc6HL1g
z6l=NZk3cRd(Fe#xSwOp8<-3#oSMs{=*(_$n-CYvk=P}hRI0XzjgCM|$z%qO3z;DlE
zVtgWOa&}>9C1(MNbpsp*;Fm>7jX*B&&<`>@exNLTAt~U~r%w`k&bu<NeP~$<XE%4D
zrm<&!&GPb|gD)Yo{^xWMzXW0zRZ$@1bT5^6=H<$Ax_bGMb)-H#!v4=WA|VYFEIp!3
zYROBY_y2~?As_c2Og1g?RWbec>^CJvL`2>-H=iEfx1zqOX$vbWP#HE}xq)iWI~wEs
zzPlGMUi9|%1`<q2NI0MPJmp+!^Yf&nAa8H*QHbs2N19q%hYbx46%~Qk4!gOz-Q684
zTwh<0N`Z@&6&v#%2#Qa>LMqb?fZL~CBSS}H@k9(n*;!eUC&1Nckyk~-{jlJ@-_q)1
z5)uOX`!kK^GEp)q(8L@LhejnPipIvq0-B_!OQ5_UAAvP}tFpk!N*y&8%8h+Gnx}K7
zqqDQK-_&b9xPJXQawh8|N}Q=p3&o-K7pIY+Y;$At$lS)pM!}@%#@k-bYkS6LHIGZj
z;eA8O6d$P{J)FPYy8c^1k;3X*w<|A%Fc9AQ)x@;4w2o1&jN>w6DY(kHS`~qiWRJBE
z=cnpBIua@QnmRhu-+i8ljy4btpAZzWeI4|4cv(^-#iPElae8K+pJgNlwW<>J+xPMk
z5)%Bj>zgv>a4Ej1fQn5{Qng>T<x|^@<s$Sa>OF>S=KJI3Eql}QrcOJ(sA#$LuUKvW
z0p#O<$+yr7&m~J=mmLcaOiH<ZCs|X7l&q|X7w2Ps<a?Z)oNP6{_TUvJ;d(TkR4U-}
zvhBl9O5)g2%HlYsM|8Q@KD+<^w~^$478De(FVu$mMJIIJdPb3V8d2h;jl4>5reJlV
zm^M94bxrYD`)1ti%-sGL!}PKXsdKe{z145er#9~-QRvCziH-uHlhd4yO6JXpwd&nR
zRbEYLiRNco()-HV9M252TGEcciwl>isjp|NueY~DAXFY*WOOe2{cZK;+qwQJG1%C&
z#f4sS+nwGvH*;XgTRQ0<>*4GN^lE5mun*t+{MoZ-q@EStY}!*E+9Mj>W%c6s6(F`j
zmo4qyu;T(7QAn|}g0%w874?QqD-7EuARvHsw1G>(youNUDYg(ZG-WcRQDlT>KQ2FI
zXvl+@fI~V%rlzJyJg~5^c#O!w$A?<?3H~E*gt&uWU}b&R(6AZ7i3Bht`y&WH-sA+q
zdkK9FICu9D==L=L6%;7Qct6R`miZce)~;Q<v>12mB*wqq9w{HaT{~X)<nRXV3f!qr
z&*=N5c<yBPy{u`XX(gR+y#8mnd95?_tzWT;P(P1(9K*X`&A6SC0kUZ#IviK@G3YnO
zL_NK|ByCVk=~S}r@o$XieR1=p&vSBeaD<g)#J72KwK~&kx=xobyIy@5j)-}Vx4pT!
zZ|$!}+SdB4w)x8hg$HAB&8u8M!wBtTNh-Q`<P?9kCCI>#!qHGYQ<;SCUv8g>&KzE5
z%TFn-h;s9ap?Ek^t?z_oH@0le=lY=1K=vKWDV2YNeDPm0g8Z-OF#rFB{D;a~|L)tV
zWjOqea*VEU3CiBhKp0AdXT}yB%<2v#d}lFg#?5z+KWpP>mQc6fJZCQaF4WqA05H=t
zvrmE)I0@4<nBHh)H`f=fBsuW#JXzpp9Jfd;8{rQ(*Z^8BC_t)1x=MB+-Ua;P*1N|A
zHjC(OBDB?kg)gt{z_pg3k~bVa#Z>l`O*FZya;%zDz=yBo<Lml$wW#+{Mk}*IiKr|o
z^4Zu;euO9npl}F5<aV|m`9!apEo{q1KqaFtYPHEF;#xuVBqB*Nh-D?kA{t{Nnl)i9
z^W?JpeZ8EUQ_i!pCf950Ps&~R<F{3;tfMpCK|x1V$q_8CtTn&Q<Fb13lcJ)qLDq}T
zy<&w6_KJ!N1ICM-x9%|yx!(GGCO93qNq~=!0Sp98n8%7TdBDyCssxl1s<$_FW&Uy*
zkbhwA<EL_fk%R#WZaBre%%J-FxTv*E+T(ocX?oxJdIv#1ut~~P*S-!~f4>F2j~{H_
z{B?wQ6h+ev2$x&KuUOJjl~EUJ>IC_Q@8Yk`rvMwD1Z7%cA*43lt3oKghK8`@d*yfu
zS57ZzFf?`=Q3C@=YB+6;D>)-nL^YulO1q^2uhv*zHNxrKe(_JwJnrVMi+7{e?2{TY
z8o$TMwm%y5eyM2g;0D4*M}lY`O;7R=5jYWvGL~pp1}-12mHFKS4E(9l88p&_oDCqO
zYW;6NhLk;xB`I=w1ybOC7CMKnmR7whrJ2*4u_itzNAIN^es<@J8_AOfqB_GHg!H1O
zN+X`#@@<SVf1YgcMs+2A84+GrZ?3kvIlCc~M`Hg~XmZ;NW{Sm1x{Cd}KZd9c+Zp0=
z-#~8@1;~63`at6v^RYxpSbWn_Qc^Mln7~b#+BV>&(Kq|66%QRcM4*`+D4ZhZI$2b>
z|LS03!Cb#5<+AwY!KRNY?Ly5>$)?*;u_o*KOLe-Zw)JR6u9a%r!^bx^>mIM0{228w
z$)JRt_09}*G0wI>PwM4%%3KXHGAW)&(XOMTgvWxS-O*7I6*M^lPx2iT1dy`4rA6;+
zS&mxT+ht%v89)6qTjIJD6-jmkqe*@f54ntM7H>V^_-)a}y0>p{a$m`|?<xP$Bi7oZ
zrm5);cXOUevG42Naq<r0sDo*o;P0;-e$e&GL00JU16km|*B4TeH+3bXL^ge&>^?ho
z>)3BIe|iD->1dqJsaCCQpD(|VO2DG`9%tkG;#KWB`3=TgPXyivxD13#5tc;KT8}nB
z@FBQw&^Rj%t8+Uh6FrmklT8lC3Pcv0yz{&N(`Plcc1p*mS>#eF>O^$XaPJzSP2ZDc
zJfuR!%`RWY%)9-Qcxk@ZT_K5*@3`(GIk1|B<hsmOEPr0Z2O0DMyUUKK9w&273vP2j
zrz>j{P<PSvpZ3To1ixv&Au5t|zp=-*+12jxV*n-+z!Vh+!3v#EWa7w&;thUY)6XJo
ze8a-RTuS9SSP8bSF#Lh6lY__n?`eoHfX(&>8(cJ;JMtiM(GD?z$xZ{X1GW@Fj_>GR
zPmB~SUgBI5%WUy1iSDC6<b-;O@SaWJ$d$5$m`8lrkCk^UM4(s-lo&#&To<%Mw=^jE
zki~c*1rwJ02=;Hb3eh)NcE+6C_~k-s^Br;XQy@HJ+M>u$S^T{xyS|nQN4EcSNc(TG
zJ^Z`#!+(hR;=k)ze1%XfM<Y-V&oHJ7jl<@vP<b;!6jm$Z#p!;R>D*498(Up3o*s^%
zZe&_SUUFhHBtuFElF|kZD(1ZEHw|&-lYbiapJIRcukZv&sZsMRBSR7bVTEDI!+m#;
zD=LESXu9-jZ3Xy{8rm;fIywVtVsRM>-ro1_ank#u+^F{1k&KC&d<rndpJ`5Veq{Ro
zz`($hjEoF_a1q0FbC4(~;hE`eIyyOdFDEBwxvpvt5-GqCu-EzcXJepI_$y3H{NK@x
zT&JTqXz3(%YP22~&`3_o)gGb>WtZ6RbLPEAsDnW@(eT~QtIq4hj2DPksW$dZmd??2
zE+K4Q+qvoc9#K>EIHUJSr%Ws(5gI+e`XIdzl(7qA&9;!T9U+lFKYB>X$E7``JV5O~
z64a|^43?v8hdOmGHZk$UTnN)G5Drj<E4%jdPe}QU>!%cGYQ+Q1x9aF4ZqOpUG6^0z
zej8lv;i>2imYn9HbIz$yo31c4EdqMZ4NJUG9tmpX3Z2i94{%5twtbznYuN~AKbU2#
zMuG#0^!QJ3V7zR9jQY;cYGTb+k}?*ev})XJoY&lbFH{5{4F{{LPN3)rubBL-21~}*
zymRb3@Gx7yvQv-`1w$h7{ueDRcM}+gd)=poS_fI~Ho2U-y4%O?iBAE37lH;s@9v<R
zo15=FJ92)oDY@)vDj+Cd=QiC=s#)lPk%}JsPtTU`aUL-i2#J}=&TWjd&9~F=DU9gv
z?>{%J6(cd#P*<1Mkm>ZpKiaU!e)&%!?*3gyv;XCtMqFqt{!e=<!b?H<YlY1xVkN?R
z0I>kj9$H089g)%Q>^b{0BFQ`JcaIN`g2fK)DR5w#+PuAq$mgzL941RB;w^HQt(eC#
z7G{%CN~g3rqo^QMqM{-mE>>?!T{6^w9ZoFUd!b{PHV@~<#O&hZL-9{4>Zt2@bVU$%
zJ5t)D)`WVodrg+ZslW-A-Y~mjXB;?P#g`Q?Kuj}O;gZ<p%yHhS=9u6r7mm%u2ebeo
zV>f;_SumZi_Hy<4FBQg&6f4_7&0mR??HePZ2Y&{<{~W*HKYI+J2i^~T{=9Qih>0(B
z1A<rP5&0>}W5|-k;ZsSRWHou&C~y6e0mBa@VqSfl?DK<A7>PXxyFRLbi+RYTQQ7j2
z+7ogjuo5aNwm~EreYDPFrzDi}tce;G)7i0}r~<jAL$z_}>C_9wzHGa@oD1g-k3Tpd
z!^dajHk2+6PmU?}!|2^=cYz14{V}IHMab{GbdCPF%vMnmYzZOFx59_zGFr^uP2d(O
z6TP$gW8+NVj`8NX-1MX8ctq#SDM{vsrHczMvvuAmc*5VIT3)IH1}mb{m_iT)s;SdZ
zEB5EuZ$dtCGKne=Hvhn%rH0U}tzQxew?lNOHxW`|1etZtHDogFRtT}usGv=WYH42k
zjA?~JmAPGOGx^km76H01TiZA5Td^9?w=@zhdzAQ$W@inZ+u2CDL+lIjr&HZ`G4I|>
zmLmt=i@-qum{kg~g@ZU_g2W6W_MKNoxYR`n8435pUYoWoA|xo~Fs-a!np={YSZ(wb
zFJn&zoP{t3$#;bpE}U0X%p0<{_45-ekcI;%;Et57QM^I+J_fX3Ip$J!pGu_#5G?q#
zoLO)k4LG~j1$MdxKm**73q@IW-CYoie07Yj@bmFa!DT@}r%72b|6VL>lAE^kJq9^d
zz?e)TcFd4TcieUEs(s9rbSlPGS~~|?Th?5ETsJggKbT?!C`oZ~ezj^8`4jN)G~rRK
zG$>Vq;pW^db{tpW*I!NexNHO-y>6&NeWR)OojYWzAjQvoR-$kMC>+vLn}#9s(NhT~
z@b+K9zs?0#$*FU*kk{QK?aOzKCOYR^CNxYE(}L!C=IQv$;wV7?G-EhHyP;V50R=hf
zH4+VegBEj7?3ufL;5{8mJqJ*IT^#dg55uiubau8ezuv;ZPx)1fsRNu&OiB`K)+G;`
zg^}=4>5Hgd+D>FvIP885l=*b$r&8*N)y79l3L&UPF+H#>XX=Emyp(gB8ay{!v{8-Q
zaRDaOaN$neg1;W%Hjt1hPysP|;9)n6FTLkxVQ|>(B*XlqCuG+U*HPIRaM((o!rxbL
z?Wj;YFsc|+!Mw;V>DZ+O(8(5!u3Y|7Z?^AleFt+jdi{cJ-hM7bHMj>E>ZelY%a;Wz
zxNNe{{*zx^q>reDu?y?&`8-3MY-M9ms|@??nV)?m0fAxvg*QjTh%4f!QX*!Sjo~4w
zEFp%M&$Y(9rimA*uD<@TVi8D<EtHwx*FDx1PP{y*2K5c_)RUE!6%TN<OwBW;u7~-)
z{(5*WL|}x}ts+_t#7eY3Vw+m%Q=|IAHc>r_0J)F2kV;nxM&9(#g=4|=&7Hk}ziqKw
z14BK#HqyL_8PTqMSG1yH5z+RPc$_o~yT$Up{6Q?l^4w8>ejw#n=TI@vQ9puvC!_^!
zZE;=RaCFEPjD;qx(cxIS*$pqaf6pzK>lh8p>U$RP7`{NV{r%X*;6dI(JZ{G$rT5C{
zFrC*dmNvS}JG79RO>&1a{J_ZA>=<SusWbU|tfDV6-|>vgKhT1&F8|O0a0Ukx6~eM0
zW1*KKX#7I*4h%&XvXq(2dyCd}{`ZD2&iq8sIk886(4{{N6F$9xD6I#knoNnis0lmV
zl;$zzL-fmJxcqKM36Rh9I<@=C%Xx_VCG!YA7j0}#cuJbrJSCWla3OQUuBZT++AU0I
z?cKe^kV!VkD3}~sn}XR-&l9(1EDvWct|Q0GLaN~66kp|xk8UM?J(JW*$=#Ff@eLpW
z))T`epnd7C=*SI_JC(>ffCr9gK!rPqHD)<Eqcc0mCPSpXFWiZf-oAOb0Lrjkr9>m1
z8aex|)B3Qv5O;Q@W6iPcr<g|emq%ZRxn5hnS@>v}bBlTOsiXp9!fz=mVjY+k{d}Hz
zt@hYpxo|ZIRG@N;GNN0s`4tmCyP~4|%q!llx8|2{Wo9t#@dpwB2;K$91#*B`a$`mw
z2Z7VrFDokxKP@hd2n$8z!U)F$k5~!edwA!YO35SUs+qIN?g>Noi_5oxC&yP+sy*#o
z`npW8A7CUPXqfb=8H3C_T}7l070HO9<apq7s%a9+XukQ7ik@=ApPNzD>wFwRA^xn?
zK3P}TlvK>&MVCjk_+#pFj+_z=k9$27H_wm>uLx-RWsCVc)W1N;g$}>i_ZxN3#UcfD
ziVYie&TEv7-y0tHQ%*>Z)SiqErrsFH{pFK~QIhs>UebK$HT*ntc)mh{Y|+)mGe2+m
zg3xk*X&XAfD@{3HflG!pju?fpXFYEkG(w^PGicielO?Jhf8yX=Vc1EsKa@zikyPEo
ztPK!-E?QU!Idib>j;QRfX2F$Bn6W_rS}L1;*SIn9%+Jj|_SwGF;ZOE5XBSvjd@oa8
zHZqvtaXiY_c<SnM%ZnFxI<JbWr>j1g)B-J3IIm!<r&v7V#$>ueEgxPPonw4Dr6~KU
z*!=lkzQ?Jl4hgpUV>+uyLhocuWisvghz#rD;;^;K8!d?{h}a6%WjkNjWTSBqafvYx
z5v0tP;dFfw07)L}B0dM=|G5lrPm^_K`}Op#x;l_$>=s5#!yzcOI5iq}s~FFn%C0yX
z1#ir*Duww$0!wS3srqdXI*`(Ke$V&q)J3`-ECONp1=+r*AtqxV%b-B9C|`h~jxb3?
z5hQ0y?5=o0cO}9dI~)Tcf@*=NLc|KD(vyneEn_1FTNC)jgOW{4e{jtj#ilJNna=KS
zZ-D|1Y0-=uo2m?J%ZWI0u$2Sj5_5!zgDvZ0u*wR9PB@C&MoLqNT>`Hfb#p4|fz!h?
z!WMs5Q*&zAUg!k4PQ|>*NONmz5eEqmC^?C>a#Bxzf^vS?#*#pvv0b!kC0GXU?(UC^
ziYgvA^XgUOXH*^01KW1k#u(4G?AB@co7rX$*jQU9yv8C0#3`(%X+^)$qXCI(eVo$L
z*N@;{)`Ar@>s~;R4p1mLRzrN|{$X(`sp<J+Ds&&;wrRzurZ##pNpeS&qpI?Sptp}?
zQbO+t`lo?6^>t@B(sG@hocLGX&`xohO*?_y2WMeUX<#x!@r9~LnUAeWm9r{2wBBj(
zR5KQ($M4HZB<A$Tf_r5r%j9LyT3)BRlXRm@Y;jGimvIVu+QOSPPL3SaXZxaUL7j8^
zkfTu6JI*$n8xtGb&-z8%B*1*;l|&ox@*KVWbM;I5u4sI{<NeU!VEk*&#@@0{AzVA1
zVKdQ-^~<l|3;{p**daH!+)gdA_TCktoL)L6s@s7G6FR@-Z#Xo2OEYHto_FSn)v5gl
zlav$eJSagHQCnv;cdh6TD$p9v%fj1t^$zDJRG9BLQe5_PNgz*zux;AABXK;bLT~*p
zIj$m+ZIA5jh3`5*lsvDC<JLp~KpVu5BpJb@=eKI3zywDv{mHh_nW!D)Xco&@luvM+
zob1>7p$wHAabEh!ID9JlL2mGE?;P>0@bMw7InS(MY6E99x3ERSYBBTnhQcO@pQCRN
ztt&=vL`WpTs{29y70e(PbF#kcUfsm}gc_?l?(%yTJzbCeM129tBoYf5b6JeJfq8$K
z{^w6j(3K*5$ccGqloa1GThfPsC|{O23C$$ql|4n@D*3R%m7Y+$fkm^CswX|qD;Aa&
zdQ9{GD7EA4{vSEM`|i4`_roI_IJWH!+`#85{fG3{Tg7K5yn9Rgub1<2`@i(szU}$)
zL+e+3yJGa=;F*Iz*X>-hCSr|>*ZS;c2ZxcN)<ViY^Fv3S!&=+5>Zh+TVxQ*5b-3on
z=JeM(71Aq=OJELKPc#dEZkc_c9}A_sytkXQW!Y(+7A0qWa6|0oFPp!=mW9R;CcuDu
zevBt5!KsWtyok7*SXp7Uu6kHnYHe#9L`+J7@X-HMNt&HlwhhH@_%byyQH0{ik7A`=
zRUW#VDav?zlOs{y7z6~916le{XnCF+g27z$dhSXdNA&}+0Ka?t;=^Gcv_lp5!E9K_
zxl|?9MftAG8~;@4hk9LvkMG%u`<#GR&Sb?yU6q<y0H{cp7FlWsYjR{;=aPhehOP<V
z3+0aN+=drtU-{OOLNRKoP<*bBLq<RbcTK==>st$V<<)BAX{CCCj+DchnOZ$l2*o5E
zm&JV$rz>5D`s?F%8!#oJgY;OJmuOqlimd7#r|PTwJmPe9bMvbOa7=Pss#Trhx|WR)
zb86Sbvo+Z-hItBsd1C(hA_^YAS^%i(BQ$C;o6e?aNM)b@`q>2H5viP&l{BE30(V$$
zPW$CYPSWc{yzSoJx3(*lz$$Ifw^XC{YZou?fXNz`IWG8ha&zT~B124UkCT#;W<Xni
zDhe-{h{{}B2Jj+fH5HV?tZdetSFOL($Ew85s$*bxI1&UtLB2C>y$aJArH#Cn)3I@h
zzJ0aPI!`u{$L5uzH7e)QDEr~Jja^6#zCc_V9~}^pII1a&?(Qi3pKCAGkWO(z&R-HG
z2xi0b@9vLF3M54ZAq(JDCcO(yKmqWN=HK&UuAS$WT5DYzEzHe*u&s-JTeZ<5S(^Eg
zKR&WJv_yld8-DHS^N*cbzg95v($6s4i+Ivez#0B-K@Mi=*TH=tir%}%#?0a*_NC@K
zt9w{ONaxNI)6?PZ?q|+y+bpcR-fy#r5TnzrWBkEIbMqL-UCcLdO2ETw%XX0JyFw~L
z;*w;HQx^9V4<EUbCowTyUl(RVk>@#URKq^d_xAoE^YJFR`PfZ?FmBz{Tv`ivLv&wq
zv7!@?8Hv2T<wo-M!)wjhUAFYx_VK^-lHxM~e<E^X5v96n;(Br#UjD}pyf<`iYbO=y
zDs5&pd{e|{WuCmee6hLd*Q?4YTHfJQ+D?DJl5*z^KlAjPYtlxetseaH%P*>~C!C#~
z+t3YRhjxX{i_~^=<`Ly_Sie|W;C&+KIcPyD!fM?8Rr_dHcJ~IOaDApBvw)5CI*5z!
zFj|sDE@&?N&_VJp`0M6gQWU<vwcQl@DDmJbfjo+;V7~uzH|(#)J{lvYCY4!ro>}hi
z!+hoD$v+?8*RIZUf3iGJgc#c`7iWSNx6tYI&<ED&3(V~rXa4r<6g)Ztg`Qv?*QBy7
zU3z>po)X$Nu(-vvlZ<$RC=8d;#fXRq)0(Hp$lXRo;NQ{F(PcV6lxd760Ii&_>sNc!
zYns@I>*I7vkswg~k-`JZGH1*15k+vhq>-YF2)@`dil|ZBuuOkm;u$N|N4=!b&vip#
z;*kqVB~#L1L+Y@1brVy?P-0!G-8wcBqKiZ)*!Ukbp++)A)7QJUHiN#ek?+)@C^MJw
zN-6dm7l;(O5O~Si5TcP?y_OEZBYZq&-Gj^rZgm}(zBtOecrx+<x~Y!P7Kfb+bEQ2<
zuT%~<xus+~dQHPmFLok4*UdQrxV~!w0bc#DQNgM7ts%&WBeX))WL=I>s{R@YNxxOs
z1S#R)^>(@rByhPiDJPa5EnpS+o^>M?P}_9@o*XLcRY3F6C~@`9j9_DA*ZjE=aGs<x
zRCDjz$g~fcLh%i#cK@`W*msM;dGNp#wz!crNp+>t=vITcHQ1oAA~KsrM&M2T`wDEC
zNqT7g41OW0c1I0v#6i+Mb40NSEQ{&XU^Bn512N8$Mhi4}{q+o3Ej@*Y&^6;tys=f%
z-TpJ}Bc7SR_oCBBri!w-Kw1~C<+9xT23X1)eP9A9g8(00LFrSIlZUBPDxVWED~vi*
zr=5L-Bj%<+RTPa^Q)sVKu&$oOm{-OuA`O@#c-)eGrW&ysV1UbgaJq2OgWx=g#ESt?
z6N#DC+xx+T2Y^RDb)@C>qOGmkxn`Dwm$mrc2k1Hoj@&@=Bxxliq+s%y-+u)Zl)^G3
zfrQX^*VpkHB@{1b(SHxewm+(0!M=SPBrNK7E)&xlCEb6--R{WYa}R#@GB14md|@{T
zq&U07efymHHK7Z>XhsT8v}}5DHhCa1w<IxlSkJF`DcY}MTf8N~+>91a1Q4I~(uGJd
zg;)SI2>!C(B$@fDQ-Z}ZTlnV*NFcSp3p!alN1OD*4eXDRa)y=Fu1cnN6Lo?4wq9eg
z!Oy;?{ciNKwtRNbK~D<1!6mpPxKW4hg+<%qHgi9#JIC%@F+yw|Yn<1~ett;s$m2(6
zU-`-6@gOOJ4v;8kzUy-p1d`s$2zG+@6&0CV3Oo0Xtdj+zkIk1^(zjrzx8#?4(T9v}
z<WMP5+y`zoG|#~~;q0sHY|*57=C6qrv`&6;AGBDuXou{!6|}<PpxAtrI-yHU)k7OB
zdk=7{ezhoMBPLrACUmlvXy7^QwM?|*O5d;UUCem6;gH0{)YRta(jZ>rzizj6?(dfu
z_o;H&pKX`(j6Qz%)L&nOA%Ao92v&c9!XoKPIl=2O@$RpmEsq8n(uc{%R{*lB6s;u<
z!WWkx5+@W1`Zi(1+^!Vpe|4Qg)?b%Cfo{m^ii(N|`GlMC1i^XO*w}a!LF|nW>BhF@
z3PyIaX&U4`&n$7al;4ZpTf03_nvdWpX>4p$q8)%X9JUThqBIO^=@_z!`{u{~=>@2b
zR!chaHAlvEVeL5mu}ZLrw6;Pouqx{%j*ACi#?T8}pq{Xgxs3X?wT9mtTB5pSnt70?
zdC2C|G4_x^7O_G>oD4Pm2r!rg`#SO)>Wz4e!`O!JYHK&5@%sUs<&ZG`M^PY@|FtL}
zH5Tz|AR&f6SPEGKF*958<c88T>~hq1YPwD_Pho+E-~^Iu=Ls>xoV1!$X07plQS-oi
z`QfZ?-&(>c?v{6B9?MYEx_*&xw!qIM1CY+|8b9Vs+hV_LNA)|U$LzCDt&-i1zUsU!
z6i@d^v{w*1VIR>~E?Ni`zD5U9K@C514Ks^ZqA3&<6lBsnudy3#fxYR2Kz_%%ROSJw
zOxC?)e!@X(l3+<T34L%r7Ff~N@s5vpS&u!8;&&Z6V(MY<C}+e|*%#F7VC^WM76`9k
zi>}o(#oepn-;oFf?W0?5LxXm=MNPB;6>6KMf$CgZMn=CHN6%a>P%wD`tNI-EUPJ`*
zwam-`H4dOU{`uObCSCF}+?pTlT%J!0RyKNAR?|||yVXM*2D;LAI=45zeP2+9fT?Li
z87Po42cWy!{6Oe|X2FQZNZf?51`+)>3a%UQ^v>BLB9cHK{W1C3N^^JHhR_C1!)-}2
z+TpIY->O@lxTHK;I;BxSIXxGgsfRO}jP?%;+q_JZqbGy6m(r8TOFupSw-Cndu#)i_
z@5~#~r=Q#HR330r)w^A>7K<hz?ifwjigNn-UXx3$A*o*~>#$PdbdpZw_y=%GSZE>(
zZ`rcN8@=7T`|MAdO?-aGntY+RZ+Q4b);;I`krB0=--_T@jk0gGMyN&=eWd6fXSk^0
zy-SBjZkOD%NQjP({y6o7!WyTYAk<8Q@Ya}hZ{jpGh%yGT`IOW@twt-7%9I&wv=WH|
z9%zi#OQB#Hl5ff<1y}br)n|aK4E`yk@Qd%~;bGC)!$ayLYH+&uWIHGpHR#*&z=9Q%
zXopPFw_!tlXD6*?T3~JYq*;Be7I_ok35{$z>^g))RE&=y=95)AX?Cx!uWjw(vRT3Q
z<?`jrn<+=};5$cWa()bzlVz?TAxrfbOKkdPTV=RVeS_G)zxKN@nG3?=HM!+EnF_$N
z?a5c8A;(t>$7`e&^1{I*UkTcMe;P^tUaVQf*7={1>A8LJqKlhRTVtcn)acq-Vrz)`
zTF~eff71c2#YH_R>Fc{TiC<sheP2KSsr`3C!fMAdt4J2f+K1nCux>x1`RDf`KQf~$
z%RheZKNN}o_EZ0dx40K9%5ug59SFK9=Z^7J*kB2OgJxw#0wi*%Vn0z!0izVd*0LPT
z5H`w_Ua?}uhSO6oUmg?}7e}{(_wewrq6P6lgQ&q#>Z`vo+U7v|(a`aGx#s*13sO!3
z7D@IY1itnnt&l{6dRlSxjW_G|E;Rhv)SPG04ETTbvi}3_-2Z`Zp?Zv6eHXwgQDR*N
zlS{iG<!A`&zSss|gb9k$K+>CxVJMF=6QXZPz7u+8^Gyd43J7!Lys(Iw5~h&a3CCYV
zJg?}gQvIf$8TmDh+P}>Mz3dZmLUz{_>Jq}lBkU_-kOPq&LAj^6pwY6+e}9!X@QEy>
z<(eKQFj%A4?*BU|(bAF+H+Z*>xHjgJQ^4zp8O1=(T__U+fZ|A3TprTdv2bP-P-k`8
z_$92irG=AeQuJoqt-a$bsd0Xdk5?uDmP_w2q|XgsZF2kiFRbZUyKB?;kkxF9LUoKt
zo3X-dnc5L0rP3qD(}2XG?(uNvb8@DH`k5tk=&6`eYjiadKzavzyroGfPyR05ok0uO
z)yUf##IW+G$K_qWzM@r)V=8H^+?vu<SiURMHu*?4qsh~X!qwdtotB2|GTdmMkR04E
z$}GgXZ)=?J0S&x-`EvB?!izaWhLgZKTP;x8jW$Jp27|Fy;W9}5VvtU|wQbWS#KlRF
zy-#u`NtBF<$w_|0pSzH2G-f-VVmORt83S`a@({|^!1tCh*6=DYzd=C7H(ZkO<P|eB
zvog|))PV5MA!(&s#(-gu<N^)_cNct<o?cJB*=wSRZ!$8-VSVUgXr=)LaO#98piUFc
zzAr9O-ySt|VK>wTq}W%=HD;!b#fRkIs}4BX>D|tiG=xo*q%{0eo$XRqJFRZ$`TeKy
z*-W|{rm>7p)T)(&sEXVY^%?_)4m`d3hM)wZv_545?rpDdr|!f5L0S)4lLbB#!Hn5D
zkFhqTXr<*w8Pj*9F#o`NujL)A8<Id|hx(|epk9!^-{9I?P2*ikpGCqbkUqMFG)%{b
z!R}F}a69Lf=T43-Ti(+4O+@FxLy|&?Qdqpcfxb(PT0Sr`BGybxry5G$?o+!mr(uM|
zQ$|UK8;Y3+4G*oEWZcfpI7pRzW<Z@tSV-3i#sVEpl0!h<XZJw%j;T}o-|_}55P^vs
zfH)(iF@~rcE!aLccs-?ou(YR~2;L|wCE-;iOgP3dhE2+%?l~qW?A^2HW{c~MxnoDr
zC^Fme-NOcV^|1cxnkW@g*xVin`jL|lyntZ}1rt1;+e!3kBvKe}giVlP`R7wD>SM_h
zLJx^>GYwdc`Hgn`&Su)9h2kl_if}Pp8rTE!b9C#AT-onC{z`(rYm)u$A>zz>H0ac+
zzWD1wYWZ$w>+*Zueh#l{$_*m~(1)`NtTvyCY5?eIm8{1BTyHL2nUw$I%OdKy(RGVo
z)-9RI1^=?`r2deyXJ%kJ#|DDAb_Q1D5(mzohtwU0m!h4AIBW>cwB^c;1L<MpK3Y73
zMo<oDyv%7dm<h8np2=}MwD0dyYCx&fhP-13a2e))0*jgWvdQd>SLNi>SYo3^zv+1Q
zM5&ax0GMzT6P!ljp5WI`&|@QUiL`+}JAQWqk(R-FiE1xR;Nt7w@jk#CW_2DiIDyz9
zo~kV2HJ_X<SDDA0+4&EN_y553@h_5H|DW6o3*{W<bAMO>)LODyEbr#)6nGCzz!IP<
z3tSB9UFD~ND9wt<te(l9@0jz{ynOY@B#tjPD93aB6+OOO<@HBvM^1mmUPUI1{GZf~
z|J$zt<o}xzDAl1L20L;@2!~gkkL`H$w9O3)wgm|@t&Lxi)MvFTVDRQNkjca)WF#Q9
z)-Yox+M0vu=2lkmh(J#$J?U`J4XPcw>gF&Jofcp?y>@b7HGP+urHoQSXshQExZ!Pl
z)?;18kho)di-4P!mU}UN;b6naz=4|cR&Ui8*8{i+&vqcIkpyH86}p**BuIi4S^*H=
z06xe!=rIPcLl-asc918}QK1YoaUVMO21({4i3gG}P7xX<PLUj(LJ@tiT~<y`WvcY>
znIecM%2R?Wjoa$?xzBtFF6A&@uh=}Gu*_w4pzD#Rbqg?QOWU@!2!67X;f0bzeSI+`
z*bcWidR#60)ygL#COTSh;|G1B^)CT4GGWEAY6aW(*Pf~z)dcP4=<FQsZuK0_-QCT!
zG@IJ=y4F_x6bj-l^OS09HBu;urg3;*61aou1dEX~$F!@k!D=W><eCUHJ4Z$6(!$l6
z0Wk5;ck`K5nrX%`u--{>K8=dMY@6t6TniJP8Q+$s1_sY-|CYOE<%$*MQ)bVNBan4d
z=p6m!hPiUnyQtRvE%GLl{q+%f)bz|u+fnw8Z#pV9cW&A@{ozi!>y6-3BLUO#3kA<8
zJ@fnb>`})DD^bg9X=BK66VYqvyOIp3*Im8VpPg^M<E~&kzv~cHxuVO-A|Z4jXb2EE
z(6V;SK>xN*9NqHb;(cag!olnRA`1KOu$$DYMYBH!{~dY>pXeQ*RkYXw)E<c;13tn`
zH{kVemf5mlJc$0g_IA{8KFFNM!kMAVsd7D2f@AqNfY<-+Z`*&ZEb=ej&idPq%R<S%
zBC}PxK<@?sD3jSK+?blibZuB!9nU#Ho}-s<Oq|y=8E8pbx3F1!7pKv;RRTqUgS6^I
zf<#0g)V(v;m`^=aL+X&YuzrSc)q(LhgxVoWvJJd0S+JThCs7c+5cXCw^h-JC_}7n!
z@R~**3j(?)4pye&6P6*Aj>(W7i>F~gCRDxB)+;+O>*kJQ4D++tPO>v;Z&<J-`1lm)
zeQJf>qcB-B?U$^q>*OcYRV|r$?|E3xcT6)2YUe<2Zx~l>zR0ZPzH|_+fKX}TPQ$j1
z|LQf_myHk&&)a*8ysIOVx0WGu7hzF_KT;x&Y4Lh^54^;~4PcTuS*fe-q@H4`4j&(A
zAPf%-U-RpBK848`HAobTD|qEF%g_Y&-3U#cLx&7M_Ugxjb~_TteR^yZEpxA!)F15O
zBs~F3h7W>vBIPfk{}4vQ#gfQ3APG|_uWqa(-=HuCdrWF}xWAOA2m|<c^b;@N$yrYH
zh!hH(7vz`>44eCVy4Y`0<c)7^Y!b<vLK3%^Gq;HKQ^9;5SiFqfLUS2B-;<t;snT?}
zS<C51i7_!{W;z@_iK^$hEHiGYwin{*XSm2Xjqb|2e05i*X~O(3l8B^J%ZGcyjYT<#
zmB4E3MmHHa3brj`qRmwtX(%OM7L$HdrmpPV>0Ek6u}Dc_>=vhXhyqZpNHY!W&5xb5
z`<Gi{&QZzf;u}11u%1VPw#t8;-w(HZ3Uzc}-TZ#fg_&S_GvvJ+?o`r!8BD(`ZP#^k
zq#DLL<ta1B4qSCUZt`205RYg>hZri)@b>s6I1o%B*u+3|sbSt)QY4##6G+5Q-o1UR
zKGo7iCb1yf)xCJ^Xl`pO)=I<Jt>@B%-Rk1@A77`?Wd>iovcM!L!h$1D*VOF$SnY8c
zYGW`RaI*=gK^TBCnXWTc8y&96X0h3j;gK-V%aKW%#C|O`6M4QOteDKtWMwUc$Fy8>
znhZ!Sdp`<?h7VNxbp=cs&P&%}`9K(>_=I8G?{au(-rg?I5LFZi;mDf&sbMaFzn8f6
zXPaP$Gl2}CuYTSdY^o3t+nP0Nim)9*9c5znyH0%e_J+@!MCMBpeKl|2t|w+i#dw*l
zH9fX-Qs>$!#{EM>B0sRc;zTJ@Y-+Ej7W9Fy0T;&{n4}m#YoLeh{Rdl=3d#>4ZDBq>
z(!akjcp(6VNLPCRmS_+V*>Ag*!*Qp(*0Z7x2mll#KOln64R53mAIe>WYGNEiiG$)5
z=m@;T2j80WMc%B%tE<Rd&)1zk1qDtco^Sq0H%YKYI>AF(59Bs8FS8I}IbDM*^T!49
z@y*T8n~ruBuhO|Kn%G`}nMb}L_Po7y^Ie@t(D~piX@e43pZiNg@xlF;&NHO<^J7^P
zY3XIPWW+Pg4iC2ykcJJgP~rizJC}PE>6>P?EV;m>Yo4!kV*T>TK6?gj5nEYVp=;L4
zZ8c7}&{`M^FN9i1Ml?z+H6TCK>*oWy!U8;kdMRs>F;6tlV!KA7(h)QL<HAA;aS3DQ
zpy3~(%(vG(Vz}^Hujt+{i`6o{kuxog1)EdNssn-k3x`HYv#xpc{V??<OH!zg6dDPN
z$oySc0@awahe!;BaV~*GYcg>42cigzMKIsH?rP5WF5CHz1aPvEaf;lS!+R{8`HH%h
z)BY7q>iDJl_9gSpzk*Bt7xTxzo{s(xd<#vDn!lY>g}o1C4!>c^5s#kT#y(_-Dq(6d
z*h?)ZQWN}#H<^FR$45fM%v@vPgG-0|Qef^kp%RM?nUc0Kai<{}V@$?4L&=4?C~%|N
zfxTFfJ#dW%Elw{oj3Hp&-N#R88?uzilrN0-geM%bS`a!8b{L$@AsQdV+8l4@^Cypj
zyaSlTKy;m;4T1df9rQ$C`&7WRx!JkhNk>sJ^3orxlB*Tw$vYU}B*^qBbhQ&JGUA5{
zIhaU!uov^9X`ZWd=7<$+3uL`xcAy<{>VAm1nEqOdi{5|>K_kvc5yorbU}6(}CJ^2{
zAWNU9CA)-Jl9*XGvQ7rQDzIdTA*%8a|7NhLpcY|V@+8|4QM*A}9?g2}cm<w*UwShc
zOhxRZ<Yd5zb4NdLwZIL5Fs}e-hoHf`5(y}}qm~|HR?pyJ_(>v9`xAI65)2^p%K~ME
z;O$ANAovAD&^y{Bc83X-?`LX5ZD*(PU^UKt!VDUWd@;kHOX>u*Ar-zy6DlI58vS%N
zR8(L3EG&LcDFdg$i6&Esml?m1RLF2mCTX#eHc6%d7BeO$CO%iY5_ZLeiad&AaBJho
zU+rVgX~k_q-$zW$F>1p&u?IjNC;FLd>N1Rc<9(8uDFqSG4WF3PXaqc6Lz{%5#DuD+
zr-wI!#(=Zq*#B&J-qd?(o|XUq<6?gP?CI)<vLyc(!+bzIiG8O|_3fw4qDztlun)>i
zO|OZD3Pb=&-+#;A$4xY!je^W?@L^3f`KhMu9{`Hb=2Of7Z>q2g;E>3q$rO;(Zht_~
z!WuIgtcIc)iLj0%<~PmnhjZ&Upe*`yCxz)KCI*FLz)><}SSNCppSJ{VT00pJjqf1P
z+sSp=DoiB@6=NhBENG8@m)9JSgPcu#4onEWE5;GF2PI%WtMq#9W8uNF0L{hKQ&`KA
zI6+c+G||ZLU~(PYGAT_ov`4kC($Vn9{u%074pYHmk)$OpjRpIc6(h2*Uz{hy$uisQ
zRSwL3enN5tu_7N@CofLC8~9+KH_j?X`a3t7U|o-*Uu`eCB8-`OHmK&kC^Mv?5AVxV
zAYBh+yJDhb7pC?3qOK(s0kN>yAtG3hCjHS^F;6GPQCJSktES25)5FvcDSG*>!B>*n
zJJ6fZOuYDHdy`R}&`aIABQTxup+(HO`}L6{XQpn6w0qX1F$VOqE}d<IJ)M}*b@4S;
zivXeE;D7zRg8HGr$W`hNeVfnLHAkZ6!_y~u{VlBAP7nNkhJW&I2wT0ZS)5sWd%GQK
zh{I5-kS>c+v_v=_^Fd=V)8Afc>$$P|!1!^XWj->uxe2{PU5FP!kgOH@HpIoAD!o%F
z&s*+`vRO@jQj_#pj7C%FyI_|K|ICJd_ocrPupU;~WLUUM!8)2^$Q~Z=SYYGYbW;uf
zjz!_E5y7&&M!AD&yty@(sv?R_H4-svCs_2?%5g$wbC^Z4;uep%SalWokjSG1Mqafy
zH!A5q?vgtiqeV_@gf*Cvfw0gx!V=7hq=wm<4ymFi2KwlpUw&WN4fm~(ek0M-vG`gA
z5)WUg?{5#Q%B`C!7%7-9!L;uD!%mt{sw^s<U(CM_v!a;mEvAFjCNsuIiQkC7ms%l`
zsi;xgS#UKWy2HB9^QPju6;EpD6)kh?j-+Sg3r{}W5Ipmy%-7<6YJDmc2($Z6+6NHz
zAVXL+y&#s~jfp}s*wtjdNhtt`&X^1tYR`=+$rACg87tiUn}f$63D2UdU_J5Dm6giL
z$#uh#d_`Yf{C1#fsOw^?tCe!UyY%YP#HZC)Qr)eTjSt^WhY%@^uuPmr#9Pb!BLL9t
znIa4sk%=xO12RyO0HS-9&U=zDA|e135&RMgnBQCiwSehPCKCtHWVkO~A=^NdEF)sH
zB_m5Q{Edz9TCJ^I#5hNW^N*r=u9$RulyW;9uW#ILO+Vepj+&AnpPbVYwuu&#Hhad2
zUP>H;%T{u)C$WQI81e*lEJAl{o27r!kMTICkx5HSSkxo#EdykzcXf4}jAzSry0Ger
z5sx^nh=zvE73iGz%*d5Jxo7^T1h+j~>OUKYHBk4&W)CHVPHojxPM|oXJmu`Qnk3`#
zeaR4S44_~o#a&I$4jYt3#0^D;`;z8BrU?-(6woll$y?9BrM8t!vo;}CG%_Zp&pyuN
zMd=+88Q$_>(!_d9@ct%Z2_<_B35LvRCxbo14KJT2NfCoh%!-I%1^15cdP8!|sS&Dn
zkm|Af>&!khg-*!Wh6SmXysx|iFeeY@jvGFvQT*)!Nwim!Ke|AMP@_wB8q?DD5;HH^
z&6S_z?lcltF=lQt(E(}1+RLoRAv;&L%|VAcZ~}8?nXbXQ=O@Wn5PUqW9He8D*`vwF
zN1!iia4qAYv`I6=wQK7s6Pj_(SML&6BNsZkTuH}IAc?5}bVBJlYze7);|X;NDKV{T
zEe#YtQs3L*FABhG2vgrHVyA+zrG(y6u$4?h3%Hn(nIl>Mnnz=W*lq{A6!WhHkZ}ez
zJx~8Y(;^3q%P5RY;h6Eo+Y-eF*GW2QOkmIi<`B(y1;zO$?7_P8Wu*NPl8;N?fZ+(4
z$bqBDsv(n#N!Kb6Bsu3%Sco?p@7G+~H`ppm`(_9Bji(hSr&*R(8b+VEkl=u5ZdV_!
zg+J8LsqBH-m!75F$kN5OJIM(5dvBy-8lTyDNM1l--X&@Zu8_-vp+2C-ua#Q$sN<^m
z(Dq|>GEK7`7~p}e4qW8xx%<Jj4lR9tEYf3>Vj=^SEvMV3o>L}YP_$~uAN>H<v4a_E
z(}*~CIbsayHAT4yNph`1uh;S)yuBrsZ5q)`7=IK`>;=fwurp#~O3pe>+FQle&5txq
zoao88<tlSo%YpKGF8SEY+`pmtFah8r^L$G|r|_^FI-Z18i5fF!PkLyWw8Ku%ZSl54
zKg^OT!UE%}{pmeVlb?CJwCesEvG4Nxe{xAZPwnVvaK(<1XJut8tk||XKQ2Rg>dc<t
zeq%lCx|E!ulhppR)Y#jd=r&|V12UQxu>V+i$oE);1az>T9OJx%lY&<e3RPWvV*K+@
zv+CMlqS;2;c%*FF1PT+kGM^7mgk*f1<SDVzM2n%7lb5WNdp(MGiSOC7o@Aeeew{*J
zIQ%IM49Ru~-#lnxDK#aQ{PzQ%Xud2hq_-AYPmRH6m_*cGddA{B8L!03`a~&6ROb0y
zi}3+>G`dJ$Ieqo6?WrUY!2pTF@w4ylcuTM+AQp0Yc*;-rqLTI{Yj709N{Nq`OpYcd
zZPFzyG&W=@(OGIyl^a}>MYnqMY<PP_3LUp79L<HWq~ih!ON5-Wk;E}F{R))0A5Ac-
z;G~$~Kf84n^||8HUXD#|4jHcXFe4G$W8QTBh{*MC;z=$pCY8fV%FIvh-CUjCL{&rI
z0vW<Liof6>MCx2rCc=#D{Zx(0@keR9|50wYX?VLCH!-#dD@C)V1S>`QverOkChqk&
z9s982^3Y>$hqO?Ht#{fzmGt_OzD^93ww>@Y*tsd=qI)DH0_TNJD5TrFY}uu_QZ6qa
zLE3OvC_Gk}D0634V6sI#QB4LHUu<kofN9>lUY*o1@d>kb;~@h?FHF1ILtG6_SVG<U
zopail2VmtWUml}95-UHVtlT}NQT1u?>wP3kl-2T&IAUKVG)9-DtE(&d^B@5Txl*KG
zfHvROE2&qZce>9|LMvzG)mw^-sDQ4XjO&QXUb(|orK-8Vo=B6Q`}%y6JSX8{2$m&I
zhc1*O<_0i&+MyXTe<&F&fixNUiz<e9pQ)#9pvC=lQT4DRZHbPwS4R2Wb^ivjJCKgY
zVv0oPCbH$ojZ8ZmkrHr@-lSFO(BUdAxynWA43XR4UtLG0xa;LLky#1ovE2RxrZ#u2
z`^DOqOzA=&(F@-?3>jr-?Xf*%JpHrTnKNfXMBP{H?|f>cf1<^L6L^s{x8>yKcB41T
zWf1+aT!uF+>i0Fx{*dvEkcr{c+3-7X?~=i-2)hJuqT!%Br9#w?+4D;up;FZg1C4xS
zL+&~AN7>EqI<GN(tFqa%CW~RYII)1!^CeR^Njjv>)kPBxFWGgnpV``nzw!}8;39F9
zxQw`U=Du@Hsmry9IfCM*fv(a@iW|4^Yg=!|i^!YBDPgR+BWZNBgTdFfA-!51C@9J5
zOVTRPGOVP~fKkF=MDihL?;-O{##&?26G7UA1yt{)9Wxecs7*G1F;Zw+d)>N9GPvGU
zC%yX0z=x(C?+vTTpOk^~z+5r@*l>{Ca27$X{#)f`Ka@Y7QSq>p%3FJS`jx3hp%cd&
z_YhZW8S_|7At@qro(s{8%}jXL#M~dbj}AO9WmtVyyNDgwjaL6l#NW!8r7g-Z=OBQ{
zS}F1T%Kz2db^lY@|NpB<+O+MA1`*jKaU+uAu4IoSAuD8OR90lCl7mvp2qhfHE-R_D
zkX>eW$PVA<)qUTeKjC{G{ZewyxvuNAp3m3w^?K)d>W+Bmo?@jYZD^)=pLfnr63<$0
z*>w>$6#4vSF<oqW<tc=<<O3u(3XB_0`7Sp33K?oNdg^Xy82rm1LSaaw`+v8G@{;nR
zAs({LKZ_2?0a0kVAJwU+0HE(bQ1*M`>xFo`u2<`XZ;~_mq#_6&?TAYC53a|d6-UV-
zFH~BwmuYFI2H@E7|I=vniP@4n5n_^l^IfP<<k+O}`;rk(ZL%nP`jl$^`D}-8&EpNN
z6g$3*nk)m#WMjp1{)8Fhy;kij;!!}F&;I<L#!`M|gu0J}ueJS8A>!s~G~%-xG#2_d
z9tugIzjjx`Mu*&^_Z%!z4T5>0zWG9fmv5sKL^NG5-A4*!4b$(r=s0)8-l`t4^uFG%
z)|j_69aBBki33GKK9dI*NY1v9X9Zx5-Hh)t)m^GP@ceVPSe<tOAer-b8UaA~s3p0-
z{LX7T`KGUKGWGQq)X(7~7y5Cx2c05ao;1hcVDellR76yAbhB;QVXUJfIemKhYMEsu
z^G<E)XcmsD;$0>mj!#zaKCzKgj8E*u=iE=Ht?#XVufBLpZ|^~eG!=`-Y5E;&x%Nv$
z-1ZQT7BAKgdAze@%x^7k#oPJCmk!e`XGdqk#+oMIPOcv=X_^OHI~+Inw#8=u*1t0v
zesq>8K$`4fCC&;??`_@3c}`s)&S*9T1qIAi&<_j@1mC<_32pW>w=t6!LrvArF=91I
z{g3Yr5AZt4yLk+XIoL@{Inp~wAc%B+DE0ONmZoEqvRAoqVGprOKwz!9y84ec+6&_?
z4~i!C*lb{vq$iAMPF2Ij&XAU_B*Yy$+WHD9{7r_f^Ic0j#VG!+BP{_qQRf@Em3x@e
zT06eAh60Z7?DEoLfzM)Ld#k5_rW^HY#_YM}gMA@QM_sBHYc7F9Y4PpWNWe%~*<C@?
zOdXB-y1KgWV`HY~9JKs|{j{PDl<zm3{e{QM#EQLrrUE2))jQV=sgF)fOb`S%5N14o
zE3&h%G1G9T^rc+{W)D_bH9n22>6*;Pe8d*TUZdNAlR7R~@QW>RGOlACVYhB=-ShBf
z!Qf;h1v0Qh2()(<d=F2Lbw+?Sd{ix)H`UhjcD$dKCg8OY%wBJt`1`FP+xrs}3d#j{
zl^!U%yGx^e5H4ZUNPgCjrfe=viu6^?UYz^!;lWWYEj4@l1LCY<4HN67^k2-F4eqhw
z=H~vyE)P+Xl)fo`NZj|D8I>G+A=c|@W2jNg5i_oyirwKyH8h;9Zs7n9E{(No*FN&3
ze19+9-p-KK6}nhcekMC=@a95<@ThNlp$qAebhDj&OAWENZ|mrn$;wa@GTf7KpGK!A
zrxx7;sSAn1xhp(w7nx|~1*DDbQwnCS8<Pw?X?S}xSD;0;ZqTXSx>q>UHwaFJwOp}x
zs=~$AK0nMub-wdNVX`sMdCQjK?U?n*wfeXcX{M^sWk|%ldVOVO<+l$HlwZGoT^`A;
zEaKdEoc)mdhvA>YrQQqYpyPE_K=3vbO?>o-50fFTu3^0v78bM6$r9R26X)uEWDT;Y
z`BPPkD+IKZF#A}MWnA>(xw+c$c*%F)WB#_Y<<dA{QoPUG(QUeV#pun?2^K}s!qZ&k
zdD+b74GR(3qswTfts%bVTF2B*%nUcv5mwDPDdJpdSKC_OZ#&e$@cxqJLao_y!uNNj
z{rl|{6T7pTPTNJs#aU0wg?yhd$ukgI%$AIZ6sr=k>;{qiZqEvU+SLTQTmDUI<#Rli
zhc`7aC^1@_bWD%5HtFfK)}ILH^i7NxkZDotxjZ`2XlX)Aiog3UFDfaCEBWC=41k<J
zZ)s^h_$AG%DT~9&$w|bnMVvf*jPph}4zlr6dQkp8LGJm5cdWPWU<NbGq$DIaS6o|L
z`#u@~680N&ycb;8vr98M6psgL)VWOM2S(KyWHt`w-=3~zTQHYiGtyDQhLz{!U{%85
zH8L-_N*fPXRaNQb+p=gT9X9S|kYx>HkdcuA%gsZ41EN%NcQ3du)OXMOa{o|O%$3Y#
z=}A_{N6WJ<OLXNJaliKM+gSw9O?ot^6!D}~os6n*4!LLNYc~_AqG`T%7v(J73t>g!
z(=nfy<SLB4wKVM%NBhI;ZQa&Y>{u$2v1Zx6eb0$4Vz_Y1A&*n6La86Eej+EDfz}}W
zxRnFlg)~k3e)MzGAh=`zFLXo9^8L{<bH(1Jgu~vf7^kX$yp)NF$!~Vn-FmLw$=<1E
zyv*?ZiTA&lX_TVkxj5a?{yhOAoOPP6MIMuT@En4E|Gq-9n4D>o7|nx^h|$nrS&38l
zjwmWB#x6Uw=5Nr~*T>c<Ng3I%ADt4~bsl~^3s2lGyyEBNq%xEwU0q$nEqk@b>haK1
z=KN4TRng3Ha&kUAQs45TE+K5y&ys0=0fAR|{}cA+Oxv~vpvzP=?6le~FX5qujW{cM
zI>+Y?vzs*TY+)(0jvE{cpGaBierr?taj9El!Qs-<Z;wZhAM4O6YrcZBy?7-x{e)fr
zkD+olyKn1tsYz|qoh+k2yqs+4bbnTRg&P$NiM6(ue{g;I@+CSldDM#Wd&$W>m;qmb
zXM3Ruz*;Tx-aP}GEt>BW&DrM;@$JyfHp#n3oXTjpD`u$~J6YF$+1_bt{7x&amMtl0
zg$M53Vw~>#{ym*+rv=3z?od`zTDf`i=0iG`moJOsz@G4_p(ftFdsjDQo2o%}5_R`(
z@L}(H>EHX4#Cm04WaiBor`M--4=vFBb{MtLsFQ!rH7d{)Wrw$U=01L|r>AF^l+=z@
zt5$um61QqAIM_mUi0CNsdT7_0f54m9QMXm*bUw|;?6<G((r91k;_7G15?xly<5i2B
zHf^fGT){YozRosf8B06&tyfZ3{z!AS<lDQ~aPirJnS45mFNb?NjPCt(Oa+XN!)`BC
z^3pb~vi{dm`xRb%Z0F_UqsMoyzyX2Jut@<Eid_4IgpNE^4P)Zq2qViX<hft2ckTP%
z%2YSkE0+oi3a-Z#>?>4({@7~6g73X=|NaVWxw#H04fmcs4DCg3RQDThb_!AreccZG
zwR|}ldfY}Qsx3`qW=@2ELs#P8S2X|oml_yA`sc-W`uNYy=x+S;s@=M!_`jd1sEAh4
z3;*{M=BVQb|37~1q(neKz~5=w_#=H~_Sx_d_gHORT}=2mauNH18Us_uGxGUgj;NFl
z*n5m%p%J4%?Aq+&i4dxCRA!0Sj8e)e@@6P8Is{?y%7Jq70&1(@#Y?3KX9v~*X4$ng
z&W2`xcU+uzi5XhUeZS%2gNBR7ETv6@50(#(D)aO6+h^C$?v$I{-SY2e#U>>Q=b8EV
zl%95J&>;gA&1pA!DPfX!EsB{sywcJ;F|_#-QgVMR)m=+<=$v-F>n1__W$x8g%+_%_
zBqT({=eN66o<T9BG94Rhco{aZ(#IYP!08_9%g)m!f|8QkarjUr2)^JG@sc!ABW$YO
zyvO}U@KK%hrY0LA@Pn_9M_}<L=7xoGEa7FEPbOXW<@CHc?_}q^Fl|Skg2=dL%}cZc
zLeXaaj<riLrmB%vs^hov6&Q`!Nw<2V%5{bfk%@`n=z%)~dFw`NDBRYdB#PQJ3jVk(
zOR|GjU!OgoRyY>Pxs9G(oS*t|F^?Ra%@D*lv;~Dn_<;>k%5IY5z)4IVx*QIxkz#rn
z^9;gTsSdpR_pd{HOf5mSuk+Jo*#z;4s%HtiVLF_1JR@nIN0$yY>wXpHaQ;2(NY=Ug
z`1zk(dnafH-MqOT_XP}T-Mfz;+wbR>xoR9cCgL_~M3nc`#+0y!S@!hxtt8M-34)c=
za)(VyJh|Zs{qGYhAT|C8hJcoP1-DD^kAdrZg5Y|flX23(AOyBxU^D{&6n((5hvKc$
za}o8O(i6>ubUwG!r%qk^`R%V;w{9tBHz{W~J$(9f{S&REYP8v|a>{$UA3Vo1=K+@E
ze$&v$JR4mVRaH+p_6WTqS0Umo#+3dRFkWadPSfV$<)tG;a440*VmE>2w%-~P9-inF
zAnDc67ZZNyMHm`MiHU6?L>#+R{DXpu<Ry6uy%@Pg&c9}|P7g>;-A9r4+K%noYBk{;
zC$mlDQJ&xrJw5#{WP|IgH&v510eSj;*o8?49Z#q3$&=jgXbYfQJY-nwKMYOHLXSfb
z%7N=0H8}8uR}vIim$kq=p@xHakNUIM?gR&)9|HSM5Vmav%twwK+0z6Ye~IdcAfO$7
zo@Qj@#)INC=5~^t+eYHjXq(KVloW1J(ao4l|MB%XFIoOb9#9*aLvQsb&TU)=XHvU#
zNu;a0`#EZ3*2(^DJ9e0(Xe3V<#m#3%ssZ)8PRgMpw_pstwdlcI$!yc($Jc8M#9n5<
z!tJAbsbO5AhQqt+7V0o=35jhuA@sUIrs~XSdsJ+!g-gh0XBW8C8hG|dOJ2+pf@~41
zl<;w+NkiAa{#x<r^XHG5hEk~w7ySbRlN~xsLD_PLgoX-LTMQO#-MV#`kkAJFqB0OA
zIv#Y~^mtGYPNjXwHdQdZw-y)zv4wHt#%eS%Y+I^#A%zsVjWPV~!Qz5CcC>8SCqCb<
zvs50fbPGogU25D5ZyF4wxw(0#r0vdo5;lRjc|3;>vBOI$K#mDFn5$b`^TR*`{<_Za
z9po<g$;rvdBKB?4ztNnwZ{Mr7@H}&|UeD3-prk{`%`acHe+@TpF*7q`T)$rB{CPey
zoZ#Es<B%9QN|~nYy^?9FKZ*ODTwKgfL`FuQb-R-2KE|wc7KZPR9tQLF?SY6QXUqLo
z%;E!5W<H}@Md<qutyaDPDHewdtW7y}1HeVkxRV*5gj#}uKrHww<if-p6~u^S5C=bG
zCg_QA$gkFM`=i`TAa+68bkQju11F3`G9r``Be$rSSc)hf!3C#y__)RpyX@uE>IsCD
zqjlJX#)~k>w`jb`ymc#|&+?+%oi8t(dXK%B`Zdz3i=vQ`+h6+fk4Q#FMiH6`%IPXN
z#k>4*_@zLm&AxgH-ghn0g(i>$t&MHm(7Y`O$MK#$-4@Pis(af)%amVGklbb_X{d#}
zT?H6@QSt(;quBkUZCrH(;(61)(@#F%z$&(PU9KR`c;w_-ALk=m-ZE*ej)0&{k?~|6
zmucyhX4^O=#*-!{2d1d#w&)u*-NO1Z)pQ#m4_60=@Ql{C&833=Os2kzd5mk<=CrJ~
zZ!fgSzlqaI4TO04`PFaTzFlaM#11*=F9mM@0_Xnl6H}Lm8c%H9v7_m$mReV?Ya-Jt
zsfAb}6Q4PY6^M;0dd5v`WAdzFs=vlMJ8k6?WL-7`IwZS|b*%Iwr?fLi)l^jjiCqkv
zIE~EXgvKoL@5wknCU(J1J`7yejK!kQjtXX^V?G-IsZ|6Ru8JO~ir-GRRkz8SqhBO3
zYHRm2H+O4^=akZsBLSzU$WYI#dQ+t6%1~qGEJ|X>@2^%NV9~LLRrh$pjg(KFiaz~Z
zS}AM1XkykgJsV6R6At)FZtmT^d-snoX<H5$6@1f{pN0Z1_p&pebFP69zTM5?VcU#e
zoS6K&=e2HyRWYnweez6}-t$-I^jq`oV&+?C$GbBdjY~=~gH4x8ssHq8Jns&9N0(->
z_+*!ijQ+ilSInq)$j@&Om9%doE442>jr9|rn4E6VAM&04N_F4@G1mKhPRl#fw0RKY
z{Huu~2l~DnGo0M?(J?V(xpg;ludwhYAovS)QWj`55Pp~nZ7B}p^_(7FL+le4u0f64
zZh&P4v?!|BTRek&QHg6aeedEwEl*5NW<2%ns$65OfAVA$)2k_7_p5K1qfkrH_6Z1V
z_AD_$CUQhp_?UiXzjZ>UAyw8`OHc1EiOdRIhHfL)CO>_89MEW8$|?S^TZ5lcLWx~?
z>%Cb<G#=zUBupM*VJ&gH7Hxr{A0Hp?nQ1rXb(h~(CNUlU&82U)Fh|g9AtWg&Nw4s7
znsz<hy>e-B;RqJ*#zxsZ*2@^euF{y>%kah9_Y4`iRWvm<W50@uidJH<HO1TusWXZ~
z5fsu*(@uW$sB-Wy!>Uy`(EmS<k!|H4Q}e7tT6abMBA9TN(ss3!sp00+1e2qqqs~l9
zA*N@Jjsxd@Eh&*1y(p%(&<VVfeoO4qH$}%EAGlBI=<NCBS(2KX$^;YHf^@z^IcTGV
z%r(H#7oVnq^P$k#)`bB%rHqDS{nts)=Vf0JoM+QiXqPk$kC-k)(GU!TJPt8n2#JpD
zQksUUkSMAUmsE_5DB2ykI-495uddwbmZ>}+iwuB+Gz$2%4}<fGK4Z<L-bJ}>ot<TG
zXw>3jBX$`l6?|ds8?`NrCf!Y;Y0Mp2>@RKF90bGKa8yHQ^`EjXFpWN&NohTYtTrJb
zoQ*>qbKp$tckWuOZ&+gzdu%s=w^a@Ws8oFjZu~yY^V+p*l`zp0jgv4-?YXX5NG9Tq
z#!xSPlI6Pc^J=Y2TkN+f?ca@G<NteNTZ)4=aY^cHd3ewOzpm$+n3+9jcj1ut{Bkbm
zp=`H*d*BAP<5>@JwNQcya&`_bxDS5e51m><MgOS~l!yc^+;OwT!t@CFB%tKfXf4B>
z9~pAwTHeMjNs*<%9PTYg%M%>Arb)!EnE_pO*H{Ztt+G;Og<`IKdyCz|c?X4j>T<IZ
z{uLF9-tpPyEl={Ava+Z48*<1vRSqs(r_CN3?=Y7R>}xR&eq+wT#pU39&8>FG^w|@F
z*tDds@|Sk>?v<&OR~1`z_qda*MRFj7a(VIwiD2ye)(r?VUg&Pn6Xz`~)bCu?(boP3
z47`c}1}w}R#ioYups6KjPftEng>kPYzI}UnU9;))Gc)CwI=E*_zr5FUB?e9|I+eVB
zee_GVDHrh*9aouc5hXpWW&0ztpUl63Qwz6?KanLH%f^M;^9%S7F6jqsj%jG1xZFr6
z!cv+wDBISqB6E)QHmq9W4ecdYe_UP7`K&+_0O&*7>AgfbmLwg|GPeqae6zBq#!#?+
zYd2d?Kww}?NeTZy77q9NiH09Ra9;WO*Ke#`&GoiiQpnT^1%TR0kR_(SzyDohc+)x5
z2!tO1d8pK?Utes}Wew+(gl-+%jXXpUkXeR)?$z(IS$xBJN7(dsVo*>}YhGqir<Z+a
zX&8mVPLyNt0{qeH7>j+e$H1vp_7!XxGPq}7b7mzST}t;me%9dNp3py)VF{8Q4}c$1
zLSg(Opx^zER`*dbv9S&17jD_IMd*MO-(5<=Sguym;R|<Id_D3mTiORGT?Ju4mpUKN
zyyd?e8Im{0%H{ckdteUh!Me1K8z~CDCZ0=Ra1D)g!8NKsfuR{v>Mwt||CeNgg7^Go
zq8xU52`N;dPC!85QRNu)P-{S{#=jBQq1qb{csM#fZ*Pt7%93=>U1q6?iH=?wpk(%(
z{WKE7t}02_VLen^^b8EgB2fDzBQ^em(9T4U0L8n^9hRwUTv|<FmB>p-iXthLn+S}&
z&<D3@!4KbU!r{Lm6WB6XZT+@sK2{!rC2sjm>(}Sn7`m0s?4%9>x!4@MO#<0{`(Ag+
zD)!R&fX#^yR0q?Hp`vTtSG~u(jzoOH*$`PZe_TKDR2sSBjDf($U{2y2i2W6R$3<S^
zb2Q&yafiow<w__YWfS1?fDV?fab`Um2>*ZpeZiW@NT;3)iti(BerFvjO&r{h!aA?O
z2r(7FiSWa|L)kNTByb&3iPVb?ZwBWB&odFXVq@cs$FRGHnzjU&<bRNZ=@x-H6u-N}
zHcGfu2pWppx9NF~rk_my$M~>A_)-7KlQ<jTV3joONyA058Vgh9m48!LhZ1CCrp~%d
z9mC!!JAO>zG-<o!PnRKaJ%nqalO+gAvEQ|8D?x!<D`cR6&Tz4&RHGvF2!Yw%^!0-%
z_?cdyWAfL{6`LB!?@!AH()t6=^RAioyv402ai48RF^ghv@8D?9Yb!~&#_lwCVj=oz
z>CQ4CBbEr^scoh<mUP|zp}X^!th&d>A|Mta2&9|zU(FCX;wZ+OJFlX|{K{gzyPMe$
z8-X2%7>_&K+KH(}(3oBgh_=PHP3kD*rz~gcJy*JSQ7OEwJ$u;f(Bh4h^Dp>EeZ~&@
zco(E6Vk;><@e}Gqna$D4$BrE%v=={OC0b7a=@9AL?ulFTgh?MedXyk??OL}ZVa#06
z%Q64m``KXS3_5M28-v*Y*3+|cq?u&bKq^O+k7RG^KIsS;ms40ezE96fxJt4gP3hHs
zZ!|Jy#yU6MpAbD?aph6Wo)b<5wkUu>-w~<D&%t6FYOTB<zPrg%pM5VWY3y$nsHUS6
z$6E5%B~Pf<OUm1_*bUks4T@9k6%~oYb3I!qAol=b{579kH_5&;?EvrLyirTqFF5Or
zC#{!mI~Ezp&8#dZt5Qb~WQZ?&ajwdm{%bEz>g&h-^67l4FBb7d{Xe5^VEt3ZZQZu*
z%v`*!<)KsQ^OTfo#DqR))7-REQ)!Ipa$r1uwatp!s_88-m(Nagk<h=Z5PT@=QVC+0
ztZYjkvwtILZue?FiMWKC`5U3sd)E>9o;-)*PGSVB#G9@YFKxfCv%7F05!&~rQRYzM
zXH(hI8P8Hsws$Ifk7XrJ^ujF)Kt&Q~(F(&<&sHP>CU*AqDW~*%gTyP0GDgEc|9hbi
z6+{a{$4_)ZF>2@74hJ!iSJ>&}587^{){S$*-5vpQuERf~WN!q&p1KQ`DcRu9j-v_c
zI7d#cWVKu1GQ!e{EMEWA=r25-IiO|P<y_zP<b;H*g`P)szO`jT^znnG>XCWz?I5+(
zrQWvW+p)QhwpqKjqrBI+Gf_1EejK2U@Ix7j_Vx<Y7xX{N;-3L}NNz{gq5s=MEVZCO
zI#h~5%oXiFR&{PuYq9GHROfzvdr1hyXkm3vRJ#RW^-<o09YO~F_@x4IRkg35BStI^
z-N`cBXmA>vI(gr*0S9#bLUj@m8OenFK%~yo#R>x|s)9Qp2&hn4NQe_NG%)3vAw{M0
zLkWbGYVzjvjVZKcPJ1q)C++!2lZVGip5$**8v!NKova-$U3x}Uj!r;gwDzgR%79fi
zO<4h|4-vE254jHSoSz!n>%C@o=NB{%piER{6?*)6;8M?PX0mo)y^)>x+r!PnMrxI4
zm3v1s_+CTyfei!%f%(6RfhJzRc@wSLyp9`=68ya)h~#1vdy8qH4RYlUXkZe6+qf?w
zGSV+PdUL9_!1|pc<pViLu{keZ02C7h47UJFbfdrxLA0S0C#Idz(1jCjQTT2F-TI->
z#U^IWep4$k^FV)T0>@-;M{=nF#7t3n%(N1?0kEG-#PgR`%)_nyZ{v97BO)TyjvZTz
zg4?nGJ;%VZY{Ev+4zti#AM~2G&8XF~{Ms5ZLW&@c)~kiF2H<HNT~uVeihDv*?!h4;
zIiBVcy43?@(hcNd$+vCp>OFc<)V@hGLDmdJ@FyG4Hr>D+M~@$`%(rV5yp8$`OF=}5
za%AH69hW4~Js<=ksN)eNdJ_Iaa7I1CZ_n2IF45hesOv-0X4<)vF+gbrY7q>rFc?zp
ztFR+9U?YdDyNrP-E^Ae9Z!fvkf%FR`VOf{K`zVV)^_Kbg_@L=VQ|`@ZxM*!~UC1#1
zJ_MZ5P5zS;!RBY=_<-&}#@(|hPclD&fl$RNf-r*E_RYRV6!Z^$7UwrsT?j`S!+gRD
z;uB*L#!@;{4XIfgZ$L1snV4{XxhUcHrb$y(l>r_RdjI||P(x{9uPQ2{Zr$=9D_icc
z^(g&tq1pg4>D|qRo>Lde5GoLREF=v8EjTPJcC$8ioU0r?ZB8hn`w2n<J&Ij<S^%O<
ztgImjJmh$iwC_@J>vV00kL@O;>afOQ*AZ4wJ1IW*wFO9;0Rp`H$;m6h8F7aGi3#f+
zcWm8yRNdM%3N{789Dq;R4V~^!w5Iy{O~6gn*bEkdRtV7X2ET#$uf6^K8aK=;QqLL|
z!_H3mKARS)`gwf>O$FQ1s~`#II7wd#P7MJrSHClHFB(KX`jC3XzwQ?A#dC;@i@R{A
zDMNP?JV6nGojr@(vMI5Iyb9_zMWZMTvR%thC!V|=pPZ~nKa(MHW%g1~cg}gtn4DSS
zl(MI2)S;mwM8bi|U^OHKe9(7nU6!J??Pz(chh|FSQ++xZLQowU3t>?@7FiAsIaIDz
zawW+2ez%Q`jO8z{uO7!1R8MhD(;?mb5c2-s3S{G(hp6W&5|<%m;<0g&D_Jm#2j!(z
z(#$%#uhOk<S?rE^prGfa?FPbmAkZ`aI5#$}mHsIRdD35Xc5)$nmLmY5eL<3`c+BV`
zbVGVy34<_&YPY7<EShC)z)BS7DzFMH-wnkY$4#(8^s&VtUE`q0xxF7?8zArZUadqG
z_#O<#Mq;49zdz{dQ$dQf<4UYG{R>I+8~z2K@N2Z44cglSK(5!of>fs!2&S2q9iIO+
z0Oy#v+#Rn;I|hai!jeBu3EkaJ87IDbQVtt&lMq92s#!POxrXFRf#a|PvUONn6vo)F
z0bs0!x`K{j7g$<+MaFgO$hHkik|2~c)_gDcq0M+%6}scO$K(Yl$2Y@!ZcXn8+qt+f
zQ-iWTGCn>OV1wr3O9D%h9>X=`@mz<c@$TD4vi;-Z<78_a)RsTEC-*~|ro+1VKd~;<
zo+66?BaCC)kiii(uHhOtlGHacH#6FEz@lB)a9D*WiNEeTQTqwT!fGLiCW2z`Cho)>
zpG8kX5&gUoRtbpqOVzm9Y1<Bv4UnjtsK)45uU3BY*$h<ekA{ppRAn9>IgmdZQigJl
zUG$i}ALtDpb{_tEkUy==`tu%;KBfk);9tP|(h+C^pcbd2)*w<jLg)G&4WwBd@og-+
zR|a(YCbd63n3I{*voBYIkEdU?iu=HU_pRTVq7qoet^8oHD^fi_AC>_~FNdmY?_xXn
zZGpNCQV~NCGpI!u5zoA4?2SsVumI_1McV=-dz>S=-{9bjnMk!L2K5Vzz2NV~QA|<C
zSxm|>obeJ3v=WZ+^Wbpq$~f;KQyW+=CB_xp^r)8t0HJtfWmy4T=?K{5Lj<`q`ODb0
zwt^5Y`4wGrE>YBCEkR1L4(;8{+^~|8eD%-gC17dXHn8U=Var~F6P7$q5eNue(1?};
zXg|O7UC9AAWEL7x5fBg=LvwR;-?5VRavl4(>90j@!f0%MNYU5<;vYfNU4j$IlyfXn
ziR?<b1%NP!tTpC|V^i=sR2{)JHX<_In0k^IB9DrpT4MrHZ&eLMj|~U@`!YgscU+7a
zBo*#+y?07DHZnIT(J`!71l5ZL#UTLGy8y|KrEJEHt0psm%TVKkXU~|>2ApzDRZ-E_
z!0E^c-2cAfx)@Qp{`ZRe_a2ki9engLS^xa^ist_l)&Beh6nqF-@c#GufBv<3Uk$Mh
VLED{GuaJYT>PIwHvXstV`#&lWXHWnD

literal 36985
zcmeFa2UL`4moBPptKB9V#e^U&MnFJRKvXDgK^hTI0m-1CB3VFkvfEaXs34#smVo3W
zA~_idA_9_g5G3auiYo5&7X8ok{Ih1xoHPI2b?&;qYjp!f)%U&M8}@$ov!A`We@<R{
z?JD+FOO`BIEAy-5g(XXt+b&tMO!tQsc%{)lcm!Wo=*mh<;w%2mp2~E=mmhEZs%E)l
z3FkfX-%{_+(W^_A{Jca)@}!dOvw>#2N19ikP(~u6r-%0M`s2Y*-~GZSImO?$ME8Bp
z^}{Q-UVU==#n0dE4CMZy)J*aOoA;r8F+cree!2S64;yq<f8Q#3<D~Q-KdEiFefGW2
zM2-@j@$p+jkhZUqP4%FoMEAFE7i%@l#3yUAQ~R9zYc!rXN>EvtL%Xn7W8gdHcXbE8
z(<a~CdbECo`O3>jw>Fa(eh&LSi+o+ev%76M`T8r*QbF?d#F-y$my&NToO!#Ne0^}?
zzi^2=>&;v2x}~mOy{dHaV!`jrSG#GIzPjRp3*Gt}o>jMeiP6oQHzhSRG$bXzjn8tc
z96G*L57)kwX1?Oz-*tC;gHeK~qXgHiqr^J#i7&bV%kbV4tA6;82WI+GQ(&{g@li?5
z8}F7UwmQ@D9}DS)L`U-$cy8P5FqE$U%(nf$d8M3a{%XOjpJpAMPdKH#d6PF#pVU#M
zsNgxBJ?wN|QE`J_p_k`Q@8bvKbLRSN>65i9tIAlVIavMt{LZVXZFQON;M&O@lASGn
zt?W5xM3A+*apqtO`J7_-+51VQNBN%PR@-T6S+?ey*7a8t%Oq%duB<zCo6^ij6TO}G
zcYS`cAzjn-(z0ZEmjE4SI}Y<aRw3(wy2z-g`<&KwJ0xiJWn}Vj3#V*a)0VJ<^4&o;
z+7}A(+6v8uV!>RFT1`v2&yR(6rZgDFT%k9b<<i?@lS<v{lk^KU%(8{s7&V3W_db7I
z<=7vW8eeM?p+J4!WIZ)dpPf?NX)*fwP+8v90If}2b6@W1PV|(YS5euVIq+KcnSEcB
zkbdd2>!zkHb@zNec8|+w;i1c`s;Y)f*xA`Lny$TAmCnDWAm<0H#IL^{-)3CovwPMg
zrG5_=>#{kU>1Lbh#%|2!cy)C(eafmrW^d;<cJ{deqlPyIGBkavlgPqce?oU^i+#TY
zjXoBT`>d?f0?SJ^GchTlT72ShN@>NjjK!!VZ2w}*uaUBU;T?<ftJXphgNm2)No5kp
zUP!DCRx0RyW?3rJP)4QXwq^tfXg#I$ytut0i;<k1yzxrbQH?j(&sQv1H=2mHHPY$B
zE()drCD+E~<m8$g-lV2>llAM~EBCZ&ST80frnv06cxEe&^W&Coi*x}eQ4x`;Ml&ZT
zr+~(Zh%b%rFAcckQE%P6v0`|Idb-8cfs{tmQS8f&v1PJ?*@v%T5nd#*4rh&*))_<u
zwKv<ea-M4)?=JJ^v}qFZ7tm_Z&op!F*k+D(I4vzL&EYVRXighUovvp@MLc)Y^AZbh
zr7a9EFoqu=x3f4t`^}f0qLpH-HjqOb8vVG_d!jMri<`LovdKC<@BA7KGfuL(-_14s
zglp({unY5Y*F2NSvK?(-+B_6Np&Pt*{KOL>X=P=VDl*;b;_~dq`yUgH>t8$5jILjI
z-FoO+o=Ix6$lFiue|fZtpGHhy#KdRtvTxhAlUw)O$A_b#T=abyJ9}JQ+{5Bd?to$`
zMMcH=K{FTk<*PU4rFTEyhMCTu5;bedN^5uH^C|Y-Bj>h~%kjX)IQ5O`ngZ$?8XdFU
zRBr{RK1G?pT5Sh@FNwLHrB2Or?^g?Y6ciL3X}h(oT{L%A?y!i+X@LOuuCA_`>ICPF
z*t=F0Q{&VH$7jxSy`v)^SfsVIwC3AZQd~FkU6jNG!hYoSC**G5OLerUaQ^!K&L|G<
zq<yPwfPm-ibw~F-3BQCT5i+WYRn2j<!*WaG@^|mvRZY8bnXFyW;5y3u$jLzU7ozzb
z5x?2bb_VESb80cB!UUaop1Uw+uNxY=!HRHla-P@G;S$W5(QUHp4l@6^<DT&Zed=Xw
z?0$i?w%@;v@uxOb44aJ2I%--~D;ITQb7q!Jam~D4*<N~V*h59zZuir`z@3;o2M33&
z$r=qI%obKr+$V)P`&nPN^ON7Ukzel?TrysLr)4uSwLFRgimsK0uqCoNL-U0chI#0m
zA<l*OHc^3Iv*GONp>d<HqAj+10SOwEi7%(bQ~Hljo{;<o^D=Nn{Wq)Z*{;CmoC0z4
z_PlvaWVIemQy_rS^;i#gqz~vjnAp5sx^mYbqnFBvDl4ohFMmiGO6%~Mig<2sm|(Ix
zjIDr&$~7~w6kAlf!W6SOo6DF?=wEoTx~E!2N3Jg_HuiIBO3G9{qh6mX*Wk@X$*E1$
zes$?2Be8IM|Kwcq(W6Jl_6FU&P|;nRGnK5}xXIG(?z@IftI`FD&#5TfnzilvWM6gB
z7_DVG$Ft9<JVYu{H{b2s*fTN9knr&E+9~~K=BGKFCd!LC6PyN(=q-hR{J5e0SnI6(
zm4i>VC$#Fi^S3`zl<yr&br{YTE%4Y{sYg4zXM@hdT&-_0+3((i+O}WssN(!fN-8NS
z<(*;?uj<w-zLsQO$Z4}nr=BWobn&Fii5N;gJJx=xUcZCIW#*K{>_h48_Xks3okQoE
zR2z+x<SbGQjEszOD^EAsc6b)SPR(~}7uwHF^qP;nTRCk{SFbk~F-`k=_uJTHtq$c&
z#l5OaCado>F_*D-XIt}$$_NDoe>1$pb541VYhk9aXsl>2m1D!6vpv%ytuqCpKAqUX
z2XS7i^=a@$2R;=S(~K);jphSQQq&wrZgUMJIdvZ}z%D6oX=#Zo@phgFy)x^rGp~D4
z$4JM}(6D`?Qb9prfiaysJS}qPLaaG^<guZ&ooW*8t~)c%Dx5nTplKoVnjG59T5EoO
ze)I7X(Y*l*N51~?d(#5Ek<Sa7r)Z0-zrX+Q6B@tXPUdH`(D@$A^wRs5%`z>xt)ej;
zVJ_m*h;evs*Y(8tLyc9Oc#I%-J9S}}y7FdVkWEW^aVNu>&A6{BiasUgJU??~_QmaW
zebb+dtjZ*ejg0zhuD$zxd67kTk{2y$fkE3_Tt-=#zh#!1=q3!S))VTzrx=S~uwq*A
zI@jz+X`jw?%kBdBvu3?a9mZHdd3iZ2E9***8z+p@JN@ZX%@q~v$Gb}0$IB=biHTsA
ze18qot;)*E@XPg`t+2?Cnyy85n{Idg%f6F-oB11_C*ZNDnRZomwN&0yuAGc-KC-&4
zPSc*{q0)uG2<;w+N?i-LJH(b95*eR$JU-oIS=9NPbF)NXNdc{Of$?oDCLyOmpZ41`
z{>LQ@J*zFErcJl{ddke4#{;j}VPg;%3bRX4fUvOed1Yn4`F@U?pqmvkMT2t=#&?vk
zK(3Awtyk^u!ZVnE9Ll7?hH5#V8-k_pPi)2s3)-*aIGXP?^`xx3BRtU5?R@Czd~D3E
zt+S;z?eONVqOFdHU|K_AmWy*s@ttUU`5G_sq{)jXOy+GSD=}}Xa8yl}W#Z<ag$i%}
z$N(e@N`rAAhAt6b3(H&><J)Pf)BRODPkU?`p_?V<Zz{6T)6=7x(2f<~)N7pH6;Qle
z-{^GgkInE3p^1q?uw|j?>0-F4uS?K}3|N*X(|z4-`~^qWR%P^m`uK3?y@8yS?Zhwp
zCuEI%GOf+Uor>nOfCbHag6~b$w-Urbr8RY*IT)*@b32=#O?Pp_`QEbGi6zX(8QpBz
z_4$5EN{VX6O@rezZMR2z6<m&f`t*sLTemt|d34m<<#-OQdDuFWp0V_@%SjV`K9%^h
z{y3_lBdlwl2d|-sF7Nl!@8+uIT@DLjGp1)Lm^*K=Upp(Uc#=ZzRq*XRRC;7*bab@+
zV1NE*9S^?vH172IU>2u+U8O<W60)b%t7>cEWu(7ZqyzmF<!ae9C%^T+-ZmFFZM`q$
zj%V}Y5#QCu|H4>g8*zJ~-V#Tzl|0=Dcwt^5T)V4wp+A>lltmlL)H3xgx{`4=d1S0u
zkfkTbB3&~eiZiADTA*ia&d9+hX9LoI*MYSX_^s*0f)(Rrx}4e`-`=rM!~PYK`Tix>
zIzrq9&Iq(x6!RBZNKn1WAxwAddZIs7U(4b=a{J2c9~<P!mfi1lv@epN2eP+C0tYue
zW#G^^*4_IO`rG_<H5dISER!j(cF?$SxPK1%KI?X5NC-D^VRe`y-&}F}L}haWr)}GB
zMHXh30r5u7TpA7b{c)nNKD`rmnwz*{2PZ2Pd&Ty#h>7~^<8Z9p7b}uV$4405E)4yH
zqC-^1L<Fp)DAuUrrA)K)t{YlGwSMk`IccqjF12Fo3FyBu^MIKKCd8R~#zO}Pm}m@t
z-1z>)v=jz)V(tgqdv8rM2mSYxJ<}Y&P!%EJx1T)uvQ^On0H#;$U|)pnCwe?%Ep9l@
zRZ`{s;g{R58yN8D3inP6E{q8ljR`uBx(n!=2mBtF(!d)oAH>dT)b&K`SoaXj+~YS}
zf4$T=J5YhW<UBkL{MP)y!lBwOaB%*Eb#||#wT0Q4%Njjq|7ro>AS?(A&_4R&=ai@@
z9_Ohf>h1uCr)R#xy1A8zwjNJEu2<k8;iB3{oIPzgmy+HjHoz}TeCNTqw{9Ex+5w_^
zZn+#b>8%JG1-39aP%Ik+c$h8ws|~P3-s`KyZmQ>PHtRT=Gp+P7b#?Xju0S(+##E7l
z^XpcLqm+VDMe&I%jQQD7vxO<MZRZSzy~Mg6FM5Fhu3t53W7U${->u{tNG*F;w`o=O
zq7fkGE*`K9CQ6gTWqy>Ps6v>q>FZ`@-mb!y*754eyxZYq>tG=|V8ZXay7u+;)d8Jn
zOe&v0Uw*Z;T*`e@zWlL4Ht*wOzmA0(0n%yPb^0B_R>^c+>x{+FdLMZKySx3jmD^p7
ztxKY($W8L@Z|KPAk9P<536p)$+|a;Y?9cDMa=Y!%UPszp$rha-xkuT5v3EC*Z_&*s
z1=ut#t|WL6$ekav?etUe;bG;j`NJh4XU?z*n{%|>+xf5>Wo09*;FII6mffYE<P`k)
zD+{7Q0j_HkT{9it3jVp1ac23%S0&^!>~U~iU9TG%xpz}tB=87tj?9mISk2fX565?9
zR>5UXk;A?xcobW3mp2S4KMB=lu-`T!j%&Cz#}R81{9y5@+!>2a1uk`zjGfLEv+SCv
zA6~v$^OZJT?%5HcT#L?6+O$BNhzfuR>fp3_36(-IaOsPRm}<-k4GonQ_w@A4PI1Bu
zV;eVa>=(aATz{&Ur!sHH%~G-MT_#;+)K-1!!lceZa*JMlO-+qi+?}x}Wsc#6>|G^+
zqAwa#5vtfUTh%V5q#P<cekgam^w{129W29knif?^0-?f6#|2<(lYn9;o^L4!R2PRW
z{_I`mQdqcl7aUMsgqq6?b76DxKd?}mhM%O6z>&CyWlt?9Fniwl?wbqi67^Opol2Ao
zIx6hXud(USwa;5dOeDsil;sikb~2VXo2;L0Z&-kCnfUa6Yaa2V{jo_I^tjirUl)7l
zO@;vzZ^urnv#Qminb1nioDaok4rN3}Myd`UrCA{KnacF6t*I$cR1n_?wApuy#{ZWA
ze{$D4p+1NR${Y?kA4f-bs40E)%PE$8Uj>P+WKj`+<`FMEgFs*lhUW^@_Tjv?#H(Nl
zAlP=GYEP_C-ZGZsKds&@;1MPpaN5Mg<Sd>iTrO}EfutltzdirMYBP8K6j$oPe0QSb
z?AT0wne!%Z3d44Ot~S@}YO%i*{tdjTlxIflU+-~kzsKclizq9)Zg;?&!IVY;XIf)x
z0l_6{u<v>#`amcxdFs?D5{iYNeX^c#3>?;Vm-~~~ZF)bHIlLXq?h4GlbG8xtBwKsO
z00A2Wbj|}+dNi75@;?V9L1Gn;t%vrkLtr$6Gr~cg|F&1JJ@5YQ(Vs$Ku5qOt+qvF|
z4#1uJ(%bEJX*<t$ZV@(AIvXg$?<GD}cZ4z15gH#afFQjlX80G=)wlnI1Ur1oy2tYc
zn556GNqsj$V*Ted&~9PId^bgUk8gdC3(oGPM6NUCTTYQreU<uqD(Dkf9LGcwA%n!B
zi{1X8;FSIYS}GcJ(n~pDmNy9cGd-N)U8E!>;V2Paa;qrXdngRU$5z$UoR*YC2#D~4
zTSZCzb-gh*lcXdGB@c^=ZcY!WxNz~}CVZHc6+nACfU;D4<eNtU0n&gZl9IT%6yU`}
zK3@Ky!ieN#;f)EYr=qYTynKA%fWpFdH#9c7Yo0eiaOC0U=H_}pLOd!u+HGu1*o+<s
z%!Gd*H~RU*!0zMYb9Z&cI6ih-kb97Eh-7v(y}*EhHONahw^I?SlF=I)8SV5flKf+|
z_r6|bi<rouM)#<>af24Sce9b9q0cm}U-oV0a|B!$%-^cv0iK-Q1AM{T$7yK9a-(9*
zab1|PNT7#;hDPA1nzWjl+Chnwgy(Ub)Tt@!jwG+Md-Q01r@9AY!ou=rVnegCvSd%_
zJ7z@3#-1(M%g^<ZC9HI5!ZfA1x~l4?9ew>R8)XfR#;cCsw`qB95#pY`^){ti3m3hT
zRF8odM6C2`cBq}rPSSH9I?9#Vn3K^z-y+68>{Ro7;PsBP<;>mjU!o8HgQfo8VIcou
zmxvnE-F)s>a8u90L_DUrI0Ho<!ST|apBYV@ZgD6qm*(Q!uvdP+^?l|8E<a@aT??RV
zT2F|(E?6-wM$XON3Ib$5KNmkHF`ZtPk56d5T*YKnR~glPpGBE1QXp?Vuc5JxL~F$K
zoY&Ug9&<6yjo34Q&y6JBA4sm%7P|cY58VJJ6Z@+CZV5*g@rJIhBn|@6l?q$y3Wyad
z?d`Qe;kb}BAit|Cu^8@Zd&uxkyj$abOO#qBjRPYodG^V{utE_+AxTOC@Up0BF(2W!
zf$H~J*h$2t;nSc-9E`^sTNxtU+$4V55yQOwr2}hmDeiU*)*ZKGMkj>q@$&M5=QTF=
zfN2zb?le_zJM7RJc($5(=?B(N!14)Nv)&m4y;ewo%V;6j@Yr-lMg~0dhIT}PUT`PQ
zG=zB?V4Nmxn}IF14BM4CtU5pRA{x{vZieM}`t+%rmV8lETpS)BJWWYSiBx>}8xRD9
zKK-Gi(igyd@jN4T{PR5HU`<U;T{kh|w~z`W?g|c)n>z&lzoDVQ4ab*9P|zFLka>JD
zmE<J5;_aUJ6fqk|y%l6-Wyda4jKFK3wwrz0s$yztIy9L*6pkzLipd|4XjWEHk!GG}
z9Puru?>$&vZs%Ad&-sxOD=y**v!Lc++*g;a&pa!2&4~s!2FI<39gn|hN#(!6FO`hV
zLOg5+Jv%sfhyQ-H^^=p61oAG<h`soA`!a`?4TN73$*2kTDZ1jr$=!T4Nv)%DWk+S|
z>(>W6D({VrjqN)7BD3@|Tk}?Gj`GEerXzv5a_<^gF7(tl+~%~u7~N4>Ri*TX#Tpyg
z%_6s-T}W4QJ)1x8@LC#vr>LW&^M*y>VuH5TBii8pz>?D--x7;^eDx}GhzU|J(ASf{
zu~kI6g@oY!@tFbz-dtR*^If8PpC0j$oeR)2N|;JH(PlOUiP<Ynj^ibXKpz`3HQ_&&
zW-{jbeOouyD>Y-!O1!;%P80D@qG5HkZov7&zIzqC5M*c6U0t&6GBzR>)*SFhN-__z
zF=wDzj-3UDqs3wQS*RS)GPT)S<MUHtzEbcB612?uv0?}Mgy}s_>wWhX>gJNBDv=xE
z!W`xcM11q$5Ie|S<5&`^RQl__jo9IcdRbYGathjvl(eiEH#4)dn`<L$%4dDcQ&L29
zLe-`1?Ci#bqk+nl9ObU>Q&v*irC*x-=FQ`FJx&nfGOx;;nv7SuTPZ0k@75RIJbt$D
zg0hxY(6f!Lb#>SAI&Ax{)}sd3ukS13VUMjeDt)~_zxFQn`W3gkhdKDxB_HMpH0`VO
z0$TOawBZb#DoHeGtvDjFZG3I^W!4d-9b#Bng}`|Wd^Oc4PPhpZmU!dq`y*hQ=jIK|
zF5ly<>9+z+E}y@2wjt<}1XV#Q`;>{vTO-E|4O-V>-ICSWqrEWb`|TcLZ(1?VIH`Au
zv7ecBY&ovx)HC1E)Y4+=So5&tn(wXJnVYqCXCA|L`K<ZPEo%JD-mbKv_;Iyh@C>`R
z-U`s|IbMa}<jg_W{`q7bTGtSqnNRJ^1y1S(&4jxbqPExGTxZLfX;Ulq_AqYcZ1&h+
zFTwLkh(M!@Z$;|VT0@=S!G``UAtna7>yGD>e|%sEcg_6AhGWB7m3o1QHn7SdXEnw)
zjFTMCk~Mj+ey}Y>&IU}7lcc2P&2p*H+FXY4th%zLrR8T}ZPV<@8dp~Wd)zPXB_BDl
zW39WG?M`k+>jKTi91uHith2ZSsIot?1Thi^X0h!j6(;;SaOAGs+e`wAi5()$iZqwg
zVRGiMe}zC|5g^+E_T2;7nBcmr%z?9ge)Xg6&Kk_zL~o@Y7@vFrrmwm5h1{2E)J3HJ
z3n{XHn1lLnCF=e;ihpR{^B+H*ew#CIy(zkK@L@?f-)04k>{BH(H>>TASES{zq*xVx
zn7Qc(ZfXBEYP_+IQxapMWM(36eC7(=LDIVZvbR^6$Shyr_V$;T8wDok+~Sl9BgQ2x
z6qTYAR`*K?hN<ca!J;>YPqlz9cpe=SqlXM-zJT6a0Avr&V<~l4AI1KQPx0ZPf+n^_
zEbFFq`n(A|bYh3su_;?Eq{-%oY;w1?yPYY1DdVdPFOV+~ssQhM9+rCGV1`<vt`y-?
z@oFSE|LJ^C1nyd=sjwg+@$vEGE*G2<rYd9w^DDw+@tgC5z&g8W^RdEkeYyc(LgAEk
z1J2z9*>WGARyUwL;)3I_CNH3Ukylyx_L1<fX=zH{a<Yir?u_=H0^7)25D^z=a@&lr
zO-lh549QESfrE3xx_Pc2F`Z@Ip*cA@b)Ao%J=`h17#b`>ZgpJJqOBU30Y(5|JQL}F
zW2RZ71@KKuAb4DildCU^Yp23b%Q-ueeDoHIvm?A?cvjYN@bTQbCH*o02@m=DhQO~{
zHr=e0Babcr=9K4?zi9ygb&i16#Dj|d&5dN8H(PQq6wkJ636Q-T6L3^DcX(5_Ba0|#
zy;aHzsG#6mkuUiWp_a9Cy1qmLBLMH?Uh!<Ty}=iesKTS-c7gCQ-#)*pj#1g1{<OmP
zu3n`aJ(jL1pyJbS%I+oS&J$R&hieAZLIigV`xyfcs^{zhmBmQn%-AhQEhC%Xfw4AD
zu1ii{nlRcMKVG{D_mS~Z;K@nkGISCb{e@c5tkOL`3kI~BefbYY1uxjBfrvG}&k9r5
z6N+2g&0RCFQg$>s1c6W8ZZ<9C`eouXgUVJRAm=aYj%GX69b8jUalz-LCSG~1>DF(P
zi2br#|D%83%%gUD;YVjC(-JJ-_Sa=+mM#q^LvZ+TL3~PGMM^4vMXR-~!U?9WJ>c<w
zqEGn8pVNPi;=iXD`M+UBl(h%GTk!!1b1Mm|BB;(sTYy{ZNVf6TvURQ>)*agqpsO=5
zMsUWGRl2Invv5cVCzA#{m@)4Jir2hW%O;-$Y$Of&D1asA-dgfz<B+?`6?S0F@<6n1
z?d<F{A4=~oK+1=ND1>lu0i&c_`b;cefR()e#U%nwkQ7Y=-M5pw9cl^hA2;mTRSO78
z5YjgNAghaspO_$NU)tsIokp;(3X+napNS>OrZMBQ1DYg0qm~i12sd~8s}Jk=EQHCm
zmz>g5JzGA4ai0dIfhZ6tY?Gii2f4y=+CUOh1u~rD;P`DP*L@zv@HLUS5NgDf^(WQe
z>})rPv5DMDjX&xQW{9U~lqdhGTX3p5OzJ63nO>O>85+^T>Mj+dO^*yc^Q-I};YVb=
zya)L>`%OgxA>z>)IM{PC%Cs@a&)z8?u|`tVFjdy7HEU@6f}8NB%8ZW7ju{PAEyq~g
zZ%r?9(&iln`FMnOhgO=lg%)7n@v)CPi6$cN^OHjzBn_OJOOh`jU>vfBKJg`Zfa1*h
z*^1>30zfEu_^r3@jzP+LW+FH%t7+y@By6lUHE?cjZby9hgp!I%z<h>=mKG-#f*4NL
zou}C{{|JF1gl~2-0#q7&6x>}AZ}nsvTk34E2pp16YtCu!?OFrt?Ug`(46Jt}S#sq1
zl;L2M`uc5zt{!~i!%3ABZ<G6Ao`|RktG0zIftWE|*AbDX$V|!y?luzxgZr++`Yq0g
zkKMhU2J}YnD>!nKkOa}{C`j2tz|YNO9}yKuV)t{0P3gKze)dG3g^~|h(uIM8ZheuV
zUT%x%^uQW%P~4-)QHRxCWvhm)gng&9*M94*OHO=3(4UGJfSVged;kv396o$cEh5!I
zqGwvWb}iAOFr)FzR=O#bK8Q>{Qm*A4R$vlZA|;(7kwxECY!GP^3GxW(%l`U?z}FYJ
zs25@lB0DY8wNp(xDyL`I6p?otds^LSBq!vjD|adm#=my5o6!42T;K}!4EsyL7%>}}
zYQ*{9Vr(F=fVc#~w@sL8<vAlWvtcWm`s*u2dvcwe#(b#*lV{EP%bs>Ty)f@)f^f`Y
z#dV&Xg?%C&igVCh6iJANIUB2=MJ)HJxHiweAR@E0LovEgyT9QvPsm-Vx5o^tBCpIM
z2Xo!qgpj~^c!w;6Rpp53b}!MY#n|eY0hE_btCP(KcTR2+VS+^fI~Rq=^@Qkx`~A$s
zi}5$x2L}gti%Ec$;kEuz3OsgAzonkrUE$V&efd@-^0q56#F8>$M3oi@mPFZo86W|)
zYpM7@*=$g`_<x(iv~Pw32hsTD%Y%7|Q#@+4xFk6>fT)Ci1s)0gQzpo97OniP-=Zz&
zn&TPsXg49ff?Z`AJVRXWCIfYe4~wpFQ_BJdW{mr|UO)%)=$j={FuKU=d%IS|B|fgW
zF`#`GCWZvuNOE^{Gf_YY!{qZ}y|C%g?iD@96)u`t8s2;!Q5q;s48o-&TQ)5<!~Q+{
z^e_)MWAwIBf1l&&3sDN6nF7KCKVi3ex;_@Oyao&N<WNLmKNVy(s3F4ae16At#1F20
z*wZEsP(u)8;`Q<nV!3?9#<1PnL3nu%yDZRHS+$&RG40{cC3j1rVu5`~t~8G%ZOHUD
zIZZb=H#|eKJh50HlP&lt8QiV++eDU{N#<SDFxg0geP%wGoDL%YA$Tx*y5$)3SF9io
z1pbADi~X*})fF7k5t0~ydFHd`As1V6+pzBQyG8meiuHd~1Nnc0NBf6}Isf?}|H~M0
zF$u9Kcin^}1nmE}1q2qG0KWZ7u6dRnt%*Oz%8EC@fWVC83k3H->EqyJ3WEP$+S3X}
z_z^&J5t?_IG9Mpbrl!C~raubqK}_bL<>H~x+M$R;y<n@M0ci=2s#I*azJV=^SRJl_
zH}LZE-o<qeA-vH>h<7w6ig0=|aI`vQvgQk_#s)`31|8SD;o+_B$SJKj*KtnvL!yI_
z)pja4P9=}Bf&up|SyhE6XRp0o#vl^77H8Vv$@s{do?H|Ol14_zm2hE=>KUoOx&6E9
zI%S@tGKCp|ciBai5fTK>ExnZY)aoT$t#4_W98b;W%k=v_4s;=juuLaEx156RzL*5B
z-Ln2`%%#GRYdB7XQ_QPs<qo>cIh)E;=o82zoKlrDsD}om1G(9O(F|loX5MekIgp3!
zN%m9&U+MAj&)X9;5KwADC36a#?d+F(5^PXWjooT6{cODl;U4^Fc}2y+7bzs}YiKx%
z%u76pT%k)v^yE!Mz^tt4n(<eR_WLh_1W!2PPyX#QvFgc4@-f4egfclNC;CrF!kn>M
z!1`<rJ?-h{Dl9B=_%K^~$Pn}}?pnW;!;nvAFb)d~uQeAAi%3jN+?ASu*o$z`uC8ze
zK8`FRU#1^?_&f7{{^G@&4y&AZZ>~AoAKQ=<6=mS7eecX{+O>bR@5Y`OA;zMN6cx2h
z4jQUGoFgKlqSLc2Hxyf@B`4@Dc5oDd^E0t!4&8t)#v}AcU4{BgGdCgo_bIx6C-`2q
zeZ;gc*J~wt{{bcZ<ONrkGv=2-BnhjU7olPh+wnFNQ&TU#gsg)pQ0qRHaI)X8nRWm;
zB6yfdqFwS;8M!t6`)UDK!kfF=PLxY`wB2U$f-LeN$^NP)8!876uOoN4<g1LgM#sdv
z!6OwCoyOy%R)&(2v8svOr4TP}5x2idR2^P`I`Lm@7Oiv<kL}xStVC}Ojf?T|$tp!6
zyUm9tgB`*tR#ql*f%t+09HQm?fIekB)R^3C$+qj~zH2Gnqwt)AXsd}3hbS+PKp_k?
z4DG7>lSBFiJ>{VtF*<a^{W>|0uVk5yY|F(J;%!<n*q}@a74)L}p+C-n1hNq7CL(?!
zGKD(Bm^dixyj*qYeJVgoLP}SepMF{MV0l)M2{?jLzXZqK1XmNT-X|AwtPkd2POc<M
z^mfd_*q_66+A_vO>B#MG*!%3pFK3?}Ni1fG=e+slBv@HJ=p@aHb_e8<PZ5n<-+Jb4
zE?oZjU5ibN-QM_I#vB<7Q^ZEH#jLDMX&2~|ZBS5Klf~-m@9$_`pttViMnWZDpF*pD
ze9UI(oZpXRnjWy<W*_OYNS~QZaN#_pU+Mv{k*B5~w9zbU6ubzB#m5~?EK0(n?q`<r
z#!xP?vJ!n8d2&5y$z>=yw1(OhNoUFBZYl9{dC058Yi@<QO<L1De`6vv65obl&CJWC
zHs^2Ef5wVz*+7zasMk?mHRRMHR)+rhNj}@R$KcQ*L0XwH4}r3^J0$MMiL43#ww$8`
zH3Dk>UPCnJOAc^gXF5Sp=F>@35vAhOO?4o{MIsZ*oQ5p#@GhpP>acl^*^Pah=~KyN
zhxAhu+9(qx9nq#6r+$lO(z#olvGWDgUhe|!6P(F(b(c8nf3exu#Qc5>`*O-{QSK0E
zf7IgfKUEEK^CgVnHvJI+Yzr9QP^1dv#X283H$qKERcOcsy1XO6JXV+LcyWJ+sevoA
z&=vNi(jg7^-{0!8K>zC-XgDr=iiu(<chCkoyeoFlJ^Y(DK=UA>wjHM<cTn1k<H`Po
zuPiS6Zi+F7^5NpUWi3FpG_D|h+OULg(S+^d80RjI+_FKEvd98#RPJD7LxWFeiAZDY
zmrmyA)@Uqeu|;sPaK&!4J)fSk(66)bbpJvng{~M}ym$~&Ff|BC52@uKt3oqzfih=L
zF=QA2=GNW_6T$Lvva%u>YUW5{8N>&AjRfzFe&Avp;O2&JYTrPek^Jj*fu0Mzp}_w(
zCf5CIgJOidCuCC6qa@4dJe}E^ui!l9TZf72AoA7*k|z=ZlK+KS`myAIu^-Fn2qLHL
zpfEZp?GUmc38??vZjb!Y-j~{qF5`i%9>{;1A2{>3CvjdetgZt`(hj-bz`?!48P`gm
zZ57NK`NeV6U56v~AahRc#+?+qZ4(EAGMi{nq!4V9v+pmcvmJr{p0kgC0>+f@>Ra3<
z^tFa>GcQ8yi8ShNh&~Ro*)UiAmCTkmJnYO1ZqfYvOhDC(l6Q?D7rn)&Q~{;;l84<*
zc~wIt0<c$S7Wd@E6}#KCP&MK>^MT8&vp9g|^fdEwc|U)jHJn2;C5d2W@L&QpxEH~{
zh-p_j*)ZP}82kImEU*w->xWEp=~D!XKR$5zm%o^6F11V~?R+{Rty1}uEBKY10wlK8
zS`c%tZWd==X(6I*=`e~7g7yda`EAT_V7|yuz<vYWA)uz6ZEqEv$$aFt1)N4Y<RaAl
zWr3mzUz(Z3#E1*7D*ybrm@^KBv}9gy1a<oYEq6hqCzE-ppSeG+ZvKk&j2@I^uoNnJ
zD)2vb*8)x2HCpE`64OI6pWqgpTAU$*xg)@|SeI0Bs-WX(JPlIOA{_=9S)ON0TP3Jv
zn=^KiE8n^t)uwoud5;5!S7GTxq}*3E?`FOrz7HS9ByP%(W&Uh`>F>2LO79}B_sF2q
zf%qkaFAy{$I_7d)v<_QpR`9o#bdN7kvyZX(hQ^PtWb~#VI#jf)>C(??u0P!UczI3C
z$p_1SFI=}m@@l@7R=U!~?W3%_BKb0Y@L9PtZRGgRtNYr0_N`v+n&$dP<%<(1E{;9u
zyzy}7iS<QdzD1gJ+RofJJI>ndIpm~dm8)I$VVo_huTQ}xJUSz1I6mGh&@_XGh&ELb
zAqRGuSR*-K2<N<>m36bW?d8LVAMLhey5(Q9eO^Y1i;I&A2x3rE(v59wY&0#3cEe>N
z*HwV*mF)TTWC~7H^Aw5OD&XX3ra63jC|!Uk3>xNBl<M=+oPL2hIM=f0nGXDfGOzvH
zOjMbqp^gEp6vTesM09UH^YxxIz|w=_VN7kh!D8vy+mVgpZP`N^{T7wT6Bj#l4qXHE
zP45L%dtJ9^gp}e!R%St}^;u2<A}!INqAPbbor}4Y3A{^Ov_g^UQY^Mq)MGT=w6q+z
z7Psyw04>ja#uxUu0VmjZQ~OJo+5{CIbzfYYot>TDE91LoV<rcAwp-E46St<Dhn;Oq
z?T@5t){VKf!tHPR>n|an{V0di-rT6k075O5qayyyUo_w^3~>i>qN#$yhnu?;dN<Xi
zYbD`(+1od*b>GDAW;fo2lqIQ701?A$y=an^V|tdFVQ=nNef2XpH>rgo>Um<W%4=%_
zG_IlEVf2om<JYyRS5#kJdS|_`ZyR$R_>K1EpP|fuWho??Zc+mgtC@aK0(#}#%Z!@o
zhU~7VM!GezYElV$0Dk7A!UvohG6iYKr@J$l54^<h!UUhK=rKq%JML`Ob|rSyE<lV(
zD+uO+@-Dfjj0#`@A5-4i%C&6SGNA(p&P{Za5iE&(>7)5BvmRo|t+hHXPMQvb$)s$E
zNI>*1UHaJ?dH6b`glt{VUArBIh@z8ZOOy1=yfjSH!>*JukNr8G-D_<{NfM*TcW)sw
z7R94C6P@XEX#=l|nfeY?JDpyHr%GWy%^|@)MB7UgBb5piaroh|#g*T8KYFz-7yP0v
zwpRxf<@bT%&n$X?a|fkzr9Qx*NJMiT&YWs6lAf=7{``3w<oxXfefCyHc-t;oF@tm1
z0n(JY^AnSko-?DNKiVc_^hNjd_TCqC>XqH84a0=Gld-#1WPyk@{)4(gT<dn^r34Tt
zsPrCOb>@_3XG*7aBj}os43Dl;FAdA<>K;#<VJAF2sN#DZlJEOX*8P2qvHT}sdLk1N
z5-tg!;_GC25iSMa+cH>~dRxR~r%Y3BN)r{z`3<wFNEAii{Ba{lB!3%PIn^~$udr)S
z;nXQLXNleA1zw!npn5n}8Z*fN6D7Gla3|wn&aW1p8qY(kLqJ^SF-&}3oO3ax*KIg&
zYn%awlnkSjJ#dqg?D3Je%R+N=DZ}&c-n~;r2^rZ#(`IHMn5CV5A!#d80`&}K90avS
zTQx%jYNzu76pi?Rx{-KW$(4i49e}bGpdshilPWq0YGo!ScP?f}_u6&q3Xq;F);#|j
z1yzOG4uitqvJjt<o5Ky-O$*ZNZ?5;Bc<~}9N8;hq1m7w-@sFwW9)+(AG6=X)?JhT;
ztB}`|^wy5<-R4xmRD3?GQ6X;Se%84pe$1pDO|f4u!Sy|t58<NA8yhtW41L0o=bD0O
z`b@w>)kgNr+KgZH5`LLgi8~;|AA8OvMdaz~Ywi+f>|ng^CO46MKjfGm3-e_Q9yVDW
zoaQLq^tSy1h12F%##E{v<mtpLvc}yW3p{3HD(CX_(A7_mW@=J%@I1f$_FLM>`_<$j
zIUGmc5e0!##+oH5ABYBa26YJPy$5;w=Euvtm#sVUqT=e3tar*PS{tEoj=8yY;~~hi
z(#AgV@oB9%QG|TsBUI4rCaQ5FG0;T`OrrH*LmGXmQF@}Nf30ZKPZ-C2l)7x{^ljW`
znzmy&i&Q-%8&<!nIdtU6kv{bb;~O_#T}m*V?Q3?GqfT`8dn+szb-Ll3Krub}6J{qc
zm10yI&u=MQR9RVhXh6?OOjtyuD}JCK`+My+5v8;c(f+<Z=3Z-V4zi*34h;#AH&<8t
zrBY;?!i!CsGpy`r_^@J^p^yGxLoybiSY@+m3O09^N}pF(^mD^R`$<EU@{Q+unj&h<
z%&!@%*S&pvg1aopH{?rQbGpLU#Hd7Cc%#x9n+4RVagL5FO*q^IBTM2W65%x=njb|m
z-*GQgCJkzrk)$RoD^cIJ9yYW5m;u{B1RQWEgyTO8z%V>F)#3n&OHG`HN~KDWskgC+
z#`xa#jXnvKxr??qFz@M6lPm$;J`VHsWBv6qaphA<Q7fks<|iUv{eoXD+3|iVi66Et
zh5FsZ-rSeZRd&e)GwPg;DR;I6ZXypbHJ}qJwn=&Zw7f>k%5Ip4^2nOx*|jdk3n|9(
z!5f%3?ADv88NoZocCF1M)Y++Ch{_dzn--KbYysB122E)G{Oq{&8)srVZ|#bn*_fr#
z;vUPU<6h^epq(2{O2?Nd1-h-wqAbjoSymDe8?P!8!<@)qqi<UKA^o?pE}d7TDzF0q
z!bdvIzmj}r3ERbqTd8n4IO{1ia}t$pkUtV!*O^D8^+^Bl&Dk@7EpJ?V>h;K&7<XoE
zDbh=lT3Y#w*7H}-5S@1pgk8m2y}ODSQ1AU8KMEljBCr~zJc$rkk$+0r@WBfsEDPrb
zl$nox;QQ&tn)d%BqbIfSFgX`k&YQtt=q89j#I7@8#r*V3wen>xq!t9ePGz8a)uJRO
z<-)`*8;H>H;^u9lrXECSGd)aXHdcLA0C<U4ihOzo2TMvEx{tMP1%LCWs^&#B!4TjB
zbm8`e5J|bZA`(7L98>xYl$xL{izy~Y@%4W7H~WYV4Y5$>1Ev7^(lIvRgDqQ_nLASH
zU`sBZJ6mEF68zOufz&OaLdKy9^Fa_yAt~A=s&Z)Ii9Rw>mia)DXRPwIze36OC{y@D
zF1;}~o2RMy0@!*@%My_IqxUHD@0_fe%aL*l&%Q9@z3`FX8LPnJ+(8qwV!75EAJ+aA
zP-IW%G+uxEH!VPmgJtEN_?G5a7)?<p0Fl2!7n@>-o_MWH>%ig!om>ggW+Gy+U@lwq
zMcj+T(4tPLpD?wYg$KU+v5-0BbE^0qiG$O7%V2y+{NAlKg~CIRGRLk%=?j$c&xhQ#
z79m|VAe}=Vt8^YIyJBU<nIR>vd3z;B?-K@JkCd&Dm1ZV3BP1rHNc|67DPRx6QpQYR
z?rh*<MgEd=$tiTc>y0St$U|CXOCgtwBRTp|u(>eiiFCH5kQ8;A7xSk|f<^pSw4^d}
z+ITMU4MbkzNQ*u{f}+-O0Z|kkr6EpfSIM1IhDJLegpE8nL398(#a9lFB1{uxD)Hwg
z`}OKyUnRs4h6OaSo<!3`zoMkT%wU|GJhN%UGzz8q#EaA+*8ohyoJQf`U8&cZ-@Tal
zWU+ks?%HjnB$w<{R#s9wCiZ+2`Spuvzx{0`C?F+G15g0+ldS)KyUMH*V&h233OFTF
z(|q^t>no+q%SEa998Qji*h^}{Sm2aJ0tSbMykrH^cX4yeA0N#lOd8K(ycc<Nclyd<
znY}@eR@<P`=3^SdlaP4Ro(M1>p%#@SuIBl~++dMs0ERb%Q$j)(nOhF$nXjXW+m8~a
z3b2FAViq`7RFr?Qhr^Z}oNN*an%cKy+1VvDHOFEGMCspr75<8VZBW0E-W#PD(G`B^
z$>#^fX0xG&d>3Q){p<QH9frP`8VIRtOMIbeQ(EH3MK!Nd0&dVz=v^kqvS!VE=l!v!
z=-|{;QBiRy7XM{WxNRRHwR)v;EZzRAHMB>Mp|<a@zkH6`^z>fD4Gw|DI!=?->Ak-4
zN2C54AdroOIxI;^CNBk#SwA6psww0$a5SOxU=k4Da#&TJ|LY+$LG2H!)bXKc<rtz!
z8tvd(I0A!eQA{jF&d43XtgrrSR&Uy0H^g<730xzut_@S|#d-dk1`dZ<WLG~vl>*e$
z_lkaQozu=_c3XHV9K#mITw+8oIzY=LtYtC@$X0&N{QTqIXFtIbYmz1kVZ6)>zcBRs
zwyLFM3OogY>K)jpo+vZPCmkGc;1aRR3xK9Jg8bs?tYm&fDH&5cY+HCN1bYZcbg<rs
zkTI;PVk7!k0PD@PUgjVSi5(!+hrPYMTedp$HCS7Rks<H`>Ai5A1J%qcjx4~G28laZ
zo7%(6=WG8N<Llt#it=K+Md>Ii4ylXzGoI%w;%AQs-wti%;G4>JgcAFv6qy(QY4^;-
zWK!1Nf?BddlDgZhb@M#Q91;?4=A*R4da{^c$(=vpuw~cnW^P@jFgy?`l!WX`biT1E
z-I9bLAMCTZt}%zV<#|YJ2=kq{#`eu^%pzvmE&B}fmUjt+*BZ80NmOBa&$mA{Exz^V
zu+vt{NvJinvfAFkq4jWXZtjAhLe;qm_dCpM88$>-sKp&M-yVAe%BgAISmfB#2&R#|
z#Ao_{UXmcpW+a6|IqRzGY$3s+{(inAF8f;PLpJWpiy^f#pZZ$|XyrW(8Q1=#fWDf$
zGo#j9kJzg>W|0GSk(2p!#u4Y2XCVuoAI+SITZ7*=F>|E<m0m1s{RDnCAu2lf^NOo4
zf7#<(9`hXmLA0ki8(W;&**O|~?PFWU%zUfZ`!P(dU-GMKYrE-<J>CpsSrja_FsiE4
zQ+{z-Wn^spxsiHy4}pOZh%KCG^)+?xrxb11obRU#F>&@BjaIBFH^#<ZyCu-HHO=gB
zA$L%VJR%h&(?w#h8qs%=(j!v+Uz#u}T8^`pMeoH;3Eo8PluE%~zZ$>C4r$r3DgBbC
z!pt861IMSjL1?)nSrGGi<L=^<D>>Ov>HYS>IASGoLsAhnJO$7Em_!=L=>V@nIz|Qx
z<-VB<YLdy@NKcPJ1@JacVq~5(11j&4-K5!y-Skeb15)o21AtQvcHAilXWJflRK%?B
zWDdg^#_V(TE`{JkTFq(S<v-e{Dk><Hz1k*m<cMm!p^wRp8>E+opN%sKhVU4zt<+SC
z#PX(_mx^n-mR^%IGc#*p#A;=xkc;473*-30{5YJR&7<^?D^Upv-l<ug{HIER!FkCv
z{Cf<(O~iN~ev@R{oPpWu?d2gqAV|OugM$RulPELm<g?XFxFN_7n!dfHyX^dp0p<S9
zzXHmNAa;L6Nsj*u4u9Z~MytIpkit4*8bM&Qnb(Ifl}7)+L(UWW8rUZ9-kqfLoN!si
zS4CB4`H9<@(s=N|flD;JG<ImJA>|i(BE8Oe6;}UqUC67!`rOl&`=bYk4Vc^Z<>UX6
z)<Mh3#s3rJ`S*nC|4aj;e~#jRne+ZfR%5}8y->yWX128<1y(2yjUt&t(&pujK_#=a
zlRn*=Td|vIyV;bLzt2M4>q$Dxn9WV2DNNq`JF7`0Cel|Pj}Pg~BidJa@eA2Zx7uUe
zZixbv61^Bv^P?tdFNqYuSs;Sm<}ERIUDLidj9DN}lxDz3@i)`SN0&&Q-#FdIdCc0_
zv6D~dK53kT7<LQFNg%=r0rO0<2qgOj_=mij+L|?Ml+u_!_*Q$Q+btW7bw_(%xVnD4
zmXwI|y-I~?;LmXgvyQA=x2`K3g@Js3#)G3u`Qo;zSAn(xm(jU}l(&imxF9SUFKtA(
z7+oZWrDEcqLRkQ&EcWKs`(czjNUC)XdM_G!!}c%Q=Yj{NT~<vOdOtMn`;GA}f^tXr
z@ZoQR3R+rnni}UHFxYCqTcuK-oDFB%JVw>rR8m~xoxzBaEg>~DJ!5s%V8+DsbU^yk
zZ$eYNi_D7N`D&XCfI5Nfi3)%L6#U+ud`y~K4a?h;gdTW}yUEYhDMcg<MeSGCxDj3M
z4PqHH7dU`Vu*-+Z7`z<}q>&}>94vb(Y{Yz3R20@4uA5kE5PMm411N)G?}(kxqHir-
znO_}`LQ69j)SQqHAl$~on)yim1MIx=<auY9c7cqZ5auqkwl09&L8aG+x#(`;h6zlp
zPZZaf`%NSON0@0<=Pf>(x1se$YYYD%Bzfh8abY)96A9$BPB1KQYrE9KNc%nYhKu8>
zv|iq8^r8gtaAqz5CQP^4=iLFNdXIwhow*Jpw?HqUIbWS%#?0N)@aYjpdXcC^)NT;=
zc7>{Q8<rPp7lhv_44=~*&~{BUxQrh*_LbF~9yf81USpe7Z~Qq>RB$`!DH05W85L`s
zM5hIp*<!oyIE_?+ngkunz){0`jOd+quL6UyWr->Ab~ml8{IIq>Ra8(zkMJG5b0zgV
z3~+p^u!tVMq1=&f?vr7#t(-b9Vq6E0E%CE!&(Kf}^*d-9##*A^&wdSOd~1|9q%Zp&
zzJ<7<r86mWVC*Wvn_ceaNRB+`;=#YlTP`y*a}g^9n#Q4hSzei<RqFLRj-eLBUP6fM
z$Pq1RHDl&-BjuI-98I?lkp~(@`={!XDFWUQ=?SM^$JrSLe=j<eyTCXCZnJ~*oVmkH
zAe~T-apSX1U1JjgVc%xW8^7IPhW(ND%I3?53AQHMNl8i4O^c*Fy0oScu{sYR!tCT_
zBCHozqPg3eFTl6Ytd34*^gkxce`1oHT%?=Kk&9IZ^+$&CI@--)Q7u-*{oiSf_fNm_
z|Egd4zZ@*E^J<-F0JR|vanCFNxR{v1`7BsYB$^-CID;Vp;#7>JfNCN@8G@tnsl9<E
z{y4V=hK8RSsgwP+#8ev?7!);90eH!8aJIo9{|in&)MR<f5P^?>Duo1>#Jr-xAZ#sK
zrjQ>H%;N`BQzj>jPGG4NaB}2s@Q+lRV+PkF2ZK#8k|R^m2?>H^JSr+GuP6mWcM6A+
z<Aa0WIjAfJpnmNs*ZA?qbOKTitP};4+|^!h+uGV*ZPV`Gp(GNRd}#BzND#Ma6gr(w
zF1}*rN)yU*I7@)beQ)Uah8QEBH_TLlN7u_Y>hMC1_+1rOBa#PIb9LOhm16QaKg+wU
zqAshkcS#WziJN3dZaKxKOPp5X9R}MFF^`wgL+BVO_C)69Ub1mquFRTs>o#TioO2nQ
zE<AZdk!5T$0?O`1?`K^1DwuqyqeEq|ePL4Ru)kz{BBo7nlOM!aMqa}!bBb@l3XM$_
zwuyygW@@;s>VYDhD0;iaC{0ydTrbw}2bOH&aHyVJxv#NLA<kQF<%$)Kt6$yvg)Wq`
z@3;tfA2Pj)*Nrohk@p}I<if&?PJhn-=V|yK>OlJcJ40(2d2?xgiv46C>G0K&noBo<
zmXX<uq>#h%ENLx@HikOAW5k^;aSM<Bt_AH;3ec8m^X=QW(_J)PUy<1l85EI>q|LOu
zL+6(M`^H7EtxyfJ4QV3M5_Ag(2T|4tF>_jRsV(f3nRhI@W8aEK2a?JPvh2orwf2xZ
zoG4e4d+PuXnve8D78<HDp*mEV>ya2DoeE}3ZE`l?s4^S8AZ5p=#moHMc_pd0f#`Zg
zI-Iz=lClW1r>&^-CMr6hY%~MdXJkU&xg_ku#-+o3)iHWV4J?A@9RXsXj*&;Q$)#!4
z_c2GmFD&{8TcnyO$n%m`M!4lEfh4E_@iWQzzOH6&m2+oE46>yrUTYhx%a7*wNZQlY
z6)6c%0Gq6nHze~&j;LpNn9HICZ4ro4j^m=1m6h^Cs<$dEG%2DPo(Fw`Y$fQEzd>K*
z;szCfFL3@*asMcl(qEe(NPeiO@PSE2bqcWzkrdRx5yJz*V|)tjMUshK0yb`87)!K9
zU&Z@M8cFRXvFmu+;zlYu5|JN38-Wa|t5YS(JBYpPQho2<jo#AWrOGtgyoVWa%Ms=*
zrvXUX4ruqI-apG`<GJg`yp45lJdv<t=iuN#!Y)6vt!r)g7q8^bZ4Cr9il#x2BxLrs
zkw9G0!ku16xHB>{VN!+J5e&W4=0x?q9ZhrfDlPNvtfOc?nCnr!s|?vG3?Bqd7cB{_
zb@yOdnt6v|4uy1>Xkn1H7Q(GmR1~qz7s$p<>mv_qM@vHMqH0H%DYOg7qCYu!^-RgM
zKDykNHd2u#HB;I<RQ)0}bf=k1%cz%4)%?A)m?=A&B}q|$=f8k_au{TJW-g4mgoUG|
zVZ}j}M;zpd3pWir4Lj%&mMM0h8hS)3zM`OG&Xu7Q@8s*qge|984kQ-(CqDgF56KgT
z9TgSTRptaKK>|FYnOVXtBMS|sIIX>oJRQ$Fo3cvajs}rr5owu0Wq3YL*x-%;wNz8B
zXO3e<$OGx1htu*v+VknGy=EimXRx^dq0wm_rVQzXamFpHm#uYCz^liO9>qR}!lNYf
zGyDoXTi9gdnbOVt>W^$%GOYSZ`eA3}>nv;JPLLTBI&x$S>3tMdEb|Plsd%`#SFBh;
zy5Mb$-=hZRPZzBYTwUc>2B<S$y6n?%c8Wr<X5+p^!~ldIr>}#(eUpGL9}??A@b#{B
z6FHDTDu2baE%vNI^BPn-O}CWn0X`_wYEDBk7TSoY8&X9TfDM^ac@4=%p(qr6zj3#$
zgM-7+CRPyeqkctk9*_%z$y;p6M>HhlqF5@?Hb>;!jTmPp;!Nx&_1FvCI#W<Ohs>lF
z8pSjXcaLl?7@9>KTL+p9w?~XbI!)ly`E}W^Aekohw33ow=7dQ4_p4h9Gk`#SO4Idg
z<Lh!!6qmJEkM!u1G@esG#55Yh1hQlMrz<oC@N0;CJIF$rzaeRyA-dsTehmUZQeR(R
zQj)atG<%wR`NQ3rd_iY)mBa+9su?ju^L>6W7CX5~KWCUJ!l0A1)liNR`U`p_I8Vk9
z$qagWdP9&H_ug;OJW4Cie^k#4-?l)y_>uTU80k<hRPDNan1>Q6AMu7pa32}S61N0H
zQkO#Z4{2S+G}XcPw!1-WBTm{zf$MW4IlbxPaOV4~U%*bgx{@Bk%pPW-;(4{0Y2_0#
z$|d59xm82Y|F05pO!gW!59+G0imS$zn{#LK5pIG-@FG5lPfI=o_^kk{*-c2sA*JUy
zXrvQ^t@#=Rsiq5=F`c=J0A6S{NKF^1sXQ&2NBYGO@zfo@GycdN3*^jq3c}bE_J=S#
z`1n}f1_fp}5mr_*<LH*Hk`{7B4eeqfpr*j>kp9^?z2w5oo?s9^iy>`?W^1Gfid>j<
z*B(Mw2~Z+LYK3-y(YUb1hqa=4w^=06RfJ>*hyjTsFOxL<qUwRj<@8X8kU(BWf*>E7
zCuB&8`V(9i<Qi9Ip+g~Z5;Tb-8rt$NmmX(_C4hf|3ZoCL4(~&ArkwFCPYfBMP=Ipl
z27?HqT~Y3}Sbr7HAw98|<dR6Ia57M`wQ8y0&L|}1MQ&g>n!lMTr*d_LOsY^H9o|-{
zyfJ}e-02)^^L$WAM~4!9H=r19o)zxOo3tWF@bTwrbji1&-(V<315F9i8Ipf6jKgq(
zYpGsd>*)1oK!L|o(EKa{FT<|XQnA&0%PvB+=G#x2m4s6?)X<bPo<drVPw4ZJ7Ju=?
zDb`ZsvL-5I(-{*J6Fp@YNdsn0;zjYEvg6|(;~%~wji^apO;Qqs5_t>Et}1kbZ&FhF
zN`7))ptVYajVGm&b4h;uh1ww2zfj{~ax`6Frf?m2>2$^b)=asT>(89;e}QKvxav^>
zasG8_=A_A(a>gUcIpoJ-IUr}zyTiw%uQXlu$Ujs43g-_KSWBFoQW{(f@RcQ93|+2y
z!C*n!FH}oKck0OZaF!6b1of9OXgmRRAO5BV7}miR^cU#UWs}%HQ&BgBi!4zy&^ecc
zjeHRod;-3Qq(c@vF|7guV0t;Cm3NgJp3EvI-KdDWm6S9+)-K3wjr+-uv?z-&6;{$X
z2APc>eQuI8L+HJ*zW1fCyc-l8q(x+ytjsgacasARRU7K$K|sFMQenW9$$gPwji;D7
zG&bTvdaoiOnNlIeG*PeUj#*3==RfJ}MdI8zRmg=&A0Vd2`){I1NCEedrh-H>_t9Q@
ztPbTk=w{<Z5}Mng=OQhfZ`#-tlFlte&!zdW_I&iD*SAFSroGQ?xk-VAg7~Bo0lUaN
z=|aC}4!`a-qw+N-jDp1b2~cGTZT7k2LBnj5n+0U6GatrgD$x`Y`}cR+ODB1I+@#4=
z^tV<J)fl*4SJG9F2);=<396|Nkye{KT)yV0+lxM>zgRE6#Zz}$&?Ld-@R`KHu(*|>
z%2CtL-t4Ou(-77GU;PZd>ru85iaa~1%s3OEbRI3D$&)ap3`iAwG5cKvXtf6oJL;1L
z&mJU6TCv+-DbY))(Lv(TCS=J-Gjr0Zkz-+;vao>|1NcSKnUg8GC1?y=x@96w{g}wc
zj$vwno?=+(JyD8Hg}0W>k#4z;L>^yg75oH38u+y`4x>6I3%K2}G7H->4+3}&<m|3$
z4gbnTBW2XN^ToMYy{#-_-yT3%ygG#@>=EvNA>L+}H-sl9j>u~7SFOaRBjxFh!bjr#
z8E~RRGXr{bQ>+oPxa2P^tQ}WoyBOW#d9yjJ&gIN`{ivE_4Ng~fH7fXMFI*#SvNL+a
zXQo{irnCA<ch}J1uY%Nf7Zrz3XK*QntPDLrzz7?h^gbPxl6`pc#TMSt=f0c5j_Svd
zkCN6-&^ybZ4IgBOP|cnD8qFI4)5ok<Lc{eyn<q@23;7!X9?E{T*S&>yigBIsC1=AN
zHsf1RYfa52lmX3d`#nVcsL00tVQLL?&MI#VL{EsBJ@u9=ii!Lb3+|NsQ3garOpSD*
z1myFmej=Ug30G_jfT;&51qp;+$JreAjzfZvlo7#)vy<K+^XN?M0ezUN3pe-wX2Kzz
zVccs;rD;00E#s<-f10Wig$-x5*<pc4IVeosEOF}LS5u0N13j=A_+`|WI=>58zMV7z
z&+6A2c0+K0;KZA#3edou5niYyJIsALhwD)$=GKi7){D92NzE?tX}PV-GwmS%^ilh>
zxCU_$sziGA7_xvS^x5?jh-fF^1+C<bVOI-CcAq>KEH1%;9YEyXMB8Ovt*ny2;~vL)
z$nZ77iuv!CZ`V6*A@OJrIW>-uJ9?rA=K<1vj>viuL6Meb_zMB?uB591*^g-e+N86g
zqzPxB+vK!De`3^y?hgh>td-}UiB=be@83O1p0TmM{z(vul>)nf>96XSJr5cj82Frn
z4`0<V6Ed2^Uv;38SDZVxwbsSY$)1-@tkH;mO2l5qKzmcD{4JhBMq}RUkzsbI-2mh<
z0p$G*vJ<VVkF5{u(-Nu`Z=gqLTKOAgH#SJ8*wAF!`*q-0Qj(Gmk^4JA-jmXAw^~Ma
z`0j;R`inZ)0E;QJq+QvJ@_ko_D=KbZ;F)xg7v5S#i~s_HDd?@rNN3J^X!3WEOVBfO
zX_;pNl+TlhGbt!2sGf)gPL)!iaePgFL<7*c&wk3KQyh9{tY8B`JJl0}SYKLNI)Dvz
zWS~&FI5A4qWx?>Mh+n^B8oQTP*zs;TT4IrRtlv42z!E373H(iw0l9I6jh57XL<W3S
z%`D20{l0pC8B*$x9K5XhYfLO>)%z8M{9c!;51;gzdU&QvtYNYRI|@|+?|<COHmNvz
zcp|>at^Rg-q|$=V*qrpvxW?_(5$sbDx*5=KLuVjF>NK1D?k1DQaHuJeltkn&aZ11v
z#aKXJ&|(!|RC)TS&v73=67!^aDRe8<)xv*!0++&YQNA~xO2vsWk7y?wyyd=YS+5S?
zKmb2Cx6P8)hAz$?62PmGl{_6%Gndqv{rx@5;kW;0<iGgL%pnm%O2#pEG&o;F6T7!_
zZ8l%B?$o8jyw$lcvl!*S_NPcsM%|@Hsc!#wI&$A10P({WsF0#AU^j?<JLtYy5UmS|
ztk>8oOp2%MUPTCu3|UB5SJEW;9zD(Q2r(YRb%)>l()epKN9LJiE~O8ND4&q+A<cd;
z7YK6g%zn?A-Mk7*P4T~)9Tsh{%P@{Y{xF5B-0d3VCygy<4Ts7|BM|&O0l^NGGP;d+
z6c$!RDRz+dhhzZzs5$;)!;fD&MLyVNimZH-)0HEQ3hPm#C2SOe01y5j9161)Y{51&
z58??)q5a!sEFRb~S=7kQK6hLE)P)=lu>1AtT+m*){wT&qW@u^AtL$#$>S$<+1k%6x
zkRC*q!Ak;(*GfcL#|(NiZ6*k{BhJjph_pb*`Z62Tk{b}XjY6%sn^E@_KaB^!#Gg}O
zmSU1F<XfP!B$Z&K+IFB&<wIiB78fk^d`hw><|js}JFEJJ@%j<}FR&sz+XZhw3^s20
z8Q~<V3NESU-W7W~=^q{bFfxoWF*ViYTr`S5V$;wy78bkvM|%C3%CP`A<l+E9Zy?LP
zq>BUj%L%B-GYCuweQ?3FTc+XODw*~v#g9`1J3rJrV`r!!m&_XYJ_bspW2AbyNe}WU
zU8IMZ&GSe#L?!H)h*AB1{%pQ5-D&KY@?7SDRvGqbTE=U(3)9p`N>x!+FjEnbL*P<3
zznPuve2+B64T3EJqIMGfj1DU9mGZ~<B|w9n)(R5*Y#OK3eM)8$0`Wq^6TyAibbckW
z-N4rQYeO+zAI|d^hU?DLIRo#CJTuufSQvld`S`^Ti860BegQ&dJwNk$lz-(OxS$X0
zksj9;w@(;_xFnKpg_tb_b_s?!*Cgleh3bP1lU^y|VEAVuT;?K(sL%ri+bE(Ss0mF%
z)~jfmOZ`8^eRn+9eboL3Y278OVc#fG5hcp1kcfmtWTk0GvNN*F-i4%$B&qC`$VfsN
z$=+mVWQOPZbl>;y&)=WV^L_az;rsc%$2r%z&N<gXONoomBwEd$E!~+lY}87*v-3QC
zPMnihL7-{fTxc0I`csEUl7Z~kB&%!}@FAJetn&t~1!Og1FDa`+20=8iE99xk(K`3Y
zL33Z?kCK~V1uk$)&s0Y`6XQ3if0M6kdGQrp0%R`U5;FDVv>R|236XjZMjtI0kb*3S
zxnLn7e*tG$uM_Vu_>9h<YvlHlj3jP>_pf-vBW%%f%k#FT%&l{#+(wc%;Y%?&5Uzr)
zFuwV{v9pHdlS;P4_igj%L%zPuQ9t4@%Rh_UNCnvz{HL`J$W2-DS7T|pMLhHJ;YQ7y
z<n;g?&?lSqq)?7siJ2gb2tP)in;YwW8kbO5R^e1=clLTKx%_d?^tgi4O0@fP<TJ=(
z)V{-Ui%RBt=;a{i_Q05hFRQPRe9vFsLb5x<rBfV&8vE+L;oO~m)>xz{v+a4z*O-h8
z(I`Ayn9C_<Bg@{jGOi<Plg&p>Z6CRsWMcq1Y=9I*fqRw3O(V6=Eq^s>{&}=NyecS-
zZ~;-(`*)?ntjW4RQYV^Aq{y3`h~$jszzWo#_W>LGk&z<x@s}^NuQc3TT@5%Z)ArbG
zcUt8us~GZZ@jYzT)%2~2b0DK+`^c8pmt|y4nH#sv?+g2P^|I#4)dPJ?>c|7@T`xmR
zU54)bT<YAasTpi|p8M3`@`#^0->6c(l)5}lPny3CM@#*;KUN7epH%~jp4x)~C85p(
z29{J<pD?b7Pk3WnuJMW8PcCmMva$I%b9nn)NIliQXHm=NkD&jb#SjFY<?7;4vo*&w
zs-JwxMsqGM(l~ub`!eZnaF)qRdvC-t3zaUvE6L6s+`m_)O+4p>V55_eF(WH07a-ov
z4qn%y5Y)jGnt%p%-!TWCeYUtPE>hI;?<pGn?-aHEA)mk{ZMRs`uDJe(PLdr1;q$N4
zgn=G({{rW-lcal~!fQGoF4xo^=Oohg`ZtEXbWK#6r-a?%G2+;_+qbPQ;{KaJQ?u&v
zy}s!#)#+m6P+O9bg8Tr#Xwf3i+9gGk$@?jdByN~JScTYOU(xuU_zhwDd~?Z}j=!fW
zv0&t|BT}Z{VqubOUh(lkc5i5P90)AkAZuVAMW}pSA|2IMGnP<{0AuwJ21l$>t#OH&
zany;o1`G9jyld4A8SkYZ&twG7r&T6>B@IpIkF_k@NmbSGQI7Y;hd<t8Qok6&6kDc5
zrz-qOU0uGxGg(aj`lBSH#N>M6Z84$wT&batBJ2Is6wYT9Zs*^BBrw8W;la}_4QIYG
zepsfa{(RXW%HGB0XLQGw&nxdLCvT)_nHWskcikvn?r^;R*nYkscAVQv!gg``u!Ueu
zbia$&Mg#O3)yIedHowVLR#l}Vo&d^8@iku(%Hz7&Ryn&nEF|P!d%I4g922$4@^>|D
zZOBy6SX3~{R|fIBeRuJbxZ@{$wbg~va`{7P=`BdzP%W6yuXzbG`?oA@t;!phDBo$;
zO=FRx|HPtL{CCGZW&GBUIfZv5sQ)U`>-uqd$+K&rc+}srF(QrbYQ?pRXydQ?5>xiP
zyS|UGlsK7Bm#q%vRb@$W<=l=;KR&bmL!R#@y@P7Jj2}OLUPmx8G74+!>FWApWDV<k
z{o*jY0v(I;{`&@|9GvTbmIFHqY@eYR$qu}VuGA*#E6d-lCfbh;KPV^=rTKY1#?5+5
z3%$?EhM!|XhA%F!ZE75M!So;sB3jfU`{L?jNk@V}L2l?E_mL3CHv4<&t?$`7O^+Wl
z#RqAbr%c@X(U$xm?w)_`B%2_1a8y(~HW_El7K@m*E{Ga%9IkD#8)@WARdBU<x4535
z<>07Otm3~lG@~L&D=j}WZ9{hYy)`&4nwP(3Z~kJ)m?O9$uUbFOe!$t>@LqE@^iU~y
z88?r$X8kq#EiKf`Qa|5%6S6<3=aI=V?>Nx;8R-YMT@rSJdJe;T0wYFiO(glFS}X17
zm!L`(924V*z^Y|DR7EiB9P~{zUS4!VgMU=ViPNb~PhY<#Tc+0&WFLUfg9o?YluKmz
zXSddNyuHi!Whqd+(r5q5-Y?l41jgT(%bq&b11D30oKE7R>>V*SJi0F;8Vc8zgw>Kp
zn~9%ySaLtGjPFezxAo3hdK}a0T3E*t*Yav-#lhdrx9bmyh-f_GxsGPyqc&qv!rCgS
zO}!`sAq8M5h!0*{XD-FKeQv6gv9cWawEd-C5%b=2kA(~TE+sdR4w~FP%ijx@9^T&E
zl9IaG&P6fNg>Tl<BX5U_-<1^@5^!-I3}4Pu;H124=>NCv&+e1`gM->SJ2*H35g%^t
z>FM#0Fzb5928}9tWo455m(X}6o{p{BC1mI^n^R&CB;YM5`NPV}Dkvi2`WvTn<@7hl
zZ)59_JEAzT!tx+3?=qB|Z=pTnqV9zGffL<X=T4oXhSHeX)DbyfUtbjacvTA6{?us8
z)6NzR;Bcf&S<Aicmy3I0wCs=Q+&w0SHAB%!$seN%zIwkfFc#Mgq;ko06PM_4wrX>>
zwR<*Mm9|x)gk$oURZm)-X*1Q8HV9^3#_?OFskA_!zMxV4Zpf5r>kg6faLUTcUwC5L
zB`b5M?d1gobn~x@QY2`kqUc^CW2X9-wfXeyYGhkp6-S&mg?&uH@0Ev|wL?koS<bV1
zgoK7d_~8t4>=d4!p1Dqohk*RN{rtAfPIh$-=nu5>HODq<N7q%%uGRiFr!^g?YP2X$
zvv+w_Ip-S?K(-mGUcBf7f&H+E2x%Oo3#l4E+Vc)0y6{d&*d6#T*e-Rvov*E-GBBri
z)+Vo(o%_{X+==$p+}xw+HKa$w@G+aoPJbLeE*_rsq*4ad#>Sj4Mmn}pOmJ*?XG~>l
zm$B0SdS&9LTpPJ4<;_@>{;E1t>lGh70LD+ezEQ_M)}F_J!Xt5E=B?V<roR3CSAQeq
zJS{DKulU2Pm~E}lgfsi*t0=zySXWnx(k2XwSfBu#{ruId3J?{pbK`B#Y$rQ^v}7dL
zC>FY}v@?EQ?oxfXDzW9`Wcxs1U7^)PG;4_>1`+)8+I>F8J<{jDmwZxGH`<Q>eTDGx
z*nyk=_jUFDCcXduhl}f>;l2NbUwgV98ZS@OQt)-F`#nWVv&`yw9i0Q?eejV5IsrxR
zdQ%)&Qy%zGHvF<08yp&vNmT23c;oSuE$>@6Aid}6`(`IPSfn?)c+1GjvcF$<kdCgZ
z0$MPM2h%GmQNY6LkT$$izpoD$c1QDe=@ZEfCzBiO4>=V#$+!rO%e1t#=%v?La}><%
zY1Px8QkM*9yr8DWm33J`!S~V~>eNr4&XBhn=IRtIR=h?k-S+LCsJrZe7G5cchx;(n
zi{hV0AL%T;Ic%x7ZITZoS)z_wa#@S9VXn<~7w<j>8LusFXA(<+s}k4pmi4|RpX0C|
zZ`}@pi(kZ|bFAu?ug}MGe|AMn$l3mgROj7!U2nY{Xq?EUCys_%u8sb3aPj6+e5}N?
zAsX-3gRU!CYinUJ5~|P>p!D9x;U)L1B+I1vwMCcI0o{B?_YK?R&>xSYIP06j%r4${
zbwd=7M<~X;JA@STk6#Yx6=HyfgJ<!Fsr*Nen8_O@7E410m!Bi>gd(;RI>h^hslLmC
zyV?W7eSChW`W926@7&5$JFNom6BHTg4M6uqfnn6b$e~D&dC|}*mVat$N@|g7Jk>#d
z)u~1E`$65?{U7PtkqL!7qSej2MS3K!C7s-G8D>Q<AmG)866Z0E3m1A&s82;;qDoWU
z*9Eyho*WGS&8~Mvr>iI0at<0^xnj9AYh>Dyza2@AxYN~pxwyJ|H{zs*B%<%1-Z+by
z*?+y`{6tpX1g^_o-P(`GmVG`p)W#hT3=3n-=r^~q5t*Cp3WS>et}W~F1%bvsSmy;q
z#zBuBja2&h_79=%;9iNriTR0+;Gm%H$y-i_;Is)>oFM6x*)dJqL^WSLJte_&_7P*_
zaT;1W-EIGDSw0YFP-rL>fxdgUnmaoMbT$&0M|7ySx3`d;g--Xl2kkBq(<tF4X+uLU
z<ybLKbPzqkF5Ya-<YU}Sjjz%VALwB5<7K>i5rUPMxNrFS=E~{g78I)8C@cycY`=>n
z)NfXQ3p{!ua^TRS_~2!q7{DpxMGyfT#{=S=m#X&Pp`{D95G3#Y+h52<5d?g>$Nl@8
zAB;jtz6Y72^#szZweeQt9lnLRxfivav8cp*q-%nsqaS#9tb?^6pDXH!NkmhwPTCME
z9V?61RxC2j+IFa_s>+``R|!+eQWK}CrR9s+5mcBUw6oFp2t5PC6rzuAxLA>#yTIOR
zv2%mJMmq{b)%S&Ga!_(QpZnRknpMGaw>;#7_crdmdpDT1X1Zyo$zeQdaAf2S+xzq;
zcVdsbu<r}sj26d`)n+t~$%!8PTvL;!ZG);ZFe(9%syUIS!41PpwSlIrxBLO*n~V+%
zC@v>vW-<a={Af&JfbIH%mD|V}6cj{+pYcTO(;S>sIy>ADua-iKi;J`Ft#?HoUI39P
z^NE#fjc`?D#+1#$Y^XL?2-At8NA2=!+Q+L=2hGdN`ySH_za*Vy@$mHI6cC`n;vejE
zUN%c%zXa=z43s<epc@1Aq-AB-VI43@V;wY^w&`{7XfD5bwo<1K^pb7bat}^)cBJVq
z7<HK16VlR@=*NEmDqM^0$ncq%+L*nRY5FZQU|FALXYU{c4c-&UeKX~bfwYtbHshsW
z?fp=XA#Bmf>b`z!DI5ZCQ5+5HQCch*veK_RrfJy3*7?g(;gG^Mwdi(j$2$QrtS4X%
z8vh)Pz>Qd)hq#IK#5!UMq7<7sJ+Nk>#NWtFm`@#n1SLHo+m>zSNh=M3CzXAWQ)}-v
zQI0vvnKpw~JyGp<FfK-mXcH^P5UIps7AY=n?s5cFgTW3+wwq-=cB9&GKR;iL(}Nb|
zdd9|W+j4UCAZSsBd-F1T3Y_o3G?N2$k0v?_{vt^I#;n|Sj;XdQt=_m({VMIRCiKrm
z3@GXI?cdJ;W-Ckk91^Kz7_w)0<T}oWxNWWR!=ykQ4Uv84)0-b4dsRC)DlH>(>f}i`
z88b|(;bCh_3Pck1!p6&;fd_SR4YHItJ)Wnfg)g;*@trq)Wl{z5f~)Blrh|yDIG9Lu
zT%VY`#_6#Du2J^t)r1bIpBU_=&3~mK>8wpPU^*kSf5rZ`e&gddNo$)pWzU}Vm-&T>
z#xejiBCX1ry_vR;X}JWK!?`iW#faiWS!HFLZZpTEq;{GHnaj`^RZvi%!#R4YU+hfj
zY6pNmZeEF$F*PA%{o{*VHLLx>+l`oLOikc;dg!Iwrb111nj?Vp&svTMU?~W!z}wvR
zqs1|4s-6>MS@|>ZOVRZ=g@3><qEMs##SK*VV^~vI(*U;aL&zS*TXSPt2}w!7H`+Ss
zg@vpSA3iiM@7<hNF<G@Tn)>do-IO6&ysQzadEo-*o;}nEn(m~s-#}xlM*gvoBX9#U
z-ZbQrc1%yt%<u;|9SNvlIds)WSbqRKk!eKM-DR7UVhk$#YTmJR^iqKhzw6TC0kd)a
z8}{VAalwX5YiL9WZ}&ty+C{g|pOp%(nYLzbT3MdA5YB(gsn2$PYs;uh?ZWEv<kuVv
z{kR$z=9?>@Q~`20iKBP91@#N(ae>3bJrNqU8%vg#mt!k3wcqVoTwEkvF;i3gH?t;r
znFy6jmmVN2u*(v_vT?cGhys#fy=Js-l63!T;bCD>X)d!rRE@Nt-%eXP!)@obL>G+r
ziHGzT?Rxi<Kdi;xxU4yUeRtQ<DAuekJ5To<+919c+Gi}_z<ZV$(2|??<jD!%@H0jU
z>Ihuc5okMhvYhHY72iDSshrG!r+W$tTusZHhV5<ccqenoXzIearOmo@@#W^wYscC&
zrKP3GU?I@~@*HIt2*wK(TO;>M%P{?wzRSu5?NvyQwi=t`(g4$5e^V24?7U9yt&^=e
zQ01b7f@8f^_?bPBVj45Qf-?%5Y+D%`NIgmnZf34R7k?c=$G~vqwz_t@UeP)t7(syT
zCFXp)si%zRCOeB_or{ii8XwkN?gANH^NC5q?)3tq|5JDFWC`xt0yz?8Orv^$UKF36
z58jtpOB@k74F5u4O%?<7;;6z~D-5~cU7l0mW~CtM14pyynDNTmxnh{o;D-<SP`<!m
zIo+?2lD1{Nd#=N;7v#R4($;>Y-ii8y%Ww2<;F^rB*DkhF$1bSX;)IU9njD>fj5n39
zMzdf|Z4qkIdb>;9p90ig7iwWCF>xro$lNntMOT=#Qt|Dh85h@PQ>CBubit+<&-~oX
zS@yH%1NE1M=@FQM&4l5XCnxLIBx1WSq^S3z19V6AF_+cC%ueX%w7=MU=#ZLDzIBzM
zB#z~w<=zF9NNMRz;t$k|;X7}019IpK-`($Gzrj#AF-Dpn(|hyp-KchqVg}H5-F)ld
zZ&1#>o&O4VqD9F@`0AtAZMl}u%J1OABEcO~v(k2p1;dKXGdiJqrmKxlP_(02=<HK;
z)_j=A7PbbW9sY&P*UN_VoC+4RLFF}+5JY7<LA67`tO0!>Jg!R~%h=GDuacWbPsz!7
z5r2zW|LD##v&!ZWZ(C!<IXeYiml}__!<Mb$HdJZ)$40PLHeDPq%ZDD!v-e45ew&bP
zoE)8<wf1HxL|T{O#0n#Ogx#T%)UP)a-s;);oT52E5Zi_oWKXL1Q0HLYDc4#L<5pSO
z-Hw04=>CBLg-Ew=O-((RJ-LqP@9(!un*cf0jU+&3?n}hV@@LOd6JuS)UE>bgnKv(6
z!qi607J?4Xg$+LNDl#a@75#)1g!9TT&75A#2%Wz9{?%U>^zFeyB}NYlGh!eR6vq@@
zTo4YMH(d(^Sgnl}ryx)<u5r*(gO?HVG4aA_rO4r3$!LeKY{!sLk>)(;aRr5hP!gD~
z`?&m$pBaw2J3eRhfR>?yOm<Y%u4H`+-<;OZO{<#c&%2}NY9nzAg$jL0H$?Wa%&Y-}
zce<?ICEi0{$m_?Co2jGw!q1RY9^o1iLLV(kJ=-MI6vVw!M|UQX9)v0-0g%}=K5e=w
z(|N!T8dCCgeZ9Rg4rw`Ej!;bSDlL^J{vd)x#hnkX!74z>?Q>7A|7hzY^UCvB*o2iD
zK4u@E{s&|n6;cFG$1Ntt41bUxy#i9^Ns}=mh_Ar^=}oc0!Iy9636=CuI3>e2=H!2#
ztxio7zrCMvv-Lzflk4Kn>-s?^zaO_3zZ=;<H)v9bN`izTq{%`r-DyF)JJawY%6!aj
z>t<>5?}-H%Ft{z%05oz`eGObIq$)+t%dqG*5wKwjzFpu`m^e8(X~K>69XO!mpr@rZ
zJUhxir4gOix~9}uRa@&N9sgP@U=Q3uxFO4NX9)m1@&lc|cyU*0Y3V-!+UJn*NCDmH
z1(Ce!ud5pfhz7_yJ4+!5{*rBW3Gh+AEk!LQVe#@2=B*Ghlw?j$IWekPn`<?2e^!Ev
zt2CwAVY#R>Q<npAOZ1yei!S!y;9!wvijlfKfMJ9y@I$L^7lYrXF=*v4CP=}mOOWBI
z{9M?XJ<yLjM!ZK1ML__&iQ(FK?Du6k%~Z^&#lX%^Lwp(iW!}_~X>>ld+K=0U_*+Ee
z+x24=9%1`MsjR&JJCQ~m`B^ms*le&9R0ONI&F8fIu{>DI*+SSjn`TiScj8HYe(Q(>
z<{@Xu{JL@Vs{E$#BPQRX_}hvcbA-hj>$hgGetmIa|8QQioUcP_jn25sP+eT)<GnmQ
zt^Sqt4gHUmlilT>xoM<^v%{_deZWn)D<>Zoe`mHw^6nj_BmFnmqJ^%kCqsW2WwOwi
zm!IDgKcAh^lRaWB7Fc1l@5@qnx*gVPc7xBtf?f2rD4zRfLaQpMmp1WUW=53|L!qoJ
zBcmVp4H8`9(J$lT6C(#T=Xo^cGVC+h^~<S_Mqb@ow!qd?Wk;EkzD`@5<spxbspahH
z=r3PXFxqh|A$WUGDML!!<l6z_{d3i4UkdGS@8wRrAx3!%xLl9T&B*_m+2DxOPU&1-
zubdFa)sf18*<x@e3g^#$49-~&Kdh8|{7txNc3In`WKyMf@`yc@0|^3^GhzEV^AeyQ
z=(-rF0XuV$G~TKzxtP9|KzEvIJ=&jk@7WU%kGr}>(MGA*sa3K2vDDqxww|EBKn9o!
zi0;~Q)M1vFuv=LWWZRA+Ov{4N=zx27=G070Ru}7BD4!Q+E<wRzor(+7TT7{Wl%VA5
zWUHl=y}tZ`XxuB5W7al!J=5*$^(3VsO@2N;%M?EhA3akC^So8n<=G8y_5eSTt-^o+
zk1mNyNU-9$*#UIjPyi&I-u%HpP`)ka@`v?tWsE>3Oi3%14Gm_w)tS2Ev5pkoxJhsF
zAgQD=!hljBSI3fL&-3%O9f~a)lKjt&K#8O73dx(?s{n@BMgVFEE=RN85L0{66O)((
zfo7_S2O>=-N4KAp*+9b@^f+42Ykafgampw?z2D%+T6HwRFd~~pMeN?YS6t%Wm&d4U
zQkc2OoNO)>5H$KF-o1&X{+Kb+C-pPP`+hIvi{hq?uX$NMg8{!{l7@5y<fw`j>YCFo
z4F%^)R5hG`2M@Rj)|#65!(>$Wopf@Nz~s*->icS(<qy|pjf@{9{mO^TwcI6c_nfHC
zSu@-Zk!DFSo*gspQ>S^ew8y8zcxw;EYUUzBlu8Np@sS85ZQN#NG9+*5O0xaPQyJCC
zw2HB+Z*l`@OAn-+a=Qlol%q}yugkBY(1LWAvpGd9yJ5RS|8^8Dc;M$3W*$YtNzlaA
zBl$=JhYJkM&&Kv8pNpd*$lwbllgJ#J5-uGcHEd|`I|-0OG<I#-$Io9g=wG75cFZb4
zRgG7r^)v5*16$yusa4{f98jegBfu>op~E~J6BidK={RR6ET?(2Au#ruSmY~98f``B
zNAlIMSokORZXpdlJOgHSQVFiP?V|->9FKYn!gZU}0)f7T=<;9i^&Qb|6z>uIQZ$}B
zIFMSl#NqOrQxgB%c2^DJxc2OSuA?yGp&Eg4|NHl+ZROvF1_k|Hb8r!P7XuIpUyQSe
zkx+LqH5JGQ?Z3Mz@qJ^Ki6)AJl$rUHnnx``{Q|WccD=hxj7$nxOeUR(h^iGwm5NR@
zcM(N5a7*~(`O)TWV1ny;9XZ$Go(Nj?%foq7JdYE#MOdO-c}<a2fO|OaN<pP^;Q}=R
z;FIp_^K`SN<4>GCNuj=PJMknpcNaM^mJFz|Tn}rQUNj7o5rb)GArmg<3BcF`JTGyc
zl$aQL2|?%Ic9?HRkMD-iKa}1`5(y-kj-kH%0ctVu%Ci!Zl5F76c=`BFB0idR0m%c-
zfsBEn2mGp|KUtiFi)2<VVF=aWCGdg?&VPHHu(v;kxHF)vOtwH&W9Dj%+qd+X%fEv!
zBVFJekRa4xb5=p21oUp=mG=gM-4IFs`0?X=FrQ`-R|I#xHZ0#vya$Ra+Ifo#u$dT{
z&lwJcN&Lsu&;<h+^DH2L`PY-x>Oq9?v~+Y7p3-ixeAZ*%>BvY4nOYB!&kM)2-|iL{
zXMw4<gVGx~0&4sm;?XCFK<fvJ;W9DsK2dQXwaM5>+Z~Otkp0}D!po?VqK>bRH8n>r
z6~nCjq2uSFO9+TU<ta^pKpciUL-i$!yk!x@>D;ej#`lo0-b5tO*&tW!Lc3$fVDL2X
zg^G^OmMrb9PgcJ_Ja(HWBqW5EiD{FkG-sBojt=Xg!-uCx(8_<1w)Jx(1dOjon1VOp
z$B)4$Cqz9GwFr>9yClEqg;#H1Ut)?7VSpsLypocvon3CD)Y(VECzX`8<l9aLfK%%M
zqStHVxv~7_FsK<}?F__+NRX->SJ@Zt<L_UNl&gxSruW#GX<RuIY5FR1k)KXXuzs>j
z(15`C-|)nlrUM%EXNEe1f@l%MQb1j2dwoL#!m@2dgoU9dxYIpe{?G2QO+n;UVWp(=
z1AX7NY{;BjEv%1#&$9c6eLf8J%3y(ktliw)RM_$i`(dHQbD-&V2<Y6rV~+s*4af$v
zdQ7016pNHwYZ$ivGHhL+*pVc)&`mX*bpD%%hlc^krd_ZB)s`)Xj2n3~iuWo-b$^`>
z4GFo0WSRGA3BWz%=Bc5ibFX~B?aTEfBuZYJcZhj-dFAU=AouYa<|iZX-AYx9^Ozrq
zx$iMu$KVi_=O-&siqY5b$1uJ)7bm55uinnR>_of@@9S&TJEG5bT8}htf}sc>e4QP3
zRJ7Jn!tSR*vWwH9xebniUIO~>4s@v01@rCp@!`EC^oNYU4yxkK?IC57Y-M6%LL$k>
z&rcTfb;%IwHx8=|5a@3<9xc3wp#Ah!#+^H_AXlF|oD@w<Pk#^Cn1KX7%5hTTbN<%Q
zuyq3|&55%Mmcb^}87K8)b@c~qgpgUQa6&@D-@A9O1HSsvoX&xfLuYjg?dTu`<#Wlh
zrT(SXVWdnrPOJ<JCyB;RhdqDJi(1#snD2q&XEHhDpKaF01+^XUOI1}>cEIsd;A`Ta
zKBWXQ%MuG$`a4rg23%fbwi&`N9Gz40@*Ba^3W2!71Vs+A_Fn$F;?n$NAbx=aC(vOR
z#&zCnrU~bRzH4Wc&~5|jL(g`AW=<u!{60P#$<GXsLq0Q%DOi!9$BzTBE#1I<Kfb?t
zR@b+s%z3~E_jtG>1%LV1ZDD^;Z|^HOLJQN?2ZgW)!Y1FgAaAzo=&ip=?2oX81OKcK
zJ22jsW1%hwyz08dA?<VxxjVuY%^>1OjM0=u87Q4=wO<E_my3((t8o^lwBFN8uSAqW
zauhD!va-t0U%m`8&$a=fkZICfTSs?n2nI+^%>_Jr?%L{dB3Vgz3OAN`f@Q*#^?3)0
z_3jj+9o7s2I=QZh0Y7u!4q>1RUb{u+DCp>@i%1UDp@;;*@`{Qxwnt_A6TqyI^G=D+
z7Oi_Xz-!u}?l_?s)iXxf?RGP{I0OxQt8|G4WJxW1N~trAn?4<AQIeINF8lY7rh$ON
zg*la9=!mlA!eH89C8oeG1aYJ$@+!^gw>a<^8q5Oc#R3Y`gO*mh8$?SP!kZwZT_=mz
z*a?z+*}<<JRkVsSVrqia$Cr9wk3UDaLdI?;MqZY2-O*E2e?CMk3W#@D6#de8wzfPn
zeS>Q{09tu0ILW0*AE5rr(8ZgISb*R*xi<x)o*o|EAVGe9V(qT|USNB$zP|oT+9grO
z?b}brt1KL0M~Z=CG6-y{tZcI<<~j)GDek@vj)xQ}Tw(KSAW<`zz$MANzX$*Vib{Jd
z<WA+UC&=G8shFbv^mHKm_e>)Ol9D4+LMLzHfb#C!R|+&1hzfN$dKvr_V5}W#3x9$N
zeD?C?7F?lK8ss_dF(%(cn&aPB2;Uzn?*IMk|2kFn-*f%{5_2hQRE|sh`^4M2d&p9H
Ng;UD1ucQs`{STuNg+2fP

diff --git a/reference/plot-8.png b/reference/plot-8.png
index 71bbb2d62e0a7e3edc85e802b45a8c2951a329d7..ebcda1f9fa527382e11797dc34d154f62e9b0674 100644
GIT binary patch
literal 56330
zcmeFZ2UL`4w>5~l&22zY5n2Qh5EPXtL0b?Cl^{8b2uKzL$zU76K#(GXfC7?pl&qp4
zpptVGL_(2suGz0`e{=6zGwc8FKX>ljnKdlCMW}k~4bOAVK6~$Tp2$i|Y~ONl3k?m;
zc9NvnH5!@?wlp;BZv3_pKWX!SHIBbF-nc9whQIN(a53Kne{H@ksd|To=CB*_-x{yJ
z2|XH`KWIo|7Zhw?40qW0?p0i*PE=W)5q@%9^7p+KP3t34nUa})d%s^r_7u}~=Eo5O
zyFNb^)%^JJ;hH^vybL_b|M(5F_<7ae_icK(L1FTD{U>LxjE*iXJ*dm-I1{QL9TIkb
zj`Bhz#(t<VDaK4$v7|0%^y=wSx-~z~iH63c%zNP1w=^_<7w_-?=jTt?pZxW0^WM!`
zzrIan+g<SM+w1bow!aSYHd=Cg?cYDXch$Rl!>?C_FumLQ>swy&|JZ^5+QQDo<zLyC
zu2mZNvhR{7y`i6K>h%lly+bvTZdt_*3Cd+oE@cssD?xvsf`X!l*e050IYUFk52qQt
z%Gmd_Z>GQe`t@tMkB_Q7XAOuaLPH~~IQ@Tia*ur`ddn*5j_SJSSyTK6ZvTDWx3~RI
zTtX-Nq<x`Ufo<Ao{+NiS?YBqq$|+&ju3f8td0}0aX`2#X`|StEq+i5tKg9cqZjWN<
z$B!Q?K7X$7e)qt7aWIC1lk+O;i`)0@XNTkZ!yKgBa?HKr!x)6^KlNFb_gNaw3^kCM
zbJ~(Vf4;K)z-h5BA$-beYQd}1F`|RX`J=Ts+xv|f7QL5*SLb_;nvz3}8WZC-Za+9s
z!I4s*sG9M8#y-+G_VkSK%5)uZ@1*&^t;cN{bU*X8+BByldc)RzpGNK~zxk@tl4Tqa
z=DcXAdHdalicg<pA8g!SpJT3lHSp90w;hM$Wi^jVcxJY`yt}_ar?RwHXiM41UE}Vz
ze<?Y}gxSa69c@?bvtQ}BU9w$iMLzmUTy=JU=G~wyQ+<8?PnKFK${b3G)xBP#$<m>M
zarh4(P%Y5^BJ$mXO~#Fhs_g9S@k6gv+_{xBxB@Oedh}>lPI*<;&gN*Q8`eqmBU67b
zBYN?TezQws#Ub+20v{!x4$ZU}go`JhIdi5iDmwa7BBk_@`Pqeq1s%#z?dxZXA{-o*
zCS64xXN?<Am=x|5T~3{_FD#|gm6DSBoRrgfFnjsYeyv-RlamofDZ|4icWT7<iwk8(
zUkwRPOiYX&a;HscGG3kVa(U=c`R#TfZoj;W3f;Jkwu7JbT!)Ri-j6RK`z^cD1idPp
zJ73X@IP!Pj;h$^2^X1h=H}=Nsa`O{qj7d(Jw`!P%MrMaw_Ei7CW%X6O=`fqBkzfqM
z=Ug&Lad+S56BKlyq3EcSzE%p~%hCJy??1L?z`?GE-1;!7_N2^-h%PiV3XId;Nl{Kq
zvxDt-sv5FQ+iocJ57b09<d}EG+S5CazuP3ZG@KDRswimQDHLk=Bd9e^SEAXnN@OW9
z`brR!S6O7`$zqMMq9wED$x44t`LWKzqodTAaOc``*6_sFmjf=H2nh{Mn)-T9rpswg
z^Fw;tX{!NQ;l+VSol4t6t(lQFW%GiGOP^;Cc}*RE@!|!2mRU#ZBE9|0(CcuQRn;ux
zCeMW;u7dGD6FRX%jeAQy<V@#qXqC#GPWyyw^755_K_X6h8+Xvh4i67Mp6ToFPcZK)
zvhNSIiEtN6yJ7clp0X3OEr;Q7a~k{c<IkBJ;uSA5I?unlJKX$=Ox|r*sD(eY`}P_2
ze+^Yjz5dr|;hfg%m>9Q2^RF)i?0*CqB+gw8;cejSa*S+m*T8H2e0^`NEY2J}b^V^A
zep|Nb5MqadmqM2dbp;<Fi>00ExL`@Uckd_4Onhvt<YoU8avAzx64Pxu?P6TFABxVs
z)6ahN=*7C|t96})4t*20-zRJ{otEx)Sk+xsS`dG>&#)z3@5o%CZrKj&;pUoyUtehz
z+6N0-$KM@kWyxvdOleA3UUuYE%ap|SPR`Pt8|}z)p{_nIQ&K#m|GBz8PCjYQv^BGa
z%yK!Am;J<v`gFa@`XVO>l0@rir5jERk20KB>_eRw2U`p5GNO)#Pc><~XnxaK7tv=W
zXpM)ZI>ss!MsIOQ*S*y9uyG+H_YJY;Nlx|b`b~_EFY$LQE(#maEJuB5Zmj8rz@7T&
ztA`SXt6yEr!V{39FR$4{G48t+ru}oF{c&M;$D`(Cwai;O!nFl>zU&Q(*RI_-c=p!y
z2AkD|emAFShxZRRukliFSsKZ?P`MzQezM%1j+^QG?X>~|0(}e(X0=gIT8dp<swcHl
znx;oP+Snc1OmiNcXnJ*VQ$qX4{o3@i%|Z-bxwEatNs|vY?cAZtyAONv3La9@3Km+^
zn~u@vX&tt`9(}EG>=(~|m=xN=Cswk&Fy&G5Ew!<DzUP@@t8!+xS%=X`U7uwTnM_XY
z%Sca8oJ4@#){?z---%OO_j7H_?Ti^Vn5~zWdBhq1>Bzwzi=+>e%YSF7hCRZz9Bd~~
zR;h^~EG8&4d5NyZ7COwSjTw9iew~?_`Ml4(c;zlaZ>2pIM-Xq9z>1!ktUSrV#>O_V
zxJO1v4(r<ZZCBBJ&sHp`leZS4qL@7noGG;zby}Q$*~e?r{F2dSS&r=c;zc5k#XFoP
zK)<7KuG67WcR@Zz+GCJeRgY7vpn0evC^$IYOJq?}I_Atx6CYL?&%xUp(}cYKw8Q;v
zNK)rZP`-sAdcLaFR<O@kJ~1qsg@py##-e$0&#^11{@5Jfp7&Gq0yLv9pDaB4-Ja2{
z<P}a1XZ|C^{L-OCx&2;vyf1z|-ZaT^rCPjLpR;(TQC%_EZZ*<NB;DUUZ}1q8Sv!9Z
zFA*}b3akdN_5Jwa%86YvmvG7BpiZULNNa;yvU*N3SKdHGYTwG9OG~pOK5Zjh%0EhW
zie~yV+IIgHOO8YWKFDhlIOB|syDKN|1a(4-_|0Rln3$-j0Yn7%mQ`Il20uObnu|My
zZ)WKk8O19lYs85-Eq*XztQlu)vu%H4aio%V|9<1zC{p9nU+XrN-lXyvH`W`*gdQWc
z7CPiSefCWEnt9^KUbQFv3x9)+_)WVD{HEu7z0@lsFL~64uTHai96qOntn)a~gtM~A
zScaTjyt){hZHV)FyCmrovry`_Jw~U*wb8Q7^YGDG&l7F=sd(}lLCA<Im8*rGM;9pC
zR3pw5?P8Ik5%!8=i9uRrja?1A!uHdTe_q1^Qg!&^3?-&N+(oO_yXr31$YQ1T>b1T=
zj*4PUgQ~Ekb(?mq=j3x)b+i*=AYDVOsgIS5d~CfR7l&|lkjKbZ(0V8e_m_=@MVu>u
zqdUv6?wD~%BzN*1y$`s&rhhJPCoa$Gt3dxPybZbYIkRbJfhtx_EZ3XvwGDCd5?HHs
zBRO5kkGAgLIMOnt>s|w7kT_Qq=IYH)za!MTQMGX?Nj=AvlkuwgdADAdn2X5o5l@ej
z`ziy}D~Viv`t)gEZ|_%`nP-6ya6TXH7g)cWA?O?DOO`3AmImH?7)TYn^X-LIEs6Wt
z5v6`PRbhwO`u*CDM@WK{#EeXUkWk0Ta_(pOOtp1&>yGs;VZ%J|cNop>PwbOmuwym}
zEv38qf?p2VLa8cDnAlIo6Fna*%FE?Qq$g6BFR#;DMI?y7eRg7xmobZ0|KC_NRs?JI
z0ueUNyF{E2gN8ctZO-4H27n4aYe>$s8jQeGpd_ReZBdhGk%$JMI54v+BQzmqocr?S
zA0{o5g%$~FB6P^-GoO4tnH#rk*`gpT`!XVeiI$c&E-LB+aixyEAElnQ(G}>miL~3s
ztOCE?I4E)AYvgV2(au73Ji4cbpJ{(){z~e6nP^2)Re5=uz5KaQX=_R&r->6n$eYnO
zy`DxPiAk}xS{xJn#Xke;`I!s%bDrXGRwG$W0B5S~oSY4whtExa;p@6p{qjQNP0ifg
z+`OUqgy~k}6u-726DFQ(5sl&ImZwO&$~><=RAGM78)xDO^dM)t-z(~dVpU{%(dwcx
zk&|n^nYED4XWGn*KMIZB3UygsXng1t!e`!C>TzgY<C51SM??{~s}a=MHuJx;W2m5Y
z?Qly5fGO``5l0mUF9{@vQaVZl)(ah@+;qf&Io{4Dsl=+k(Z8(I^KOqL2q^$8z_nUL
zV%xHH>rBtHlWLT)-2O02VKyH!d9ABjbAjC*g(X1YH5bplu&iKHbQhULY+hTsr88CM
z;`v(6)&S~5%QVli&u6MKJ0%X5H5)V~Yg#-hi#d&@M6BQG!Mdcfxv8lsYhtB;3Ffiz
z5Z;TAc4M&rWG`wrdDFOsE;3EGOl{0<CnH04vSD4cY9+Q<{rg8-XL5>HuCj(Zrehg@
zzs+C4a>WLawBh1!?7`nn&k9$2{m9z=>=%wyU}U!KJuV=i3LF>yRg~&TF&CvS-^sNM
z(6D@xMQ`L-n_eLuy?10jO``2*s645bdHgT$^+X0UUckNfFbc7o`tgzD#mfj`uL?_k
zdi$}$xw9tCr$`d^3^};7@ut1+T<ANMwVfIc9<sre5Mhfs4kz4q?DrFuR3ZEC-V#i+
z&ce3i*Uy{J#Y;*_T|*$85jlDCWDoBlUX#c1qhgvIe!~B(q4W3WjuYrIsSn`GlCo(V
z-E~fxFd>2XoAp4|W}Lu*TGm7LaW{M?xNlYeVZ7ii!60X0VX-!nEd^ksaq>=;@cy(M
zJwwB|Fx#Fdwr;cvQB%hQk+cYWPuvIQ^4^J90L;a2Zj3#<b@^FCt;nr8<|hXw(_8p{
zj6U4FC-HO*v&o7>K%PeO<E6u*&W?KTx0h4z%=ZOoGx^Vrh0;q$r1(|*lV~QeY5%ma
zNW0|4a9EKkJ2h1nXeYIE(;=x>x@Dg6+QmgPMZh0AWp*pw4|bk)TC}1Rx}@ji;U0Ok
zW*QzPwdUKTEKU#ZnTawycXzn@!A=pns&T8q*8v2uB73^K2-%Kz-y<a~AJDaG(zF?T
z``0?|7MsMXNLj49X{^s7WSh*@M&P$thZAMBN4<n@aC#l$lSchT#Els~>O+U)t4}1U
zuNdwJ@tJFV-ZKddko_~0-7BxDAeMU3!jF*HA&;3X%gnETZ;0nAfTx2&24QkUfs~>x
z`X%(7vcv4KciV`+74xpZkdTD2Vyc#DTXqAA8x~SrTpY?W&D=b)kI%YN+7*-q*0U`J
zl>D)xjANQp_JytKde49}_l?IoAfv9^E!}YS+BLHN*B5MVy`SQEZALYC3~R-JzFo6T
zT6RDG#Kp!YclT~KUJ!>Wap1d;Oe1O{#-@3cPAD^P6;hD~ttUS2H~#pPR>=gxyrQDw
z8sPE_VnCS{71)BwuICBs+ETTVhJ*kS)D6w_lD?=v4MVqP7*sVjr|BlGH_S2XSnE9S
z+iUG&=f=scCktN6MP4$*2`b$v%FI-tG^I2>KXS1iH!P5`1h+n^4=FlUJ;$syRp)^<
zJw8<}$1HT?HoBKbF1m_onhPcSMcO(4EY|O>=Z;N9@I4y$K1DS{|54Ih(b8ywtkc!t
zv)uTAt*Y7qT$+jLs;a8Hyo@^w?35O8BPC9ZP1vsOVLN{OH`TiU+{Xk2a^IUazOm?i
zY@y)SMB!Okn)4Ej=GHA;UodB1c!5&5G@74udg{j)jvSH3e!0x>xerhFtQ!guva{?v
zm`rxvarof$n;)Np_B70z<+Np*bqEg49u#qW1AyQ+<BXtsgyK0Jw9pQeFE{40JU_8!
z?C6t*tlcR~dw<6DSgnC~>YD)v7iXHZt!EmPB@~OyI`V?g*_eF@%RX5&A0a|ro{BA{
z9cfAl=QV4O-6PF^B%W?}682cd*RM)lMNW~O`UBOk)QTMK=pzN0*w{!!p+oGKwBa&F
z7ZVQyb;SumFQx;)QzEPLx|9`Q_L-rC6s5SYPv20I^D9=q^jXGT4&ahA9kUXg0St>p
zF4|Q|e6W452OqGf#y9?wpwoI%AF4Qog*9<ib;z0=3O0$!eqy12L&ENXcrZZ2@rnsb
zi^#}XHe*^}!i3ekoR^aPxisTP+Hwer!XVVzAIOi1$U33tY?M3>*6_?^HEAUfbtUSh
z+Rs5}vQX@fG^br092_+2Dk>xr^C9yBITVCmQ@ct#pRk6-rW7qo<=-8tbw6-s8s|Hp
zO<fE~&&cotO3tVfQ6Fi|l1HL%D0HwfHffK1_wDw;U`%);0c@V^VI{JsTK?T6l#|5z
zPLS|o$eSoVWR1mKYBiZ)8!F*FJ=Ue2Wz<lMn8ZcO1KhTrAJ-9{ZPw+E6MaEcw;qT1
z8b>?wlZrj)xFh}~HKW2A4A6G2L3uIr_1xGk;E`4kA*d2#b{rOrz0?17sH?ab@nW~v
zMOjPB^rGd-%PY%MRl!1b=~%Ys2pmS>87x_=g}#6UY!`w&advioMDc3KBFFy2T?ms(
z>3jzM__=oQKiab2xBvS7e~w6NQ^A!Zvc)gweJ5Yu?R30hpXs)rN4S3S|CoqlIiPzb
z;=w;3s6a3Le;-}<zsLic^Q0qL=4x=^Pm)%lV9mD=9!(TQef?+ze&G0ns%7-UJSdLE
z+>E!DRp#m{qe%3r?7N2GwEM8sYmGZ!cr0@@2t3$6yDNcL@L*c2cZw6D@c}C*#WqtE
zs`zytwo3f&W4ATb(r-RNkQB5U_yc#Q1SfrOyLYz-2%8;)NH5h0XjTZ#9H{mY%oMOr
zt$>~gV0jJC^V5h2H?W(cq2ZvM`{Kaq(pbQuyvYiV83X_hR@O4XAJ<QMmH7-jH~pp}
zWHUR~#mKwBI7HO?Vs2Vrfw>gb)Z&X*XHuT*c>Nw!*D_GIYWwV-XS{-H#CdC?7EmzL
zRBRi;9zDo?;~^074608*_3(fI<v3$IVCKFdP=}d~RFo!9*^6-Es%`G{0;h*e<0qXM
zDzsN8_jCB8s8O_aAT3t8tVV+2Q6muFX4V%kf$WJ)LVz4Vat0@mkF9yu34X_?ZH4@d
zsOc%V(7g9)_CgG%&8Zg%z9Utqq&`{m9M7%l^Qh|td)?0<8uA$;YSJ!_0_g<{J7g1-
z4pG41rn#(8w0S_(#Ew$a+}V_@H7(0o1jh=drt4%x4Y7CSa)@H>I(KY(iQCSQHnaRM
zl27L?1w-|x2WpOqiWX}Kt7n^}Rp{yIv2;uJn1gAQ%kmlH(W~$kb2Hgm){~oIHCVeP
zl%pu1iE`CyV9gGC{_7ukbxYmF+~jrgZN{>DsE8Il>0T;XH8qbLJeS*SR+kt08kMs;
z80-g*94+6*AjChg*xueQrCEvBb163=4zbfykYAEaN3oq#^>k;P7(N5*uFbaLr;kSY
z5O3-sQ0s|G$31UFWN`olF}GPx{<RV9S?iCq%3_BTs_?WT<MR>w^=l%;cTw7kU5W`x
zs5wt$;k!@dKKT=r$(5y8;F{9j2{99b%6zN6{go7v6Si`_IS=$N=Qn37bnuM6JMqMa
zGpaTwBJVA5Q*U)5G#PT9R81E{7*@8lv^)>GWB2Q*DEg6VlM$>kXOu%*%<-%affe|8
zB)9?#wkxp@vGm+u-U`y#Lp{!BALBhdFD2gH8|RczYle@r|MqA<Gij&rv~1tn#A7!W
zaK*lC^2{VquQ&>x>mrx~qFlMuo*flMd~_2EtjMQd%yuvc#e%&xT$t?3>%PDBzCYWE
z6AF~ZB)`zm!`aEJD@&DqmV@yL$xj`wq$MUGcp6o|{0s4Y25V8i(0(SqRs_55wxiBt
zSN7%%1FzO>(?jFo@4Syn4B<-U%*>Jtv{LW~6-Jg`<vu6uMz9UfcGFq(tn`agy_u~C
zsxKTCv^pNp?#Jx*pl)|9pnp;yP)G&co(Tm0_zxTC-xpI?%#CsHWu&h&H|#gvtGznX
z2A~kwxPl6+95f$NFtM1K{ELwiBJ=z`xQ$SlU(wyp+S%0)qU>bxays)M@|7%-5eunG
zXzGeWn@r%TcT%IrSXn84%33x4oa%{UX=S}~T3TVw)D@en;UbzKvy_11nac;QTuu9-
zC#Wx}7CSqAvOHt()qT;{2_)J}T&fZ1U;^|_PE8SP;*7mtKtPOn(ZaFr7X>H-@q-7A
zGavTIsFZgcyBa*;#^@{y9F4mIl06Q=N=*+$9;4-N9xA1KEA!}gxRtseI7-R`-dRW^
z*kal}Rip39PNUpKK)EUGY}2S}5Onz5U9qf@U>@Vo0G@~XfBTu<=tw^RCw8btXJ*zL
zDZAd{Cs><G$<w%zQdY+mPhWpabF`emxHYd7)HCHA7h30lt33@10q;utEDw-=OjU{Q
zRQ>Am*j4f(v)FF0BL_W8=W?mzVxUI&fW0z0&0Er0dS(Fuaw<{~;p3YlW)>+a>elA%
zZ@8naC3*oJqk-p@wz(`%NaUUdeP8<RHXZ304^PAQ@88!aQ9RF$rVa(2HN2*w`&2@c
zx-#aHWC>a)cKYW^T7H#qlZ8_=PvO}<PV!H(xH90RGWJ7c>+Fj=Uu!sX+OLg{f%eTf
zc1E?(-a2<CK`AM{amhX{QM*`+po-#R!i=t-J?*?a|JbK^eS$I0+I~2#tUg|m16R4h
z$=8PX$?`;*HFga_1fx=w_hJy9#vU00AiFRJDqPT5TXc0klGzY>tMAzDxX%xb{GJ%#
zG^9u*@5;VfWC+IWRT+_m4^OM+Y)w@`ClEzAk5T<`O~;9kYxX2=gSG?KGEr9M#ryYv
z5-bP7SW64fC}6h_MEOY9cCF6x6|OE)E-=a@ea`g(TVKZDaK+$-g==kXtyQO8KT(v_
zAe2RV@@NqowV*(VbPYKpL8A+ZX9jCO4xE(WV3dz9nH+(bO+ZI`WC1@vKiYI<Kjs6v
znKwReA<z;kNgw<d34MZ4uy%^fzr=#yXSw9EIu%Zi;?m4hvF1cny6C!%D1)rtZ)P1p
zn%%mXyP@}PK99jydT_B<48onVac+>I&TKz;_ISJwr!+_z<obmE>sZm94r9VI12sgh
z^~F8H+N|(%L1ud2sD8Nh__f4RI%Iwl@`tBcZr{F8@JNKPhWh^J#iGEiL7aX+8hJXt
zmY3`s9-aaUMuo4#%12sokQvWzkXQf^NsfvnbFHK}A)Ozza>@+1P!(O7_5shtOzJ@T
ztIlp92^CdUPG*fP^oOVDe+eF}y?ipuzPSjoK_|yLzk^7U%yF9eca89Rg|rrN{PlBx
zjyaVLjiL6+N%l4fv%AC^W_zPLFAN;a%gTwzYz)@On{O8#S+52w3_5{$?&kM>`#n8r
zJ3W8(kRI@>_J^pil6&-$G;(Xzih+a97}iET-(!!A+qR57a%4{NC&l5H5DAe%$<C`x
zmjO&_s?TF)R@O};A7>~j#g}+CKWQ7`Efs5eki$Mfr%S}~L`#qnTA!*)nsj4r#yT&s
zjzLQG9BL-inLDUAo`<{10AZ12WV}?mzLmIDemppmn*l-N42ZMm)-f?LA*dq6-Fd?N
zPimWeoN81zSImQ?stXnNK!d^b%3Rl`BwcWwxcj`ja>99xm2yp29Jo9W@qOL9Z(lGH
z;iE)d#5f(Ve#EX*K-@bHl_5!9l&<dW^07d)(l2q{9__rc*f+#~yZe0ZBq;me4k%mS
zioA6rl;7fpLjU{uiQW?D9kg<O+1#apGNLQ>LoA1ec<d&>KVO<N@49Zff5d>^JtgNR
z_GXEH!l<xq?}XE+IaI9+l)0<Y0p8v^PSg#(6Sj#X=d1>PpPJv@@t}!LSHCLE^kb@J
zUxg(_!kuo{_~CuhcuP{cot>S<Gd3-2P{xgtr?~>2l{X@e{?21Ru5`bN(jdX;#60*Z
z&=4tVLC)(Nh`V|qqd$|YzI;(cXaW3BerydM<;bm_%v1(FY>KpFwVR<MD1es;C91K<
zONsIErDq6cX03mSd66n8I<6d3z*t0kMdS#l$#Pc3V#l<|f4l&}1;)S-L+!bDn!^f+
z;(u{=BmwH6)EMhQ#FecMU-#|ZOOz*;`5hJ>N9n2D7u&Lol?Uxd^C(=#?Uj;*LhQHH
zR$w<}ReHc+0O$VX&5Ei)sN$&kYT<=Ld}fJ|3lygMt9GiE5#cGFbqNKsHTV@HBt4zp
zK(HTLc71*?DG-)-8ry-y66}9*Clj2_z0>98<?&E4awp$;%EXJ9?!B5wRO`CFQP`xc
z$9z;3vrHLWmMt`0R%Vn=w#cH`jt40sG9XBuHARZaovF!GKOXM97{}aVe>ygD!f6$>
zh<fF!Y2TqUyrQDo5aBlG7M6UI4dFFqCJ~_(lIOlDx;>_YwXYj3Q>VtUvYuPr6#9nE
z&Ss+NveX9D6Q8LV71*QLgspXA@Y4r-pvkyef^)b{PqK1t@mwyGe5Pj}{B-)g@68v|
zF{q253fPXnge)BW=1p^=O4@tS0IlqGkrG}nm)O;n?d|jIpnrUU1W_@gpqXc7c)kS$
zLm=c&EUhcx(puhFL=Lv)q-1qMhyt#Bxl{;w%7gh%gQD^y6E{g=TU}ZiXXm1ZL+RMV
z#HXn7fhIIwLb3hGJq!QVu=q%;PizS=AJM6))eu{IXY8*6Rj6j01PwN)MJhI75j<$j
z0D!!wOYp>3l$87x!?Er0mNO6lLkGKxUHt6Fr6lZaT@cP2bLG|4jGPzx_TRz3AXJ0o
zn0(WlghE7#zGm8S$FXzg+TtU@VEzD?$ph7{bmXpj*$W>Z-J+FQ^*YE|^4G5IPF+DE
zyskA7F+`srT=@8!h?ASJ{fr#*rRU?bFV;<(20&_+A5VdLyhn#yYKP_X8Og?@tQRP`
z?WUey&^}Hz6+#Y^O%7wZ?5{$>6EzZ<?_Nhl9EytNojYIVx?IdX>IQG~-!Gj4MYW0E
zr{vqIDp6_yt<0Orca6$1yifNgaF=d7c=l5P^4~G&`t(A!)kejD!Wni``e%?u6FfID
z*#2?ra80~XTLF~C#%wH6eXusfwL)_zPMawE8D5gFfUUSMqSxJ3gdE{#lyiOA;p3$t
zJ?&73@lwiCdl_XW7_f_uqz`hwuQ422`XzF1&r^=~jc4xs_<V2b8~Etc9LmXr)j-jc
zyGGb{C!>f7(vmy#9XyQ<oV}EfozQR}&wv?h5)6}-(f_~{ZQIaCbz(3xF(%+Y<K|8&
zl|uWh8Lu&7!|2Z_oh9uzitxh)-9Z9W>mycsS~BA6BliR(X{FqtGX@(uu`s>>aU@w1
zQhc>#THsAi|B3mXjND+6b=^196?MZ9vHgHSCLyl^Hos@EDRy2-bSj#zy-eFFA^!Dn
zK&9T@vChMpVW?+R`bG<;zHTYo#Q{W<(Q{ic6r7qsPlCzh5F%9C&~H3PWR631P`Y-B
zT>klUV!Z|N1mYtRw{cU?-O9!OEoaZUSx&xZjR4xXUijVanpI#qTHXa~l!>Yo<A!)z
zi=IEU7oKtD#kS`S)nD?yk@Of!9~~(g(Zeq}GTt=fPQSEq8~D$Sg>Fmjj#FQhTCRH~
zFSUY2&%Th8Vv?Vvno-(n9`)+*@}7dC^?FgtxTO1yw3PMc1w~a(N=a&Z4UEGz%b<Fy
z)QYjhQ>{B3#tPSr3^<_J{XiV?2Qt=9yOoDNpVp^fU4ks&tMz6~dHVEeg`Y)!hmzwf
z=giq0AfJR~2nf3a0((@IFI@PGmI~~^QD}|_Mz2j5@oG0@$D}^+MJ&v&7anYU^x_r^
z?$`A{Q$aAhCK;oEFhc!TZM|W`hQ`QZ;O%-sFU-^cnTt3|D?l$H9S0KYl8|e~V{4%#
zwX9ksIhMnAnJa*x>8@r2z+6OvXD=JR&2I%t{_<kiO^H=}D&cb>kwJ<_;>vO=mbUfd
z2Z{i%_mhpAQ(qCZ9O>y$+NABL%E~$ftHe2|I#}E~+MrbBJPz`#9g0)Uh|XH>qORur
z$z3r1erx0SF_=M;0axYYbSJ0<`?)meCTn^`sS8z&mcT}D^Psb^^YJM|GgJav0C|0J
zG{vH~6y-X3uT^@gz?~l|mB_wzP-XY=I%_Xn_qn4;>{MfM2qCiML<b2yg)Gz6F6xp?
z<7DmY%ht$nZYLaI_)x0^pMN~3v#E$W=R)0YwN#O<E-meuML+1hkj|u8g)^5heH>`(
z5?+j*O!mAIMi^c!DJcb$QpPQF!oOF5b4>K(P>y$)8(rhl1-g!al7t__s5LW=P*maW
z5Z+i*7QlVUro%em$Jfw=`g#QbR_1}M5m5~Vdwcs2_L^J)SsH3;2Y)_qSgNe4I*$pP
znAo%R<}CBnbp+eG`N=oH{2lqLCtVhvWetml8J=p=xO4TB^*Ni-O#d;+eW^1yZ{Aed
z+yoPVTPST&de5$^$GeUuQcsCaeAq+KMVBtQo<4IXQhIWEu9(^Y8HF%ah2Cv7M6C}h
zD_x7P(>5~d=;opHUc*Jkx=-Fm6V5i8pRG8ysbZ4lNW_6+0S0!Tz;O@NffUd^jVf-$
z$^la~-C@%ueq}bV!wj~AOXPZZcwY9(OGLhW`PQfeOpY3owe+X-)!rcx4b5s?oSa#u
z!CK%D30w~<h=OPn;p@AXB9tH(>B=Kw+A<|9D%vGgF*DkszF*5$r+I#*a*4bu(h%pt
z^ihp>6w30@>e5&fOMpfM3})*!V!#)`ui(#2m{a@&qvNx$%E@`tmf-rCj(vkdV9ps(
zsJ)P5o@&h8dUtCnRU!}q`xaC6&<|5f1rUUY7{DyNJYI5PYy>6eHSBC=66l=G=cMzk
zzUMm;S~pfSq3*rkdNNifTm;l=YQ+hy0u}ID_SKAg6Sl%#gOb<?OrO-%tAG{>Rzq<y
z8#yUmW;O0|W8wAN=N_mi-gs)G36$m^^;kD~9Uid=B%F7mxzA&@JY!y1N;S{ya4Q*_
z_#yg4`V?aB_S~<c2lickUsCLLO-D!P!z3-Omo1?wK^fb)JVMZcr~o3L4uWh_0+Qu%
zoWK3$g@8OTosyiK+<Eh})SK!p4C0_6)BF<zy)U12q*`oa;o(sv|0z97TY)uD!BV-b
zU2|-C#pQV*x324F?^ie97cH}LPg)3uLanJqUQU97Ym8?#)S8t5M@1}An1I#Z5nR1M
zP&~}bJ~ASzuXxA%yQV6N1N2T2b*=x(*vaCR*%0d@WNKKNVEy@I4+B&zG;YDFWzh^6
zSGcb;uI|~~31i2u-no<7cP*0<m#@vMI2A1paWtf8YXj%hfGwGZt_T+2sn6bXQQ@v-
zaeTH1RqQs1J1><^(VEsMlFvQs)saKPPrPomayAmFBsO^v#L4M_+12u*TMi40+WYl<
z5+{~Ls3>NV`VN`BIdU@>^oNvS?K%e#{c;VO8TwZ>?FV1yQCFAzf`Z~uu$qDv=zfvA
zJXyK!tJl!`k-HR>m38n)`Gtig!<U!Z<%FU+)xK{d<+WBL2&W`HZLejOGONrX!rBud
zem`gTvcnZPYxsM%^-uhM^<>p8hx>~RgPxD#g&OI1)|3+U%!Yz+fjjyNZFtz6-4;U?
z<6~*GW1aaE?GjP1_C^pghOxl4lXa3HiwWq8($5f>I9SxBh%kg9fe_I?9$pyz&w;yA
zJzSW$n~yfsOv>yFg=tKua?$m$Atb-IvU?Os{C*>xKePi}c2Z@RD+5+`#R_K0MX9g=
zCu!9xDr>$5XpGfOFu9+DRH*;ups_%GwZJM^Jp<$1;cAZ6k=-VNZjvMWJgK)g(k^hP
z#CP$nUQ8M8$mfeUT^5}~tXrS>tbZ;yg*As6b@YkvUfKk|t2l}xC9%E;tJVq_kb-|@
z&Qd09nRYDQ&Lm6^C|QEx#{*&Z8gCnb8}#v;4)6zTBsEkcAGE%rK*;pJxLsoJGo-_S
zu@{_6y8Cd0f0vr6C~bKNBNjs(XyY}#Y7Cqxfwty%Qf7v7x}1HY9(&EZ*1f#2&RC#1
zFidZObz9FwvzbuO0*dP-=A<#vrIf<i;2%}tjM-*js63KFV1Kgda#99ZC%7~~7cgB7
zhfI;0j!-73I|p#fnHc1)0XA(Ojd<@jP4AdfvB3J#T?}s{NDSgq_$?xSQIjOW(`U~k
z3@L(?`i)u^#$i-WW`SCKU@%;4i#|wbaumSN#^sLv&*}z!%X**0_eYK?W|uVs(6SuP
zb!D3AnLXJBFNEdhhM$0?156!Z>?KJgk0E^zAw_yMI5bfOXIQ*nSM02jZOCo`L6Ajn
zSRk$IuI0R-N0M-TFwW?pu&BKh2H(vEM#Y^?X5RC2?n1#Oxp1R?R-2WHcI%}E&F_9B
zGO;LvPcuHBF4Dg9`l_%ytMm)H+oJLA>gI(FYO|s18ZLko1rU!x{Sb%J8v2)MJym3a
z<()8t%-hsU@8(@xzm=vW8(o=*PeA=(-}5^CB4If1p1*iMhkVJMPKUG0vXZl+s!B9|
z>EyYn^QsBTDcSxBwIyGRl>^K*KFI<I`342C4NAWMgQ3t)_pl5;k>{8x#6rR(lF&2&
z9P<j4>7zs!RLh9SKFm%qoaXiUtJlNx(U7Przr*e5%b4NGzRF0!XqX;&Zj43g22lfF
z63MdN{!kNM;zC{ON}5|Oxj8?_>#1K*ChPcQ2v5RQ*b_d@1lAjHVXbRim^+qeq&`n(
zAh=@Le_@J*F|9!eoDfBCHK*zjW+Q@eB4md~=R&O%p12zb!ziheqz=m~wv~$RIuvIx
z4E9N%<>Z6y`QMDYWP8orjB_NH_asS7xv^2dJ&BeMJ=jovk|39|=uKju+B$|yEIM!b
zNSRTx8`hw{;)u6&Dy_x&5j<d$X1)>#tZJ+ZreoSG3)Ivpl$Z}s*g#vPY<^KEeU5Y3
zTB8A_X8?7*t9O_QZa<A9VYEZ8ym3|SPWRh2u!eFEm5K9#^e1dvQcHw=G7DJxC8gag
z2T{hT(CciR5<j$4C7H5?sea>c?;jnh6q&BRs3a3bNILf65*!S=?#a174jvY=m6eW>
z2mF#pjS7##q1VyTgn1RWZA;MkahdP)rAga~lJX#*nZ~CXsMLAj1(->M3maAbMSo%3
z>IzTZU8+j362LV;ch?cC7gpgLg`(dc?n%_^YHlD;!$6_H?%LCH!`QJ-viuD7yGjeG
z)Uj~8FoPGwlKjU@D@YQAy5qOxfIZi6CKH6jF3QA7Mw3b448VO&6tPi9d+Yq2gu2Rl
zCk9a8H9e)}U_Ko5FgZQGl^6chO#gm3sngrR@<ai=N(oLLm1_z60?r<Z-Lg%>C`S^l
z3&tMuqtpjC3IGmOy9`@eTGljKoFZ0ok-5CQ`~y!Oddk=x*yIDW>`ArW3{y4JMO9T*
zInECq;R%jtwK=}p2BY$VVm!w_Ueng7jIV;1fkI_LrGUQ8v+Na@ux!x_P_4wnx%HMm
zf0e;unA^Ce>5ixt_s2*sw$%MDC|ub!cjC!<p4sT<9~x?k?BIQq`G8xA4m5ky#w2wE
z7|RkZA))BQZSe#294|5l5BW2Ujta>|xKtHuXj^{j#g=_i#)ZtimbsrnE#2IK^3k0e
zHFyX>WC#i<RlPiLm1pl#^Rmsm7-sncPN?oq?IO%X^!&Hq(&@Ux?f|C+53Em_jjXJ!
zApnLOk`nNLRH}<Z2|(%~^y7^yeAz6X^*1PMXH{GY7ZJYR0Wv7jnlQ#y^FKo|b9#o-
z#0TO$UBm{Vcy_eI_?S$X3E|!AnQ_uug{(1m?=(K-EEJwIxGW_n@Ybin&2U5M;8I3G
z87dh*2S+0+-wL*vhn)L&;(k68{3=^SU3EBGjzXaNO7Pioc)3eZgF`tJ7Z)eWcMa<X
z#YSiN13)qmTARo-xCm>8TeB){g&1@{ds9r1Zhw*!>o#sn6*=kxM^tLIcCMvfv#qwn
z2+z@S{!nRSMiJbE?Qe<;P~NV=;<Ei*<h1lTLj2ihf|y_q!t)j|5qkI4>vkVV7g;kW
zYokcXv`%|U(i)2&KYkq4_0*8xw1fUsP*Bhh=u;V>c(WDFP-g9FJMIfGD=jVkR(KU~
zk5DBVvmsEp<zm&Zn@vO7w6vJdse~$4lDxCgtme%~cAGnM9X>m?50pldQ-{-BhhJ*|
z3eu&nHDxZSdV;}XmH7Jm6Cb-D;v+B0nWq-~^h&uf>vG%-O<NY3>v+H%gaynt)H|7F
zkh-Le4g3Yxo9p0EZbJMq1la<8oTrptAm9#&6U5uAh{)?&^^p#D%`FkaN*^K&opnLY
zr;3X7)+}&5`qb4Gzhnw3q^us3#>61iJgc~wp#JaQ1J8{WoauJxvPmjC6RpzNHwEEQ
zt*kr0i9pES&%2W%0GWf`-QDj|WyPoBjqclg|Kz=E?wgh17nEc7OEtY8hJ%%%JN3tq
z?h-6qe>Uzx<#eJ4mL88RXOJfs<}9j&=T!6v<skF(VVm|{7F5FHI<>{Wo2N7o#iY2?
zl`<R`r1YA8bEumilmR%`4UNmROV}f#1*25}_nG|KTMO*tR(pCp(Oku2@W>5w&kfd<
zNuCA{-<n5!7HwV*<RagMUMQa#jZ5T5-{u2Ova@edi_Xgg-a=XHa>+dnyte-2_wvRi
zZI>0E8;2grH)OMgyxl%W=$-c)zjYOX?w~cxx#fuJTj_8SW6S*snQ^J7LwQ&Vyntt0
zRQplfuv=+n8aI8F+UUAFVQdOHLXAQ+cvw5=>*=Ysp&C1OT~l0_d~@SY2Kol)-k@$%
z?21RCOF%h%w=`j0<OL-TLLLjEH*z=RVRm(cSeFnYX}minc9AyAq~#hGNFzWSy`mlb
zk1+Dff|E?Hb(Zj?k5ksNWBI<QmStqvSK;T!ur4_f1X@?H?1{ZGb#Z8Okww4J#VfN1
zQfv{9>cI(<B=qCLPwD(wJyPaz$UvB@1IM}-)a;}M=>1Yxa1qTjg!;PKw&1KUOkRVC
z={p1u)K0v287{x=vwNYqLgc+5C??_g?gzW(W}w5WA|TX}SVI-eIv{_fAb^S|mhfpv
zsut<&hE*m4QjTkTCtW0%5h+1S&kbiRdc=%($KFO)!7IWXM<^wqY=e1C<EN*mA6qX}
z<N$Ji7t?NdjZ(7}<{wRmk*p&W!s?Hkk$x{tD&aKuYlWHY1AJyLlHc?^O>H9>MR3kX
z+)htqT}C2&u;a*{F9!7GKQr#|577&n%rzQK1PM}hlu^{VfM?sE%uuRo(PhCT&Ak8F
z*c1$7>T_w3vesX@w4a14O5$!IQpCOTCiWqedW|S?*bAKs#HMoH1V^EStzducVm<E&
zd8Hm38;>rL(h9MkM_`y(+%w$76P$*h1Xw93PCh0WG+N6GRQll6THa`I)dA-b62KJL
zn@5f}s{<=$-fLtT`5ho!XK0#0?e_!DqMf$e1bm;)cFz!X-e;JkOrVk*gItAT!-wLG
z8y+en1+QbJ@te%`dO=>V@#?37KG&girRloiAWCBwx{ju;0#+=*33wIGq$@xP7P%S(
z>GlJKN4l%)JW-Q5xemRf_=JQQ0}UAgZ|f3W9{3<bi1vexNg>4DZUMr}HT8VNPyk-b
zZ|L<baQvpEF~~XkJs+M#!-5qJ4vx6OOrwU1ZHyxACp6xqwnwhMJE5NanfQ06NlPul
zwGT8IELuIld3_Kvhtm6X0odG`&sYsqr_L;idKTMG^rY&cZZc+YnwG1B@5Co8%#1jl
zj=Zb`u){3ip}c310WJl>j+PQ}A${s3fZsC}-Wo!JK)cE3K<*MNG~wWG%cp1w-=QSs
z1Y;4ZHCbhrY*!G|Yb!MXtkQpbZ%s79PwAjlFhXk}M6eJ<tqq4~--o9-UCg>HF4B8D
z%yE)*v|I!2d`BvMN8TM8p&+4qzM&Eim*jIS2)QO0CHf(xe*&H$V;d3OVu7eB6^Gui
zFFCEE9ZhATD)d~=`z0rw$o;S}V((KIn~FahrxfbLICG15vc$U~;*+jk<pH&G8X4~t
z_K0(HXZ<_+FAN1W1x!w3`RE!$9uI<(>1%zGdJ`1D5Cq|1I330=gkOJba3xKo2<2DX
z;;P4wbA$<CoOJrwmHh`4IH;?0#Yvmx2_$jqnE(xq1OclO%Nw16Kkt!#(1=yR5P=IK
zT=;(*ui#+90j?k2R)fFTU&HUw`20Bdc*pyZYle-%aS|_u{?~vYCFVwCi;yEkqbK_a
z9*}?CU_HTJV0W<!(!cd*aGuv8)nX^G#nc6L-y#moN7&WQzXsT;3ZBl0-}88FStO)^
zTM!wD2FB!q$%?-Zd+5eCtwTE7{^>nk9r!oxq&xrlX)2rje{%2X|Du`gZ+kEe&3{I>
ztm4s{HO*Hc9DyX<bJ!JzM>r%;kcf`BvR=|{u?Zg-CP8VEu0cl!UAvoJZW((Fjc}LA
z*!RE*d+6mHL5E!?6aJF$@bK<iJsfa=qG}*pp=>#zOT6W_iy-epS2#XIQ9;4C`*9D&
zHcwRV=FLyv_$NbLw6wJDM?OjE9bElxnG4GR6NzZk+(&ix2*A&LeSM=4=cUM~*pX;(
zI7h{@C3%?5@EhNOQ#3Tcoxh)RAH{sTnN38=b7l@zh0q&M-O%)+QfA~X5bdS7*wsID
zH{UBn*U#!RV?xQd-{wuc`qrm>SQ%8Y7U~T5bgRl5#`pfdzBdmil=b2*d;$UsZv?zn
zM4R9%=>4JMHB+S+A2!FTyA2)6=d()wgPuyPM&j!~+MN8~V1fJx+o}HtXG|D?X=omA
za&vGa3vKGn^J4BLmqjty$ty4$kVqPH1~06?Cs|l(%>6u0>VEWq-_yNj`HrdK_@cn*
z(!^`4!{lqd1t)EWv=ua#qWQ;uHf3FB{TV_2|67bZ@NZk;e{OCFo-n;gS<zYYuLgw3
zNJ}fBMQCm0lan!Z2U0Z-x8CD=A^49MKvZkltKr*i`ns~AlWc5*fuc%O<9c+5)A_u;
z)q`e|WT3Y9qcW>=<+|cbV_VB8D}%QDjp=hSx~eTMqKBW&Z4OVL>(O1v5DvqunkW<V
zW2~U^G{^$}8QUzn@8&B;ZnU$Yi5-<nXRWw%ixg4vn9U&c*>@v*gNPC^NpJdQ?7apV
zF|c4(EIR!@_#y@9B?G5?!O22FAk`v)CWv2|0NWTbJ#9q-YyJu^`W2KKk~P)I3fHbh
zEH5vwm)NTfwb94wJ7WcENhx%CDT2^Sa3g$6UV{t;t8+16fpa@XAAa!GxW;7g{YEzK
zOT_ZJO}o>_5ISN3HmJ{f`Ey0lQHKu2WBkGMlf|NkC94;#GYKW8kY<mai{L>bV*2|Z
zBO)fua~AiHK4qjX$s<_)9jca@Sy%`*jqK_5Gh`*+G_uYWMIRk&%@K?V*s-~D%jwcj
zy%WrW?)SbU<i_pe{`jnkvRy^Q->ZSjojGKge0Y0VNt%D5J`u5~X)Ke$Nfz6(Etpbh
zM`g;~bXQas=IYYQi~0J}oWC%b&-J7?oj^qNG`Re8J3s^ePam1^KiK2{6N3!?_muiy
zGvwi4XKcibwT^{0R-7y=EvKU~_w6=6k_a;iUewd2AFN%PLLGwz`HT)WIT5e>X?K5q
zTR{9#t7>5Qz^NPYZ+l5rzu`ChJ5GrafQ0z^&&b37xncId=n=f78jO97jEtR}^Ah#5
z5<K*9{qM~8{<wcsXV1D%Os7xWUpy>+^f)`e`&!Q}#~*Oqrl;MYu=lVSUA5eKU-9#F
z*V|RZHXoGTd-K^JyB{5Y_WN$Kv|z`|(gW?*hr=Xm_71z^ujK;bHVuX0d75m3GRj?l
zw^ZK?XZqJ@4N>v8gv*)ua(;U6pMfIFd)NE}k>=Uf{<GG`<=6i+P^3HNw|{jg$n5$T
zsQd4CVBUnSr+mtKYk<HBO^{H@;KDL$%T7X%u|1exIaeJOO{Tx^08QYr>uWn<8G;s1
z0-?h(ZVN{MzJTNT2(RUqEj<x>zh3*-5xf>&58{x7!TPMu`}I8Lof@t>0}zG@-*%=o
zMTwXtfVw9mPvO_wPKlq__-em6ZAciV$x%c<GNA(9fA9bzU=$d(AyjPvI&^AaV<AR!
zCKFN)@%4Gv?`y_jn><c}cj3`cQ;PP$!sExkS&wyUlBeMcQ#LgH`-L>!9BX!shlx0;
zk*zQ&gEn6p1po^PHs2I-@UNG=ZCcCJ4X!+!ndqotyBi9gL5d7rMummv*H*umvf;zk
zMy{gy8>Cury;ei@Y#%>-*lUYf9haXxc|u<O&Hl0_gdR3NzMN0}pjDGlpDU#IRBYX{
zcr+wMF~J{b^HIaR(yG(;oja9p-HOFO{B`I$_3}HC2L^6!O^6e`aN)w5;*@vq-gWjt
z9#c_yGNu?X<x{B>(56Fb64A|Rqcy7;le#J_x?$6%P0K|;sG(Vw+EY!tj=wJ{;XG8g
z+<Rcxu2-q4r!Ei0Zg~;DR@quWbPbJc#|E*t>X60=13KZkBJ6EMFEh$LKjszC+Qh>t
zSaZ?hovAadM<0{nK|B(YWWQZ~wflHAYUd5#8Sja6Z;Na_Y+Q8BXIAl=N2@YNmCUH4
z%lM|JLzDT}H1T;nhT1H~RWg@oR=;lCutD)zZ_Kemmw3{WQQt!O;N8K<@SUo)IVUx(
zb@qt6`7i4{ZW~FCFruM3evZ;*5&Rt_Koj~{Vo?})FbL<pz4PtcH=?TmEhjD;rW=0l
z$!=rSTrOeimjI;zojiY+qU3sP(0fD2vF<*7l3ZEpqBcTXkB3!ROmunt0TUC`G(q^F
zw#;{iL!0DsrC*jz%m`@iN6{)BCS<7AK}&n!z~J_Tsuu!BW9keo#EbSEJQ$B!pG3xD
zgSl7_Khn);DbVgh&$Jx4h>x@jN{}juj)O{vj1T7(W26s{De@MBH9jwsa4kWJb4-C<
zDJ*=rrRA@w@OEkd%+6NNR(DpoI1{aNuvD;EEBFOlIY0IEoYgWl?{lDsvq`n9$Z~dA
zwX*c=i4#}6y}dgH={;#eGLD5mfBrj&XOiHY)(TA5`;@<*bJd9@vj117Gu)h<U&v6T
zr_H@!iU>W?x3*&{X5D(4mx8~=7CSw7@PG#<`0aG3URK{BI^vk)Q2)QqmanBxf%&I_
zD{#VAs3G~7_U37)FU9766{Yki7%m<Bw50Ci)f<1k!8WYR{HmR%aVxim&umt_f*bet
z>E1WdVc}6jQ!anL{B636mganS{H{F;a78=Ke{&;8!KJ3I@lR`5VC1Fs1%#s=l{q$V
z9A?g_Ywq~9-vXJgN8f5jV==nP!Qcqm^&1O2EoOpljfSTC>C`qNx~#Et)Bp8)9{IQH
z3qW=UbL(F6t`fg=$q4oWBM54=%6|`0prI++b83ybqhrA;_|hRzPxYV{iQzcVNYr2%
zQvln1xxnJ!uLI6U-rH>Z;Qsx+jEpJs^R@|>|Jmj2a!1Y52`>%t_1EM752k?s_a&|W
z;xleZ<f0khU)nfx+P}E3PNbbIeZY0D>jHz9%+l0{`T&C-4v~?_);qa-r<=8%I<MLn
zH8qUe-t<jPJ|N`c@@JU8sbf3h)u$<^)-ikMsvY5Ty5AjSzD-Oxh?9c5vb^qZ(=NV)
z<>q(c?N(pKWciBE<92*SE+JtuDq@PWN=_SEDeUFFmWmc$G&J=lTsi6oa-|b0u^M@P
zmp}V+S)%#xzaO&rFMde>24tnHYThf}ymhPm&6`mTdI%n4mY{_Gm2Ev9KbEz%eZyk?
zUF;Hj9XZU2m7iZl&YGg8=?avg*c30Q!4;YvZ4i#SkNhQq`wR7)ItshXM$egJO1N@L
z(np=%o8@q%A6)+03R91>K|<gc{jKv(+qW$CPC0YT@$mCErx!V~FfqMP=l<ft<>~IO
zASU(@VLq$6TDE26?&U>K%RZIbloX7_QNFO?$x2G^TmPfzlDK%B*_G?zQ)_7cdU7x4
z1vFVO#<&2poJ#$3bCZ4FzhjP?s)qMivkC9mp&57$DoeW*w`<vCpnw#hZ)CY{=VGF!
zCUI|d6av!mrU-6f>hkxy`J8bVxdPm4n<hEnV@~h#Lnk1_A><Gj9qD_k7U8U8%QyQ1
zmHhw|%s(0T6>aQsYmknq!^u-u(f<YOWD{91{!f614MTP{-)`^SVw<sU+$qg!l;^~V
z4eyxBI;5B*-JGltZ4h7+DrIG5pYxrEAlSfUHA@_Jj1eO$1mFfskJ@pRmGzI3h|gCj
z$(O$}zEn|itE7E?rvZaq%5kfICdKUG<-J3e8`@ng(co8+Jz$;HVzOcFUXH56im%jO
zgvUz)E7`PEIAsl&{J{tlr@x1xt*z}}b25J|Ul5m+d_1@83n8E-aMKW-fxiB}Ew*Qn
z5_dv;`uv>i#R#~5-g@uj+<#(v{cr!zt<?W^bq2}-M3mzRds=ol-5rjtT6(g)!bc*v
zjVQsWU$u0o`Ax3L1;<e>dFIgNtD**BGlq;ujvPsE8zD!bED#8l4xeojO3&`0Xm!_#
z;7GD(iR!4E&r{D}Ff^Q;#8qO&ch=0zdUNcb;fyj3`^#Li^0vv(m{kW7iS;d$2K(P7
z*#CuUD~MtI2NdBB=3k-l<!{lO3g8ZCB3eSef7+E1^3Rk1u5166a-09GUd3LbnHa;a
zY5+?5?&g0P{pTe{LUrppiD`;vIhV;qmn-I>#lgV>w%8w*PTjjUzdl7)7oQ8@q6pK=
z;+P9H0bpN}Ed7H2RZXNs0)DaB*0mZ9+!5Hp`Rgt9{5Uc4&78KGfZ}CwZKoMO&_ibp
zYnjEx#3ad`&P%44pmd2Cr&i&|k;``I*V`1H%dG8OCIrWFA68<V0i)BjHzr=Nky_D(
zx_kF-1t3siw2Z<;I%CcD>s`OgI^w>hwU`hi0C>$i6EOjCfUsUeZtufAz(kslrKLtt
zlNQky36eZM9wg7tuW@z7ed9m&A3Br(&lo#K&47gJEQ8{!J2TuO&&|z^;UesOdcU}e
zd%G3v-ol>ubF7?2*<qp^^{+$8#7j}lNXf`F!85vd&z?xaD;$4${jU!xmepG`Hdq%!
zbX0Qi@+x62Ln9pGtR$jOjsX3GFisLv<ItQi4V%tSZ2(<danQjP6@z{qrJK+3;5cl=
zP8eSxB`GO;<%&CO=xYeIlN<$=YY38h9o*n&^*_^zOGsQMqfVMZb1h5|ik)}E?0y{3
z_TT*LSkC1?o?XIRnm7#68o+R%I^6C;FSkdJ2GhzI>M;I{m?h@dTnd9mzh-B)X~@Zn
ze_f2e{o8Zs2E!bHytleU&++$iAL|b5CN^f~s4FAiwX0x|Q9JtcgZ}#3JE5Za=Oa2-
z9qY|B-O5*X+EU@JwhI`8QBN3_sXSOhIO-eWcelx?__;e?mX6yB5%%Fc_br6cqk)Cy
zo;J5|H<n5qA@#xEC5f8B&&U{B{xQX$fcX3upOL$4EJr(rPFF<PB^`gXUa_UHd(9u$
z0~y8{_;24!k^gx%vfG!*-pQMML^AT+PpjTmbZOYRH79Qy&G@-!m$R4N{4BfhLdBA4
z4qFyB*kAJL8MG#2%==XTp+?3x)unU`TYi6xa%(TDPw=S$d8=q!7}KPVe=E@s_=nS4
zQ#pOlhPdy2L?=M~3<fYUj7`E&^_gqa&vT)nS?fQzW(<bG!b%k3c5xI;2I|Z&K#OWd
z<v;NJo}T^Ne2gm`vxHhBrCAKiQ719*u5sA%*FpZcj-45X^4Y8Ofs}dYDR-uyt^34p
zeLqj%%enAiV`m@S8P}R@1VcOfP<j9RqZ6%YV=#1B#!(p2s*~RiP5<A&BINn=Zp|<Z
zV~L~41fBkvFN8<`?_c3ivYqcZDmn5rT;~*w8Uf|PX4wHtiy<^zaulk%?F>TA|NfjW
ziHQxs7(cV>04bOl0}6dNDy4W;t;=!BgXj{l9%&^yCnl5U-~(o3XRrA6{`1=r!!QHO
z81!_)r+(OLvf$EUVP-y#jfFZIvqyr6HdJ&n%Rt8E%0!D(4I07YP<&Mo15~r0PJ2WU
z?W}k6HQ~Wle?mdkcpm@20H6&F=FqT*@8(0bs_3w>FkP!iY!vi->lb2xg#ExPH)euM
zX+q1vGfgVyl2*e>JopR~h4FQMdzS6Q4eSURTn+nlJ0c3){`=7eAN#f!);{zY*ASjM
z651geFt6%|Q|GB|#Bql@3-gsyw30&1^5WX96*JBEa-yR{Iwqrj=7qF@H^t9-X)<%O
z0t*)3mnk@ShR{@Z{1ofh0s>;D3)NY8^3%~G_P^I&{du_k!THETw68}rSX%}BG&5Ky
z0UG}rT5B`Wt{*DwpoH#uXpCiEjKs(QVq6->@z~o|wO9{Cx<DiG_1u)6B$F<h+alo_
z??PhqD*Z74Cl_3TC%r%fm<t@1n4wE_a@ZvQVhPWn3q=|R(K-yYy-9cJuYR<nz?{Sd
zTxi;nr%2TL{U*F2;IC59T|_hrh-aJ9xx&sEkw2Pu8SXJz^cGZTDC;d<`iS8c?}m2M
zgvXM-?!SNk-U^nH0gNmlI;F9*INodiyy@L%_OMF(G7}w)kHVI~@-dT;h)(>T>R*PI
zbruNbSJ|8H`VF>?+(n+lpZ)pBZFi8Fh$#erR-v9J8l;=F9FidLCxBbQ^g1oV`U#(%
zx=9FO@WG%ZYnTq%goHFe=~b`WDfAK{d|y7%5tjmEjW&Ktpl-MX5{N+_1V572_C0*-
z9PAed1uUa(=<34E{TfUf$Vbx+ja`VSSY;p=nMv>%&3bxum^C35Y)#bmU$CsKHMdi|
zdE(w=x0=h(Yy4dnG6``XS5WRNiHV85>PO2K3kmN~eq`>u4~Iq)9)ts~7ID0?KvQpt
z%k-;qKqX5|9h+B~{J;b<yWywjM=&PVi{SF~^!15ZSN3Rb#{5R*<F~EyI}V<^n@C&$
z!D_;ahGA)#zw%tmWyKm)+N)}hFQ_p}y%<vvgbWdSiC<zdpi3<YbA_eQyi_|o()KJ-
z*qo~!9VqcwFF!{c!8H!43CTi@=vN?GS#Jq_?V2kHpDKHqnZ_YgtS1+gMpN<N7x%E<
z7aR97+3d|XSEle{v=^|Di1maHuge7y8O#_Lo54Kz>}1jLDPH{<O|5Xp$tRe$74hZ`
z|42)Q1aLSAUYt6C7I3oKx7eSdMdkwLI{4xa-`}tm#=c{4p90UZU_b<jxRYmP#xWA<
z=gd$pE@?Ow6@dn!%_9Vy#Y`_0CdB+0WTfNSjc6(zfLo*<um@3yXoWzczet`QFWE_f
znZl3R8nf)s(}i$NW<D%zuYh*!r70kw*BZJCjn0)7?zq(Z|GHFS$PyV-UPG9|y*xb|
zaT+Wn4E9noF-aucS%k+6F|q+!rm|iJdzYDn#%8@B<1-0klNBNQ*Rhb%>YnxIpMTz@
zbN%z;MItN`^DO{dI%n!?Yo{@sLXx1ciII0;*2+(9d-U*OEDYGh$TVUi<rwdQ0|($e
zenHGpLgY$-Ngt*JA00Z>hqa)xc^qa<uv&(29-P^YaOB>CnGLYVds_*y;)(e*UxLm^
zkk6X6zgbJ^fAra}kWJHWiSvo7?i$}mRco~ZDqjPi8e>){J|cjtaQYgt@9G(UF6?_1
zl2@+y5)BcF&DI2qj5&A2;3~2euq+Y5iP^rveCEmc-~qy$k`|6<uX1f+tyab&R|+r+
z>DrU2A3x^M;Uh&}9iy(w5JN}mc+nN%+cwgu>m?jLK0eOWlnW0$GYK|iuIx}azV;nx
zgqc@^oQWx(gwr=Jdh%3;c1G#i<6Fbm7l0Nfq8j323_N_|#FR$Z^<KhY>$~`Okd-|^
zP|M75*j6mbO}Tdrh#5U_XUN~U5uxQYqlhb(A!iy?F?=j5BW5grG{d+lCldRd^4ypI
zjlK7biZa`}g`sWrwDH(220-c7GJ${+C5f$#2uMznO~fK7QL+)bRYVH`C934CK!Ie;
zk~2j{CC5^*K=Pd%?DL*`@Atmr8+Uv^zA^6Gqlf3%6jk*+&)#dVHRoJ&_2=ayY;XMe
z=O<W2ROF;?knghK&#_r*{RQLVu+2w<<T|up0_?wZB{aNep=5Q)B=SpZDc8DFVS*we
zT6j#s6q5CsrY0qq4>OXnre2ykUxV{cF4|um0j)C6efjd`roTS{-kaN((us{9E*zpL
zprA3;m*wSEgd$TDZS5k?!>7WfT{W`XokJVbOwvH_4k6sh88<&<c%l971~tW^vqwAI
z)(AKD1SHAVHwhTV69WetJOpCl_;`XGHc;&44?(_XNFyEhLX-D4d*!x|YS{hSXP<M^
zGZiu8&0&&cBWzBe@6Z>X5vA_GoPI#&LpW*;@irTf8e|(oLt8y;s|aP-L2{BHR+5C)
z@x}7Z@x(){H-x$>EO~L|9QgnY1pUW%>jsjmCy)z}?lTU20vg?T(ZPkNDv)VxJhN;0
zwZg%?L%VL=z<+5(03dss9MNDgu&^Sq`C_4IRwvIKUm|<mfd8ZH{bRkK5v>v+3^nW>
zsRTptxWB)DM`YP*m7P0x^0j$sf2B5_VlzE6y>Ts6)?Wk=@Mp9+M-M-1x%Iae0Pai$
z_^-qsN+<c$V+a=Ynwy)a(HWL`zT{_^njJ;`udPFL>TGQBZmte*kz}R6wCOH#Jp~)#
zdqZJ|E*{nRVlpD0XZPwre%YHIE<^xc`Wz4kBlL`uUMxCtL(<TO6Q3acF5!Hs&yUie
z?@JV7Y~$e(RM1D`*2C<5iWkR!gpl}B+^f%W9p}x8%>0(CZ9;v9i|**j&r{F|M6|Yq
zjZ=EFwHv@~I=&$!Zi)c383;;1)-Us>Eak0Q1;FDKXk_<%6oZA-N2AJ6K9&b@>Yxn3
z%0BsmY|lXJfi<MM)2JEGij9e}B;HP=X=qQUtum8Dr->hhC}Lq7Y4@-NE%8MZ^3g=N
znltpCcx&v46TJlOCJu79uWA67Ccoq-+44!*9Q#*X8DO`=xt?DJ^2kiwBpDe%Kk~49
z6k@xQ3t>IS_U!_%4v;-Yy78{8+<v#hY&v<#5AYEutO;&Ke@ZjM7DyseKnuuzCB0@Z
zT}e8FZaWwFd}x3?2&A+_fll1^?u~TQO(HI5r+Z@8x6??I2eARJ&2cq`cWFYZQQjsg
z{x>l0B)va`Qu{J7fYSjY3q){*>7Dg~l{aFmq{nYZJBVL5KoT`+brxX}EqYXloR`O5
z_!Ge&p@<Tmche1DZh7w>XB=U$)g-I)_3PJX-&x=g%!SWMfeoHxKkBnOlpDJg;MBSI
zsaFR_J?tUUK4)@s3}jROez@3@V*<Knv@c_XO^kMMxsg05;k_6Oj<7Dm2T_TJ_Wo--
zBC9GZ8)2_ikLN)Q#1J8b)*J)zg5XBVOwd4|y1L*&ZO74CwV1x@8aZh{q$XK+B5RC<
z)*~9bIuW`|{2Cqzymqeb*twHceQZ5PGZUSEqA;k3H(Y(I`GpHlfi2*Q{vgt6#MBE{
zY{<Zc4LgtbgYbc>^)7zXbc+viL=yFhO>8ws8cD`T=7FPeFss#86L_b~0*YItE^$yO
zKWVZQTr~6{qaE-bzv9V**OD52j*}VHG_ki@zUaipt3ccUk$B<#@n<6hFVm|v{_;{f
z_m=Etw_<mMV)tNKxQAtg3er$G;0)NsF`KzmHrGp&7(xuZ(IRrm?#D<II3<z%o1B0@
z{qz$lJ;+%M<`UnGNIub{0MA|8%{j$+q*Vkpz=5#&fpE4+;D{8mNo>H7181(1#&D3F
zN$^{B!-JuNIwo@J_g-jENg{23cHT3ggp9?D_#`FuVXjw)P?m{0;;8sPSFc)Ci-r;M
z?sFq{-kR7M8@aiY(aV2g=keRsAiqgW{-Je?&tqT^e84#TrN{mxt!f`WoF<|lWGl7g
zq$GzgUeR=r1TE4T(hi7&Koq!FsRa}Io=6wn&>g-yg$LJ%r%1ftZ~pZcjFV`KJ$n1f
zlr%p6eK#+ax@QKzAdSB87}$qzjf?G(tkHgrk03pQ3X<aD#GwLLDuiw2auY~0Y7|FQ
zll?R$fdoerpiN*AQyrxOu?hJXQC;zODyD^3)!OkF*CHBW5pjI$Y50Db@)ha`J*UuF
z_$i_FNQ8Nxexo<;(ys6sw<?_X$@^aRXjDHiNFHeQZCihM=UhU;E>GRyan1gRE~XCF
z8PRqoC2RAJHmkqdKhSEH;o2uwh7Yc_8|cpNE8nL)JIbdtJrT1@X1Z+q`RTq<)1QC&
zr7K*Ak9qu{&ZW~ceUc&C-_~F778|1-GU9PpfBep*WiqAk(0tNzjwu!93O~^aRc-eL
zKWS_&xUt-cb}(^C8J@kx!D>(V#cgnAB<SmiQdt`3qemX%PPAypI87JNoQ@|qJ^J31
z<t3PoNbX9-QEjwb&#_Pd#)ZV}X`8fz{y7?ejIh6f3|(Md%9c!Gk4Rcdq0{ZhmKBYu
zm?f1pq{M@0afu|4v92}kFOa@5$Y=WD<lNyPb-DK8;oofFh(?@1$!rq@)OxwiM$zPC
zL@3n83R%_m<=Ngh%7(_Yx;RxO$<3Qm;LAl?L?<NxKEp-I0!jzOi_evz8qn?sZInpJ
zavT--lN`h@er9E|MHekBERIz1hk18mlk87=#qsl#CrtIhBADfzU%wte43nX`|D%1$
zw7+%vW^CYJZ@m>+U?vCl?dh^^s90vA4FZFI#;9cBU2>q)b+eVd3<k==jrunx1>OrT
zxC@t6zUgb&uorKBle;c4UsX;Uh+xn**{OGRrIJU5kMR%S7hb(uy*xjMeL7nnsZmVd
z?+=(hT()XhDxzq8ATUM!0u_bM?voE5K{W1e7rUHI=ir=oFU}E;=lU2hVgbCuw4-px
z=8b(u>N6<*2;zYi-X4v$jG9{?OSTa$jj;%bmN51u;ZPDu)>(HFtPhm9dSU8H4aEKW
zqnw`mn2Higmu{|m>Dk~f^Ln@Y36A{7BCEW4Be!vKUSLl<v*kwN)pIvMX$%eiqx!Nq
zK$hPcKG5l7v-cfZb_bgl%=lE81r%`Rr;3GEq<=VEzTuSarQW}8-_G3sL8fS3(zh~>
zi#=zuTW@jK9hp7dVV0qNYjR^yL}aD@w}>`hgj(E-)G+Q_iC<EXC2RP1eG>TbD2oJ-
zt-@xcgA>C^e9^|Ss;)%^#@C99H%W`o-34Fv&w}h<MunJ~?x>~s((-HF<rM}DpC33~
z%to*UKvY@qA6u}1qm51==Y`73(9~g7T>~SZgkjwYjg&7{dPa*N^dp*W(VX)fURsa#
zdIC*owxC-%7nT<r5n`@i|53B$$IGS26Gexv>upEVen$_SYM;G#a+@4Yf!4tQ5D%2>
z`@ba3BdDEt7FnKUQS&n0wP0-Z+O@3FV<_be1*oZ-WowIbynz+n^6+bKI6Z2bk<)Ig
z<lmQ{6WDH>?c}nS-tY2`k)ED@-=>CYU{tC4drr=(OhJ#n-d^5!PZ**LnQM@(p{@+7
zKhq#RTo?q+NSvJRXP{V@(xlVJ7Oo%3=M|8W%6os1e>C*$eEEQ*zVmFitSm@_veDoT
z@B8A$0UUB&_Fi^E0}=tDqlyt$QO`qd9#5}Yx2_Q@N7<(Cz#7l-3h~&ipV$I%6t$wN
z$Ozr9J^xoWT3!sgC8vt40s;aw&lbCv@xST3uun#&JzdsnJfqpV!}C2X?uU0D_bKDJ
zz<v{>9>zq)!YVJf>cR|c;7i!%&-(hlWidx)k7~od<9y8n9YntPGL9`KnkDag?Dw_4
zWQYnLLElNxTxIW%{fw&_85up#`iH`&`a(0u7JlSun`GF(@!WE@VWmmo`5xEb77X8o
zMV9wnIJ9bc{vEcpmmKWv6=l323hN}M<jDf;pOx6}QLp>>xY>CGxxAu}_Y_GU5D__G
zcX=_}Wn+6}_S2u2b!jdgp*Y<(PR&9HC7@u1zJeniP2V|^BNdvv*zNHANRRy-`eUY1
ztb5kV<H*&*X<*ZwE=QVzUDoXfF^3>y1p{iD)`u0=-#_9*m51{_h|z1%d`HY#i7~*9
zh_Z3`D3bbs_7z=pI^PEMp+~}jG{m#;&6l_+!<}Q3zBvF70@U1S`3}}z9(=opJq<Qj
z07eSxcHE~33u_YNBMLfjeup?i^Tv#ypI-xd!D9f^ECTWPaq@!)TSx(j;Y+9|EpN1b
zCteocjR|Xz{ExN}YLIW2fb1B^#f?UkCTT9NNJs-$U5asVxw;)W5llR^5}g0Ob-BWx
z>pBQhieN*d7<sZ9rjg_jV{5)chn~M@38KVijv;gWpP**l&-0K6p;7^)vT7Bt#IaOp
zv|OeTzr^#n7vI_{*^K_=t4bBSPO$p!nhCWeB{sIA^8ldFyjsDuM^kNnna`PxMn?)m
z6Sv8FwS9+U<DXgo{(B-9r<v1MHZ~q1&znBPZ77eMQ@>EP6NaM7seiLgKLih8!^q1I
zVJuD{1+W{FBlnGR!`*;@E+boHPR%`wUqj8o)!y`Z)hQ#nhnKDno;Y4J$z*5SSOqK_
z(2RbLeN422rho_#h}W!flP|4N^6S5&(T{rVV|l-2C+O&^@6Pdy2(Uh=6U@%$_3rCF
zPSo4^W$-x>bebc5o*g}~I)CsldCrgfL4yHY&^vRcZ}$Zrz+ixWDxI`mZ(NHa(G6_N
zE(IVegLpFEzayaDVj-Ciez$Me6E^~dIF)b>bUTS+eh4-^Qxd-hIoHW6`?hWpG&UR!
zP5%z)A5k`&=FX>y0773Ba1ovbN3F%T&mWgZ$a<#|%sjz+VZLzh-#Q<V1iGJlw_^SX
zq0i8Pb(W!U;zTt9hUnSX|1b&s{>E(VWqa^COQ05{JO@gqiF&yKCLSQWko_Gqf*5es
z`t_5hli!!oKdV6|^*(DI!M@2su5HZm9VTEq;`bqA-`~n1w!(jth?e430&>|ET&DeT
z1US9&FG=4&|8g;yiW!LO$_5;DF1i0pG`g1yw-)x?dm$5S>O-i#vt1?;SA2;FZOsAg
zw&Hn9H5nAw7O_<?@?c{CU-GD?NE`qv1e?Z55(^Fkrb^j%%=RTgRq+~N*MJ9rm=~;)
zaY5<`RF||nE#D4zUSjmzfSFp5rmva|hsi(uhj@Sc?e}NTp5X@QqB+#Dj6d4~(Lxe-
zFgIFLE#1EM|Ar_)RAaAMFv9;8f2psp|G^*dh(34$;3_?%dC$dCG};G$XPutr$Tw|(
zZw4_lMe`H`E5NC@d@Jm)jzdkV{qy1t{>QJkHVZa_lv{P<d2J3`<ACF)RTtO3s>WIQ
z1i~>wUgQqMhL*MytBU`UB+wb1poZi#5=B4<yl0i>db+k`Dmo>tY`BJ%5#)Pj3#k}(
zk+#S>tZfs%@8l8tON^ug=msnxkfa}}Hb4&&iB0W`l|1_=wex{e5>6P2A#si-;S`>u
zftZbezA$jYa6E7$z0s>yrHcfy|MS=VvH^x@L+$7x&1<<w7ccTi@hOZBAfmQ?nz8q1
zT3`B{u|O+3p*hezSW35n4LgvZUAUikT*L(G=AVDwJ+lQU0~srUM#d<D=N{R8wX_w(
z2#|K6m^|;a@37`C6B~NWU5lw1a|e}P6N~*byB0t3SGALna?%{<SPWeYGI2<ehD*{)
z9l>m+m5Uy#P&n$P+F+#(JG=iS{v=Y^{0^!Yq-EOu5~#UJS`2?xZIu3aWdacEAq;tI
zz`U?qHV!x;2na5aH!O6+7mX6PHo1McvXWROoXwsBx8;QDko;G&j&M4#5O#;a00=sV
z&N_VD4yy;y&RW23pFDX&wm6K@Qi`YXLM(J$NQo&4Xl3m9f;~sPL9VdMgk){>ruoxu
z-j<UKG>!NO6|NOJ@JSVk)C^5~c0_0xlVudq^{clx5}iimNcB(TR)bAJ^4)RYlfUYD
zC5BpHjS{<cux?*xf&UYc<_#a8K`;@#_Oc!qt+hDHmKpoL`e-CD_&u)d^#_52f<cMc
z#Byxdp#E44UmEAw9vmmSlHki9W+&l*pb&c;j$8!;ONZoKLjj5K%A;Fv!qy!-Pvrdj
ze|mnckq7s9AL>!UP7q5)xS;WEyp8ONOm)H?XdvSTP$ElkBMdm6z`2zR=0L6gtr-?z
z*E@e*EK3n!%;bmbe2)>fMN?HK24RNGu#jtv5Z^osWUnFJRH*<X1VH<11CStO88is}
zNTYd0w)ZjJJF2G6skJl(#&xF0m!HzovK(I{Xi{jn*~sx8nZJSN7eaa9SS9uvB5*<6
z(VG1J;$223oB)V7N&yVa2%`Z_lA(ZZ%*3-DU6S_QC&=jvpPd3^|JoJ{WX4jsgu`*f
z5Dj!PuO9Jjes^3uL;6F7EYlW?hd+6VBmeR0zc>s<x&v}LB^t($-4e2Mz*(Y1BO3<L
zZ}272gokh*|Ap*5s168a0U{QXCP)?tcI?L^TUf2dA(;R9Dj70@T?DdzFEkMde;_&(
zRa6?$0d8y&@d4PvAb>?3L&GpkTT4t%-j4@>mTJq<wj9y}ipPbCQR>zy@a(Gb6Yq$}
zQUe#thb)FTmQn_gwKZa6^C`f`Gz0q(50#=I>Gm}q|9`R%o@z=tZ{w5af&#amJCg+`
zM0sM!jMz-56nt7mq^t>zNZ`X^Ra7m;A+c^u`g8FzGNl8=6_^s(XOm8B#gSujZyOG*
z;m4!Ff+6b}qc4U%NAVmr0G*R5BzX6@_lGMEizS8(u%{uHW$ghMO3nf#{*Q5RU&_X@
z>0a@jN3TCXv?Y`TBJZ|}gN+9*nwWx@xBek7Peu7bi*C*^Cz=bW`fK2T@f8+9gTT%L
z6B7=(n(QL+0rO8%z)^4Yc?<;`5zwN*)rGjiWe!4P8MwpIqJfMMpJdb@z_?Jwlc)+M
zZz62ri}RErb4INg2ggCOW{D3N>QXQ=Bo1H^ks%#W^Sa@nx|Kr57bRH?A{_-d)%NYF
z<aWZZ@*V|AY-;he>&LUEc8a<kUP@;hPdykRJ}l^GPDKs~tsh{I#bKgoWB*M7*5pc8
zSbX-}-Dn4pCARA|Af!)?=A_=zcz7`dK*QwGT54*}ap2BCdxA-~Hb@{#AdGJsEqb4w
zS&qXQXfi;h;BUVGE5&D6z&fHMjSoKm#{g*kt!J=$0I)|v1M8l*p^})kCU~%?Q6OE{
zS5QzOc@bQ9@9iXTI_$+%NFM|d_K++jp`|j|r7nfmTT#Iz_A`{Z&V{*15&>dupg7u#
z^+U|D!Q0EFI^bMBLBrNIvX(*vJikyf=3YIgz)n>e;yPYU<(@MHy1vnj;#{q}%hf@V
z=g@^m#a(2%xx-BE<WJ7yTF!><7<Gw2OAuP(DL85M2}_MM#5Q@QNbasUJGF5wv^vwc
zU8HQ#nGV>pc(hz5DF;mpTSbwsNywVSYDNa!1CwEQqlFYe@#M*R5Uh!C0#cxX|BQl=
z8YXDZG*~^scke#J0wVVVP2ttVX@MAEG`U_L|DiYkY4ZND)Sscrf491Ac>jW`adkdU
z+Ow@Cp>IEVJbwI`Okkl5ASvc|Ffuh=x<c^9w>+eogCphT<v;lAb{~3=mI@t?mefOL
zw};4#AKAG9RedlNUUMv6#0g^p$^JE`?{qTc4VWMVCq5^k9>9BO+K5L|*^%~LsQ%zL
zrq5_#1=m=Xs;X+*1um>;u->6COo|23G6*G4E*w%aargrZIR(&JxaVp%eo73~-7vl-
z^TNlYp12e!^6RGIuUZQOIx;?&IgK3}OcAwidRp$;z1+}M^FmN`v~~RdBk@zdiJRN7
zyX%dSslmOjUuE;!jUSKPJool_i?x^$9vQJ}h;|tNG5Brbx!V1pDag2r3frZ`>QOoN
z7UqU^J4*63sB}#1x*^-64F>^!!{=&9@o;oSBjhyTYYEwzXq;+#e(@atsi#M9hBqJ^
zyZ_(;xgE%pEeZEcrr7`;yEJrn{vY2;cQARYQT|zd{_w)IW7Gr0D7qE|#&Ys63knIP
zzZ}t(Bdf207aPvJ_v;#(L{|t}tHBVynPDO>Ss(@5<#qRL!$HeUy?-pODK_?9b^<kE
zq;wL)k@cS7ogZrD2wd>do+=WGl-*xeQNeHDikKDH;&tlO1Jq{r?I0is=t2TM(iPxH
zjd_)@_4-W#h@JMsp*#Nm!4#yLvE{8BW1hQSMdh7ecZQfB1P;Dp%!P<<(n)%M@q<#}
zHU>~a;?6;<RF=Jn8AH4nTSUA8{%Y03D!K754*FkoPJ%PsA@?ZMLMx-!Oj`vK(AP!6
z?y&lRVR0+QRw&3-35Em(#lrC_IIjo^lM)T$jskxpjCP?#BgwWxDQjxAhv}mYmvB;{
zlo`oKKz_k7#hO9DR;AUWR)hNQ5>HhgkQS4Bf_6o_4pR3g>)h)q4(1h3MM3~a?i#?g
zA~r1|q&o{T8Vv+u?Dr4hp?Q1FwsYzH`n`FL9ZyPtR_aWrDvV_bsut$~GoS0?S*S+g
z>j*pHA9O#>BV{9@7KYq>3b|y6CMxD1TK^XgXX?biIGmB!|2c<K9`IjsIEA@9+qR`3
zR4GWh1b&5!>gsY;xWi_;FpUxLl~EABxl@CK-w_5wZmpFiB{k56#evvYqQRO_{q$Tu
zUwmIxq)CFMcxkJh0<Z8U7#@A@IFQWS*T=6YcjsFA1DF~jlf@CKHtNPJnMyD=5Ew~#
zegm-Bzqd4i7i!69hmRK_XuUV5)7=!`e|Y+b@7;X=*b8GSI)x0-iPw^X!Ps4j5$v5z
zJ75xQ0BlkX&yUnKPzd0p!D)!|Y#$0IpzvUl8NfEQEoNY=q)Mb7NIPLCCyZAi$dFbm
zNPCDn>gKQuAQDa}o}l3z91({29F9PQ7AIXXkS#qg79-#?+<6F3{awt5LscwP8A%g^
zcxCn{zJ=SC7Lr2-&Tc0dh!FW#o;MB&WS4bhrt9g!zs8Bs0Y#P$c&;V&gVVchE+=SY
zGB#8gIXFot-TxE1N3-S`M1~Mo2S)5{*^l!>5f)#(`TiVR89*--;Qy12DDxGn#Oz{^
zJg{5DVup~?cBkD7Z*p@5Hp^!`^a`MZ2;`7bJ!#r)^z%}DRihyh7)mb_r~^=n3v6E1
z&OLw(xTVlD4<y>^@`nZ?M2drZ)B;CxGAzs!wG7F$pr-(YKwumyggS$`@_XW*q|!hU
zMN$nYA>`pIq>c=O_?SYE;YmiA-J2s70AcSj1b`S(lXDLTo(?dH#c6vW%us&_K2?Tn
z9RlD*T8apKN#@B^?wp=vreP`SBE8xF)bGp|Vm3)eH52g#nQ}%>Iy4&MxbfCNucH&r
z=u3SX{H5dpk~x{E_lT&7beKcYWr0bs7+x;_nAP>^6A8B15d)AmFtDkCL|`Cu=@?Dx
zd1tMbBRLdD;G_&tzpOp28Bz6{hU>cq6v_{*b}-*woRR@9rVsCJg318`;K;oaO44m%
z>7F^8y*JuzCl%~%>>qLj;ggqi`CzOeN!UHm#x1Smsed|uCik}B;jC!8$bly1(R=<J
zZcX22k8NdEJbUzO=a+h$U#l|YiX`G!L8}q$II5Y3ltWMRdRfe)gW0F*ve)PEcpRVB
zbXS^A73hnr7G{?AHkpB5qH#IjNRRSCcVC6sc%>)o<%~X1HMA|O9%_bsYu6=Aj*{Eg
z;DYP9KYRgP@hh9cAHQqmO;3|JHo5**K3B=9k5@(_hb$WP%BCl8+zWm^Fx_-(mCSr?
zp&jeZ7Zd*Y_bzVY7Rk@Nt;`iV|AR1UO&*@T{l61N<D+*YMjZ!J1sMif_n7&YT*c|h
zMscs5aHt!6GHOct#s8hd=;UvG=FMKAR!$P8wAOx!l1))a2SaN+$lPgydqKibgF);1
zqa&ODjVhXqRgMos;Y{W=N}^qDvd!oh<%dFYWc!lF)zqX{X9|x<>{c$inhmfCyNNI#
z6C>XFFOWK_12Dw4B=Rt5t(XqbqjbP(g#7a;9qO(X#KD%l6%=x&VUuU%6i{lAKwofm
z!+|=`%*4;J=(*6w`4>>qLSjPR94rfEpzU=p^q8^YZGn~Hdr@^I0p;R7cu>8jrUr6{
zwZAR(E+3Es*^JQo7<<%`kmpdwl;+!@3<r<~rz4@F94oH*-w^s>F-FJT(oJ2z?K16w
zR}dLQ2J?Q>FwA@SuraYaMGe22JJaXPUI@g9c`!be;3H1Rr1eiKu35aQA6~%)DizrT
zA&3_I3#8TuBngZ!pHJziQ$G5`PfxD=bX{(fy4uEvd*k<CyRH7a{5zJL`WDms8#b>w
zAaHvX=LW;-ix+;Bqx?g6#q;NWx|=qf*WPgNA7{3{W;;_7;h3A3JIZs=CTP&ws3A~u
z$|GXWdbtL@j%?M21QXApdI>HW)fkPEnU2Xqz}kl;&`&sYYMVh+Wo4xnZ(#m(Lz=DQ
zK9PGNEAwT)y;$#~Qt>%*VJgy+$~FJ%$HvA+kMYpXle9L#Jp$1LuB|^wrBaE-IT@;m
zw@%P1O+ylfiS{ygI+m|`-0Pmm^kljp%SK7lxmIPNt?#f){{$SpG=>(1$xT1BA&*JW
z;=NJ$fTJQtFCsv6{UwzC(~nz+q}*HrwRLS&Xz&?++_;4KilpG1jf{*O%f<rCd@%qY
zMIpz$sHmua|GDor=ceirIEs5*t24p83+=u|Fyr)`)%MSY_&Qv<bGUr*qNxfypYRE&
z%snxY==tM?g+A~3KK&(Sc6BCRj1gmxT}P-Up%kQ8t{+#MJjgC&rA#5hg&^wo`Fqcv
z^P0$r><MRjn4|nE`Z_teN8yg-V0`|dc3PqnteNnSGWC`2@2!8tXzU~E?K={^4`%!2
zWff`VA)<V!lQ^9t(3L5T<j_<xMkA$+{j}&vS*nudg;#y@Jb#tmocOxXvm-QxPbXUB
z&?yEhP-;Rs=iFp&>N3tVkAxmD4?CK)GwK=|L`7CWFXGzHn4AoVJMUY0(8*-IfluCM
z=>VyShq??W*mOr{WC$w=9XN2nkxik%no$$T7|B#JVz9G4-G^)4%_kV-Tp`Nn2Fv*#
zA`g4`Tj_+47B5?0ju9h)uhvPOe7^d?s+OS6h@i1^P9{~wCiAV+!QLz_%dLAp#Ow>?
z3pAYT^W`!+Ua?L3qC7iO=X@n?x$>lRM~r#$<>0fH-a0Fsr3-4bt-~5G`lYfxx;ywY
zKGeV4^9`TzJp<bu0B-wBFc)JSQbdY^bJH1L={||75@eS{bT{0`NA>qIRc#$P*y`2W
zf9Pni$*2%(#xlzQ3w`J9AYO1fsV_L4&A?avC*nD9xkfudi}vEh`A3C)v8fLyCZe^*
zsV|m^6yV3ff+i7=qFVJ|U5Qw}&94DWQn60TSlmkC&vrZ(j$656Mpkc*$!w249?Y(G
z$Z7Q@zCcB<&)0amH6y3Bpk$12+HTN;x#0HO-K~3;dmkQuSQVX8@%tO{yxF*-1T3xW
z?CkDHkG*e$?tv?eOg9B}B^ya`?c(Zu09EkQ?YkBMagp%cu(n>Fg)cn5FWYqs#{zRc
z`f%0OYItfdEn*b(h1<U`{TM8LobBeR2s)IK-+Z}g3zG};ChH`+?`CFY>4ba1nvpw~
ze<|&4x`d4+`254w$E|RUuY4*$nwnlA*1D#B9^<x5mNp+-h)%__4j7j?_fNq5Rmw3>
zi&s0`i*+lJ^v%$haFa)t4bmS7yy$D|;_Pf&n@=WnT@+os(u$;Bb|yw1_}T`S^%SLA
zJkS*V%3`f;kHC0RtYq>U3w?YKXv9A}Zsl?)z0u(REnLh-|KES;kDlhot+McQ6hAcQ
zJ^RiZ-|-#(_kY@m4&?_21_u>sWKy}_^9vtKIkY9@UO~QqYm?ZcAav&Cb#5$~fB()S
z0|O;Mi$W+5Wxc(ek;{AZNp&iCdoNUr0B>+O{Q1iI<co?v&>1@h2$n8#PftaYT#G{~
zY3}VqJ}L#D!M61nG2IxP>`Z8`>@kmP?c4$h8{Dql_gIU}OOxW-b?eL^L90ZGn_GDf
ziKU^Wq-5haMsxE+Bj@H_cJ8gMV_>bN0~KQi?Xis3N%lYDzEI4*m7BY5c>1`;D~sv8
zqM1BLN5^h7)Ns|<qbv!!bLWmU;3Uz+Waq5zmea?`Rw=>2$Gc?aIwU@=zTv%1=lm<M
zlI~9C_sOspCH+l`#CrXqjJtEC%w(I>cCIa3PT+bu7pAAD$7C1AWpglQ)E<wrFFxvy
zVveD)d51>AeL>Fwr75U^LV;PhWejmCtc|kNw%JKf?BuTrGUT#8f!#)FcI^uvZ)bXm
z<LSRYwqE8w=28ZewJHQleAoi+C#QuF&{DS`^3<(wl=j%GAaTUlwe1ogE-&*5A4TJr
zGjE_G{#~(hWrjt~6OSQ-PDR=*21d9*V0<-kyx?n$V1<g*$bIjrVDGIp>iIhp*ndqp
zRy>2PBMb1$9EX+v;~Csv<jr~KQJQ1v9~;A&A`ZARft5&B9E~D7UE?og*O4EFIWPMH
z6<?`jPs@E&iqUv`XIp639Vr12xbFfe5PBy|n&7;GMfyW>TcPV8`O~Vsjq`XJbQ+<G
zF*I}8ndY@A%i>e9%F($K3AjcU_*(+&3HczgQb>s-C=y6&#i{d*f>9?08b)ZWalbyA
zXgSX^S#Zi|RKLaP1sbsrA*~#kIclc|(oEN?vaRM}WWHGJ;MX2|2^0^L4)yBtrg<Y-
zN&s6T7H0eU?rW-)0KGJDiuhRhBJWvQE(|H^YHIFb#3sLj5T<5{R!Ysj;+el-(K0_j
zKRawLTP8bKCu@ora1!r<J_#DRR)8c7w*_P5?JnfDUHJI2JX}f~gTOV&D<UEy^2Y+x
z%2mC_0-SoA@3)**YS0;4jt&7)?{BYoXvxw8-=+(95hZgx9q8MBloBq+UvBC~=jG+u
z4#7;)a2?>=HmDz6A#2XScVyTYQIoWIr{2pSreSNE`^}Jv@+2RS7%vxgfc&KgM+&!F
zvY|j9bbl2{)H2^nllLXVIz4d4z6bgj4rs~N?_E;(H5bib`t)p%y{q5&sx+_Pa@OOE
zO%3W6<-Qf-!7e0tMh=FbIA9>6DP}HdFYHdLjGDQ|GyChFunR9ahn_>{>43ti4<qW!
zF_k4(#hXi$%R0fz>qjOgt|HF>bdbpUM4o8l(B`6Va<ucHn?eh2C#B}{DvaIK%|Gj>
zxi@*_!MQsMwAr!XqPAft8<n*tbA!6LzP|I3o)aZ$UaX}3CWX@QmOyYigZcBbh=V=k
z`XF%f>78n>@(M!B&OQw0R-OOsD;u4bCWsdgjEq$9;O`!|*&Y4MSYoDnf?i*4X(nj-
zyzGU^<+^Z(=Nbv!qG_%b)%N63dSEeC0m_fSGk+XGY!%_Q+Ko6>fs8D>qoreR)TQtG
zFDma*`rd=Wl6<MosY(|bB`(}qf7AX`2Si3<>sJ^g;wWKyP3HO9O5NUuE8k)R$6_k&
zJV89VU4!`zf*_th6p4Xj0q4V`WEfeXJa;LeSt>}`n9<w#6cd8NJjP0z;W+7lkk=g}
z=xLdoo2$VaC<JvsH++?+u&pOaV1R2)Nwo(k19w_CSLe6m6KL7W%+8L};*CK*LKbEv
z=9Qm(aNtaoRa=;8%Blp$<_BojC~>U|?YM6)Go)uprE(1pIHkE8dChk5>`@@Mm(@5C
zl%2l|50H_8)Fc}3mXyTDM2H`6%q|pFXp|VdbdGwBU%MibPLBB8+AfGfBC*e-8<TLs
zY+HyIZx{sw!%A1gdE#V{a4c*<f=lk_Hs&RH>=t`)Fn#ZL`WrH5(Q-tk-CLd?s{aat
z#9-W6kKuDXToXGc>@L0HqEUdCu&O<i1ZWd^opZJs)RcGWVvS11V_@>!1lk+OY#42(
z$z0gm>XTMp>pI9*lHcZ}g;<wKq7)hDts>ELKmX%eyZ0H9bHkbR6z@QTX^yR}t*zos
zuPja#_@t($;*1c9zEhZ$bzfXs?=jANvy-Y-l9RzwQgw{WZi5LiF}sYk-E98YCgYbF
zWmq}(HaRC1Po-9W#7?qkSH;AWk^cS@@^s^1Q7;oCs*R0}CAFGr%G$ZLrKN>)B4lKc
z`c~Jvw!J;PvawNgl*+$eBtB$%aBwhjde-u7lqqgW;zaJQ+q<YK1qB6GX?~nhjdd5g
zf>L{w5>Fa=$jHc8>J9a^T%(5jX6PY<jJ<eH!^*bd&2zDdu;<iB6EVH5xv5^9r60k}
z9#j}3=fN+$+<I%1?nH#6U8ed?cVpJz6YHeZfcq5OA!|&Qe4P(zY!z%$!?EZOuiWOS
z20Qco66PDaVPgx~NZnUg3%svF5>8m8fuSLTs5oTiX)g19NFH&^o&NZOxn0M#c&sh0
z4nqQIS}G|O0}{*(gb$bKLXg+kARc;VDvLdNgO2PT6?u92SM#<#jg4kyH=*sIp)7J5
zWunH(MU!TgIcLgaClSlyRs`ZKUhlg3pdhWH3EPWwIz7gTZ-9;mFk(<lb$&kAZDD~7
z@I3-!MutQ9<!lYx*-KH|TUuL_4ts}ud6|!!ukCL0_JI5Ixue29&97K3x6e4I+b?7~
z7w0|s$t11h^UR)`3EA1=C2#$<6+*1r=RKFU5O}_4c^2$fKXSXYU7V^~n5~jVqBfPb
zFrCIKR87%;2Ze!nUWanZM=W;LbfM3N9B%8(S*v|)0Q<NCbh8Kf(My)-{7lh;R7t7e
zX>xA&qV>0Ooz(DCby0@BUXm2%=#C|*dRj%fCz?HPi{1K;>u&vTA8efQ)b*a7m5VBS
zFV<=ufCWk66ExEu2`#Kq(|@+3BFlZ4$*dBtlFq1{i-}PRO=X}!rZZ~N2SZ2gbHV@z
zi^u+HpEJ>y*!;tO{mi`y={E1ytPwFP0-B}d-8e$eNJ|^&=ti=V{`~i}=B%u&+dQ)K
zX->C4EGs`DVpYHr^PZn|Oy-zQ*<ziQrlt!K_r-{PDKn3$$9U>*60ce9PIKLDH|kHK
zjY6HyFq1xNb^7!ptF#KYD+4%f&B8CcTnyO$A`iKTw5Hy|pWZldxniugB;ZoMPE6R=
zoA)#nUBbqwu+19@ik$7<(~KKukHLREzOu6)-2^k~R@<PwZXb3Nr~7EjKQVT0Hl6bI
z{^qN!Pg<KDV58LoyXPt>)Crl}7uq>%c6c(Us%N#yx1*pF3r|8GTOS-qK{af0n3bSP
zf);APQlyt8g~gVRMI<XKDzYq6yLK;r%DmHRPa;W8x9|&Ida;_+WWC5bDgiQzxz1zL
zoX7YRS5iQ^6bu=;f^PAh(|!qBJdo0ix>{aqJhuMxlg$Nt73@*kS=$%qDeCI#PIP)N
z45JZ60x6~gvf7?yJl~Fx8iwp9i}&fUJe#JJ;Mg``)o=8ZKJru6c_i^Bv!6CI-0qR!
z$u)x3(n<h9A;1O}N{~3w^~w$*7fVO0Nndu+oDFF3K$rZkZQ60}$TtHh*t*rdL3t&j
z$+`V4&<o#J_4xD)xx2^nQ%TvQptD`hAk8#oTCNEv=2)`13^jZzXuqE8;qi|uDPP_Q
zdR=@?Uu%Ah{vs&3*(+f+zJzrT;%hKPf#eMp#>bJ#F^c9{loFVjiwqBJ*GY-m&d$6b
ziZygNa;B{h$&CIK@<xL$EgdZ691soTIaQtls0GHW=MZzv#|xOAf@E04iWNG>)lL^K
z93Vnbl|vt|Q%W|-b3aq3+f=6OZ0ngtxgR&!>CoUjgF-%}bABTGSl?z)B5}e<LrDtL
z6yGBD&d2H+fAgO|bRfwJ)D`6Eo!zr+*|K8`<o+FhMXEPS4g^T@nPGt04+*-}+)6+F
z;;P4FUT2DA1$dl$6xZf5W3eYrHdbrNM61KIAJ>}$MsfuL69(2Y1`9=t*Ax&E><c`}
z#!kI>_^T|sR9rDRGXhO662M82|5{=_V}`6f7Nj}WU6uUdv3q`rREHq?;8A;W#OoSw
z$xY$kwr$(g$MxP1C=XGek(#nRQdV{)DwXOS7fi5ufN=`rQ!R`_v0B-_r(#-M)+NU`
zex8_|TtAl-o0lhr&r)`OL&e3NE)zz2I*c4T2fC$n%y-|wPi@$c$us+5B_l_z7di@i
zk~7HRn$5z8TqvUV6=T9+bC&~Nb*#qUO9VF7Ci(^j!e|=e2DCKQ^zLvF$$Qh>8j^g1
z956_^FNB&}vVci+QsiVNuf?!uZUja$Bhel?aCBUpd6ZR4nCS>WuAHgf&~ftBf7yNV
zM2?|~x3@QMV5yoasX52#X`cMxD(v+2^+{TtKV-x#C8^PDo$Q<@|9qIXO}tnWO|*6S
zTaqH$BhTzXDp*4D(EI^qJN>>dXrI^%`AE%*;Bi`T{`sc6XfEtr2&GJwn;*{56K#Cr
zg9>*i>Wy;X`{K{T5N&2bZhOw73(+fJkj%EEW+jtV0B*M7sed+|-a`ro3@bmy`odbC
z3gys(8-vu~IM~)UtT5p1TP*TJDj~{;5&!EjEIucRRT;<?GwW2!5Q=;S+*VZoV^LlA
zXaHfQ7a2JEzZ}L8l45(yijZHU6WqUB$z)nXU;j1Vk*=m?<oc8c`0ZSkz#@dK_xP|(
z)X4UK!3wFl)|ZugxQV~x5lt(sEL5Os<2^x&F|#m1Po1)77xUe@Wcj#Camg}LO-)ov
z?iJ?F<X0-ZnVFek%v=&Bv4pxLfIFg@q*pvc639RN)4m(QG#yeQM&<BLQQIkbbrQdu
ztWDBXZ2Bh~mgi$F*rX7|2aD~OhT+9;QydiYHMzuc?!BI$z`3s5PXF9m-1|>rIC&&v
zkTW2tVA75tNB0)V%#f1_T5#Y{jVfb1y>Zc?^3hLpC^&L|WIKMPK!&{Uk>3|VBsRAH
zxQZpI;^nLM_vmh?()T8;X>{TUd@;W!wcpUyz2?dJ(~nYzl;m}5o3%Tgp7!irPbmwk
z_Y}Q0!dG;TbANEao7F>wh1S9X`=*RZ^s?CgLx-frR7=sW1>v~Vp;Pn0-p7WLhgxW*
z)Xtz%^#!#)`qMYx>aJNnbX9EE%{WbOjoOg6F2eI-Z9&D}WYT4H+VRl+MK0;lqwmf=
z%XckdKYRBs5qbZ`Mf|+v#kukR61)4~Z^6d)e{wHu`~)890O|k_*3stNYBL3hBp8KT
zY)T40k_!V8N4Wta55P{tamk%Uv`&PbNsc^26m&yv-so@YNzEHAUB21yF62{X&1ZbK
zajGq@_9G*r%EeM>bIhMCU{<U){(KdqclME}4m28qy2Y~_r(YS8?XeU)Prew9gqog3
zRs8K!bz#>gf$F&5IXvBeGD2Dc@tqt7R4Sm8VH!!9Ayp|MsR9XuegYh1*+1GHvipNk
zB(mON1QG=rsB^LBiwfV%Els>Xbda)hrwc&Hz7@KQ{mp7z$`0!~tN`jnT>A7^7-nsd
z@AitT<L>C_=-SHc!YGfjo-rNwb)6{*OsfL1a|^)16B>1YnFv`^$84;phD^G)-S%7?
zr(Td+(7_*b$4q_1wJo_|cSU<^OIGZ`H;uK_be1*a{7{Rmjm^1LY$5V>%kxP;AVHVF
zSgcvMZnpx;tGKX>Z?}@1N8D;Fpwm+;R;)-o?2JKCy-O9`t(F!I&(TkVqob7%aJ=-*
z#~2yu)sU(wDr#q|)_{|os%pr{k39VR{98?87+0oR&D56-CS)T}3dBS_qju;C^gVog
zUsD$Zlaf2V@5|N3HDb-{5^?m|XuFLJjhxKMW?$Z*Zf<V=R%d{|!O79tS?qj!mxe8h
z02_krm{W&1Cs{$E!*8ZHlL(fTHYROrl(b-0U00_`X8`hBp`~dO9v-gkKH}B;h5Ti)
zO4z15N<AXV$_BU+XPQ!-QIIC#-j21FF?XF+RFyh?`zJO7TI}je0fF+(skTrn698}m
zbW1F^+Onrke1bVrJvYQfb8m<6(*0CtGUlJvnBq}ee+d!z(2f>Gdl1Qc^tOHlJ1kCy
zgp$;apnFrLx`pX4cK$&McBiACw6mJcLeKb*8ex%H8-Fo)iXu4CQ@l&ODNxZgiRtvb
z&%0*rnl;gx&PB>CRDg@w3~QsAIJ04=ra4V!l=9}!v7YblXL)x?x`>a@Cpe|_4Ie==
zZXghx9l{uH%=8x0u^yePYmxtK+dr<RzBb!i-$<!U=i*i_wpFnM0Q~8wccF=>gyqr~
zkFQZY1o8+bUsM9_Kn$r)DB2DUp99ZdiH65UDQ~4;){VNkyJzGpcE%JIinQt_PS4C_
zJkd`p3lcR-1NzbsS#@i(cn`-GOv-)mHH|gBKR7g<0UCm$oi*}c_pr;<SkHi9N-Nde
z#H6mEgvDZMx69H&9hl8{mR^{N!z)D|g-ja&@sVs?wN_`1Sm&i3dO2%1XC}`KTEG4E
z0)AgR@|~yhxABR>!otJ?0h7Xf_J(@h9K(*p2~}ucPVM<%)YjSg$ZC-K<<lFzr&sRP
z;=zh5Hn0`HrDj!4X#+IQ?-fl`ptYgDa_v%s#3Qk+o0r8cE29>r)t6IRbvAs~;SGE|
zK6V(;BK5)&G*7SD$j+Rd8h3zrsZZ5=x{k9?WC-OMxTY|Yd%I%XA84b%W9uZMuLLf}
zjCvJKL+@DNa>$a)urS1iMNrc}#8^!LYr;2|Itc1j;qDAJwp_gMi(eb25awWAjsxj3
z#nnC(vD6?K?MV#bB(QQ_W8=n=#rLLI(k_cDM2v^^brakgsBmllk`>NzInA(Zi>^th
zsg(cg&#z3^81!8%X#xKGQ2swVl>biD{<j>bh12Lr4T=rq!?qSrw2sGxscZ5E)@sBs
z6%*<&V-q&nwAH3JSTi!S#EjAubZi+`Rb4CUHSBOG?9(2g*I!R-4hjlNOlw9|dp@Tr
zJP{IYl?J!rsdh&|MEZ=u6uN}?&{O<8Q?$U$w>7omTgW!sJh7qiTsmEppDJT+uyQ4r
zma?af^2{E#kXx5sesOYgG7YuK(qoF;(l-!3pvbx%M9TW|>pu;(6=h}!^Kq)F%Fwg3
z%|m$$Qu{|MYgYj6{rixLd$)8*p$j9fUf8)ps;o!4?t%RvX%4VVn~?U36}_gMb&Yfw
zwIqIR$xhzc)3bJO{2hYijYh8EZ6B~p-)w`gz8eSN@M-U5i3vsIy&O{19%r|m7i=ur
zBIRt|VAFd0v7(EMOM|hLq$H=BvZs@yqt=L1x#l_Y7ewlo*rIF%woX{uHLkrhGtG%h
zBpT(xETi_*0Y0s48$)raDW{(8Pzp|!?d94ZET0fkQ`g!WT6kkMBggycPb*#K=H~QH
z#V|_8b}QXXx4*1UM<mAE&w=LOyY&=Rt>bzcgQAz~XsM{3W#gU`W+r8u41BDIw;*eR
z71R9b338MDX^m7nyE>L++q~s5<_kHD{e9w?>=fN~^F?o)EEyKQy0vlbq0oaOdf>_%
z`Yw8Vk9(@uFc`XYMn^~QY8jHN(7p9RFiNsBKkfEdx5v9#mY%$@a||>zW9AT>$W>ej
zC_mc^Y8@Jug*+bX*R6{+jA7P(I9+!`j&OWp0-|RQh#97B-C|Mti{m5|0n|wY0ddnb
zRR2R*Few_AxqaxMOr4gtZS=g@z_89~a|BQ^6L;lGuXG~4s7N-3j!bL!+DpFf6*^f@
z7}kpbp}y@)L5=LUI3d~XguN8*CAaxhv~aOiq-=FqtO72le0K}_@38UzaoG63xVo~U
zI<nKVfJ+%(e8WMUk%R!j4x{9d`1I#adjQI@fWB*b2yy@^kmmAy7;jV}Sr9sO=#XP4
zNaz62wtL9P;7W}6B`NXKrL3jJGDK5kzj6K{BEtY5JpNX^@L;f!vmOyQkTL=$YDPll
zm0^V6_Y?Sqe83|!6ek7nY=Mi-IEXlDLidmy1|&Ax91aqcuePNngiv!2(We-tv?%+D
z|10(%M884UGD=Bk$Jbb=?M##bNq8Nl1U)W?66s49poG*0S=oDN%4if&Gnx&SgsrEP
z0O^#pa$0(kCSC-gza#BDhUEcU16oHI8%hZQaQ^iogQ(T<H_!mKYl`}(K?S;3XcSLR
zPt-=QR=iLkU>))-UC-ePJ1++!9AY(Q<kLkP`UFx@dO6<a%C4M)dq-_2sZUT!g4G#e
z4wl~h9{UFpYN<JKd&;=fR145NCHB2OF;_TOnvevzF;k~G>)L94P0RFcT7Y}sY7IHL
zy7Ly0$PWghPA`U`7{hn%7MGgZHozX|4FiqyR)*N9=GP*~)#WrcMQ2M_BPUG)$vc>3
zV`+J_Yh7b?LxVP*F)=Yg>JrqFC{hLotx%UVw6q{rM--ZI%j_bxky1itZ@8zY-@e#N
zm_jAm8n89hipmwYb`}Ypg}o%Vb4bIocGM2675ONAjZmg}$4kzBeg$&-*}R)`D<A*4
zT!xf#jpOj49IMW20WJy?GN-?;PK?SbYEGFJi^x2;A~cy%`)wp?LVtU<&5Dp@24$e1
zGoZF*4xzZ<CwH4p=c6r&)~$u3?HZOm2BvpDSq+8UZ{#glce{CC&x-;sHTAj7JIy(R
z&ipParAJg9So&72se|*DFCUC@ANZoTHa@;ES5m6BBfYmNTEo_+)cBo?i*9??jIHdx
zfDr51ugNx92`xkQHrZuYcdvf$-0tkrU>sRc@jTXjyXxpx1J8x}_BzLc-F&ZR=*v0|
z^2fvuJGGvfP)*|E=H`yEVmsXxh;limM(%b!K-!1Gm4|i`!1M4-bCpiG8R`Jn*4B<7
z$`Y%yBA?{ZzH2YR6sVlYPId~S9KU=N>JjTw6K*y&YvqeSGC`JyQWnwwaI>kgK-q^@
zRH}j9^H2&QU!VH3zJ5IqXQfbeQyV82m-XA8<%7R{9Q7cSRI9mpy4!0qJf_CJPKY(z
zrRru(tIiV&2Dt4CT`dy=nWo!6%7=1bg|4Ovo-kL-<o;7ne^vh6-tttZQ<mR2|5B4+
zdB}^w8RGo7*64G_Rs;pp;if=&Z#(6gIQtxFN8Wfd`t-b|(v~h{FRE45HLewf-e49v
zCFPn?`sssJf(*Lx!_7hP!ln@AD`ef7tHWhUZH%?uHxs8FDZ_qRsTL&-b_-Ngu$J+a
zDH<g#H{~H(&{hOz7h0l&I$v(hUETG*r9ER$`_|a5NLpB91#xGBJAcZ=c(!6pZGAzi
zEw$fi1ZV2X{G`do;k4$4N!5yZ=`8OSNfGz7x2hGEtf+mVbE0|lky{L}iXYe-MBmsc
zz4c!hk|@HAO9Q76f<%{;)-8!gMXn*ZKwA>43MohqI_4R!xRpIiNctjx|L?&?VGJPY
zVIUyr;qfGOc43j>!*5U}EJ{hPT)9Hv?q-yFT!#Bd#5-am@<sxM{hqu9V95axM#vDh
z2$q?Rmpq`S24$?tsr4UNQ7DD1B!T?TFG;+fYDn`61n;#Q#FIM_qY;IawqW6+)JaWC
znFE?4aytpNiq2V&D5b>+7oQX>v2yY1iW`sr4dMQ$IraZP4#&mJ-qFP+E-5Lg#<ZIh
zuo!g{Ns$<c4oHWvM>Ok^WG+|$QVm0)2@NLq#n&6wrp9}L|B&s8;+eCcbrY#0?mYvm
za0o6Esx;{#y{ghZvQs5w<(r2)>1@XaTqMRq5vH*_WILgwwTGr<m%`z%kJp=mUa`9%
z#~Qz7GP?sqpDk(KJo6uU#ukATj)p4erbIHm-3F9QLR<>R!^y`3rt+CkMc+>)XuS^d
z$({2fokD0dp_D*!6&w`QJ2$@|)j6eNTfl0hl<bQOqd`^{^K5xT4N)mAjC;?k(z*fu
zQH>|kgGHY|na%+RH-69G1EaRcA!+AYX25BvJ_mwx-AE)+{rGzhpTlPt9{%!|>UrQr
z1P8=tG5YOk(Fv3H*fs_u#|7H5c($8%gZOdq0_j9iK;J+FIRS9tt2Ya953+g$y<IgY
zTRJ;s>xV!|hU79R#|q{vI%k#ZCZ~bZ97H;xl5Q_sTRsOAGU`}sR(5uFg1aYRIUhIA
zh9u(#Y{*m3&c-tcU9a3u9b?SZfx`|hWIz}qPON2V(J3i5x3=`vm+kbI7Rt1lnVt@D
zYdt*oweDEKcBguE{F0p=Q!S0~K$?@e)2A-NNeBOt2D;4qJ)yUtd=>FbV>|G3q1R&5
z?f(mOoTNS05ui2>*x2xicS0T9^a14|>^oecSqq^w<J)l=DtjtJwSw;sig#^l?7R+3
z5*+RdT@7!d2O595x$uBO$n+|ff_?SxD`Nl@Dx^cIBJw<Bx&?A5f_h>1;m$$+Qir!s
ziit6eXQ0Vn46ksnpc)4tH{w-*riK$AH8;{ZZv$(y$n!l8xew7#VSKEr3%pX)i-vjz
zxcdY3Lr@vcl9dY7@K}M^jQM5C!^56#K$)t)&g^E}lAr<PP9&GiRD*ae{QJy|{~Yy>
z&pN)j*hHH*kVJb>P~I@$nP~GEuh7e~)?0Vz!)2gIkz1S#QFjp{tR>!w+kN<%>pQ6q
z^(2~jYwtwv^emD6EGnc4N{wD8qSYb9pE^OMrE%hIzab!|lHxX3qUuG1a09+?2ddmV
z#_fS__g!ALuIW=MZ$8q`HmGiLU~1<8rKK5;vSxyRLX*_PoF8STgUYqLFb_w=9ocR6
zO1)K)kw8CX<hd{Yu@27RsP^w@Z00hj6x{jhda&hq?a+zHU!rU%te~=<Hay52!i7N-
zA%M<5Wdj2PymdCW{rlettcaxK;LY}Ala%ZVU}@u{E=5v-io05^Gn5Nw+L?_BW6I(*
zV>Cv;C28uA(L7lS(jfd(oSH*ZbXuLUyQaWs-bacjgI3EjY!V?fyprHUaQ?xzH*cHU
zjBg$C;v8`1ul<&wQ?TjGtk$i`J3IU$kJsAOyj5j8ps$E*p|*d=sR1mPsyOs>I*oc0
zExM}bpysPeMrUWFID|u7^gHBySR&d_35T{))6+Z2R)^Z9@@d^7g#ZHsnOY(0SxUhK
z<Y^`gEE8eKHxvDNJU+izWLblP_`6QeB5&;hbui-==USp<Oan(iAN2Jjj|V^?G7rPP
zXXFNxh$tx~Mb%-RxSh$kCoOoq^@Q8DflkXzzswG-aB<{!?N7%ips0dWdTi5%+YN55
zfb7ZqY={foX%uoJ1t3Zdsh8B)Il?09J0b>SRT7ycVUTwwX6RTwv-w+n{p6Mar}I`_
z!;5kdEV(BapK#-E`DPj2N<YyRcW**J^Gn@{PN|zBUW&&X?e39#7sCA_Z#f~riGCNm
z(3B{3k*Gh&sFb8$8wak^2bZ7i6JOBk*(1YrRfPnfEN%Uu{ARIi2IZkBRR>C;0FW8v
zTa$ecOf!hwAi_YSbzsf|ithK&cf1^a-gU=m^!zI<Fx{f*hVlp*DfsJ^TE>M35g{;6
zePW>?j4PXkezA12aI%2^Q~VPOSQ$dO8v}1QgG{FkdTJQ*(tsEf&{qPIK{6S;r&dX@
zqP1fpOSIPrx)&AnJc0V?^|SLhhl)m=Xz5_N`bQ<wM6k?zp!rrIuUX-g9eeL<$nD|p
zD}O;H$|jnn0vd_5WsG0loc}Anq@ugKJ6J5Veb<D6+#y7~5Roz<*jat6IY;jhgL&~e
zqI=KB41y~3eM+p_W}UCkn#M&4l4vLYY^*}_mKPf8#|%BbydgBxN=S?Hzr7JuK?#Cm
zj+|+R=m3ps({|c9K)1jXvt^KF-a^GP-|5QS+wyJSR=pxQPFeQi_{67grm+MKNCfK%
zfE4G?pm7M-i-h1rvZ(WD*{HKJv~~z|c5f+Ia6Y16Y<Opm4#~w|!Bb7W7)XEite`Sd
zcImgst1tttThd?9C^vHqdVs9OcSBej(z3B34u*m7chWVUX<_K#3pZXG#t4YilaYrD
zgz(UudJO<R^<V^przr%Yfn?x)X6d$jESA1<iZRpgX+lAxRmbry3J{kR1QI#$;=7Uj
zq9NgBOY?o>&2acZ=5dafkQRJITeA2@+4(*EQCb7<ZQ>cE(Pi;F5kc+>EnRo6K|+3W
zyDhjvNX@BsX5@CasKNCwb%SE{)S7pyNd_iq6=Gg3)$Z~cevx9Vg7o)Yd)VS*_`6&b
z>Xkv=FX~8c92&GZhLQsrb`Yf*nwvzGjKMwk(QdJoo;&yvE-xo(5GIKN)i><>f~7u7
z&Kg>Gr4*C9p+$^==2)CM&W8DyzEsbF?CJlr$g1zy@aX7vxA_kAH$<roykE<p3Uex?
z$<0XlMR)u=eb|_vrQdqrxCqkjn1TWsh;om<@;}+ZE$6=dPQA}`0aE6GWND^#lz%sO
zLPdL)9Jg#r8pDk1??0IZQCr`s%DJcgc$xpk<?NC<xUiN((w7d}!5k^DpMd#mvT33J
zqm&@Q(sByXzQ*dqUXIeyl_5u$!kD=CxcDm-qDrBZ5TJlp)UST9&&OcS@WS8a{&@?v
zqAYD5X**<Dk~*iPh#>EHEwyG|WoJS*AUU#i11M6=d<W&BL|?xV7PLlAP>E#`CQ4aX
zmtk>V$6@iBrl(UNe}?-yq~QQbj?+`!n%Zm(UVo{ZcC*R)*Pk6yAs1)0GA9+;nluir
zv<t{XBN>fihiJ0eRZClxC{P^0b}i~Q2;)VB^dyks(#O!ed<f*RE@^5QMsn{b;PeL(
zw^Ily>>F-|o>m3g%I%j<Ygut7Xm6HkMhp@n9d0w|SskF1U;>P9!H23uKKC?9A#){h
z!?X$uO2MWPW~KxSOcLolkXV=<CoqeTc>Ztg?d`1n8N0<|fsuB2;6_xjujGay1xL+W
zTL#InrtnO{(1<I7M%*f#^r57oi5%mrSljaoy$HRAXhtbP9`yiH8$r?s1#^{DqP1Nv
zc<FZ(Plt!q9~p#Hw7=VUaW?a@aj4~NW}$JY>1^gf=C%qEFWy1-U2N9-e#}>f*{Lbf
z711cZ-1aA~B_)Kz$EJ^HNl6bun0@I!s&r#rT>vR+@Rh!9axm?#pbw?y?N%Ux93n*X
zm)C!yN*AI`Bgu@y{PgdpN{tMLxFg4OfQqE0-#c{X-S1B0Ihv@)Vo!xo8{+e(^+E<$
zS*#Z8r8N<%!6ZByT975kemIc<f$u(ZFwoVix3bT3wGI(-3<-DdF`nsai$EQR&~&3d
zgk?u}LeB!40^y%KjO1vldynixFu%Et`m4DHT^efq3AIL~RwND|^Jn2bU_w+uQhoTY
zilG@L?|4ja1wCix!HzqTcqC?9Wf3@b_><iq)!!BOq)7LN;-K?o+g}`9%!X*)NTaq$
zhCJ4jMh33!|HmmrG298wKgZwMyvIsdJOdO+xJQM!6P<YYmp};)(6hy9Bv2F(3OV%#
zR{-?xB^r9<LBa^a<aDM=cOdyVKPMY$G`Fl|P`0A2);gYHCPXv7HQ~|{<_0vKv#J3{
zt0{Vek5x_bH@uyYM8aVRy&%yZW+3yrW4{=son2h|5Z}EQrLHiCF4xvI3WP6a5AL8E
z(PE>t>O)!eX|Hb4fLLs&w(O)AstD4Pvlx<b4l#Q$@}U&4VGz3byj5t6B`^Rs;Y60*
z&3nV=ZX!_LH@<b)tL4GspZ6#4m~D~eU={q#mL+oMgUwmehY^sRe?n1svBNLTbA(Eg
zG!p!W0Y#8A4ZF{tG!w|qcgc<cK;%Vxs~58J&VGCO^GJ@+w=xwh4GPp1Lj9t*=Wtg`
zR-)6$qleF=`AL<#UV@fA=DGHf=t25?Nbk<j$-2fYd)-XlQ}F-=*SB|Q_zU1GhQ1-$
zO{b;9;D3<xQ*G!lw<YyGX&x+^?GYRgO!F|kC3({-&~JoL2SmpxY+8DsKt)l8Jqvcs
z%4;E#lZRm^`E$_o%O5nv+ivc7a<*Ol`rsqo<@Cmh+Fb2$E4oTro4Wq9#zrIgA)yW>
zRxYzEUb|+npySC=IrY_}Zblc5ZBYMR<k#OMm^>#dxhOyBDXjC76@K`WM3rmMI5#c8
zBw}1T>x@d#V5ry8$7;VyOLN2b_%*WKyCESr(Q_SVbicfQ!m3Ki@Ax&CV4np)^+{~~
z`t@Ij80*taiZ;n#P1UC-Y7E+~qjsK)cAPt}Vi4oC_@~?4`B8J<`n1UCX+4EM{^-6P
zHl!J0y_=73wLg!n4`#!?KD#v*o-HpiGk~29y&OkjuJN(Acg4e#D{dUU0^=_n;)O@l
z)i=Pip826gU-hxt2LzxO5Xo)$=RehA!>No^4qe~IjywI<KmJ~fCw!Miy9&#w)5Q9t
zPpJORJRE+-9_XGq^V{WGLE*|v&+M!Wl767J@Y1`^-<pQN{t4um-*8Ie{VuOuzx~%;
zyWXgXW`#-Ev=@3xjg60k&|4EXDtpY@b-S2V{fRYf)V}3TV!fH!fPg-YLmE_Ii77#B
zY-kpC$W?c4oJhH!8d+|cgsUze(M>RsWsmiA*19pYhd;qX=jRO@B>3)pNO=N-yj5&}
z-n?l)cuT^eJ<nzRkpXFY#96nxufxs1U_eSSBI7})K`n(9JdQc|mKZG15C5MW8~By5
zU54L^wlkeKdQQms)9arw>f<MzCgCsc?QALZnEsmZV(KGY=6_(bfa%{Hugz}`Exb;R
znc7zGN*Y;#CFi$@So{<Dgb!+_$1tQ6OHOerw@I34oP~`?U~6na!$d=p?iLJKVEceA
zava7yHYOKWH+4x{*F0GcrHL;rEL!7(vd-DMJH@reV|r7E$f_GhJ&X+v*NBUYw`w=7
z%IY^rFqD1Rs<Y2TR<9*Zqrl58^jXz9+>U{+^2k8UHmNLkEz%2kQ*R{-mu2=N>DiT>
zPqytlKdj{I94cHXY^G#I=aj$0&CUjsqE|2I`;;cjPMtXM57;aCd8q@)*tB_%Q04~(
zeSJ>0N3e{{N_)zIi@2{>r<1U4k9z}SYiDq>Ws-i1z+`o$O+sF~UQ?2Zu&^+D@qjHg
zJGuawl10<g-!3nhTo|!Yj7dM~W`6osVPGjMV3$qcAS*y--aLG2y5yh7Ja_aA?Ku}V
zz)jh)gSKkLrKCrIPaZ`_{|GAuk=(@8jh2049^XDcejymq5|{=eG~Dd#Uoyko7Dp~a
zYkijZ0yJl=RE+r<o60fd-o+yW!Ox(~0{`%fMQ5Q5R+09{;DZlO`ozcYWh;hhV402J
z{{63E*vEGN&H?*PL7Cc#xRClg0R@A6|G0XH@hGEh+Q!lVZLoKUwX>&%-7?+18$VGi
zKW{fp^Qx$<+_Y?OW#*|zq9YBJGD&Nl3;87^{zr3X;!Wk+_wm~-Au1wclpJG8hGItv
zk0vCNDN~2cQwc?m$}E)-q8yGPg@epP*>Oy@LzH<JLIcN;B;N1cb6V?p-ap`7?_RC5
z)+u|t_ci>+>-u~Ji5H+qd2t)+6`vR~7+L!3WtqXu(qGoAe|BJxhLba6y-)CM^pBY_
zt|vVBNHQ5w4>CJ__)hQL^z?N9D053oVfUe0`B-jQY+1NDu?H59xwX2TR)K}Ne(P3P
zXegr>%X>u1rvU@$t@M+1P!gom>8bQ6f$3G7XAmcj07eA4Ro^>BdoW-wAC`KGjx~rx
z+`s@c5#ByNykcT;H*T!QivG))e@Ah4fwBD&i>!004{|@_a8M!WFB<;SS{lKZU&i}j
z=~7Wm^&IaIfpns{oLrmrksZl3OS<1Ky_5TVD8$dL{rU4IpxwQ&H<i{3LYimG?%jMi
zGR{S0;3k06i;T-wlO75#-^%b&;Nb6BS$w<B6#_=7PmgCAZ~5hyH83wMAxdit)g$Gf
z+y7d3iF}}{OT}e2Suk@SVcH(1|Gq$)wyk_h+Fz^<ymRi~mjKB>JlI8f^Ngw4K-8Pw
z-jj2a-G@9xzkdBHpzggj<mHJBoXq)n(!SNa^Hp`V#^Gco7W^CQ?B{_hRS==l=uZaj
zl-<<~<cIH~r99eyuO4TjQqRu)1tkHhy1JuMGEMz&(}$K3DCZ|$_=prJ9N?A|xN|Y2
z1zvaf9u>Id%dZT{M(uVhT~Irr;xd_%l44<7f9Rg!X|yP~J+_~&tEG)u)CBms4%H4w
z`IX+@?bhDf`V`=_=&>QF%OKooa?X}5JUB!Nm}3WU$uZmh1&Jd4gPr-!q{i(h^EXS~
z5?=oNuRLWhY4_a%F)Y~HCdtCVHX;eOP7n7F^u$o#L4a;e#+-`Wugl)|TVIypT$epS
zhWba3>KYrb2iS%s%Qyn?DG4<-0gyKJw6sD7Cf(K?>RUo~GYptaJ<tz0kL3vZJuB+$
z@4NFi!Q`e&C1u2kv+IrzcJ&NmU4co(0QTg;vu9-hS&fB(lTcDxk7&p1O?>+8628Kf
z)d5~PxBSv?dqOMb=VxaR?BCCLG@TNII;X_0T^j&h%Q^lB_h9hqMIepu!=@bdI`pmY
z_gAW~c04XX^n4Q72|%afZ{NP!)^>O!AKyJd!kqfb<nb`z5eZ#mYve2{@eopW3W04H
z21-lKi_Q#SBq1h77HQZ7H2e#XFYC{!xOCY6VzrOqcIk=8o?{`7KSuJOF^pQk#*7FL
zZyr<&O$`6}(!a09rpWvA6|b|i{t(9b-><DkoYU|t|GfUSk*WIUzv$?!rxO1MZ{x2F
zUZuSAR>vO&>uRUj<<8Dd>hhn(#jbbjwqgIVRanNN>sr#U;uCvKH?sj^5xgQIF#r!m
ze2WoQFFss}UGu=YW-}DMbbxnh^aY9IPv@!!j-P$BIb8kR4ZCk%zfRy&;1u^(%5cZu
zxWS131ILd&bol)w55Bt*pGiB7Ph6t-F|5$y($eIBRAMWLh?*sCef(H77)dRFUJb#9
z;+W-QX22bSSKZwyb$>Fmn8@(qkAZ<fi`%YwfA-K21}4^FC{c};O^kh;?3QI_W*&x_
z8hz=kym^<4yUhY+)9>~C<Ik!-U<0yqbF&hbmA-56+}@rsu9Aw1>wp^B4ZntTZM&XX
z(-!DjMu0&27I%mtgQNpli_H8VQ*?q;Z+bm#ueMN7z_*#Dc^B{#*uaCT$0dswb-}^@
zfq{}ZvV+o#mv3o42`8*+7<f!#&OAI5b7Wq!HlV)Sxtw9Y79J_=RKYWJfVoy)EGV2T
zapEP0aU<NjQY?pDLi$VOV$zTMjcpwrAeJOm4^d=#dz&4Ky`7i8f6q4&e|9QcG!DZb
z{`^?lo-4RR+|b@$U|9)lH$iMxaSaDq6RMuf3JM)xtF}I8dFvlEcm(9lM%?!y2v9A#
zAI8`Nruy{x^L6It=4#&W*g>!welJ6=N+Ujc>d>u-@DC2a2JtX!2RSKkhP{_mRo(Q*
zvGivs?Tk!L%4EmI#Wlf}iJW|!Hx6(O5rXOU{XA&p;b~T2O8zi0jmt?~U?2It8CKw(
zczm{72A_mhCkq1uL+r!Y0~O`vr;$DrA>h<bv#rCnlqmk?l7-a$^O5e;`~<vFe}Dh*
z)KnB1#R4SU43mdTsAfCK3gh+UWb@Z23W~v=Vj#fn-Ib)Px@ZJ~YgJD~xGRQVC)MXX
zqDp*I9|09t0b&@D&?2BmB9=nrZ^|<e7~Uoka0qWLf<%Xou5RQbXFcnQ|JoZls)`8)
zS0J^pMM{bl?4@gHEC4cj1z5o#Tv%1}pBA^SyX1D_;`tA~TVB}%>}#0c%|9y1&PX~>
zaK^EQ*dVO6AD2lH13DVteHPn<V2$dATf1z;X|TQME*|?dG&CA7HpK{;ow0zfPC59j
zZuBX>?w!iY8@(%p;rhC(2JX}<jat5FX=`gldms)Yg4n;lsfi7i`6)^k>)wrz3k|4h
zYFf!{N4!p4Pe`}|6e9LQeP`ze;LDp}jjtyr{;I6#(>vS$q6MxNoHJe_p(s(!fO@P0
zoMm8VXRimM&l5di4n57uy%g-gC&<*!D|-wI<FWNlo)kC-DK&S|uI1&RW!%1d-(Rt7
zBL@puoiQkPtYKkckrLgem1|;$uRxAEDH-V>5O5!gsY%Mt>pSjh=ATdBe(WyP5GAFh
z^@HT4rE~gMb%KJb+grM_J|_VOD?y=%f&@7|H>ZOOg?}|^O<@q}aq5_b-T6U*Uy?IB
zHtgHC&ufe3$BoKA_NB@e9^MmPSl$~6b|MUmDXH4#+_|#ybkM8~O-xMAd_%-e{fN?t
z^y5`9R>NT9qMSK3A<Z_A{B`-l&UWmyxoog2YLlb@7kc5OEcN(U512w>i0d{#u!q1i
zK4>d`8-4+)dt)hzi5zWBl-1zQrufG70O3XLIb>iET~-7D9wT83VCQI=d7l|y+S*WY
z_Oqp@l2qL8(3S`K`@`@sLatBy#&v*SYpBL63<7AIHKno(zf|0le|oDH@}v3J)6+fv
zo_SsAm)}s0$K8H+7apGn3uP{Qc7C1@b7nH)1#zZ~;n7jYk`(|WLydFg{!IV$ExJe#
zz}fZ|W#6_>Lv@O-fR9^>BEZWp{O*yW=5?RYn*Q=d^-c%x#j)mD2S_|I650xhYtNRx
znPV~_$J2osW{y|T5XLy{$`uAec{3NnNVmUhL&Y;ZhH9HTI?4_W;4guN3V|R6uJS*$
zio!jNNh{8djfi=gKy>7E$CV#Fta|9x$+Zk6zpi>z0_(e7LCrDTAnOT8uSM|v9J75T
z&Ktltb?~e*&eievSA$h=dzi2A>mF5z=>0Z5?Rj%d(F%TCH(J2f^BWLmGpN^WKsKt2
z7?JDMD*7bI%9KvM!Wi-L@gXvCRvrN4kOoWTow;A$Hckl$)g54odq1);9s<;nA;df?
z;>4MB^}IF=A|aiYH-;cysym)Eyg3r2Zx-AM(W{xSfMXvXRNT8)2s(o-1T!1kTNr$4
zY3UH%%*(o&+DK794c0^<O~}B<p6SjlFBiZx(B*4^-J+tg(B5(YlsF}BVKpMdcS{CT
zGf>psZyBN>DamA2>Dz#QhR5&O*{4i&!GJ3-OjD`f36i|h+QA75Dp!)9fM9;3)CVq>
zoO?cH;e%`e0J!!z6G9(CB6#rVQEvDwIKmY)MiSI}FhWKn@<Zr9>0q*pz<qu<I;x#X
z(?Vp7U--Fhl|qPb-_BOIx>9w}k5y*8{{`me3FZo5O(qc9BAe<mG6<Xk(*|snxW#%a
z4yb6`O9*N&r>Bb{>6?LXEmB12Ew9kKY15`_$fczd4CJgTH=?A-_id}DrU+=h3`FX_
zU{R#LJr+kzP5CkDY{c}!!ZTE0rr*;fb4+B4+8~P+bvz2+{q~ySo_w=)q2j}ko2I*%
zJ+%Dg%f2GOOj8n^n^F8486CZX0S^Bz#~%9nax;t$hLDkHTT0J;K=E-%Mmv=5)A962
zaHVp*g6V2RxJ-K1ab@;UamZxq_n$|9+ObTq>f<stD7_34u@)vC7mq7f2Yoe$n8a`X
zYisXK5N))4GsU7*w61HMu>ixc9-=1XD!6Q9m6f|ri=IL`zs+T!(vP+CwOu5u#oUR5
zZaqhB2rV_w;gCTM<;^iWpi;JT07a43ESlza5cRI7r4^_?f}IPW00`Z|D24gn-_N=1
zyUv!LjJ@Zh_hr%l!i6=EE(z!)<(k_*&g15N@O*aFrSFxr6}Vi1U1y@PPiJO$ap1?c
zWCa*UM&ceonWJSkRp*Y#O~K)^&K5Z)hZ-&<G4Q~N+LyQ<M_7~l#6JJga?9i{y<54s
zu}Uq$dQiS|n_Sz?Cc+JebR5DG6B8G!3kzSo`woFgPV|city8D&9GU!kamF5gl@$ex
z9Gf}{&=R&Y;l}ca_20d7AnI{wB^n-d>d5%yWF(1xHBA_O@PTGldCOoMw6qAKCSYF4
zU+6J%L`Zv3jebLSDvA~as}+vGabmy}Qb`C8M2PG0@wQ$yX%qdPUS18jD@zb48|3cz
z4xISN)KvcYluu3**qOs9`gWx#h>H^lYM4WmBwb6f*r6iMNt`TpSW{h76Z0w<7qW>E
zh)SNUF2AqY8XXgJ5Jz_8@)92cZZ~rQ2+G5QkCc|$XpT4?7rFX2^*$L_hPz&2u$GXJ
z^c{bUqPX&feK>86N;eC^vth$;_=@&eG-_bWAf-EVP7{)P(ZKDEz*$0&jth?WDk$j5
zY0vxckXtFMsCY$Z<1S9vwQJY99rp-XeCh7<jhjKaASU~S^hP^k5oauP$0<;yP`+b^
zib%*yF;=;eaG$s6f9dP%*CW8A0d)>9xnChMYTZZ6TofOuRI2XmWal4o4Q`bTH3-JL
zPVYg@0it1y(n2L&0n3X;y?Wqa@WJ_NXlhc)z@&d*fV$)|KF1o;-*1^YuiALmky}Wm
z?f#ycBYQQOP7i)N<2aYR>sBroYhU1?2N?qeoHz0DWeE>YP5u-VITq_06%nBgt*=7J
zCA$t*3qs~>!{e_@OLjPmA+YaKb%Rk-C5*l}W#6Uca+*=#m_KS)i`9Th>UOp`D3!SM
zbSPw6inQOpIIl8b{~%4MCkcVlhoL$#t%)43EBo)Mrm5&VgsTkandToUI4hWN(H)7a
zp0L|ljsydi3QKp-KtN16-8*A5m<hP}%+d0yDyA28FOuA+EwhZZvy27X51AcgID6oO
z`5DMs$>-fHFwsp{KafniEuFGwyhx>Vw@OJxKDQ`wvRzm~9s#u^CWMIb$;lB1u5sI<
zi6xC<2!5>*VA7;-d=i9?hyq0nf-VgS{q5V>L(M0UvL9*j3yWk_ESr>dnP5$bE;?^x
zGFDLpUD7{8tFm{LQeJiSy&SIC{lPr@T;6(@uZxS}&)bvVWMi=jwxHXwjmSW<snU9r
zTyKMJKfDSgRU|voCh2rLqY$&!?ruJW##AIPg%HYyL0XSu00V*ZysV&->wZaBa*RBg
z2%Cg@T4viE?`=||Y;hTcU)@fQ&=5o!<`BG_V6~Fr7(V0Zn0)JxQgYbigOPva?x^{c
zS~1o?=<br>=Z>J;%iRhEVAuX~UYPHL+S&|o9q{1H+9BfXy%01!=-7J*297$8%jY~(
z&Mi-G(fT`#vv>QI_(opO%PTB240@F3<e)*O2l2UN;QaCcPngndY^>le-D;K|eoISB
z9w8ywmG5AvnU)`eCr9QzLZ^p9WSETj;Zln8L@U>dJ8yDVdIw{yvPP!w#wYy-lqQ7^
zLr8U36w{I0a|sFqeS@;6q95es=%?P@qNdjSj#j;3Xg;p%?ykVW!9fs6^Qjn+k<Xvw
zU~ivNsac14hF)j0(bCugn_@*&T6=oq_!eY3Z~IR9zkSBV_Nwvg`wm)P?ZrU0S7GF2
z<gI7*j|d;UZz8i3`WwQOpp!xJ6w2TOjg{ruW5Q6-dGGeAl40lZO??xu3WN}_u7!!T
ztng+L*?VrI$CuKu{r9vGdoU1ykT*h6c`m!tNtxUo)Y0CkPu0x;!FHzT@-PRXb-_AY
zXlCPl;lhQ8wN`jLCt%#FNh+XKR<o>vn5djDY?1%K=fHVxbNjWWn*P%SX0^0jI1s8|
zWGRo4fPK&cXqJkPxDfF?M!w6jRp}$Oug@ZN`!dW5ncL7rxQ6Z>VEfN+_de|pniB%Z
zIIyOdaky@Jex3?HO#O%ktQJnjw71M6bj4U`VTZ>jC56LY><n2PYZpS>nHO<3UuVj$
z8>H-Eb8~Zur9u-j9~umwQvRzH7lbDCS<*`4gXqntOHak1=(a^eqyHDCe<81<SKq?{
zyJz?T>emPa#Gc=m{LnfHZouDgjoCi0eR&5__M(P_1f#6kLmg{t(U6zK9Lh*DU&qt!
zp+8CxC`m_e-VI@S*8-&uu7O-}C=kcM2YC&eYV%BEsgPw%1ZOHP+C?qJuvIe`keA>Z
zeIz`=FrJk@g<3R5ObvqL=r8`RYWQ(#N|s_%;uKHgohXy(ynA(>7&n2eS3m3a)Ca6o
zhFdFfDOH}^f2{8<*sZj^ju11y-a1M@Aa%0=dlmI0_BCr702^tQJFNm`j7BQe+;R{t
zPK2FTa4I(ZaY~@Se+EX6^c|=g_Fv-^v@@+mGDk)I7-9MqM7&ti0`U9%-8<2?!MA2J
z+;hhpI~<ifR^+>oWxNVaWpPx1ZEbDeBM%^VCKAYLv{)IXxw@Jf8_9f5DVfvV-JPA2
zvylvm!Jo-Q2&y|<Y-Yot<>Vx7XJ^+~SNC;HXmN2-3(rrbvLI6Gt-V-Pei3#v2cYuT
zqrImbQ-zRTq6x}uxF<muV~AX&(f;lD_%)PIGEp)I%&FA8&y_kfRM)m{KV)b1$bQer
z2t)E=DN$Ke$;hpZlVS2?I-($k77*%sM3%OZjg3vSgVIcm!50Naiv;ImZ)P<iYO%cY
zH}RETWt1gT<j?AnCc6>kt{NX4Q(D~dd+_QCa!*!LGA7FO*k=?Cp%2y4f3DydEK~g5
zyVkaQE;2GQl7+>t93v)_E!a6Yo?x-Hb?8am9Kk7HDv-Eb*>Fc(vBK(hMw%bpaCU^g
zk$nlty&a4LtH<i2=vu}QGNO!%5TqlJ!R(BnCh$0iliZ2+=y%(B9v6eHbZ~GWBao7E
z&cMx@0m@*6o1Qu9bm#$^C;cvOzQ}y+5-C&Yv_`FHO@$>lL1&ErTnSqi6(xN(xJ#UL
zuEi`cH1E?;*23&catiDqP?tqPsS(ld49=)+5f`tg2U%HJ?Sw*yM&JS`X;4sv9C`be
z3E?%FasziJxbS%>4k9zCG4b;!b^`8A+9C>t0&O{MLqi@Q+uJ&t1_ngX3u{D>AB*gi
z9T5}45jM!x6oH3}uYxtxNe_5)GbKd`v05SU=NJ;QfY92y7OC$uG7G>X-2=^@^~<9N
zwcdVyR7B)nvtvhsaLO4g|1#h?SRN?dUFMTD9Y*Z32&Ao?!c$S1xBX<U9uNRMqh7>U
z?1*iVP)f?lae_7U6cfZFAmEhA|5`7dauI=X3{pgU%pe#-S-o{wmjY^@;y6wo4PPe*
zxd0DQtYs=H7Gyh(3`nuk&nb3VqZYISy*(o9_)#A68xUGJO!WfVIBY#v|83ZlPrIHF
zB!^yNEvg|=Q3V6l7dDV>9M2eGy-eCLxB&-{HjyKW+(pj}Wn1_Io>;guyi%a7!;e^i
zJLAI>&(HVq+!9EafT331GrH!7Vc7OhiT49c?<TVL3@?fx@hXDxy_E*sv;qrNP(N6)
z&8e725i1e$WAp5OzUv99HP}OJL|dwQXG5u1G>UZO&jVBR1gdkw|NMOD|0*Q^S6P{K
zy+2<!q)AWq^R+dS3~GPABJ4u`vl{*X=53R!#5ISlXB=K$J4~L8{nx>xIuG}s4*egX
Cp27hD

literal 57439
zcmeFZbyU@Bw>FI3uni0pkZur=E{pDNkZw@AaT|b0E=n5dZdlR^0s_*o5Eh-1OS<8m
zKXsq)oNv5mjPv~Qo$<YAybPa5HZFc~$DG%^u4~?J<zz%JohLevhlh7bT<nPg9^NTu
zJiHV7XHUaVun`}A!e6KLB}JdW-|)5bxY7&$I`>RW-3||r*a!LFv7qS{BRssjc;ZhU
zDmlk44m*WiQ$9R8>bGYXcuT7;_eGoV;Wd>ngnvEU#=CG{<fQ*e*1tvXrRV2O=pQG%
z_~M0r-C6wO%;J~ju77Dbrgu)FT{2cr-)C>nz*8G5&|_v?F=ys1*gj{Mm2N$}mxonW
zWXIJwFf`vZIQi?5@bJXA%bd^r`5up!^h(vA?}HP?ejfk*{ezd}pD+CR@j1VfEPuYG
zr2YT$!w;zB)zoNx>h-GqS&y{_++?kzFE;H;x_U)(Yk4@Avp+}O?$IEB)R#&26ThA(
z-J5;|AMeu<cU*gc(U3J-nOW@$_h77y$&*5|0%v#QUmqIl{d896&*O{9Q92*{{r%mC
zA!DbmeEax(($GJIRYbeeF~EuY_doek{1;x*hH7TTxx{`>L126ARmFO@q;j?jQ))^|
zhD;o<`EW(4b<K{kbS$_0Z7%CDR%%O+H*emweEZg$`0$l|JI^dF6O(j$oMW`>`i~Eh
zI<De;PRst>Wy`~rt>e$Wjz2SPi{?O4Mz*GY`zCdXgkMcM`o6q|M)cu&y3kzB-g3|G
z#=;3qu~`qbz`=Ttc~4qEmP&3GufzP0Xp6kA#ew4K6=(9mCUnhgf|t&4rBlCIdR$sb
z$^AID<?@QPcD_>6F7k4%JhuK@m)y3N`_?*y@+FzepWM22D@!pwaCdz!`P^0NAKwcN
zjIu1g_+C~SWzi_1H5@P{eH`+vT#M-5(-(x3>Lzii0&bg6Qmw@+c4lI7E7GN+6w<8n
zt5zi}u;0FYOPuB>2~x?`NKH@h)F9?_R0<&C2nz}MaDn;bgIA|7b;DCC%gM=gX|EXg
z7wX$_-)ZUSAgGkKw$2;n4Dp+Bxe{b>@z->0-^&Q|JUVc)n~5?Z62Dw6c(lJ3ykTT)
z9NpX7Td*-?+sZ`E#l>am9>?cYR@U6o!UltRKj1bOzWSCykbp5f25aN{q$F~?CSs@8
zj9zo8k<qcSvA(+&u&8E=TA43Ydcm`?sjI7B?z?q~B&cbBlJw~8t<W}O_Nb^RY9XOf
z-0VmVz1jB9ah0f37p|YQ;)`yQYwqBCKiL$t=YfAi$N2+~<D%LW@%6t+z4p7ZYR!7m
zF595Jjy!7xJ32a8lpCjQqhtklzT7wOrM2`jGBkV-1LQjxIK{r^%<s7|J3aj-cWZlP
z(i8jo>e3qJU~T%ZH-9j|`VxJG*ZxN^bJfpBOWzAA=r;s5dKKq;(q*4e;0x{kposH2
z+%Y0ju6X+Sc%0LS%V4R6>Q`Hqn(d@CsVH(ZHa9!3LIPKN<oR`#K_y2nU#GgR?5Iap
zXwIL#y>oTCwLW6F+6~QI@q^rBYuHJzRir+c?D6`StFo^dCs&+%(`8AkH!zy=7F>f(
za+LUYxDz9oG&K?)cf<>9z@o`^-I$lRn(dZkDV-mxaLDGg8obu!nBcjaS?UgBP0PVi
zsuXpL-PrWgi(`Y;Zcg8KZSCy(kc)1OxLp<@(d`nHop|p5YeT;17W=94C|NW}MMo!|
zGE<|}e0O^?sMMmLnUIjMd2;3J<O;2jkgnV2Vpo#zyY){e2xtWa1fFWI&9wDgV5xdq
zZPS|(GV?7ed2!Lwg`Wg|$*kV{()?&`t+H`bAo2V_vB?*-qR@Kh<CfM|#l6j?Qrl^X
z>FH^>bVg$0gVqQp#mUBi+#-0gd~bZ>tev%41`3MDJ!#TCpI@DscC3UyrFOG2!>$Xt
zDmzq?5vC1(gb%SJr52IQwfnXfygu;AX7jz7gOyJCTFjBK>fmKd4V$lMJCDD?I1X1h
z^o-a0Pz=_tM)TOErOCvZSKIVug~NavZ^(Lj)~MvDeJHcSO3*JinZBK2z4rFfZO$LD
zcI{o5TumxMul7;*HR-6dOTJ;l*8Q&t1Wl_G_+4zjTlupR3AmPQcz!R?BWvZd8POv3
zSPy~gq`iE39LAwsi<wx^T@6M_F<T`!r|7Zw#jX#JeOd}>Xk-}ML$7-L8U4Ex0<UkT
za##)aR;0Q>@R`m_&&c@No2l58wJ`CH1>Xg`_4?e^ee3kYO{~qUh>dC^UDPd3OSMkA
zQ?M-L=2e!wFWru=_aQjLh+A=%f`yh-1nbeH({>4qMz<jIICWS)Y;9M6iA!zz%q600
zC6>Z4Nl~z3HLW)0dYV3J<t08JhRvM1n?bI4|H;D5)$<&}^>uG91hg3!V`_Kjvk9$P
zV&QU{OFVb*6_u2(6}hXZL@3wjRJ%UhbA)AKyfV@7u-`3w|64o+y5Q+a9^uD1?V+Zm
z2EVpbqWjIyn&+mcrqo(zW9?+h7j{;fNF9ETJzO||U=$t^alK?;+i5s8UcgNQmjGAr
z9W?7q{9DIuiGzxY>Xeo)+FE<~c@wdx(B5h*3xxaJ7t^6A6tbxo4*YMiACJI(e4gyN
zzalEGU~5}cbFhgG-ZLp4SpR&6R1G~N8^_BrPtdZeQDL9Sk;Trzp`75p`gYOLt@9(b
zZ2X<R%!^457vHQcSK_iP`tvYfJ0bShc9j;|Lfq4!kbdXq2ic}Oc$!A){Zl5P&F=;e
zgZdcqs}xkVo(p$w=y1kJ<EqvIHx8H3qk;F=uQIF5HoxU<{2fS4DV-TUz=yjvJZIya
zS`MamkZ`0?1Dm@KGExDyYJ1`xW)&hrcw8K@V~h`ptC(_@(mC}s$w+35Ei4F!0i(z_
zjJTM4NI24BR?TFCP*+&G|FfPzH0-Xlq-0O$hsU{F*{b>YmC`QT?OVI>FFw^A0#sDO
z9fEt7y@Np*)@%N(B0++?8GVtNnVGxOk-EK=PPmM+tA4nlMuSHGa~gRC1#+R((nTW#
zH}Bo0UsBE0P&P^MD5EqRt?{5|Wb~J)?z*16Mu};<`Rl!WFP<Bb_%WBBP!=H?cqdcn
zU``g<4UlyR<?H%d`OIZe))jMUzGY@zNpD8?o)O4|8n%($mZ)~!$eC_sspVfh+l->P
z7$;+r$@cC#Q&EJ6D2dNnf9+wP#z=wQ<1g6oH#pz!?ED(uB&!N197*YBvcttwwm&+_
zHkPoeEVcVZDH9!z5F>V5bq^IjxVE;Sb!Xe-vMEFZPcovPjX#1FFRlQ=M!DAWpupkA
z_3P#%RW3w4wkf=hiy4r_8DMnqed=+gMy=N^V$?e3v~&u2W%XVD?8>hpW4W)HKaL%5
zi{X-m?2Jmu)kM#~rHSvPiquLX;xNyESFKpct1NL|nRr2=nL2SfVxd1DJ>n)x<ZVzq
z(3_*qzHqR)gsr!}+U)xvX35J(BaYXB+>a_YoIzEiRaM6&m5q%JNy~r^Qd3jusHhrT
zcc`bW%crkfREllp=lHXFo?{*L`S!+kcP?F&$=meK<In3qx*qF#?xa#?suvp%mY9XM
zb5HtbG>~MjuiMw2S@qcHQ$5yN4Uh=4IvFHHQY2&GPc0LhG2fS+EgD4Px>VYa;3i`3
zXAgvhg>8A`JXv(%8^Z4~-{1DRTxtE2_n!oww4v(D)#M`PwHMQMUwH%BW;*h&fa`h&
zwRCh!dmLZ3<I>>n?n1t#mF}wJT$XaS$Pf}|bEm7SstTs-0~&KpcOF0>=Ac)km&t=*
zPshR{d+O9FdRkgJdHIlyRp}O&*>~aBLV27eH$5_TWIO=BJ>dxSBY7P1rQBvz5MT>q
z*7L}QpX2qp(_R1zQZc05&pr`JTcNRi5YvJ;5d2lKw_M3!RaBOv?-BoH{^oCJ8ba||
z^DSKNhxcvkP6UzJ^CCg8Es9<A#2Ne&lJBt5axL<!RRBY5Vap7!aG;*#MsAHiMb)(v
z-)89&yV4}l{C#z8jbf1bx_E;h47>YU8yBShpp*$p9SG>9E^9LxO(bvMvDAEbRU3sg
zQ3`;tcB96QY}BD&n=JH443`b&S8l|8FHD|+bqVkD17L=2<?yOAKU<?(K4c#em!KBv
zp(-@Z1pnIxR-}l*!y^}c$@TENB`1e@uNYvwUdRLC2?_bCx*mNRUPlL8djTm@5)!L1
z=6Va5+{>i^7538{x!1n2C;#QK4zY5l?MBt}Ns-zwnkg)!J}tuRWdJ%mTuGbx8&M@r
zxRH#eiR_#vxqGGNeccc^b2PW@?CcyqpSoeXG+4^|PT*!tTbd}TN3W}p%c`Npz|G{Y
zWKm5Vu6#B=*g-mmvrU5pAn0`#ot)Z(B^%yJe|A{GWHD_j^m-L09r1q4kK{u5OBjdF
zu3z<theYykGZK@C3Ju*Ddqpr0Ijzid6EMtP_+00QSEY9>J-bm7f>LzdI|h^EEe!c3
z5s{4QSDM5mEJkapOZOqDij=gyJas{zQ074hOa_dO$Is7ah<NQYQYN~ZU|$A0@0qT~
z`D_JnjTFo@LOqcS8;?fZyf;HW^UT?ZDYuIPhuf2SqO~LfuDv!TZo)87bQ~Ogt_h)`
zR~=&juzE9H?O018|98Rdq|^AD8yc-=@bCQ8?639mvT#|QYQ9XB9PhbnW>Id1Ez6Qm
z7P*$>AMp2yGa9WyLWdvEU$`)NGXTQPu6ip=^}53MkO-M{#SZ>8shs-rw7sm?Boq`-
z)Kc#g&yc#yp{5)w`^u~|4<J^{2eF0$GSr5PhAYLIZnl^6>D8UgmZChTIU16R??Yi(
z2>^*f_9NMj=k?mdU5oFlH56g5GB3`Gy9BZRS~h=?KsZi=5H2gQq4cEr`~JRrTP#nH
ztFA5Y8;G`AumQ?Ow&r?hrug#_m}30xy<YW}^rnhPu12W><WoxVGXx|`xRGiKPt(CX
z?aKA96hU7Y%NX)LKI+R>ja1@4T7hh}Pogp1dNUbzoh(HCw-VSce(ySQ2?-=nXF<Ba
z?5d~B#F3Mf-eE#Uq?F(I+f70Uz1=C|m=5==%b&NY$vo0s&l-Myd5Ts1>(+c<tA^+H
zxX%Geuu3;9bq<sE*aC;f34WfCKT~lw07B7v-31n;xSPkK^Jh8|@(=d5TBmKr>19qE
zo0u%@;c8W3GdQgOkQY}lH_w8wIH@WNFkrMQN$7Apxn1bU9l_X`$NdnI5P$|SY<GBm
z1ctxXP|+wXEGz}0X|pkdp#Lmf9pKb_E_$RJKDmz?fba+a8g1MboeDML0)pOsNIh>B
zf4_t81ECebprA(uK&f;<CF;+4;$)1Bj4~C|WnAHo$%CFHfgi*KV0(Jn<!&wxC?<Fv
zx->XZK7vqM5csOxZq^(kx{7THzz$Dc`;$Fr8(oW?a8;eIuOSo&=4D{TLG;qAKaG^4
z5MbYZ*16Vkuu$r_q~WkMs0<Zu$!5cxz4^iJ1_HQG6Oi1IkAplWv;HTZyu6p8bpHH#
z{}i@b<BoXZl6F{p1yT+imft(?@Y>TF#v-L#i;0oZo8f#Yuzmx?vMTJ-<~s=4ET#j5
z3@Y!Zrl#1o)S+~&Ym~nXRoePOKg)!(NC46F*2v__$sDJD>a#En(su^5-5qWdU*38;
z$i(xPFA}TD0P;QeQ5WLoJ5#sFRwIov%UjRAhV428(uCh#$LztfKb6ZjWHPgW(X<KR
z_I^IuxKm9)6+J7?82Ed2%L)3A<r*p|D6C^`YUd#9zRPe2V8r2dxF4KsrR%Yw?6J~t
z<8m9rAdH{YV2L=?_ZnYVn>4XyR;6xR)&O#8Cak<K-b#Yp+juW)A|w=nQ1PzwnFU7a
zvI*90Mw;@4+}`9I_CMsL69k7{g$%#`RlU-9n=p^-3QVMKW&!|Thvgxjq@^XtN?5XI
zN-YQ2EC(WWJ=JZhHzFXowcat|R!oyRw>OZQo^Amp3ekO2xi1?cYy59#|4hcd@>?f7
z+FW>RfYkZ+fPdTK_*6$d_i`gxbn{>)=z*Jn7wa*K)J_xh*v)`-l%+tm-{cI~{YO@I
z9#Xn<SYQ~L)Qg@}IxZ==x>gL9S!F{)UWm}NmIwSM^NB=67Z%FKM!&8FY-gn6K_2&D
zLHDQ|7I1iMY!1X;WR&F5*2BG!<Sjgh)QSfzT@QC=A$d8O!Q4d)xRpUxOYiMfg2*9*
z@EA<!p`;3j1(A($Rb-_4@^yt^#Y?MdJA_lt{e6a{b7it=V=7cuBsbszQq^*pc0K_3
zRqV-W`MrRRO3$J%D^=I)K>5NA=3X~kb$Y5~q&YkvK!*sJwS3s!nYy)}=1@#AIzCib
z>7|Eh4fj0UF_DhvS0DA*iYv1o&O&gE-E4csd{%ZZOf{7Av|L<hDF@MiH^_%HK(|d0
z|3kPXF1}Ct!#m+!xpwY9qoaOBQM?x?g<sxCuX0$x(9zLl*5%_9^L}wtrDxjx4SMf#
z{_jaT`v2D*Z~pi5cfX$>??0yzadc0i7`NrV1AjD%jisyV-`)ypN`^{jV|iF}W1%0t
z$<t{8v2z8Vi!7GDNhS%2wh-hh9G8f2axF`M_9E-Y5h6oh!K-AK7W15%-sWiYM;FD|
zuHPmWYSgJ`-1ab2%9K)LVaWD?EmLYUs?+%1*#~gIi<@MhW9|kL^QA!@BKGPG0cK}5
zA>ZHsqB4{kupGOP0x-Y!P@}xO{1}>}@#~y@%bb1uScdE!1Ao`e#Y~I5auF!S1EA`C
zx@4CaiCqeG`g(5MklzuXRPYYl4(Xx;#35%NotB|;I{<wfP)%@*d<c8T+BoO~6&M?}
z)sy5PnJ2MtTd*t$zAVj4I&g%n0p-3FlBor@v_7%%@bFCYCT!tGajLS$#%ZO?x<|XJ
zPgdab-v*6=k-Lmj70#Reyg$w2Rj7Z9*WNU$Y-6{>>o6H1{NPi)e+WN_uyO#OI}f%-
z^Pvip!lG@qB(GEqFWYW-HTT0tQ%zGFwnlSW4`l#nW%i@<141SOi;?^fTL={*?DZTr
z-AYJX2!=d%;&cX}i<YlnJCTP9AQ9kQ<hUEnDqNfg3-w3RJLYa#p@S6QTSSL$z=9CF
zcRG9!wq+aeQ)ZNJJO-8=*LoFYqlSjGYIz~M8HWR9=hqYe1p~Ye`8);Aq9u%O1)qm3
z*1xG83er~l9A{mUAexa6dpx#NzJ%CsQS6h%GUba{bjP3%kWF;+8=~1k`otzlt4pJA
zF5HOF(CzYcTkjGLpkz1gOiVN?DlTqy5X8af^W&q~O(J+OKr?AzFOmxKTke=@b(|O|
zGI}>!#u?K#H9aj{LeO|^OD~8-fE@4z6v=~_Y1{DZBgvY)n%#NdNsh+%4_}=YR<eNz
z*@mK$B+pud>L3lUIN8G9dXKEEm{iw@5N=cqp%ksrd`X8e1`qTz$(1x>IIX&ox@~cB
z(YK{?*cv_|0W*%UbsK9?(!{Q#r;*wTvsz@-+6%aViiTz{oQ|GeK|-SCEk4tSI2e%*
zp(CvsE8v=-wn(}8M9~vKepv+kbe~&9!4q~+(A)}PuArYo>|1)RBbAg<c>4{&vtlR`
zkM*wAQ)+LYEVz<<4Wm<}6vy{@48Q_PfoOJ<K<kg=-UUn72njPG6%Io6`{X%QGz?Uh
zK~tbcxos+Q`4lQ~8VZuWA|uJAk!n6e56JhS_2ZqT{W`bT-Y2Q60_svqmm!9K)I8ds
z73wQC={R2sBEpLnA37rXOaM&T5Y#-6E(YFYeFP9P8=eiA>ZujyFsLrzwsVja`XTLH
zZ}Od75IWikqRjNz+cbybKXWRNa=`M=axkENOD0l&XSv4r1^EC9n^?x~9v<MlG+Rw#
zpNrg~$gKL2{2dm;=}SaUN|#~XwF1Ehm*(9XvZENB8F9k}{BY-NM3%6809TlrPKP#g
zBtr3sce8i!CtD9!h@*6XvGXlUxTp6rd`MbG2D6Y~n+KOrf2$9SYHaMCgTp;sG^>F(
z+#>~&lZ9L5FiBBDQ^0ML@L?FZPTOMRHa}XOd?4gaVY5c_IpraM4^}+z0YJ(D1!dYE
z%j4NJ1w+RW)O59^#w6aQQDPagl$_B1&sPBAVO&Z~I!G?vV*5gm&DX7cp=kPqJ<SxC
z&}Q6|A)ibs4qV&p1qK-0P<ck5Gs*6-J?EgzbGV=bcmD?9nS2n+<I)+}`a#cMhs#15
z44||dcIZFFG-=P9D`@2Bt*8nGm_MZ=pl@d%1u~c)E|e7f&Lpu!sxWCo1lkK*YH_2_
zHBKh|IrkkA)DBclk0LhWlE_eIS6;sDyLPFtCVo#wwgfO@F)+{z2k@G8WnC%aSF`t{
zIV{NivKdE!w#+_+qD{E^P%iKekA9YFzIEwQ6RFop#>ki$3ro(J5JLq;#Wtv5jz?4i
zsL!o{y>PAPy}o?E*U_GC_9A5GmSJYtM)Wk^_f;OXMzZw7#-kMP%Tn%X31{eo;qWc1
z9(#Gges2lAcVGz_2J=b^lcTO^9s?^xbD^3-4MsLGghF&ar?|a{gpJL5=wkta=Q*W*
zz!wN!$O1GZAt`ymnE{9V1orU)u-eKZBHreJ7!b$}1t6x-py_y7spo-fb}k?{dDMO2
ztP}`r=x`_cTCVm$EggnJk^9tth_SAqGdw_eaKhxR>zcaoKs}HRIBciH0LZlCjxivK
zXQJU<>;3aIKx!l8#_kp_zqp-O5>h@da0(mf+5>4DkdQuUDz@4!F2a_AV3g7h*#T&p
zIV8$LWuFN9Q{;|C&K&_)B}f^l6eum9q_)GJG27o>neR&Wkr6tuM?@)D?(;+C#qogr
zp)`1NN8QN33&wRFd3V_0P)2$K5!74ZU?H&jl|rLXU-;9~(N2e#1d7*b*|M(~5-9@y
z9p-zxkkoS9riyiJ_PT%Tba$1@+I;}5h!6oIh>++U&&EFarj=!AqVphgbGQ~jMM&!Y
z^KW3#@{qX%c?%X<YD+CJL}UvAPNc$D(pg0`%PhMPNCx0q8&On{frq@TZQmvAy1&u{
z3|U0*Qkb&KUIPOcmntYA{ZJldAr-5cnOOzQ{yJopH`U78yShh?bKO*9yJAA4D9_zF
z8laiQQ2-z`(ySO_Om#aXS2vd$Zs_JT2HaloW5_EI`CbF8KN;GgTx+n#qmnWcR;xMW
z1PFkBu!`rSOyUbi+_p+nKu8(km4)bV3ZbQ*mILnQ8M9^7_Y>BJfhiQ66c42iuhfQ>
zs-*B-ikZR}a-~`_W6l0*>-qj0%MaCS_gCMQdctxrhFbI?=@0p8SBEut;Zs)GhT1?Q
zGAN6}|L3k+qp|$JtdfzEqafToyVh@0dvLw$u^8wItkkQQs|eo$)&qq{KYS0!jF+C&
zBbOfor%AtomtR*`=exNCi<bj#bD@Go2a&KqDY5iu3L<48G)ZY{2cX^t5dIY=E<WBG
zldnt4iBUr$JYfePu1fJk1qi9PSoNPgN$A-c^&%|@gyDz+p7G7FClrsK*quO)JM6~(
z%^e+FKyqBFIDn;HzuZ9}wEq-}jlb9eAwQn-co2j$ZG>za4ZKD)RHl(xlTb~jwjfHP
zsn*JJve;xS_jCOxO?9Ba)_GjJOlMQ;?6Emuf}tIFn%^8sbH-{E?R8>9JLTZIuTzR4
zR26j*xr-Fe$sPh*K-zzP;owFp6B!bsr+sw%dF3z$$QE>vxuwp^ozE8jtbor;2akYZ
zJ{|!w#rshQ#xRfx)Q#+HZS}7!=FB5Bafsm^{4)fafC{;r@4ZB$R-E~FVLwn3c0@V$
zDXYeHZbDIHb%~hw{*PTyl}fFLH9#%Bq}dNB^LU`(DzQAL^UtRX4|zXx$H@#kPX_El
ze5@<Gb%`**Z0ytDm=kK&l}nsf!xg2yWiV3VO_TDl?l*w0j@Ub<gXnRPFdvbfTz~kF
z7a(xTV<8uf$ZkMZhGz$e!O$~Jtwcvg!Y6r~r)?YV2g<q6UbKQ$@@BpQSF@K>&QibA
zlW?dsZ*t)}V<#|V*-+nbEN%ikS#!hjT`7UtsF?6$D0wzsmxvv;?~x`GEs_OY8f1ev
zFlIN{0)Z%)heD0u<1)}C1rhyu+S!Om>w{0c$`A^b8t}|v^t!f3RrHUMtxAamkN|nq
za_!OKd7;iM@&j^lKzt>@v{PGzS>8h=CS>6}i?cZ@1NFXlS8R_d7(t(?D~Au|AZ5rx
zajUVp#DH@z1egt#xO(T36=w{98Y=N!&}2#>B4sqH-eT0P8PdRaymJWj6v}V*svrc$
z$Cxb$jcpptHeSM4U?R=?^Wst_d=?--=RUH6xlBa8b@IM-=sqj<4&xhL<X;zNxae3J
z#b)Hk1I#hZF%VRpIU1!cC6)u-^gY#XTQ97_a~K2!hTVY!nn4z+NG3DfIe!rn%Qr|%
z{@5i>ne-mZ!II{65UMnA&$y)=9UVV8LUuHvi~<su(^TjQ+e<DD*6EoUjbt(adghSA
za~&T0;Fp%^!Y2R34gcNNr>bjZ+#YM@xIAPAKq{bVk`;Ii;5FVO{01;&Ls=$=`#Z-L
zegV=$Ew`moY6gbZtPYTm;ZjjB-|fJ9<UgWt2Bv=`!DBPZVG-8e8UU1NyLO%?dUl(U
zs>B5O9KeAceiW#Xj?a)euvzI4m}Vf(Z~&2bk2$h+5C<Iedk89+^~Hf6z<fJawbsMD
zwVn%o*^%mn`fr-s+d1LUK7wEerAaZc^>&j1T+u-2)h@wOobRt0w&sFa;s8{^4$<nP
z7ISELxKT8`csPh)2A@3C%Pgam(}10vNe&W36#0@(Dn34}JFv$XtvJq@TqXX-n~2!8
zyMzesh?YXAn6dgdMm0k4{EhVfPk*0ii?OLOD=I4b2JCO{Ap<=<n<m<t1GJTrc^8<f
zSD33Z!h1%L=rCo?&CSL`AD<h8q7Pd8Ei~2&mbOU%UbrC<m$lZslT-7d18>~)G8*MB
z+91N#Qo|NB7SOOU1mN&JFl|KQ#;{>iF$o}9ilEAY7kP|f2Zp0|a=c5FlmiLd&24P~
z60s0m-1fJhheFt)i~<tto+%GbY;&e9#wXVfW)5?BvXY&Gh_xY$dDO!7<4!Kr{K0A<
zY_mZLRd~2vb9A_utYD%ZYX6y}L_tZ(5YhFshoBs-!ypMR@j0+N1N2<*=@&)-=x(tY
z`YJC&o;$C`tU;ju&RD8OQS2ho{jWC-_S5b;1Ksqhk?0(}Epz2!QSja{uo2nSfKnpL
z1B&kOfv^Nc63bJ8y)7KNWf+pHQ6Pl|<W-{vJv3I@*4FmBYT{I1ERS7|>q~)Pn)fih
z46GE*hQ`JbE<&gA@0eQYRytZ0L(qFMjU>|SAt+2Fayy!v3rV`K(q3LdxE->qPthZ;
z*`+nGef3DUCz-rJDGb+8joPJEiZ$x1bh4pnwqN{SsD)K6(S-zJV5JGw`-|H8Y9u;l
zTP9*L)dyH0bzWd20b}K9Ta?~z?!~V;r(=U+8_KpBtx27KEBun{dcPfl_ca~PRB#-D
z0A7G06?Eq|)F$Bn`9hb}RTt{#`{-fEm>mcfui}Nqzc74WaIBODddXjDzd`xo!-t=2
zVd?v^e816O1L@2t{0Ly4!4*Zu1#kouPk7B|rnd|WA~2IQ%{0Rh*}&8APH{gsVb|PT
zf5-rf%#+|mjF6Y-*9sAk8`Gp?PHRO*Mw$%oy6sFyE&!W`uf|MACl35Ug=N{qV+SCy
z^tL`!B@ruvx_IAuh+Dh?T_yyT2&VTEQl-}u2x)zAhS29tK*~JlMZmYJtfrQMlz6D#
zEM*3PpPx<;nzO{-&~=xG9Zm2t4{}(=Vo@t4T@tp%fQ*Jl6bSIb5vV13;@X1|&NxdV
zoIZ6vOQSTabbs{d5H0n*YPE#{bBzYDOO5N+vi6L}%0bl)7M(lmWfM?gbzp2IBqTC7
z5aWfTV;RKaOdw;R@H}Hx44I<{yM(&-Q%?_Q)8dF5jB1I+9fEvQg3hgHTpy?!%_qw}
zk5C5SLD{@JEU!Yi6nV6DbeK?D<-TJZ_q_4e!&WG_sxhljj7a2eZQ_m&MvqPn)l?lg
zj(s|2!85e9`uA(T^f;N>b1~G^5&dgWtx3{*K2rf6T{5?JCfXv$2<LG3eZP*IG_nO@
zjm&JVLBO7e>F-3)ACSM95QTQ3#sTHY@|FR@{FuQ;l#rH&GPU)1JQj5nCO<bfr?=q9
zeFsz2Gv_ZZRhYxT#MHKXP=D<b%r?!9D^=nCIMO-5OMK%?qmEcBvi>84Sc&kMWxq59
zj1xhHH8@@{tHVyC#6|G{N*M+!fQk>6eUtC2_T|3i_j?NoGf=^aKs664E!e#LX`9zz
z_*Jh`OUVH>Zx6Tz?kNpB(iO2dp!`C6sAhZChZ8PSh=jStkBWs$;fGC0KYGIEWycss
z!#W<9UyuSJOmmGGQs^V3TyProxWPHFU|Wv(4a5~dW<Jp_Pb>p&nLZyNOyfW%ewk?G
zG23eeo`q4~^d7S|j%o<%P#!%7gp5I?W+*N&g(|5MgcgB=s3te?T7|zyLOwHywZVI1
znj<mWTUk;b*XY|(05uVT4KV@$fg}g2@qW89)HZ<3BvD{si)F(p3h$*RCVn#a0=iW1
z>Q6-7iI6<ZgW~(ateE<4F6AhTUUzqQONo`y)$9cq@VJ2Mg<jlsv9Rg*p>@7WZuBmI
z0C9j9N?%<DQztC;pq2;=4NY!%cVhwM2YHAt;Sg!V)xj}=-13Dkt;%(hAW;Ni00s+-
zj?RLJumCmPd5sY?jyx)Tge&v*{DnflFV_|-pwMI%*PGP>qvHd8vd@~$+tfEFSi4ug
zv3Fc7A2BXgrx<Z3O}Z+UEE4cCZ%z8OFlzB9@dsccNXy(^zL2M-q)>W5;Q?+BSOUsW
zR2OUj%d!TSjbARGB>{jX3Hb;D%ip77_eY;-Hg`Qi0&N7t?%hZ+=OeR=)L`*IJrZ1G
z2nIJ@m_*o44Y~C8o+lZr-HcS!1fBV#8h29tsa9(=0|SF3<n}y(&xruWvcPkJ+yzos
z4y=8qr;kiv|EZ844wxh`DGE971XipP8{PT}Jaq0fs<{=+0h&$zfG%MzfXb4i3fi`x
zpI?qa+m>B66k)pBH3V1Oe|+$%TYhD;gCh9xYl>xb0VtLNe9DD-z~b9`Rs?xD00XE%
zAzIzC_M+Br^BwN-7`$qH!L-NKT!^phnzPv2zn8atOGcBHelaOkhY<86tQKN^yt99u
zkK?&a+f0<bu){U#ZomXAY1>1@#Q8{J<?JF5Kf+2*P_jET5URqnkSG`%r$GuTK{RWF
z8IToL`2^`NfaMWtOL>qSltEU2<X@+=m!*`cAJB5?zCv{hkRF<?BbRr&0_UFeo<hhE
z0+1XVoqBt_Qzh#Kr}+oTZ%yBt6O+R&4Ry(lXhs{*b-y2RnI*2>f(bld*#@@*6B9GR
z=w;19lIq*7oORNve`SK5ORaTW<h@88)TUp9$q)}0?7nnh6U|{nKpIFu0zMRj=3p`N
z#BNhxJu$38d~Wnfm+%ekYehLuEg@ij3yU^SB0raoqG)tqSS6k&^@q{cJ*kWlJiqy-
z58RXv;C!Ix<KvsyZV4UBHLcCjuEc2Ib2<d(gCaMe!OXMaXH$DJdWH<;d7;sX{#B7@
zlxm1YAg+V~WKn<9+oK&-5b;tmP4lkH#LZ0Nh{thvS`~nLjxB&W$MQjl<=wDRlF_4{
zSo8iRN1wRO@h1#mcZg)x2DaiNB9?&4*9Vh&yQ>VWK=G7_O-@gg*9OonJPVcleSJS8
z?UBi{sT&#)9mOoeSu7m=K$*c<g#*yD(P_P^2a%Gj-;JNdYNSdXRW~wmTLQvE&h&#d
zmx!sDd%k^Em4&`@z(ki_DIM|Jgt{{y2J&=n|Ky6A-9lPg+C0STexQnAuT!A0OhHWs
z0Z(FB4MaL!-H&zv#u<D+$jkv~SQDJQLM~n6X2XCazTTt4T;1B53j4XFw^wQAe{?0!
z1K*W0F?S4E^tLrUPqs&PwXTDcFI0(NH^t^ST`-W)k|?m)%A3b=U9TKwMq`P)zKY_q
zr!opb`H`R(^r;J&+GHAqRG}c=*U~HcVIs^=v`7#fy(qs99C90kh2(JU-_qKkMy0Mw
zcgb~m4gg6|ddIp3Y%RZt!-k%R+wFYx2l-wx92VDqa&A03xbBC`_<EHmP7?7H8jTvd
z($*xr<r4qFaJ_#G>eM}|g~uMpX87uy5s9+)UCU%3-*Q1jb<+c*V6cV2QZj8uQDvzY
zrvV$KnpP`Y_4XMWyTny0f43$<FM}tCfe1<;FwCNtUFmT5FT+G-#3KGln9Je_WGO%)
z5?@dzDMKUI4XZY1dNnXFbYIlLW%kX*G_X4YDS-03db*IP?e@}pU}1Az%z#JE15Bbu
zA(~&aYYs7=_USO9#>>bAQqBQ}?*;}e516?O0FXrkmYx(ws(D(sx(=&Apwttkj{D|5
zd$Rg)cfo)+sT@ACyEl4dUA+}YU+?tgIpvzb=?Q72Es$xZJPl1uG$}3v;9pf(@DRPK
zQX*6(9t57dh)nmyGxo}9g69d-*K0>39V@lH_E&rmGbSY4xso0k#c+D%oH7BDpbfbO
zFau=*Ix`wchd5<J&N=k;JK&}v37yl?w)NQB&ojgL{Wc%AsWoJ$ZYb9DT$Kj*T~ekl
zL@faep6~VIKqC-1S)Fg3Tv2jf)*8)ZXmPU^!5$v$^(6^k05^vWLUn;d>oK*?iIoG}
zS*Xq~YAl0!21CpZ9s|eDHEzK9NzBbhWZvV;)-VIVlFT`Xpr2izwE@>?513HYz4Zsc
z#Pw#Hgs{pbNa3otIW5nAY@fC@gD`^uM_S)`DkwdPrayvPj7g`8+jIaiz7V|yPOZ}x
z?LuzA*7yVRPe0T^Mrdp)u&ju%3+ypK93=OECUxuH+p(ChEA5)Mzd|VI09Qrgf}(<g
zJydKGC_uWYu#QhNxfQJuhY*`xVG9N!)dJQX+3b(|jiw;BVD@@s_}Vl!+jW`5fwVM>
z!m=<jmdtQnisWCD4m{=h^}W-V57?z&2&8NY%nXl(4%QVj6K-6)rk4De&td*r8OiAC
z-z1-u)pu#NVo@df4d=xh?0QdE2<y@>k5(>MNP@QmrL_N7#cGCW?R}e(Aq|~^rw==A
z;X0wGFW$VHxh<K5qKNU>Lj!f0S{9Tt`UtFLX&j>ExEp?j5fKr_+C7fAktHYmGeyR2
zL<<@*(a}WqdE=(P*!#vnVunoT5_d`p9N36*S?=m0{QcmiMyEaSMtywbAY2dJEaHU&
z`b82{mu{F>$+jEBZ+|-?C*IQR&kSrJJg`RVNXTBHAKjpX%TC}F_;Z!t%tJ%O11bYK
zI*>K6+;{LPn#I^aD&hwpwlN4G)GRC=^r}$GA*D^t&dlweRLL6@&HTGRl06-OlxWMM
zVPMEs()>mJ>7al|p9z%}WQCx})p&E#w)`7xPbnY_a@e#h?9bgq+h{|re6c(T!q}Px
z;w8EV5T6x3y5jr|Qc~NCV<&Pppc0vZd~$37q><_n!#o(`#3gWjWarT-rhU1e#x>$x
zPtOkVzSaR)p#luz{YWiif?34?yMtv^FZ#0k4fYX_^UuU6ewQL~S=p_3eS0oD2$DW%
zxp?#5rySkd5g-QCHxSK{QM2qDl${w$#6~=hbsi&7gWpGe177r2krpF7J<|mD;~fx1
z0w@*pbp+VWx+#mn>jrP<&)RtH+O_vNIgECY`!uYO^44aLNwaL*g9O4%)&L}0AnzLA
zPuN+3%JYk(02u-;NRtoAO#^!fMq4riVj<6}5QN21uFXfH=Yi)fKF6HVLxi3HFJ>{A
ztPy&GNPGs84zqHQjnv<PA#&4P)<bIM9!7J?&z=(*d?R)m8oyxzH4baqb`>uuiOt`>
z-S;|NOOW1}@5{9XM(qMt^lzmST~Kz%w)hT#Q{e=53R8vzp<9CPA9Zhoxs{pF$EFs%
z1Y}dYPY<rQ|I#$0V267%#l*!~m2$an|FkWg-N1PrVQr3Z)mu7ipmf{>Fz!z$NP}<^
zI$j43;LOai1+%WqSJz|*fvv;C5JOnQw^uw}_SiddwU8O3!I{~BOcU_5O;fY8w;@Nu
z6#|Qki`zi*kcJ9+f7cis7MDv8W@2nKus}}HO}wuMDYa;~1YvtXlqAf;fhD3~!gA<i
zp?Zyb`9?WnUL1mw%(LGES5A`sKB?ME2az932}VXYAcS%A1dru@ft+IkV!-}krr(ru
z$Vr^<Wr{kC4I0}91=8_Gt%%nNtc~lqQK5+gSmZ%3F;{a>+T7RI0K;3UC(tOzupfcu
z$Yle9leY8_(l|c0tbY9GUe$3b=KxlSPOO)49nH~W#6WJ0uEYSry$L-52?`tA)XVkN
zh!g~Ri)7!pbcDAX2M9I2Wr#jfDo8^^GbIQF4_1r~;hi-Q%EoAS*cSd$aBv6T2*%Z>
z?%uW0Rd9G7YgO_V^rLJ?=2y?aa-b*`S>_vufQw+3KP#o^`m?59`S?M{ZsyxLH6NR!
znc3OM?9sX%c-$P`D&2xplQCoA*SgB%Vq+~4%Ths&UcGntT&yX`<Kbs7QW5p9f!3lX
zGzzA?F9%V;eOYlqT~_O06d;Pag?MhPn&>}cLGEDlT1FZ$I(Gv}g{%>Ryz3D7Pk|X$
zVYed*%<V;+t1$4C%s@GOiG~ym0dTGiYyB>x3WPq2ApWHEc-O2UD?~8`TEVq*15v#o
zc`AJ18FTjl8Vqxy;bkFq3F($_0E4J#YMWYP7!bzH+7)8-o(cyDS#2!@7Py6oIT+YI
zfdFk3vfAurL^HP|#-Ir3!(qCgBKUT$C;g23&F;)Pr{!ij0;*MyQxzT#orw=!r$R*Q
z%C=^Oj?{sD><0o{$9x$4XBkk~d*{~kY5TI^uAPGdK?xr2m9>R`*Z$5L6(OnaXQ^23
zF4wb4w7_Hc0VkXfCH(1tOkf2iWMv67Bhl`#?Oq8kX0xr!Q$BZGz({iqJ$u~Ai8$GS
z65Vc7)d=xXR7ufInHc2*_o>5ID=1gfb8>PL6{DQ@QemMVOAmgVGFpe2I5(bhjr#Nm
zlcVggbM~j>LfrvMV(y<EzX%Nq5KiCycxX#l9S^M0_gw)@xt&R^PuH6s5VI|0HbKc5
zz>QlNZG1NfG6QX9dPGo#eCONaB`1&oJwaA1Ab7A3QcEu=u~)AsmMrkPZx?Jl`wkeD
zFUb*M`5sKfJ{5Tl4hTb}wF9BH?4an6nVK@31iBb*--a-n5T8hXMm#iV;W}>zVP^*V
z6j%}B%CT}-%YCK66MgrLBIa_H4uCPvAc4*IW*{EG<br@RY!9Im!CIGxqi?odu9^;j
z&Xw)qctlBko#O>zz0n%2NpZFs-QWsMAM75x_C4^9p&;>q2!|-cNX+D5`hwJEr8g{3
z=Bq+1jN*03nj5Y}L)94w_kl;}O@sOX*`&t6!lah*+!FaY16qVd*dVY_mrL4#D2fI=
z5e-Wz24G$kykHL?Ch*a1y@$H}Ozf2pDF~Yl?GsH%rvJX=h_Iy^C8m0S<jlc1N&0Nv
z0O&A(N_NAq!NCrDBZ0Nh*HBQHqls?kU-@zsqA4fx!tk5O?63p9vIa!i>!AeTS#OKa
zwDaLEVgqe<z(48Dbh|^)@4gH~M}${L8gY=(20a@I_j+(Mo46jMDBHVNrsr<xzPrJ~
ziD=xHi0<Em0lyE;E<^C##*n#F(;R7=0X6QXGA7v2f>x0eV)%;`nU)9~3s~Q1;~IUP
zvjrUvh;Ww%`!@~9u}0(KD9GN?u+!cn=5S+}<>?Xhs#eFS>jD$QCbSSmmbU?=Of$CP
z39Rv2zSlvkKdI0Nl3z=#hX(<Y^ni~zG&<TG86S{<Z3IE~D@e{f!6Q%MOyMGIJM2`h
zHG`xgNa@K4CK8vC;RJZf3DWrJiILBLWxv-i^g_r3hf9G|L`X^e1!X7|tjEZ0v=0!x
zjO2Y0sPnby?@!=8OG0wF>-Rwz#{&|!Gl`Z!F%xlGW`Gz#%g(L{%vzw67(^pqwlq`t
zD_jDwQqG*5j_1xax9ADVGANUOz$!Kef(hU^A?_J`=&ut<N9BXmHP|`L*60P`$oinq
zX_6Q}xPZiMkyX4KbO$CdNX#Oa{OiK+PeU^j)53=YLKkP+XY`=_Mj_o#Q1&4Gi*J9m
zVftR489Qb7PdDm0zsvtmkLtfSw*9*w|L<LK|6Q%C@N&r4e{OyI7dmLOB&tq4U`_AI
z92y$>*cc4XV8|m9D9~kBS63&9WOFEKXc!Q3NeS5Eq@*Nn(QCJ%p+-VRCV~=aX<Kq^
z;z|0R0VFUAg);Q-0$vpyQ&O;@pmva?Kh&0&llyDdSHFJz87;7aC?z?$yXif*;3pIU
z0@_e_q3mI~-ZGfDBX6k$i~$N9Iuo8A@1Xq3LK;_5N=iy8AT%TQO>fztgg!Y=&6V#y
z&{fGTdi6GRA|bshNc-yk{{HU|jk*E{nWd1rJz5Sn7#IF{<j3Jlt_sN_m%s<#zz4ma
z`v5*D{aJ0xwVnrj27XTb3|M2fob?+Zu<g;!r3`lfC1)WtY`rC3nE*Ed5lJETapBYf
zqc(Ft{0QG?GHjbzX?2MI))Cp(a8u~c(0aAC1PyNENjKed>s`-yngzk#!%OyTM^<vF
z65)yyPIAo)&CR>hl16(17XD;ln9Q*MSB;v#=l#Fv>inPmVP&e3V~H0XtwRFu_-h|<
z#`tBagj0g$iH?iQ(Mnt))GmdnR3Cd9FYF<TMwD}Q^L?3~E&Eg%mP&lHZc<{^S-(G`
z+M8dw-B<kp8K@WA6rW=rpspLyn@tn2T1|fJu+8yta$9!Qs`$};6MY;nq?iZIu<<?Y
zec8Amb@|bek*Jg=N-Oh5cEK(at2M+z2spA*UC7_a*MD0Z`|sQRS7Jd1(!YKb8Wwg9
z_m@mYiqa@Ky!r2Q0a7UG@b|Qe5@g?a%1TJ^nr-zs)yll_xVV03crD*x({K^%yfvA*
zx<}Kw7uwal@3PCQzO|ynV=Nnfu<k$~8<SoqcpOho2O9s*K{pK`Dj!BWekx&M8rt})
zAAmWreLXO%CMhec>gwvMWx#zI`cy9C{?Z5iif)m|o=r?#TprlOs(RmY2tHYm>S?O9
zon$x&i3P^n8ln5gFRNjvssOu`{-r!BA_BV0OPqZ!+W{XR<aCziOXjn0ymtZ>^@Z4f
zwU=GS-P6wl7H0*YY=(TtYwpQUXZ{uZV|XtVfVH~PcoQ6P&~a?bD=T-OMg)X{^Yx2%
zjQ=sph0<9a3jNoj+`_xF5IkSLe2D}Z&|D;RfU5X<%V*R@d}pU9;irm0)0}<d^j412
zK2^NZe$X>(Yilii-%<!~YU0DtDGuEtjSxY(mGfvIk`)d3nXp{g;!;ln-b<yZXWEud
zNJyytazkV0Dq2TFBRWfo?$C*ui)$-InqQ@Cp*i#Cn`3x)SAK^xy(3nsRcCv);jk%t
z-c;@b_Qiwb(Iv-(lA~b0JNOpm85v^Ckqm)dUt|DkI#iA{@2ab0Dl|y^bmfl^brf3K
zJW5r821TvSo@M)ZrE??B#4I)F&iHRlIjoHmKjXjkhXMoxt<#=&65O(H$J|6a;1YvN
zjto2wYzZ+nwXd{(MaLSab*Sg#N_1<SuU3WZ*V>Z@kDbC(65%&QR50Z0zh+GT{n`Kf
z;omm>|JkE~1a!Rglw==6%~dO@m}k6qR=+QyC>7=I#;~$lw8pB)raeY?GjJYIW4(0^
zFnN@ODQWZ|fTIjsJA%wK<BfAu>{xuwZhw0Flx1Jqu^%G-xP7`f3UKG0H*Z+2TElHa
z_?3y8N-p7btu>dm`3>t*p@yx&;U7#1bQT;@akFgmsL*M)OTKUGs7aSAR0<`2R*&w{
z3vcqfe?16!arb!9S+#d!4?fdJke<JG^0j{MSy2o5L|;GMCroODv@exZ8m@<@(muJK
ziYgL55K$nziTUfRAbYLQwz1S#xYn}a`|%xanpv&o)txF_9N&ff^0jgqfzF(80xal;
z88?ryj1df|cMFYfncX-gXmxO&=?bOOG29W!%8uvEPRT~M|If2L=bSH}d~_j@{{EI-
z!lu0aT>9L-giT5w#!F|N|HdmibdEkxjPDhxcmAE;UkISBHSqo2W{HP)R_^3Kxc0Ba
zv;TH9$%D)P0N)2M$YGcM`g(yU{OO+)S&sR=K)m(H*YRt|{(+V!X^;QYS@M6%g)`*5
zZanp_t9t}>gGaaq7c3qi7uT~65Wg7GzgWKT4Z4$n7I>w)^v}^W4kv{_F^D@>Rx2!k
zfw^U&4C3RPCB8VBeC$7CHGkIc1s5Zu6!fO8f8>YaCWwF4_hP*qNLSfI9YEtdfcT~2
z;`VzC@$U6-u%5;NKSw1F#ZXwEd9E!V8Cn0A@jtix>+VazLVMmggyf=pzQOeS*Ip!E
zSwDsYW<DH5Yp96m1O-P%r~h2?h1pB}izBPR6+T2E7J*yd^0{T4HX}Jmskl4tLwfD@
z?d;dDPlB;S7I^7wCG5`54m~}+ZRIy>v}$F|1B091Q$8LwtK56jAJ2>%ENyb@Fzl(<
zd+1!qC-m0SB5dNld2&)vd(NCkmmBk$LTzhBgWtrWuJ75M{5P{Rr3FD?LsgbLQw7H0
z!E(EF%1mgD?X$)~Ip!d3Vr)zgg94pt$Wa&@Ac-q+*WiG)0h1#yx)pKiBE8{5ODx_#
z*`M}`@&PdPp-OcGYB5iX2Mmh`%&SI|E|}PVXms0%D=4_v@X>|Q&Wdw-_XCM;;ee&z
z`Wnw|5|X^1KcCfN<gO+qCleAAYfl~w7F%SFxd%8cu#b<AXHCz<GBNtf$^Rw5lboDv
zl({rIYiwwkLQX+(pz&DR_wCyir*j-h@d>&M7BBnEtEo4OskJUOv2t=^Mya;7#KgWT
zKhGh?_o<Zx)1QALzH{yN#07B$m|;*kbLr8*vfh6_@q~(+nx2zW#aoXS>@vt{H%ON#
z0Iq5{@gN$yCe>4aw+G`rc=M8X%mX-EN^$t=GpAu?E&NuMkwH5Q1dur#Ab@nuLavSD
zcTqsZ@b5C<96;JM(5>Kmn}5FTtq(52%DQ}8SebPmo2TmU85XKhY9F2+AswxQUPdBZ
zPh_l2I<|@Jd)~8W+;=>MOkm-5#tAh%di3bp6<Zfm=gQ&b$bNp&U}CJrbh#NCJ6$C*
zDr;WX_j4%c-1T=28*4URRha(Q7SjhQX*&z<bS~|u*X-EuudjNk=SSF;ZEyUA_aa-o
z^K=#H3#x!8a#XSb`OOx4M&CC}`ts!ou;)n6EFISvF&JP)f=HGe)j>pRPhdH6`YiJB
z@0Vu1nczMUCtNIMdF|s<nfId|PD_!IkqPKeTwF}7sMiB;!QL7ix0A8S4$buCp4=vn
zA3xR>s%8X{8BCD@{c=|&@S~s;F&Sz<qWsS&FY(J9BiT5R0cc0tcy8;+{iQ^T2g1M7
zRL0J1TA#VYCH3Hh1g{+rrnADLq738{tL&3tjfc}7*6oCA<e{HLbz8m5r09WBp&HU%
zBCepP_kmgKY}&Ep{U+U6Nhv9R3*V2>(5FQ>p3VXUoo@FuOLw04EJBYTXu}3JI;ps+
z&;q0fl{j>d+IpyMg#)9agR<XTR8QFaGy8Z{r;I*Xps^dUGbK<!#o*Qs!MsALeVdEx
z&yIe!akk~f7W}FT3<6@#05N{2BtMi!)*S3Xs1)GM_e%bW#k6#^Cq|%iN(_Yv*%G<6
z4ht&K%<%;2#Evq8vxeXt8T2~HEs;b7Y%r1_=^(}!N^#)liYF!}q%uhU+?Jl^{c<7s
zobBBh=q?bShxtq`0~radS=P800Q-=J1Q5nYCO3f>!hl0HTjk!LUsaOtJXOW#xEM@1
z47MgefBzgux5C0gjVk9tn4wbWFG0?HfV(5yEwpmNaU3?KR#@09N|pb-$WIZt28>%b
zbY52tra^n;e1CpI(=_}_FB}$hA4t6Uh<^?fOFP%X`cD=c(|GVdFJJvj8TR~!)3HzC
zkFIxw+uFHfY6K{s3|w!WHmlSo!}safMN!Ts%eLNXQDl053s*}uxxFQ5F=}?R<*?Qc
zP5`6*V!frVi<<g)gjRUPov;ZUGkkq}IR833a4qH)8?(_~jz`ncLEp9XVrsWny8Byv
zb1|<3Ek@`vJ56#cLn1XptAG8@3-hP{7jFF75B~=Oq<?9_{VP}zL0&If0TS8U+m|m)
z`FOYJJl^Pi{q?Ju`p}|Xpx*WeqS3d0eki?5EF2wr#dICA8{01%^yOd2G!@<B*Lvfb
z(WDCLrEX}^B));%hjf005O{{*^EyH9WcSz8(J8*ZXW`7dKIcm^6pvc6R;)d!@89oT
z;>oVM$75$vL!$fE*Ee|oS-bb^{dEBsH8r(2xXHh>rtDbR*c1RAOy>}Pln{*nysJh;
zC1~)*+xzsAC+5BvaT5v`1Kb~ES{8@iu;Ado+ST#!`0tKY`-SZX&&cSBiOHR+A|oTS
z-Ws@f@l;P!PiLpxE!D;JVf__FjvBq2-q@yYk}Fz5S7>pum#DA56OKTh_=DlcD_5>e
zL{82ZsJ&cvzziFh5ft?gz~$d;kH<2(1iHF<oIOpo)uUe+=9+gp+hV+MeSPE-ZfAj8
z=hpW#Zl4%V;q0#By_laMUZo$m=M4{6J~T2w5-Obt7?x1>hwf23-u0K2_CPA6dZRAc
z@vR*{YegPxdiEo220-*C4t7*k@lRLqnY{CRIUn2B-tM?Jw9XOJMh$<&Tbi5YJv}`G
z`kyw}ruY)!`kcV?6o#8AyvRa(Hj4lcFdn^a?>>)3sRrTIs}$m34XWL*x&9iE7mF?x
z)7-CwdNFO(cs~Uso}&HH8wJ**JuhFte1dh0QXD3#;@SAi1cvkYhrGJ_`uc{YI*0x)
z<8`M7mOif&PRl~fXAy^{ZPf<5V(5`PWCrer?IoSt@34gT!s7h@kE;;Ec^tq1RiVd@
z!tv3|Siy^r%a6FMp7R>58JUoEwPbFUu(*9ve%hkS=fK9*l<slUdpz2aH%@SAA%MC1
z+HGSd4qQ`}mcZuptl$!wdW%&sE8@^yv7c>CNN`8DdSm!<!lriU9#6*eDiTvn*0+5Z
zpRI-L;&hKeC+X$cZ;o-jd5+q@BRJG&52$XnKN@wEBR9FnpKqj~d#YynnCjo|mD)S_
zm9?!u>C$5#mIj?7*=$%on|Dy+_Eq`aOG_aS;=6!T#@M_O5e51BA6X3kOR<hkV2p{D
z_Fkp<?*YMkaXaly6%<qbaG($(UlhmuQ)Gudb^R0ria59dvq3RNj!<%3{7wePj5_`s
zv}<D*7>nbyiiU_rX$EBxcxxlUR>RArQ6dJ=@?It1pWA#ijw1Ql4yQN`3=HfdiZIxH
z#JfQ`=YU$HFHc+Z2yE^`V4wTCX#Hn%j71x`LcOYztz5g?mtO)$fglzxFp>hDh)Mx{
zQ1slna}r`=ouH0?q`Up+MoJ;F$45|5S%3}Dm<}Ampb4u$TRNpU_&wni5)@+HMb6d)
zhO&nFPu+|6(y!yhi2jEUACQAs;4MGE@lp%m_C$Jo5mx|mEoNq!6Q?hBB3_xwVI4)I
zKacs~Q&!;%bjrt%+->h!9|O~B4lPv{hoCR#fYkvx`3Bm=@wtrt0Ol9Az0RKy_zCA^
z9qjhksz5a)G5jnSPWU>1?wmY`%W$#@U0<f6DAL9%9eMW8dma1Gczk4SwqpT$pB1&V
zVxhk@2M$D$K*5lwAMGR@b-{r&B?e9S+Evc-h!RWL45nPfpA2Rb^DL=9mpOY=@RBoB
ze>G6_fq;|=kLL<K{|>8D;^GQmCE5V7RT6BDQ23zq4GgHnLqbAa;RrM27#meSuic&m
zcXjGN*E*RZr+eRZ=G!eWCP{&dunO#TlhLG?FMkl)A145$AB%X@t#89rrCYdyE4_vm
zF>N4U$D`+t;l@6{Duwf66xQHuyhIq`IgqG9no~<1q$`iFAHP>B^6RrN<9g=Soz5xi
z-}Hu>6^`+B{j?Y4wO`L6;JNQC9mOULbCji^iJWQGM*oZHd12w*GuI2U`hm7cICO-x
zj#A-0c)%(!1}9ZyB4<DW2$zzVm+v!QfCfIUO!{B<$rFH3(#>MLSLrWdcAYr6AegA~
z20z}(OFbt>z#AHop!n-!&j`22^~*@GYb;)o@^r1%3;Da3Lk^iw;2jT~(+#-1{14mG
zcJJW4j(AI3n}f8dNW{@n4A;V+f5P+B-z7v!&B!)mXyQWp(&@Fl>RzAA+Xy1&Gj`<p
zbsrF6N~8#!xh%hrMUy}`)|&-raj(ytgMNW%ZTvqUImrYM2f}}OnhhM-cfKD7eh!OW
zq;;(F&YzE*)qo8S4tpnQFgsM%ZNOPB)6s`pwMSO}@kSkSd|Qf>WQ1HcknFAgEN;AM
z*x*QKgaxmVP;K4Dg$oz7d!Q6Dj{K+od)T`E0uA1Wyg4{l_I&>llx<o)NN3Z)Ka9?U
zPKY_u5)!u39nl=wbsNB^EJc&>I~V-NPY~ZX4JIcirxZt8Zgk*SAYd}l3(Rm>4s@<Z
zQbMYo0~adCe|#^1G>C}5FbaLH3SiboJd_?_AVrSoDS?wpk#m-y)5QVWXs|X6)YOfO
zw!enu69=?YXTZQA0Sh|~$2n-At>ZxUy>{b9I$*hmrX~w;uxk_<z6JM|it%j_Ml`L<
zg~16BRzIF$Yo$DQd)Wauq7BgroSg>c3zu%*djS6dQ6+T-ZPp_K-$S*kv$d2dok;y=
zH>r#4v9~FloD~fnmA}qqbcJKk1oDJzM);9_r5f7bp-3wkah?K~hn$mY6cH!rp#cU*
zIK)^Za|ily!2i<^l`NIG4*@CC@1xy%slF4ASF?wz*c?pL6|?bfRe9N29`)6~^%#|p
zI#BmxH|Q&?xvY+JG_Nx_zY~B%Fn7WJCK1r=22Jjiz-cJe9v$F3lz)f*kEh|V5itHL
z!@gDmUPzM3jyDbo|4`WX)_Axr4V5dxSfk)T8Mrn?kW~1fDV&9M{v6%yIC~g!ICr_r
zAV^?lL%FJN={8>8R4CjQPEURW9ePN+1$eshpdSck7&&PLrokbg?>9&L^w$A15P-nh
z5puDfwv-VBd(hU3G;%?wS5Z<5vrsoR%>Z1LkDRdtmJ(|$=f%fxWCrFjfdF#OV-}R!
z;d$8=9?A1?>d-vy3SL4+Nd8M$TJ{GU{R?0cQ-pNT3l^C=q~#po0Xw_#w_wVH)yP`L
z;zekl458crm%P%a`2aY=RuTmknYlj4zBw!$F>PMjVqWU1H46sQ;6C#{=p1WdEXFRm
z0{wOW+1LZ<Z-*`t`FYrd@y-+H;0W381~K3U@11H6?Sn%CghfQM;K-9-5f^&7g0OJh
z#}U$#(_7_Yhx{Wr^jyLJ<Ny>)5H{@2g)JaKdfu}dAj|Uo`<wrZy*H1>vTfgnb$3^H
zsk>Af4R@kKh>Qsp5)m?%sR(7vJP%Ehv6PSyAwvk6rzVs!^GwJ*XC}Pcp`PdWeDAy7
zwZ65!_mA&g>(^S({U}`5d7bBR?8m-u+qQ2z@e%+Q$CkF-p68&Oc9}pCk{9vZHHwQ3
z(%?ZO6IGv7W}D?d(4eLyu*;Rt(SDt&%))SLB|HN-{BtVMb8ZDYD#a{c93_UpPf71J
zBvJz8;n=jA-3J`Y<XL#JhlsO~F4;lQ2zQ1Epr0Dh4V3-p@4qeyUlk9Uza{+L&H!wb
z*Vc}J#yH`)enkwr4g8xEvz=79+vD3zRIoVUDIPSBPPb|(tk0Lru9Bl3#0eloz~U@=
zTddgNU`@8fE_QWQgJ8Jl<jpi2601u~oJcSgvP#rNcNiM1ZG*geabTQ)^cKRx1md>^
zpiz3HP^S}J$LiSsENMo#6V33FB{p;L<;fDFgD3;2q9PlU61Qd|-;(lKE1z}WykG1s
zgYQ~)=;zSoL`Q80(qT`Uwb9d0P$?EzOOR)VZ8ZfckS6fuL!-aQzL+=!fOCE@F!^ph
zFT>ZyC`r7@KRwt{nir9J68%+=7@eS~^lvYEou4-i_4;-6n~{6~0=Gyw3&T_iLKBGY
zM3JCe4hlaCbd7Y&U{Mk0gp!gHvZ;V9Le5Ea)lWCZAd8A2PUp}>E5Q~I=Eyxa`Jedv
zN8xyjM@s^^x%g73{siR1ZLrEaVb*mQ(ltPZQ)G|((YgFITf*mf$_N$lB@}?v4@3FQ
z&ftsb*?6s`l6W1(CTG@CFP$}tXTScLTUg{vKek}qQ&JGuZpS4ks0Paj5KCX*T>bdg
ze%inoxI6@5%4iFkLT7`r?es6uEM_k(X`eDOF*0Uq(Cyzpl+8j+%v6x55C|2$wSz?A
zg#Tx$BbF*mk`SkgM;RWEH#Mc+dVIWSzbT2vXdZohb<d`)TU8+KhRWCxc~EhhGwg~X
z9%GkmPSy7%f=ld#y>8*a&tX(`5mMBuO6Qs54ZLX2tgS7QNC^3t79dtZ3A$<m-eO-V
ziHY4s*$&*Z$ZPM*1}zs2RDZ<iPpJOc!-p@h7>U4=YqKcHcpwm+#x<SugS79m!BW@5
ztZcrh$@GpNfmTOdOU5q|$dj1Qk|>EMKuj1BQA#(h#Fg&0350<1C1lscq#licpQrDF
z%?O7H6su=p1dwpz!QTEWg&wcKnan6TF)=~c5X5g50ZrY@e5XYzKN2B{ZVXCfIoxYh
z>@SG$yVcow!c*(q5B6_7xO2p3)USk=FC!900*Zc?=w}?jRlly~MJi4#hUk~aHz2HJ
zYv|)J^JCX%3xx|*v2p%!(hFG)-o`&TSS|Kh?p3`4JzB~aT#nnv(PtEgy+gptU1(gz
zdhbU_tbzhqt+S)9=$BogUnC4?lFH11ToCVz>K-%KU-81l2{G1Bu`@Fh8?+v2b{sV9
zq<sMX_8w>-I4ntgkYVr>iS=yPnh$>!zwgtsv*rCQYG4oW{A;kAc&@yo$b%Sq0eW!O
z`yV^4m%3cD`0u{<>WaS$^XD%Y`2<<#RcN^BQ7-5R7JgJ!XFhpS9mT^#Mz9Pi)mBPR
zgO;9=Cv|M;kRgs?;<RrCbCZT#oL0o(5lf6OM=(s#WjWW-u?_7xnHqgC;j1F*T=aQ3
zOn>+V&6c50`7pVx_}T?dPR_ylgkV$~(dgzJ!kyd)d3(B1Qv{^pDmb!Cl7^3(hzJVi
zl%y%AnVOQr0O~D5mJo+P#4uIAok)(+Yj7P_VMGpSxP)twycoMbMk$j2rzJlP-JNc2
zCQ~=-C=f?>>bns2!K=+(YrTAYk!MJi!vCuMyBrK5P|0k;fkDn;WU|~j`+fiS1R3jb
zRa;&3s-LayG3`0J%d^GGqrhyw13krYyMJYo(p0!8fGALJDBoDb0dQmfM~{c6XANvf
zh{ZAdUIH#9WiI`=eOhaJMAGi+RfJh$5r@7TRj?veSi*17OF--pIdaEuBX-r{>Qrc}
zWlx*x?)2@<LEIp1^#1LmQrM%4Mn<n&bPM0#fE>=hCFy~4`H5YpbOY(eiJeU10QAlU
zXFqC4M!DI2E-O<+yCa1C(O9cPXq<RdXD}U?2iD@;0`n)USGGs}5mk|`_?{j||Ihac
z{rv@Vg&gWO9aD@V+=}m~LN0(AJ6ctx+uNsjz`fuZ61^{Pp61)P{jbQJ(jvc=71E4N
z7O7!&yF5!)gn8dUWqMCNE3AS+U`fHJQY^>rXvo>SPkQcaJ2L(olq;uCDKjOBE8pUP
zr`h}xjK`#^RC2=_ZyW9g_tGlNw{}A1O3y}0N{gJZ@bG9C?%8-`m>G+Ejee&2GF9#d
zQ1$9~V|(m*%8eVd4pkfu?86?eg;3ZEweCf}HIrw*j3An~CR!{^-H;4*Y1UE-U0}EC
zybL;}W!47{sGC}R-QB<9Jc@*ck|dg^zY?+zHTwWc*cvs{Jf_uI6HJomqWWs;JQ*xi
z*A}aASh5<+T{S^&65>=77jX?axo;&(j*s|)nvyOR{}HpfMnoLZAUoP~?9inhFq|T0
z)F8tOi;7B)Z6;=1DCz8ByylMt0V?Mzs|}w^SeAJcb5~TKY_>#^S?p@Fvb;nx>lR(?
zss_+DS|)7byUqh^yn6L&%2}}|L1Bh_PE#|Ai-|qiXzTg9{>3I+(KBb*Hyl;D3G7no
z-Tr<12CYRX&z!l<@+}PyC(m3YM0``kNjbNxnNCMX?kQ8x5$;s=sEL+7CEG6QdHfBx
z`f*{ovvN;>ph_yZRPnn3?Ugqjj^&luJDVua^rhYUP_roc#)<iA+U2%U{Wn?rW;h%3
z|1>ME84{I=@7J%-w6}z&9tRq+u7bJK5KCIJ%ZhWu+gG0X@S<>#47hK?{rFY>mXC6{
zu)pa}#=vGItLPrvQ=H4_khE{p!mVNQudp1=?EYJ_8n0kEH+~g9)6pNS!I5!D!Z09+
z6rvg~OVgSS43fy6YVj0GbNLe0vo2QmY%bJG&FbB)W#ur@C7$H=B*vtmhjTRmEWG;c
z*I{Y9>4eh(PEL8~vQ@y>QE%VQ@bMUQN>L<HL+{c<MtBi82>oR<k#V)Kdpuj=N8i@>
zGw)YxLf2EI*Ge)pNspMcjXBQ>qK8NW_9PeOt7NrY!h{@1WuX8tfJr02Gy4_mXU~?|
zL*EiiIv`?y%IHlaa1oV=AG^yu46D|l!m8_jvy+tnM2t-DJomot6_OaVA(IBPfmd=W
z*)-3V2V`CREa%;Bq5v?{kTJ?=u^MjVL@#)J?Y6&BPZF=U$Wj$~H0Wg4&V918vm>1X
z#5WNqx82FJs9zh_Zaw+UAO|TAt4bowq2c9*eh%~4Y0sn=n%R~&{O|X~Nd5aRQRkwk
z(<0;@;3kg;4>)rulXz}ai#>SofHWn;Ppzv?_a`dpr;5uO+bt|Ov>JBp+jrR{W(m-g
z0Xkz$0-B6?b>Vf9b47wjGcxfka)lDB)XMiWlPM(nT#dTF-fZE@F<TcRJ#bh)@#FTu
ziJnr^ck4`MYBYCBH=NO2u5ZaCi}i<zYjAvU&48sth1>U@z?GtY3DmM!uA-Ei%2wPO
z$h-?(o8#$c-)QJs0Xe?(I;!AiMMd8Ct0V8OWwf*j^LdIGuJeS+NXFu&kd=p;-Vn}5
z9yQ$N?a+N%Jgn0ROT|AsOW{pkFE#7(N+8P9dYRW{+P(bo;|b^wmGUEbE#Ro!vLASn
zJh*C6ueSz#O%&!MX7j7%Bpg80q736rI)HmMK+j->CyN?5ph*vnj)|0QQb37fNFkJ5
zu#4^T69HwEOym(0n>rjpWh2&woi~#YhuWUOI;uwdU<}0U4#Q*U*_+5Tg0sY`7a7!$
zT&1B-GnbHwX4U3){OsjJ?@lNLj#0$JSv&a%BcmABUJVlep5(B>88xcoKI`Q6Mz4ri
z6L`ec1`Yix<@^Vcz2)IVc!jdhK277x=|Umzq(yk<OZgf8V=mj(-CdeHw+sE-H@#<v
z9)J`KbT+!IsK}T#@9WiRxxUU>bGfpa+5w|56gxfeWLCm1<_N{i)S$p~-ts(kG&I<4
z_%!vn)aad^=jG)QtRRLQadzXUIX&Ha6uy#=f|oX@b8N<F3B~Jop9JleKA9KxXA9=~
z2=U$d@qA0l*JfIm5uGoSQBXnjhaOh>F=w}9`~{#c1N5c9#fWGH{IfWfvDz)sWsOuw
zhFBWI@a%jDQggSfG4R#H=#^Jzz4n9yM6~@GHHs?XEg(a**M5mNbB=GZ!NG=;7N*-Y
z0KQymAXcvn7u`V2G08IobI~@FV>_X}g<e=4o34r^d!eC;$Sar;H?|5*J%o9RW^cYY
zNFM@oI4`zzK&>H8ti06uoQ8md;^0@&JNM_uV<ZztU*U!GPmflKtjx<I(>e#_g{X^Q
zMG=pVlI)@wtG-7PbX5pqJPtEPq{SUukAMbPHL*C%0xlKcb7HXtkX=n=N+^vULzKRd
zSJ&dqs$G;!!SZoxr5N1|ilkdgXtwnwDI0*>B>iyh)q_diV@6*a(J4l#QUI=?Ta8pY
zq>j=Hf!Y4KRjazCGpl*%sWdV$fcRaYD~6bx_+QrB<A%>31$5;G(sLyP;)U~&5$|H5
zX{>*?qpGTkcqmW*oU9DEGy}+V5DrFc$3++z&Y%blP*HiiYp6E%@lda!KQZzogC(#Q
zC$mK)2?Fgw&B~JJ49}dmXm>MjXu?pRmU&`#YY6|mX3goL*mA!(hoi0@fzE4Wp)VoL
z_`s1h;aJ`P`&o-T;8i5xU3ktP?&alWzT(&k#2|57earhg06dToFiMinmC~b?<>htw
zOpJE3kAIDM`X&gG!9{e`@}O_E#)Szi8d_{+vl6eZqj2F`+SEQbH+NAa<V$I3O{C;w
zmOLjVP0Q4jl(*;yhO@Q=){A+YI4`se1S0envOq5!D?58)*$hlN>M%uyEGnVJ;Z)tH
z9ccO?LaubvjzmZ}i0duVr4vpIZ%IK8xCxRWd!F=P0*G;1)H=jq8&Fm)+QUhYU2y#j
z;?WbVLV`B68qvCTtSgkegZiF4a8w6Ei8TO8h==zG*Zq$Npz1NB$-$B#NPG?W34-V)
zsAr|r{+OGy6++LGQpYcx@=7**<h7s?@j@yeiPGa)bu<uQ=+%f#KXC4#>O&NY_XpM_
zUE&CAclY+L!~P&{+E_TGGXv)h%&WukR<8i8#ABgydBt_CCoZb?=wc&|?Kn?|&{awV
zO~i8&MOt>={5}GbP>j>#vjT>!sO81OLcg7^K`@0JEnrt%32)99sT+80Vqgvk&^FH)
zLk37c+@=Qf#fFkvlvAfjG3xi+J6pLQdioSBzPGejUmBI{e~KF89tFRKMZqA{DiHcS
zVdQ~t*`e&;B!=sY-c;8H6lgeB7chz|2KF~kFDVZbOBk#<Mv@FFT)*ypt>X7fZyR^?
zi$<4Ptjo$W!H8JY`JnY8y`M~yI6W1B>~Ki^#;jdmbU)^_mGIirxyc3yRDugU$v15@
z>rg_Ppix8ok;VTFTR#D8jlS*k1S{~XP1Tom0)arn87V)e)zS=lo*nwPI<w@sle-)6
z;!>U^KvZ_Q<{7G%mTwIg5NCXU1H?DWJ$!wtI_x)(+wAq<Zn$OEW+TP6hj<fgxWQ)^
z&Yim{v)`>V-*r2m61wW2{QI{yZP_T_HvX4Oz#5A212y-r&!N>?qo%X7-D&Y@SeU6f
z&%f?Nu5`g|K7^ISvY}5HQB5>ZXNS5O9Krb^Q(Rme{2Og=VAp@Nxp<w6iac}0!)CwE
z<z*oXib`BY4k|*x2a?$*zn=k{Q=(Duow@+|F5hpgI#J`^-jtvG#T`nDQt~hRqQ0K^
zO&5rAGcqw{MP~rT=v;7_FV#}7Ie6CV*#8saMii45`_!|h6<3E2&ex^1S$iX{0?W6@
zL^eiA90>Aw2IcJk(h}W%I<UqRI4L3>lO$N8=Ri`!k(9>4zb}oz4czF|yeP^=y!?iO
zQ+{nAig#&cQ=GO;H{cLShVn$<uo}QBBLq%tkBU!P4hp>Kv5t=2QNM2*P<;d!ZGh{<
zafZ%u{Iu^7KFt6DEYW}470>mr1$=$}JAM%8P922y#MfKt@P+5ZaURADRxs8b00x=`
z^`cV~?&s>CKY7B|=N5ufM4MnVvV%G?o8RBLDKp-*?O(!sijMyfZs;y-+k%VnZ!<~y
zF+*0T%<ErhHU-7)0FX_<DPE%Yip5m+-|8xV@QV&;fRDq-u5NRfH0?Nip&uVQ(GCH?
zzs`UsXXo#?{mUTQ_dV(X&5@3Rj_wYm9|<Vj2ar_N0vBVH#DRFz_}2rtvK}vlLo7xm
zNmKVJY`!n!up&L(JRJj;gT&|`h&mv=xK<m~Z_vKI0s>!HSjY_h24EmE80G2FOA+M0
zW{nuipm7^G?=*6or#bB~F}Rj?8QxCv2F?J;$k+b<Jyso|%~JvK33TeTSjQPD#10Al
zB=OkQIPv`1)iYnfWE2I{Ts-6I=h-Iqn`3yg(JZQTjS)(*pluDuHnXX|IYpQoVrx$N
zP=}lWuO}eeM2JkN{fQ|>gn$K_<3|jIh$ppXhD!po^J|uis;d3gc_k)eGQrE{X?1tv
z?+mDn+kZT^IS(#sev!m8o;cZxl>S<6r$3lv7!n8s4d$5W)L%z@K9vCBPN5sp&WSpy
zW<U}4Ur*2<gS5pEi2@OW0MrB!gZ0jA+>|0toY&5|Yw7HzIQ?NPi4h#2xlF-ih2S#l
zui*iIdXsl0OeV%5G!*RmMG`1utrAwCE}gW*NJ;`vAgHQI-n23jet?RQy<j?mmeayi
zmDb8a!^NP#;!Kf|V%icKeI6B@p9nI%O5Z6|upu`*T*Q0(1k9fnleho6tw+)Sdq8pl
z9%z@MMt~q6l_UckR9c*H_N{shA7NoBi8n@J{94&Ci!Z_jYY)#5)T$d-DeywjTS8mV
zbd4LUgbhqsQIb)E>X~Wm1r@=AsXoL_6#ymXVP(OXTpq)q-gWa5$6;<voxyRSPQD3m
zPm*OLEvoP4Wh(x#1X7M0t?Xo(9XfQD*rMT>gI63@^rZylk)~7$zgqYQHB2O5PQVla
zh1hA<<HE+e3)9L<KH^GBde1wtHLhcZj)$)=Ogo;y5ifz96V&M=<#uu@1z4@5{hM4B
zb}b+=?UH<Z3w3}!N8{__0P=kquzY&S8B{T$`XN(VKqzh-z0XnM{j6)&l@DehJR_sO
zL(%wIoK|4!i7j=hUaC^8H}GEM76#Z0C*T1VmEq~*^OO<HmEyo5V`}eYgNzpV|EV4l
zMJqPp^GMc=1Z@ap2N3{)tssm81e)p6$9iw_bCcVM!5FCHYKaIP^!{(&Asc<-rLB!+
zI74w4h)D>so%pTwB$NRC%A5oNU4dX*s5wliW`dejK~pwC+F8)fiIkV{4<x+<Ad*}*
zk!jxHxsrHtJvFVM=|Y0nAdP2S-1X<35V-b}s0Y>~2HT2YDR@aTVwB|b8OF*zCy$Jp
zf&nzBe;q`)P+UVS?4ZGATwYZ5?>>QtIgN=l#QYid|0Tm6K-UxSf#4e}j^DWyv~+9{
zvk9EH+Mf5xaR52E@UKO>nP@m95hLW%nu$*)BQcLpn&RbavwY0R3~@W2^wC*^i^rXQ
zd^t=6@XeS}0(c`9g*S}vNo5WM7b&Q+UW^C0tQ(yl?ja2%fCg;GFhv4gu`l56E;RrB
zv2M{u&CHwOn)U-sL>>#RF6eN7fCB*ZiAx@^J9P7($1<5x9YS_$2{e8P_%8%gcyLv~
zotY&`;YfTz)ck7Emk-7eD?!Q+iSmJ0H3JKabxF=Wb)0cV1^&84$;VpI@cx=q4T#L(
zY31P5_mo`&-gz*ov_uuk)uM<yOVWEXUJA1q9-?Ii!3HQ*eA-qefkd~fWP~g__nwkO
z5+9=>1rJgl8sBOJ-zj)x=8V(~TfB^hngxw|n^uSt4G}310P{Xh?Yo98I5>lTCk&ZI
z#DClm*u7kWHE;(GNy4_V<jDX4#gjiGX%DcR8W=C$>pHAH2^j%cB-x<uyX1uImk!(R
zEr5*9B0PhYz@{NHCJ40!_&l?|vZSOMXBCqq8SM!Ii|E$?0qxoq4bvV2C@~hADxG_q
zdy(iqgIfVni6EPe1yk<<0pZm>Kt-xREKb2Bi4|ENVbO~(@7TT_4fZF<5{K{~ClU^h
zH|@9%NiyK+e1aAYyYg(bW&4a8U8>K$CRiCe6TXf>*`QWHu+Z7}A0Vohr;GrnQ)?HL
z1hz^MDxn>n{bX#>P;z2hY=v2ZMo#+BnQFn&Oi{3Fh{IJoWKV`;n<r@IHS2imh3;R5
z_-H>B)d6skqgtw}f#gs_o}B5N_!SdTNk;!)HyQMT-%fgZtpw|Tkt6<*@LC}1axw;m
zaR7AyDRJp+zpcT}lZI@F=mX-ETKqjsvz6L2vzSPR>K92YmtYv66P4bSZXAsBW_kR+
z2yR35$O-HKe@5fh%qks05Kd<M>wQpY`@MBqB$i>yafeI;326Gk2qV0nw9FUkNVy<-
zMfIv+xeY+9@{;+zN%A0F0~k^=?3B>>psT-UKeGjAi$^ihm{d?9nL3AD7~)CdJA`eg
zmR9iKS4^D4Q(}_DUWr#0gjOpcl4a>+4!pV-V8x0QAPUFl07>&vTKv*E0fl*scxO<j
zLL^Vfdq_(Mkth&x#WL7HdzuZI{8!ljE@gQ+$I^K?%rT|5yh3W3dP6z!uWr0Bacq|g
z;o<N%MoE%+T59;~uChd_I7PBTv>d0c(ccg|Po6O0F8$LdKY4YZfSjT2=Ep6U^X$_w
zK`IuAC$VK=&CqfQd91gQC+9s#Ek*volwS%;VlLHC`8!W5lXDcE9qipw*rKnmuaZTg
zK2Aazz?(HFh5?4}C0GUtd6<J654%+bc3a}p2vq_%Y&+P%0uvM^vb5lBC>UihcX1$U
zGwVfA6EKp&Q}LGcg=<tMwmt7*=Gag6c(JaTnc0b(-&|#j5_nRz$dV={%6w>IN<xX9
zoFDp`s;xr<&D7DWK^mWkd7dA;?+$e;@@b$aS}Hen*0Fy4D@*j>^<O+nd`Q<wDWyv;
z;UCF`k@vCa^#YrYbGBQ`R7+E}5eF_2PJvCWhwT}rh_RE&P<X0!WJCdC503LzrTbF~
z?^N~{s@#H?-(?UarcoI=gz%*X$!dMc?A>l^YNehT!w7Qq1xi?MU&=c7GFtcyq11j0
z+p~rO6m8)!%Qi1KH_;$)V^`7dO7nD-?a?aW&WiCNpm@*!_&GTe$71&}&QBzWWA9U#
z|7W%FGBHJcm^ldLM2!sJ4IpsM1ug|7a^<uoLTFNvRsn;LqmpFmNz~9N;1R|F5`d?8
zM{V~V&V<J)56xK=lJRx-lL&n^r>0b~Rx57QEYEf#0zSz{27Zk1K>u0>VLegrRrZ+l
zC0SG-{oUL5PYglf{fG&&LE0p^gY$lvulaQFsbUEL1&x}*?gvr<YunKaCOKNXyBzTl
zW|n!QNf?yqw;H;0Nqq4m0S!Wo%!?yCJKm6$x`1pbH}Pd72)wrCpUyoc{(g}FsE}$9
z#QoBxwy@6*Ev9y5Cw46>`%k_Lh_g_~BoC5Q;Mv>&a!LFX3D!*phsVAOHTNzb@d@g4
z6Itz2glOUgu4A{PKah))g)I&{#t#8Huqjv!A;1aB2LJ5svp^CEEwXClO8n?|qR-1<
z5!uLjKSFRLCy)#%J}88x2>@x(tnmRsi%>;;ML_;G2%r*EoHa<fGo=uCSmSS*6-+pn
z%ytybM10FkJe1xtg1kBqrIXU&tHuAq*Cqcy;Ol8_ZQ~%o75h{j5!w>>yVZT4%N@me
z8smlPk|-E3u3ED}p{{!YIzAXa$q=^G8K~8HKj^73c2iF>;A1yzEHajqds<@#g%|$#
zEq?xs1vtzTMq*QWc?9mB%6^tD#u-ZX!N2k9L0IjO0|1QwUbh1uk11kT;Rs-cI^j2t
zt)aJwf-)WiKH1IyfOYq{9o=;;HCg>%S^!Uz+=;WG|84-#Hd!RoP)W^7CO6l;LNIc4
z%mq>x1#r6`DLqG8Ip8KTMzJ5y5?(KugC22hkJ}kh(K>`IGQCtc(ZCT7cyPnvhCqvq
zl~ExrRVyfD3FZV4E3fwJ4wYvjF2prE3X$mZvCa4H-ycE&oW?i+Pg*6^H8@fo3y8Y(
zi$NL-H@6~cMHF^%b8BMH7Es3yCf_^}0-)#h%$_Q}SVSZ$2v2*QUYD3HA%EtvpSlj-
ztRFz;5uSDvyc!R(V~7i~|7c-V!X2&<epWse{2GK!bvHj}oxGzY_iCg%Wk<TOP<sBZ
ztS<VS_*jB@AVLY;PZl0M6LHYMQ7EyXT`?vWS<@H^F^J3zi3p^<ayVIev_Jg?nbgM-
znJ|20e|QQDSoHRrx-140=>qgF*O6iEg99BBz2Wo@L@YxL_`>iqZ?X-rz~Omy9(;^F
zG!op7b2l#~)L(45d-pDJ@LT|(9S;b60Q7-b+f)K7S)wK-etj2P_PB+^A;=IQE;-Ye
zQTjk`B??V&cBk8ZGFT3iCu(_~#tD+vRYaK>=$8$F)s|FLD5I$4#yx^?FRyIDctylv
zmR?^;qi^d^r@o4@t5<d&qu#PsYz?zwt=AtiT=B&*fmxRgjHB*#q@}a%h-9-dtm7$c
zc6MyB9=Y!?Qlq3&YVc9(!L7jPWIw+{PeuM&w?XfUb8A+I$Q;)#i~F~N9Qw@vuI%gP
z^eygbx2SL`5a?@n=;aAp6nK2N7-?B|N-4W1a7z)Gx9^Ad)Q|a}KEr-%L`+@QFSsP@
zJ|R%V!Qk@IsmWa}r+n^QY;Ia<sHmtgj(*l?-kF)80plw(?8IVd(e}XY%pi#}lX|gn
zk3rDSiu`>G@){Z%e&4e{>yDbAIB_B(DoQt}^jf}+(zU1Uf@0MEnzO~d61lOn4eDIG
zpHm0bPp_*#7d@KPzDGW7<o@-OvzChL3tM}bWB&ZHBU)^kemQD(t<4fYi^)po*WHQ?
z^N%aMehSKtSh@7Zt$So=V7Hfr#e39F<!r9=Pu^KwhTYTgA~nVPHY!$aOL&=IJ2Yyv
zI2JKe7hftTcf+!dj&9^*<*=1Y`9knZ^X{Y)Ir$rJx4O7k*3B$?F0|es_1w)jEo9Dk
zBY&|sL!!n|SXQ&Oc9#Wxc9JwTb;p`5-ez@I^JHJREc}d{o1wR_6b)3gnAyKuzu>BN
z(jv#D<zU->|2o~6817}eK`PF)*jWzMS3={H{jFc*PvyiJ9oiw{Y-pGNQ~;iXp)d5#
ze|>Zopq+<%`O8Q=2(?}Vh8fsfjcDF;Qt_+o<EvC@o={iJx4e;6+H^o;@#lH59=fW=
zM%5=HWTZVOW}adI*#0iqthNkHyG*^LFC_ksWTdtOd-JDnG`8PvC7bt@sA34Z*B;J@
z)}ANj7-qH|9IZQ^z00e!_Z1v(2psYhzHI|6xT>jX@5snVGOYJP7vtmNv=OZyeYvI$
zMFtp(s>w#QS<<DYr4_C!*BfPc`1p!Jg=#}sI*~t{$H5g;_IFY+79A!X4eovaSD|Go
zTgE4dhyvXog)@p)t!)QBC)nK5(hZu&$Gv<<FeWwD33Zx$>g6i|*uX&i!c}u^&A54Z
z3gHEI;5z}AJs5(^i<DF}sP#jvluu&Nky+!_`y=Dops~EsG+YSf!IMDw7DiDA2M02M
zXX0_#&ug!i`zcx!rfg!>*>{^d4XJfw`+6WfIEgg;7XSB$qUi$Hj|WLhhn^I`ft+t!
zs@A@}0F(K;5p`Rc4l$9eu(}f?TisDo6=K|A!N;NRlk<UsHYVhEE(r8I*{)nX8WSCT
z=*PTc?vTb9iw$$+IebLajam8zZYw`4SG-C}@;7Y6F!?#(l{ttcY*9^WoFf3@k!MD{
z`(5Tf(s$wRG<I5X1xbUBEO^jU8n8c)lJQJcN31iR=5#A^NvVQTddsh;g))**?P#w`
zpWm^6!_n{IC>+-BdFc^5d4hD~?O;fRGBWt=Z9I*5TPzj<=&=13S;s0tCLI?S*JpkH
z{P}`XQ!oO3)>c+l$-f}6a|sa}a*Jtg)GJ3I;fU?%!Ccb%+rI?kZ=A%p+9JB+1%c|@
zlKbz(zL?Xo#4Ze({p`=hm7ifN3crQT7vuZajJ>{;+VyFNte3kx?)`mQYt>xvExut(
z!}`hEg&uPl`$kV>GF`y@$rPKj$hXDBp5OeiabhN;Ag{4!^^}NIUQs#SA{iuoh|Gcy
zJg$G?=l8=R=sv^TbaoPog&Tr|9IRWh3$Q{xewAaV45)>^c{e&HzeVnKa1@DpAfKrw
z962MunIp^eJ<pNH4bNu&PIkP<PPMwB2*a^;J&D@I*X{@8{NXCbBKdBAvK`|XXEDu=
zg5~KX9i)#F;N*(&i_lJCvWv<v77N*cajyvA%2h|Dq*J1?j)F-s#nr|TKkkXruLwug
z{jLFg|4K$*a0*4v{R10Gf30h{e`Vjn?3{zyCrUL+d}8A~KJQ$*JWdhI$GBz;bZ0k*
z%lvsuYm;TUy>LO5J4p-+hU<S+3ejq;I67yQHXiWT%0I;A;KOdSm*Rm!iYs4OWifJK
z8h`|57`v0(prhtE9k1n$Nn8gQ81kp0IK*|MP8Z^3a<X657woG{Pv97^*leh=n~JKf
zt*xrQUb(vOL`*XCOcFi5g0asL$!FQ9n)osEx*Lc5m`zi9diq?0%Tj~8J3p8`orS4^
zs3RNkSr{(=_;KEB(n2;M$17sKe@+rzQrlx0AGbWm&=H}|(d1&f{iI+3&Fvfqr|iVO
z8PJ^y9={au7h|zdupMa#^)Dt?_FUlja-YlcVbHaEn~c)G{QwR$oW=Hwr)f095-gYu
z8JlVapmR0spiRae-r*#zTk~yW&MN=8^nga$o5%)nMfF)9dd!^pvwpXd8U~jB=Q1Zo
z4h|*_wY9^w*@$)GiL3SBKY1Q><GegP)2(oMc5#XjjyCAWpDZEZRll|z#ly?E3ZT0E
zp)G=3Js;{1I_sAO%KzuPqYJFsVlklLr*1*%%3{HaL*)o2o&DE}MsPruB4%uCEGFjI
zwIj@(m}5@vpbm_<I?+{_j9E|a?tq|$x-z?cSpRe9hKC<W#N<VHcU4Swkq$g|ARjwQ
z0{f<t3-y~1AT*a?=Dp-cLh_HSwj#Y7ecivtRP2-F;gH(n(;u{!e+0~Zy)XP$=A9tM
z-^~FdX`dWJOj>aVwx7Rql~&1#9UUDF<i2qc?#A&AI#6%kf0><a9~}1V*)#rcu4}v2
z($Agx37xu^qp;S^oOwrKpA&;I{8L{=U*_aEyqn$<?G`>&VUvG6E<V2d-fqo3wbp>7
zsp{(LCcv#x$EI{O`5WF@e!}?8+npcGw+?bJv)&;6nXEG0x$Udb@Fo4y_1F?DSPE+e
z@ElIBRg)PKF|$|G7tu;wU%!u6gqD_e0->Xb46uX(!)M0@{sVBIOR_>ZckE%+dH^XN
zw@Ja$%$f$iz<qAjPn*{po-fFW(8%KLm;LfbySqDzIT7daJM?1YzyR1W0U<IAi59Au
zp!XKX8`)D(8M5kPp;NpwITBD>_)2&>mLHuG-Csqwj#y-kIgL3y!e$Pul(4a}fsNKD
zjESP9q9S!<w_wNoh4<6#2<XKyq1YXU$hCpT!{!(dh1ipSzBzU8@7ROo?FB{Ao4)+P
z!9j9!wQ>An#6%f?|BE{jiHV7gvgDZ9hF6^bBC8GT#q0}HfY_nO0~T2c9Gk+vT#HCf
z<|GlgSY)|d<SZz<04>d%dD4e=1gM)!f?Z=lF~J>kdBf$8a+ls-m&e)F2nY0%%NyiW
zu?~^3v5*<os#)f`$$TO9O-9x^A}x!jq#^(*wnbE)5i(io3|Su}t(P%++_=~%yg{#d
zM)%X`QgbV<PZRe{mLPp<&iSw#f_jVg#?dk^edAFJO$)Y7)CTA7<l_hE3vOgwd4C&6
z-fT{X(2Hr=69Z^1Chrz@&@$ubWLBk<$*D?tuYJz=exY4o$Zp(k&+P1Max`~^Ef0is
z0a0SkbYu_k+;5V3-~xZ=-A0^mFR>Nc=Zg4>^hFk%Y*7JiN~~$1$ra2_fYkX27M{*P
zbrcm9F)TLjrOgMV?eKJDc-TwpXV>nDWM8MFP!aCgvSkY=_Vpa#H5$^lm9e-2c~)dh
zVxkXrBoD?d&d+^1EKG$8*W1m_jUNpwBz+i6tEi}5pA%Q2ZF&>=|3m@yI90M;^~77J
z{s1WycW{EBYthgXwX(9@EH5N_6%$tEHD2_k1xY_~*)-pE!@$5p+Nzv))+%8?9h+|4
ztDP*YtU9*0oU)P=*?FIahhB`0kN3>}!zo=+`K-#`L1urbm?U}(7t3r4i*}bP$TDB!
z3c5X(l{Nh_LdSUTCYDE7JA0I0R949FRMjcF-Ij{P-AOrUKO2-TcM~H_lO<$EcxTg;
zb}uO=zD9}izCmxPnMXG!+S0(#kaFgdl9G~}fz&G$=pB<S+>O-sG{TOymqIfT@>lL{
zkIc`{?^qIOOzJ#t2?paHNnW}Gb$lKyEG+m5Rl=&890tkPzWCXq<w@uJ=SNHqi47%v
zlM_Lej)#ELWR@?1pzuXXQ%rJBjC?vJjk>fi8EFAT<sKX8Y_9}cp+R6`^`*i4n&(0u
zmJDpiWYRWVz}CiEO)V*`v?o1C#de7Dixb-ae3G0-3|ovW5IQCh{Q2@1+s2Bb0yOub
z#A2OuNztWiL;fXziJPs)q1`a*eE=%)FqwiIhzU?h%hr*+jY`x@8Mjf}WgY%zeB;Ig
z4D;E!$b2z2Cr1!mN8Jd=<CHJ?EzQl^I=4b=W_p{dtGCN5<&`_lquWMN=7yz}74=Ey
z96n<fQJ$z&oR$4YzUn8k%1oGiLO%|}WV7(3hP;ODgc$C`I^QM_8RNp0D@R|Vbh<s3
z>Q74>6>`_b9Z)W(x%@YwBf155Gv2-xOV4%+UaU7YVpHIWdQ{r8DW8|mM7k!7@*r|$
z%9)^a%AB|9=|%B%Eg}Unca|$U&qv|m^!fe)<qAisgC^qG3MJELq!5d3Vcy=}qKaGY
zSV4D$`rN`|(lx^jc!szbrrOh_wu#VG1|2^PlztcKYqdYyx~p`?V6M3#e-{WGFG$Oa
zNhAY);)$@YTHx%|3P9Bi17(UxUWZ%l0m2Y3#sRb&sq_YI@NyH#4EbTSvkho4>I5qE
z16Zo#UJ9O+Gu2PG`a~rmCLHE_(1)Layf4I>j$t)Ixt&`~-O1htPDBlzju$dwd>&s?
zA_$M)+WHAX!0sms7aky^nz_^>A^hVJ$-dQ5cygk*;kv1*FBxbmJokQU5t-)#c+4Au
z;gG~F)=J_lLNf>H=g+B|e_^7cG6Q&81k`z1TSVMo+U8=|z^D(m_x;hqL60L}Ee?gr
zDuo5l4jG;p9F$VZMAbz}Uy!99w=g_9>eFg+vuu~Wu^vM}oGV|%xPwW0Jgd?gQ^frD
z!mQaj3e(NQc$LIIoT5jzx}oN+3X1Kw(t0*EZFg~$_5N-(t)y~Ax>RP$1WINVUp0CT
z{D`hyNaV=Y8(Hcm8T@)SyP;}BRtr`B@KiQ312a-F?M8m=?ymV#NQ>~)R8$i~S}WPt
z*O<D1#CUT6Cy{I+I2RqDi7o1V*8yypp>PsIs6-R)>bXd^keE@Z&p!-ZY8?y8($BbK
z^+WJH$?2|cR!A+V-hC=PjVZES^U89ptW#Wr6A&cd#}`g8J7bd-0h{b@=~$kzHWcdi
zI^GrB@l&s|z|hdJo22X{kvBt&R1wavZDV$o4%XSLdn$$&ZK9R_bd{urOEXYP4kO~7
z7qTQnad!tTHj^_9+^Ow&hXHT!YFxz(sEF+B6C}YW31>#m^8WU5H}^)G@xN;;>TiON
zB8RIwVvm#Nr{%mcCsQ%8R-C9pv&MUa7LX}z$*jL<WGF#v_x%wS)w;gwwq`5@#qs5Y
zK5jQ|W;E)4pyc?p@$mC)yEQE3$-$2C3*GoP0vQ(JG}(=Yfe+R$xJ-)mI;Dk~)|MAq
z*(}OTgt(T-CnYhW!wMobYAPy{_))OXs%}v`TUmjo?qJH>#!IP8u5Dc2dSahQ{(@*a
zVdFAuGeJ@yXJnbhcn7{0RP%+c^@dAhE6b*iy~i<6CT~C{IH_ZD#lhhEb$54n*lruy
zETMBM<J*#2Z<C4P`Kooy|43~cN9QLml7gD!GNP-eJDmirm0~Wc5?}nVO^yh;>O08;
zD_UExNw8m;$L--jC5m&tA1e~Q*{e@cWMxvM8-lzMn@u4JeIMy!LJ~R)ck^kju`7Km
za?d$kx-DgTCp%)KK1qbk>M!XRLJ>G=+p*Zb8@<>=<h&*B-w=zncRusXN=R6$5m{1@
z4&q`;#Ed#y9C;CGX;wKx)PCi9l<fsCCn-g%167F#;+%hTbF+J6vRz6>s0A!Biok=d
zR^gZzdl**h>6tj4@ywt0?I{zVvrczoJ1B1ouk_F>nMq+}SWB=~vDe-m4eAy$n1#Se
zhlh-VKc5N%9B-;yH|Zt=xGp03^+&7S7HU*fn6!M21P6IFwf!s8S}WAJ=Fz=%&nx@j
zQ>ODOeM63Cgx2|9)Z0g94iRF@x-qzYDq1z=nj|@PNK6UQEJ#dTtuFa{19iGY=@;a3
zVK^p#=@S1L=%bdmQ&Ax>?pG`qRQO1s5GpD(ElT7f8QlMM2Kz$?ygetny!kOEq6>T0
z{y9>Ki6{;y=6qByPjuCg^~#Egsaw@4t$P)1+vBfd9mn3Nu~X=qP?!5bk38av;7V(a
zj`(8C%I?B$@dmtVd#WW+z(S8q>>$(NGe@(Bx-dPBC9@TRfMV2TgE24HUmm^C@TMoi
zklZduXd`?9NN-)p@<F$)d*exubj20}q#y3?kV}6W(wxoK9D+XX0K-D)<!;QGr?E74
z8c5=8^bd+4cjlZwG*ny+4CHKHV|wuMmrr~J^X2aDBrB@wv)rl{`f}$QQ!O3>(~!aM
zRKXIg;ETOm%GTuKL?n4x7l9W6yUw<*aIE~`m_TBGWEnJpxQdDjB2zILDn?EfWUhkk
z6F#(Y#{aZ5bCt{^Ogq0{sbpImxlPILj#U0_-)&=}v@Z+h<H!d<GbU%ewo1$R4eNfz
zcP(GPezjowcm{c+y)&+x!tDb>*FlD^dNotpT5BKdS$+UQIw0{T?$G~y@r^5^)%?7e
zSnhNJzHc#Nw1ot-ZcO5}B<E|#&+?8>$ZPO{k!e4`s|KF5GcOAh5y48fub(H#1qKG{
z4Hv8|%PT2S1Drrs<%N9;l$i#NFYcAt;)03|r_!h2Z*@L~5*#?kSyV2H%IN*HvZ|!{
z2<5svI-80h_9Uf*Hx50#3<RyzD+@_0`#P}1*DrQ7y;?T7qtW!@kM@M53e|H?PELwS
zN+VyDSjp4zxC&ndGxTp4lL(xUkZ`BD{wdX4mz7zUjv)puHa0c_;E@l$fxBVsioxe=
zTnPCppAgRW?pD8fS{g%@aNXRzyhXrx{~ZrWzz-d9gb*7LN#?=j8PgSBgkwH2L~ER@
zfk0c-Ey{V49p`^szka<j{Mq`H1d=WgESbPPSZN1Qhgn)%pA`-p8yFyUup??6a<+*f
zI|ik3NO&rIYauG!UG$5M#U2wKm*ia1-Y359|798fq=jU1D1sh9E_eKb;K*A|UoE_)
zSvgO`R89!iWJ={jP{@k~c*N(m7OGthj-K5@(nxif-J2l`oy`fsqq41ZXy37VGR0K@
z$EP+{!#c8Tg_)X@u;!&pdyx)kK8G#DI{FUHZwrWy#<N+l1;}fgUW`Zb01JEE<%_Sf
zvINL;0akkC%aJliVR~|k;8R5RMd(xX{PXLl4*$j`(G}t)L1!1)-=c+X5K@2T|L{)|
z6TfG>?g;(ZDZJn*7BXFv6SGnHF_6$RyA7{Mau#wAaeiE^HC{V>^w*7ueNwL1z13w-
zv??R`%e5|SKAEZv%46Hk{xTS4eDcdj^q+7KUh$8lGSz(SVPkD=GCOgGL}hLNRT0`l
z193{*0$j!B!3nnCtfpYm>iA69YV*WU<wBXytW1k*1I`qAdR;E$pGW@v_lR;htK%D&
zxsvwpXsT4dJj!J){qpoRinRyGM|XW2m*D9kS+k0MF|Pj0lP}k}svuz-<)Ya0$EvC6
zxp0(|<^dG%wvC%?C2#Xk?w8rA>)q}D^Jn>eg&UbxZ!E>RBfsdmQ)gDOGZ-C9{gO`p
z_e=aAz8C&I>@QTo$L%Jya5v619|FY_S_tdG9SCg^0F4Tyj@7OiPM8E;3|)RkP8kXO
z8)z-Rx`wTqaa_@lVpy%GFl;ubVF^p?0rp-Y5V<Zu>RuqtBzS|{21fcO=RfzDFTt?{
ze~vx5NHwm<6$B~JSsI7oWKK-nxQ=rQe}KNZW4JN`mpT<e`r+UxOv-}Ib9QLq*gt09
zkmI4cD*Ar+E=v3F_M)Pq%<&JD1i$x!py4c{7Qhf59v<j+yyjZ_gn@YybxpxRvy4|T
z3t!P77jQ~yc-Mm-%$H=)p5)#{$|;Lqy6nPawLf!#kqTuP8W@zQ5+I1;)I=oSXqjMA
z3=HTDDTs-W-#>2cJd+w$C<}9%IUFQAWn^SHbxWR*a7knS`2fJ_1&tM884plZ-}co_
zZHh@qXd7Lar?vHAjE#wLm%ioM9+gmub710`@Fa8aC^>z^!=18nrh-y*(!UuVzqi}(
zsAX08TbaVgU#@MM$vPNzN%Eq+e6re9P`RGNbXE?{e?l=?_N~8hn6{q4b^kbBq#w7o
zwERSFBNbH`PVn_<3CIp-S|J9qdaapvVl;noH1LF#fnz77mOBuIk;D}j*dck7^N3}x
z5dp6Y_}HLzLx-FOEv=x|47(u#Hu8$;@<z3Szlc4Hh{W;mS<zI`JlC*o{5rFOP?Q{^
z>_^JsQg2WU$(yI2NTKejrS4CSO5w^bk&}(xOfP(rMXN<WpOrUXHPl|}08$LPbu+pq
zOK<vB)d-S-y1)&;V4)ymNxkf#!@$GMEoLn?CS0>?6Q(LL%)~U!_`Wx;8#v()<-|Iz
z;Az8#C*jYkV-phC8ugKi?~P*)!IHS`6kVS9wHt?e>5tr{Epn32fL=Jy_SJX%z0Orb
zJlmPo)*Gm2=6ApI+K?7kwYJhAzZ`c>SJ2X;M>6lS8@xdWO}#D`!17(_Tat5xxZ4*3
zzmp`=5>VmMFO#W$HG{S72<a;7X5y<<&fepCpCm*Us@9kqE==iN$V~f}7GNN6)DWq^
zj*q}0QZtj&=p<%WPC%Vk1kR?d&l)BO^rm*DYMX?4flKxGH!jb$zFkVojE`rH2n(%w
z@$%(CuH=!12J?^*-MDCOr2X%^`2tG)aRa{en6Fzbdu6n68;C={vvJrwx3_%z>u>qP
zQYv9s&-WIkJNqO}`0R|Wud&#-1srm63bl+HPHSrDliXK1y&wpH!F*cv(xs+JnR|GN
zl-#}%_C9;H_}9`SNna@#Rarzr@P0?tGmklgYA8h4)oN1lrT2a_Y>KoAB!uh(NNS<=
z+IFPpLKiSE@V2j&rKQ;U(wTy{VFSZn+~wwVxSjGZ`lM}a;uh3_GKeWHrrV^aM-Ohg
zkF|2ow?iiQVx2yK4I>uIGHa`-!9WzpBh$@gV(f#Zin7e8b8Z(KrRT9#PwCd+I<Iql
z)t8Zwh`T@m{rDb@`F5vhwxeoz;cHrxb}3gCJbIhm%R8mQ8+sugEs>KMn6hdQNdG4%
zEsf`LTs1ed($%Gqj{zlEC=Su?Eszvl`cVIN-5i{#hizPtr-lMkp%~8O*5#m@Xt)Vt
zW6T@&Va32G&I@noKxuPOds4iXL<tHvsW{|qAKM_Y<A#aBF-DcsPJp=)VG7^={sDvh
z@F38n$h^H^Wx#<lgs%{a-1!3=ZQx8%sEQOq?2{`;*D5!0Y+LM}_c>OX=q{<vL^)!^
z(y9SO7n$zi{PBAnQ})9^Y`n)D`vfNd26HyItehBY!>8<ezk%LM*7?U{ARu5&3$f1y
z=k!*uz*>&w>^KoG_>i|}U|2<A!6-KOrK}+D+XZfT1vsURjRd9~*k1L-x`s60kg#n|
zCX?t=^+7z}`o^BTnCmS`@pn0Cj=}|Pte<-)=R=w`6%-U!^GIx^V^F~EBlfvu*4+$l
z+bY0|+MVP*5{Dk|H5ypGB0(nVHDd%Vht<QPYXjPVt;<4%aw?0-ttRvzKCb?|N|OIl
z$Qi{3-q}sQx?;1Md7xtXzcyQ7DJ2Kdsb?qCmh0vg9{UDN2_QKK((CSya}pfG`5E>5
z+}>UmMY1eSGizMmue!|dly|UUS57lNVzXELcy@YXD-#7p%T<rn_441j)&GC;OypLs
z<skQQ;5p`$8pXwVBp!&<KT_M!AfbCJRE?E|LCeivDhgZ<R~=7FYk=W(ckkcKz{|vU
z`NJ^@-acHl3M|NDKqXXq`};p)6%~rA{`z%WQ^QQqm`Cg2k6MLIPI-O3YC|s<>$r9*
zGT`)+SBR;c8SKAM6)cBndTpP>>?Qd}i3K`nGb<Wza11qykyh~~JgZ^qjDItiqQVKV
zbn6yhzm{%@wS(NWpfBTwTuiZB;tZGKMfjrn<9k3xfOspYsAQ<oq*6r6W>+xmV1NAO
zNzUB^{$H+Hdxla@2NmVlG%6g(5e>Vi6+AGM^DSSxbD6DH|JkzpuH;3>P_e1@up7fU
za<VsuENq1JYOdQ1nAzAGpN&jCOi?ZSF30n8-(*#FbxNBqS4c>#hw5cDwS$@?LW=A)
zZ6R^OYL_oF#AzPS2L7yA?ps|~N1e2*F(CPdLfnE8z+jnsK23><inOV)ndtvt4+@@Y
z?h9{HQ;+lR>`#q;c~I#v1rC%dr7Qi2ayBGefU;S_x+eYQ9}T7ktpAC_S3R6;{AqVF
zrZO>++eyW6GOImaiFx6&82zS^()#*(a)&}fLe?!BnaVbt>p`dTF5y>gCEy+e#Of&C
z`J7jnS?ywcqxO3~#DA4<|6TI@_r0L_KN_wTb+agsq(it~$d=K%eO1GPw3hSghr71L
zg6&j<b~ED5DK%LY37}+S`KAHRn_z3%;P6M)@*V9UBsmG=5T8t#w!Msw)(dFiB}eVM
zQ;~WeZrCIw=K<j_ctL2oHWMvN-DL17l$R}L@78SiggLi5=*h`xO<z5#*R$}f8G}<7
z9TbM`GwB(Hz%*&0AS0?WxYqfUvgaJdaYypsWQaaB3|h#0QLOdHAP|UK5;EHNQBl1L
zvA&#CJTx@atubb=0uI1sWhtlZ_Zu8U-T;S_h`c<ZUq#vNQW~pTc`7QxOls);dc8Z3
zJX~kNkb{VTNLQRUm@TtRcyV|KP-A4L?5W1&O<mu|9JN_f_!Wd7mCKgPl!T3SclYt}
z!8z>YmKN1IgI0=elAFCR{`=(kySZ;0L^9hh^C~HcH~8!f*)}~rEid3`o3!|UAgrr<
zMDMM<#>JWYF25|JUSc+0_ehKw1Y8l(a$zHNRUr|4;eaPUbI**XqLy_j9)%`p&qtE#
zhI45M>7_Q^PAYF!F(^f%tEi%~dpI?Pi~3cs(7t{9Hq8X_-m^FAH{cLuic)|()tgEb
zedGuLK$%m>NqK4^vg;_O%O7Xpz0cv)bi#6EbhN$GH6svn)&YQ`-;8BW6^VJl;d5C_
z9ovGK@6V{1Yb%a%a<NcOwVI9ZKiH8TzM0zptc;AYm{J|@Y|p;?5-J`uy4J&YKNOD*
z&3HR{EWCDZ%U`!RZ2$3-;yTGX?~ex;n}sK-tJ;sno?PdDDmo$&1<R;`N5#(RpoEsB
zZ;M7MZNgL<0|Tikde_Eucp0L-XsDCoO^=9*N6D*b)C^@Bf37PEf2pYw?crf6Evoar
zp|{=JJ9f}wrSssX8G)<5LOKdI_RH5A6;-s}RNi>0xm%;H4Jyq!7EtO!ymfW21_OoO
z+^D?mG%AwItmHJ>R_yS#K3l<j_>YI|v47cScv&}cshAwdYSof`YIDe)xhLI5xs93L
zi(hx~rDM&N#&rQtbME?;j;6YBJ9irPu)q8s*J16bSTHhY9w2W%O}}t0>->>CY28|{
zyqH#{C+gx$pCGd+5t4Ps|B%Ho&CU;)ve|58;>%7HULG+XTm83mry1XjkyMwg(j!?G
zhh<r9Hi~L@dUcm*ocTh_ukG8`mDc3=?(TKrD`&DwDO}q$S^j7Toh>Hz2_7hoeO#zs
zme~z-b$kByZD*TF$F$d0eh_+_gq2aBqZg~KGn<s&V#wFU#6WBp!Udu9vTQ7tjD+aN
zUMh^yF!4g`w0~AaH89`)y|=JAQp)KWsv~1#nUU6@3M10etWxF&2?Z&wpnd^I>n6r<
zLtx+#oqNOB*xSd4TV{Mh1+27?%SlK0H7N*ezdls?81v1Jx5+mH*Dgd8GXsM*m=&SE
zwKq_BcTCDelhas5<=G*xg?N0Tsh{Ebt$o*`0DDwfn6yBqx}P_)Z@+?Cd~7VyBe=U?
zH#BS+J>|`a!(UZ#X~pzG)V#VWhVi<)mmk#Ea!UI-dBoUm%bItXcC}^<<mo{MZM51s
zRoq&HHVJe#`eI7bN6-RMj4m5W;rgm7`57(O3_2(9M+y#pnO1>*y~3081r^s?+uA|~
zg&{T)6EkpVt=77$!@DJY^f=~b@_uV$C@&ta@B8z{sD+J_akR!W-=?++bq;(ly^^gu
zmt)P9Hy1f?T*LjYJXeUOiu`X}YV0O6P=4A4H2n&*S0Wj{l><iw5&^)f%~Bz$7-GOZ
zfUBXB1aTqAN3X@4LBv56$M#@l9%Q&6JpY|w{CK>dtQs^Lj@xt-y_f2nE2qgb1;(#~
zP&=A73M@_=t$7poI2^<KG0_o!j`%B<y@%#8Ws$>a;CwP9JFD~(+Lc;*C&1aR>TGTg
znFPruCV9GT{vA%E{GPe;F=&IEUKL@Gz8G8Z5#0pl+PLG;C-gAT6FKR7%E*yTzust%
zyW+ZBDk{SBTT}=fCPH6YO?|Z9aH50I&uH~LdZBpn_=Z&jk9VVI|1SZ1N%<CxjJpu?
z)=MsnLSFkEpAQNo9JzD%UFPnm)GM$Mjvq~=izviFjTM2Bmh1J9>Ly$l#Hox73^3wc
zrCUqY<!?9=nG2!mur0cNlyY#`2r!{3GcNPnZAu0P@Pt0@1xqajY!>2CX0Ti=B&RDC
z712i1fE^^8j|k>$(Q}HQ1`Ef!=-|Q(R%XUAlu$50Bv#)%qhQJSClM)%iP3=OGef^^
z0Jiz6oSdK=?(PISF#CFX1KIs^#V$XKRUxIs6e%JWQ64pyA{%G|ZJxXg4Cr>-2QFjv
zny}W2w(zw=x<<}z8jCW{9<~^<d{Azy%nub6QL7F^y+<yUK)I+;IMEP02mNQCdB6^8
z>Y{UN-V9NVk1`;_AU^o#xe;ciucIgNl_IQ&?H5kMRa~K^4@h%M4Z(;E79Al@A~YW-
zWc9T(jS!)va?CaxCe_YlL0%FnO!Q~?8dCV$f(C#Tp>%Mzepo_xkO4J@!@_gmp9YIR
zf#25F^g%|07l&I!H!;V-2d<q7EbXzM(M4f|cLHl`zwjLR1il8WW4}<=V;(y)3Bw+5
z;82a|C{t)TNU`~;h{$T%|NkPxReG93VNJ542^eF;^M^poTq+7DHqhKWB^#y?EzNAf
z6E*oXBbNzEG|0&J2$)|Bif0a)h2}mP@^m1|Y&OhHsZf2)(4-Q6oP1aGZ-K~HmH4)Q
z*0XA&m9BJ_9x_uy1Wo0D-MdDwfs{T}l0yR)V6Al%qb+^-yWEKe&fUEsZ`6wX%LUvu
z65la6*yg9Gj!w79gs`Al*QZcncxb4S7eKSOP~R|g&#bsa3$(EUF!DseeggA~MqOPX
zh54=GB+yX2nXDERTg?go>G|K*J>*VEu_Ez9M%P6Y?nKo`$W@|@L90#?0m+0LhM?%H
zxgcnKKXg?flv;5jUX^L<=TnQV_Dke9NF(kl-HFpExk1yRkdXDTn#<7%bDG(En|(p$
zweT2X9MOAP+Sn8yxKFd4e0!CVl|FR*PmL*4!Wn}S<)w3;>m-CWfrmM@Ke-dAJQr-f
z7Yq(ZzVedTHwW8#S{$d|B=!+DJCMgv8SCaif5ghd`sVH{zIVd81BE@!Xg2%5uYFe9
zgO>|+CmIw&g%UXw_+cWC(1GP5CzumF1-cI=n^<R-iQw1q`$75#K;VeFoc`yx4NP&4
zeVd~zN$(C(*|m*mK@CARDs|3qi1O>DEF{u%Uu2!P6S$fn{FoR<OL%9S+-_QOJNz>}
zm$$sFWDMD`#aio74^51!)97H|slqww#=6Q|4C~wV{VHxzTsiXl@yVT7#l3M)hpkqw
z-lyF~HgMRGm9=$|19T#^_CD(<cYTtVpym0x-BbI8(^;d@X(F;AEJIcqAjyeU5ojaV
z2IFH+gp24Cp3Ne+{(Uh~)ezR^Wkf{o+C>!jT^MTDI?9Fpehs{PL8aD3v^r8j+~*0D
zUei|w+GjH1JqGEARNh+7M!F3aG@GN|PhIlrz7n%Jy*@rMn}rY>!VSiN*pmQJ>uxFa
z$P>XrRJW`WC*(Eu4{`)`i2221t&Xj4>4ThRH&FXR>ju~cm39N&q*DyJqvW+jAX-=}
z_!uT;MOPZPnwPRc36h`u=beG$%zdZtv;{~CY}jWMhW~o(`KkXQ(fRMUg{Ky!O9Zx2
zZ00#=tH2I!n9wINFMT|)S_*-N)51*oM!^s{Fc7!f`??`g@$p5g2MVGt=mFUDzO3c?
zDtwTEv^WsCERdpNqHcpdi3bdtuS2j%*m)Dg>ACuhd}`8PF%0Q4)9AIu^)-DB`7>$c
z)_TzionX)Ik08=w29PUZD?j@($)_WjF#S@$gf6{z2x>4~pBXefWbwVkJ%ybhnk5es
zl^)?Sj%s9c6IJ=#yA8r$4VV6>;*WpiZA}FFUtq8hwMw9%mz9Xv2`RESyT#~@(BHlM
zd!+6RSiD)05WVpx%?B4HygcDsOmsJUgzPO5+{F<uNW0Pm_K;90+;vIE2GI`c?!T%$
zyktiBMiPoi!w{@Qt^PXE$XPgOfj-!YM4LRrzgRm23i~IcgH1e$ULDV8FVR8JOVF5!
z)z;Uah1%pK*mg5yBb&`s^0q`*Mn3<&>aV|X!rDKgeKTyMB>#qHEL{BcFA6vH(6$nc
zFnDHaVp8D(P7E@3a<?5VEG(9Z63%QBYf8w#r0H_6>5uaA@_DqB?{su*&$XNH?d|=E
zr>gm#WrL~2qB^#2J~RX!t*y_saB?OUtEs6?f?CyH{nzH^%Mk{iM8miGdx!{uV<^O?
z=fL}aTzxZ~{bSRrkQFWC!&hK>U!NB4boddQQwu{AX&%$rbOwSg`pNaQ26tkukUh^6
z{T_KY!dFNsc77X?_64I^N%Wp8aH`-bKo+t3%4loa6Ct(XRe>-L>-N=u!g^y7wJNO9
z3Pb!En3uNeytlhV?yA}5-n6XvunoplTE3FP8=9ME7Nlzg<Xplw-r(O*(q}W8$`RXl
z3W$8q3f=YxkFjCkG4#N_F-qddh&y5y;x=+2u)4QPjpmzsppbQYov7`Ag8~USMAYQq
z*Ys_`B3Enw@f31#SYO|Nn;wGB*thPDxnnSoEGXB(DWcDPB|K{fFaQUiCPco1PyT<m
z&e%&oem@lyx$^RT?PUdp9cV|?5)*@xXIEajc2f`?(LRV_t38LlEvM{xfFO%xaod%t
zhCXzR?W79s3uT+-Q(Ld|V)3|S-{~bMz33jA>kdxQ1NbjKA9nS*3VnKtVW~fJhu?Or
zEYA`OkR-6ki=XB^KMl15C!Bh4(MSU}v8VQ2TX`t@_uiCj4`Uo2P;H{iBEM1>TMRfu
z=~K4-e$Un$3<>mT3f^!17h)07xBE^*^N-R&zm<me5D6Zu9y5xS^^B*w{#X~F%w`hB
zzz}665v#a?R!!X?AUv%uu0~w<1XpoXVPgF{+JrPKx4~K`TG`}Lt{M+YY8yGjy6kW3
z86sTIyWjm@PX9c2qu<@v--Q;Io<FuY)9y42Cm!GLy}kJkTj?wn?pCBK7iE76GA|jR
z5!exb;gzVSCLP5KaPI8hrT#{2-T0U{`@bHLe$G#YDOPDz&(41t$hL4xGv9REHOzTo
zBL(#HKf{%~&3Pn-6fTVXW2pQ3yzz@?&FfFKU0-`?Q96dz_@7h4VNPOVVi!LM*nTlV
zZ}A@#xqy{Y_B-iTpw2Rb{iGvgJ9Dr^8Ha}GT}#XUectOa`|us)YgLIFf*5D%a6<7u
z&-Jeq6gNkjc|33Yn4DZgL2T*$18H>C|A~UgV0?BqDP;r-1`5}2->!I4uHCD$md~gE
z5d*oR=g`(vJUW<+i$*nj1r9Y|ho*4?>``R#7yM}H!KPblkcPSGr(rDA7|Y0)UaxC!
zkM{M(TR71V{PPb5tWWwIlIZbIM?5QK4112Uv5DK+2~d!kF>~1NNYmHTh&a<2r0s+I
zk-M*N20w$M6pa)8BL%^jXs&vH-iK-C_4jxmvW0E53g5z*Q7H`h0Q1!i98KactG=NM
zTu<@o(<fX0eGS*!a|IB4-4If)z|cr3J+{u^Cs?{7_*yb0r=+|@*Zvj?ewXEwFvzCb
zvqx3e0ReAjtYho96)p3~nA}`-_3&lVMV2;VGupale1+p!@1BA=m<)*~HK_gE{+*e}
zKRNMc^mFqQ5;LFd;Yp5eqBXbwaer9_pSD}X7c+NB)x(HQ$H0K)?PWHMBr#y+4oG>$
zUKu9BA<S{~sMyu32jC-t?EV%6mw!q{RVO5$co}WJPeOG4h7H~DT>pSsm<LU24AL6Y
z40ofe{T|W<Qun>~52WqvUvz)od^-I}GW*+G1}v}CTTab5ANriOg|T7vuEahvG4y5}
zz{jO<g?p))n3x86>ZvdHj&>A~p%LeuN3)*&xnaXWF0Snq$8<|}s%M$6yZz6pZGU1^
z=|2JjdvE_kL4i~3<lZ>(^>@}F>p5j+#)*#nDp)2O+^{@BOEHwu{LDFsGcQVElM%Cy
z#y4q!9!npZ2TDl|Dp~B5l$2($`j}{bx=*dt7GDiFr%|F0L>x`J1_DxjO_wkDOWnib
zB!L^TivG=wnnUmm*aiD|ITn9@yB~}wY1B%qS}LBJ?=xLf;Izn_Ki|85^Ion$anu)q
zmK{%_D7B!VpwEyLJFSSSa6dX<)>1@9MIC^5yK;Ai|M9Vd<~KGpDV!C^xMhUZi+kjF
z=yTS;S5DVonkl6~YSt*SzrLsv`RWw`T(4J0ZiEr0H{8l2pzQd1ox3s5fiHh)M(vue
z?p3V%zyA7b+%og;U@qNF?Jg@$;M{59)S8r1-qAsiMtGnFw;1~hcmBBsb!vwh?2*MJ
zBy=D&)T@D;+x%0#Vb^04Ne!NrQQQn)>bd?$Z{HmhWfpw<5flZ<D5xX}3MfetNg_#b
zS;T;XBqb_ABxjK%B0-WOC_xYjN-z!#lCy%sx;TO)B@0Lrbj1L_^SSP;`u+K;UcISZ
z%XMdPzI$)??LOUoPHV=l(QBQ`9%64mFJO)MjF7tD3BCkG3_P%#{ijcpiKcMWD`VZ#
z>qqiCt<e{-X6;%{3kwTry$Q9z$-nzvbHifbKQ%#bB<J(-1ioiBSe`s$u40jgcRR@O
z{Z(wfCl*9EePiR}ks#d|#=k=af8DQHerh~ami!p&<nVi)K1$~E|DUt;uZ7)BYTl;$
zTnkRE<Wvn??or95CdIS4G$({8TIl=HX9gz{yO5BO1P^lo&54W>{J>O|g*Sj~kX>(z
zpJH|e9Ss|>J=y@jl6T60aNfeS$8USiu{B{KAfMW@YZo`TZ<;XfDc$bxz`yat;loz)
zHIE+cB$7{Eyz?odE^}w=jei$vf6>6efWzBI;)r-fFJ8Jd1U4NI%zGI%etDc9i#u1-
z(NR+U$DH=_H#g8)Jp*&x;zMj6XGvxbY<-J<g!v`#u)fHPx^iU|VNreF^r+}udhsFU
zC*dC@bI2p|CKtw}TZ)rHVYSnr{MYR^b5`0t2HOFl0fq^&%@J|b^GiEJT9rS9g@wJy
zo1hi)qC6j675I-0=v5v~Wyy_BPhY_*=LD}T(@H@MMi8JGIo4}!YWIV_4010JYuQM0
z>Crg1HLFzmFXT0qkD{ZIjsWAvmB6slt5x>bwx4O0%=a9bJh7g66-j-D>H@o79Dg0s
z^{ILX0bAFNSIQ<JHC5W9I4oTbTD1l+D9{n7E-Z<IF>v%-?es|8R0;Tllsrb(oO@S2
zeOn^qjH~j&{BFOIM7<YzM+#{}3!grDfLfL+W5rZ{TRnGx?NM2*hYN$US&D}<!wuW%
zU7B$&!hhcR`c_XzN6h>0AD0Z0a=NA-Le7^+7?m!)&ZoD*^n1Nc-`3pnR*Qr8yKFJx
zOoV{6CP3+?e%`6~AlyhuPq!H6oeT*f+~-C9WXa`M@mfQW^iN%@KN5Pa5_;_zP8ok@
z`A~nNs^!Mc$<N=M*oP}q@_KV?Exm7~rLho6<+T1p55SYRaaf4un)f{o3Y!ilFJ_KK
zf4df-`Yds0>qFL&xRryFrJ+R+kMZKG({!Y|fcqs{JP1!Y>j6PLs1#)3)5a#_$(x7y
zFN1jV@z?z{s+rG$1DC~gOQ;PHEMUK)8xBYN$LWzikj_2CHtFc<4q>pfbb=*aD;s;S
zMpz+xq?M*5CtHJ4gOJh__fN{Pzqa|`ttvUON|R%J>*AvHVBB?gFqL&z`agafIse6t
zVkTWZHt~<JFU=mhFx}-M5lwU%lKJk-rnZse4WLJ4A{@Z?rzBgDPrav}+sEedBo>cR
zJ{4@_<Ra``6twl(UDjjVl0je4efE5ns^9ai?}AtM67K;O&bx_~tmo(7F_5PSPCN^$
zn<l>|q^0K(YVl%tNq|^N`3c^yXV0G1g3h#wmJ<^b^APeAXs%^uj-ZED&h;0(R2*Jh
zr}PL&?pmID51w242(3`O-xm40gsdzR0bcqoxEMew^Z}$`db~;=rLi7^zr22W6opFV
zgL+Cmd|Z?B`T~AaU)+f#m_+rP7l9Tw2RHX{iOB0`mY=Q9*UT?|k4xM|1^`WH&v(P5
zp;QdNBgG7!YY;P~OoSSkS;&zHRNjiyi#ssHuz}2(km1LIs32+~VA4y)&d$yX)4s%E
zdpgBKZlm7YX+8<N?5`PZe)jh1wLkG|2cz<nP-5x)uN8~ZlB?R6G|69V90R7IdDrkd
z;Q=n^9yvpOeJ#+4yc~lzS2Wrh88k*GUo9^$pNs95Z@>2V&K*YhbP#7!QdeMhF(CPj
z-}56wavT$d7*J4nymXJ|grRFAE>V*b%Zjb-w7Z8TirNb?vq}F1?OQ!lAl=ddHRanN
zsGQ4z6)?W!+Vt6tmh-`un-NiMFA47%GAKe<_imps1Sx3MF)y`$BK{87k}Y6CnJC)E
zf4>G~1oLP=z|b3y!2tjBJ@h88&s?~mj=<ucL5r0WW|stKdAw-e+edv89^3y~0FTyO
z){*EA#=B*q#CWS@iXwuIBQC=t&NU3z#}pKT`px#OfIyP&*g(5@uIz4h&nM}0baa^G
zSc~%*31P4FeZhhVBOwE(siVWVdL3T~nv%<!Tx9jymVht3zj{c$4vJ9oZL&4cbYfb=
z!lI3}<OHSFJR6fIqvivZZTY!VfHmpSc)H)rY!j#j-M)Wu0ZA4csI)$S)$NXMn2MS1
znU(v_X*r`_KJR)?yB5{e)g3r^uql**$qjM~h_i1O6|F-%Kr`6oLZMvcH9OEhTvncz
zWE7;-FyOJ8k&%o>pS8BugTg!k4g;GEureFr1~{VkN3sd1Eo%=p@E3Qq2nMdhS82lK
z{s7i(Q5CR0G&Gb<JLLT4tm2o2t>boe6<hRZ#$7vd&PBNP;eShrlawx<-`Aso7@QI+
z>W4|Q-!Hpp&pC{<{C+*>QT<>4PoNSX`2E`1#C8%E_WO0ihDr9nPjMz1JPc3y?<Zb9
zkk?&@;fmicF{6*~#sB-1NRp(_|IJ@_+stjWb-hHgKK@Bpa<3m<!mxYH()j3TxmvK^
z;_N#i{ah|mk?8GoX(o4gT?mR))*vc(fWjiR17m?l#50Two6xBIs?bDM0fd4EWsreM
zx!z_vQ@vrNwue%;u<-r*&6~`*N236d`m6B7KY#J!;?cW0US0}}nsZ)C<YS02d{z@6
zI1{h+RR!{DYHFS?lT6kJ=MoQeiF8h!;DbcvD_jWp`324AS80YA=6iZmPcNkCN8-0&
z7T4atKLXz{om-Pb4*F~e)l7O%-<*ZZ;@Gq)8o9a2pJ(LwKF0P{^#w^k3#B-RkLRDp
zBm(9(8Hx9xo$~`Kzn4GJ87eDQKfcZ*bNLE7ioF7HEsK*h7Ni^9HNpG9C>sq%@<Wlo
zR-UVc6Pw2_@1wr=2Q_#_9Z}0=(2<IYi?4!ysD_3H0WzqI7|IJ!`KTf(D%x;%e5L`k
z3y!6pDFre+eZrs)`us=MFf)1u!cN{N`CWD_|Mev>F)4|j@B>~T_Kzs$;W#<}VAsQz
zDmx;x?S5p>0*S0RcJ;3WbHr^kC|V_`&^U*gOVh8SlknvEYUr1cp@X`*I_+;zIN>6N
zMvvX;(?ci~MW&=E1UHOOtOPnbW;-)feMx^q)Z+2?@?RMTO*|7U>seb{18i0v%lO}e
zZhh%mqocz`#*S;kgw@xrW@v3|J96yUMTi!W>C@boFB>|yZQEuGut+eLI-?x)O@R<r
zQP~9gExF$E!mcU2nUVO4L9J*+v43CzF2DE=u0v~to)l*jL}>vk{P74i>XE|G5eEzm
zM&bp@MYdaCL&wc&YSrV<g6E~jQ>|fU)&d`RLQ+y#QWDn>=#6l7l8JM9c{xSEDdYIb
zlWYWeIGYsm1cXRxs9swUkuFd_bBy;vbm4YnPGTJTn&=2}yWjx)l{S&KleCjG8|7?p
z*rNEtIy5xY*cF>oVql4^2Nr;T0L06sr5NTnplXqrkPrgy=i06=UJ&bRfq7%#!gm+A
z^Hu-MzVnqD0PSqFJCMOm0aXLp=NUC?;YG>M;G;Qci{Mjm-~is@>X~`H{W*ecsp@4g
zOE3^%IBe_!48F7!^&Jr2)7Db(pSbrTfNkn>j+V!Q;(H)JdX(Dy>f57HGda+#HeurC
zA|$6Zi;YF)<TxM{L*l^f;8Zs2-vi<_HA50?5SEo?2QBLwR@R6b6h1^nfv0%kte<$<
zCfI&*b7|(SzyCgZ_Fc6Ava1hoA8!i_4<DSJjfXcUp8|~7CGM|t%00oY>i+|zUD^N`
z4x{B4*|Zf97}}U7W}%uO0}urkX^mpz98i#w_T&D~jOFHbuB=xM58xEmZB|?d99rVX
z&!0#V12N9E0i4H*6&-NhS;wR}1qEfQHwX%zoDLRIR(_k?Lh-4FW=djudMw0!zJC8M
zx?{(SyiaK)IpJ4ZLvUbzjH}D=9((RArlfSj!k|Nmm6bG?L{oZB&L|v3QG$b5gWFkg
z*5vSE;TiZeaR*9|RIjY%Q?YaVASz4wxv;Phftw)8amQZ3u`dNzfR)(XME-d5;4bJa
z$REVbY$eBcR_4}S@B*&^J1B+E7Wf5{mk8_)UC11I$#1@F`CA#_$|)x`_EL3&jxNYV
zG<I#5k}A6X5GfixF$n4|xr+W9-|kJAaWHDaxzr<*DIS|19u~!%ah=UZ!RoDWE>7~Y
z$@=0yU>L?7QPLLfF5Mm%AfRex^wSp%iDZzm#18`OR-2R9X5Ra0NGn+Y7@h8fNXA+a
ztQvQ80@Pqk*0<mN1%661=hd;d9g9KDJ+>Gfm)ToVzTgdKZw-<u+82~vD6~gu3*cm8
zCN9E_Z0daDli@$PNuDILCNz*^!zq<bUnK9YSF>!S3o6$D_{qu5&47aVIw}OwUw#MJ
z1Cv2ISu6c;<GR(Am^A$g_FOswey<tEZ0#ejWKK?ff(A3EX&S`I<l%o}R;<1BXGX;o
zO96k>SqryTt_;IS93M0roGp;A0g(YoYx00<ne!?O+~frX1rJn>jgD3*LWAit^gz26
zf+tX8mjj<%OmAmr=RE3%++Fuiq1v{0$Mrz~R3ti-+JWGaLr4fwyY22waByb1zN@C`
zMyRyXS};697LxB(%^ax2^}s|_@NyLvt1P^pC$exa5K{St<=`Se_#Gh;9-p1OwJq$x
znm@DvaHO~Ll%^)#g`b~I2weD#&>0GYjnrGo)mq7AAr^sZYCZb1UO{}T!bVC~Ru4&`
zU!W`CE?|_lCW0j0c_i)%h5`#liQT)`gKBk%-b-0o`9lw7J7!8(gtu>R%eDn37sJxK
zQFYHHHUTsHI@Qh=P<l58fk)ZG-W-By4fd4AjL)kGCN}<Bs1i2T)IjYS)WBNzyR`E=
z2hreN=ur$Z)yih`YB0q{0~EG_f{28qWN4igE>3MjLpD;sl+XayguKSyw^Enl?ve`j
z?-sZ!_s^5Zp+Ffmz5?1zCBHdg(1EjNJu+ItP)3n_4Z_SVN=kgt4{5?Z+xWEafps|5
z;T>)hd56D*9TYab$WZ0o<2t}IC9bNv8M1gv#Cw>R5{UUIwj-mX)=-j#%yS5VJ~)1y
z-oGZihUVe+qzt8#l9P|;GLU}*2O}N6IoBz)<R7D~L;(pbU!;x!En$#KX2vKW&y*<#
zV}<G#v;!Qmuvka<tkk^L&G7%^M{qzZOMP7JSA1o6WSWg{t4NZfUcLhiup6wu)LAf)
z9Jf!S^tMA08Dr8o&f4y2X}1S)`PCa8+ABT~<~rfy8@M>rZ?4vk!0|;MrieH&yu2mv
zv2XNhBb2_47f5rS@Ul@y8kN!HRdVxo-P>>X?)EiLun=o7ysnrQS!cz8O&85G2cZ&0
zA+HOe4-Ydl^NTU>;bvC(ehkV_%fu%Zmav+au$X`N958?4dWle{=bfW>FG6eO@dPT5
zCq_4XN80uL>{IZ#o+!SGsVmrQZLLN&mD=s}5s@-{3{*&qN`ImUWysy|mb#0)kcm*&
z;(0m_5=<F>=<ER(u&JXkm(MAu-RZj@d#8hf%{Ppky-Cd^<H`%Sl)_RjKidzi_G@KP
z(TlO4VESI`>gr0=;?XU*+K^tof<z1mW=S|!Dey~?cFrFM9Thfx>@8y_=Fr=djllVI
zr+;AJFc|eyj9QX*`o2y9>7J&p?rI_nY^@tyhm9q8P_(L6a+*WsopO_8F#8KU^pAU?
z9vTJ(B!Ykf9)Fy<Q`e=G6kaZFZaP900_gHT@kS0F9y_13iOUlJ4~8%&vMWtSL4gPT
z8;l`RIcGy#C3mBONk?FWfsLM?zNmQ_5f1~=p1F7G^-%PT%DJOQxq#|UyIJT$muqMN
zq5g}Kpnl6Und*WBZkL#q@$}oF<XY?iV$7KsliKbwF+1zJZ~+V;C=iMh!dte`fdjM-
z2PXoCI0QH2)AA71&}!g7r}|7o)8Ru1rkHYol>3Y?JOD~Jzl2hn{cab8u*h-K)$@4D
zpH>^($Q(xVLYI>nl71iJ7Q*hyzI^PW@dC#2=npS7govtnyYyB1b3?s=Pt8vbeFF@^
z!NG{p=dIIakHafgR`xla#4SsqzI<Xdi?I|+s$urwECe*fJs%7D<ncEr^bkS{zINJ;
z>$WNK{(af=K|xL3S3Cn4G$2Sp>n?Wha*t%)JmzMQ7u&gu_)_IcKXZTAA)$_E-CI7k
z``3^e%z=SPe-%RH_S1SV_5Fc*rI39k>G0}7Ym2cXW`1Q4oxTk`JP<bCY6Y9zpl5wE
z08>_t<M4*1DmER0r1{?}bE366nE@<-C};Wki-pIikH|H!9qyyP!Mw6HE*0P;R|;uP
zk0)XUbguKMT6_+uD$X_@jQTa`KjdI!{=rKHPao5}S;4`|J<Xj_oB%d$zBdlf6*3uf
z<%UltqG`OTa4GfPUC*9Pz5-<cbJ$u&q-IL+Q0V2rl!q}t(xwp+c&zoe%3ONi%=~Pq
zuYce*ar9bBis+s_yZ~&pZEQpU$D_?A8gT)6Rqh_!1;yR@C6F~+xr_S-t_`y?35d`d
zOd1XdlNOLIxhH!j)kn&7c;;!rw6iTf;Nv~hQ~xHF|4RR>cF!~AQ`BZh{q*&Gd=lzq
zXPh?I{`4N37~a@l?#V>_1&-O2v0s^-H`A{h2GqBQ(^YA0ZEe|XCq-d?Pn>AXh_V|Y
zQtUR~E`Zq_CPL0*<N%Uhv;KWh_=+6`riYO2O!9;%KMh>d^Gmosi}Thq(g9iU`j%Q^
z*E4a{i0K^UxL+=*n4iis&|9{w^n2L6nCCgx6Bt;roi;{6Al_K+{qx6<2hjVpc<Qwl
z<{EMGKAcyG@EZ7F=$o<$wa{RtBI@s;&dZl0&2Fyi`R6n>u5tVW&lYdAx8C@A;dti<
zKQfyB_LEFr6R$FA7VMn;fF{5ub2rPnwl)@omqYKMZ?ApjJ3JK=J~j90la`N<BIu8!
zp*N(wK5~NoK=b~z9m-I&`BNp?^10WY_aLm5&V%~Sbt8d;aquY<F0;F(b%9_tO>D&9
zc2@A^6dT3g1^Ck-ZYm-K5Rf%knMfEM*WKXg=<!_9Q~E|1Q`^I<An}wkYTg;YenzFF
zFtyni3f%0vA_wyp79mFwAjd_1{oly|;wLMR+jdt6ReUu=AZY2&uj;doJlX+i6^@aq
z#Vpf68Uzr-UIG~;4tE5KGG>*uE>7U>NPP&R$h?fLC0=MxTDz4TX&_ibOM~(K1Biv*
zDufA>nWpiAyGamT2m*WF@^A214+H->7vqSn+c9uq1^r3A=hyibymW5xVl#D)p;!Wt
zK>L^X<cX3IK=mdk{Z|nQH*ZG66DX&r;D_AmdU7~rd;Am|fSMt-K_o46ZVG?fs)#JZ
zZa-Oxkx7-9JqZ{*3a_)$02B^~JBMEJEfNxIkYI9`b)+kEqbB@tdj~wPu%hAy(&fR`
zA%zq35mfh^Bk)5t5Pdf;eu*6lK!G{&>Qx40_xN7fpuIkBTwK<L&21VdKS+kciFE;0
zg87GT>4KJ5tSgF<$j;6ls>}x5-+=0D<5CntWj9oSe$2-QH{wr<#)jL!(T8BH^Kyr+
ztu1;b>5-}s1s_AIJw};Hsg4~d9zf51csLvtu+9=&s<w;e=Dbc#5U<ihUxR!698N!y
z#CmwyNQ7Fwl&ljjm=iAjs<w6OYS2g2!d~Xz*D=g{SDlPU8VNcsK8VksR=pb@7S=e9
z-x}-PsrW>l`GnR01_Dxkrp_(bVxVzMB(IErks0`dT*n%rU+efD1JjpqsS6=NMd<<M
z9}Ogg>Od%^SW-#B0dQM9YG_dnSd<{kW2A{1d+yt}kA#kaiV;#K?m`gguv|hZloK0&
zQ9rjHCXBc<6ahe_&BxAsc0g-HmWS9VLRNq;45*~ME;M0>98oQ*ZGcY0kpU`ut@FKW
za$gYb_PdB=fzOaXK)p6nD?21Uo*mKv37MI3Xo^`2>gRj%`+R980ARSdxEgDK69+M_
zUaggVxE3Y~oj_#3SExZiT^&GQYT4oz+4EHKn!Y&d+LlCerz5gH4ea;$Hbj3I`PSUO
ze-*}S-zPmPheqCkWTA`Tv5CjBH*|EcGe>BtnE*l~1KT`<8)3Kwot97q!t!B5d03g5
z!?dzF-W3W~$J8Eg@#Y==oSBxkeK}P#Id-2CLf1ZfmR_s`=aK#f5**v^rIPXWfn99~
z9U_n&XvgJ_G(I%jU$F-giG_VWE{5pdNyx~sv{ms0hc}5kqL#B7kcPIOpAyO^*1qc4
zB{(1kaL@V2IFdIua1a%q{0e}Wf27mbrBkU&C^Np9EMB1;IYma8yj+hPQ7$KoirDFM
zzRNR*)4G~bl4)c!^u+TdT)i5OhQRi_!_)@s&m77D#y7ZoIFSLBe7QMa)vDwjsTw!M
z1`XY?qjwnz_s|3P(zo|f6K>Dzv6Aja#FK>c>_oAqpc1r#Ea?G#{d$<3JD^ao;xoWr
z*v6+&FhXxK6M3#-BywIK4r9~mv172-I_LXUmjKNTg6+fsI`j=Kj{Q$}lP(ESA~FII
zH8p-ny7-I_Pff)j6S6{i!*9Nc_Z8}0fE%{R$grVxRulOEq6LAt&W!Wt&nF}%hC(o>
zv8f5zf_CmvYh*vj;zY@cJsRIkU*;%IwqapF+ffTTEV4$7+q@2cg3ugPcVD5s;kGb#
zuoB84Y@@R>6mJ(YiAOF#)-BJT-EmB6Jx-O4jg1`CB+#P500k5oiNwIg>0VxBwD7yC
zr0yudV8fz!kjo$|hp=Krkd9wO40_{b4sLR!q4YR?A^5}EmX>^DEHqG}UpeS8LuJim
zU@8PbCLfSU`#9)8#sLRfdBP~iZOGqV?kjro<e0@-sF-+?<&{X$Pdfl|0#o5Zkl6ji
zksBD^$V3A9)&uoqh>VxoJzzLsY2XUE7gPW9<aB=pFW&3`2_Kr{A@U8EiMW3e*|icf
zGP>|{*<DlaQ*We6O5aSj=eAFMXX6k+ibzYd0#W$<8v=DFqZ7OYdHMJ*W9pZIKol}L
z=%BU@)lZ-gI;fn<+dbnr6sb+VZD%bBKmPaH+4R5v>;FHJ{Ocr>zx=-eu3xVZ^4%38
U{ieY$$fnjm_8aPyXjz5*57Pxe0ssI2

diff --git a/reference/plot-9.png b/reference/plot-9.png
index 67729478466ac5fa96dee4a15833fd4bfd8dc6b7..1966b33e65e91e7d0d11dad53411efda5f1b2ae1 100644
GIT binary patch
literal 26146
zcmeIb2UwHowl*C5*gzCPsfq;^0TD!{&xj(TAc%lMKtTbiBE1BdaU6m)6$O#12#81%
z2qhs{fQWRE8X!t<A<{w#kZ(P~*?a!8zq9}Io&P)MI{$TTuWJT`H*a~~^{jQTd);dp
zcu`wp^9F$p7z}2!=2>+;3}%f72D8fir?v1CYQ*#J@MW#JmWDcfg+Ftrh<@;8{q3_?
zoG}>T0QBFAu)gt|7|bq=ruxtN9x<bx-cK*zEME7W7I%H@6L!s-gQs;Y4+yV6w)*rY
zMnL!NPmg^_NjJMwtHOWxI<!sBQCuhDS>!n_okQ!_jn{wJBF9TNPu~6H(H)-Eh3h|d
zFjf3+w^qN~BwIClJ;zcdejsYVbH<e6)#6xvRW{MAYcWHAe|W`e&dmj0dcau8`OaE+
zg*5s`?U(f)E6_Jv&%N7-zCO6P(iDC5|9$Is&Y^oB`}3n8?0UYMguY_d@B6w2eLZ{N
zKX8f<B3~=bmhSNK^J_RcIaNi;iqrb`#xca<^L1BTD%@A7sbjI&FJHc>tE<CpIv=YT
zV6BH=y6{>4<K?r~70?M(vG58wG;o`ak_@d6-N=J2|KyfEA8V&rEG^7A&Gki6bTx#x
zD|<78A3b_B*qEZ@GnFVBl2faqI7XVR@mQR0*%MxoYhCsF_3NiH7H4Aomgbzkzh9?u
z<;s<*;U)=fmAT%6Z+{4O)AMN#^(Vw*UG#oD*1~w0Uoalu-rkNrXL9@f8kyT)-yM*U
z2)fIqaDY5pCS7iuS=>B$B8Xo)G%b^?@CTQ$0G8+$qJo<*6<3|BczVp%;AP`b1TK*v
z$Y{6C3<=j(IOsJ!y#40Qn@*p02b2z|%oIMAwbK65+&nh%)c#4($ZVgq-$~YD9Q-hx
zVl!N%G+w$*=2pYY6H|4k5?{O!yB`$PQ^s#r)pjxt$82ls>2j`BCgw8Mi^n|ZbT1Fy
zd4Z{w(m39rC0*8JXePWzBQ$udlc;g}^l6{oJ)(h=wW_L?)z7vY6YOq{q~5rBG|CQJ
zR#v8a<x1PAO0>MaO_q*U-vrq{j3x*#K<&4ipMpx3rZb~fah=$;jYo2Rey-N9YxJqC
zW!0z05fSo=&830cWZ`q|Lq>^bLOwJ7;BCk{mMpp@`>~f4g=aoXWLCifoCg!oH#D@W
zQJ(3DWvULpN<1of+`+DX#<uP4%_xh|lgVw)R6q8jtaQo3ouKlndnQ<lX88V_tc8il
z61xcxs#)Ydt%w^;njia2*!03=?ZBu~y!Tk)Xo2X$*LB7u+UF+{Ijrrxyf+R>NVpGP
zGB%E$YpeBb?)Ch_e*Nmzr>dtiiETZEURIQLiePZD=VZSn1;<{T5gcudF`?zt$Gum<
z<DQk5^_aX?{p^_2?6&}lv19R*9GT3b;nzD9-Ry!aPpEu<x5{boc|iI6^oX$>Q`&E?
zayG?pKE<fWWk{Qa^;?{Fs#TsrW*_4_KQx{wx@euUXy)<l-U)hc<1^(YN8icl9Y?OI
z9X85JXd_ofNCxc*Js}nc$6B%om%U9WSQ&5T=!xD3r_5nhLL6#)Z!`OmWp@_22I29?
zX+E-i(xx3R7Dc=UpWCrIoNGfG8XAP>&&R7M*C>p<*<YJTz7Q>6)|ze6LuQTHUhkU=
zA7RPUX3(q5vfBE+|9$SQM)S%3Y95~K7E|vs9l!ZTxcOV~W;7IHLtPYvpFDYz?K3xl
zEYfF4%k2Kd#KeAz_e6zwPtiz5CAkY;QO`I<G;Fh=ygGbhczD<-*IL)7UpBsi={b^~
z-~Hv1j=k<rvrU=4$K)Nmggypvhuz!AU*2CGy(d<i5+P~a-DVXZvb4yuVwv8l*ymJ#
zn!oIlj`DW+Gu|W0K4Fk)D(vd&s%vP-kF3atnG;{lj6d#ZO8Wj`;{_4#p@t+G^HTii
z9WJ!py&1*F4c-{><mKf(1aHuod_l&si*#b)`^Ows$WGb)U2uS9ZMx(goUnUSZ$)@w
zQIP_d%IsH<;nWoK#rbLY5O@aUbP~f<6s#zR4j&G#lrB+X&5sco4sP-1_iux9R+7n6
z4O;H)?2n>Lx0S#MvTsy8YJGcC3k>^JdV0uAm$!7B&qT$Jqc_eH829*1ci1++xm6Z5
zDnfUn^|O4DX)!N)#;SH`;=bP%t@8bSKFn{yBD(x_Mn=ulP@}kF*Fz1F!p5*?G$)Gi
zW|a?%rQ3Am+B28*Fgy<n;nF#k(sqtbuP-b5$dSxSe52rkne|IUE(*@=w^DAhe8-&Q
zZQs(qfBTrTsIoL3#+d4W7jv|S5?0GpWiL!dk4A4SB!#A5d9hpUXiA)yO)~tsKygSd
zVJ|Y;diePHtzM_4!SnS+n$<9AR`IxJB)|TusPHI7cZYClerj4;<@uNsGK&5A<mvSN
ztbXUfKbS?1&YmSGzz7HIBza~z^_1JOzTV|_Xf%R7VDiSaSb^o${N{?TfkE>Pc91mr
zgtqeZm(dYN+=y|tNTMT+>;&d==Fk%x7Z$uF;ej}Bhr2T(p1ltT+j6WD7cZsi`>?3A
z8giTp&MR@z6gHQ~SmA(}*o#-M4#atM2gb%3|NQgM3%%m16;i8iGm2;Wr=FWoEBjpS
zLSDRh;Q{VFQ7cl4*ypiM=(d_0;T9NGRlKTS$|9qnC)ADwe#vfP>EyTHw{^qcZSSz;
z*Q{AHephs17i*qHWBY1p(bC&T$kj882n~!zttNTi{;*#B232+TJ$HMq!EmiFGsljV
z6TfITMW^Ps;WA2==Iy-S|F$Ok`o}+Fne1W1l6E`%39qR^JEBIIh*OmeWi;1s(ccE#
zi>|RT@l<^L(o{+tbGxC*L+mOytIwZ5cfSad`b=J0WcblWRnnhSj<gE!n|fRiB8wMJ
zO=tQkQ^|Av(b1!ZmoIO3?{qa}PG7N#eG=Z|PH#WP1!jrIdkn<7zj*!nka$nOo_A;d
z9GM39?ynr~f1EpmJU?v5k}#V)C*)H1vy6RvuE$VP<g?Aj`T6$A*VIc>R2PT%=+3Rz
z1CDugc6@C7W3yoM=u_5cjt)T?_M4@Zg@bBhc5<?1fQoZ}RRv+BR>47gG0%!$^6HoF
zMYqdRnHIJ&E)AM=-(Y&IQ~Ay|=4e}v1-(5lgvkPDupO44heyU|_Is;44Hqp;gu6sr
zX7;loc`J%hxS7u5=gysbQBY9uzD3ZH^sqCfxaEpN2-w*qj$>!u`&T%MaAKHvywA}?
zhYpE}bypv!1!wv#j*MrA;SLwMGenS6K*rWz6H6VeYPLTbb)Lj*w{2^oTFT3(BqZ!o
znR?EB(+uq1k9Lb4QKfeHz$_*GONvfBUsHVycq&V(c+Blz^!4@CA!0s$^5isNgvXB`
z-zXVg=f6!{yK1bZqcHDuMuvqgy@b7VQZ(meUtiy5kw-IwiDB~Xj6Vb&J`u!q;z*4$
zvQg(dJO^Uy(~a{_%=L!%G#fjH%uNnZUSCdo0dB~~#zw%W$q<X}{3GX<DBbmMj^g~v
zE~TBamgnDG$=NUBJNpd<4}sM$N1D@vh+{<(XF>$F7kkfyQbfGp)XNaqc(;}etg+8R
z@l2N@wTt9Asm+o<E|{ObC>XAtk|V3Ohp^T&`nY3gb@XxMe$655=wh+4i?2m7$&Ev!
zzVyPij_MBZJlpyC2V6)I&*X0D5tLnrzX%gDujU;hsyJT1emw>@oT4yeI4v`@)^BOj
z`-TxQt(`@#9{Bt2(AU%33LYoyN{;2}3l}aN#umwm_$`c|V2~zXWMv%@6O*@V-4Z|l
zC8fKB%_?zk^<(YID@-7ekJ&cgpu!raE8S&=2R-m`zcu1|{@I=|rK2oN@t+~@8tW9d
z@?(25pYbwXJ-vorBM7}_-JFmla`MiNsyJoEF0YYv4~XcA85vRyLoPRtMvb<7eSg>4
z=Zs`aM^QephfKFy4usAtyOh<zcZ|Xdbb>%o4ofEpfzPS&!ttB=W^Qdavwaum*Ro#f
zrLNVIB*C7OR4`D8b;!#7xMH19UHP!H^pkVPj3j2KTg)7{Oyo_aEv@Qv3urc>ygYc|
z06r5(2YUl6cPGSF+%Rv?z17xYHv56!O`#dQevcjNO-{}ILg#_<gDEjvSFPQIzkmP!
zfddCxcgtbPKAy%p&vhj|t*<!CesG_`QFo3Vhb??<U^U766}Yv6g^9|ZPkX|u$TQtR
z(qnauR*SG|LiAN`S8uB7yHtQ&>2KcRV!>0jF~Jljj5J5`rWE#HSakI$VRbSrTgq{L
zPYk<b-Ma$u>9(sK*=i;9rjm?saUBP@wWCF@BLY<_jzRi|wkIVewY4CG<`&;#=2zUN
zGDmV$9Ok@jxeM=z0g5QZ(l4hO(6bh0<LAy3VE?-3A6O`wA5P1mg9ki4GuBBpy2(QC
z|1G^DTwLSw<;x;zx1#$qEE-1hX}&Ucty%ciqMA{{F?Wtjj*nPPn6`=}+_><K>Of3C
z)+e93<T?i-x6Y0|pA#PaR=gu$n9d2N&-Q=qtOhXO{W>kfMt6(xl`A_-0E@rP6f{0}
zy%f(=PjqLDj$~U<#-^@c=2rTyh7b~~$hVc4vJ+zTrkzLkiishl!Jd$2H*^OiOM<m7
z^{6f-cG^@<yPkgm_iIH3<8#)(e7Owk-uVQ_sFJO<a|@pT`Nm?Bh`=PIK1Y`(RoOY)
zpUA`h)UG6C7IfcV%YByGg{&z|b;%>gf<VEIEZ?u#*Xp|?8APf1siAG#_MgW?5I$s(
zVX_l&3s1JIa2>#@Qsl>G2Q^d$&`!tW0om<Pa2e#X0AzH`h%!|;5ElfSKn}sh(Nis8
z;)k!i-78fz_+qVSx~ROJ(OrLAo$zx><`B4bFJ?{4<G{3E09tTj(eo*f_Gt;MZfk04
z%C>8J`}Cx<CGyoW*WURTu$NfWJhF)?Wv>Ewshk!|aNH<7*r|DS2a3zj1_UIZe|ls$
zl{{W9*n{E+X^}}qxJm3qa`JvY$*a8lCbxeM2Cy|SaJ%`6)lF(9Y2qAm7~}IJnO3!l
zaFnSxJ#V(kN@W{5G^pGzlSRm(If7xU^%V6I{cA?Q1&D?Qi24?s#)$#~SUYmB*&UEg
z8Q>8S^cK|BNpN);h^4WiEtzH|aB}fyi$CGWn|B=9#dp|f3phhNNHt5rg1aH}3DJ@+
zmZK%z>>CE#zjf;tO8DBM@@WhG$8)F|@S^xaI2#}QL(daK(?C2Pu>LWJ;_2r7EWd9X
z&G3*PltDVz{>Nwb^}2+g$03!F7kph4tC;`(?#6s~s(pUh%}8wXXaU`m=GM&G43A<R
zvy();qN%C5Fr?#mAK*~lE59%i<?hs!I2*TQ`i0}2yxgh_w}YBxVvk(^<*+H~1f+pY
zF9as+TeGgCx57y>W(oo3T73I(k8W_u8%udP*Uev2@X;GGG#Q&OulVR@Mn*eol_t+`
z5>YB>Bh%(;+`E}n$1rdW*bHYY07!9`nHHX&o(L^FEzJ$&dvus|<#U`!!a++&0ImlJ
z^M$F*TO)vGSsN#;qcpA#`N*y=UltwZwcNPDQwXb+q9kIrCoD_~d(|zfJWNzHCEnMo
z>e(>~%bJ*-kU|6{X+@raD{T^#Ka64$1jpcCSFIyV?(FYEfG$j#Y4pY@Tg-Pn$gEVh
zR%u(UD%<C<G2t+{yY9ME+#%0T1(ZWpZ4Rj!iji)asl^!<kA$2`dFt~WX$Z=^WnjIA
zl8C$?z$9gtz6Yq5X8KO26)?ywbIAL%&CBj1thh;3MJZHuY4*fq6|f>DzI3Mzy88OO
z=pjk7-9b*^m?(`ps=|)sIZKz3W=V9j=vk0e1Bx&QfKQZjlVTWiqC?$NM5^=>e}Y$v
z!MMfl6X1OF&q$O=?Qf82hv*+_>d&+YQ<kTtG>FC0eGoQQkodPu%AqF}H;&FpaR?ZH
ztkv587OrNQ?$M9*;jfFbYtKDsV{1E!U0Zh!CH}BfJUrl=edAVGKLO7Vp_qpUrC-1h
zR5+i;?7a*dh?kG=jJi5-7Lf5M8LrMX08|7NNxqHQ3WkHev9aK>W5?#CR#_)?cXtmq
z+#JcQ{`~ozYAq)B9K=~BLvw%l_{?g50|^O<%B2gbkTMk&6>-i3`z38APaS1Q|K*I;
z{{_<P-<$$DFB8a)f>haawb{47eVBz5c1LBTH0+w9(x2A}^CD>56RIc$q>Z~mIk+ct
z2m#~3Ur^ffY%P#$3Dofs3soE|IB@uI#|10S1?rBbBEH0(r|>r9NaZLn?9VsU*DrO4
zAl?e;nLsDmy8cDM#AgXesu@}Ka318c4;(yr>r%)_OJ>-!XV2tAR`lxpz_9A2<spKJ
z0J&?ouXvyiiB5f*VJ05`Dm685dZcBbPz>|vwQ;^fTZNr%OUB>c4dBYe+}zyDEVrlr
zGrz7A!J8I)mGNi@@jz1T&bxj4X&^cf%p=bfGs?Qlf)aJ&RX79)Bz0K~xMEL?b4?(;
z=^d)RK4`ZAzBljt{6q%8rP13PnnKQ1GBTbMz4A>5zTUgB?fc3H8-eb-bNbyzVGZMz
zU0gY989*-e0HYAHI73r~CEWAm-04UuZ1*bBSv3<#fpjlk+yYM$db2Wup2YwT5`n)n
z!8>>cVw|;so`Ur9J{iX<2cRZ;@7}%aYwv$E%CosFQnLx!TY{4?;D{(h8PZDp)YV~U
zq`oIW%8y)^x;otP^#ELDWo6IfOWF`30K4ZqC!r5wBwG%y?1D8Ot?FE{YOP!=!J)Hg
zl=3G3-aD!yP+O3g0104CImF>#-7cVg7YCWh8<WDLV*pxTfyMYOw)lkryRsGsN%A%x
z9^Cv?;D-+%&QOLRz%9o+y73Wov3F8~w^uMAfOjLl6>#m@ltuszmSe|D=Bj~m_{6n%
z9H2E1`zI&C9QyNf5aeO|w%piag2f7}&ew-M6B+<MAs7~dFs1LWd_Gc&J^SQ}iAhH<
zP{yrM^V|!P06(v<T#3omUu26PgiYGNOKpOeH`n+1Jud$5XG*zrLQG)Y4qweZz@<2v
zHQKl@KNV~TpFT1rpR^=h<)YAe<JF~0m$sp_G`t7lE0mC0jxY{1M4h*LlUn1x^MUNK
zC>QnV=6zVP?L64kB$rL8XHVzTmsC~~HLhQO?$7TZb3jtE+I_v6pk3tw<HV0^NTRdv
z)*(2<lYMLuVdD+})#Jc1lmoLXnBVDUeAnNN8cebu`7WRAd#xivt~lq4A$GfkmFgqL
zQH*tY*Udhe#a<_HOppZ|z$!Z8zzR612ViQ?eTfWwSr9)3osA;wZbHxj%(_Pmq2pV3
zVjv&Kw+gIfjP7aMw{IV^+5Pzpz^&O3+Of(ZrCudPLv=#_${PE_hxGm8chU4x^<5wn
z7b9rzZ6$d+$4RW*l?o?$yR8M-(Hntl&t}mLg<H1^D}3$T|KwcRP)fW=e#adx67V~l
zS9Wz3duynd5*cJ_?|hMjVMZ|C+RgJGaw8BUpLLKSBZ;ly9kYHdS&Mn_Q`Gt7ON+SQ
zeA3u~SuP6n0d9YTw33cq!ob=U6_C4r8OAAAd#$>#C}98)<n8*oiM~ofdJZ@!JpRP|
zU?Mf;1hOnx6W$e$;At`{Sr5Z}UcM)Q|F?>90#~mD_+D`o0c!+h)zyW(N3-cB2hpe0
zDqZpZz&YfNzgxv!N_8v|Zfas1@g)Gxi#U8`Ym15V1%%dguU-`Z@7Hmit>Zfp{t$ra
zSVtjxdzKWVVlUV8QAhVd7_u0wdyc|=r<*o9H>O$>80qumAnUZIG(*bVKzvD~3Ze#M
z89w4`H|?k!WEz@!?n^!&)i6i^v{4>%ylV&KD)z6Pfz8vsbg3~}=Ftu81=pCFg+_Sq
z{+3fx2SbPf!tsow35}3tAs=?Sw0Zq{@RGHh=$7x$`L<F!150ccAU(JS+`YXkvvs$~
z+h*VdfEiNkhMNfEH}jF{@|moD_2x}5O0*G&xI@LqLkKrj-zKglZ~6V}dnX!hrVQ9T
z3*dmp0RfdI{CpRI8w6X=h>{VFgn6JNY`)e}@9F!E@8UjfGHorc`nqP9Vb#}rp^1{R
z9*U&`%Y~TOhyPzHGyf(?{b!0h|2oA#DLkPU`F~a```2>*cPwYqKH3_W{eWL}FV=Y;
zoj%_b;S-5b+sMnyt6m$Y41m|=9Ja`1d~%&yT2t)~z+w@UbN+;LDUIn}hVO`i5H}H`
zAy>BAbMWy>jO2rg8z{-8-Be2f2gaeX78X|2$pfrvD>;aY4iz^hOnB<9+DGvo`q~)+
zl!QW)-#f?G5b)Mxa@C-&FhlcGMW07d1>y(<?v?)Ws+g;32ygkjLn0MxqqoyV4mqA_
za;#M`$GZHv&it1YZU1G6|AmIQFSM=kPc6WIs-*s}xATAD?O-RcY8h{g^QBCE=lW*p
zj(&nbSjVGEL_N^vJCr<bBkBv4aS7JJLyajEsECWAwCCr$Ys<t{#sg1`74*PXzkNK0
zBZgRpJ0Jhp>{N4dVD$SEKr}%e)kPPj#i>TbVLnyzyc7O2{l)2^Zm1~*yC}rs7>Euq
zG{YT3g?6A9f*{3kQ(T93wm-IM_sTASS*S3on|P)SC5g&jQ~2M0`|VXmMrfp|*FlG(
zp=6_i+t-z#;P1q2vtneiA(^t6=&e9C&V|`=nd={Zhg>i4iG*SKm()u=kRaN2+^LjA
z$&^xzFuIOfj{<-Rpxq38=(c7-h>&G;6(<4_4=@$#8KqDx>;d-lJ{}*>UKoIcA^+o&
ztW`}gO4nq})gf~`i4a_>{-Jp$T@W~69B=^TzpdG54s}Q(>kGOF=Ghl`nEqut6=0iP
zM?v=gK>{^DGVD+iItGpy)vUzC=4TkR!6gl0SAEETfWM;a??xASmodV-f&uF*W^U_m
z4CTaY)Mv+Rp%4h^<^>i1bfA2AcmQxZ=2|>K$76`er<88kqmpJ%a<l_HVWkw&E`Tm5
zZ->YG{az5##<#%`3f|!B!+*XF%ty!VkDD)qP6BPGu$D`xwYxn$Bf01hZ6Bs?B|LtS
z8~qsqk7twg+T0*fLC!nfS4G#<R3z&B{;(#DJ%pQi&jP^p7g8EIxh=Tz7$|{_Kj+3-
z2dDrw!js+8uz9+PeGk+J(VIMM0rx^$b0O3j3hNp`uV_{3kRItz;xL~|fJI7OQh6Wu
zG9lqzttjSXc8<xa)=7I#MkG}a0jV236K!$K9Tn3GV3`EzElHKl!QNB_QV6Ql5~z=o
zIebd5UO>$IX!t~gu|puR2J%qT<1;jII(;|nLsJWEhUJ3cGoj44Z;y%*{&;_(x+??^
zNmvLZ`1uud))>+8jadnKUrOC>yDarpYGT0tXiv|qpGb#78dTLX@vZagvp{js$6*ji
zBqiYX#Kg>d%0o7b9Od4tWvtTF^lfFA{kJhh0G<lq3ISrB;nHjmwg`z<r#sF54z3f-
z_>6if5DW#47W`mjKn8d9GJ%-Lzg6Vg0K%Al;%dy*SF+0q4=p+Bd^xO4x`AJHCkS)a
z#;dJ;lq6aC#^u%Y+Tj4A=;EM;#plNd6=R(QdFm52!VXADh2rsjm66BWt$<kN;c=R(
z*BBsNL#E;{KX?RXK!MSY<dbop{ZS{n@q4<T*=F35?+9s~zZNB1b7GH}7%IaF6ATRu
z%6r08MR<4+-Ruy=LG;#lxp=-iY;+%}j^@9+jyu%Rr$<n7gM0oQ6sC8A`9L93kXvQ;
z8j@J3mku|jp?ib+uOM0tl#;h_k}AyTTm9sv-z3-PxePTF^ghxOGam`=h)pl_MqIQ1
zidAkNY{XO_yp$|gRQvANRXt$vc8%r~o><4tU9QKPoVq4;28f$5&+3UU<;FzZe8`pl
z+KKR<kl2XFxTS>o;M5P)aZ?<a9ox;OXR{#dAt-o{KH$DWZIjMTo)~?9cO3;PIs71@
z3R|<0uM`Y{|L)q&_hl@~O9$%{-EW;)rX<Gdc3Xbme{UxVGa3llOK0UKAa2SwnGT+4
zKYBO+)SLGl#aZ3X|5^#!e`CDtQ~H_?VvXqs$Z9ZhVgoB2<5h6x@GcQ`Z^Df#02npp
zliVKpc5PcPrD!9G3k5V;TM$(aL1E-0Is)V31&4sfX=2$b&DirTP908^GLY*C0=eJ~
z0cCef0B8FS=H3zct{p8eDeus+14^cBK?p)n7($70QlzOsC(%7@vPMxF6<16|`Ow)D
z8Y?{C3G(Qgm<S<;8#&Q&C_9&323CZ_>mp4Ohr&5An)MM%3$ynE-f~E)Ts`7y(ljck
zWE3;ojY@oRN>B|#N*izz^t=}HjshnXKMVSw*#hsrosLDaNsL-R!`KRjJizKeWFk;<
zM9QUch`Nf%KOl{a3EW;b&6icCDIUvPtHQGT($qxHc#A%b*=n1=hBOVTJ71ZbpC22M
zJe+)HKZ@3n*}(ag;d%DFu&Rv%VpER$CTB%j13N{&TON%<%7t!JMFmpin8(+4bR<|h
zS|_xiiSQ}J`ZLD1a-MDLb+`&Dsxkc7EY7V^RG8UFAp$ilcSe^J+G2=~h3fhE5{p4W
z#2OwCG~0M#ElvumB*nzf9GT_WV7JX4jYBR<AgYmZ=qNzt2Op?!1iN>6ii?Sz2@?@U
z#hEuyH{XBZ87Hpe@o(S0<*XV=^V*z1KjWBZ6~%e_z%NP4Yq2?&7m$c05S0gk3Jk}U
z<mSqenR%IIAo3FeR)adUBPHg}Il>}Td<hyqJ{mFU?>^d^EdyGNwG3f!PfqZXI2C2c
zO(X?Ud`rOQ8U;Adukc&UIufe$5Ek!A`|Ku9B}td<4iIX1ovi}2^}y@H=x+SE#0OR|
zz|kP@7dYNSL5jiX^7;4Nz7G;#bM99m4$cEyv>DK_eO^YKpAjxS7+G<T$oZbAQDgP}
zjJm#ofh8461t&*1PT-wtug_Y>+nbdyAU=EsHWg%R_5}96NRvl&_Dl&|xrHP3#JCv2
z&akR_`jAuQuV$8f{cYo0IsmkRA|Z5oe=Z5QLGZtE_S`#<zHD29dZ7ma^d6%oksRx&
zyAGRl5riG__V7}R+m;aeAuI-{F6{p6CBXNw!rpIuCaMBO{31^I1)~@V%NdVjRuIx&
zzkWtHyL2hserB+K&tE?W^`t>N@A2-kY9^aXTZ*uUTE1wl>q*X|3mep|>H=c$CKY6L
z_Bo3w+Of~<!-N&(|9Xbn6FtEwy5jK~BA$B@Ykqov_^n(9x8LkXRE7m>1Z~q2owg+T
z*N-6v+Desmg*p9FGu#}Ch2xF!OLD#-jw)yP&Jd9u_kj2$G)SuG02OLuV?n@1_x-tO
zX<FW!=2LZWhn7Z4mL$--KdoL0<xyU!*V(;gyOSqlPk_pYn#lX-BFlQ@&&~L;XJ&zJ
zZn$=#iyk6)Tng#0pl&MBp2nfh{khVxmfsy@t?LpzAevf$s08^zqipljKu`}-^Bp&V
zD<K-7<;^AT3rhUD#IAAQ{y;W*<AxVUp8zI1kHxa8yYF@$cK#Y5=FH@u#GWzFwS7lK
z<yxdra;p1z9X<3T81TE$*J*nUNU@AVyQ~`Kq%iH8uQeE-dWrbe<6(-N)&ED`avoKH
z1d1aW_puJ7z+D(~FR4_ymVOe+M%vT%E<b7#c4Zghe?iYEDq--(I_w)~yWrh^@&FEA
zl)X^P76N7KXR>?mLydA!=<S3AzEFi@jcO@RCjDoi^jiA|ah-_AHKmyjXT)Qgh;mRt
zLSyCJsph2tza??1FMRs<<sCxb3nmPek{mh&+5s<6o5P<aGq4>bh@=8JT__^Lxj8nn
zNPzlnOo0B*%1WFg+0yWFv~lcJ!8!jw4t?jpVjQ#}@NQ4@V|l>}95T2$Pot*pQZelh
zkB5gGpv<)e%YP~Pd>~TuIsi+%L)pv4h0&#~m-<C}h5=8Vp~VTRgAX9~a0#6_0xG4q
znJA=%@4sL(z66N3Wgq9fE@w}gz2JQ3-??W%)&q%gO}LT38>6-dKI}VcAzJxoxcsn{
z6CeLhn!SpVuCIFv>^P!=IT~>e{!`>y#tqN&jNc*PTCX7*f&kSx2#?0H?4yyrqp~j^
zKg-N75ylpcMpW%Ym)tepzVAXOL>r_-=&y~Z+0l^RY4h=pEj&C(l?26Rf`%qK6eFxn
zeDmJBKg!DTV<*bM5Hwx0CPdU`YOubI*-_|BP5j|-4#ILf`mv};`>n1XEOhcHl%LJY
zK0Vw6iBwkoQh?B%vjoXy&AfFXI7iTBIudY|lKFBco!z4WU0G5=VH<x3%Y`ni7JzI9
zc>fv#H&jvV6u|+tmn@xX>H^61S0{#r;ury|r}tKiWpMd&Uje5C?H>yM&k@o2bjZ>C
zgkA+E2|$XILkAkX|IgiyT%-&|DBM2(M#a5(S>FI|(YTR2=;9cKH*kZ1%qs~4RZ)$0
zY()l1mZ}0ZbLYR_-KF?>eN;G8F9m%AACTlUuY@xZ*0a@)zS~f>LS20dYVi>0V*h$t
z#Lz=YAFS`sswR^1BHO`%<e63qj!WQh#dkP_K5?pT`F3)o=rV&yWKg5X;7In69*3g>
zrBgHWSfKkk0ui%OWVzx7(INglu^Jh-WAU^Bs8O>kRN!fXN*3vkPT%hF6AU?qfDtwz
zR(<WXg#F+IVlWEG&9|X?EK~>)xi<>gyVJWB>(rrs?Y+F!5>DB+_`64Uvn?21J#R8b
z7Je<M?bu<dre^Yp?=F7JsoOFeFO+TkBaiqdvMSv!uUYFERUp@1fK}OfVUmge(pjbD
zQL!oH&guFFDf8r)zu?R7r#-*^qQg<)V^x$hxkNR1+oz6!Dj~9L?Ld!A7{$G2W^&P&
zMw5+aoU}5XjH=CleF!NMKs-Mjh}<0pGqt``{xm0~VLG*b(13cU<6nG3<x~@?mLWR4
z!Aqq!oOSfde6fy{-{oa{Bd1N<QTm55#={TS3A<dBJ9aFuKqbDGf)WqF689)wGvt}m
zko0D2we>)1g%ljAm4h--f6$YpR`|Oi2?*?!h@wq{;h?0)`qkZi>rLP8__*jNOuIgm
zgI3MATD@$Z_(I@S{)!Yv?M)6qtstohCCqm!@#zUC^A3=b=<4cD-C-UG2?=?)R})=e
zI%G5F0%srX1#R*<?AocF;7q_o#KgoRE6bSlr2|~b`)FU?dHv-+_1(dZxj)Y6eX&nV
zKLC<e)rD`|79gZ^0#QhLbGk7qu>kdY?y_EfrDYEG8ClGpU?r%9U5TMT*sJ-ar6m&X
zUl!cUh82z~@$QR1>)2S|PI2<*9Sn+ph{{Mq_FD5@5#V7E*umq$gYN>tH(4)&v+NHJ
z?PK@!fo*QAL@PVAf%96<Mm<_bQmmCmmi{DbD_VVjmxG?~h?5ug%{OfR#CaV>uX|T8
zY9_~g2TzF}y1tL|vmw2DxA4%4fl0be&aKAer>cIwKA_l^P$Ewr<s6VM;q}fKinVQa
zgpX7Xm;+vbpSbLWOw)QV$$=1+0|$|U2)-vR|LV(u`JcL?9f}U#DKts52W(~W>A`NK
z6FTwLf7J`Xovk-H=b!RA&Fz8EhdE>Uwk@A-<2=%?q#wnhgMW7Z9Q>hIIk$arzb*Sa
zH+u_cIm^22t3diR$XW)$Ibd9<&<hr4&M;Uu(C_ka3AnrOpDc6g>*}^ZKa7-;DcB2g
zzEDy}d$7E`{6i5SzD3ZVVn_8jx8{`xCqqvqCnr}LC?2<ihX*xuSk%Ovym$M!n3(1x
zr26h2&8ZEgi25n5<rWdz$ai?l1Sd+lsMW9PGLhof5OPvSf~qd|(hLO@IDFf;6Gfn`
zS;_)yN396kQOq-2=;j{>IC}(DDM9X8CdG+X35JIxm|O_V@h4l(0#G0t7Z7uxGG8#1
z91WFxXjeE^D}`=WZ5`NrF_Z*1RKim^<}5<4U}m%gr@T0NXZdN;;b}JVOC3I(FYo0Z
z04Mn{0ZLZAzy4aW_BqjYq*<O?0-V*oJ}4QO|G=-d+m*k@D!AHQ_k={mo=^hL@L4A(
zuk&w)Unzr<aziEZkRZCqEh8X7XSXPOTy!HX9`tQxQXGOYq2-X*JMS;L8fCP_PTFa8
zb*adpyWA=#RHjpP%HW$F2nr0u`>B9@J)Tp9MtVd$c|lnCxlbD103syamO*W?0oDEI
zkpy^qD2GLjOCla$f5qdULRSE?hcbJlTPc7$g2pZ0znSac9*;d;MOWH^E9^$PKA?Q^
zTgM)p;tGsk9JS)ai4xz%q91_MG!2e-|8(OhVr3|(L&l>g<hVIV<FbK0#p8E?vXL|y
z%Rt&Px0Ypu=2h&l(ZgLH)Qd<n7c8tu5a;4Ne4V&UCGRrSa48Yl`QF&fOccpsIFAQZ
z&{*I{j^Rw%bn<=Quentfnk9N@>_wUdRLF_x)NjZg0D_kk6O$_Jee~+p;KLvIV!8<M
z1sUgk9`bP!DEi7%o12=-K)cVw!-KLjp*x>;cj|I>ms)0{r1N**?rrf0ekW3doX;yw
zeA=UH(7f<GSv&Tsktr~{?vIx<772K*DA+?|f~uGpRJFGvArXfmGBxe8V}XK|FJcXe
zV_S5?DgT-NXh*5TP|PBhJtQgu#7@XsAkr2yT9;F(sjILF5ya(-poEE<8P(i4T1}wM
zCEGyqEAh9N3VSBf%(pPB1B8@Z_SCw%i@kpdCBR`x9Uiz-s4DvEUaEkApy0+zsNx^~
z>!&|*DZa_-h&#ydCNk~~jZ%O2RD&xR72@$GMoVSVzV((YL5G6pSqmU=dhypA)KM6E
ziKuQMV*wzCN*WVLt_haO)*cJv6bn%LL7TvhPY<5LM#!$@c&Wj>`y$_)o14o)n6Z<G
z2Ov3zkFwA2<O7dc*N^&<q<y|^B%ZIh4FSS!HrbA|Vz?`(-AAW>-=>X+8`%wgcC}^D
zxYYx4<tnKWno7$U(qsZXKN9-G7p1=l``XEgvLI|O<8(w&W1vZ492!DYP=nRjA<lbC
zXc>;+At@piGe=w-bJ7_ZEJCSgV7s}KdW6R_+>0d;p&c8*vCP3Hcm{3gp&>ZZL^L0j
zZj>egGKDyd-1UxQHu~Az%NA?}CV>MyW6omI%eo{v58`-f>ZAwskYJ6pAH8fPat{2e
z11Cg%F!%aEJjv%h!#Q$66W%TW+MFyOKtKF{`)U69`Xg2~F`)i{T+ad+{4$m0zR~*4
z$FD%1+|s>AbndJVpj!^!mbugWX|@F<O0%sL6+Tp|xPQNy`y>#~=8>Gw)gj9j2IW1(
z0IUcRglIjep{9lDP{qlA>Qn%)a9*B&obD742`Q?wp(F}_)MVkteZQ^}J;0RW9AW*(
z!DWr5-fOKrh#TK{T;JBtuEQP&a*lXzech?|A2<((yBew2Vkd9>lSedYjV>9*@6|Nq
zT7!P|j{0=@YX2ml{h%WC{_KX;`%!Cp{Q5w1sAbhto|`v`{bgWKP1DtL{l`nLym`dA
zDnzI?Bq-*%Mm95c{eV}Zm*hCVd#N9J=6i;5euj}N=kIktV>fuL+bp2}MuGG9!CikI
z_-Cu_zaMb_-TV8|t^4wS#wqkqr*1qDu~!py5srV@C|!!0_mD;iXuUGP`Q5f=tgA$3
zHYlhIpn%W=T-pUBIRz}gO%yb|J+Bf&QCFdZ3TG?%hYlU%q{KZVK;1cn4NT6t*_S|y
zhbkNHw@RQF(Fl}ZNTDo69DO?oDQf*N=baC}Hr@6;A~KQ!F-8O$7(!7_i!}9-Shp)g
zLMOrA*u<s&^h1E%NWTZSc?@<xKXm2=a#BiQ)5@VmsRw$lhWm3kugkgwPATH^{XJ?9
z<|hN?(LybzBRzkiiBu@K@e@$<+Ze_`Nd#&-zLgTo7sMxdKhL(MJnQ<$`&Ut~21d<l
zdM^6SKFzH_3FxS+$9N5=64Nt5E{E_jRH}fhVOraBE|@+vxq<<$k%`Zr?*{rXct^cm
zG-{Pl2fdzBy@e}hf8-|Bt|M`ZS9s|66$h9XZ7&O35sx=2ymK?GiL)AY5vH>19Ifm-
zi;jsc33bb-Kr09jPkn3ajzW`+vRwsavI^+7+q!*gpdql;kG)8|XkXMTK!_|_jcMNv
zPzl6JKR|hMmWi(JxB0swU-XRyr<0^s`paL2b||(AbLT<LN7|0mfmL0cfC~A9ZFY6d
zuMR5ljxt}X2PVgXw#_Suhx8P5QlmGLhAu_bKKXHhsni+q*6@O*gn-Lab7sG;(0eZJ
zd#3%NuG^XT_!rN+bsWDd_J6b2mYNwzc>Cr}t?Es*K<`9e)UxO9P)bURm*z(#38|TW
zBk>*}+P*4OEI8h*&xLwBf<`Joe?~Q@*f(-G`9ITu+5y%V*0#r2A<+Y^{0Xrxfz)h!
zDq*YPY8-xK^RDf0+w9_5!b#8w*_ar?@_DD|GFS&In(u%OnjFc1)+-L3+c`{zECP{k
zk{L9h7b5>KPPw2GFYOBIj_?+{1Hvt$Qwcs@CD|)q{$6{Q-ZDU=B8YnVvhJO`3x8?>
zE<?91RADTsh*F306O^8rMp%vk*n<I}@)OXU@X~=kcLT^`CJLev(4!(Lyz*7lyNgk?
zo%aD^-wFC2&cNZQqZWvY#O(3(LJP!I<ycnVhezSG4ucF$(kY2^dcS7d{;vqO_)LVy
zANDD+hzq4HG4q`oG{v`z#6uT|5OiA*?G%B=Lp3LJ;Ga2^nWFoc)QCo?&`$PzCc8bP
ziL+H*OfuJd>=A=pBRWi6v%xNU{kHw3lKCB5QL7V@h9dsmqC7Yda-1?KOGg*aas0a4
z!RcrI`Oxt;20KZLjud~Ws!ai4jeWVyEEk2HT%J|%kKXxzmiPOg;e-Em7ygg`Wfu?h
zwkJs?NJBdbBp2>Sr^zlEm|FwK1ifmgna9B|?P?KJvzZP4;=8g-L?5)-+qdHe4?4D*
z4sXC%2Ox3)io06C!)QV-oS{1SbK9@0ER0iwFbNmn2Qpb<xHF$Eb7H#)+({uxEs)Yr
zPeU+Bq>$=cFAi^oQve2_%9o7&q62q;G}U-K@HQYMG3>sd!1zS$!stB*k$CN5sNUtv
zO+)r;NXpP}kg9ddr(MqSZ(NO>+-#!I)Z<uo=aKkY;!=Y6%^U~yRS#C;#@!!-=hb!`
zDdyyJ{~2KSFB5t2H<0@eYjNltL?AWe*IfnDp9RehxbD0tw>g?Nzawt1=2UIpIg`!2
zIz8{Ui5bqt=|!%<;O>JUxwYr!9l;lGhMvGrPKP_rPrmg_O*E_kvTY@1(Ag($nH~BY
zgY^FsK>IIe`oD3eU>)z`ZUDsRbk8AHrZxB0B~)Bd0V<X=Z3pxONmAShW?bW6*`;~~
zN`EFW>ICri#xO}UvQmV!nFvsINPKk|fVbg?Wfs-#=KVkLt^Wp`qr^bQZ)u?bC^3sK
zuXM+MfO9SEesqC%QmaWkPB7vDW!I=PTw8T<3Q-6^O(Btz2`K%L9_t4dk0{bdpYs1r
zMHG=d|GhB$z8?QY8_@QK;8g<(s)sm@MRM};aObu%KV?AUPouVCdfB20bh0BEpOk*I
zl;%gK9tf2c5y|^t_o;K(GilF;)5K^OhYw+_E1@L+!tPxhE3QHA_BGO#VKI#LB`D2*
z8T(d}$ZM<;&zK_MRK8YQ<^bFWMu(3&Dm2(XImfrEYp-TENQQ1XsR9cx=|B~1(!X4G
zkg?Nn7<ywq`hWhc%wD|p)$BC+tt0N;s<Vj`!|v*BaSL&8YZYJ2CyGkDZpY+4Ux;P2
zPx@&bJi5Y>Utgaz%{%%uApa!f6j>$)&GT>g?9&-qHWG(=ehUnET(k+}_3Om@OD`O8
zq*V!ukGVy8j>Q)ze7T8H)1994cZV)DNPnOyIKMR+@)5DF4R?)MBR|{Q+aqAS46u>j
zEd0sJBm-k(<EL+LQVI6yOV@wGT-7r$;6rU^>ZEDf4d_ff=yV$MvI(Rw+kry?d<~cr
zyY|(Jp`#FpQ1bDGfb%UFs(XHFkC-`3&ygf=`8%fnYhH!uu7x~XU~j4kZ8C>uP>CwL
z2$>J2y#W#(urQ>B!lRC0I)MzgJqA+)fJXtHm{+bmI?lg&YR><-SU2jig2RFS4TkRi
zGZq#W>gw<~Do6whBsyo>6IADoyU%gbx~0S6do}fj#h9y+C<Yp9)7o57w_sXE(IKeo
z5nY0T8B>>!rZ=egH#mhK!`y#=p&4_4@A#FwT^3N@imefmxNo9ma{(Ib918m)P_}JR
z|Kc?2Puc<FBM?&wgrfjwpYos^y~cm$J9F0_kKLWYU)Ln;K>sre{(7$~QDTor^|E5?
zp9GA5w^Hyw!_QxST;xxFNg&8S+I!G-r<!;tSPMreAtqL%!Ww-FQ!N6aBP#@Yv3NlX
z>87sE8UOHp4gcc;F-*fS4DP_ABB6R|3y5#fkP<Br_FsY3i|sOaN4<OKkW%LZ%gmA`
zFVylVCe{TsH5l4qjva>1gilP|VTfZ~+F^Q-iHFWD8=Hx^mAJ=$GF$&ZI{k0svD#In
zd>BV+4GtTi+iin6n+AP`A6OMoQ!_+=%>e~qsUkFf12ryZeK9a?#kqaUhJ;=*X7I%S
zE8~<3E(((+UfFkNyf<8@{KLJC79i*v2Wq+eN5>MPKPW%MCP`A;{2v#Bn5zeI`5UDQ
zc7=ivMlW)e+PP5=cIy?$MmY^pP;x@TY4h&VKvbF2-+ghzN>hJ6J0K)Df+LXZx_SD*
zR?G%<3Yr<Eu8ul5k-|*x@lR^!`tB40d_=`UtrfdYyOI1zov4<K+RR|y1*#x-Lr@5P
zdz78K8F$a0KVc`ZsBf<1n8P?7L|2{wNmfrM!`B@qHk?+84?~kfkOCZp)Xz&oA%RsM
z4l-LXM}2HO<IM~ykf?-#jPo!@?gk^U7Dla9gFszGF1@@`8Cp>5f|1S+1*TW8Ug3Xi
z%8eta$d*~mydSttyd0WSwT$+`xI2Ej(x<&JMvA?(*aIzNK`_#!6oy7@2P4Y&=bzuw
zGri&&VgTTksroKReS>P!yEq%rbAvksm0Z-?pXRr$kXDm*`@IOHfp59bz>9n*0;S)&
zU=XkZF@VNqf!_=RsqGW6R&Y7WFcc1m^6MW~&usWrrBsN7sYa8iYH?%EP9HZPFGW3f
zvlTkNTanE46xT^kKPD;*A}#~oDR2`40s`jXFPvJi?qKyWj6|>dzJJ`_uWPK|(-x{}
zoB;sdG?ppq*+;Wmkcw4l_Um2nwn)wg-L^f-3{Rav2_T^6AECKUNP`AK3E)T0OBm|v
z@|evxM4C6e)J!_eJ$N0g!GHvsrx4W6jQY#d4ASqzc%$8D43H7Q?g|N5WDpSs7eGU#
z#fRV5CrNDwdp>oiu)`rt7+xFVO(GHm5*~vmqF;oB29^K8*>QUAAW%5LWRr5xnRQQ8
zN{1n-Uw;7<d%Q|P<ydxt*=n(;JDrDwg#NY}h5OM2HKa~Nl=n1i{nT!Uw`=RxuUf|y
z93^W7>IZ^76;Vq2GGGqCpoANjBjT8VSqWj!hOzOxPyK-yIv!NzyzZ)|1HH>G4G@ej
z8#!28A3$YaH8V7&$!uvN5_HZ`7jSUfur9$JcD+jjOsd;hiDKD$2?zwpBz%HJlojBL
zd?oWundh)vb*JDFtC5%rja5Wb{@_+CrTiAV05>6~g`*J@6AOhX1TaYIaw-@MSoN39
zs5+>w-T}Vp%=j;&-}c*Ls-Yl@pcSe*r_m7$i)L_eUxt@fSA<p%#4X*RGz<ng-3e6B
z(~Df~B8#jMb@0yCxRbY`_=KFEFPlZ9fQB5ZeVq0IX#WgGXbgr!FvfC`$@YP^FT`&y
z(k~EIrIDj}^=b=S%`rj~d1X!z!nnlzS93kN*P+0n3(F7CU>wG_JT8jCx60ZMzlMnw
zd^JPRoI!6OdkxPGg{ZEZUyI|%cyUA3yRHW{b^eld8`?akX2(%U^#kYs@>Frnt!;Ml
zz!-Atx2SlVU%=)~p4_LYmy2^vF&DA|)4R8H0t{EopoJ95^i#;tuXWN0r3#vz!X#uO
zN3T2#dfofz>c8DP>D;f5!{Nf3FIMg1xqn^5ud44(r|;p#64sO9lgyko{^ZmbU*P57
zDxs<bO%Bi*0Y$hyAmM->cu`bp43w~K0}0YhLDmhOH@9@U=YDN2JcCJ?Ir1AnW>5x@
z#(26TP68^J<k{}0^7dE3(ZUpsq{ASs+LZ@}r4}~#w}D(v^Ft|=$dZLVQ2D~QJs?Fq
zbx;eu<=K5`Ni5K;6!;aqc+ov)g7Jx=3J9BkNkdD)EoT;bB!^v7sP3g+3iDC~5Dy7O
z%QMImCfwz^kLIwz7(f!0iFkLYbt7y4mJRY!er910{Ok(RuBExNKRRs$*`PFTNDH;g
zq9KW>K^RT%{4_90v?D@jo^8%2Z$~ZRFCfZ;DvqB$7th`at8Y79Xq}cE+tkuR0S2`@
zJbvLuu)wiHi0x<i3@G-XIgAUSXmo$xPpARuu<3o6QB^iO-jfI<IZ^|S5;~D0lFeW*
zmY{YX(8ZJk5bs9gPmnB^VAs}Q6I+c^oT`|UvPiB2y?>lZka;bpf@rWv8Z~cV4y4ao
zXgnZN<<8axsPLlkX;TcEYI&%zpjDiw<zbV8+hKG3%nartzGj9k3`&@8*mL+W+^7X=
z=NN=^AsEz_NS8~2ibd16dE*hC>O6*>*`S@-Sk;_c-^sCaexp@RiW342PezJ%fc09R
zT8XJ!)tqS-udcq8rvg<OKJ=K)eKvfAKMReF;lK+U%%F*dA5=^|`<~nY?aVy}ZRs+I
zTo)MZB?yHuxemy6+S~|?_xUVEEruae_gq2JX`7RQ{HWv@3syopW&oVfBe-Qt>SkdD
zxhtUD3#vVBe2jhs+{;V2O0}~ul<u!8r9ky`AGGIF9jGMGC`jej_T8yKMrIHOV@9K@
zqK{`{RcYv;<6RyWK`aP?#g9-&ORTRi1f}*S{{1>}F(4;Rs#FbV1_Y6p#i{RB6NYSP
zI*(xC_G&%?w3}J&D+gl}US?!uRL@fz<L|feD|n4&#5h{T_hc|BHA4Byxct@@S1Xnj
zrcPmx#|nQD#BP6>Fk?@f@ki7`K^JU$vif*WOUaTeafUP2hX%ftP(TK+irkmAjm@xn
zUaUJjS2?F1+@cB*kkgHhWcNr#j|#Qb1ZvjxQ!r$zSSt@rEezeJed75M$um}*nV{u6
ztwx!%HHi;F8(vi~{5tJwr;dDd2pR^4rd7&^d3L(Cl${)iY3!bdT5dVQI$&3}&SqGM
z@;arUf-I&4_l6A4k^SIqDbQn19n}DVyV-e=i{$GLJGR6v<>r_(?=gjltpmpAl{-a)
za9BoaCKdC*D@pt53jZ$Y_*!wO<LZcs%>mFMQs=>&lpGPuIHnl3I!HC7g9vv12qcr@
zb3Q5+mN^wLFees8Ysp+s0E6z-T9_cPaU@dOtjlsyc;|aTo(cff;ixR<32XDnM<pIq
zSK>ezXd%^A;uo%yy$|+^JwnVu1vGd)GLedeQt=I#-dREHn$Gw@jsv}@c2n-1zRy@2
z5Cnujf*rmOC`L_{cpX5zk6<F!UN9Nya2=oSZRw$3J9Q_aPaqDJ5<y8t%*Ezf*Gt(;
zgG%EDV8naQ^Ci$C(F?`?18*{4zdi>OIokUtjZ97BAcUrTpR~8OJ`1x`V_>Mq^SXX8
zXU3Pw#=5!(XfPPKk-7L@NR<yNNyFo}L6Dt*b>9mr?Hkucxs|6bri3<%2n)ZbJ|V~N
z6&_(DvCu~Qb=)E`9d1<n3eeVtLs@!|sugiqGxTKt(_e@nuFR?av3Jjz4SvcFawQAn
zLJk`Ejec^X4ih_FvF=GQeWMzX1E$jfmgSyVM<fjNqRumL4DWl>X!M$ss^Ype5W^})
zGE2Jbh=3}2+i}p#NV8vrk-sgL{zW;Vt4YvaRspUqy0bPPw2;`}LXpm?nqUmh>UlN#
zk#>^{==AuSk!+;e*^V9~CUyl1he7u4Ttrlov847+&h<h&h0Qdn%eM;rRB{{cn7sUc
zP>3JSHO{kXa<IS8L+Za%*qil{OG`}bBxLK+_LuJa=S$#JH5HoKsvu+B%kvQR0k#26
z6hwy_(NUO30|tQ1tZAM)jGWkC7UEVIbBYowl%Gzf3b(i#q7ABq5|_@g640qb3mJ&<
z17ZFzov;LN;_zWM41cm~Q9+F}9u&o{`q3h!W=6BDcz94VrbZ?G5t`cy<Coh<i_q@N
zT7d4m1EI>yR!eFK2=O`XYIsyj4zRTbkfs#oH*M&*9W9n3DJ-@c{CXF-pyNdFCQ_*1
z3vztW?HI=xAh?4jDc`*5h+81RnCPp@{h-HhgYhuG<cxqwk|S1QhytRNuYHbGhus^^
zW`9vvUzkc!rAJt}oY9$Hgn}sz)M%h5Lrs^U{?2bDK=z3GJOF${3o30mr1mQK`h%8c
z*7Vj+S8`cH_+mCOV?=q{RS?sl4Kh2IwE6k@0vJaK@fRxZKsMwUN24JaFk(!AhbPkH
zjwZ1`G6q6^+KBt=icV#X5$c6lg}gFX#dReh==Y<U6M>*Wa&=%Pp!MtHF_;2Yl%)jN
z#WH>}6p1~WGc00ZXQq#(5D0`Vyvm>tPOrgw0XE1l$^`jXLDm8^KM<M-=~tjsYJx@{
z!&Fq%8-{`@fUe84?J^*E#$ti=a+^O<_T>_e4bDtrAsBSNB$T6o)SaJ<f-}^QC6o+7
zns?BS2%S89Gt{eoHrg_*Uu-F38IyFpa+0cBi)(QT*<qDhJFpD?4z7T}w@2tG(sTK!
z)lX%hGjC~@qDrv+G91d2A(_e%6@frD?r4zZ*LS~4W>955OLnK%SEX}?>g4+Lqypl|
zNzPJ&-W@JSwi|+~ZQbCXnzu)w*Fz}GjMcc^($WHgH7vu+FpUMnaDpHyQCBZTkx)L2
z8iUdo)c1=98+OB(j}X+di&Q-z9r>O&IT>GVspuMGK9Wi<asCuhZHYz_!LLncZS3rV
zK>}$RpVs_=(ma338RFGdMK||YM{m03KfG!!slu08N{}66&m__pTuXU0c-tYTbhRJL
zPfOGzYI%<g*UY<%tiT5MJdTWX_Y_qe6}pq3tnBLE*Wo~<6F!u*rd$BS8{5#P(2hbQ
zT<YMdGPxNFzT30~qekH@=p^cnK?%l(nL-nX$a-r<Ke|u`YKYCov6y;~J0wPxD1FF0
z(<$wqdnX`wq1u&9c05~T%{XRv!YEUSWsq&7JZ`yQ-tR;s(?bi-r$P5Ens^FQvy&*b
z0R_dxoX=jz&fpVcz=CnniN|+>wD0;H^i>>G5~t7E)V``^4%d*ga`a*uajl}nk)pMj
zq5!Bn49X*LpqPgRvNJpSs;lLO-<3OS*njv|A8X0A)$TDDN=uKQVbZB+8ayW{{@p-h
zvD1knoIW-ZWfgbu@NxGZax>!M(4Fw`&_E~J6D(VUf4E1Z9Pz7f-q=Oz{-L8XcO!rq
zE1y2i=Gk+GH(~&0$ZqSCOH*Whs3{upp?ZZ3Wh}KmX(5aiWvuWY`_>7!#s_#C4eiEz
z*vc6J$Lq}70j;E0ep)A0Jk{WkmJYBe3%mVj5B%E#ap>O&=!lAbN*_YjFUp>!067T_
zMfP27WC>70Z#W)}rmKqpgJ_pcHzZFy`EZsFeb^~Yi(M{_7f|DaWed3bG8p@Nd6t|m
zc)Yl?#yN8A>157HG;`4hr1qnA<i>>J#S+k9+@AahfkOqU6&*6uPj<HPyBSnX(m&ar
zmtk3Cn^KGZzQBAXFyb8<s+brVQc!}ez9BqU4D`eDj2j%8qo^)r8`}sfxL9AGLqn6G
zA;_)L>D<uUN-2rM@zDF`goZUjOfvi_{L$V(gkg{h7a?9WJvCOP`8atz<iiAXCTv6f
zQFdLV!rL)OV}}$p=qKu^YpfhvBf9#1xfKQzki_&k0i?Ys_Y`t#y^ioJC{IBY2yGZ|
zPfahCnJt{YK8IeShA1xgw#6$bM?!z345-|89Czptakj`aA3n=20a9UOC6fQbNL}P-
zMK^EWe2?N>XaYBJG7hvksH>@HA1@<={N1fgfflMnDH{zd^RXYv7!kl6P(f*sBuaxm
zOu)@HkI|Qg;+Imhe4uA=dtS0I8es%n1rRx?DGN>ihtW*8KjuS*;achB-Qe9d8HfEX
z1!<bcq2o&$QXq&YsQqA*fZPF;z$1rFbb0fUTUAMAu0n^8j2hp}LCAfthtqKa1H*Zn
zY0%xD4GWc5R143c4&1WO@TK_sFnkQnE{Cpbq`OBFXtA!M>&+m_X!zy@t!&*WAIIa-
zbkWBLFTp62<ckczZQHD3T@9c$pbQE+3M95NR%4zG8711Ul0JUZO@@>Lryew;7<&4@
z4Zwu42eV(-sqR3ts8PUpHSK0)=0P-%b<~LKF=tZD$plx5>t>7#N~15j0CYKA_1qiH
zyS_8|f`Aa$5jGmL*=FxfC;?HmoA;YSL2^<XATtY?35EXY0Xn4!riyMne&0qD8WNx(
zR+zqF0h$4Mknk>OWF42#4ggnya7^aMyff-B@0Ymc_hTt=i)b7wVs{ktmY-v%RSXYD
zL<=jZe7Q@ih$v0MX4mBJsdWOgmocN>$6;4tI!{47<?RGP=@ldL;ESLoKX3QohO;{Y
zoMwgBt}K@i+12{8{><Lf3cH_bXL0c{4a}{+txz{t<Gwbsne^MW>s(t(&s{7n-*_YF
zW_~*&ibR!kRAt#wbC&l-SIIUKplfGpN=|cPeEcDiNGz;jYUNX_dwMKF!@_d1v&YTE
z2E{h5y-O-78JM3}@b>n;m3K9DL?PWkV$oNXpP%2;%j+{}<Wz-IGDcvE8;r#2?d{zQ
zB@sBN+ETXIR5~&;($m|!a%pMFj1G8LNLcu$lE}dK??+(7A{-Q}E&lP_k=okYwvLX4
zDUz0!*3K|WVPT<WW{Xx%+xf)$PfVuUnM7SvGqW5rd1+|T&pjuD9UB`<B9VHTO!;-|
z*4@gdmM|FY?N{C0-JN}X<5(<KOl)kmYjdXQM!%zBld*jQwa&^llb!O60RhacK+}|j
zA8HOfk{A#W0L`a+RsEz0;D){iVlZTBv*myDgZJFBg7U!Q<+g!~2Y%&8v~|M8mCJ)L
zpTCBw_SmT{=!cl98vbSN^S!Oh@}Ld-{-dW^z5Gv|{IdQ(c!F1=rf%7V%31BY=)#((
Mwbe6zx%S)t0{Q(6(EtDd

literal 26214
zcmeIb2UwKpmM&Vft?m{TQ4s-w7PAO6DxgGdK^jppf)W*wT$CU=x3)@9urZ*L5k)15
zK#{>f5D@{%6iIR_g5-SPujt;pXXeZ~bMDNXd(J(>(_7q7_1FJ>|N2&V-*+v&P8?TW
zv5a>ag+f`O@{8gr3T3eag|bNhZ%gnK#)I%dd|RTgs;r3b_?kSF;f`-VT>j<!6$*v_
zCix$mU;EG{3gt(NisHdD4nchl&JWMpW+@Dogk0?ZpmgHk!6RjNdCZjgBovjF53kGH
z==);SLA9vj^rLM*jA}fJaFjXu;BkQHx{x!gSGGLaveBgZsn4SuZ6{B!Qd+g-w_hLC
zI?vAyzS6&NgXe~vMb)R?QQ2YHrmSjv*J|Tp%{}jjJ2G;F@0N59vyuBd&~tBX2Kftx
zB7OJ`JNbU+)OWh%yT`rNgWr+AMBek@Cf|R2`h6z(PT8@gc`^C^%MLa%^8LV(9~@X$
zJ9XsWaEVuoCO&FpuWoN|KdGxL;3q$2l2D`~*QACEg=KV|?EB8c(?XK(_U+r8oWGZJ
z`e+}Unsg)g(QuvTUw(WaWvg1qhDjIsZ<8(?ocj{;M3>^F9`{!L>$ffvp)JaNrStP`
zAF=FxE9FK?yBI07GiS~y&d<%Zz89Rk9AsB#YSkN?l8+axpLEIAF^JR4k$-k9aGi0m
zt$JT#iTug4XSrksGOxJIv<mu}$7f0Ey3dZ<-M&(9RiNbP=y)$6pg?c#TY#shiJ6(V
zY5B9fTH{duLpPRty?pty#(5yCRaI~5ROaA2b`jsi%U|E6&U`Csy>n=#SBRYRVR9FD
zLuU*>Jrv($ou)mVeKPQtefxcle5(R}Zt|gL&YsQ7p6=%houBD!EmIb}{p{JZSb-~A
zTrJXW?ZSF0*-d0mqYKQK>9QlGhpfI{=gxPVW^zkNNRSOzQ<$}R`*|p-{J5&Ga{<4-
zMP+uuhAT&34<wnEYcd0h+FKqOhj<l<<;eQVe*4hXkYQg@QIUI7ek6QfZ%m?o{w<ya
z%Z7BS+<is)P_>?&Vq$(%Q&W=T=M#;NCA!u{-x;SG&ots0P)_YqJDEB1MRihcync@$
zCv$45GTyDS<6-%;V?`S3>h%3p-BF<-dWlBG>k4@HTN{3v$1WA;%uV%99=x`MYE`c)
zmbEvus2xvMzNxhIjza6LJ@lIS(nB1@@w!>*I!*C;KHQxg3NwR}B~(ATu@4H<eThuo
z#8t~|`NgogktH;@;Xrl2lx|zc(MpYBSckGt!D9t?x3`~%y|#t?lJ7b{-PF`S+vwCA
zYnbEj@9*O3I&0+m`0?X!IWz5IT5^83bIi=lzTt+=hf|r8ZXMQXMh5XZ8T4YSCfD%>
zqv@olrGH=Um*VA(Lg%tw95-Bk!!}fB9?xa*sYo<q7dEUsj>p%&$<@9urOEB2hDLQ<
zg8Oh_Q*O>oQBH1zk`KLR;IVm}mrQ@^rq{I=K{j7hhKK?9%!ayrE8I7fyM`e<H{d=$
zy<XPg@~1$l_~L9IZZY3Q9I`(d6+f;tYNA&1R9l&U3fjMCtiitNT&9DS4`X<7P?lp?
z_|3!EDj}hk`x?4l*V(!0<~h#&Y1>Rgt@3$Jo<E;<KJ>-usQedEA$2{D78b>iCB%(B
zJxuM5%cwi=IJ9;uTV!mOxV65A-)AcQWcnrYT!tN0QLzuUGvuQ;BeYILbM1;1D}FC(
z7YZm+a&>jh9Lnb#>U!drAAk*f9v5e6n|V{vZC_k^&&#$^0p~tW4*7`-F`CIcVc2{3
z?#;crn7w6B=;YBaoypa@K5LHe3)k7$T%A3ZOg?D2puB8|Q_l<X_crUab19ZOvU3xy
z;wGhGkpq*Rp@N+u&XzFIO(##EUZXJEt!7aB`qJ;kMw<eQ^LyiS1VU%~jPK4}>G<Te
zE!5?8rGc1c()Po**8je%vowX)lsf!b#-PxDOIbz5+B9v^s+jX@$V(Tk-1lQGZKSJg
z=(Ef~lA|Rfq7-|3?BP!vd3kyDLtV$blm#3&_w@9T70ZYExyTFN<hMKb*7vNYCNH<1
zi`BQOF$RrxB^1B7yY<)+UA@b17i;y+zvXcIsUN4-0hVackZy}Ti+J&3N26nBu*1aH
zo2_BjRvwuOx$=2`g3IK$l|hALWjy25gaIk+{)MGyD<<DJR7^L`&$Vr;aGxyFqnpOu
zxN*Y;uHx>{O8JRq5x0t&2U?b<W1Rgr1)QGex$%iDUd1`dE}Ht|dAEzFRRcsD`ks7U
zv~=aC94uR8tfbv~a*dj-c=z;ViF<aX+xwdwYE!NwPXrrU(k>;|&ZJtk`p*$(7wyU(
zey2KNlj>eY#kt?s9RDCCDQQ`rz~~j6pHQ~0|Mu;h%b`Q>*G-e7r!uc&-;i86-3gym
zToNLeQOV>p#Kp)dzctCExo1>n=V?cTC-yUbZlqyh2dXbFp>f9OW=We4z^O9!R^gsF
ziynxm>XyLy!B=WB-LXS?KWq!SlQ}n*lGD&3zGV6ORZ<N$rww;MT9-2Lx=0kJY`oWb
z0DJ3`?K(}bQMg-}Yo9$F+%{VA;<Q%Zc#Dr%KDjO@=cP-RhTuJ@L-j|F9BDCDm_Gk{
z`I}(-#`C2&t*I}`GCzL&sQ>Zaj<P4peoX63;<p}A>q<*kAzC!(&udwxZ86nz>V6vA
zs6bri2HT30v6f9?k&&C-uy<SH-6!4)(o;s5FR?`ZCbGmgzAA6Dz9%pKGFRs3mUPVg
zDdIxT(K=$B25&srsQp)pC8{?w9fv#eUY?DHe>2yc)(qU(^8Dlzf4fk5*OtNe98LQ3
zw->!^FA7jTeY)Jp)eVPlGgDPGZS(m>cB<H>mij9t$8_hr)!falg!=Amv+eVQB}M5p
z-TiqgUn=|eBwFg%8|u@sh+>u*OnTcWPQ2!w*73gDJ!5cGo}LcF#Zm^dQ=^M{Qtn9i
z{*z;Wd9poV8#CT*G&*6t(YYW}<t~X2rh6<JDsDWw%E>uDH!$BA=Q`HpK5rDyaB|S3
zQmKIk{pr1ND$co{oYc?x^)`nM3=CS0Tm@W5$|AFdVp{1InPYu8`*m4ORjj*h^_7V$
z_e*$jS51DuX$c&edd#^p{hTH|b8?`C^d|<tCNL~BlJ}2IjrO*Fy(#ER?#Qa`cjbJn
zXdM?97eZTOUvGPW-tn>SKHCQ}5&!HN2u_vWY$0!id&hziP+Rz#CJwu_Z4&fq%yL$4
z%64td9RBQ6n`oS}FVXfI&M$(<&)=Nhf6AxdyLT^lsr=xtZKDcvLw+J-w36ky{{HTb
zM`owTX&U@g$DS8a{$t_=8`h8@3wLz(>{*f{;H$7YpRJi3fxhahG^)?fIt9LU27YqO
z<c+jmMn?zAZ627L9-t*O!2t#)Z9Dq#Ri60pq)R<QQdzV{{KQ0of&el1Pr))$4@7l%
z;cm-nYHIq-4e&R{Wy#<t|8$+3VY<Gsl!C1BM!sz!4*H26HtiqpTQR69c^`h?^h7Vm
zZRpJ+j--A0&jic*vDgg197L(j%w+Rw%LJNMqE$+=yDHrC?nQfBvVNp7>yi`fn03VY
z#%QI8!U_7v-(K`aTQs1r`jPqI;k6yoc4v_C94s)8XBW%-$yCpEv@(#Ymu_SFTApTV
zYD$tatqlX;ip2cHT)wi)7@o^WmY&WQ>G(%vIdk$PXKVg#AD%r%im;Sj@Y4b=gKzf@
zf7<gTDQT~ekb0~pSLjqlR10x|M$<IjNIF-ArN!j8c9o3u^z>`SrH;!uSJT88PW<H^
z&DS`N3xth-6pqh*cbz?unu9RmKL$U`ji(XoJ35{-FSihoepeRY*<<|qR<*9PNF(C;
z2ctw1%0f%F>Ak<PLU@oTSx>9C(b8|4p3%TM%nyEWuwS)h%a()!0q0yerB(Kgj>Z+$
z)di!~dZ89MT@gMJadC0A@{f)_t3AaYpZV=bhVT8N_QxX3S0q*$j9w2YG<+P(H3Od{
z$v#;(ojkOtoqp3-yC7-DjvZd{?z6pxy$o88oN4Fq<iowDr@l=g%(kp6n8MM1oTMf<
zTJccM*=~dT%#gUlVDs}AFT9Yo6#rZ<)#zZLr53KlbTm1ywdY;RxGRIdpA|cbzR#3-
z{`&Rn)QJ|KR<bpX&Qsk{QoZ)MoXVS-RaJ)?DxPs%=G|*@Vrg`rHp@|k>@hyhDcqep
zrdyCy>%iYQ;5y)3SeIHNH?EyI*%8P&)X4ibP`;FQnoqC#hc#Q1_Aj!7g%ulx(tM6?
zU335b{lebLXpNM#5~R;HMxpwRDLSKWi{K13w>3As<wtg;;@th^X&`m}ld=5WBwEhw
znB8@~06jOyFLAN4w{aM02KR$oKkX?wTDNBFQP0udYVL%`)bc9Zqk+h8<jl;?H??Hh
z8cD^ZITwkfY<8_%Q)4NcktAonOf5t<ZBsklthM)Br^0+%@f=^tam!-g%T0F4(<^WX
zCcz%|GFmxquG)6Bmzc}+dwY9Zt8?aTzokEYx)!+sCw!o)t{)81ha)<Dx<A99r{YCn
z@9p=E{KW^C@~>UWZ*xLXahDc-m;8{ITGDj5sn0qQ@A;XM`M#vOWv=|?ChvaxL1p>|
zpC!5L0%}UbgG~F6JED^I=jR`6%U6|4YLm*DJT{XvKRz#g!nF6e>`-o`YvGoFz0L>f
zp7q23I1IjB%Gi*&r(bKF4>w%O%SPkWwyiu{mg7FZUct?U<U2!ES~R88r%x+prmXBj
z&}gyGnbvVZ?D4%XtZ`UT5piyV^@ojtx6i7pS6T3v!wm=_Dam;#VXpqIG#S-TeD;)C
z5Hi7Hc}+bnEyk|qx-!Jmhw`pY_wHrd2g>6^#4k6$NyX!Ct<=z?t}~QEw$_s8V=y(+
zZG|c)ulen@R&23jRF%eu-iL>g4iwxq--8T_nC<F2$n_G6=UT%hS_}Nt>Z*0@bzDZH
z^=?<|xy!+~C@Suil*}i|ABrhoL|g8e4aZ^Jk+TS7c{p8sV%Zb=)&i&jhu*P^<r>Qm
zKiY>3gCSvL+>p{RyI@UKPihw17$Ydr>QPcLdz_JzOK6GN7!bFo?J|^S^?rqvqGB#e
znGH`4->z$MKmv4&<VVGRrQ8gxz@RbH(FzBFc%2ySwB4eq%~$asySI*J#EEKg>P}(d
z)|kZ4M~oWXdbOI4&~>Z}w=j8Ikq3ERe19YFN{JjdCnxdF^)}_lV#nrNxO3K%B(gKq
z-HmVOd{p?MoB2pHYB!$=#<5LY%57=(t*y|iOo=;rzol_wO2Z%L!f45WojRN#&cB{P
zUrhqDrzuJ;)B(}0F38k*cC?y!b4Hx)(E>j~L3VD@TS!{cbR^blA=d8F&D=*yjDFY8
z`#Xai5QwB>pM6gEH64B`=4zTa{;{aYpzXu&%(@)7Qu0{VOIn-@bj_J=7|1V{YT5u}
z(bDOBfM?22)h$3`>+r2`8(Fp4c<S{`8q4t=F#psna&>mRNufVye(oII;yfuf1f06U
zA4<`5Gf}aTU?({7W+};5{KO6NbCCn`%Q+<t?7qz>C3;-CJMy8p!QrE!@^T%Y9<3pV
z2A}jCr~UU$%K3<n0w|8V+xG0r)Um7GBH+;c>$%s4Dl=2nIlgeUyE;lj1xd*RKUM>G
z(LzdPSWQ7!*^?(4@w&mfr;T+A_U<2ivxuZrLmh#%tphqF@8)_p#$-s%&2%ah(A=jP
zq_WZPuTM)bEc7QuKdCT$<)^y#wck6f-~8s+V5?;()z#OHH@UmZ&W@B@O*2ypV$LVB
zswdqnClWwgBkvyf9%?O6K6dOFeq|J$FWTnXyI_$1g>c*Y+$<#IO;w^I@p=D!Y~+iG
z?EK8|?}di+$zIP*zT3xMB&piV=;3W1{r>_=`PhcUAi;-Rlyaf>(cAweU=8cjc2tt1
zw#~dM#tT@3egK=z34(Imzptd2i+pTWc2ViZM@P3JpV=fNgz78Zw%1#mlVW=I{CS?I
zPoHvfp48J5Ow*40z{SRo%!mun4}YD;n+$$rOG-F<2}Km?=b4$ZP9qKj)kdzaS)s-h
z=}4s2lg|DnowIUmVegUU`seJxrXwHp(dH~YiD1s(SiPEf^?xrQ^?&9idVrL5rCU$B
z#1u+$Wh~$R(8A!*-h0{O^ZEmll8T2;8~iSO^}9mlzBB6TeLJzlE()7iu+iDm20{DX
z)v@DYD`t1@Y#pn6;-f=qeEthw<lBE5>PN0kVHwieBa(r)b7q;ep^DRLc?2hOXuT~J
zq3kEXsxU}arp#}91|S;E>J}neKI%AwxtYlX{XFmW(l#b8eFlO)Pkg0!9#K_IDSyPe
zaFW{AP+)~RiW`Y59?EE%jjLqBx`wg_T*d4fY^&F$h@E@&qiEL1mk;gMfmA+R=jh|T
zJ9h5eNq>=#9MZ(XqW+oq7sE>ihyEM;W5Y+XK9tVNiX>K4R914O2~obhg!94K<q}p`
zlnfNHRyv?OijoRZLnet9@aSy@66;*<?7{2%h-V7WvGalhLz0<bQWh}*KwuSd<pkvF
zPi^)6V7R+@Oef39_9(Ch#K>FloB43}uyYdc^ALvl#j-|D)nl{7FTVRtD43tD{7pyt
zC*I7cP&cQb%kO?5iK!xvCW1M9qjDxvH=pRZ^qr`8^#P6~I1IHEj|C&lqb^@BuCM6Q
ze<johMK3;F{K6ZL)Q-pI5eO3<#ev+w3`E{NV)?S97-W%Jrx2j7Em`61=_z4ewU_ar
zq_g$cr2?Lwp74e=I?dMBmgJ?JoZ|NV^~dAZlA8;gO;>uusHu7Qsh%I$RU%bbBkmRw
zBW1<S8wZ~e=oOV1!i`MA5%O}6*z!wN%~Tb@Dk+Ul!lYEiZVl1q$7m;YbQ)qxzO@%^
z5{hu2pF63kS=X|UgmX_%k~sPlm|IvJHCmJsNvBJ~Bc(`0-7(|Z@`x_OcESeP_<Ntp
zMOw7h&VwlACMFk!y+3kfZa*zPA|fJhX~ClISKWKw(+>x*JCNdq1x^EUoXnF1(lk+(
zlFfy*uheK(162s;{BkR;Q*dFNoCNqPHqu&gm5-OV1ywZFHb`)8@TR!ohdXwms&x`E
z1J)_r2LkRD8b%nGgye}XN`Lz0%P9qS%G%s#YwA2~Of4+>2D5dny>3`YGWy(ONp;7*
zZkNdrU-H*1Z*On)0>-}5(VUB9XWsZm6dg-&X_{{2E{{_4^Blk0h?IX5sj?sLzI22I
zi#dL4Gy0Y4Cotg3E*bNl;cp=sm?Skf@%|Z}Zwmnxq8aw60*eK{Ro#!Jn#?*cd*iz)
zw8TC-N9}|Ky!WF^$l(bzr4;u!kEE9|F-Ld%PE9%8{qkd;q~SgOx)cxFzRNgr27}FS
ztpExXYzfd_O)R)T&|TJ7y61VM+CXF0CZQH&6&AKZ0EImr2KXB4zAfkEgu}NYX>fX0
zT%0IRw9L8cniGAiDJD08?8eT?A56G^@7`uMnrOiA@X`Y}Q9^9lpNAmw_}Ga>UoL4q
zVD|W{?zPwnU`J(J@LEpJ64~LSiBvuTr!l0pDN{a!u_=wP%dD}w=rz&blMSnpZV+m|
zZQ{zTmv@~aCqhw?V3Q(aq*4bS`s)44-k=upN{V!t*7uos-sc0x4+&14NTgyfj>}KB
zd3vTIx0GU}WM|8ha@5mvUyJ7^=`=7tFx9c%)ocUaT*58=83Vo~t>xvNOY1j>bI6?P
ziMGn)(qQGCSPB6tEa~&x6ebJFF>@a4Badu%{_9Ic`YpL$1b@7_!TOiw>wmhC5xj<6
z{D9VO+>c(L5WNyFYC$emrymN~Vxr$Zhws`_4oj<Pl6tP$cHF{>acAS97MKA!#nhLH
z*j`>fz7*42d(YR_tTO%_dbV#j#pF<q_s7(%u`WdJhQlf<Dt#z4P{#fC8yugI#`gy_
zM|&!T&)Zq&d2<Q8Ub3Sq(YR!#F)#{k)srIwO$wH2?GGLTHYYjJ5bA10AiaG+-V#dW
zr*j9tzHh~D`UuErDm0L+7$6|m>8Rtk38DqMV$GqOD{qrzjR0Cvr&xqi-}dy}<&8-{
zUE}uP|D7lEl`E2&1K|(fvg;JkKQ%K~n=g<zHp>6GL=@TUe<zpqUzhj~r3U|NJO8!q
zd?Ao08YZ(tMCA6-t*85T(*s|B;LiA-QuiV=GqYyPfs}-yoTYmn-3nEpNXJCBg$|Fw
zA0U(`c~(*w`dYgWu?^UrK{hVuWD`nrET6K?6J_(T+YZnPbq%t|t_MydU0*vnJg#;D
z6HHL0&=10u-5h7io3^eDg9n8B@z%+=JN>8Q28bZ69<$w!r<97As>t&EgwRlr*VSqB
zru-63sLb={&nqetx(Bq@@50|nBZ=QR>DZ|GT_baQK#^^<9=)Mko9)Zz0gD<puzZPh
za{FejIXh}Cs+!hzJ(D$LrT70qyz~E_#x)ki`1MaMfEc;O|2Z=Kf6qnz*FyeX3W<N~
zLzVN^IS@{Os}R?*THt?ks{nE|p-kc`%dj6HK+gvIdaHycx9Mc_TZHMInH)C2Z^do8
zN+)Ux<kzw4tOpM)Zzi%n(j-Teb1)9)Ren6JggQ0{%#a`Syf<(TB|uH6Ou{R}?A~5o
zY}NfV;IL?bYNPYqWM?b5SOS^mf*V3c9Z~+7RW)2NxApRnLe7Q^fgn(%xKjq96@j`Q
zGy+Ry0Gd{wP`s&t$6LTEGc4u-9T)ue!y3@5d0-*+XC{VDqVS+)jjC%SIUo9>DwcO!
zs&PGl;qC8g|0qvXW8P+zAD77klsig5CAZlrB~TBjf}THr?)mlo&4Nn-I_o$&bD%%~
zK7nj(q`REZ#Gag+TCRjnYokU!y!EaZ+oC1864lykfLVys8Z*zO+jNh~OOUPcP{(3Y
zL>BO0;4tS<s3lU7r4g*k(-X+-jM22ZhDO0qfuJBKC-_2U+Y#2?)x{&d<cp8a=$20Z
zd-;<acJP{JJ&`ip_Vgs|^xd5cX{!^`R-IQD4k~7HH>;mLE5V?H4)*lyYRYks=D5JO
z@A3sCvQUczpW8xi>rGYnYL4>^e~`hcK;e*lNBD@=Sxf^I7HSFIXsIgs+q-{Kr+`3l
zi*9vkSrckv`{1%hMQLd}P0T}d<K03<U@Hkl9+sQ#7H(!P6e>0~`ICykYp`A+^+gsw
z{{Frt@0nkI0Qut+9iJ@?l8zHMZ|%~&NU$bG4FN;ZBHQMDzU18XM@8+LD;)Uv_zXa&
z#`^Bj&-JV^4t1^5a_gxKFs$qU{y^EK-H(dpzkX*Sh|=0^j<Veo5lcUSVsUK+&n0D>
z+AX|@2-=X<3>7HMiQnK56zB}Pa@=PY7?D_O<Exc4RRonUjSu#+%HXg&>21p!!PyZe
zgp@-kwY2yGw5?SV{oYYy><1b-ISDLCm)1q@ip^b;BIzvEk~J?9DC=k)%~-mE_uj4_
z%J^d}P2~12y-)xeD7~_2+jcq#4H;(AX#my|5_xsW=7636Yw73&AJujqZ?F%PGZgqG
zKqOYQ^nob%pyl7}1p%<`YrAtuA3T6okS!x#F9#(qa6~N~z45<SDds)}qKM>vV2xuf
z<D;W}@chPt4hOsvIbFn7lbv2pKKk}N^)bM&8Me}kd}2kVg!EhU;XpcI5qpOw(d5QA
z`Ct2QD$IO+xX-F(opJqPMcDMV$tBtUtjrO%cuOpW!U#hV4}-M?73|QLP|yMv@Ro2~
zYDDp6Y=qy3U}#M^Ijsh=#x3bt|D@zurnQ$`;EiM#N}d~+?LP<Y7q_T+HPIoJQyX{L
z{+gQGx4VEa^~d^Z#V>ul*JfZ13g5?T&9=kfC<qZjpoP!UEX9~d?1Kf6G$EFVM+i`^
zm?^c%Ue&z+c!=!&B^&~owbO)YIvTVuA<y;3a-P+MJV;EYN)u{LD^@k*b;8EaK?>0|
zmnfw-+_>&rIWx;haeW(1SPfV{P(!1udwY6V03@7AykTu20Ge~xxKG8P4(I<YkkNLi
ziax>~n=I>G^Xj4%uAfH`CU5~n^O0K`e#ij&4{@`K=dq7Dmy@NxlC$yR$uzyVM2sRM
zw8!D%^lnrxKZ{@EPWPogddt{SwIGM<^8F9d$B|F`M_KaX>e5Uc;p+mc$&WqOt(9$N
z!W&?J#Mg=GYIlXRyiCn6Zx=P%_ExcAB7)Kw`0n3Ipmw0Hr8ikG=^9%mFsKV!gowc4
z3qb(1Jb&Wr-C)NMvCN+AIG1d8Hk^Z~=P0FAF4^W_5IIDfG1uunw~cUaLIgsxdb^mL
zWP603yTz^R5MFwd^<cZ~aP`BAMEOQ)bT#=&!%S!ktZFX>C;=K$RGewsrr<>=1fmp}
z7>##lhFg%&qVQMjU>nHCli#4B>v##!THbpOg$<hy1KRP#2W-su<>$+C9`}W<3O(3$
z{!8ss*4u1$1PcsWmV)kHkEHg~qdnWO9UGb^Kilg^1>1R(y@2S6Cu1PnnFPV1iB>;l
z$-oBPORUX^tg>TwkfMX(E6DX)WAOFe^&z6rahwPG=*79|up;CD245mo1U|Ar(N~KZ
za?Qn^!$VkgF2obOfSxSI-XxP(qMjz(ls$BtM&8v5NTR86%Ytz79X>@PPMZhEl*0i2
z!p{$S19C{<(yQb3j>6=L6D6Dx^kGujqp>t4MMb#R68E`bar~Hhb}L!!0W%x3H-Sa%
z`hY>j?fPm6dEwHns^=}$<g!Od=<sb`E(qYx?b1o#D+=XX7eFFKMWPer($MCFd`&ff
zlBj1MU0S%UQ+}V<+kibEN(`OdMYwPxTl?k)D#!&4lpk<Tu_Y@vq~?kHD$GqpqUu+(
zKfHjmzEB_Zu!k~H+;wWiXn=6JRz#Xeq8{GO<TY+}gT;kOus+9T@nQ}KL9j%Tvw31}
z;@QyD6+ouL2u}beDz^6JF0wQa(Wqv&0YWEw3&(j{wdN}wJ60@td-RFm?DGR>Sr5xb
z4%Z>N8{j9`1=g|Nb?n|+rvqO_$=~0MogC!J<m4P39aYIdiE+V|^{$Dit0m1k5W}6(
z&`^d620<u99a8|`a(51FrNT0umE_$A0?uMdbxEcw(?CVc6Nv~hI4SCQux6Jv`8_2)
z1}Bi{*1pJhg<Y%bbAQ9ObTjkO9^-ZC8_4fHM5D2Q(7BPQNN6PoB&P?E$f!)?30?^=
zS~z*HaW>-4CA5TI3rLc4*?QO1icmZh3OxqzjLYbMoCITNGMdlN&yQ>X^Y?QAi#jU3
zgkvbz_v*d>7?cc*zWJQ_=^T}5?2O4@uk6b&BWbGV*nXcnmILhR?ii@Hzb<aP?XH?H
zf-3+msH9q!Doh+iL|->OhfVM$B2w@(V7<r+*#EL8De39bZqS--jVEGCl2$>Az&(VJ
zvyr?r|K5(%1V-}#6eZPd4=<_&so~#0xAMuJC9@S#@?7(ydh=Wa<VSKsgr((b3R#tN
zO|$*>t=OmDTP!$@Y;s9+L$ktMt3nH;j?Re^j#3gZbcdll?pA+Q(e9YttQ|{_ISyR?
zEqrt<WHWx`loM7OIzC8+3He8K5r(lW{W68F8?_{p54l}_qw@eiIO6fKeXK`zAf?n)
zl@-(|rD^}%XTLbEbxjJnVP9>c0f<#r`r-ISQ)_N+JjY&Lg>@S`N20#ZB-rN@KY3~5
zlz85=p4h73RfARVU^#QWIr)zz%>BoSI&a@Z^R*{Pj7x8_Uera0IW)Qq7ptUZKzfo#
z#A%C`EZ;tIabbyBR}~DI<Wb)pgD7QN{epkpj5EM3s{JtO<_bRbuCEIwu7Dqs+$Bj>
zRh3;%mi7MmsAls)U$6&pX&q2HkxX@@r!u+}(sLl}<KM1sPivjh*I-+mh>SP+(NRUk
zwkv7xN?NW76>`j8Xe*g9ODOu~Hf){*=hcJqGlTDkAU{d};{w$cYZLU(Cq#Q(Eu3%S
zwvl*buaTCL^7GsIE5-nZiM9xods=4*ABbAJa1Pde9<X`0ym5=_14R@OM9d&=)skBS
zyJ;oB<;f?9l?Z$=>@LV}QvBxEMeI7PP<J5U3=ZapI~$>QdYGvT0g|@E*Xztig-|Ir
zB8{Mg$;ITb@PRw07Kgr_&RwIn*6A147HFOr^cdeHIQdKXO;%bRw)lYw>lgnJtaG_|
z-FQHxJ3v??5)#CPgoqN3X?2dg&O<b|{5z6O5+>LMQr%l*FMv3^3^+IWkcB9+B!*pO
z1{sE*Syz5hy~DHzkhMNZ9l(G{PRHqFNX7w@Ms*-%sZH{r;FEtWtbB+0V2Jg{9V)3Z
z)@>h1Hin|8{m^Y*iJhiIIJxKJg5U6mq0D{daQB3S98@b|#t3iL`eBpbtuJ4`teYM{
zcvI0@(A<~0!59YM!y;Wlr_rUa*k1z%vz3XODE>N26;BB(+Uf8{1~hJD*8JS`Hs;Z-
z<xmz1z9cX@_g}pkvirwL!r;ctnuz))m6x?Ead31rRB--wl7X|GziOU;86F<K(UgN{
zcVuZhYZq+J;~t12JF+2U3%6v*kc`X3;9tENzl@#57q^izWiTF4*l%T?KED6yU*D`S
z`a(?!p+r$p+ontjV(Ib5Up3D~e1&Sul~7-toMjO2u9q-7^H&#G1%*1)nrk>Y0ZMri
z*@c?>R5>`kqf;|Dwti5iy{h$JJ`Q<_y23q{(S*tLmhoKk<=L~<GHbMIA2yDa-ViY<
zBfDEOg9!ad9vFO*w0f|@1WzU(5zP>7cOEngjb@<<1_k*<0GSWzMfv$lf9yf<?rZkf
z-d<Z;K%zLPJ()QL=WzjJTb)jh8P|^d<=1{}iAdV6=(+x?&v}!bx<AD<T*@-EREkd4
z{ZdyICL-ci+5gPZ*|5j5V@sytjl*dzPrr!jKa2eNw|wvD@QV@kzg=wGeWfF4V1T1_
z?}z%%PaCrLfQ%FOE3p4OK0NEv)cL7XyF(&$(!~I{J`1o%MgfFi8%ez&8tX1BXE~w~
zQ#szj{u5xch-eTP{dj&iYY9`=1+*eqCg>6JCy?<XLagj^e_AKX{@!mxC~!seS(P!x
zRikWCqZTbo0`*vcANL>7{Zahz(8~Rrfg5TzfSM(@l7PDW9d*E^Q|1Z6bj?B@H)5*9
z;SdT8U}drvgx)Sw<)OYT9u0Ey)Y&lx9B0>pagChclJTLA@C_t{5xUc=GuS?#q?;=K
z_g*dp<BA>U-|%sw9BCnvdQVRxOd?|a`>z*%e`bd%elKoWpZabL^_XV*&#V=nde+89
z8@9D4*~)5lR`zm7bPI<AY)!X@j=UdV2MX@XHdC|v`<=nV{ryE;OsVc5&{*M;d{UOT
z7PGI*B}~sdW^oE@15LEB5zxAT$PAY6CkOYmnp|?tpDV)JWujwZcCm7!p#4`OVq)5a
z505-YxZW-%CT7c%Wpv>Dvx+U0Qnm$wg{sby5xz&C^yD{zT5_B_DE3j~tkUThK9n#W
zoSKuBCGwjj=5N)U$AxL>-OoUFQ|UX<qe0FDC}E;A_huE^30imtpc(y*d$OJ-gwNM&
zc<e0#KLyV7Q~=xTDM!b&PQj4~i(|(s0@D9RsjC!J*kpT2={J7wkT=1O9gp(*UzgOp
zzNDJscFr_$2jg7NYD$*}TxM@|JZ`&`26afDt}~O1lje2@C9bfQQmJ1><^8!Mt&}9;
zz~Zrtrjtun@K&^|ylP}DJc55Ac=@ya=uDZ|>oK+Y5jAjSXZkEjrKU8%V#<Cj_C_eR
zt=1u`kcQX=@Vr?BKNN6m`yD@g0tZFPq|~g}uXk@f`fwF?@qw5gQI=hI9dN47hyVrl
zS4$LhoA_#CV&X}Z$U;Jm!y)6j^=Vhwzgj9P`fnbBT#X#{HGT?n4t)r6R`avt?2fDl
zEgjxP2uzkRfm9;o;w|9geZ0Mc)$YO`g9luUXL>Ypya^B|1`W4EiF4x`)d#!0SkHqM
zs7klp=gN35INPOs{V5ML>;rwP`z19{uMv@%qM|Gmu~oH;$#!-97O^xFb&c{xXFv^1
zx&kBy><q|b$9?|D;X==jc-W(`xz3~;4fLPT)zz(W0~P80mtUt$@}>t$(JWJD`DmFZ
zYvKUU+wEsP3|DoSEusz=y|W~=$#NQQFDlRA9~M1aqLA~-m1y(7JXO`AP6JnxpPLMw
zPaB+#LMw*;9|^26mt3=4$3ue_!MU%3LP7-83%@DAOBUGrcB$Yk6y~{v%7jL)q~+G0
z&z=M|fI7s}6aIeIYG$Z_J7eM8%16&ehuNM&$}&0JS+FB2Xf<)rs7YZA1glf`+yC{q
zH7y~|{a%D1v1YAeDkh?&`L@Hbz9~!6g-nLjUg`{fyPAuv+J{Kkz`Gt$yT>~6rN&&Y
zO9ocLMttSQY9@+lZfj_nLx)LuNBToJIngKKmy*S#5}n0JMK^0drZNTC9Rm5Fpk+xm
zZu3?1MJ?oc+)joIni`6eZv3a_20B$M1`>SuNkzq5JbRu=9cM|nN~1>4y$Rf`GSj83
z;O#y??(PTu_P}e}P4l?4t-1g`k+?&>3rDE2+nB7&qoVisy|&Y1Oj3n8kYGy9KqgGO
z$dF_stM+-nQYL2G5!RZzt~eR4Xyia^!u8AJ2u41nf92yxP5Dando5!iiS6_HW49t<
zQp6tN#E{?s6JaSlj|NLiKt!lzp+KA_ec_CSwUUE}9QHaB`jVHGk1}MI^X`5AY8Hl&
z{a5csx>eTEp=&=;^Vx8>2%YA3G8y;E_4mix#Wny5%$XViJccM=s)@;V>%YVm1ogyM
z!A0$J))DFt%n;CbS@`ivy!`7Y_<@#xXQ%u?+eE%~91eEZUrm@e+gGy?QAae4N!4FI
zba9$A_$B;NmnC8mBoBkSgdd#@Q}Oe>C=_WS&#!Oc6@Zu}wdZBDkdS^?X}CDGF6pmE
z9gA`Z<Th$=Nz3~61_i#i(VZZICmUYe>Zc$OI{C@iPSgJ@@T9&GrP>8!O!N-v8X@vQ
zKFidN@{@&X`J|Vj6%p$AbW?g&|1qhCwJ6*NyiWbYcpJVVWx0JeT0O5oek?(q5rja=
zD#1R>PxpoFWZ79*Ne@VL8PZ(FQY^w>{SN~_!o#*>kJkc5@Y}4?LI8YEPs9TPrQ8yb
zORxFEf>W?T@~D^-T&KtM?OE3PMr*C>ibhC0*V6B9-eEV+y4RWWa2IfyX|J+C`|I0t
zke|K@C8r-fgUc8kvV#W_GFaGBa|uqxjkGJBhZS>)D~(o<-8r^{brny6)DLw?J$Xs9
z8>>Z<1xKJj$RjGMiRPsW>j^I8?M+wP4@6l%;18#X&*4W#2vJk8Wk!p)F#e0{DjgF2
z!~$<h#g+8_$YvT(j__m>q$B~{DZauMV<Si{%AKLgx&_U@tKfR7mN(Yb)xBF>2|<N@
zZBs?XNWhx2Yh7ReL|%9xrz*BWBCvSfca0C0Z`k+hm4b?Ye-JBE^hkO2Z%}@+&gQ>t
ztUY@&#urU}T$e7%bmrAs(2Hk9CegujGRB{Eds9gfi!(L!Ty0av27delbX@;OB^!Ar
z#b_{2D<$rnE$g+VDh<mVZZ79J6(i01|6QB^eBpm=J1^_v|Gtjk{|_$la=R^Cp8sYQ
zi@Ky8A?|aNL^$077|SnKD<!|J@NTQH-sF*+Q#DDZr|VIL4+S>OZ2j}7k3&>w^+~*d
z=!!U+SZC1VbN3#$0YDM0P+HZAra%b1l0OGbTq>GE?96h&;t-6j-W^d5+*!T{+ahoE
zg{;zk^pQsj#IK~=mMDWZ*pwbjux|gDiq=^f8w>CiF6j5Vh13eTre=`aR5!uX&!OFx
zbvg({N+7%mh|g=@kF)G5taa+>8)tNX<|Eo_PRyaVsCSU?Z#48#?wjg*f==4c+v~Fd
z2jvrHj5NV0`K%)ZhXFdRlwud^>*%Rjr7Hi;UI_l%goKVO%#P@cactQ46B?mNkq_*n
zE;^YN1CyRMEzJy+q<VwMK)s7*ULWeSqmNc|a;nJ=DaKc_QkK#XH^D*6npYc9YXgu$
zeoIRz1_K8Vi~f-;byko00p}^`8FiB3Mm#4}JsJM2b}cymTiT-4W~(ych*Hrvt;Osl
zjuG9OVSJU(RO1rD|ICpABy0EV4r?M<A@kce>k@@7rL?-b8ucC_iirlE*z#{YFWyhN
zz6oSCmH{$~rJD+Lbqr6cFKUFUfp~}LS)y-;KTJPoI(262<f#D4fu&#*-A3oW&$x?B
zl3cXb+ihO>rvp1j3QB&F+5IuDYg~2jnVHEIZUxerB8BbN*O{+hyUpKW?N5f6+k9uy
z#zQx-ZD<#-G7F?K8fUhJ5SgFxz~Riad+!nH$~(_=82+gR=$S*+P?Kt9z%6_%G~L4B
zg(@X%5h$@7C-<wTgz@FFgo@^J$m~{Yd_Sw)GP&f=GB}K;S>IFWKSOb#BTdIcK_ioo
zrzawAa(Z?@5Gian;9Ke#T0_=tQuej5b=T3+NqMFfb!_-i38k+w)9BEEioanLl`L^G
z)7@b4FF%C-E*;mDlfp#8dtE{f3XcZ;K=6LMg@jh3)Ypw>#f31rS^4H-6c7N-JUt;7
zn-iT*p)%GH*RQBZS|zhIS!Q)W3!Bf!X$9S<GSWG8CFf^44o4&m6(<`21{EY=I8^5Q
zfP3nra1*h5%5o3xWyV#_4cV^Fq+@S~3rb4lIw?7`)F1@#>kLBeC=0rd94}bOvwO2>
z_C(7=v@xMuS`1>=l=8VhgNQ(k0J&V)Fir?x*;GqWF%2n+Psi5dLF-fMtyRfkC;D6m
zbX|~E43c6!l%#6<aO<%S`u3;tYX%9?OFA-Q<!`LuTSs`wAoN=*y=3|SuugDI<TL(%
zEnE37g~y-3$p5Pu7{osQ!SVfHbO{o7XH_6706TR*{g!Tdjfn$W<Uu$BBwGY{fDU7a
zML<A+Gr=~_YA749unjUSq#W4B{rk4A0&(BRai2YN#-{h?eaZVO*?)NcXL_@2tL?Uh
zxR+);-YL8|ld_`}kVX5jPD$DKnOP>iRk6SWRCNx=zbKmO`u@%maN!8(=SZyBE-dT=
zq*ho+2+@Y{%(+|#6;A2Vf`9f{iwPb*_Bl^b-E4=jKf@+wT#`Jy|E%FC<l6sN8pfYs
z&;RDh=?m{uaPFlc-c&zj$MVo4I!o3n!FVm+dw6<&=o}UgOGtq63>ljH-g3#)3rJs1
z>Cynh^u{tib7(#y;^O%iMII5RbyERU!4KW4k6$+OY;0cap?m3nMf1)7DISaKsptj!
z*Fc|A!OypnhFOdHRB@sM0R1xE^3cH73xg+41+ePLS8G7N#-2+M5>4-lz!SL6AoyNU
zfSBL(K#l@w_#pt#55lZ^ujbJfUZDu6Te2te#15m+1gbF+x4~<ItVtyKe6(9csSdVa
zm4=S(*%w6%Z-R_Xs2}kjV5$|+mI5B*AkNClN}_o|f^r*OKD$VlWm$w0X_Y?}z)Ay7
zlnyLvL~TtFDNj$Zo~{A2q+x{vYAJ}3FeGKnjLJIg)b4S%0ZbQ)09FYu-*-c;e&CMN
z&yXsD87womUC6Mbkj(K(T0j(mJCR`lGDKAcf-lYb(%&;|Smy~dKzhEOIlrZfyg-Av
zrzcot+<EMhw^}Kdx4~P}>q<1BgoAEKU+U$tfXIu^tlW~IkU%<~iat4ZjPX*a=|s;?
zib)BCY7rKt{nH^|k_rS8o>nMPO5>2VK5r;?SKdK)k#A}@nEr3)(pWpDF<2&t;`7!0
zm_AF?&*qs9tk>&7Lqb8=$Bzy3v!;GIUM`pBr#zP4Iow`3tytSX6Y_do{^abh9QV_g
zQR+_4(P!=Fn@)NkeZyG6#YL0<UZ(0RRYf#F*dpM5a@I>F=jrLYb?9xl@a5uD(M2Be
zVJ;;v%5vlz*-F=ZRK9iV*U;3kic6FOCr77QOd|Fj+)Z+w5ra<U95Py8U!}(ZWlL+}
zw$Oz{81P)S&;9S7s%vR!oqPQ>J3G5rVL96YbFw$_S!3RwQuBc^toXooM;)CQzNisA
zJ&~oi9$!=8VZ#Fu5OlL$ca57ugAK$*oSbA<lDgjCs#)+MQseIAbk;+!D~EXybZf9W
zj&#e{7!}0SL->+e-NP#3Ow@8X9QHgqN~S;w384Wtr)ZAKpyy%g&niw%qT7tGT0l1*
zpsG5o7zFtiF-QQu1P&zylP9YOosbI9Wv`U!dsPFCiK;dWYk8w*h~oE%PHulQA?5d9
z=}1bYRXjgQ)EtL_fu(!~^~Q~QLd%u%v{lHQvi6!!4BLraqOX^@7QiObgXGlLrah>5
z3?r(yE)ubVxTOH2j9M@W!H=+F5ThADQ~|A#ZqI6#1>5N_p@~5_g*i#O6z{j>kG$o&
zT{7u=u2u79vNq-aI27T}pmj#+1$&no5lN}|BZ;vo!x`lxBZ*L>pfvC*yt^$R6%B(X
z7;|BTK5d+B^v<p4*1mkuOZdAVV~Hq_v{frAx?qBr7iy4{TrM`9vzTepZm>8r>v_bx
z_bW^ZLrw5@Toe*mqL)PJcR-Wrpa6zv-0iyq0q}OJ*T?TYd$x68N2%KR1=Q=`P=~yX
zs8~#i%-eW#!)k)f16GG%cT3z7k0f45PQT6?Vn&0ol>{ZSmY~8^nzNRo;&RZwxs{Zs
z{wn^Pci3{W9-vLg78X@Z`PT=*k*%WC1h-qKk<LG&ydr&_gh|2$Hxnn14t*1%jDqG<
zw`VuoFOSH8H39H4q&2^##=uX+c0VOD*LU2nWA~$@eE>JCN)Ik2LxNUe;*vMu|A=M3
zp27gQB>mxz;-Rz>S2Eoxv7Ct%(1$2SV5evSBiaLWpFfCDq@3D`VNT#~$cb1++3~t{
zwl%gYPKVFDI_@@s%gKm2z1bd(Co!KCsE6DUu}u#8Zx%QH97JH4TcGXb@vI9Nm{;>0
zq#B?aExLtQfUeVyb)wo`@vXoM<EQ$J75LC9=c1T7nNftc^j1O+k)@HwKNbN3f4|G>
z{s9^%Zv6tGZi(_09jYzpxw-{3;9WMt9vK2gI#;(Idwk~IPBx0i-1EuJccD{7x2x5=
zAGYP9$ZvtB$Q#lCC<A6aC#NVPL<FL!2>tfOsLM!SF4#-3G-zZPmB^y+XFWZ*!xqc@
z+<-eST)GKQ@<Ix71(UZB5(x<*9~O<nR5pS|z*sRvgRwA93H@g_v8%e2W8SitUPbmk
z0fiqA0ohqnzfk;1WTK>wZ^7UZ-)k$SxBu}-DHIaxhyc{S!B#_2kqq4168E>RW8dj|
zsLwPs&FT;;C7X;WAYF36Fotl2{A(QY>p3|grq%ltA}7;0<ZFK~6<B$g!X%`qJdo00
zHW`#n?_OJzrdjgb@!+&Se)G`Xiq*VlTe@Ktz`1ID*g=9><x2;mU5D$xb*bn<9vKor
zr0!&@60m@CJ*Tj>Zkq#&nAQxUZo?QehaX<D9Z`A1Udl$|IJ#a7CWcyxM2K{^YiL_3
zk+~qE8GWxO8ppGZZwuqjG+f3KLvMo-kQZtUdYgglfV9}Q0G0Cw?>O-#AiHgRO_#E^
z;fgT!F<3U4?xLtjWGPU_>$Z5K&X|jEbkG7=gH(t%Q{X<MyqsTpZ-_&S7n$?+L-Zo2
zKs-Djf_l|hf;_pn1;*yC0ZyMNyWlB$qT?;CepnhtgRinF`*>fNo#D((*7!jfPT3O%
z@iUmHtv#57f}8*u51W%0F$N-|07jp`r$lxQ!hy`}Xa=$-^2Fu`=4YX4-q-W|3E@u9
zJcUIl<_4-t1z{Kt1jNvuJkDdE{SDzF=|{+@Fy%uZ9RpN4AEY1J7|M`!h6}gIAid3m
zHzD{XIo$g|-yP9eUHTr`vItR3wc<G05ymsYruz%4xq+lVFmyrzz!dh8$qiV*)#!5E
zLdJcfTAX7x&52lo_uhxyd=l~V%p%wGTUGock+zVpQpZ1(y8qAt{m%@pWL@LGAEQcr
z!PO`&l(%_E`gD4%h4jZ`US!~qYo@A^kw7U^J+TE*Vsjh11aIk3x@5541MxB#)X4t!
z9S}A~Z>KwC7Ry+F)=@(@tAN&kdLZkBPC=iqgssN#^u5h0Wm7#WdHd7=4quf0{8%E|
zvobj*u{HFwaHT>0qv5f<>Q$7kc-EDjprA9rxSi`4E|SR?$RTuN!yg_LTKnF2=wVU2
z(~Ne$dkNmwXUtBSJx!c5Wh#J0&k*T9=CqJBd8vTIkH;Z|U#(G<4kV3fcd@YlTzP+P
z>mus#1~!lE_lV|U)kGtYY`xgia{@d!FRN4869+2t9ueI}J^*#tB|&;H$O(k0Kx>nW
z88VZ2eZznow>ySus-8#uIIt5>#Y6WBnv9hdb2A!8;|QX>;mRlR1)`4NbQuL=I_XK5
z*}@?j-XbKV3;81f{D|Mc$VS$L5OS0y!P^xLk--(n)QGizrDJ5#+Nt^>33%^dU-JR8
zVUfyFGGwL`O)u;B7#$^*{<Gu3ykxc$yh*TcECl*wlH?HDZ)FhU4bYP^6goc{igVx8
zVNj-ftQfm0LWYzGPJU2kDZqfxJ1`iH>sT{Uh?b9CBE>$GsISRgk`{k*mk?vrwWnfg
z;DR<5ipmJ|uise7&&wKN1LsJlMH&T*oKMhKB0lf1p8$Vya<UaB1{NUh@gdBZ4yXFc
z%Hxa<fl1tF1Q?XeYchb?kxV)x(z77js`Ck$GTP9gSCb(#wkchH&b}ty)|`xdVX2<U
z;3Gs2akrU?2_o6VoT)QWy)<*#<cjQQgYamBG~w|S89yugd;^Woj7QaX`eoyN#O=^P
zxS2x9x`3HUDvFyqf1eq=sj#cw4dX_)a{gXXRkalzCDbu8YvpG_v78xeYltPdv)y~E
zq4B#rKif3l&^-aC9a}k8oI_O0!M@I*MwU%K5Yei#)PcrkT$4#ueY@&Q;Gwsm;u4|5
z1)O{BG}@ys=rd+kcM*=I5LaVll@Ojjdfc?~<=H|^U7{C>lX)-f%qwZy-^hr=;w#9@
zw+?rf43w7GlNTX@sxi|;3V+-ULqP2(hfGaOx=POx0_GI<oEdsZOOn>8-PKCQQ~FTT
zWybDC_O^oMYlDK>+<rqb^72}2V#cVwp)A*xT{dI&4QV+#uD3E|1Tw4}eQ!1BE5v6=
zW0UA)Qp<=p2n{YeCK=4rUqOmx48z7cTgdRKo6{I{z-SqOkW8x~2MG$xd7*Y=ue56*
zy-tGDH3gat^CScU@Me;z-HK^3o=iqcN{uC=Bf;D)E5F6kT!qP~op-O->)4X1K}hY>
zikQX5n?hj%B(<m4szF`B;o5ab+<k7wuEY_OG4hDh>6t4Ilqw*+7a8}I65o#ivyJ3h
z4OF9VhezgWaxe;t#5$($6GS30l&kcjU85;I9~{i$9vXyi>J%ND6?xVu;Fss7I}jJo
zpxkkKdi)_=gBZrC!DIg-Bs7`3O+KM$4i(I+pEkvb6dPa73pMV?9q1I|a{eyzq40EV
zWR{gRB-U%|WDx{1MiN1ty_<s~B1OyH*a(%*Yw%dxh@Rsc>h;Y)@oJ%~*p1~x#>B+@
zq{@UQSrs2f<{pxXbzovtBm<AZ|32=+@S^M4q*qR~G6@V@u$eRl|M(N*LP4ksa^*`!
z#XaOK8z<Yv+#ivNT9#Lq4ER1KBgzbsx??g$(+eijM>{iTxYcdQ4@K&uaJuJJS^GW*
zCu4}5lPT{Dz_O4ChZLGXi5U*H<Q1aNfSpPPeu>J-qoJb^an~PCWL`zrZL<AcD+b-%
z1)0-E2Gf$r_Ol>|+{lT5&*hxK!EYJC389;V`Q{;N3|&SgGR8JK!%`JgOfdHBU5zfL
zC0XM<bJaDV1%_GGROMjy!qq<iXXDR0G1H9N>WBKb3qA*>WF;_8m-O}{?u1=JZ+%#S
z2%PAk&$Ry*RlC}GIN_96^Qhox$)Ozw55oO_Bjs|9B?iM@w<81i@FGZ{=zL+4)sH;v
zF)^tS5(cflPOYY?s^bR>h^lEF17J)<X$O9!9$+So<^lHUc<_^U0|r{-JB0i((1l({
zcdW66hoaYDYRfkCh1ms;_r`X*U^1OnUo_OXkI;J(-heJPJJZv*nk52?wkU6~Qe4eh
zNJiD_2cG&qvw>$?<xASo{E(l!te2-DfQ!QX+k9G7%rExuE|1#A`TGWR=25Gf8vprD
z_;x{Y`^k~PmmxQl+23EYn4)O}^ewDlw%UCb$!H&HH*pNp&>17+cds)AXPTGt_Y7m+
z0nt!K<+&0O&?et~kTbcBXEfQ;>n+nT4M88}zDU1JcjVn=4B~-X(QrabXaF>z4_!2X
z0NC;I>eABE6Al~ZJ7{xT<)L}9OZV#_E}J+jt@;$4eKHIdSsUOXOWX61GOZzO|GoQJ
zlS9LpDrYhr6grW+jm(V@>4$Fc76SFUY<Dodby*xbEEPYLCn#<p!ZP&>dLry(-e;Ux
z%NiWP$w~Tah-xjCE&{+i9;GG#5!h0)<JUxb{%KY3{p;$a?bRBZ^t+3PYG5c0qqcmM
zFUO%T9(hi{2Qn{=lapJ=<|N2aojT~21+4JQ;LGy3_3Fb%x1e{Sv15+^ptV|j*_1k&
zn{2B$+&nHgKO~4pQ)tL41Ux-4Ytk<L24D|vx-ljgw-_|?kX@Fsi9-?>U+jh;%YLv7
z=~F{T-BaTrtHXh={7`CLM|L-sLZwrSAhd3o>W%lidt7=4oDys5Cd_rBE+OPwRjk&N
zgoK2m&K=Jhd8f&wyRXJJNcEK=KF1{Mwb^8XEYaJ`s$)!r$c7B4Qq`xah<1^1WU*Jq
zD`uIu8ZOC>RSY}XyEdQ(UIR_5To3%dumxt5CRW;!Lc!CM)c5?4lhX}un42$*zCurX
z<fn*QjQ7-RNHKVzl^dA&h_M^FfTzjqyVF!MBKx8<vWH;#x!5_VjnXS!kqHS~2%?XM
zIacYiWSmZAXi`%k&Q7USL-+hGv~~yyVXBNml5^t&7pA$M59wxwUPq9y`I(S~5or$6
z!|U-Ke(sWi%rB1K7+mf)d`ASiH@3n6GO_FNfZ%`#SqvqZ3A<SQla)SiF#Q)R#dJzh
z3%?Eft)ps9igU<lm!C5*IW4ZiEki~)Im#v}E+i&ra(S12P!y&QFkJgeW!o%Om3#U>
zyOKz@Y+gT9GD~92d8c7-pTo|Mb0)p@PnUC*%L;7rp3YoCkyaxH^^oZINI%uuY)m7T
zDL!mIS1GHV_VoszK5qHx_B1t<?EH3!1FN5On#r$mghYTzr)ATPkX1x8F%h)VNCD2D
zXg8oZK;D+o>DrqhQ?)xbF3y+8k#*59^gKS^51c+;=PxC8cmtWi9W~XjO3F}{7;>4P
zigLE}?%u>FPS(5jYP_7zknt@DanfBxkvqh?Ng`I(kroXt8Lv}{O@ICUyZ*SzoNztN
z?B&-iPhH<>Hqe=c2XKzG>?)F;#p3hsM3ounDhJPZo%uktzWM=~ctqMx6<O^AD5>_4
zhAq;ihj~!JMm!icb2qq0hFZrv4@!QQMG0nnOP!(o>WF_^poRP!0Uu3Is`*~;aO#<(
zkMowFZcUJhr^=0DE1hoG>ruj#N#cE0LkC*h&r6Eht(l*%GJvOS+>qMluj&*-|8>#Q
zb@U8t&cucW=uTS5lp74O)Xhw75N6mHkd6!Pz$s)&0uTdQBr~sb>z;e~!WBgby>@_z
z(ohVVSm~jeGYAgw`T!&2a=Dg-UWQG<<4_StB<ZbWkZ#n}@oT=m^8}{I<A?`dK!l0T
zne+!EZRbql9*(E%i5Jh?;Fsq_?S0WHK`GrssuMrb2*^)xX-`iv*KSq*$CVP8J4pu3
zV~)^;Z&2}{_N$OYNPag4Fj)ZCb@B^}x<_FBcVpxj5a|j62z}MoEh?)C@J;3gewOZy
zA&62y$tbR$^~#k@tR(p|Bq}?DjFJD5-nvxaX&5I3ImhRHt+(u^<w)Ny<fPZ@Fn)^^
zo@6v+E<z(T6M!;FL+J6!X$|*Ljq6PE5Xm^>ch|!qkXgYeNmRn5FvuvrUg`Z}PwPA+
zXxlB+pq(UgF4ED8dFN{_Vd@DWHdtySjKm%I{X}L|{yQzM-Z{GtanTNkT^;6HYI5;x
z9xW`V(}LHCv7FBPg4v>+8P$u^i2K53$7GOS=Od#)s35L>IiKV%U}0ac(y*@X--pMZ
z*=M%$%PdwSg5Xx7JO<rLcq$m&`rU@V5IKewW<J~ZY6IUgT#!__qqUQCzp{7oKuqU?
zv{<Y!r~QEziC@&Q{V1Xcs!W=eiAWs!8q%0g5I2nBSI!OO{*;avOY6|!h!?Pc1dIcE
zC~a#-1ac<^NDmeX^~6{K$4NKL_s8vNbtj-RIziTDlioG5gQUj8$gaUFJebjz*(o>R
z<s+KDoy--faB{ZZm3cOypJpu3s_$E%pG_al9p<HU@sM1mi~Ji5?|9SkPa4!8=N2<7
zAqiKnf-Yt;$=O|+4zx@+4Pa=dH)}mEMkPf?oIxZb=N5+{2U(ZHpI4FARlKz<{Ea){
zLMtTMDe3M|19_s~Cl~*ILUp(1CZV{gd1gbx5n<B}`Cp}$d*&bcWz*jzCF?vRU#*F-
zyPAB?gu2CUnXZTDl9BH$Mwi9(EoL_m)8DdPzjcL!_oeGP#}ll!DJwXH>^zq3vS+en
zt-_LLjM?QEbN0x}24!Sq>=G4qGo1~M3!QALum4n8c@}<qu3~KNVrk+a&6c00(3$$#
zF=n_?ecW~hW%&(wsEYoUmX_h+#ztMeChA_^+NLHo|ID16&Z(*Ns;pV6o0~ib2S;sf
zZQ-X+p9H<anl4hQA~YIpzl=;#Pmh^qtoqBBN1`h~LMP?x=Qlht@vy9{Y<^Vc?Ai8_
zk-g*N<FyS9#r5^tcvWKU(Wvsm!a@~YJ-x*2?77e?b9`Q7<MH_FqN*zO{DOkhXV2C#
z?R<TGzm1IC!)J;O*c%#d&e9d@?Ck8ekv5eK<l*K0`0m}$=?#{k1$N8H&9;xar@M8!
zo0{$@DJe<I%>0y}e;C>y`S~V%64Lp$!NH%Tq@?!m+xOfy{#wZOrWdUa)B6i-KN|#(
z)6?V4DHnd?6};vWyBnZEs3nb7Zkcj-X4E>t%gc+_$Vquq(*6Uh70~179~Kyf>#G<3
zp^{}=7W!1y9%*K2)3%>!C0`j*EUMzbyzIhs%@f;yWl4F$PJFi@cnSah-*~-ycsTg_
dA75Z<arzs(+{K!X5#;qMO2-xBe!g(^{{d6ffXn~@

diff --git a/reference/plot.html b/reference/plot.html
index eb77c31d..4f335b5b 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/proportion.html b/reference/proportion.html
index adfcdf7e..891ec9d8 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/random.html b/reference/random.html
index 0d4a5b76..681aa8b8 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -193,42 +193,42 @@
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 64      16      2       64      0.005   2       0.0625  32      0.125  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 128     &lt;=0.001 0.025   0.5     2       1       2       0.5     1      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 4       0.0625  1       0.25    &gt;=256   8       1      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.01    0.025   0.005   1       0.5     0.25    0.25    &lt;=0.001 1      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [10] &lt;=0.001 0.025   0.005   8       32      &gt;=128   16      4       32     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 4       0.5     2       2       16      &lt;=0.001 8      </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] 38 33 42  7 18 50 44 28 17  8 35 37 48 17 43 41 46 41 36 22 43 50  8 40  7</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 45 30 36 15 21 12 49 24 19 17 31 44 41 45 36 11 27  9 48 42 42 24 41 23 13</span>
 <span class="r-in"><span><span class="fu">random_sir</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] I I I I R R S S R I R S R I I R S I I S S I S R I</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] I R S S S I S S S R I S S I S S R R I R S I I S R</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
 <span class="r-in"><span><span class="co"># make the random generation more realistic by setting a bug and/or drug:</span></span></span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span> <span class="co"># range 0.0625-64</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] &gt;=128  0.002  0.01   0.025  &gt;=128  0.025  4      0.01   4      0.0625</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 0.5    2      0.001  0.025  0.025  0.0625 0.25   4      1      32    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 0.025  0.125  0.5    1      2     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 2     0.01  0.01  0.002 8     0.125 0.001 0.025 1     0.001 1     0.001</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 2     32    0.5   0.005 1     2     0.125 2     4     0.25  0.005 4    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 0.01 </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] 2   64  8   4   8   16  8   &lt;=1 &lt;=1 &lt;=1 64  16  4   2   64  2   64  16  64 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [20] 16  2   64  8   8   8  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 16  2   0.5 1   0.5 16  1   32  8   0.5 16  0.5 1   32  64  32  8   1   2  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [20] 64  8   32  16  32  2  </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.025  0.025  2      0.025  2      0.025  &gt;=8    1      0.0625 1     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 4      4      0.0625 &gt;=8    4      0.025  2      1      &gt;=8    0.025 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 1      4      0.25   0.5    0.5   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.25   0.5    4      2      4      4      &gt;=16   4      2      0.25  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [11] &gt;=16   0.5    4      &gt;=16   0.0625 0.125  0.25   8      0.25   1     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 2      0.25   2      2      0.5   </span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span> <span class="co"># range 8-50</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 40 32 29 24 30 25 28 46 35 17 16 45 35 30 48 17 45 20 39 41 18 24 48 22 41</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 24 18 17 31 47 37 24 43 10 22 43 32 37 33 26 11 19 38 43 43 41 47 34 48 11</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] 12 11 11 11 12 12 11 16 12 17 15 13 11 13 16 15 16 15 13 12 16 11 13 15 16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 14 16 15 15 16 12 11 16 12 17 12 16 17 11 16 11 11 15 16 16 14 16 16 12 14</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 20 25 26 22 18 24 23 23 23 26 21 25 16 17 24 26 22 22 20 18 27 23 25 26</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 18 23 23 17 15 15 22 19 18 20 16 27 27 20 25 15 26 17 23 24 19 16 16 22 23</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/resistance_predict.html b/reference/resistance_predict.html
index c7b10379..325e91f4 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/skewness.html b/reference/skewness.html
index 45e1cca7..09286987 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -181,7 +181,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">skewness</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Uniform.html" class="external-link">runif</a></span><span class="op">(</span><span class="fl">1000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.006476613</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.1146568</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 2abb9135..2da50493 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.9007</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9008</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/search.json b/search.json
index 1c02f8ea..9fe0b52b 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) #>              Based on input \"E coli\" #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #>                    Based on input \"K pneumoniae\" #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #>                Based on input \"S aureus\" #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Streptomyces argenteolus (0.483), Streptomyces aureus (0.474), #>               Streptomyces azureus (0.467), Streptomyces aureorectus (0.444), #>               Streptomyces auratus (0.433), Streptomyces aurantiogriseus (0.429), and #>               Streptomyces aureocirculatus (0.429) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #>                    Based on input \"S pneumoniae\" #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> Basing inclusion on all antimicrobial results, using a points threshold of #> 2 #> Including isolates from ICU. #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% of total where a microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,626 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 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":"package comes antibiogram(), function automatically generates traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). R Markdown (page) automatically prints right table format. suggestions generate different antibiograms: Antibiograms can plotted using autoplot() ggplot2 packages, since package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"# traditional: antibiogram(our_data_1st) antibiogram(our_data_1st,   ab_transform = \"name\" ) antibiogram(our_data_1st,   ab_transform = \"name\",   language = \"es\" ) # support for 20 languages # combined: antibiogram(our_data_1st,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"AMC+GEN\") ) # for a syndromic antibiogram, we must fake some clinical conditions: our_data_1st$condition <- sample(c(\"Cardial\", \"Respiratory\", \"Rheumatic\"),   size = nrow(our_data_1st),   replace = TRUE )  # syndromic: antibiogram(our_data_1st,   syndromic_group = \"condition\" ) antibiogram(our_data_1st,   # you can use AB selectors here as well:   antibiotics = c(penicillins(), aminoglycosides()),   syndromic_group = \"condition\",   mo_transform = \"gramstain\" ) #> ℹ For penicillins() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) # WISCA: # (we lack some details, but it could contain a filter on e.g. >65 year-old males) wisca <- antibiogram(our_data_1st,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"AMC+GEN\"),   syndromic_group = \"condition\",   mo_transform = \"gramstain\" ) wisca autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.3, 2021). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          R         I            R          R            R            I #> 2          R         S            R          S            S            S #> 3          I         S            I          I            S            I #> 4          R         S            S          R            R            I #> 5          S         R            R          S            S            I #> 6          R         I            R          R            I            S #>   kanamycin #> 1         S #> 2         R #> 3         S #> 4         R #> 5         S #> 6         I mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 1.232e-16 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss-sas-stata","dir":"Articles","previous_headings":"","what":"SPSS / SAS / Stata","title":"How to import data from SPSS / SAS / Stata","text":"SPSS (Statistical Package Social Sciences) probably well-known software package statistical analysis. SPSS easier learn R, SPSS click menu run parts analysis. user-friendliness, taught universities particularly useful students new statistics. experience, guess pretty much (bio)medical students know time graduate. SAS Stata comparable statistical packages popular big industries.","code":""},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"compared-to-r","dir":"Articles","previous_headings":"","what":"Compared to R","title":"How to import data from SPSS / SAS / Stata","text":"said, SPSS easier learn R. SPSS, SAS Stata come major downsides comparing R: R highly modular. official R network (CRAN) features 16,000 packages time writing, AMR package one . packages peer-reviewed publication. Aside official channel, also developers choose submit CRAN, rather keep public repository, like GitHub. may even lot 14,000 packages . Bottom line , can really extend ask somebody . Take example AMR package. Among things, adds reliable reference data R help data cleaning analysis. SPSS, SAS Stata never know valid MIC value Gram stain E. coli . species Klebiella resistant amoxicillin Floxapen® trade name flucloxacillin. facts properties often needed clean existing data, inconvenient software package without reliable reference data. See demonstration. R extremely flexible. write syntax , can anything want. flexibility transforming, arranging, grouping summarising data, drawing plots, endless - SPSS, SAS Stata bound algorithms format styles. may bit flexible, can probably never create specific publication-ready plot without using (paid) software. sometimes write syntaxes SPSS run complete analysis ‘automate’ work, lot less time R. notice writing syntaxes R lot nifty clever SPSS. Still, working statistical package, knowledge (statistically) willing accomplish. R can easily automated. last years, R Markdown really made interesting development. R Markdown, can easily produce reports, whether format Word, PowerPoint, website, PDF document just raw data Excel. even allows use reference file containing layout style (e.g. fonts colours) organisation. use lot generate weekly monthly reports automatically. Just write code enjoy automatically updated reports interval like. even professional environment, create Shiny apps: live manipulation data using custom made website. webdesign knowledge needed (JavaScript, CSS, HTML) almost zero. R huge community. Many R users just ask questions websites like StackOverflow.com, largest online community programmers. time writing, 486 808 R-related questions already asked platform (covers questions answers programming language). experience, questions answered within couple minutes. R understands data type, including SPSS/SAS/Stata. ’s vice versa ’m afraid. can import data source R. example SPSS, SAS Stata (link), Minitab, Epi Info EpiData (link), Excel (link), flat files like CSV, TXT TSV (link), directly databases datawarehouses anywhere world (link). can even scrape websites download tables live internet (link) get results API call transform data one command (link). best part - can export R data formats well. can import SPSS file, analysis neatly R export resulting tables Excel files sharing. R completely free open-source. strings attached. created maintained volunteers believe (data) science open publicly available everybody. SPSS, SAS Stata quite expensive. IBM SPSS Staticstics comes subscriptions nowadays, varying USD 1,300 USD 8,500 per user per year. SAS Analytics Pro costs around USD 10,000 per computer. Stata also business model subscription fees, varying USD 600 USD 2,800 per computer per year, lower prices come limitation number variables can work . still offer benefits R. working midsized small company, can save tens thousands dollars using R instead e.g. SPSS - gaining even functions flexibility. R enthousiasts can much PR want (like ), nobody officially associated affiliated R. really free. R (nowadays) preferred analysis software academic papers. present, R among world powerful statistical languages, generally popular science (Bollmann et al., 2017). reasons, number references R analysis method academic papers rising continuously even surpassed SPSS academic use (Muenchen, 2014). believe thing SPSS , always great user interface easy learn use. Back developed , little competition, let alone R. R didn’t even professional user interface last decade (called RStudio, see ). people used R nineties 2010 almost completely incomparable R used now. language restyled completely volunteers dedicated professionals field data science. SPSS great nothing else compete. now 2023, don’t see reason SPSS better use R. demonstrate first point:","code":"# not all values are valid MIC values: as.mic(0.125) #> Class 'mic' #> [1] 0.125 as.mic(\"testvalue\") #> Class 'mic' #> [1] <NA>  # the Gram stain is available for all bacteria: mo_gramstain(\"E. coli\") #> [1] \"Gram-negative\"  # Klebsiella is intrinsic resistant to amoxicillin, according to EUCAST: klebsiella_test <- data.frame(   mo = \"klebsiella\",   amox = \"S\",   stringsAsFactors = FALSE ) klebsiella_test # (our original data) #>           mo amox #> 1 klebsiella    S eucast_rules(klebsiella_test, info = FALSE) # (the edited data by EUCAST rules) #>           mo amox #> 1 klebsiella    R  # hundreds of trade names can be translated to a name, trade name or an ATC code: ab_name(\"floxapen\") #> [1] \"Flucloxacillin\" ab_tradenames(\"floxapen\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\" ab_atc(\"floxapen\") #> [1] \"J01CF05\""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"rstudio","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"RStudio","title":"How to import data from SPSS / SAS / Stata","text":"work R, probably best option use RStudio. open-source free desktop environment allows run R code, also supports project management, version management, package management convenient import menus work data sources. can also install RStudio Server private corporate server, brings nothing less complete RStudio software website (home work). import data file, just click Import Dataset Environment tab:  additional packages needed, RStudio ask installed beforehand. window opens, can define options (parameters) used import ’re ready go:  want named variables imported factors resembles SPSS , use as_factor(). difference :","code":"SPSS_data # # A tibble: 4,203 x 4 #     v001 sex       status    statusage #    <dbl> <dbl+lbl> <dbl+lbl>     <dbl> #  1 10002 1         1              76.6 #  2 10004 0         1              59.1 #  3 10005 1         1              54.5 #  4 10006 1         1              54.1 #  5 10007 1         1              57.7 #  6 10008 1         1              62.8 #  7 10010 0         1              63.7 #  8 10011 1         1              73.1 #  9 10017 1         1              56.7 # 10 10018 0         1              66.6 # # ... with 4,193 more rows  as_factor(SPSS_data) # # A tibble: 4,203 x 4 #     v001 sex    status statusage #    <dbl> <fct>  <fct>      <dbl> #  1 10002 Male   alive       76.6 #  2 10004 Female alive       59.1 #  3 10005 Male   alive       54.5 #  4 10006 Male   alive       54.1 #  5 10007 Male   alive       57.7 #  6 10008 Male   alive       62.8 #  7 10010 Female alive       63.7 #  8 10011 Male   alive       73.1 #  9 10017 Male   alive       56.7 # 10 10018 Female alive       66.6 # # ... with 4,193 more rows"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"base-r","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"Base R","title":"How to import data from SPSS / SAS / Stata","text":"import data SPSS, SAS Stata, can use great haven package : can now import files follows:","code":"# download and install the latest version: install.packages(\"haven\") # load the package you just installed: library(haven)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SPSS","title":"How to import data from SPSS / SAS / Stata","text":"read files SPSS R: forget as_factor(), mentioned . export R objects SPSS file format:","code":"# read any SPSS file based on file extension (best way): read_spss(file = \"path/to/file\")  # read .sav or .zsav file: read_sav(file = \"path/to/file\")  # read .por file: read_por(file = \"path/to/file\") # save as .sav file: write_sav(data = yourdata, path = \"path/to/file\")  # save as compressed .zsav file: write_sav(data = yourdata, path = \"path/to/file\", compress = TRUE)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"sas","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SAS","title":"How to import data from SPSS / SAS / Stata","text":"read files SAS R: export R objects SAS file format:","code":"# read .sas7bdat + .sas7bcat files: read_sas(data_file = \"path/to/file\", catalog_file = NULL)  # read SAS transport files (version 5 and version 8): read_xpt(file = \"path/to/file\") # save as regular SAS file: write_sas(data = yourdata, path = \"path/to/file\")  # the SAS transport format is an open format # (required for submission of the data to the FDA) write_xpt(data = yourdata, path = \"path/to/file\", version = 8)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"stata","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"Stata","title":"How to import data from SPSS / SAS / Stata","text":"read files Stata R: export R objects Stata file format:","code":"# read .dta file: read_stata(file = \"/path/to/file\")  # works exactly the same: read_dta(file = \"/path/to/file\") # save as .dta file, Stata version 14: # (supports Stata v8 until v15 at the time of writing) write_dta(data = yourdata, path = \"/path/to/file\", version = 14)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 3: S < < R Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 52 151 rows 22 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, source, lpsn, lpsn_parent, lpsn_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 15 April 2023 07:32:13 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.3 MB) Download Microsoft Excel workbook (5 MB) Download Apache Feather file (5.4 MB) Download Apache Parquet file (2.6 MB) Download SAS data file (50.9 MB) Download IBM SPSS Statistics data file (16.9 MB) Download Stata DTA file (47.1 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. Advice? Use R instead. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microoganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) Download SAS data file (1.9 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) Download SAS data file (84 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 17 918 rows 11 columns, containing following column names:guideline, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 14 April 2023 21:14:34 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (42 kB) Download tab-separated text file (1.8 MB) Download Microsoft Excel workbook (0.8 MB) Download Apache Feather file (0.7 MB) Download Apache Parquet file (89 kB) Download SAS data file (3.5 MB) Download IBM SPSS Statistics data file (2.3 MB) Download Stata DTA file (3.3 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2013-2022) EUCAST (2013-2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS data file (9.8 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 336 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 14 November 2022 14:20:39 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (29 kB) Download Microsoft Excel workbook (19 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (8 kB) Download SAS data file (92 kB) Download IBM SPSS Statistics data file (43 kB) Download Stata DTA file (82 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant : ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021) ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 32 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 22 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral breakpoint guidelines CLSI EUCAST included last 10 years. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline last 10 years (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2022\". Supported guideline currently EUCAST (2013-2022) CLSI (2013-2022). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_locale  language use AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options :   add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within data team, save options file remote file location, shared network drive. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi: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 breakpoint guidelines CLSI EUCAST included last 10 years. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, 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.berends@certe.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `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 tranformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #> [1] \"16365-9\" \"25274-2\" \"3344-9\"  \"80133-2\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #> [1] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"87604-5\" ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways 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 only \"Enterobacter asburiae\": mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRBC_A_C  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRBC_A_C\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2023\" #>  #> $snomed #> [1] NA #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, although a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1937-05-14  85  85.92055         62 #> 2  1953-03-15  70  70.08493         46 #> 3  1953-09-11  69  69.59178         46 #> 4  1950-12-19  72  72.32055         49 #> 5  1974-01-01  49  49.28493         26 #> 6  1960-09-22  62  62.56164         39 #> 7  1940-03-25  83  83.05753         59 #> 8  1957-07-27  65  65.71781         42 #> 9  1986-12-19  36  36.32055         13 #> 10 1998-05-29  24  24.87945          1"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for antibiogram knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set: \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\")) --------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 either \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"(internally) character vector column names, additional class \"ab_selector\"","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), amphotericin B-high (AMH), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amphotericin B (AMB), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 S      #> 3 S      #> 4 S      #> 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 30 October, 2022. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_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 of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> => Interpreting disk diffusion zones of column 'AMP' (ampicillin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'CIP' (ciprofloxacin) #>    according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli   S   R   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE)  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2013-2022) CLSI (2013-2022). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019 Microorganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 2, Protozoa = 3, Archaea = 4, others = 5. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.159\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. breakpoints used interpretation publicly available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # S3 method for mic as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   ... )  # S3 method for disk as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   ... )  # S3 method for data.frame as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE) )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2013-2022, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2022 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2013-2022) CLSI (2013-2022), see Details. uti (Urinary Tract Infection) vector logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input unclear. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines EUCAST (2013-2022) CLSI (2013-2022). Thus, guideline argument must set e.g., \"EUCAST 2022\" \"CLSI 2022\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 17 918 rows 11 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 of column 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of column 'CIP' (ciprofloxacin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 50 × 12 #>    datetime            index ab_input ab_guideline mo_input     mo_guideline     #>    <dttm>              <int> <chr>    <ab>         <chr>        <mo>             #>  1 2023-04-15 07:38:42     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR #>  2 2023-04-15 07:38:42     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR #>  3 2023-04-15 07:38:41     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR #>  4 2023-04-15 07:38:41     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR #>  5 2023-04-15 07:38:35     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  6 2023-04-15 07:38:35     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  7 2023-04-15 07:38:35     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  8 2023-04-15 07:38:35     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  9 2023-04-15 07:38:35     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> 10 2023-04-15 07:38:35     6 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> # ℹ 40 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 of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Streptococcus #>      pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] S sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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\"   # smart lowercase tranformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"78772-1\" \"78773-9\" \"79134-3\" \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 (2013-2022) CLSI (2013-2022). Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 17 918 observations 11 variables: guideline Name guideline method Either \"DISK\" \"MIC\" site Body site, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic ID, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints #> # A tibble: 17,918 × 11 #>    guideline   method site  mo               rank_index ab   ref_tbl   disk_dose #>    <chr>       <chr>  <chr> <mo>                  <dbl> <ab> <chr>     <chr>     #>  1 EUCAST 2022 MIC    NA    F_ASPRG_MGTS              2 AMB  Aspergil… NA        #>  2 EUCAST 2022 MIC    NA    F_ASPRG_NIGR              2 AMB  Aspergil… NA        #>  3 EUCAST 2022 MIC    NA    F_CANDD_ALBC              2 AMB  Candida   NA        #>  4 EUCAST 2022 MIC    NA    F_CANDD_DBLN              2 AMB  Candida   NA        #>  5 EUCAST 2022 MIC    NA    F_CANDD_GLBR              2 AMB  Candida   NA        #>  6 EUCAST 2022 MIC    NA    F_CANDD_KRUS              2 AMB  Candida   NA        #>  7 EUCAST 2022 MIC    NA    F_CANDD_PRPS              2 AMB  Candida   NA        #>  8 EUCAST 2022 MIC    NA    F_CANDD_TRPC              2 AMB  Candida   NA        #>  9 EUCAST 2022 MIC    NA    F_CRYPT_NFRM              2 AMB  Candida   NA        #> 10 EUCAST 2022 DISK   NA    B_[ORD]_ENTRBCTR          5 AMC  Enteroba… 20ug/10ug #> # ℹ 17,908 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\", \"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 336 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"data set based 'EUCAST Clinical Breakpoint Tables' v12.0 (2022) 'EUCAST Clinical Breakpoint Tables' v11.0 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 336 × 9 #>    ab   name            type  dose  dose_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… #> # ℹ 326 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 either \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can either \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated 11 December, 2022, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, 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 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 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 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 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 #> Including isolates from ICU. #>  #> Group: ward = \"Clinical\" #> ℹ Excluded 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"ICU\" #> ℹ Excluded 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"Outpatient\" #> ℹ Excluded 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    of total where a microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 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] 17  5 16 39 37 19 33 24 20 14 18 23 43 40 32 25 31 11 23 13 13 22  3 24 29 #>  [26] 13  1  8  2 15 38 40 37 46  7 30 17  3  2  7  5 19 35 18 28  5 46 17 28 21 #>  [51] 41 13 41 39 34  9 45 45 41 21 18 11 14 10 30 46 22 45 12  4 26 41  4  1 27 #>  [76]  1 20 33 44 19 45 21  7 38 46  4 41 19 43 41 35 47 44  8 39 36  6  9 43 42 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]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE  TRUE  TRUE #>  [37] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [49] FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE #>  [61] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE #>  [73] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE #>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE #>  [97]  TRUE FALSE FALSE  TRUE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 2 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-08-28 390178     57 M      Clinical B_STRPT_SLVR S     NA    NA    S     #> 2 2002-08-19 A49852     70 M      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 [97] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 066601  2013-10-30 B         TRUE        #>  2 067927  2002-01-16 A         TRUE        #>  3 069276  2015-06-18 C         TRUE        #>  4 077552  2002-05-14 A         TRUE        #>  5 09B453  2010-03-21 B         TRUE        #>  6 0E2483  2007-08-10 A         TRUE        #>  7 0E2483  2007-08-10 A         FALSE       #>  8 118928  2004-02-01 B         TRUE        #>  9 1435C8  2004-03-03 A         TRUE        #> 10 151041  2006-02-09 A         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [93] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2013-10-30 066601          1 TRUE        #>  2 ICU      2002-01-16 067927          1 TRUE        #>  3 ICU      2015-06-18 069276          1 TRUE        #>  4 Clinical 2002-05-14 077552          1 TRUE        #>  5 Clinical 2010-03-21 09B453          1 TRUE        #>  6 ICU      2007-08-10 0E2483          1 TRUE        #>  7 ICU      2007-08-10 0E2483          1 FALSE       #>  8 Clinical 2004-02-01 118928          1 TRUE        #>  9 Clinical 2004-03-03 1435C8          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            46 #> 2 ICU                27              9            19            20 #> 3 Outpatient          6              5             6             6  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] FALSE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [96] #>    patient mo           ward       flag_episode #>    <chr>   <mo>         <chr>      <lgl>        #>  1 92F410  B_PROTS_MRBL Clinical   TRUE         #>  2 501429  B_HMPHL_PRNF ICU        TRUE         #>  3 978801  B_STPHY_CONS Outpatient TRUE         #>  4 A76045  B_STPHY_HMNS ICU        TRUE         #>  5 188588  B_CTRBC_KOSR Clinical   TRUE         #>  6 43F266  B_STPHY_AURS ICU        TRUE         #>  7 729574  B_STRPT_GRPB ICU        TRUE         #>  8 973274  B_ESCHR_COLI Clinical   TRUE         #>  9 F3BD65  B_STRPT_ANGN Outpatient TRUE         #> 10 578848  B_STPHY_CONS 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 × 22 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 12 more variables: subspecies <chr>, rank <chr>, ref <chr>, source <chr>, #> #   lpsn <chr>, lpsn_parent <chr>, lpsn_renamed_to <chr>, gbif <chr>, #> #   gbif_parent <chr>, gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 22 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 12 more variables: subspecies <chr>, rank <chr>, ref <chr>, source <chr>, #> #   lpsn <chr>, lpsn_parent <chr>, lpsn_renamed_to <chr>, gbif <chr>, #> #   gbif_parent <chr>, gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"            \"bacteria\"        \"fullname\"        \"status\"          #>  [5] \"kingdom\"         \"phylum\"          \"class\"           \"order\"           #>  [9] \"family\"          \"genus\"           \"species\"         \"subspecies\"      #> [13] \"rank\"            \"ref\"             \"source\"          \"lpsn\"            #> [17] \"lpsn_parent\"     \"lpsn_renamed_to\" \"gbif\"            \"gbif_parent\"     #> [21] \"gbif_renamed_to\" \"prevalence\"      \"snomed\"           # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"            \"patient\"         \"age\"             \"gender\"          #>  [5] \"ward\"            \"mo\"              \"PEN\"             \"OXA\"             #>  [9] \"FLC\"             \"AMX\"             \"AMC\"             \"AMP\"             #> [13] \"TZP\"             \"CZO\"             \"FEP\"             \"CXM\"             #> [17] \"FOX\"             \"CTX\"             \"CAZ\"             \"CRO\"             #> [21] \"GEN\"             \"TOB\"             \"AMK\"             \"KAN\"             #> [25] \"TMP\"             \"SXT\"             \"NIT\"             \"FOS\"             #> [29] \"LNZ\"             \"CIP\"             \"MFX\"             \"VAN\"             #> [33] \"TEC\"             \"TCY\"             \"TGC\"             \"DOX\"             #> [37] \"ERY\"             \"CLI\"             \"AZM\"             \"IPM\"             #> [41] \"MEM\"             \"MTR\"             \"CHL\"             \"COL\"             #> [45] \"MUP\"             \"RIF\"             \"fullname\"        \"status\"          #> [49] \"kingdom\"         \"phylum\"          \"class\"           \"order\"           #> [53] \"family\"          \"genus\"           \"species\"         \"subspecies\"      #> [57] \"rank\"            \"ref\"             \"source\"          \"lpsn\"            #> [61] \"lpsn_parent\"     \"lpsn_renamed_to\" \"gbif\"            \"gbif_parent\"     #> [65] \"gbif_renamed_to\" \"prevalence\"      \"snomed\"          # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1395 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 2.960476 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.01258413"},{"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] I R S S S R R I R I mean_amr_distance(sir) #>  [1] -0.7745967  1.1618950 -0.7745967 -0.7745967 -0.7745967  1.1618950 #>  [7]  1.1618950 -0.7745967  1.1618950 -0.7745967  mic <- random_mic(10) mic #> Class 'mic' #>  [1] <=0.001 0.025   32      0.01    0.0625  0.125   0.5     0.01    8       #> [10] 2       mean_amr_distance(mic) #>  [1] -1.5257422 -0.5427941  1.6420106 -0.8226018 -0.2629864 -0.0513201 #>  [7]  0.3720126 -0.8226018  1.2186779  0.7953453 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -1.5257422 -0.5427941  1.6420106 -0.8226018 -0.2629864 -0.0513201 #>  [7]  0.3720126 -0.8226018  1.2186779  0.7953453  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 16 44 41 26 44 46 48 50 48 40 mean_amr_distance(disk) #>  [1] -2.23059935  0.33963858  0.06425595 -1.31265723  0.33963858  0.52322701 #>  [7]  0.70681543  0.89040385  0.70681543 -0.02753826  y <- data.frame(   id = LETTERS[1:10],   amox = random_sir(10, ab = \"amox\", mo = \"Escherichia coli\"),   cipr = random_disk(10, ab = \"cipr\", mo = \"Escherichia coli\"),   gent = random_mic(10, ab = \"gent\", mo = \"Escherichia coli\"),   tobr = random_mic(10, ab = \"tobr\", mo = \"Escherichia coli\") ) y #>    id amox cipr gent  tobr #> 1   A    I   21  >=4     4 #> 2   B    R   28    2     2 #> 3   C    S   23  >=4     1 #> 4   D    I   20    1     1 #> 5   E    I   27    1     1 #> 6   F    S   20    2     2 #> 7   G    I   25  >=4 <=0.5 #> 8   H    S   25    2     2 #> 9   I    R   20    1     1 #> 10  J    R   22  >=4 <=0.5 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.37458457  0.92678423  0.01430793 -0.80688677 -0.22319302 -0.25784351 #>  [7] -0.08244556  0.15908059 -0.28933760  0.18494914 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   23  >=4     1   0.01430793  0.0000000 #> 2   G    I   25  >=4 <=0.5  -0.08244556  0.0967535 #> 3   H    S   25    2     2   0.15908059  0.1447727 #> 4   J    R   22  >=4 <=0.5   0.18494914  0.1706412 #> 5   E    I   27    1     1  -0.22319302  0.2375010 #> 6   F    S   20    2     2  -0.25784351  0.2721514 #> 7   I    R   20    1     1  -0.28933760  0.3036455 #> 8   A    I   21  >=4     4   0.37458457  0.3602766 #> 9   D    I   20    1     1  -0.80688677  0.8211947 #> 10  B    R   28    2     2   0.92678423  0.9124763 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 5 754 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"tibble 5 754 observations 2 variables: code Commonly used code microorganism mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 5,754 × 2 #>    code    mo        #>    <chr>   <mo>      #>  1 _FAM_A- B_GRAMN   #>  2 _FAM_A+ B_GRAMP   #>  3 _FAM_AC B_GRAMP   #>  4 _FAM_AE B_GRAMN   #>  5 _FAM_AN B_GRAMN   #>  6 _FAM_AO B_GRAMP   #>  7 _FAM_AP   UNKNOWN #>  8 _FAM_AS F_FUNGUS  #>  9 _FAM_AT   UNKNOWN #> 10 _FAM_AV   UNKNOWN #> # ℹ 5,744 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 151 Microorganisms — microorganisms","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: 11 December, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 151 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 151 Microorganisms — microorganisms","text":"tibble 52 151 observations 22 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters, e.g. \"Váňová\" becomes \"Vanova\". lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version 1 July, 2021 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 151 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 151 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 151 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 15 entries Streptococcus, beta-haemolytic groups K, viridans, milleri 2 entries Staphylococcus (coagulase-negative (CoNS) coagulase-positive (CoPS)) 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 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 151 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 151 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 151 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,151 × 22 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_ANAER          (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  2 B_ANAER-NEG      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  3 B_ANAER-POS      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  4 F_FUNGUS         (unknown fun… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  5 B_GRAMN          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  6 B_GRAMP          (unknown Gra… accep… Bacter… (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,141 more rows #> # ℹ 13 more variables: species <chr>, subspecies <chr>, rank <chr>, ref <chr>, #> #   source <chr>, lpsn <chr>, lpsn_parent <chr>, lpsn_renamed_to <chr>, #> #   gbif <chr>, gbif_parent <chr>, gbif_renamed_to <chr>, prevalence <dbl>, #> #   snomed <list>"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 2, Protozoa = 3, Archaea = 4, others = 5. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.159\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Class 'mo' #> [1] B_ESCHR_COLI mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #>              Based on input \"E coli\" #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.1587302"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed() mo_info() named character case mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). function mo_url() return direct URL online database entry, also shows scientific reference concerned species. SNOMED codes (mo_snomed()) version 1 July, 2021. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019 Microorganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  # }"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":null,"dir":"Reference","previous_headings":"","what":"User-Defined Reference Data Set for Microorganisms — mo_source","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"functions can used predefine reference used .mo() consequently mo_* functions (mo_genus() mo_gramstain()). fastest way organisation (analysis) specific codes picked translated package, since bother setting .","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"","code":"set_mo_source(   path,   destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\") )  get_mo_source(destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\"))"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"path location reference file, can text file (comma-, tab- pipe-separated) Excel file (see Details). Can also \"\", NULL FALSE delete reference file. destination destination compressed data file - default user's home directory.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"reference file can text file separated commas (CSV) tabs pipes, Excel file (either 'xls' 'xlsx' format) R object file (extension '.rds'). use Excel file, need readxl package installed. set_mo_source() check file validity: must data.frame, must column named \"mo\" contains values microorganisms$mo microorganisms$fullname must reference column defined values. tests pass, set_mo_source() read file R ask export \"~/mo_source.rds\". CRAN policy disallows packages write file system, although 'exceptions may allowed interactive sessions package obtains confirmation user'. reason, function works interactive sessions user can specifically confirm allow file created. destination file can set destination argument defaults user's home directory. can also set package option AMR_mo_source, e.g. options(AMR_mo_source = \"/location/file.rds\"). created compressed data file \"mo_source.rds\" used default MO determination (function .mo() consequently mo_* functions like mo_genus() mo_gramstain()). location timestamp original file saved attribute compressed data file. function get_mo_source() return data set reading \"mo_source.rds\" readRDS(). original file changed (checking location timestamp original file), call set_mo_source() update data file automatically used interactive session. Reading Excel file (.xlsx) one row size 8-9 kB. compressed file created set_mo_source() size 0.1 kB can read get_mo_source() couple microseconds (millionths second).","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"how-to-setup","dir":"Reference","previous_headings":"","what":"How to Setup","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"Imagine data sheet Excel file. first column contains organisation specific codes, second column contains valid taxonomic names:   save \"home//ourcodes.xlsx\". Now set source:   now created file \"~/mo_source.rds\" contents Excel file. first column foreign values 'mo' column kept creating RDS file. now can use functions:   edit Excel file , say, adding row 4 like :   ...new usage MO function package update data file:   delete reference data file, just use \"\", NULL FALSE input set_mo_source():   original file (previous case Excel file) moved deleted, mo_source.rds file removed upon next use .mo() mo_* function.","code":"|         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 |                    |                       | set_mo_source(\"home/me/ourcodes.xlsx\") #> NOTE: Created mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>       \"Organisation XYZ\" and \"mo\" as.mo(\"lab_mo_ecoli\") #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_mo_kpneumoniae\") #> [1] \"Klebsiella\"  # other input values still work too as.mo(c(\"Escherichia coli\", \"E. coli\", \"lab_mo_ecoli\")) #> NOTE: Translation to one microorganism was guessed with uncertainty. #>       Use mo_uncertainties() to review it. #> Class 'mo' #> [1] B_ESCHR_COLI B_ESCHR_COLI B_ESCHR_COLI |         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 | lab_Staph_aureus   | Staphylococcus aureus | 5 |                    |                       | as.mo(\"lab_mo_ecoli\") #> NOTE: Updated mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>        \"Organisation XYZ\" and \"mo\" #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_Staph_aureus\") #> [1] \"Staphylococcus\" set_mo_source(NULL) #> Removed mo_source file '/Users/me/mo_source.rds'"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":null,"dir":"Reference","previous_headings":"","what":"Principal Component Analysis (for AMR) — pca","title":"Principal Component Analysis (for AMR) — pca","text":"Performs principal component analysis (PCA) based data set automatic determination afterwards plotting groups labels, automatic filtering suitable (.e. non-empty numeric) variables.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"pca(   x,   ...,   retx = TRUE,   center = TRUE,   scale. = TRUE,   tol = NULL,   rank. = NULL )"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Principal Component Analysis (for AMR) — pca","text":"x data.frame containing numeric columns ... columns x selected PCA, can unquoted since supports quasiquotation. retx logical value indicating whether rotated variables     returned. center logical value indicating whether variables     shifted zero centered. Alternately, vector     length equal number columns x can supplied.     value passed scale. scale. logical value indicating whether variables     scaled unit variance analysis takes     place.  default FALSE consistency S,     general scaling advisable.  Alternatively, vector length     equal number columns x can supplied.      value passed scale. tol value indicating magnitude components     omitted. (Components omitted     standard deviations less equal tol times     standard deviation first component.)  default null     setting, components omitted (unless rank. specified     less min(dim(x)).).  settings tol     tol = 0 tol = sqrt(.Machine$double.eps),     omit essentially constant components. rank. optionally, number specifying maximal rank, .e.,     maximal number principal components used.  Can set     alternative addition tol, useful notably     desired rank considerably smaller dimensions matrix.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Principal Component Analysis (for AMR) — pca","text":"object classes pca prcomp","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Principal Component Analysis (for AMR) — pca","text":"pca() function takes data.frame input performs actual PCA R function prcomp(). result pca() function prcomp object, additional attribute non_numeric_cols vector column names columns contain numeric values. probably groups labels, used ggplot_pca().","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    pca_result   summary(pca_result)    # old base R plotting method:   biplot(pca_result)   # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic fortify(object, ...)  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  plot(some_mic_values)  plot(some_disk_values)  plot(some_sir_values)   # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\") #> ℹ No EUCAST 2022 MIC interpretations found for ampicillin in Staphylococcus #>   aureus  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 2022 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 64      16      2       64      0.005   2       0.0625  32      0.125   #> [10] 128     <=0.001 0.025   0.5     2       1       2       0.5     1       #> [19] 4       0.0625  1       0.25    >=256   8       1       random_disk(25) #> Class 'disk' #>  [1] 38 33 42  7 18 50 44 28 17  8 35 37 48 17 43 41 46 41 36 22 43 50  8 40  7 random_sir(25) #> Class 'sir' #>  [1] I I I I R R S S R I R S R I I R S I I S S I S R I  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] >=128  0.002  0.01   0.025  >=128  0.025  4      0.01   4      0.0625 #> [11] 0.5    2      0.001  0.025  0.025  0.0625 0.25   4      1      32     #> [21] 0.025  0.125  0.5    1      2      random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 2   64  8   4   8   16  8   <=1 <=1 <=1 64  16  4   2   64  2   64  16  64  #> [20] 16  2   64  8   8   8   random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 0.025  0.025  2      0.025  2      0.025  >=8    1      0.0625 1      #> [11] 4      4      0.0625 >=8    4      0.025  2      1      >=8    0.025  #> [21] 1      4      0.25   0.5    0.5     random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 40 32 29 24 30 25 28 46 35 17 16 45 35 30 48 17 45 20 39 41 18 24 48 22 41 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 12 11 11 11 12 12 11 16 12 17 15 13 11 13 16 15 16 15 13 12 16 11 13 15 16 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 26 20 25 26 22 18 24 23 23 23 26 21 25 16 17 24 26 22 22 20 18 27 23 25 26 # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for resistance_predict plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for resistance_predict autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) }   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Deviance Residuals:  #>     Min       1Q   Median       3Q      Max   #> -1.4150  -0.1855   0.0000   0.4096   0.9277   #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 47.02915   72.98739   0.644    0.519 #> year        -0.02280    0.03637  -0.627    0.531 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.9620  on 11  degrees of freedom #> Residual deviance: 5.5701  on 10  degrees of freedom #> AIC: 50.533 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] 0.006476613"},{"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":"changed-2-0-0-9007","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9007","text":"formatting fix sir_interpretation_history() Fixed WHONET codes microorganisms consequently couple entries clinical_breakpoints","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) #>              Based on input \"E coli\" #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #>                    Based on input \"K pneumoniae\" #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #>                Based on input \"S aureus\" #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Streptomyces argenteolus (0.483), Streptomyces aureus (0.474), #>               Streptomyces azureus (0.467), Streptomyces aureorectus (0.444), #>               Streptomyces auratus (0.433), Streptomyces aurantiogriseus (0.429), and #>               Streptomyces aureocirculatus (0.429) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #>                    Based on input \"S pneumoniae\" #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> Basing inclusion on all antimicrobial results, using a points threshold of #> 2 #> Including isolates from ICU. #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% of total where a microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,626 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 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":"package comes antibiogram(), function automatically generates traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). R Markdown (page) automatically prints right table format. suggestions generate different antibiograms: Antibiograms can plotted using autoplot() ggplot2 packages, since package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"# traditional: antibiogram(our_data_1st) antibiogram(our_data_1st,   ab_transform = \"name\" ) antibiogram(our_data_1st,   ab_transform = \"name\",   language = \"es\" ) # support for 20 languages # combined: antibiogram(our_data_1st,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"AMC+GEN\") ) # for a syndromic antibiogram, we must fake some clinical conditions: our_data_1st$condition <- sample(c(\"Cardial\", \"Respiratory\", \"Rheumatic\"),   size = nrow(our_data_1st),   replace = TRUE )  # syndromic: antibiogram(our_data_1st,   syndromic_group = \"condition\" ) antibiogram(our_data_1st,   # you can use AB selectors here as well:   antibiotics = c(penicillins(), aminoglycosides()),   syndromic_group = \"condition\",   mo_transform = \"gramstain\" ) #> ℹ For penicillins() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) # WISCA: # (we lack some details, but it could contain a filter on e.g. >65 year-old males) wisca <- antibiogram(our_data_1st,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"AMC+GEN\"),   syndromic_group = \"condition\",   mo_transform = \"gramstain\" ) wisca autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.3, 2021). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          I         R            I          S            S            I #> 2          I         S            I          I            S            R #> 3          I         R            S          I            R            I #> 4          I         S            R          S            R            I #> 5          R         R            I          S            I            I #> 6          S         S            R          I            I            S #>   kanamycin #> 1         I #> 2         I #> 3         S #> 4         I #> 5         I #> 6         R mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 9.577e-17 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss-sas-stata","dir":"Articles","previous_headings":"","what":"SPSS / SAS / Stata","title":"How to import data from SPSS / SAS / Stata","text":"SPSS (Statistical Package Social Sciences) probably well-known software package statistical analysis. SPSS easier learn R, SPSS click menu run parts analysis. user-friendliness, taught universities particularly useful students new statistics. experience, guess pretty much (bio)medical students know time graduate. SAS Stata comparable statistical packages popular big industries.","code":""},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"compared-to-r","dir":"Articles","previous_headings":"","what":"Compared to R","title":"How to import data from SPSS / SAS / Stata","text":"said, SPSS easier learn R. SPSS, SAS Stata come major downsides comparing R: R highly modular. official R network (CRAN) features 16,000 packages time writing, AMR package one . packages peer-reviewed publication. Aside official channel, also developers choose submit CRAN, rather keep public repository, like GitHub. may even lot 14,000 packages . Bottom line , can really extend ask somebody . Take example AMR package. Among things, adds reliable reference data R help data cleaning analysis. SPSS, SAS Stata never know valid MIC value Gram stain E. coli . species Klebiella resistant amoxicillin Floxapen® trade name flucloxacillin. facts properties often needed clean existing data, inconvenient software package without reliable reference data. See demonstration. R extremely flexible. write syntax , can anything want. flexibility transforming, arranging, grouping summarising data, drawing plots, endless - SPSS, SAS Stata bound algorithms format styles. may bit flexible, can probably never create specific publication-ready plot without using (paid) software. sometimes write syntaxes SPSS run complete analysis ‘automate’ work, lot less time R. notice writing syntaxes R lot nifty clever SPSS. Still, working statistical package, knowledge (statistically) willing accomplish. R can easily automated. last years, R Markdown really made interesting development. R Markdown, can easily produce reports, whether format Word, PowerPoint, website, PDF document just raw data Excel. even allows use reference file containing layout style (e.g. fonts colours) organisation. use lot generate weekly monthly reports automatically. Just write code enjoy automatically updated reports interval like. even professional environment, create Shiny apps: live manipulation data using custom made website. webdesign knowledge needed (JavaScript, CSS, HTML) almost zero. R huge community. Many R users just ask questions websites like StackOverflow.com, largest online community programmers. time writing, 486 808 R-related questions already asked platform (covers questions answers programming language). experience, questions answered within couple minutes. R understands data type, including SPSS/SAS/Stata. ’s vice versa ’m afraid. can import data source R. example SPSS, SAS Stata (link), Minitab, Epi Info EpiData (link), Excel (link), flat files like CSV, TXT TSV (link), directly databases datawarehouses anywhere world (link). can even scrape websites download tables live internet (link) get results API call transform data one command (link). best part - can export R data formats well. can import SPSS file, analysis neatly R export resulting tables Excel files sharing. R completely free open-source. strings attached. created maintained volunteers believe (data) science open publicly available everybody. SPSS, SAS Stata quite expensive. IBM SPSS Staticstics comes subscriptions nowadays, varying USD 1,300 USD 8,500 per user per year. SAS Analytics Pro costs around USD 10,000 per computer. Stata also business model subscription fees, varying USD 600 USD 2,800 per computer per year, lower prices come limitation number variables can work . still offer benefits R. working midsized small company, can save tens thousands dollars using R instead e.g. SPSS - gaining even functions flexibility. R enthousiasts can much PR want (like ), nobody officially associated affiliated R. really free. R (nowadays) preferred analysis software academic papers. present, R among world powerful statistical languages, generally popular science (Bollmann et al., 2017). reasons, number references R analysis method academic papers rising continuously even surpassed SPSS academic use (Muenchen, 2014). believe thing SPSS , always great user interface easy learn use. Back developed , little competition, let alone R. R didn’t even professional user interface last decade (called RStudio, see ). people used R nineties 2010 almost completely incomparable R used now. language restyled completely volunteers dedicated professionals field data science. SPSS great nothing else compete. now 2023, don’t see reason SPSS better use R. demonstrate first point:","code":"# not all values are valid MIC values: as.mic(0.125) #> Class 'mic' #> [1] 0.125 as.mic(\"testvalue\") #> Class 'mic' #> [1] <NA>  # the Gram stain is available for all bacteria: mo_gramstain(\"E. coli\") #> [1] \"Gram-negative\"  # Klebsiella is intrinsic resistant to amoxicillin, according to EUCAST: klebsiella_test <- data.frame(   mo = \"klebsiella\",   amox = \"S\",   stringsAsFactors = FALSE ) klebsiella_test # (our original data) #>           mo amox #> 1 klebsiella    S eucast_rules(klebsiella_test, info = FALSE) # (the edited data by EUCAST rules) #>           mo amox #> 1 klebsiella    R  # hundreds of trade names can be translated to a name, trade name or an ATC code: ab_name(\"floxapen\") #> [1] \"Flucloxacillin\" ab_tradenames(\"floxapen\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\" ab_atc(\"floxapen\") #> [1] \"J01CF05\""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"rstudio","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"RStudio","title":"How to import data from SPSS / SAS / Stata","text":"work R, probably best option use RStudio. open-source free desktop environment allows run R code, also supports project management, version management, package management convenient import menus work data sources. can also install RStudio Server private corporate server, brings nothing less complete RStudio software website (home work). import data file, just click Import Dataset Environment tab:  additional packages needed, RStudio ask installed beforehand. window opens, can define options (parameters) used import ’re ready go:  want named variables imported factors resembles SPSS , use as_factor(). difference :","code":"SPSS_data # # A tibble: 4,203 x 4 #     v001 sex       status    statusage #    <dbl> <dbl+lbl> <dbl+lbl>     <dbl> #  1 10002 1         1              76.6 #  2 10004 0         1              59.1 #  3 10005 1         1              54.5 #  4 10006 1         1              54.1 #  5 10007 1         1              57.7 #  6 10008 1         1              62.8 #  7 10010 0         1              63.7 #  8 10011 1         1              73.1 #  9 10017 1         1              56.7 # 10 10018 0         1              66.6 # # ... with 4,193 more rows  as_factor(SPSS_data) # # A tibble: 4,203 x 4 #     v001 sex    status statusage #    <dbl> <fct>  <fct>      <dbl> #  1 10002 Male   alive       76.6 #  2 10004 Female alive       59.1 #  3 10005 Male   alive       54.5 #  4 10006 Male   alive       54.1 #  5 10007 Male   alive       57.7 #  6 10008 Male   alive       62.8 #  7 10010 Female alive       63.7 #  8 10011 Male   alive       73.1 #  9 10017 Male   alive       56.7 # 10 10018 Female alive       66.6 # # ... with 4,193 more rows"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"base-r","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"Base R","title":"How to import data from SPSS / SAS / Stata","text":"import data SPSS, SAS Stata, can use great haven package : can now import files follows:","code":"# download and install the latest version: install.packages(\"haven\") # load the package you just installed: library(haven)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SPSS","title":"How to import data from SPSS / SAS / Stata","text":"read files SPSS R: forget as_factor(), mentioned . export R objects SPSS file format:","code":"# read any SPSS file based on file extension (best way): read_spss(file = \"path/to/file\")  # read .sav or .zsav file: read_sav(file = \"path/to/file\")  # read .por file: read_por(file = \"path/to/file\") # save as .sav file: write_sav(data = yourdata, path = \"path/to/file\")  # save as compressed .zsav file: write_sav(data = yourdata, path = \"path/to/file\", compress = TRUE)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"sas","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SAS","title":"How to import data from SPSS / SAS / Stata","text":"read files SAS R: export R objects SAS file format:","code":"# read .sas7bdat + .sas7bcat files: read_sas(data_file = \"path/to/file\", catalog_file = NULL)  # read SAS transport files (version 5 and version 8): read_xpt(file = \"path/to/file\") # save as regular SAS file: write_sas(data = yourdata, path = \"path/to/file\")  # the SAS transport format is an open format # (required for submission of the data to the FDA) write_xpt(data = yourdata, path = \"path/to/file\", version = 8)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"stata","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"Stata","title":"How to import data from SPSS / SAS / Stata","text":"read files Stata R: export R objects Stata file format:","code":"# read .dta file: read_stata(file = \"/path/to/file\")  # works exactly the same: read_dta(file = \"/path/to/file\") # save as .dta file, Stata version 14: # (supports Stata v8 until v15 at the time of writing) write_dta(data = yourdata, path = \"/path/to/file\", version = 14)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 3: S < < R Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 52 151 rows 22 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, source, lpsn, lpsn_parent, lpsn_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 15 April 2023 07:32:13 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.3 MB) Download Microsoft Excel workbook (5 MB) Download Apache Feather file (5.4 MB) Download Apache Parquet file (2.6 MB) Download SAS data file (50.9 MB) Download IBM SPSS Statistics data file (16.9 MB) Download Stata DTA file (47.1 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. Advice? Use R instead. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microoganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) Download SAS data file (1.9 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) Download SAS data file (84 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 17 918 rows 11 columns, containing following column names:guideline, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 14 April 2023 21:14:34 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (42 kB) Download tab-separated text file (1.8 MB) Download Microsoft Excel workbook (0.8 MB) Download Apache Feather file (0.7 MB) Download Apache Parquet file (89 kB) Download SAS data file (3.5 MB) Download IBM SPSS Statistics data file (2.3 MB) Download Stata DTA file (3.3 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2013-2022) EUCAST (2013-2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS data file (9.8 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 336 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 14 November 2022 14:20:39 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (29 kB) Download Microsoft Excel workbook (19 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (8 kB) Download SAS data file (92 kB) Download IBM SPSS Statistics data file (43 kB) Download Stata DTA file (82 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant : ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021) ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 32 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 22 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral breakpoint guidelines CLSI EUCAST included last 10 years. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline last 10 years (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2022\". Supported guideline currently EUCAST (2013-2022) CLSI (2013-2022). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_locale  language use AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options :   add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within data team, save options file remote file location, shared network drive. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi: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 breakpoint guidelines CLSI EUCAST included last 10 years. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, 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.berends@certe.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `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 tranformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #> [1] \"16365-9\" \"25274-2\" \"3344-9\"  \"80133-2\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #> [1] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"87604-5\" ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways 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 only \"Enterobacter asburiae\": mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRBC_A_C  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRBC_A_C\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2023\" #>  #> $snomed #> [1] NA #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, although a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1948-03-22  75  75.06575         51 #> 2  1971-11-19  51  51.40274         28 #> 3  1988-03-07  35  35.10685         11 #> 4  1999-11-11  23  23.42466          0 #> 5  1946-07-04  76  76.78082         53 #> 6  1974-10-29  48  48.46027         25 #> 7  1969-12-08  53  53.35068         30 #> 8  1969-04-23  53  53.97808         30 #> 9  1954-03-03  69  69.11781         45 #> 10 1966-11-10  56  56.42740         33"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for antibiogram knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set: \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\")) --------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 either \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"(internally) character vector column names, additional class \"ab_selector\"","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), amphotericin B-high (AMH), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amphotericin B (AMB), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 I      #> 3 I      #> 4 S      #> 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 30 October, 2022. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_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 of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> => Interpreting disk diffusion zones of column 'AMP' (ampicillin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'CIP' (ciprofloxacin) #>    according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli   S   R   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE)  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2013-2022) CLSI (2013-2022). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019 Microorganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 2, Protozoa = 3, Archaea = 4, others = 5. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.159\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. breakpoints used interpretation publicly available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # S3 method for mic as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   ... )  # S3 method for disk as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   ... )  # S3 method for data.frame as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE) )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2013-2022, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2022 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2013-2022) CLSI (2013-2022), see Details. uti (Urinary Tract Infection) vector logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input unclear. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines EUCAST (2013-2022) CLSI (2013-2022). Thus, guideline argument must set e.g., \"EUCAST 2022\" \"CLSI 2022\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 17 918 rows 11 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 of column 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of column 'CIP' (ciprofloxacin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 50 × 12 #>    datetime            index ab_input ab_guideline mo_input     mo_guideline     #>    <dttm>              <int> <chr>    <ab>         <chr>        <mo>             #>  1 2023-04-15 08:39:30     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR #>  2 2023-04-15 08:39:30     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR #>  3 2023-04-15 08:39:30     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR #>  4 2023-04-15 08:39:29     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR #>  5 2023-04-15 08:39:24     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  6 2023-04-15 08:39:24     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  7 2023-04-15 08:39:24     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  8 2023-04-15 08:39:24     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  9 2023-04-15 08:39:24     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> 10 2023-04-15 08:39:24     6 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> # ℹ 40 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 of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Streptococcus #>      pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] S sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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\"   # smart lowercase tranformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"78772-1\" \"78773-9\" \"79134-3\" \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 (2013-2022) CLSI (2013-2022). Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 17 918 observations 11 variables: guideline Name guideline method Either \"DISK\" \"MIC\" site Body site, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic ID, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints #> # A tibble: 17,918 × 11 #>    guideline   method site  mo               rank_index ab   ref_tbl   disk_dose #>    <chr>       <chr>  <chr> <mo>                  <dbl> <ab> <chr>     <chr>     #>  1 EUCAST 2022 MIC    NA    F_ASPRG_MGTS              2 AMB  Aspergil… NA        #>  2 EUCAST 2022 MIC    NA    F_ASPRG_NIGR              2 AMB  Aspergil… NA        #>  3 EUCAST 2022 MIC    NA    F_CANDD_ALBC              2 AMB  Candida   NA        #>  4 EUCAST 2022 MIC    NA    F_CANDD_DBLN              2 AMB  Candida   NA        #>  5 EUCAST 2022 MIC    NA    F_CANDD_GLBR              2 AMB  Candida   NA        #>  6 EUCAST 2022 MIC    NA    F_CANDD_KRUS              2 AMB  Candida   NA        #>  7 EUCAST 2022 MIC    NA    F_CANDD_PRPS              2 AMB  Candida   NA        #>  8 EUCAST 2022 MIC    NA    F_CANDD_TRPC              2 AMB  Candida   NA        #>  9 EUCAST 2022 MIC    NA    F_CRYPT_NFRM              2 AMB  Candida   NA        #> 10 EUCAST 2022 DISK   NA    B_[ORD]_ENTRBCTR          5 AMC  Enteroba… 20ug/10ug #> # ℹ 17,908 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\", \"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 336 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"data set based 'EUCAST Clinical Breakpoint Tables' v12.0 (2022) 'EUCAST Clinical Breakpoint Tables' v11.0 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 336 × 9 #>    ab   name            type  dose  dose_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… #> # ℹ 326 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 either \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can either \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated 11 December, 2022, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, 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 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 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 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 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 #> Including isolates from ICU. #>  #> Group: ward = \"Clinical\" #> ℹ Excluded 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"ICU\" #> ℹ Excluded 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"Outpatient\" #> ℹ Excluded 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    of total where a microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 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]  2 49 45 51 50 37  4 15 52 11  2 35 26 12  9 18  8 27 48 16 17 31 23  6 14 #>  [26] 18 24 51  5 45 52 52 14 44 20 18 27 25 47 16  3 29 13 42  3 33 35 21 20  7 #>  [51] 25  1  6 28 36  9  7  7 19 12  4 41  8 33 46 43  3 33 52 42  4 38 39  9 51 #>  [76] 32 34 51 11 22  8 22 10 37 48 19 49 40 36 43 53 13 22 42 30  5 10 24 26 22 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE #>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [25]  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE #>  [37] FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE #>  [49] FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE #>  [61] FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE #>  [73]  TRUE FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE #>  [85] FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE 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: 3 × 46 #>   date       patient   age gender ward      mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>     <mo>         <sir> <sir> <sir> <sir> #> 1 2002-08-14 785317     51 F      ICU       B_ESCHR_COLI R     NA    NA    NA    #> 2 2002-08-19 A49852     70 M      Clinical  B_ESCHR_COLI R     NA    NA    NA    #> 3 2002-10-11 974319     78 M      Outpatie… B_MCRCCC     S     NA    S     NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [97] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 005088  2007-08-22 A         TRUE        #>  2 005088  2017-09-28 A         TRUE        #>  3 010257  2004-04-03 C         TRUE        #>  4 05C73F  2006-01-12 A         TRUE        #>  5 066895  2002-02-27 A         TRUE        #>  6 078381  2014-07-17 B         TRUE        #>  7 080086  2010-08-08 B         TRUE        #>  8 0DBF93  2015-10-12 B         TRUE        #>  9 0E2483  2007-04-06 A         TRUE        #> 10 122506  2007-08-11 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 Clinical 2007-08-22 005088          1 TRUE        #>  2 Clinical 2017-09-28 005088          2 TRUE        #>  3 Clinical 2004-04-03 010257          1 TRUE        #>  4 Clinical 2006-01-12 05C73F          1 TRUE        #>  5 Clinical 2002-02-27 066895          1 TRUE        #>  6 ICU      2014-07-17 078381          1 TRUE        #>  7 Clinical 2010-08-08 080086          1 TRUE        #>  8 Clinical 2015-10-12 0DBF93          1 TRUE        #>  9 Clinical 2007-04-06 0E2483          1 TRUE        #> 10 Clinical 2007-08-10 122506          1 FALSE       #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward) %>%     summarise(       n_patients = n_distinct(patient),       n_episodes_365 = sum(is_new_episode(date, episode_days = 365)),       n_episodes_60 = sum(is_new_episode(date, episode_days = 60)),       n_episodes_30 = sum(is_new_episode(date, episode_days = 30))     ) } #> # A tibble: 3 × 5 #>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30 #>   <chr>           <int>          <int>         <int>         <int> #> 1 Clinical           62             13            40            51 #> 2 ICU                25              9            21            22 #> 3 Outpatient          7              5             6             7  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] FALSE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [97] #>    patient mo           ward       flag_episode #>    <chr>   <mo>         <chr>      <lgl>        #>  1 710157  B_STPHY_CONS Outpatient TRUE         #>  2 716939  B_STPHY_HMNS ICU        TRUE         #>  3 A84726  B_STPHY_CPTS Clinical   TRUE         #>  4 D80438  B_CRYNB_STRT Clinical   TRUE         #>  5 658640  B_STPHY_AURS Clinical   TRUE         #>  6 686445  B_STPHY_CONS Clinical   TRUE         #>  7 E44854  B_STRPT_PNMN ICU        TRUE         #>  8 6B8C75  B_STPHY_CONS Clinical   TRUE         #>  9 005088  B_STRPT_AGLC Clinical   TRUE         #> 10 696587  B_ESCHR_COLI ICU        TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result)    # 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 × 22 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 12 more variables: subspecies <chr>, rank <chr>, ref <chr>, source <chr>, #> #   lpsn <chr>, lpsn_parent <chr>, lpsn_renamed_to <chr>, gbif <chr>, #> #   gbif_parent <chr>, gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 22 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 12 more variables: subspecies <chr>, rank <chr>, ref <chr>, source <chr>, #> #   lpsn <chr>, lpsn_parent <chr>, lpsn_renamed_to <chr>, gbif <chr>, #> #   gbif_parent <chr>, gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"            \"bacteria\"        \"fullname\"        \"status\"          #>  [5] \"kingdom\"         \"phylum\"          \"class\"           \"order\"           #>  [9] \"family\"          \"genus\"           \"species\"         \"subspecies\"      #> [13] \"rank\"            \"ref\"             \"source\"          \"lpsn\"            #> [17] \"lpsn_parent\"     \"lpsn_renamed_to\" \"gbif\"            \"gbif_parent\"     #> [21] \"gbif_renamed_to\" \"prevalence\"      \"snomed\"           # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"            \"patient\"         \"age\"             \"gender\"          #>  [5] \"ward\"            \"mo\"              \"PEN\"             \"OXA\"             #>  [9] \"FLC\"             \"AMX\"             \"AMC\"             \"AMP\"             #> [13] \"TZP\"             \"CZO\"             \"FEP\"             \"CXM\"             #> [17] \"FOX\"             \"CTX\"             \"CAZ\"             \"CRO\"             #> [21] \"GEN\"             \"TOB\"             \"AMK\"             \"KAN\"             #> [25] \"TMP\"             \"SXT\"             \"NIT\"             \"FOS\"             #> [29] \"LNZ\"             \"CIP\"             \"MFX\"             \"VAN\"             #> [33] \"TEC\"             \"TCY\"             \"TGC\"             \"DOX\"             #> [37] \"ERY\"             \"CLI\"             \"AZM\"             \"IPM\"             #> [41] \"MEM\"             \"MTR\"             \"CHL\"             \"COL\"             #> [45] \"MUP\"             \"RIF\"             \"fullname\"        \"status\"          #> [49] \"kingdom\"         \"phylum\"          \"class\"           \"order\"           #> [53] \"family\"          \"genus\"           \"species\"         \"subspecies\"      #> [57] \"rank\"            \"ref\"             \"source\"          \"lpsn\"            #> [61] \"lpsn_parent\"     \"lpsn_renamed_to\" \"gbif\"            \"gbif_parent\"     #> [65] \"gbif_renamed_to\" \"prevalence\"      \"snomed\"          # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1395 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 3.017473 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.005038699"},{"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] R R R R S R R I I I mean_amr_distance(sir) #>  [1]  0.7745967  0.7745967  0.7745967  0.7745967 -1.1618950  0.7745967 #>  [7]  0.7745967 -1.1618950 -1.1618950 -1.1618950  mic <- random_mic(10) mic #> Class 'mic' #>  [1] <=0.005 0.125   0.025   0.01    0.25    0.5     >=128   2       0.25    #> [10] 2       mean_amr_distance(mic) #>  [1] -1.34952811 -0.26581181 -0.80766996 -1.11616251 -0.03244621  0.20091939 #>  [7]  2.06784421  0.66765060 -0.03244621  0.66765060 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -1.34952811 -0.26581181 -0.80766996 -1.11616251 -0.03244621  0.20091939 #>  [7]  2.06784421  0.66765060 -0.03244621  0.66765060  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 18 34 13 40 31 21 44 32 40 41 mean_amr_distance(disk) #>  [1] -1.25112890  0.24275635 -1.71796804  0.80296332 -0.03734713 -0.97102541 #>  [7]  1.17643463  0.05602070  0.80296332  0.89633115  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   18 <=0.5    2 #> 2   B    I   23     2   16 #> 3   C    R   19     2  <=1 #> 4   D    I   24     4  <=1 #> 5   E    R   23     8   16 #> 6   F    R   27     8   16 #> 7   G    R   21     1   16 #> 8   H    S   18    16    2 #> 9   I    S   21 <=0.5   16 #> 10  J    I   20     1    4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1] -0.56956384  0.09857482 -0.33782767 -0.23465405  0.85843659  1.20624076 #>  [7]  0.25625432 -0.33010519 -0.36084739 -0.58650835 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr  gent tobr amr_distance  check_id_C #> 1   C    R   19     2  <=1  -0.33782767 0.000000000 #> 2   H    S   18    16    2  -0.33010519 0.007722481 #> 3   I    S   21 <=0.5   16  -0.36084739 0.023019715 #> 4   D    I   24     4  <=1  -0.23465405 0.103173626 #> 5   A    R   18 <=0.5    2  -0.56956384 0.231736171 #> 6   J    I   20     1    4  -0.58650835 0.248680682 #> 7   B    I   23     2   16   0.09857482 0.436402492 #> 8   G    R   21     1   16   0.25625432 0.594081995 #> 9   E    R   23     8   16   0.85843659 1.196264261 #> 10  F    R   27     8   16   1.20624076 1.544068433 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 5 754 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"tibble 5 754 observations 2 variables: code Commonly used code microorganism mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 5,754 × 2 #>    code    mo        #>    <chr>   <mo>      #>  1 _FAM_A- B_GRAMN   #>  2 _FAM_A+ B_GRAMP   #>  3 _FAM_AC B_GRAMP   #>  4 _FAM_AE B_GRAMN   #>  5 _FAM_AN B_GRAMN   #>  6 _FAM_AO B_GRAMP   #>  7 _FAM_AP   UNKNOWN #>  8 _FAM_AS F_FUNGUS  #>  9 _FAM_AT   UNKNOWN #> 10 _FAM_AV   UNKNOWN #> # ℹ 5,744 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 151 Microorganisms — microorganisms","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: 11 December, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 151 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 151 Microorganisms — microorganisms","text":"tibble 52 151 observations 22 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters, e.g. \"Váňová\" becomes \"Vanova\". lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version 1 July, 2021 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 151 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 151 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 151 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 15 entries Streptococcus, beta-haemolytic groups K, viridans, milleri 2 entries Staphylococcus (coagulase-negative (CoNS) coagulase-positive (CoPS)) 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 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 151 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 151 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 151 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,151 × 22 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_ANAER          (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  2 B_ANAER-NEG      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  3 B_ANAER-POS      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  4 F_FUNGUS         (unknown fun… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  5 B_GRAMN          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  6 B_GRAMP          (unknown Gra… accep… Bacter… (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,141 more rows #> # ℹ 13 more variables: species <chr>, subspecies <chr>, rank <chr>, ref <chr>, #> #   source <chr>, lpsn <chr>, lpsn_parent <chr>, lpsn_renamed_to <chr>, #> #   gbif <chr>, gbif_parent <chr>, gbif_renamed_to <chr>, prevalence <dbl>, #> #   snomed <list>"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 2, Protozoa = 3, Archaea = 4, others = 5. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.159\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Class 'mo' #> [1] B_ESCHR_COLI mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #>              Based on input \"E coli\" #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.1587302"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed() mo_info() named character case mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). function mo_url() return direct URL online database entry, also shows scientific reference concerned species. SNOMED codes (mo_snomed()) version 1 July, 2021. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019 Microorganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  # }"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":null,"dir":"Reference","previous_headings":"","what":"User-Defined Reference Data Set for Microorganisms — mo_source","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"functions can used predefine reference used .mo() consequently mo_* functions (mo_genus() mo_gramstain()). fastest way organisation (analysis) specific codes picked translated package, since bother setting .","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"","code":"set_mo_source(   path,   destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\") )  get_mo_source(destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\"))"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"path location reference file, can text file (comma-, tab- pipe-separated) Excel file (see Details). Can also \"\", NULL FALSE delete reference file. destination destination compressed data file - default user's home directory.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"reference file can text file separated commas (CSV) tabs pipes, Excel file (either 'xls' 'xlsx' format) R object file (extension '.rds'). use Excel file, need readxl package installed. set_mo_source() check file validity: must data.frame, must column named \"mo\" contains values microorganisms$mo microorganisms$fullname must reference column defined values. tests pass, set_mo_source() read file R ask export \"~/mo_source.rds\". CRAN policy disallows packages write file system, although 'exceptions may allowed interactive sessions package obtains confirmation user'. reason, function works interactive sessions user can specifically confirm allow file created. destination file can set destination argument defaults user's home directory. can also set package option AMR_mo_source, e.g. options(AMR_mo_source = \"/location/file.rds\"). created compressed data file \"mo_source.rds\" used default MO determination (function .mo() consequently mo_* functions like mo_genus() mo_gramstain()). location timestamp original file saved attribute compressed data file. function get_mo_source() return data set reading \"mo_source.rds\" readRDS(). original file changed (checking location timestamp original file), call set_mo_source() update data file automatically used interactive session. Reading Excel file (.xlsx) one row size 8-9 kB. compressed file created set_mo_source() size 0.1 kB can read get_mo_source() couple microseconds (millionths second).","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"how-to-setup","dir":"Reference","previous_headings":"","what":"How to Setup","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"Imagine data sheet Excel file. first column contains organisation specific codes, second column contains valid taxonomic names:   save \"home//ourcodes.xlsx\". Now set source:   now created file \"~/mo_source.rds\" contents Excel file. first column foreign values 'mo' column kept creating RDS file. now can use functions:   edit Excel file , say, adding row 4 like :   ...new usage MO function package update data file:   delete reference data file, just use \"\", NULL FALSE input set_mo_source():   original file (previous case Excel file) moved deleted, mo_source.rds file removed upon next use .mo() mo_* function.","code":"|         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 |                    |                       | set_mo_source(\"home/me/ourcodes.xlsx\") #> NOTE: Created mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>       \"Organisation XYZ\" and \"mo\" as.mo(\"lab_mo_ecoli\") #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_mo_kpneumoniae\") #> [1] \"Klebsiella\"  # other input values still work too as.mo(c(\"Escherichia coli\", \"E. coli\", \"lab_mo_ecoli\")) #> NOTE: Translation to one microorganism was guessed with uncertainty. #>       Use mo_uncertainties() to review it. #> Class 'mo' #> [1] B_ESCHR_COLI B_ESCHR_COLI B_ESCHR_COLI |         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 | lab_Staph_aureus   | Staphylococcus aureus | 5 |                    |                       | as.mo(\"lab_mo_ecoli\") #> NOTE: Updated mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>        \"Organisation XYZ\" and \"mo\" #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_Staph_aureus\") #> [1] \"Staphylococcus\" set_mo_source(NULL) #> Removed mo_source file '/Users/me/mo_source.rds'"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":null,"dir":"Reference","previous_headings":"","what":"Principal Component Analysis (for AMR) — pca","title":"Principal Component Analysis (for AMR) — pca","text":"Performs principal component analysis (PCA) based data set automatic determination afterwards plotting groups labels, automatic filtering suitable (.e. non-empty numeric) variables.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"pca(   x,   ...,   retx = TRUE,   center = TRUE,   scale. = TRUE,   tol = NULL,   rank. = NULL )"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Principal Component Analysis (for AMR) — pca","text":"x data.frame containing numeric columns ... columns x selected PCA, can unquoted since supports quasiquotation. retx logical value indicating whether rotated variables     returned. center logical value indicating whether variables     shifted zero centered. Alternately, vector     length equal number columns x can supplied.     value passed scale. scale. logical value indicating whether variables     scaled unit variance analysis takes     place.  default FALSE consistency S,     general scaling advisable.  Alternatively, vector length     equal number columns x can supplied.      value passed scale. tol value indicating magnitude components     omitted. (Components omitted     standard deviations less equal tol times     standard deviation first component.)  default null     setting, components omitted (unless rank. specified     less min(dim(x)).).  settings tol     tol = 0 tol = sqrt(.Machine$double.eps),     omit essentially constant components. rank. optionally, number specifying maximal rank, .e.,     maximal number principal components used.  Can set     alternative addition tol, useful notably     desired rank considerably smaller dimensions matrix.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Principal Component Analysis (for AMR) — pca","text":"object classes pca prcomp","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Principal Component Analysis (for AMR) — pca","text":"pca() function takes data.frame input performs actual PCA R function prcomp(). result pca() function prcomp object, additional attribute non_numeric_cols vector column names columns contain numeric values. probably groups labels, used ggplot_pca().","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    pca_result   summary(pca_result)    # old base R plotting method:   biplot(pca_result)   # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic fortify(object, ...)  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  plot(some_mic_values)  plot(some_disk_values)  plot(some_sir_values)   # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\") #> ℹ No EUCAST 2022 MIC interpretations found for ampicillin in Staphylococcus #>   aureus  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 2022 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 0.01    0.025   0.005   1       0.5     0.25    0.25    <=0.001 1       #> [10] <=0.001 0.025   0.005   8       32      >=128   16      4       32      #> [19] 4       0.5     2       2       16      <=0.001 8       random_disk(25) #> Class 'disk' #>  [1] 45 30 36 15 21 12 49 24 19 17 31 44 41 45 36 11 27  9 48 42 42 24 41 23 13 random_sir(25) #> Class 'sir' #>  [1] I R S S S I S S S R I S S I S S R R I R S I I S R  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 2     0.01  0.01  0.002 8     0.125 0.001 0.025 1     0.001 1     0.001 #> [13] 2     32    0.5   0.005 1     2     0.125 2     4     0.25  0.005 4     #> [25] 0.01  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 16  2   0.5 1   0.5 16  1   32  8   0.5 16  0.5 1   32  64  32  8   1   2   #> [20] 64  8   32  16  32  2   random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 0.25   0.5    4      2      4      4      >=16   4      2      0.25   #> [11] >=16   0.5    4      >=16   0.0625 0.125  0.25   8      0.25   1      #> [21] 2      0.25   2      2      0.5     random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 24 18 17 31 47 37 24 43 10 22 43 32 37 33 26 11 19 38 43 43 41 47 34 48 11 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 14 16 15 15 16 12 11 16 12 17 12 16 17 11 16 11 11 15 16 16 14 16 16 12 14 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 18 23 23 17 15 15 22 19 18 20 16 27 27 20 25 15 26 17 23 24 19 16 16 22 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) #>  #> Deviance Residuals:  #>     Min       1Q   Median       3Q      Max   #> -1.4150  -0.1855   0.0000   0.4096   0.9277   #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 47.02915   72.98739   0.644    0.519 #> year        -0.02280    0.03637  -0.627    0.531 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.9620  on 11  degrees of freedom #> Residual deviance: 5.5701  on 10  degrees of freedom #> AIC: 50.533 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] -0.1146568"},{"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":"changed-2-0-0-9008","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9008","text":"formatting fix sir_interpretation_history() Fixed WHONET codes microorganisms consequently couple entries clinical_breakpoints","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":""}]