From 2145f1d1ba67f527bca4001725653aa6eff68d03 Mon Sep 17 00:00:00 2001
From: "Matthijs S. Berends"
Date: Tue, 8 Dec 2020 12:37:25 +0100
Subject: [PATCH] (v1.4.0.9033) documentation update
---
DESCRIPTION | 4 +-
NEWS.md | 4 +-
R/ab_class_selectors.R | 4 +-
R/catalogue_of_life.R | 42 +-
R/first_isolate.R | 2 +-
R/is_new_episode.R | 2 +-
R/mdro.R | 2 +-
R/mo_property.R | 4 +-
docs/404.html | 2 +-
docs/LICENSE-text.html | 2 +-
docs/articles/AMR.html | 595 +++++++++---------
.../AMR_files/figure-html/plot 1-1.png | Bin 39190 -> 39147 bytes
.../AMR_files/figure-html/plot 3-1.png | Bin 27031 -> 27033 bytes
.../AMR_files/figure-html/plot 4-1.png | Bin 69535 -> 69535 bytes
.../AMR_files/figure-html/plot 5-1.png | Bin 46141 -> 46143 bytes
docs/articles/MDR.html | 56 +-
docs/articles/PCA.html | 9 +-
.../figure-html/unnamed-chunk-5-1.png | Bin 47914 -> 51051 bytes
.../figure-html/unnamed-chunk-6-1.png | Bin 91805 -> 93108 bytes
.../figure-html/unnamed-chunk-7-1.png | Bin 92338 -> 94879 bytes
.../header-attrs-2.4/header-attrs.js | 12 +
docs/articles/SPSS.html | 37 +-
.../header-attrs-2.4/header-attrs.js | 12 +
docs/articles/WHONET.html | 5 +-
.../figure-html/unnamed-chunk-7-1.png | Bin 61471 -> 60410 bytes
.../header-attrs-2.4/header-attrs.js | 12 +
docs/articles/benchmarks.html | 72 +--
.../figure-html/unnamed-chunk-4-1.png | Bin 70821 -> 72100 bytes
docs/articles/datasets.html | 4 +-
docs/articles/index.html | 2 +-
docs/articles/resistance_predict.html | 11 +-
.../figure-html/unnamed-chunk-4-1.png | Bin 49261 -> 49177 bytes
.../figure-html/unnamed-chunk-5-1.png | Bin 71626 -> 71759 bytes
.../figure-html/unnamed-chunk-5-2.png | Bin 70493 -> 69791 bytes
.../figure-html/unnamed-chunk-6-1.png | Bin 73734 -> 72256 bytes
.../figure-html/unnamed-chunk-7-1.png | Bin 66876 -> 65604 bytes
.../header-attrs-2.4/header-attrs.js | 12 +
docs/articles/welcome_to_AMR.html | 5 +-
.../header-attrs-2.4/header-attrs.js | 12 +
docs/authors.html | 2 +-
docs/extra.css | 5 +
docs/index.html | 121 +++-
docs/news/index.html | 50 +-
docs/pkgdown.yml | 2 +-
docs/reference/AMR-deprecated.html | 2 +-
docs/reference/AMR.html | 2 +-
docs/reference/WHOCC.html | 2 +-
docs/reference/WHONET.html | 2 +-
docs/reference/ab_from_text.html | 2 +-
docs/reference/ab_property.html | 2 +-
docs/reference/age.html | 2 +-
docs/reference/age_groups.html | 2 +-
.../reference/antibiotic_class_selectors.html | 8 +-
docs/reference/antibiotics.html | 2 +-
docs/reference/as.ab.html | 2 +-
docs/reference/as.disk.html | 2 +-
docs/reference/as.mic.html | 2 +-
docs/reference/as.mo.html | 6 +-
docs/reference/as.rsi.html | 2 +-
docs/reference/atc_online.html | 2 +-
docs/reference/availability.html | 2 +-
docs/reference/bug_drug_combinations.html | 2 +-
docs/reference/catalogue_of_life.html | 28 +-
docs/reference/catalogue_of_life_version.html | 6 +-
docs/reference/count.html | 2 +-
docs/reference/eucast_rules.html | 2 +-
docs/reference/example_isolates.html | 2 +-
docs/reference/example_isolates_unclean.html | 2 +-
docs/reference/filter_ab_class.html | 2 +-
docs/reference/first_isolate.html | 2 +-
docs/reference/g.test.html | 2 +-
docs/reference/ggplot_pca.html | 2 +-
docs/reference/ggplot_rsi.html | 2 +-
docs/reference/guess_ab_col.html | 2 +-
docs/reference/index.html | 2 +-
docs/reference/intrinsic_resistant.html | 2 +-
docs/reference/is_new_episode.html | 44 +-
docs/reference/join.html | 2 +-
docs/reference/kurtosis.html | 2 +-
docs/reference/lifecycle.html | 2 +-
docs/reference/like.html | 2 +-
docs/reference/mdro.html | 2 +-
docs/reference/microorganisms.codes.html | 6 +-
docs/reference/microorganisms.html | 6 +-
docs/reference/microorganisms.old.html | 6 +-
docs/reference/mo_matching_score.html | 2 +-
docs/reference/mo_property.html | 10 +-
docs/reference/mo_source.html | 2 +-
docs/reference/pca.html | 2 +-
docs/reference/plot.html | 2 +-
docs/reference/proportion.html | 2 +-
docs/reference/resistance_predict.html | 2 +-
docs/reference/rsi_translation.html | 2 +-
docs/reference/skewness.html | 2 +-
docs/reference/translate.html | 2 +-
docs/survey.html | 2 +-
index.md | 34 +-
man/antibiotic_class_selectors.Rd | 4 +-
man/as.mo.Rd | 4 +-
man/catalogue_of_life.Rd | 26 +-
man/catalogue_of_life_version.Rd | 4 +-
man/first_isolate.Rd | 2 +-
man/is_new_episode.Rd | 2 +-
man/mdro.Rd | 2 +-
man/microorganisms.Rd | 4 +-
man/microorganisms.codes.Rd | 4 +-
man/microorganisms.old.Rd | 4 +-
man/mo_property.Rd | 8 +-
man/resistance_predict.Rd | 2 +-
pkgdown/extra.css | 5 +
110 files changed, 839 insertions(+), 576 deletions(-)
create mode 100644 docs/articles/PCA_files/header-attrs-2.4/header-attrs.js
create mode 100644 docs/articles/SPSS_files/header-attrs-2.4/header-attrs.js
create mode 100644 docs/articles/WHONET_files/header-attrs-2.4/header-attrs.js
create mode 100644 docs/articles/resistance_predict_files/header-attrs-2.4/header-attrs.js
create mode 100644 docs/articles/welcome_to_AMR_files/header-attrs-2.4/header-attrs.js
diff --git a/DESCRIPTION b/DESCRIPTION
index 9f7891fd..1f54d386 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
Package: AMR
-Version: 1.4.0.9032
-Date: 2020-12-07
+Version: 1.4.0.9033
+Date: 2020-12-08
Title: Antimicrobial Resistance Analysis
Authors@R: c(
person(role = c("aut", "cre"),
diff --git a/NEWS.md b/NEWS.md
index a999e024..d646153a 100755
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,5 @@
-# AMR 1.4.0.9032
-## Last updated: 7 December 2020
+# AMR 1.4.0.9033
+## Last updated: 8 December 2020
### New
* Function `is_new_episode()` to determine patient episodes which are not necessarily based on microorganisms. It also supports grouped variables with e.g. `mutate()`, `filter()` and `summarise()` of the `dplyr` package:
diff --git a/R/ab_class_selectors.R b/R/ab_class_selectors.R
index 0f932122..376e3a6d 100644
--- a/R/ab_class_selectors.R
+++ b/R/ab_class_selectors.R
@@ -25,11 +25,11 @@
#' Antibiotic class selectors
#'
-#' Use these selection helpers inside any function that allows [Tidyverse selection helpers](https://tidyselect.r-lib.org/reference/language.html), like `dplyr::select()` or `tidyr::pivot_longer()`. They help to select the columns of antibiotics that are of a specific antibiotic class, without the need to define the columns or antibiotic abbreviations.
+#' Use these selection helpers inside any function that allows [Tidyverse selection helpers](https://tidyselect.r-lib.org/reference/language.html), such as [`select()`][dplyr::select()] and [`pivot_longer()`][tidyr::pivot_longer()]. They help to select the columns of antibiotics that are of a specific antibiotic class, without the need to define the columns or antibiotic abbreviations.
#' @inheritParams filter_ab_class
#' @details All columns will be searched for known antibiotic names, abbreviations, brand names and codes (ATC, EARS-Net, WHO, etc.) in the [antibiotics] data set. This means that a selector like e.g. [aminoglycosides()] will pick up column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc.
#'
-#' **N.B. These functions only work if the `tidyselect` package is installed**, that comes with the `dplyr` package. An error will be thrown if the `tidyselect` package is not installed, or if the functions are used outside a function that allows Tidyverse selections like `select()` or `pivot_longer()`.
+#' **N.B. These functions require the `tidyselect` package to be installed**, that comes with the `dplyr` package. An error will be thrown if the `tidyselect` package is not installed, or if the functions are used outside a function that allows [Tidyverse selection helpers](https://tidyselect.r-lib.org/reference/language.html) such as [`select()`][dplyr::select()] and [`pivot_longer()`][tidyr::pivot_longer()]`.
#' @rdname antibiotic_class_selectors
#' @seealso [filter_ab_class()] for the `filter()` equivalent.
#' @name antibiotic_class_selectors
diff --git a/R/catalogue_of_life.R b/R/catalogue_of_life.R
index 525b4001..1d9f302e 100755
--- a/R/catalogue_of_life.R
+++ b/R/catalogue_of_life.R
@@ -23,20 +23,36 @@
# how to conduct AMR analysis: https://msberends.github.io/AMR/ #
# ==================================================================== #
+format_included_data_number <- function(data) {
+ if (is.data.frame(data)) {
+ n <- nrow(data)
+ } else {
+ n <- length(unique(data))
+ }
+ if (n > 10000) {
+ rounder <- -3 # round on thousands
+ } else if (n > 1000) {
+ rounder <- -2 # round on hundreds
+ } else {
+ rounder <- -1 # round on tens
+ }
+ paste0("~", format(round(n, rounder), decimal.mark = ".", big.mark = ","))
+}
+
#' The Catalogue of Life
#'
#' This package contains the complete taxonomic tree of almost all microorganisms from the authoritative and comprehensive Catalogue of Life.
#' @section Catalogue of Life:
#' \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
-#' This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (). The Catalogue of Life is the most comprehensive and authoritative global index of species currently available.
+#' This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, ). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, [lpsn.dsmz.de](https://lpsn.dsmz.de)). This supplementation is needed until the [CoL+ project](https://github.com/Sp2000/colplus) is finished, which we await.
#'
-#' [Click here][catalogue_of_life] for more information about the included taxa. Check which version of the Catalogue of Life was included in this package with [catalogue_of_life_version()].
+#' [Click here][catalogue_of_life] for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with [catalogue_of_life_version()].
#' @section Included taxa:
#' Included are:
-#' - All ~61,000 (sub)species from the kingdoms of Archaea, Bacteria, Chromista and Protozoa
-#' - All ~8,500 (sub)species from these orders of the kingdom of Fungi: Eurotiales, Microascales, Mucorales, Onygenales, Pneumocystales, Saccharomycetales, Schizosaccharomycetales and Tremellales. The kingdom of Fungi is a very large taxon with almost 300,000 different (sub)species, of which most are not microbial (but rather macroscopic, like mushrooms). Because of this, not all fungi fit the scope of this package and including everything would tremendously slow down our algorithms too. By only including the aforementioned taxonomic orders, the most relevant fungi are covered (like all species of *Aspergillus*, *Candida*, *Cryptococcus*, *Histplasma*, *Pneumocystis*, *Saccharomyces* and *Trichophyton*).
-#' - All ~150 (sub)species from ~100 other relevant genera from the kingdom of Animalia (like *Strongyloides* and *Taenia*)
-#' - All ~23,000 previously accepted names of all included (sub)species (these were taxonomically renamed)
+#' - All `r format_included_data_number(microorganisms[which(microorganisms$kingdom %in% c("Archeae", "Bacteria", "Chromista", "Protozoa")), ])` (sub)species from the kingdoms of Archaea, Bacteria, Chromista and Protozoa
+#' - All `r format_included_data_number(microorganisms[which(microorganisms$kingdom == "Fungi" & microorganisms$order %in% c("Eurotiales", "Microascales", "Mucorales", "Onygenales", "Pneumocystales", "Saccharomycetales", "Schizosaccharomycetales", "Tremellales")), ])` (sub)species from these orders of the kingdom of Fungi: Eurotiales, Microascales, Mucorales, Onygenales, Pneumocystales, Saccharomycetales, Schizosaccharomycetales and Tremellales, as well as `r format_included_data_number(microorganisms[which(microorganisms$kingdom == "Fungi" & !microorganisms$order %in% c("Eurotiales", "Microascales", "Mucorales", "Onygenales", "Pneumocystales", "Saccharomycetales", "Schizosaccharomycetales", "Tremellales")), ])` other fungal (sub)species. The kingdom of Fungi is a very large taxon with almost 300,000 different (sub)species, of which most are not microbial (but rather macroscopic, like mushrooms). Because of this, not all fungi fit the scope of this package and including everything would tremendously slow down our algorithms too. By only including the aforementioned taxonomic orders, the most relevant fungi are covered (like all species of *Aspergillus*, *Candida*, *Cryptococcus*, *Histplasma*, *Pneumocystis*, *Saccharomyces* and *Trichophyton*).
+#' - All `r format_included_data_number(microorganisms[which(microorganisms$kingdom == "Animalia"), ])` (sub)species from `r format_included_data_number(microorganisms[which(microorganisms$kingdom == "Animalia"), "genus"])` other relevant genera from the kingdom of Animalia (like *Strongyloides* and *Taenia*)
+#' - All `r format_included_data_number(microorganisms.old)` previously accepted names of all included (sub)species (these were taxonomically renamed)
#' - The complete taxonomic tree of all included (sub)species: from kingdom to subspecies
#' - The responsible author(s) and year of scientific publication
#'
@@ -57,26 +73,26 @@
#' mo_shortname("Chlamydophila psittaci")
#' # Note: 'Chlamydophila psittaci' (Everett et al., 1999) was renamed back to
#' # 'Chlamydia psittaci' (Page, 1968)
-#' # [1] "C. psittaci"
+#' #> [1] "C. psittaci"
#'
#' # Get any property from the entire taxonomic tree for all included species
#' mo_class("E. coli")
-#' # [1] "Gammaproteobacteria"
+#' #> [1] "Gammaproteobacteria"
#'
#' mo_family("E. coli")
-#' # [1] "Enterobacteriaceae"
+#' #> [1] "Enterobacteriaceae"
#'
#' mo_gramstain("E. coli") # based on kingdom and phylum, see ?mo_gramstain
-#' # [1] "Gram negative"
+#' #> [1] "Gram-negative"
#'
#' mo_ref("E. coli")
-#' # [1] "Castellani et al., 1919"
+#' #> [1] "Castellani et al., 1919"
#'
#' # Do not get mistaken - this package is about microorganisms
#' mo_kingdom("C. elegans")
-#' # [1] "Fungi" # Fungi?!
+#' #> [1] "Fungi" # Fungi?!
#' mo_name("C. elegans")
-#' # [1] "Cladosporium elegans" # Because a microorganism was found
+#' #> [1] "Cladosporium elegans" # Because a microorganism was found
NULL
#' Version info of included Catalogue of Life
diff --git a/R/first_isolate.R b/R/first_isolate.R
index e47707c1..ec5de8af 100755
--- a/R/first_isolate.R
+++ b/R/first_isolate.R
@@ -27,7 +27,7 @@
#'
#' Determine first (weighted) isolates of all microorganisms of every patient per episode and (if needed) per specimen type. To determine patient episodes not necessarily based on microorganisms, use [is_new_episode()] that also supports grouping with the `dplyr` package.
#' @inheritSection lifecycle Stable lifecycle
-#' @param x a [data.frame] containing isolates. Can be omitted when used inside `dplyr` verbs, such as `filter()`, `mutate()` and `summarise()`.
+#' @param x a [data.frame] containing isolates. Can be omitted when used inside `dplyr` verbs, such as [`filter()`][dplyr::filter()], [`mutate()`][dplyr::mutate()] and [`summarise()`][dplyr::summarise()].
#' @param col_date column name of the result date (or date that is was received on the lab), defaults to the first column with a date class
#' @param col_patient_id column name of the unique IDs of the patients, defaults to the first column that starts with 'patient' or 'patid' (case insensitive)
#' @param col_mo column name of the IDs of the microorganisms (see [as.mo()]), defaults to the first column of class [`mo`]. Values will be coerced using [as.mo()].
diff --git a/R/is_new_episode.R b/R/is_new_episode.R
index 0ef4632c..14079031 100644
--- a/R/is_new_episode.R
+++ b/R/is_new_episode.R
@@ -43,7 +43,7 @@
#'
#' is_new_episode(example_isolates$date)
#' is_new_episode(example_isolates$date, episode_days = 60)
-#' #' \donttest{
+#' \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:
diff --git a/R/mdro.R b/R/mdro.R
index f1191cd8..0a5c0577 100755
--- a/R/mdro.R
+++ b/R/mdro.R
@@ -27,7 +27,7 @@
#'
#' Determine which isolates are multidrug-resistant organisms (MDRO) according to international and national guidelines.
#' @inheritSection lifecycle Stable lifecycle
-#' @param x a [data.frame] with antibiotics columns, like `AMX` or `amox`. Can be omitted when used inside `dplyr` verbs, such as `filter()`, `mutate()` and `summarise()`.
+#' @param x a [data.frame] with antibiotics columns, like `AMX` or `amox`. Can be omitted when used inside `dplyr` verbs, such as [`filter()`][dplyr::filter()], [`mutate()`][dplyr::mutate()] and [`summarise()`][dplyr::summarise()].
#' @param guideline a specific guideline to follow. When left empty, the publication by Magiorakos *et al.* (2012, Clinical Microbiology and Infection) will be followed, please see *Details*.
#' @inheritParams eucast_rules
#' @param pct_required_classes minimal required percentage of antimicrobial classes that must be available per isolate, rounded down. For example, with the default guideline, 17 antimicrobial classes must be available for *S. aureus*. Setting this `pct_required_classes` argument to `0.5` (default) means that for every *S. aureus* isolate at least 8 different classes must be available. Any lower number of available classes will return `NA` for that isolate.
diff --git a/R/mo_property.R b/R/mo_property.R
index 252302a7..a96263b0 100755
--- a/R/mo_property.R
+++ b/R/mo_property.R
@@ -27,8 +27,8 @@
#'
#' Use these functions to return a specific property of a microorganism based on the latest accepted taxonomy. All input values will be evaluated internally with [as.mo()], which makes it possible to use microbial abbreviations, codes and names as input. Please see *Examples*.
#' @inheritSection lifecycle Stable lifecycle
-#' @param x any character (vector) that can be coerced to a valid microorganism code with [as.mo()]
-#' @param property one of the column names of the [microorganisms] data set or `"shortname"`
+#' @param x any character (vector) that can be coerced to a valid microorganism code with [as.mo()]. Can be omitted for auto-guessing in `mo_is_*()` functions when used inside `dplyr` verbs, such as [`filter()`][dplyr::filter()], [`mutate()`][dplyr::mutate()] and [`summarise()`][dplyr::summarise()], please see *Examples*.
+#' @param property one of the column names of the [microorganisms] data set: `r paste0('"``', colnames(microorganisms), '\``"', collapse = ", ")`, or must be `"shortname"`
#' @param language language of the returned text, defaults to system language (see [get_locale()]) and can be overwritten by setting the option `AMR_locale`, e.g. `options(AMR_locale = "de")`, see [translate]. Also used to translate text like "no growth". Use `language = NULL` or `language = ""` to prevent translation.
#' @param ... other parameters passed on to [as.mo()], such as 'allow_uncertain' and 'ignore_pattern'
#' @param ab any (vector of) text that can be coerced to a valid antibiotic code with [as.ab()]
diff --git a/docs/404.html b/docs/404.html
index faf804e7..003d67d6 100644
--- a/docs/404.html
+++ b/docs/404.html
@@ -81,7 +81,7 @@
AMR (for R)
- 1.4.0.9032
+ 1.4.0.9033
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
index aba3301e..99243f25 100644
--- a/docs/LICENSE-text.html
+++ b/docs/LICENSE-text.html
@@ -81,7 +81,7 @@
AMR (for R)
- 1.4.0.9032
+ 1.4.0.9033
diff --git a/docs/articles/AMR.html b/docs/articles/AMR.html
index 64e99be5..9a51909f 100644
--- a/docs/articles/AMR.html
+++ b/docs/articles/AMR.html
@@ -39,7 +39,7 @@
AMR (for R)
- 1.4.0.9000
+ 1.4.0.9032
@@ -193,7 +193,7 @@
How to conduct AMR analysis
Matthijs S. Berends
- 15 October 2020
+ 08 December 2020
Source: vignettes/AMR.Rmd
AMR.Rmd
@@ -202,7 +202,7 @@
-Note: values on this page will change with every website update since they are based on randomly created values and the page was written in R Markdown. However, the methodology remains unchanged. This page was generated on 15 October 2020.
+Note: values on this page will change with every website update since they are based on randomly created values and the page was written in R Markdown. However, the methodology remains unchanged. This page was generated on 08 December 2020.
Introduction
@@ -233,21 +233,21 @@
-2020-10-15 |
+2020-12-08 |
abcd |
Escherichia coli |
S |
S |
-2020-10-15 |
+2020-12-08 |
abcd |
Escherichia coli |
S |
R |
-2020-10-15 |
+2020-12-08 |
efgh |
Escherichia coli |
R |
@@ -352,70 +352,70 @@
-2011-04-04 |
-A3 |
+2015-10-08 |
+Y10 |
+Hospital A |
+Escherichia coli |
+S |
+S |
+R |
+S |
+F |
+
+
+2014-04-05 |
+O10 |
+Hospital C |
+Escherichia coli |
+R |
+I |
+S |
+S |
+F |
+
+
+2012-07-06 |
+H9 |
+Hospital A |
+Escherichia coli |
+R |
+S |
+S |
+S |
+M |
+
+
+2016-09-05 |
+U3 |
Hospital C |
Staphylococcus aureus |
R |
-I |
S |
S |
-M |
-
-
-2011-10-13 |
-I4 |
-Hospital B |
-Escherichia coli |
-S |
-S |
-S |
-S |
-M |
-
-
-2015-11-20 |
-J6 |
-Hospital A |
-Escherichia coli |
-I |
-S |
-R |
-S |
-M |
-
-
-2017-02-04 |
-X3 |
-Hospital B |
-Klebsiella pneumoniae |
-S |
-I |
-S |
S |
F |
-2010-10-17 |
-N9 |
-Hospital D |
-Staphylococcus aureus |
+2017-05-23 |
+S5 |
+Hospital C |
+Escherichia coli |
+I |
I |
R |
S |
-R |
F |
-2014-06-04 |
-X3 |
-Hospital A |
-Escherichia coli |
+2013-11-30 |
+J2 |
+Hospital C |
+Streptococcus pneumoniae |
S |
S |
+R |
S |
-S |
-F |
+M |
@@ -449,16 +449,16 @@ Longest: 1
1 |
M |
-10,412 |
-52.06% |
-10,412 |
-52.06% |
+10,384 |
+51.92% |
+10,384 |
+51.92% |
2 |
F |
-9,588 |
-47.94% |
+9,616 |
+48.08% |
20,000 |
100.00% |
@@ -501,10 +501,10 @@ Longest: 1
data <- data %>%
mutate(first = first_isolate(.))
-# NOTE: Using column `bacteria` as input for `col_mo`.
-# NOTE: Using column `date` as input for `col_date`.
-# NOTE: Using column `patient_id` as input for `col_patient_id`.
-
So only 28.4% is suitable for resistance analysis! We can now filter on it with the filter()
function, also from the dplyr
package:
+
# NOTE: Using column 'bacteria' as input for `col_mo`.
+
# NOTE: Using column 'date' as input for `col_date`.
+
# NOTE: Using column 'patient_id' as input for `col_patient_id`.
+So only 28.6% is suitable for resistance analysis! We can now filter on it with the filter()
function, also from the dplyr
package:
data_1st <- data %>%
filter(first == TRUE)
@@ -516,7 +516,7 @@ Longest: 1
First weighted isolates
-
We made a slight twist to the CLSI algorithm, to take into account the antimicrobial susceptibility profile. Have a look at all isolates of patient Z7, sorted on date:
+
We made a slight twist to the CLSI algorithm, to take into account the antimicrobial susceptibility profile. Have a look at all isolates of patient A3, sorted on date:
1 |
-2010-03-27 |
-Z7 |
+2010-01-04 |
+A3 |
B_ESCHR_COLI |
R |
-S |
-S |
R |
+R |
+S |
TRUE |
2 |
-2010-06-10 |
-Z7 |
+2010-01-05 |
+A3 |
B_ESCHR_COLI |
-S |
+R |
S |
S |
S |
@@ -554,30 +554,30 @@ Longest: 1
3 |
-2010-06-25 |
-Z7 |
+2010-02-07 |
+A3 |
B_ESCHR_COLI |
-I |
-S |
-S |
-S |
-FALSE |
-
-
-4 |
-2010-11-05 |
-Z7 |
-B_ESCHR_COLI |
-S |
+R |
S |
R |
S |
FALSE |
+
+4 |
+2010-06-17 |
+A3 |
+B_ESCHR_COLI |
+S |
+S |
+S |
+S |
+FALSE |
+
5 |
-2010-11-22 |
-Z7 |
+2010-07-23 |
+A3 |
B_ESCHR_COLI |
S |
S |
@@ -587,8 +587,8 @@ Longest: 1
6 |
-2011-02-06 |
-Z7 |
+2010-11-16 |
+A3 |
B_ESCHR_COLI |
S |
S |
@@ -598,45 +598,45 @@ Longest: 1
7 |
-2011-03-19 |
-Z7 |
+2010-12-05 |
+A3 |
B_ESCHR_COLI |
-R |
+I |
+I |
S |
-R |
S |
FALSE |
8 |
-2011-07-19 |
-Z7 |
+2011-01-17 |
+A3 |
B_ESCHR_COLI |
-R |
-I |
S |
S |
+R |
+S |
TRUE |
9 |
-2011-08-15 |
-Z7 |
+2011-01-26 |
+A3 |
B_ESCHR_COLI |
-R |
S |
S |
-R |
+S |
+S |
FALSE |
10 |
-2011-09-22 |
-Z7 |
+2011-02-12 |
+A3 |
B_ESCHR_COLI |
-S |
-S |
-S |
+R |
+R |
+R |
S |
FALSE |
@@ -648,11 +648,12 @@ Longest: 1
data <- data %>%
mutate(keyab = key_antibiotics(.)) %>%
mutate(first_weighted = first_isolate(.))
-# NOTE: Using column `bacteria` as input for `col_mo`.
-# NOTE: Using column `bacteria` as input for `col_mo`.
-# NOTE: Using column `date` as input for `col_date`.
-# NOTE: Using column `patient_id` as input for `col_patient_id`.
-# NOTE: Using column `keyab` as input for `col_keyantibiotics`. Use col_keyantibiotics = FALSE to prevent this.
+# NOTE: Using column 'bacteria' as input for `col_mo`.
+# NOTE: Using column 'bacteria' as input for `col_mo`.
+# NOTE: Using column 'date' as input for `col_date`.
+# NOTE: Using column 'patient_id' as input for `col_patient_id`.
+# NOTE: Using column 'keyab' as input for `col_keyantibiotics`. Use
+# col_keyantibiotics = FALSE to prevent this.
1 |
-2010-03-27 |
-Z7 |
+2010-01-04 |
+A3 |
B_ESCHR_COLI |
R |
-S |
-S |
R |
+R |
+S |
TRUE |
TRUE |
2 |
-2010-06-10 |
-Z7 |
+2010-01-05 |
+A3 |
B_ESCHR_COLI |
-S |
+R |
S |
S |
S |
@@ -693,32 +694,20 @@ Longest: 1
3 |
-2010-06-25 |
-Z7 |
+2010-02-07 |
+A3 |
B_ESCHR_COLI |
-I |
-S |
-S |
-S |
-FALSE |
-FALSE |
-
-
-4 |
-2010-11-05 |
-Z7 |
-B_ESCHR_COLI |
-S |
+R |
S |
R |
S |
FALSE |
TRUE |
-
-5 |
-2010-11-22 |
-Z7 |
+
+4 |
+2010-06-17 |
+A3 |
B_ESCHR_COLI |
S |
S |
@@ -727,10 +716,22 @@ Longest: 1
FALSE |
TRUE |
+
+5 |
+2010-07-23 |
+A3 |
+B_ESCHR_COLI |
+S |
+S |
+S |
+S |
+FALSE |
+FALSE |
+
6 |
-2011-02-06 |
-Z7 |
+2010-11-16 |
+A3 |
B_ESCHR_COLI |
S |
S |
@@ -741,60 +742,60 @@ Longest: 1
7 |
-2011-03-19 |
-Z7 |
+2010-12-05 |
+A3 |
B_ESCHR_COLI |
-R |
+I |
+I |
S |
-R |
S |
FALSE |
-TRUE |
+FALSE |
8 |
-2011-07-19 |
-Z7 |
+2011-01-17 |
+A3 |
B_ESCHR_COLI |
-R |
-I |
S |
S |
+R |
+S |
TRUE |
TRUE |
9 |
-2011-08-15 |
-Z7 |
+2011-01-26 |
+A3 |
B_ESCHR_COLI |
-R |
S |
S |
-R |
+S |
+S |
FALSE |
TRUE |
10 |
-2011-09-22 |
-Z7 |
+2011-02-12 |
+A3 |
B_ESCHR_COLI |
-S |
-S |
-S |
+R |
+R |
+R |
S |
FALSE |
TRUE |
-Instead of 2, now 8 isolates are flagged. In total, 78.6% of all isolates are marked ‘first weighted’ - 50.2% more than when using the CLSI guideline. In real life, this novel algorithm will yield 5-10% more isolates than the classic CLSI guideline.
+Instead of 2, now 7 isolates are flagged. In total, 79.1% of all isolates are marked ‘first weighted’ - 50.6% more than when using the CLSI guideline. In real life, this novel algorithm will yield 5-10% more isolates than the classic CLSI guideline.
As with filter_first_isolate()
, there’s a shortcut for this new algorithm too:
-So we end up with 15,713 isolates for analysis.
+So we end up with 15,822 isolates for analysis.
We can remove unneeded columns:
data_1st <- data_1st %>%
@@ -837,47 +838,15 @@ Longest: 1
-1 |
-2011-04-04 |
-A3 |
-Hospital C |
-B_STPHY_AURS |
-R |
-I |
-S |
-S |
-M |
-Gram-positive |
-Staphylococcus |
-aureus |
-TRUE |
-
-
-2 |
-2011-10-13 |
-I4 |
-Hospital B |
-B_ESCHR_COLI |
-S |
-S |
-S |
-S |
-M |
-Gram-negative |
-Escherichia |
-coli |
-TRUE |
-
-
3 |
-2015-11-20 |
-J6 |
+2012-07-06 |
+H9 |
Hospital A |
B_ESCHR_COLI |
-I |
-S |
R |
S |
+S |
+S |
M |
Gram-negative |
Escherichia |
@@ -886,45 +855,77 @@ Longest: 1
4 |
-2017-02-04 |
-X3 |
-Hospital B |
-B_KLBSL_PNMN |
-R |
-S |
-S |
-S |
-F |
-Gram-negative |
-Klebsiella |
-pneumoniae |
-TRUE |
-
-
-5 |
-2010-10-17 |
-N9 |
-Hospital D |
+2016-09-05 |
+U3 |
+Hospital C |
B_STPHY_AURS |
R |
-R |
S |
-R |
+S |
+S |
F |
Gram-positive |
Staphylococcus |
aureus |
TRUE |
-
-7 |
-2011-06-10 |
-P2 |
-Hospital B |
-B_STRPT_PNMN |
+
+5 |
+2017-05-23 |
+S5 |
+Hospital C |
+B_ESCHR_COLI |
I |
I |
+R |
+S |
+F |
+Gram-negative |
+Escherichia |
+coli |
+TRUE |
+
+
+8 |
+2016-07-20 |
+D2 |
+Hospital B |
+B_ESCHR_COLI |
+R |
+I |
S |
+S |
+M |
+Gram-negative |
+Escherichia |
+coli |
+TRUE |
+
+
+9 |
+2010-09-20 |
+H10 |
+Hospital D |
+B_STPHY_AURS |
+R |
+R |
+R |
+S |
+M |
+Gram-positive |
+Staphylococcus |
+aureus |
+TRUE |
+
+
+10 |
+2012-03-30 |
+Y4 |
+Hospital B |
+B_STRPT_PNMN |
+S |
+S |
+R |
R |
F |
Gram-positive |
@@ -953,8 +954,8 @@ Longest: 1
data_1st %>% freq(genus, species)
Frequency table
Class: character
-Length: 15,713
-Available: 15,713 (100%, NA: 0 = 0%)
+Length: 15,822
+Available: 15,822 (100%, NA: 0 = 0%)
Unique: 4
Shortest: 16
Longest: 24
@@ -971,33 +972,33 @@ Longest: 24
1 |
Escherichia coli |
-7,867 |
-50.07% |
-7,867 |
-50.07% |
+7,935 |
+50.15% |
+7,935 |
+50.15% |
2 |
Staphylococcus aureus |
-3,842 |
-24.45% |
-11,709 |
-74.52% |
+3,933 |
+24.86% |
+11,868 |
+75.01% |
3 |
Streptococcus pneumoniae |
-2,346 |
-14.93% |
-14,055 |
-89.45% |
+2,376 |
+15.02% |
+14,244 |
+90.03% |
4 |
Klebsiella pneumoniae |
-1,658 |
-10.55% |
-15,713 |
+1,578 |
+9.97% |
+15,822 |
100.00% |
@@ -1011,7 +1012,7 @@ Longest: 24
data_1st %>%
bug_drug_combinations() %>%
head() # show first 6 rows
-# NOTE: Using column `bacteria` as input for `col_mo`.
+# NOTE: Using column 'bacteria' as input for `col_mo`.
E. coli |
AMX |
-3806 |
-262 |
-3799 |
-7867 |
+3811 |
+259 |
+3865 |
+7935 |
E. coli |
AMC |
-6223 |
-321 |
-1323 |
-7867 |
+6278 |
+298 |
+1359 |
+7935 |
E. coli |
CIP |
-6006 |
+6070 |
0 |
-1861 |
-7867 |
+1865 |
+7935 |
E. coli |
GEN |
-7072 |
+7138 |
0 |
-795 |
-7867 |
+797 |
+7935 |
K. pneumoniae |
AMX |
0 |
0 |
-1658 |
-1658 |
+1578 |
+1578 |
K. pneumoniae |
AMC |
-1298 |
-56 |
-304 |
-1658 |
+1248 |
+57 |
+273 |
+1578 |
@@ -1077,8 +1078,8 @@ Longest: 24
data_1st %>%
select(bacteria, fluoroquinolones()) %>%
bug_drug_combinations()
-# Selecting fluoroquinolones: `CIP` (ciprofloxacin)
-# NOTE: Using column `bacteria` as input for `col_mo`.
+# Selecting fluoroquinolones: 'CIP' (ciprofloxacin)
+# NOTE: Using column 'bacteria' as input for `col_mo`.
E. coli |
CIP |
-6006 |
+6070 |
0 |
-1861 |
-7867 |
+1865 |
+7935 |
K. pneumoniae |
CIP |
-1257 |
+1219 |
0 |
-401 |
-1658 |
+359 |
+1578 |
S. aureus |
CIP |
-2963 |
+3015 |
0 |
-879 |
-3842 |
+918 |
+3933 |
S. pneumoniae |
CIP |
-1785 |
+1798 |
0 |
-561 |
-2346 |
+578 |
+2376 |
@@ -1132,7 +1133,7 @@ Longest: 24
As per the EUCAST guideline of 2019, we calculate resistance as the proportion of R (proportion_R()
, equal to resistance()
) and susceptibility as the proportion of S and I (proportion_SI()
, equal to susceptibility()
). These functions can be used on their own:
+# [1] 0.535457
Or can be used in conjuction with group_by()
and summarise()
, both from the dplyr
package:
data_1st %>%
@@ -1147,19 +1148,19 @@ Longest: 24
Hospital A |
-0.5459117 |
+0.5309604 |
Hospital B |
-0.5280457 |
+0.5345539 |
Hospital C |
-0.5268007 |
+0.5403226 |
Hospital D |
-0.5537583 |
+0.5401970 |
@@ -1179,23 +1180,23 @@ Longest: 24
Hospital A |
-0.5459117 |
-4574 |
+0.5309604 |
+4748 |
Hospital B |
-0.5280457 |
-5598 |
+0.5345539 |
+5571 |
Hospital C |
-0.5268007 |
-2388 |
+0.5403226 |
+2356 |
Hospital D |
-0.5537583 |
-3153 |
+0.5401970 |
+3147 |
@@ -1217,27 +1218,27 @@ Longest: 24
Escherichia |
-0.8318292 |
-0.8989450 |
-0.9853820 |
+0.8287335 |
+0.8995589 |
+0.9863894 |
Klebsiella |
-0.8166466 |
-0.8908323 |
-0.9782871 |
+0.8269962 |
+0.8941698 |
+0.9828897 |
Staphylococcus |
-0.8232691 |
-0.9190526 |
-0.9880271 |
+0.8245614 |
+0.9211798 |
+0.9839817 |
Streptococcus |
-0.5264280 |
+0.5366162 |
0.0000000 |
-0.5264280 |
+0.5366162 |
diff --git a/docs/articles/AMR_files/figure-html/plot 1-1.png b/docs/articles/AMR_files/figure-html/plot 1-1.png
index e78f6e21ceeaec275ff85bdfb7cc2ff977507e34..a325c5166dc22ff74b13b1743c264df7a81eda70 100644
GIT binary patch
literal 39147
zcmeFZby$>ZzcxJTvTGTLiAx;}(gFktm1PVlAT4PDN=iw`GH@vhItWOk(lsL879u6h
zNGsAqNK1d`h5GFH_TKOD?eBe${r>UHfeRMQ+;iVo{C;QMb5~C0
T~%DZ!Gwo?O}BF^3|VKAAPoYTgxA(>B8fqC$GQXd?3HY
zx+A}3IO>^xRL)6>seskr$lBT21)TiNB2tlS!@(b5F<%TV{A
z!&b(|89m9O-(Jo0IiM$#TxXndf2)M};l50BF3*CE5-Z3xo&RIQi#h2D2?v;3c19v1
zBFdfLJ1fH5KV5P^6RXT}?C#IoTJqIhA~60^UR!rUiOi)-UpF59@yg&0a&yv^qjg^2
zm~Ydc%WmG2#MB+>u8Fn?#C-YNc11>3=?k|!lr(!aXJH7Y(!8xGKbKwGe^-$Gevh4J
z3Lc&0NIT&+yR6p#y`XYqDZ9qCqbqQ__Fp$OeejSKPb+A*>3Di)zuic;eanum`L7pl
z^~d~6h0>o&-f27BG$zC4DP^29HNvC%;{1cnvrBdF@5>`7Sz+}y?Ey6U%@rb7e2l8}
z1-`z2AWat?EIMG&a)?~D^Iunv%P7CKKRG-5{W^
z=st0O%VEKM`ZgOS_a7%2K~B;&T9GT-qJDC0(1ZHm!2_%)vEGClT|Z8mmThNfmALWM
zm10A3VQ2iRza}pis^4qZ9iO*EYYr>Dt*xz>k>T~%obfxkCdcY3D<2P6t25l5&soPT
z{gz_00S6NgDs|_X?yGTeSr8Q*O~J#qw?mEF-y1GAe!l*rmpTmee1GZz2~b}a(keiZk$aM(T@?JLaYzJb3W()G$+)o|uwi#m`t!sU0fc
z88}>DR#rA;&NdW=i=NQiPU(_$){;_L|3t#c5v$VHzihHAnz556*knIQ#`tje3(4!B
zF5KZrDSoo=?MlfQIUHp=Pgz~vZ*Pa(emm0kF~Dz&RsFt+?gUwe&|-~%pO@h~M{J&L@VMgIef%C}35G9DKnzwhS4
zm2sncgJoToZIJKVHgq^{@zm|nizOQDf1(n
zv3`y%F9AkJZ!V~^TVJ}XF}l#~Ob34^yIos)=~nBlBSn@^U4!mY&iCv%!Z==ATe}~9
z*mmW-@sQEcu5T$8o2TxU@K4(JQe((YexI+^%gf%@{pygP@@*{rCZOy<%S_f}>PT
zvWC0FexppgW5~#${&NHVyKx}9!}+fZH$Q11QTI1Xg0&!6%8uMzeVckR?`
z7gmUL1dB^F#ilf-zq8qD)AGpQt~V{KSHgCvL*sglj)S-axyo0y`T(T=E9AYTqyjK0
zyxqXqSZk+#&bK#93&pY-?X!(mwQl(nN&}FGf~=T8k{a)w&1RtKtAtZsP-O?cqL4sW|aK4TA)Y)RJrUx%)Set5t2sxjM85SnZ^_vxHQltL|?S;-d`|
z9Vm$zFb7cFs~2daoBZjbYj;LpcA+7oO5bL4a#i#g3$w==vFXQEfUyy_GwK1D&SFPW$ZVwChPyIdOkI0Ahk(i41+&
zhW*shMmv+7y
z0)-h(Q@tE14>k+$2h!#ib1WDT>pa)T)X5F1_^ZIKHMZS%w5UBnuaVz`mzkj_9wavC
z_>`rWr53Au^_cPpyWfJHHsGWTY95?R&>c>fWsVmSg3&oR^X-nrX*yvug$*VpVxvWY
z*fK?5H<@Ibx`}i}Bqk@fHQMzRXN@-cVa+k}%2WEy>Dc(A
zSqtS(P7T}1n`CKwTaL=^WDRTek6pfsQ;E)-Aj3XpKTgZ7IEpaFf
zWif*1MC8mdUGoNLf7iLhbrvQGJJP-KRBJZ$O+I#ocGu_jx0M^K*y(9WP1uZho@w(g_*yu@-86
zd>)4%;6%H5_DHRP4`>#ad3?R!%AKxWb3kW}2F6*8cDgiQetnvGhUAc+Nw!ZkBU?mP
zeC)DdqxIL!K8HT_T$RP-)L)FO|6OR?X*wWCYqKl=$Hlw+A96D?_p4~xw63m`7|WN{
zO=-BU-W;zM>osr1p+9K*O`G4{-z;o)w?|fNSdq?Su3;i`xF>NlxN=%w_JmoJ!zgcp
z1Fk#`B`%}yGhqyry$?||0;qkq%nY*zOJ=K=x^e!zm7)*R%-ePIwpbO3Pjq{1x&G;C
z-X+_Ns~6~^{qNS$=%bnKVh*;`%LPCEK_mx;(-e!aG%|q-k&63ui=L3uL*#)ZHO(>h
z*-H9i-A1`NA~aIkcDNndesZ(vyCtKsid;UTHfD@ESsd8ky7?~m@FW;}4Y*PQC|_Kq
zDLF^VJW?xv^!n-J{{vX^pCpOQ!aup-|9(zP$d#(Fr&MU8yU?w?T75HzH3mUU
z@IQ@eaaJW7-m@$vG-sx9CFRBSRl&^d#l^)NL@cgk-6?xMf0*OQmgSoSV;UtpyfwUa
zs#w0??Oz^bhUyKc@`(rW6kB%su#Q1A+S#{I`O51XmSZz7C{yl~taY6o9UoAJSYr1%
zlvrZUB3+Co4_nq$y5To3x91X(OuL_@Jcgr>opjZ~nge~_mg=GMG$QUEmspd9k_v5j
zO7rB&lM9w_RP4Jz`R4RnN75+>#W_=FdebN8SvXAvR;r_WHB8M(*Xm>YahwF(Ol^Dd
zbH1QQncCGxt_wTVV%w%Dkc5S{{YI8r@c*3rpc;q%0qBCSHkF+5s?~MV-}5A{n-~}w
zX+Ce~iw!JU&bs%5u~VF<8L_dvH2LT%FY8R@XiF3Iigrit%E7b?n&*FT__ENkdz6Q}WcG5V2jW;_CmDLy~
z6qlEm)7>4qFZmoYZQd_^*5CZ2FoafNlyna&BWpx$Gz~IsdeNBEaI`k>r~nXwZu7gl
z8-$EC)YQ~o=B`t3dACLua8fkkO+0^JJ#bzL5w%L}+YXS`=(2p17rKBDP@%bdp+QVO
zQvjOTGUTpV3jj
zQeyI&_;kN}cv6z(-Mn40f&Reode0vS7Kn}3djwpsjkK%twbdljo%nF1EU#&t&0t$A
z;A$ZmfR#?)-;TBNJNckh58IzTzeR6${*DARIL%Bo^pCw+%3p+yR#8*q0}cN)5Ft9N
z2K_Qf0}(d8?Bd9*0MV-teBC;8Xt1qV`iIr>gyyl6lSWW8=dn>Ay+9wddLRTl8vTr5
z4Ha|*UzhUSG$WbuXz&nucUU!8s;uKtC2On5SAe@|vQ5Z?=UzAPXRlPiVA;v7#e5mv
z^y=#B%~%&UW3Ap9jN+h~$#(l*^Ps|*a|r`8(@islm)ymYPiQkuoF?kJVQ^eEFeoI`
z0pt-n5#~amy04$#pkLGE&O5*cQdv7yy?+>1me)sW^mftQ#K$}QEy`(FqBN8XNlD2Q
z4>o!h@@4S!In7LXP=x?>%u13#Yec8Ne-)nm_BLU9oE0t~Nem4fQk5Klny;jynN(y7
zJU}b|+TE4C5th{SP`HH7q&|6vnSj(*EkrRaOVgB-rcuwi-jD$r6OqB0?%ZAVCkEflxW%Ycv8o@^(6eZ
z&V0|?u;|9%i`PwC=Bk98WHni4)jgl`Fe}{
zj>e9XrSl&AJP%E2NuF$%{_;S8DDeQ6dC-IgqfW5FqN10<&ZAm7I%lK|P_BYC>z-_#
z>Nts6z&;K7XoW?v>)gQv8-U$z%bW{uU3A|4y^2QnGft0Wyw!}`iVaMo@4NKgBFOG4
z=0bR=RMKOz$9vH$`YbGRb_`LDZUq%ABI`&LBslGh%OD_36SC6M((>}`Y8hJT)#|;)ha3Cd
zsQK9S%GPmle(QJU6IO-eqYhK^hdL`%Qcbi2GYoh;v3@Tkl`LfK{~@(@8De4xP&X?U
zV1}T$V^*#BGQYhc)|U_HHXNHl*_k0(2N7mh{hu!qXUWFKjmrKZ>CNVJ#po)w-WfO>
zJ83AH%BB`hL|T{{2I|kLZNF*hLo_L-3^oVar)$yx-l)
zpGs_4vLUp*ORZrCH5FWlrL)~`p84)RbBYejgo9gDML|KKaU?l~lg5Dp+S*$OapMk$
z?QYt@U0M5Q{F0hq%&i)%zhS>?^=502mwU^{Dx1SGi5VGubL59#U0Jqu`r92?Q@ta}
z2alsv1(_U6O;>JjyEQYcJyXR>hB2z!RT)X6gGs!QZ9m+b`jt+VnEbLbgL%0(e~qjt
zh6G%*;j1|JM0$GQ1U6R3a9VpwP!I}UC>eF|Y^i{))oinV_>nC}@MUQ9lN>f7%u<_1
zn|7VXOq=6*`|Q7eqq-jJFY-B{(z%(`REE%c(VoN#I`z`~`}uZF6OG~lec*{QFFV4V
ziGtxiVR8L>+xM^TTg$onD3l*r09iUIayHD2#-w*6N)DQNo6S$t$=nn37O!{^`Sj^F
zkQo-~>)U75#mcf(CpSN$UNtf*-j}!8qb31G52fUQQElSnTZu_Y8HuSO!=l7
zBf=#N8by-HNa{f~aG)%xtg4Yj#>J?8S}&C+D9nRb=9pFJGR9>dE}X+9+&xdFSaT
z52-|oGKaRK2NRjLF4l7D`PQl3y86b}E7qz|?q_rl-;K%+Isf7+PSZv~WfM!;u
zq@shaCxxPIZf>58jZp76(K9wy;uHwY=rC=dQb9KK>C>lnVyyx?@ax8EN*ujow<<+~m3eFC2n#@MngA_v*E?M>+|>^a|$kB&`rsW*))e-v)_r{-_a
z^M3@>8Ae_RhIketBm_&bwQGf>wwEl7MusQz>>FR$*DCPy%4M>?iT4_K#wIJ*P@ksTul
z2N=Zp<-~W0cNkuLt#tf$GfTV#>!L2J>BWV&UNzb1uw+p;5Ci+V&mh0}^Fy>`Adz09
zKCCnpXU1jJjtvKNPorzRgrcB_|Md|z*L4?Kq|un>5h5Sil2{>AINNU94>#qbu23bIMIME1876GRW(Z-(5@JpCf8G(2wbScg9Nfzx_l6c>R8qRHFxLNJogfS
zSSCw6XsTP!gJ(%u5D=2|3ZhOrJ9b4y#}%k#4|t+L?t%@b^|c+M?^wIjbUS(`CynG-
z2sbd8wCM^(SOrm^&hGAR(+NDEAZiV>d`@l$6rALG^S1+Q{pL&o{1Z37*RAB{g5?F@
z`@eeEnA}`0cuHMe{k{9vAlTcXm9wFqj&S4)26{}KG7his{x(!0tJhZKa}H(~o!ahi
zE)(A#b;n_(W*6}5!p+x?xYvav13(>vLOH3tVrju|9m&bb-I;?QY4og-T5e+6mqWPA
z=uPJa^Of$Nz-DW~pQY)Wtv~;TD$Ki&N@i%BzzKrP(dh~SdC%F??i0z3W`>gv3k~Ju
z&-`{w%lgahXC*a3_A?VrC3wRxAPymok{7lpP>%q?NR$8uznqz#X#aS)uL!L?5PII%
zY=V4RA1e$DGn~W%0s^Y(1c#_DoPB=~F$issv0KAC%#%`5+V644okIP*4wOS+FpZA(
zpUu3KUagpo#$Mjo7)YjG-7x-mMJAgn(;Ge?iSp>*#K(tD*&M<+npq^nzJw&%Y
zkV1)_8iGqeBPx`|h*(%y@WeL}GFG1yl`|B|KP#JF6n@YeJEsAIr9D01EsVzNRWky*
z)4HkY`w4PXQjSriPdZ{u!?Lonm<9=nGt+%DA8ES+9v2JN@$mBU)}R=ewR)=X9Vi<@
z9lZ`yVw8WL7g&QA3M8tjPTXPx#`ZbmyClYFbW%Q80;2pqm}S|QlPkr^OvJ=MjopiZ
z8hbC4{pkJs_nX1%X!OAn35g`N*gP^6f#MFf;^SrRZG==}5qo=UI|{GadHMtJdYLGa
z5k#Qn%b6U=gp@iPg{nTM*Lo9pbU%wz7B0e$6Zb#dTD*qvUR~gUG|ZX#hi!K*N5>`?
zV89!*`k>32L1ib1Li_t0cCSMv2#@#xW9XCyAC>;C6+<=k?d{54v{_Qu|DBM%GeQjq
zy*12eTK4_9WZ!^Y%C11*DsyJ4uTSCDw71ikcjjnTUoi@wDxB7eI)YmFFWo4XAF0
zzC=tlf_191X3**Uwn@6QpqOfIPvsZ?*kaPOYk|vlcpLjhJ<9|X#z8tXD&CTf7`&Cm
z(k^A(gKFI-F*7JZ^cHfd4JB3s`MY+};?ldKS~+q+OxnnUQC`CL!npq)lN=qNMNJV|UKSFYd1|5?4{(9w0G-4g#0r2RP
z>Fy}n#HsV3l5z&Mf^46*+w58&5XbW&`hhGX2lN~uP&0dan8DxwJtb$VhwA#QPfvW%
z2U)66paUZlJ9UykqIOzF-sh_bJ0nfkz?{_pg26d_f;T6Mdw9TgHTrSW3~8W&(L8xQ)1VL0X#(?rfi9JKA6+JCGuDLEB=g`m5yDak;zO$WXml(X}KPy`ydQ
z(}~YFSIW>e5U?xMH2EH_J*5xi;$>~<%A0(Oz8S=*kcVv_993#QSyh+Ms%F6gqlegy
z3^aoqkCrD&Gnz6XVCW(&SZKh=@{(LBb`T589^A(aMI`pK(oAt>qyiB>U@K)z#OLN&
zfEes99_b`p^@U?GmTy!9qhncw=;)g!?C%^zCbQ$!Ik91Nm`bjf}Mk
z<@mU`Y|p2Q>=|efg=FBtGu~4KwQItn2umb@+F$b!+tn-I%wX2ly`mb73X)%2^aCes?Y`wU%lyyH1e<=|C$
zjE5QAsGYN|(o@ahGtks&sGp74tX2|&$b3-qv6%K-fBP&R6fFeQGV7le^5=*W76B*P
zo6~DTwO(1>s46S*L$i=UcRGK4xq()~2>0q>2`El_=)r~95CKNXH9Or!2Tm~z#;_R<
zXis&inCEkPU&eYsatjxxx+6?Bs4?sPAWHHGh$iRsM4|RHol4{aTd}-{+azrps=WoC
zv={k!gtV(RgsR2vq`|UHDM|*$)&=O5dU<8BtLfMGvEPI+T~A
zrc*eMaUa4FX<0Sb-Y!qT25$#fDuLTNh(@`sX=ZxVP84Xpg+O@vaiJ~U8{3JbK{h?V
z$D3DYsYiqk9&DMO=qmxGdqPMo$;A?}h#1_!7c{!lWSE*0(Iya+|)aQC+Z9{vXY|
zdLQw$(sPWFLsnO>TRme*99P>Z?&&Jcpmc6Nt74Jf{QDaYKnNVQa>7+bDunAoVxX;?
z-$X<)2ghEJt!)Xq#cH~D@5fzhWXn^j8qFTf(m*9AdQKcnM$xIE3gW-&LQ#3{CKAQ`
zn*P4R(&H_e3LDI{SyyEEI?a{-PDGI#Bg~n+2mbLi6cy
zb;GJisT8R#g6mk{s~(geKeglNo71|EPAx(Sbf3+qdQX3|*YJ+6zf&?52zxet#M6B=
z>q^=7DNF%9l=?sYWx}DPEvLz!IN^eyncBSS$&aZu>&PmgD81^K8xP;4dIz>Mz=oJ*i;1IJt#kI(QcbzMs(EKeDj+v*KT4`pX)HI1p
zWxmOVHO)yg!=cjNmy^`k*x6N@zcVri?oqFn1d1W#`nRv3QPj6@*EYDEy{O&@)jvWx
zR?Sz!DSPvZJ6?R6T(og?7wxc;+bq|}Em?2hz8xOTnbADywz&*mXXN+q*0*on`q0#*
zea81-8OC=Q0SOlD@@in?3%YyA2BuI_?;;X$vZkg+pBWc$_}Z{;eX1!v1ZJ?0{K;$A
zUZ^GMhc0F3vv!CKdi$jmot}@@`=W+4Kq*;S=I7Tp1sIDG$dhaS?HWyiirS9{N%
zJ+!Hb(NXKW7f+q~TP?+y7veytPN7%6Zi0=&(J!8s8EP)peofE#6*K7<)^8Lt_BRyt
z8|kSF2c3(6B-YD*sQJD89>!zC%7{lmx{L>#gt`z`epzEEV*M>xeDa%Q12ioTlG-B=
zIgU6l2C&TT{zJ^1M(qUM2OonZOr&`8^YiH;AbY{38RZC%hU3tkpW-id)g**>RYkXp
zw_~f>e!0!w($~ib34xrAU0oSMThmjYRxwqc-Rv)Br+jDS)@qbb>6l2n(can|ryNW$
z1|MSK;pH0-o}$;!48Ok^AE6YjOb;1ta?-w@(JDQO+#g|3O0X!7Innx8XJ;oThuzqKPO+bmto+dqb^3=7r>q{P
zU+<~CwtVZu+wGWG*xk$hsVao^7k$~{^y^&IXREx6)O7rQ4`kT6_Hw5wlw-Q
zpfxuS&uJWnrFL!-i<+C8JNlD>@uwHB9gIwxo0|`sHvg%ks~ZIX|5BA_U~o|3&WbIU
zQ|g90!-Kf??|=D@D8_SX@)s{Yn>%-IeNZRLewEvn!&+)9o=9azvF;*em
z4Wk*}kYOcFpBQX@FZqKKQk+>gSgn7BCIwv^Hg`nZUb}g-MptT_;O02x^}5#3L6hu8
zjhCzWx4cb&L<({cU&N
zKAkgf!CJelmX^y6kPA5-r%{=@Ci-$zjvc!(ciud=}KK8klI6
zjL1Ol;()^{=u^D$jab88wp$|4a}M2OM(+>BYgwSQ`q~2?W>)%=`!}<6I)rue|=b>M46~@8J$+=T!@toU~_5U=4L&&%gwQ
zp=udaMJc_k>xoi|_VVI6ckzVqkISG?w(jM0=9Bg?W6x-aTPgni$lbeleGlllVPPu9
z8ML>wbRf`Ofi~tD5D<%R(FV*oQWloI-930nV)EO~M*G3yi=)g)g_F?!4<^l0YaBZ@
zaBPzE*7WqWErb#(4M(*FyhJ^-I&&%Dkm)ffYdn=FZJBYJwMhovYKd2#LhU=_=;)}k
zk%b+Z8`tcm*qwbZ=GUdg>4~ol*2H{2efRE9PEJlu1xf&FY5&)}!cL1Q40~5axI32R
zW1J=eXWYEJXHa!EBJSz){;=&(#N^~;qW##weui3H$83@T=lI!HSx4*G`i&d8XliI%
z0s%ReEaia1Rx$wI?&Bjp+|gBBZ}+a{;E40qvZc9P=y2uFE=6H3IM|2;O%)(Zw7$>T
zGJ&5%`D!?(;J4E28JhA(XIc#6^{cpOGCr}BAbA^`;-KFEPb
zIw;R3CGm2NzNpib0AF7&ntoIElu{7OLL|wgNt`BcXc)u1gwfd+Y52v&*f@?FiPa$<
z{f|+x3LA26Ofpb;>ivx^@5{9gFs5;6+mGq=?X-=e*58!0`T6-}=`HQ;yP~VQhM%Nc
zvZUxTfuiTStlK{Zcu>&|u3)*TW!WZ`S5zovTsO+i%ZpY|FWm@NDD)P0}9d64#+!i{Z6e^talJ{Be
z#Yp+2r}_>m8X7ZiHd5pSo~%BSmz#@{uQ_akMp@}RXI|X6sETashYuevx-VX`gg%sW
zEseTi!v=bYRijO~+{3`Yz_|HK*LC1lo$AD^6-$yjA|f^>n>59NdsVWsAw5IXh}xGf|aCDLL6sNhxz{
zrqyCflowaojUC&!9|H@cWjoy4ka5hw8YRjS_`|wEFJ2X^SyO*1`}YpkT>FTq
z#x>g9j#^PF`dgIlGP1cvgLdC*uQ;r2uT8GEB-~0g$dkb(_T1&dZq#}DV{8w!>F=q}
zo>_}WZ$z1V^~!H*&jRPDw~r|zqN4TpFSxcYc`-OJfM@nuvc2S9o8!yAbX_=3Q7y+Y
zYXyg>>KB27`jw|1Y!nzs@59ncw;waJkrFB{o>Z|@%G#CvKGS-j%Kw}Fv)!0^?V_b6
zyY5}o%KSPOW3SYiVXd?BN_fS&P<_d&@i>h>zMP?ShBSqupm=xP=GNBs_IAhDO)x4l
zIT9}At)R(+ZWTI+F|}Wy`2WiSk4iU-b#6>Gz4X+3Na+^pzjlR9mfdJIPA18sQyym)
zRhnI2uVGZ5dKMKij)$%|4
z`}^;?yL(sZ$G-SS(LA9TM@jEk@;T}cQBe)aJ1eRP7!s@AyDU~U{tZi9LPEl_`_oxy
z^#7_EoIPi+`O338PBS_&@u0T%uksZ^Q3_j_SkYMt;u;bWu{%K6{5`Yv=MYf}@)Iew
zofi5%wMlBphCVU@B1&ETfJF3=%uLY)DUvoP55?^jb2~_Xf9@`x-Zl9C!6v<9zlOrO
zKv#+~MUue1-_n3LZGlRM!E_Y}Fh{pIc=^NcGpc~j>
z38<*5K6&=+StVMH!?)K9$1#RqSp!j-K)Lz)NnOwtM?2T2W~0Ps*owh_cj8MFJ9J1D
z{a-Eq;_dG1c26C^C+O7himSiIHR9sSmoEvbuz2E^WVvBc
zV9$kO*>@pBg5uz3F+FJmc&cCQD*)|uIs|bSeIRHKA0?fH8pD@rvHGRKf621Gz5jCU
zgKk3pmuufGmT71MH7#7ekxJWm_<9WD2eDXxwE4WkD7m|6zI!j+m~bVO3=9bE8QD|6
zv#Wp1delRd87?j^DF|!jD9oOIe$j95tTX`2iPFx=2I*4T#xxZP!2Ws&sq*;z-+sG-
zBoRQLKga;SJ_d?KV|4Zi3M!M}OjWq-)*$|ei8#|5L-E+xet}|k1wbyyCyQ^H$7IL+
zLA^f?l>m1FV-xCEggvlpLetqzBTACe^ApQ0JIjxwIF3Ux<)lGLzp;Vy$3_aimuk^T
zuT3`M#u@}o>jcy^JG7ZJr$)yKBbq#LFmx<$Gi`&`0#CKnYfn)&LUE6%{wwD>QCeB)
z%icb`u>Rit`-<)yViqkQR^`5bua9Te#$P&_##kEcyk|}#HEXC`nzV&ptcYWE(22qj
z(UIo5k`Zs*AQB*f@jIwnv>vFXF^2wQ2<7I-Xy<4l7hsEA>Ttbz$sVi-G$$(cPk^5a
zw0|mXtJ9=uTAT-_0O(nojtaqYl<*Ncdh{sawA9Y2(WX(`(*QoYAN?Z*jcRuvJg5kw
zmqJP+%0446V|+_rZIU#&4@4vP`gTwwB|jk(K8s06^UptjK2Iwzk(l9$u8NA&%vdMV
zrad$6ja86rwd*sU*UE`I7kx6
zhsWZ9QC;%Yx@4n`P$=9u#G+83-C04v?ps7GN|TN1>L(Cai$Ww$9*s`9(2ExXz&V<&
zqV1p*WQ1=zH$k92<;nS9z#wUa}>tx)ZW-B_;zLTf2L`%3;}}>Wq+ISpbxf
zu={rO~G0$
z7QRk0V0xkCpr%l10LB&20oXQdh(rx2Fit7_a&7nF!|G&jzD!6M4wsn9XAR$3zA5bQ
zzZVfMv*M0qxNMLzusT*>=*}~~5h@HVVEl)WN6-=~L0NkssAOF4;j%QIo@km$f7_1I
zkoL9}doT)Qur@)@o!r?UX2Zu4{W5-0iqgY6L2li{BO;wB3&H_1AokV`Gmy_u$){;6
zj>7Ud#dT$|ItR8;{Qd(6Jbitmzzz27-uC*xua;A3@@O7tB_SOhR{(ZMrG}W~9kPFZY20X5Xh=xJNp}wD9o`q#&$3Q_
zZ9bZmj0~Tpe{{eu4G9!x7DNI9d1k0T0m1IOKLn*XvZ#Q8_E=FICcm4~+r*|z?jp{(kJkb%~y`z9e7)QsE7I1#9(vh*dI(TA{nJu5mDa~!8c
zM|5;_X!7ygFHSz#*lPUOmu7wT{Z~r=K-FNYZCCSgL{(pHP*76ByfJ?%mF6xs@+5B>
zI~t=tx^k|R!m7brQF)I!O2cIW%Aq0%n6;d;?5#hC`XCR9L^QkO$5c5}u`^DQS7Ys0
zzSNOM93`^;907<_8auz%Q2I>4bU|)>UC%h|Ax_%1ZQHcei`&}UrMaw4gN1n262GNq
z*$#KnTgnvDsKUa+DCvGHHXjNmtq6p+F2#huf3wLHL({wtkl5WJu0&N$GcGqAAMntd
z#^-*|f0yExuo&m-S(=LU?CEg>qKSdXRilkW5NlOe<7ancKE;hcQ6^2<`Z&Xp-iBys
zK6~&E0{WG^M?b}?r+87f2%EjT6qI}MQAOv_cO?wsvAovS)-)%Rl)47~1(^fh-0Q{A
z?3g0=;<_yR*Xgo@e(v74?`&1H3X=#oWzSCN>W4vJtje2@3M^7APJ@(4wZUOZgRtr8L?~BdVr|A%5)ZE7i1ac7&b%9%GYc
z+6=DUvL%*N+N;A;MXL;+6Nz&bT#S73p$n$-BPs?m;&k5O%_~B~!`W-Ew{jWYdHY2m
z@%ofnrgc2ilzaOT2T0!s9mXv{Yp+aCj)`3R>?o3GWaS!_!
z`I?*#`>m7?HMT0vTn`}k7(1UvDT-$0Q^|$2a=f4_$H@uJgp4Oz=0fR?AIsTzJ7{Vm
zNiP%j596&0{elge*Hfl7hz6Bya_JNbfS2v0#LSqiyAk0p=g$XIJ7L5|mX620N59xk
zBeek`nrA>jTmalqAqH9t#UuBKh^WyMbqd#6ZK897nb4G@l}t@dJvBE*{SG|LJ%8as
zZqU>w$B9^SWhf4SEHpZ_pJ%Y~r7_W^VANdCe`?v^OVLqDwdJHzub|ri3><6~IeYeO
zuX4P@#0c*Qrvv>lAP}q%Y&YB-B|i%+856iHUNl$Kb-@f#s!wr
zYgVsrHa33=hUY$o4&hO(J2-yhSiLA0r*k&h)lgXoCD6Hi`ATnn+LA?!sh?cH8<2eh1vY@cgqoR|?YPre|Vc~OhqIdQ*kUqYfOOa2fLrE+xACvDtu6fz+iUeVd8l_+aY
zJ0>Y<*-^S}3NBk&w!_3)cJ}b#;6K1Kpg*l!7lz7BfaJoJ9B3xbMc@DJ=2i`&!^!qr
zEY1&w8k-AR*ApBj2~%-w>KVf`CnpC&IuAC}t5-)X0gLE~|4P2Syxs*JUJcT
zY6$UFG3O58p8}Rn#b5IlQrSc^{a{oSnay53MJ^wUus$cH#xQg`oo-N96*utU?%gtI
zlZlYrmTwi;09W_G8DG3~NdRp*Rx?8xy3>-SOBFD|S#GPgZe@TcbECeX){$j`#Wajh
zPU%3FG)jfhSS5R69|rx4R)4qeO|0~*Gt*O2r%uToIpU0Qi2z^Uy<>+Y>hW25c{=$G
z82bGA^OaP2b@qXRH~{*Sr(^q(?q>h}8p_|F1>hoV%?*eTz9GJk&a|NN={<8HV4bAEhe
z0d~aN-)6J8#)3NH33G^*gc+iX1J*$NF{5ng;^g?fb
z1Efp|x_dMF{eNjrjmc^cyqN+_p++U70}jMXgbW
ziy;FeObH8|tJ`~YQAj+zSm0NlW}d-o{_
zN~rJA4_UCViUY;e=ggU73x&h;$&=kQ2=8a(+f!}1Alu47*r(BG>9}Lr5}M2v+&lv9
z){_d&>csPt?#dPxiG&A&6tk<3Lf0e^nMi0jN1~s=i-Xj*bc+={fYo+ND>v-_lk{Nt
z>7rf3)$>GzgjBShrjkf=a(BQctAq(MOH%LLiH5Kvb>@s`gE9Yg<9nck)1mM{s$$hu
z$gy2r70k?D+PP^E72;g1^61KW_so)f7cE~t40+xRO=Y;JPUXv&FZvDXNw_uT4`>8%
zRX;$rflbBH-qO~lkAWk418G9g8VGFT2+|&Jav;_W&UzTie_9EvHYr-rq*0^eJJKsB
zAlT4Df}Ez$VO45oTpwPa5;OXW{nwU}iyRmjXt59>GH-mz-eoj8YCH5ct`=L|+#!Lb
zckp_*Dq6}_C=m1zB1L{mW{V3f*d^mH2S`1HpkoJ;EC{cJ6Nw1D@hE&(Wyre+4XSwp
zV8iCQZ)M{Cq$m(k+aYO4#Lr3P#&b~zRS7}^V5$T#6ELnfJ59o(B
zyIp)+^O68jV&ntE5@wlU)mIJjRRv&yD=aWrdLLn78VFDs5r%Q5U};xa)v@EaJt+e6
z9=by1a~X7YDAbYoXWM*tSA9F-^LTlAfhYIUEl#Zt->UC@)$jd_|5tGhmimyNUk0g;
z0p$e#e`l2BhvrPArsyHN0}SabK}fBN2HcKoz~NmE$X5ZdZL;0`)31Bv=M7@nYbJVSw~5GN%xb
z)OU+I;@#G+TJ==GpgL707bFO}s}_BUa=Dj4uq=&s76Lwu+pmoyNWG{4;F`L(E@5aU
z^@2!aGPOjKuT6IWy^J^<($UVW4kGrnx1bF-@sZHqk
z;uZZHTV{H#aw_0Ydj77!sTWSB-uSO&O
z_1dAezyJQn+r5feww7n0R3Mt`g$1g(?JMzIv9O8t2akvvdERpvP9vl;hoQ4~+c8L*
z=n>?v%ihWXPh=z`6M#l>3IY{?AcnJYHj;6BZU@X!X}TA$dKg5fPg6Dql@U)-^rA3d
zfD%ED-@hyz6~^|}w(q}9jf4=176F1@jSs~;X!vO_aZ7Z@CowEUF$_dp_*fmDdYm@@
zsR?vK$T$2r{b*%gQipMbejAa
z{S5NKYQC@RJ-*W70~YkiEqR>>HG3Sy
zySokDlQ+^anEwljV=9`$bYfT}{i`bVS>d?K-^2_h@agvbo+V8rqIqnN7MvVT)Os4{
z$R-W}{l}A2Q%j99Q204%z*GaOp_<_`TWI9~gaF{txR2x^b+oIM8`{I&HM^wfCuiEw
zk)o{n8b$0zViqi09}F(c4dD_}6HlwcObHq;Dj?C^8n5e|nN=HvQJ`TA-=1q~LUdd>
zKhSb)x(f>m=q)xTn!Mz*KUA*Zvn{4f(5H}-HGiqfCG@fglEt&*uF%;mz(Z`hO(20I
zUegmlg_z_+#c%WGnvjSDO)IAmlB+b
zQnRlevVi6Z0jC22N;zmA7R~P#LlX8fm?YXBeF&4cu2zeoC5B&ik?;`IJPSlCZNz2}
zbQt~Awj^Yeka2f>37c6)?bX!rzV~@~>~-=X*o*WK7(>?G(%9f=nE1$sHMDYku1eb~
z4KI`j@v~R1L;#(4GJiyWJtd{CK71)YSEK@^bpkQ#|A}EMpNxXn~+L{<8a$C
z?Z#_F_t+1gICbh&{6sT^|`KQTC`7p7BU4`5b1`OaI_T>X@g!od8
zaI4bpKP>0RHNF{+{(|N312W&w`&}c;M`ixOer9
zH%a@&goIK)T|zuz>C{+3G7kWuOnAa4ZHT!e>lv9%+};LR3q9}tDy^Qn6C*vCn_i`l
zjj40rBCMu4Xo)CH#z~VCCr-qFIS=N@na^@<<~oKINbN+ar939cY
zeCFde8gl-3;1l4}Mb84bpaZq9(8$6)2w08+`V_Z+`5&j9n~J&H}q1c
z5JVy~JNR2cx+bq=X0b^bJC_zhXoM69`kldGRsi8v!o3__x|wm?;CO#h=BvFhfIvN!
z!4qIBbj3U2X<8G9+=-}EKgaegc83=z5KvfLdf3a|C1Me$|FK99?%TI79c#@JW*|9D
zA0MCIy#fagDB$LeGL)h?TrdlF{ie3DQpcNQp6q@4?yJU>Co|^U*WURWWpob@P8#ka
zcSiHOb1dsGBH|Ma1r-Y_Lg0iywl}GI4*^$k!Bm>0%d)f3AQNGtj7m@3Gau!_~$?=3S?jhNw{k
zzbALCdrAbjWJVp|<8>ELo;Z;%nMpj6K@S@%LJ7bjiJgei-35amoesw(5rUZe7
zxU+EW#*JP5V%h7Uqv_YD#v^x%^iCCg?$PXl`kMvEeq|S>*x1-Y5x~v?L{i3zWm~^K
z0umk0f=2v2fPtm43$B}HDaIvM`NuhaM3(&T8#ixC$L3YJyscXDb{Ra4m)H9mV-Z%|
zjnEM?1B7QLS@&P;L4S}70JpDAGY<#m3js>bEIkCHyW;OvI|x}i|H}Cy!y5?^$nHC@)BL5+8ceU)<@!qQbIQB#7@AC3kU_NAmfI`9Qh}A(-0lALuj9f@p
z^%A?&2Il*=qAb6@Hf}a05O*^Z5zaU
zmo`n`ZkFyF8Yn(cG}w8!-J`u?leXw{(V#$UaU1chFUS<-iapQ%thQ3oxyy_luzdAX
zIdW#zqZgBWFeo;YH4T`@ZacQMz>V#fvSqA~;15ZMlggT!dI%|j-H4cwtqJJinJovU2P!)``Q~3wA;t;={h#zX4CIx
z6KSt>_2crl*Jc_o#w$kF$|YrU^8tq7pp>{H6o)PQh!d$a=+!!rPT3k2HTsVEgk3h<
zcTJ$|+T2X*c2}D(V}G74a-9veMLDuZ56tXJKc|#C0jLBmkMenmQlH6^wS~qhh%py3
zb*wE9SjEg9=3bC@hg9ryuKp@3694PBw{3UrBhj?xu_3qi1jG~dDiM=Dew;>!wh^sp
zG#~M}XGjWYds8UiXFC34QSm<>(EmiN{O6PZyE?Dnm{7s5EWrOaf%u=Jw=)i0kHHGBB&u6BJaA6cL=wx=9iQ(PG5p^Z2;DJ`~5h0>M;JX
zpxZG+XdbgX+uy4D(>^FA?1znM6F|A
z8{r69;KQ6QHs;SaytX6lg6$C#B#nq&3Q6KQbd3W2q=LQ6Zr{1XLe>$t@{Hp{u;A>6
z%IDQ)*`*+&69cvv0ciyHcRWTgL^;+M^zb?EOQMy7%Zq&!!|gn{*^xhoS>dvX
zD?$|;`E-e6B1Sp-@Ii6Nsgaka27_iEQ(BG0g-am8N4NrA7Jn?tM`jg!{)iX^@=w
z6&f1-VK3X**l3MnS?m@So%GFf5$5sQ)Yg88?Vb%jI8jl&t^P;&-E3de&pycDDz+(e
z(p2+A{yB52N_OF5%4a*FKjGFHPEAh2V9DZ8KnRUiPGWRh`j7$JV>$!2%}GOO!|G`d
z2KB#==ku9Dzt>~o-o@ecK72$)DRL1~u}$n!CWdBTp^6S!E>>DS*!=&r_uWBJ-}~B|
zcoLJN(U=G*XgC^>C@mt0AVp(cQBG%1p=G;5)%zI|ud1vm-y>n*#!-3u9x8L%q&*yo{&Di%xf4F{CYS@3H
zDnZ8KoXHC|3|}uP3F7jG98DyK_n2FFz0258^U<$U+eX7L>Z2=4NXr^KXK{gm{Zt~KNh5B
zvRN#3Ozs2#SA_83G1~3*Nd{7v^z4nczi8uGYF-+mz70m_2oZ|&;f6vra^(D`fwAFE
zTbgncL*+#lzk1yI(pKt^9VTP(uPt7V8nL{_WTO5hZ2#_jkQLU9o62LBzK6Jgg??Cf3+nh_SaHueBjNzg0YhztO~%x&GcoIdptnVREE5IsSxd05>+)${Ef7PCgKY5-r_GV*%6!LRb^Ezx8Nt
z;G>uu#vOuHsA_;gX3^XzI1ki;03%%D6jigs_^@Ks*5~V{zRfTG*v*F3;?$#uO4&Eu
zgm{E1Jp2Z5E6J!f6rk-=6yIgBeuxFs@QDct^e-08YGG~zQ%h4AD$jAOlBU$3~L{_S^4sx47*PaJjIxZs;jWgNiMsO!~q#2}RT8Es~Ow-I+tKud&}K
zZ}dOO?9zC{po{lvo|Cz?@UOHY(RIyV$p_>A-Ut6?zNw?=qPa=a^nxI-3o*e@btU+#
zKi#CEAwL|I?CYXlzq4v^)j>y#YX@B&TON$CD)(2_-H6zCbuCA#UTO4`pQUyl7>&4k
z`jyj~7615yv1xi@p_9)qgDY1!HdZqDO`|WqADFUsYjoo2dKFI>($@?A>TM_Si|^jl
z_5S^XH(-Q+uZI{a@IT-3}3fWEk*`HzZkV&O6pN)YsRa^7*ttt|w`I&&@8ao(3&d
z{97%Y%&7KFsrKzVW8D`Uxi4wgT!~_CXvXB|7m>oa_P;SC*9O~!of_`Yg=ZNabTl?;
zYW}Eqr(1gFZYRxa1}vNC{&e2>v621tPGtkBO(!rmTj<_uYHIzm
z=df9Rmf4rvn&`tS6ZG|g51|ihD9o0r{h^@0=4Q4=kWE3i{`FJeRTr4nD})?LXz(r_
zqYs`+Hw^H(mtlM($!I;8T`V{^i;MMWMoA&x`DA}~nv1jZUi5;s3s*8`WZ!wkx@o22
z1OP!?`%kH+-Aj9|$DHb#V&JCG(ufzw7Ajang^
zCRxP9Pi*)gc`CoMFKJ1$>DfGScyY`(_pA460T?hPzQQX)QAG}k&k@jy==f)P_voW0
zf8biHYt3fyVky;_UR|@Le_&t~gkW1mEUi7V0jG$I6$7-N6N{5it4HKt>K6ayZNsKl
z8B@eri)wE+9!>P{^Go{yT0F9WTUQb^9}7spdhR|!SJ+k~Gc&U%c`ey*@OZ*PiFLun
zAg1BSp;6+Y#z(-@41OAp99k(G+%1Qi#b-HK)c*Hn+aiS`B06Fcw@zZe8iu~SIr0}v
zgay2Dcky`iFFzhTf9AtK(aZf=4mENn9w1GHD3|1!;NOe;DzCxD<1Rp%qfqxViPJ=>
ze5NUA)+}V`b{7w{Lviijsg(P=RA}{`srL1*Ho(6!R&g5JCY5cYZDXd}1I+M1mWQRe
z_k)Boq)^(0A2O8e&wr38Q)X<#uF{CHcI29vGC3G0Df-zX*Gz`c$%sL9O?m>Jewy%*
zII10+hW0CtCN~mze{kI?X0^eQIB!FkQT&yGpGM!<=eViCGuC4kgTN9+dbCzl)GP>=
zH(&E^FG~<>zkRq%zOSQ5w8N&+BiBhLVo#CEj5!RvaQ*P~UNZCr<0V@Q-&2$wYrY~j
z$U6V|pYl4R1V(L^#M%!%R*gKxe3MzWkchLGS&bHM5?Q=)*WWYI7%m_C$So82*wRPm(?c2k73B3
zDLG^K3iL9kSs}gs6{4*8W`^}cY$9CE*79>FuMP|hq>XFU&)0kB
z*kqkYdB~{%4Gj&h)C{3!O(K0~UY3Q+(bzXW{Ov)K_!ZBfP~M|AA&@Ia^E{@K*gT0}
z^%WkB6y%Qo=VhQ%?S}#D{pj$H5UmbQ-$7iCaHZbR8J<^wB9m3eRM425GCk{=rrRpM
zL3i#ca)lz6ljijzVnZVpsRmy#`c78SjM#<7Uq>>X!+
zxo>Ljz^yQ-?!X`z9%x})+uFp#IK$a3u4(e-FRE6kYJHn=1E2=;fU$;fr87*L;omCQ
zwT&pUd@mPDWoPF!f*iTplN9Z66OP{iZJ9bGiLr|y<9?PyAR^Pg;`SHbW1YMWl&_$I#WwRl@c
zUH-Q5wQbG+>K_!G_E``-ZenH@3Cx576UShyK;xJDK-)y3qo;5<0fAdnQ`*7a>yVh-
zFlMe2iQhA}xp6Dv|G4v&00jK(N4uotnZ;u~FCv)heJ1%%XldB$m^a*Ip!{_NGkoF4x#tAE{Cg+j&;5@$)`
z2i+<|j{Ds|FPJ;Ud27>g!uRRHybP1$-@8M$0>qxR<;w3$1M<36wfOZ3jy?ElNi3*Q
z{8Pk;H9Di9;l)e~k>24G@U8!ul&ul#jWYgaHe&7q*F@ZoCPCU2sQ+w&KqqnSuFk88
zXn6??QJ$|1Pb*^liK^lyJew2f($
zJI4kDM}bN7al~MoTIt63b8~k7VkW-MCin2r)xwH^i{oZ0kwg-zj;!0-e(K8lBWgZ_
zPe^eULo`*Sc)57Rm&YzU;GD66Kyc#aHdX+kQjoSzJxj4Q6yy^#GLif>XV{ES1l%A!cyIBC(*_T>0g(ZLY4a961
z1{hS#{00}H>Qyr9LzKcK(n|E<;qe`Gmcc|eEP~^%+M_pe8N9*D#Qo3u^*t$j^v1Oy
zFvTui>0}T2uIG11q2WZxbO2beM}Aqb^ckkz*<`=n@4YM~_U8AOewMDVRf1Ft#2kuD
z7MxNK1g2caHd`DqSQG;WM}QNf^k@4H_F)H6xW2Rskdwa7lAv%0OSY^_%I1h%p23bP
zFCaF?6{rj>#&xkz|1^)yh8f9|aG6d^NrrU=%w5|kOGU+7rEYyF!
z-Jz(_O6JDy&etp^O0LM;90I=h#;WA#TSJ0^;o
z>|0=2xuoL?PM*HCvO9r$Y>&m%5{W4&K1L-uQwPgENu>3cp!s&7WenA{Zh#A`;a3$O
z6RqeysKyb?s|ub!9g~J!-%vZ-V%#ACbUjA!)s1iEt9Q6xE~~2x^a6|JPb)T_xa@-1
zwE{L=4J?%vs(R^dq?BO=E?XuC0kBGLZZ5B5x0_qaBbd5T5Cf`VP%UkLA$~`COvHf~
z@|^>(=#sjbjIgCK=~}nxVxr|dq7sR4I<=Y*g)xhVvtHlr4hb?T&TZP=H4d+zOKN&i
zU}|;fAogNn;MJdQt|2Z^4VTV3y&XQ_SGDpLap^FpzF$j(qA)JmK(s1v^bf?$I18+;
z%4$QnNmXcQ#egaho2J6VK&NC>XN!~Fp1~U$Le06KqGgsA!c3MQoe+-re&6UaJmt}s
zZF{3p&&H-I0^_xw{>mk-?yKuOFcWSw2{)obKLT>t(xnLjZ3VG!
z)5Gb2ZHeBcI6$0(B80yqfL2<~Ri7?C5{U873YhzloGwg;Jg>EL@hqYF74e6Id36Ng
zs!ax;uL?HBE3m%SpMlw(J`}qsl|SWFJ~BjcHvMEKNi`q^k1PZgG~bGiNZRJlCCEXiglgAevb8`>FIGR4j_U7_M<|3Y
zE@Sh7D&=|XqnNB*h_fXk;SLetx89fCjuWe-nRr!k+C%o+M!4O`+>O|`h8r{zo^XXI
z2P$&4!LFLxr3s|z2;DaE
zPPo}lTZnuGueA;QHv5$7ML13(|GJaqu7OE`6XNBCv`j@#V@KIhzg-Pp1_`s$O_q&L
z$K3i01>;=do3m2wu-MsjAM8sNX!I;*vcEnUCO3(m-5Z?*zwyB+qm(P?2iiwk`;=pH
zHwvsz3fPBKC4EvBc>0a6A%n5PlDTucv6yHcH((>Y4RTJ3l|jhvuTXxDzeF`1{Y27K
z+l1T?-U*eqXP~inN0mPufyM2N4A09VSrAnduP1t0e&g^0`wIOgp2yV$JZEb`Nq!UH
zl9YuWsNRlLW)vjH{{Sx3FI(4Ld*o;;Nu+V!vzzq9>Fz`N26}!9>Y<>vj4Am_&q0L9
zYZH_+W-!{4vER}zR3pO0(jz4a+7@eW$FlaBT6;I(xn2!6Z`!lk+nBB_8D6kE>~v_x
zwzm}W46b)a5Ceq}y!_#Ez97vd4^7Sy0gxk+1K-1rP2yBVTbI1_z4MxVO}VKQ_a@vc
za5Sb5li?x@UC^Clsy(q1)FPLqU2<}2e#ZJDDY(nJw+NBSLn00aqpJVw-()>s-qXwR#uZ9BS+0)>rdX`dc3SHLu)EMA~lbd1sLd;j
zho-b~aeT=gJk8gaH+FE|ldU5`A-Qt2Go_+V!*@XQ55%phWyC10z-+KxL5iOs#Jkb&
zw`d^QF2xZ9xetk483d=Bqb87#;#CO}iWd<`t4dj)I?S<0fVNM}tQ&=MpO)VcVKH@I
zs`$`YWMAo@4A3YYifW9W-n-1h`V)=(6R%M*iAI*VMj`g=uQs=R{hQpPjEh77s|Bya
zCVvd|5>Fz!OX_g6%m^i-p$F0_<7;ypb#@>Q$(Jj~q+X9v2V1onOBx@#y6B%vs?Ps@%A>x`sU%OwEF!5`>g|g9mj*i~sRPYuTC#Tl
z0c;Hgd2pcX$=#Du4(SXa2X-I1o>}^Gw9$%PWjfTOKi8$7YB&tQE@xL6gys1)M5`)S
z-h=t_RCJEMj6;_%+}EK0qsHXV!yK3x`wAyAZrE5~@W74|t2^5E7X4%9nQR&0PhOVXfZ8
zZ;fni6DaEdpGpNqGYG~sF%o~Ocs!RcD$}1kDPM0bEo6DPL+HZfwq|2B2HxxJZQSD5
z0DZid(sT3?dx%UxX|#3+NN>im%#y85uVY)0s6-ceslWdX`B15U9#lOXRNlnKi1g$s
z-gq;gSHpEk8GayPEsiu2DAEAy4Dn7^2p>EznV)Nesbq3UP97CB7HPA}%|DOIeG&5@
zvUEdQx{i5y`z7%qH19EfOdBaDNp+vh|C*a=y7|emZyh6D(nm}EJcqI~Kc9Hi(&KF)8N{@z8=qdm
zd;Hm0YjO(?pdKB-m{!ljW7p;wiK8DTUXuWZBmoSDn@N*(6rNfHAPOocZQ+!a5f64C
zBuX6-#q;j9`)ho
zUd-J|!ng82HG|NbB3n`dLs07_(rSz?4N`I){Pk!REEY$Os#TmueVMH%WOwQCp^bop
zVENomou54A!L&?J96H>&OB@YVJ1urT`aX65;kTn$ZU8P!Ot~-Ti`<{1^t#`kGlQzD
zo0^_wR$_iR93cyOrpjy?xIgng-lHvZj?1*49*t&$a$cTEbo&_6)uZH!+?P>G&fZI_
zO${3YnH><2Q$q?ZSB{K6*SLvk>DD(tTQYCv?br1>R(ASHS!%UyUBJ!n^HhF_ww&{T
zSZ@lSZ~JVQMT2_rmz&HB)?993dC<5YUA4V#7e012?D~>{YO_H=K!E7{cLvgdpHEJ(
zpO-5nxQ|htaS)rfPiUJ(xGvvI3$8
z;kCD|RC>UWz1L_q=@`!h)lT1)edP5hzQ%6KPCncdan}=Vtt{L{5m_MZcyEDKM*S!W
z>)afxDGhs4mZig&2^t4pf)y@GE7Hj*A`iK9RwWd+yyZr5NXF8!g^aj^jE@Yi0hvK{
z7|M(7!6(b*OGF4oGYEw$)a?MZz*)Tw*3nmAeI0}HrI97;Q_(x(HL=X=l4iLB>
z7;^PDuT%|u8A3X++|QPKdwYweWr==1x4~2hg^95W|sgz;7!Ne~obmgX7BOy=V
zS!tDfNG}38yBcD*%@cFSA5dLD7E)474rQv`_@9+s43vpocM>ui)+dY`w+=*xk*)%eD+)#=%Cf7q
z6+2&-YO+w@GqE23dB>8Jd)v1%-(RxoD(UBvBW{8tTPI9_r>rWz>)^tJ6u8##y-~`z
zM9?;JQ7eIA;~q;?#syC$^%55BTMsaPRj@~vQ8rk80~G~|ZY%_)#`^_(=@
zz-57Zx0_-Yu(p(lD4)s}E?KReQ#YD<82*Ml0~rL8l*|5Y$<}97Rfx$5rF@p^MDW`M
z4~r>IN4q1xy;Mzh%h$&^BnWYUv+C<#-Z3b84!PneghSf&9UAx#y>cGy)?u(iXL$Y`BV`=YqwhjA{JY~(nm9aR|shrDyV@U*mt4+TW
zp?=FkgLEn&_*_7dB!+V;(I4Uh>*Ro_>i|+lEP2|xfmQ6vjm<8%<8U1FpV2TB*-ikA
z#9D^oQsK&J#O_Zeb9|*}45>Nd1!9VQMf
z9LZ%|c1aE7jI2&Q+C|dwibcy?SsoO?H=_t5)`LVAdJv&}7GCxYArmHx16qde;xa~2
zGD0mvFz#6PZkgFWh&H+C1iPM1-@WaE{L8xb+n4_T;gW(y736QkN-U_0QHDqo
zX(W@--`}qWKS$XjI5S9?CAxh#DlXK{A}w($=u-QY6n(^-2Wy@>fbGlA8UmJ7fl0Q+
zU!-VTPHOjbSCHU8gq9~4lW3dGgZ|7r5W6L_IjR)URu2AwMk{!kSsDOMbLxkcxC7OCF*l9-*+JnhgfEXP@h1c=!5RuwXJ
zG1x>b=?2}=25)@pM$$xKavtd4DuUH&M&?B-S*ZhQg=geSYTDX=He<2UbhK{>Lis7anR*L#)AzxgbbjR
zAlxVR>-!%H;3~2!Hl)#3ar-=m-qH1JyX)V7Bw=6Hu@zy!3u(GcQzsEs5^bnAPOzX8
zXxuJd(mE_@?+BcBy#22)R*=|Zg9BO(MX}zE=2f0u@MuD$3dRX8LCZ6RfJAh$(A#$vjJ$*~L5TGw8nG5<1Y;|$O7&qL$k2{ZQDLZ}8L*0HCs
zxBP-i)bu(Arxs1zr{biKpmD19qTUs`D3lyYn{!>)4ux`(bwhiKYCc1Gp!5&UBbE$n
z3*0lXFkF$N4YaiKfwr2nPY3lZ^d+QBcvXJYTMA>9)P05eP$=TgQT6N7%
zsLYbdX0oV}5a-=kPQt{L#1UMoa0q59QTM~dcY;-*5aP=%(Hwu*(-58Dn79c@a2e0F
zV(?XRUVTZ!ORTF&yD9P+i?b^Xc!Jsj#E;_oc2PdY@uSJrHv{^R4S_jFgk^%~1p{g*
zj^1yD00
z-Q9%ppvpaXpB!;s`IV%;L%N5rhC54|uk9cc5Dk;pTZf{=WgHX*rVVbFWaKO`+Kq$v
z!0D+20Kj#jXvAoiB$--D=|+i$7cG^?I9;u|
z_IPIB;W%X>#SJ+k@890Eo1L?
z%37E#6f3CR&HY)2NnQ*kQ4&gLay~WOvWDuZg?XzPjAQ0kDwIF^>H|jYdAfn9zD`1y
z{4#jY^^wj{&51=NHAq(Z}jt`xwI#
zG2qBE$=itfXX-!+iowmUX_y(oI(Q~EvAZ^7QvM38T0wsSDNq@Ld14T}(%dfVC*&FF
zc$zeMS
zOhtl@wC2Y>Ff|hBi8P$L`qb2{%lGPpRC_`>KqFX|!kfk$a_`QOqX9cj54u#
zTeE%1%%9{O1WYWy^v#FFALcLh;w~YvQ7(@Hf6DPNv)8uT{6s${SHA436Y~i=0~r)G3tT
zDYR3^rOmy28ZDlv$oL3zl9rvTW7LUr$f0YT5Yp_VQgTA1?Xm|NEo0
ze>_~Xc;lNLt8%skJ~&;te}~(ftEvnRi`M<_WUs>|@#MA3%8lx)_N;mFY^
z5P#=E$K+2IzAWKsO;&xW%~q2t^x5G&URQ-E*){XG7pXbZr9A%~#pW4h2l>wakENya
z|MJ@&d-6;a|CNi5&i}*dmHvy!H~UXe){(zOeqDTn{7rfAi^vl4_l3KE_Yy~|(kYgD
zqdm1F?0>EkIeGG=r>7^K%ErcaQ(HU2=(LEV?aXA5LexH*f}-N5x;lmS2lne-#h7NM
z#w6(piHSk@D&D+^!OcdvzP>*GdLErm?w!Mx@$X+o*caK)?X`Ch3RZ~H`26}$8l9)f
z{3K;v=21`1?$x&WfS~_9Nu99&XKRlN^Ra;lbV!zye-6N)Bzq9c62L?(8d~!ByGRnVf>cX9W9=ypxiRF_2A_vih8L`8w9?Kw3Ybz`Iy!n
z*tGB5$G-G_U$LOLrjq%o>JXpQp)@u%`9?&ivFPgRYMabP%Eucv7~}@YMwr-+j<-0s
z59BhI)WoV8Rmp1xy?Ajo(`N-4pVI2#FiM(ig!;hO_Z9>1w;EN-$f-AFSZG&DDk>^U
z@b@NEXeI74t+~qk{q>Sh6%{TML+$Nv*Kia*lN9o}`6;-yBfwdOqkVoQ4WG8rTGugD
zA}qXu(fU@_z+?SydCY!F-L|_eJ6;re@o+Fsd=xe8c;Sdi4VDVK{{8ctiDI*?XJSG0
zdcAbEhg&)R)s#bY2&Zp!mrnRoFu1o3H
z(ieDMAG_svO0zI&mYZ5yV)TUM^UYr4H0x{7t3S%a!%TBnw==1@J*vb1&ief0D;O$TV{79zHD{+M8hzK~m3xdX
zS+V|H+^|RY<=x9evoVuJJk0{MIPCX>N-3{M1=z83XZ-suid33{fL1_`o_4M-Mw3!?xa}gl=uU7Kn
z4)#YodDzdNKc70)mu^(8Y-Yk9b{H4+Hq1XjqqjKmv%89^XL>JeqOCGoi3(9or(NQj
zZKs&z`Szx&J$tQQiJfEq8MQ0yQiulDnNRNQc&>2UyG@ckam|vpgU@&e-fc=>ORpZy
z@a@pMx#4nEoYyZ|10QyB@42gTz4rV{FE20M6Du=6;-69BYWCeNeRwc^)m3fnZWbO}
z$Mrdm8)D2>QKtPqSZ=+b->AE79J`5APSwUlFRe3J02@~R)s^F>jV9GS$<4O4>h8*E
zz4||wjy4{;BkRN38mR?y
zKeLF-CdMj?q3XSknFFw$Sxlp-Y~
z-PIf@15N58&L}bdO-#dlAMQ52jj!QqIidfVx5v|QIrj~3@qHh?eXHe?lB?B^))Wj1P+mK{-**=y
zN1^;v(Bwb9EdD>;f2Y(k*ZAw#^xW>ROuw5Z|2>McTN#^&LKzm*_=l16&u4uZ+q8^A
z(TU_v|7ZhWR7|l+!#~Al)
zup2+QW5*6z&+YRZ@l|Xmr?!ajaOp`89(@&|!KcpON>6S8{yiTgmG}A0ogtroYi1C<
zts=-7FSEIvm{+$sE||J<}r}#w?fX6!lZgVult*rqm46UBU&rvREtLI^|Pz0$-`1Q
zSSL?Wl>ZOZPwn0!qH0>JE}wGi>b~=y6|HOA+uGU|;9^zv4Q*|4e7VmhCM89iWY1qn
zKT#-l`7pusR8-$E*$CyNTFdUJXH<^N;c{@XiFUt|;m%L-B|=lz-~IKgauOK>`gO3=
z)UhTj0ufuuOJo&wUBOf|`!mOi0rk`JyU%$XVd81Hb<#aoX#C9vjjoC?Z5g|p-AS+V
z9CYWo?hCmi?5q*h&&`G9pBi*32!41!mG|J0II1oI#)2CntJ2srSG}IBWM16iB&_r=
zWFSxVX>j-Ftf>z|v|_qCgy=*ga&jqrXWfE7s1YqIM1Ik}#fs;Cot
zntr{nAvG2F)F_w1?Ay0zlEvAx-PszY{>PO^4_|xt7dsEnIXYW%!x6$jm4wwNe2t@~
z4CH65>f|hBn=C(MXg8HaTc|WCd`MsTu47z2Mm8cSGc&Wevb27}Zn;Q*IeA2Np0;A2
zdR;H45f4W&iw`q%pi^S>UAJB@iqJ{MV3WaB=^WZ~(&1Zy>Z~C^yb=DT4L4gfJJsK;
z&M3-YBJIT270T{hJc^AF4XZVt(9YudH3-B^D9@Z-S*^qr$TAtOmMuK#Url9
z-@lXP_(@XOr#HD-2-HnJgpdDiC)RlMCE@vHwez;nuOd8zlpOirNy+0$Um+VyI@v?Y
zj;q}jP$KBY>_ziry3~E-K826gPT%rx5tTjzKg@1?wvSnpg{$sXHU*a@>yP~|y3635
z;m%*!yNP^2@4>DSjGn*Pm6Mg4i#rTjJ_Ln@9WZOQG3&!Cii3`6l=%8wlHg^c%}WJR
zVZ$jU)hbqO54W)8|Mlx$*>u|q`$bFQKz7<|
zpX@m~I6IbY$F=~?uH=+4bMHAvpPiYS7Ygn(`#vw=$QE!{wVg1`6`shG)F=@gQ|gOX
zh;m!9LEsSWh)Gw)qg}j)sV$O%BhvIpV-+(A;hAAl{Zjk0rVN{H#-fa^U)wKA{d{{3
zpV_T>8LOjU@*Ks7+Hc*?Z!}UV*N&Z*kE=bw{awdSEJ8JNS2nE;Dlkf`PdG&LHUD~_
znrGEK)wEmLF20DnAmQex!EV(#J~9}-wv(OGEUu5XbM8a&DH$JVxfCT^J^f*R`nW}G
zSnMU}Z|cdK)k#mG
z_~i>?Tjs;RtEK(-ZIJ(QUGaa$;=fd;{bvs6jYzXa!%9I?G_?SId3`8^()}APnOfqG
zs0~(ewt=hQk3L&VBUei~SIc~5EwJgexMEUQUr%6j!4nNV5i~hY^Y5Q6-OGaBkFfhY
zS$2;FHa#lH@8a5r>U>=(P1f09z&7p=a)}d;4i3vpmP90)4}6$rJ}A<^*S^UDMbbw$un
zyOi@SE9LsvaR0VIZk~*ejwU1|K)YjNWr&cCc(1Y2y@x-n*=CWr$D)7JNEqJ8kv(k~
ze9nU|I9jv!&hmBnq+{^d4e?Agjb*uO`q?Da54jzbr$ZRTpRKCahiQW!_d0)juI7|S
zRMq2mmba=gPF)U`@JTC|`VGHe3cXYUrI(tg9g|sATaD5!+chVbJz2@p{~|S&_fm*N
z5z08{jZ%M|^xh=i&cJ7bz>$$jqcS6zH_BcrK{=f0(G>PVS=X$2brsU_HNA|15A5#M
zm;J^PZ+&??{oPTxCnF>|d!~2d>(=b&sxw`3Zr|-IU(FYE5sq6;7VWJGpClAJha7iX
z?%yCdd?9P9vA+%XT}Y%o^b^;*#DoMYZFbN-`m|z
z50AEQKX&U1JrJvKsA2Pz0=H6cSN!HiqY}Z1w_CHGKx{X&9c?fwY5n?;qxk(+RqsoZ
zf?Qw?#bP5d(fy8$w#OLf#&bV4G-Ncila8d9Ju|8k`+iGmyRTIoM0JzhimGEH!2aJZ
z`At?B+OR3593lc?bk<~-HP%NlhuuU0Q2@G+|M}Q^Ve(B(=Vr#t97?t--8#Mn_5+#l
z#6W?FrK9=+0BeZ^k@^O1Z2$U+fz{u==q>NG!QGNV_*N;
zWmI^WMrVyqxfV18)*`JVLQ0oXMVD`Rsf_}X`kOs6U
z;XJ9Wt6QWgG~_|ebI+b`orY9g{PF2t{#=dWjMdmO1Wyr3j7G0`NmK@PPE
z?8=Xt2g%*V4+FCO@U>Gcu3{*sLwS<6N0J*1#p%RKDiG($OgJ->^I?I%U(f_m;GiE|
zC!ZbM!Q+?^zoWa?Yb%-3ty*0ekvE{E}}!7%x|-d1bXPznLEW+h74le_RnB
zozJ~#yp_W)RV8|j&Et76fMlCI06Q}gQ4w!?qW40G1;3@0?mOn%v5
z_nf+&Q{$XwGpp8(8y~+oGWvdt$v#DKW1g2YJ5EEdC%-)1DQTC#*I9tx9i7hZxXbV?
z*+9E}gblxa)N^J_U;93sdy|r4j>9^|)`85?I@Y}ML|3^G*kzN$oizH)ShHPXFY~$Q
zPpA_kF?N}CNrGj+?l&8*_aVCy)LoffdodOI0O<<$*V_s`c(Hd4L5Hz8)q`5#E-2eJ
z$)sC$Ue-_L*SDLhe?}c@FHzN1W$@azFE71mB)T$*5o?fs9lI|=xBi*7StL^?hC0&7
z?$u$=dHK@6c%P)NH-lNjVM6nWe}Xw}yS;|}BglaVmR2wd;@r6NTune$mHMVP<)qY7
zJFE3ao=S_3ds8d5OcHy^oKo}rkKd_^OUu@R!7y!!rLEjPdxe+)xO))>!HI9rcv~KE
z(y6L*lhsD3eJHP9lg^hh~!8i2v`v>;j?bcG}W}YsYn=a9FF7n`H=F})WOW$Sv
z{S6j33{y$^G+1Ys(z8@nNr8b=?bYys^xbuQFgr<7p
zvBSQpJ_iI?$O8P_ZKC`=uTIiYEp~TucL>1ZjYofZX|k44NFcA=-@MqHSGzJ7?rd}K
z@;f1ZwwCnkh0hOLfT~mn%sTP5J*SHEEX(MLD@fD%1c!H%#IZdzQs3I3wX_@NR*z;m
zp|4VDkTVF!XRkM|sEAR`e#9u8m1~ppv&4xKMobUHQpnwHr33BPoq7}XrqF|P$jolc
z%;V@yDaZ<*REsb7wpQJAGc^0~cxUy*$g8V4#9`-EOAUdZ<2{x&mT57V$IQ<&=mn8W
zLTKXKIUhbQnqdK3^00ZpyQh0a+u+%X)2(~8RSUl5J>y@}2bw25H&Mb1b8rwuHwa~w
z2u#)WHjj7l9(l$rDM8LTysmz&C;0~HRsk6yICV*k{#vd{^3feet)~>8I=@CzN!8&eVcAYUQF*Z
zs;0NWndKXHd!yXpqOHC9c2;_sBUPl~T6Bel9MP%>MFS#pNQ`r;_{ok%OO^+smDtVA
zP5=gYQ+Z)l8x5C<#{BE-p1$pn7ZF|v93c4ylosJ?C8P6Xrff!QnHi@)uP{Qj
z*M!`(ozM8j8K+&f7Pb)HfKj7l3mk=pU+BdQ`Hp3T#5ZEnWch>)zP`gc3WzU)=`Yu1
zSG)Z^Ew0hD-ek8GTCpE$1rx@;`1xVA@|v3GC>6ZqKfQU4(i(ohC1b-(gQC|N;^!+o
z(W0{c^Nbt3z9H3xCRf!)HU&X6q{aay3^|!)>?NoDKCDt=x@%_f`}g)-}Q|Kc|X_9y1fVTzK+P>7x(`QSo8ZO9oT)q%iME=9CLIG
zHaCPoa{om=ah|K>ZOhSqlAzRT2FC8JrMg$(~8p{ousl
z#bG<}P`hCaA}C=Q@qRNp%3{~|R$h)9()6|1M`9@euGP9;ch>Xm&ny3ZlGAVET%I8r
zqK=^Gl&=r0TUk}}rYD9tue`P&X|lt*6`uJdj1Uk6D69ekz~uX@!`v4rMj&*-f)=B;
z!aTrx!?M#`qYRosSzK*$!hiExGy^<;-I2kxW3AuRSij$@P5UA%^q}kzS$7{gGL+Xa
zXvF$T&BxzX`P%`IX@b=9ezsp?*zRMd;ia2|P1zZzi=35&;7En_Ot-3}l~sD;b@G(l
zi^=$e?CZ|pPUCiw@vf*>pMPLR3VHHD|-0pZ=W#|XhP
zjOyaB=@j37Vl8sj1g+#7r
ze!NCezNqkI8IkfV`cm5m0b4Zzb|-)UJjwn+Hl&!qV4{w4WQ|`#AM9^E$v9am*3Be|
ze9_)Bk3OQ^4fVvAXnc8lFLiEq$_TEDI<{L$cT9Futto0TDU6?R;~dss))b5kK|t34
zdgyG=0x_Kbd;{(^g3Rh|>xyk;wVA)d~g#8Z$OQ&$1xDoz4TGzTtBQ+AvLjUpR_NaM)K
zM2^C=5?*##}m!cDcgpeQbq)?YW#==^;td&S)j(xAqmn>^ulyT1U=z)`t>x+N^=Rm5sz+Z`ZSIpNPS?DJ$tU6U!%~zk@
zF4#{{Dw$mNttlLenuFE-n`}-#rKG7H9^)!Id}$JSCZ*<9vJFcgjtr}o#yo}&{Y`kb
zMVMd$9oS($)%>k4m*`YEC4=`YB?N98kv&}zdJ)kp!rO|EwLGGVGfR^x+b(2n4jxB(
zd}`{KxJAP^Lwww*shz=IgUNPN$t0!^-V)npiJG;0Si~0a7
zwVcw+FFz6DM7F0!vA4%qM!TROUr0;xZs^TT_wE^6Tv@Cz#@1;Y)y9%KX<*w9-}Eto8I6spioPc>@amnT+Wj-9Pa
z3IQiP4PsaM_z45?5u{D9l3VIcd
z;u4fCJ>AeQl-$tXZ=TCf77;YJgFK2Br_;d%#QaQ_mcs#^5zFN}(dX29l&?x;x3H~s
z@*cC?rNyF*HpW3}P-(<5o6)eosCh8u;?6{DFuq&WZ&{trC+r2mfqor}Z~LJuBFTOg?8`sXPKNbz=q7C*y{j$Ik
zh$r?CAvdOMe!NC)-^g^Zr**v4iObu!fMKd0q9T|?4`j5uDI)sGKGy6vH{DLnLm;h6
zml4^(p3%#aRabnm^XSnzUF(54Xry(zI<4C+a16*>k{%>}8HC0*vAX91{A@(ofFvgJ
z4db)hfsX^bZ`qtja
z#-BDa5$yEpX=2~4lhIWQG7NW
zH#cVzckbhv6I-4rMM{b6UpX9L|J$CIe>_|im~?Pi?IUS!)-$JmF?i$imjlx^j+?)T
zpIUU_!qf9hS#K|1w^)7V+LCvR|9s+l_uP@8sXNW*Xc}=8UJpu1u8F|`&D0XBK2A|~
z)l>^V^V4U}XqCM@&1c;4_5~GS1^Sm$U_^w`F5ePJT)@|73dsX42
z>tBDZ^f_kmc4E^GucF}I`egnw4&^jy;koH}>VYFiq|!}$rQF$-3t8rqk`zkvFX@fZ
z)v9*NbQfP=cA$z;x%wnsCK~>aGsx+$zX~$HW}`SAnPQq7@|$y^y6Z%yq+GU{8g(`1
zjT{*qEC<94fxau#RR@FmDYaempz^2D-g+4&r5?kkAaVEWv6sb$15Dddu;^6Wk7U4^
z$5I7uY@0W3{3GX3zHUK%AZ=4+gq$Q?PI{5Xr@__&CK}PoSw>QCsU1!XFgttpFQ7cT
z4iG0xSOdQ?Fhsq6Eiy4a9ty($;PK;1+4mf#D80|WJzU~jTNnLN+RZR>p(b1O}eCYYvWF*rl!Uz
zMDbaVzY?1MeiBvNhJ6EB$N0J>xQk6Su`I4rSm`DcK8I{d(Jqwpg_F0F7X)^QmqvW3yYy`
zu*FbYC&YjNYin!i3l~0fA2f?J-7RFD0t6q>`6gh!zmrd2z*Wd2&qO|k^
z6BARINq3c)goNpC{p5NGw|2C00En&2R;&wozrYr#Xv(xAtLL7BLw-q#NgqBLdPSDalwp0~=MQK47tW|q%#}{Rh`YMYwae?{vrVP`i@FVRbm2n{`pC0^<*JR6Fq4#$6vbX9(eQ!gmo
z|D%#oJ}(MhTIzaJs_%ldbReW)RRaS9g;!VpOf&1(J45^VE?R8^?!Qcqk9T-z`aY$;
zfB(J{P(Zf5*eAv!!`pk84Gvw@CFy#_#m85snP}rp#C`Zo=op~g?Evnj5WFw8&4O*+
zKz|6X`gy-RN1RubuE)%v?s;$AxG|d7UP4^_Q;I>0SjNX&CBA}n@tV$H7Xfg4WSW|q
zTz7N>f2$|``c%3tD?IYYey8YN=h|n#e)VcPHA*#m*0Y#{oxQ3e?2>wNJ(qFEg>}1*
zUBHUXFD{m~w$6}}l5%lz2|TR!L0T&VL5YI;dPP>b=*Z#l*6@Xx32sjBx{5FR>lYZV
z^48JK)z@;J81nP;%OM0SqM2Xb^6<37)%{fJDX`z$YjaA`oz0ZfjKic_7=)}Z7kTky
zhr4Z;QJznR;c5*ZwUF}g_C84KDi12)^2s*sRiKqardAr2Ke*+zsHiyIX&0~5m&>N<
z%AK8^T1^?LxmrI5ey7g?wqrP(bm`>^LwS@MY}F8Cx6aXMGu!e}1#RgAtXMmFu(wQDP|F%t9|`GSIj!yz3$aB`CE
zZ_3>K%P&{N))Fj1==Q9|&
zV)s!}Ts=05xNr7PYiVx}QApHMt{&O7CpJ0R>|UK+t#figp6P;!^?M|z9`Ge@n1gZCYH#3eB`Tdiri?1^z3_Io}F2&mCn3o
z&h4KBvp6arPMH4qE+)8W!j;1@=4Rr6bydRDMNaL-_KF?{78#?TZ_jbdD;xZSlQX_h
zZI_KtPEHQ%t{AiarY=;-f>CsV{oLHL6B85IG0(Vl>*gEq&2^~CRRHsieVB3YVn1Qk
zt24g8^mHy32n}x9B*|)}@<({0ljplj&6|BCT|NwT`Z8y62>9)Pj63r!>5_Zqdokyb
z_uK{wZ8_4Fx+`A0nw>_#
zPE7iTw{K6-43pZvpPD!2DWBUeT8U!jFWjv4;W1BJO5u6Zz1pAAvSW{Yl+2WEhxWPz
zgxmZ+_xbE5~u!9t1>)@$UXcL$B+N%uy*@PU>Vi}2f|Lp9ClPMaHG+Y
zCS$+!w|(dJ=6u=hlk_x`?tQANs;Da}=!`~5Z;oLQkplRGwu48{yIy2MEK#en9KO{H
zs1`TS(DU>13>?0~_#@}4Ty%3X6Kp!&J_H#^M?uH$U%rly?9A
zeX(=r4#q-q>6aVpYZTXsukYP)?3O?ECX|?P#pGz}O-w6!Qz&mcZH9_?*sH^3BHSPV
zF<4kxshTYe5YSJ2S~Mlin9_X{*DXVwBH`Nm)u;sLd3kxeN?+WW9O({$CiikhsPvlpB_}6i*n;&M(>xUZR&pXy19g+@M_`^D5D-v8=NK}c
z7dA00_TASN$PW{*<}8l_Fod)j_I(^79GVp7N`9W7kkJc&dUKJnj!vWy4n#!==>wYX
zlm7Vzp?YXzNPo@C!ooCyw{bA>
zs8QQF<&;}*EDrwo?av?D)Ia!RnE?BtYB4QtZN?Ec`fPQ-JUt^LV;I_W7r{N}&aD+(
zIBrCteBO6ei~?70PLXa5Ey}f~32=l~9;=qCRBQn!Q9V&1(XdsFQ*1t)k2jL$ytKFj
zsDefp=YJd;x}P?;CNyRkbQQHTq>hz-BCo@855c7T%vdmj(TH&O9w+hdwYZ`T}a9t7z`)$M0Pz
zb!FWX2wsTa?_IQL(cr*9SyyEQDH7LIO-+-id3woS7sOsI
zTCVS}U3|9hynuouKeyL;*$5eKuc838&mXRdQ3S8OTS+TNt>ZHIdMYR|@N8NGUG3wO
zJ@i1F@#M|E0oY;*_lb!Hn3KKz$FlNYUYl)~{Wd3uOYOs2U`;vH3qH%?(622ml_>^l
zQOfB_V$rxsE?iu2ZhB~NWTXJ-wC}7K8!Y!(Ab6A^m;qv9@lcT)^4p;(1GYDIC8eNLH$Z-iAE2!_`P!z8UY
zss1P?zMU5p=@Y=^=3jq(frFr05N*K$_8SS9&3J+9MddwXCXH(Ks#O<(OI^Lad&T
zwEFey$C7(%Vo&m$_LKtaCR&Z@k>_D5HW=oIYkGH|gm>t?jxpc5u#>PmH*eb1A~2i(
zI?0&TiHH~Qh&T)$`|z7-;o&{`Ov1rBqOtegyF-G4!a(loQjMJbqvL*N0YZ$LQTK+y
zI=he+mx0(}(pk>bo&{y{w5s*MJz#6lz}6!wowG$ddGw?)P|8WVST_0@0}jBjdl?!1
zj^w7)S-gGxK4EjI+>y08>h)_jT%?{aflfxfV2_75#{$cETtGVt{@5Gr3z6=Vx>I`rpG
z0X@);;@?vMTI1?_$uLt7u(FEd`Q@-1M*Ev%UcUSTdrDnXvl~fx85FQth*;^Fvv8Jw
z+p!}&A>k-~>?3F;d-38$LP|&pLpGchbrV$x4eKJbi3I&-q2Ai~khiH5sOa5m{Xmbq
z*SeGC12%Z0Im?EG-xuECZ?wN6&=p`3djT4Uotf{^@#cdSToUP%9Km1
z;;h5fkGZ*`0DiJSr$>$)adCHV7pRJT5Jq!-nSvmlGf^nzR=~JgZ9$H%&r6?DZIqFH3VX-&O=w~}{
zfJQ_uXJ=;=7VNwP^eURvwQJYzwJ7xpeEERp)(CBdY2QA#an>J2OvC~-h6qPCaKyAq
z{ok0ZC=HSDp;PbOy_=Hh_Ws&|Avp;Nr=c3MM5Su~Oi{Zxf>dC)=^T`yZ~gtM*SxN7
zOGCG!hP_M7N2?UA?KNGu{m46YRSk_`s%z?EtLgE9;w{_OJDKi*Hu?mx{l1NpYbVMo
zTXOK%uh-b{K@0SwH%fnZpV_l#4^~7m<5KBBmbO(~&IbhjOQ6c&kiks|>Rn|4j?g(@
zpg^Wsm;IodG(N*`e*sAby14vCxRYYCUS{9HFxe;tdLY(hTBDu1U2EKLn>Tmj)QTH*
z+4ALSx?GA%N(Va!A1-M`Cwg4p3o`CTb@$D0g{)Bq;A_%Rx~I1}TlK(!1C#I=3j}kO
z=d^Phxb>SF)csmGWu@KK25w4AyBI~sh{_ai(prB>R)oKaorR`qH
zt`vG_#Rjc6x0kj0?%cNRa+{EQxsg&|HkjTt4S|JPrCRY=nDP_gV}Qdd{+#376)?sAoRSw7Ot5=gABmP)8y!LWqdt89lI&H$pZtP?Pbiv|iQ00sa-dwIB`jOE
z>?RCfP=~GJ9X|@y9z+I85nN;jX6{BVz?0V~c=6)J;ln!+?|KqgV0Utku;|@$F?KTr
z>Wa{(GErEPN7kOackkZrumgYmae|(JO|7|;
z&I*NrhW>_f9o<)c;m&iM3_E~Md-(9-NgO0268E=n*NL`8Ptd77(g;i+eksHWhhvl(
z=1o21BkrJO2BX;S-?#4!q(4~{zXR2)Hf%6UdcYuHe#?WS^I0I8Fi>l@Q95KO1A1U<
zfqQzRu-&XRqzaVs0X|mK5{-CX{#D0LG_&Ga@?E-RsfP}g*0xi@dxiqOxmr
z*}W7KX>p28(32;>5X}TD8wy)B?ET-tr%0hi=rgMCXFDv?DDq^YO~M?PRqy4_hjDTO
zGN2Z~v{rLgrfFY;{L2_4NS$C9QE1QMuU=h%v6yWJWCna
zymc$T+-gTh$AW9IE)(5Yu(y0Qlk0uz#m8>4O9IqD=y};Z-NwUr>$5!{6c{@@yX_8p
zP;P;`Nk0K1bKJmKh1j?9hrj;%tJIB6k*d62!N%J9`ZkBfOO|kH6mBDn5Q-GjdRnM8m-KaReJ#&0GM0`3t#^ZfnQ_wV1ewKiSd
z_Q534{m|Nz&^o2i!tw>9Wg=wNRhZ!z!Pa#GH}?@!jz?CowQ3q%RK^Zr7v-d8B>co^
zG=p>-R2jWotsio4XZIMag+d$bbA$Ali~%eUB@Nxpj}4-L7VZEo>@~K9vStjjy>V)K
zdYULrNF^wN<{xeuT(~oU@z*YtG)VC5cBii)a!B}2W!NQVNCaL6@;_cAvhJGJ8YfiY
zZrDpwkil=?xl@$!+mE06I~-=R_eBwN*uba~R8;+=?NNBPfO*2M@H+fA!n^!yYv)g5
zO5tJt5%vNlIPfEvhD!$jJ|9*l7k_^Hr^i9LvijeC@%I7aAMcl()>FK5USGPsdErnv
zu5jtcr#j)=bH~^G(7-oXb;VyHno$4Tp4?ANl$1YTEuQ~K1ib3sd!PT%P5q}|oO~B_
z0|gX+fdlB<_OK}
zB|bVQ0t;Nmv?SDP=EJSJCGiFAUjM{Ia=rmCr0mv
zzb-GFtfAOzaoJ27W6y}i#>Vm)wLJo>gN*|xHM*weGH^De)pW5KkLS<#(-cw-gKpox
zZT$7!ss*{=;xo3(uSBp%E?&9fA0qyS&Ee;os_a5&$iKOq3d~A
z&0%n82*HN`gCD9_+4ME=7Ck?Fl1(9jFjkZ=5W`5oqm8-H-vb*|Dv522Cq1fJyvyCP
zam2nD!$pi&^rw^_ew)bz#NH#(&{*Im2wIIw8ydzzNXYm0D#vk7W)#9OLONHkmcrY+
zK7Zcfz1I<_Qf14-_Y*nx<-4NxVQ`e%0@HBv^c32aEL7sUWc?UKkkPhoLXX50^V!X2
z6!3yZdjdMZ5%)(?B!_bpQf|E{Xm_7A^8+^v04_$jMznYc8f*~sLf2!nVIjU!kZY)&
zh~GSg>=L7rsq`VLNAUa7pPN@YV!myfqP(Q{aIQr_yrpF?z#mI$6XMd6n9K9vD6kZE
zaO*s$c19&PvBc}%3kWe(Q1DDM?F}d7otW&z2}Qhua89DV>^OSEpO~gVQ_w?PaQJ1j
zNl#5#km?}%Az>zXZ6}H)foN4xiUgUFE{LNZw|3V8)#7p8`+MR?wIDFy+^kB5^6?YjB}u(b)nQ}DLQT|h=l
zFlv{0ypu-)Q7FaxuT6303Y&=O_7E#PVny^|!emv)uQvDy5o&(WK6D;t(b{;W|VkDoky7J#%LF#@o7Kgc*fQMW+f
zpwi$1rcgV973Iv$Q;>=P>3CsS!oaEV=)}pBu5NBb%!=16!3Ge6i*gakf(n?&C|Cpm
zA!Dyq73qPDLI~FBvD{-=yO8kr&=le|9-}&u4gB=!3zUHqWJ3EOA8q_H08$?YPZ}CT
zQz}amaD1T7OzeYREiDWB{6RGH>0lt;Wz1k5n~
zA%H2w{=|+#+Q$#V{MYIA%3*+!M3V%uc3V&s@-^ZQ@bFYm94P`>NLe>%hnRWy*Y^(*
zZZL5u$LP3G5%@2+Xut_CB7V@Mu!LYVCRz+>w9iIluJ9FE_#i?G#W}WC2UW)P>b7ub
zh>#PB%&CR&x6Bb+@LR<9SV6MLQl_)V#Q7dke?aZT2U)O;O@m(iP!!>yK6v!VxM~Xq
z0MZ`|Ag#mIP$HG$_zgAe6h#nm2wM4r&8)+SWbg~?VRb(AP6Dhee4AmM+eSIg;%r_!xVBMvGm<*W?}e~pa7;?PDn@yTm&%XQ@$%J
zQ&^$w_Vs|LZd3xCvu8(QT6=rh7QicbEiG-A9>2MT1#kB_o>Zx88d1vMwrvZA2rb2LO3g)2OoTUsTh=C!JGky-mBpkmAWY6ntG95+96^=1Z9DBX#XYc%cF-Yz&?6*t!
zP%~ZEN4+bXRS>(|xTp!A^ua_!IHh%TCt_zA2xo}tq!UAt2GQV_d{85HCaoO67vT$8
z7&-@O#gzrntWH8Ua;Lh_7B!}se8MLS7|%{y0LY%(#4I6=CV-QCif=+@{V>)av6%Ml
z`;gk3?+Lx&o1p}%bC0RjeUSzq>~l~H^04ev*osW4O^Tx8Pa)pA)yxt%04sy2;on+i
zGM}m&7{p?EvS7sKb1qX}M{mBw?4;}9C|@;`^6a8N`Jv{zQj?oo4_pdHx66LV4bQH+
zBrh*ay0_YJL%5gZdq=c(^40czaFE`p=MEDCHW~545k{40OgEE5O@8_EWwiD*(evoT
zm_4_eCa5>K7t#UBd+e&sVQ#AC<|wI
z3yr1B^vxdhZ+rsZQ)3G!pa9m4;5&_a)o5QMNb|X^Jj?KBMEb26tr{I}($Ynw5j
zgt!z$M980(3%D&q@gGvR0p?W_)
zY>E;oRlbL|?|DRj%VacH2nwm~B*(&6x6g2(jQj=o;lOPCB|kj)2qx%I9X`
z8?ZZ9e7!TYWq9)EefSc~hmtRuuXL6vU_Ukmf)`*xq-pKZsRkqx>zin_`*bzGI7XfLWA>On`#pMfEK$Ej_+m
zA#uFC-iKeqPhbU7J8>EWi{8wtkiZfe$?}Qmpz6s&lg0Md&V)UOxMU}kbl0>|*!W=j
z+r_Ji^pZRigD4=;g@7I0`Dc;1q|$(~{E!L{0vsX8&Ecxcc9?QjEY<&ZA}_FjjX65Q
z*{T1Wv2j9yAbX>JS_0Z4tsLN`K;Xl`iL;I{)_CQVRRPJ$P2>`_GgnmJ{~NFkhT{UD
zF^P}*P|)zJM?Uo|oqQT8d;)Yz0xcwb_;{Ddnavy1p6Jh9su2P(ML=4809zWeDxleP
zCRVH9^jA&KFN};aFjvvXq+kqvnzxyDAVTYLb<`ChoTETf?(X}SFJI258r~k=KaB2z
zKwe{(|M&bf2DXz8Mf#mvSyb{4tv&B?MqIRu#JASK0a*6NWouZZF
zb5#5xpT9Vz|Cuy8SUX+SF@CUtzX>q2v7JYJ&Ko5kaj)NL#2Y4pK8hf}YMq=L9KCL!
z%N>H2#;IH*ou5RpLyfam4*n|@$P5Gnx(5G(b*1#Dx2tQ=-;enfj(*swf0hp1^a9yo
zVLJPYjApyJOd{YWw;#(=L={JTs@ppv4<9>4a+){a-d*+JufO&WP3Ifl?M66=NtR2s
zUoe#YZ`)ax7%#wY$d_%r2i*zf4Bi_Yc1Sxi@ca^S&5f*Py{73yL54w718xxgI&{)6
zT>OiH#0dwub!u+;_!VX%e=mvy4RMA>MnCj|f_d?X1)439ctA{s%n^EpNF`1up9Zl1
z*s;syt*^^s!$**{zNDd{;ZfZHXJx3a&lqwY@m4Tl3dwq;(}N#GpaKJ0mV>@Tzk2n`
zP`Da(hlz%?89cTDv+41pO6hqWGa5iN5CTPT`D}F3t&+RX8kHOLt7O|94km6
z{v}p0F@|Av5XmadxD4#CC&|wc+dWCA_K!}(C;i|e04G2oSOD?IG%-T$8z}aMO>C72w_uJW?Gqn<((xSLhO#3Hv>|s
z4`hw_CV7SNArGrpt_*#(TXg4oQP#Db8RK6c)}@=pfYb$JkKbfgV8W{qiEC)+()H_s
z*VNR&gboWL0kPRO7>%S8FopyjV`5^6-i1Cbk7YuF9@xrcOF}KoYi@3CokrYQjE=&k
zs^{g>^%-$ZP>36F<-6(LrWLvIcvy
zhRK)nM?&$+Zx)gy)|ldXsK_B=fqr?@A|mtGXT!i&ajf(f=aa3%sIybE`Hh8#mTo}zI5W$4|0!L
z!9t&sk7)deX;Si^fRsS32*Y-`TT*Sm{YPHpmUuTpQ^@Y2-FtIP#@Fibnf5#fYf+(<
zgX##%e_hu-$#><)t6#6vLpMgC{2oqB^q9_}n22XgZ*a|Bz3^e<5KR&wU>|_?2(n1r
zW{eggEr>s9gSm^HJ^S7GKF>kfAMJ~h(h7b5CeCJgVvR$73HvWrtp2r(Ha7R9rE??Y
z^>2~?N{IU@sqNmlYgZ5Xsr3K)Q=VUP4naT(DG)iJqB6ZJm*L+}&K+$Jnqv&zSGl}z
z1;zi`(o!Du7e;t_=4oq_*)7s28^8{Sj8}1O9QvAn$>{CS{c?ow1P;$<%q$F?G2xXJ
z{V$!JB_Bui%F1l&&kYh!p4_yS!nJ16@Hzl*0CAWS)&Nbp|u24H9m9Eeo
zN)s4S{xWgurhs3c#n&lvVRNCz`AA{scCNKKwR@BC%h0rUM~5E868fMKpI6c^YxiK0
zf7|c&S$_hIVTvqqmwK(jb=qBm1IQ-2hP2&n-xPG1qtD`+in-9m9YbGtmuQYe(3;<~
zD&DH;9o-?bQ>)5s8RY_JS>z8x^ZzFz<3Im4HYWcv`7;YZsKo!h%==TV_=hy%|9SEM
zwVeJxL-$`jbc~W)FI0l34&%VW4Uh~HD~I)nqc|KmEk|>>s#Hm84xmg_l74eEcqEb&
zp#WiM(ihRd>y3yelZnrtRClU{!hpcjSa=uNP583kS$2N22*Nicd_Zyux)9-3sa~hLl!0j+f7~b8jvooRE&`FOX?65i)RD);_NTYCB4&NX-X9!5dw+FZg
zgK9@^L;-PkNY7&4$XXZx-D$VxyUJyL{b{@C?c+JWp#$N9{fOBRx1OXB;CJAN3jAP_
zj)aavG%09kL925KUP70s1UOl@?T`qlAbw1OweT!9Gcd5xNPxE>71EO|B6B|@LX?I<
zJx_`yKrTHHj#p|=JosSgIL;t#cEYL98F6|AW+izFV|bv`@PZ8!;Op?PF_hwra+9B(
zy{IdAr9aT||C*qu%COrDL5QZpfq&W10=G?US_nsJ=@mGeusY^%mRP#i%N54Rs8We<
z3Q@lIFq9w{Dl&IzZwH!?$1)s?QA(Af8-s4R)cF3r9Q}p98b9m7`&qM-+R0P4BN3{d
z#3X-ZEBR`^kFHt;SoL@MD8ep3`luuFhsLWY_N)!RElLQ8F#_fG$Q_@W`hVK{?x?8G
zuG`VX19DY2%=Q+