From f836722269c896285ef30192dc62fb791d3709f5 Mon Sep 17 00:00:00 2001 From: "Matthijs S. Berends" Date: Sat, 26 Jan 2019 23:22:56 +0100 Subject: [PATCH] atc_ functions --- DESCRIPTION | 2 +- NAMESPACE | 11 +- NEWS.md | 13 + R/atc.R | 188 ------ R/atc_online.R | 204 ++++++ R/{ab_property.R => atc_property.R} | 60 +- R/deprecated.R | 58 +- R/zzz.R | 2 +- _pkgdown.yml | 4 +- docs/articles/AMR.html | 596 +++++++++--------- .../AMR_files/figure-html/plot 1-1.png | Bin 31807 -> 31817 bytes .../AMR_files/figure-html/plot 3-1.png | Bin 24245 -> 24241 bytes .../AMR_files/figure-html/plot 4-1.png | Bin 66607 -> 66589 bytes .../AMR_files/figure-html/plot 5-1.png | Bin 48876 -> 48883 bytes docs/articles/EUCAST.html | 2 +- docs/articles/G_test.html | 2 +- docs/articles/Predict.html | 2 +- docs/articles/ab_property.html | 2 +- docs/articles/benchmarks.html | 8 +- docs/articles/freq.html | 2 +- docs/articles/mo_property.html | 2 +- docs/extra.css | 4 +- docs/index.html | 26 +- docs/logo.png | Bin 0 -> 57583 bytes docs/news/index.html | 134 ++-- docs/reference/AMR-deprecated.html | 22 +- docs/reference/AMR.html | 2 +- docs/reference/WHOCC.html | 4 +- docs/reference/abname.html | 2 +- docs/reference/age_groups.html | 8 +- docs/reference/as.atc.html | 6 +- docs/reference/as.rsi.html | 4 +- docs/reference/atc_online.html | 353 +++++++++++ docs/reference/atc_property.html | 104 ++- docs/reference/count.html | 14 +- docs/reference/first_isolate.html | 12 +- docs/reference/freq.html | 16 +- docs/reference/ggplot_rsi.html | 36 +- docs/reference/index.html | 10 +- docs/reference/key_antibiotics.html | 4 +- docs/reference/like.html | 2 +- docs/reference/mdro.html | 2 +- docs/reference/portion.html | 24 +- docs/reference/resistance_predict.html | 4 +- docs/sitemap.xml | 6 +- index.md | 26 +- man/AMR-deprecated.Rd | 26 +- man/AMR.Rd | 2 +- man/ab_property.Rd | 59 -- man/atc_online.Rd | 73 +++ man/atc_property.Rd | 97 ++- pkgdown/extra.css | 4 +- pkgdown/logos/logo.png | Bin 0 -> 57583 bytes tests/testthat/test-atc.R | 23 +- ...test-ab_property.R => test-atc_property.R} | 27 +- vignettes/AMR.Rmd | 13 +- 56 files changed, 1397 insertions(+), 910 deletions(-) create mode 100644 R/atc_online.R rename R/{ab_property.R => atc_property.R} (74%) create mode 100644 docs/logo.png create mode 100644 docs/reference/atc_online.html delete mode 100644 man/ab_property.Rd create mode 100644 man/atc_online.Rd create mode 100644 pkgdown/logos/logo.png rename tests/testthat/{test-ab_property.R => test-atc_property.R} (66%) diff --git a/DESCRIPTION b/DESCRIPTION index a0092870..18a7ad0f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: AMR Version: 0.5.0.9012 -Date: 2019-01-25 +Date: 2019-01-26 Title: Antimicrobial Resistance Analysis Authors@R: c( person( diff --git a/NAMESPACE b/NAMESPACE index 4ef60676..aaf878ca 100755 --- a/NAMESPACE +++ b/NAMESPACE @@ -54,9 +54,16 @@ export(as.atc) export(as.mic) export(as.mo) export(as.rsi) -export(atc_ddd) -export(atc_groups) +export(atc_certe) +export(atc_name) +export(atc_official) +export(atc_online_ddd) +export(atc_online_groups) +export(atc_online_property) export(atc_property) +export(atc_tradenames) +export(atc_trivial_nl) +export(atc_umcg) export(brmo) export(count_I) export(count_IR) diff --git a/NEWS.md b/NEWS.md index 50dcadd1..0ddafb84 100755 --- a/NEWS.md +++ b/NEWS.md @@ -3,6 +3,17 @@ #### New * **BREAKING**: removed deprecated functions, parameters and references to 'bactid'. Use `as.mo()` to identify an MO code. +* All `ab_*` functions are deprecated and replaced by `atc_*` functions: + ```r + ab_property -> atc_property() + ab_name -> atc_name() + ab_official -> atc_official() + ab_trivial_nl -> atc_trivial_nl() + ab_certe -> atc_certe() + ab_umcg -> atc_umcg() + ab_tradenames -> atc_tradenames() + ``` + These functions use `as.atc()` internally. The old `atc_property` has been renamed `atc_online_property()`. This is done for two reasons: firstly, not all ATC codes are of antibiotics (ab) but can also be of antivirals or antifungals. Secondly, the input must have class `atc` or must be coerable to this class. Properties of these classes should start with the same class name, analogous to `as.mo()` and e.g. `mo_genus`. * New website: https://msberends.gitlab.io/AMR (built with the great [`pkgdown`](https://pkgdown.r-lib.org/)) * Contains the complete manual of this package and all of its functions with an explanation of their parameters * Contains a comprehensive tutorial about how to conduct antimicrobial resistance analysis @@ -37,6 +48,8 @@ #### Changed * Added 65 antibiotics to the `antibiotics` data set, from the [Pharmaceuticals Community Register](http://ec.europa.eu/health/documents/community-register/html/atc.htm) of the European Commission * Removed columns `atc_group1_nl` and `atc_group2_nl` from the `antibiotics` data set +* Function `atc_ddd` has been renamed `atc_online_ddd()` +* Function `atc_groups` has been renamed `atc_online_groups()` * Function `eucast_rules()`: * Updated EUCAST Clinical breakpoints to [version 9.0 of 1 January 2019](http://www.eucast.org/clinical_breakpoints/) * Fixed a critical bug where some rules that depend on previous applied rules would not be applied adequately diff --git a/R/atc.R b/R/atc.R index 23cd1d1d..b68461d7 100755 --- a/R/atc.R +++ b/R/atc.R @@ -186,191 +186,3 @@ as.data.frame.atc <- function (x, ...) { pull.atc <- function(.data, ...) { pull(as.data.frame(.data), ...) } - -#' Properties of an ATC code -#' -#' Gets data from the WHO to determine properties of an ATC (e.g. an antibiotic) like name, defined daily dose (DDD) or standard unit. \cr \strong{This function requires an internet connection.} -#' @param atc_code a character or character vector with ATC code(s) of antibiotic(s) -#' @param property property of an ATC code. Valid values are \code{"ATC"}, \code{"Name"}, \code{"DDD"}, \code{"U"} (\code{"unit"}), \code{"Adm.R"}, \code{"Note"} and \code{groups}. For this last option, all hierarchical groups of an ATC code will be returned, see Examples. -#' @param administration type of administration when using \code{property = "Adm.R"}, see Details -#' @param url url of website of the WHO. The sign \code{\%s} can be used as a placeholder for ATC codes. -#' @param ... parameters to pass on to \code{atc_property} -#' @details -#' Options for parameter \code{administration}: -#' \itemize{ -#' \item{\code{"Implant"}}{ = Implant} -#' \item{\code{"Inhal"}}{ = Inhalation} -#' \item{\code{"Instill"}}{ = Instillation} -#' \item{\code{"N"}}{ = nasal} -#' \item{\code{"O"}}{ = oral} -#' \item{\code{"P"}}{ = parenteral} -#' \item{\code{"R"}}{ = rectal} -#' \item{\code{"SL"}}{ = sublingual/buccal} -#' \item{\code{"TD"}}{ = transdermal} -#' \item{\code{"V"}}{ = vaginal} -#' } -#' -#' Abbreviations of return values when using \code{property = "U"} (unit): -#' \itemize{ -#' \item{\code{"g"}}{ = gram} -#' \item{\code{"mg"}}{ = milligram} -#' \item{\code{"mcg"}}{ = microgram} -#' \item{\code{"U"}}{ = unit} -#' \item{\code{"TU"}}{ = thousand units} -#' \item{\code{"MU"}}{ = million units} -#' \item{\code{"mmol"}}{ = millimole} -#' \item{\code{"ml"}}{ = milliliter (e.g. eyedrops)} -#' } -#' @export -#' @rdname atc_property -#' @importFrom dplyr %>% progress_estimated -#' @importFrom xml2 read_html -#' @importFrom rvest html_children html_node html_nodes html_table -#' @importFrom curl nslookup -#' @source \url{https://www.whocc.no/atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/} -#' @examples -#' \donttest{ -#' # What's the ATC of amoxicillin? -#' guess_atc("Amoxicillin") -#' # [1] "J01CA04" -#' -#' # oral DDD (Defined Daily Dose) of amoxicillin -#' atc_property("J01CA04", "DDD", "O") -#' # parenteral DDD (Defined Daily Dose) of amoxicillin -#' atc_property("J01CA04", "DDD", "P") -#' -#' atc_property("J01CA04", property = "groups") # search hierarchical groups of amoxicillin -#' # [1] "ANTIINFECTIVES FOR SYSTEMIC USE" -#' # [2] "ANTIBACTERIALS FOR SYSTEMIC USE" -#' # [3] "BETA-LACTAM ANTIBACTERIALS, PENICILLINS" -#' # [4] "Penicillins with extended spectrum" -#' } -atc_property <- function(atc_code, - property, - administration = 'O', - url = 'https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no') { - - # check active network interface, from https://stackoverflow.com/a/5078002/4575331 - has_internet <- function(url) { - # extract host from given url - # https://www.whocc.no/atc_ddd_index/ -> www.whocc.no - url <- url %>% - gsub("^(http://|https://)", "", .) %>% - strsplit('/', fixed = TRUE) %>% - unlist() %>% - .[1] - !is.null(curl::nslookup(url, error = FALSE)) - } - # check for connection using the ATC of amoxicillin - if (!has_internet(url = url)) { - message("The URL could not be reached.") - return(rep(NA, length(atc_code))) - } - - if (length(property) != 1L) { - stop('`property` must be of length 1', call. = FALSE) - } - if (length(administration) != 1L) { - stop('`administration` must be of length 1', call. = FALSE) - } - - # also allow unit as property - if (property %like% 'unit') { - property <- 'U' - } - - # validation of properties - valid_properties <- c("ATC", "Name", "DDD", "U", "Adm.R", "Note", "groups") - valid_properties.bak <- valid_properties - - property <- tolower(property) - valid_properties <- tolower(valid_properties) - - if (!property %in% valid_properties) { - stop('Invalid `property`, use one of ', paste(valid_properties.bak, collapse = ", "), '.') - } - - if (property == 'ddd') { - returnvalue <- rep(NA_real_, length(atc_code)) - } else if (property == 'groups') { - returnvalue <- list() - } else { - returnvalue <- rep(NA_character_, length(atc_code)) - } - - progress <- progress_estimated(n = length(atc_code)) - - for (i in 1:length(atc_code)) { - - progress$tick()$print() - - atc_url <- sub('%s', atc_code[i], url, fixed = TRUE) - - if (property == "groups") { - tbl <- xml2::read_html(atc_url) %>% - rvest::html_node("#content") %>% - rvest::html_children() %>% - rvest::html_node("a") - - # get URLS of items - hrefs <- tbl %>% rvest::html_attr("href") - # get text of items - texts <- tbl %>% rvest::html_text() - # select only text items where URL like "code=" - texts <- texts[grepl("?code=", tolower(hrefs), fixed = TRUE)] - # last one is antibiotics, skip it - texts <- texts[1:length(texts) - 1] - returnvalue <- c(list(texts), returnvalue) - - } else { - tbl <- xml2::read_html(atc_url) %>% - rvest::html_nodes('table') %>% - rvest::html_table(header = TRUE) %>% - as.data.frame(stringsAsFactors = FALSE) - - # case insensitive column names - colnames(tbl) <- tolower(colnames(tbl)) %>% gsub('^atc.*', 'atc', .) - - if (length(tbl) == 0) { - warning('ATC not found: ', atc_code[i], '. Please check ', atc_url, '.', call. = FALSE) - returnvalue[i] <- NA - next - } - - if (property %in% c('atc', 'name')) { - # ATC and name are only in first row - returnvalue[i] <- tbl[1, property] - } else { - if (!'adm.r' %in% colnames(tbl) | is.na(tbl[1, 'adm.r'])) { - returnvalue[i] <- NA - next - } else { - for (j in 1:nrow(tbl)) { - if (tbl[j, 'adm.r'] == administration) { - returnvalue[i] <- tbl[j, property] - } - } - } - } - } - } - - if (property == "groups" & length(returnvalue) == 1) { - returnvalue <- returnvalue[[1]] - } - - returnvalue -} - -#' @rdname atc_property -#' @export -atc_groups <- function(atc_code, ...) { - atc_property(atc_code = atc_code, property = "groups", ...) -} - -#' @rdname atc_property -#' @export -atc_ddd <- function(atc_code, ...) { - atc_property(atc_code = atc_code, property = "ddd", ...) -} - diff --git a/R/atc_online.R b/R/atc_online.R new file mode 100644 index 00000000..6461cc02 --- /dev/null +++ b/R/atc_online.R @@ -0,0 +1,204 @@ +# ==================================================================== # +# TITLE # +# Antimicrobial Resistance (AMR) Analysis # +# # +# SOURCE # +# https://gitlab.com/msberends/AMR # +# # +# LICENCE # +# (c) 2019 Berends MS (m.s.berends@umcg.nl), Luz CF (c.f.luz@umcg.nl) # +# # +# This R package is free software; you can freely use and distribute # +# it for both personal and commercial purposes under the terms of the # +# GNU General Public License version 2.0 (GNU GPL-2), as published by # +# the Free Software Foundation. # +# # +# This R package was created for academic research and was publicly # +# released in the hope that it will be useful, but it comes WITHOUT # +# ANY WARRANTY OR LIABILITY. # +# Visit our website for more info: https://msberends.gitab.io/AMR. # +# ==================================================================== # + +#' Properties of an ATC code +#' +#' Gets data from the WHO to determine properties of an ATC (e.g. an antibiotic) like name, defined daily dose (DDD) or standard unit. \cr \strong{This function requires an internet connection.} +#' @param atc_code a character or character vector with ATC code(s) of antibiotic(s) +#' @param property property of an ATC code. Valid values are \code{"ATC"}, \code{"Name"}, \code{"DDD"}, \code{"U"} (\code{"unit"}), \code{"Adm.R"}, \code{"Note"} and \code{groups}. For this last option, all hierarchical groups of an ATC code will be returned, see Examples. +#' @param administration type of administration when using \code{property = "Adm.R"}, see Details +#' @param url url of website of the WHO. The sign \code{\%s} can be used as a placeholder for ATC codes. +#' @param ... parameters to pass on to \code{atc_property} +#' @details +#' Options for parameter \code{administration}: +#' \itemize{ +#' \item{\code{"Implant"}}{ = Implant} +#' \item{\code{"Inhal"}}{ = Inhalation} +#' \item{\code{"Instill"}}{ = Instillation} +#' \item{\code{"N"}}{ = nasal} +#' \item{\code{"O"}}{ = oral} +#' \item{\code{"P"}}{ = parenteral} +#' \item{\code{"R"}}{ = rectal} +#' \item{\code{"SL"}}{ = sublingual/buccal} +#' \item{\code{"TD"}}{ = transdermal} +#' \item{\code{"V"}}{ = vaginal} +#' } +#' +#' Abbreviations of return values when using \code{property = "U"} (unit): +#' \itemize{ +#' \item{\code{"g"}}{ = gram} +#' \item{\code{"mg"}}{ = milligram} +#' \item{\code{"mcg"}}{ = microgram} +#' \item{\code{"U"}}{ = unit} +#' \item{\code{"TU"}}{ = thousand units} +#' \item{\code{"MU"}}{ = million units} +#' \item{\code{"mmol"}}{ = millimole} +#' \item{\code{"ml"}}{ = milliliter (e.g. eyedrops)} +#' } +#' @export +#' @rdname atc_online +#' @importFrom dplyr %>% progress_estimated +#' @importFrom xml2 read_html +#' @importFrom rvest html_children html_node html_nodes html_table +#' @importFrom curl nslookup +#' @source \url{https://www.whocc.no/atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/} +#' @examples +#' \donttest{ +#' # oral DDD (Defined Daily Dose) of amoxicillin +#' atc_online_property("J01CA04", "DDD", "O") +#' # parenteral DDD (Defined Daily Dose) of amoxicillin +#' atc_online_property("J01CA04", "DDD", "P") +#' +#' atc_online_property("J01CA04", property = "groups") # search hierarchical groups of amoxicillin +#' # [1] "ANTIINFECTIVES FOR SYSTEMIC USE" +#' # [2] "ANTIBACTERIALS FOR SYSTEMIC USE" +#' # [3] "BETA-LACTAM ANTIBACTERIALS, PENICILLINS" +#' # [4] "Penicillins with extended spectrum" +#' } +atc_online_property <- function(atc_code, + property, + administration = 'O', + url = 'https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no') { + + # check active network interface, from https://stackoverflow.com/a/5078002/4575331 + has_internet <- function(url) { + # extract host from given url + # https://www.whocc.no/atc_ddd_index/ -> www.whocc.no + url <- url %>% + gsub("^(http://|https://)", "", .) %>% + strsplit('/', fixed = TRUE) %>% + unlist() %>% + .[1] + !is.null(curl::nslookup(url, error = FALSE)) + } + # check for connection using the ATC of amoxicillin + if (!has_internet(url = url)) { + message("The URL could not be reached.") + return(rep(NA, length(atc_code))) + } + + if (length(property) != 1L) { + stop('`property` must be of length 1', call. = FALSE) + } + if (length(administration) != 1L) { + stop('`administration` must be of length 1', call. = FALSE) + } + + # also allow unit as property + if (property %like% 'unit') { + property <- 'U' + } + + # validation of properties + valid_properties <- c("ATC", "Name", "DDD", "U", "Adm.R", "Note", "groups") + valid_properties.bak <- valid_properties + + property <- tolower(property) + valid_properties <- tolower(valid_properties) + + if (!property %in% valid_properties) { + stop('Invalid `property`, use one of ', paste(valid_properties.bak, collapse = ", "), '.') + } + + if (property == 'ddd') { + returnvalue <- rep(NA_real_, length(atc_code)) + } else if (property == 'groups') { + returnvalue <- list() + } else { + returnvalue <- rep(NA_character_, length(atc_code)) + } + + progress <- progress_estimated(n = length(atc_code)) + + for (i in 1:length(atc_code)) { + + progress$tick()$print() + + atc_url <- sub('%s', atc_code[i], url, fixed = TRUE) + + if (property == "groups") { + tbl <- xml2::read_html(atc_url) %>% + rvest::html_node("#content") %>% + rvest::html_children() %>% + rvest::html_node("a") + + # get URLS of items + hrefs <- tbl %>% rvest::html_attr("href") + # get text of items + texts <- tbl %>% rvest::html_text() + # select only text items where URL like "code=" + texts <- texts[grepl("?code=", tolower(hrefs), fixed = TRUE)] + # last one is antibiotics, skip it + texts <- texts[1:length(texts) - 1] + returnvalue <- c(list(texts), returnvalue) + + } else { + tbl <- xml2::read_html(atc_url) %>% + rvest::html_nodes('table') %>% + rvest::html_table(header = TRUE) %>% + as.data.frame(stringsAsFactors = FALSE) + + # case insensitive column names + colnames(tbl) <- tolower(colnames(tbl)) %>% gsub('^atc.*', 'atc', .) + + if (length(tbl) == 0) { + warning('ATC not found: ', atc_code[i], '. Please check ', atc_url, '.', call. = FALSE) + returnvalue[i] <- NA + next + } + + if (property %in% c('atc', 'name')) { + # ATC and name are only in first row + returnvalue[i] <- tbl[1, property] + } else { + if (!'adm.r' %in% colnames(tbl) | is.na(tbl[1, 'adm.r'])) { + returnvalue[i] <- NA + next + } else { + for (j in 1:nrow(tbl)) { + if (tbl[j, 'adm.r'] == administration) { + returnvalue[i] <- tbl[j, property] + } + } + } + } + } + } + + if (property == "groups" & length(returnvalue) == 1) { + returnvalue <- returnvalue[[1]] + } + + returnvalue +} + +#' @rdname atc_online +#' @export +atc_online_groups <- function(atc_code, ...) { + atc_online_property(atc_code = atc_code, property = "groups", ...) +} + +#' @rdname atc_online +#' @export +atc_online_ddd <- function(atc_code, ...) { + atc_online_property(atc_code = atc_code, property = "ddd", ...) +} + diff --git a/R/ab_property.R b/R/atc_property.R similarity index 74% rename from R/ab_property.R rename to R/atc_property.R index 97412f17..36a98486 100755 --- a/R/ab_property.R +++ b/R/atc_property.R @@ -25,20 +25,20 @@ #' @param x a (vector of a) valid \code{\link{atc}} code or any text that can be coerced to a valid atc with \code{\link{as.atc}} #' @param property one of the column names of one of the \code{\link{antibiotics}} data set, like \code{"atc"} and \code{"official"} #' @param language language of the returned text, defaults to English (\code{"en"}) and can be set with \code{\link{getOption}("AMR_locale")}. Either one of \code{"en"} (English) or \code{"nl"} (Dutch). -#' @rdname ab_property -#' @return A vector of values. In case of \code{ab_tradenames}, if \code{x} is of length one, a vector will be returned. Otherwise a \code{\link{list}}, with \code{x} as names. +#' @rdname atc_property +#' @return A vector of values. In case of \code{atc_tradenames}, if \code{x} is of length one, a vector will be returned. Otherwise a \code{\link{list}}, with \code{x} as names. #' @export #' @importFrom dplyr %>% left_join pull #' @seealso \code{\link{antibiotics}} #' @inheritSection AMR Read more on our website! #' @examples -#' ab_atc("amcl") # J01CR02 -#' ab_name("amcl") # Amoxicillin and beta-lactamase inhibitor -#' ab_name("amcl", "nl") # Amoxicilline met enzymremmer -#' ab_trivial_nl("amcl") # Amoxicilline/clavulaanzuur -#' ab_certe("amcl") # amcl -#' ab_umcg("amcl") # AMCL -ab_property <- function(x, property = 'official') { +#' as.atc("amcl") # J01CR02 +#' atc_name("amcl") # Amoxicillin and beta-lactamase inhibitor +#' atc_name("amcl", "nl") # Amoxicilline met enzymremmer +#' atc_trivial_nl("amcl") # Amoxicilline/clavulaanzuur +#' atc_certe("amcl") # amcl +#' atc_umcg("amcl") # AMCL +atc_property <- function(x, property = 'official') { property <- property[1] if (!property %in% colnames(AMR::antibiotics)) { stop("invalid property: ", property, " - use a column name of the `antibiotics` data set") @@ -53,15 +53,9 @@ ab_property <- function(x, property = 'official') { ) } -#' @rdname ab_property +#' @rdname atc_property #' @export -ab_atc <- function(x) { - as.character(as.atc(x)) -} - -#' @rdname ab_property -#' @export -ab_official <- function(x, language = NULL) { +atc_official <- function(x, language = NULL) { if (is.null(language)) { language <- getOption("AMR_locale", default = "en")[1L] @@ -69,40 +63,40 @@ ab_official <- function(x, language = NULL) { language <- tolower(language[1]) } if (language %in% c("en", "")) { - ab_property(x, "official") + atc_property(x, "official") } else if (language == "nl") { - ab_property(x, "official_nl") + atc_property(x, "official_nl") } else { stop("Unsupported language: '", language, "' - use one of: 'en', 'nl'", call. = FALSE) } } -#' @rdname ab_property +#' @rdname atc_property #' @export -ab_name <- ab_official +atc_name <- atc_official -#' @rdname ab_property +#' @rdname atc_property #' @export -ab_trivial_nl <- function(x) { - ab_property(x, "trivial_nl") +atc_trivial_nl <- function(x) { + atc_property(x, "trivial_nl") } -#' @rdname ab_property +#' @rdname atc_property #' @export -ab_certe <- function(x) { - ab_property(x, "certe") +atc_certe <- function(x) { + atc_property(x, "certe") } -#' @rdname ab_property +#' @rdname atc_property #' @export -ab_umcg <- function(x) { - ab_property(x, "umcg") +atc_umcg <- function(x) { + atc_property(x, "umcg") } -#' @rdname ab_property +#' @rdname atc_property #' @export -ab_tradenames <- function(x) { - res <- ab_property(x, "trade_name") +atc_tradenames <- function(x) { + res <- atc_property(x, "trade_name") res <- strsplit(res, "|", fixed = TRUE) if (length(x) == 1) { res <- unlist(res) diff --git a/R/deprecated.R b/R/deprecated.R index a5559954..8c13028f 100755 --- a/R/deprecated.R +++ b/R/deprecated.R @@ -21,7 +21,7 @@ #' Deprecated functions #' -#' These functions are \link{Deprecated}. They will be removed in a future release. Using the functions will give a warning with the name of the function it has been replaced by. +#' These functions are so-called '\link{Deprecated}'. They will be removed in a future release. Using the functions will give a warning with the name of the function it has been replaced by (if there is one). #' @inheritSection AMR Read more on our website! #' @export #' @keywords internal @@ -53,3 +53,59 @@ guess_mo <- function(...) { .Deprecated(new = "as.mo", package = "AMR") as.mo(...) } + +#' @rdname AMR-deprecated +#' @export +ab_property <- function(...) { + .Deprecated(new = "atc_property", package = "AMR") + atc_property(...) +} + +#' @rdname AMR-deprecated +#' @export +ab_atc <- function(...) { + .Deprecated(new = "as.atc", package = "AMR") + as.atc(...) +} + +#' @rdname AMR-deprecated +#' @export +ab_official <- function(...) { + .Deprecated(new = "atc_official", package = "AMR") + atc_official(...) +} + +#' @rdname AMR-deprecated +#' @export +ab_name <- function(...) { + .Deprecated(new = "atc_name", package = "AMR") + atc_name(...) +} + +#' @rdname AMR-deprecated +#' @export +ab_trivial_nl <- function(...) { + .Deprecated(new = "atc_trivial_nl", package = "AMR") + atc_trivial_nl(...) +} + +#' @rdname AMR-deprecated +#' @export +ab_certe <- function(...) { + .Deprecated(new = "atc_certe", package = "AMR") + atc_certe(...) +} + +#' @rdname AMR-deprecated +#' @export +ab_umcg <- function(...) { + .Deprecated(new = "atc_umcg", package = "AMR") + atc_umcg(...) +} + +#' @rdname AMR-deprecated +#' @export +ab_tradenames <- function(...) { + .Deprecated(new = "atc_tradenames", package = "AMR") + atc_tradenames(...) +} diff --git a/R/zzz.R b/R/zzz.R index 585052ac..592756bc 100755 --- a/R/zzz.R +++ b/R/zzz.R @@ -25,7 +25,7 @@ #' @details #' This package was intended to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial properties by using evidence-based methods. #' -#' This package was created for academic research by PhD students of the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG). +#' This package was created for both academic research and routine analysis by PhD students of the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG). #' @section Read more on our website!: #' \if{html}{\figure{logo.png}{options: height=40px style=margin-bottom:5px} \cr} #' On our website \url{https://msberends.gitlab.io/AMR} you can find \href{https://msberends.gitlab.io/AMR/articles/AMR.html}{a omprehensive tutorial} about how to conduct AMR analysis and find \href{https://msberends.gitlab.io/AMR/reference}{the complete documentation of all functions}, which reads a lot easier than in R. diff --git a/_pkgdown.yml b/_pkgdown.yml index 8c169cd7..29f376b6 100644 --- a/_pkgdown.yml +++ b/_pkgdown.yml @@ -104,8 +104,8 @@ reference: - '`mdro`' - '`key_antibiotics`' - '`mo_property`' - - '`ab_property`' - '`atc_property`' + - '`atc_online_property`' - '`abname`' - '`age`' - '`age_groups`' @@ -146,6 +146,8 @@ reference: - '`like`' - '`mo_failures`' - '`mo_renamed`' + - '`ab_property`' + authors: Matthijs S. Berends: diff --git a/docs/articles/AMR.html b/docs/articles/AMR.html index 2929e674..34234277 100644 --- a/docs/articles/AMR.html +++ b/docs/articles/AMR.html @@ -178,7 +178,7 @@

How to conduct AMR analysis

Matthijs S. Berends

-

25 January 2019

+

26 January 2019

@@ -187,7 +187,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 RMarkdown. However, the methodology remains unchanged. This page was generated on 25 January 2019.

+

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 RMarkdown. However, the methodology remains unchanged. This page was generated on 26 January 2019.

Introduction

@@ -203,21 +203,21 @@ -2019-01-25 +2019-01-26 abcd Escherichia coli S S -2019-01-25 +2019-01-26 abcd Escherichia coli S R -2019-01-25 +2019-01-26 efgh Escherichia coli R @@ -229,11 +229,14 @@

Needed R packages

-

As with many uses in R, we need some additional packages for AMR analysis. The most important one is dplyr, which tremendously improves the way we work with data - it allows for a very natural way of writing syntaxes in R. Another important dependency is ggplot2. This package can be used to create beautiful plots in R.

+

As with many uses in R, we need some additional packages for AMR analysis. Our package works closely together with the tidyverse packages dplyr and ggplot2 by Dr Hadley Wickham. The tidyverse tremendously improves the way we conduct data science - it allows for a very natural way of writing syntaxes and creating beautiful plots in R.

Our AMR package depends on these packages and even extends their use and functions.

-
library(dplyr)   # the data science package
-library(AMR)     # this package, to simplify and automate AMR analysis
-library(ggplot2) # for appealing plots
+

@@ -275,18 +278,18 @@

Put everything together

-

Using the sample() function, we can randomly select items from all objects we defined earlier. To let our fake data reflect reality a bit, we will also approximately define the probabilities of bacteria and the antibiotic results with the prob parameter.

-
data <- data.frame(date = sample(dates, 5000, replace = TRUE),
-                   patient_id = sample(patients, 5000, replace = TRUE),
-                   hospital = sample(hospitals, 5000, replace = TRUE, prob = c(0.30, 0.35, 0.15, 0.20)),
-                   bacteria = sample(bacteria, 5000, replace = TRUE, prob = c(0.50, 0.25, 0.15, 0.10)),
-                   amox = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.60, 0.05, 0.35)),
-                   amcl = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.75, 0.10, 0.15)),
-                   cipr = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.80, 0.00, 0.20)),
-                   gent = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.92, 0.00, 0.08))
+
Using the sample() function, we can randomly select items from all objects we defined earlier. To let our fake data reflect reality a bit, we will also approximately define the probabilities of bacteria and the antibiotic results with the prob parameter.

+
data <- data.frame(date = sample(dates, 5000, replace = TRUE),
+                   patient_id = sample(patients, 5000, replace = TRUE),
+                   hospital = sample(hospitals, 5000, replace = TRUE, prob = c(0.30, 0.35, 0.15, 0.20)),
+                   bacteria = sample(bacteria, 5000, replace = TRUE, prob = c(0.50, 0.25, 0.15, 0.10)),
+                   amox = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.60, 0.05, 0.35)),
+                   amcl = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.75, 0.10, 0.15)),
+                   cipr = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.80, 0.00, 0.20)),
+                   gent = sample(ab_interpretations, 5000, replace = TRUE, prob = c(0.92, 0.00, 0.08))
                    )

-
Using the left_join() function from the dplyr package, we can ‘map’ the gender to the patient ID using the patients_table object we created earlier:

-
+
Using the left_join() function from the dplyr package, we can ‘map’ the gender to the patient ID using the patients_table object we created earlier:

+
 
The resulting data set contains 5,000 blood culture isolates. With the head() function we can preview the first 6 values of this data set:

 
head(data)

 
@@ -303,32 +306,32 @@
 
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
@@ -336,10 +339,10 @@
 
-
-
+
+
-
+
@@ -347,24 +350,24 @@
 
-
-
+
+
+
+
-
-
-
+
-
-
-
-
-
+
+
+
+
+
@@ -386,15 +389,15 @@
 # 
 #      Item    Count   Percent   Cum. Count   Cum. Percent
 # ---  -----  ------  --------  -----------  -------------
-# 1    M       2,653     53.1%        2,653          53.1%
-# 2    F       2,347     46.9%        5,000         100.0%
+# 1    M       2,593     51.9%        2,593          51.9%
+# 2    F       2,407     48.1%        5,000         100.0%
So, we can draw at least two conclusions immediately. From a data scientist perspective, the data looks clean: only values M and F. From a researcher perspective: there are slightly more men. Nothing we didn’t already know.

-
The data is already quite clean, but we still need to transform some variables. The bacteria column now consists of text, and we want to add more variables based on microbial IDs later on. So, we will transform this column to valid IDs. The mutate() function of the dplyr package makes this really easy:

+
The data is already quite clean, but we still need to transform some variables. The bacteria column now consists of text, and we want to add more variables based on microbial IDs later on. So, we will transform this column to valid IDs. The mutate() function of the dplyr package makes this really easy:
data <- data %>%
-  mutate(bacteria = as.mo(bacteria))

-
We also want to transform the antibiotics, because in real life data we don’t know if they are really clean. The as.rsi() function ensures reliability and reproducibility in these kind of variables. The mutate_at() will run the as.rsi() function on defined variables:

+  mutate(bacteria =as.mo(bacteria))
+
We also want to transform the antibiotics, because in real life data we don’t know if they are really clean. The as.rsi() function ensures reliability and reproducibility in these kind of variables. The mutate_at() will run the as.rsi() function on defined variables:
data <- data %>%
-  mutate_at(vars(amox:gent), as.rsi)

+  mutate_at(vars(amox:gent), as.rsi)
Finally, we will apply EUCAST rules on our antimicrobial results. In Europe, most medical microbiological laboratories already apply these rules. Our package features their latest insights on intrinsic resistance and exceptional phenotypes. Moreover, the eucast_rules() function can also apply additional rules, like forcing ampicillin = R when amoxicillin/clavulanic acid = R.
Because the amoxicillin (column amox) and amoxicillin/clavulanic acid (column amcl) in our data were generated randomly, some rows will undoubtedly contain amox = S and amcl = R, which is technically impossible. The eucast_rules() fixes this:

+# => EUCAST rules affected 1,860 out of 5,000 rows -> changed 1,018 test results.

 

 Adding new variables

 
Now that we have the microbial ID, we can add some taxonomic properties:

 
data <- data %>% 
-  mutate(gramstain = mo_gramstain(bacteria),
+  mutate(gramstain = mo_gramstain(bacteria),
          genus = mo_genus(bacteria),
          species = mo_species(bacteria))

 

@@ -458,14 +461,14 @@
 
 
This AMR package includes this methodology with the first_isolate() function. It adopts the episode of a year (can be changed by user) and it starts counting days after every selected isolate. This new variable can easily be added to our data:

 
-
So only 58.6% is suitable for resistance analysis! We can now filter on is with the filter() function, also from the dplyr package:

+# => Found 2,924 first isolates (58.5% of total)

+
So only 58.5% is suitable for resistance analysis! We can now filter on is with the filter() function, also from the dplyr package:

 
+  filter(first == TRUE)
For future use, the above two syntaxes can be shortened with the filter_first_isolate() function:

@@ -489,41 +492,30 @@
 
-
-
+
+
+
-
-
+
-
-
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
@@ -531,86 +523,97 @@
 
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
-
-
-
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
-
-
-
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-

 
 
2013-03-25O52012-01-02K9Hospital AEscherichia coliISSSM
2011-05-22Y3
 Hospital B
 Streptococcus pneumoniae
 S
 SRSF
2014-05-07W10Hospital AKlebsiella pneumoniaeRS
 S
 S
 F
 

 
2014-08-13L5Hospital DEscherichia coli2015-11-10F1Hospital CStaphylococcus aureus
 S
 S
 SM
 

 
2014-07-10Z22011-10-10X7
 Hospital DEscherichia coliStaphylococcus aureus
 R
 S
 SF
 

 
2014-09-18Z92017-11-10B3
 Hospital D
 Staphylococcus aureusR
 SR
 SSSFM
 

 
2015-04-27Q3Hospital CEscherichia coliS2014-11-09O5Hospital BKlebsiella pneumoniae
 S
 SR
 S
 F
 

 
  
 
 
 
 
 
 
 
 
 

 12010-03-08V62010-08-27Q10
 B_ESCHR_COLR
 SSSR
 S
 TRUE
 

 

 22011-02-03V62010-10-24Q10
 B_ESCHR_COLR
 S
 SRSS
 FALSE
 

 

 32011-12-31V6B_ESCHR_COLSISSTRUE
42012-10-20V62010-10-26Q10
 B_ESCHR_COL
 S
 SS
 FALSE
 
42011-12-25Q10B_ESCHR_COLRSSSTRUE

 

 52012-12-17V62012-05-04Q10
 B_ESCHR_COLII
 SSSSR
 FALSE
 

 

 62013-08-27V62012-05-18Q10B_ESCHR_COLSISSFALSE
72012-05-23Q10
 B_ESCHR_COLR
 SSSTRUE
72013-09-21V6B_ESCHR_COL
 I
 S
 SR
 FALSE
 

 

 82014-07-19V62012-06-18Q10
 B_ESCHR_COLRR
 SSSSR
 FALSE
 

 

 92014-07-24V62013-10-02Q10
 B_ESCHR_COLSS
 R
 STRUE
102013-10-22Q10B_ESCHR_COLSS
 S
 S
 FALSE
 
102014-11-23V6B_ESCHR_COLSSSSTRUE

 
 

-
Only 4 isolates are marked as ‘first’ according to CLSI guideline. But when reviewing the antibiogram, it is obvious that some isolates are absolutely different strains and show be included too. This is why we weigh isolates, based on their antibiogram. The key_antibiotics() function adds a vector with 18 key antibiotics: 6 broad spectrum ones, 6 small spectrum for Gram negatives and 6 small spectrum for Gram positives. These can be defined by the user.

+
Only 3 isolates are marked as ‘first’ according to CLSI guideline. But when reviewing the antibiogram, it is obvious that some isolates are absolutely different strains and show be included too. This is why we weigh isolates, based on their antibiogram. The key_antibiotics() function adds a vector with 18 key antibiotics: 6 broad spectrum ones, 6 small spectrum for Gram negatives and 6 small spectrum for Gram positives. These can be defined by the user.

 
If a column exists with a name like ‘key(…)ab’ the first_isolate() function will automatically use it and determine the first weighted isolates. Mind the NOTEs in below output:

 
+# => Found 4,414 first weighted isolates (88.3% of total)
@@ -627,68 +630,44 @@ - - + + + - - + - - + + - - + + - - + + - - - + + + - - - - - - - - - - - - - - - - - - - - - - - - - - + + @@ -698,67 +677,92 @@ + + + + + + + + + + + + + + + + + + + + + + + + - - + + + - - + - - + + + + - - - + - - + + + + + + + + + + + + + + - - - - - - - - - - - -
isolate
12010-03-08V62010-08-27Q10 B_ESCHR_COLR SSSR S TRUE TRUE
22011-02-03V62010-10-24Q10 B_ESCHR_COLR S SRSS FALSE TRUE
32011-12-31V62010-10-26Q10 B_ESCHR_COL SI S STRUETRUESFALSEFALSE
42012-10-20V6B_ESCHR_COLSSSSFALSEFALSE
52012-12-17V6B_ESCHR_COLSSSSFALSEFALSE
62013-08-27V62011-12-25Q10 B_ESCHR_COL R STRUE
52012-05-04Q10B_ESCHR_COLIISRFALSETRUE
62012-05-18Q10B_ESCHR_COLSISSFALSETRUE
72013-09-21V62012-05-23Q10 B_ESCHR_COLS I S SR FALSETRUEFALSE
82014-07-19V62012-06-18Q10 B_ESCHR_COLRR SSSSR FALSE TRUE
92014-07-24V62013-10-02Q10 B_ESCHR_COLSS R STRUETRUE
102013-10-22Q10B_ESCHR_COLSS S S FALSE TRUE
102014-11-23V6B_ESCHR_COLSSSSTRUETRUE
-

Instead of 4, now 8 isolates are flagged. In total, 88.4% of all isolates are marked ‘first weighted’ - 147% 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 3, now 8 isolates are flagged. In total, 88.3% of all isolates are marked ‘first weighted’ - 146.8% 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 4,422 isolates for analysis.

+

So we end up with 4,414 isolates for analysis.

We can remove unneeded columns:

+ select(-c(first, keyab))

Now our data looks like:

head(data_1st)
+ @@ -775,13 +779,14 @@ - - + + + - + @@ -790,56 +795,28 @@ - - - - - - - - - - - - - - - - - - - + + + + + - - - - - - - - - - - - - - - - - - + + + - - + + + - + @@ -850,15 +827,48 @@ - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + @@ -879,7 +889,7 @@ 
data_1st %>% freq(genus, species)

Frequency table of genus and species
Columns: 2
-Length: 4,422 (of which NA: 0 = 0.00%)
+Length: 4,414 (of which NA: 0 = 0.00%)
Unique: 4

Shortest: 16
Longest: 24

@@ -896,33 +906,33 @@ Longest: 24

- - - - + + + + - - - - + + + + - - - - + + + + - - - + + + @@ -932,11 +942,11 @@ Longest: 24

Resistance percentages

The functions portion_R, portion_RI, portion_I, portion_IS and portion_S can be used to determine the portion of a specific antimicrobial outcome. They can be used on their own:

-

Or can be used in conjuction with group_by() and summarise(), both from the dplyr package:

+# [1] 0.4857272 +

Or can be used in conjuction with group_by() and summarise(), both from the dplyr package:

data_1st %>% 
-  group_by(hospital) %>% 
-  summarise(amoxicillin = portion_IR(amox))
+ group_by(hospital) %>% + summarise(amoxicillin =portion_IR(amox))
date patient_id hospital
2013-03-25O522011-05-22Y3 Hospital B B_STRPTC_PNE S SRS R F Gram positiveTRUE
2014-05-07W10Hospital AB_KLBSL_PNERSSSFGram negativeKlebsiellapneumoniaeTRUE
2014-08-13L5Hospital DB_ESCHR_COL32015-11-10F1Hospital CB_STPHY_AUR S S S S MGram negativeEscherichiacoliTRUE
2014-07-10Z2Hospital DB_ESCHR_COLRSSSFGram negativeEscherichiacoliGram positiveStaphylococcusaureus TRUE
2014-09-18Z942011-10-10X7 Hospital D B_STPHY_AURSR S S STRUE
2015-04-27Q3Hospital C52017-11-10B3Hospital DB_STPHY_AURRSRSMGram positiveStaphylococcusaureusTRUE
62014-11-09O5Hospital BB_KLBSL_PNERSRSFGram negativeKlebsiellapneumoniaeTRUE
72013-01-26F4Hospital B B_ESCHR_COL S S S SFM Gram negative Escherichia coli
1 Escherichia coli2,18349.4%2,18349.4%2,15348.8%2,15348.8%
2 Staphylococcus aureus1,12025.3%3,30374.7%1,10725.1%3,26073.9%
3 Streptococcus pneumoniae66615.1%3,96989.8%67715.3%3,93789.2%
4 Klebsiella pneumoniae45310.2%4,42247710.8%4,414 100.0%
@@ -945,26 +955,26 @@ Longest: 24

- + - + - + - +
hospital
Hospital A0.49807840.4615385
Hospital B0.45163320.4961089
Hospital C0.47058820.4975767
Hospital D0.47678370.4942288
-

Of course it would be very convenient to know the number of isolates responsible for the percentages. For that purpose the n_rsi() can be used, which works exactly like n_distinct() from the dplyr package. It counts all isolates available for every group (i.e. values S, I or R):

+

Of course it would be very convenient to know the number of isolates responsible for the percentages. For that purpose the n_rsi() can be used, which works exactly like n_distinct() from the dplyr package. It counts all isolates available for every group (i.e. values S, I or R):

data_1st %>% 
-  group_by(hospital) %>% 
-  summarise(amoxicillin = portion_IR(amox),
+  group_by(hospital) %>% 
+  summarise(amoxicillin = portion_IR(amox),
             available = n_rsi(amox))
@@ -975,30 +985,30 @@ Longest: 24

- - + + - - + + - - + + - - + +
Hospital A0.498078413010.46153851300
Hospital B0.451633215920.49610891542
Hospital C0.47058826460.4975767619
Hospital D0.47678378830.4942288953

These functions can also be used to get the portion of multiple antibiotics, to calculate co-resistance very easily:

data_1st %>% 
-  group_by(genus) %>% 
-  summarise(amoxicillin = portion_S(amcl),
+  group_by(genus) %>% 
+  summarise(amoxicillin = portion_S(amcl),
             gentamicin = portion_S(gent),
             "amox + gent" = portion_S(amcl, gent))
@@ -1011,34 +1021,34 @@ Longest: 24

- - - + + + - - - + + + - - - + + + - + - +
Escherichia0.74988550.90792490.97755380.74454250.91732470.9804923
Klebsiella0.75055190.90066230.97130240.71698110.91194970.9769392
Staphylococcus0.74375000.91964290.97678570.77055100.91689250.9828365
Streptococcus0.73573570.7474151 0.00000000.73573570.7474151

To make a transition to the next part, let’s see how this difference could be plotted:

data_1st %>% 
-  group_by(genus) %>% 
-  summarise("1. Amoxicillin" = portion_S(amcl),
+  group_by(genus) %>% 
+  summarise("1. Amoxicillin" = portion_S(amcl),
             "2. Gentamicin" = portion_S(gent),
             "3. Amox + gent" = portion_S(amcl, gent)) %>% 
   tidyr::gather("Antibiotic", "S", -genus) %>%
@@ -1071,7 +1081,7 @@ Longest: 24

 
Omit the translate_ab = FALSE to have the antibiotic codes (amox, amcl, cipr, gent) translated to official WHO names (amoxicillin, amoxicillin and betalactamase inhibitor, ciprofloxacin, gentamicin).

 
If we group on e.g. the genus column and add some additional functions from our package, we can create this:

 
# group the data on `genus`
-ggplot(data_1st %>% group_by(genus)) + 
+ggplot(data_1st %>% group_by(genus)) + 
   # create bars with genus on x axis
   # it looks for variables with class `rsi`,
   # of which we have 4 (earlier created with `as.rsi`)
@@ -1093,7 +1103,7 @@ Longest: 24

 

 
To simplify this, we also created the ggplot_rsi() function, which combines almost all above functions:

 
data_1st %>% 
-  group_by(genus) %>%
+  group_by(genus) %>%
   ggplot_rsi(x = "genus",
              facet = "Antibiotic",
              breaks = 0:4 * 25,
@@ -1127,12 +1137,12 @@ Longest: 24

 
 
We can transform the data and apply the test in only a couple of lines:

 
septic_patients %>%
-  filter(hospital_id %in% c("A", "D")) %>% # filter on only hospitals A and D
-  select(hospital_id, fosf) %>%            # select the hospitals and fosfomycin
-  group_by(hospital_id) %>%                # group on the hospitals
+  filter(hospital_id %in% c("A", "D")) %>% # filter on only hospitals A and D
+  select(hospital_id, fosf) %>%            # select the hospitals and fosfomycin
+  group_by(hospital_id) %>%                # group on the hospitals
   count_df(combine_IR = TRUE) %>%          # count all isolates per group (hospital_id)
   tidyr::spread(hospital_id, Value) %>%    # transform output so A and D are columns
-  select(A, D) %>%                         # and select these only
+  select(A, D) %>%                         # and select these only
   as.matrix() %>%                          # transform to good old matrix for fisher.test()
   fisher.test()                            # do Fisher's Exact Test
 # 
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 c668b4fd83aea3071be3712f3d2cadaa5929936e..cfd432d957d2c8bb469f3d450d0d4622456c2c4d 100644
GIT binary patch
literal 31817
zcmeFa30#hAyFQ#{;SnlBWvILlQW}wzMyrsddDN)L5Y3u2E*@Hnq7jWEjhblEL`o_O
z4N7wwXjEyQ{>SxL@4JU@5AXhedw<`5f8Xx+uGd;T!+l@(d7bBR9>;NBZm6j!tYO^D
z$iTp`M)Bw&4F-l~(F_brPf~tiU|`Um(OZjOR@xjrVb8$8=}rDw;@>@D&cN^&2E{|a
zX*q`vw79qhmp+hPIG`AG@|R!#i1teUWr$LjRUhkixHd#b@Z@hV+>>Io4_PK;UgNjm
z7gFObEr@y3$@=Td3C5TwTf(;atULd!`a#-XP99u&qH5TGEYGETC(HVyM+qh;#m9h2OesQ%z(A1qEqo
z?z0mSl1}wMY@++j&z!l=!nkTx_Qghxnp3|ghK7Xb6nV_E6n`@DEV%F~8mEONj7_Okwo!G+7>TKb(PrYAi!uKed*=)ZM`p&B(y=@7}#uMe`FOf(9x2nTa{sj5_qI&ei9%
zd3LdJ^sPwsK;zT1)sfQtbvESz+*BGuNaVnQ+??;xSDE@+3tTCtA7Ty%Coacz*V<*y
ztoGxQzWn3shwUSmhnjO)t?xEee|%z)t37V6bngS*ftw
zt)*IrTITM#A)KhRn>TN2bl(Ul$zx5`(QtH}82@Bqk~J5sYpi(Dj_T9*Db)lqbf0UP
zR_LQgJ51DSExkGHjw&-RNmRG9%Sg5L@`SWwFxRx5tWrK(x^LD@%HUNOP*8XXiQ8Dp0>`Jo3;5tK|v+2W9H`Oii?X$lor(1
z*0RV+aaC7VCVfjkST`oB5)nGJS(uOSbLItIW&dl(l;*~l%xbo*7Qesme1^yT45y@H
zkbcAnF5a8v{(ejS1Pg9X+mf|Kvn|6FA=a(=F0&JZ+M*s4{xjqKJPT*TLqmC@VpRAR
zqSA$V`yM@e_N?U7RCb$3f0=Awq@F;}1*wm}a-=QRy%Xe9zQ1oJ^f^<$x=K!Tx62y)|g>VrM+U7&DW^IAA9MiSS{x`8{wcs>B#(K
z%N?q2h?^(+
znfg!9C>t9azq-CAwP<0c;?J;ro_6I__UCMC*)wnNA`+h(7hH~V8&$k~dFDWG_*iJs
z9JlSz5%VPawVg=r8d*P(`7TUscE|QOtnvBt=c%;8rfk>a0uCBy&YYnHM^NZ*T1n7KUgGy_Y|8Co6~AskuI828QUwfA}p1E#K$qM|SBw{*{4c
ztU7^2zI{vW6fJnguE|NBqE_?R+tv|qe#sjWyk-MiPFEis%wR*|~S>$<>BF>y?>+_I6(jL1hyh?0<@ZZ-qh9A)%mIaQ)=6!
zEy)(5NfXOCmMvTM@W`!-^6~@oKWb8Qd+q}jS++bMPxYMdFTS=4plZJTD)Ub6L0ivv
zz@3f;GAMO%k(c{AeT9XDP5@0&I<9ZA68~~jr3{yn_aca>R&
zH_oze$Zfn%H;_kFW}@Mga8CP`&if{ABZnyufQ`-j%goaI3Kj5~(Z_0Ay-xiVggx!@
z3%JT85$`%VM5P_}Wz$Z~1|a$HP$BNoqt%=CKI;1DU&6?A))H?#_^7T`kS}b%B_s7x
zfBh3Jmrp51Jj(Zj#P2@rGx-9qPLt6tuxpnSoW^b*Ue+mYzUJWTbIoK5zq-
zmRdNI*l7f?vrAZbIHOXCKevf{Zg{&^KtMoBPN&b)Y8gpUQHS2D2;uzi#a-oriwl!Q
zQO=z=W=E6Ra6>1H5(<_mNO1}GwgAR4PKe9}8*Vt|Fa7ON;IV=_EP>>3zKDp(
zQ$X1p0YG>Q^RvA@J%v-9z9MJdZrpqNXu{6%zPby*QH@C(SXo)w*mP`;a-5rx5(}7A
zIrq{juqPo^3W=_t>T6wZgZEj;<
zb7WpObE2rNt98PA-mMfXJGIr?)U*RF*5p{7JSDq2d6kG1&8BTSSTa8~u|euYqO}tbXOq1$G4t$VZ#$2Nem8Zx$2UZ!ftxB
zd$?%PBjIe0kU^FJ&1R~@TlZ05sEJ2zT3Q_Kd}h3o#W15^$$C{|*TKvHZ(FQ+!NN>Gl@=-O>T#BN#MuqF
z868WN_^E7GHeusAJj{Y0AC+P&Oz;L4xiUY_NxQH3pcf0;h$t1{*RSuX{QUhlcp{H-
zcxvnEi6hU{CFySUoEx$H{A^ds0j&4|`<|dd)4|V~CLYt~moHx)*%T8SZeN9tEc8=3p|oMqG{p#Jd#%iVPbfWHeLG6LtFZ=}W_{^D(|c
z$HHZ2BGxS_vn}J)Rf+HwE}WvRSGgIe*vmJls&4K5IIE@su7V=+W_e!NGfL_3Ab
z;n-j**5+nE?Ev_n*)+O#`w^|Kbwiosl!@09(7CFcs^oUrrkwy_&;S98ltEP&QMQZm7hZbEuJ+HrvY|g!8amz3>(XuJ)2?5;z!?z~-
z#S;}A7F+6WZQ^2juV~DE#(8%+e~(vq#{;Y5b|U##CKh-2mzrVYuBL*pv1%)Hmo<^5
zsfnF&j?Wd2KXR+@%?ireZSC=!r>CcX@pHcu6=g!d8!MAqeB|+~ydvfN#Tl9z0|cl19poDaFPo6z##s}wW}8i8^v1eG~Vj|;{*5NR75rJiGs`H
zAUT>qv|S$W6TMJB&}?5FA?0GHuC87#(S2#1f7#i$cWoD@d$%I*flRY`dgk5biGk^<
zFaGQsHUt%fR`~7a@>h+J7{?ne>yya`>StR?pL-uovZU&y+&g*>taZOJze`b35h>i1
z@&KGBf^7{oA4LgyT`bF2Gg3#iFUcoK2P?`5DIfGk?sV)@>tS%4BgPo^xNe
zA{sZ#bWr2WR>^C6Ic?D9fc1!!6|oF%4HO-L*;pJ
zy2CQSK~&m>)B;D~BBy3sh2ho$Zzj$eU}4$sFP7fun4k1qoNQfl5iQS+ELFT5m7Q?D
zKno7
zE5EXAl^jKOwy}D%sD+kcB$!b>{(z
z7#4ZBBMkXO6Y+xX-rmrf1DS!WqPTpAdUO_JBV}84AN2sHIT{!{u2N+ETyyoz`fhA)
z{y58R9HbwxYEuqp23fl9>=m7g2i{!wo$mw&YBpxo{)L_mBee6~zMyaM8?FlAR`R)^
z^Sv=e`zsjTW=oe&%1vx^Tv2-KX>7ba_etD0BlVe8%X2WJ!JKte(BdU)6=>1}ccu}X
z-ppHN+@`*l>}RuJ{+VjE^z`oPh29AXnea84Gs|{(?$Ga8tFCa3B_ksP_nl=@#$Jp^
zWwKv;8Vw7u^_GRn9e&b^t6jkXLvr97*OB7dDt-BqZA8Is@!~HX-dlxciI#KZ=Egl{
zC4Vemvw6U%S8M&xZ~IZfpNd|QO0(&>#{M`qb}$R{{FZ&^)H)qTY#+^T6BbVG3~qD&
za?5onH}3T7J7Hn2NH5mSIeVZPd{hz^j2nFM`%-xd$Y(BeW}RDKFnt_PHV?53ibHCy|MA}
z=Te13oiFyaElgy`Duoszo3Nh$Sm+M@W?>SlhjaVyD;}#vT*fB5H2B$J=EpZG&A_@K
zQ{J1Y`lA-OZ(j`}
z!p;Kqa^hKyitCqKVkD8H0*Q=Voj3maIkTSx+V@w?JdTc9U5EU?)x=E>G>+9l>;MCy
z6vDiDA8)!^jGO0dQ(G3~ACMe{V^!omD&^UQi}S-^Wuy-ra2Y;wH#}Sl2_O8sp#HOS
zq)~XR%s*ZK$J*^xVB&{4xMuIM5|Pm1Jw74_LTiah=g-~Gs{pE_YXU;7Ah?8~4^WUiwem7vWrO02l>$d!vs_^Ny
z#rZZ=SPNuEXhZnwYN@feWn8WU$Qc428!K9G?G_P1|Jde+?vkW`^e^I~qT?vnMPFll
z(Fc)-q}4UlP@PPF&{rX==vrJoav-H(;xn>!mX_&(RUCd2eeoH?T!0Bc3`s}d1zf|;
zZX~^s?U#y8tyYqXf0UYG6|jt|2i{GZ(N^x-wd<3i{X5Z5hMIS(5^Vq9ruT(o9|I;a
z9L$7_fuH!7OLlN`bGm(hDJssu#7nvaujdKz@w^jdO&4q!mU+$vdR?7=&BluN{O^do
z|9abD!|)AMf&d%zJE(~%-_nD4q@|_VdFNK{UrGK`7iXmz1QY8_71sB
z7FoIFo6WLjD{8^2UI0B1JUR{QJ#od)UTqij72C2Cr-OJRHDOzN7ujBB4nID6{sq6
z{^O%^RgclYRl@nZ8)7xGDMTNSHayqkma7mQGJ#
zKPZmQJwejHUh1w04mGqZPcP$YLQU3Gl?EH~fDn=8rn+;@?=yneJ8{Z6&yAG%%glVm
zesKaDm@TF!Np}In8wuqNWRxxFYLA})Z-V}Tr8xSxt8x^ch)WuvU!8zgi&qH`B$O+Q
zwOs0dlD!|<9d{4~jwHgV)n#@tJIZ~c@zm>^iYh8H18J{xQVb8^B^s{Mkw6tFQ_^_Q
zAYyE>6=mnXzXE7+{Pq#r`>q>|s6HHGR)&DL1fr;^-R5r`1MOx%CQ
zjyp)kzUynYK*V)IJ49nKOV^vu(*h5(2dr>+WvH-mzWCbHG!`zD0`!C+w9Q63OB)*-
z0T~Puxaw1kB%Qyv186MHq%KyxduNnsp$+nz)2Vrcpq)P5A~4a4T3Z0)ffL(YdLs^r
zX8@XzDgro8`j^O%li;xp5lbM9K-E^hdxr-MS-%C*Twwdf)xwG$u}o9gM)Oo8|PN%i0FwBPY>G5%Lzrp^7edqgEk451f4Ag{DTDfLn`n
zy^F=Pm00X8sPLoRm8sAB5}TWw6}ViwP=wlQrWWUVWr6-Jza#IjU{+C7TuBA1c@eG#
zG)bs+Xuv+mc*v{-yM-!BnAmk!^MM=bg*^qkGmM@wB&_hTk%XB^8=980J6$O@E$w@5
zZ)B5Y64*EPBAFlW<>e{m<>jF6Eo@EEy~$C4=5o5wa;%}Q=90?M(j^{(QcfAf7SIZ;
z4YT^4apFU@=fYU$C+Nr890%v!O^OdG@HXvNSfN5^KmayY31&ThQ!j
zbc2Ruqy|X{d;z-OxbNJ1^lQwL18GHb-NM~%#TCK)@`Tb8*7oQ^1L#nzj=Sm>OU*%k
z)z#LWJplm`kCq`(w{vWR(96Iw%nb6`Ngx-iW|?ebrF^yyVHS_n_72@1U&1x%q?{bDAr8eKk(
zWgW9#qZ9h@n`K|Pw=#wS&9llK4gab>K-PwI+%w^4`_0DAh*`u9!{dYh(~mjT*%kjdl!zekI_B9~=1@uV#v;jgCVqiZ94Zz1z}?Ei#>1ZHHLC?Jvi{Ct*T&?T-w4pPWP
z*x$#cf_A8jqsNCjilvhh6tsl(#hdH$SJaGbn~q|;%Sha<^32lvu!ry>mSQ|itX(HQ
zENXt>?1vUzjcfGWa_Hl2s=UWoSX+=uFA&pR*o7z$&{*a@vB3l3aZJ!E-{yzg_unEW
z#LaDvOIx#fAM&$2HZPJ~q&(9B5)O(|4&1cwO>GPNL1ROgIw}8Io=pNyQ0;H{8E?m`y>P8->9o4Vi6-E;wX4zEYuk?EkVcQl}~`5HkdqSDF(
zd34KP>7;@dLJRf-NcGKj|2d#UKa>PqwlnyDqyZ(ZyLikdSWxf+Eyxw6Pduh8O$Z-;
z;=~EhsaIPkY6<8pz!ITWra`-dEH{jdg&QK}DLjm$osMn2J|~60f3VG^gj9_hWwBtB
zvuK2&*zujn0H|a%w#vSSm7fDXn7ot=-ao{W)wh(0TEiUjDE;)dGqQ63E{6vJo&p9g
z*}Bb^rh})Kk?i+3H=D&QTQIWHF3razVWZ)K{iLrs*FH+deXoc}(bJB+;X+A7Sxcel
zPu+2FmK*Q)(vQ(u!I7l%Wb*;L)36Uw9w0>{*W-tXOT+MVVY`I1IbucX+*jfq(IN2=
znXut-3wCyPDnJ_GHy-1D!0XH-9-m`DAmPa(DJUv-52pT8eX&3r+zwwZybla&O0}(9
z+hOO*M`a|7Y*#4=)rFA?Zok=Mb`TZOFw>%r*uFf*5OCXQ@6o5!?nS{0HYB8CJU0>W
zPL~I;6yG}=c@HG3p)k6!b+1tC*k1^Y3YfbI6Dd{YtRSkrgtp97f>7_`ukzU&ohtCrKx>gzdre
zik3m&=X+jVJ#D6$xr(a!TzX|vm?|?9hwFNq4I4H{p(P`Y0}2!5
z&`a1xY(>FQQL@1INCMW_9#qs607`YM5G9&+r51SI)2`YNA?lQwVakre$pi@usB+2)qQ
z_$?w*cbBW53DBiM@;u|btgd}u{L96&^=k+ntR>OjfQYL0n0Sgz{&2ux#Cgt#KgGG{
z-dP_d(&&*sl#n=*PF6q${0CeoBn154;wDcG$WhX$pps)mhQ<5%NLW?)Zy0~l6FR`3TSbQDLsMdw_-n=BkK3z%e
zNjO;Uc62aAbUBz_UlEvZ#`IXL!vlo5pv53??$bKxvs({a=xZVhmo$Fx6&dKjfOd@?e7y+LB
z*R|BPxi>s_xRCI}6y>iY?-xJm^B}z`roiK_?l%ZwW?mU$UJ0(&P){$1U4GjGE6>aS
z7r7!}v1a1aGhwFhs=`noY`T_;ihFexNC&Q+kn84JFX=Mc#Ucl2JDl^yPvhGWM@Pp_
z8y~`4b5{xjShET0gW_BmwDwG@&0KfjpF8%#v+&k1tnIcq-d!UngAlc5ZDixBRf1pV
z)Ox6)VKIDFGQky()(r@rN?WpYd64wJOLT!0WrZ+z+?9cWf$QULd!YFaehz*&f>q9W
zF!R%~$RKqstsfwDyjj3`pHOKk^<|eOR)vBe8VRGHj9mq3?}1$0i|CojRZB?40JxTd
zs>@{FcAr$T4hW>XW(^x~8#ER)?V1S}&>6;uX8;t|-ofm)NC^iEq#A!NX$bp_jEu&Yzs2@Oc@`pv7PwBP43NaUEe=X@
zbaeFc6}R=|G_Edf_tMDqI)%L6;knc|z{khO7%+~W_fBMKckcGBSk95IH-Mn#KvVMe
zo(QmH6Zllf0A1bPq8A&!7kkH_2s=hGcn-;wI~G(n-ogf<{zFMYN^a3
ztgt*qQ8BoQX}#RJw!-9rYS@u)6rq
z%U>V3?kRl5Bsl;sNvNm_QjeoSD+nhcqvu-X^m6w(*)E9>7EjRN;ADMR`6+aG`RG$v
zikC7=-M({2UHdB0ta%eYE>XZrwgJGw6}yN6V*o1n$dT93&E0S}!BSQB*!ZQ@zRD^p
z9$z1L3*~kN@NL(n3+AE{Er^ke(N9VHxEy5^3y8tI2MS_H+QzHN)A3F
zWR0xsB8X`Y;Lnm9>$f8M&{i{TmC5%Rencac2T&RdS?6>kgIqs$i?&mselguwW^o5b
zCoqTIJv|Gc{NJMcMQkI9#i>R`-nlb^{it$puetCH2Z&!78T>tdJe+LvT+}U^se{oW
zG$23&Tza62#J7aF$jy?D7b&JCf2<`oV(m8NHNbkaM_{FIQMOn~Z$~oUfJP$y-r3Wq
z^XEn@IVCQE^+Up7FPbXF29=`_y~|wE5X%covL-MZ>R={xsf*XPpejBJRAHn-dOhD(
zrm9RA64ZPNJwc^yook1xw2${hEA}8uG4vz;rVgyX9EE6xC^nN?XHj55@XSwFdm1OY
z0eT?>TNHUBfr8|{kkf87_xyJeuoC%^~YEB#5t@c6LlYUMFwXfmXk_DW{(S(Ae;aim=lTL
zw=PbVfx9PDAb3s)EaajySO?I&uAp;C^Pv%pIF`Qj^*t#SV3GKBQ;@s$jE!5#n^}sX
zC;9
z770noSrC!U*e0E&z9erU7ZTsgjea&ZwpN6a>+>4ao&|7hE$OEeI)Bu|hewbi0hL><
z^FN>{+R4P&S*3;09mrn#U2(GW-#{LFjQE-a2?+4Gr9wmgvzU{$+m-@8yOJ+?a_pXP1z9MB`{6GCtOgcNL)i}Y(tL)7hj2Ktg7_5
zR%Z(u>f?8JQ)##F-`Ag$pzX#00T@l9U6X_k(;~J70E5EKjcetOa;(z$2yF=5=~K7q
zQPg&x(QEXy2o~@z#y_=WG+8rKlMQn-F3y)M1eI`G6;AgY>Y%M$FLCMXZQkQ<;;?fy*0BCP
zBvj<)p_Vm6XS3pw`P7uaT|hf_Ko?F7Vd#+|N;HB?t8n~?><(tm(O)fZk=5y84zw&-;EpDl!R9hgAZ
zk$yrV(BR;9>r04ZW8Z(FUVw(JJX!mSF1SL#aVRI`0``9yaCG;+)vgX#XYc*w)6YTi
z(=~Fa1C1CQ8Riiz*4p1xle4JU^3pCGOJ=x)?Z`2S8DMjZb@JCicT`fyPvN=IcX1QbE^s
z3dN{OO2LGlP89`qhwkO5_sRI)F@s7&!{&tz_K-vTxHPE
zXfPkY2gVS$H#<2T1z_Q>n`%X`>(OkD*iqzm(MOYyn2ofev3L+RWT26N3ZR3QG*kIT
zMpS6N+1h|%_hDBmji6htX{ZY>pU=mkNW0I0o
zuucXUXj!^^^+tp^kwM%;TbX~7*V~9rjV_S5VPTdU%+oZq2U|s+B>%@=^7+V@Mdl$c-RZ~K0vZ8-KH0gB_=T~P$H{X+_Cj|~
zV*x$jhBmRcyBk!QY|?y~S_RL~fD`@4d$RW5=2#tVnqvS@BDDnYONYp8blCpzrrH31CJM<+mY!Y%0CA`HgB@Js#G-@so+y@F@Yv=3w8-Rae2;Q;0g95fE(3}SZ=|@lg@@b8P`2tSVdgU5R!>-;miJ%
zJgbk76v-WbdSVcYVgeLtjkqIP4rEtXAXy9mS^#v+I)5@Z!pA@)gHw7HTDeT*VLT;f
zARm}_>zp#ad3?d#6MBm~C1WS}V={VeA3u6Tj3#jLPFuAV;M<09#~Rl_36p$PF`U(v
za?g$tGi;!8+XA?u3%r2qX8CGf?WbfsZ)SY9N@-wXLWy-K%k(F0r<3KTs?6tnRrEhF
zOz`*2U=V8|$>D+lfq`QlbE%s-4r&CnB|KfEi*+#XsPQFUv<=tkcdr19}
zo*(13!*>!p-WxE^&ZkB3SV#V9CihD@t$!vcS=#*Fz~WmK57#qm4n^`4m5}c-+F$(a
z9XNT+{ACw-rvuQckE6NU;X$H6sqmnW8RlGx
z)qcWQDR!`c5KFwz-@bi|I3gYbni_ah)WJn4@}$>7X8?oU2b9nNfjLN}jMM?NUdV&M
z=L2|M5-4Jc`7`u>rLQh&a=6ViFQt_3FbLX?>$#7V3;BNpq%sn;9n4giy&&EzR3{Hu
z8$wT)(>2~^043ZBAW%e}7T-F0P3V4u-(;5~Qp;~EI5+r~%28nb+PcT=5Tyg0Hg9Ad;={gO!zBJ-v^`+NVJ5m#+ft}HJx4wS#=n+dXviq@&u9EI8$mhzCv3}(s
z5*g~$DwPui-H2LXTf0EhiH%1KQDX3YM^DdHmmJ>R?`)H@xEkoRdamML#)M0ix@$p*CY?pL^
zI_Rbr6zZOJhw$mhq~KGE0L8+3K?|{+oi3AI*aN8-P3pe$A5T|>AAn1+66=K*&mg7X
zG7BNLgkzPV0t5kj;x>A##xa`=xtbf6szj}Xk9gGr@TCXP0~r`4@-;*!Zx$@~4|IgY
zRfBJv?n_GL(@q41fkH;aa3pQ=A&1-IVHSkQUZ6K?ipCS9mL-LXCKRca)G~l9MwR^#
zageK?=%vRX{__U20Bh$bz}fiYOW@T*dGsi}vDIU$gRuJK>EGX{I1q?IssumXYrx&1zDu4arSPThg
z)E_{T2>NJRyCI|VfqkrBvBpyJe1=ywl{rVATgqnka0`}1@SB_*k8np+7~vwD_QGkwQcP%9YxNr;
zB}uufIAq+MaclwRY(@b2$y30FYrd|`AA-2L&O#n%{;jj&wnqxfcdABm$cck|8qJ&>
zY!bV8KK>IXzV}S_A~my5rri5zMxXnrNX36+GH3#>x^oR_9mwmK(R&nNJxYz*wvh{(6|2W(pu@H_zD3t#7-sgC6IEd@9UPA$MTq0#^{xUIjy
zll~E=WyIG5Jl(_jvpv9KZ^8mVFazN@J!F#p@t&Zi3s0*tlmn{~_*<7PAjw0lGwz9;
zz0Q*5ctG*xDq}D+8ni-dr=NAs7tk1V1>7^7@Ni5UOTbA>OaPX7O57uJM7ghhVjyPi
zilU5-MMRfntJs1nJioc5_PpW8Q>5Jp)>IKGEgn!s<5y%L_f
z$65(w#;SYLu)Uu=)wwe$f89JL^vBs&{F;F3RTz^0Ky?${FRo@Rp#SVE=9XXrZiF9U
zv><5X&Fv;~>KlmeDC^-yF@?TAZ5QY))e4$~kQ69^$~QOa%R$7PL89$NTMvBKYZ(Q3
z0692DAqB0+FyYwXvcVw~mw<+kqa^RSs6Zw6lV61Tj|Z2E115vH}(%E3~hnnF7yVmow=^~|T|;c6YC
zDkI?QMIt4cR>C>lC@YZ7qNehMDhb%e^GrY#A%!W>U
ztLm|1U^v=A9pVfYDJ~eBKdl;iMRFNN&5AmG_z4q+#6)9(Mr@1}f@d{{94C%)m2Fyw
zX^Xd$yFY92v}4VqIdVaGAbl2r-vLC)MWO(ZNX1h?=oKN7>FGs!Cu#rJh&8KCeGCye
zF$y-*n}x{Ff+{vImaN#ZyhR|`mmEbgic+bQs0AL(DiN$3pandZE+FD{lXNV>lHQ0*
zp|KEWIsVWHmv&=CCa6c*(Kp*s_+?Pf(H!cHT3vjHkvxY=!EBWE2RJ}h2nT}(q5hD1geHOs3)q>G4U;K07NXX=bwy2(
z#81$66#O?xyUO2}uHeEwzyw45=m4Z-8j=_|P?v>=J_2uLVweyvl^sJ>yu56_@YPGw
zzT*$AE&q6Lb^rknkANef0{BKdG`hsQgg7d~*OiFq$WsW*0c!??OUG*I$*!t8u*{@~
zgo=e!eBr|fxJTwoC{z%E@R}^n7AkXH
zfej-BA;2u@`$__pL9d2L9y)r7j)WK-*+@r^HYFZW+ZdMUIlHKc6-6f
z5&IBvZr~O(%5>Xk=LJDalm)?lp^FMxDLeR%Tw7tzV(ydATYKy7&Z51!4}@cX~z1XSiUhLdY$#wwCyX!
zkCow`j&=WD-V}Z2UUKF$%aKMo*4OpfLJr;&r)C>khmA_(zo!MVxg3uF9{tAmOkDDJ
zwLLzD*VsS!2@@Ur{{78z4f!ti|LlVgFK}(anlsSj|8M3MI=OSOYt!is$OdLUrDpyM
z)ib1v3>dC$w59(kt0t_SpvVpD3%ocFg%h3YZzpB^iy!tMIM?Z4xBULsG^qdlzW?V^
z$v*r$Mg;%)<1miR7H|IMv9D4!JudQMy%pQt6aNltpgjA6azg901zfj}^ObYX1
z-yjxZm@t{d+r1E|lJ8)sAjd}uR>?q&0p}T7p+iEnNjsNG9Bi}`;GX$u7-GS2Lth{r
z32_~RhH@eRD9Q;SinLb%`|HN=`wT
zpE-S+=rDh_76|NVAS7jIm;kQCy$~3Xb=gxH(Nsg2NPzj)?Bxz~@>ZFN9
z?+k=83n5AKO};F08(xR@*#n9Wyac<6-#wjJ^I%-U034irxtc;JGIr431IyL^GTK^B
zh>@VP-D2%`K`>G};vf1Q1GKb+XfX;Tj`>FbhE?|_q4O|P(UU(0o^fen#`3cigK@Ao
zSf^{V@d62fZBOP}V@A;#TxXGR9Jrh6j>qB(_H_MH`-{pT*g(@v0n_uC%%V?_r=XEP
zHg`WbcpUCIRB+WuscEtW;qj<&Wf2f-gDZfo{(0;ZB;K|$_2(3I+p
z8vHJDK8P9SHBcyRRm$>HW0T~YwCKdiQ>&(1l2LUaS>oWv?CG(W+`@Wk
z?ZB-<4dhU?PcYEMH|Zqq4=&eNGB`0_>j5Ya=-%C
zJW96MpO*x$8MNDF)e1NIg%>ck!*=03$X+;)Bhdt)%d-#kEukM7L1tdytc!j8m_#Mw
zpA0X;-P{P$tH@1f6&75LE2zzDJC{HEs0HS2KZJ_F{ZA?j78>&~--;H-Q?ZUajRBw<
z1+$x>%@c%v2z_QB&}<<#6B@Sy@a=$R+J&*A=RbBu!F2vI6YKyvOzsaOKBM5u(@$cb
zBu}*ZrH?;JqO|c`9G*-u({gT5^v&O<<*e3q_^GCjbNt4`DaF3$%Gh17e5l?ODi6NC3AeH8$-tk~SMJr!h!KB7Av8l|1vX6mrMjrcz)o;a`UOYo%EDb%WIl{G+5jE7f=zxLls*!1qMu5d6mpurWT
zE@bh-MjXmQoY1~)7w{yaSK~=M#8xER7ds_tcvA{UMHo+zegxenpqY?kV*rW@d+uL=
zFp^e!p4hwrNu4lDXfkmJ=Sv{AjAO{TXbg@)kB}O5IPKr=q0*r3?;AeJ0dz}3gg&x+
z?QNb}sShk3waF*OFopM7A2JNd5d_I0aJnv#`7L=0U=`nQlLY;6#$n~r99eycDMbuK
zddz%7k>WiCHjm+np*1ri8)SrPm!93d4l}iTWT}ZW#pJO@{f0N+Y9M
z0MP^=5V$oNHeX3>OA;0@;x#{i&N$RR-AMzBq}
z#F2!gsi{d)Lvsk8w>JxB(ujfZijs=5GA9N&DG#8Bz*yx00*JIFJdw^ZfL_?GK;)tp
zwK=fL*=^0DXEA&1c?xwOL>q9MM5V{B5kXIamEpiqc8g=Oi-9=Naq1>^ykI9^6-06*
zB)X{!`38&;EM@)x>fu-(0_bdiuH7TU6&zF=(m0u)xu!aX;pgrPo1h(j&`l>ETd;$r
zLz~ErTLrc4AzV6x51lsoACU7OIiU0ZM?j7**kJ|VA4q@<)TpN5-zm{*t
zFT+7=px|^r#r*k0_zUxuxlM;(R>{9mmmnRUZ)wHpx<>Pi`j0xfcHJ36#g3=@kHsJz
zt1VZ5{Ki*q&7n|6;h4PwS8+5&y04Av)5(*))OKD@D{miy;u_wP{#|DI!P|39)zbQ6*#zq6y(kAZf5
z3nCLP2NZEDfO3o@h`=A3{w;LmYj6m2&#y^}A+>=!;Ux9hKOnpOw2
z2g@v^|12K-2T>AG&*Ula2@@c
zmfq3CYQp*dCJByQ?kJ}%I_l{1U~{$cy&#aU6eJH#@`e(dy`7!ZK5xbZBo(?O5D{Ti
z@BaJ8P#_Z=vljk3At(IxcEOQ}C6XG`YsAsO;RG#$iQRPdl8p-_XlfA40;==YBoY4u
zV9cs47=heCgdT1bs_=*1LnqZ3vn1f=5m_M)PSHO=?s*ea$H1?LuW5lg#%r$A$$GG5
z^)0_^pj%q!>4#Hi#BV96cWQ2IxKlB#sfBNrqkz45`zcbqXwm$IdXS4!1~H&U&yh6)
zIFh4)19mT*02&aYrGYo3uNgghW%0mladZ}qg?MxFx0@5`6-Edu4NjPU`mzroZQ#my
zdtbC4_#DFMN-B`}YM36N#lW}F2JP1_j`+9$N{iNvvANR&-i3{SPH~(01$-_UQ36iE
zZISbbKn7Z3KcUfjjtg7o6uKk)(nrOgn%U>;F23T8Ci>`*Tv`J!st^6;AP?N2E~dTr@r-QVidV>9y;yi2oaErJG5luZ+
z5e8Tgj65>q{0`m^@@snq%lWWYUUo5tCNI}gQ`-O7rfZ|tk$dH;&pTEQt&8{#30<2P
ze!3~C?RXsnFXMj$Mu>113_hc=tzuAuI!
zd||)|HK@NWD|ok%<73c2;y^n{vgDu;#NEeFNIfiacvdFh;xmR;1r-u00Ao=r$vEkE
zjJOH(4;|bE{B8vIBo0*joau_(SNU9$VQu?=U|7DaBx6iJ-+2UvO?e9F>m*oTPB^VN
z)`s)VIpr`6+5)Mf;<>Qe4C%(;uBNf*XI;Dp%uIGiNMN7{8Xy)qVhzA(WPQt$KmN)E
z(n;2T?eN*)iswtU_F)eDqlpSZ&zAnnhEn7U0!MR1h*BOFDACPpUiUx
z(^2_+RV*2wfx_)mAFzuDo52;k)d~^>+`?pRVp>tG*0_`$w1P28C{_A|L4u1GE@62J
zoSd*)IT67HM&?9VdGVYpBRtT|VAC#q+Sa#CYnn;IYY<299Cm%|PYcB&b=wSz9L6l+Bk*S8wA(_Qrm#MtXC<`|6Yu4-)?8Yv`L=qUyshpv
zXn_K}IP<9p)zKdDX@U;7o3ABWj@V-bV!jQcG2QZs{2c*o7tkxd3?<@b$*+?6nrSTw
zZVXrW#d+X?gOmz>9TxFO9NdK#$+fi{$!#BOr>NW*62xIrT!aOO1s>;A
zwYVu&mY2JrZj!+|Bp(oG?WkljaB!^ul+c4jH4VxIOB0I6QGgDRyq74jplb4KU=`q@
z?Z#)r_)f<3QD86t(a>pgGxlTp6(zs2FT`?A&ME|*hfl9X^2JNZ;3kyOG(p#Ud*K-g
zz_hsw>IZUJEqYh=l1mSHxi`z<6j9=z!9C>RHSpkoIU(m#Av((?-jrE-~m&!ne4rHG$1E*_BJ2mt&qHHAca#6O7U&epz!Lk`9U|4
zxo}t)Ryii$u4xC0C=Np*yh?30uhzJnodzXIEUBWFpD%$sG-zri1qXwum~}9L?H_ix
z&mi>B#1kXW^iKYY+~*tEwWszOY-!GJXGuIf_s5PPjc)6a8rhMLCXpL`?GA0o=!?F)
zSP>4M`!Ae8};ze+w|P~zf8uWqe2(eYy$VvS~+Lvk+6;v
z;i$bPB?+3x%~Y%iS$4ZpU1b^+ta{sk%JE4J|GYp%Z#)QO9zQ`%xII-g+W5K5*!m6
zg6~4y;JY58t`QC}hZT?8jSwo>5uko25mE%z#E8IK?Sb=4S^;Plw;sWPzpp`vhTplf
zRxVyEL1S&rEwkXS$UK-0Bq^?BGK5UH0|6193yd#!;bZ=a5$yn`i?@CeGB_LQ(gTvb
z5P1{h5zze!BL$E}X4ye@jhFq+aLA
zUEguzr5lPja$IEhWek>Vr2FrIW{Y8@pM-6noWe{nta{+>kQMLD_Q4(i0PT*r=0d%@p`@*;p@Hpd
zkLqfLr-H)k!j3r%ay~1(0XfjP@$`jqZjpzGK(EE(Vj4+gBo*gK1LDKcrB5-%VIIWDRNT
zZWEEoScsAxp1Osc@_=WwF106k@>tcCW9g@+$!Nj~&P!^oAqXs-Ca~e-rix%JHJ}78
zI~A@HB=;NE(=bxzl|B+k#kN_=6Mow|LsR8IH!-weRJQX|42KE#w-@!i?R(jMOUbo5
zpDZDM1|mYBK!cto)^CKmBld51!R4Z8EO2i2q3&a~9WaUnq!xUyX~#7h!dr@+3?RI7
zfji8x#MQlqIUaIeA^b5x1uHlsIZB(+=
z)Nqu412+exv}t|Dty75`Bz4q4enasg>2Lx56`)9R<^`0L^pJy%5;#tMW@2y){n$aA
zh)1+TWC%n~`ghqCzS=QpDXYYOgL76ca=5|Q&Mo-S(raojx)o5KP&Y6MGKrer0^~?6
zBIHCx@YifIx*ytJKB?=#q{is}h3@ldXtLo@KRzdU8KPk-@*w6oaE+DhnO($bh@$g7
zC~V{Azf2zF{aMj}_+Kx2w#IvRZq}30^;n+JihBpz*52_a(e?{dg$6)#h=0eA$$n%{^b^KRtKR{S4v4MB%k
zH7y~rq3F;U06NS8H>``~Klr7796WgC7a@5VNDKk~Zi%(tb>(zUF>-9|CU1pMS_l=k
zm|dgTX}7xf^e=Z}!j}^V1~JzDX+$D+QG_-iqC|G&s?VQUM{fvwgHl*m^tS{m|8mn<
z=EYak{2IRCit6Cunj)>Lx7WP$eR6Y>7#cP&Sz#^=977b(n}J1`AcBbzLu(z#lST9s
zeu%*qJQHkZ80Z+n-5`wxV?~`&t$cH0uvYIPrDp-nQo$LO=Nb8MR-Q!_foDkqMkE#S
z4qCJ9kgvm2eslgdSvz=fzqJ)D!f1}84O@{|^0y23XeO^S!oep{?e1lhgUjK^YBTA$
zw)L+&5Puef%=#`$wg|qUWhTnuK?`@00U8k+2^=sg*mbLVX`1u5Qoh!
zjxGeT6kFvD?ne)UPOfXq?EVpV*P-9lg6ti>30XABY|ffkskESE8+;ggE^5JzBOfLceAyba2WTBL-z)4ettq|LH
zxno^*5^=Z{PLOSdvtKrfoH?E@VM3M#`v(K7aPU;k)|s1m32o~O(o|{0z956t026Wx
zb;3F~{4mVdcKXI|0}#vur!xPR>{ny+7*lB_>-FH%#2hrv``Nx>LyX>Vdwt(-b)`}b
za2&{;maupt9%c~roA+PLDfQH`=T<2Oc2_B!82M7xTS!kb~|{
zs;H{!kJiLd67GXW@IFFWEOD}%6PJ#LAgIxpc$
zsWjyE|JB>MhxMGMVfqXq?)3GYE)YeBQqh%se?n3j&z!8K2OcH*Z#lPwg1fgA^QHlzxREf`?=ryzF!IV
zpb%XkGlpR*{J)xHZy8gV9Yq&lXYa)H@B_mS(Hbc9#yh1pid}}9fDuKjZ_o))zfXDr
zON$3;VVUYAZsUdW<#qu7Xn+VNllrtTwp{QWW`YhSr?sU%NsT}^V`Fh|@1i^C9M2&)
zQDmHy^%y4H?iDx2?84~6ZvBH`T8|oQjZ)EAF&@{u)tC>tW)ZvW{I9WN?uW!5m^&xK
z&XjLqfLHN^sH!gavhHsEu27<8Nqgo@75nJtXcNm)+fmEHRx#H
zzvZRz!0ikd6gCc>>AklNlHT&q*>s;QKKbZfW#ON(0s0NCoa9lK!*sZvSIX!}+{H}*
zF+L@|E>$-%Jensx4jziS7w?}bag;P^Eu%LeRo0#GDI6U#3%utQ;Jl2XP;zV4eUz~F
z`G)6uyVV&i_C@cF*L5kK96#7g=eme(t!KhEommTHoz87#sI{3Zu`=eB*YV&OlZGJT
z7mVTW)-dsCT!~+RT^2WS3=K#J?*PkAHBV&WR)$HTUCNm!k#$
zQw|Gm--hC1vhAQ>%cUEXdq%HeHG3v>qoDTZQ$lXmck$)Lq|=Ia0*Or%q7z@*kF`dM
zqkYbic>{n*E~c*fp{0~C-~C}31~UQWD-PB4EUspsK^OgTC>GQkr@BY*-RW-;F*@~Mjx4aPuwWL*I7NmA^Uocs|?cVZ3NLwXH`O$$hN^W{tEG`d4O?5c=(PiwVvWj
zgdQ?I@uluva5v);9+20}p-#{NyfpSngG_u+mmB`)D;{2*VMSZJa5V|%3aP)@6d@ZevrG74bWnUXq^;zWjbO
zvn#a_!|kCU9eYIDOavmQ)hhNzU~40sxUzMwP?*CXPvah*!}Ois4>SbfA;aL?vv+Sr
zxgymg_zozU@l^5_83e)eeiVzugoJ&)^%FR?;m0Z>x}4eU58U(|_v|2Nej^)>kb%2`
z#rbz~LHb9Hs%UEx@sS61}s$Th$`HEJvUL9D%!f8nzfSXM=#
zF&oWFgJx$5hoe)S;uA)gV>78(`8)Sqr%|>L)bj>X4$+hC54ug7hp7mh1T7Z+U*d#(
zZV=u}lIfV>TEIfufe(~nKjLOs;egP;pOLfy9M0>%MBx*SB#%S1I|z7!3Z*rNZ@GB=
zI1X-r_$-=8PJuww40{2}{*|9;lrk3eF&euvVM9b)Cb@3fRwxG>l0@JriAN)jSRUQk
zfRKzMWs?{_yjie2B1PRHMU!dglKoKB47S~`%{-Hl8zot+P^Lz~{O9@3N+5yRl~A#j
zIa+iC$l%!>GS6TJcXzw(7pebD0O|PIjaRFb*?TGUm`s7}5C;3SCFFRV?H#5_|8Za|
zO(Q(t6ZejvK4L`qcs)B4#(8gS(c+vGz)hEic=Mp{4M7brXJHS|Iv|u&#>J)bdM$bw=yXxLYF1KE$%lf4OHT0}(!E&Awdld&$f5
zpeA-*Kn5vFm$a{u*s!8DK86i1tU}QV-*a2bicM9EzOfXhLC&`6tP389Oa1v403B{w
ztBil6OHHGyftp$#(%$4|u>GADp&a6UlBG6VbWLYq_U
zHe|fVALhHl?d0k&)RiT(ay56KS1BK5gAVx93Sl3+Xj2$14{&TJAXX|8W#9t(PIl-5
zU<0ztQ_neSYJW;lx3(20AoA*U
zO=rFF$AwS#+K6I*ub%S*3J`#j`#~i*lBs!eDJluSD>fD4wmsQ}TCa=ksX=
zb-XwiGK#UoEc
z09V?)
z4E$&;{{zN8m3vNw`h?6i?ycK*#;enKnJS@2B}Ny|9E(&c(BJur4QHm_==|Ek!_%`K
z^hv1EW3U}i#Xfe`RIIHWU0JXz@UxKg?_T+#GTV&nO)vdp2W>zA7BNk)ndeNZGSJp7
zldXO&6<%KSlSyrhNIv_6RdeUVH0wvfr4zo&PO=+$*F|IG*YiexGT`vfrj6>;Z11F<
z?lo%DCX*e(NAEVO>rB4+$Gl-{nkGX&eExmH*qWxaR5fLSe#bNAS>~X;x;oztE6pQ*dU92z1dh@XF=1fsKfCPqrMM~>g;e`-7DqSe}<-vEo?YJva&

literal 31807
zcmeFa2UL{XmNkmUqm-ynqF@5FR0N481c_RRD5wO<(S!ksN{)s?MFo_ol2IgQ0m+IY
z0s@L43IZaasAQ20_2$OY{kr?zz8(HM{_(%}nsIw@np5?Kz1LoAt~ux4$6Ni7@?y4C
zY%DA+i}&x_qshWDFN%d_?h(o#EG#VA6M9SVYk|!^{qrm=yjRKp&GG9RG-F{|%d&sZ
zZY`&5XS$p_*-KkR$(aVVeIF`Mpl<$sGLJ6LDcKeqEED!-`*2=Rer-
zYwggVJovS%bAc3oU3j_F2ESNt3w$EK{{9#15?xucpFcbp%IUqw-tW@&1l=?f7Z(@G
z(Q;qj0*BtjzV=;RRh5-&wC5dz)uEEQqk2(8v2k&YNxI^Ubj#+PmI6oJQJX0LvSS%9
zd{$qjvazw{SbWfIc@|yj@40X;t3TI&_sRbCE2$>+%?WILus`7Bt2ZtCRdp{fuPt$hp{s?ywXxSd1^lSC~%-3k^C=1*pmAeT{J4Vf9gOMrYo<
zdBmO_soDu!md*9(F<8VRQu`L`sv;92dS+ul#*ri53ATH>XyLa#MR|fD`
zBz2|fe7w5G!>KpBF<6XQt}t`kt-?#N@+J9+@6*_&z5n1r%a4z3?fw2pRG*&smE=lM
z_o}O_n_9st=(lS6dZm0-b+u2~u~<(t%hyr6DeY~{8Aq=~64nw%y+%)O@7qxM_+DhB
zX|#D6ufzMJ<$SI^eEoXr>gu<*XijU+{?I92US90g(K;%sstaiwIK7=@O!+zC*~-n1V%)dq?r^^OKUKO
z{jJ6=&n~KP-zf8E^7xc@c-&Oh7_vV4X;)%+TKsnNdO?Qzg!QEq!`v&()i!}~f6Z>q
z?CjDQ912tEd&d3wRp}IEKIaqvJPwPbYIc4Nqn56=F4UOv`G~lZY;)Vjc%5~s_MZZ*
ziE8sIZ0Grro)2ZJ(uh5*gr1%rfk?Nlc>;%J`PL|SOjQO6tH};Nf0tsY8~@jhuN>UF
z#&c>AAu;m3At`Zi=Gf}&Iq^2qf6_|p(d=yk%EDHgZrWkl
z)ERIyEavzz$Da4?cl69-JLlLBI=TJ)Qr#fO9q*=8{@kiLr+Q09y*&Prd)YFnjXSRM
zEM3TIl4AUn!~>7)zh3@-GozUp*mJP3n>fCTUwrjyi=&2>JqNzK3wbhKt+Sp*{l1gZ
zJY4JF=E|O@b9M#A^ENO2Q)U?wD&rrNq5kG0{)4mie_~Mn3wI3BX+gp=Pg&2+e4Kw(
zeZdX~_t<&arZM_HmoltpH2?Kz@3EqW$YX6Ga-IP22iDO(>-EQ@NY
z_qDXU9Bwy}j
z@Gd)M|Gj@Fh2n+jJ#5=f)g15`oSE!zb02MSP2T1)HHLDig~g7dB@Ou_Y8)AHD#Y2^$f$;
zcKu4so1?sY_fwRXbLY?3%Km)yBefv)=(8(^ITquDe?B<
z!RF)RJs+|noxj|z5-UiKKT&;8g2sqeyc%KuPM=?>G2w9B)-R+sXyx52U@b58TG*JZ
z|2D_6+0eQu8&{?=UcGuH)AyKQCt;oBvF`hRm8T6I)n=yqJ=G#)$HzMSO2$6lxMA+`
zt3j8>aOiCcN+qk^#g{yAY<%9F@))HXbPB;;gOV!jJ3DXnwG>>Xa*ODxN4K&qTnI!Q
z8XOGhmi}2)!CzRaC!0LYZJqO`8Xq3p9;ZYb=34Pr0yRjVse91*f~RYAs7n0QsZ$&)
zw*t3rRPq`hA78!0;$>x}%hzznlhyaKU4DJXGvgITzP*h*UhX@oK86w2Cs{B
z8>+arWW7p=0ub`zRoexbx1{2E@X>!SOZDEmckeq%R1%V(Ud{rwl`B^Q`Ryz%VNUlC
zIZEKQ01kxH3Ny!=#o85=;~zYDU}WE*4VY}zl5g+W+w==>Ovd_KTx4Hetm?NcgQ1}z
zf9vePTmJr8LiW5owq
zx-`zuMQ+u2(J(bNb#CP6_}9qVaG6oep~84)fU1#sb55_ZV@ps_Py>eV#D3gw`I1)fM8mnp
zN*&|K){7aVAIx}P+iLkF&a^i83dr(2;BdBdDpj;(wrcQs+&nCLEJJU|v=D6s;y%I+~
zxWHms7#5#va=J}>sbibF3c^An6RJ>hd+7g}7sp%P*lf&nEjz*3hN;
z9(Sl%i{GmUL{}Bd>-56xkF{T2
z^UP)sx#8D}haVo$FLWA2$_T!D_d}8EsH%9;_B>{HuF8BKfiN5TN_(+_p3Hzl(r4Z!
z>woz0Aym?utQ3-iNBcc-FWnka*e@jNBFj?gStqNl^16aEe-L!<*R@{RSEN={8nKGW
zWb<2uPsVRC@0-N}EL~b}bT%qs71c*8fpA)4zF@U{P%w2UZ>J$
zyC-fnUJ;OWdRg@~%B@tf*XgBPdzam(HA8wL?;hKBQ0V{`Kq%}3U_i1v7H~9-&J_|)
z3U<3drH%YA#gmlYt4IZfku{1}+2vRqU)9tcYV9*zDBQH)ETOJu=dIb$XT5=1&gCu#
zh>p^v(&L6yjkb33OQ^L_Ms20`Pvw_0RKmaUECUzz@KCtHaQVlNA3di!)&#w0o{0;0
zXgU*@VvwE4IhkxE;mPRXAWYtq-AA#?fet9NMLbfQ^@pZ@*6RK`=qEqXjq+sm@o`3z
zOhWKKKZ94y=wWbJ4S-P8Qsf-1hW@h;Vq?u_f3#f%8tQhk`V*osYNQ#t1D{w%ADbC1
zX+tTIcb{NTK^km1`wsbHl@=NjRF+;z5M1Ciu298_hU=*Gwqo~yF0;Z|e_6u~GBPr^
z_sKG+ekzPT<;cv;+`4sZzTLNT;I2q1+*94z2&TqjP{HHJN`7J8)WVsGAAmx}2$hWo
z?}d5Jj0Xs)iHV4an8e*Y#OeJUPh<7&i>GawA(xppv=M%aq
zOTC{X@z*Lar|^CJQ=E2^&gJ=wT_$^TM|Uhw4EgPB1{{H7G_(K@fe4shJ8nu);
zRm%hu7<=;y+A&=t+p;GY=Q77@J*}D^ok8(Jyqq0)uV1Y}bYaRGjm}pC
z?G#5goA-Ro%feTtCr6o+ZOmfZju#+DJ;%F3z`aR#+}!5zE6Eh>?)0~?#I+<$eQ~40;g&Uc{u(2_-~fyh4pm0oE(|_0BNB
z9-QqP@u^6Ui8F%=!71RQFzmgpMU%kslFmb&OV;mw1aguwkXtg{oBtzq^4%B3D~t9Q
zJCauh=qLgl9&Phvf^J$$*GoUL8}En;UF@^@_C6!$t{~6pAEt^FU@Be^N*JE8=C+v}
zycUh&+Fz7A=DfY0O6cbc23Fte6Dmx9u`XJnu65_*mGy4T`a)#-6glL!gRAwJp0NK`
z7mKlZ8>hBr`)PGbJCMf5+KVZsB{M)+&L9-6N~T9IUO_g@XHd`@e37BXl0nXS1OtM6_T_%M=y
zkGFd*w|d-u1p`VNn;Xl;tq^LIqu`Gx-)+-YCUm-b6@Qx=0<5NNxv7zs)Axipkk?xo
z15Ibsa9v&3v#u{zp85!uj6WxSg{+eeCHkgLmmT?=^Vje)8Q_(f!)kItvTq-BzYmeS
zCuMt#5^ewE9S5)hxH1DRz8hsg67LXJG18NtGRpZD(uTh`{HPR86EX3q*HB)}E4`hO
zexkzP7;S^$SFI(pYteE9>>9{+amK*?HPi9HA4*-DHf^fN#(W<`sJNc>DC5!%Y`u_$
z%oDUVr`f6?#qKL0{=O>|fDE%o2Tgdlp4b;IZLeZZ+vvKabKVe
zjOdw6aQUk|%DsFtpbJuk=zYtrJo*@DzO;>_tYBFxvM6{SyJy`N1<~X^bFYUG~*GMDon`YOcHO
z^ywn2iED2*wX`e5wAgz6fgNsGY$}C$S;)hXAg)pmNwqVCTEZFbzcXF<^;We_YMNB~
zovmgnM~}A4w~0Ahd^epL3Msp>+;iY5YuA~&RO13u=0qdX9=SXUC+U)LJ$s}>8iT|*
zGLhLMIrK#STb`qhP?PC>g!vvtw>QzThWQ=@d8bL@sW98UB_7iwmJB3f1;{mu6w{voK+)q|0HCg
z8mW$(xvefgs>Dm&5U~Lz@B1&~QHw`gUHxQ-_6=404)t_zf$jvUrWlnEmv9*z+I@LG
z|8kYUUUARysxQ@{rpTuF0v@(i*yCIMVYP5n6La(LNVO6Y{Vq+%QYQryO{W
z=n&9TPsgJO4_?~4GPPuOFpBpaUAd6QcjuQob-I3XBkzGmg5ypOmSRx+W`T{Z*&=Jd
z@D0!p0ZfL$gWUWwxw-VgqeqXx81N7TVOwUfu?&3zynvOrAWQ)4|1sA^BerXaB~d*igR#bBjQ8I)-jB
zu`eT#fBpLP+&6kp1?Y(c-@ctuuF$8*ln5gj>B2oSghDgI6CRZ{H9!!yLq9441ax(B
z>;D8hh-YJYpT#TVK*UN;8Mm47uZom%p7RGB97b-g+(v>K*({lJGHnl`2|$J=rB=uf
zn?9Qz(|FsVpFh9WMlwU&rbt)5PfaZ?P=2ZRo~@t8z_@u?=r93GE?|r%Tpby#C&sD{S8%y&4YAkE|PhhXN1{wepk6Kqt$MY@YIm7;zTHY8Ft4
z9ucn($<7Wr$%xcuQ+IoQhft&9Hz>jcXRNdV^qZvt9r@d+?G_LB~+wfr9H|O82a@?aTZ6;#dX}^m3o*;f+yMA>t)dLsfoQNs!XQ
zJSM(9yUM}*o|JZ-qhMd|5om~L3_TH@5kn#9(qT}%
zK^-m^GrF^AE1kk2JMaXGB~kgk7B2tN+4&KWf!{?B3G)_B5f94zQ8IIOa-2n_!NL1(~2j|QF%Q)0RC-UN}(7XK0V1?EbOdS85#t
zWU&iWh2>m3&eUyS+}gL{x=JgmDYX58HeE?Mhte7Lb3MfmiSh}+be$y+0
zZEb-1xy8{zenTvBiy7&;Et>oWQ-ST9#&6%g1=%yI=gfkKsNhh9#4J-wl2eZYGOs+E
zQ7ZjS-wOVEEdTBwo%wzU51dJwL&MKiZZaDt?hEiB
zomHE(6P+$C6`ie<>YGm~cC*6!dhpMNicgN_Q=0^;!z=1pI<<~t0hFz0F8l!6(YDs(#q&f!vg|O`U?83;FTbY7*p>tR3U&+
zn|c?a8WviBR%6cG`HR-bPo+O&PYN7VzBgN9_N~GLL^7woTBiiNDa4wVc(}@5{1vA#
zeTLFLJ=$i9erkq;5VHtl_s-kOv&pur%ZrMD4+X*@%)T|uAVcc@C)%-i&@)7U3IIGt
zPUN$FzJ$PMEWE1jyhGvA9P(qIu!8U*ItAD)zbCT_2-aix{u-sxB7c<)pD5(SgAyySPy}PZ1$tN6!38}!_n=MgJ(n&$59|Aq+*z;?^%ovzr^rZ&X9#n%34oG
zxrxIEGjJ8(AnIh6f(xD*j#I!Sj$n>N&3_?!hhuJtp{CDNTYF^XM!?|IH2(9eDaa5}
z!yKam2TPQVD;#TzNqzd*x%TTa0z}MHx6-eI6@Z-tOpzB&)#9AIa_qoo@uWqI;$c|KufZnuA9=DWt3
zL8xFHGr~2SBw94DADZ7(Ye*hmVo&vADST`hT?%FJ@ZrNZ*f^jUcG9Hb$Pz4YJ~vN!
zuxN+SG&erGYq7@PRtQs9x&}l>mY~B0#)gsR6bK$@AT_UES>T~Ce$Y?!HvJwf-+QZV
zkSaG3)0lpYtiFF?z9iCx>IO~>1-b&bst6`QAOoFCTDKNHz07KgLOtnrgFq3q38Kax
zh|_x9Anfq{N02p$@U~TkZpn;#<=Zs9=`L@yfkJ#>;Ig)d)9r6BUslE&Lb^Skq4zCP
z8QcPeHU(Bo?7rm?B?##(DK-E5$MdylUi;7unE;RgSrVlYtik?>TbUfWkPu0i^KA&l
zh$t*mSxI}G|5-6R>M(iVLAL$rajF^L(9po5Js|>xVTprV_U+%F(86(4`{%c(PwyxG
z;fpE^aR&nw!z(8&bbDW*tpsWLlaSF!u|$Z$QWq+cfPBWBnZ_!f0l7k26V%@3zb31^
z_)i{4Z)$SC>Vb@Mu_#bP!@)}`g#bX5`>ZBiI-XFBVFOOa*mL?9sfuqZlDisFgNgA8
z%-(ah8@Q(z6-|=S-ewS!C2RKl>RKW(=LtGi{(K{+H)2iTtq(4R
zi}WH$Jl-^5fcfA0K$H6hSZY-4Hjak&c*c96FiE@a*VlcM!SMV)EO09=ff8iEu+|;5
z96AyRwcDI&4Q$0y&%SR)nn}0ni;ehD#24rpm!)F0jg``{(dx@B^S0A!YEw^@U
zb^hu_1py)r+ztERtlj~cl&oh`+Ry;RkgRYm4C_!aQQN?vTJCW`Q`|ANW=txbf+{Uo
zbfz1kp&|uBgER<}>mhLuA4VYJ3G79k(Ta9O!~I{8Ooh;PHluJ2l`a&QMGZtRuZJae
z{`~olL8rZYUmy*`J!SglcY4$>`-7N97*t?g(}}v-5-f$GQi)vH47r3_ny8&5B>fn<
z{ohkj9|5DcHH~CeiOGC>5CF112=o{*2v(IN*k+VV{t@Yx$k_=xG3Znn6&1CL^_CG`
z(`W9dD9wxu$5Dye6)q~-qF9sGlF|;Zr&x=SGf##5pAc|y#g=nbqGpYEG46a-Xgr9>
zs*;CFv#S$c=X_?5iO<~k&JzlM^6+ftYQEe7qL4xhl)vT*D!XE?O1@*iNqz$ot|DdA
zCa!|zB-8KI7O^9ElG2WbSWsgI9p4qIFIW%q{8riLx+(`EZJ;8vMAd1FeCkHAqO^lS
zJG6nbtSU||l8-*-$?RwLW@tM&I8fSAiJHr|kb)JMaBNQbV#$wGx*puZDB0K92y=?G
z1w#&UUfn^MR0xesr4JrHgfFlNXUl}{Kd(jwJnm&AT6NHG|YF4QR$0n7ImdSJA
z@|wW-63hbVDlaN>DO73G{l|&xb4)?V;kpXtD6$!hB>NHHY3Sr)N)_RYLCzCy+WROf
z>Jwl@7^=;hnSrZ_;VV==P&RIb{NOYE}cVwW;_bb8iWgw}wx5U{0g+qO+@XIG$W
zUtZkU#bf}2P152!BqV-4WnEKNeZx?V&P2b-k)o7dd>{lv+WunbHTz;rF{
zF?gf%gE0A^_6gHJe63*w$wqV}cCW;rq8?qh+)Awe>T~}F{qyO_AUZ8$q{z1M8b|a5
zui?&ldq}1i?d@1&$&7YON1_m%FR(`^hW=JKSj@wK^*_H@ZEXQv48YwG(*W-itP4ng
z?tM1sDZWN}die3lJv?xC2v#b9ZsLT7Hn?=-0jV!{j#~j^On)nsjQ|+{S4pahwe78>
z-?ZbANKu1F-3ZTC^q-VyyaqBqF?1(WNogNVK5ol$7#glz15&O4XX5~1fHmkWbw8T6j84$ggcFTh+>BNtDVHI2-
zHbCD{nV7Ak#UTL!S@0wQPaTMqm)o}OClrfNM2!6KPPm?MXOcz%GumrCMzWS3lA?)<
zrkE7DppzWhhQ4Gr9fO7*2i(veu}J(tbSN;@iB_75ztQmSRzOd5MrJ2Z7EgRn>TS;T
zLmtxW5rD7-5@#9R3H+mQQ#)MI(1r3q-5j{LJpm&UE4+wTdKe4{I}Lw1!z@>`UouOU
zT!za@fX3+e7%c$y5jSZCz@e5x*}zr6rqU@;KUC2wjOd&i>a0MD9Y<$w6yt^&ll*A&
z4Cy#5BBB)_9nDQ4dLaJqCuV;bRFarMe&pZe0HNv%vkxS98IV&`#Ye?u
zu85fyBl^Y3RIc8B+6JvP2YRifv|^$A6}gAfucWgQ;zVK}ZgX|f$~r_JXV(_(7{?5dH46n4OVkLib#Sg}2HEBq2NW(>G-Ijw7H3d7suKu-
zrE0Pn5L&@qt=V#HkBLdEwdZ6rwG?E^8oCocta2K8|57&MGU4wNP~PDu-X~$8l0FYBOT=_lXV265{ZFF
zd=Up<<^#YG$B(wkl%wNAU9mp|+SK;9ehxOY+Ru%#i3a^tQQCPm3w%jY%OHp6*fZ2;
zgy+^1FK>atr_v!TY&;Zp$KQVlwUC>eyDz1^_}~D`&+8;TOK4$=Sjy0apVWI
zZC1}kW8yF{w$m6S%4!i7mTOWQQDM{kq&{Dx(jmP-y))5zkJL}4ue<%;kOMvYLYfgW
zZrMV@EWktnHfQUqEAIC`&Dr<~PaCyy0&_@~0ES0k{rV1)p*nnJhzj7|{S~5L6CM~6
zsnNPmh#|2FX>oCJIXO8#zvU&aly*YV9gl>=Lr{aP2=^6+9v(A9fAPRtCGmo#g0u%Z
zV?-x!EH$a3Y$GTW(V4q}t!j@Lou#)>rh^20O=L-Ze!5ObnJ8GS!UIk`nAN90|=g$|2+{wM4q4C02adixb_0DI)hV%RfakNF73gCukqg$M?H6QiVSY~O&utdCUlXTsxIs0rbk~2U_CXA&O##0zpLQhpls@a)NxUpB>sX~tAsm@^l2;$<|b
zQ-IorMK1PeXb4DcH1(X;EtzPLUvvb?ACEJQ!hB<+6ZjK=4vu7xg8aM04r@w3U;brYc>u*GsP_hhAD4>1H4yWa>w
z+9rG~Y)X5of$xzF`wgu#%D;sOemwpRl+2;f9VvF>t@i@YUuvkCEt>x@A(HIH#FMM@
z0}}l77$||_8Mut87C!g4r$#3BA^Fi675v1qB#wOY_NjRQFS~k|p(7r2l3-tpq9j^v
z9nQ0s8Cf*Ro*eUP@``8ppLD@!#s$G^c6*eT9Boi4+nb^L#4tV0Sij&$=DX%>novCD
zeY!B)_4xN(8p}2XYwwN~)RYh@+OT0~|C+DPLtpl<-MHb_fibrkmDFur_jZ=t4REV{
zC82^{ol)kM)zwAacLUjao+vW2pv^jTaR1}A*}rz&9$~FRE2&2`TF9n8*ZUTB{m#~1
z{y{FktY`{^SOzMm_^;2)NB-A$cfFUxf#F$cn2|)!ZC=Udf;!sF=+?$
zWBT?yv28SV%*Liw+`UgTL1i|VXssi;lyVf(6XAPBxFJ26*TZbDL1Pd-S41@e^fAEE
z+qZB1q`${Q>;Ka+K}&R2rVzS~+D60@Tv7P_9dM9zY?2VF@?RQaJq%EfXjx)IvJuRM
zBGP79MqmH}LP7|YG}7BlNIGN!0;)|+OmuYKp>raxM`T382SO4BLOUG&f%vUqG3&>_
z2B+5w(>5uSX#YD)@*#XeM#X*x!UT=`fKWj0$k4L@M&fUaK^riFRWI6bh(asGvIde!
zh4ss-pw|Ie9vb4igu?>2`MJ;)#-Q_mjB<`USb>TH%7}Pu9Ut}FmyITiN&r?V9vK6y
zHd|l7bEi}q14X`zS?IIkGU>-uHrQtDEygAbe$`-tMQ98HijtOxhK5eUy5dFUT)!KT
zH5Tj{5tz{&I-p^)b_g!P4h^WR-N^lze|YB4gTzWT$~%Wwj|A@{KiTsZWg1q&Z)kHt
z&GJH0o-rbH5Ug)u*bM}x2pcMXVfL7)I)uR@nfcM%Lzqd+reVm*s{lOF*-hgMT1h&h
zi~;PhAvPF{1_AG?#TrmCPa@B$X0N$|f>ABe$e^Of0f3N!JTh+~_p)#cw5agqm}VSP
zLI>vf!7K#1_7}o^1#FprnO^8i6@ZzE5&}4Y79--lfWE#y8jACjb~GM~Xg7IwZr!2LGIMgha3c+~6D7&25&0>u?6=R{*slH=n|Tq2M4cHXIANq^gIF+i)1=!2n@gW5%g7G6`5#AyujlK0N0?pIUuBpV;TNwC8@F}s8M
z-aTpTSRfz)ZUHCok9+<2ia^|43P^zjfyDn2T`US4(LwM?$tFe8wsWd5V0r_k0n}0y
zRAMSZkLiIz3;a{u6>LbSpge1RZU7dzxnj$#RC|y4bH}>h<75CI$e}}sWIjJ}bf}xJ_Xa*?95ST(pg&fQofF>UggHCnqouTzKh};=8jIi&W
zM1mlViH`M={m4KY1O&cfm>^oJp`*bMDxEksP|yQfFpSuT4mzU`aPae&C`>c^s_otQ
zG@4FQ0MeyzM?
zTofDU7SW7ABzbWMo!(z~ujI+?^~xttomvAO8p~(~u*SY}Q=CQF!=TDpE&`g>$)_*g
zswot`J^{bQ0$Lb22Ct^cUq6=bkgWe5*n)E36aiBr+aw3*{)nSbX9;a*y72e+ms&@GfT9%h-gUA&M=2
zeINBih}D$K0=-LEtn{-{_PABfsO_`Ga@2l2J&g_YgIxJ
zfjiE$cTCt25m^U^36kwHi&`i|7(<+;kPipwxpDELPYpct_yq)TjD(yuexCvH-8%=77`dHBQe=ognnL7NGl904sAKjMV@Ql
zY?ow~fxHYgArZ_I7Oe2F=CRGb^aV=$;a2^QAzVZ|fL>PJiqo$gbmTa(ra))#UZPkP
z5Aa9g01_lXccPvEu
ztJD#2w{>FY(Oe-FB9)1_c<&M6mibkGSdnx#pWiu*GvA=*QA^QyEzDNH-lXxgjp&X$
z(5s(;&E)gNWb}j2;Pf;Qa~FI8w8~3&`f~Ra+YWAb-&Y`$m(y3sI9NoFkhzMw%&sCk
z9?SXLkECCptp5{!NE|=`s}AuAeH?@<>L)yaMvg7^xcDSQp9qD)xiIU117v>Nx^y%S
zh1)ty(g@9%Bx5spx0qZH3$N8yk7+PGf-b=qb#-)fX8pb3D_t;@U`axqO83RsKDjVw
z=gyrZA0qbG04!mv14#f7a7A6$T(>30B7S~?l`$TJPB{0WWT;YDX|$c>GE{vsW5g+d
z#6+h+A0?RHEX0_&s(Edm%rVUP4)n$CvcfX&x8cS6BUTfjQa==IqEsS$hyw(UF?bsZ
zpddzu0lomT6A%rLxW^f2^W%6^MGD!@aZ;cgH$C>c`dr>M0z}~cR>${=_Z%Du3Qb&W
zYzx*l{;t6X*z#ghxo5|LBJ$V$8~_
z4;Mc?@N|3Eq1k1@?;jjIf>xV@Pxdis_A4sD&ou+<5LiU=7sMCg-a4Q{V68^bP0w3a
zD*g6pGN>jH7DN{>F%ZHKwZeEp%(y^!BKnyR(9*+%`vL_!!0ClKr5*JN@1Tc^Bh%MR
zY~JapB1x&L1iog2pcsH&Mf9N
z)byAA3>w?@X@S9xv*@)@QpDb8emE*4S&(1718j9h_Y>}M@E{s?sd^%0)pNDg#;CaF
zm19KlRDRfEjI&{OmJEV%r_ewaFT3{`!%j->;KGkRzCul8AHl|BftHoC&fRpy#{fy-
zbO-P>jADaCrg;C>F?Qf^(@X>X>3{p
zkFIz~XtskM*(KR6W}%qltKQ%km~!8|pWje9{u*x(Gx@5X$QMhYg{~ZI(w{EOB^(*f
z73m}`F9sLzB+@C9?6moLmEtWnM|pgos%mr3+^ad4liBpoI^(h?N{&ZYXWE--NC?Ra
zUKTvu$savGM%61seO~Zxl)eVBQp@Vr%XH$hLM8QGvE?(e@&Q#<%u}-lHkiU*bv@Q%cF#QA&Ai1RxU=Q;@#c()q_Ki$)KN)y)${NvpW{9A2+WW8>mm=3LQp
zi;FLD@9m@k&ZZe9?3p0vFwjBN0w7d7m_QRT*K&$~yj1J*eC-pgn!h&i^M?~rH|+c&
zCC3L-3#2NQO-v#TwJO(1O6HO~eUPSWw`t_~CKiQQ@J6q5(0ZD5x#*zT(f+5t>xV+3
zFzhU|dc?nXQc_$zKB09G!bCJv-}EByK9!+x>1IDNVNvFZ5CkAD3g<6R55M*nAN=>O
zGCRNj_VAHeF!J9ysOf*cNSK8G({{6JCv~$=c|!;&LZY7q_eTP;3|ZQZER6{O`O79@p!pcCQ&hLPxbA>l;vd1U@(#3@lZ#{)!R{Wi2B
z!qoXvZb6Hp@rQS#A@;2foQAgQonL=f0?*68f`+y
zA;mdixhxQ4qzDk
z*(NwL01Id#4c<*A4E|?f0R?jo0+qRJTR*sr5_}F7wauZ~5;hxb)WJf00&oG-ry>Q~
zmc~pV3h)9NG&P~@YnL1|$!G=XcP*BBNJMlgyhi}=$!g>@55V^;RHCdM`!bFFMsx}^
z$28=Xrz6N=SEyfV!b98qA76T=w;I==o(US|4#Iq4Z#%#gy_bLj0FRIrcaE!~`r5tP
zQr?4d=G6qN!y0-#2%OK2FuhEJg+|#0G;&7UO}wnwZh|+B0H*;6)7;}9B5o=Vzfer?
zRX&$^Lxak75)#>eGgHkpJkQX3)vU!m!q+1uWc?(=ZG31}249#hV8EGXwg0zLpc%h~
z&(Ck=wvCJdKy3aunP3H+WFzk09mha{8bmyZ0L!B9C9V;YD$#dx8xO&xLJZLVQF1v&Q&cr8M_Z>Qv+NAV2<%4T_
zM||NNWw7xg+`=yMDn_1zZOoZmE!C=;8a`>eZUEuX?PvTWjW+N_`v(TvLA`?*whf36
zQXMfVLZ91=(h5y!8fQab#4l7v4bA5P-Ev1)61#zix(@t4Jz@rs3nKdU7z&sMffrSU?-j3Y>ML>WHMN`nFhnRXezsc_G>H?BWWf%*Y291h}
z_*`#tZ7vVaO-1)po|BQ%R*R9iVmG_R8+gB0(#ODSEM$Li
z8)V(AV+sz5>vtV-+#MhZPH-zgD^#GVdf+jNs@0N
z#Sy^^YskvV3M()b8!e`;&L;dIBg_Mxc(ztyF`=0sLts~j%jAOJN8aeh_7)~;z;cBS
z&{V3AufzXw9M9!}oO7}^q6pGMi$gQnC5QPnKvPxuad!A*66)tDQ^>{v=<7;@Z^`~_
zF9X
z7lqbw-_W*O9+P6;zY8tMcbUp}8rh@%DeJYK`wBhYYkgS%J?aJ3CeRPXNUJ_!+iaP^
zxjcGrjNf0eFxJ=dVdJP=Te-}6fBeO6&31mRi)QNNU<6}E^SvTg8Ftb}fQ3RE;WFDs
z7#HOH)kb{(&$SU?gn8-Ux?3P?{>wHZTpDczok2n00185uFYT7Lu20Eoa?~ezw46eF
z?e^o=h9!>L_e-C#8+2+%mtI~cewR11RIx$u9G3~bx#Z=~xxP4ga`#m|?f3z8TLHm2
ztQMa0R}!E4-#>5le-_LC-xkZ?J*hWI=MC@JQfTka=$@fGWMls$h}CT9R)L2Pffo`i
zcdp8uRsOcd*Uu>jP9`TMz<5BVySPjM`QrekpK!4eb3OzorMy>$!PXWc2PC_2x-&-x%QD~TP9YpSPBd-S!
zA95eqFPM^8G>YCmv0u|db!_T9TH!9swZjVD?R
zjX_QXF^kL|0tJC(omVJn+eGl5mIR}uGD!#viVw03pNdPYj*N$WD6IXA8y~(
zNt!L#e|~-kys4DOwn4otqO^x!MK*Kpg!Xq*AZcbZmpPr$nPWGmCT-)_H^5zznq9
z(iDO%JVq*+##(%U$jP9TXNguchsoW2yT+?tzNFBAkazCZ;0L5FK*Y@ok!Gh(>DoC)
zg`wkm9(f7fpdz_DfXapTElLD-W;B?ew}A~pSr;$aY@&;i;Ed}vr
z7(We{+5%b+$iCSzBhe`2hesy|mC+c8fXAQqt%MB{JB`?B1fli(3^pTj{H`ty=efSn
zC$gL-Xhj2@Y+IFl_r7%H$?d)VwA({#2i>Duitdba0
zz|#C0NEnRi<+oDWTC#kOt5^kt^iXZP<#&~>z%dVs#PIu=bSR)yulKPBmcRtZpc2P8
zcGPIunMO^K;e?QSf^rmD>?*H=o{}SL+8>Off3
z+}Q%l7+Mmzbh2U!=2GX(8X49OeT*Rs;@@GZ$Y{lz`=Y&32>*gkrH%W?!Pzi8kSD&=
z6j~<^deUpE33+hbF!zK|+_Ba{;KFW=Ew_|Es=&&FhN08
zWXm3eMYJ@$undoXn{Tm@*xO*-rBk2>p!+2)D?WwRMxh972;p3#S4_Yr3sOKHDwFWT
zGNE0INTtuzQp{pyCG_54h8t_{X?)fV}vsY4@bO>kp2x4>J}$HfUtwK2&*)=`!}MG9Y}AH
z`4VV$mxX0@HTiD@%xey-WL^9C(q*<$)F5oCw?$>f4-VvkE8+X==x5mP{}@}=xWg<^
zr{UiLm3IhcG^Dc}j4YWga!Ti;NAT{FLoC5F8Nw!kc9M8j;RD%Z8*W|<+aze8FR=H_
zfX;&TI+uJGGBPyAO;QIDM2Zx0ZCU3baxzh1AZ$4C)$HYZV!Xonoldgkj04bhtT+zI
z1Xl-@jfCle{?!g9=(8hRxv-0bAH5@TX9JExMAI4)vbjZYzxNelOTu2ID
z8FJDNE_Mz(NfsXZ8CTwTGAWBpf$;X
z0#JSl{}`Mzih{Emc^o^0Lm-R7|DKCd4rT(>dS;x&Q$14@&?!FzVZ
z>BHQ;85>=(9sdZX1;rW8O@cOXY%MwEAEc=(oR$@)1~`KqkB7k_n}qA@>*0No#Tr5^
z5b!m#9ZyW$CLlSN-k1O;f>$JftTK3f$Z;;weGnuav4_8+s;arJ`$yONj7u1OOt?Iz
znIJzG+@ElY1paM1#g0QOh#xmGyn18=(MNW=gJZ#eCg3I9{{j9gc4bBts&?3gy;R`P
z&9Y-y*W>^Jun6#Rn^vefr^uxr9ErTo;kY7M9KvP1jcQ(>#y(jA8pGetUgLH
zW08Kaabe2Tb+ixqF*y&%-yfCwZktJ>;{Zr*XV@y1+K=HG#IX&Sc%iyuZh#!qw#odg
zcA1sO<_TP`vN-4k?obe_owdJk0>xD-JG5z0%N~4)3y8vqNIC3^foVztRP1WWKAbr=0a5tpc?PkUVZ#&N0e)X?aAep;
zi%sNYFAwnpp{Nm7*fO_eD1_V#aRUQyE4VFO@93Kp!E#@&A&mY3SU9mWi#VU~5S-zV
zMtjIP9N336#@x&amj&zMRe`{&^my=n3*P!@26aF8UP|~zpkn^wTsOQJIrRuiJ!YGK
zP{Me>Z(63^5!GcjW#mLU!2DsX_EyO02R5fbDnFMYt-bRfAF&~g^ICyH|Js^4XSTJxsPOt+h
z4cD}_gDUoa!SD|Q!P^o~CP{11@?~UP;Z;E1a)w856uII#^AZ0}-H?tLm6Uxd!ZPP#?D2OB0CN+Q-~s6yVX@0$Gvc1fPLS`
zaX8NRO`Tmrk4Mo#{^g27A?umOF^3nCy;gA8qFkrh;
zybm%eLV(7=j#Idf?fP5YQ9}{V2FLzdkFgV{1zUA^N@X%Lbv@{B)R>y#D^xx9EPHTg
zPUQ_@srMVNxBBGi!~Td9z$#(kMi(#!@U(4E)Dh1FL>H`3jlbcXU%Tw{WY-@;Bs6rj
zU-?4cv$GNh^DD7G#A_T!<{KA9@5)9)Hksp#4a_n8Rw1`<-yRE217Z(7Sji@&?M+-xUK?cwpD!g~
z2b{8ihv+{KvJIS|Fk~N)-TaxH1A}oRiV_lUF$xaMY9*+_3r&hlwGvvNP8r4w@qZ`&
zTd{hRsWSr?=CWgT!iM=4&fTTVARw|$3>zGJWSJ0&V|NzQco2?WO@25bi)@-US_T+_CilX^Q06*1W{|IajE}+fiMdk0MDIE#q+0_T?2u@Q&h}
zlK{WOM2K32Q&2tOii|b*gX;&7Uq2QOrJbBwhMoqL1E}K}9B*@fOo3HZJBA3B+jqlP
zrFgObz3Mr)pxC)(>Q91{F;6HR#IFFHKpW=^!G3a
zL(UrB5Livfj=?nn$lEjq3b)lrgLwnn8uoeR8-!=W3QtSW8r-+B4;~QeoFD-Nlwr2H
zJr0EobfalSAxeo&$~zJgWEy;v!Z1&gq>Y~Q#<;X}VDX-X`&CqMETgw|iDHFs+EDMV
zOF&Gpp_pJHDBwi=sUJ^%_QH5ecEgdg?NIi)OKxo~zU(b6vg}%5=XNJVygPsy`417z
zVdWV>zQljc2w-)|_%EaS;M7}cZaZOy3?0kf@b&vSBdrRBRo83u;?0EF+j({Jv^-D1epj%sn=i0zdBje&5P5FLTMBSg6CMr5z)fNjX;g6NxV%4%F`p%6HJ6U3n
z-O>=MgZbT_oK|G<0q6H(&jod+e>$GVAbZ`Yt%xj`b&U(i;VkY@S=ko*m=r$$`91Ey
zUCsDu=w##|JRCBin^+TayqxW>#919U_u3gt**xs;u86vEO&UoD!rLeSFaf)FJbz(T
zVcW3acKu`20_g7lG8OGYo>HdJ2LF5)lSX!q(HPGu^U4GpWFE&#AE?(%fLAXI_H)RV
z*xJGYimd>~PK%Mq1~>130l;_d_-P=ESDq4qJx0cTH-svbpAkyuP{2z&wx;X3}d~(nL1
zgio#8FTnpV>f|ocsbJe5^0z0dJ~jin10jQL6BoAz5GEEud;J9
z!RbNaf=dmQ$^%u-UBjz6XYMb{!GiOdsRPOa^A5>xf+JFioMEdChf
zJ0gW7b2h%14J=%IV?}uE>ccfh#5V_0xXM_xz2tCO%3m2mA~=a>1`DpjKeqj_WYnp6*5{OK6uaG
zW)f%m{d@cUH`kwp?+Z9#+Lf2!Rxj%a^)Mek{LAG$bHa7M>^5>d>Xk3)|4paC6W0U(
zVbkJ>SaZwh=f+O)y)Dj0Vev8*A55zh?ytg90FQr?VJOx~atl|N>*TNE%^X$$d%!|X
z);mo4c7QrMx?GjAR)jkMm_UEbl_3;LbqI(_QDWnznP1j>frOJSDeZO3`lYvQG>5}h
z$~`7Sq1X#k2cD%KHvb0mSCA40e($*L)T?rdf^5)LDFI<98V^L9a+or&Zsv4kRPi}4W%COWswH%(f`-MPM>_O;|w0Kyt_;mGh8dFlN
z?HQ88njx4Khgu?qzzR@!FymcGFDv>$816Kgmg{sMoV=e(3%mqmWW7-cT_sg~B)9;W
zmSiB>H^5=7fA+YL&h0B8Sdf53A|*iFQtk8^|Tle>i53Y>1S)TA)bpv&gS0
z?-$Yxipd%vi#mFZlJH2l{sCp;5D2alOGQQ5^n$_?xKr8Wh-G3xBuI_x#YdZ+u7YfX
zn~BXdVc=Yc
zWIuK-hl$)1MNgpRuz~V;LDevb;J&FI&TT(3OTws%k4=Qq0pmkF^PuC)3HnEx2fqq5
zMTaA8FgJj(hp9ES*uTP<3)9?PSpRcwFmaZ4^C}^Tk^!+K=a;Uwg(c9_#9l7&Qz`CsLX@`lXM-~eg{^#o#>kh
z2OjHMVaHD`Wy4ivckCC@_>b`$k!&hi_zhbR(ZTEK`4PMJ2B<0@_)I0(8dZZcA0
zoUgfRdnyHevp90e(f4@ku^gX2_$#7pBCWA{U;O7W@nr@~=31*Vh`A0M?NXOsDc!q>ATNxpGTSNQ
zq)agwBcyuz-<;fI!J4P&j-=F@{{R;sw)~9QV)$=-hd$4JRQ?jOi`c{e_!3~FulTnw
zFY@CGL=oBRS>CCPcBIQgS8cQdZG>0N9_Ps(d1$~0lJ(%1<(R6lg+ikf5wBZC(s5Sv
zIznrr2st!E=bEl_k<)q%6_^OS$=p&63Q|punuc&1=+6%QGYPGe5>QN3Bj$}@?+v;Q
zty+3}J}}PX9;Cpkzt|<)2AV`R7PhbrDa(GPlKp4;xUTV3pX$m(fcQcMYb<(Lir*QX
zEr9uU@vP;2Q_Q&4w;+5~iix5QqK7mCMlnAlgtgYAhe>e*us7LruHwT8iz{I+k(ai)
z5UjEo&XpkWC%oBxOHX#FJYb
zUkF0&lo=8V1VSQrlR^C1y;W6J*)5Dl+MD&A&E_h>e0g-#1-vDBn&NYeXRpVYDT=7+
zp?|i`x^QZ9pQ5j^BU|&R#$iLi?|WmAz-G|8P!kfkH59-^B@MqO;RXy00CU#`uU7{K
zB4Fp0tW{o53(6_Feuk2UbFBdUVnoPpuvdv5LZa`=qdM{kqH%9^G0Q4$v)YA!-=L}Z
z>!cfSf2k;!Q-_t=PUPEmVen|R*~3JO0!|bNi4(p_`}lSS*bYInsIbsvY8(~6Sb7Pa
zt?V&wNfONHtJV}{oxGiBiWKrr>``uc{$je(ZdX4)Kk=%eW~pK6$^X~LT_k}LP$MC5
zg5Z8_u=>-qBMPR5(1H1kqWqz#3Sj{OtfT~x@dXozcf`ze&j301A~L4@7G#Mb2m>82
zFgxjVQI-tQ2X|Faq5{I(p>n}X7q5a~&InPMrs*{rt4u&pLR~IwOc;0+N?`^K9ccYobdu?4~->RJreXsPK_>}YGcyFV~WnC
z&wB~pIs5hGP?8lm=Z}+_<`rLfzAYuJlk&U+5*w
z#6e@+T=~QMs~$2XH{T^nCS}7A5wR{8K-=WjooeqGs;9Wd?h6U!Q58<*Vi=
F{twa2e6j!l

diff --git a/docs/articles/AMR_files/figure-html/plot 3-1.png b/docs/articles/AMR_files/figure-html/plot 3-1.png
index 07a7ae2dec3d04ff1f7fb523a111febe98f283d2..991773142197751d58d7e0c1dc833969031bb381 100644
GIT binary patch
literal 24241
zcmeIa2{@K*yEd$P%3TsYijtwbfr@A#%Gga2A(2Feip*2yAsX(IN-80QCNgHo5E4lV
zp=8P|N#@Km|96KwpMX
zMq2eHrqw}N4=?G6u?j2>x+L*@3vD~A)#CksYVBXYX=v(5D4FE
z-{kzK0sn;Cj|cL*f|uiB75Xbz^_JUrS4CYP465Vr*x?(IlWA4#G0G|YYuz5p59Eb|gM%Sr
zHas-#bjuS54jhPjCg-+l)hZ*mWl6`xFaHOx>pyur|G>8iOMGFAj#J=0Kb+YS?*7e(
zziakhRorp4`#VmRJ=kmDIbr-vHOy`J=T4VjEtf7`+Fs9$wKh%pM&atNPH>-S59%Jd
zx0s2&!KKZ2^XAP|`e<)`d8n98(<|36&(v}|qe7kPtuiM2mf&3?#ws%#x3#yoM|e(l
zGK)1NIdoQJ$yl_#_syN@wNX}5njGzwux@zC$m{W|)tguP=flfdiTYCJmC@I)Uw7-B
z{|GykeYTR*zuwBsbgCu3{C3?>X7;7N+Jn9JKk~0I-MD`J;LSC6f`T|`AIi&frw2=z
zn3y;OwU4-_?)!ZOMvBq`Fvei6Id}B9`Yw{d#jY-6U=#244NtahVQ;RUKcOUDU`T4{z>iJ9c
zvBucCq*HPUyn#hUMKL;ut{vZSCwe-+{9dn?R`pzYGyB5&7sbx>_;^94i@jRyG}G$%
z6YVt&DjNPPxOC$Yp7h%h5e8Q7=E_~4v--8FdcM9Wm!9egsW))zjI8uNS$o#V#3aL_
zM(E3n3(HIJ9r!aWxc==qd;8r|i$6%_c3bbhTVxdVj6t^~eXY2XlG2|(@}&j}b?H{?
z=HoTT$s%RR*|7VaTk`_%>kJri`kke+#)t_05qCk+RpP?!zAFs%nO3`PEwhvY0|Kfn
zGGYgZhWy08T??rf*tV@Y(ZC>LZ~kb>>5GQc3&$9!^yS;>f!lTW%s%`?NiWU&{QCUV
zfg9`zCtgI=eO();m9UK3^Rn&MNL@ng1BVceXi1gTUy4%Bu9C1wlp?<
z=82#5GO9yQZLzgMJ^*%$K&*kpFDni`u)wdR63q=wS^eo|InwNePLmN4;#N)
z_({hS9`~Nl3A!1X_8qeWeqMsY!YtH#K|y|NcSpT^>4KQ(t%y|4aU%OUXh9_f<
z&IYQgWjhPGG%`2eQ9SAJ`M^enTONIx9Z{-bbuk*xgkO)Jo|zo6s!x}in;z=UUWd1S
zDzIWQv8{}?sCoWG!H;K$p=?Ru_Kxz1h|o|8(@ziUZE~d?8-4$}Jw88pv(xTd!K8F*
ziBR^*b48m&rOt6X&tF2k)#!4P0S%|9|M=|q4@@Wjj$Hgd-}YawYAL&=E?UXgr(3c4
z$VZthutT;hA6~V7NbrxOW$TSjQ#bh+9pqWb>6>?l2kACAe4+dqWLf+)3ctdjwSazD
zkZ!c=>nqoxgFLG^z40oG>i9dfN4H*2{0Kd)wqRHJ{Ifj*P>oRIl0aWx8PEQlvDqRu&!d?g#|_S}rv0o-vnZWm
z^C_tI^uWDPv4fJLAUu9jge9e&&w#~Rjnc+`za+Lm8L#jEqwA9si0uA-_^t8V9
zJ}xz~(Q%2lg%x>cWk{cbW}uKBC+#O-S6Xk5`2KFI##$S^a4ODmQgnfV1AVqNJDE(PHOV!6Fdu%?d#|K!X#|;zpbIhCKB454o0E8Fy{!m%{lyv6mDVcey;kvUt>`nz@rlHq~#?`v?fe;(2D&!-o%}qqn4O
z=I8Ht>aVJk<2Lg2kbgMtl{^x6B|wv-S0Y2MUthL$Ro91q!b$T9HzqbI0U`P1{M0Cd
zROiK6l{A0xqx?rIXEdJ|@_I=IALemxuoDfk!()oozx$*DH?-HR;wdiW)ekuYYcnG2
zq`kYDnOTmss6YGA)tgq|S5mhtDXYzA|BCVFpQZH}FTD?FY7U!UPA_>n>#}9b=2N)J
zn9#P~`V1Coyms>Ay3qiE<5%}F-fAxi${nfJMd&he*~&J0H@S9%S#WdW>6?axShs8u
z6kJaI7$O>1H|i%nxrP2I`AlIJ*LPvB31wH;2>{~oFujt@ZC|2PLdES)$KKZr$U30h
zQ5KeASVzLL%_8gKM#n;bM0;9SVa2v>+s=Nxzmm2_+_vSc-|fSE&s0L$X+LWc4H6_i
zKG-|-daBPITP@bg3m8t0(wObsoF7Brk8fP(l3P-vwNG?2tnE9>X4-h?wDt9QXj_DZ
zd66pY>;~}G`bg!VVkv&r2jZ@S-$N9}2TO#51W()z4b^pJ{%pR4nR6A*WqP2Hpm%lk
zm9*NIc5MKI5pG>EuU@@kQx!iI_i6{eYkgx#-+_bJlm|HUM9zKxfUd~8t1>2RpX21W
z8^VCV%?L*9n%u7Ne*p=5DgC)~o|M+9=DAsCz0EJxBBc3|PW;uRT?@IL8xTfVVgxkG
zab{-bTW=PdFHxmhZf0ba+(aAmR+41U{qyq^q{?4!7pjWkG0(!Ynmwlo%EV&mz4mYo64FD9W>;~DKMl=+R3a(XwUdAL$%eCI|N72_
zS>_J301;H2J~6t^OtP+syG*(5^TW?K=O$S?_ub1_v>~7=V-eFu#Yksr<(>M16vSyw
z3qFJ)dgFhz)&576rGI~8|3BaMUj~!^HnTEc$2aPvnFlCt;&iVJ@ReHs^xX=Hp4**U
zWq(B4Q(Yw1tD1RAB(Yx8Xq(f&cbIRTtGubmLIpQaDjODET=cE-@qruvj4S!rY5vQ&
z5W0;Pi8(a3&?+a>(24yNuFm9h?Zxlsjz2oT(T~wA#baWSyhqrV=}rBDJ4*fa7q7@Z
z-8Ja0zJLGzHkPboImla7dbpH(x_Q;MFZN$`Dn>Xndiw(iDI{CqIsTUSD(jDr!7s3Z
z&$W>#!sp`*J}X?^0v*R&e_shs}v!V*(+UO!KvE(b6gy!M!=I&P4I
z3;pr^dr#^YRS**ocATP>hN@bAGaU)3KWos2Zj_YkHa{6@(a8M#{6#F1zv?U!^-@jM
zx&1Uos*d>|=8HfX!V5fu^qkB-KR$pmvSbApK~**lFYVZx^Gau1((lUmWLz}cprow4
z+m<81mr-o++HLldlxD@Y&#Ha4`ka1Ce9unTcq!IAdd1BeGyIxcn(($hRP&z$C}))T)7h9uB9Oq_->Z3msJT*s^EUZ5}l&-_S&J?{oOMyIfLZ$cK@~
zrG+HtFRBv98nwrG8??T05&}_VFTsg;f}>v|W{022%$WJ{NU;l@B&#Dc^l`Uxpy1k_
zrwg!pJhLN=u3i0IA$3+bxYz0g-3Yt)Yh|WeS?bd)GVq%k1FsoWTzx;jvgPg6v|ghx;1cf3>`E?@c?7dWdxwx2j8ZZgMrjFB4x45@eFz!k7^t
zetDx5@V#Tl@)eY_76ubrS<0KWT%nSeH_~^Yh};m$itdVGd=~E3wb4(q0`)#NA~$-(
zZxlDaYW3;_gWTC*lkmNLFWX{yyZ~_#swa~S_fuLEy=E+OJ!fKh`0prAPj|@V_NLbZ
zKxx>=Qt9igU$(}^J&%1*g=U~!yzS<*2+w`=Uq$>8Jvn1dp;C41o*t?_vcel;&z=FY@e8z2%Xihn!HRNnAfk%ymZzwsj&t;`y4P%F}+1bgJZdK
zGl)A*8mP)Ug9(*xh$g-R(V98Clw5d!b?JboROF27-?$M`SQbCJqX
zH@VARw#@TP&ZqAWz=nznuNy#CNW7&sS7I>xCvA<0>5&A#(XJ|s8a-!b>c{&#pVY}+
zW@ITVo-E6~C!F1r67s^lKE3w}hyEJceJOV*y<6$;?Bjl5dxYZdfjHEM9*H%3*ncT+
zj7QX6Wfgkaa)|(F_buSAKrIDKX@1G$Jt_Bc31QS#RIwd62Zt-0n-sY03Zk3^wr-6{
zj~slmB`tRP4<%86PXo%S+35+#y?9o=*_O3Qr$&3eBHiJS*W6UI$;bNxozEhw2Qr(D
zvDc~ee*88~I>b%Sz+>P50D2Wu+SMgkE?_PH|lS>aOX|n+~PD*9D$y
zrhK1F*o;2#l*aSX1cz4JBGq++UOuIJj$nMLs*cK(SQfL=6oxF5D
z$GJ*u%Ie9VXov4akUw4}+cPS=lQNpzEJ~e{+(x=81Eh1imvQTwS=;1{Xi-`(F$qO$
ziP0z#=SNTIolRL9GrkKr9H~dseM|7+Tb!b?=OUuy$b(t$hSn-^(vN`N4R`MEGA>T^
z9Ek({9?LQ_6fq~+9sfe>`N>T4s@RB`9+MHyc9gShkVbKPZb3ANaI8LoM7osv0GZ2i
z?}zza{jsEkX>MQestKjpcr(6|->_2L}tU^sD&z_;c>Nf~On%J;wmq
zy;)TydQ(ezp6#5tMntTYXvbosqfyOgZ!cp+y9G`;xsV4P#Rwz>+eXJ4DWq=&9#^9X
z>GOAsz9Wv@ks_W64NcrIm_D7+=oD9@y?5_k@&;w$oME&MF9AJBXHH+rc2rDlFM8|I
zM(5@%E+eKNTHO{sHHpor6MGQiNO@d{2C&58GG4QUzsAZ31_cp$BR;+d&zEP9rFQ$f
z{pM1t2`j`~E>s3672aGsG+J-Nf=;?zYD`c_$P*onKInVae5yCsE~5{(-Oi7tr^~;U
z36`TgN=;22$o20P<7xP?k)|V9;
z`o7{86`|N*31{mr>nByS_m%V_&q1dVm06(Ptufl{HHS)^ILIr&i#2;WSS;W*6xv+5
zZ*rm|!mA_9Su1D5S-tn?aYaj5c&5=%YSp(Eu&Hs0S)T+iP4d}&-GoHDqPv@A#^10U
ztr1Hw2bOR}*OZ7b#1e|qKcyI#ICfWCeG_jUxvY(Pg-s%YCN*TYN1O=lT9ePX8i}Jpv9Cye`1T$qj
z_wOzfKLgUh8PArzp}!5?D$AuV>XC*iJl}mKm}_6C+H~g2DzTtB;8H!{f)85;$k}jJZexr@pwH^
ziU}&_f{R&@P+ePrO*JdLeaQVKuc}CuS`vJvO{t)o?INVeu`in|{&c
zYX8FmY*5(qMJm{ZU|x2g{kUc8))Po@Q~kNQ$R1ls2lcm%MCy({Cby{YWAJXoL>Vis=D8jM@GZdT
zAjP`aYpF1Gny`{{nCjwH3rie0X_x&f?wm)kIxI
zR07!kDwF7MaO+O^>qj8;6)3F_FR!R8kS3%J>x17J=Pe#mZcC4rGaPDh3tY#!pHK`#20{yoa;8Wh6
zEGwlniyK-)*fCdFA-(-xDUlOJM!V>ru!ZK|^C{2n`yGX=toj}U@A~V&lbr@#LZ!c5
zArXJ^4C%%E118&?ztq?ocAJ^DyaZHw@#4iC5TaU$NK7?1py5>(nQ5@BsQF^^YhY@=
z$GTy>+-r6y9Bc6N@eRc6EO61TFT3khjm3UVG-f$Ypx8r7IQ_)cw
zvPh~eaOvKT2c!!FwA6??JW<~~n|}J;btFH)XR`n2MhxbvK+vY%Byqa-c=!3EKguIy
zP#Flq?}|%&-Tge9(@X0qKR(O}gdDo$QM7t0H4Cts>)CPh>p-ESnhaJb3mdx$)yG`b
zH(G_yqELr>zV4t-#BD?UMiU|~%DO=!zsf2NehClQz4FtIn`ObfpH=sw*|q=iajlqj!*J&p
z0CX=sq!p5NOjq-@yYrc#PAVN>ODv!4$2_O#oeLEX9Xdog)mxY5yMyfWByRJY
zc>@6XR|wj#qx}BVM^~E;7=H;AJTaKJh=tH~R5~tLLD!M&NyF?aYzD-Rr0u|*a#`GS7%(<3myx*pSi
z$6iq?JuoxY3=O2);=CzPKX9%2I4dqemhJPWyksQOC}W;9og~9IzG6-Hvz98u#X|aL
z01||Bv%?paP$^y`^!~c;6uj%9Pi+>*TB~cm>%?Y9Gjg|Y-P(!VhWPXk3d%rGqNsNR
z1@MTPS6XE>1_q?Xl-K;PiiaFgJWBp@1rBo;BL2S9;upG7o5@aKtz(o&5WV+`YU-~^
zyC{ciVNj8uDQme8%IBHtm7?b+1S!rrKl=&Up2#RI;u{R>DW
zj%t~}H%m2VcHg#=n^{<>@7`N=`wbiqjn4X64rY``pk1rd$NCzlkWW?gMBB1aS^f>N
zLvjA@ER%bBqTJs=gK(G&*tUH;Gxd8%$MO2`y1Q<}*@F77#Dfn9-n(~`Q*_%M#Z-$L
zYd|ED
zY#+y^W3mrkamy-B(Ju7r&MZ{OQGH|j@b2Ba@*D1etG03n3X-EB&gu*7H8PGA6&LRV
z>b@m8_~F5W2S8p@Xkpq4{k*^uyN`4QWXTn?FHgp^H2V@&)gTSRy4WIUPssIyJS-KP
za&Ek%tv_mZlA^WX&Y%+mwUOzO5a*ChmP$QbDrfoq!@_zsw$6S
zRH%EQo(Ifo((e>r7CF>^I+^vFCMQ|2r)0s#XwgqXcq_cE)j2Ge$-vSg?{X>
z?%8Z@+hVjIThw+W}WYS*JT(gC2^-{uh*s+
zt_Jr(yO64++oBB)4%(HuwHlv4s?o2>k#4{cy~IWA?ChR{Mf_k-V$n(blL(?B=?roM
z5#HOJ>jlQAsyAlc6JWW_*59$Nz`3vxJ|^2bvuEe=_RuDvOzV+-Ju4Nsb{ZGoBi#sM
zU3Jr+F}|x;uLfMAP?vLw+p?91VS|O*yv{_c2=O4ZYxFnjM!mSoLh_#o_X%c?S(u%$
z^Rqj%K10MurR{-W8C!E_toDo_yjXd>(jl>oGxd=h%n$wd~
z0?k*WnYt&A^iDQ*m7Z;Hd?hzLeV5WBR^cK-Gz>ec_G0w3t;}oA?OL>uDPA&+5%cxu)zvlRcpk@PKL0jvZRITU>in
zUKchS2k8lAe!r{IzZ(W2os2QSR>Y^-T2lHadX*f0WD4It=qOOqhj+sJ4fgj9@;oMG0u4`ESmt(3o>ve
z4Yt0y91+!Rws^XX0lL`MY_t!>=08bwWk@qObwJmyA}gbrE?)L!4GM{m*6&H|1?
zp||o4CLdaw(QxUwehcp?ml-Uz6lx40$3LGD8APmGSPUACJO03t!hl(6F%-gcqRsz^_hFrOeyz9nQd
zO%}?`5}yHDmrbN^AT&8V65Jp@@ho$Hgjk#{4-f16N@B0_@%{{--iFK}fHiPR$+oTe
z02LN_7Z!l?qtZcUH6w&jvdY1-IuDhKAs4Jyc|n#Z`oQId3X$YSKpK#X`u6SyWRj*Q
zxAtw5kdUAgEMeeSbqsh{0#?w2zMKJp$#@?_>>;(5Xs9F-GaZPL2(%K!H9{;K*vPu+
zmTPG)*f>{Nc*C3KUwjb-9D>*yPtES)O$?z&bMw^o^`*~G4&%ks0M9xwAh(YK3gf=W1@TC}
zL_+Nh--K7^MIrVGw}5scHY*aj;@N|9#UR{If|XTWdcDs|1ak>BV>d77MxCT2%jw(n>7
z$j`rN*4CftdrTsRxdtT*c;Vigr9=X{{N#lwWnQ64hoi^DZJDKohdf!+YvJ>Zim4?$
z+UPegv%xGItQKQ=X1=ZA)J1%i#p0^KxU?cf>2Fl$!%wP~alckq*&1pniS)pl
zkC!_EQULQyrX{1JAXtL1BrpeI2i{b*&E}i$;=)ME_L2Vv@hM^A69kc?5+b7y#yNg}
z|0XdpvEak6ac`o$b;t@p29uNBiDI+yiYvu&HxE^3+hk^;2|=0z*MdCFag0}K)1R;n
zp;Di@8g=#eP1}D_5o6{O|AmmAnCbV*Mej4x^K~etL?{&OG4{l6Dbe5S7z&%kR*k6X
zkwh;kurk2MgdK05>2p@#cGSc=KyI6Y4r=Un>930fusz&eV*~sG?nOXI=rtOkS<-WZ
zeFZhJ7q#bimufq;ncQ<;U@iKXGFYYoRzWD4fFH>NRzglJKCEW`mlypAbEr6k@2rI3
z+gw@`Onu8`7VsCS2=Bw$=QhlL(htZEUgQ>F`qu7#0{w|f2PPBkdpd3~FD+OSl~0ax
zT;H`Fw_+~656<=C^B*Yl%e$waBX|6OwRIn9l!rTq@|lGH(nLU`&`xT>O6LM+pmFoW
z!kV~+)F=LhBiukZAr5^PU@z7CyG@ASn2m-Rgeo9XSg>gn$kb=v-`qRia(TB@X>ZW)
zr%;h$(+v5m-wQlBNvGuRB|*adXh-m1NkK%Dk2JIO3tPkU`H6}n$8k$AFmvraXB5Rx
zbNo*_Jc)rY$rl{Jfh7kU?_b>cs1;c$xa{o-O2O7JrZ?Nxt2V7z|MWbya{sPi%kL{6
zeTK}BHV1W_)AiGJQD4dRPZc1l{SD-n#VTHVbty~%=xyHfiX;wr(;a})UH`RZ{fGi8
zy~XtYM=SB+Xj-UOXxsroLC7VyUD+3EFJ?{ezj8YuAnkdt_u2=tHw1&8HdOy5<)EcH
ztaj1L*N9}Cf6pMv|M*S*Kk%FUZx{gj7td|hz}=Zg|Cr-XW|uGq>aNYQ_y3T;v)_VS
z_CUgsBkGzut5l31KL^&Dmh>lFC4NUq#f(5Ym-_bPlw2Od7e6T
z3QjvPNw&nMhw_}PEqJ1Xa9#im$t6FK7din=l*&k*t$o(zke3V|{mw=O_EoFstc2<#
z8}$ZzX}A;t*wV0;jx{*pS5V370mS~a!UPTc4#c!^8W0Xv7DX*x)VPi5nU
zC#k8!V8aErY=P6X9Q-Iqgc$%%8Q3y0MD#gY{Rs~W&&`{SO$Ka!g}f+Ppwu1un`TJo
zh|8a+t4WIu{nGB^&O&5Jesz18GpTeW#aVEKu925TENg8e!pOqiR&sP^xuqsOVT6}p
z9IF;+_+D5TH|Y#B+XHp$GHh~jldu+_W3kGGs1M3P6znltE(qjSg6ucmohHx+g@t<_
z7v2@EAx#W{JzA?*_ZyMY-IbEH&emhH^BI-?MNK9L2)-yEhC$RG;dvO^|EL!ODKz3p
zlmQgo78rrWr_#Ye@GJi*Al{QkKID#;vyJ*!5G#~NfLj5@?!!L^koPz3`B57Nk((4r
zBI;_Q-y3D6fl&Cf8I%&*U}-V2vCAyd_jjIoUmPG{f9@Rm`J^|O8J!`s1t|y#3VHw*
z#|Dn!YM3)pEfacIP&cQfq#Sh>XS-;s)Goh+=^9_qBFfeXimhQ>_5uZj35Ckf|Lmyi
z<4pryeGhE&m-0WbrA6kuNQRTysGlGp9~&WO4!FE}_|UL2T0L1i9)@akpt=zB0MF3p
z$1(}MeAsp8ukIG}iM1vVKEvwT6|Q^zUiNJ^m6$L=zJ)6T@_h{1S=EIYS&vGsjNQoN
zS98wqh((ump8Am^tT*1ps*V>--snfbC~zlWt_Exm7-Ta%m|dBQlC;emH?}p;_BNM+
z;=&);YrtZ`C_RfVQVM*4=dTmnv9hvyN1PYklH$Js17(#A3nV?V(u&W
zwE|@l9S}zfL3o1_5mdh$5a5XFYV$S4m~aNqRCB;q2yiE0{h=JoRq2D{$grx{Dy2pi
z@0U5bxa)DHDm&Z7Yf7zTNw;80W5Ov_l~6D1`d69nZ)6rHTL?@TQ1&sM0x~JaN<*U`
zXMY?0GzhwlD5-#@a61>Zyt&+6GuNyEHU=$TLR>l_@uJisUc<-}E1YKCI0*wlw2r>E
zHn9zLE#G?O){2-R`VOkr5!E?FhK}iY!aZeSE!Lf^#D@E=KT&0Ln~$)NSK-GfG=P2mNa1IYFJaOj}w~O
zj*bq}`~&P$=?HG@1=5*;BkQY-(Mb70+FD2>T9#Aq*V)_)3?zEZFDu|OyRLM
zV9Ro{@ZuJuH#@p5R-kLYSy0uX=ENG`!hk5I;y-0bgdZj5c=`z2w8(7u1KA@aku(JIe1GS3n(Y|j3F5AZ_X$SM}aDv`S
zm{DC<;~8{&8K{^;t)CD7v0>X4wl{+7AD=`g;I=_iL6XM?JmPleWodGF2bk$J-YZ$R
z+0-SR`wsu>*XJ!L<9mX2m;Kua>i?F<@b^&Sf6qM@Sgpno2ahs27XZ!C|3O(mf5w5O
zg%Oq3IG?_hi9_fl=7_=9WjXgtV~QQ{U{!j;Ar2B#daO4J+d6sPT5ms*Vg!i-?8ZDD
z?ScA6rGpM8yeSz6SE{RidgD5T3X3`ZuaAdK(i%2CEpQ%@QT*2dtLdNnBPBOBJ0lu(
zstFzyd?-jeBAb(G?&+cO2=EVtr^M70B%0Ft>ZgRBe%KeCy`T^lh7{QAh^7-2YF%7b
zwu1Wo`*-3?Kpi(oF)9i&@H{b;F4{>jezXLT7V%wPWmQG>1T@*qv<`X%*hkiU=sG9=
z#S8oRp1=b%ZxMKL)D?D5a12)pp05?P%;wO87mr`(7y#3;ottAeN2WDWpUPk7zu_Y*
z5_xXJ{l)VBB@5{H)cz1pszL{ll(d6R9NICG>UUkzu3C*fzL5w!Ez0wA9cfTH1u8;m
zF&>)CIJ!a#P^6_A)l
z@hJ?eOtMnRie}nX=NX2aG#N}WWS8Bsk|DZeL1DQ6J21E*8I3oDfHLYpi0h5M?4Yis
zGINShs0D2U6-VRr_R1O?8Ew+~2rLj35D@7uew$~ctE%L~2MQH(uxmOeV?63>;pyaG
za&t3$G-R){XU}FSESQr2e?h!c{{-o*QLhn>o~w2bmtCf
zsaR=dW-(qGE3|`ygMHF0k;xj;t#q@z7j=FHVz|6w-xhijP$MWl2NuSPji9#&G9nu1$_(;Vo`oPSGw%7Lc8AvtQvT
zgN7w$=X@w1ttplr1WX2pRosbQ#?|cX)$I|Rs)8DfQlCC8;CsTAbT{-S;Md!~{MEYY
z)z`oL)f4+}&)Ph4f#&1huzl$#NH9#yB=9%@>Fj
za{pb|_T^mKNQ-Z&wE^6DvuwpY?4kZ4AU>+0Wt)^6`$d2>;0&>H{|A7Y<1&qlE@W-y
z@w2H*-8yg}t8k&2224HoDHtE?igtX?lYo}fea5EvT_96^=jwkue9c?q*Q%zg>s+otEtJ4$mwje=CizJ0En
z@mw$43D)@8szlE!{JkI!y$B3t=hf8-Cxc$$9#<`NYMAUI3@{`@9Nr1jI}9^Mrx!@W
zn}psQRCZ)V2F%f6NUeD2P~)>4I*AH}F7}wD<>|8szfyS9LDVCgf&$?;pQtn}CzIId
z>M{9@hYOGSSE!kUMG|=3%7%(LG&o4k6+nxO!%KK^7i32C9FO;?C^DIb)
z*W7GT+`)4%ns7A*H34o5YB{$=G+^BQ3RM?g$_1OsDyo$C;pp9PVA
z615owiY_Pud@vak!cC*qRW4YIREeicKA$WEWN#BABRVT_WWg?*1F|T0b|mpkvUb9p
zWsBEL3*$Jh9X+f!^SZ$3i1GCOmzRLqn*d{nCxUU_*O)khD*;#d>RY0RPp~62Z-P^R
zy{*uVVmP-X^})uT3Xmc^(2L=nHZnF22n-}X79wxr(QbR)Do4fvz7oC!KFbK7@(F|)
zObt1>LKG%)#*Tm0pEl!IXmAAS_&;DaP;d1y>~rwod-$uk$ubjp0bT07J9mf*iT$go
zRKH+!v4D7Oq9Ak*csR_OUQHnG!pD7|KYeO6_`L|^;fDrli;eA9RlcE1Ef!GaARaS#FO!%p@arAYHUe*N{k>5b7>
z#OAO^HBX+DL_m;fKR_ZX{o}`vWarv6zpl@)iGXqXv5p`+F0(u3#fw5e-duQU$qWZ@
z1xROG77nwF8r~K%gm&z>9>BzEnrUV9XL6M=LKN6Iua3hn!(gp|VaE#l9`>EFkxtnW
zmC!v2@$r_Z7kIDvJoyVV43D_2VWc_2ha7o=53B+{mfsW>9K08a4*`KZOAd=#EdapC
zZ=>h)?lcnZGHN`MYI@mHLyq_s!`yQit|q$SYUS%UZVmmy&|3F${hWC~Cp2&?;NB47QjH9NmS
z%$)F>8~4M`BjaE`GHYmVy(5e+RiP?maBB?P76NOGW)sGdDt$SQ@(t)qVFqd&JC55D
z3s&L(ZQ8{CK5pKG6+-lG(ocxSZY@fLc8@<8;W;X9d4X3s@6Bu!)KjwWkp}{W4Q8=9
zN!_g&EV;g7-_M8NYl?C;E3raHPaT*)!fDfNv7Y)l{{xCa=VyKxzy~GB9yh5a0|8Pl
zz;Oc^xXAUKA^8V&z`(v#)ZJb6wvzkIf+lzpls0>Fol~ToLUj))hO=J#2{r#U$&cEC
z)gb<^Ux8&OM$@XjIA9)?oDO0Hm8%hX7kqi7^-YGY>#_1FcscQuAj2b+uvvTHjlcw3
z5V1EvXI4JO0bUpsc7^@s^}Xh;rMcOQr+vcY!QX9T#|}-<%icpz0&fasz_GVZ^w`@A
zIf3~szi!^VsV%4_Dt9>E`%+dE++^mbzJ19yPb*-)dFNZ)1*gVx1A4kFIrU=ItNVy6PqgU
zRDR^oP2DhvoMVMYWG|pMY7W$jMA%wJK$dP+SlpR{kjH6s@h*#wQ%<4wfS&IvUJ)G%
z{x1W#o6KvSOuTpPk$^comc%O#tz_?nruYTZ&yLqa@6PvJ&jDz(8#A;O^vPaowPhqh3!
zY`mEB0@p>1Mw)kP^;5r{IsHgT;-3yBd6y6Hb38WCMVS~<1B#n5s6b{`$!7DG`$KW@
z0>-HTBt#df?qrt`vCLPA36LtBnm
zOz(Q{*$yn>j>1DEFrYLR*yvrCSQ1qf;D-d|V
zI3%?~flOfLF@KDO;(%9ge4uR(V^W)~Wx%bJTwA%3bPv~gOOUp>Fg6T91IR1vw3ovb%6^!h=B+0+8l%jEq0Q5L5WSG~4z;db&~x{~<(Xo*(!ZcrhK)TD
zmyD1_VZ-n2RmEHB@Wc`{4ZAI>lzXW=0JJPddVuv(afTqK;gJT%U?hf12ckgC#G6z7
zmDqb9cbE5Im9ZqaTKt8K?}6wiro*DpEEy~uzAXcp;TzvH$^^iS;d08!p0
zJ!v^p47tGV*$$n9XrH$0q(-B}kaGaxr`hM+chchR)ez7swZwe}k_Xt)7?K0tjl4Jr
z>!(iVqZS|p;6Mvp2FQJgkN*Dt_Lb@iVbHM1F@|H0zhK~_41@yQ~^wU7kzo@0b4@5i+s-sc!oLFYmA
zIV5zrU_W7OgA5Nw*q7~vRNW|tcZAMQz1%Tj`7g*1D@^f})O+SK$(+QaLNp%o&NABL
zXISoTn;LGx3S7Ie=)$5pCgE4Nr`>RGC=XjD$5H!9L?V<|@$63Pnx!m&lQ3^V-bFZx
z9q_6m8#uPGO9S%TBF+_)8dD5%L&N1`W$e_(KYj}*jL*rGEzl5^t}K+fNqrEp($}qu
z@JNBd1{wP4%zCrE;tYAx8(J7z@&aDT7=u-W2FOG`3|_^cIZ++O68R8+Qh7HK2WhPW
zs9&y!7=7FWgAQvxe4;M^2OW@wsB{3rG6+6cIffPmSO;t`5Lfm5u3Cf9Q%dXO8$wF=
z`dftp3SJz*QH^Z_y^!#Fzn
zN>S)c2oM}CGm7n90<(4X*SGu8)XJfJzEGl>f?@#98njDV9I
zaZ5B#+&mBZ-XM&+LRoiq25FSW$L?47MQRCy;$SHrlm!r+p4^L8l-^O|G6y7^6!;
zx%i9;Vlujg?hGjM3M*2KGwg7iyFf%5?Ms3e_Ih*QSB(F@M2V!jQTLiJt0f`Ks{TW^ycH(5UaE2NM;{spUht#RDQ*BP6!WpMTPUC_h1x{H56j0A4s
zlJ*!!9`YyM6KvnI-y&g0?P;X2xgMdkLI;k~CWsR8vXA}=jk(_JCkVaXs}bYZ{w!BB
zgPUbB$I07*Juo4FlmG3Igb~lFCf&KeiRki?^*f3GfHj{-=a>eDg>7)S+jT}TVVxM2
z^mmCmG?*-$Jq#M%n-#2v2&ft~7e=mVCm`>`#2*y@f@5~FCKsou;q(*mm|BAH!L`99
z&P&4}0>)ZCH*s?@Jp4iSoh?o)lSCuUnoqDD8X6E*!3g{+{qSpU8N+%jqPZ~~slQu(XfMp)0yFtu7?IiBJq<>n(Rc{6%l+BO@F%Kg
z3(EYse}+Z@)*Ioe6T;yJ^k1OTjDiyRMw!XMPZ(`OtKwN1jZKM8oYTp^5B|WSh;ANlz1v%?r5%xBR7KDr-n~O``kY5
z+)j)bJav5eckqn+2dfHZ*CYEU^Z)d_>+#YOMo&L0CWa#tWcju4mWYv&oRXOgqW&9|
zx{QSPhS1<>tr99>(=~)wz>&p@ty^WA^zF#U1Y1+-u%&;;^y_5u6L{3svD4pL_uV;>
zVcke3CSaZ3WQ~zNMJALc#@pz83bJnE8(26+OoJSO^jr&8D$rT+?8v#macxYkfTf8c
zv6fA*_70q^FHq&m_FprKt%WX6AZL|dAr1%(KtTPe>v9t`NEePha|O9b%)i8Rk|QC`
zAX|#MDt-Z{q*-7qQR!5ZRvkIX_%~^NqaVyB7ZH<{P
zKsO>2!6uIbZ5$%{R6$IdB-a^uFfnwV!?d&{&<&N2OMQkBknA{E%u))hIbg*)2`XZ+
z^O;Yh7&!pLky{=k%%^?j-Z5DqQv%XrIukqm7X)FK$`3*od`zGx2<;EQy%m5YnPot5
z!*21?WdJARkRby!vVD)Tuk#a{1qUCDU)y*~8_Xd*AH?CyO2Z}wx!i~=?tMo=CLVK>dIja{uIa
zLL;4DI$%6wp?(aP%EsWIPd@KDTVi%XB|9-#U!d&1LY%mRku~g5n*(lnbw&nBV}cEQ
zV6&XFkNqp$2>NOLk(;uqpAe&%!
zV;Qapz|p2LOO$Sla@@ZcMwh4Gg#zr_-iP7j3m`>WD%qB1a@xqH+WQ6AB{W0Tc`%C`k}7pd?9>Gin(yfJjoJC`gtJ
zN)|;$1w_eN5Rfc6!#_9Y-0u5#-`9Qn_I+>s{~PTX=iz2@
z%l)ouAKcq$}oNm$Axz+!V?X}Zz|_2n!}4Y*Y3S{v$?U)^-~>H&q)X_~o}l@H|?@$dTHos(9^T^96}oimeQ)pbaM_zw86%^v
zShct>lH3Yj{zBRrCe_09pM9Cl&vml*G=9A@Qgikuw^pVZw~S`4%Wp0HZ(NE
z$H!9(huS~l4}NumPg+{K@ua(H;ktkNo&SSh`0sz)qpr{cI+9aAo|Z|DH?SSwuQDDL
ze=7B2>l+WN&eGYTk0KIw{SB!GWi;6v-#a_a8_lrd2YlG&TQu`sXFrPMpH7V0cKXH7
zx9iQf2@A8(tbcqyJ2x{q+*ua3pJe{Sj4X3JTv%i)Ug$JyjDm{RZ~;!^7r?6K2#Z9-KO>cJzZtxB#Uo_
zAD&iP{>$5+K7M?rrQpi7Wh*&%8!G39PV{FF+@LOF;i`FZ@Xm*Or%s)^$>V59`4(c=
z6jQzMZP}_L5?@(P;A34UzOm~a589K^e>{F-|Iy|=mpIdbuTf=By`;1(i|%C&s8=FN
zOlFgg+1lDx9+Ame?IG9B;reX1_PTZR(r((6-3ERGly&RYtzA^2-Y#QU{^VeLHG|?w
z9~Lg{goubu^!ot;8m3M~{8ZQa
z6Lq;|YAoMz<3rW1U%#F|H=1Z-CbD%aqDwKhgSCF|ouyZ=GpIAtsbA8lOIR{A6sLp*
zv=eX<8r@G&L%lxFxH9&q+hTbgTe9~9U-a#=ShHpgoqDk>RL68$p4VlK%#Vtglez!;
z&#I@lv{h>8B{=%s8yXsVw95bwb|t53Vk6$~zQxRm!sW9?F>vRFBb7o&x6zf=)%V!;);xLg#AUoO)1>ry%JqBFOse~5hRYHM{s^5+$>3Kiab}HK_tx#Y
zh_J(QX(gTcT}i35<<&Lw{MoVFJ!TbuZjU=1D?AVTY^fX%*Ric_e{fW|w$;1m#d_Sr
zXMNL5gN0;Qa`PX{fPa5N_-EwX|M|3kR^|GeEBW!*_>v5^zPj|In^q$gyrE%pqW+Ae
zQVRs!?|WXqe{9Qo2RXyti{y=c{rn=GmQ(L32JOMm`>tyjX)dLHNv1w1)>l_o=VM)d
zPqszjUb;#3k#J@CX6IqWtSE*q1Dd-U15J@R+@`1Mp7d|K7ge_)2>%Q9_HW+xe_p2l
z!MBm>UQng|bK33b_!`{jdYZX!sJ>
zwagRYKRcG0FC;A7U!B-2-Wlu@6qJ3r{X=$tRuAwVkEG*>X=bCp_h3j^qC=|(zj33~
zg%7>}0zWEF9#3dUL8Yb^UgyxQ$#UCxgSAdit2Qyn!e-S;YvxW5B@uq2h>B+`eE`B9%~p5Es&HR3Q*E-xtjNyV;AYPvVaVOaP@
z%T-Tq33an=LPE1sJ&D7^!_D?>_d3Je<^bkCef%i6Z5!84{r5ahz2!dxa8ZWcp3l~c
z9XWDDhT`DhP?@1|DaJm{Q$Q;COXSf2K2NbH-D8`N`fu_n#xns_<6rGD)>kj0lVx4}
zV6%DdXw@Tw&{Ly6+x$?pU5YmcR5Z+CMJs~^l;gPV8g`JZb@ZEzg0Nzx_hXgFvAzPC
z4JYo+JE`n^bm{x5@bcY_f1;SnmoLYfnpZ#9p`4u@YPXTD0OZO#`})SNQn9DqQ96bB
zX5kOKy)COw8E`v%_eP=asZMkot2N+1_V6d*zM81I=1~d=7uzT670rNxN^8=WVv%x?KgT+q|Shk8Sai=zkIT@x}Rf
zo@ye+DqZjSyn=CcJR{xV@Y%8Y0U+DwFLNUzB6Pz7uXKDmcjf+<>z`?AOjqCf)nzUw
zh^~G72{zVS-Zh-RpJe3{)Oa4hR!luXi@lpmOg&z6uu9v!y`zK2qJYtc*ReCij)fL~
z`elmLu;R5z*>|WDNuvHYzXC=wFr0DvYHiM@t*lIyc_`^*o8HIkGNM8WKN+QDBmQ1*
zZYUrnCFM1%^!{C`{=T~qZ@@2VYkXn_%*si8Bs|=M2>LvMuN(cMtvD_*PiyqNQG0v)
zE`!n)v=sp0cjOhe_d$ND{&46C0vPIiXr*_2K9XNyQkOg}vD8DmQyZ+4TW
z|C}9go6ml}x*^lN89mitF@IQ2o2NuSc0Rfj>=dk8aB%P{zC&rI^|tGCcjE&$q+^vR
zH0z!!(@zg~u<UGb`8)#!K3|=
zdBjgce!Kl5*X6Gr+V!nRI-*;-iRG56aWl)dB^&+ft}Dx%v3(qi?b5wQ65V6Ze_}iS
zzpq68&rSYae8@le0REs+3>&j-HhLTOs%VIgx!+$c(VHYoKx4p%>n(lmVv!Rhhb#S6
z4ySO%l&4(yxO)l9t&<=9g^*Shq?sAx7g4%2DT)FXpAfook)lZCaW)2Makw)pj8`p`~yf>&Fr6Jj!p-#`7gzJyQ>b8x|<}Pqek0IDdC`}d!Ua9`-GN;FVd#|B?*&h$X~`xEnirf)(gzj23oQ;z=5$(r+CD}UX-0i+K<
zf0W%oQ-GeU!{Nh+(8L)VFK@cvsZ_i(2ZbbPU1nO^
zNS#UIY}0sNz@y1|>5=WY@P})On#rx*afwYxHL0noc6CNkzh7IX7%Z0Dp~%0-D$TLP
z^iHB>ZOVncP4;br?|AigL;_zdX5If2*V4(cx8(LZIa;aab8JhPL&qaj64wA7TO+*w
zohLWbN>1zf*>Q6uyIsu%LUSz{-g3Q}SBy5Iuz#`O@Ka>kJ9O**>W{mc6~2`#_1o(%
z_gZ%EVqvwLLS=XkH#Mdrk6V)>Cy>q@?ipBmb5&kXe+0XmQQ4zioz>{;CkET%Bu!99
zTnBQ;moHx~FdqM`ySyKu?x;vE>S$Vr8Hb+pU_xe7pr4*d!-O)gLcwruDaoamD5h0;m{0+T)y;J|osJa(zZ|?<(S)Ma9GXq7o&$d^yubfRu
zEIc~;$7fkqQnVWI=Gs&P>A^Q_%xkyV_rL7C!OAOT*6?BbM
zCx`Z!)&*O>T_-*BjTM+KAHS*AbDISh1)8NVCMt9ax2n;bGdZA^K(O8Ita9KLkafN3
z)w%}{9u&cCk92))cIXVjFLQ=I2x7f!Zu2(mXa{`-c>wltN-%=blta*98dcXlZJ`0QNEnb?Cq|j&qy=
z$Ynt>|5kXNMkhSa?DTk|W3b%D!Qrs^nT&cf>;Th}m>X0xuzqpRvtlo+12KuW-Q5-H
zI@LujL1$NHJ^
z*ec#P(*R`GcxN`yEwFw~sDt2d<7<=ZeirV1X?3q;L){rh55{7MimV^Z9dJqXJU;(X
zZ*H~BulwyS61)IkovL;0R?KDf%HCK}{C=V|-&Z8NHzhFD7)S)Y$*(dGcNr+@
zcxF^u#dRdTWPc6KC;{x0i85yZ2Qo+eN
zbIpW87=8CGQCF&$pL%)uf{v|ruA@!55K`v!#j*M4LGIRlb)s~#iL2X5Tm;Ucfzz>T
zv?-IGpFvU;+-uwQr9JJdQrze;pG_wEub+(uy4L*-;)KY{upex_U9G$I9*4s!A`ci|
zHqK2jYHa`hJzgul8+fe2Ak3wE^o?;RpK2=Js}*$cAWO}K0G);Jr7cR(KFI$J$I)((
zcOk&|pj{i0-Ip^nqhI6BYg@F=Mg#QnnO9ef?r@BEeU0jP%C7NMVbf|+^W6&zN+IEP
z$sBJ0nf)64bVa*sw9Q_F(qOH{?|N%fWkaMxyklSLSQfFzX(aOOxm1IgQ0=o#SegH^
zlavlz`lVGTkJYCgqPz(cluysI`?Xe`45VG*J}2C8RZR4jy(y~!lfLil@rY9R5XLBS)cTG3ABE!Nj|^V
ztUE`clyPv(bdO;UKbTPSjxhupdDiWns9M9{%;QX^$sO!EjiRrKBd`
zy?YmpHA#i+-yS3N)98|8HEk%FdEaiV$LeH}jD&8f7nySBBj@o(JMtKBe{`N}<;br=
zgWoNxZfiS+tTOxMsL1TZJL&!}kssgjy6v}YeRDe~Di{qmz`VH*OA5PH+^Fc-K=V9G
z#d;~{33M~8Ksw0A+cc9}65VEd5cp^(0pxMpL>Tz?`lg01S434?MYsE6mgpBJy0Eg%
z$V(&{qk@oRjO>7lxJE|o`+eCPEZka&15FwJh7psjY)@>bpL6witU4Mz2UL@}ktk_yY&&iV+fSc9H9*5)
zV&SqUZ7F!E%I-raTmF6Rq+fJfCNIa?xnv3F`~N@&BoG=4!Jt^jBGJ3u{%4DI*;OGb
z$xvskvaGv?TJMNFb6R`p%0k5dJ<{gi59OiskxwouMI|G`rPvk7m`F2@@uZ|QcsX`3;PPsRye!&
z%QMBGg)(IJvfUrxWTToaxv2_)rB|K;72`!b+s_m<+BHiePXZ=k|75bWHaZWNKtj?u
zZFvyH(8K}qmh>aPxBM!8`8xo-#^5N)jeX?+=RwUg9cbB&|9p|LVar2Mj}Y_L$^58F
zsE3B9*|&J>$!EuE&wEMAP)KBec0@K
z%o-l{|FY*KE@YlJ3Dkki2Bt0E=BBVtRxofUjqW8i6@BGA=~?R7=k-9@oCbPCD^Q($
z{vGmCCpa6$@g+eqHG7mlG
zWYjaKeI=^0i{&?ZgIwsXv9vm`uTQ69hgB3L;|-6CISJG{+mz$b6*{`|v;mli1uuZY
zuFB5^Dwg%W#?@;RI>1~o)1bcX{^L_ppdV0(JkS-o@H)%y-tsr7y3T_|19jm!InL-a
zX!O@C67he0BOkTFcLN=X-wHCmelD>5cAewm#fx*3Wp1JS9WEzGG+4Y|i41y{@(sDk
zyhRgt^|=DPOc%goCsb)GXl)lRT$mjS$UioIH!$YYGO2v0@&5ej#sT2wIiIkZ?(}6-Zim{3Ct!nckhU*Rh(^
z!Xgg6;E)hW=ZT-%BrLVfVruM>3)P*y6*fJ8*%8?DJp1{##S4#S6otFapIuPhd3LlK
zEYQTj{M-OxtN{;<9%=3hxLUAEMyxZ~%2Rr70@YbDWZ$T{+jRX0KS5w%ZB0#kbS|^i
zZnGL*Jd!7N5}!tdPQv)%QvedckAU{0C}&d$XXBYu-hsGS4WK*vWAu2rd(@b~XuE4#
z4>Y-eBLa|pk8a%*^QO!zesv_{B{9akHVdQLj!IYMOO!iCpAAa9B8L?
zR@(&IO2W=8q5kNRBj~LqTxTY*&sY4qy#*|nA$rcm?~pLupT)yOfWik-Y+fj{;Q{Vc
z0$Tu(qSH=tMdd11H<1^xCq=|!2SR7x)EW4piC4%CLa416pEF!
znIH1fb$@=Q`oflq{%8h87yO{=!WU+UR^!vrx9<4#2>C#p?=DFQyJc5OUONxnBd9qX
zj4t;+>zeMi#Q(rzG3Y^1%V@QpUXLu^(AV(N>h(=rh#~M6q80mL*XH5q%0HEm+d)bH
z-f~ei{QFu6APIlI%hbuc{6-B@I|)RPkFK**Ay%d0FJHbymdQbIlkN#+x7oJdbltk3
zY3C9+A!H~Vy7p)1=Vs$1$(He5K~{SAD#dZu3EVqr+LMwjzQ6azRcQ2_oE)eJIdE2>
z1>{BV-Vrtjly#ko+Ul<(+kRbTy%^DAKFd`Mtnfts7u8R4bO~)oo?l5@!6lYNG@JFQ
zDJd+HBcCDck0AGURmN3c4Ar$9xXeN!8*#!<vd)`vzo3t67P
zh)=u9W{Quyrc}zVVQ0U$e(&>+F~W@lPQvMl;WO@?xmAC9@xJZ))kj9w1u~BDyFG
zsbx|U5R#a9os$5A+3gf+Z`0JDpB4uJA6PGck5kQ|@5`Z+P4C-&za3$lOqd&xX962e
zG_h=maHLfnJU^$H>9BsU*|7orox66q9JwIz)w-;uW+s31%a<=D`_bRqmxxxw@58Zn
zt@@?n(o(6e2p_=uT|jrFYkqTU)k-e1!4oo!zCLs5pOxk0-#(CYXNhOuv9Bw+5aXIT
z_JhE1aUo}u(LzxRkrrM&>V&%j)yz{glNTb55C8EwB>YUrTflS#cXo_Hrb{^e^73%v
zZ|!xWL-zMK#^`KYyU6>Fk0)?xtA%p_;z(R|GVHzjigExCt;95~6DLw|%Lxxx@0MN5ykvogq-j#_
zpV-RG1$sd<%i5@H~;YnvG7C%ky5R0wSb6>Qn+R
z0Q|Uk*^2iiB?(!%t#5yW@?|tZMK~S!>V36f@D&qpux*`D7})y`yPl?8r(71NH>>22
zp)6p75Z@Josp#!rxm9r4(m>IklD*BR!SJA-owk`qN#K-0;K~1)2t4mDlX8Q`G&?m~
z@7(zQ!-svnNv|PRhC6aQAV2CRrSs7&Wb1%Gu(kJ3mjQ7
z-h$`7e%HlM1y>epryHlEN5_tRb&ZL1dNzkyi6*mhZ-d3>-rnkjFfb)$=^o
z=INC`)>2M3@l`S?3Tojirg`(71Av=ASlP(T__EYOlz&IC#ia8f&@Wo$X}8nNUra$W
zQbZ@WaY_W`J=*Q}fQDd0r42W*h}TTsNC%3z`9TPRHiR{lUO(-r@c~{L`|g;iKS1t*
z1Wrydf#+{tLjL|B1XN9Q37T}RH-E!=qvZY%URi;Q(-U+SV0^DRU
z2CB3~{m(FOcKu`Pynt~EG_ZEY{;`_#9NRQ4u;TfX9YJW{o9AcB=IK;VgwmQ%9Qe2|
zoA~+py%i#y)>b?Zzw#8hgsjDj)$c%x>Ld?B&^8A%$LF>G^3PXHBo2G35_%e54!`&2
zTfYDT-RmM+vVJAViC_rW8^Zub*tN$RtjaWW9WH!+{JSYGfOjB(QS)Zm%a}aHOVL^9WQFu?4ozzY3q>q
z!e)C72=_fT+LKuxO#ZbyvWZva6f(NcaVg@4fHY4iQ8Y&9U`@?Qvm~nT;#kS~qfE%rm(2MmiuRq3)w>`Giw&L&u)in#M#J(pXa}GT9T^`A)`?4&D
zH?5}8QK3n$1r|C3c4=d!K4b^<}ebSJEp_5%@2`iet`4pGj&
zy1JA|7KC%cE+M@fGl%f8@=F9!7?(dTP{H?5A`S$i79gi%*~g=wdVcuyX$6fKJT-J|
z)L_+P#n(UzjM684j=S**HZg%dv{CbuVe^v&Mxw^MLMZhFJ_Nscor;YU0);igcH#BQ
zAJzYO0npEjyFwL5I?}ld0+ONT*$G}TcqYbROHh2c{VWz!Et3GSt-Q?m=M53tEeK;s
ze16-{79uwynF?guL8Yxhh}>A&10p|m0YydwTAxQqqqlqn>eYAaNl<#qFI}*QXKKq_
zZ9i;{n)!KCI{t+Rxgoi}AoIM#<7+0AwAYEDJro020AEcONzJW*I1RzwLIc~-=|*U#
zwZf+#_B)8$E!=-a<>r9XDcE|_$Yrqa7MGQ=(sG~-5&8hhRNjjxq`y|w>yzS;tFov`Vx%hgW~Uz0lNEe8SAp-$v*^3CG;X!sD&t3wnN4I1{W@<
zUFwCA1X#jlxMVLVU@vZoJqc`=suo(mXdkd@8@v^`01ZTWInf^#vD}m7pF7xsWpdwF
zTwDx8Ja(II$xV_JV8|v6*F9-Lfd%qfnSXwecYc-3ue%LDBZCr$Yb@*L)gHKCV%||a
zDZ6l;te0KSg5a|q0cM$j1keno6_v@R_Cf&KUmJX_u29ZDzOf=a7O?EjPgUoKqOxH%
z!%$-fT*tGYdhQdDmYzo*o&}-%Me@}}#Xl~7WYcQMNxTxay^s^`+`f(45$ZNS?nY!c
z=yIg?KoNi!?o!^ucdp?iJ}?BbB)}?hJ%NqYOfxKpsPw4+u&Ca`ja;e)S7}|LBA=j>
zozWqSDu{)G-~?xlS+CKc$e%B2hUS3e1a|jkx>R650LOx5yG`l#{ALn>1^%EvMd%ht
zx6k$R^E#eF4NPpfnf3>t_tACmj^6k0-_fZ*1zsWK?;lOXsZ+H`KZ!880cY$K6zl;C
zQ5xSJl=ulYJN()B8N?U5uWxiVC3M;SJKk}z$v|}<1zZ9FFG~UOiOMGlpZr(Jl8&Pb
z>$I;67@`?k3!%q}L_+=!p28Z;J;W!p3O~_2<7&a+q5h0NHC^2%V2eZdIQ{xPltWC&
zclxh$jscJQf4Ri3m2v6O4VAr-XO9`aK>CdwvRJ#w@<=-Y?mhtSTlFY5e`QO>vOrNk
z#FOT1%EwBHDF+|ChNlGHudSyk>Wtn)whXjN=5S%S!q3CRO3X=vOeLl>G#WcFx_9Bz
zQ~$Q5Q9(nt-c8wX3GuuJ1RRB%6_gQZ%ZRWAk9kKfAj{6G%<1j-*bEmL#l(!Vt+*E=5H{ck6&|K9A$-$*C_^)>#xCtd#M(+CP%*uMYkGEgvYGEn+DE|w*i
zF_CS9+_NPVANSvO8YV1`j%HsjaQjHyMwxcYyyNV=&B(;6wIT22YvrTcx^WB?pvXl5S|Rvsv#_5
z{@YIN#8eD=SgH)FCkTHe!zVy30E3Oh;Tl>`02@^L`sDNSPfVf35wiw3QP6p3(CHT&
zL!N9305J@>a3gEIg|ELqnTA-pbSV%ifS?I*000x2$QXewlep!su}VGkPOhIeX&szE
zUyy`!1qUXf^Z;{yp~3SrK*njn$9Rf&Jd|>o+GPA3Jv-fkkbpCt(uvmhk?i_YeaOO{
zi0SWtMLcu_h(XxSM!CU9%2LF|#WNc&A0=GOwo^mM-TmQxD1>OdVxe&~+f?fS%-<_I
zm#o?Ads68o+=Q|eRBWY`4&ZYc3cSUou}@k<2pl`0qi(m@6W|<@CHjx*I1Q0gHIIM4
z2HbO+(8O?E==6k%0)wD@##tE;q(umTY58h4=%FdOLxDJ09auPZ3H~=
z2?ro$r19%--g0Gs1&MZLF%wa9{XW1J$RlG2{M}mr;K2hFkb2oV>$%d
z^By2S0P?<}_b5-KNLLQwZX&<=`zNF~(jw&G-xpvt*hp2338q|REdPF)f!5B($a2YM
zZ_97nwymHc$Epe(_uZu17=kXI6q9JxU%lQ94-Lss&^aFQjmMN5j~B<9HFr5h1=ijX
zHE(i8twym3*=ydU2Gsp(DTk`$P-e5M6NbZ7g`{EF2;6OSqS5N8_hpXDPqwD}6v=IP
zazbp?r$rk-v@^)W^2^w~X&cn)UuCS=xKa$9F_ymamoQDYLG*I7(N95fVM!c8#^S*!
zZsG8dkJi`MpMiI#{**z8AIw3js=E;(r1b|7CJ>laDvkigXy$ISg5*y9WVl|Z-l54T
z9WIkb-!ugXH6lGfERBXU(7p@NF%3cRVNj40c=pXlAkPxx4r%#8)u0rj5jh|EG~K*;
z?#6nv=(?j04wI-ovEmV`;y-T29nkTuD?Yc8s8f@tX(d~DAm?7Q)6*d`Lebfb
z^4LPK5a;6lkK7U4W8TCiL+EZB7GhJA=W*BsR~RZfhIiJ%xiLF6@AM%7egUj&rMf|g
zO%=R2u$!rmMuI@mgYvKT5k6wO-Wrt+_dz^(J;Z77RjX&{!@8>1ItV
zheZy;nQ+!X6C&tD(e-Z$71icm*k8`@dP%!hkhtcoXmo!Habg~15LV*OkunP%3?Na$
z(Iq&UNda7tSYd3W
zylJzd5-|Xh&QFinWWg+oohv%
z(W=f&klX8v!J1-ySkTe}R-!4-`pYO5fH80okIP6oK;)4sXP_)ym(j}Gro^xgo)T{B
zRM1!lvmZq70sllTgq@6h3vg)*gPjCi0RnsggpRnWf0UFt;;b=$4anx-ZWB@1ud7_6l$pEx
zdAMkFC@5rK6w-e|j@N^g4>}}*8!4~~RJ`O~FoC9`*)MuiK9Y0^rG<=QHoQni-wX&%
za5+qrx^3S`woH#uN^H4B6%>0sHB-!Tm7S{vQM^P@Y(pgZEWCiBa#IWWvGI5TY3Bap
z>huedrrqDOEkHwW{ucbd|9RtIO85UIi=#Vh&3Z<9)t#a*l1px_7+!kSgW)2kGLJ1$
z*vcqxyc^!sG3lTW)m4{o-sdEl^jrC{B^w2E8V&lW5a=sriV|tw4ed}EtXsoz)rEpukm%;yH}_cxxeNx&G>T`uvI$B#GA
zKO^g+z6sMmgYYAcL>PA!57!4;tEikkd$wb`}P&bZ;NufA8VJ3+>3~Zw5Nq53Zxi2rj-!LN0f1=)
z>x(i&qeEkWH6app{HXu7Nzm3NO&MEsNHVsO2hx(79r;QvgbPX+&_w?%X4^qAbI44<
zFa6gqY}B^~hee}9Z&Mc-D1Z76h4Frk=+hgf<4^8D7?z78fJxxlru2xk3<|X*R}Bizr(bG1!Q=)L5lxo;Y!0IK!#@AW(+W
zXm|QYp7H&gHb%fKPovxK*VQsk7i5ZtX8PuKEwBK-ku@vRm#0umFnCX+r=;vGQ*U!u
zLw(iUw$}AWezTmyex9;VpN@_Hb|&oKKs>>1{{rz!>iZ9JK;1+2Jytmc2ROt^wa%RA
zHt-5)saDDSCL}a!{((_&*REa3{-(%eAPSF;TWpX7d~}8$be#&M2|I0Y|F;8<7#!oD
z8%w?LaqZz|S3Vdc8)e;Hp7cu{+&p-+19l0$nEitiovh2aDvh*#gz=o+v!3=Z;{t)r
zN+Zpg-v=lqR2d8*>6Fx0MG&g`aX-2Ff5m1YJO3J+{dF9y6oW2r3sS4IvlDW}R}Z0n
zA`#wQmkP3&4Aucx6bB~4Ee_&1i^DXoc|idQDC!FMllw
z+FSqUZ?W4-w>+I*8FV)#KQ>!XY@tsh1DXhLBFVySyVvN8et|n9WDpCRCpV2rtl;|}
z;8uy!u#mgO&NaOfa7U9E+VPWqX6ZZE56fAwA03yH2K;~x<^KnuraQ`sK{*rM6vAwC
zp2E2122-%zY;15>AzNKZ+bSR+KwK;f1K!*2??JHLDLVIxo$=Pyhs~{zpI{mL;n7`A
zI?-VWstP0$iJ}GBL7Z-Zvonb8s*8su;vJs&6dVk6Dlr{@Rgw^De0^o)SD0R5kzOkU
zu)UX%d;Q-SdOfs>ruFy1K^`{d`7m_1u%_LlqHP?4Piqsoat+)@aHNCMMDW58^Hq{d
z!3#_!4)NGRC)6kLBsz)R=YdMpkaFQDB^<0d4(q@-U>KA86SMv&H!|iygfY-4T|7$}
zq)U_BvBCo
z0pd`?2*-oP+0Y_D4iCdkMl{a^Ki*}%RiV-aV3f2}RYyJuCaO-^!mNbUs-1D^6#5X@
zT)^#Dpo_hIQ}I(g1W^co`{Bw%HYKf|P#9-#E!+kdOM_v@ZN|feJH_c|%PX)*mPLD=
zWl%A}GvkS;qD98q;9Im_WfoqLoc0y(ogo2f(_Qfg3j)ivv_qwWSryz0z7ts|L>Q)J
za^W4}Ydr7n>+!CQPu|lRhoMwG*QrM?Kv^V~5zXXt@Mge>)eWyyN(Z_#84BDj!Qd+5
z)Dtk6k_4gvrk@l{hz@-(#uAyrJOK^_Vjkb%pJ@U7r>jZ);z;td7
zf*oF8U=h-b!y2xKM~g>8`G!YD_>u`Y`gaYA>tUYZQf&&kYe+%h=j>CoT36!Om)GD3
zGA`9Zt1ubuu7s@o{{4F~m>OisGWWtm54?mjh?pk(_lS{1LEf3AOw)c#nb*Sj!jFI@
z(@|{s<$k`t80DEHhD#XxP^$#hg#`qra3Ih;+?{FW%~CvGUhDVvL-)eHYk}G0g+B{*
z^KIK8#2&K`zFW~{D@hI8!1qq_|KY>MkTr2YX#89{p!2GBK
z?U}R(Kh^^AgUwTR;o?PT;`gMdYs+LPh)5Sm*8-+7+1SP)WuxI)dlqEY4Gw18T0vpq
zP&`P0wVyD++xAomz1%HAS3Z4uKei17`Nx=V9<+A`djS2(4Tfnp%VKb!95N5Ztzfjh
z*lOagb%vE?Oc3f1Xvt1Yx%kgG*#IR9Lz7x?hQ?KqS!;Y6ugtBYbI{^lpZtVjh0JX|
z`H9U+pUr2oW5D>_-#H)0!9e??rAegLq35k|Q$J3~+
z5@+lMjnb>3v=1&grF}8y4#Pk|+=baw9%{b7ct}eb=<9RA(Nij@a
zA@UQZOLD+y@pw(I7d290HlG82xk-(kyJ?U5Kv><@O8t7+6c7@UL~TvR&I8pXImjfd
zkeEBikm#6NjH#WUbJGKEP@r^^9%Q#BiaM1<4lo=t9K3G
zhTgf%lw2!N_9DRkDCr*gTKq1^8!$T0lJO|yho~fp=x22f!?1K$BUi_~C_X*m<~A5N
z!rNNx!w=}qi<*NIKq?`@67Syk=nXmudFS>Ie(dHg%W1^T#p9)+Q_E;`5>7zqI4LlA
z-0tyPy~Fw-8i9F~cA}N=hb?EK3hh~UAwLE3(Hl<>b~nE%4D_6=IoP_+2$tVwfwdr@
zM@a-h+JHRqurTlOlyP6lJhqOSfE%2MK8ahl;fu^n41(Au)2!35D4|^c!nP&CVpEbG
zxi1Vp_#IhYe@ET<*tUub|9VK8rWlTLIa0aWybBuo;}etGIQHYF^vqdowrPu73^5y8
z&g4G`3R>^=jx5fb%t8AZoQ^OJLxC&>Xsf8GNOa&FswuXtJq~Li7Wg-TGicrSL*T{>
z0HU6x2SyylV->+rDpEJ-|2*hn9)6Q}Gij=^kAQG|Yow)B$l-A?JvIW|;_2sO7!|YB
z{KrFQV5qKkUZKq9G|M=Lr6Br(MTik2FdXAhjXeNd2jX^+OwYmbk2Y)$mY~zFlkI45q7QQbW#vIo!iPA^vBk@jQ02F(*61x_&J$S}qm@)l+QiF`|K~ZGk
z65Brb*dI7R$Erk>IP3n<{o4<*e=)>HEyIyGWGE(NpXlDbnV>*;ynt~?e3U?eOn)V-
zh|v+^mgJFkoe9Hy)SEtj;KOy8WJUL&HF*9d(iY#LyAv2%9fD(MKa88$ZUh&ic*{@%
zFj%W1&pmp6n$&2Bovy<{&EGpZ$gKO;{e12^t1XiBa1U1KmG?tc#4RIa(^1&)yHcFW
zu^r<;1Wm)diUO4AAOZmWqb|J%SkHf9Ah`x<5MAO5%=Utc6NpWMqVNUKB+kz!$X=U}XX_nD5(U#)$ipXjIO)?Ex}CvQVo#JC1_@SZHZD
z8bR^eA_YkzLHCxecG`|}1$IEIBD1n%@Dh^$OSgbY^qGSNL(F+r^hh;fHUmwwSbhg2
zFmues;A=rL-4c4~%TswTtXqVWHN#fE7Q8Z@aq+SmF7Mgb7&?b{y&4mhb_fbI;xnZdHk72TZi1sXC>_gn$o|T60(?w|HVOUt$kA5a*
zx8C1RTnK~8afWx51%t%_CyW|B&^wMJ6i^+*vh
zLy`@V59~7(a3scl9&$hpAQrA)kL^Luoxw=cR!p0z?iw7$*vzTHdS2&4#jyO{WaVu_
zUy1yZVb(ZBhVP_ZouPOY?Q;?XDHaBoJ2^xFABL<8;7Ya=(Hs$hl~$9o3+H-iObRI^K}==p+Sl>)^O0^O|5jiv#^IjWszr37J)YsGhF>4XBTtT1tpG
zV?wMR58NGt&F|N(k>xp1liUUs_Hg{MmE3o8FEY#PVcmug=ft=A
zUhG4Tkwi+pK_zpmYR)_>q58gIY$+JV*4y;_8kX-;3i6fou{EJMNh14_Uyh?Ek7O2F
zpVp&D%ti}Zuv!m)+cg3r)pM8dGs{xuNA>2_23rVR#@(}tpocSOWtv2ctiJyGCM!`(
zQ*ecuD@;5JIlIZJX6w&xWL-|%4;`3&0Z}4eZc-h`dS8Cz<%H0ibQLkK(mJ`7xLI1R
zGC#PE2D}^04CNa+c!5Z-bvWl>n&|S@5^v!@V3(w%2XRKwE|cu71zM3
z*sLaLkK0{MlW}#O9atUV;YmCPwe>P?VCzw|>0BanRwb0Xs|do$pPG!AGdM~+gy
zAy%7Y>rs8KQ(Zx&^$u0O$qR>UjRRGUK0kit#i@qw7F+tYS*fIigv6xPVg>~cWP2um
zL}E^P+j#ywIh1NzM|~Qq00&MZ0OF4o+1$UjR(>_>*_iG>P&$S+SWPu>QkZSN|0c_E
zMFbtVC<&YHk*9}qvBS|PgXMDOz%
z7%}Q)>*d5!@Qiix0&94I&Nq)OnN@kf8X)xBZxhL;j10y%$?_k)Joy$|-S*}D7}Wp3
z_;ra*sX8ZrfO)RF;Bb!lF7SGPxaqmv!$nLfs^sW_U3820w3}SkpMRIORV8PzqGPNn
zk=zOHBby{U97*!V6rLU9z%wC{D)LpiUhzt<-6&Ob3hAcbe
z`e<>o()TeK2S4c^`gS<^(EtpjC~aGt4WP=V$DhfU;DL0fo<9Wo#f{i$K8XR5kO6g4
zOZfN}W>sbDj|#usL{9>pN2Y3$FC3CVI&ZncL?-m8g#gESc6`Tn6Jje87faNIh0E?H
z)fETX^nYzU3}SMd`t%)h#tk~pU$ovP=!X6iw>p9$eY;Ae2>+VCC$M6Hia07YyE}RM
zEqthP&#%2ND?1)<8Et(3nltz0dolL57+Zb4C}!!K@4KB
zTi~!?E*UanKwJ}&)*6FLNUg^-46o&zRRC`;@O%JsvdjFyCPsg#4T3cH*Ru#JoXfKZ
zkd9i21aMrUFAWgP8GQ({pVFmIJK#zIqL^usW@IRk+K9(^AQ=S!uYpH;6oGmQLsmO8
zY9awba$r28(P3x95ghy~6XzFu60;L{t)s3%_C{rl?+BTJtYL=JEWQkibNn;t(HlBq2x$@Nl)mbB_-b98aDE(z{Z~KF~fm
zAd;YRB3{i+cKUR^<$($12cE4f=n--bHEIZ8d?s3RbS7@#&#?U3TN@{m`977DkkX2P
zM|~&FHdsC2AV=U17)Juk5cCEM8VA(@g$#fGzvkGOXIjVb_Oj3si-o&8d{9a5xy+fX
F{|`Uk?Z5y4

diff --git a/docs/articles/AMR_files/figure-html/plot 4-1.png b/docs/articles/AMR_files/figure-html/plot 4-1.png
index ce2ce98d0b3e1483d848b7a59858b2049344d483..04478c7116936d71d85ffec5c344a68ddde39a30 100644
GIT binary patch
delta 47402
zcmc$Gc{r7O->-JYDmQW
z=ce|P9ZZrMBC<2*)%!FOw#%;ja&GwM?>wiCZ9=tqwVjLUCau6-Qp8CHHLWi9zJG57adUbI{I{YkYY-N5hu{U=8(wQjE6)X~v#
zYfC^tz~o3vw8)j^X)+R@S;Q*ZruE-(D5s|@7C
zW$2#u>nQPX!Br=ojZ{)r{zd%yW%)6t{P~5~fBp5>gItwJ$;q}{OUvd|OvG@yLDAN2
z+bDb#bMvptLM56hT7rEkVTm23ULMoqor$W^-rsw!=jXfV=zPWpP&Jd|K0TSAo|tIM
z9r^w3Q*v_hhYuepDO&8pri!kv1qgDJW5F2D{j%4
z#K6ov{pBv_)L6S17uT!KPJ{4g>dD0=C808wE$QqmEG*l$X{75H2Cz#>ii_iuPOP&Z
zX-@0t(8t2K@+qOS(2+>AXrfBH|NbX?CoMgjPL8>np*eWLIy)GFb>r^l=H}{(0iAvyemFBT)5vQw^hqDDRg2?n{r6hi0x3{;K^^tTMen$)r4Aee4)K?wKPft&O{rdH@
zXU}2)+n!%IiJ|SU3K1N2C&%bz_xbb6cK11DmhhQnjzb?Bo+-!2$L|y||Co9ntK~6f
z=FAWg8;X4wCE>_}*U_U3q1uLO2}Xqu^6Tu!I|{c8>b`#>q2V@AUE#-!VHoP~7rFfY
zQIxcYq=baD_rlDtIvE*{sZkoOO@W*;$M6PP
zPS20UZjPZ!&x)Hab-r-o^qz?gqExcY<$
zk+QjA{?oy6adB9S10y4P=gvLHzhNI)cND075ZB4%)2M!T@BRy?5ewT3r-OTYd;53l
z^zX;qmpBY4{Ti&@ry4anG_>z@Lw&r$(ED)5-(S@t*HmH-9|{?zcbD0gEfRTm?<)M5
zy0>iSz-Q?pMWd7crYp*(%J(;?)Zf?2B=+q~+$wc_we!q{4HY3wtZ)R|N6B}Hc1op
zM|Ts;!Izbl3W=PY((XAf6NZaRUPF;C`UVD*iK}VeYnbe#eCVPvmdDDw9Ic&eR7msS
z&?Uk0-M7B~`0=f~3>$YbJ3G5BT4uSDlVB6K+a)34wzM!C%9vZj|WZ`fVByflw-sXD#M%xs8ZTZ1i4iNG}dlo+u-6djRDBDXtJ33
z{)JyFRorvtdvlsz=$gB_X#s(OF822LOttM*RaJ%deRmQQ%|0cZ$xV@T9(}Z>7Yo5_
z?svVB+U*TY{W-T6Tx%Tbq!TrIuOdH`Q2|Y2pNuL=}ONw(9`F+QxYDWR#6e)k=hQQG{~d=fSNJj&
zIgg=vMWa8kirFl@KV0{f`=;rI3l~t>K1CazJGaYL<*=)}yYPekG+z(SKjpjieR5JT
zoatNlS6Ujvadvk0r|sRr{mtvyp6|J|ubepKGTw3j{(Z4-&rhE|X_$ot2G)J8kKfFB
zEY)i}w($GfTI*mReU4G&WtZ{Eqsunpuu
zNBJ7`@L@jsB#MkPO3~`I8;xls$kldjFB>qEQ<5g1MD{MC`$){5ef!J?szZB;=(dBw
zJ?EmR=lC9W3-QbJ#wwmY>y7Q#A1nQaurV!g96IamUFw{9u`=R7V#R~p7sv9u
zH|&-rPM#bn(&RqPdc>m9GNUBnJ`JiUm+h8CDI4-yX?W9xgL}5fzKg#spqulxr~Iab
zgoNz6T;0gWkLPNH%Ftep9Xj;mHnX95!_#}}h8(+PJs3Csh{lH9w&UlG`uh4EJ9fyf
zJ01KXQfhi>e!{5ORn40@b*7G;O*QK1`8+G)yp2sd+e-}6RFk&R`rSOLQK|QJsbv6Oio6A2_pPc9hoQ!Q7$j-{TwT08`w;DDg8a4aw
zH}MLA4Gj%9Zr+@n*zYjWT8#j8Qh&emwWoQ3tOxB1vVtLsV_yL8(sKD;a!tAftcQ!bQN$DCMwsTGI`4b-sM)xQ5-(1{Z#zJ2@VV2!ugHc>;HQiPwWp!}n>E(|<0
z8gI*0ex`0v<}H2j;B)l-eP^GX+seilN;M#goUuj?id}yIPXO8AUa-qGlN%l#y7+#~
zab<9pqWkW0dYg~1q`q!#EkqMrT3R}P{yeKc&*8%;8rkT{3=9k!2`X1`mkVpR$)g?i
z_VwXcBTXqSS(lV|zbSMaqGy+EjFa~hwQl>WIX*nxhE)vYPGEXvT))4ptIKd2Y1T+Q
zOF8gULqj9qy1f~Yvc-sy=I7^^keJ2IqOneV&g{#%@`+W{%G|R_b{!{YwDVY-wCBvh
z!-q8tPH
zj@OH_va;gzY_mF^y?gyx4#`$+KVse1*xEXaS@?M_13;P>FC0ox3Ge;#<$}AAnVDIH
zq0Zful$7}RKF<9zj}2Czv&c>V{Pe5r?T~=TJT30$LiEVjNjx^Tqe}efaTU%!4hZz@*@@y23UpZJ=8@IAG?=Cz2
z6h%0XehoR}*UI*6Wz&k$O4+t;TTLiGGYgCPh|bDVn33WtzwkF;$-9~wI`Ai_#FZa^
zmTPr8le!5AX|$v8Q?uI255G@W{7=fahtLe>Zk1g7QgeEuTg)SHa%#%i-kw4BsOQYN
zG%dX&2U7MMm3rFP*j&Dxkhc2J``6^_f$<
zPe_&VK_689vugXFL6?o%S1H7GDJ;9R!7XKs&!RQz`>G{
z&%=@C=eMMn@G}2MDRH%k%sX^Xxny%gW$U4iC-QHcn%&J5z9h|cdH5-2Wv?!fFj(-e
zm;Yz-$%lyxxdb8cZq9Oiu+e>aUS6R@>|7;FNQR+c$Z<=ykTHwPM8^~MYw-fxmC-eU
zB7l=|jh&sHt5>fsy82BRwcOTrLXw_GOw48UbLN={QG-%Xw@oQoIszC-2YdV0=NE4J
z(arL#tR(75&h-H(7Mo=j4jwwBHeYWpVu)I{pL|^bm!;b-ux{hVob3k$1v|6N0uvL5
zZW5c1xkmI#cub}G+`4n8xtQADZ<^iOk*u*VYv;;mYDUm+W!vsIFhMMPpoxHdMR`rN
zVh^~vyXy*seM(d%YbWaOmoHyHo^r!fm6SHn(T#MK6dl;gh7Q9Jgi_X6%(wDs
z!IckiIm*s0J~h!T#8r3n*ZnwNXWPGNY5jblN{s30R>y$zMy
z1R%b+I4*)%?p|J+#)u2E`s-c?D+C7{M-dYDn6d)*R#y*>;{`nPMswB6wYXGbj*@xe
z#P#UtXrLTZ(|)0{1&5^tH+eNsFj4znxsa--Odfdiub;%vumc9vOBY0_)TIF-;qN;k-lnCm@A;!wKBS6q%NAon$Jw6)6Q%Rx-@m*@p+0u(7u7cztKb#yh@s%qwF^`)yZweb%L#TeogOif}=j
zC&%dF!-tcC@@k%*o~bf@!7@7+i2E1MrLBKI5sh^=t=F=#N+-g8y$?d|3wmrYIIynPFhcop2JneDEq
z=j*yUTkvfV3_;zTf}to6pl#=gE(0AMbAwIXyu7?ZLPBV^qUD*k-KDrv!xDEawli|1
zJVUW=&r5S!qok?XD6>3U*U+G@s;Ww0ZZXM_QLyxG-@e_-!$Y!F)2iU$;H?bnH*PFO
z=LE$DsTad7pi#ECQ}PAk{ZEojyfa%_QE^MekNuakXVdb#B)#TxP~!UD`geA8sH>|3
zWj>6GItF6fzD;m@4ahFP^=2m8pENYov=5RLcUzhyLf$v-W5!=h7~CHX%0l>-2>^`c
zg&`T4`O$0$GPpZvB;(N7GCIqKF}xLT-=0!XaQW77X}B>t&lXHbm^*dXaRsDkQ!WNmh9F*HXM<9ploSt#V_-Pw9gQxND+%VoTL`Nb~DE)BnmC9
zJP1nf-f_Oes95f}tD9OKB&^HThc%vEGDM~FaC4i-8|Ul^Auh5J-bHH^^z}QS+3<_r
z!4^MX`HqIh;sfL&`l2l~9h)|;J()XCX&<1wE_I*2xo6#`O$K>Ztp)adAe~9nVIU~f
ztI0Ot_JyA{Sf0+eRU;+$a)AgvmrkNuKr)Ix=9K_QbVl(I%SK3s+k!x>EN9mVw)6}R
zP7y6-OSz!hZRG&Gs^P-&9xZJQ=IaA6JEcF~?raun2d52Mj#7x<#8FjUoyF0bb4BCw
z<-w1!CnH3yE%ZY3UL{efz=ITu6BZX_%&U%$+Za&TPlxc_Qd!akZ^`lC*ecb3*5&Yl*H`g{EmFH*7%tC}mzBDn*+=ZPLEq
zK|RlZ{`?7X5CT-m+xt7Vad4EPvZEw7Jnng}BY?}bcX7!mC_9a^zqB~7f$acD-p~LQ
zD0gDEc}?ZFPl@vV$%#=}Qa|u9T)iVBDT0?CKY3y$8sbgazQx}D2N<4}!AWiuA8F~5
zkf)TxtAS-g+9*P_qobq1A-*A7v{>ZLyl^
z=N>ht!e^d{+hfP)DXRfvhdy}FK`bvi>!n+D6}zG2@7=pM#8!)m8HG+!Svf^~?Fl}C
zkl4k~XxBwTznDTIw05&*Et=$-kmX`3UX=fhyVf&{Og@Eb^XQV^kY+96^#cO~VtoHR
ze#{rbpv_BM;c`TqY;^P_ZT-7hLC5-qB<=?p=u
z2WV*pLbbUD);|#gWoZ+usc1yme8{`28wnMT70aPfZqdM0Q;kuuFJ{x4=NkI@#U>RS
zW+(2kgz|{zY^=cMy(}f!_wxE`KtSx=kEPm{7q>vPHW52HgP($`nKvc{g)#oq9X9-2
z*^Y7hc2K@U2M?aplhWuL92}gOFw)e_!Nq_)Nl$&g=-jt!^z9wQh^15n4{_-vZlfun^>*qP4V{vr;JgR33e=
z=Fia4rol>T8MmnTvLay6VEE41`6xmyk?a4YifK-a_Vx3Ve`AvQG%*nkYVp}aLnT5<
ziS>|)9N<~nK<)*`JUTlag;P3aS&wQ5(Xa${o*(ztJFe+nb3`ACmeKN@_UY62oMQn%
zK19nH$t9>pr+bA6LESuiR+QDhd0<~^VhUB)Ugxgp_X{B3P-28iXX3{6s8op8Z!0R~
z{j}5=t$iyYKX2Hu!D_V~VQ;@f$~iSG`y8XZGASA8N4(cJG~{4sXWzb^hpSFz*)vVs
zsYdu`yU3HzpLND6Z`^=ZvYibA>5_+H4SEfL1|t*Gv$VSpLPCC#_o#@Q*-^SOt4XnQ
zQu6Y0JSva=!RyJB)V-{r1NQcrqF3bA9sptZ6CBcQd7gmnKE+tIXC8}$A2tinO2sUp
z{)NLZO3_L~fp>7oisMC{ZACW>6V$_|TAHbpA@2#47!4ADYysa5t?vnJ2~ADYgDj8_
znqcCjEj@k8O`%|VOO>=g<>=j#mBTGy!u|aG0R9MDse+So!iNt7c%$m&?B2>HY~T9^
zaxZSt^ZlbkkPHe73+3hI$H&LPeaAm%#!tS1s>~+sE^_RccSnIe)Ke_VwnUD@m+w2Z
z2d%6X>$V&T2;C^CTX*b8=BkGBHm!ekj43=d<|`N4X?*Wv{rnD-?A2UJ^hxV4ome
z_$wf`E7oG$Q=qxrxqaJfX?6(mUrlZ8CVG0C)~o?+PwNarKZ=CnVCudNj3Ty**FqhS9)ENs62&Y
zR@q~USzjz$o-b32Kh^3_n_P(gBCntTg{&Qao!a?$LbtWGwaF&4O*GRlFd(DzpKI>s
z?k$;3QuSH8ikEO8>Fepw_n9Jsl{IG2MjZliih(v&1kO$gC;9x5BuH%k+X
zsI}Tgr>U9I(v!5a&3Hq5sFXzopbzje;M57{6@lPdyZ@TXj7&E%5hmRa_0%paE
z5jeQA500}ZwOHCUu3BlPjS%PC&zM^Fj%1W|8NnrlwBl1dH=I)Y_()2q#mXPNJkv3@
zK4687>Dym?V4-~abQLt_CTbH5U{Z?WcUo!v*CLAAx3K}*>*ZM`S8PBxBXu?1)GaGx
z)v?tw!(*)90M`x!zx0qOqNoJ#ker^Ir4{ZfXwTttv(8H|$r{dM*
zP#Khzl%BAk9RRRrl&`9(al|hj(Nll?UiiA1IWN
zqKP?se*4jhzEKt%StfgCdlzRGvDh)!D~yLECH~R-?&wS-7TfvSeJQ49GGv1h=Wd(v
z;Oy0Qw+`G$9eU!jInjlE#PveF+Wq`r#MZFCzZ{V;2vIO9718!g$;r7|A18nE&PJ3}
z()1#0{e6~0CV(<%yp$K!Q04H;;K)dW*XF1{(IFDX?C2o5@8z-cFUfE^{o5WK?c(F*
zoe8ls-bFAoCq9KDIwJxn_s*()d-o<&+Y-*~lviVusW~t@?6qNKs;Rzf6xdInIU^__
zpvkybM5J+iW`3e9`tjp7KtKqDovw>
z|L12Ui-+x&lyrydbl|`N5Ks4+FL(I`yW!sQ8OSU1HY(ld1Lmbto#8JinYG?FC{g{h
zX(&NGNqdOA_4E`97HFA$->HzQ-_3fqonWBOw=sS~hQ;Q>;W?AyBGAu+f`VXOSfVOL
zM;oDS8@Yb@yZtYdkRG3afUZ)nd3dw_r~2UX!a{+(EMu7oV8}@<9Fmlr16M&sM5zb*
z2ZDZ7Zv1hBeu?`e)PDjdp5cqD$$hIn-!}M`$SWYQKzixpoe@DnYMPpm6PM?^m%SU4
z)K0}`Cgih_vth@)r(BJ>y1E)oT8ImM{76JCyeI5i>-xBgVz*y^tzOL^rV8tql8fIq
zpXSFTEg>gSdpSEILJzh0^5x4{ul|Mr&kXDLGYCZ*>8c>|QEvPhe-G{f2@9{o!or}4
z>^pZBnO1ETth^u^(d|Bx23e-4pg_c?<8y7T;NHEYm5iE?pSDn`;<;~vXhvV9&+NxG
zhXn5knL%C+7eq%#2mYUhg4^HUPsRf&f>XPkPq~>6kggg%^TLjVjgf^t9@+*{8UZ6DP{yaC)K{!J~5Na#P?>*tB)O
zpx`3dCf4Bm%hj8CeS?F7ew5R4;tO_jahU+4b8Tf{u%G+=4b)#HnmE>3SEov8LbQSS
zU9W)PM48%+*X6i{ym>V_Fgqu7q*bfesysSaZY~0H02SY|HR}?n2$kA);6yMin8_9+
z?c&4mAkwFFHfw9Q3`ee`ad{3H+PF;DBWy+Io2!O5Z)I~jF;ATs
z8(Vxxlr8Mtv!{=2i>oyVV<9FkDvD8?Pc@|We
zQZLYmb<4_An&2-%IY7{aphVDJJjgOPIg)SHngwFozBqIQtsMGOlB*d;s}Gf>qJ1+>
zL9FD6=C_hnG207Q?qzTJbt#th0WV^naX2_Q+&|SPHBtNt@CiB$2SoG;+fuiIP;DDc
zL*-3u5)S=vRSaHS&E#Pg(Y^d8&!b`M2Gp_4_C0(B1d9{9xHXKW9y$w
zdMt89*tYAa;QV(id(LB?;(UC=g+o!<21^=p*q7j75h7Q5$HoK+E+kI21i>BJv_tr*
zNi8;M+h_-td<*rpV@oX}%T^5G&^)Zte^a041@2Qr17f<(o00E6bASpSeg
zAeT6}xVRjpDSAHU-3XE}-d!ex{s#e4P*6}pqSYi*@zVMLz$Rj$kCRErEK`TTHsLF(
z%txMNVDQvU+H1=zl+(&%X3lXpO~K9wp`lDnOq2xG=1E=&;W@)+Ap7dYYQL~h=(E2kCv*87$2%k#
zzI}|nIn_s8TeTY2krOc7=g*%(>!XjlIlR8J=^~~c#No_e1+(8bF|?v6VBIS#DM20p
z814X6{rK^tkB<-j$ag)xkx_RghevAfKvs4(-o(e@atn!$$+K&&N$KQDQIbu%VtJS?
zkWb33`}>-dI`Hh7IZDr2`5S#i9zN~~mD<(S1$>gtp~*M^pbc{M1EZ{PpXI{5kyv}K
z1cg#!_vMBUq96T(-F3OyK;l*|`jjR?y*!_H0K2BrUq?oy09`@J4!R|*_k+op$%13RJ5I-P~dU)K>}rErLuo(%T4j|
zoN6^gm(jgmP*C9ZYp|lSa{6oi>&L9(j)S1f9?s6ra&ouA%E%5gUAD~5!7={rn}jvd
zCX&|wADTtc(&FKQ1`NoZ?97yQ91~??5(l#F^h{mhujh0{y@74q?ABfy3=np3;d;-F
zuP@}S{Ug60DQ66A|6n6>cO?J>w@P(iSNC0{FT&KN5&+ZPrUAIR6#nsc4CTx3Xm220m
zS%7i|y$G#&Y>@z9u=;$kT`VAFLndlBEea^(sJRQ2eO
zHz-w`)}C~CpSw-ROf9)5wz7~}D_-3B>)i4sGc)a?in*DYf}$e5?MID@cCWhTUHC!Q
zHvf%!sJZaYf25Lln14=B8#!3X=Bm=3qfGz;9o@1-0DOL+|1#wencHP0YWb@&C2>Vs
zO8ws)CPt`=?5lf{AVpc^>u_>%qW&>}OXTVZ)?bw}1>wT4VQ5#n+oN27w?$
z|2Dg;A%XYHtDzo0!7sraP~qgBCM6}oH-p+0U;ijFatyxNP;YNTlG+{yboR9T&27d9
z!Dr_>+Gl2G3yBvmd=<5{v~u~^uUltVY~c7qc`$TqiDa8WZ?r>FDPSnyq%`k
zM2S3iYwN0xCkMRCzH+^DPxtOVIg-H*R`6D`B82HNW~utR}cIEe6C
zTH2Ogc}GV_pw@O!1X%bjCb`ZKixm7>2m1Q9F)+mPDhaOD@_)PnjFZ-GWebobO*er}be#=D0weMN?h~@lf4Kv{QwJg}L_ZAr>cFAfZ4=CUtp4
zWKo8i|AKSbY8Fj`ZW0K1FV3N|FfuZx>gMtZ2~7aq{{i<`#@0Hc8~Gk#-oAb5`|HgB
z>b39Q@$&Iu*DWtj5Hc2xyzq&8O8zEqBZg}$8-23+jn`J9WyEB&9umH==dW}WWCHOj
zDOJP11AM_xZ3M}P-d<(Ij2`$X8XNbZjGv7ZeKYRN0
z&8JU}kXN+R_1DwWbBLJ#6UW;|X#;Z@xlTzfjEOOZG{7um2y%#U%k$^o(PObbln|Yo
z?sQ36`d4s)Kt+A*bm}eCcv4AGs(}JVx-y>(73Ace9P@gi5XgaBoBs7ngM#eEA_2{}
z9ZkSGFpDF)79F$fB!c?eX_ph1~EX<
zgjX!({u};CTQm2MA3tzUFh_v=8qiC>4GwCZJNF&dB&U?K08+P+E?xEMu5-VyFx>O=
z8)?lRlA0ijx3RD!vF9tFY&0=u+QtU8@C76)U?yme#v-iB%E~UN`asSF1>z&;AEWi6
zJZlx#84-)QaA!j~V|{#{htScGM9yegNRF1C#u(I5ZuplK$
z(@U2ON>`1n&7@M_zIo&GF6RpI2@1ZPoZ16ejhi@+Enu}ZRX+%WtNTKe(zIVA;Xa47
z?)=;F!9h`nenp1UXU{hKUU9qiZ|}&B6PhLigSNKz$N(1?mnOxl&tD7*LGR!o4;S_&
zQk~m_@PE4VLL<~2=(Gt(iY}D+hTTc3csXj(EGtMLhxIA34&Xg^{rzJ-<+m`{iw-_$zFtaVfTNp;E@QM@D67>>kD#{mo~xrZVkH@^xIx64toO(*-mE
z`F`+%9TE;trxv?cte0lpU4UQzW#35GS5}&VUbR`SXj#M`XQ-CdJfbkirc-z15#rkp
zuqH78<`?->0rR<*BO{v{HlZ3gySU_YG_Fkq*Rqf*Y&J1=KH}#S$4e~zindMxMJA1?
zAf(jWJ5QpLTYh+_g=|NKNwRAPgRa9<_o2UDMpD}%sS7UZMN9gB+#a5=hYz*q^~dVs
zCQragn=-g&zxRVv8
zIgyVmPx*XzGhI{bQC6CdelQ)dlq{kRpV8|x({mi<hZ*HU!77wQwbgdrCv{6eJdLqB7j54tKYeE=aifrTz4%MJF?VW
zyP5N26d#)9z52zk#%8nP>9H|x`t`m8i9u`K@fs05`oT6$b|`PAr4h%GFy-1hR*w~1&jezGn$?L&
zd-HL@;BK-w$M_5y9ak2ztHs4f8IaHj3<#j7quUlV6ipa<>j}R$Cq#6$OFur5_RykG
z+WTcOlk)x9b;mvp_9RnTnVH4VWFXia8w!+Mn>+V>ip=onMdD9a~CyU=->&5sEUuk%%z~Lq*$0+ai
zH8v!}nSOP6cyh=~=beCLsv%v@f`pDv(f|*_sU4WGwD&MwF(udoHd4NFa!5n~(O@cV
z4a(y4{>n}Psy`bk$u8kw+MIeG%p9-}cDHXF4#k+^;0zRPEPwam
z!9_6U5A>7-?k066EoIxy(fSUkBh>#+d7RU$&^8tO*cE;%d2sS`s
z6#I-jJDaqgeYTn1f&0SY2yet-&0hSm>{8t)%WqmwF>{s56tP@
z+73MXGByTY{t80|^AAJ=9@NZrS`HS;t4Y?10Rk`8ihvH>AOn&~e&*b*(PI|vC5k2oLGX?7!OxKx5Co49QrH!0O~Hzs!9fnoB55DR)2B~slCQ=;
z8HOGRHm=r9K520fkE9oWe*)=k-h;zZc)_L8eQsP1p&&5lPjqJ_-f%*wr>-!E?80{uj#;se?E0)OP4Ck{?
zDf5F?OB_AgksgJk3%73H4p&LQt*u?V7WQ_7Xd}ed%8ClPje~ve|)^CG;x|a*`@XlkNt{~z_VU=OLlahEDzP0C11j;O#N8~0C-%N4h7LVD-
zEq;y4Ren8USNWB!tqfAI`!QzcMeYGor?LsrSu2#1paI(pjiJ3zHdy*GO7^su~j`
z^gL9k@6j(+|T_UB%)Y-A7wG?D|4S-dN=P@Wg{?j50+Hi!f)T2e%JiV~-s
zl~t;!#$})pGV?DQ`LS96Z3gR;E9=7RJEU(&IY2K{pj*imPplW5w&Z#H-cR;zW~3OXqx0xU(QYo^xZ0&Q0$l=3zU?nfAQA9$E@D~P#mB}Y7G?3f?!
z^w#k1^C!gkPJu5ThOEqR4`*?n=2=u;9tu+6Ku+{^@LpxUQYZXq*!LF>hrfzu}sDVz06;P-2niF8#h9B0%W$}gULur>dHa0cC2w9-b!d_l9NLtIoR8)ZfLkvM=WV5vt1o)
zqmWVqsb81j=rTFyC>v`xvV264gF+!Weki}TMUCguH&wy{EF?6202(RY4%8$)+aCgz
z0GSS)e!H3HR*hH|nPgVrOFm^4>irgVIt}y)m+C5tUmb9Nq
zo_)_2^TG7Lsd+-jBukx7{xw|q&7e}NPoU<;ciq4>lmCpQ5|aTFGTLgP&59XSw-*){
zAF@T98~e1Xaa+@Ts3!mT^KQ%Z?B~mqW7OZn84$ODEG>$-685xUfsFu~
z6MnwFqZ^L?dVd&MjvwE@+o4jt(fVelqN+MkAAdKmG&zmu%wwyLf*;`A$lT=nKw&~0
zqx)&pPH7)he6p(x3ul?!f^#)DUNk|<{T|P$o70;Q$^Q{aF5;8jVA#Q=Br}O{tVisj
z7L&e;LIA-Q4i^J`0)k^;pemRZ1P2`d%*UZNi_z&HkZ!S8{5fSxk+#M`2Z%Xne*M@r
z*>Hi|N8bukj^ruHTs(K~BRsV(Se`f=JqwQ<1_P3ooSxsyLG$66O;_!UM%Spv>UP$z
z@*k%>gAq1ZD;BZ*D|&e&$5HWv2jN)a=rI{&0S5B9cQ3QXrjho3&$Xz7H&!R{owDoU
zVIlk7p&Rje9U)`aRfwL;@L2L~yT?a)?dT8>=KQJJHUlzhOn3?fW#L0ycuaDSvr{WJuNwv3L*ZfdX
z@eCb`OC5;JmNTc^_+YroWMTe~U%v=PC#TTIV_mur+u!i{nq=z0n@cgMvK|;79v&J(
zB3oNmcX(8X&rCRclM4-_^yXj-)oey51bQqxV%+_Q-&Ia^K0Y_CkbCjQYPtW-j8m0huIM
zQMvDfm|`L3>jS;Q!&l^yl-Kh8uQ$uEA*Gc4y8anL*1$JD@8I>Lg*uttjaP=o?lqcO
zDfbj}hQYUU7I&Y79f-p%t;Pp&F7{<>W`{1qx$qICr#rGQ)oeGbjME0_x##cC6hxkm
zR*OG=YUTT0y#k5Y!-bwP+Mb_5ejk~U3qPzN2Rd@pX;_o|K43?fnhZfO69f#4Kev9N
znWWzn^3NHjmGiAME|G9u!MOLW?Eyy|d@I%~wIOgDS*OmmU{6Ue9jUsvN+%)Bxwpw)
z>foPsPV<#xJw5prnivnOZGJ^$G6=`tttk%0IIMRxQ-7>=@A^IY5nq59i{_L=gV_L8b&OH{0UYY
zIbArx=`zw>+xn$Za|hI|Pl-t%_jX&DqIDJRJn<$RhFI$3TrRNfJ~pNZ?F<+hvX1t-b9Nw1
z$i
zvN}&#c2N`O+yUe8-w;ZYVW@#m1I89~Znr`F793mBd!ZmD#S#_rZ6N2w(2$wlODML;
zSs_ivA$irj^Nvvqf`4QsfM&&web?SzgwMeeaf3O;D4!XIb>=nQNx1M!d!gGPp5J2F
zo$Jz6KEFrg!%h}q(|5IWkQU`VPH3byqOywGc9G`@wdT_IqS|0j%qp;#-CVGjQ4evZ=R6*GfRv0k87r9^$-uP|
z`dOw`B=O&QX!SBFp(3yUuDW__&?$dbta1=QM=Y7y_U@%-93xCq(b8%LV#+WmY6g5n
zju()O6D%76oYKFzD#(lf`UT#R|5sz$eR^5)Bb6j4}GO$cdf1W
z=(f4qBW7RuyX&}@)~7XVwTM+5EEcyzd_OkUa5tvU`!k?
z7^%KxjLtA9$b*kFca{b`bU<|K@S$mLM!r-*=o#-)Tn}2*HS?&@~pYo$nsNLjdrw1j}Xt;4UsqCn=ud
zG%PHJs|z#sX`j&!v2ZUZN4pR2CpkcVb2f}_{7?G(%hgUx>xVTxJr}@f@PLc&po3yp
z8syX%<<;D$$EDqVnlj8nZBN^a91s^tb)uMbXl1)=374jz`ICLc_k5>oKYcp9Z{JY&
z@{$Y8D(ky74UB0Ju0el)z*ExQsVYyO_hRm&_{hnPbF#FC{D0Oxb^LkPPOYWoT2o;F
zLL{pva$5{NzQ*2tkJhugSh-20JXTr))}yoo9!JBFJhM3g7R8;Gzxc@Ljy&-c1u*X<
z*QT|v(N6@pP(J)7W2jUt(l*Pn+Z87D-YU?t0s^97E03`aN~z<&d~z&XKA>Dq6-;dw
zJ#?tvU2Z)Wu
zEp396)y&K1gwfZRmVcK_j~%D=c68C1*p!mGOu9zcODGJqYu7IQtPzU#{CV$RcLaV%
zml5P*zu&?!M%rA;T-sxgBq)Xz(aa_3Bmzt&L}FfAlM9Lb8^?2`es1Hxi(vymD~KU
zyA0@>7mZzARw$J^{q_vjzw5>w!lsB>ab;bsq&K_k_>lT7Cj}K9QIww$S|Wrm`TCH`
z8WcHV<~1jxX=#^oavva1y|SZ6N39q#4Gy1AU7L=1CLZP6$!YO;o>kHQy>H;2fgyI3z
zZ_DoG-qJ;(o!IOTe*Jk6BoUF9_fz6$GO273VUrTIhCBN&&#&_+^Z!9AS
z2FTEM&bwTa9|!c1htuV`g@u1&lKk%7bNf{*CQtMu@L1o4gwP_+0!>1;xaSkLYL$hy
zmR49CFOJ;gNTn|d^5Yo%{GnaDj4@CkO_R`kAYXzy!F40gJn8DbK)r$-eKw-fm038V
z7Hg#n6d7)p$zt~%Q6BPvMTpL!nvu~%%rqoJH-_^i?!+Y8V~)wc=aC(7`2_$bG@jOg
zLZ-(iP5)JI*x6kvsJ`@9dvaxQ+|=eYg~E^-an?st;}ZiLB6OURSHD7##G$(h3n_zq
z^Li6}V_OkOx;RokK3HZwVG);CH(_;%0eV_^v2WS(ok)~ftV%y_YWmdAuLku}{waIucE
zQ>fH2%^L7H7D~@)Pk3Om>JNt<-r5f9hlUUh)WnW*W-0doA
zuD{;0oqe*afCPBH?<7K!)bXXq@>)
zpz!e3uO9(WThk@hG=`yhK1)cz3E9pA;gQkNLR>hnFD5aKqaB!m#=LhgP&CmyE*P94
z263_)vPP5)Q95RtB85|R)lgG#_z=%m0LjPEdb@V7SIAIWC)ShChS?=7+%Tv8P^ohh
zi4{)vUHypJq)^BwJXJJ(F!!Yl7^kFc_Rl`{CPw3GPt&OhgAvpgzW{gJ4#o55TfuSR
ziAkknHye~WKNuKTIcfTZ4mcVD(1bvgA2JBm*QGw8^2lHpLd=$#
zY}AOx8DEeXwvNB0any*9C~D6eZ!6+s8pqaRK)nPe5eZkJw50|lxbFE+!FQLV^_KeR
zp}m>iRj@&AViW&B84i$oOq94lfy3d-ZerQ1BG*_=jD@nw3+ynQJm=fWE`vwI_=q5{
zb7~(3*c(O$l)lELK|8QnhVWxv?tR2te;kO0p?-i1he8Uyf~0Cte4v7KAx#DdZHvrh
z=-F5IeSO=qF8NK>G=$|zy4cx$_vb599;e=%zWer@56D8fN#@bHukoSYr{ni)h2Bg{
zKPK{FZp+Q_kJnqal(>w=tV1>qdF8zT=~O@h>=kmVnQAAr)^s>scq#&
zKF~o)$3uS@3hTZ5+P0s^iM|}0Ad0Ro6-O(LqrjsW;m7w+oiZ8%H3JO-1;)Dm3=w`O
z6HK^|@Eh`MIxSp0p)PSXK;clTd*SitLfw?9)Kl{E_Y?t{`2>$^r1H_~84zCPPbPP-
z^@?4cA>lruD@SWsbhXjrHDBxvFf;72$*=W$cz7-Y2Y#Ucet`06&E4LE&1vOhAF+x^
zftQ=x6K67T6i*IEmvA%`0!BAL$4=`XivUzel!IJ3Ht!+350wf&^2r;|E-Qj3f9H!!
zFc|?u#!-4{rVo`)ApO3U6}k^s7OD?6AnaE^a>?RMPAS6IAypzceyGG>_Mh7UYQu8~
zY(GE$;y=ZZ_}|C96ywfT;v$G~H^8{tJHi5jm%1$o_)S78tmuKmuL@UNFYnuXiQ6`B
zFpP8U%t`XF32?w+KOY~?Vx#S`|)XE#Xx
z3;xit&n#DVMXr@Qzqq_C!~FjF{`rKpJXFus`GM$n&_(53wOTEbr*Qo5~ZuT4(@r~^UIztU82RQ>+nt5
z!2yXOYQ)<^?h$G@TD55QX}D11T~G$HMUm5N8hysxWs
zadadfS8}-SX#D7F%~oIhKMk!?!D*+sEmh|*#1tc
zx9xxmfaZu(%s{NjhyA@~%~6;;pxcxvkDaB|Bc2c&Q{R%|WPAXbpI|*gB_3a1;MLNq
zjeZyRR>o=5m%G`!8;u27Ue?~OZx>*BIg(I+ziY68cQyU)TimA+qfDL4T&J-*V7Mv^
zSotSV8A|jVa7xPT)y*VRKfb3~XEnWthll?u4fHrf#&oYIMX#sr}=j!x!%LWl^@eM8C$%}^qh6r+lgc9uMl!-0XTNlTu};X&d~)6)FeFN
zWMOedqkxP}V#>qXXUIRj_BJgpj(C;z_wyjxzKg>f1CV6c{RR$ht=dNN_dR*W7heks
z8DCCVQpDO`zgs8#&yi?>ca1yP(BtkQf9mIlr^JaUpIG_8QyDnLkd>kdH&ByLLxv&#
z#G%PCoSM1}>k$Tn7);P?#+B#0nEwVRe)41~lQ3SzdPatBDnPHiaW5av_ebC+NL$x=
zOn2Kf|DU@^+Nohi3j8HgZIWFnej_-O7uwU_D&%XXHCJbUgYq
zGdj}vzJvS!H6d(={}?LQn)dXNw@E{zRcEydnXNZ?H0Vd@G2k_DP_gee>^_DjhzDOe
zI{lgQb9*tFx@pe9N9be=IPv=-O8S2__9pOLuiM){jT#iq8M0}TAq_;M651LO3TY;h
zs5B2Bd#BPsAu7#D8B@-n;nv4EMe6
zwXStt*An6uYwHuEE&y)~lRWZ8gK9}m(+@0FK`RQzeP9}n1mvf;Ut%ibzy85-7SDT(y^g_4v?IoQQO-%D=-M*i1FYju9C1`q^)Mw}lIL~NcPJ8|MQ
z%cHZ&C~EG0)h%V(Ho0~3GU1)WRn^mrhkQdmR0ki?CaV7N*ft!9q?QdPd=zH~!Ff
zw2Gp0DsaW%tE{YyhKID2qfU_jmuxZdBRM5O89rjfs*3D;PZMRvju!+w%E&U3_WMb=
zWnH@T6X*^!h0a-#KzlcQzU8>?@!vxEnwwiq8}sT)Cn!6A5o*{%cCj;syB=V7DlB}!
zH>-f7JVx4yAP}O|SCC$V0zg+yiMrM7Qf0~8w=G(?#$%I5HjhJsT}7Ieaqr%6_z3jm
zV22i>QQ=5>_Wb#PN{AZ~Id1RM9zmmPt4`o_b!zzR8nv%odZmt@o+oWfRtB)!0bD~x
zvxEEyTmVSuBLqXLle&*7QWZ3|FRY!H$x5_}J{A{SK9-&EuLs;GBcXgo8+m!Mp{11K
zT~+^lN^!s?OmU8}O7F6L`}PrsA3e2A59+2jTcvAP1DGm?g==nbIDR^Q=+GfJ9o&n~
z%(HXBMnj`5txDYXZcQ_785u%lm3w6waE%lf)4~pZt}~QOM~(|&tATk*_ykVnU$n2<
zs;~N3@SNB0Xw&@7(4~fnO6i_J+4K9KmUL$Nm}gCENSkkv$5Dlu&G`)hTc023@4beM
z5c%9sDy1Lq^B!Y)kei$P@L?r|A)MHNojZkHh=rld{(-}XOT)Fa?%%stj_c{*iH5!k
z^atRy`zpMqLl_#_LB`UZo8;QC1{OYRCEj>Z(ZOlaqJ^9~OtzU-1diBUQIl-Gfp_w>
zkpoz-a8i)jrTHS-AN@CWY4=+JjJao?*z#&jxcRSh>?-9F*r
z*ux|A_ygJJle9DA<6>r$x|D}ngXlDXaiFne3%5Y$Sqrn
zq!h@DyhHs2c162;k&BCPyMf3f*n|jaLiF~%djE-JS|md-S9rPH4`v++iHWJ1Uz_tipWQv^h(TUI2>y_D$HGhQHx;zPP$^{gNdgAc6y|rhp=I1cf*3yITH--NR!}
zH;&s%<*y|or^vN{6ZlE&oCW1X*>LLVEHcp=f*;jTHD0MS+g}yimjoQ&^;BkV+w(0|
zWV~Y7AQR;jIbFkB@#X}wJ|+Hq6K=_<#5vNa|j);JWMndh07~5PIZSy`|$5UD5
z-@cysQ6&|nx#eiZ*}1#Bzkl>7A
zL_=XBO40R-P!M8lOQ1ry*H8_$3tr6ql?&}>BP#{q7~uQq+qWh3ZUC)~g=2|vLyx#z
z@S(ey=|M*#u)UK?O1dg5193kGBRXS${#0$M37q5jH#{@U{nW_lSjEpXQdFJ@=k5%F0
zQcB0i%x9e#*L|A~6pRfENa&YaQujGX#UM}}9=_rf*(*wcv8iV};391J;@sYtQlX1B%G|gNqaMkwXgQJMYo5-_%9U
z&e+10c_)+dLOUguffQItL?u1YmS&tG9X(Ai!^`Wef`*RH7DH&=$z?yPP6|ulaOi#MK
z$1R=6m6!M9(a0(l5JgB$05`VQ*7HLvWDD%*xcMsB4t#nh1dS*z%~_e5R&tpqErP*;
zpnzh9x`8db^`ZBOmypH@}P*wdMCs{CGy};b{klO{wWTOYXQ`
zj4)16zX=-u{UN|r49a>=L4PHKi3i%h{`irUEB?i^XDTD5Rk36g<`EU%$;XcU;Vgfp
zj|D176F&?d!i?=@E(O97RaRC;s}cUDqm5ZZ8H|sReftb4l(+R-_viDnhlPc>P=Dr!
zMjZYK2yAf0=4GpMN*&_X(P%>BFe7=*mwWv~Hq#xMVY1dDh~jyGx+#rA|8)yl-BMQ0
zo%R7F(wNJku_$=~CIGs=l;ej2IC@*5tiBS?9TesFA3YkjtkbsoY12}1aeyy@^`?@l
zp~I);udcUL_e}_iqGM~WI%Yc`Q>=I=A^tolk#nj
z_FDhAI1jSYZ>>X)T?xAuYNaGId68TCGG3kp_Qt-197NPF#l=-lPVUp!ual-tLnZeT
zHwRd=q$fbsIFao~%?vk9$VfO9i7}(G$}mu#DC?t0VC4A;TA60?9_O_H+!PAr+_5fe
z7UM>m8A$fhP94^t^~Q{heR`9EY}Tq@z(r0{&@eDaG@lk;y)T*D=tWc|1$fAgCM1T$
z6Q=152lGW_4i3hRGSMN#5OeQIG+D{X1_yhSNINM;-Y_*cUi*q78RekEq-~I`
zk+61GRu^f>6w6$|0tf%ZB^oqxgL)j(vrKs+pWbB_Q
zTFSG?9SFWAenkFDb~Eg9vux`#Y@f@Gm#WMg{yO!b??4{l+TDrC
zd#9d;Q5&tGfrf{cgSp`btW@t4oQ{wPdwLcjH4uXE14ANs{N`EX^_7H{@ztCc1~Zb*
z%M_misO3>nAkrc-;7<|VJF^C+sFlU}Z%&RAE=1nnXf^-9m7O>V6
zIFWGu7A5CwnTMtm-6=&Lj(a@d;)5f;uv
zs}n3os$N!wI3wk=-jar&I(6z1>YVNUkDN_Pn$f|ogCzn2x>1Oa{OgAf;z;1^<+z^<
z0^~m1SZ4n%*h)gc&Ji{ml-E!xnRI1FcyEAj45jCQ50tFG6E;bHo88d)dt1etK?;bN
zlrDcjO1@V{G~A-VgS~3CJk~mDZ=_IS)^6slDwtpxT=MSS!Nyk#bO6^GEVLGyKSyNG
z(P6>C=Xo0HzM0*+hHQi!U_N2*l+lpRX4Y+=xLLrmWtWz}J#{*-(wh2Df%zkn*CvgQc
zXa2+~f?C05sTa&N7G@7sn^qU7w|b}wvJVF;Pr_r}JOdSnhkpNT_P|4jbe2{xN==A4
z|LVwE@>Hvd4`{f+51=Vg5d-wks59$;
z6bOq0ZRNA{$m#diV+L1UT`d@e-}}S;J`YMof&q_nU&4_HWKy6ge9V%kC+~6QyVsk#
zt%>5a00f$IItyC;SyBCwB=I{~O@MV*>Y>fePS7FAs=A-VKS`W$ckE>1n&<%GsLF~3
zN&-(J6FlVkNFpmO>pZta-n{d=p)!-!V)08$Wa`l|qapPR6AVPQr?WyrL&Q`n-4r7h
zM1+Tn&Lm}}fd`!uUj>rOJhjYsO611!uai0lmFRb(E}
zcy^~^W&xuxLK~K-a6LEo;)xR`_8p({2FdlWetk5O9y+`CPpFgN`V^&P(V$#2gPlIQua5%K_`y>o1FnIB
z@_i907G>>t7)K<*OkvroAk1(`7DPe}X2b*AbT4_g!t{l5kZ_LcJ34woP%oA+^})2DlL$6p>9sDB3nyt!K@LIiMB^uR5|9ClEAO}u23->Rd?f6(FHgCTxe%rpt}nCy&mqf_
zP6}H8fb-XkSuHr9^>9{6(2+RA;HxW`K-U*m*m8k~55MFQaharuOY<+>+grFSh4BRX
z`4dzlLwJS=!zxazG#_LZSA7^-M%u~{JS-#Zn*WT$>+ZwbZ@XKzd*WLA(z{eIc4yRj
zFG0;@k99Q>z?)V_fFvr-y?gdpVm8aD9bN`+NW1(tc8($5BC%ina^(yJaKTm4-6c#U
z0WLO*LhFTnJM~`cKb+gMN1^0B-BB$AgB)^Y@b#!1-LC)Oc{hPdP2|w{@knS8V=ov9
ztI93WLHbQXRs&!|#?cx-?~-EbgNt;2=o4zM-q8en4m$k&qtW+b;UQYQ*~IS)rnZo<
zsj_gmyubRwIy7Mqb9&2U=ThsyqSJM1{IRb?8*~$ynL{S=aFe~vpqEU}Sy%cNHvkhV8D9p#))O3Ew$m^4>bD`erd!e!bD|B&Sm#>K@&Od7jD
zy3wf#u%7#U|Fy4)kZl^}p$yhlu@7_I&IJm@>*+}&q1f|+4*Y^!p#x94xh3Xv6LMBCC-xL^Uc5}7
zpqzPDYSXNnX}YZYiLCO9--{0PvEcWZ(2H+-ci;^7gJXQ^Lo=n(3xtbDMQ;}P<#FUCs4-Woa#NKoHBtXBP8p_YC`Z>kfEASIaf
zzGp*MU!l&qR=V_eC;h{HEKbO#ZPg0dG3W17?my$z=Z@2{k_~RSY9>W)p}O9U_Tx;-
z$K|V5ad@K9s{+j4vv=>p^5mtfwI+3!$&Q&8-rq6V*Db;!Stea;RwunJ`<~0aTFRXt
z?|l8%Qv;i6{e3+?4V*N?YI<_W;~lLU0t^$q<#V#ysQY>)dUef-Qn)@_ZvCWvR`MkV
zOEgS7x9h&Vv;6NlJ6xqto)-#==Zx1@N>z@56G(9`r*5Ma0_OyuP=VZXHhZGTBGo@)
z=y@cf-Ia}lH#dUuK1wyToTv#fDHN3`MlgI)&L2JumRNN^VHCZ#yLbPbl(*)WMsXtm
zeaxJ4T*Fs%h(%+~E+$0U49LLgG5g{Ydo#0J91OY+#UB1m{TCl4CM59=Xk9MQs*QI~fYh)lD<@*U6DERJoMEN{~cAu73bbZXev>ecw5
zKCC|B=^d%xxSeP@Sq>%DsfTbiYv#;LFjpu}AURzHqs5R1RqRFY#ee*B`7Qug9pUQ|
zafCS%4P1h-!@2plpchq?lo-G)0GON9eU0Nk-HBtTn58jjZaVkX88K9F@c8lLiT1~H
z-1rwt{EZCiG2{FH{eT7vt{i|405+;d4gvI_CD<;V^|ngVBhwaNOFx2zZW77MjvZRY
z**pdM9&Od3BEL`3`MvF*n?K0WGSaJfthcv!$nNCJm)oebir*(`{%-i^`CYoq0Vd6n
z!`s&r7M9&6Z!)#oVQ1z3{cB)FBE~~0U`qbK2_O|n&OUVI2q&aXj-ILC`N7DX3NY-M
z$q!!ayZ^K)PR?x!(Vsyo?_da{m)XSl922<-69hq%U8e3kF~R|Cg}%RzQ)#8N^Iz}k
zGASP3C4%Zo_QpUHF|LgjNw>TrFTRNEtM2!29jE_V9AOl3LjOu7qU$8L>s;%me$m-=
z{|==FkNRqjI6RQBgy|CBM(sg93NIZeOJ3D744)e7qCZnra5Wd*tU1C`X7HB>*ao7!@n=uL)yM0;rmt)fs$=B3ds`Y
zE%@3n!(%o&)YQ@`P&C0Ze;5?j(^*2F$omjpGVJ)3G$qi=0ETIv`x7HKM0sqa
zgCQX$A3qkd#mT1DuU%Wd9-oG(fByNCV8Q!U=+=#ncpnRE78{1L(i0js6)AQBkae7y
zr3Jt3F%*1;E6K^h-}_D4Ht(A^!txu}uM0wLU?6Z(U0vPLwWSBr)5qQz=5od6y9dA^
z?wN(u`lM9KM}(an6L>Zvw&OKh1)#S4P0EFJKZ!bv06HlJT@OZDIY@D5URO4@@{YME
zIi_b);==k)DqQD|oQ=4%+}k_bm{WkwRR4m!5>Rv7wrz$U`QDI2I63$z6F;ieeIX&k
zjf@^3|IyVI1Ky|#ZJ+uB48cye3(w^FQ`4h+1=ACG9BvVm3EfRlH-}+A=5Y`IKC!r@81hYh1$2^Ux@ainMG
znt1}-2o5hQkC2HgNwdI6v84ykxN|e9msnX|Bi)zC-r)~$LJtZJy~sADq+k^!3UFZE
zH&@XgJrM%!?;|KZkD5I;)aAhwwcR^+b~X_TEMOy1{M3hPLwTf}VftH`Xt}cEZM1B0
z(8F213!sjYQZ1lLTXjGl?-5R5c?^ueG+Y#A7D4rA2GVVl5KTsxj~Fpx9kmC;A~6_N
z8nx!^yzV6O!o%=sqv+T!c8{~brwKsRlVlO3=55-w6UAtd(f-fY28+X6NIgZfdcziH
z`v8A`+kR&?C$NaRK~kWvO<=o}l9G|Ifw~&(Qf>6QY|Uaso-*94Pefs2=@)u8uEf!$9m0aest>GTs{
zk_-3(DnK0OJ_rc;*-!d`CVupedi1incpG9wC3w%$MT<_W>~&sCTA!ek#>rH>R-TnY
zc6yZd9|-b7`_MiX!)HWTr&12EL#@LwyEFzuVa!B6NX=ds+f}+5Usx^+?FGAUUU!N-
zP%K=pmc%YUV;AF;wDhn}2BGIS+3Q{xtq?aJAw5~*RB5Wslzczs2gR2##^-f#!G{kW
z+8a%H^i`mk!)UI%$)7>lTnwmJ!k4mHn3?cNHk+ir7V`(Uli6>TDj&UzIdSHve%nq?
z|I0k~TubtB7QGmF$?8dlMMf1Rk_{?R{L7R1P4=Mx1+kuMafq{8T=>@)`;Ax-*V1xZ
zM%V$s<&3WQ+H6b0vaOqTSw2$5%yP_2OWGvna#pDGI~r-N-U!QrLli2Y?ei^DPfx$<
zzhejOJs`*&q+#+085k2QQP+Oh7j1EnUMO)NK%6abW0?8->Ani2o+f?(D#Dn(jX}2C
zchK~vuK%gUzOvhnQ23+S5p+xB-bt9gMNFxd%a5o@Vp8fH;bEG&Q@?&0U@
zu_lUVJY7z)bLXKHgZCxXn%Y{eb6XOwl$^WMYp9zSx=(dq`VtAZ7Kb>&A2yX6yzs6<
z_zL1kKi?;M=fGMSkON80{OiiT7Ep19{)%vW+Hb&sDAF)0KXZ@0KI5f>JsRf%c2iPP
z>ej6q%%pXT7T!R&QbWD@ygesqiW%4cTu}0+gq9OL$B^B5rYwk>hVe3ktly2Zl{-H9
zPRzCd;NXf417-9llKGR6JUX4{CX=?(Ml0v*;bAk+`e;>6k&Ve+(=328v-I6Np*RWo
z;mYt4wv-zr+98|A2JYQ!L&FOLwHs>hdA|0cjC+}XVUF;*RyaXxLb9z_w(K__k`a2#
z8AtB^QSVrN;%J7Ya~@Der-s#6H@~{f0b_I3)@}-)faRdk2l9W_Abxx4)LoMBQ-diJMX@9tNPOBG+G6fwL
z+Dl7Yyor9bcWt_kl0~|D#&Y5)X{f)Fa9fniM2%Ue=-j=1xJU232K~%4X$O(2b}=E;
z-YzVxH+Rzf{MRep1>eP_7GE)^V`+Ax4yVDKZYFEity4O@zBpZ0{U-gEy)F~i98Y_{
zqaH}#%inw`rUQu%9=9jGlrH!)Kkmzko*vFYd-ix?ZB0QL-bRUlC8!2M*_i1HfR=<1
zld9Di?dOs|8WWvCTl^#14eDqSw0GgS0|s*$HssAKeBE#+KeAu(llbT-b7oymi%qyW
zz6z!qLWD^WJs;WV)nH?28Cd{f+
zDCyn}7x3Q+SS8T^+N+S=`0Puz!>2YW8cRjV){@Jlk>nh@Lni~hnxMdaw>U3u>F?~C
zGmUl@GGzuqKI7$%e+WCraRD$%ve{Oh&`t+W57*Hlpj0GTkQWP9<~h|?-|wKfHD#_}
zL$iSU+C%ns#>rtntYzOl&NW~|oM^)_1Y52*^K()A0O*ZCjU20!2NctFbL6yCm=82n
zJ78u=3K7x%^*P$t)RQ+>cr00h((|OZx=5?byMQ3~Hc$6S}s0^`w^<
z{D12G7{2Va?-viwBoI5maNYWJrbB<9M+$wlIL1VVAsSMH4d
z4N!cn^v0U}k8AZG&;%2vjvow9BOPmQDnB=zKezeZi
z*3{fjRGvCDfEpjcC^W|}e@TRx`=KWibhPsjt=<7-Ayq?ruwwagkWrTI*z<08lSADNYuC9AJVy=tHAdpmvDnthpXZ#qORw=MPG|1|LQX=%}|=w&O%
zsLCkyd{OL#EqBe)yyU1HnGQ1*Uyy}mJT=(QyiH)4ZCIC*gi+yv5I|EA2ITnh3{d+J
zGIDjJ%@}<<&I!r03m;f|*cfev**svB$#l-{+
zO?fg%(P`(b5W`ad5com#vWOdc7=0u)J+DXva}|~Zgfb3WxB7wbIkK;uQzSY#I=)EDin%nrolHzt|K}B}
z?cC*-eB5ZgJ?{M}yXKd+tKO3;qrR5QJh}U<;MYlxz0zHIQ{q~ArSH%`(o-e0YtNoS
z`_#H+OMm4%(qQSO$%A5GS5W{j
zUrxjJBGAODRzQ^Yh!PQ;gWX+X+=9=gPSOs^A0@
zgHC3ZQ)s^55a@WHE%ox{XcPxAIS$F8(bx}1=eVhxaw%qJTOu-|!k7X}lZ|VSXcy&x
z@J&Tkb&CQ82ix&!iOs{D9NW+mXmOLeTO05q0UFg!DRnk)3_q-W=n$P97N)p?y_x1>
znC0ZP;qC@L&Fy@9s>qD*?)C5Hd+^<-+Eb!*oMbHH*bH$UcfrL&%bVI?O0O0Mqc-H;im61^UCD2hXx0x
z4-C$G+V?;H*I5F1vYh@um(OS3&F9(lpAwc$2p~)p+?-V2*t-WL#0h`e@lb
zSJ4YoIZkpNCbre&-n$ot_X^1+B2Qp*TE*W!f6g?_bxVXYOplvbBc+*r7iL+4Rq2?e
z7s5o@OxKTBzD|AGSn0}CJZRgj!{Mnv;BWNl*AEw&F%+kiBP+bTD8zZJ^aj@QKp9p}
zBkg-7olx4>NKof>m7TC*!xe=Sq~fRMG-9njFG9OMP!gk|Kxyzo_zTX8beb%QOEHmS
z!;z0aI5OH%Zdpb40Q=DIl_B3=g_^f=X>U|#)?utO
zNA9?FRC_gRjmH`Isr*4D4f%b$bALzMtoh!_XNWnyw2$DFl5
zBBX1K1F;CoPx3ULcioqLTRw8iv}t;pnqK6%7BY7?)rPj!{s5B|8YU&yv;IXZ-e-sNd5ol!qQVgw)
z-5bCF6)q8nH(FUw7OC9-CeOGCEcYRRV6zns
zaDvnTy*j$x+^Sae{tgoC(O2~FqK~e|-%&7J=7DcfAd^qfVcemWaq|+yW|&9NTx7wa
z3+Me>G3Alfz*Nn_?Qu2IpeYKusGpdujqU3w=m?N6Ng>1>y|6lKLyzzW<7rWz&s+~%
zLA!nFX;=L)E{2orIo!AP>tk%9NldE>E)VV9djToZ*8Wtv3|z3OpT|d9MOFM9@3^*=
zg3Pf;o82~7%E>I1S_kzRe5P55{k60m;ugA#;U)JQF)WXcgI5a
zDu9d#1c`uY(S!Z-em;S{&#uwOU=T`)(eU9g!32(mCir>U_#hI#K8L5Glvn87`8;MA
zXdnr-Y3qgHDMZEe_m6oJ7#VH0df^*0#Q6!rf#cLE6&
zLIJFf>_ZpKpASMl1gxXGG<%IYW?7M+>DX;iphrJ=lxD_q04%=W<-z{rI)7TllE0y)W?wIyBawpEgCZf{5lFh4MAInD`n
zfvk9PIH*|BK&@N%S+D95;=Go1N9zxdEWuN<>SPZ!k({-S`uqh8LYiH0s3bZpv=?|V
z+?dn5+?&7x6FKMH%{}#OgNMCtHPi@ko`a=jF&4;IN)vP@n3=UvhnWvBIM8=bpD0pl
z5=JpB$|+o}2{m4t-qyuSP91=~2~R4MNGt$2L<55Dbd@$Vb&Rt;qTsVvOMpB~BcfUa
z^})<9{ga=0_;9acpFuw-pV?rlHf+gE`qk|n;V?B}0h1qcAaE|5_^}du-0nGXk0@E{
zPIe0SVWjgrP;f$`MA-hesAr)`2@8qE^-@Y+nWfj>N^`wmnfHj27nngGI&_G>H14Mb
zXAd9{1=A0Sf4C+p>;gR{B0+NqS@LI`-Lx=$3mfcC
ztDlVTXgg-MmDTasy;02}FcqC?DRV6H>oF}~*e#wus
`m1pPNp}T_)Bk-rJAzFRY>9sMy92DS3FSUGT7s!NHH?G=nE(^y0tUNWn|3
zFSxaz=+0r3TQe{ZrQXAbv*h+-_nT98-zL0(pbY2UrArqZ;2n-DzS^iz*HBUpoiPMoLQYF&E1-S>pL$5Te&fbuImCe#pOoV)V;QGd@!jFg
zXX&%Elaq$8(0RrUW%7eX-R+ZZZ<#t~6g2Bp*1dbDtEM<>*xK4cg%d^MES<`1)Zdqv
z$5_U06LEo~FKoyuSMW0~oTU^t?*I8Z#A|6Q%?5gknGP3=ILOe@F2xOk<`L=@6f=GL
zEF|IQf4ei}b=E@|7ZDJMrw2U-Ma=4o3&oNpq;pK?svOYx&K+-zZubAPw3fzSJbjof
zrH#-GFR6*b`dM3PCXsa7sK$?s*4B{Ig}4E@-S^Kw^78Uu#o#$CB(GhYbSekEmnfnE
z0D;i~m!4dlJ!1yu3%GahuxQbPZcu$cxW0p4O}6r%=UNVPDxq`@+_OhQ_(~jOl1|E$~JlKK+K2@L;+Wawja?YtUC*hSfe_;&I
zOdpKPRE>mwa)Q?;O6;l#ysVkNg((@6)wgZmUXO%_=M$t_L?zAqC>#SV4g~a`Fn-ji
z_0$5A@n4bu*bC8(9}-UvYGH6j$^r9qDJ6xT@UrJ{D62Sy=v2SY7*>R6KYt?2crkx{
zk^PSsNGB-t$q@GAXk{6TDuZBm+1p#@h7N%-cNOth2y_V-uu0txSBaq-2*6-oP?lK+
zhDhPz4M;l({dDzkYSU2;jK+wt5SzI8U-gX-&}62iyi1Z}t~zQe3c~JyG+YlNrK*lb
zL2qBbKHhMF-zhFG=2OU?KVyLj?o7{cr3n=Zz!5Z6U!x$(WeyrjTK)pdOqf5a_)3P6
zbS5(uLKIQtFz?9b-@e6vYz^lPbtl~twjO=
z-{=H;&CP1m591@F&6EEei_>i`Cu34EDYq^y+y(^CyMiLqCs7(&!O62d|u^|J{i8yo!F&i8!_3zP-
zFR2w-okZ40kM;xx+Cd(2YHAn-)qfrg-EQJ4|Lx@t={K4NR5M7dx@Lw1pd#W~Or0`i
zkX0vr6d+j7aaNQ$J$BGyanCtz&I&dSRI}b$|6Rh|jd}w~1HSSj$h$+0LjkEEfssg{
zRnW9fFj%n;Z7r`bGoeSfZn_LtfQY6*Km)LS`}WVU*hW&1`yQvulT5en=H)A0d6%F`
zkB3^~!jOLS5+O?9iZ_xeeqxMCRwXUqR0+`XYa+e-G53Iwr6_enk9Yh?zveQ-B1pTM
zSIEhHZsC}ml1H^sy^ZvzKQG<2GT-h+Zunsj_BlgGj$Dh1iTA3V7Lsryx(Owa8esyY=$C@-GSPQ7
zexPy+ojOH!KAP)Dsx&mK5^O(*xW
zj@uh^md^S!4v#Gu_RwVOZjiFFfuY@6_TcmesYquNk9;&XazfVEF6sdKxVK6bg~_pA
zi~RHpCL5f}8T67f5K|EbL%9mg)&nvQv6eSc(OI0D30sORn#f8@v`9I!YLLDk1EN%J
zve_|+id;I`G1-#^cf1+POtkF1h9PpbkD4(!I@hso9Y@HNxYiabzGST9K8j^RLLpIc
z=baiEfBaZNp!eiQhz~^dzVYYbVT<(91>=!RgL-5~jzF4N4~ZhT_8=!j&k0_CprNU>
zAjn9_GT(37d=>vO4PR2rfxBn@;mFt~PqCS~{0)Mg0K*(AySjw7H*(sqE;@dqO^x>w
z;AEDWgzaCDSI4~|07x(ae@XV+s<0OZ_;%BB_{UT>Q}IW|8r&kc$qUD)?8+WSLBR9z
z|2`4oArD1BjfHBmJLOrdjU>r(Zq$Q4MM$KCzO3-8CA+wUGUAr
z{gQO)(zAks+|To59HJe^Mf)q&Z(eCUb$7AMLfYKVJQPhOPb<8aP_J<~utq$o5O((>
zUjGMr81z4&he+G_KS(n`9yA9JX3S3oPZABrbKqhQ2rz>|vQx2Ig|@t%vv3atbXu&Wos9PMm>^}g-het6X-G^F4
z=wz-v`+tB=G*Q6GbEM`Stixzpf*x6&R|3kW?jzwSUf#0HS&Sj1FL32U6r-hIyuW+-s9~6+V#7{FzU=?F_*O#F~U!ipXDn3TabsT9|9=3{O
zFC=%IVeR3Y_$;6^;52pEx*gsHW(kboOtu5+s|h$0?jqwq^^t2m0Z-?+#p$@Bp_Yb8A
zRN*H2vfo}>_B528%EUy%H4Iuv`bb6fP{s=J}|
z4@A#09+9n^KkwI{T+Sso<{Kqf@6~rX{p!Pg^h{
zBlEbTQ4pOa+MEhEswr*s{eMGDNUS(m2Lhf$dI&b}h2E1O7K9H_{|y@j{LA8M&^dIZ^6})3
zDBwLf`B2lYb9X223$ee9lqB;(Q<*$$N_q!fZj;%z?xcLcZc(RBHSp^K1gF1LNWOu3
zFAdQDc3o;a^kZSNhPHO@FsFS4E)My~$Vm8Cg5@}xbKx{-PhsU@2ry>!Xhu=LXJX;U
zf;pFO86luYIEGsTdKKI=R$Qtxh^m-#Q*zQ$cP>AD=sCO3f7Ei*A@-LXZasSRg}Hx4
zY!@U9%a)1H;kOQNk}8c#oi#nl3fgz*P)`m_dl^~}j1FMPstBga)y`rgJ>UtF__`wP
zhx?}ud;+>O_CWEuMLsa4D|MFKZiib0;ykii>IbT>3A}T%o+TZZi;d-7rfMBFc)rgz
zrjcwyxJSEy;rB^1q>FUVK(x_Z^W$SdPMXz~B~9Rf<>i?lL7DE`{w
zpC2u%dA>hiKkDGxm%9h`gx!x1I6O}vA`hQF7}}L@D+LUoog~jHT9nayJ=0rHEixG}
zr`zWji@NaI3G8G}L(3YOT$zi?vUeIJ+l5&D*^adPPB^CMfhk_%(`ch5Q$8`h*e9|B
z8=n*v97?&^Ag?o7L>)4D+F6JAdf;gHIi+Gq;=C@6p~L*utd6=(1?(;5$ft$SYdlK2
z*&!D8335&|zcFaaSfu7O55!XN&ySogvzMinh<1sG5l*+;HkLcywu?Ld59Fl3G@m0j
zxqhcROF1#IlRj$a4{oCq^Xzp{RM2k$2PcpS);eGMevSSjfO2#68s#>u@4*6z`1r9=
zn?pe^tp(o2*5m|I4A4rc1}&ahf|&v(jnGqZGr{M+1lZ1iNGpMz%BLKgbm_l=6o-y3+Ib
z4SdaV)3n%J(X@EePl3{nGCW9L|5Q!@brKp_QabH&;c$vJ@NQ=2i1R3_f?#o6iRTHL
zRt=hw2~KsIjmsrkAvCJ(r8yA%s$C)cMtQ0MOv7suoK`dRlWG$x*;oFa)QGo{6zJ$^
z%N;|I$EbyJc&Asd7A?NUNtB=o$xZu1`4M~bb)OD5N!hfgTs57F+?;Mnm;`W}-GM?n
z$|7g(*;SkZ%1cU)_Sl0%XlRs*#jZVj!tF1M(!jXCI%{PtZ49FA`h&P!>F2-KJE&RU
z=;Je9I*_7_zb-HO!@am%ply6+?gOf|o3r!a%%9N*{#NT|ua+!kwY-0Cm6NzTGrlOX
z@s5w4Z$9b
zM@`$}K;M$+e%obtXl4lyULX=+Ju$O_m=<}PC`}zIz>VrRCQFwth0?6&TtuYA>?Kg#
z?xUO!Eo#0<-i6eM!Kp*V54*b3U|fL|5jL>u0h$pZfgVO3SL-8vmF>$$nSt8T*hRF?p^;+Xi1h@e+D%2%FbjWVSb$LscZ*x^-#oc5=Y$J
zxzCVaUq-Y9lA^wfO^pKTsbdv|8}5;l*fq1`
zK7EQaJ1u5(@Z32~P!el|$6QJ}F;{sGi<$3Cv}9
zLq((7=+Y8-m#5n}i=2{e=&XA8jxh+wg~q@DSX*P}sGHL7tzPzbaOwc7=PyD{a>pkB
zvouFzB1F?GPR{r{+c8<_&RFT(SbrlkL&L@yiO53P50CbboGN#oyj?<6gZ1EgcrxB)
zf@W`!E`9_UF2nk&>4RpwGj(b#<<66L5Wm|ovJ;&ck)jV`c@#5$lA3#;C&1@71kQM=r!1q?E!5beVvR+Z{r4`-pZ1=$>1}M=
z%&D7s!q6qO61~BstPsa}iZfQdn9X-SJ=-(vzoh**T=t~7jG
zZQrl0(ei%5G$#Nud-49!mQC%
zwUJ&qITsTjFRd6-=~b6|db~wd>06g4zfY7urCEX6cwu0xq(m@tkr}_Mn&h)}s~BTX
z2l5eSY>p{p9ZeCM@4}WnnUKr~6AErd`~wvBPdv8RskJwLko1FP*Z
zNAdf}QAiZEi536>n)0<9EiAAm?8@@~)cyR0t|s66nRlLIeaYomslslrS@JcZ*9$Dl>k
zw>ti7P556jb5B>DQ12TSUa$9Xr_9kobkF72ue2U>Kh|UJw^}_8gHp*hbsk<^r%O?(i(+V3v4DcT=%8ylq_Jznrr2sYe5
zJXS%k#3%^Yt4zNghgdrE6vU}IcEf2!z@duC&lO~PElxgcuKe9#-puwgmi)NVs%EX-
ze7z&D3IA*hi`CNVFJSlwMydOcU^X}Is;uYtp;mV1=k>koDyII?n>3^^+j%9*mG;ZC
zs~rI#bJtl|kQ+}~${@{m0aOAgSP=YQ%69mJ#nc5bOK?5nb*Ag!j^CU0=x9FCU1PU^
zW8uj=wrwj~-!4z%qd7e#4yK~TO+?kRyZ4G)j{S4rX_ZY}q~6lI@;=v0aO0sbp~yAW
zUhAluzZgRdyJvIZGOwFp1vNeLd++3=#1m0b*7HxDquyXkFwqtqlOgW(TL`{2b+~~6
zs0yugefzTLEL)-*{M7Pk4;SXQN>&D5wa;JL7!D(fJz{`%UYv4P)AYG=KOU3C73;}w
z-o2|PANQYzoj#271yhS$Q3L4d@d_qAe}XHY!f(D0JC@vvEP(Yso+dUD6z9NJh)o$4
zg{+$Q5mnli8V#t-nhrexFdlWX6ei>>lQ*@Uu_hcIA0_6q
ziFu(97Y^f-7-$Y)N<3Y$!+7RQW;d4s+ikej-uAC^>d(ukPcglI{W=nucaM$;M1WWp
z5`sS@(XAUvaL=BfP(##xZxYw{Y!OxU}Ca)1B1myL*_djdN0f^v{hB#VpZ~2yLL1yECq239#Y&(
zGB#!zXt|Wo&E~T9u-R|VPU1>aD>D`&%HnO0A?N}_AreL#gnJRG42nlqy|cASIbQhC{-!m@QEH2yP(6P@&)A_SH%gdju
zy#LhZO9z>%E?J)^SRQ&WF@`m{_Kws0EdyL8PMzx$tnzYY_~YiXI>8HG{U!Ow#8k)2
zp2MZvGH&V_7Wu)02mM&cSUP*g#TNgntz~d8Tx?FKYv_}
zz*Rlugd=y2WVWvvQ@qc;bijEOa^uVy&5d2nw8?`cNm78BUHfcx662e$Ep&NXaQo4t
zM^Zt7wE;>=r_KM6FFjYzFExNw@ITI7{Q$TF{D{$dA4e7P;HhB7jCo$X&3xv;RR%X5wDL-o>n3*6J=$;HwctfBHD}HH
zIA7**wB@10i@*Hs=$2F5QYOVEGOYH&=w}|Y8;0-vrB!&(@s{fAu?D{XGn5#kF2!w!Y1TPx1&QZPE#@^c7w3J&m>tHLA*}ktyjLOSx
z?0q<_nJ#%jWmX|zQ_Z+Dp@6>@7PJs8-Pmf;l10h7Bbrv%#H-RGjZaoJWMZk13jv#+
zZ114Ufe0x6`$OcO!YjK1w&lLQ+qB7>$?lj*xyQSja)LrNU_+qDnm2F$p#6*iIplC;a~aGW
z5F7;1HPg4iEm+&+@?MB==~*qmc#c?}IhD0mgW3kl$CU_55k^z)g1T}m@q&K*NIKs%
zzAt*W_l*G^JG*oXxD7J)6MC0?RLCjm(3?3EFlsF+NDV^w`wwsnOmi*GMCl~PTBQK~
z|EuREuSO`SU+=E$hYFhf7ef<<8P$@A07+5C^Uwr2^=>l%do#hC_Q_kfn58|81QpPh
z{`>aP>zb=dfJ$K`x&^`0$iQsPnC6oN1BQiI4
z1Ct=nK-Q=ky!mZ6JB-LeSG{`}!Bp?ApWI>JgeI82D$&;X`}gS>PvL%nCj$l9JMTBx
zUf1LtsXq}zFWV9@Z^rZjdo$o%9@#ZDlat=ouo%pH#CTg!)u`a_ZwK~A_Qn52;e!sZ
z8Y7O!4?U2+D;Uj~@e#ESq?UZ=&L@H=lqyM_Z9Qp+MP1C<_by!vYbprIvo9XezI`sm
zt)+}f*RcGWaXkh$^FDd?!GpNG?~LE8vTawQJJ;t;Jss9`v8eW?JiHjQ$ZO)6m>AGW
z#l4h8L>yu6+`Lu0ZYWk+8%a6LIGjwomSXub8%n~|l!o4bOg
z`1jRS0KlCU$XCCYG11E0V*a^>la?+$fo#f;aWhV3S9!npzlU$g-Ob*6e#m*>qvN;a
ztLE;@-J5LoKN9lootqMJziFuOJOUdl@S{U6ZGBUpe`IhSW(X2Z;u}R0H`O+h4Uw?Czj`ylw;{S`)7d0_8q~jhODO(H}1<4JQ+AUJPSCA43Vg8-9A-S>)eF@r{=`#lSRVo7A?eO|Lu$
zElR}M!oJ-xcLxgTdcO1W}FLRFhd4l@}c2=WseDGD1$~Kr;)AnFHp;{Y}PYrG&2e#HjPf)o6ybMQDI`E&6dJ1?W0i3bS!cD1JeHKC&;F;Cr^TgB1&bUJA8L7)g&hU03eC^GZcUfwNV_m!|@h&OGd`v1otzx
zWd1pF$|
zj{A3eYM!ZV)`M_XoFuK7L+o>Lae>~#dLo}_k63|RUVUg@W6-|3u0@ZZrgnDmMSB-*
zys9Fc`u{)DWng+Q`;mQI0p{a~STIqh9%$~Rt@#(#qN_dN(;&zOdF(
z1CD35&gr5kDHdH?(+|gtv`weUME*F{wM~SuA8M2I0TbAfXRnzSEpd)p>{p|HrgATl
zTBC19-KW(L%C`IUnBX;*B?_FT8PIf!_G=bc``GKq7kX|3GJIe1d;#IlpFdyd=tyBJ
zU>Cn1pNnkAY(1_9`PF$Zgwk87v~=gRDN}Aij-dz`(l_JxgVk>rOkajL_<+@w$EaV2
z#>CicZwr&#W$(}{zw}dE&lVHMZ;Il4f>aOpH7b8))x=IS`4Dj8q8Bd+$`u!f#rBJh
zIdI^BdV`IZg#i^Vtb{n#cEJVv4er^t@$hVaX^K=jp1lJoNj!>KUChVMFCxG?L(4pN1z<_Vu7A!H;kp8zTf!
zvF1}!+uuw}*e=}f`?L7RkN1MOAp4_~u+bU5S*j5eW1ap5qFA@fHz@A(!{|CJB*g7g
zVQ!k&)Xj>^+?W0zB<2X67S)bwLM=5|w8x4ZS+{od@y$O-Yt+p@0%2QSkWl*S#tx`)
zTQjpKr{_qgATPJ?*kQ|PItl|;hZtZ0s7HKj)1iYGfXI&a%FFDo9#0u#oV0E1;P5A+
zIUfcC{0vnxvL#%9vJqelC@4YIwo6I$%j@dBMbE_lEd29ad9B-Eww}JGv9O>B
zzPB_}2qY&dg`m8Iyyq1$eI(uK^Z_z@cX!3TFbw|we{Bq(lT1!TW_0{`Ur_+i7)C*$
zKw&saDWH1DDaTemlPq#c()ngG=_=gXu4%9XH@qT2N{W<E8gH1n9kh*T{Dx(!d#AIxZ0s^gb>j&qOW?EQmv@(q&+&3Eg4jp=te|CM_
zp)+@wz#3okagADFQ2;5EP4CgJdtZMoRqWhZ&Hr`DlmlqxcHLNi+9%u!<+Pf=?z)J;
zhRMi{{Qd4NO%R{*b-b2RKw*o|cQ>mA)=4jKE*(+!+NZ_Bp((#znm^43uRj`8XxNAjuzJYUa1La`=RAe|9IBMbE55k84H`A-CtAv`d)eZI
zqld+%A94XKX%i|fFZV=av@zdRBAMW?3m?kBzzgdKdzxq?!C^dt!f&!r{Cqym4;(Uh
z!IeLpSAXxN--ULxXME5T)C*k)+o%d3>LYq;+5~6+Uxv!
zy%ckfm~o$A{onD!iR<+|-8rnuW~Z1^DzE-x^Z5&jpqWK3$0+Akb^MgG%vp2!Qanz9
zIJAd)P+Zz%vQDs+ozuuT$rHs**)LztxQ8jiW;zGXeq(s#bWUi>69omIYw}7;j^g?!
zH}%Of)yCF5_;9U8V@)MfPMEsJWz#$40bz~?2pJ@}kovG;j}vC1(x&&AiRTp`KlbR-
zMF+nMTF_-Cft`&0R!nWHNhhnLa26qfJZ1p>SaOA_=%i0&64>a+)
zGHgq}LgM9G-MG2WeX+
z+XjX?%ZGA;LadRz3EFZ~;AS^BDJeKON2-4>6_zf@c0l!5iCTolgk63_4Md>87)%;t
z_>91Go!6lNs_hjs=x5B}x_<2*7P_umr<1Wv&C=4$%=K%@wesR*`=wvE*ORAk6W|U}qI4oOz_1I}|q2fu0harFq7eZ&}cqt|Z#Wrf*06#y-?D%_2pB&f>
zkIqlfmKj%FO7Nw53K7JL@w3*gtEQU}6cZLe+{tPEHQ4x%3$;q^lB1+;J-1rgo@w$Y10sh5u7NHC
z2=d)@X1X?4o*L1w-K?q6lNRi|TG6uUxnIAb#d8nT);+o!*?JC8lQ6@CdmGlx;3kHT
zj4>6Gky*27jy#hmfN8LaIpy@ZE9gn}X}@(L)&6SVo?ccdvZ1X~E}VxXHZSx%d-H;0
zE{W9?Q(;-bO5b&t4DJ5lFE1|l>x+kw%h{WoRNUr#wy>?)an0H%v+mvJ&vY=QvxC9q
zZ0&|*nP?&0^aP8=QhL?*lGFEZo4%Lx$!U5Mp4UFkUq7RyW4X$~blKKZugY!~ZP-)Z
zN;uIbr>Q>4&8?I448W8Q%E;)HYo@
zkFH=bDzuI6(yEm`+yjT{_B_^V^P*;FyWTHuzokvuvW^8G+w1B!>+r$W&~Uro4@O`)
zZp10gz#w&!sR5clmA)XfqxR3>$RiMFtv0uCCzv1$Sp}WYuZweUN@vVFd+V&+ms`!T
zqJTy#`--N9M(W0&&Nvp*FUWgiO0cxA`^aT~7!Z_3lq$7r+LW!{H~-Bx;A~)eDV6Qg
z;=3kEKVGbTR9C$q#%al$=(WDr%H*^^wC&_kG<@SI`2k-Kj9Z#Gs-$G@(#|!Mnf?2Q
zISp8mG`KLeukc!hui(lem{+qai8<$p;-|djKgc^W8jS0{C|`7`rL%$z
zfXHQ5O}DW*5EDbWi57DIaW%>X$`Q_Ss`Pz~3i@51!=u)z?&y=Vt}yulKv3|kszDHc
z>i$na3t~SNzD&RqDtRcF1;Lwf>Ludn^zaZ;EZS))Ne63aJZERaXC&8lJJ=^O`xi?9
z|H=$t)OWL$3lrXhLGap<(LRUkqQk5D;LAVEMRR_El*K*HI{1@?a_x?5D^f|_0se5T
zkP0df*e+5VulwKa^JU-F-klTIPhQB&9eseccSo_u<53nCP97J}oVovJH12upGioC&
ze4qqrq@nl}lj3m3&qv{4aDt$Pb|N7)bz}38k80)?<0$FC5rm7+<{#OB8IO>&ZPcK3
z9@X=fEz%Z*goRz`#vl%GV3R(hm8rmA@#%$85A2f9v-x#Wyy`qbu|)y?4-hKHZ5%-X7#ts|9>`DVV_#K~7=C0?#AhZUexy(UD
zAiCdCS~-E9GsXcPssAzX`_$VzW*{CXCI<%v!59yu>zr8}UBjhEtvGSQE@mHS-*dDU
zll%Tyg{y0C`}g|TBL`z*uq6n!8nZ-gyxM=C<*9vFodOC{i#Y8_&RX6@^nZG5hMo!BvUiJIk||HhVn
z1HNv*`f>i486{QIrY1^k0y)AXVNh}J&6@_XpTzmQm!s9{;v3#6+~HSxlvhY=b=}KD
z{3y~-QS$LD@KIIR%SPEA`@&9?gj7t(N9vdgwQu}p&(KkeXwWg7I@M`{=HL~vYftPR@s8t0l(v4T?4{G0=?7+=Eqpei-NRZl3vC+Q4WM((?3-_Y?US(PsowPxH(#Y6
z+uEdk-j`mX(8;6jN%nst9hnRo_kAHDKj@rfHmSn!{WCE6pm*Pf#zgl$zsAEBkcG2f
zAJ`HDkHwUe2PO~Az-f-rL9Mq>m{DzjOP!rvy>Oi;jX0rhlZYB@=Up~1TFeEerYe0o
zY{)dk*?MiE2L({`gG;s!L=7)TsCdq3^8y_>Cfe&1AN)Wbyd5LUsq@OJkx9P8d_(vhkCNnQtt_AN==6&__mc
zSof{O`k%7KLUKMwSJ9_itS60(gG`Gjkz_NhD|>Q_R(EzVfTozQ3)sIZtAGfWG&OeY
zhg2$+gA*h#-UcWNH-*lGE)Xzb`z#|_nTc~Eo2pTni9WSIa%M|RE!ufkyz=)kbCt$=
zdTX1!=BS&X0k4Nfz~d6%nGnEUqeV|zL|q92Qh%5dS45#
z^61Y+WVmAVHoG)*J#G9CsTLfAW9u~gnVbJ$APS$f(bJQ&==aWnhq0T%M14H%D5N8p
z*#_6tDM@YG7|ot7&hTwWcKxcIGV>tb}s}rzR|da=TXF
zt0{9H9nhX`ASS^w67i;MIOn=B-0Ayw*RDTtr?kF;LrACY-3Rq$@qwSc`{bUnwI4+)
z1ICk*+<0__gYNf2@3#Oi40tp3SU`-K-JM)yWFDJ4Ob@`R>vQn=`o8U=qHUk6D+z9YYvrt|pY$Mp?3tgUWb
zF^v31d$cGlsb@Guq0RS#C~BERkk|LEgxtt~p-I^uyuV?Pq$^1cA3W$ZJ&`)Um9QZDpkO5~*0-Iqj%J@eeKa&gbE**8lPauSc}C1Uv$O5-
z6zcX5Z4<%p5M;5O#Z}ZZ6uF$vzeuS1j&RD;
zjCGrA0GIve=&4z=XI~6`Dcj{Q+Pco3{et$QGPFUqiv-Y?{66&QxwPnO3+4A_R_p}L
zb?g|Ss63?fvE@j`z4TkzI5QsTmcL@duR9aY6h1nnH^(#tB43O#C~OuT_8u2*&KK9L@n*0oUxQx(Gylt>+V`ggl?co^di_r2~SXKev
zZi0lei1(-2;ee*IsjSS=duBCMT%+T(prcGceR%
zBbMG}^A|EM0iS+W!huJ>dN+LQ-RQHKoKMIohroLOeiY&WUaIireo%jFR6;r>Z^NHQ
z4VV^ULz50o$QcJ-Nt(2O>;_lrUFbW}OzN!|U&5N_E9H*BlH7x@*7gaW@N!VsFAcIC
XpQ*NJh^c=kzHKyRmO;G!!ma-ottUvV

diff --git a/docs/articles/AMR_files/figure-html/plot 5-1.png b/docs/articles/AMR_files/figure-html/plot 5-1.png
index 448130d7506b2b88a8fd9e65522eb0854506582e..aa523929f124c60cb490ecf90ad0d236d2859913 100644
GIT binary patch
literal 48883
zcmdqK1yq*rnlFqAVqpM^0wO9(h!TQGC@4sXNH+>fw;&z<1sf5N5&;pB1}SL}6;wjH
zQ%X`oI=|oZ^51)A)|@kE&iTG?oi+2WwP(ADm*;(+`@XJUUH3eala<&`Nk>UWMz&q@
z@`wl)=eEuZxf?Rf5>=zB)>+fO>Ss&Au^Hj9oabjv7sxH@4{wAMlvLq_KA+stFLj`UBmhQnQJ|9C9%aqUZcz1=sEzI2>n9XaVAa)Rr3
zkpA)7e&a#XKh953@RR=G-o49`^bfLP=B~AW{MUOUFHL*#N6mQ?BuvZ!(T($nEfLzi}qZb6EaM{I0o3
zrY^Fopj$U@z7ld$E(i?@YIjpM19{@RaM2SB%8No
zO(bS^2zk|M|%2w#&@87?7?ASreshu!&vT9%=No66opk%?t#l==YOIB7k
zKXGE${y#Uo+aA_;OU6%^J*D5s!+-MHx+=p^VV8xW`gr_|%i;_@*Ug7r&bF^pdbDt59%UY(PZlWr@2!t))chpHmPW`DP<
zB&c4~)=p|1?sWJSIzDd6$QZ7j@0h5b5tp7`XF9Q!_GI3|P(1$9^u)wqV{&Kb%1mZ?
zxlB(apGC*EZQD#c3zj(xmvl{E95EVcO2LN;;j=i?AZL}7S{BH;I%?rITpR6OSh)KB
z#%CH1^%sGG2I?RBYD1Jp*ex=sbXz}|<0mc<7z+qtB`BSyb|
zgz9~LwtdT%!KM^FTumSUY>3w-%i)t(^DHM;XN=gz-{njAEUp)8*0%3
z8-bot@)p&tYQpNgPMr(Ji4GMSS&v6XMv9-%&W?4896$c;>(^+zv5wpQ<=K`$|5D2w
znw3^ca25&-2yk7R_-egOotaW&r|iYaT^kkGeBsSI=KIb4M~)ty9;oiYbtFxkT_?9?
z3mIKxO-)T#*Y!kYr;(=9lD?&7WlmEA5%tEa)5&g1BO^V;EA4vG`m0wfFWlQKv^-U-
zo~RsOe^Nc&@XNzp)_Rp;LVYFFY|23=7mI0iYzC?>#Mk2k-uLjZx3@RUP`9uc`|{T)VM=1Ly9HG^H6_#Vb*H
zvDfdac7bzt+$DS;yCKSs?M^_ZoSoE>ZcM?T}(x
zMeJqmvEk&xq+&@oHY`9qV`T^`K6va({m91#(rm3zm3(PpG+
zqW8OBz*t~h-NH0`p^%=guAq?6gKhh3qOUS$w~{kD%hh+$6qL&Z#u<}K2GE~=8ghGX
z{6@AIZg9MtD4F78_YLQJUIYZZt2Y)C6@A)yw8P;SJw5>L*yGT?%HvE-O#Aom_dVht
z7|5xXdU1tk4-HK~aPSGfQs$|_+OJt%)5DGVd3h}vCbQKNjMTKW(!MsREN)9ZjOvLE
zot=fRU!VVt^|}&RxKupnGl3s;b#--Hs13KieY?W=R0qfL4r
z+v(2TNl=boF4I|&A3R)h&#iu9e0-oLsw`F^y7zD(hsH6HojWIGHh5EZOxK7xHAcUC
zXPnW})zy_|P+7`x^ypFS$VTIg4V$;wS1H{zFhD)L7GGa5-JoIjyUpjw;P3Wax7EeY
zzF(cb?qc}HY=;xJo!^l`JY3X)7llIF+18hS&$L<;3a!lb6ciNTZX9Q0!%wU%FS02o
zSlZdmj*s)({nk{v+O@&VR7vJ*x+RbFOo4xW!ve3xPu4eY-lVIKo*Tt&A)sYfP_cZ3X;wP4mt2uvpF7an-
z%6alT%dg6Cx0#V8M*Zc%>WMSUvz>e&UI{wLuQW;(@7z9V@FKZz
zrKQPwxPfE-b47&MgQs2&4i0z*jg5^>Ty87QiOMDm-gIg%ro6d1LzaB?PNrQse-{t_K79KvS913#dFd&pvu
zvGF+7nB!nX{xI&}V)qkH^VSa)=_y%RS>26irIk-xbO>T4xh&YEWypjHHh*&08>)-d
zA60lKQ*E5FI<2#Mw3E0H<@om0TTj&Z=35s>n$x^Es2dIEOO%V#qdgSC^u
z?>M+m$Z@Kx=w5vD#(B|BS{>)=^y-R=(T{gGIL(as4E-j5zc4#ykvED3+SMhe!n|Sn
zkzIbD@kG*26az0Wm!F=rPl;8FMVQ#m+G}7``r?GXbpB*18?W-=#XsSzrVU&uCrn=|
zMON86gSN2~?YtTGDCv|A&(+fO>Cak!
z;SVi+&Lp<7Sh#xb*fH?}lM2_^$DYXswdUw78NH2>CeFcXpC*~_n>M|_5wLT|>%*=0
zPm+-hbpW6|e*D;j%HMTBMoP+8L^a5$At89;gH+UR(Wd5RUZa{X3DtFdWr0epN?)JR
zSG1rAcu=V%X`VJa$Zy&8&4-zQA#qCab{!7U3sDC^7%3BPbLCXc0a
zp`qvOl58fHmX?OTX5Q56OMLHfG*T^XmeH`WuAA6>0VlPLO-w>wyqKz2(K#z1aOZbh
zHg=H9!qi}0te=$(+pKgHyMs_`OG{}{#fI34Tl$a41#}g2WMU>`?hVaEvc!IcW9XU>#x7015a)uCs*ON
zmXyR&^hz8R6OjsWP1^M0$=Z{yEH8H+j0!xdQ($Ug!AL_hv-GF3aHhq?TV!R<@2arc
z6D1y_nzuC;)o0FRh@>@@l!!;kH@CKy+4a%??CVn+d>qGF`N^x|`}dT$r?yJOPj|Rg
zX(?=_NqTduEWo58!C^Qt6aDtt!L!zrz29-M_%I7&02Vd
z8|$&o6ryFdvaOFEI`lDJh?!Z8;^*k7Sxc6F#mhY`vQudO1J#jf`V}p?cFCckT1w1L
z4h{r>6BYiJ^;+FD>H2RxAcWpSYMNq4l-o8GRsmqE&
zI~}5BL$QEZh6Xybf%?&S!qgMBQ*S;>P96h3AN}^faC0Upt_l~91j$L(j^?L4W_s&fhp-3$#4fhYmIJ9BJJvgzHQ+PMe?
z2|A=wb)#~P)<#!8+{KI~!R5L%_x}AUU}fy`8=vn-y?duF{8BmIWh7>|pgb{`QB;Uj(wH96+zo3hB?7s-mylzI_{1QNoKZ!=h7o
zKD$cQ`rtw5o)RxMl_bIWUO$Zwrt@9*cJ^0>k9Buj
zPY)^0vzW5;;lAUditdp++1u~kyH{}H%O2Dg?v)@zFZ^VoX)~9b+v;C`5iI86!-v?m
z)^p=O-?$3O(x`2(%6n=MUdD$ycElY=CQ$SvMxnkRe
zPk%9Qb{BXX*Q)k#O%fSmH2ANtk`N!|KNNt{%m&uGJ7!GQy}f^OU5wM|qCJUfd8YFV
zIdL0H--OXORvlG+9LZP3uR2d2Pea$&$-jv{|E^=n{{ME85}?}aXHbE_zi-{T)t+S~
z7FnHcR9k|L#l@8hfVW+Xj`*x-HdeMg<
zIzmn}rmY`FQ46PMW_D0ga?R+Z=z8YoyWD%bZF`n6=^f~zO1R0tVhMXtL0E9;4>stv
z5u>O^>pHDhA`^7#g6~_r4Ugen(oc8YFcMt%l>{y8_godcHW7j1mo1i0yNUGeA+et9
zi^Uxs+R?T6>~o8YAws?V{WAcL@rtbTNmg9Xy1RAfXOgsXdjn!(jx$|!c3y%&aK@s;
zR8KF>b=h$~0+4NPZte+CM(&-8>gv;n4qeB_6&4mQ$+&pw5=iVAz!P*MG@IbyU?@=d
zmXD7Qh%0ZBI)xR40{l8E2mUVTe?wWB2^uQ89dGL^yzsrJPoDyx&WyH_Z`^oMT>OJ+
zb4~hH`W;Fxj6KRBUI%yWx&a)>$Y^2uy{t?cv;+mDva)e_+T7gy?%lheAM6Cbq#}J<
z)#!PJ5_c1UCLk&Uw+RrE-tH`0AeyW3>-|{t;E{gn_GiOj{V)*M&i9wUW
zy3LnH{Q=O}H9m}hvC(;zG&j$qWg8h8k?&-9`s^9ebO%#gGc7v7z@(x818_lQ6&1^s
zZY$ijLv`ch<3lR>Ks7)oP*^h5M~8-9`uqC_2RjT@MFa%}K||Z0OE2t<#vyX@8=rg)@}MF`iv
zZNT5S30>~%HfU;UdQgGHE)PU{OG!%u7lF%J_)A4K4)58sM^8^rC0QFiyRpEn%NWDJp&!0aKZB*3N1)ywx`*zt&JhE|^q+Ipj
zUD^Q^&%Oq6{!!}Bwte&G7bg@p?>HEv9FMz|?>s*Vz-NvoiY8@y?!{3Tc5KXJp|X5{
zjI`SJMOeNRKEc6&w4ZSIzm}9h`TF+B3aA_RpF@X}>@^*zM+1AuyDJC0#PuYv=4-qC
z>Azyqu!-zc>g0f#o?a~$cn<4k`?ow{?w^Z_ZdAXyB(l16TV1{7yB`ZT>4i_sOLrw)
z*hSlU;!+wLXPmsUG7TM_0NA9Sw5aGOfI|Qm{iXIjUgCSGsiSHKckkZq>+7qltNS!m
zOiYaB%FCPVMxYcxcUUiN_^=S0;?)PSu%{iD!EnDm-LI!vJU7vUKCPgjfIrA06LiP}
zLgoY6=mP>a1K`Dd=Fgrz12=fdZ`F-UJ1U8FYs*jE5(lZ`F^QjOlivsLQ@z1s2Fa-S
z_RZ4L^1US$)0g^qmF=7F^)0jgyjfoZy<7F{IVIpxj-C7opgP;ES(
zC*L`3ZEdZdX|4r5_7#8KPpt7+{YaTjn>RBEJKGmOrrxz{7nUn_r07Ga<5g91TO~;Q
z`8AyvYuBlI5M%5uyxQ8@W;@+hyNjOyf&_CLJUd$U@`_V%XeftA5WkgfR4A5{nPa9d
z-O%9R2@jwfabA-=*X10ks5t&DF@lxFkYoCC&z?OiO3_n(Nc`Q_2I5*$|^v<*JZbpM=PE8C6AHrXb!*QhL2-IqXXNI
z%QA1_$I}42cJ3?n|M>CaV{hS^CcRIOV`|#lm(k+J3Rhk6mrO=pg@&3be?~1kA{n+FF}dWw@|y=+BDPdwfHbgfShC+ggNx5d}WAljW8Zj80=TH
z&3T-bcDobZY-W_r<6A|=mCKheOG>Kc-Wdf`QLFGHxmxGF=)Mn15;~^`6`pMM@H92!
zGB}V2)nwbjjIN#@W)FVnx%X;>6VzW368QZ2^_HMluS^@va6?Ki#C4C3a(FvJ)
zO?1!BudTcH;g#oY?_E@s5zkBP
zX{EFw{9pVV#)o-lfmT6*SaKr>I4>`6eNhn;7gvocP{$RN8xZZ@Cs!ar1aRt@pW2sW
zH+E8oUEzV4T1_-on&`u(Ce?XS2Bt6ACxs@BC)0v?(PXg?3jy$ZlxeA{%{ubbC+*FDWJ_1~>`y
z5MUtSK;)Y@kDok&?s4mky|M8SHYvC$8Ur@E3myw-$rh#(Z$?IH>RUM@uP@xgl|w6t
zkB6jPa76OMhYz*USI1x>OvkVEhgiT0&`?*8gS^?+20scO$mqxjYO9P}eP4WXfv?+_
zi;>k3OWSg6<6%NIH#?wipjO%nD|)%~n#g!i0eL{_#quZwMnma^HqPqt(AzukYc@Iz
z>M`mg(44I;wP^3JUxEJqys&@pi6;dUruF(_C8s}}eBJS7ql)m>RL|0Yh
zR@=4yio*8sy65lq-Z9k+Vp47_bHD#hTJ7+ZeaIA>?)w)Xa|
zl$5aA+?JW&JaO
zKPZnpHd{zvSh`^Kh)4mDk^OI&<*^C*N@Ra$0q~puw~TW|-y^&>+esHsru=i;|B=;S
z`5|H}*-(9{f*)PZ#;%AbTf$UxHyi+Fq
zYSnp$LH8b5F;`?|&8y!O>#Qy`0^ek)b9fwQWo>~71WqKpJf(nr{QC7Fy;az_O|7ka
z)|82Hi9eSsi&CKGFnuAai9`SXv+Y!(JSbe?PTg#H(eB@WB3v&O5Y3-W<^KKqKSKB_ZG3=@@+L|SKtNQ@w!Wp*>hwS7i^BnaetYmo
zKrX|>2}t4Y?*8rDw*U?e;kOZSV|va*<>E>Fp2phR+UP{MUNjo*WV_q9w{F{ZP}n)^
z!2=1Us}!U=MdSE(!?Q3UC)fGDK#0=YcJ5>purZ8RPJFsERxu8|ec#xQgZy$7DRyJp
z2M&a++pu|G>rqKZ$dTUk=Z<+;-nnBAR0_&KouO_Py7QJKqqJs@jZx8Gn*>5-(M@x5hNc$)V)3f0t3#?m<>g_e
zxU4Ky-y>y>TghTd&~g&h+Q2+ZO5P}30NIk3l1fmcCHwfTG%`~vDm61RIbPRYqLi85
zGH{#Et`w;zRWE;2q9Ewcy#e4HoQvs0QkZ1d5&PE4vydnCY
zS3_m(mgcNX8c>bNo+b!75_VhT;s&ouW+Czi_wIdubLmL{yBe2a)ob9foBI04jvXU3
zCg55PTIp##``C03($gDMyo{2Mg%NThyhV;c
zsb57w)kPly?e4GbhJhs$Dq!3D%?IXQR$mWkZ_33=ENt7sp7K_mG8haC@(KZbWH!&Ex3zOaV7^*5eyo-|K_^)jUoYWZEQfrks;H{
zvGKVV1l&g01Ly9PLla^*K5e_aVCyfXWVKt)A#7{U_hSSVeuyO%WXrAfe#e83o|&V*$2Hgh20vb%@Zi7QFEf1)3$6!_jaHWBPpE5X2kq#B
za6t6%V>Aud_4Fd;W6Rh39J}(eZZ5QKiq#)lhd+1}l0?EGk@8AfznQ`ZuL~L!T|X70
z7&pY-C~&aUS6GR|u%QMTDfpauOF9wzfFlD6fIbyM^caUf=IuGtuX{**^Ll^vc7g>%
z??~3nmLH7t7Mcl~Tb6d>Md|SK^ZSF!`L(#1Lo>?~YZJ=PndNzEh34jFeGY6{zaz2T
z!SuXC5DT!&T<3n0=WFZqOrH>?NK|H%^lgqkT;dBWAzyGD}IqTlbQc|TLb_^xp
zpRtO?8D*f>;KK*@>`6o94iTqqbUXtfu3*JxN^6_odV~aD*IaG*$`Oy}Zg(@fBT>jh
zsYJs<2AHK@)MdAOfT_36E!jc*vC2xSD_Pt
ze{9*dE#X}uWDF`@00#Y09oPA&iEBMxL<}aq60#rRgM*Ql7P2e+5>x7wAObzXGd|q(
z3V1qUpbSRRcs{UaIbFlu))K2Gf;sEHqUxcQ5#B73p%8J+d;ea}_bqq~QP{wep+OmE
zOa&@z-yY9b$yHqeW`7jnkTm$ne7qr~d~+9V20
z%(Y14YlY7Kr3T?H$0X$;&&3tS-9nUv&PyL6F66+#5GyArOmpwyl*WlQ{B)luE}LhyomHsl8|slUh(5Pwngd3!4V2<>qbsuD7^h
ziQ`Y=wp-cS5{fP9rsMYQ5k(*`-LSeFZWh!8=+FEJ{Fs|3WoFL8XcMseeUO@3NmEl0
zh5p5hz5Y^tP>{pJIVF7)6GxFCTbv#?(1iD}hEMYb9s7z2{@ns=SI~9I{;U{WW|!hv
zfr|SJ{{f}On!BYr^gkulC9zkBEo0~w!DYWS2JxRgYn0J~hY3=h44F27Mc}k~JNyPL
zLz7ec>WqngOm!GlA|W9GT~RuK-G}9NA|u$V>~X0JO+!>&d
zd=Ih@Hy0NaiqX+gL>>mz!*#A(Saf1@qR4F8v`I;Zk97z#e|WeKFq*!;KAsIaUSMG3
zR?fWZGk!;Z{``q}*Xqh_AyGKwa1g!3MCGDxM3qmypmUSUgSBu_v0BRJ%C*RMl
zKZT8KE+L*cA##3cm*r-1_P4KB*I7?(UZLQ>_gR!g+D58F?}-fph9Ct29UEr3SR=_M
zIL|EcaYF90?-Zh;1JetDLoG!`5fNpiT={Dsr?1LAes29yL%ET2q!0})%i-dnep+M_#33RIj=;)??Kh=uc96Mxmq98
zM6cwjz`-?7M$!B1e*rqFAn99IwdUZFse1muCBPrHYmvz%mj)CzRUIY!7%958>g(2s
zI9dIpEn)b^Qg~|L@PQnU2htZLEMA9MZT|0<>+gwp0$}v`aokiyxZ8>YqEArz!6*Zd
z#FnfmJ%Wn)@ZtLpa>Mtz*m7w!)|OJ@E=!&uA}FMu9`p8XFPzG7ggm68j0YaC)nHaQ
zxm`Plz-lZC=KDcWkSgTARr*4LrQIIk(e0bX#8gOc_3<84mmwM4Czn4Je6|AZ&@qA3
zX9nIL5PgVln;juddc&@}R*$4y%6|NCMNS5n6z23h8*vZ`)^^gj&qwgzi`0f+tOwo%
z7WNzB9)bz%GJJri7$D#T&_wo2LgFi65;ouB++2{YABmR(dgWX7+=l>;aE8RweLu&>
zEQpXOC&WS_At4bFo#e*c>}>cTU~g@oKa2gQB9;FvTg-=+h@r
zgiT<5LPADWY@fV9x;ms>C6-}BYP`RG;l_=h+?9fB&Rz8&H;e2mRq#s`MbMkHv_Ghc
zcsmrEef0G02(8qHp(DXhy%wtoGZOhSV5ELv8Xbo|e4Evukvb2RjjlG-)Y3v4
z38fe>h`p#4%S%fM?5|mUkK`}@&c)~3Bg%j7T&8h-9B?o`9A3wcz0)al4cN9;hIlFX
zha_EHSN__xb@I<2Pbvt&H1CK4|DSLl^?soxz+rf{pSy(QWfzx}9AjazXv<1Ld4(8B
zEo$15E*V|xweNJdC$0AT%uHHQ(4>=^S>v$Zz#gB_aHOWX$Gw843cn2;-5D`JRAdh-
zBvWzq2$VxZb$#vLgGPaTK)`JB@urua>t0)(wd(fZeL}u@vj9K8YK=m4E#Tmfm$q9n
zl%x@c)9tI)NK_^#{}Zv#YtK3f7bv^{wl`o++uP59FA^*bARI3`TA9n2v*3UNC4{-m
zsAXS@tcHI+Xp;j@f?gXGv`_CB9O5gl_^%Zp|9Z+{viH-cPhc`I1Y8g>6MdMFz|Qmq
zh=`O2z#{_s*1vgEaeB-2UCJ0KpdDCn_!ZK(-%9%JVix~WT&z{-nqN|U1Hq+puASClw;!a}XjR7W9>X3_aSz
zLJ*0C^>H=eyy!EnQ!?A(&rS_olMWzd6h7{LYd77C?sSk_|0$I&upRPG<>7fQ*GFrg5b@Y6%}z$m!Vy5AR{;?mUFr&n1ebu9WQ$f^wYRsL{lLS|3DFXzXr
z7EOr^GWYKK*6IUt2iHGaxNcy;5}w6Gq@BSfpv3iKF%lUzEGNaZ>p+lHpW55=Ya~nr
zbIVC)o)Hh-y!n5^u+s>oJ(O$JQ_=}Y@#@t6}*rZjP3ZMSMVChVRQ5cNnQc$gxoH)7|&-sz7WMNjcmHI7V?p
zXa0?==9sTdfzhOY<*Nm0e#7H`58K7p7f!8gGzNb@gT8_V(Lr&vv-~HZ2NmoKfOJ_A
z!nc*_X`zMgm32x0=>A6rK|Ln5P;F~#L9?`&Jc_PAf3UVT=``QeT*r7q8D}Aky<|kVcm`NDheJ<X2nE0JVQzf#zzr4o=0^e$A6LabRzKgolffC(mCX()2~k5_$xQp32+*28rlO9C-i1$j}Rl*
zBL|)Z>>q1N>48f;KR=Iv%;(RMXjLdtN%{;_Wm{uPVe>IKjig{DK~qFQU6`8#w~axO
z#vWCLMvBX|6$tedBQ4g2WcmLI3MFO|VpPDtj0bkRJ5uivOreqX=g`sl
z<=?gI?Y|`cDC&M+l@B$%>DIW{W@_`${{MbqNW$xp(7Jf>qL&Mr#`LKM6H<;$=NIz<
z5FG^9L<}ba_A2N4kQQSM@A@52;H>2R4GYPX4tKr341GW>P;NF1==EOF>x935bnm*a
zjEyJ>30eR6g5Oh84I?Y=+4f8zATTfxR()7lSa^7H<1id;2!$w?zkmL`(ZT_z1PM82
zW@d0^2+Hf$t%IR~9nNzgF(JVex=^R{pDSpv&;to53QGm*eM>Z8m9X#%fEN^~+cq}a
zC@4^qv!GcUh5wI&dka$0>l6Jxu|8v$lt;`7vsg$aYpbdP*$xa2p0ywELZNExSKCZ%
zrmj`yt{Bv2E%o=;@5)Bk8uGy8cgz<)M|$z{+D>#ABhP1@iLf0i3Z${(wRjvZ2l2Hs
zBDamCG=`=QUh#bkdk4XW`MEh5Sq8UmnKh?gN^UHi>wZ!q{4bcaF9LcTWW77%T}8Mg
zTwjR49VAZFaZJx;!iBC`7=C|B;eUxQGaOS%&u>m-<3XC>GiK_%1gBOmNcmqz$SzY@
zLBzn-(rvqcLgC#u7(R*0z*U9_~Bpbq4e{9N4JM8a)s
zC%hQcUU)HR^RQ!l!@wY*-8Lj_CA)sJue!CQa`F;-To=vv$lWNM4QeA#ynp$gCY_c1J%5!a1}
z$BnCm4!vdTR=5!N=tVn!fCuyhXLI%5t7K;fYs>3|QtFGx69+&7t%q!P!3Vrno
z;-UmGk&hdguv@CDF_*W1SRa1a4AWj{-sjJs#~yNaaq${-cjmfW
ztahs9gPBRg8|8R0XHBesy>|Ss_vysrnPZedWbk%oBPJW8pDw^&UJiV)0;TI$Z?7TGOT6LqNHbvD3Hr{YhkoyNZ0f5KkyTCOxZxk+2usswme
zF8Y(_A`7kQ#J|6{CHU;z)d;T+_adgE2q$bxAP@{)j(Sjm!$I>Ffvkrt5{Q=ulLvMh
zmWih3tD)PH9#n*y1|1k@7^l+9fEvA{h$EMkw-$e>L8?ZY(M$c8g05K{5a4?Ge)*mq~vl=5SGj
zG?+0l<&t3%X#KSUPzt?)g6YLhs=?OG(C17Yp2@pA~vOYYfANfgd$jNg^Apr#}uk#4Xsm^?I3
z1|B9M$nyu-uT_5ol%wR&(fhh%uo&mrZ8)ZHOc^DZnH8C+kJTmqf>IX~!
zWw_A5!Z0&1@Ce+`&c+t6nQaZu?i?QjFj(@8J{LY2@g_Qj9pAr0m>5;lMB!CVyK1M}kw
z9=Ea?S`>Qc)}1@AUcP*an>$`LMHe1PuFc?^oOAEcCUK4g%nmww`sJnh+bSxJc%#|j
z#>&#tA+rr8_;i51*RNl{d9xR>G>rLRLKE3KMBYa;&7?B##$p&(0Tmph$gq`P`TBPE
z_cwr|h^3&hzzl@u`TI4@gP4EBVP3hY6|bg!V9QF7(L3XM99XK1KOwR?I_Mi
zyzB~{^?SQDAm2Xm2lItpH%BrRI++X~S06aOxnoqtS9Wh&r^#j>$3mZ^m81gezQ#si`_U_OT~P!g>=0%172D*W=ls
zdSH|9#*W*#Z(P$Cj|Sql4kh{AfAaOq8fLjC@fYdMEt*Ie@Fw6fQZ`yd)&li7^$?UP+wq4Zkl2XEF-LVgc0`m
zt!54|v9rrG+w1Cfqt9UA9%nS*une37P>3$q)_R+!szsxCrlfKXRuy#r2z*ukG5`pq
z=y}*skpJG?I2RW#>m?e2-1>QJnb6SCit=*U%OJFcnA8BRUw^XefScvmmaEq;eE%f8
zblk}PF(u{o^NZu$jvI=}u3oFA-awb%dA#s}-DNkUPEZp<2>)Of(xL{YLqIB9TcrlY
z$d(qU?r8q(fn~Q#n<0eSTDiYn~&j}X6jF&*I?0Ri>I
z48SSEkb+L<*U-WG;V+RM1S;@%2*}oED;0RsWup6%g@r}E{iG>NA>&1WGHfwW*XN60
z;B_LP(o|G*Aw%vDW1G__2GaPA`(Xo!a-ftWSd*~61O)|=xI1IogrxFaOpXCSVy8V^
zT{#rElJsNw=5y>WSqz9!{KRn<#JICkd`WTfGSnCtaeife@ZvCksFABIw3>m3h>z0R
z)Rc~Ki|XoYqlVbPc&4q8r_e(lQ?p^J86#(>xVX5EA2&pCL*%gfJ#U2`TNn4cckiGh
z&fx>|h
zq{OJC@9j34XP6fJ%|FGxaLH3MSK|zKlCK}@zrGLn+fNVgfDVcB-Og1LoP=#YP
zBjkvA6nJMeq9YiecUxUC_S)*@W-0LXACEa2%--1T$W|s`2Tv;EQTGhuc1uc2hd}#Q
z-+Y1M8m=1kT{0PdU(}s+ND=t{wF-%tOHnV82vgP2uz&#SNckPt#cMPgs#lhXzk_^;
zLYX-Q6ZYnj{D&By*JF0@6_!TR1Wt)7$9HaWH3I~|FlU}z$P*oAe0ApXTJ-GktJUQ(
zx9m(WODn7D@hQy3P%yy~n-m-x9o34JM^*yUP<1#u1Pkb;BH~T*Y*x2#v%Pk8-MKDSGaJLD=%p{y@%;PlAhV5GA>@eW(6~xJVT%y6
zUk*u()tWLgPrteKU-G1+_Mn1TiG+}kaISBF2*26$E>dIPd)7g?LGiY-GSMd&FdBe9
zxU9?)S0Nz>!QRi{ho}@eBsvq~1HJ138
z-w)^o3W?e%k4@Dk5!KFflS}P4c?IbvZXv}*&s!;E7}vwPr8{uIWKvME0vn#Qa^qLX
zfSx7s+&0v$@G-zsVVI`hDx=Bxnqj<}r-(!#LUoWwA^-OZvvS;xRgCq0A#>tz(@jzu
zQm*ZC}iZBVdnFI?f_!q9uNcS
zu!0I5r!nUg3tPdWz6|9DWK^R5paf=-Fk#L>OAF-4?wjdv$YY@S4
z&)Q9i0vWBS&O8>g{F
z@xN^m#s>01Eo{zr%A6X10rb`wt03Vg-of-iP(%-_6U`Pj!xzNckvmXVR~Hu-N94jB
zwlWqIimi3FGm#!(kySL`;cIZt!5GFzx`NU9^B*DbRbyrgz7R+>z!r$A6a}8c6A$ZJM4JlaIvF^Cyp1jrB9R{~Jwd4O>mfN_0akS2k;-&7?=EryK7X9Du
zDIS@9xz4M@VlNHNF(EU>(Moxvz*4M*Hnu~Pf>8)aQR1VcqGFW>;FRI>lvh-sBGK!X{ozJ8;x%oOYw1+;9Ob&v-r0MXuUw%&b^Sb&gTE<4c#JS5e1n{vy#7<>a?#*HX+_f0*^DVl
zGe(yw9{_i-C#2p}+rE7pKu^yBbshit89bSTgQE;{X4oDm=V)dGR~Q@5^9GS=FK}ta
zNiX&F^$4$abQFLPf;n_zfW-Jtk5|VTJeEj5zgp}UVwM2AF%bFy1XIv1$6dWWO)TJeHv>gt;}Z5nOQ&4iSK(FBC_Kso^pHE<0GtktC+xU`O&UoLf=
z{*V-%zU6DO%~SM;BKhRDow_HcvdwVnq%5Vu`t|8w{!V*eAOCw-ko^Opk?j-Qy*8Np
zu`A{Kanh~WMA)kM#GX{Jv1;wuztOJkezNQ1s&Cc+-ZqARe(67YN1raz8~a|%K;=76}~`8_Vz|2Db*&)<3QSkVM%J`6P!
zHdbkZOkh3%eFukv+(bL4^b}>GClz+G-goylN?gAD5VI3FQOFwbD;7CI7Ie}a`w3mt
z4D@?mxNO*uCY{8gfMjIn!(`G0S5fj&ZoZY4?iR(o+htE88wJ-IFykCf9)ZT61ag7R
ziT#F%Nx_GS^$wDKgL
zv3PYRZtmMCjZjDiaS1=~>oj3Ue1M{aAuB<*mA00a98ph7oaSMI?Jjdnp&=V>ALi4f
zpwOX1uko##;oVM3ym`WZg>Wgq0)e_Y)~O+AgHQ=tA(Fd^1V3u}MZE-Q?1!bVn#mA@3{_xw2k
zG<>GLz)*nb2$EsGUk`5qhFf|E)$``fn^PE%8t7Bl`w~tE_?Z9)#}$feNt)SHQ&S|j
z%BA(|R|DLoQe!k#2R((O^Kr)3E*trN<#L@lqg>FhT+V?Q87lZZeSL3I?faI+g7=r0
zHh=y^mLw!THtV%6kE~c9^^MDH&q472T+)F?@^{2Y+Fw&s6YSw!;_M=HPrxqxVQWY;
z9Efk3PVW_C4-uw<=kBL|hDm+}6ulo@oM{oC_
zLJAh6Xq9;5uU-dOGW=ld?%Rie!rnc5%vPh1m+qzX#Az1l>Mudau^ypRk&XgVgI7P%
z^A&ZzHT9NstUe$Gl`hm406)gT}ZdN1#VS<@K7?L`Re;Tu|8}gSrGS9lhORg
z`rZO_@Kaf_&nh(kkk6C$&Lzg
znF7J7Yea*v9&~GhkbmpZRN|8%<6c4kruew;(?9#2*??{UfuK1B^BDO~ZF=FMaqT+{
zT|&`XTmP=MJbA;9KUJvh)jh?&txKS2U|IN-J8eRcSBIR`Tp>>93l0lo*t@rPU|O!Ik3E%3eCK;{QT&H#b3WlBx;t5K&KIR
z1lh-&Hv)BlgCm$0htGiIL3y}{h@hb6bi!JRYI|kT2N?;r2I6z*jisXImz2=JtLIjG
zRU|&=CLM2k^{=+A$GW`h#imo@>i`~bP9U}h7t@L;ACnjhGwJ
zL_)s)e}Z>`3z;oK8u}ghL>f#(#>%sz1t)qtj+Im#r9W
zN&)H6!_ZIMZSzg|Y_P94NSV*J-i<%9I>9v6qs`qs3ZuFP)izC1`UJbaEnD
zkE!jcx5H={Za5OMrdmD27)m}Us?ET7$pifjW9R8EOfmzTCu2oH#g0>E;^)WSA?zv9
zhv*9MP}=gHREQB)=!Kk5@;+prJhPXw7f;_l{32;bV;`6;Mw{QQ!0P=f$
zb_mCDPCM4+$fJWm_duFJog+B(#fu{z?=hRu)rQ{kyE#q5@uD));=rvha=#O22tX5q
z4-oex@v$G?ghQu55GR~|`lO5CE4+MV7ug^jy*9+99))&_mBUtO`&~gYYwdY$AH^F+
z$k`x3Fl%nm_Si!DpBoLD*vgN6`L@s2X%fg&+!cONn6L}9^J?TxgI>N&-EmpR=DE!&
z6ea{p@TVX_+ID~0QlEbY1>OlV57f`NE9x6;qR=G}sN>X$^9MbX$}@W1i4zU*nhO1l
z)rhW5P*kWbL>a-mKqy5Xz{TS3umVP&AeuuHhuGZ+Qa?S`sq;Dd^|`ZWALS)|h(qbP
zlr;RgBK8qrIyM@%TVDO=p)Be@k^k&&On5qs`|>-tZ^+uQziMFn(dN}##>VQg@=+j>
zpiVdhwYOs{jpscz>Qkl=6-6JStj7D}3@K@fYX#2pOR~ghK2GmIYUJ(MLG-L+9zjS!
zKTtwT#b3tNHu<}w6o+PHQo==s@`=_6?!$|TUlROVi
zrR~W(`J!Q|@%w~^F5{@rzIh3{e^Uy&)__>%zK^!w+{G=9JMH74AVbFJz(VcrgHi_T(-#>uk+qekWM^o12=x-Au(S
z{_Fvl2;zLN+&hUG8Pf!M8yyYR$v{gpfiflW?BF#v5vQ31BCRA;nI`o^seXLH@^*m_
zlvRhxw^VPSoH;0WDLZS>b=Y3|+0RaSdLPYZ%hA)0!&Dox%!&IO^;bV98j-$q3%WCCxk+Y
zf|U9e{D{)C8|GR~E0WPD8iRL#7Jo;n$8;PdVvAe1{KIHtU*hwULiB{JEGzqr>M$D{
zapnwgMOsSAApTyMSKzC)z3d!`)((pr)v<5(pw++G%LEo;h|Jt^+I=_xJomUNGGUOy
zFzI7E^rArTM8wTa7A1@Qe{P$dc)^HxO`nC%`3Hy$>Hl~Y91x&yWTX}$>gl#J&%(?c
zDHF`Km4^NKvB_A7O1O3ub5uDkf6s}D2~c%sjM@OZL14q?f&80~z9~5Sl}nQt$-@Qz
zIcI$1#;$$)j^}rPBm?@gQnxfU0Zro&Rt+_^E5TexE01~}9gQ=#cgZ@tm1ghWbST}Z
zT6@Pi$TM}raBB3s1(5{Se?dDGB(yV3xnVB%1U{tsEzXtn@pDRCGp+MG3~)E{U6%z4
z3nLZe^>0U
z&MYhD6DPhmG<-mhL@j6GK}M&c8n!DFQ^-1vY>^q3#cAxasN;7q?_xmPAajvWlE=B*@-
zw-K%(PaLd0B3)+czgTUmDZ&U6^yFc!q;JgDFwc~;Sq-st#UO6Ik}-;4Nt
z$_P%l
z4}*t_cJ0|y3$zEvq^#rO;@TY`v#!0f^BEjMsES{{ejPrtcBq!S-D|VIhy=C#9X%KW
zL|6g3@})I3hs@#v9H;cNh3F1M!n!?o7A?k>dJpMCf7GbPI|4m3eL;=3*|lx$tGQKY
zif&*M(&PHAwHf~^X0+n9n_cLpLt8}pF|xd^W_80&((`Yt_3kGV9|d~JIOl$_(B{&&0L)d18wd9M*t2-#eM?Q
z-??oYaS}6(84N+e&i!4A(2x3^HK*-)$OrF772G~PjPL%R?#=|P=JoCO3mchZ%amb9
zNXVEel!a)bQc09C4OCR5LT$=Cri4&QvqZ!Wna7e!MMN1&gQ27lrSo}K_J05GbWlI_x*3wTI=`wJBOm1
z<&*+b@fi}%T{+ijG{+xi?%X`&#qf7&!J74PN6*WCT;;>RUHrzb-APVT-f5FKW$#k$
zxUFfcPCIBr{=Tc>7FHg2*zlSFWx;)sKgLQTAuyS{hb3zqrrk#ACb?WWRi5?yh97r-
zIO^JIk7|1*pXlgPAceO%v5~9KvQRlI&n6}+NC#P6GEe=vU;4l=#4Se3!B
zC*YCY&7#atAB&HVmwyGLVewhU_)7Nl=Mh8V^S2w@O;ib)L3r?$2X^>(Kk%@yJ1cs_
zx1qy3NRhu%>d3yB)=@rW`fdZGytyW6glZpo(t&^Xi;&IoQfj3^S6Wh*anuCK9|MOM
zKjX*Y3J>49%g_)ODViZiA_~EQ+(0ETHOKzK#fxwIUL^a}T>EteXe@VWKr2g2OK`|m
znqAUL-#Rz)mVZS~PZ-3yK8#*;5F3iTar{L|iS4>O)t4{b*psT#M$$BE)U{!b&&EIt
zP!BX~-n@9uOF=%me~OS_L~o7wI?^qq(oid(>EgPu;w4&^4Zzj<`u7Rh!c7s&Gf{sQ
zG-|1I6ObRXTR$v$X)j!Nr?F(JB^5B-BN#yEjvZamKyh(GCqVNUuqubvA(C`y=$iOO
zzcgzm`W=#2H
zw6=Ec)vJK`fDH*p9z0M(#ztmKR?Cwt=NQz!x5Rr!Sz
zxr6jDa~4FnD)_FE^|+|9p&wPwG2$&x8{C6R+k=OXw2s787_$NUa?YNdd;Y=Grygi6
z%7<)1MGGX$rvF~IYHyxK>!ckIC5A%}&KUlR*nR}RC=lnKJ?<_+ZLHr~*lh7iQ?Zcl%jmI-ib=BTOhho+q3EmL2
z4Hsx`7B%>d>(~8(RTe?6usMap(%|us-Q*YI#3Q)V6W9*s8Qd(%bH}!Ahj@xC*$Lyv
zBi5J*#ll*vRSPUz1w1qxC@t1B_7NZtrWzH6PLgp-4zEVh9S(E%W_Evk3?U{#S!NH!
zS^Nm=mU0ul#Kf;JHj?VY7|e}(pxFF$<7N(RHk(CnM=H%7!W=n)WeJpJg@y?20FKwt
zn&m(sC_+H)60eO&?=iV+IBV&`8~}LV5D;AyT~GK%um&T?-y-+M*9n91>i0<9*?3N<
zPTsw%tty@6D_yu~Q6-A)w%tZfub!fGli)`d5{ykWiwF|6l@i?Z2x11f6~rMn6Zi@u
zuQ3kS#m|;cvXmP}OR3UL;76o!;U=l{+Z-R26QOnG^Z?lsAUVeS;5qXq`2Faj1_AnN
zZX(hTxlltDJYrSrg7RSTSfuCP5phN`TC9L-b{|oo(lVlQvOX*5h?q?0j9zMop-TJ_Q;`6f?Fd{
z%k1YAZ2tXY+OXAC_R3DU@)d3MOty_|D(SMN-Ndg~Z`~>qgl;hMoj0#u9s7I^7+q-o
zvAUOr(x?3m!3h>i@UGtq@BNx{C;%X3?)eWqC&V2%?vL=5iWw4|P^M9aFXA1Bxp&Cjgo&;<`P3E-VLB9M)%u
zz%F=7fBt-#2xj89ckgNV2_7vay-F+y7Oi1nJYcqfUn-R4D_CeUZ`YM8YZxO?d1;=p
z4uz-UNZS>d9uDZ~<>kfiq7$_LF-ziIn;knl{no9itMs#OvVMq9?>~IFOdALaE&we|
zUI+o8x9kZ#SyY$VkJ(bx^Q?Mz3x)cfhk=lGZrQTu!U0XM%Um03I{K)N7tG;$a41OT
z&#arA877yl{k3&gX~*+dT;L}+*S+EIJ187%hE4`}8;#H>YGAUfC0r@D>caE~5|ue1
zmjit6y6pWtmohSSbivv_bF8}V02_aKX|`~0rw^+C(AE_Kww?r
zS60gXA21>67H|j|8Ssn#j2TvEmhOBr%r@5_Spg^(X<>_+5;mLy#9q6J9o|LD*d`
zBO`)0KwmiPG?y=QUOq|hfCyH+GLJ&l0f^YA>F=Wi1H4L<-T#h
z2i{u(OxQtM%jtZ`%Up7ICY3u{?vb}+oYS^f+CtAFvJ(w9qzpQW$#cxjv2PV~5MXr)
zPO}`!o;MptYzYSjKS@`%G4l{U`kMSf)1BR7lY{!BunthVNt*fT?Ovm9lCzQT7cWxZ
zD>K1~pQrT)VII9G>+&K8k8g&C_o5q5pN`|%sHx3J-C4D{4JJgxS!dWxvs0o21_o}M
z&Oy@0XV1Cers`ZDi)i{Z_2cfdpeZS3yWk=X2ZEIcWpy6zhdHxQeDE^SLj-hunrrL@
z%tYj0(fn>Y*mcDU3>-K)_8+@yw?9U&0J@b|xcgH{NH~i?F!h8uhjwiT%n9k(wQKY@
z@nxlQiJ>#)G68Bq8gRs(Z(meCbc@}Xv#RtT>DQ3n&X8NUd^z!8v302b%>fHeS^GDW
zyr-~1;%1<)UyEFbGlK0oj-_-pXaeY+clC}ZCvOkDy%(n`P5GcV
zn}m9__S_1yXi3Eb%vM19XSl#3l<)Yh%{D7FCX@}N>E%Fr1hPMw}Ak@$CKbAt$cBXqJlj@bBe&UoSADBZ%>
zOg2qLgE0Kypf6YEr3MU){5I;!kPLRSuRM^`r=A5d(L{Z_)C(M5)3micJUwH3t|Nir
zvj9s54Wf6~Hk0qeL6F1gkJ3LThb2UsdE74DNw2z~L=rNY&&L_LjvJ`?tt70r%xBZ4
zn5Cm{dTm_7IbV6dTVco87poQ^b)e61K%
zgyAmKumQ$GirHW`0)x3fxrvI=@$jxtmTQq2997uWOH<8m3+
zXzsN}P+F#;hJ{C?$uE_h4Wb?`oP`#cK=d7_bDU;TjQH=}8|vXoq~ST|GNmdLxqbC>T_r3gr}M0Kdk1KN}@M#L*A293pZNaW8eA8JJnj91b&llp^AwL
z(0d)^YBKrI=v9!NaeqGCul+qzN%kuZ4qlWxbzmMXJTuK*46~u%ws%J68#H^Xn3E88!bhJ
zLTbqO=&!7d3WF;3@(XRSTH4_HJ6xp$a5y<2sfdNSIXbkHFMcK4adLDN#!cja)8Eda
z#jo=qb5hDi$d>G0d$h63HNjPgq#C>t&v-%@XVfwq8w_Bv4Q*pRi~Yd?kA2R=xxP}t
zP1=2bNb*(Wx|>)d(rmI@PC@VhnJGV85JYJ`O)~mU%|e8^vuLm&k$%F7%)JLn(4^)a
zJor7S9c4Fk7<$s&7Dp5k;XA3zwpg7xy$G0*ogPIMxlRGPHA8zOKA2!REqf1yztAOA%
zzX@ytr`xKFT#+YC9Q(~EAQ1D+&@jRekYyWylD73)zNlWrT2m6Z4*9)fA1
z#hk@hjhB!BUO7J*Il(EN&j1yIAa!5tx!@>%l&{CpAh_|;3mgT!)&O-SxhLjD
z1*0~>r7yLy5xq?qlkL_0xgR-l9X3pU`c@5C_KNj%QZGjJNab>xTLY#cv*kd!@S3%J
zjCTa~JfgnLjH1+G`ErWV7?bFS#6Db#;Z>e8!C>cLI8iUOStv&k8j62MmI8`0e8E+T
zfk!X&s_c0oIw$^-7jm1SlZk5y#Am1Plk#)3fee{nVTkx_ih%{JpVrJGEq7>RTsG5G{3F;yBH1Sxyl
zw);EX*2H*=!-H6itPc59@~Gq{SLgCUGYt%OZrz&c_8X9ny!3F+vT}#2ry8y^Ay3I>
z-Z8RBei1SNR@em0@#y_PO-FS_&d(v!XTU{@;epnp(XG9B|Go##@{W#}055;9*#KR6
zpBsUX2^9}Ft%eJ%jLl$aVV{M*ww2PQ
zt#w;<;s`gNSsZRFRzSXGI=q&I?4;rRZc!x=TB(LGRgqh|LhHP1@C(`RX*Cg`f@1RL
zw$HP!b!c!xmDKhAORx14y7j)c_;0jVN4H*gdW(@kcM4;ty=n1y%rKpTumV9MQ?J+
zt^BB{3SJ3OPO?WL^_O2?y{aCTTbCXymv~DP-$leCnwht2sq&v+uN)9umPr$!=t#uGVdAKGpBu-#{CZ4
zeuA{NONbrPEj&V0{Dvu@F`T2L0YpGLhEXc~_M29Gqy4r&HFOzwIhauy5t^KP36CL@
z&{K=Ad;NJy?Ku=UU&vmbZD!wa+@GQBQCM%X=cj^Ls}BWEM=AXV`RVE9EKs8f%KPq7
z-{6y6)v?>3?{knT>zQzGO`UVEiLvHQ&u=2G;0cfO`3O^@CPsh^l8Y?
z&-;17YdVWO72g1qoSfAJM&>PE{#G_{U2{|CKOcA+hFKYeJpz33L=ys^tT}&1@I=ep
zg)cS#e5W(yAA(osByjJEGhn>j)b;V8-5BI
zokro}Pa#QeG1@jm%v*zmM!f^lrmAX>p~L)j)d8T@pa)ewmfo{w<;Y$`C1efbslrIZ
z=+^=i?Cqn%RgoJD67u@Zo65ia_5u-Hw%dWef9ftrK4cBC&rdL12y~MTKV4s+u~))x
zT__0wPtBqXC;huS3m*r>KnRX5*9zG+p`m-{Kdid^yA3%a(@iq269Khj$0{t|dA8a2
z@88FifOC_D<+^(HBR5;wMZZ`#z^uhCP7bED$y!}lVBA!hHQ|k!hsO{?^BB*WlR{O6
z2G5aA@bXUdos%*OLuLQAnHyeHR+BJMad#cIXbLVEAW^>ZAW9I>z+jK*kcgQb|DmWT
z`~)@x#(=EJOS)F&HrOxSGXAKuLX2vZ8-`|%h8b(R^ThmJk`agpTn*aiG(1+V-Tl@$
zJ#>>(G252jFN~xdLXH$Ssa>LNrZmQ|WRmO~d0#hNyL1IQ&f^gg^y{z^qk13#$-TVp
zB9&df>gdki|KzH-kB1;Ygo_5Xrrdl%mP7j(z%)Y==YS84UOm`{Uo%3B>FVlA6$pGGV96_9
z^_;)4>u4W2fDJ$LN9r>Ih^Gg?_~Z;QW6UboT$5|7{DUpxiYTFg4}jxU_3#|x!#&{h
z`2{l3=FK-FhXRieLv_@^1-X|RdeMLg1o)U2%V>D*W>
z&{vbDfcpWQm0TKNP-aVOWhH4ZQ%}@Kj5u@tyci5f6axwAtr@V7P2`B8R$#4IbMG!V
z=Q9#+90=&9B`VA!zY=Dm{VzXS*AbIZs~^@`vg~&lTnt7F1qtD0~qy4($EZtS%4C(dtJG)!gby{6PoziZyi!hy6Tw%W
z1f_vvKt`)KEdY)dqzJi!7|K}jVp5|CoE5TBg~!bD0TSsn(3$2d518IrIz86XpNVu-
z-SjiY8LH5H**56m@fnSJ>6%g_Ag8>9W`v!OJu=Uvh0-D7A5XW<+&v~I=gmp&t9pLE
zt;;A$$AO&6S#MkuTlh7l^EE4B$VyAuL(O!a67XX{+m3p-RIi1m(6D|-y!xxDIWozE
zXqL-eL}@m1>}-d;R4V0GN_2bI7tN_*J;pepVh=G3C4rD`L5$le<24;@qQ}TUD}0@r
zf2PE!K=&(?ZaXO7?r+!H;c8UtfC~Omv5?&qK0(H!qE~%Bz6^#V-
zd)H4^Xw1GE{5|E7sfuL5*Om@d&05bGrn5o-eBAD%!xnFHZt4SRnMD>emS}})Ygz80
zvR%g;Y_NQoBXKmqKtF#)8#LH_t!o<73eP{AtQ)`7rv8f8<9kKU2le~KbsFHqSKC*x
z)xIzJBpEs57jj84c=DbsCzfIPvm`p?UBIZxHl6Ysc;=XGIve`1npIU*Q7s`%PTI|!
zR14c-ol|pi)W?rM7gzG?Pc6V&?j`T-bb=MKII#mdL=A^Nwtb`|GOMhf+B^r(JF@M4SH~43V{{ArABKE_>Cl
z&$$lelW70&^D*N-H4P2xp7{;+n1?)nis=F+7RX&H0GGEao&V`aK
zF`sr{TqI&FUKJLO1Xul7@S~6HyV!;uP#!}XLCX_;e*&F@l~HGa1bA9uA@J-6E{1B9
zgfr=UJzo`U!)x(tiphU#R}cS17lj+=EX|?6cI#I5@@1$+4FY?bJoX==Qb$Ynnt$a&
z$P6pG@cc#3QFqf8+>em`8|(7ZnV@idF-&eZgFqC&|;=Pf1~;II~Q!$=;$W22Aep{(SIrz{yx9`57wi;NT;j;$u!>W>#E1xO2e
zj!9itMMaGN1UA4A7gI6evlwj23FqT5@*>2SZqS7uU%i%XL}d
z5ITjY0qRVPyNpBPlqomK&H>>7K-3h3*({YXXQoN)JWzB{YtlC^
zi1*6qKB$eGSC-SeRO%NMHU>3VuFRIoF|>3o`65h#AWeNy~^_7$ifSW<2#R2Rx5
zT*plvtapO^BJL*25Q}JDe);OvLoiz*Y<1ibb0Z?({7zb0T277_L`$+j*8!pwp;ct5
zc@o^=DOr7bIVt-Gi?(ToZGvzU_*wP-L+1Yo+dc6R4KNzx_f1vwy4g%&shcE!U%$-p
zrjwiRI8^2vdK9jUu-H5oC+^}6@vCQB&XRfP7kW5S|@
z<_+2+m3#kC0=h4?J`IS}QaH(>o;k?|kw
z68pQi+J_W$-5uGtmV_w$Qy4;2JzAj_tFvZvo7a@zKKdZTO>Wb*1`MEM*l6$GCx?1f
zcM
zkllTim)krxEGA*4qLa!YOwrJ|NGKEI*eWW}xzhcx`t2iw#7ede3=tb4EZF>GeWF|O
zN~4_bz3yDO@xohW`xd?45q~T!xiO*oLO`^w+{uuLgZU?|jZCc4E-bZc=VVzI-M7f1
ztNkB){B)-lwYA^7&GW;H>#7@7O5{egF8*@I{aH<#lX>^kY40&2E=7+cW{+dE4DOlEIU=S^3Fl`_SnaQ@t#M|=
zM&kyBqrKuqtBs4f1=20ZP}+1Esxq1^mRiNGSktpXljFm@8aUeyQApje(QRHC@0XGMYE{_FMt1_5un@G%g$m)7&d@E
zuy|E-->$4fk_l93fMP5yZIzpw6YwyFB45S8rd69ZgH==zvOEU8WIjCDkUD5M=I%St
z0)ij*Z8f6XPC`*0jfa5x04%}yg+a8Wy696v{@T8MCTdEs!vnpXIW>_#grJ-P0LMk8{YN!DHS2YBjQ-0hl&gvSdc)%M-75R=GvpIyb
z)G#-H^JeKcXS$7~TVM!oF_sa^J>tEeGQRs2L|LgEw*_2@(+z_uUdV|=)>`WlqA#!0N7fc2`&o|?a=+9KJ{DRspujln7LkC}dG78SSlR
zPOE?V?MbF_WmVt=(c359hf>HymC6g6M*1vskjgRZJx3C}#OEz`V+19S8`(
zAzBlx?gvGVrLbW+Hrx0T4o3_|W5f!(fy{u;iPPjlaOzi_XIdL54xFm3UFLeBVE`^x
znsa1xWq~@MCwq=2UqM)Gc9fZAnG1%Rdp$Q^lj}NClC2DDkx*2@<CBlSLv%FpQ_|?hHHlxjfv0xHY7P}39d4X<{UZQ;Y!3CI|Fy9*#^gUw)
zjqyag_qf&i3rjN!Vc3Q~K0rw4ZJ)8*AT93I*D^BrAk-3+ew9ZZT-kz5XXK)l8^xHF
zn_Jqe29!bmMI=|QSxIwy)_!gyHo$z(x#Q~=CNQWk*$Pr_D31O+wfp#F*pB3>_oQ0_
zZ&NyJo(Ye@aYsJToQnL|KX{AaUl?v~qME~#WLV>~S#z>(>$2+Q1=}{`a)7I>)~%+$%Gp^}MP;Z%DUI+@pTwhTkL2#d
zx{qIDDEASu^nTM~-pp4Xc%xGumceXkm2w5?yi0401c
zAAdgWE%qK0`Wk-9^}M?9BqS)@J}**Cq0j+|0+OW6GyP$t9rlr&8EWk!>yJVRKd%&z
z+o3GAPIFN;DEVNHF|>fmwJ3X2la3*Qg2gHPEdtt$q8{_HD3Z{r*^AWZ3=KC9nD>i`
zRq^$aPn1PpGxMfrZD0DPx!J4e6LyQk8PuF;afIahzyV>6O3eq71nwFKd-W(%St^$o
z>Dhg}-Rl;TkT)f4`kZ-DoX(@HwlgG1KW2GVvyOMx_cCH?eN8Y4YEb%)p>(I;6Gftr
z7%NfJpP_?m@H8jzp68PBBBDvQ7~ym-Q`Q62$BY@npsMX!$H7e7)s0T7nWYLur=}_!
zfG|EN%*1-a2c>k^p=onuj&U)y_Y)f)M%%Nw@XEqoj(Z`-Aad;}njkj7As<1PAeR{E
zv0k>u2IV?kMP!DBqCc}M%kn7`w^Gk0cjs`_hk(VI2HKBrIGR$9n||oZ`djnRGu+zG
ziLL8r;=J_EWT=T)z9W=eBr&|?(*Wrfo)xaf!%T0Q_+icAPK`5Y`%)ktPmIEd#J%oB
zr#Q`u@tYlps{~R?mGR@(B9Q~-&mofIlY9yRU%~?!<>ejlZuE;aWzmrg8&x#d`+(f`
zioDb+D6Bi;mf6uJH2IGVo}e^j%^c(9%TL_u_%zBn
zVzDC_o_Lc2V#PiR_wDs3HD!3N_h7za7u>NSvx)ur?!`w4862P7AiV7uH^uSgvoHOD{!Dge8l6GaNG;nTAd2w+2qunWFgDH#p8R-
z^7l~kDQ!AhwrIu=H}$ppJm(hg`$Z%UMMd}KH;g3he8MbtzUTWyg3h7y!6WUAQBc4?
zfZ4)l|EhFT^a{yZ59k-8xI^IW==cF_9`QLgAvxe(!pMU}YUIeXAt7RpIn6Yc+#Y6h(C*3TLaJZ4J96d?wzTtR^~NyL11w#u&W(Xvnn+UW{y
z^l2es_v{DtB%~p`O>K4Lz~zfnk{}a`vSH#yMSXoT>=PNiMMcV@3h3+-*R6g3NYf{Y
z5|hAF>wI%8Hw=%mag6!U;l!e`?g{S|uorl?*-^{}YKknKB6K_qh@3JceGdZsoqfaYK~_k6mP6pk?kl|9ga;9$LuxJK%7
z8sDN%%WA%TQv;{r#*qy@v`-}Cx^pLz@5~X?w_ZcGhYXEYPuLii;y`z%
z8a#H%-90H2M)d6J)#MlZCeTDWlf0TNscN>M_`tPBxlO)XHq2Ck3?13cfOe1Ai=AXE
z)P79kU3a8@$4SCC5UXs>W3}k>3IXr5M>4{lq>-zCgx&;b&LJP#!NSp
zlam`7r)PhWRq=x*LK6Ff_J_7gmcEO&>`0`bc8@}g)U;nJHZ}s_SU%h+mMM;S6)We6(p7)hR^pz^)_<%U+io?RPFOH6`9Aho5~5vmqKODt2w`1OtD6Y@|=h9PTuUUE<;=^fZmzawUP?G8<@33z3h|_}YE_LOUTlYTk@w@)G
zgaD=`UeJ?0=8)@ari90YM?|czxYnF(CVj$}dFJK^EW;IL|E$t+#2CSz-zJ*@Db}Fm
zf|$xmaqWX#0!u)WJB|cbluw^N5lu}s#A%lMDZdy!gPJIRNCtRqoEZexzG|L9z=w9db|3vWdWUUe`Z~#geWHbu4{EP~Qqli}
zhuIklIiv(ak`iuQTK$cLpD`me0|^TgW|JR}UP+RKhM9W5906NaX+!1rIBxD^>O}@h
zNafmd2xOH~*^F3t{TFZ&rJEFcBx!E2zSv|y(&n0L%^@dSge{NzX$TpmavQIm
zA|}RXgP+#kKC^~r}-@t4W>2GGC+m0a&Fu5jL?l_$?Ag{%0uSrkR*2Rf!r}3
zJVZD=6SHC7mRKye#HAf3k#nM@oSZPHK*s4IcxSir%{{x&9v2w+<>|8c37_tdsO-d8
zg>KzqvPxm45SVrC+0)S;sbzhjm50uccduRz2ZVsH=Yf%2zfT)o&{0ZuGg(eF+KG|6
zxL`VSz4Yk}csn|~rGnvpTB6Ce1-K)?APfRP7w(g*LRk0m_#+8LO5QiW&h3JBHS<2C
ztf^VB|3=)*!(5farJq-GY}~j?C#`JrLBlN+7%Rl=9nri^Cj$3W=_WNWvh42}O^U9#
z1?-U0>SgnE*>G%zwlC#O?jR*;yE`AQd6L{|$`hm^Vm7ZLi~jpVy&=9#v9!{fLo%(7
z9`n<|Zg{m*{2p2?TgIoFm0BvegLN={eTWZ2&v`U=LC-QQwI<)QJmAU$TQT?Y`p6+S
zHcXwu&_tK*&Daa_(gRC%Fe8c1DT9)x$m2VmU-tMxdU`y0F1KxP><(^B+px?vpi2;^
zOqQtwp25j?_o((^l!v=l_$OuAJkDFwOcFJ$@a(s}(K(MMjy9(GOfjB}MAC26t|+ZG
z+EE
zJb!)x9Tu5~ZuEM|EU9HCPeNjhqq|&f6p}FXSYzv#^*du04AVr2*ok_3*Nz?YFgZly
zLMELuE+a4RJ7^2lA_L^tm6-B0nKg6&yjVnj%G=klUtM5*;5ubJr+6eWdWT3=Mz}nC
z+B*Ri#qhy{9l&Jh^&1+_c$Ep2EgGKI)o$H$7W2Ki0tPeF!*JNE4F7w?2S{DEzo*P%
zJI}xls^&H(G~1V=A=)T^jBQpKC=^3jhPiKKW$7Os4=Pe!W}4SZC6!%es+t48XHdH7
zYx%ZFS=2CT*?3nO4)7J+@?|3ragq4(1>_7;R=)YZ%+3Zt&3h${(9B=U+1<|*-o%i
z)&Yp|yW+3RO0fef6Jg@F;D$tMZp9YeL_2y2A%a*@P+JA78(by&=8asQJCue;p0$OrslJ^cIH-8P725{i^ty@1>7g6nJVTnqJYp$=gsoC(3W2>38wWc8qPLiU8JZu@?$
zlIil=g$EVwM^t(I=wzuBVTYali??qtqT>L~n18{Q(~Not*$%-@*kPY(yQR9RzcuMM
zweWU+-M}CjoiN8ES$aNEn+;2ZhVmg}kYl)<%oz9d=CL0pFBsa>vqWV2FEF@Dg
zYSH}{4WGMh+SLYjpyO_D8R#HU>Dj1($omg|lmF9iG}g?m(Pt9Tub~d$Rn=oozJ2$O
z9%Rc>n^7%fd_|P)$44DM+uAhD71`T~X{w&hOk*9aaTznvv}k!pX%`B2zNJFZ53FMtbpA??t9Oc(7~tZcW7Rw1?4;H7G@c6GR+c3__-d+P*Hp{J>ZpzfNlNgepTl&z5YL$$d)c=
zstSY|3AZBVi~Nt?`p#UPuh98S@Hoq9EG%LXmd(2lOe{csM1y83FL0P0tfqGE@&rjp
zcVO~UMHS?A1l(m7)DXy1=ALXS8G3qU)#?>1Y!O^pD>TVfXxujTczF1nEd8F#$a(rl
zGDETfRDTWXA%Kbfgl;rB5VlVCqsoDs=XmWG}>
zb&8Y>Xhb$wrGbPvLly)tTj><-i>xW{+xkvFbJMY7pX|RuckqIBR~Nn(0qW|_+wF5Q
zGxvHoQCDcR*>q5+7!^HEJWL`I*a^U1bPzXh-dt%4fCmZZGJ6+<@Jdr?->UhYRxOIf
zQQdZS8hafK%Hi8Pkeb3m6TC*BI^!RtG=&Ola7qdKJ~Ea|kLRJXN*!>yL#s0xG6KQl
zpi}1CYQz*p4YO3VeC1b|MEo5R9^tBWw6(Fb!VWR&Zqar|oV&RVDR!2%rIX!9XLAzf
zC+03Xoe}M;JLrV+e9%%sb1eDmrkMU1ILNS1
z`xPerP>F!MiP1*F;EN3eScy0aoC`jAG=C;cv=D%*Zg|3)UvN0bY9tBS^dsG>v
za5es}q+Z?k3h&
zOjepgoIp6{7Z6}QY-k(2)c+NXZl#1wK-CFw4`3V6e}vO&o^)Tm{eZ|1h@;<90SN!A
zoK@d?J!Ku6A!U&APIp;txcu)RqPV9p4leqm#0d
zTj=pS@Wyn$nkeNuceWYXtw?woj_A^w?0-J;QRdcUVny$EZrkRk
zNfKQ{CJOg}N9E_r$_~v;{e~h*$=W26oh;%gXo2}D~+Td
ze-&!>#G(%3v3OhT^1h)8rt)ayr|N1;3@C|dLo6>G&#`B|EAm(>W7xE!OOrdv%V%)n
z36(!r+`s>wyu6DfupDR{Wbw8O|1L?rv+Zb%bE^@famk>%WXvj*bw1uzl=O(i$|3WZ
z0tM;>yulp5!Nsy9M(dWv?kLmVGiJno=pZpU(f~zU&Psn~^1QD(Y?XIiY(lSbExRTE
zu6ny$0|@&66EgQ_?y9Qe7jsdzv?Y?Dp95O{pH1}srVvO!eW8^^brQ3D#R(X!8I1ax
z$x|#x2;)Z#EW5PRELPO@>4(RLnZ;_XDx=NsEHKf5(HU>6@vZ`v2jhr&S{ZA>)OMDt
zFiPCF?=?=-ybpE-wBE&-sLl!k1fh}*^!Umd%bry8I+^H}lk&Y!$zf~y1l6uwV}}*C
zbG>B@QpDI%rixt1PJUE1ZeY-a4~om$sjFZByt7NP!ySp^_HGPJFQ0E>;))Di`1xU1%IO#J=^a!M
zS{0&ZPNk)ZFp@=5{{>b|rdI)QY#7!u4$DKVI)XUuS+cXimX(`8qD
zV;~C$6`Vw(V!dPuH9jxVO+Z7&q)C%tVj}hv*4nmgDJZL6{)YVU`DoeKo?JX=+P&}n
zs8)k&p6@ByRzDwE2U+cp>Ub|c3N*@p`2y?sGn*gS$?o}@@C8-pdNldkCrXEFC^p~N
zBxN<}I7vDUrD=!9W<7syDXft{ez;hUcL3OL@K_gZ$JI2astqa2--NkU
z#zQ^wb~UVGg*E%~5x4xsR0phepA}f_-@H*X*)W
zyC#)xjz-K&16*QO-x3&OZd;5DQm>IG``KEhDiP7ecc`RlcIg~mBg8@{61bUa{q
zyAP0%4>ZchjHxY1?|0$YR?cpKC1x!Thpb9?YX0QyyHJ;>liQ?RmskzxlH99#vx>@`
zQ<;jVTz=_pcn(_^r709kgU%sgHkDJ-3{mkZ!Ej9e6{pp(ZabT8R2n|~;aMZU<203f
zKn4Q|FHz`ZHG$q}`dV>$T5#GjGOL9WXldb)HqCCpOp%_F91aKU08yW9v_a?_nsq>rbod?UX1#{
zvmbdu%(;p(4kFP6Wxm{BS;s0(IKAvY&qxtnKaN8o)(gYl(rOI(3`e1FGmb{`
z#68dx6AhJ|K7vDhp_
zVc>%lE1PylvWODnnpJFDRJFc)m#YJPH)uOueK3q2)=$THtY@2M8%xgw20n(=7~Boz
zJu}Pc8EdJ;sCq&0kkGYMA_c)A5Hpn8F1qJBH_Wp{MhEQyn^}w71*2t(EWs{mH#r&@
zC`_vg2P32VwV(do^mMGU>hShLgV4j>^ZliU?;1cHK4+7T^-#T^*O7>UX8r-m4|oT>mNs>N|CKF})aPxE}r%{bh`F4&Rnum&0X+mI6%HJ4OTK!AO(Hu>>lLOh
zocNJyl*X%t$FvdW1$+7-m)BRPC5J}R)2{#e#C`D(Ua})UfUTaOVq4YhUH9ElT2Dx|
zedWoZPv@>@1k}eTJ
zyqeV|5ug#a?d+wQUmN(^nE@43{8yh(W528FKH~|i6UXbnzHSHI)iU|Su9N1S{@N*9
zyIk$nT)TYQ4T;s(hIQ!OB<0Qf_cCSA*;}8<5nCu7UGr*dLR)6~`5IFk56O*$y4;2jpNKtDxhmUn%K~lq2760GA}ywRD1vR
zRPX7nM&NO^HuNTv2Bh{%Q|6Q_2F~BBKuqzNy8qe&!)TL;t?n>y=(o%1gt(NROYT=%BLD(SD=_K3yF)2A^LKPUErXH)fSrd{!LgqbYaSp>;n9VGa5UdsA9T%xg$V+{Pu$8j(#LKZCkWxFQv7Jrl7!rHJ~?@O6c}Yji|b`ij>4pZ4x8pY8O&Y7md`L
zF=OJ&S3dH+RaEYR(yFTRW>MpR;fJ$V@X)?|{McR!pJ5RHI50>5=w&70j4o9$rN%LI
z7XW?KOSn0>CuN^M2#!FksrLPvcSkr6oVhkff#T3mNA`0yh2E3>>-^7^@|@mO
z%_lFUP}r)r5Ky@Ke6+drZw>Ncp>CcLIq=DE*oXZXO7!ycWc85nBLAGOsi_Gc%{)rN
z>^HbITFK78DdQja%#Sn9Oom~C6B9Nd7&_A;$mvPC5`d0>t_x_gVO|va*bi6|UtKI@
zcwjuOlo$tA^d;uNTNWy^GOBkm`3nT`lO>>7x3SKJ9Qb-i&p;FL=dy?4+iSGP#*D$B
zBse(uQV~EcK(xHn|J&SYb3DbAYp)-lf}3p&EmR`I#f$886gI}$&bx9fxz?zbqLRQH
zv9He41nccnuVNP`G{8zzm{T;>J|wGDP*#{S(J4r5La!MKiV60|(76gu7@SV)@%%eF
z)+OR$EZBep`ULsjI9UQiaAK!m8K$ofCmD8a0gZ-;3$9VC53IYu(@#RtB++sZU1s2`
z*u()cK#~QWi-($IK&RYFe!5YUW(RsDc-8;lQ(GvZArO|IpDbyq72O|Om_ox?zO2=G
zHY=7`TjSOs!uaN1>-P*Qg@>6nOjk(fgJn{#GV8Rwr_vm{FIxqcI!lXvJ#oOE4
z_={i`iJwx@X@5spPaF0YGOCbsD_mS!wQWmeq@Bx+g-LZPo8zORrq)S{EmP>>#nm2l
z1Vhxoyio5Q-m|9yMsh;LIMk%S`E;S}yC&_d#rwsoysb)m;R_Qrm1jA~XK1&b5zQwQ
zwj+=JK-L<)8KLt^YA)~|jw3}h=8THqTt)?{iDSYYlR|o|PuMX-{>uR&z0sA81GC@D
z6|ex_6c#dk+#RU`8WwQK_EP=BV~ni2XG@KZAL0NM6c||i_N~Uk>pqAV(87e$DM(OP
zkdk0s`|O7{d(gRT%#_%x1zz>**mDk=nBPS8m2K0hsN8UX2U8U0&a-CWaW~tRc`Be7IV|&OsmSdk-b27!FeIC{M;B#l~bIOD#X5!PTp0K*!n_soZhQ_{g%>V@*
zKXw$;mYon4;*0QZp5jpH056P6dI%lTyZrs9~Lm#
zD$PV>)pnOH{f@I4SXUNjy>N?y7^n34##GeQRw0Mx<9b*B9Zkun%1Ro#Q?ICTH%zk;
z@5PHap_OA4ZGsAi@)(J;NFF|t(y1d{%D#<&Mi9WP8DDwUj@YFL)H!$Odz6On*wH%C
z0-Y>?E5o?%aMMyZ52AZq?&EDmr#0^G_vUi4b8`|c-cyt^D3p_zhbOvy5%V(VV=b@)
zD0*klow97#G
z7!JI8%+7r~@p2q6z={26-nrVq5lvmd^jITrr}bI~#L-B}2Z!iMlYYOXXLX{A1N_ZE
zTjhTJ2m$078L!3@v5#tct>?VGRUh2Kc;39)c(1x;urJ|e)goIXy9__MjRk8zxTjGg
zNysC+hO)gVorpIm(i#=;16(A?srmlk;sQb?qo-yRP43LN+&^f}EASSMdUQnrUbl$1
z!XOf-A7|n&U@sI#2JkRfOhDGC3v~Cy`J%qISQA?50NobA6WnjgR(kM}m1hIP#G9Yq
w;L4e1{^#5|!}0&CD#ZUZUizQC(WUyP7mj_8HEX#4FXa1>bGrkpKVy

literal 48876
zcmd?R2UJzjmL-Z}KoLbH2?(NMAR{13R1An@BUB#B5)0zL1=SFftOs=7w^82|t7f5&+5@w{;FIeV|Y)|_+Absi|lNm6X5-%dh8
zLLqhOyb=k?<`@zZQhlF5%mQeH@DgzOQYljS}rFD>IlG
zuBXuPxe%;k(e09$G1Nh!doxLVYRg9YZ6SxHD0E0kM5uxed*8dKTkK;0y~59`c(x_S
zytO4wOVDlM_r3Hn78~53we?%4NyB)@+eZQ%iyL}p1zIM?#!?zbY;0^sEh;Xa`0;@$
ze_KlV6VeS`~s{&HhXr4Zt&IYlk<`SYdu3Go|kJY|!kXRdrIWFomGeu8lSp>A<5
z=g*(dGOiuS5Zbzv@vZHUTzOOp@ijO&xb|mAe0gT1G3iP|l&EXE`s-G^3GYrebQE)ZS0arR_8rqK0pp`2L+w|J|+9m2s=^@bC&rtkFI?y0+Iw
zpY%Ky%iE4gHF#~?+tuAIXw`Eg^+kV96_;MgpS;qQG`&)f)z#HQ7ayr-n<(n)MwzyU
z>h+`=UUyFOrtHkM80*Z-2n$nFS67c`Cp)%z!X?W-^@C&aVJU3Oa~=bUOP4MUeTj6P
z`+3^5AB><)#_(?7;CO2w{zretQ0#-?15lwAA$VONFZAbb6G7CWKH$vM)rRBsOE
zw1_k-_nelZADqt*3JbeV_Lq}x-MM4?_NmFqk^X?(Zc7_(;&3IB!o`1rE2
zGR?HPg~{(hheN``=0}^QQ<_)D^wyHw+CLFq*URo~j*5ypcW;ODROQhe%{0{%ooti(
zM8(*Fik@QEYCm?>R34qVhukH@O-WBwQ)Xvoc5K@=`TO@*vz(ru9)x{`n6Sf7{J*NseY?pyNajr=Y{Hu6+D}FT({*eqt_lTeMMmi1)Eb
zmnT$za%9Xd&5jA%4f9~@Gc$RdH-~X*&5_9Se>M4?9>&yBSW;BvHZ@RbGnB4VI5*NL
z$)ugq>@itRoAcBVd%IuQp~)=g*RNlqE;GYlU))tqi4=1$XdhKRT(`V5mSLXLv2(u=
zPSQE1-VYy)KHQ^tCAy386eS&9VzXIsQPCs$SNHErYHL65`j*qG>pGs(I&g7u?r!=G
z6`9ueQ}xNcOD$?zW35HrSN>ot5o9(iFJ8RpE_4iAw)@q!*pzf76r0qvG|N#cYGi0A
zA}V^Hf}tftPdvYKE3=zIb01AfjZ9dw8L3q0IPaqr+kwx!^UqE66sLGfkSP1!B0bX>
z92)wn+3cKz#G_u;9_OL`X{y2o@4b8@2kVZpu(0ggw~x4k+!}Aruk!Dup$QESKQ35x
zXlAUn?rq=fSS#*9$Zq&|y(BX=EvaK>B{wZGw
zob1Rk_wexWTxyKAv9+x=l|rJ7(9rbIU>Gm*OUyYA5PK8i{h~>SFYq}T3B2ECS=3VprD|^>M*SN
z*}GdrhpF1z+arY?Tg-9@sR=(FmMUbSU=ceoG1Gf_N`Xq(3ywnJaudy@}Z
z1*oNK2Ntf(by@|8EhT1TO!)5?#=*mHc&@GbQnTaui;9SRi4<0A-n(#yU5mPrmy@wJ
zD9!3xPL4;d)~O51%E78B?n9A|1LFs!8tTN?{^0C9E7{7~%SGLceabMx)hoIBl*f-8zF#$
zRI;|ZToHODL9TL5Gil+)+0{o=&1!o4v@E*|SUumKc3a4N&CAU#pVGXvv_!A|U&QX&;yGO_D7!o`
zIA}lowXC&OZB^T3MGcWr=&|BrRE-52$O$Fc+^@qen(eq!;=UZ^`YYd}GdKJs4K1zO
zAEE1&RMS6d8_jaKOaHuS=V*K-o5j=j6vskiS(>{zuGwsD$a7V)q!5JxpLwmCCd+av
zZ~nCH4>~QjFD8pss^!@U-mw~QX46u0TQZ!<6CMXdFOBE*$`rC5Jz6^7<680kEXUvF
z%==hTL9aECb&2f=y|JUYTe!v^YxR;(k0qapdwPV(Zy+JJra-|^kdi{C@})FvN>r?<
z;L<5@a&ig|2^sGxE^LT*ng3-`G~VBT&`TkuS=4oo|71Zy!FHCzPne^ZkTJX|vD5+#
zqu#W-JYr^y)*}t^TkaavJmuZGi;0ntgkGFW(b&9rzIQ0f^-FerZS8np*DdEU7VA7unulZEDEo(^Jwqp=PTiE?>P*!-f8L9-AGx)8hvl~_vDw~K#<;JR>@YHU
zXr@~L3j?pA*Wg{!#Lu}e$VqM$#*yHh>MplO>$~zICF9sRGPHhSlQaapW}qnSKbgWZDC=7
zt1kI7B`qoWiIB60>tj)%bqefw{Y?iQl7d+?u4`#&oqp?lK%k_CWAcpaqsvD(|2_k3
z%71oh*E#IHkdRPBZdgdjHDhCswUznPr%&5Ym6s&1B_}nTv3Ql~^H^|ja)x9?=qe}>
zq5*qrc9HA&@z;3exDUIUHrD0bvYAZJ)8_1%1(F~n0pz9e@$nDu-$%L6wG%QuGN${V
z$xr6I7l2~eR%k4Yt}GvVXmR6)GFwP-aj~0P4k(X?C(%x
zg1lb74eNme@3KV?9Xdz$ZG7CKw5C6q9Y@9R1Ud1J4fOy
z;}eY6=GqG#twLMy14
zwA{LGKVN^6=^PyTx(DS4b(O~=-}>8~!%|b8<=&L2{)i%cx*9Sgb9PaIjt048%4|zU
zr&(I`OJpG}aoU+~;d`IXT4p2;Y`hZSTJ4Ny>k#sA
zx5<>}YHOO-^_JC8&K1Az7SiViUWn^2hfx7dH?=>IN$Zr*`*DnTdZ}r
z>H9jad}t|gca;hXdh%qjFzB%R@_62q{oYv@cPXh#Qa_sg`_t-8_Uzr;>#;mu=s2;R
zD9_T-xmZfU%tHbNqqI@+NwLtc}2zgXI3Toh-4a0O}bqT0DU*Dtr0VVCoQ|w
zwY53CjX%J^|5RHN6B-;mY*%nU`wfl1@nVZ-VzXw}_Vo1hk&%(=FmAz6
zAn=7A*NJT`Ozty^`GdD}rSGOpUQ<1uMRD~T6X_WpLWzw-)!Q%TrmpP1e+qfXZuslj
zrutIb?(Xhh*9p-a&0<`ro?h?KXt##CI;+8|klJU0p2!h?Vf+aH53W%L&1_va)jS+_^%BahJY#w{tBztHw#L7LARSA!m9~
zW)w|bF7;Ts=ttk2rj;l4v$A|rG2LW2+YZr!?d
zG|K6HZ?9)_vPwqrT!iGMwg$v`Q!>Yu|4|05RLSDlTc1A8W1FGB2d)Uty@2pmm^mePgXEYDFByN#8iZ7T%Z`jPDZ$#yj
zH`vXoDH|)RiFfbbT^3GMPR1QPqs<;!DoCtM4?>#Elg+!ET@Sy{_=-IQe@$r=gX>LOJ
zxiM{&nM}{vij1WT-UkHc#~_%loj(O^X4U>?@a`_Lr{bO^4XdV-6(
zzjOcSw{MCH3cuTo0&V^_>G_K*5z4Uuo*>
z6h3zBbDL+mFZJBq97WIx{(pYL5Iy7a`~{+{
zJ+tn2b#;lY{jm+X%-SoU`zZG9TlJD+^H#2WRyMZFWV@M}J%9I=AxC$%wV`O~dL+ig
z91s&*?Js`_C~0eFw}Xs~?zBx@KtRCF(8R>V{{DWfA_~AMUS3{4zQ)SR%1@t;o;ZPI
zpHY$IO^H8x7!XiuGkDq3(sFrj9P}4!-->dV)r{YL5D-xJ`Sa(xx(R@yGiS~~Z$p`s
zU2giO&^*tZp40w$_wLqTt}*8L;0!Zh#;^ejt~gLKXoxAWEUP>?7pf
z)g!rrl5l9hL1AHG&z>zu
zul>2cG&2IBtXaMoQ~;VD{f;frRz^o7LPA2q!<}&zPoIL%EzuS3KW#JcJwTj`iz}2p
z-)XWRjBg4|4V6TM^qge4)vJE5q^5Vl#~?Rj5^@YFJI(jWp#?2Uh|R=
zglv)+2i)u=P|481z;iKoA;k6Z;{bI$kj!Qms;L`6Bpop(xM}-aRe1zz~hgT
ztE(%^d1K=rkQ=c0`*B?+^#{p6Ret%x#m$}Prb}{0097|tqX>aW?^h8NA`udxwjaOdDoVFhgJ}ku+lDw0!BCPUB3+~(^#x-=OyD25?Mw?6#aRB=}ckZOw
ziCu&yQl_6-BU?9wV{8%`B2-W`w(un*xf_+al*R9!Qdp34FAr^o(nt5k?r2I$FPNygM)*G
z<*Y}O2_o9K`=URiGbB9dBdUDg5wu>E6^vyj_?M)lq^Vd5pXs4Ga+ZNCok!1~KL`6#
zQ&l~3bf^8PU{?2JjpJ8t-@YyBX*@B%Qmg2H1zKR?QY{DfE2dqR(fge39elkKNu
za!ebKh!9_bg7Yi$y`?xcz)`yHvntY|0);=XIXL7}8de1#4{<>F=8kmxnkFVBBvAGv
z&otLK0Xc+RR+&5)GiA?}u2;&{TU%MVTY@fQhvC%%{rx+yNimZ{_f2UYg)Yhj8g$_y
z4K%k68#Z(o*iX;S=7_NFmOuz`H&B^OQB#x6%i7T~
zBReb2f}-vPZvAq6^6JO!QbEa@s$_~-s9piO9c&?&(^OmQkQ0*3&Sr(;rV)kn<+OSt
zkmI4>;k-mgMKRIR(o$0LIR4TW6ci+vOn;gy!XtK&^xXv0uuXl7NlR*Yj_vFDEw_4`
zJ9`)uo*&s`Juon!UE;P_6~c}^pk{U-2$b}qR*Ww!Tt=1a0XWAuwX~fU7Vb>F2ly!!
zq`cy62{9N4P|&iAr&u>>VWn@kQSQrTGrkii2-2j3nPdRd3i4Q#%V?4$lXINq{p8p3
z@hMlDzp){6t)QHNvQQqx6+$CrWxa-iYgMvnEFiz$s1h(cc>n0ih`i?>i5u;2E@ZT-
zxy^K1l~PN5ZvBzCnVFfH$(jy)j5wMMUS69TD+UIxW?7;kz`s+8+RDm`t0UJ!
z*tFsBLwrZiJ?uO+pPJ$(4k
zoYC!P+iR4nXt$|K)cHY@_@W{aq!=jur_r`3EiE-2LS{gUkYbtxL}d`Pl#!NhG~qX@
zc$8#3%4<|%!XM$jJO}8jBUXAYqt&XrKmhEetc(TaR9y9Q7ikJLtP3Z_u|u
zvQ$h`2D@BbTnswg-q8WYshV`ljzo{qjM7yXLrp`&6RY!%9yyQed5Rp^_8zZ42joA^LjlBUzjH{Ox3*-nfiQ)
zm6dhN-4}6jarR>^kW+p(Ce$GYmq3HUXRUyOE?&Hdnv4PoX=k9qb8Wd7x4ZX<49{2>
zsy6y4k#b0opulv1asKu;nXDv(O2ENWiW_3v(>Hg$^GcK+NJMOIMf7ot>Ql<)WQ`
zgag)S{yFkcz`t82xo+gv#dx*Cz7Eb~`$aYKLSh0lM??!=NM};HTAg`ewvv#rQ=qui
zaC?U<>1^reZjCPME&eDD(wA$0pmNJjT=kc@OjtBIjt6Y(EbV@_SzO#JD;+8jS$>C8&<
z*9$=WLz4fuI__*zLG%S%)~_MOdei?>YyW!Z*UcoeW`iS16gnHf{x-ampq}MKpnodc
z=tEuPw9kdF)u6GM@QGe_qAv8#T+bQN?_~eS+Xslt_U}0(I`47C7y~#V8zBRr
zoP9OnN9viLoAZD4=myT|3hmzAyA7ok?-8MP->&r6TNxQn-nb+uM3-*Cz!gzU}GV=x^;TR5?KG$Gofz`$%h?kM6Ew=(v+P0ONxj}*DO)LMG)-o0eV
z;sm)4B`eROa}Ls`i>vF_&71cvXQ;n^-_sMdZt1us9&yo~!XM?6oCSENIU&mBvYen7
zC8t&{BQ72IkyWY#g7IA%GU5%>dtcmdjnb|WuOvFxW<<@rot*rMaFeSd@!gnu)29C_
z8N3h_mz|xB+tDudD9+6M3jEU8XbWgZ==S*2P*bZw1qC($ZasSBh_SJ;(CO2Q3k&Bj
zUR+vSRN+WXO}&8(frMg@jy!U46mrGq&zBbIp5SIOwDV8!^V`8t@#-N#fVV1|ya=&W
zHCffIZa;3PjkAM{{;YKmUaQX8LETQE2<@DZ(W@Q|S)$DeJy2M!!KapDaU
z?k>~B(Pg@5p{zi5T?qknSCFVgMMcHM^)gxu^Yb@v+2YT5y5Ylz*yN+@iGf^T^j0ir
zG~{EAx7G$uP5`tYI87+ORh7>d{g_8w<@p0>gsiBd*9tH$&WJz~^%ODAdw;
z^N8r^QWQy0dvF~TW;1^JVqHQhWM(dPnH@!W{cH-T?TCmp<)K55F&=~&6ajzC4F?NI
zBN{SM09D;Y{y>0q35_7DW`7nYr&js-_-wzu_l8p7@8<`TMxgii=OWGx`aJ4lR)6_f
z5Sk(ySxzY0K#`_W@{w|m{U5iP|M*KLiqVoAoL;&8DnU{2?gu!Fa7)sm9Q#gOy#x*X
z1Rvkt^=1IBK3%uCATu+wVmCSgke}xu2vm>UqkO56WgL6aZ;u4dZ+EJ#i3waGR|YeB
z!57h8CMPFv9GfLz=dsg>x5ba!LoN%zH576g-jnNY$~}6FVs341Hn^rpxmIxetSs?I
zxmLaDtz#cPeE8(YkWg>pMM>{x+z=;)6Vg0l2l{N2hwVc*0o@-5B#Nnhy#D_FAStRz
z$~fFXyDSnvyxj|>6IvA#hjWt9VzZyzYZo-LyaVI=?cy=lIVBNP5_n+lFVmv*C
z4l}};-`unR!O=%~<39;6--i$VIC02wb8|lhFt?7)+I)N*5y9p)+?t`MVy|0ZCq>3<
zH>{8~2eIJQt5;P4+gZLui*tMN2w$tHtTY83ymswc(BUNIWFf|?ATgD+z;H{Z-6et%cC&uKa94Yzt#s0+0|x3o0K@5TYH$_Jpl6&T{G{JrkV
zMp=2IUH=))Z5|C{V`mq3ox1@M1af=Un>SG6m6}gOm$KtAM`Mdh0*-_a*^02D2nnh3
z#ooPp4kv5iz!9J}lo;GDY-KzTHDz?r){R$EDI!aBizNSEb_C4_2_InkaC<(TOrp@>
z{W3Ndx(wnyV83w7%M0WXfY30(X<1xa(u@isV@Vb7Iy9RdLP~O`u^yySy(#RSDMx$mME2n_-!02qj_dXP3GG5>(6qu3ms&G;(R3?
zni3Iu=<+SEE>ECS=Qor<#*(d>c38^zzAv3LoP2`gq0gR~w~V8k4rLBU-IeZ~N^gP^
z_4P1NYXXx+;hY_92CkqxarHC7`hlHDt{_U8?<8=A3ysmMhrJ$q-p=WdMei?-QljLf
zqyQ3Af>P4OM|1`*GhS|G)xMCLYc&U|A1*B{h+O(6K~`VnJk2EP(uKnD?l$T5x+n|4
z8hw3zftBLoVsAg9^=ebG9GosNiz813t$+_&$z
zBZIKRjsK7?>-|h4M7lgK&YKbj1kkXl&%N&R-KZHgEv=Q6BQO%-O+L#=5MERja+XKp
z)n>;pMLtX|%f)4zpx!E3W
zK?xsNfYP<{D@w13FlY+g|C
zxnUnbXE2CWdf;JxOF&3MLQALinON$*BIOa~)u9;~DVM)yHre*m7i^M-9u@qhN?f$X
z#Kkjro$AG|Qip){qFf(lWgSGbwG@IW0u$(?yQ^y>DJc|EE>HQBvs2aFRvp>L#l?G_
z_{*?ROwI#=P_&TYkw<69%|nT_Rn4@^5!If$@0QN+^bi{SFdJUbhdPM
zxTwy>~zgX}{ZPNoV4fw_GmPMLS_-u<&fuf(mrx_S(0Zlpf;6Rn<`fe^q`
z>(pR1VCzkQ0}yopFa!ev1A(vFH%S&J%~0+b;{?*c@puMn2#)cX!__AG
zHPTI+B(3`#w=Xdt0H+=~btiTwv0;~0;YzVHzH!73ifX+HKlEq{9dhC)$}(>FbdE);
z0oQ(=}CxQJ}>){%7Ji*qk};46TLi;xvCZ@GbGq0m_;fU?XR?o-M`O}
zA#ElK)&teNy|Z(<&T};jE=(PY_3ucQc*o*J$z8HwxZnRIAzkoYZ~1nM`1LUa(+KgW
z|0)3|{__9Rr2DTwoABMYR8HOb-@D><(w%%`(H5kegrDZGhNK!5)$x^;B#{A4SbDQj
zC`=4yqXqFX#excT|GQuL|HWB=$*%-q|H1{8rLQ0dA`U;>e0+RhfRzqXHd;%@8+cn?
zE7AU3c!l?3cA5P#uVh{ZYD-&^eg{{%s*
zp-4fs_ZW!}qn9t3#BbB@xOXp|$k}ggJ@>Aj1n77P&Dc@90(c5)pYp~|#xY3v(CRw9
zcp**vz`olzeJ{ILfBE78mkd-@0#6+t9=;f2xqd+kjAe=$=)1nwFS`TukE-p7_@;Tq
zuzB-l^dtc?iyX!yVq?*}eD^u?;VyhH8mwT^lo8Iux1!36P4L;tO@oqfCjW+aftiDDhGE$W7N#lzb%&lff_~IrC1Ez4!i^e2n7xL
zsVa>EwNy|K>Lz#`ISVK!=<^lyad2~JO6=W>$p8}REkraEL%)e}_OQ6PCrs>6eMwwEtg0YrgzT(`2yXdL-V
z1}(eV2;PtJPI8w2dApFEJh2LC$)8!g2P`SC#|5T$X)*&II)vqJAU%Mht=mt@MT_aE
zsv0}5`QAy>pd*P0#WHGUIqB=iAgi;A+6#4KGgHH*6Vuk4Z1X*4IYOtN?kYElAUidB
z4&p9aB(}D;AW4XnwOYYm@KU^*-s($8ya%B)u6a5+(I5*29NU?#e%Y
zq!XSWX}pdu)|3Sjv}xljY8o0QAv+W39_Ug~NnE{lZ5s=e*+U5kU^xF|p(z|X6q_uc
zxJ&tr$~yU@LF=FJHlQ=eD8%_+fCBvo1r$fsd-B*^67*_yF*ZF>DYORp%A`1ka3Q0eV
zR~WZgz;h?zgG%_>5uPb;O3WZEz&3}q9jt&u3ZpWQKq8hlCO2R^p_g~gT%st}^@MUG
z9ZHnP-tCEVoE^v?ib6BwIi(>i!tf$ifBp;@UJDgpcg6l9<(&+Kkw0&%ptkePi&SkZuDQ$zkdBF
z^IH~z(-{{PfeHyqKya!NuxOS(CSoYxcXt;zNSccj)KpYlj8`({r(d)L?!}18a{oi_
zDD?f|IfR>0US2-n;X`sVvZuh)&z@;T(jF)T$mv~MoqztE(eGj-=oGd}{`skTfQQAQ
z=)9}zl-TV2J4NOi|A61{F!Gx=ypnx}F_tHvm|Sa`n{$#k!)wP4ZwiPA#HTkE8ju<{
zZrmuNg@(XksS^*6;%pKdaGstl=h1wYkdVNM0@ftRl7xeSo5G*yI(_qow`^Y{jZ~1C
z=z4}Re!E5T1MD7G&z!j>m!Oqzb4@^R7D>*F5=o2K9FtjV$Qyh1?2%!BA)vMZZSN~&
z-zFxwdn5n$)`S7J93T@&_&|oz&^x2@Px>Mw_;Er_gct`ga+KEmI~W+ALAC(uhq99p
z7pL58ft~$lM-2>u5_3uas;9=A|9HQMlQq^FdY=SYq+A|ufH2=;)gyA^gwn6RfdRYK
zKZ|ILVb-FW6D0?kjz)scv-e}f#^nCdQ8uXtpsxXVF5?pt2%9QFcDL-nE+VYCC2;CO
ze3?m32g-#38Y0o|a~jsxnW`yiZLsaJ3JJNuJ_sPcHYC2*4o@P;Kv$uoJQ*)$lHi$X
z{DSP%1D}h8#2v_mXV2a~EQM1qB-Bw~ulS1xzl0UK(U}XeQ&)`p2oNVkQ&>pRi%-k`
zyp=764bB%(RtQ8IZf7h7u*cyY~Xrue|&Top(5N`lXzGE
z_}x!Hom^Di{{J@=#bnBqxVs10rUjQN1ZF
zbVVe{$;pBLxVyXKFm@(gIcl^O02uaTcyzua!6AdAs6b3b(nLcu?T65TP+El$mUH(A
zeK44MFh&Atb#`)+AXvewzLQA=Rcr~DJ8CCHet+G*qQsUy>mwfgX0T4cZX3y0^~9l%
z_#sr&xnSxL#fD>YGQWfGMHJjvT*7}_uDjCG%ZSy4aNe7^|qFN_ZB&Ny6-CkA7!
zN>>~J#xcEiD&jxsZai|AixSDl5(Dy8or9Fh4r2tsEZR!wG4ZocpgrKDs7pA`mmT%4RP1qDBToC&QH#+8bvhq}PrV*|w4I5|=3`+*Vf&+QeYumIkHC`uP5&e4Vf$+%
z%r$lavNIp+!xbZz@`}VsV(4Lz%QeQ(vm@ZQv*xnB0p`4yeXry2kbAv!{^Ds8{JJvlxCfsJU={Q_I
zY#}$_LAt6M%3ZgaTeQDn<>sziF!`T@SIqukuo?KdIJti;lZOxW7`u!L27Gd33La0+|K<%IT<*sdBPo7-cm_sE=_w@Az7bxQ~4bMdTQyH>V^}F(;;-O58L+c6?ni)
z&#U^gcrU}j+%_#4L+%ZMhA)pD@ZH#8FtK$gx_Ca1iq`R(#zK*vbEfe1FEu&$pPWsP
z44;lZ$WXkY_}ray%WTStU!edK`5zb|W`wN~-q=A;v>hbKjvh_;{rflEP=iD0SrCTO
zu(j~5gm7x9*7^exW3mjS;VSUEbDQQ48E=e!U~~Yp5P;TbukB4z`0#*^SdfqLeYGcH
z^@Z+-ag$(aG&S$-*muwi<>m2ZvzFB3UZV*y#_%=|D7k63>_1SKqt!T4|bQG6olm7?)NP;Jk@*p4I72ov-PRM4SzrcxN!qqnn
zoE}dL+g3i-7&!^WDz5ur|M&0UW1O6v-~e$#faYj_Y2$R`pBAVxq5KI{R0hH~`Gyso22j?qdIquT-!o|llq*n+MC|K1xeG6t+`vs{M-dZ#h
z2@_&BZv4bBjo9+fEHF;9hIO_Oe5mY2Xk6T3`{d?CMI)>Q=*=#2av048d3lqx^KD@G
z!(t>C3BStA%S%ZCm0YE#rk?FDC%=Au2p=>z(cAm}{mabTFqc-Koem?x!GrziV6?Qf
zFfpNdGLwk9Z1AkXQol+F&PsT~p-sabj-i0Uw{I~?o)5j9&@qSUSw=<%ld?y~2`S>M
zB!OI-x6=IlnqbcQV=GJJ{4Nrzswpk8f}IBLNT{1|0Z
z`7lK=o%c$295w4t+UHDuJy!8)r737^vUvgQ-(CvfX%+5RdgPpY#c&T}O&>8{h6$9H
zjF8JPU~Rv@diiBqo%)*$>TT=F?PYGrI-s0mLfbhHtmC^gBiF88jVm&bTkYq4P5g{A
z6M^d=Ms?^!xXh6!$lz6jQ{WSXRl!OCioo=N0tl5$A?bKA8YH<>THc9?$1u=^J~`^*
zmxhKnXuu*2il9?%Sb-A+Vsajk&c%ysR`ushOcGyCLIJ_j78Vvh3l9f3z>Ks3rmXVw
zhB#t!B+BPn>IkFT%pMCbAloZlf?t%-Rzm{{nJn2@xGGxCTbm0GYJE@%#{K(cWn|EC
z!t)0*!JQFn8@c+lJgq0T$t#{6c`x?on2M9{_U*4Emw)rQkg{%(SF9(lXh`n|;keRl
z*iZ?MPJ+jBkOM*s_#3J!yIHb=r3FSY;JdDb>aSzb|M3A~?EB4{)b&Zup?dVe?{1{O!D#==uX+%D-Sq2#rU=yn*|2
zL4H0=${3HDMA?BlhUa#Gd{M8hoaI{4iCnHcfYbF1%{R*Tot=eXkVu1=mR-xJ}8`%8Fb3CmzKQR&W?JdIul@wJr&%@*_AO>EP#K#wm
zV1s03Wg|~q^S!*~ESVy-V|b>dGeD`+Y_f5IcwgmpOken3H4xvR?Je`J_IYa5Cx^K|Y^6gaA=pWEZpskSD
z*dhEWH2Tq_M@apWAaxfmh+^0WYz6l9yojM6M@2-m$rN#IA_149$I!RJxmNB;R5AI3
zuUb!%XI>xTTynaOJgbzTX=wQJ@&k-|ZJ3>QCA)-m@}@+(QA)^h^ykb&FA+_xAqf1?
z$rY(!3tG&o6RWme@mYdh;=(E)H=9cGVXx0~1miPb)Jm)y7ccK?#1W{`4Lp7U
zhlYqtW%dQuZP_)_z;Gg5~{#qDu5&P>HNgT6V0*DSnN+nax4-ED_QK`%_#iF;y>!_d$W_d(uV4Fu!yXHs&IQBp~%0Z)2hVqjqR
zqC0uxsgPfh?G3i*`l_nSe+0uN;scQhq%)?USG{PEi;AN`KmUk))bsH0q+?;#gJ9tp
zdD<=EHrIaL$|B*|>+|dA;?s^DJMh)28M>UTJ29^6O$kF_1dNXeVsZQh@DaKOuW>K|
zq9CJU&w_IopP#hAgjw_U<}egFoOWckZd@lwW-km>I0y|Nt^fvJ$JHudKb
z9#;UA5&@4q#0LCSQ(KGCSeTAVVFda4^M;YpcN8O}W!VURsn@43MU4+6p)=4R7mw%K
zK;4r>fkgEuWK=*F1O&@@$b@hrDkP@NmsIlWg_8~k4(7Sp?cbFL=-EtCiAluW~_9zTBE#eQH)BpzS~E-AGl6~?N{%Ei%?3>q%&r`IRoV$;dDiJ$U+
zIy&PD$q`C7I_$~HuvGN|m?Midn~v`{te)npsHh;!pm+2thl6!O>nkWI{33fMVD5lt@1QsjzJI^km+jBWM#L3O|z-iu=`3-O$89U3YIoZ*vM-qbkL|6WIys)?^
z4d&*Z*dd&W2IJtTCRAlUjgeiw|PQcp!Rj7$l*jq4_a5n1jc#
zpf;SiR&}h7y>dcxu(GR5gono(g_?k!^6~^>N`3v>w6|mhP!kXHNDb;fw)1J(?FR1&
z62)YmyQG^NV<$-V72n=-cOPR!V{Col;o}k8$i7nYt)JdoJ%|2Eax+YS@m$RO-|S3M
z{OL$6aV4k*;7PzEv?wJQ#XYoJUmwu>d-!kl7(H0`!+&-Cmw)=tK2h>-!+ThC&)?_H
z{R0@1xCHz)p8pp=>U!K5@#0A073YHF?b`}pOmOX=^Pj)H?|=7`6CyW#0wlY0_b&2U
z{IUF--!B5cREMy)!dr&HmCu7VX?E-8-p9{q_Ap`w5*&;$j6>i%L16hV&d$I$@M4W%
zZzHgM1RK%Bx|ivI{6+exHFO#A03l;Ss|^P)?maN+HyB8ex1WhPPXYcS^XKDi;^@OJ
zsnFH-t?Emfx|)gn+cPG@D2WbNFi<|JJWxGl5L-95vu1we-h<
zfxPG`hX;J7E_Srb-b~fCmp1p*#~3}j
zcLE=W(@t-(mJNPd&u}c4U)CB=s=)IgszEy84MjhIMgkNTCE@G4cYT;Xxe3v&r)Uvm
zhTt(ZEcXT5G(BY8x90Qc(VuVknZX6UDXH0%$zYJ#wW}0fIY8DFm6RjR80v)+%+SW>
z4NM}csx1UhUQbcJVfl7*bMp(ru-csD;aM1XB5yZ!+*bzP>sCF_NP-nJQQ?Jzre+6W
zdI;xqd|cGB>(qrDY+XrCQiGdHbH3P}XVW_SkfL;L*?$1P5p2YN{F7~4lQhQN_1gL=
z?|K-Jv@*udFISN0-r55OP#*qjn}4t8nhqH+MAPGiEQE-6oYYv1Eu;Z33TO@q2U2sS3VmO%!
zY$oADxNI1fpb7zfg>^_>x7}Kp
z;ovYws7H9T*`Gz*@>Hp7WimMk
zp}+qG9^ZyQ-p9Z|>#k23F;O-Nn+6#RRXYXCN8GSCC2Y-#!I#?4Cmo5=!6O>ffL4Gi
z&=yKdP4%J#KLnt61Q>brs0i*hW!Sb|K_dg>e}Rio_QRXu>wr4>?Z=N6=q3l(HeDFS
zzd<~MR<(la4k~wzKszC!m18E#ixNaYrO9pXXE^0cfFI-hV@D*yexxLSnZ@m#`85V=
zIR^t3R@l|a>6m=jpsI2krtpw;QInJ2I@?^CPG{dKc>Si&*;1Zc=9^>le$c%mPx12W
zQOH~*G}izhAawKNVQtt;aN%L0cS@HVH{G9k!Y3%G7W`+nRZqgFYwZJQfJqze<4#1r
z7bP@fwWvL&H*R#{yI4K~NG2T%t{#N2-e5j*0b0z=$rC50fDZNCCcUTVf9x4SR+bDo1smh
zYC3|~pslvptoYyE&;0T`65Y%_Ctc35tgeB6tDtVenowN4f~&$TxuMQh^~@<9I`IO+|dkc0Z1UJ~Vs{noCS#A^18({NRBD)DM3W6Dw3_OT!
z^pfjw9AupjCAYeCi=5E2@8Od=7;;I{n-ZxP9v2aqXAs))!MQlo@Tngm3{IP2oCFe+
z?@8-!6Ev!y9FbMtK4_Dl9hD1_R7nbgzBU(Oj2+Zi<_J5k2w)8j2z(AiFsdwh>2Vd6
z=_PC1Wci3rNKb=kxvJ+s*Lt1VR5a%Mp;m*@@GJL@z6hfk4`#Y|IT8UEt%_72TY6JM
zDJs|*huhln36;o;673B%9tuI#5l-Hes5(#l5%lSJXcaQ61le)YjV5YtZbdRjKqeH9
zhm};jEKbGG;2=7{j)`P-Qb2$cWD}eYT-?&aA`-+O{R&v0q{ir^Uw|xuxvfE1fj8aP
z)8dlt8z5a6ejY-BvuuBJ4X6i?(M+N=L@Ng5Cn!0jBPIC-Mu*u_&K~wC?P8ba
zs;Xp#T`AvHYXbfmcRm~bxa-e&2=3_9jKl6wU0n-%{rV;#7>Y+oP|zMm#^QofQ
zDrZVzxF=^p0LChLp#Q>h9#Y@5FfSY1D6Ww(UQl8SgF*qNAyN&xMbNeJXe10(z}vEN
zA)Oub6M9h6aY8UgAZYl}M}*cO3Ik3A(8Vo%t>IS}K?%*6RI*u*sZlfpuHs`b)Dk?z
zY})1P9se(ht_S#pGB(eF_m+7elwJkv>I)G$!BJ6SsLU8^C#3MezFQtoa({|pXngAB
zN4PWqd$+Spx%RxB@!>!}v;5E-i~yl_8X897`64n$q~+y3OY3R#p|ir(r=h923Rwk$
zteo}^sU24{V;|1S8cRe;A{ikMT#1Po;CKjfXZ0>)Ve$W0#y|{{tgO?ZWsXx9WOj9
zx3jlb9MU4d@1kh`GEyVJBO^TWFXOQBpwEcihEBkx>Oq^4+uv9#(SAh#5{F6Oz#uS`
zHYo!7J*6Syu5@J%{d0dxJfv<6>kic?@6DT0oRcWOu&DK@cT0glkEdH|s;dvoGv2f;
zf3Ng!DyV$PE)F6w9eDW@%4YB^}Y-uAWE?57&U9Y6iW)akTtXlufQ(qsFLqWTb_G0Wbbm
zB#bIFcm1X~)b;iIAS{9ptG>%)?DBPno3C(cEwk#M<>e5LK-q8_=Z?OKS63hPbc7TS
zG`^frF8k`(D*XJKfx#r6hVp0CAEJCNhB|X{+*kkP8`po+F^T9SqoAnGB6tfhEdzfm
zP`m^N8&y-)4bY|e@#B@0-WdQu6!ZG-|>fe|*%VsXVoZ
zQGzU7#@NvCeKK?8SN<|Zo_y^R7!L5wgwY$I#8LTqA~g-Z!Fr<1z|1TH+Z!5cY-W~x
z*3OA`!tse>xXek|vapwsfb{|6Cvv!ne_oR>B95
z=qPFZ`({$S>78@6M@umQ^99el{jmPeBvZ;%(#p`;Z2^*?fKdO-Hvn-+;t|?q)aawI
zD<{SntluWdW~|${U%%2r)@2Bi9t}kf#dXV-Q^vpO4+-9zBtZpmUyyc>xiZwQuK>ws
z*+$V*AcYJ9W>mDa2_YuLD<|o>4FX0uFYSH=Sj%v-26I;oe?OM$jtp0rxs3-NF@fw1
zJ`oLd$CUjD@lS6_)Z6WX)Jewj5hp%p_YUH}zAMC4B03Lx>0kS+a>$5R~6dm^bYGo
z`j4Nz3V2Wp{|@sjC*sAd+R7yq=QW#7d=--oOI*Lc;peZUm7fN$FRz{d|EQ11n{V^S
zh&iC?D}*E<8)Pj&MhPE0p=Je&XvgUKg&vTP5W8@JEHFI$H0Tx}`!U*kUS1eXK}#O9
z+3;kz!*=cM(nDOWm^k5t#-7g6Y)6x58e{8)r6smE3@XXWil^Dasu7w0t-CXi%X#nD
z{cV{dLl%WhPsRq3p%fAsi>#y)DT!!6sH9M#%o$Q?5GAG3AagXBhX~CIu@EX_GL-1N
zzjxMp);{~$`#jG%=XHkNAJ1#At>M0Z_xJl5uIu_-AMN>5)b}}lCIW7JLehl
zz?hx&wMUKmH$Nzv9GMkVS@o*)W%X3Z(y2%X{`wRqyb13kmp{26{K9zObOqc%A$F%&
zH8jFcBx2z#8X<&~TpsHq(|b&ef+S~hE4O9z7%Qtm5;=Wl@;!izBSyM`4;`i6;a4uY
zv%jmnd`#8ZvVHDdR(6eP5@{3GUt36)7B1ukr9wE5RukkD-}|dRQPiA^JyzxecL4|r
zH-K62&pV*JH8i&D+?mN!VrakNMEM?-3Q1E1M|iKsM@tRUqe}{lCi)
z2N*ce9+wjF_kB7AdJG)gogEx>?6L#DbiPc1pOcfrK7)@x&fR#^W7FJ84ie>%X=+_R
zP#%$?RS+=jYPayXa3H#~UnkEzS`xVx@I$~bAh=dEoixGKQD@I;{ok{6GK-;DWdTz63DkCfAXazbl9=TzmIZREdc2!tcxOdLPlmCP
zIB@yn7lP$bqe?HylP5M-6Ix1?PeM|!Atv|l-yc2x?Fgtr;K$+i_uw+gu)TM+lSD2)
z8O$8;@~@n4#@M@4aZo<)-i`UU0tl1<
zZ17EadCUtH9uwd*09dy3;+(Kk2re0#z;YYh>t^{%a2gcbD`;}F2eekAPtxMdGt@{^
zYn`@oqD(5khY1$O7rS)rio6Fsz~aS=_o>XhhSMU?R)0&^VT)vxNCETh?UiHZz|bh4
ziXYm%F3G5sQoHWj8sJ`Za>8T;_Y-w-k2veZ*nKw_>dU0fh0NEec>GWp$|)#7S4}lA
z=%7Dv_VI3{QzoH)Z?htSEh{~GUNl}
z&TcDL(x}u?g#O3CNoAW_B($j|>sAT=>S
zxWMo%{oY7a4RN0lD{;IjE0>g|>mbn@v`^3b$67?B{5rtKi3j#gRTWw%C{yZ#epjCX
z7d(Gn01NiXyR~HZLDCi0Un;vCDp!LQ5{Rv=tO!t1u810AJLPK{cb)1`K#f5_admi<2X=w{APLBTqT$
zPGwD&`wYeue(W4{dbri0-ZM86#t?e3sbNgrt7ytTCY#kXHO;!+>?(=51?KH5=P@X6
zP#}n+7cfoU-~m&o-r{c(MAdb51t5}LNE-+bU5A7P?d|>2($-3JB^2z!EC-XqeR&(_
zaBdi=%H{VFQ9x@GdTk6dy1DQ;Al6MlF<^RL2kk8r{nprUWMpIm5pjYhEJGhKF5f>VVZ6Hmgg`N`Z5k`
zGwpbPn4m_wni^G(uv@U;1iTHl8C1wP^F>ja5ERVDTzw$EEYtex>RNeDICGqyUq(q-
zNtf%>)qzLAk=>NtzbHPv2E2!_xnW1zN)%P;cDbd@Dw=(MvOA!8YerbIosq5g_ciWX
z=PM@=T@D3mn;4TH?KXyR+Vq*7?v#Ryzpos=NR)MEoeT~3|I)%z1k(M~pK#FN8e)QU
z`0$fN8kEf|sG&^bO(1dbHKAtYqoip?rJBd(yMO;awj6XCjF*ayFT8PT=Q*`qB!(i`
z(qfQtm9v^{o;&EVw1!(m29mv>GU&^T>m;II^_fhSpNp@dN&meDvQa@O4Ex;8mo<)y
z1@S51#}VW3Y$##Aq*>m|&aNW~jBogeHbD3iy`3Sm=UX0k{7q7>Lb{o%Bz+j6hoW<{
zpI>~NQo@^Y`kfm$makZWeW`iil<=;?cjc}YoV1ytI2DWS&9HMZP7l_a0)(iE08M3}
zBzm~SetLeh$-F+`zwU~PBgv;!0@$x9w__OA?vigSq7x8x#eN+Z{94Hp!*OD#6-V-V
z_4;)}6Da9b#TJrCQEk-1_JLxEL9)?m^f*tXUW+w6Dr5C-UAoZUK5ST-WE{1j`ayl>
z*kQwmGk>^fQNrT|QDLlh2{@g|3M3w{FAC%8T+Vgd9wUe2QF!}yBJUi6EOg8|PXZ1{
zA!RNX`q708W5Yhrwa9Lm)Ka4ENVPL%$_=5aW2Hm+EV$DNI_H&sbn8oW-LtspZ(nwQ
zYCIbXLkyexycqsy<7NDT!9WnpSz>^@a@Ba-B}<^_^hP)py@tD_4+&^Z6*|hP2x}So
zInCES#>V$n&k@BTvHN4bQvj)215M
zG93t$dmtnv&g;D-Qr%>XC$fXuwy&jLQt^RPHa_RN4Srq@@)*`K_Qkz~i97OqGIwhw
z6uWi05zc{!Mr^GFz#TC!v*gAN;W8p+8r53IOdieb$WV)>#s_)u?8icNis8A5NkDe)
z*|TT4JFS$&T;PTWCBP7dH>ItZ^LK0LTTlHh)GrBvQ=f%PFTUH$J3T1*s4d!G1bD9%C6w_QT`^t|L5VLDKj&;T8KmM9&hGIP@RCr!p$Qe-iG9262F
zOqj2FEzPEMSMh(7efam0+S(Q|Yk}=}Ts2?56pz->+-$CH8`wgU13|Sr(hrW
z>Gh9OrojaC$>4bUZE7M>Hd8=U8>R0@^TO?=q_*%pRt03v0L6WXeC!-airC(FdN{?{
z_#Oy#Oxybypa_4LSND{L4LdBFr`)s#U7(RV=z`GB~IOSFgrUzfzWa<9WspV38kl
zBw0boD3KFUzi_=M-R7NH7Ll6zfhWr(MOo=L{*SiQWdkjqR94nO`xhmcIRXFDY0YML
z+uQ5i9m@)M+g*D0eEaNKpEq~s@!`?TC{ZflKW1A0(UZfZzlDzlKhk7g6{E?D%ms33
z;Ufbe;z(6oQduR{S;_V643SZyB(H!q1~(-aGd^2Nb*S1>60zLXb+qfN-T2fJS+X!k
zhb=|@kio?&p6MEpFq98y^A#C_SZg~@fMomqva;FYOrCdzQ$h0MIfbqa^#cjQPZ3HjI1n5
zS_5tc6pm7(AUm6Jj-!ac=%o*Wgj21f&U##WX#PlwJV|tDBn}KmQI&iptaae*5a8Sg|*S9-W_@@=d{jxcUOm&z?PhaJr`U
zV=T1J=RlbHv`AZh45rK@op*z(LbQiy>NCr$N9uStB9L
zqD+QKBHakxx|qCDf`^c4sv|>Ww%~NLW&zLoz6Dc5(
z>ht&>TMqb8?tr%mXwsgZ1^t5J^iDc<5UFcQ?C(F6(YGmLk0SS!@+}Nk?QH9!m1%29
zN+hn%`cQoavd_RGgn1F2J~7hy{;_d;%bG+QLs`r;F+phQ)KmftvWUOYuGg6EJ$oJq3sdaSVFlyqP|Z`am(dDODeGS>5*Ek=|FN<0icISzlen@!uJI1_;>$EJGJI`8Dy=2+4w{PC8Yb5jy5LQee
zaR60#qmHJnmm*u1Cp9*XpNL8Zj*XCoR~d2SXKlpKV?)-Nhbw^Yk
zb5C#obI9OdmVf>IH~%Y2vaw1y^{k`wg|iZ(9yVr$kLWdQ(KO~2lAo!*`3XHoCJT=&
z2zowdfjgqHl6xxH_7jWz!^0mSvUlrY6~71tnosXj^})N6$4erIJ-c(bYNYSetM}aZ
zC670rB}8dGevx$Q>^ap%Z6QaL`IvGxrvn8X%D3S(5FYWt~0Ryf-emw6;lVHc6$~)s*ycYms(tt}Z
zMGYGt)2O%wm%RUYOA3t0rOl<<`1Eiy;jo%$3kcSEo$2nMy4bPm6wJTsQ_Qhf?h8VX
z8DskHy$R?{$?V!m@sHngfG$NOKwLOUJ@Ev3AobYk5uip}@o}=++~Vg45_dg2yOM4M
zIlOqn#C#!%eEG7NId4nL2MB^l+0%;u@&@)z>;DlyuP}0lJ3z2jvubJP`E%an$s4x3-6zDM$#_1-ly``u
zsf-d>+{}Xczw7<+o6eIo_v7No2jJ23)albq?kg%PEH(bx@aOO0)u{V^MUaXdbY-tc
z00oEIx&BmMOPqs~LF76fhg*+D6?T7U7wx9A2*Py3fw|sI{#E?7UU6_k+xB7)gcsb-)qdY
zDO2JsQf+x0!d#7WOJFqkH%}J*G~z`9aZJ_N$ZbDIKmK#|=f8NvhUK|Q<|r`I1Ug5>
zO~AfQ4$93<<&W~%SGu|uxHS?rPu8i-Xtfg_AB3ot5>N~WtWjf&%$CBg;@Pu&gv{mH
zv_M+JhvQtZH1~S^p#5!A}mOU2@waBqmhwEa<}O
zCMqs#NeLA8u!x0SUGHm3BTzq+n+D7Gk90GXfdDndDPv+(Oia1(JM;I))nX+Kc6p-|
zb?oN;p392dWRzzZ-svAribugmg`3u%?#M8~`1v^LEAlyHymHaq)7WKxNRqDR0kzX+xilrNcB^4L_
z%@9C6q#Oxr_aj@vSCLdlZlVr9cmDhrT3K*|Y`2s5O)t82Iyfh$oQ@3ifDuk*L-Z|T
zO&d@>Kfo>*`fzG>?Cwv1YBusUIf46|O{SlwY{{y9(GBdH8!A*H?EppiE|s!Xl?4WZ
z=vdLT=|+Cr3#l~>I(V>!ZHrTg!jDiW>gbeQxpG+FuQfU`A?u{<=A$c)8sD+7~)3@f5PEQyZ4BNj9G<3<5#OX+6ZWG*`^7d`)KcMN@n}>dXwbaJuLZALKOoH||
zyNmn(=}C5@7FMMYzXy_ua|
z{pr)v{8;~K{V}Z3<_I8uVMCnw@cBGd#Yp%XswH5!zB$SQVy0gKfCWlf;^Y)QuNZ+T
z*MZ+dS+tyQ1kPY|6XJz0;&)->xTY%O_J)L<=0
zqu7G@=vYE1Fc?kz8t{I)H~lT#yLG^8Df6<*kl<2S6)YLRga=sScdw5&Nx3Bw;{abj
zKZlj)uwV*nwUZX3?YG|47p)a{#?fl_)i&mt>1s2VK!0@x3oPCu4x{2Del;f&`k#xCJR^D&*G29rzIA+r@DvoJK}BhNX55=BI$F*fyzuc
zl|6j8mOcUAC!2=}>)IsZ?SnIe`}DbtQ6C62w1$b8Mui42qEG`;JnV=DKv~rA}v5+$!TL(EiHn*SvW!>)cTNEx?%mJ$2840nw6~W%ZDT
zo@!Gfg&2qm-Mo2oOSktINk3P_JSVtx`mz{Fb``5r;Joy=z)Ku8bt+6K
zgc&*<-5R)KW_%GxnNEaBq+>ok8RhVm6KI;sJ3J`J&oQh-A*0DC9WETy8r7co^zYmW
zzEzG2b~`8kh)?^NM5sNOquHRT$QE#oMxiJ5`$ozT6Q({Tfy4FtuR)^*YwC297zWaT
z+pj#A-R$NsJX`zw`_4v5KU90|Lxv5VS{feyHRy@)BH{pJezXkT#O9nsoBi}%y|mGDj+8anVx|H!;Cowu2-g26y1
zJ1jf!w*uRll?5~MsgcMRU`$_Wq{#UN31+vjMB>Ckc~mYom|(r{%sncV3*Ltx8&ABz
z#k!n%{FHoa$*U~sIQLBbU%Lyj2Tz^WFW#a_6bnM%(?cV!dCQS=JRO_fCtgT@rpo;O
z`t|R)!}9W5zoc=y9jPQ7A|)
zro)6zhv8}fB0kvrEUuuF1RoK*k(X2+l|J@vc>?z<&>z!TFUc5tDX8CL$?@T<$(_>V
z|C~k-8W2*CewFJ^Nd;V*xGLP!DPpwVbgz7~|8%0g`P{|r-?ZzxpO5XYZZu0%d1MkK;3!}i@%_dVL
z5ptoF^+3w#@NqP|QC*6PTxFk^E!pa@F(+**^FaYu%_tBmA*vMI#*z8
zFzE`?!^-a*tpWY|>0t6yS}MjDP3A+%=CeVJKauy97{G@Udf)&POPuiCAt7I1^m+_)-UG6Wf??Hr7Ap>C0e(UkOHk|*#ejSlrS+h%aT?}Q}8IAV>N5_$P
zc$XhJN2#puiO6#6R)2rtUxH6GN9q`*Rz=k5(xsJ2ZihAd>&q~M!Exl%p>knCrY(<8
ze~XWgBtC+=miWpJUqwYl-au=mKga!ne~bga^;OR*pSf^d6Xj*sA`FV%WUg*!y2omB
zWb*5N2P;Q5lPC|Wv9D>dE#!B4C$}COS54Vvq=J;3vYF4D{{=Q8IhIl<6YPqP&iXAT
z6X(R$tG_}hK=+VUl;m;1NrBm?d%;AXbU-E)`<@ps#>zsdEZI*2sD})E<}|b2cRqdm
z2qQn$$cW5*ijk{(krz47q}ckRWWs9+IS)#J3l46Gx*laHk-*5#jzuz4sk=EI+;sE>
z6%c2joV`+
zrB67pC%LJz4nw-~y9^rx*~G2QHW#(&HD+$Hk~GH|8~&Vbl>BcP^7ldKd5X!dB>pN0!#2Y1RD+*wyKV}0*y
z{~1E^uizMxe>AT54_@2P?)Co=x+19&$7A(*S`Ff&;H|(biJ_pFWCP|Q_HhYwTZ-lm
z_?(`^wy=}*>Br1n@!N8CK#lE`RPj|16-4t53oZk-XnYJ(2
z-qq+GE`*?zz5Fy0ZQYB|#mE%<+#OQFr^t9b&wz@3vDXa(Eeo78_$`wsObGn)-5M5$
z`UYkZd_MJhPd3~|z+EiZrMoCsY)56GG0hsg-mvlf^6_IgAR<8Gp1JX=%NCq-Q&>DG
z!?zOhkY<#U;nbWY>l9~ZW)S;L+ST*Tvu88Q+Df0*1;bT6me*7jzZ0rT5++?Ra1gb-
z(Rmz*!o$NWZguE03AM`GhZRqrXsrFZJb#rz03i8VW`3366&Lfp7^x!F;0vMzwT`1#
z8c-U|j5U71%N~BEC#8*`nmvFt8acJcFoOWP8*&ztTQ6U~UQ3doRjT?_2drx?lgpEr
zS2L&fIT;rRTX)m7K&rB(sZeF1OrOjZy6wW>Nj=>~rIs#nV
zSr!5$OqnmXs!@~(Pi>m+gnHAWld0FpQ7_nAF5TUU*)NV@(l0&qgJR9*qHU(JELf=;
z+*%SB;=eIrPLkI5m?+zTzFqw%SthfvGWGi`+sTv9|5*ID_xE0(Tb%X&k}QQ21M$qd
zal;-6_zfzL#vWZ(_~MrOTV~B$XC{-%@^b%4eY}GskPQGoL9*06+1MUODnGdv8|PC^
z0px$Bq#pRoPMUHroK_ih3Rt`ow)^U}YhI`c1yxsFJycUoRaF!e(7Q}M^%V;)p;jN9
zcTefQd^m<5&@A+oy6B7^|M)zjR!+JsG|nU*eqrtlcNQDb-T{N~GM-CU+9|SGrHA;+
zfKemIW;;v=aNxIJv{{XeWActJQRYX%AWzWYKu)Dto_YJo{c%$1%-Q+Z3_*8BMl2)Y
z10T4qTBV?WI3@_vCr_^R@Q(bPTBWH?!OU=64TpVKcb(&O)KsWETr14ts3X`g
zw`bqJFBgV&!aE2*7r)NdyM>(@z}dB(J=BD)+(~<}W`PFjRzv-&6)QpsBVblFp5GBH
zEXiHTY+v<8dDWmwEN*AUo6>e@ya~F#9da-9w5Y<56{T`5|5qAAOn-a1KD9(<{aEG
zIa{%Y=8e2Qsx(g)VE`Fb@q9nMlwQrqX{&TMO4qAEb(XtdETen-`r(=PkJ`nkT!fz=
zA{Sivuhgdn<%t;{hK)XAi8hAqvbV2+?eZ{&+~W-E!IRr?dF1p*f3L|eFZ3wSmRFj?hMi0dcKb2X$
z=v-xk0Cr(s;^U7^e|JNl(85}AN-Nl_*YDoF!^Y0{71~lFT+--`x3Ru0GPo18#ZD3#
ztTuSnnSf8j_7na6|M;{`^Q%0$sVPl>Ca#^tPG1zh7v%-aN3q&+2x|2V2qPF)
zPSU_b3N8e6R<_o#ZFFSk*qi;ix>BUTa`-U4W37L)GwP;BXpb+fMA8CS1HH+roQsVD
zK9IFDV^}tNf6Sw27g}}uO(HopnFxRMr9M&Y%!fHU$|N=>OQT0bYJdK=CA*>iZo@!O
zv$czS#b(GdtbCQO5bagR7{DbtrDU82t`Qmwt_th|Ip9ks3Q;vD1f0h4rV8t)aEg0=
zbzb@Lh$%V6lpD+50}rjqq1kI5jz3Ug6L!Kz*u|M$4Rw+iN2|Pted<-#Spb`JD}{8H
z*auafHvjS_o*^2{cR(URx_Z)dsPLKvD=hp%t7c@R?&3^6f5p2Y*Lpqi5pl{i+B$?t
z$jiF0+lwojGcU__5K0l-TfEtR2CBLzo~`Hb;g*r1*HAw*rC9HMZ6~D(-1xo*$3s+Y
zRd1rfNuLcIKk)?JQ6Idn(a`OBYASz5WoE_ETiAANZqxPGo;@>(IxIPHgbJidoQKNG
zqwyYGF#OzYxiARSm#J-=81n_V={Fgrl$;ss!L?ZO19}m9_rUJX=>yfZw2ExEr>EP)
zJE_h*E2m#T5+ce8^wZ#%!-lR*{OTk(-Qc
z36bfJhXeceJq+YdJ`!@uURo;3$`O6>5E5Y{lkyTdvK5
ziQvYIF`0_2>Ep&-q!;v+i|zbSdT8F?GY#@AS**#bqt_rw`wt!*>>V#%MLPG`oFuRE
zpjn&1uFAZKs@U%nF)?&PU%1OxEK#<=b5rgTvI_QxLM`AViVhCgm~j&aWC6&8fPQ)^
zDl#30T;&F;ZgzO1%Pn;5X8;YdmJBG0jB^w4c*d{U)%9epTlr;*hGm(l$Br#$V1MN%
zv7je!s@t6XLbXgQi^V!?Ur>|_Hww14?cF<*ZWh$jXtG!{TRoMXrACBbuF34Vb6;0f
z;KQ{tKktay>V%f3aU0ruaL9-E@4@64B>zlS2mMkR>}p&0mgO&O%XZS}!v1-x2s!yN-F+9gfgk}|UYCIC=M(f`#bP*SX!(o0@GpBzSxEpROT0({c
zD6Ailvx#q?D+|?>l;%@Ym6Vi>jJV_a73NBG!+^~&mMF0jsZT&g+v{dsVCex-k;e&Z
zI5=WiAR2;W1epnwCm(^-dHx&*gTa&O_?$lt>IcQb*=XSGv6PpZFC!zP+$WZ(!fkH9
zWSH$08Gw%3b{K;5Gnt=Dod{fYWbB+2cC?@5vXV
zTt`OW!Zaf~S0L80PK~KExX+W-eft`Szy8VdyQqJFV8VVbQ<-xox%i2393lgDiN!O$
z!42VgX#U)#a!R^O1r0$+QNL4G915|Im4faEW?NrAe27oTmy$R>)pB6bSHSKP-Y*fa
zRM_DA{oGn8zo6|;GJkcmpMEMIWPWwPwaLdz!f1@cUTqXIHu2S88
zyw_8vb@+M`)nR!-2$n3rK+mfCjACu)$3t{B6psH5`>`>r4-Fr
zI@_2(?_D;UF)a2N#~zh_XXHv5ZO04LM3222)>@2hz5rX(Jehf{ddO
zbH&{YgJUF#LO#jftV5yF-uphZ8I>3PAO!<8H}vh~k6M(`TLAE;PcLFYbw(!4I{cg>
zjU5fk!@nUDCSHSTwx2P!d0&HVyLOSKF&0>4ZG8X+m$1#;g%FEb3GFyAUyv22r6Q(Q$z`p-#P1q(VS$y|oz*YAeE-xKTRpKOZRh#TyHebtg(b-
zMl^y8r~VeEg^{j-<_=I*btFq^DHtDsE)u3Vlt-8ytWQZvk-KE0K@=9kayFDrjrnCK
z%~}`#NmUQ_ja!WqwRW;Y4+TA?yNd3O7Z+Y#?6;{7yRcEXHru!){ePVPjqr`0Y0nH}+
z_@V4l6b~0QeV`s=In1O{2)v_-f?5(z4SsSY?vDC9a4Hl?4=ES$poj_4Ti@EAGHD)o
zgr`Dxi-7Adjox{35d>_@p36jyc{=m?)y77Xs^?hw@~Vz6F&pTX^7Gxq?c7=4P41M!
z_8sP%K}pbZF@cQu+i1V`3>oy8+b{_l{eEoiJFA%J-5^LIpTkCfdFY~$LsO;hJH^N-
zC<{sRUO8JpB$O6|R8;ni5R-Vkr8ccvrDph4(~>PlW%pv3W{u}M#J`%?rHR9)ZQgmu
zYE*x}g=mZu20~wHFv!f9vs6d8m&LD+$c5ik@^!G@)O`Dv!!Wf9ZP6#jknk-toe{(!uL_L$R>0Xl*;{AHsnV#H~Dce}R*
zp>A3Snn)bm>LhvDJDxgq*PqF=3)e(^_Sx#+N7ZhNje#esX1HWp;1ZJ$XH}Wy_X9hB3MJ&j&NN0x>cQl7)kXzWoJCUho?(
z;QNms!>Lk1G7{1yv*~*__wousq?>C`A6!b6&a?kU(Ex~2)cuFttY#96=+YKuL55c)
z?IdP?9pshUH#nQN++Hh)XB@!{QShUhMn?a%yxgp8Jue1Yte$3(*U)Qq5V8wBJ-v_W
z9HPB_Z}vXGeeFJU;SKm3spB$G2@@Iw7*EROr2`q?WD@VjjS$qgE_Zbo8(Ly%|Ego-
zr?p;F+wmHTB+T_)M_PflG;b)t`#wUh_mCmEw%-Uj0C=4{c3hB&Rq(7Da-2_46;;F5D{ixH2_9^PJL;^G{Wz;mvG=PxK;fZS8a(xuX9I
zv`)Ona!uJ*tuXkqrgcPAcc{3^PY%oWMoEGW#uF-OyCL!be>2$~FB6qtk%`=vrj>4E
zSJz>amOc6Xcd^D!xQ2mhTH>q%MlrxwBjfRv;9s%{cKrd3X*TB`&-@-B@HAABM{npVky7pJ5Zq5
z`?6xW@&f%F;tOakDAzgyKI?6fl6ZSJ2*JkNhb4!~sk5nR**w5d38$-wXvR=eUYr6Nyn5yb8YVl5Y;_r1}3vG5OEbh`SoMrAz*@VvvP?npRTJ
zeuuY?5S2!phHSfbUN+&hYI@tM7~=&-omCrZgeegcRyE6XO+Vd-
zq0%$B+P+zL^A&DxNfp0JBhc718STVhQKskjGtIzttH?$}x$3s`p8~h~M86HwS{nBB
zj?~>@Y^cS;M)FCy=P>Pr`~L~mu%PTe<|_u?Su|V`Oh#;|=VA+yD*IGOAT)_Dmj1_8
zXSxx7xpKWBNN9D5NDRaB8`ND??y0II)`a%^kBiCg8ty;$sqFHJR>erdjw)?r#PsOg
z)gB%dpX#88`2zD?%fdU%`*w%->)+oCjS+BQV{M6y34jV!!(-I7c`RPeFQIs4$-u5%
zA}=r%O{7FS&e}j!z#cQh|6ZI{#{<-K?bXX0P?q5_%9YuH?u^$W++$nFaGt~Mx}(Q5
zTmt&4qtSsKkc!%QDmY5?Cn*mYfbdCpU_>p`l71`=n|&^;rleOJHeZ9Ht)Dl8PX!gO
z{J{u3#v$D0daJ81#Z-biZYzpl1})@zlNfvVCdP|C0#{PjrSY%mm`XsCijyqAFzOgK
z-O|+5mEsal5By;a0+|0M44z@mVdl=||70OMGW?>A@Q%c8VF>LAb@#p>gA$Hu$O?%d
zb4butV&He)ym@IMqT$B{Rw$xPFYGyRz}m#bcHJ7u*ydmwi*5;P&tm)GMJEfYJ^^Z+
zo+~S{v3>UH&66kh7(Gc)ZE;MEgM9PGjbpK)ql^B1%?JwoT>J%4d0=rOcC~`L`xkZ#
zR#B{t_NqS%Oc#{xdWji4j%fMpET^euvw{E?8_pUdX)&b8-6_4$cqFc3X
z%OZ7Z2w*kY_U%V#YAFiiZzf61J+980KVO0Ml%UQiNF_Q<_p|!k8DfMg2pS^sYw#Sb
z>=KgRE&gzc$YV+jCRA0GTZjYZW5^yAL-IB26M;xz
z7C5uq3hFubVoavkH>&U%-Su#dY8TO&Tvhl9yq9Cf;U`@*8@dL{XhACPVy3K_g@waE
zE>GDrKGiLo@!pn*Z9chKRNk)mDh#Ny!fhgt^Dl%CmuAcbxP{M9sUja6F
zmPUzz7)Et$%KdmrLX!uuM)6Z>y^4=xJ_QP#1mx4h>7B3doWD0A
z?`Lh98S|Iga$;GY)caD3WQ&!eKap%mpTsQop}+B!Lvy6?fJRN1SVJ#nC_m57Z?-md
zq+tva#lYG*u3CeBNF%(D4sYuDpVecS`NM&L$H=YaF4g?PAl+{C)3kExg9hEPAD+Dw
z_1z+kE=)sO)ujcrrU0dR#f#(xS30)}8zdAwV2Kn}`&p?-fC^I0Y%P1@$$wOTvbCNs
z8`+*SQnMlW)b4jReD67)niQSOd4Pjh8BV0ktjU`SGh~g%
zoPjc-c%-9L=-hdYrzeZFZv`bJ03dLnaRv}0lmfQ{buEAS@-Zs`ldn8}oMp23=%q^o
z1$qN6h<;v0Dzwe>bZq1o<~f?)J7>RzU3fkGL3si@-#6vwlNyU(ha&cZ0O3t
z3qSy(b9w7E=nOS9jPHzE_z!T@M#Q_6jF7FM#h5QmG--QY+RA?T{=%w1e(a5*0YHE9
z>-dDz8ZKCKEx}*_wK`Z1;ysA;5n$!KV9^X%oyP^#@<@KkN-yb&F-`omWn{mnS8Bor
zH5u#Q>Vc(ce!u&jKfP|NX|>^0my9O&qr&P^4@Ks7i(8cVUl5s-J_E@%vAHkSsqsIK
zwfe7D`~3+tcXv7`iEPcz^Lm7hG@!T+Is^Nlv0*ds%kpx&vPnk^MJoqv0W0!z44ia)
zyW6Wzb<`!0z6AGK&b5Va=-s$KW0<5}wk#Q^BpM)8nSgRhCh^mj3NAw9W#w1f2WM(Tyrirmu>$85HmI8(0idc~l@mH_0Q0G!LTpYV>r;nOw$Sp&
z1{2vZi>O0i`gR|ML+>;3x7-WEzKwsGIJV+j{|D(FCu$$RTklP1zA3SijMPPLHT#10i!S^SEB%VR+(ramo0XCpRkw`ZY;6)bMBY)=v)5
zddR_FXA``S9Pl)h`GBSUES$<6*Jx*CnG@^A_*76&}y+cFd(&cjMDsCtL$+Ud>PCHN1t>
zZZc760=LvpjxE3bY;o(-2HHN>KcKG|D<|QwKjQk))c0Yzm{)N#5dd$0L&GA2Uw40R
z2aPUZ#lJTW_ru0ArL)i4vjXrVbM=QqwKLp4C(rTlezia7I1d)7F;$*$Xo~fBo#=9x
z-IY}hX4c)*)pLO`lk%
z<{LtpNTS@6drG&1$_&)(1mH+`K!aXdDPU?lY7|m|dh*oN4P(;zI23u7B1G
z9%I{%9S?;u#a+F@zI0a8m_rK}hoPMFI%hC*2XS%sumCSymNmCZtxkOH_W7R9o2V8s
z3nVE62@>l$qXKAn-F=vL{oR3yArWx}Io1WG2B%Rx
zcb>O)1qN~mxvAE6u|+8NL&KzvyyP&wNlrs)23hx)KhG-LwDa49pf5zF7&Jcy0iC*c
zpX+&Q*g0Ff*?-)j)>kDz?sdsH+P&#&vl;iqMejLd{c#UZ&(=zqOD#UnhK+-<$%mz?qhQ%g{0%czLKM^iGxH0E!p9eiEh
zz9=zNxoTPX(G%`wf#*1cPFQC27_;_112QIqk4CEnU(dE)+&&_|r=xN27Vjso&;9m0
z_e2SV&L^VJ6QAQAYu4b27ctT<^*a@-{uZ`=C#E-LR1Jk2kVczY=XSirj=~Ia1g
^s8#oQ
zm_AB7YF^fBx>)&jxo|Xi!zAYmcRDN|TY`h|J;-%J
zlUN5iDSC#?{NajX_#!N<6j-F%`a=Za8u`CNUf=v+9@5kROiKrN)8$P!2zcIkQ*nP(
zGM3~!if2WwB^DM6X|oZT%Gq*Mg$_tXrGq{{!8pn~iWlCVfMY&BcYE0w7~5m%d|>b1
z{A2US=l|-e@M>F--Cq*r**Ba$xu&ZNO{8bf?CSOpzkD9tuU|RJN3=4TkemEcV%;25
zQx<)H#V@JczoxyrS#H07UW^Z~fc~}Tau8~~sgbowVXfeBzoZJhuMamaKQ>dA6
zf@^igmol}KwpOXrzz1G5Tn_s)Q+D!|X3AOeE#7aQIf|!#AYPPg`I-_fhl03VBrxyj
zABfs)+5uq4emr{g!;8N+EYi@lzh?t%g^rmh&t`EU?kLXsVfJlO
zEtmIZ)slTTb90Aa5%l9BH*Uaz)%r*B#h5qGfJsZ*-G~v+2XMg&y~d
zp&vqMT7D`@E!cto&;Q`%5BWJ>q1@By|DKM*@x-M|`mhH=`7`sWo
zt2}mEXm9VY2v^kXg98FqG6Jl`g#K=7Z#PpgnLoabx%^kyxcE|Iov=E-FO*M
zD>^37zDHKd@oWX4h%N^jYV|v2US%KAQ5FFR(Dex|oDs
z{qZA39F~_}s7(n_-*4ZZ=9KJ3E~qV34SIx~2R0_JS?+N*Esf2zY@{xa*=LQ7UWjIA
z7$-M>!+^tKVp4tdO0bJi`dtC?&hbjwCXlM0*pkq_^ZXcP9`@Lc;|Oj>PjIwGhYPiw
z|3+>d>Kquo4QU`}^rj_qagP}UYc7~Fm9Pt2IS>pYz`sC
z!NlxA48k*rk?OZr6c5;CRtfS~KFr8lrVv?-m=CP{5NmfvuCOtDqXo
zZG`~G?J7C~62`OV&ja`FefIY4vQl9f%UU+2D?9--4-36+P(@1@+uqOeZh+FtaYq>5
zqGd~2CE_&$2-6-cJ$P{sF^z=FA~ni^*_plubX7!1nuhE|1&O4U(hoEhsDV>KaV#SH?Ld_j_hht(T
zo{{m3GCn=w4Iq4)-fs~u$c9%Gkxv!K1Hcg2Kw^mK=R7_xf=Kq2fqo{PMIDK)a!htxT!v(eybFswP*^f}Z@k^^Q`4L@I_7)z?$jU=4T
z<>iYP6yz)Tej+8Xj)ML)cEVYAFVIKj$?`MmsdrUXqqwL&bv=P~;|ZReqR#qIxMiOM
zpgh!1quzhdbt47Lq%l~khf+7Lk2E@rN2Z9CUgIP;7%S(^5$$X$u&3>mAZ{slo(U8)Ficb^Z`UhpXnp+GB8gHFrD${{k(@d*?!_X%b
z>lP=)s(LfkLewswv9QXPjSQRjvaDTp|OI2X7t?D6CE0+mp8J^~u26yPo3vPZBJ>y~UCdcTmx%YM(3eUyA)~Ll#Uz
z`%iMiPkuPW0`C~IMf>|ck2SPX4fQYe7y>?s=@V=LObmm=_+^bjPyhy#WRbeT6{y$3
q=1=wEqW^nYof91SzpB?vZ)k4r_3dcr=qRbDxxvKg6O#39HvBhc&(>T3

diff --git a/docs/articles/EUCAST.html b/docs/articles/EUCAST.html
index fd36c25f..577986e8 100644
--- a/docs/articles/EUCAST.html
+++ b/docs/articles/EUCAST.html
@@ -178,7 +178,7 @@
       
How to apply EUCAST rules

                         
Matthijs S. Berends

             
-            
25 January 2019

+            
26 January 2019

       
       
       
diff --git a/docs/articles/G_test.html b/docs/articles/G_test.html
index 6cb2e9a2..7994429a 100644
--- a/docs/articles/G_test.html
+++ b/docs/articles/G_test.html
@@ -178,7 +178,7 @@
       
How to use the G-test

                         
Matthijs S. Berends

             
-            
25 January 2019

+            
26 January 2019

       
       
       
diff --git a/docs/articles/Predict.html b/docs/articles/Predict.html
index 1855e80c..1099d4d7 100644
--- a/docs/articles/Predict.html
+++ b/docs/articles/Predict.html
@@ -178,7 +178,7 @@
       
How to predict antimicrobial resistance

                         
Matthijs S. Berends

             
-            
25 January 2019

+            
26 January 2019

       
       
       
diff --git a/docs/articles/ab_property.html b/docs/articles/ab_property.html
index 193760fa..646f2b66 100644
--- a/docs/articles/ab_property.html
+++ b/docs/articles/ab_property.html
@@ -178,7 +178,7 @@
       
How to get properties of an antibiotic

                         
Matthijs S. Berends

             
-            
25 January 2019

+            
26 January 2019

       
       
       
diff --git a/docs/articles/benchmarks.html b/docs/articles/benchmarks.html
index b58129a7..5336f0bd 100644
--- a/docs/articles/benchmarks.html
+++ b/docs/articles/benchmarks.html
@@ -178,7 +178,7 @@
       
Benchmarks

                         
Matthijs S. Berends

             
-            
25 January 2019

+            
26 January 2019

       
       
       
@@ -240,15 +240,15 @@
 
   
library(dplyr)
 # take 500,000 random MO codes from the septic_patients data set
 x = septic_patients %>%
-  sample_n(500000, replace = TRUE) %>%
-  pull(mo)
+  sample_n(500000, replace = TRUE) %>%
+  pull(mo)
   
 # got the right length?
 length(x)
 # [1] 500000
 
 # and how many unique values do we have?
-n_distinct(x)
+n_distinct(x)
 # [1] 96
 
 # only 96, but distributed in 500,000 results. now let's see:
diff --git a/docs/articles/freq.html b/docs/articles/freq.html
index 8156c10b..fdba7fd2 100644
--- a/docs/articles/freq.html
+++ b/docs/articles/freq.html
@@ -178,7 +178,7 @@
       
How to create frequency tables

                         
Matthijs S. Berends

             
-            
25 January 2019

+            
26 January 2019

       
       
       
diff --git a/docs/articles/mo_property.html b/docs/articles/mo_property.html
index 1f380407..23456cc7 100644
--- a/docs/articles/mo_property.html
+++ b/docs/articles/mo_property.html
@@ -178,7 +178,7 @@
       
How to get properties of a microorganism

                         
Matthijs S. Berends

             
-            
25 January 2019

+            
26 January 2019

       
       
       
diff --git a/docs/extra.css b/docs/extra.css
index 8fd48767..bab9e252 100644
--- a/docs/extra.css
+++ b/docs/extra.css
@@ -71,7 +71,7 @@ pre, code {
   font-family: 'Courier New', monospace;
   font-size: 100% !important;
   font-weight: bold;
-  background-color: transparent;
+  background-color: #f4f4f4;
 }
 pre {
   font-size: 90% !important;
@@ -84,7 +84,7 @@ kbd {
   font-size: small;
   vertical-align: text-bottom;
   color: #2c3e50;
-  background: #eee;
+  background: #eeeeee;
   font-weight: bold;
 }
 
diff --git a/docs/index.html b/docs/index.html
index 84b5d2f6..f4f8b940 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -178,14 +178,26 @@
   

 

 

-AMR (for R) 
+AMR (for R) 
 

 
(TLDR - to find out how to conduct AMR analysis, please continue reading here to get started.

 

 
AMR is a free and open-source R package to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial properties by using evidence-based methods.

-
We created this package for academic research at the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG). This R package is free software; you can freely use and distribute it for both personal and commercial (but not patent) purposes under the terms of the GNU General Public License version 2.0 (GPL-2), as published by the Free Software Foundation. Read further about our GPL-2 licence here.

+
We created this package for both academic research and routine analysis at the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG). This R package is actively maintained and free software; you can freely use and distribute it for both personal and commercial (but not patent) purposes under the terms of the GNU General Public Licence version 2.0 (GPL-2), as published by the Free Software Foundation. Read the full licence here.

+
This package can be used for:

+
    
+
  • Calculating antimicrobial resistance
    • 
+
  • Predicting antimicrobial resistance using regression models
    • 
+
  • Getting properties for any microorganism (like Gram stain, species, genus or family)
    • 
+
  • Getting properties for any antibiotic (like name, ATC code, defined daily dose or trade name)
    • 
+
  • Plotting antimicrobial resistance
    • 
+
  • Determining first isolates to be used for AMR analysis
    • 
+
  • Applying EUCAST rules
    • 
+
  • Determining multi-drug resistance organisms (MDRO)
    • 
+
  • Descriptive statistics: frequency tables, kurtosis and skewness
    • 
+

 
This package is ready-to-use for a professional environment by specialists in the following fields:

-
Medical Microbiology:

+
Medical Microbiology

 
    
 
  • Epidemiologists (both clinical microbiological and research)
    • 
 
  • Research Microbiologists
    • 
@@ -193,18 +205,18 @@
 
  • Research Pharmacologists
    • 
 
  • Data Scientists / Data Analysts
    • 
 

-
Veterinary Microbiology:

+
Veterinary Microbiology

 
    
 
  • Research Veterinarians
    • 
 
  • Veterinary Epidemiologists
    • 
 

-
Microbial Ecology:

+
Microbial Ecology

 
    
 
  • Soil Microbiologists
    • 
 
  • Extremophile Researchers
    • 
 
  • Astrobiologists
    • 
 

-
Developers:

+
Developers

 
    
 
  • Package developers for R
    • 
 
  • Software developers
    • 
@@ -267,7 +279,7 @@
 
 
  • Use mdro() (abbreviation of Multi Drug Resistant Organisms) to check your isolates for exceptional resistance with country-specific guidelines or EUCAST rules. Currently, national guidelines for Germany and the Netherlands are supported.
    • 
 
  • The data set microorganisms contains the complete taxonomic tree of more than 18,000 microorganisms (bacteria, fungi/yeasts and protozoa). Furthermore, the colloquial name and Gram stain are available, which enables resistance analysis of e.g. different antibiotics per Gram stain. The package also contains functions to look up values in this data set like mo_genus(), mo_family(), mo_gramstain() or even mo_phylum(). As they use as.mo() internally, they also use artificial intelligence. For example, mo_genus("MRSA") and mo_genus("S. aureus") will both return "Staphylococcus". They also come with support for German, Dutch, Spanish, Italian, French and Portuguese. These functions can be used to add new variables to your data.
    • 
-
  • The data set antibiotics contains the ATC code, LIS codes, official name, trivial name and DDD of both oral and parenteral administration. It also contains a total of 298 trade names. Use functions like ab_name() and ab_tradenames() to look up values. The ab_* functions use as.atc() internally so they support AI to guess your expected result. For example, ab_name("Fluclox"), ab_name("Floxapen") and ab_name("J01CF05") will all return "Flucloxacillin". These functions can again be used to add new variables to your data.
    • 
+
  • The data set antibiotics contains the ATC code, LIS codes, official name, trivial name and DDD of both oral and parenteral administration. It also contains a total of 298 trade names. Use functions like ab_name() and ab_tradenames() to look up values. The ab_* functions use as.atc() internally so they support AI to guess your expected result. For example, ab_name("Fluclox"), ab_name("Floxapen") and ab_name("J01CF05") will all return "Flucloxacillin". These functions can again be used to add new variables to your data.
    • 
 

 
 
  • 
diff --git a/docs/logo.png b/docs/logo.png
new file mode 100644
index 0000000000000000000000000000000000000000..48b92531c9e136731c0c149fb6d65a50628a0ef9
GIT binary patch
literal 57583
zcmZ6ybyQVf)GmAg2`P~fkQ8a8M7lvhy1TpcNVlYPcSy$}qz~O7(%p?5x=Zrg_;Fvi(?ub6A*^UU>KK~4e#^(`t01j3N~@>vN4Lih^&y+lC*ev$t0H6Qr*(&39H
z7z9GYdH#a~rDYHRKN5Zw)A*`vZ}!#I(8&}eY+`R@N-k+@Xl|-xYG~r_IAF>L06I|uD)@M8QhhvN5@d4_p7a6^Pa81+P0hVSYQj^S-9oon^3-+F6QVbv
zWgp&JaG}R|HIpqey?BRX2SIpRFcKbrQ>=wpiVOdR{H5ftHs+d#?Bi5(YPJEBbQw9b
zzb*QeT<`qdPbk;9v$9sl0+2KfmgV;SIzt&7n9{r4X0-vxdw
z5cTVN9e5eLluZuA#64|naRd-ZL?QiF&5r{K6psuH5Dy_X!~}lSz|IMR>&WjyCF!6P
zPKO6(r>SKHrBDLXr||ItYXX6wH1OnOa4!hN6lY3aF|c3*KXsuVuAqQWzJlQ3FjV0{
zAP4&wLO&2tK858b;4I(*FQ6w?F29HC2vNXA>}W8=w0%DK;1FPPfnYoy(CR`k3o;1A
zQbyS|BMr(1Cijb`4O7Y&@Cu9tUL=?{${TmX1*GB#EaQZvWdj8S^7Ety!IKF6P{cJw
z$dLu+?9eD5JIVyH2+ujaWI1K&4^nVjM4{IPwh*!Gep!x!s05-$0(Oei@cMbD21{pk
zp0pqtklGH28W1deb>&D-H5D+0p#{98JqwPL|_psqC^OOFQ1o|j4P&D
zBG5v$sWq6)OcT)QCk(9JGA%7_=VZORn#r|w+`@|}50k}bod6zGDd{f8%Fdqn`}c2_
z1rUgQxkS0BxUo@lhQAKwJ@5{&*fqrRDW{wWYumY>a0tN4ltni9i?M9cL0CH=lOS$8
zWpY#Jil0AYwns9NjFy-870Qu6O1T)?rW*D-3LC+oAy!~iNo
zB59@k(`@){EgdkqU+49QHdo1Nk!Bi%XMsY$xQi*A!2!MplpUk<3k~x1c|_wPS}AVe
zGX*83Z*agd_)(sc0$QC82lB@>m}2RtiYvHiTUX}!zZL_vhE%WJFW
zPfv<<`oy49Y-yngAfcaYo@qTCNPh?%pXK-tS8QG=ZUNWke^f_UY@^jS$Ym4>cnC62
z*%Y1m^Rc3rDvK(~9dN8MB4-cf#DETb33Gi0$l}C+gubPyEw}|mSf6s>{L>PJ{%eu%+RW6u~Box!)SwIY!yFVs5)M2zy(jHL!wkjULsjLyMzNh-9_YY>zpHiph
z(u(bgrbbwoYt^Ct=R`ZNzqF}KDHRUGJs&H4MuPf|lCtu6As}7@T(8P4PcxSP9#MbK
zrQJvQ_tAYHZY`@uh$1o|pbm7f7lGDq2C&yyb1_OY5Aa>zx8qc7v{1uD%;ymkYB><8
zsHg~RfhSKbu1-V&P7z$s0RZcg>a;@rV~B8pBJG{
zaZ`n$=TiZ#ta}#!r?}4o0)^$4QA*mPLbEYZbAYFAA;&q`cMVCF;1~Z?L7i!nLdQwd
zh?xYC-jAMZrSG=rzgah)T~7c1Pv@~TuBY%8be_$y<5hRY6bB;qAS2*3Ua${bPunhJ
z{ChC!pgKrNh)>VJ&~5SjY`c~HJEdwD(zE@&FULIvd?Y;+6ZQW%^OJXN4QKpnal?Q+
z0(AXR?6;aUQ~8IgxA?$$eOdP`%jZCv*v5Q*mNzDaRhjrtX`i(Oh?HK@e>}@6t;hSG
z&*MHIL4D52$;smH*`H?#`bqX&Yqi0UCW+yn-3CEe?n%zJ2%rl$Veg*Dj&~bnoZ7~I
z9$6V{8@lDtnBaSehW76`g|ORTXRYdSPXF0NNvENlR62aw2%uoUs7_bXKga2jKW}Kv
zq9B+o){(IS8uTx6Ii0qu8=3A(jQv~D*224gj`5@C2C!T|v^M1PR<4xoH^7uwXSLYf
z41iM|PGkRPWh`Phq(j$6l4}3y{I4p}KCv4ij(-tdhOrG_`h!e8!h1|$vGHFN6PzyJ
z0nVQCXc15Z&=ZsfW(~%8HbF@gu#S?3R3*VcB@*BfI#4K&)8<1tkbuKv;jWJjK-j$Ow>@iLNG@a`JRhezt{9yX+3)|y&99l?tPEXSNdB&EM1J-)(O=vPBBb9N
zJ7a=~^&WTlJxoTKZYLYr1UyHg+VprFt`gi3{7%afHmwLrceoO*XYr#bC|@6qd-wz9$EnU+SB!cSDcC=5wP!XQ9wpm{rH-ZiK%dD
zNe7(=#MN4m=~(09GM+9Wcp)srCurhaF*_CQk8}dRTJv{>aX{Qw?%yKi{s7_xu^_rx
zQ?`E>g5}{g9WLw$KB5F#&hZmFP-r-1Y5MCg0}I$r_i09*H25=PX;Oo%gwn9)F9}l
zXG0IZ$zW~c%jfM9NLnkCR}}$gkJ2AT5W=nY$#^C(D;i=N#xgr6!x1mp^0bwC9V1|~
zwdkOi+xn)v_i9G+@6(p*uW4pJ(eQeHv1|_ZHMCc7A;;_g8K93i!)qPdO)Vl0n+`vO
z8^ZKq>iV}%?!J1dPUReQgC)T{r#o|RQ?s_bV|iCT($(8*m77>rA=exvsAxUSTT49D
z(7pV=QI*&1sq`pFwrY;+%gHnmhehgdFM#p|`}j`~FwG+^u_(yr&9>VN&`rb$@iGo5Lo`Nwjp@7&(*RBRBnKKbtM
z7bMpn#+j{HSyqKzH!Oh#cfU5#k-%o-9IMbpK96XSed0^-Ki-m55i7!?@Y-)LhF8mAm@P5Na@6HRv_wH^e
zQ%BUtdy~u-pyr&*&39DhRKF#g>!+p8!DlU)vQg9Av(y{BoZjX`5HLirMuTrJH`nX-
z>Cf9wB+qjYu1-?D`7$5z&*Ilo6UvixHZ+Wm--1rw={0T|^h0!8bR8ZT+B2ruTy$`$
z#s}%4S!ysfW=(PTT|#3Y%=r0(^QWSB!pe(CJmat}PQQ|#YZpmd^!#B>z{QdqSQPlp
z{)VbqTG9cI=>>~k)xMy%iTpxk)89=o&E|-1xzv}&==xX
z){~?JnTFW@2yh%v9<_UV$$z%+bUv^eogEFa^V#lS?dIf-KwDk>OUgX(U-|-a{V&}O
zN%|M{Pr&`zzTfq3lZP)X1_YH{N@0iNEg10)2GulIhp7qMi?bhEmLP(zYc{rZv<_(Y=|W9wPR%>7YvH^+V27W{~YepMTue5?BbmPgMv
z?IW*D0v3Jb$oQ_|`JImgM18VpvvPxY1e9SA
z1@prL>}d1WgQsna7e{Z?+MFgCH+@K%u#ESQ@sG3HKAk>sV#*ZNvR2nShe}jzaA(>6
zIO@DiI491l%d_tCZOYwjluguB1d%dQ+Y1hTb-HytV=+!e99K<55mCWiHc
zYc8SeLm{(H^EaQH{p20>yA=mC=cSDwZ0}{urdoeK%1MQWUG4FVoVzW|*M-%ay~afj
z$*p>0{JI?ftT6og_-UA7W4!LLtK~ulw(1OZK_^bQ2>#+BjUn&K*y87+_*-tDx
z+3vW=Q<)vDPSFegUh}Q+<>T_+z>Wt0lp3sQ8Wwr!C`^Fj<5dase5^9=H_@rk$s9Zo
zB0>=Q5ung#Xg9Hld-Bc_2$jETo`&ddPkHSp>e;D2>0>aq<<9Q!p7L^z>2g*SHv8Uq
zm)hE4lfm8~@6miuCtPa2`}10qB-?)Tq=P~A-mR)tm5)ao&jCwXZUYmRYY>{JzL;{F
zy?Gd}#;}`<+!ea%F77Gd`71ov^83Ii{@5q?+Ia+daKKHoCy`pJvGYhFyNvJIh-VAa
ztFc>ER6JR)$0M>lI>jQ!zkXf$if|;@Mj-CcwQeR
zIyOp7aSwCkjca_51+q&N_Gg1(XU7B5PRdQx1j8!UsR6c3{$}c03@0wHk)y+G0coP_
zWpVo!*B-*Xn<2sw9y`mi@oBLphhux^V5q-PGC_s1eOkR^NV6V;VuR`0=;eiW@uCUg
z^?A(vqxnH+f7S2nit~mK!vi?N(dwVw6GtcCjI?L-TKm#ah}0^a^zIP@UmYfSy^%jQ
z4Ryv
zUm9|RMNTQpK(mbU-qUi3%f;**?G_#B-Oblr39zMpP}^f!{PmgVdaYlW&ZgGS^p%Hr
za`fu9rH
zn1Wwe-gzCvxI0ENc};cf5Jznz#5b)8+@BTyUBNpVvIudY4ExKJ%^EJirz`xxlvA;l
z2=n$Sj2caFG{juKpU0iw_fa!*NZDL73w>D>=#YuxWI5odEV!-`koTUi5aZl)fyZ;e
zq+UT;T`+a}$7}^sn+yAkv=4ceZ+Plcnu7U`Hj5_rcN_4s$1t+#E_h6`Cs50{)TW#!
zCt5v7CDP%U$~N387_XO(FRij^THv8UqdO)3f5&FqBgw|Fy1;(jA+N&Ezs7BIpnL_S
z-zg7dl0en)BR~HI0wzn)XB-FiDX}5?AK@nUj3)uNLm`+P?{kr|ES>rpa
zv2$tJv@o3ZjBUOe*sV&3H6T}X!X=36X-iaU%wIP4iZrqhp+J3zklMs4jjF8OxZlf(Sti+zcgkr4{Zc6
z6pQ_t@{dftKrIp}ZpI7^RnC`iXbKr%RjP#$Lm0aexjjSC^2!pp!cbtgVbJhl4C4h?C!
z%JQ)~s!`Hz4_fdX?tc8+2^T%OGLN9Q@>3s@syVOspu7C`r*@eDU}!A;=A3_@LK?tn
z%%zo?7u#IJvwSQ@-;{N
zg*b{XA5F|$-wzpUjzdX-hxg{OHAB=h*n)L1l-2WgT3Eu-yDasAXm8Akyk~+jk>EDO$j4q4x4q;cH}GLng-mS
zak6`rb`^9o2$ZJ8}fujhhb}f46nm$86T0T@L4CUk}_|c
zDh|F=8+WbP0?+=X9QuAt2uYNIm41%qLq1Bp*4RxxLBup{IXr8GWyL!;dIEk1GlGYF
zOqeB*n<>yKfl{S@D_}I8!?x=O!cETA5tG*WvTyFfHuY#H6LsH;#7NA?6X7-qOYIXk
z)e082tm?R`Of8P1C09%tGy#K<-r##X}c(H0o^2(JEx^(DADGl;bWI8Gv+i?
zI~k{`Ek&=|EMI}~tuh#VDTJ6b#RXfB4YO@`13P;0n5pVmxhmW6a)eN2>RHg?zWj`(
ztfQm-SMcAI^vrR2+!c*ZEORbzoSx5QkyhbN>Zr1v2-}_wdv8{ZNQ$JSQ!FtsbMnU~
zZBtJUpMTuhvpoIuo=z&mkQme6-OFf|bo}jlEMRQhUzk+7^k&s`%QJN;h8VNhJ-ZB}
zL~~KV^kCao?UYR;2EhdfvM%CZSqxk8`M+1N766bxUg|%DS=PgJaAU)Wo{J&*Q3kC*)7}baf@jR9&y4HTWm})sI$qz*2$E;6tkF
z`npMbQih_S#+CM?e&N$?{4B?Mnl&NV+wGN`$5-Q}prw}EJ;>L!4miT(4W#fEDfRD)
zAp_s=cv5U87I1%Hp$e_7)g!fN^_OE*D<587x(`xy>8!0!H>VQ5{JJcIu*}C9i8^Wg
znYm*<^c($xl%|FeaS&C{c*`!%KH+b3Mv{jEokbk-p-u<4kq$8O%V+G08bfWzV8X%{
zbtTS`@rb$mPbeJu$%(hcQ&sei_MIM$t_fwAPRv>ty)&ck#u7>8T4ax+LQwenko+j|
zth3JOCN~f>ZZ>qXAPDC2-$j`2uLC<8e4l(4>a3H?26dx3kXSUw>Os`;3F`S!S-37@
zp|uULtgo%L6MzhYOm{!2RHK{R*KLAb8;wz1Tbi~l%mf%&zt1q~N8stR
zPQnPUSxw#~gTYTgprd2v?>6`KedOi7-PU}Yeu{`efeph7T3A8>ihX#BA;)xhItUm@
zsB;1CE>Nd9Rg`j{exh#;mFkiWgtVT4NyPVl6kepS=FF-Mmtj_^0e4G{b^~8OW%)kz
zuvR%yqvk-%Mjke-SI;ax;e9%Vy`sbRb+E~-5BGYK2Fbg?-;MjD2B0c&91`^X#R%{u
zH;n($4;!eeNC9vGm}|&xb%E;g0>uKyr{{bxvy)Qz^4EIT4!<@oEuw2PiYh62)w(sy
zc(+%S#FsV?la4NCDz%Sh-2{wl(oK4m#QrkEJGR$qSSbd80#LNOnYFW`2!>KM#5-OF=S_>pcL+T8(fO1LrI;7{tBXzM*?TaA8?
z#6INs8dn#Z)m8KHS5k^lQa$GFZx-48)=p*x2hp!)mX>%AXT;l()n+UmH@QwkB@Yh|
zli@_bt#_&eI_xEGmj11}`lD8x7dH}#5Vl^)nkpBjUBx1$Eq|*K#c;eXIi2^XccqVEs8{-;HTO*?pv5z-8cz!gIw#zD$x(SIDl6ZB9dY
zA49rV_pgt9G`-r-8@VTg-ojvRcqjhT4I60KftX|hGQ6%w3C`RAhM3)nN^&!SNr*o%
zFd&?Q5VNBpi?@6?aef6duZpRw(Z+D%zmfUH5
zbZ$-l=Bu)mMuRAFBRWErVBb`h!S)gX^6jm3puh##5As=bXY9r6Yt+*j-&^9;eWvfK
zji-U!(VRcHu508pUyc*l5a6i~Y*Ennf+s92%`$GiasHfMpStMTaS3Sc2fXekt{l=t
zQp?bPfYEqqIf&sp!?ja5M#WYRX98$J2Xhy3@)~2ZBcsnHI#84p#@W~Jo?l4|Xu~q{
z_nm2jfrQHZ5ZXY}Aea)1OVt*Q1g;fWYja`ty~skb?G9ovPuVAVyPef?PAVmz=GN=p
zCXhX>U3*BUb$(ucLvc%(W&C9cQ6-84X$=ja_5}VSf2XXaTN9zx2|@*JNre)6PIn{*
zh41z;Bq`~cC7m1N@9pm-@RazR2V57|Hx7{QKsCa`KL>KBfb4u7<}bdaS=TG*T61RF
z5jK&;BM@De-~Eks4bG_9gr{wZ>(}Ne*IhO#EqzDQ?vhj9SFTqbAtm6t9Qc&wMS_`3
z{FX6Nc1nFUlsSuRqp@#1Pr?-Ui{!+%f<{TeOJPOa6s&(VTC~XnLO1|$vTv_Eh#gks
z$T>J8r1RQoy5M5N<_3XFW4sBZV%nL=W1Y}&4|J;?R15P
z{@$Gtu-e-rdnB!Qcr7daB{w;`jixK3pe}NV-TBJ?@+Zsb!${=sr@JRF*Dh^F_eB^0
zLKW8(CCk7d8Ifc1kF#>wcAGC&*WMt-EfD|VbNsd
zGAYEk?Xe;HV9~dnqxus^d}F6~Z$$Wy7U*d!JJ`PV0L^mfclS5
zD2zA+lO%V0+e{N&l1ShT;Oe^oNLnON7URe$kWU;=MB0%+r@6a`uY#SM%Ti2^Xy5-~
z=sWH->nOX+cw@cZN6p%0$tBagRmxk+JvQ|G@bGuiqVaPs1J6O4j;HHx4^knf_JPsX
zq)mf!>sq7ijaTgb>795c_+)AGImL2p#N#Xa_%^cAa0`HFP2#J0`jHdD!@>XzS-8in
z$_Pt{z9Nd7lOfhDzZavHA1j-XcBDH|{cj|~a?O(hM-B_jgK1R7IkxPOMAS###fm;?
zpB3+1o$q>$`-_-ZP#HHKJc%2kDpMx|z|zO(|3~sT04$j1PjD?i?NDgJ9LmGkKv6q951>}-XUeZhy4ewGHe8RFZAS6PLDDFj}M_bEV9)W*>O4+x3Qu)>d0)nsF$
zv$3&};Hw{b%?Fy%2LvurWMy*B;nxQnd`P@N<-B9cIb#51ET8@H&c_%N)9sjZ^nGEc
zFUvvS@{eCTV^UN_c8c3ZAp!+qd_@M3$aU-y3ps?LN0V!h3JLxsJ?IFe!*DsJnA7Fw
z_eXb()kEg>WN!9nF+bcPKJ)as>xsWugU$Y^HU+IWeu>CPRFMGKdq?3#cmjMeMYYmb
z_5;v2&uAfj*1?%ciaN_mWodp`pY+J+DW!+I4=U2j`z{N{S4rDj;|=OdpU)@RGReS<
zenz&oG~mpuhw_mc8#TzBQRC+Lv4JX+kffcl!~d}U#zFB=7QH_JH)xBBwGDzN3*kI!
zcU~KkEIqWKu{KY>osq3?6A1e?>iF1}<)d&Z6^k6R&wfJqzFapv~jbIoAr(
z&r+n>dLgxN)iL{%9>2p)4v+}kXdMtl49kFg(zuZJH`3+07~$+ftz~@i2Skv6i28=!
zEx>^6AJ8?;O^76Mu>UHtPvW@l!WtJ#Zj|?c6(~bVY2Z4ZKGj{1(L^p!tyo{(xTnvH
zG&!_d$QrD(z_6D%%C+UMSMUD<{Jb6W2os${C!hcZS{$Os
zEtdSB>BAG#luh1##W;oexBy~g9uUe01|?JQLu10NS$p44fG
zw{Boz`jqQ6?i8O&1+{6iy-D?B=sNtLQ#FAy&HUgdwFsUFByA?cGLASviA_yS32gm9
zUE1^wWbP7WL#HN_3ln=bLo)AMEPgFA>mukHM{8nyC6GVS*TIWlMMCDalOfGYlw03L
zVxOyvscVh5(^L5j)D`P5b)y?T*e}&c-`kvyCN$pWqC^MIZWN)9Dw290uo5Q!p54~_
zL*Pt+aaG?@T#Mb5ZmI);LQ~L@5Rgd7g}yEA;b-LlIB-tsIezie6d~*S*WgA)jp-BE
zo>DYn04f~L0hE4wX^J3htl6euDkN49!})d1865?$at2Z6uTlK$$>-|%OeRtFiUnCY
z3`WbR9&5t3K+vIK5QN!hlnx{{k_NaUa3{VxC2{IoZq@}F>`)EndJT`h_+|e;fz9?h
zvYbqsQfOzWJAyvv^bhUfurK(QmACz{c#pebT$1nFI4^=5HNSs)&lolGzfKFOZT87w
zJKqhAE0>zYb!8_=ynPddU9DB}L~L((1iov*kp2oRhCbvKSz%TdsV4ZRGa!SPBV(PR
zCiQe{0?ZJ#^5+7OPLFQR$$_lZx&E6CHBKs|@8{d16(bJsoIo|^=CreqAD2)?4?ONb
ziI8|TZ}GHq&Xh;W)odZTXciZZiKkv?@gVVXlRfPF*~A9!!l@p
z|Bz!EPJa7YF*x=^7Jta&<)CRTIj8U3o=@^{N{N7ap7sxj&9OQHNgolsyv^4ac-xf9
z!sg7G7JH7?&KlD$Wok2mLQFMd}Z6h&2R+vDgr14CzwzS64q~y|yO3Run%M#$C|-8H5ySy^0_4?k)Sr#J&k+7npN`*hnN)a#0LK&*FjaU%Ie>5Z!0
zcT+D8@i-@{GyJuT@7d}f6ZIDuH1(`-RoPO9jh@cchq6T5Z~F2Q2#9zq+C%apQINTP
z?DSM&U19*H!gF~qeIp_Z`qw{k&iX@o~6rRdG7}?Wmi)NMgf%Lro}8jNk53%j=NkI=zdv
z<7IGnb@=sQ4lu6`dL={vz{*;qQXr6Pj9}@Pl9py&0Qu~(S*Bi$hmgfF>9p$ZT#kJI
zkw?mq|8Uwz$ZMwXeLuX?UhArM%xCG_HqP$gU-hTK#FY)oxCn}y>$-f5vbpBtRp`R>&do}nuCSuZ)h
zGs>A6dqL(N210!8CO|}=D7r2;yq2dYaeiUp?_P0Z>gKak;F~KmA~3AoWi5ToVKKL~
z&3mj#%xaJ{4oQ+fAr?0ZI{J^iHz;%Y^^8cx%nc%fT4D%@D*rV453J(oH>Iz5cq~F`
z(z2+tngzL~Vrx)oojQrl@8Deu3tk1h5~g9KOG<(jDHw{Ec|P%&)qPjpJ2{XUA3ah}
zZxaP*woMP86|(_zyil1>3YwJd^|ZuyxyCJ~(I`fLJXp|=x*pw#(H|U-L=rUlKa!}E4-5i95QLiwh%a8z)#4!iQE^5dy
ziiqG^J%bAD9RSw;WAQLY+Zws?ONp9c7QWL})IZbj@Z6uIzd?-Q&E+-@NN3
zff4Pr%+_t4k>TeG#wVPGhGf+7x#4eO+YabUAyFla^lw3-UWaj9xjyAj<;2Ipxt>ydEqaSRbpEHj3Sn`~fHwm_ksyB{J1_gjhTE
z?`*_qo>udrAk92o$who6->0Konigm9U94-*`Re06+r`YPU?0A5hFerOm;~rG;U*5`
z!WDy~{)3k_HKhX3h%c(pE}f?;%73QrzvX+PE~opOx8ME+lB_GsZE2Z5`!-4Y!<*a6
z*2?(0y!bNPL)@f|t_q3XJ<_ee^YMi5{o7^o^b4#f>
zDI2CZc?6#h)Y~O*e^#}djS3$DT_OeQZkMA*cnp8G`^;{+jNj_EuQ_?K_I-!({GTEP
znn-Xt7L3<~RYd!nCvFbt|N5pLC(zZ_duH^|@!M|@wX={{YWMQ^fk^e>#@^$kzAhm<
zbr&5RvFf|Gg4}!8($qiALIQlz+AF~
zWeFOe#(2{E77?^F@hl6U^##0yOe^wqp43m7l}>j{1ATUT2S@#WBEKBVW-z$5`x|S5ELhtjz*j
z-!rhZa=g0_an>jZ82jT`7p30V-9_u=!J%8fg}TQP`Iw6w(&*{h{^54!)Lk7DT))!x
zuD!Bp9UF5kLy0YC
zEnJ@c=BmT&&fSkI62~_bNM7)6N8Mm@Ne(M8@AF=j3F@(b>bK#W33&+b<9Ix@9wj^82#OL;<~&I4}o8p4>=BCM~L5(rj2Rvy`Xz$ZQP`1
z1Wm99ui=HT{`O|g?$9**Fs{JZL|(I@Wn_zXJNm)lT^_28f2ytPzpUAwcx9(0`ciRx
zV^$lpjV>&E?)LTIadMU)t$rhUgqg1j9ywg+_c;COs;EqPk
zN$xAAUB@=7hiy3WPP;E#ZPVYk6IC}9=nDRiYO!6Yl{5>Y
z0ilQ-F6-7_-s<
z5%NfRPA2iS4CSo;Z7!u)c{mc+`L9>ia$I*tohSJatAM;~RU;Y#q7VY2@|!|;TJd~D
z4ryt~x#+Ck6=7xfQfsq5HpYm)pi^j*hhyRN=(d=JF;F=RM?kcw2cQa?nuI`acT1lb
zkz3bI;xcnQ)5o|E!{t-Hd+4bn8Skx&JpJypMe%PZ;h-t0vE-mpoP$s`po5$c9SLYwbNkaV
zuUreHqhab#jhsolONbw5r{c<2Db)yN0EDGf@65gF+G=6oz=;}#e2S`9Y`l(5X~}cu
zw1-(BiURd)Crf+Qjc{A%L?fG+Iv$7Rq}Q#K*l~d)8SQg
zH8_siu^Mg_ZY-V5EleL?c|z&+eS3@Saw-;0aztU;SbHEHu6lzJS!d?-%5apTX1#~R
z{u!k1b=xG)_LB&UaB@A1@lunpQC0m8gXq_z0Byt?!*LBXUBn1kEB{pMs{=Amx|wkC
zE)doN@gnpyo`7@QuXr)=a)F_5dtFh843jD|At#BTVo2d8C}4QFTD_BaDfE6fzidgY*4)bkKSaMFd{)u48dmA>&DX_$J298
zo#I8GEfUA1=_)I`iV`py*z1k`e1<#0n&Vm{_Gs!iOH34$uPonziy@*_K_4rqPVoQ*
zuV#VG_4R6h`0Mzy*&dp@@-+ICJM3!rgVXn(4c5;+c1j6$C>H%A?U(b+4Y=!_#ekiQ
zY7Y}y$|wBQ|3E{QuihVHHd~Dt9u-~lN31wM@|)97ZGXe+84F>8b`vL;l~cY-&M==W19n>O(DoE8y6P5&d+>D?e7NaxEg=ydoeJ-Fkust9%a|!R{s1(T&Bc
zd~D=G|Kx{^=L~p|rOiiSXDKKPf4tV6r&xg|fU(ygb3+E-NV9jyvgMBxtvlP)yVK9(I-ZulQZr;5
zlE<_KZ+ByW3PbJ9B%`|C;XS*0TkR#(p78Ex1rCEVsCy0U9F*#42ipTm*-WU4H2dYH
zNr^pHxyX>0+H?WvwRA+JSPEKMqjDSvO(1y?UK4piVktk(rj||>uzxrMJ}4GK_VPLl
zjoNmtZ4!qbqQbFsyZ45qR!Xwq2KeN``cFffc-=6Nk*4V}tL=Sd9k**g2D?ip5R*j$
zgzt}XNOY7+!}lvP%$a)3kE+w5*ia??7?um%BZ}~a
z&y(A_mCK^GmWBXyE*tkty-!QB@^X$4uU!;po@5G46lc);P3o=L;ZF*7MhT1kmxPwJ
zM`-##5E0q>?sZz~oCZ5NOD+;&yANRVOyMZBGW6hh!7C0Vz9Q5@ZVK|T&KE$cP$952
z2z@g$4Chzbayu$7Q`{lqWA>)?f;qkSuIbkoAn|z*1~cr+P*0=}dl?YtU>cyKg5yF0
zn>gv^BIY0?c-gU=Z%`_|E=V=srWHS3a7PP|yrbtM4q$SXOROBm12E(JPyeXJR&mPq
zv=_i#IX$^7H_es8@*jtuPG|)*RPy)1g~40`*Em41nIKXcC`97MbT$i5w0YxMg(p#L
zZL!~n4{s2t(2vKWn~A+hqwlh>3JY5#KDqk+3~WW!yNoMOc$GN*N>$sQs~dpnS2F8F
zz|rhBX93BHI109#CMERb<86KeUFi4k|7Bw!H!5bf!M~4{9Nr;k6KvG?87-~h>My=3
z#+uw-@M-ckANVVJqbZB(ZY`ybXi|nWwNHH=!`pj*I|b*KWF3kh-M`n26x5Ww6Ljf1
zet+R#Q?VG`BFbDM=$pCBZ(?UbDXkpt=>eWsA9#0UZEaViUD=Xml&9!DgEv|pManP5
z&(9z4T|#L)0)@*XB_69M|MK5GGs;b^XGjKTd~89a!TynnF||F$=jw!$`a-8-c!057
z3&A8_QyWg@*k0{!Pe?;1LZkJ4>s=r2Co*ILO;zP0?P6m9siK%V9VM&$b-I^P2T2Er
zkKE);qAc@L`*8Eo97cV23mvg&k=QK`r0_`bO~nWvfFPCs;hFy2I5E-mbY=e(42SGT
z2P55Hm>w`Gf56dV=A9LSp*Sm^o5eDs0~(NiLy*Dn3SN3Kue9$}Az@QatfiF+
z(Z9;%k#5qv?!qLSah^C$Q$wfkU~#*nx-JbLvldkMVv>8{uDSLpqqg=8>38}E)wc^i
zVRvObjnt`GfWH7inGPrhitBWMTQ(hbii)q1NI->4$xkr#5f<|b60Q7qANazQ%vPmR
z)%m^{zODiy^Q>rb^Vm#?0x}D{osf^STpa(@?qxoj`s!5wuhhT!L|@<7otAN5JdS4N
zAq%z#clFH&5`P)0qkNOaAmN|T0o<7MkA`STSt|Ph9Yf@ksfBub2MuFY;maGbzPhu9
zN@URr*^T}--rk~J83G?;(ZR<*Lg)O!Jd+iVG*-8FOna7m?|g?vgj1^DlJooq0Rg5bbT(~7jzZAmk~Ihme>i-W$0V-yMNd_&zK90Ow
zdKaT5cT5O{+q=X~Px6%B&Ta*kG3j$v+p90Sj^s(WjbCtE<6Ir0y;%-Wli9N2a$aQTA!W6NxaGU*UIp$6E=KUU|a>5@0*+eId2=NVJ
zWS^9mD>C&`IlT7sZ8yKtBoNEG!#Fi{!=&3c4|@y#EJb01I#QC2
zy&Dg6#a|{uN(>n(bTCX`;}Vj}Nmf;TW{R+qWH$~c*J?pb<0cl&g#bH1@Ri`s(Jpa
zQsz)qF0d`h{H^RrTLRPT*oEfiX(9Zk%^`3l&_y_CW!wS&jd62?DWj2trU1kl6|(1k
z6um3`Ix9RtEBg*2>KD{1gQ0nKx*HD_K9Jc_^P1G+M%b&3@rk()D;e>F8NIb8f4y=v0f`^r@2jpp~~z*Bdy@Tsl0^S2kP!9UAjoiE`gMy;c?FWjX`Kj+etWyRVG{k51
zo>b3Nrk%KI@E4wB!5Gekw@B4#!?=mOnPpnq2mkax3_tva2^
z-ge4bXOL}{)CQ;dXFWV4}F$-bh6^KJEqRG)f{h#dapp8*M6Z$2vDc-7M
z5o(_NP^P1d22lTvPlmPt5;aEkxql3=2BzR+MqT&SWz4&Q9>DI&HnkOnwHxdb|ECqr
zOa1*==T{$GqIgfo$Z9yGO*wye
z-1dbgx?Py(a&)ijFkM=z?H(K!5s^9elwG9I->YP_JxUF^b#?CTRjT+U)zQcUdKIPG
zprq=Vz1VM7P&hunEnfAOre4G4E9L{>a6K=gm?v!2bwwwEGH8p1Ys~RyydPRVZgCE#
zw+=i?y$(`VzhJP(-fdu_Y19|w(pJUElE+eHQ&r69ap^h=qQP+puwM2G*VE_ep
zdM)!imwDxy;_xB+NmMsemVzaiswcJt5^_OIOyWOjhSRI`s54y}+~g)DAJ)r><`>?T
zVX`N%Dk7`|RzKsEc>b$7)>l}znu9%>2qo38+Zia{|+o+0j
zA{%6HJ^t8oxwBQ``bVk%PSU$9c*&2C3{Bfs-l(dBtT1-WuQrKEBizy0m{{84M8*%8
zdhP(2lGP6DWHoUH1i>K`Wp;AH^5wjYtn%O{G^71L8=7E?{=C(k9TXc~
zQs%65M}ORxw&=v*5odzS4nMpm(7PI0IOct309y{g#CmaqzLY)c>PE6g46$!HOG?9H
zzHO4lNZ(QZBMXPyPoII}XbYSEZkDaVzP4s&X^sCb>dwHu?L)FsLs(*S3O8GD24r&v
zNnKW6C4jL$0*4?3~@iRS@18^cHsN}Pm>Oc
zflkobPOqJLDCGE4ByR^*U!Rgk+*_p$qkf%Qle67El5MT#y`6^|&)~8y%>|weK+424
zcXuVQEyA#YY`K{&6Ij1H-iAE>f`w1oOKldoPm+#`Dk+4pnGy02@3JyPH^vkY0w11aYEsJQ<|&2bAFB0Rk6+mjj~3Y)
zxw$#tyY{yGW=Uh|B;hO|s@B`D%JoN)#5>Z}vZ8?IoOYjnn?AR*egneZsch`bpk4U)4T(TCm`&La@u`9qA1{$?-v+Zr~M`AT7g@E)uy7$5HD9LdWm
z4h`{DQ={9|eYNS#NSu&ItHwEvM0;oZB^DQwX!Vw8r)JUjV-8FxZIAL_i%u@lDam2`PZ1b!+ZDJ1DF8$<;Ckta;FT(r>69z0#$mwGF(D00B6VOu
zS)<2fZ+g~CV`1fdLYjJOIPgl<*qSLw(I)j_0Ag6lfb7>uWAr+B7eah
zl&0}y!gh(Zv&(I50gG{cB-M5u6>^>*r>ssU6
zg_`LbUv19)-))Y2KWpLmQ=5VTUBJ7_DetWC{<{gWwN5l)D2Mpct7y+`u^L>
z+@qbqsy2iJfDXFXk|N};dJ>R8xTwp0A;L@wI}`)Ov(aQKZAqL
zRA9i8h9RDv%%ni+?FB;EcWG+TTbW8NQa2;k>&fhEL21}1G3i+&^c!(?eqr2*)vHYo
z+vzB@!Ve>I3hiocBzPh?*+rh$I%v-6NNVckvzA@png{Oi*1HHXU%
zj=`V#pC@Q&nrvH%AyHX&==Aew3y#H`&le^NQNBL9HFTq9J}KfB=y=Zom-nLiuL%D9
zgP$pbpsVV&QH^yV^?aGI|BtD646HNiwnp2gQG>>4)HJqj+qT_shm9KBwyh>a&I$z+(vZ8>);3*q~U@q!Ie~3h7dVEX*
z@QQEdxs2Jm)m*(uG36yZq2T0lW*R5KSSh|xbXY(S;7;rns7cp@t%#z8)A!{9Tz|cJ
z=r`dsf24C5#;_XoUJdx0R8imq;+u7rFHrz9;v+W>7X*;z5RBb8N%SqX#M20kP!iE~
zm1b^KhCvy`fb@U1&XP~5rm^^ySeOI
zB=?+^85N+_7G9^*kLpf)x8^!bX`%vT$r6<4vLUMaVLs%YQknks-Mt
zaG{QY3$={n^7b?3ECqHVWSiK28yQAr%J@2uDXBBu3J1V
z!%sCdfW0#{Xx6H~=dq-44}GsSb|5Y#>z7dZ4{8EXDlE1H609kC7Zr)>wy7PXn}jo3
z{fWAO^8`A^;dV{h8OqPqVpCR0q#rT*nk$Cyf_r-DktQa#FRb_b#QYW7G(i~9<{4zh8S%{m%ajagwtS7
zyIWgH$z1Z)I|hIgwrJ@b{xE2@Wu$LZxA))(6
zFH;j>qt>AkbShHm)7IYHL`;}}c6j;L7xxG<-ko~pj#~-#UR(1~kpvveLo-8GA3MzP
z`D&yfc03RR+nBu=4i4n|(fzCdlEiOAjz$TSoYbmLO6YL5mc<+{hW{1d;s$DL+C7iDlLFEAP6<`snS7`@L
z!hH4gLq~RK`@*5^moRkh@JC9fAI#~{+pn0~V73wTbGGS)CahiGq_4syg#nypPNyja
zyS^Ze6b-h(NNh43Mk@rVHbi}BZ=(dJCKSw2y
z3T~Ec>Tm`MugnJ4_-_eT6k*j`4qE?Q@XPJlIzt7(L9~iEU*%
zhiB>D3*+8JZhr-)hyJ}RFz&bO>~zMUFVz}H79Ydd)4BS{2$r0wOl#DUjr>H%d47HCK)8_jGNr--%xv_x#<(
zFsk`4ktSXKme+{iN8v@RG@j{?Rs=9={j>DoqaxBfoTvc;!0)su!h=?dbK^-fvuOU0
z%|txx$Zkh_0@EyQrmy`)8>uTavtRM?QMBU2ZBgADjrt0CIr!?^i9mU<*v(VS_+HvE
z9t?TY(apDM6@Zf$LAxo!F;6NU5@DEHf3m||8jbAEEKrg_m{c1A6r|HcnXqHTx%COz;yw28v9Yfik9^1F?ens}
z<<=A;x(sw<0}tGAvRaODc65l<9go&O?vIZ9o)9iiphLFu^Jj_B+YZ>*z`2EjDL}f%
zNcKyZB5kgCBNNcJG163R3{>o{aBQoJ*FkPpFW=Gl{vf7P;j*#bl6dc~v_Z*EN0Ua9s8Kf)|1A_F=G7RfLa`WG;@9P1@I|6dH
zKDMxL6xH6_?l+^x4QQQ~{a1#sE&zYothg{?5ldX@e*QDL@Jn`j)4BM15Ld-MBQ~DJ
zR~dVbo2AF#k8NZ1`&2+8V+^Vb$*kGNg4N{>dYaF3`1J9UNc^MsU$lefH(dz>1~Sn+
zwL#H~%vgj%NlTNB)Z^;D(vbk)O)`K&^N-@KuMc#t!kM>KU50t9T^GG^(W&pkaJ=7V
z+^43X3qTxB`v$4yujdXKfPp^e9$&Ov^T+eT+G~#A-C#@+*p}ATxnxaRxk6~MS~ZUu
zH##{el;^ilRg?Qszjy+Qesy^oXPp9w7N(7w7eP>+Sg6(5v-Em^n$1f?d1;WKjfdPP^y|YQUB0sa{tXaJ3G#Y^7Lgbbj!LLsGg7L
zp=x0bupBl+P@xzyzXA82EQ^?sT>tJuiBgB%$a!1)%q;=5s>kSS`eMTjNRT%DFC9uE
z7a{q->Exrbx_YosNG`k+kHB}F25mE8SyoI_b46`q|K&jeegiQi+mkVaz^lA(XdDu
z91pQDQ@sCOY4pbHPjFvwn(f2wP~HDLIp;o^DjX)rQgF&g5pn3IZrdh#99lV_m|Y!SKCc+{;%~1x;XmrC&FPU6fX`&Rw76sQ@?Ln=
z*zub}DwkwV@4|T+BWWN=IGhGe&yTPt9Ji@B;flWOeGxb*UxueRBD1hj{
z^XvNL^!C)Wr-YDo{=kWBHhkfzZ(wt-#jVcjNjx^?r#e==^XM=ow%EC7*SwoU#bVPj
zUftcV-hA*0R$N6b%2Is{ldFobQ9WudlUKM#goq~<4agi6RpteEH9+1_htAwn{R4`r
zBkey$vPc%>R7BRUQH2RPsP@-c1o+UQDmQIY#`*3tD@RuCSiczbmMS0vf#53*T0%69
z_BV)7t^)@5gNoTxs8Dp1v{UT1Z323b8uvNFEw(b43Cz%opEC}y&#O@Wb?-28OsyLy
zV)96|2GrB>eOuTi9V``yNoD`(HFt|V37UK`4%BDp(JOjO
zf>;{7AI%%G^Cu;KuMf@{&e>1we`TWni6L#EFbdffh9^D#VobM_#I)~#b3%@;cdpKh
z9-qP-m3P%C0-hp3$&!izvE%jk7fr>Ry=~O*?_7D5*sP?gAnGDEQPXU0=er^Dj%?R({~+VE<2^y58${
zyAufhaAQ;uX#=Di|B+m}cZpqgI{)T<=qvvjZx266zFLbh#oWx|krl#qPQ7Z_CcPi7
zaag$!gq%Q1R@L?J$~MpUb*%m2LzA%kS>z-?_~frLMKcs%TX=G1$s$NYQCJzPs$*M9
z+il-h@y8tRc!DY2g5w3oY7xwoR!H@^p5<|YK(-Z{&KAI3JQstea)vWb2;Pt7O-VE@
zV3&X)>XrGP5MbaPJM~XbZKGz4^=9hLXN7kwTo>@lqeBoJw>)%v2T6#ebiNF|+ACls
zn8idzr{#{>RlHB6a_kx^OT86-3!~`J*&JsPjRQ3VAbOoWx#RZNlh9cWrEzU9C7IBPIUuuQ%?F);|IkN0_p43%vKF`F;3f&KyAaL?K@9_%
zc8|X)rghhgIvA|W27+NxGGx2aL~;58mlf!}(5<1FR)yn|=>2Ms@|pRJ?b-RCoQBw?
z-(zOh2ZS-}R9-)+AlVTuw>YuM$uLc{4#rG{UF{!4-9@`|9nVg}0t4n=8U7bs{-4x(
zy}Preh~L(i67bzV$;n8-&U#RG`sQ^+%c~hUygm*M
zqhnwb1PR^#+)o5#AJ26?$i!FO0EkNjP!Uul(g#|Qfebk8kLWu;v>o!LA6*)}Ra3i#
zX7R*aqc3Op{T0afkN!joUQgPGZbbYfYy0B6>Qx8hF8%AdE6-&5d=#*)?N1#Fn_SaF
z#jlmA{Co_Jx=WBf;!X~Fz9h(Wo!G`zV1~$*E9AOR^Ecm5rl)IV*epx@<{V9J?ZbWs
z-=OMD9-;u2;pU~?|ChCPig%Aa=VnBoMp^|_TSQU=%JwK->#WWm0M`Hu?q@-;Jj~Sc
zLETF=Ng7jgA<5x!@^!2j46I?gZ~7xM*iQl^bUnI12EMaF^fqrmm*IMA`AJ(ZljX3k
zY^*BlwF*N&wlEHV{0Q+{n=JKuOA`lJPtsYdFZcP~rR6*!)f0aB@%t&eODni22hX20
z8WN|9b1N$m3y@R@cf`xJ4*@y^rp6S0Wm&`U$-Fs@JxT98-ZSR}8-6`3Ly9Xtjr~gD
ztDEsC1_S%D#xL9U+gPj|Rwt6Z*ERm52T$m3Z^8*hj+(`ZsD`!kg5er;S=}uobpMwC;d>E^a&g0p25v)P+?z{l!
zR!&1I-Hdlf@DG7Uyu*s})gPN&=cWV|u8e;pFyyq^WNthquG6=Z4A`D22J^zpX?X{C
zz{R8)lLK8GiWvPI|5H~a#)z$|U;j2X78+*RRRZE=WS
z;mj!m`%2Emt*6?s1G0oK&xsQoak?yXpVO5N6`n00?gNefE9Cx*$VF;;OGzf=sDKu7
zZ7l)ATFM3lw1Abj*Qzui@D$a1$!?P9uMo16{|U{tFW_?&Xw*WSM9<2~Eih2w9Biup
z-t9~#L=g5B$S#$#?t@h{RSQ|%<#;D%7oqfOym!A3(B1|2dPTLRX_VWK9K2ba>2+;W
zkK4RyG)=zP>2ydA8JcvFFOaT4;A>4_9lo$ke9V|;55xSTEa~abs4z|zt4SJ5IJK18
zc&&gy<~p4SlYj-2gVk#S%Mq3(h&B=!aRE)L(?~WFPj>9{cGl1!F}G5f##i6DSbz7p
zn-)oyw>ZV&DSozec2_;Sw)EBhbsl6?|MwZuIwqlLl{t4mIK;)G=XYi0&o`KQSNohp
z%t^a?g!&?81{L#^dXjDSFUvoi^BBZKIUCVF=WtbI@dP=Qwn`v3Wn!&++K)8-uF+$!
z7q&C-N+Lg{PXLSc>$ZIi&_-w5k0#(z#XohOnTlk}&6Q!7ZUH4FCDr}7v94xU`q1LI
z>;odtj}?htDFRuHRL0M|ifHrM1ZRE+S{I`W8Ml`Mv1y-8g$b()?u0{-VQAtCK2H^X
z-|I(@gAG}GRd~UY6_<+3wkU~c9UyO)oNsl#+KY5MnfkE*lHLk)tuwc%pQf^5^z0|o
z^>^jT0&27&I77$mcL_yTCPn)%LFVv?or#THuZg8^>+4S~UO&3OJ#5X+AFlGmb1H)J
zW#(sQ3d@uA2h=z|n;>j;9p4zIUcqAy8q2;{>aGakxjspvTNObK(q;b8UA41tnEaET
zK(oc6R`zttte7PwdO>06<-Dx*+HL@os8g;Q{2H_6)0emD<8fHk`Gui4CMQv0?R++M
z>$7+;>~2A?Ktj{{52f|!wCoI;Y_XJs<^5~TplEqqq@|uD9c^0XR^b6BlFqJQWFR}C
zWL2zvX`$>8g?6aLb$9utAM_9v(NYx`M-6rExU|sfRd0@!Lbnr1W5YU&vX
z!VB40;y;mT2*!`Ek+L!T7EKNp)K*sfq@Duq`q&^66sLqtPKxOg%#-|8W@Z*rH+3-L
zXeMsFO$c3@#Q5f%g5$p6n*He~6j17FU}^@k^Qi+K|LV6i5cNkqUmF7trRuUa$=CgG
zot?`xOx+bup_8yL*Bjjd)W}V06;%dPqI$3z+5YlmC?M(Ej4Ff9>$>hd-%
zM<#u+00A7gH)quei=4JvGG-~zhwCk4Zr(48OGksS7%%0xPb=?s{ipV}t5ZOPh#=;W
z3B^lb#$6cORZ9)DJMW}B_jaJwuH&|jl(Y4XA{R!D^dLNHDP0MMd?Q%~9S5s|sEiXU
zSo!d~6dDqu!bDsIhQPatC>_Suo?2l$=3Ww#y0e$w_j)aVa53NOaVw_EDM@6GMCS-F
z*YYu2aH{zDdjHj_`el0+b>~ysYW5A~$HD#Z&zcm>v7~xBi2|Rt%pNbP92MdMt#reY
zTgfk#e|y^~lvavzQ+eiTI=NOcDgWw>{TTuy_@*GgjtWSEJTvg^xaoQB-h^MTMh)bj
znp2k{<<(Q;X5V|gPRAIgFj?eXPgly;F&t~h_iZ-H2Vr=e_ZEt`z5;DM)b)a)GF_1?
zs$)qk;StXJ(xwgIy{K3{ZsEeWjn*F$w0t}|<<)I${7f8-UqvVsV7*@M+F~TFJQ@&@
zuZJ#7Iul<6UY-tpi>nFasy~zM*9EoY;^BQEbQ8+V2c;y%72}mdM#tlE$sW9nRYW0C
z#Ny`hsZXcao!=Iy)#`oFwe*P&Aq^DKj&4+$8*QQ(ytzJKYv`+yUvR_xV3^G
zmU6haW9ZJ@XNo#ZAN=3I={+-UF;xxiAZ=YuJ!n|}7$4cZQ2lK>zokmFj8An16
z{sgVJ5`_o8UuBjEmocTK;3@QkW%65|1i3r9$#`@~?Cn}eYxy){>^R+yQAg*TB;PIn
z7!2s8hybgU6rHVjym(w9G)K9uP(@T2(=_}dL+?3lAAkX$g`JHY-Zn}Z5G3TZUp3OU
zyT8u~{Wwz`Zj4y21bXu7;I8I|*30k5f1RRoTB4lGiGu&D=)rO-Nls
z>2*HT<{2N(ywv*9eHa29t10gypqBMT`}3c;Y5QPI5FB}qJmlsxveXs0D?%O`+H8xe
zDi#-8j{%C$)~WEq;ClRNm7~PCPN(>_b;rF=Mg3a=G&FO31`lf328V{9-fOd&PYu7P
zM)v+>lSML?;s%+2^r_Fo$)TP10MmKcm!#TY@x$ZK7zY{*nv{1dkDkRbA-@C=+sg(TGuDV_Og9G)cMKl1zbL6gY*V@-%A&bO3jb5Qz
zk*Bk|vf3$WQ>rrXc#18{Ho06Y37x23Mj~^lfx}y@v%g1&sEsw7&8<;y;1QObKPSb2
zykh=&oT?vR(2YK|Qr6cho;(dK7O$_%N_>!P3H`(qA`tqxk2mwNH<$i&0GhC;lrKde
zZH@|kwP1Le<>f;SFO8h^6`!(l>PP~qG$1Ru>oC|Q+Od*)%WKGE_ro#I6#28%SqOzG
zt)!`u-6?E?FJY61RPgNz|8xJBRnc7;-;1I93oGn6M#X};`FR;4;q|Jbh0=DL=A&s5
zl|;((AMGQ*TcOJJDKVT$)r*()!??g?*lI0v=cMYKI)RO7u~aW$b_$o>(L>|
zV;3xRD%=F(AKuS26Dt$fSILQ6K;T;0SkM;owT`4x&=i8n&z&sm(9XT0t;f}BPFcUK
z#Nizur*xYjZIxw`SPit@O4?)~HZ{b!xis7e+|RJYCnPOYTiOhAz34tHkRjZ329PpQ
zMl&@p?O)A;W=lNmx6wrV)iGg(WZ(DWhb5IYYCHyXV_QNah7r0R!iAyg;?IR&TK+p0
zySmiri1^$wEsb^eq3cp6lDlCtjUxhli0sR-t=rK2+!{ae>8shDjZnQxUg3Tef`W6z
z4{bK4N$%6igY|S=tJ|^hdn~!_fMh~|mz|hER`0}I$jKw}>9S6b?DFf@nCq>y%J{Ff
zRm6x}{E{55f*cYkB7&4_f3M+89vx=$WSJjQafmtJlc9Vc=HanHhUQXbJ|tn#4dp#J
zP%|4e;3Jh@oc7Cg+wTS&66PCJCS
z0Q83Lg(OZ4U-atymuaS5az`|R2go5CV_R4Yh((4o_55gJE+sS!C=5C`$zgt$C?hEw
zFenJT{4Vc(=@{Sl46BeAvQUR~!$I5Xk7Us?S++QCi_>$by~Z4}F4KS-wze-lK;U-f
z_kTU#pm1?o3~Tk&Rq-c^pddvgc6+lqUNYJ`$jAO;t)~n{zbIQ)-<{=f;u;4l>#LTY
zQJ_^y4cD}t9DU=@%X;#Xqd8(aV
zyLlIgjwHkPoxaD1hDgcHJyUzj*9r235Vr5KYc*^zcl=WR$f-{q&SW`bH)0u!hHD4T
zOxISzQ2AxI%3aN#*5N)SiqE|J&9=rAQOG#WfQcqoX5Obmh1vpAyiG<7lXN9OUo}c3
zX=mp+V@#h}Pu2p$71H|!h_kw_w~-g;AnCBwt|IT@G&f-Fk0`_t5W0;-UTCwgu+$@>
zax6`ihh!8)q^N0rHCeJP{N>Oi1fssC%Ruc2j%=%pyoT?FH5}ODNbZJYV>&zED1
    T;+!IeOilkblbsgRUF!O2`ny5K?U>7!ARoH~#Vxf;gjGyqSGUZ2
zR}5Ty`Au%Y!^}>J$-s~uw&B<$hOc-_aaLSTe^4#v+-DG3&%I6m%nSEyOzSoJ1Hu9z
z59cr`C7RwEymQe`K@uF0g0*venzW*y=DtuwLRyPI@##J~8v*s>fjs8^eh6HPNXeU+
zxCE@({WUJ`39rD3>qr@=ONYuF?_JYl=gTrj&Jz)y*|^{O$Ax7H3`Q_`3%sTLvaaHC
z_w|w)+heW{S2Lmj_$Y#96ubt0xNC##zG_{sr6Pr
zg7mVFs|9$kny{$
z5u*@#W|w@*;-9Nr%)1%8_S(DsZc9C`y9fGKe3QE6Mg87Is+!@7rjvS(E@W5zv%bQ-8twVQhhuRV%TNBk4Cb3rX*W955^jB
z;A3aDgi{OaHGq(E#bx1$+@Vt_QyvwHBzpfon_J~
zWa_XP;%h5uS9eTXBD)xT_tZVk5!|Gr2T9!4ek-r>UcZVKb_Gh#%$eRhM?_|FRq(_;
ziX(@fwKv^FubxDt{Aoy<#c*T)$X5B!9__K|-Y72QAq31H>y@p(sLmo7-5ky8I-~VW
zHu`vYot1?aQ!Hpp-AS{FP8ap|Uw+sBMq(;`OT=Ai557*wN}>|;@E~3^>AnK_g3fY=
zM@RULj#BlYUYw3WzBH>)Q0S{2XFeA+b*BkApPtrX$Jg=#_G5T(P7agug3()KigBG7
z3@A;O&LUPi^0wvBjTsQe08Zb-b}(}<*n^pyib2&N$It`|lApGal!u^ft4I9j_cz6X
z^92;!rOxSwee(Jmx97VVyMUKCC~$rGp0v0}8T}qi47={V7KO_J;p({>_$K}MdY?1(
zwOi<+0{fNBI0S=$r`gav5ktWg)p+c*!$yG0pk)uHBlUaV>1wMPK!z+wzO%|1zk|`>
zLrEsuEK_kr>BCTj#2Fg?@UO<-g6rvaaJUiWk&zIRkTm7D=0g9vCz!3C8-fr|_~n!k
zn@C*qK~9F>{IU7XYeP;Ca<~c}yBJ&i6QhTD(fK*MT}1LGYdI&mcYn$B`-GPU;s-Mb
z3VTA+cX{UK=Z*meQg--j#HOCrGCBt(BKHQbtW
z+@;+VoTq;^U=XxKZVBTa;=9$$&Uc*Eyj}ZfHT<<6mW-k0oUH0y@_8*za#}}U|GXF+
z7QHID%=J<%U}xlK=pqkEr4SafpivwVo}mh75{&AI2P`-TnSM=^c&kp{mL?k;o2~=e
zyL>o8-|fWT&LR4k{mF$vAoGzGC-b9Hb33gvR?Gf_9eOK`Y#D)2Yh}YsAK*TP+E?6mCuQSEU6qUv{PBzPY
zK9=|HZrJi?Gl4ZXnbxdYyvro-L+_E8)0xGbr7>q?gB}p{-+q6^^SBkzPh+NB>oi|>
zdkOIZtrDG!nXxEN_uMGIr%|i`;$K@`mrpH{#>i*F(!zbHDnIdvA9LocTAWzU5-U-3QNHw_UY)f{M=^xScV7fPr4IJa3F)Oe-&vmF9U8lCK
za*CQ9nAS%kXRvVk;fTy5C?SR-|6De$%=JvxSIo6<_wvluadH~vax~^c#dw3QuurbB
zeeJwlCW)&$pT2jhBYSO8SBmUbuQK-yV}ikOj{8Yg9v`ODqKzh?;<9V_!|8Bkk+~u;
zU}HEK$e1CHTitI3GRXs3TCR8OtX+hf(4w24gp_r(h@&44f50t?tPji33hW5Y!-5lj#%4|wKqo&uh07Qw_Dpd)OZ9ebm
zW_ocEWY*_j)$G3Lam-A5JAYrt8c-CQ4+>X`Y+mey*RS!apI*fqGhL
zn8(|4c=q;jyt!}htl!6$?cQ(`zHfZJLPVBICy!>xW>YwN-57afADo@BJjWhe$&nHI?Z|2pJLs7Xkb{Os=(64nmr3VDK_ZXt#6SjB1G}I*Ay1Z
zGC+J9wKCkB%BwQ4G9ot6WQSp+cRIxA!@0M)<7qy^aOM`5?LMK7Zt!{eF&uGmMCgbG
z04U}f^g-~aQ!cm8R?x?>x0$sv5<{jN){Cn|IIaGt$rPVR5_M8khfPrE3QUaj7)zi&
z6kMs++pREJH#4Lkj`@kC3r_ZH+UL+#m$TozEWDNp1YgwCwz~V3v8{ss{vt;79OxZp
z^Lg&+bH^mMUpw4I?W985u{=;p1#6fcP8Eg%#V^kB;L
zTpd@bzrx>*NA@Ou@dtz`UTNyFix7^4^8J*glkO5T4s?a`q>IAIL#Y0#_G_j
zz&Rh1Z=X%c72Ag%i>|;oYQD;&t8|Oj&nja(BV657g{EF`x1D&X2#7dnjDL5d7mP$g
z8s1I9?tjL4t;%`*PtZGXz4XZA{p!Wf@{J826fqFh)FSt>cpLoVg&_y=9>4Fm!A#ZD
zWIei`{1zd`T-&TTor2K5F;j?)sS9xM&WFka7|pSJ)x;i#76ISiY;A_-6?F~OqxHZu
zPkfNNW?Fb^rpodgzCwq7o8T
zj1=b#uhuKcx!bmF%d32I;eHG;{;UuZCPk_Qi~8d(LZGk|gj?#N^hBLMR(eQvp!=yW
zbJypbQP{|B%=@`5Pv-QY$;9d0*?wpqIM{8>2poyn9@}_6eGt+p(QW`KknW)
zY0I;GzPmY=Mt^1T-eqY@N8?|hzPIUhMAN~qRhxqFu8YpwSW0rJNrl4U;U=vcysp!F
zAj5`0^up4mXN-`(9z7F?Zy_r_?WH%v8T%VMdIb8}Kxd(;GeOgTaQql^
z#z(g9^AdQC7!Bivo^1uWvuht0h`M*H-Pldz*F3b%c>>1v<=%=RRfaxAEoJ+UnSEDrj0FUL`4R$}p>T3|f7L6w5+FB3
z52zg-W6>pocZ+l>L%IO-w0->ez7Cqf{M_^;C;MAyCI|9JY}pvN_>nfPySw%K^3Sc*
zz^AL;)*0Sxyl8d~N+UCmV~ZQrWkdsMuZZwliL
zc>J^Z<9jX?lqg^FPfsj-DM5eeBQseWvo{e2f^xCcEfJe%qip_i3zbmaasSI{T~D+-
z!U>|Y>FyFf?_x*k5gP$WRAx%~R$TrL-n?P6tU
z7{Z?{S|IL`lV73IMK1*A*1FL%HDRnxW`+Q1Y*oi*B<+*VSpazhb{~OEnqaOnGYdps
zLwGvT>amL^LqQ@Q19beuxjAl&VH>u3?#-~-A
zwV)mtO7Z(1G8`wf2Z?%e48OeGMUOyZxw?JGP#>zA*CVQXy>Pgqs7@G2#sb@2pq*Ik
z_FEd$mB#&F$>c4`PILY@6EI~7r3
zL(=-7zcZscP1rK3ct!#DHAod4h
zyTXnR{cN8{E47fP@bUfSy=yj?XT&Tf46TwaO`Q9}R1j8bil?E4h$fQ+whWr=y;e(c
zu5og`b03#6y#NIdIaA47746*+8wMz_8EfXxrzoi76~ovq7!{0WZR#+pT-5OTa|twj
z-c`IywvR#6{qcb$3l~lfmXeP!AI9_6h+EteWte95)?t&tc~u3_=zGev{(j~X?~oZ
zK#G{j?bge1&RoAy;#0#F?~?lmfzLIRP4;{E#G<&RX-Yga`EwH=F`TKSvna#=%@4Hj
znxX#ix~4+BM-fWeY&R*~Zb)HD9V^0_=Ag$7$L)G3NgWE_*l^HY_%k{dtp(Au2WiL%
zhiWVG&_pto7UaqZv66KtWAtNe1e(eU9R+xBiK6}28KX!!jP}To4kq*meVg_N|IzCA
zn~w(`t~@HJxikrL+ZFUNbluGs9yM$Ov6o^;R2xSlEUw7_d4`;aunEC4c%8x`(-hCBK&DDar6i;VDj#!I2ajmW7+l
z&dmI)Wp_RAe9jg?L&J*RG8-04%1j|C7UW0)(jO)Yr*R7D!u+3`5rMIV^HVZNQG!A#
zAB?L-lRg-^2z)pj!KET`(F%lYVqP49)1z^tFq|
zqk|`&t~Kg~Q468Qf*ru&l%Bv%F3eEHM-a)}-QD$qE~W&6*|{v*fHe541Q~|SHhd`@
zVAUMJs#n!mI5{NX!amK+d_q!Y=b{_vvLa})rAGb`p%%1=OWNHvd`WTkJH*QesNU#G
zU7^Pt{xg;sprH(!;Z08}V$vUqIyB)-ip98;2gZHBzUcwk{(|*zs{ag>eDeB_6H!eH
znVn!geXf)UQCdGeZexjH3Gp2_q(OB0JwyMVHekOia~st;$A0%nF~P_mO;9N<{UcF$
zJven7DJw#VlQ;hPiy(x)m6c0ndbCjavBg{JA
z-Hhl+L~DK9V_)ZvFpfq+<0x&wJPob@2}k;&b33Dek_RyiB~|jCkfmZ%MFw@(XDmdqkW-D-2V*P;tdH~-9Ua}63N5<_-y)!n(zo9-c(!er>oFsRj
zg#~$lv`CCJ9MlxYMbq$Y@Cm
zH;b-);C#bA(kDCABVvIbxE38FxcbmlF-)D}fFWQTIIJBgtbhT&vXXg+0FS;I5D&vq
ziQO`e_S@{E&z0e5qMZoc?@Kc`N{QC&j#C-^F{aBXmL5w3iBfIVX+}^FM|P?Cl~aem59bo5y{}-hfoXLn-Rv560?JlK
zCh+DMnBf#O9UdGoA?U)Y0ouBocHkw|NG8dCWP+tUY2!}|Sp}&ieboPU42A&gAfLRL
z9ts?F+wvIk9uB@doD@vyFy;VG;mX`dBARo$v3}XA?LVJfGzAv~Tp1c*k4VE~w8suu
z{@v5?tE=rlslbSVq{LqshBe#;v8t&0!uLnQr!ljmY<
z4&{>_2hbFOrTzV24GLm{aVh)FPDOISTBJ)7Zv1Jk#$a3{D(a9BKW^|Y8@P7SUzg}t
zDS<`axBsd!;1Ce9bZ3MHbG0Op_2U!wNl{i#YTzsd_|yCSGhNETY)5rwBlqF8wg0i5
z_%;am_v0hC0DhTBxFp~saEnev)u4rykVPl^8O95$EVO&PWA*`@M
z{GlFT{1^)2LBG@|R*_zKVybu6u0c_$%O`{;hIhzWXkxlrT4l`3{(XWkhlKxerD6~u
zW~^*&M%^L>b}Qim2m$zJ@wFkQo@ne062OK_i7B=g1iQtPJ7(sxR0^k*b7Gl%`U_vT
z*KxBH7CX+6$&z6l%?Z4TP@*@i5r?>s0MxErx>|?!TV&HSCk?QUa8gnjbLTQA_$G!j
zLKd2V)Ji=vDfDVqzS8-0=HE<5=~7jQK_fC?!MToZ{V&UKzS|F5S
zx4E+TKF1_wj6k-jAB{dayYir4V+kX_hL=I))y_8PpUv3>_9v=GyF(LW*SMq&Se($A
zh9fPa3Xtshe1DUxc+O{X$UxnK2Oir>&q|##p9A0!K+ycJi{+_sxE4Nq!!z5R>qOdZTg;q$TloM;IK9cGe
z_Nbo7<^5U$aZX49**1LWvSG^D!@&SWNQ~6IO<*DSmGYNtL-Y1I51&@>7{7E)3gav9GsPKT
ze!z=_;5H|E?2zVc2fdcs+AewaR_C(!00}JV_}~!!LEFf#8bV2rrl4-DN3m%-tocDW
zR7bH5p=OMp3C8tsf*3S*nfd`yrjEygA(jIhpD?;&MnhkXlMm^dj5k+e@F-
zeldu;fi-sjQHQp+fmdmO;)jyTX&liCQ-*wUAj-U-wn3bbbS>qd(Z=@N>BJM}6T5)_
z1u58}JV4zb5W+rWZv~$?0dQ#znKmXV^kRY<^vd``KJw9tTEF_8`k#3pZvQxOYoQ72
z!drXKJclnBTH?APaI5`ktgMV=f@TN4Xh}fq0cutr1t#|a000m30pgJki<-vRo4!V3
zO2wI^B&orRd#%?AdOxcGabWY8ndj1%tU|NzGzY9=o*|6IT}fZ_--%NuOg3pV^Jd2W
z0>I;_XqZpXu7`iSRrR>~Pz}}TC-t~~?W(8epa_S)>R0d&Y#`5n;#LdCf{GtWrrTb$
zCHcDN-=y91F$e?-45avvF==&n{gz&>o4*Zr-RU^crYj~yp7T){j!E#OW&)0>Os}O7
zo?C8sE-XLQ-{pAjqOuVc2s%G4T5}aNE1D-^fE?k{{5R-V7lD%Z;r9b%6jYtX6^zxwWYs+`(xyB@)z!OQDx_~*D$#V%&jRWoOxEL5xW
zt%*~0=AUYO_j?tfp{_^_2!;b=;RK;5fiRwpHJayRR;0xkRT!0_+n7G^QfZpB(a>Q3
zPA!H2?r!K+B&2umkJe%m&G=|+3BLxh2ITr&>T6)E)lV!%923R;PXKZ-pOnv7{8OCr
zcGFVFSMsO3ksb2CL7)z%x(OVa0eekSpi5J6aBv#egiMt1A9qNsQC<0~tFC(GCW-5^
z&jNV&^4vLa!f;_9EZ_Gt!O##e9H>%hXeKd>uILB4HME5yh)72M2U2rvrq>()I!`re
zD6H8X2ZgEYqIKDYC9
zLUFwk6sW4&HsToEYNu_A1BAvf+!66Ur
z^>-MOc%;SB%ovzTnodt(akw>T|KsvCEWt=l0RSbhwYXx$^thTeog&DH0}C_xOId!$
z)B}gns!ffXy!6WmYFr!d;%F1u>JYh-mZ3UTj08h?3t$M^__=5Nx&CNZup1N>H^g5O@>-}g71J$rX&pLu5HnLVh~(a5B5hLX5B+CwB2fa|X~
zpebvT7B0uSZ3saLaHMu3O**0T8%y=B^?yu0xxcNp=HwI$X00dGKny(ZY*K%UJ~OdH
zq%4Kn2ycfZ%Y{77o4EIm3-e@pP3I3ch?8tpf~Qc=rwPC9AIdUO({VK@6Tb|+Rf52D
z6dw$jcj9Xo8Xbd@ui}|C0HeRn0CAgxsX}d;aD`vK=8qmvZY86b~0@u
zY|Bp^k%&0RZW5rfXNuO)(^OI*!Oc^fb9Y0Q5B$>=8g&>Bk_3;02-Bbkn-$C!m?Pja
zs`Qz|m2zYh-J%3-4uC|A?h?#HDBQ4aH|N{f>Tehb}D9>dDy?tU^>}OU#m#RRC5dmF+VA~T3K9%)HGa)P*$M-MN~Q&zAq(^32|O@0$k%!c
zuPyCQnehH|VuD3zoe4oRQ|xTpgE$t{;3$?amwpyML^OoYmcmW9D+&9H#8V@rSD~NuU*eVj+hW1Fv3p>im5r5~
zIcg(`_t9|h_L#PxM`j8u$BV?lb>oS_frtM_LH;)iYfTha!%p%yFppqKIl$fCgQS0U
zAx^Rkdyas>mL=pUA`(G1UaJd|g7s=}Z>$jGAV1~W%D`1_u#Oy@DdbrKbSxtLx->kN
zL*5~Sa^Pn5(ZcUd6fyr4HL{ijWou}UhEvPnF3Sm43(mf;YTN^)79(t$@&UgQbkwN{u^?2npz`ga_dGz=mxbw(b!aN}&qoEQ!$m?SfQY^W~rhFyzQeJ`ET`B`x3Y*7+Qw)t*
zGBG`!-`uxoumkT`F=|~_4lQg_QP=7fLb@b|EPf%=B>P(Pxt|JlK(ylU_#DielehZr-1_iXW|WXPZRcWJ%rWc*(9%~LMQ8PqyNR#wTsU&6#24Z_q1
z@1Hjq$z%8TB(Jf8pDPi{1X41^Px&3A!wT}PzZTi!Y6zwRBC*Q*we2)MyqRUI^@`-tTx1>nIe#EkD9sj
z^r~O+4h{~!M5U+$WlYxLNX7(GPBPqGki-5$d;uLQ-${xN#2B%6g1<5{h+sJYRK+p|
z0|z^{6U5x(O!#o`LOQiK$npr{(<-*J?9|@0A9m?GAt{O_yL(8~KKcS;icyKmRGBIM
zfaf$tZ*PU+NSzidTO@Er-Efc?v&HKCVIbpo+FFrDrA9+E>FlsBh0AXS-8FL?v?vLD
zDySW9Rwd<(s-tl4Fb4>E#6-DJsl%2Pa|o2<6yY^6gg+^Hro?Q*e~N^8Q%``p13*yA
zRT-K$%1!|#3tJC)-_&RCQP;?Rs0MLYm&;M2P^=9s_`6ElPOHS7|bnA1r@^@Sly
zt%fvZW{XuiqK>H4Q24~BLiOD*wmdH(M}OoPA2B-=q}W+`ETu;GtZhdg{Glwve_$ZF
zn+f(Chex7VqMC`u;fyd1gfhIYdY38npdp0|DGcEIVzUi&qx4h2Iv_@!b7LB3;+hG@
z-nwOzOe_mn26)upERZ4?ja+h>H`{x)ubKoI0T@9=XPIVMV%o)4NkZ+gs@f`lRf4-3
zbr_m}%Vh=m{)D!?++XCK5RCn){9ntPr5FiZ{Q>Joo)oyYy9|$q_B*vyz$_=}5lHgZ
zeVn6>#Xohx`%U0y8^1TN~Jc(<9{X+{X-7KI^E$ZU@4bjZ#A(t*&chw&>GZ
z9UChZ6(8NAi~@K2W!v(1fH56cq@Q4vpi?#U=eSjrP@iY%=Jzm=ACOW&cT9JXj?E$l
z@w`oLOujd0Ap*%i^Zg7fqyW*FiTf~|HN3MI8)HAOubO?H9$mX{JUo~`#~5r7eEG_!
z2KrVm*+O~C_zr5z{0;1`J_aww$5@)Q=!vumsr#1a-8KIv(b)Ha!#Gz6DEG;UL$zENx
zhCsCcl9+V#28%!A68{-`ZUn+7?+LZlbfuSVFGf>1Ua%K90)m-X0*}?~x+!k&>Z<21
zXxE&!-HY?HzOd}c#q7Cm#ji1!t}}kvYto2`!vgAhs&g=;qf}vXLJoskGg3`4N)Q?S
znbsC2QK}!Le4=n0!yf8vV#3|lof->9mstAa>sb8}0vZ24iZr)>F|A7EF_u7qO5|}0
zTZ%^7S?>GWiww{iSuIG;yQ(~pk9l`e!QA)%b;>*>YD`xOJZA{gm-czxN6FXlcNX`dx0vw?DLrJJJPTYF329S82hNtdGHS;pvSok^
zdBBK$ZdeQNpAK039vi`k-97x>Rcr0%Gm1A!3aE{gkX^O>lSG>{FJfk%>8EjVZn(oK
zX<3kzlrgCUBN*D2(9H7R+}zAB+4@2B8Vgq({^V!=s;*@2v0mLkChX&UA#NYG^J1SM
z?ll<`=J>9J-V;xeFq{)X|6b+5B{$=zPhP&M@>Al9WJ}u%M|vaAF0f{a!4;`SE&|Ak
zl;$%#GLUB^!#peF>5wjmq9So2ftnsAB`qQg2cw9UN>+ByP;J@QZDi#dm%tUA*_7QRMbBrt_VQxa9e
z?(9rNp`j5PZbiT7!k{Rf8;sMfV@8qh$3WU$G3Dolf(1K|n8`T$u!uYAlMy22t|(wQ
z&V4V9bf-b4Gz@3w1%X2@VMIiVie*Ke+K>hpXFDkLiGRi}XX1GE1_c>j+~=EivvH4^
zIB{emNwC?c^zkp#*S{Yi{ac7TQV{d&o$%4&F$F1luw5q`N}AA_HaC_|1K9$0y3
zLowtO5OEJKpsE7IU{4Ms%FD}-LZ)3LMjyuh6`ksRfc>0HwcODn=5GF+zhd9`dA4S~
zI~*U7PNDEU&By5`B*)ZW?-qKXUhr7Ajo4<2XQ2s&>#lRtpc{#x!RCAu1Y*v$;C&4l
z+Kl5^Jo$5rmm__Vq4dDfm!@E1h}U4w^$lmkm%)*i?nTpK
zev!v4?Emzn9%8Y;6nrJW&ah)~1eJsia1rfHxp=w<+CjiVgdtu{xdv+KI1QMpPS!$S
zGR({_+PCE!zP0)j0&3D$M7ao+FVHE*pkF4gilllHb0_Z^)sDkiY>rV2qsUM;1W-F_
z;#9`QKVF=!cwKu~JtRv_kAU5xP6-;;pxc+I{reoBu)Xa2SI{7{{N28Ta1SQ+1#Wj7
z1v$FK*f^Q6QGtz(DbaIdgSzPaSb6`1|0GN>Sf3VIQxOX1RNd`j%73s6=9x(K#^2v7
zzBuYE+q?QHE+i$D(&i|p_7B?c-@mPZbU2R7jl>h3mbe%cVYoSY2@+pL?%eiAV!@P`
z>w$`zL}72+@|F;dZ8Iomws~<;+Qz+NF|6k>pGx-w5CFNDHHlrO0xbrw11ZGZvLC|T
zrX0o`0tOE$r<;AR(>Y$(pMxpqrw%2cNT*L*4)_@jyOnM$T*&0
z=0vW%KgK*!reED{QjME6Ra_%TqBIjookqN4-4jwBl@)o4qB*c^#myjQN>QvZ60d`WOW=1#TBO+G_}h!Bg%`qJ&}aQk0m6e`$3ZTeUza$Z=e$e$
z=G)YsNmp5b;Zs*Gzo`_hA8dDd0JScSib4oXNijfr2C1e4Q?+UZ2P`t!v6
zK?#@Yyj}F&s&mGZ^YmxWjy&qBMX1WL!+%_mCY*#|4^AggkJH@@_#toevv0jA$_qzW
zmdnbOx^_!37XZ8jRS|QR6WtQsf#xl>MI<%}$Xpvedfb#kgclUawy*Ci2(DmXb{E@J&+jcG1?VrELQqc$~gIUb;+
z6rQq?QO?&~t#3|uB{K)r@%rT|*Hc~*q#s3xx59}{6YtNv-rGhZNc6P3CoApp(flfJ2#!unYe9gZI+Prfl+sG3VsJ+1DU3FuApALlMODT^)@>rg6Nmil~MQ
znwm5>-za{No(cItUYTt$eJV^GdX2!I8t9p;Z?o0^i+|ksZ2~4d
z`=ZS@!|tZ0-$u97*o4x-m?VtDp|%?G^YK**YA(WH?{MW(9g;lvg*-bpI~=
z=OKV4;gE_%>>0guj&06-z9{0o9kyY``C6d7Ce_m$8^<-J%N6IM(R;HD-)*2Ixga#?
z+BBUbZOC9<6Xe{&m=L*;U{dF*m5z+J;+qs2i=tejcD3k|kw_MC!JZZDV+--mOhvvp
z{^l~v4&n5Goc-q2SXv=_Yy{n`^R8|*VHG(B#xm}U9JQBZb?TqW{@C&to${P<{(
zWLy>8(Z1Qm`?@YKMH&}S|1dfH3}`8n$%S&!7oFt!u4hM?fMYfeU&12^aFy
zb74n^6KlcQMlur0WcIL^?-SH$kw=D1>?L~xXH>er1)nuPNK4O`qX|0Yg!#tucZ-nA
z`gOd)CjUvgLpiwl!uxdgPIg^~a3zkE3Yc;-rUm+Jt`?M5JimULMG^%i2Dwpi_(}g6
zUR?&1dMMy;MZoS$BmBqqH<7k>>KErS2$R}diD1gvFpx_Wnh@^K^6xm4N`&SucH>Lre|5;*AH1A=ghN
z2)0R4ew_*hjsk+BbYc$(+?)hGzTYvr2iM6THj!4vvM5pQAWIE8c#apF?9X0}u*q~=
z+wHKiscs6}dxc4GBT>l0xR8Y_!3aTsEWYQO#a#q1Pk0=|@o`I6sqSBX(6D~hbMf}Q
zZBl3y<2aRJqPai?T5Rw@p?$peU~r9ypv{hM)!(&UVHDLqvlDKa)n6mUX!y>7IA7yi
z!p*ekzn)SZGVQ?J&cb%i=AW{UZEe+p3zDjnY_T^vlby(B3Nu$E2rt%Q&J6VJh^CMa
zj^B0s?nx_RSDqo5SdcCQY>(#Yi2oO>)A8Y9{0lKfTig%G8hTr0gVgNYGB6QTMH8^HPPcaf
zd^WvYl&>#@&mx=JVziCmsJHlpqJ
z`>*H8O9?l^JGW>FYTq&X-3qP+(mbsU4LhxD<)$ad7Iit;DmcFVaLJ}W*y6niKgl2%
z*CC{IDTO&=a<#W_dqf|8d8?_C;+pOb)uN%3m6B6|iDO%Op
z>&MNBVNTHf8So)L0UfaJewth%rrWSAYIfrq7e3^+v)bb5S0N
zH+w-1QjcsHIy@F@oU*hs2lU}!2Y&BkOUqdCdvS;R%n&oYqmU=zl`n>2N(Rvra%@bk
zJbfN%>|Bb}zP~qq=ps^ZFzmybP$$!}2n{=XZ00@6#!=LFuT%Smp=hUxSIItSxJ^acd5
zT|$jUixP_ZA3>sdJ{z-DNqY8Ei;(5b-^T}-YAP?79iCoTg%xP>Rc508e5x1OQ@F<=
z9u8k`qI&g`n8;45j#DI;0mfcXxsZ6nX}AuSl%i|j<8KrquvlW6B_`X3iR1gsi|{hI
z=AC9_VBa)29;o9`yY0Pr+T{v+O3{g8Wv!a5utZZuk~53wp+PgZXer4;ug!Z_vWIkoa^(E9fbNx4>a{0Lmu)
ztPx88I4)$mCm$9A-P`UziF=
z!qVYHMm@qD-QPpjeKy~UvW_7pB1MU{J8Sd?erlb(HA1m|r`5-P6=gW`-MPq^qOZol8~N6oAsJ7rv^{rynLsv>SM~x$=@_WHs{JLv!fWYNIK;
z61;>;Kc8oFX%mwc3p#g6r=T+T=kRNnf4_+$#uA_nDl#MDc0ka}t)1Y~*vfx*asO!!RtZOTp<=z=WbVKa1r<3i$;0$E`#_x688
zLiahH*4*l16%NGL0^GC03{xtuD7`>}M>Xl`uEE?0Kq{!-L!sym5_n(uomg%5A(n8m
zEc`8(r|G}(tdt4}38IDikekT=vxAe5U8*bzLnH{W-3B3s6~JuKo$EWGfMPP)CLLTU
z)fx&07XeT6q{HR|YA2ZSv-Wn+>6!2$*-~dXvd;3$i92%t9!8~(xsj|beEWeO_~|y)
zuC?kN{k2x--7Mw*{;W}n^^-JP{@IbD{){jo3dmq(Y;^ftpZ>E@YUofuD$;7dq9J1?
zkeSuE+WD;Mi1{@z{P)+e_NR7m;i`FO5ntR}3vx<~*#s1V>5ss5P`(T>s_+kVkbsI6
zqJ-D!sR$E&@}3hwSP0o_lt6>mC!T*qGYkhMH2bx=illSXyUh{|VbwVcj*?^&1pV~ZmX^yG
zpd<-2v)$QBX_yQgolTdFx=NosbeX3*F>(GVqp5l1pyirbnG3SaC(hllPC>Cl-
z&GZ)N`)hl*(;ru^)r&U*tE75ptrGQ?V2|KEeVpAf>GBRo73&+l-bAJT(n~}*Ot7$g
zc5ct?dsQa8zKtPYu|CDQNVq%vSmI663i&SF^4-fa)jTbnUdU{LX8%Bo>
zB@q2FD_v!CfTPtguh#dj3@aa>>FfI%anw9F{p>oEuJn3P;{+jtlAd11*P&~lE6#F&
zdNxy}4|1qnPaWRCsIZPx_?a*ScF9)%_dvoCsf@br?ho}qx&O2z3zz_DGM4Z{4wMNUxb-#mLkB6J337#2I
z+Jl+=15k>sH|+g9%hdWQ9oR)LMG@1|Htf176ef@lz>%VvUs#~?^78T+BGglGcCP&(
z=pF(xoQUe5iqm20I1M1+#qnAzXd^E>{r5l-yh#_COMCDjC`B!ON5OKoP@Z>w6lFe|
z-*#9AJn^myM!r$QDPS5lpM~#g^K=OWkZim_=`MeRp+?xnOGbHkusJX5EN=u{Pc`{n
z+e|Ox>V;-gv~98LWC!`|92cxz1X9hbfAc%VY|S1Z^!!|=din)dFW8WRuZxC~>mw?X3A_ZmNpTE<
z^JZ^uJppV2C5SWP_ca0A7_Sq7i^zzTG!7m#?3tUTYGtGcng(1$pwMr4Sz8Z;*5R-N
zz&rp*PkF3xr#F6iD5;70x_+*SCAuaI*%Ia;Xj!25F&a
z1q^xwTC>c|IDp-(E-&kki&g%MwzQfQ{}e`2CRbIl^d^Hx1Y`WJ_YJPv8DHgn+`AAl
zu~`$j=;oQ53$dho+*nzuBugma1|`gtTBEkBFh=HyXne+RjU$v=UV>191&!HCd@rn3
zla|F1gO7GePV4PS^$cJlK=%LQa0hM&o91aay$enxP7o(eA()jREQK?^(xid!d9CFh
z&#m?APFCc{X014?8dbMD`1sR@dM5BVG@O8t@W@NTjqQm$N@1k1`DX9i*0X){uGM&f
zuS_sclA@@I-rWjHqa`&t>f<1Dvvl%Sy35G?#vKTkzk#pdrgwLX_BO$OAH4S=-cw;e
z9Pj$x-&KLlMkp68OQtFG%IV*~F*3u&sZ+lFp`kOK9>uJmRppqLw=>g%M<0)GKa(dG
zU=4#cI-0|8wFb>{n_qnoXQ}T--u;n(+f{5*a80jBukOzZszFCJ@4;SVC)X{V=V`+v
zyfC<2lm#zOtoR<=b-VfQ_3`m>2`H;nzI>&nl@f5jwz-cl?ex^a1%Tx%((I5B_UHuw
z)d&&sFc(3mJKNE9kO!_;>HD1~dI`l>B=pWK|KzPMb&C1#5wFT#Q)UjJC)+4Ij#d}V
zgaz_Ak#LsDRv2C23RCwJ`bM@uX(`!-XNDmm)5t~Grrq%@2{(fn9N*Jm9x$;zeB-3P
zkNx$-v0mD9G9!+Bzx`+8XwY<~nieuFtfZ?Fk;A)sjT?rF?^U3f2*^2ltA+U0DDBlw
zECPMvSm!w1wr0mfR8w01gsb%fJu%>zD`yrLp`o>u#z|?2S$%*B+fCcLCS0
zlS7QHa4ju^=j*1@BI>g%IP^+n(%ErbFqlv%l4v{cILOoLM8ZdA2Hgi;L92#IxG~&Q
z5|Xy?s`dhQKJS5ma@_~;5!mcyz^A7;RWy)*rX9PWO!tuCZ&V>@F>u0+AQRCckNVHo
zDe{7Up+BB2E#9S9y&C`Mv{^a^Y(r|c
z22h@-j*lx%Q2y7&TRue4t~7g>FLU;#Vn?Fk@qawrYQbRa@!`H>
zR0a**abM2eOeGl9#m!a!;i1VtJWPd68O?Son-3OUOi<>pu}7n;v$DoLRC!wb`**N_
z_P{L2W2J|{98eq4zkN195`jR?TdqvYK~pV2O{Q3`0!j3LQ^bP+51TH^zk@NI{}SZ+
z(t}B}xR9b5KeP2!l+B*>m|l3F<&)Kj6LIswRAzpDegS)UdN9`k$bz!UW~ljJm`NLV
zGxslE!(goN{oTatN6o6Ls`mEi8Y%}zeBtLIY~CEbzi5clRos?Ld<=+?6GVks+r02@
zLqN%YWh#o=9znk?h@Ku$)9p;ENC_Y9fndtlIMg5Mm
zt6ZP2+wl0x63#U+f28Vo!XjylDa+#CIgkbkN5~IbR-%G_1$tu*J2nQ#fOVa(+z9M8p{7Yz@|IZ;pOe^
z;jTEiNk({XSnah-+NC*bKmI_kL16iPoVET?x*)6_j;Gmkpuk8bgYV{@)5^2>{O5mv
zjTj>q#j)0R&nJ((z391ZZ>KXaK$c^xiRzJy2d&XG4xsPgOO5}}({0vlK}ysRK&gfv
z1T$YMg>lj~4ggKu77gN5LzEJyynNJ#Bo=IKhHFnw4S}!z1$?z4;Yf(AqmdEW>&37T
zDkZyxLQ3z9_CUH8CKi^a)5euX#^@(4^@EuqjQ=`&!~cOJQ3Z6YKqP52gve7NV5$Ns
zSEH`OZ+V+;tiMV~cse9mCa8}YmQ!Bu{!$03t)-R8_*;PE0E|f(La+9Y!MJg&t`@S3
z05%(3urGU79VOg0M4&z!9wYp1o;jM!ELiD74B>PtQ?h-2Em0=5+mvPG8k=HMgU1>@
zHM8b5KWR&Mwc-JDxmNKGReQ(;3BnHVY;JRv$Us8UoA&+2U<2Ch!bB@cO9Bgdf(yfn
z?HH}uBfIfOtg~}#!jVBjm^WuM-#f)Yx0WNRAU-s{UjF(Su$8z_QoZf_oe4RtSCS+2
znG%XP)DhAEoIb#J;_Le4u5f8$*id(bCx(EO$7B$x9ze#X)!Y#FaLyXF=Nj%c;FAXc
zJp|!dZ4UG~8J`RD%SEQG#iPM!gL5pY9`5^gp|YS57Y9!5mC79naIfNlLrN<0+Lik3
z@F2jCQs9@$F3iJ%-w0liQHXMY2bo)(%Qc$u(L2>KC$#9#jFvmV3re_`(}^9m2Y%n2
z>{Y*hV8O5*A|N8leiNu@)v)0UXopfBhE$pGQ?y2en3Gk*wh^$jsvQ42|BfKMGImRD
zf_AdGf|eY>`ssZ(y!0kVEW#uMG7UUQ=k-041|~fv73kXcGM16T`OZv>br}gDpEb+>
zk)5Jc91Bh{r4l1w1W@8V8PFTq>>P2z}qxfS{}f&e3ym?PnC
z`IIDUL?r{eh+cP>tPQnOf8cJKCW{Wwbc@FO311CRT&tP;B!sZ*VzO$}V+%7S2ra8<
zhU?1`s!)BYF~Gm_j++cUpwf*5KZePsnRq3aHhQ?K!-8icVDMHN$;ny;4k`C2
zMZSx#N)QM1=n(c3ZtKtJphml0lel%qEndFIMZOH?drv4RbQSU$Y0~P)wx~e!&oGrC
z;2U1}8BfpPl6|R*AIyYD7jCXd;Hm(0wg}(I(q>{;I~R>7;oZ8oJ!P{A4RZYJew7ah
zxopvd`iq6TU(E2ZDh!@!fsRF`qH`E(^iLzWXBT|>l3N*rz~gBGuz^y#Ue)4@d1@Af
z_-nD{lqs)&9zHjPuGb;cVbqkvmmWDbHPBnr$6c^P)exX_NFWonH*^YFo1EjLP8f#Mpdt7iDRzV0|$v7F@GkqCsD})GjVV3
z%NKBuUF)Z~XG*-D(l(vM%WX3q?4A-5IqoE0T?ITMe`Z#MEYb>^;k#Y0;SsaY7b?(s
zQrpP*1Pcq44+-JvxsYKbBUp;ah{BS3)sL-{qiSUG1;sR6wT-uC@Klb#$R9Dm`cFdL
zcz91a%bS#DH+*;Fjm@~}D>Oi`*dQV=nV}zNt^yncI*KY<77>pTx#f{c=8?rL`H(2i
zvqs^#PQR%sqS+6*w7O<{-pZyyR9eBS+U~ISBBsL^xL%+&Z5RlvEr=TyU+6mS=pRH(
zLgECMtSLc@S5~Ps_0ce=Wit}*2H1woBO-YWp2H|rhtG1w`wRq-bPWJMG4&xhc(^=8
z%(}rgU*0B}2w!I&QA#f8w=7OfX9~@@iSx|F>R$%NiK?;oJFy)cD9{mHP*%eb$pEw;
z`%42S(+y(n`L(qPSw=;KjZFPmgGsEcj&aAboB>pX>r5|_mL?H1c}@Y6lRr$HId}4-
z+7~0by^nTV(lo(_1bme=KS^8o3ky7l(-8Cr&sUlwt5uUDvTAK?z;Ef~;2!K3waH_J
zpsdpsO+gOICSKD)F>yR~y$+thCZiq;+gI3hmfs
z9s#Se>H*ZyU+987*u^fmb2d}z%STkv$iy0XZ+{v9uHhF=hgTs3Fdv{ugZ)fU#Wi-A8zH2bjixZ<-gm4TV(?>EKL
z&cm4Dx!B1HvspZzl*5CePsK;W8O8$hU)n7!goUvC0W~!C4nHk?vhn1k16>u5`Ty^5
z%#PUD7%sBSKB7>h3?AFQ#nh8{LdbzHZb+Er?fFK!cSMSYves-;6v>w=4%m$
z`dIsX7Hl^7VggqCjU?t~l+D=1YG?D?d}d{d``*gQN*36_q6dQwwF+^^Ctz^bJmp^>
z6Z+%krZONHHv^uFxEfbRbUHl=G56W6toPBRrCgkuQ5`;o9N5{(eGWXl0Iu!*99LbM
zeIRI0lBkW&{;bHyi$sw{^vU7|7M2sCT4F|}Wv;l`^ZUC9Ysd!|VhhKuUhqk*BYBe;
z14ocPGkLetnMSKjN3f8I&Xf4u9ENur{UVnC3)R8(*Kj-mS)2Q#Uv`qZc}+QG-ZP@|1pIv9FR%UULKY
zIolNKa0b`BCI0;BOTmE8e`P$_jy-TM7h5cyPk_
zHl2nnz}%J{c-rPf58FF+WO9yp=jjt={9W!uJUCsIke40q);(t~$Ec_a(q&XDqyD)!
zWy0f+M&*kr!KF3mj+Q$CvsqDIB+sv%VPpO8D0f2IsS?MVV{I^l@pAhVJ`8nT^j7EO
z8VBC(UG*b8rF)?H{50@8!t|TuhJti$SmNPyT4S~pJp!p3?|`!0$%|%eNX1qvt@=4S
z4v*)XI8M&@WVXap-N@};@nKz@PjG!;=_2wDfq(lSN
zvWu%#b2>-h)#I=CfA!yOYB)o<34PhFjp_L-sLA42Gxa4HGWsKJm`-+`N}AN5gR_9Gc0MVnC>(cz#PegAi_zeHzaf1O!!
zST!b-DuZxi21lPk3A&*=RFmtw
z`!%kaVlxo}q+B5?L$iGxjKkx%2O^t_S#=f9cnI2qJSdsDm)|Hb?ML-UPE~;Bstuvo
zZOq)EUje;uG)OFG|G8X^;ObeMpVLOUVgkASQG{|NP)69Y7b$13WM(z1>^lbG#0cSW
zR1gx55G;5uG9P|;Qm4WMnDw$?G;oq^vuO(Z>xnCBWTC@Tmcy6aI+J#j?Ol>vRUW?d
zKyIrK=O7CbA~4GlLdc(4qK@$pQ2)S0?nciXmvxptcCI3!G8i{Fc@lz)yw7?4p_nxr
z9iU+t1tKRG?o&GoR+aBfX;7LI4_iAHyMvO#37gzcBOs8-L6>B*U4Y}7`K!|}z%
z#WBwru@Sa@I+kP{t?$TsxgpbI3l)N>5hmt}$_kt|GFZrGX9PuOJo{qR|$@V&c?O7dwGtu?L&^U+^_3ZV$>>TT)+Cw1YQ{
zAKYYDCq-XZWqK{+@*F(*vX)RZ9oGPal4Hokgr)(PvOTP}gNb)*R#krld-p#I~rUY|vQSffANGINaa
z1{#vdJl6~3v~M2dqP~e-$TBDqR5s`s@E*Bw&Y4{7vLqytF*b$5b9(1?`Kc%q_OS02JCJX!1{LS9q
z{GKk9gxz+$C!%_#3m#ju9veg2JL)SN^koRd7w{96ILkr`2U{T>ikw7eYpMe>_*?PC7lKL-xBw(>89
zbQvsqp;AmwKQbrIs+x4q9d=77rB~uaQranXPje5)T(!u{
z%QL*CQA)__QA&)UOKwt-TALr-@=$~r%`F5{3~4CE6k_g;a-HzyOjTuYybjbFrOOT+
zQ4adGmN?nSj=M|WTAgjLMOC=_Jf-vQYM0aU#nf;)E&98UVmAEHF!t21rJo0>1fosl
zxw4ZtgmjQQ4zHz$jDOQ{4T~(46}%+xIL%nOI(TpL6p!9%x9OB4@DhVZ+=D*+#OA!}KJNblr2Jf2RG~Qb;e;*c4
zKi*#sIypKzI?G3Id*QCpw=!pDT|PEQFVU)wEv1Ie%;m_Cg}TQUr_bBCVk#Du+w
zd77&4gEU;oQtAC{b4>6!yVOcvom+tN(xd9cfA?~b>RJTL6_3lrVrCnBcoI+eD|>Cc
zH~(kEHud2W^kB`@lJ=jhiLoaU{9rk$O$1=F6^N1lC~nmJZY6L!IGvBz8pBrL)nFHr5{N*gRX7|^IZQU$
zh`VDKauJH?gL~{_+WCBQ6zY5aMsZx2ZrFoSH7+JB0YhnJI$^$b`tiN8B5sr(+zbhN
zDAc_}L2WIjFVu^_m-6?ATed=0wuqwjKfbb_7wodZsi3xyW2ZT^nzmfluc3@a;k@AW
zV34*jZ073vDmWFFxhJ1@!Gg(EvvZ*!c&!o!xW|D*BKU_P(X>
zolzS!5y~FR&@zQXJLWxAh17O2K|#(nT8*Y_+%7zKh|3G53;4R~%Nvr^ZX70N{rSar
zB6#!5r8a*yKPOZC;dlAkeIz6m6SaZ2Mz9P{oJLXIN%7vuMqFdj!r9SLrQ&l*ZoT;`
zGbf#g9o2xNIiW6ywNkIN384*({R&q)?MS!DpM>HItBjql10ks;8XILNEw{F4#iUsc
zJ6-w~uBeDq%$J3ZtY3BCH>&s_vFGkE?I}WdOI@pDO*)e|3wP5$zqy;eF&P8tqOKI>
z@_z$x^6cUXvllXBmvf_J6^_o$
zqfMgc#d)8<{gH$gAWcOyQaY^7#Gs5g*1S@)*cW{-SFKdFiY%NIq;y!uoUk$++u&O{
zn^s%PcFSXM_gmXT?-8$&5y33dh3dF7P#d;7K?-D{=9fgiHw1i4`0~DMy0`(qe;g^D
zlcf5YbkK>O?KSaPN6H3(ZqF)NhQBliW$JYv9h@g%&NWazzGoIcb>F6UNCupVdtXEl>
z6Y#nmGZYJyV+sTQT#m#PCTeakuv26Zav50gU7a!P%Sg$~?|2;h4NJrh4LT_cPqNhx
zZG39&qP*1H;U?rz_C6Rk+)ne}=^`C_o3W#Rc@cOkk}`#3(R9u51w5;lJ>ST@wxvO&
zM;00wYblD$G#js@XZ9gExi~K4NO6h(uGeEPX6ID^Be*J|=icCoB0ksZ&`-3rQZ+a%
z;X{c_?;pWw5=Zg;obQy)p;ig^A7)#y5?|}AI9GpLb{}h0A7(ud^nUw;ySMnw=ecYB
z)Anetq}e1o>x}c$)0)-IO@TErZ4cY1pB54O`VEf=^KN%dV3HmGTk%3RfcB)tSkzq
zJ#SiW`W%~gb+0UFv-3aYSP>{h7Y`+Pc;e#v)3-1Sx>_jFL985=#>=#6V!krMuRcc6
ziWm}p(UX0M5u-xbvAx`$?8=@hNI7`9?JF=6L)
zmIceD1zQ9=^4A@r3#Vb_LWN`opq4{FSq#*Y+w
zo5xJj%EaamDE-RSyT?~cma=2(#l^+Pz>8K!zb;zONLL$!iL{4kWjU+go1wopwI$Ws>aAq?B#iXOU5-LO^ZrAI284(MEBd0PS|>
zA_(SjK0Sr>**CVdluDqV#I<0z0G2VwVegDdpkR=n91|#+^>Y#Nry)sdG_4c;W?vhj
zD6?YSOUJLV5i1-TM-3(`XXq9C$hizRuE(27p_tH$`@q4V0x_p13NkpC8|&
znXLJn)K{<@+N6mcS;!YVbJSNDAG!v$wzjp2a3tdSly)=G$T+1f-}}r#6BG^)vwS}%
z&ksukrv}hVp0Xww^$Jz8V)beVIM;uxIH~rJ{aaHq?nr(g)>=g4Fg#snB5YdA5$%kA
zI<0tkSiG<4s8m|yo0I8lo^iak5tFQoH2$%kzYya*d4K9IXTS5zeS%f5j$jiAkg0V$
zi{ELue=xe)v5(DUaWD6lrzSw7cu+gG(a|JB@Hz5G<5ll<+TpfI`j*a*lMp6F9olqZ
zvDPmL|6%FgYv^ynRvVVjK|AC}4lvI=R`0*%tXyTn_7<{qkRQh5{BN$-N)%by@+k(I
z!_M#1C_lyK&d=}GCwKnb99i=Dwt7Czj0$CeV!JMNbzd6K<+x-gzY-I2U@o*oJ??z0
zQF5?sXlpB%P|}pjAQXMYrVzX9OHclOT=|g3FM(n%*}o*|BWuJU%X)`r`85}%c)+3T
z5mW|~uu(ht6N8+L)QE(W6((M(*HdilN$*Id-_AWd6$U<@1R`bd^*@yoI(t`f**fG&
zRj15#HaExwTp;4p`}<|I8~Au!+7>w>SUl{7mJ$F}TmQ7@aOtKli;0Qx9Z@hl+tjMu
z4?z<&>c2Ue`I82l>}1ogRPeP?96z-&fNZHuJWW)z=AF=rf@d=m#MYrYtZ59
z(j@=FqAV&mc@jpPxlT*i9oWi6!Ie!nwrU%>jtAUqm^-E!_w3e^?nfF+btw?vj5v5^
zclo7GhqteTcNvJl>h+hVR_M@K+&sMpHiS!uVY3E!q8_=)i3iG*GFE4*4wbc|;{--A
zZj64V)!PeC%&4%0ghj6hySqy&R=bj%o9Gl`qcryA56P8zYH#`2>_*
zp4ca;dx1*2o44KTME779DrPd1aT!IzT#2J(cp4d&K&M){dIm^Fc?>^t2L5f6l5x))
zovfeA?UOz1*25DuzkM6P``^9e>2-Dgk-Qzd%+%;}(F*fr!_4eMdA67z^SaHidbrQ3-Lq(`!BdQ0)i_<%kI17xfuy61-0OW8#FP|E&%^lRKR@Ko=ykm}Vm_>Y
zeYYM)%=8xHWF^D#POve$hS^&;nK=4li*B>C2Lih+g{tlw4x&zzH!qXv(u
z0F{Vd>?4MGq0IFEywG(z(XY(x30_hiRErz-&x8H!CN6jnESV97;sUGUmIMmV5~6~W
zR|!7oc^}Y0RFt*G`Agw7=~&o3`izd?DT3XM$8B4{a}pqCGt-x(`c0EJQY|R{hrP{p
zv$YOe;!gtJ`_Xed7}?6EDHIta8D-z-dj8v8peQUi+QqmmJUD}-L-Avm=MTm8(vwaJ
zrS`yw&av|j=<-3ye3^vQ2(NV;m!PmP_t9oCM4r)`fey0Kp;ENPZeoCE()78E3g_)T
zr7d|+9ITDfEno$Rl}mDJlyXZo;_zcqN;g8f`aR$AJFoNKUf+H9`8=QJ^E~h8{k%WlZB+4Z
zCzRyc7Ou|(>z*#1j$h5Wp0f;!39;2P`-nKH@{ZdRa_8B$L_2@fw_MPm<7$ANQ@l;oj%sgli-Y(a6`d(S%#g{hY$4mEK4iVsJ
zo{HPPpI*z_o^$5$P5M`t<&J`PGMx?08As3goOwm>R@CY#mSWSGuQ??e|LY=kU(k#r(8(P22Ta9b;Y0z9>nEQ%B(xEi=lyut1|>+#)pjTXo=|
zGaR>mIW}@v-@5tpvpk>IRv2N+vE;AA-rwusAu5}iS)*TGf1Sv`^*XWW($>oX$uoEK
zy=I`J&1f=U-Ixs~#2#yPy4(Zptj$m9JUiutgamlDAt|B@gR4GxXh};zH&lZ2mM<@eLOi1r5}eD)_n!-#mOM2$K{ZLs)jhkiggN*R(ihox
zHzOR;1Ct!>Cvj7P2UtrlS$|C(JyRJvh#di|#FjsD@9H37QCA@`8Yt%tCD
z;7S?0XhVXcJ_i>UDU3l)Kbya#5`|-DUC|~9iE39(B)e~<`r02$G-aCA#UfsAVsgv*
z_sg3$H_XTuU|q6%Ms9Fh;GW|=h>8!lZrzH$hQZy0?{Yjd8|3q!gnpk`j2%cx4>UNi
z#Lw*awCv-*(uQ5`;Y`gJv6x6>543@El`M4j^HwEar-dR~_)4A%8sW@Ez60tTTK+3h
zF+zm&E%mL&Is4%6uV1y~ttKQMF$kdU_6uV}Fy(ji?$K+S^lk==Es?O-1Ie@B#0tdt
zM-|=@WA3`x>*x~hn!GVf_O?{(zGEA;d;
zVV{7?i9vlqya)bdzXW*Ll4$ivfT-$)82t+Y6-n`%@gv>0zQ?^7_DIp$XrY4TFaOn#
zla_7XW~J=t?CghE;!tPaL?>_iHmKq{npgz7&EZF9vZoCQ+@2j?B3*4K!bRdK{yxsy
z`1+mmzSwqsPkClUe&x;d4cZAK=3>a^$f7e=cB1O8SRq
zw$oC0d%t~-!wy`=JuBl@z?2txsWY1mW=2Qv?M4St@(u5PnPJgD8j98uZ4Bot$ijBPEe7>GlB%5cxUtQ^s5Dr
zY{kTb&-hts*$rqqo13EXu4A0jbu*oqt5#ChM5BxrQ$o5sPU!b7VQyGt5~Yq5{B~ng
zJ_sAx%e^b?LnPWB9s&7&0~Y>LxgH33&7F9Us8RLahu~ifx3DZy%jq
z3pQ$MtSZfR1RJ0ok#+2
z@6e^xu;2YM^{gfDVcT|zIyFkI-L!5$Sawxl6Ma8rc68-gScPAXKYo?u;R8!9W2Gqn
zO}5KMItw#-zTG2Ydd+KBR=Kt+q*6v{_Puf8+J&}OzxQV
z;4Iz3J9>^Civw8f*wM^OTR+evH1ncz?-^2K$JwEE8Q~w
z_HE@;WsYjPt*eOsS8JwW3G-@UR|D~<+rz`dtr-uI#-)-Veb(XJljv6FJbn@<7pTJW
zHIe2uF%_=6!f`pBe|32_<1K!v?}VK4G?C6Q#_sCW0l2!IAN%}pV%V*jG5*|pnIeMA
zXY^s&FIL!y7Ene9ZHcRrhjYbt$_U9^bZzw_cWOo;Y+f-ec=spKDNE^#Gs%?@Q<)yZ
zm+=16J>j}A)iTM5>_aBV;77o0ElTjC4n9N4DE2*p{_?*(rut?n1D)vFv#CTsG>+fD
zMHLy!F1+=b4!Q%P&X5Hi{##;H!^hH+Pl(RdH1&7qU`-M0EbdWld1AEKZuHllZtLWulLa
z3~J>1wCyg40gs4kEA>&bHa$J9L&0!txwZ~cnbA>tCL}B63f#~0bU_7P<2RnKuowLRE6=jCRz5T?JA%4I
z#9%So^!(Jpu7eo@$@|nyku0kOeJ6{-M5A&iI?!js5skk8exJVH`o}heL=-hQ2RRFR
zFh;R^G4u;VXal%98$NR-NOX-beYjtW!q=ov@UPyxm{*{|gFxCJwJthb8MgL}&8nk*
z**+eQ5nydt&e$tCk{92i_9uRdDX^3#y4VjPB%$rp749Nf+&a4lxM%;D0Fk|_q7%)9
zP68Y{wJKdzh8Fp(O%U70Sk}()sZjtYSfE3szk3SLxFT`(ds3AKq7<${pF4_L@2+y^
zA-
z$O3yIurrL}&Y&B7fX#*knq;-D-5rjBMC6pe?%L2YBB6yKB#J12FyC*40o9!k#r$?u
zk5}Q?r`uYIj*gXbF|bU-h0&wFy||uoMUH(2T&Jh>I~v83blW0E13~Tm&2hZc9#MA}
zW&r?3s+E8Nwor>vLHih$P>*5Z8;^eYnJ_
zCtC@69BM{2sfPZSVO4gTW^2sFLUOF@CzqhWeO??ON$jUkL+F;ziytxKs(MfejKe@jHadeJ*jcq
z_zJKkrp^z}l3mMKpO^f8*MF-7iX;;*
zs}Jx6-15#^9*bVUU_1?_Vn$!HI3P7mQ~5kGsc0VtA3ups-Psg$qK6e%LdO7@heSR&
z^Py6Oo7?{J9Z1-SdXO+;o+H3`>|Hecxh?JSUuR;bn-CL=>2sPO
z#G<;tZ0Uh6VH>2P`EF}wj`4WW%mFMCU?8o8>cx*-4v<3&>6S<29OQ(N!rT6+Hf`Bn
zMSwE8bInLr7%zSfav+QXA&g$Pr=)4#e;k)2p3~YAT~MtJnG6#8!@Fo#VzTw?pGEHDA;
zhOqUYGRPU=RuiS?Eh}nZXw?g2pXJ)^0OwaGLJpM_@@_b@dxSMGNx&X7G${RCuGU2(2BLY};obkqT;wl7JEi{cH8kPv`hHr#FYd5b_JyV;Zc}hZJKq*6
zqZ_+W`#ygOQ%_$XC9l1br8=z5xpcXM1F8LMCn_>U&p*_ts)Vi4?k*mVj8X~$azhsN
zlz(A%rxu+$<)6`1`uX9p!#kQW6u`r94O*~Yio)!~RCg#}$v75-c3{7=5d@^TC$+Y6
zw$FyVWTW}eK3SHmW*5RSc=2byBg9~>P5Gbx&lEUTfHGjJv;ns!+1pDI5$}UuM@`#_
zaa|ypX!SzKrq)qvgA+O%QWn)5c+(3YtPbT7$DEQ5b&zO-w`qc^Kkf5MBrmV+Vr!xDLfTtKKB
Lyge%2!+!f87l{n&

literal 0
HcmV?d00001

diff --git a/docs/news/index.html b/docs/news/index.html
index c2f8ed50..aa73431e 100644
--- a/docs/news/index.html
+++ b/docs/news/index.html
@@ -229,6 +229,16 @@
 
    • 
diff --git a/docs/reference/AMR-deprecated.html b/docs/reference/AMR-deprecated.html
index 7d3c902b..600851b2 100644
--- a/docs/reference/AMR-deprecated.html
+++ b/docs/reference/AMR-deprecated.html
@@ -47,7 +47,7 @@
   
 
 
-
+
 
 
 
@@ -223,13 +223,29 @@
 
     
    
     
-    
    These functions are Deprecated. They will be removed in a future release. Using the functions will give a warning with the name of the function it has been replaced by.
    
+    
    These functions are so-called 'Deprecated'. They will be removed in a future release. Using the functions will give a warning with the name of the function it has been replaced by (if there is one).
    
     
     
    
 
     
    ratio(x, ratio)
 
-guess_mo(...)
    
+guess_mo(...)
+
+ab_property(...)
+
+ab_atc(...)
+
+ab_official(...)
+
+ab_name(...)
+
+ab_trivial_nl(...)
+
+ab_certe(...)
+
+ab_umcg(...)
+
+ab_tradenames(...)
    
         
     
    Read more on our website!
    
 
diff --git a/docs/reference/AMR.html b/docs/reference/AMR.html
index 23faa41a..3591c047 100644
--- a/docs/reference/AMR.html
+++ b/docs/reference/AMR.html
@@ -231,7 +231,7 @@
     
    Details
    
 
     
    This package was intended to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial properties by using evidence-based methods.
    
-
    This package was created for academic research by PhD students of the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG).
    
+
    This package was created for both academic research and routine analysis by PhD students of the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG).
    
     
     
    Read more on our website!
    
 
diff --git a/docs/reference/WHOCC.html b/docs/reference/WHOCC.html
index 1972e1f6..59b4079e 100644
--- a/docs/reference/WHOCC.html
+++ b/docs/reference/WHOCC.html
@@ -246,9 +246,9 @@ On our website https://msberends.gitla
     
    Examples
    
     
    # NOT RUN {
 as.atc("meropenem")
-ab_name("J01DH02")
+ab_name("J01DH02")
 
-ab_tradenames("flucloxacillin")
+ab_tradenames("flucloxacillin")
 # }
    
   
    o@aj!sq@3Iu@7uQeb{w5$
zgfu9nAS`1jaofww`|sNI8<6aq?6#?=cOrgg=*>r9JNxQ};mpY-Uxw^db11%}
z5r6KhKsLEQb35}zx|`q@KH#W76X2k;L4f#{F|hqK!z(Ly2K6gz9>9`>9&z=PbiG~e
zXfdLI)R_635G{3ljh4UlQ<#5ukGgqF%^6SP@B9}Sk+GtW03)Vfh0F85!4VB%e+D6Z
zyZ}bRxx~3V92}bN2dBK@#Jyekn;KYT+G^;t2GWz=aHSvln?xE{u?qCTZe=eUGu?(U
z!yG{Oxa103jb>`(0fwYBNH9?aC8
zv5Dvl?nX-zcNhpUg2cw1z67BmZte96=M)`1I`xZ63#-Kk+n2l$j=Nc9H#U^`+yM6f
zy$`g$50eCdQQG4GT6UkfuYMDDgQ@M0owi|g4XkVI?7N;Yj+xk4NNGM!{nAQ|g&jO%
zHIIv!UjvLMi~_0UC{Zd4Q(t`QrQMh>XHU5yZ?w=pz|W60cFAfp$6;IbEgqF`G7q-m6W%2S?rtyr<1a4P2DfgaPOrvdd5x*^=Jx83?T-qm#d
z0^K&i{GD1mYxo2r`GAQ|(_9xVo+Nn=phK5-@bVh{^4+xWt0tvB2=)#QR_
z(d+|LdS`sWh-3DK&t`Q}hd(G~@5eZ-UDwohOU&^?d3O^KPuF)QdJcFbh%mP(kRmfT
zMK~2gj-oS$4D)01`+fBwQ
z9G2WCZss`?xxtGbsgwk7AjnUgDD8mgxan7$y7B~_8Ao!DPu_qCFPIVI0!mN|a%Mbk
zAv02=?1K6@Z@&YYyEn(Xw%L*fCo4zTC214
z^L|)3VGmW+jeG_;-lIErr2a(pwYmKHhpf}PpNoS{xChYF2IcO=%s>lkK+L41)dG90
zd8c-xW&jM3BHA>0?1sfz{U|MCV|DC9$vDmwT&S>~O-xR(Fjqk0mxVWJHqR_UE^<`-zeRXc!Qr*h!*`fCZ34+@rg9FCo_iipClP
zpJ2fAy^e=W&CTiFP{xjisv_n&7i>Cl|NDT~X$DFmhTm--K|M4pIe1=k-;h}sUNhK<
zelq>C(d4Y!+8J3{U#Y1!2;OH%%DFNFrq}f8^A;F`*2i5Sksm)iAy@U@J!<~5l*aQO
zFusWTk0cR23F5S`XkxIIb79656pXXaX&RBdBe}&j2A^`F42LQR(tm#2Q1MjKz0pO6
zp1F1%@g}hJ8$xk-%^%V!N2VIDS@To$e!f>Y7it$>1jT*-yK_uIzv`^Ad!@Q<#y0l0}zuS#I3ol
zxpEa9Ho$eNGA55yi~d}OLE~>8`+eyTpKuN)anp81Q5~4w1G@7
zfQXSJM>eu@NRR*`R8>{Mn|RK;;1C28$dkSb!2j2-X7Vl>T@Kmh<45V^#fukB{Ma`+
zH5#192A)eMP9P))^`ZRd#zxF}8;T+b`|HOU8Nkhgz5^W*rj=YE^DY=)U%ouLw7i@m
z)_T^gCD2%MnMjVulDa9}Hs*_Y54RQWZ_dM;m_vea^!&NK;2RapEpqLTPkZau+ki~O
z4LDy=G;!5enqFAes41P->fbzo;M-4i|BpaPlzH6jwn=Xv?pkSbY3A8qN>AGSk3h-s
zBht(NGf*N;NN;>^GO@j6C)8mIe2*Tk*g5w*Qt!}=W-`Qb^fA~XCm{<
zQkneX4v~Z^rk@?ADYY0y!T1{&S`v2D*=E(@qfIL(@kD~RY*IV>(2%zRurTjPDWikG
zGng;SL~^>a<{Sm4f(BtYJhK3{=dfXka>ohAkPbhP_`P~HZ~isjEv07JlW{>O8$bNz
zk$*niEZu6FNY!V}(y_3nyXYT~Mvx{qf^57V9iub+g_1R(C6QY4QM2LQ>16O*<7~C8
z`cf4194fhBhM#P=sAq^%(xRpn?4jtD-PyU;oE-d{;#P&%TqqqwfNcScU{L0{e`0}a
z@`Ueu$6nJMAEnG>a@dafN4Vwxc2!!BojJ1RoOgj~H3g3g95AAn6rmGx_mEqZ>Mm{k~H<9{NrEVtRGH_pnO=$H9s)+=fW%=JEe{CLLG&dTaD1p}!G
zO0tr7(z{=^wH{Yfz4ISRXYn);VFG6G2_gETf<&tdq6
zpP%v*C3gcQ|A`U&97FipcI?Z~^gYC(^YARybuH1vW35
zUU(-^Dxiv*zWCJSPCQuA83x3oWYD#+X5_f=TETtDgKMS|LK=1Ee!`N%
z`951W@80lzTuo$ElOE04#bpfAP%fBCO$^v22hvJ1baLD8+aP_b_8I?_?Ck
z0gX@y7gN>bHBC^u1u!+s)wUhfxA=LLno9D?{QAKLs
z&!6^Obo^ef)7!e*nCTm%D>ClAI{DQiC#tv@lQIvUCsO9DfK|e<@xbWy7gvpAV4vX0
z7`W|af{1Fn$Qnhh#uX{la&rcmhP#-UCZI5@;N;2ZuF;@T+DnX%^KPI|mEDy1h
z8LMiLfAanZd71Bb0ey47YRR_lHNS<5|G1rES|3}%m=p!vuMn$Uk~DNS8yF1|?H+H|
zoa$0oO6A1t8$Roa>pj1cZzo%}g<)+s%@`SS*FYSwD>HCS&``wr{vB!e1qj!(?f?u{>3~zQX8{K%Ue%$F3KG-#LJX?*G
z8XM7(CZ({_+BrLJ
zj2bX-AXIJPPER_ARg0Tj^u2{a(ai!-voFDeEo2&Qr_|Xo6>olh{qp7Yz^*c9CF}PV
zwx&9Ibt?{amK{6Ya`x;qbgy#J@6fU7yx(*YKBMBCkvUj
z@9<#{eI;$rB)U3gm8)9#Y?~R^Kj-!+#TnC^`-ITuGe4LvtEyh?>V*Y|m2D0kNA`KC
z|Be&8I90KBB7m@wq!~K<;zbtIrX?j$orf%r_6Ow_0l>w@*r%i_YLSWFsUn0k)MShEyI_{2(e7a
z(4*!Sqc}1D0NKLC!daZ1?$zL;;c?--t2_)#@`wsn^6aSW&}Oms
z&-{*96&z4wK5p|hL}G<$zf1IJOGh^Dx9pZlk@`k4?mczT6o~22pgzyiBni%lAA=3L
zb?E}*Fs!Qefg#QlSu%7rVBVnlprT9+p7yer$QaOPhG+KZ(nX*0#6#Z7%!<)0n9C%A
z!9$gRR0AOqXD6Ua^7F;pNQmgl(jJOgdrRK2?OClC6_d=Yz^fsgp$Q|gm_WUjoo&Mh
zbx`TSyX)Nf&8t_(>%KOgXpyST0=7bmmY7H#Rbkzh5qw|2uIGi)^&pEkn154_B>HQe
zPU$dGRq`F-(Lr)ceh$D^`=hD>D0(!!@X}#OO>Ar#N&F4c8t2^z+$cGygU1y1lBkWC
z28oo;&rfc}5$l?DoyC==d`X*66~HPT$)HGr0v#<#TJ!_}O9>)p=AL4TEE&8)mVDz}*{@g*XKX&ImYCeSla%WrZ3v4dCEqL08z7iw$DxI3ojUkP2
z*eyovK`#&^_6)FWc9@Y0Ws`w9bm$XStJ{9Xvg_NoE`hKnXwj~xMa%ayV(;tMN-7I#
z1PrQ7=>puGmzGIym*Rm$xVovgiwm~Ke0?R=YGsnQiudo|-#zb-UYgO~=f!BMoZ3I2
zp``-6EsyTjqsPpq
znxhKQ0F=O2uhfNQb*s(S3aN|o@@ClPKo?ox-8vDtTEu#qZs%@n`gHATOBofJKV&RS
z$JvAft)hK~e(`}@x$xZF6i4;o(#l~|9^Wc#DdX?PGp`_|gMYRuV?@W+K3L2gye+)nL0s+X+!^jhY&RXIk+-ro$?H}~JA
z9UT8_d~nC2#nQX^Rn5GGK%VZ0L6UuXdMVoml_!e`VFS%V+%4m&UI*-W3hYJp!<*0hVo98$
z+Nc8!0jYpw42i71B1VdD)w1OQWkx+B2uk!U+C&10^_nd_ZzK{VuB>T_h&t{Q(ngNw
zJeWlxyFsvj)4C82pd7P2T{@p>wK?&(161FamoHvW)QBWl_LSW=rI%*$pdRfJJb$Eg
z07>K2diDCXAlXv-@7g8pf{42RAb8IjU?WHnjOA0=0E7*x3wQ4|U^&92x9U%Ow72JOQjo;!DlOlg#JrQ`8b6xuHq`>k7jQ9sekr18k@g;E>$Roc1
zmonJ>xum4T-mN+v)y`<{SQX0J$XP#+J3}TxK}8!-a|c(#jc(v&K!L$!a$s=4+a9yA
zZ3*!}Df}X0QuoT0%=hNLdQlZ~A9!)cM6ZKe`j3%LsShrx(r>J(W21!|CSi?K3;7gW
zX9fDsNDvke|2s6ANHGfTn`j0GwYrgKifs7m1iAD-SB5MXD!
z60>LWN#Xa*IOw>D=3oYc9?vPY9a_lqT#-C)%+7A(vlq;>n~*yZhgMZ+No1gj%GR6$
z+uHZk(BN=;Gdw|TM4#m1wgJDgPW;8nlNuNykr1&FEXWT(iWNAs3Lx`rTzK=}vE6Id7n79)-%mvtYfQ10Kjv?CJu|IH=*^
zBe!KYK&09A50n#kPUn6S`(Mr#m)T9x%&OZ!X_o8SndAV-m=()8er?s*igtyOsu#&_
zzN~UI8ac9axQtJT!?b9P6A={wt2AU>+j2l2n4DOc=jJ@N`1rN{TgANykK54OJ5FF&
z?ZK_mNhke-&Mi1r3{iYeOK-(N7KGnjAegvKMRr{xSd;nEdk*!@*Pbw!A?B;w>ahJY
znhV3JRq0^j_ithQWj)f2RZpVLKmnj!9c5~6Tu_igSWOyTac)pdZ+8+Q+@?@AhBD%j
zlPWAM`e8=M`CT-#L~G_tnkJD4?isfO-*{%X<}wO_+|L)E)rYgC5>s}5VqtfgUK0Vf
zz~FLIR=oJ5mt6~$A3w&*Zu4sos>~W<7ZTM)O$;po*US-cicw;lxgUG^e%@sxGv|Eg
z-mvQJ>^Iv6c#&}^3MYkY%irKzWv_wnx8(Tuq>HWtV%W*`M~2MKHCBI+_4?8042lhJlGlN17px(**1
za0S+lRW;3P`rD^kwg@@;A_!r*25}>I)#Xif$-?4UO5mh1$PRbb&z~Ktv%qhi&Sb5Y
zD*r9N79M$D1Hqgss;WFM_mgWnOVTyMe=MVPAk)OghG15Z#5hW%FJg4$gVi@V@)y5%
zUAK1afrE?Z;o*^7a#bi-QPktXbNZ#ZRmtYXY+Z>ApHgPY?5o){@;2EwT>k*YKqO@h
zV0h^6W%FadV@!_|SKG#HcuO;U$6Zh9m*a|Lbq%3JdHlF4H%@udg2pSV@bh^y=0eds
zDmK?Qdap2bz(n5#)!W4|2Zq{VM$=D&Psk0xeUseYY$4i&ni{D_gE<7tm}(BLvh%Lz
zrmxC1&iC45YxVVh_b_^)_O`YeUdR8Hm%IO9tX;Fxfw){|;>`jI*3KW!RpmksCWqcnbJD8^zj6TE2Co>jP*lD@|%U1Wur*}dDI980fv$3tDZD$*O;$^G(
zv+c*5o|=3B0yAHOV7fyvg;%P3aQ~Q%k{IEdIE*t9QVaX`{1ryz(WN0Fry6yeofdwz
z?fDT2Cp1~y6#U$C)w6TqSOBpjfgf6T*oF7^_U*9t{C4fSPb*o2J
zedeL)MnG+NA5X#Zg#wSqNsNTZoFx(FMQme~99;`m2MYR~^xq{XyO^-zjH(gijpDWy#)94Liu*FH$MomaLehu|oHdFl*|lIX~c*4OvO
z;fOEdD!B(u_8*@*5x-y0y>kOjl#?L+>Q#K|R(?*0JpA9^9))
z3T{`VD@~&yE;Nw22(j_ZcRy?bn7-IqKqA5SY~oku9E5R(;0~HExvT-JjW01TT1Q*^
z{OaMhU!nYT=?l1Ch?Y4JNygrgL*7)B&Sj
zaEMDpyq#j+bzH~Bsh4k(4`~h>WNFm}H(A!``_1~A5WuL@pgZDsU*!;8N*-TPp(Td8
zqfo9Mc-oD)NL~a(Nu>SMK$HO*)|QrY2le=Xq8K+9TU%XC&9f8}!bCYKDanrlZ{!EV
zd`#SwA!3r;aQRaXdYG~SvP+cf#&$M3)_c~q;K4;>q!s5@%Z}}hRS$$~#XxAk>+`I2
zZTU)E-8Dx`R~Ot=11iB%uB_y)swTHM*w}cE%6gR@3sx_H&Y8O{VAe^a4Qp}U*m1&W
zO`r=^!s|~?6~!f7{eT@B0ZymiG$`mZ!F&FY10S3wC8}KMDBo)Hu)jtwSKG0mK{BK&
zN&fkV?6aLq#}vq{)CW=plH75Zs6pE8UbWnNF}p#uRs$RAs~SKdBU3XnBlsSgeltv&
z>iY?TM}CTm6Uoqe8jNNqS=1zHyuNk9`kt;ebcbHXn+ggO3yN6f%w6YbBrE;kv~#xQ
z!~KJMtE-PQ6<{KK?)Ce^CxL7>Ai^_Sh;j)U`^DA6lP^H90-D%UOU?cAAhAU-B~a{(*~4aIIU4rx?(xd62&KT^iXJr`i-i7wqTU=
z*;U}tfUi0lqzLQY22S|k6fh9hv-`9ZTw~Yr&HTY^wvLdiS?#T_`}HCv^q26+u(e$Y
z)fU&vRQF7wStv+ZJOu%jwtb=Ja6kl_x886gv~Ms
z3I$gD7bi#a!~PGIk{75RZ?$n=v-sXFRmlsQ#qZqaQr$|Wn`~=uy}o^&sX=J)X~4Kd
zGlKr+jLMh|KX)^9N+?DWft|ugg*c5EyC8NJ3`g7)uolgD_w3Hin-YAyx_46jX{Y+G
z{sQ2m_*iOTvE2_VL)00JC*X_Q7k+i6F2WL{>Uh}l`245F*NbCy+1Ov*x6XHl3@RjA
zAOF7>Jkq6V>+Ke^H#c5zSlcqD(+ck~`XAyrqwQ!b*{)cz0wO6?R)(4pvQ8TOqW#5p
z2>X-D3_9Fq=H_S6+-{&AIwXX|qt+&TZfN5l1vTpZ8SE)YWraW&zc8u>+%b0U+BFL6
z!OJCc8fx=UVuA67*l_Y5Ph5OI)ooJ4AR~9n%SHMe-e*6^OCiU9N~}mR&JTs_b};(U
z>%2=^4GS1Cp~s;B%gt8@{gv0Q>A7#&wwULx;_fxJNRWuwc3ZY?70%*-1*X(0a4<3H
zdV%r-)`{CgcJFD;9m696cJ1mC$Z2+P_jv#)GDViTVQtzmtHbhB&pu34-$?U`ksmCFM$O2DFGgdsuQ+Z)(N=ZpV
zd$aR+my#%!P@oU%c;x;Pm6ZX5jQ&|V-5(ULywjroSg(ZV%3fYARGuVZJ7QsaMA}$w
zpD{_p$;pZTUaVNdv?ZZoj{ps%2dma}0Z0=p`bCo@{<4-W^xQjo^vnH5c
zQ0`)eR=Sr)!lt@)!S@#GQ*9Nva={fu9mXl;Q|+4T6pW#8<_sRZBq}ngHtQ%sYRTmp!IiekzqVbg8G9AJ2|YPsP1w5iLBkUa%x0ro?+Y+%dcJ4AMqG4`!bNRzQ{uj;G&uGkr_U~T&Z0^=$?I1cc>?U0*kRGp(Q&0r_LcFNL>?O*&Cce%M4iwi
z;*d@d@u&{=Gkm0`BCFqvm|@i&H)pNNPkac#5j^+%0Lj@IAcK})Ol5vi0$r60dQAKg
zcC&bP2^ee58sR+-VHq>Gp-TSjYoygzR;exMyl_wtc$mRND}dAczZZ{ptS&$yiRhn0
z>IJDk|G(+$!6LuAL|(4;jDb6^dI7u1Lum8KFkstAjzSqj-49ZkH
z|J*#kda2yx;_oIC&KnjNU;4Xw?Wt%t`6?7XU*A&%71e!QZ6^<*6t)4u)KtjV=*R#h
zbPnW*6dER$y1ZpVxTWoP3Ob-Kjz8hpguCTvG@6xhv`-kZz7BdZ44um^rhD
zvT_RNs%Rg+DAZq{bGv??SAH32KAHe(qWIr=i?_bsoUkl=`1N9MU!`w5+gw?-KlQz8
z=QSHMGe5{188z!r=E#&8QTp%L5qtdufS@9iFJtEwQL?g>1?TkEtrE-`u*Ml=d{(NX
z#|>pvj3|1j)>CZ=n}vuxdFoUK!5_s!n-LSUX4Q{YW>q;Bn!5`RN?-1Zb|Ybm0snp)e@UPw)M9-9*qW$sS6Y9046lVkkg7)!WjhVpctH6>DhrMYo|a^
zAp9~ljEvSmL)XCN=b2Z?iwwbBhO|u;ZT$OHN2spxU-~_u(Ln2_a$7`SkCh*(Eh;(`
zn*Q^^Uekp)JTMvJ`79|U?d0GtYJ2^|A1Ssv-8=i($jQYkZ+>t}+n@eEFu=t#{hA`d
z`$FFooSt+&C&orb3LdMU&5tX~Di!TT`fsd};i}J!!K;HF6VXJ_Wl7|KD4&)K@1Il%Fz
zCpmK&pMn|E=kMP)Vl)>sYR$hdn0~~AyLVlKZ`J5XBo?5Foc(|tRQ-Qzp2p@{V5}eas7hDG&}ZC8SAxV<3WdDuUh5iHa2^M18N71s;eWpn8kllHy%0i
zk!in33BX3&VrJTQ>)d$-*T+gS;)rS6k5$7U3@zFbefvfbU4p;Xs<+_;pz0)l4_5u9
z)_mGDwP5347wNGewd`WXne2aWVf5wCH0&mD{+c}}e#SkHR8=27{BrID3jWBJ!Uv_7
z3t@<)yjvihX>zPfrMGcJ^}jfY^ld>Gm`0Y3b~J15rlNk%-$^=|`$UHah|0+nI$J73
zLBj#ZeQL);6iOezR00SfY&Q;=+I-E@X=vpadBvVgLh5bX>c2jWBOW`+ai+v_G5gtR
zsBSSMqlK%iay({DKI=@xr`?#=&gf)qiVfBD)FYz?Xb4c7zJzkT_=W#`OFYLW4c|_I
z5HSTsLR!8Vc*ac+BF>zem$-BS%?79pPry!)8)XNp;#R}fl73ZtI6gXZ=uqrvhmvtc
zscd6jFa1!u3r%_&R31VN%oG+P2G}ZK?XVIC_Gj2Vl{ug%6
z>FMb_!bz8slO3*p$8Com?hr(>Uk0aMxgzwPtR}~$*(Y{j287XxnShcC&_pOkeVIOC
zWfi&L7l!vS3?*bW$^9dK%lzQfI-TCY?6~|=s3N%LDb$cheWC?~OFGadG0(~>Gq`=d
zk|Zzx@a|nBhHXIWAtjg*I}_i3dYk#{j2Y?hMDI*7lP#kJO&VPG2`N4ndkBTTRuerR
zGYZ+XzUHwc`n=2c(SR5Yi&mqPnp#8l^lA22F>O}v+O@9+kQ5Zd(#n--f0N4g*4Mv)
z;~`r)f53xYKqj-xqr)B>zwhkb`g3YqURoI?wYkr7k(b+ThRi
znyqN2Vc8L^)}Yz~a-m-E*oHnRDLmLraEaL#AQK9WFP5a(lmmLkjjOFTzv4adI{{bn
zMRbQ@Mj@qdd6;gk#uqpdc?DnqF~Knn1EfoU1f)&@N(OF#&*C@h=s*dc-@NMq&X!5%
zX|S{s?d~$g8RBAn+cOu3i3KA^3R6s!XzNg^gMaz$QZt_IsFF>u_Byss(-~GvlZIx=
zcaBg_V(jfjY2Qgz)#*nNnNr+E(X=%-ZYkJGA46u!>J3PNgM8h$jr8k95eTwwQFMIk
zb5Pqd-6qlO%v4zAA|un>Q}o_K&dO@2q1YxznDP8436+MJ5g6k=-c+!Cj-7@Ndp6{=
zY`3=9$>va;PI{Qob!3&}ovB{Duf-p^+CG<|Ft)|bUT^BS=2VpxkRk%phM9
zX^7$ODI9^4LLfbN(woJOuw=+R`0&Z}V=>QcKxC7m|(?3QwxJG*Zi&POobUc%L7GBbv||cXYJ{%cI#^yAUG>GzV=EwT
zwpV>eHSryB8u&oph9496K;&3mD6M@bD$|5$MgqJ!|9DKya$6>2KUuhJC*fntR3`AU
zq!aV#*To-apqegzxj!%wL-ZnUBqJk+?2j0gx}oL^N2|zLSpnl8~`PDoKXh7)nHDna4|M5TzsviAZsq=cz~~Q!>wE
zMKXtwdF_|p@BO{s`qsCtf7T!C-nM7kdbr*9b)DyN9>>1#$9`PlKC6;_R;Bn#7;x9^
z6J@^S`qj&8$y1|B@6v+lfk-CVHD7n%jJUt@&`JKA*@>4Ap5wpyz5afd|9kbAg(3c%
zIhO`$?xp)J2|6+u@o3Iwy(l82cI|rqA-czqdxSU?SHDE0MyHFOf1l$W7;xrT;KdzE
zftyya5Jy|YyEYOo)@)>9h5shO-_Sz2miYrA&cx^?vQ#MfKf-@JKa!Nx{IzEaYJ
zo_3#7RGe!nTnu{naQ9OG*RKH~At6u6SB`a8L9SgN?dsJ$wDz}vdn_;o;`acB?^7L-qx^?>jt?C5r^hZ@f%{C3oAM^N-vE>H;2+!I6)=cw&fPnNXm1fnE*TcfX
zHovc_N%dTq4cw=+MfRD5)44}nG4l=anzuG*nl}l|oVUy|TmFRdr)k06Vy?f5*v*FB
z@2>L(oiWj9pi*vaK6mb1YkJRt6IxnYYd@LJQC5;~KmX}*rhxRoSX!M
z!p@?vOLpRiuY49G7T?UfG$v@v`Y`fos3&NtBx=y_lFV_P97s2*>ddkI9ziV5{2BX>
z%c!^-knc1)(waF~AE$Qp>Qzs|({m$>@D33Rtz*Z$(t_jEUhC&OT2_W0!A5jsnrj*w
zMxBXSw{fFKf6NoJ2CA`p!}#O2Z0pg^w{ySy>+m(drlvNnU%wL{5X4Kd54BrbT+qvR
z443v0KXRm@r6m`CbmI1gwe<8&0+)-a_nw?qQeu;Ev^aIDbbe+c^9eCKl0Vv*s4MFJ
z=ht?9=i|?#YD}j_yV$pGwd?y5e(&DBb&S0BKdWC5ON(E=e4)+Ty1aUIk26;(+-EuR
z?b|o$`ClIjJmyZy$>rqd^QEiv24!bwkDCm)X0BYh^0J{}c@SSy>SYBwx;yx!HG8Z&
z@`A#`27mkzv24wda2g@h6Lm5b9_+g2`2F4Wm3~b8TmylTDMj?OxIPZ~r>pE$l$0;CiZjH+8b8ItJI1kK+uUyEzR$NrH
z=itHWva)_GAa>xCl2W*&OWG|xdUBEeNbs4j^&k6Qg3p|D8fn+gv%hL@Z|_aJG4zNz
zq9q+W(=SP62;tlvHu>`LrBAmugu2IppxI&3EtKHOrjE
z_v42P-QM(}qSi^OagVd}5_GdiKG4eurwueWHxswkZx@%4P=0#w1vb1jUJGZDj@^Ct
zb_uMArh&)a)2iy~>dE?V-90?kuUn^qf0;KW-QOu%&P>OrVSI-9Xn;z#mEJJ_fzzrN
zEJxa;qq&yL#p?~(<^Ehh$}CUnxh7eEY_s{Fv)1
zF6+4@G@ee1&Y`-B;xK69asgI}O@Us*1wvz)5y@uDXU;qB;zT4bz
zHtv~s`{5k3(~laH4FpfuW?Zey&^&bI^V8FT`-+Q;%PJ6Ng8FZ?9=){v{%LZgLs#HO
zPmeGz2nVqv$M!=WB}Db)wrg|>*RG9!FL@A8iQo5{3yX5C$7eHP`0e9ePft(TH9=>P
zf8tlHr2X^f&(GiAqZJ-Zjda9!6^_1{@Q;s=U$m$3ayc{fvb<#{O+sl=QPI!@b&7Ah
zm(Z((y<#^vOG`^H%uSDW6%vk)Q!^8NOMkvUSV^~uYybYL2pNM%FA+_Adj<9KxPFgF
zJWOu5vx$vrBzki*K}Jw-#gh*oJ_Na6Kf6op#8HLPim9O%wKA(xv&ICTo6h4scOP|E
z8%!d#fBXI&VQy-}XqKt7IDzwo{1dDH))fns;pgJ!Ca9hEaR4{_Dl&5So;^iXRe}c(
zp3lGcWr9c6=kw>Ydp=Hg5i+LLyN||w9U77}{J3TX4S|#5Wn6yo#)+>ZBb`_PjYOS|
z?9%SVzKnP1**o(b;vaRNk8cmj?f%SdjY{W?k4->24m9USDNw>7hAprhZlP1b&}QOTsmZF*$w
zp2rFnUx?>Yd^er32o57nlsI*)t44D9V<8-#)vH${4(fO~_lrGl`WUNDJ#_g~f>x?w
zQ<9#{!f!Ry2ZTq2%Ma#oqlX6$9I)ufbC|8e5$U;ql~!3<`L@t%8n!DD>bEu*6cp@D
z=UCXeK+|n4AR}Y2I9x4REPj2Zn5A5QfBkSL
zv+5sQMQ(2H#+@Sdp1o&eWp8kuMrCYbPX0POIVkJn%gD##F5~CU`3XU#rmFhe+Gz8V
z%aDBTlcH{_b>|zN#c5BvVPi7fmUv_sRZ&+s!`}On!FX=)C;dCyukTlf6UO-tgN;~s
zd`84kyB{bDPXzQ@-?*etNoZ`_wQJYxiQsj6M!E_O&Y!=?wSzNEy&RsCyna<~SEXP4CY
z__*U}=K_+9Rp%R*cU~(t?4~0VbIMKc#FZ(Vg3jzUVd^3BY3+M@dJ-<=s?Lw9?L4`K
zwOozyOz-%daj$~pwz9G^^7u(+-1$>=e*=Cz;LYnHaJ&~Xl#ADoZn}j$#ks9%Z3sbs#
zhH<>F|kQHAKbrR
zVa*GTcr`UOVy5>A()<2>`wD)&U#}D@tWsXVDQEiN#-7E%?rMVLg#JNsadA%06KnRI
zuEpu?B$gKZwhNYz-e6qH_5NNKxW6KppQxy;3|jdIi&QW>z_;fkQfrWk;-qGxYFv+k
zq(;&O0GG?d#%!#tC-3dplPnvfTGoFT3FGza*X#EPvnZWC`}xM|^*1*Q7W|27AUEZY
za%Ugv&v?WGcA4iW@W@5QOP%W{@WC%%zC;-=cdC!
zIyN>bi&Cov3+KmCFTXrHdf4!zPh@0dLc)QW8w9os;jvxz)T3?e?4x~sO(?!yo^!+9
zMc&tm>(`OQO22$@baZ?!?qCKac`rd{%^?&lZ1FQ0!t>9suZ+Cv&VPPga&*k{^Q%Di
zXAw4yJRkwYgaV2c^=CaQ#LdkuC8d{SiFX6gq`6XFJ&x1MpTbJvnkrBT;?${wP04h$
zv{_~i10U~hJ#*tkjB2Ji(PRZIhY!)uy%zJ}fwGQHDA#EqIhMm$?&W%HB17Qak{vJ>
zy(OEsgP4Sb({O7;SCkY(A%
zB4Y7pb}-q**m&>${W9)@yNR`Ud
z)6-9y98h%-Aq<=+xm%)MDTM)*$RK_18ps5Yu9BK=f6SvMDJgk&w0CI8qHg`5je~=O
zz5P6AuR^*x&5+)puad8Tk&pdQh6Cqup0Cx8UeB^blvB@jGbR0$<2A86lFjE5Qa)a?K0ud!KYp}|vwnE<_AP~%;_8~0xbo0v9M874xuxd(i5%*{
z{Mh%=l^25JZH{ji-n%-xzP*x}KRivfqHLae)i_s>|JAF?v!0jgvaW{4Sqqqob6#Z;
zh(2O`CYS3`T&!_a6t_TR&Tff+%CCLB=1Dv=n6~Y^;jGiHENaEVP``y_4Be@R?
z3k##TnfwsBuUmuKHIkB&fU!_Z_wL>M#XrVyUtrnAgFdHl=C!p$(m%vKEi5E1UAlDq
z_;q}=79ct>z8sgJV3mc4gv2x7khA+Jl!@{2XKbg65rS9{`IpEpozkY!H9!0NL&C#{
zR}CHGeHG}ZFGW~=*+dho=J&wg$#G3k-p~+@jnmUkhavt7^|Uv6#>bs4PpUbze&Q0~
z@ceQ=T9t``-K6CFQ9qx-gvl@d?^Pz>PBR4gnstU}j&Cl9d<
zj?_{XGGiL&x&*}s-d-2~v}QR!&_ud%i7m&C*GNEjV3Iy(V1oYM|M+h$(f4DBhSfM#
z%W(Pi<+)VYlP7&6BfEC&Xa@Mjk#lx)YqC8EXa!6RV%86QZmtznY{-1X>@jlQ?TtGx
zTqqS?L4M15w%JoQMn*>Nf4<%UKxut&GJ5RO{hgAU%VKZX>Rz@Xy)ks?laX?T+;}UH*Wa
z@BO=rQi&x`2A3ZpCfnpw-T1`BwB*{`+bz0kRcS#Z@|DJ7sXBw4Vy&Qx6V&CK$T9D~
z=;7UT7@zxNX#h8%D#6S
zecOb$MMXuS_Jp2&<>f_V9s(ZaKHcGjgbuDhH8ys&DXC+<;2Vf9hx4nR2L&-QGrOR`
zWn>6@7j0%`oo~0Ra_Fxu&N|DlL2(Jm$jAVuxO4lqfKEo~R6=sWtQmBS%OI@8A;X)F
zFB1}mO4x~e{{987lV-?Y=g*%n^jtt_T{*a;T*hE|4Ow4$uTlUk*}7#*r^j>$Y8I(4
z;LVNM+vGt4QWu+18W3&@3JRhY&A;f0Ki7<*Qdoo8d^=6(d_(06*1et-`d(by5{Ng=eu_9bo>3Y22e%Ujix0TDE01GH|P?s4UI*$ta#Vg9AV;EG!_9p@yI+ZewD)685wi($J&5ioSk+@>~ZG
z{sN$fHt|fRhN(pGGQBs>wgAyv
z_nke+avyn=JnC5%Az7YxqPTJPk!)pTmYP#9TNf@k0)6AujC7`5sbt}&=O79_LX^*(
zas5?9C$ltfXIc6QumL%p)B_s!aU4H>9GI=FygcpGMUgNFU&D}xY`@73`vmi)dM*J4
z{KQgip#1=SXZC0GgS_0_-o8F!eyjxKPdE2kZ<}>tBBKOkDzFy{h3$x0J)oV3hX(+L
zW}*%wGr^qex!}tG{k$LLsOm{Yqjsk*kF4nnl!lu(S6Obm=g7su@eQjA-t|=4BQGK%
zf=UIKUcy&F3bTIF?c?VcCh2l*=2HqZ#K9fRG{-7QP3hA1f4uUq7hQ~XEHuk^-(z#9
zrig|0#fuk+-<_gX7jSVDiWJBKm7v7yyA5YPG4MPpF5a5-3o4%+Ntd$dC=`BP-hsN;
zRU~j)%R}q^!l2NTqxOx99Y6bvUKRw};%rkP$;Ty{QTBP%UYU;SNc_WJRD(?u?R5Sy
zYn%__JKi;6no-1w8raAgCSqA$TDn8r-n8zOl4X3Y#tsTWaX`+ZQjz%GAa+_=S#f+D
z9+tXV%f*1uuKtIchX?9Z9F?l}>MYo2Msjj8(-i2vJlD~qxsLJIUfydrTBUI2%o!9>
zAZ^Dg3g!OYy9@zHxid2}cYUI`5lt-8?tjv&qzBKdEuZA>ef9@$oRB-auP)^h0l>IZ
zLrcqf{?8b+P#2_a9v&WueX5kn8U^;uU`dzpmydUziR3OvOq#TDUP*Vs>KRUiUzqb<
z>Ks+$Q8Wp(ZC6<}h9<+I5fhsA|PV<_)*8{AZ4Kc6Q>%c?m=k
zE@!-i?Nas*ewt%))Q&jcQ$fMX)b#Z$-gO+KoN2%THH#P=8PU%lqnW%Zy@gc+ISqdc
z@v7u!59+qZY2lsf7rS%6R@q5uXVn1rLsqC}aRn##$^Sy&_lcb8UGDQ{I$;+LU4Ud|u*
zVxc)sZGXPtL~r0jjXf+;3x=77)17X~Q_&)PA6+$WnWge7l$%Dpoe!+g5L#<&Y%I$6
z@X;fVKw3?1;u42lTb3oqcz)Nyxj7ZSt6`hDsiP%j?&E}n`}imB1qphBT2>T5aON%eg8^QUQg%RG)W%ZA%J2?N2#DA1WLQjUYq
z(IpsxN)6QOxKbFUlnyr!kqYnbAe_1qu}uiy4|nKI#@CRM9l38{lq1?V%9NSTa<^AF
zDkxO{QbPG-?7^ZJ#@smQN7`zb={B*JR#px}z?gcgv(wvVa)6T0{2o7r-Y5s)n(@+W
zK1=bn%@{o|9LpYNzyL0`3ucOt0+);OyuB>OnXrV6?<5Pi8gm?jIS!lgCvS{S(ewHsF7#eJu-HPx8hcc9WA%93KT+elNu)Zpgsg?ymbrcy
z7-n&PhC|3>)_yq59cA&_wX_=33;~%-QhJnz@ekq|*Xj8*5`K-3yN(rax9mbnK=h-)
z>16mu5vFRA8VOnf5fRoqy?{eeUNWEEisIIBH3S}PHTsd3mWDEwl5&v21sb0DTdHnw
zK-a6UA3uFElOa`Et(0yM-0`jxI!Q>Z_#4nWOR1MbLqp^}%Hd|pe=REz$2K-}@$hm8
zVTJJO=`rH3xhTv+`1$%~oaXb5+5p`X2qCK%0-s#Z+v!g8+LvW0)ftB2;tmjUOCc%f
zWSSWt-0>(dkWs!L8671x+oI)LZ|`J@%;FgC3CR;xwhPDt-(8Pvj;nb8Ue>$lAld9{wnS|V*c!m~9A1ffBt6p;SXz2YUgb-KOc$;VQNJ)=K?r7jSKH
zSZZs=RW-{Ao#j+-7Nx&m42gs3fYxS4#>qNmnV6UuNFIsDy=fs!_1DMMd97G!(I;mL
z;FgUJP`qYx>kpPIU!LU}7W;y6#JqZS`{qr_v5#B5>F7mvY(NUzE^q-ML7Y)ktbpj(
zlKwiYxUBQ7TU~AKKmYtQJ3T66|MPrX?|$BA5gdh;HQa@bV
zNKplH4))@(kkI@BDUUDxu2VM8Pt`hN*(!YCz|cgMjEvLB1*rZuHa4i*IG(0%lR63I
z0YZRhP-KW+tgwJV0qd46<1$MVGMp#xX#w*TT}cg1;jv5}Dpg#9c7GeN)zU)O5*lXZR+6VG`E@e5#l>f#xsiEuxY50-yu6(1
z=+}^SSI^zvefajOpEbXeE}LJ=BS^j||4-kw@XXGq8SOovGQEIG8VzqP|FSz+%X@jzXnyWm`+rz%pr-|MV1fSDf05ZO#PcXBHT^OT
zYfw-SWteI3`}gl7BLZYgfXOdL<2&^TmY7#SpuqO~ZBiqsF%@RH&+#ZC!r;P%p&=XI
zAK$-6bDy!YN+N%Wdw%fXfe+w#V;kLYZ?Ca1OL|%wN%5h;vK%qv;y{6%oI1X918rcL
zdW73f85tQuQ&W?n?DOXY$Gt07tnlBSRCWu2#VDVubpY4UkkpfP&B0-EVgjNnKM#+s
z;{nFQA!lj5kISW{r&pAhKVv&rjQ6j{Yu!5Xn^0)FdwchCpblS2Z)y3e{@F+9iKpO$pVrfieaK!cU0!moJSV*`k%qj6y>)
zd7!9!I}RDbG=P##$two|$1fjYV?LN7Z9We?bdilEV<>>~U(HDhCG)d9(CJWTc~#X?
zpy|ck1S6wfo_$$K$!iF|M>dG@@SLVJpfSwt`|Xdm<0Z|}zfkf#g-dMU6yPTaSQIw^
zwqps2LlC;i2!)HYgU_EoZykf~drH3LVL2-2IZ8uybv3W?Ufv$ST!(>rKs$~81NkZO
z(>#A;k#`HLgWOJ{0JpT>eBB8-bhczbH0S5%O`f~_xV2qBrSeR>MUFym#?2dgn_^sV
zc$2Sq*I>QohPiFapP|mU)?ZxJ^S}vv``@4^2%0OEp_345HMI)B0V#RD!RKRxR+XR`
zL7@zzvk~+qZGFCL#9wia%2A}EKv-;LrBcbtgyg(0us<=oGjFtDZfM#?PXOkcW|E$#?_Z2a)vAqRFM5<%C|7mWtkO0C)ooO`0p2#fz
zxr}QA35Ilatzxk%WD_wUiGY(uvi%yKm?
zZLna()2FdiGr)qxKn=19)BidmwDO9mXttM^7fc1H*~s()#D$y`)E}J?0M*~W?Y)aq
z@b}P|p+@0_76YKCgoub^*`vKW{vRwv3MU(NUn@sIk-gfUlNuJ*hMI(heG(ju)N7we
z9amFiUHeX8Xgq=gXBBM#Q~>pDdk-E=0muT>M(~|Ecg_Zcn=2y0|V{>3AyBVV74j)u^6^jjCI31
z0gHTgc_Xxdam}m;FTT6Eb}JSg8XBlF!k20L_SaPE@D?r*Cj(-^VMgLGXtCLYNyy-d
zop)($=*+7lk1rISuhjfP>m_jy8dT;S1?raQj>yH`MJn4fl4n6zh?xol#M4qAv1kH%
zh&CwU0gF$l@Kx1xCWOMb*g$g~k=ZN31*Bi4mD(lojY)^0=ofpLd{jz}x9b^G@ks;zed@Lqlfk0`J;Q
z?M0_->R0nmJ`4}H6lUpi=?e#HGI--W_Ur41F87H_zT`L8(#Lhox$Tjqy8@
z8(Aa7nbi>(e13_s9ut|%pZwblrnNN4IR
zA{|87MqRz$u1d-zfBv-(Tu`rKVvby`{n*x~D+dO!n*-2nr;yR9nNaT=+izr~((7o*
zsyr_8rfUmAFEiA~l+S}VP{59j=mp*xpP10iH0uQ)bf$5<)V2`&KRIC_Ka-#OXF4~znPE_Ga&
zuQ;=cmUeb_wl(Oe)5tR)=rG6UNT~??Rveu^3yUGNDG^7xmpShcXassP=BNd9=M3ZHaALBvoqz!o=osZ)X8T{`Y`sCd
z8-jQ9VpFA~CFEbh3pu+v6oU`M&ClgJYTyQk{o|>5#uZEqE{7*ud
ztyl3Ok47QrpPZI;(J*BhYp
zAs)IgI|*cf)kYzEJ8aulk5tk6Clw}%HX)pFfFtb;(*VL@?S^6AxVSiE^Q^r<&Y_PV
z*CQVQLdX3VnUfFO!NGyxz$c=bw|9yZeRZY@+AoF<-aZbp;byt+2b@*teL(iU=;BUZ
z%dw5*0+lN_R>QL;1LV)Kg_&7fUHv7S`hT%6RN2-50^j9Z3W+fI$&=TNqzWc#tq-LH
z@?JvRbrf9uIr@Y0a&o3KeyA`6OEao`GHCgMiY|uz=UV
z4lO+xF0e%4h))6nR8&>BY~Fm(?#EfnjVkgg|0X=d|Bdm~A?B}A09oRI_fd8m8AZu@
zgUk)e2bL4SsQ?Us9M0!m^zhlU1nx5t(jF*(ZxK%LsttetYbKQ960=JFTk_&eSKaaX
zGdoMF+*l_RDDochyMzht1Y-gT7(|Gy);aJTCM1AA$^3e^64D_ks9T~js7V6V3|>Ci
z*;fAZk0;52o01?wPc6=kvWr+e9cF4Fsr&i!)sX&>_yNqo-0Dz(kZp7)czR31#I|_p
zHTTMprZJc+6-Vny;ML1``x@fhq@U
zGbfV&%5ZNP{@Ft
z_4mHMzQA{itNwq}O}zR)yNMX`4_%g|VrjRq`V+MUwS_pTkWG@m`*n`2x|5wf4W(Q+%cB1e&wqdOCQwi?vuy!5
z)s4MSvWgg3SuZq%9Qn_;F)=%of_2Jq!HlD=N}r;S=8UZf0Mr=7LIUoeyFNSh9V;P=9lcTV}w_xSFxeX
zREvpjhUr)l9Xo8tivTwe-ND|=D=R(VP6RJO$=1ogPAV?$m0*h`lOeT|x;hX|w4TVc
z`~cd6sj#>+gkQY4AFR4_g8H}{h{pQuWFsUJJ#b!8tDzr1NdArziHxljv0u7F#{w=(
zlt&%`0j7X=@7}?~5`k6-unuZeKP0Ysk&Pb%-<{u1oIigMT8cRZV#gw6mdY#XVPU$*
zjvYIB@+4RY(hV|MGgPC*&p_?a2H^^UgVO^NIBGwXA|Br;y%>lnnY*-RLebZRi^y*5
zo4mZrKPy*)E+^@~%>!3}B?!%%?12Z%;)B=HgHG_8dCu0cLBav$t+#i$()MZ
znv#+Na~YLNwN%=|&R%HqRTiWMWkHHS8AW3STLTB_7)}Q?eLz&UVP7O$rU2w`WZ;5{
zFA}8EYnv}D$4{#vU6cwFFv#1c9S1L>mvJ&W6*L=dV`x!GXX(#l?xN-%wYxGiH$T~A
zFgH7^F~i{NvqmD9=9mlYCX-9D_T4lWOFBBfGeB6u**FB4*|rs>
zXt{@zrF8%eNm9#Q)s}EQD@1XyF)`D>zm)hlEfC3iPsOHv%D0UdTOE-urq)jKqaZx@_Cd&dg$=S$bA
zu7oJ>_%bDm8%5d30%PBm1_kgV?C_
z7Izq;n)Nipt{UoX>;b&fxdmm0hy5%X;f{B)^f)H88(ENKDzlEk9tTMP34_Q;P*}b-
z_;W8}P5@~G`l_OmlG3?zjf;i4(nU3BxMPo=EXm>Op=k9!ka%BGQX;a0#>+=NUyYHW
zEhfQw@YaCEu8lN5<*~@17n#b*s&q-~Npo!g$bz$r%TbBowwNsG@8KTFr)=7Fg0`@7
z2wi;VrBA$dB^`_~>O-&wv20Jd^Z`mVjD;^4tADsQ3!GDVE@JUg?e#gwT-toe_YfxK
zUy?Lq(V-&mz$uJEP^kd1DTcoi?obbb4
zzFe_?*%tHec&qaiK2)2za7BlU+2G;MmTBKrCH&AZ%nl2&D%<$@1V(7G5WZ2dR99pi
z1_Z<=Vxs5FKt@A+iw{bvk!d
z2}ux>F0?>aN3jvHYH!xD!^NYoJRG{4Out@v_2{)g%`s6>S+8aE8=lyl^MsC$nJ~*}
zZr^iVCJl-M(n0c@abJg5sSql&{I9^2lu(>uBxhzu9nJ-uMQU$Ly?jUHe$@N>SCJp#
zd)TpKhpApceMyOer|!~w-o1N`A%URFnszQSuSF!=@v2Yjx&-%1T>sX9CVjWc(2mUk
z@Q4E=JN~S`PQ)zhJMXlCKB2LXc;zYrryie^?gE~rE4&Gn>VKkn-&4p|nJnAn`{B#=
zIbcvADJrTd2RS<`IvT2wT+d8j#FMVz&#(+M1_=ry;e&9BvMaLuYRM-C6y)%|G6ox}#+Lti@$jNP!clr6^4o*cd;?uBrU0~VcfPfcNGmw=1
zN})#lGSFqB6*fKiR8sO_r>MZeg9mXFf%T63sA-YC`}QGHLGBViV}eLXNC4>KG9KsD^X2giMxe^YsSk
zFg9#IBpb8(*m1Wb?Fm`D#f}wKPXhu{;qL^oz~s;@z&@%=WhilECpw{uf^Ur^7+ySb
zM?
zXa|;;o3-bRt)!PcNOprBvTA!pJFet2nD~F7GXIUqIQ7iFCC{N*R6>FU2oJg$sk@Gn
zw(iR%&>l9iOSi-Fq`*sPW3?f6!^M-JfHkuPVylv#vzYzeAK^ZJ7i}O3EC?hGi{_N$
zyscEpLx;x3O4yqm-8Kh6tpG{H3-*2dx(H}&td+{3>w>fE1}Oq2_Cy7=Snz@=CCxq_R1a}4*BEMHm{~E~
z)cP;WB+T8!Vyj#F^_8v1y!s*tOwLTA%>`v&E}w85hW#|{TJM?R3epb(&Sk1uF#lyY
zNInuOW59K!4;EqgPPsr4@yF=5-4E7y3V`VBoTDcNId9GS^$*@%YmVA%>n13;C>rv*3&Uk{QUe}TrYESoRK_Ga#Is!czF8BJe-FU{$r!+)w)P}cYyWzU;pXz4a98254yEnn82`9c*;H`IvCRJ2ls3HO
z3~;tpTKT{Zgm&R9Itd3DJ@n(oyyMqyVI?of%hd!&tamysL+?oXHLw(KpAD>HDes+t
zdZ_#ta-2r>^RsW$vyXhcR%cyq{br0fITH&$569m=4s@`WFJMS=yp$71N-NFi^h`F?
z)blgB*)J{kj-f5tD!?75vdtKs#YQ1Vvp?NtH{?$)*M`Y+GnE^ua&sdK&6gig^b_W}
z&J3zQUZ-sm*}Po1O#N)z)3VG;91mYfKPoK^!vc(y2p)`=fk;8R?C;JMwHs+a%Fqv`
z<<_WK1RtDHFJFGNI#kahofEpd=x+&fGRx5@MVVmb(eOMHh}MLr>f)6!F9@iza;Wj$
zrz{)%6W>67DFhKfpT7exz63fjxRQI!YG3CWO7wEC$y-T}M*-<^7^V_h$PO7*R=pqP
z^%1P(Yao2Qj+OcnC=wdL;p`yM?3
z3K)cuJ#iueIhyn&Sa(Ttaeb_)P_#-rcKbVK5rZ+i`{+?E@aXucS^QOQ-z~rq(;6Gu
zFAz!(yO+PU{VE3O;MN-$7%OtBH;u=Dw?+n%BlXez#{-+Dl3SrpBwGo5=45$nx+CvdaTLGm?+
zlb{*bsw_S8l5ii{4d$%dKXHZ6zWr76rd^WU9Pj{A^&C&g0o!~(#T8WjNDyr4a9E|I
zbsRMhO0{{&toN$rL7!vOpqZ8gSz@EOq1-#e28^0v(Uk|+B>F3uIYws;>c4hOJULc~
zh|Q?9?dj{oG$b@HB{>3mTi>a@4gQrQhvBB3u{?N7Z!b!1qrRrt;}1#C*Ihk=36Vum
zGeI7n)Lohs2SiRyO$~<-5QT1|+LNbI%L-=oq3zqBK+YoD2s+;)QN1{7AydE!vN)Mc
zc%XL#DMc6%8T%7Y#n43|(yprR4`M=@m{r5=#oO~MD_7zD#vCN%Y&POPXif5ha;WHRGhKl0eVsXkkzD
zO|ytik@|51qpx&q?=0M~TXro-q`jXm|979b@KdFjZQy!|wQGsBtya;FOJz+Oagq)L
z>NCun8K2i8b-|3KOJo#KG&H6Pm*xuDJ$|d)(jo3fEiF^c
z?hupb+9*tS?%d(bq;O`fler8^1Pwc5Qppl+86y-IOnH65;>&;h@F5yC`;n{F)b4fb
zh;<~efi^SFFg4IHm_J%zj=tk?5mh=zr(_!=c{IHI6SdQSKvck_h!wIh%638t#FWLc
z2L$WUYewTeWoVxrV!4k2O(@T#FZ9BNc5v|c)UJ}P%90G*w~JyYAsgd7uU@rE5;6kW
z%R=N?rV~4})f<|5=kLKG3(V#`n3#Yo&7R+xJNzUxoePjg_wN*KCSBv!m#G
z`Jo#tk9AyLrBK;%np4dFr4{Y&m65l11YXkP3fy{wjffNiCPSCQ$#GlG>a4rBp4YpF
zX)!=_gRGv(qM3LV1<2NR3>l4dHrzWIU1Pc}01fqT-waLes2yTwXO~yOi3`UsAsBD($qdZXgzu{bMSyuzz!H&g_ek~zj9XtC&HtUAWTZG5$4FVxDE&q
z^wNJK$)!P7z`VH6DezPTSU8)%K)95f$kC(Pq|J|I^XBd$8+#t$RDdClEiB|~06&R?
zd63*c_;N4_`(wz)j2apFu3t_4=a$if|C+0DxW9_dj7?4b@5%rw($EB2oZUp|4|9nj
ztrsjUx>@#0Dp^>NR!l@Te7%_$i~iA=UH$`_Y-N5fF}!IGNofgr0c(-EOr$`}60|ponZTp6zIKyX;mNu3+6_Me8%Sm
z7A>3%wlw2O52ie)TrK3^XfAc8}o{#)839@pdWA!v(36
zduTmgtW4hHIvN_iGWo8=t7+PS#L#_W(u;q-!{`jL99ejml&jAvZS5A|KO{|vB+caD
zCP|gy`N72!PY!60Lttn+`S~4j`plVGL>WxM@-I=TFb4-)Z#y(s(yx$d(W1&17!q<6
z4m~K?PJp2q8TPPTE1>wN8Qq29J@YxgZWgG>JT}O_{B`VMe1aPi?z;8smp>4_T0Cgdc8OVea$3Tz7ct#27&gure^Eg^^aVOQbTN_kgYEH4M|odXa69!3D}c~%Zl
zmyLfT&71>~iN`=@A6(<^-|vgIx0}sAh>})Y#w}n4;5uP2jzUEAVU={Y!8|ii(@zj`
zgmva4NLtI5f6Sm)C2c{rB!-Ls-n{UaGwnkUG)Ys|b{ILn`3dSgsNQA?ffP_TSvOk%
zeGPH5+F)J*4n^L=Y{lHW
z-A4?(Imu(3(6W)?sPnH#pZTx!M9QujBJHlu=}1RNfYEE5VDg)~4E})T3q(|lzJpz)Jj=y_O$O>slS*3f#`Jc^uA0RG
zLy4WavQEQ#4n2$2V(}Q%vVboRLO)rmrs%jgD%DW2miRVu=7x;WupnF95AmNjSJky$NJS=!do%P9^=97J)Ch}sY|!Yu2qksm)A^PQ~C
znJtGtp{1?+!F)w8{KY<}a5jhi&G}l*wr-Q}K{I=MKoFm%&VgVwWMF91rKeK!42fc2
z$YiGXXTCJTu}o$!R23U`PIeZPAa``p)~;QPY)HRhL&mO`Jgu(3YZMITDl5yyng<3>d{3Z1^m9F%b7hTN
z*FO91p!^T6*6L{Q5M)0D-5aI=c-F)up5?16z1GXL?plQ5fFySqSe7$_K!<}f14`dL
zJZ#Ayofrc%vFh@D8XMpB84f+oGVC*z
z9ke5?D2FH%uRD&zO-amTz+zMD|MJx$y%s1|%%hRE~SP}C$?x9wUbKjlAcu^{Jt97oz)
zUY_1MxFnKsNE@>NIF7B@Vw^unP=7GJ=U0k<6Y%atGUl6)QoX0|eCp3Z-oS_oB-}5K
zpA)OM#eXT%(8T_F_#7Yo`7YkKbIvhxWilg1XKfX!R9~MCd)fMsQ2*|qU4=_v^>`pd
z8&o#Uw*EZiQhZ}=C&o8EfON?j!OWE1F1$0AHjyqjP{fQqF7iw~z)A?OTB_1Lox3c<1k@bpXIB<2jLI3Gm7;&n2BA7ig-}Ch=
z+I$h{`g{pJQsG#+Co)Uete$)C-d-eQ$FiX}ZzLJUrl*s8+R1F$o}<#nF^Encq?y|e
zM?wgk7~Gc|NN-kP;s_VnhK4GGsCoUm56BM$%qm}53&X&}!aC%WZRAd#)L9x(eUbn5
zU-yMgji!>%r{XDWWmZb1vRXJyzOZe)v%}tZ)0@_xZ_U}*oGoiqM(>9KxRK*hV9lNG
z6H4Ai?<9Ad5OKF&dcy_Ug%Xd4=AduE?)j(4G4cM^{pX-N%=ar3X*)A$>w{0;XSqwt
zGDH3tX)jL{pGBmQj1{vAb&mf&X1&9z528~;ndcs=cXCczVO0UoC9SQQ-}KkBhc;P(cCS;Jp2IKXdbTkfM6CnC3hW*k?**?47gMkOyH2r*|6+-n
zPSUgQ&OD{?Ry3hCDEht*%=MnQ@@v`FQbq78Ojh;@D$GR(G-FcgE
zspNoDOQ!jg^vk)5JVAn=+y*Bq_<0EX!!Xk{b`>1s$0~;&HaU0c(u*2XaySngWNVv>
zC#7L$UvBJ4$K!#>xed}Xrz|!3c=DpF>nsQBuZS5w^io>PoS6oYub;1)6{hsHRQ`_HN;>$+G$2o#n691_1
z8qmM6QR%~_lFo2iIqij|C7JD?Q+VcH?HloxFgEjxd1Y)B5^}mXSXU?amT`!pvGLX1
zhq^Cb@_Bb}gLhR4f6fo$LX%6?
zhFwpe^gXNi#h&oOY_Y!K4*Qqc^WKb?Xhheaw6?oMlN^5gkZTx@K)`~D+F*{_iM)_D
z%w3tel2%XjP_3tq=7H~_NL5tu9X?#w^N-5qSG25$4jl^GRaIV|hv%-rZ;xU>H#wM%
ziDwB334$QhX8*C;$4~HEqTP)A`329cv$MmLQXhOjuZKRU*Wes_!my7d!@|#8`T2AE
zU%Bt`2DjRmry;64sCss|0I*?StfpdXtlQy;2fix#_z_10Q{e5e-nW=UI5;^a|8AG~
zMM?ZI_<`Ppu@g_N!O@2x?SdmuP=voLq(<>B$}u%8#>LaiJezz$YhFZSC2+6vN)e5|
z#KtSXMV`)vc4e-_faba_?zG*B8iDqR|!
z{=5KL9i?;a9%O4f-MQrtrg1u;w$k6MbEcuQ(-R|#`=24sHlaL+JL;kG#cNXgyKlTG%^9!d%KRsYy
zdcR&!*u3#G>)*#%(A0ZzRiyFs(XCpANy8uLE-k{?^qI1i{KUvhe1e2vw#5pIm({ilhf5ykD_M)vgVWG`zBQ^lx;^ALvp##K9OM0vZ-4j0iq7iu-vP3O=lH&-kN^JofIstJiR;|}!`}u9O}t5#7pJ7;
ze9RO50dkOfpAuT+a1!0zj4@O+>_s&Hh8sG!?Hdg*XTQSek9KqUcAO;@5Yb_*6yh{n}op-`*m*@
zQa}~{-9fas-`tG$oKULZ@|zFDg62Qs(#~6_{-xgQ`vaN9&9Z0lU`L#bAdz1a6Jf$v
zA8qEq6A1qE(`|dp8TWhyThWvc!_ep2JtzfAL;s3eRiwi59#(et2gSZK|9*7Th;M%=rsrRBd4=!6eqe>D_IP^&Fsb@_z)H;EZ**1)5ZZK-Ep*xR
zzyap5fj2`9Pel`CR(E94Dk?16@Pt`fPpf?q5i~4qs(fo?6a=9aD*5agTj}THa|0T>
z{L;Si#HU#;W%T_BkoX`@;Me;1zxD88JS&cxS9#>J8I$W~C)l*Ry!(lai8f&YaZWt^
z23LUEefHRI2De&?^2XdeME*6kv<{C|ULWDHXgebBu)1Oqo6Gy>i}QrIDHU-v(>k-b
z;ID1sJ^1h5jln0_Qe>2qtar_4a%h$mZ`-#r&Nxb4UA+drnwsUD)KCvZm5wpk#j3+C
zF$mig7x!t&o^k7HQ)FbG%5rHO7f?X1a9oJZLY}CPm*TyY`Zw8TL%Vv9v37R;Ol86aAYwo$7y^Ws?2wIE;v=h>WRH_=
zL59HpNUYOoMZ0)*J7>TcUEQZ^uA1&r2{%=ei5YM&VP%a4v>|LPr<|El>!2hKQ%Vrq
z0>{q7rcfo!I+f_Acuq80O))eCx&BH2Tf)VQqc*9H8MBcP&!J4_+nc_fD0Or56s4&8
zp{BBq!Z@QTFi5rPTP!$N3aDS8^eTytVD?JmQZOPG?cH)hunCw}bW*9?ku|4IXUlli
zc2-o>)2mx`t(n$=)>RD}mYX?chG=SPWxaRU7qLNqhrqA6NxJYp`*a+SW6%mGC){e+
zp|`^(_EsbAnR-H5W=42Oh}5}z_p-Nde-t{M?H;A9FNcbcD#2I|4gK)x=B;I-&y!+u
zwWo8-xkrl`9A_f=!kbF|H7!f-c0FaTX6{QdnDQt;e?2{J$ZUt_x0Jo=mk?J-&)uPj
z2#r-JTOM-@-9L|XOzM5G{yFYJpfaO}56>^ObPZJ5Ab)5yjOwnj2n7zohSJc;LTyUL&Ob?;O18A#?TM%q@y}FnN~FF>Ex}#?
zAno$>@G!4&?S7>Lnx5|@!4Y9$@94(leuSTy?el}$H{diP~VZ!gHs?_a-m
zgS$k<<373wB`EckJH87vlmT6L>u@;qbGJ;j_A)1j*mn^g2W1nN$Jd=Z
z0}(BeHFB`9IjmAFFW7cy-#$4x8FbP?(f&oH8Nm(7^lvcg@tD|<`Kw7W_-Z!LE{Kl$
zC)Nrf6?YTTTwYxV1DY)Ns;mqMBpAp(1LgosQpYB4EwN?K_?l>h2N*PENm&{L1_;Ma
z!F1y8nY(eDuy2B6#Edie$!axKt^f
zj|Wz)uC4~eB)0LY^-#p(&UEYiMgK`3m-(!#+F>c2Epdi81>pRBg}2xn+ibkig<=+XtQPv#b5A;o?sTw7V?
z3%gkZ2Zv~zILj;X=I%rK`*zcHSxAO}aEdfnn=%KDJtz46f`Z=xqlzEDG%4Z40>}i7
zy2CDcp6qnWygt`z!74afaM+rR>m>BNhb3{AV?Yb(g}I)Wr$dQPy*w5N53rlmFVdBb
ziDt<*pTt94bfXn@fpr-23eo)w7Fl^}q)d+evSoj%fOwilCgS%+m(S#gSr>W5fFZOg
zp+F^}zevcr#Yuv$=fsh!0nXZfMJpf2zk3{mEzfT(3V2TC@81v1s$@y?_^VJ4X{|2a
zR9h{50xbx(*TeRYIs_JQR9oF{QLqF>CP%((wmE?4S>qRQy;^x*_ALz${XiXiG@1R9HLh_=K5wr5SBcApJr~HRSMe`d&
zDrGMvZ$NKpf?YvSCW$rnD=bR~6j`HQuAa1u&W|QL>P>U%lwvjvG77TWTxCHoj*xkQ
zWs;c;QCCMtdDtrjuV#G1@O*-fvZ!y-RUdPB8qO@`Fk!aXoG8Q|=-~vuF*VS9fDa94
zq9H^_M+ZJ!QX4un!}|2-2qc>(*3E|+nE^G)_tn-;u9@9M#(BV~QTexT-+u7m!G~Y{
zLbE5-@P13*y?eNC_#60o3mwnIix+#t$MZ|GPSsXFU)_GFMe3w82PVfBBOt_9Eo8`H
zubLI5C7gvJCU!w5VBHMm_JS=W_UbMkv*bS9ClZK^R2rAn-|NV#dG$rObMrbXj;@z!
zZwQY8frPKXj6*k%HRQ~}5cw;}7=gm@PC%Emc`0s2a>rKMJ34TO>|)DaaVN_c(AY6p
zP0a!N1tj4?R@O#PcgoM@9-^I$;%145L1gxy`daCWq16>co$`x88n?F|H+C$DdVEe<
zOmUkRF4rz2EAsJ~9Ch(QGw%bgZf=@tYG8}Q3VkNGY5QaMh;1CLZB@{9s6@t&LsA8<
zEV?(dzuB}~OmMCGe5Ka8F5lR0iIWq%!>Vplf3>rV&)J8xlF8Yx
zj$WsCa3eH|;sN##I~ufK-EQWo9EwMg1P&O0c~O5v_{lbrI+@xUSKKVlR#?(?SDesZ
z=IK@fC0=nPFafPTahOzO{4ao_<
zCUKUMva@I00xOS^B$NwBleG!ci=Jb21`MDDRFBkeSX#hWkY)0JZK?i`wo_gj2^c0L
zCa2ATPRZux5o=Z>VMWq|7INT#E;1z#vvCAO*Jm(g3a3l#lUB%r?Wm{ZUvq!4*`c9T
zZi)@A7CP4-r%DCV(Lrl>^0Z=JE(sVCl~ab5zz|=2hk#0BvfD4Otb
z`1nt@9Ng->V~4n9H^m`3(p^j9Y%Yao#;>l9J23BIo9kG`OWuSg6EdEn$&2Tp@5f~f
znR{*_Nd;_ozY-af&9IZt(ed!AVGUN?n5p(7yLwy&rpjb4BDtP`}
zqqRmWHTdT}0Rc0oPaj$H=qec$Jmq>IeNw-8uR589T?k$uKx{C3Yrr+^#mWyt(iISh
z>O`2{aj}YDdO8hZS3K}DRXW#&(=u#`>?nJwd_W}U-rxGWm9)#3-8*j_Wp?~Cd!f9e
zXaJDgi>@v_eEDKona@4QWrS%4R0*!#M1+7|4<0@&Mh75&U6^GE1wmxL%#(-77NTnm
zqOPItSm-uS&owK@Y5i$fY2pgYXC>ghxK?hLqG7spV-9XTXICyb)zE34+#0@Vyzxbb
zl=12sy||Pb5=j(zZ|=}uGWVkhC2&Us0T1M6fI%8M;!NNT1aweuUP$e}JCKxSA%h8s
z1jEzM{jV3TU4r+<-xq5V?Fw=WTpp#ttZOV-YHz<^nk(ZyCe!I``n&S-8VY*U>
zsT@B70JeT)W@AGib{HQsih~KAO|H~8H_d#-iZWCXM{~;FNso?vDJcoBSI)2LEg>oAczA&dD-CCMfZMbgjcM&s@0f~(s9F(N$tCrxz@$%U-=BV`X{
zG)qYiSRcAP0@4)0cAhw)8Zpa?{$OS0RLqL_EO8P#R9*+nk$Uv#f#NKO4I37QOS;?W
zB91BXFFb5qM^1OKC*<4+(2LbeI-n4#CA070)ALW5Pr`=|AAa6n2TiNK9~oNto)2r=
zqdn@>R>o!Ox2mc-%=_t<^Pp@M^^)A8)vM3`ao6x=)`wl1$N5*40mcCcv?Y!iv|<4`
z`u@Eamux^HL4zdxFCVN#KndUwunQl5UH~~nQ
zBv@aLJc<>{h=3pXYg2s%SI)rQem~2O2DsL&a}Z_d^m`8<_TtU4?aib)b3|z4PWfX(
zNJmIVh-6Ll0q&+ro6L{k1h+-s$NaiX*{l3pS{|F3ViI_rkCszexoQv32T6$1O!BIQxAW)_u5qWtx*>n9o*05H*6q&c94$sA(-OX_VZM(Vi@
z>>}2#NRPp?Ntt>hgm*U#B?ZEumB9qMLx#ljD|!)wF}XD#xsg$6^ir2C2joUZ%J>US>xCoxMz!oUBksuL#T}?pJdx0wy{iMt#
zKo)_IF*O@IkgU`TNw}&}IT*#Ft17ssXHOLuPV6J^rVr%-KS+T2NcE(a=*r39x5?9^
zAOaEgDUjhviOoq7lF(*)V-*Lm*hc~f)zhW#Sqiq%``=@%4
zy1J`t&GW4-9ke=*-SwL`(MO*?BK=<^(BR|{)4i%?s5vq9tR!x2rmXURZrxVpu*d72B_#_>
zD@Z$OpSp$n1PIIN?7@ovf{eGHcE^mLh(@&Op(nXw-FlAa$~cThWkdtn4W7QOmoHyl
zS|ZSLUIWLR`g;E+pmHC=p5aZu&3G-E_$C8+jbci`Tc#Dk3BCopDz99w>i@rzbyCkS3fs^GBQCk|MNVA
zM#(mVeKCW)_;GQDI^Ok8$%P;f)4Q7K!7U&}P%(g)v5ZZ2(+g$hPmn5FyvI+rna_$c
zqsd^JoG|u3^3s6=f+Sn~mQfHOgReZYzp6h0@$aR`0KPP{+^Y@wy!@JZls85}fQ)nx
zKbRZTz2Mn1{wUVUVKi%|gk_2kwO)QWJlv|{<%x?2@ePK8Te0GFRNK>sNR@dF^2ZNn
zWG851zhs^APv+@dNA5wzfT*|GD>B#7eO&KV26grQ<>t!Ewm!3SmUJq%>WF=iDu0K!
znU&=}I>NeQgmTn%Pus)4&gxr-Rjk?@q-qpozB(&0IoZN)vgw|e4%T6-R<0~xwSf{Q
z(`hcZ7j?I0Y~hC;H%G@l4hcj;sA?4RsNWv>>o&z;5S5+>Q@>4r>=vZD)ANr~jJdj3
zn*;In8QZ;Eo;PS2ye3;ScxXm<>1eB2hsTQkCD!zFP%|9bIrk(|a+0{g^YbHS*_So*
z9$mHKsp|A_lc>(qyUNVnrjb1MOXxYX#5_~Q2>BuIdDd|se9yHnTvetXGyP)u1{L4b
zsI2I%v;1y{#UFDVt>P;m-zEOIda3@iwu@Gmjfgp#wmrbtVd*P<=VQ|0hUp4b^#NfO
zbxsabBG*sWrb1^QsrVX4IYLH~T@#E1*08EL?KjmQzTELqZPV5cZ}NQecKltLHB`KT
zv^3l@<^#a;MeR?r3ypm*VJtQ=I1^3J_jvy=({j}2f^(6&?=ync+DFp3QOv=)V>Q*)6WmtxY1%1AJ?G7zk3PqP$P;eod7AVNl);*G
z8VLbUf&BF_)}Cd}zBsgKidyE3C?ZN1om(`Sm`~gQfgr*r+pL;4O`1mZN9?(hpP%>d
z&p$N;kmk7QqNJqMwQD|xOdx2q`rC#LDStSnDGpqX8&~@=kwXCh^vo|4pu3Bh#`w~*
z67H0*L&VBVqQ%ip~l;Cn7PIqv!KuMPih`w}Tn=+9Jc+OAHw;L5&b
zlkI+ZezotvkM~lt07$3@5k+IM{0qe$^UB=tUyQPhB}rISHsZ@Xb(W|2
z@>YbisO6`bH0Dk*4Cc^Ag#m1|ER!*8lUEOQ#GVlKuXHpjD{bw+@y}#1x${>n1_Tq&
zdBC|=$}}dZ7IH~`xCAauv~d34o-HC0rkLPgxv)%s;qGz&y6NZsH?EysG{iK!%nkh$
zUmTQdcKY|efBV)(POjTH$uo)n7ZuyYKP}6XX&wk{$DgC-RC_sEPfxK+7iv(xdeISp
zJq*17HMeczbjFT-aqZeMG~Vv>PPI&JC2soYmK6@NJHR7wV#9_Eb&zO5AUzqatNXz%
z1<(l1!dT?-fIf)yYN~mJ5*Qf|Ho7+C+Sd7v7xDP2R?;|KVFyEYL=WszOdYVTS>xg&
zuMawmIHGA@9i;BvgfpupI%`!7D9$Rbn73Wm?e0bMS||Nz
zbM+fLLPD;+e3{X~DQQ!_xMoR4YgqeLJN*-?w#UV-y0rs-oxiYR$@hj45hToLa4mn+
zyc?zOhph|-YTO4o#RVRa$aZME;0Z(=Ig;UCVcEY69gmnq){!tFBP%K@!r^>`^9xgVY3@dfG8_9g~k7c?o0RRbGDKv)jAFV^U@!i=erU>=!Ai(v3txn6Q{3(H5cH
z&)iEue(6;^n6ye;Tbr~hU!Y@GBv2l>l+d&Y@ib)2XHRaciy17Eb-KL1U>TjjIt&a9
ztReFviO!auU)j8I_3AIQKM;6+BBuqW%FnkFm={jbX3WYX_k^#h`Td*Dskug@XuV2t
zE*g#1joE2ZXr2ts)%8?TjSlxxp}8Eo50rF76*0qvltd32S5FTqCEZUjPmZOTp~kn@
zB*t%(2WDa>VWefOJ3b{pe%!x%*KhZ3fobCGy=a(1uU=P3xw#4z-zH#$H%Pxg8V#zg
zdwE>_7@lH(5Pg!00d2>-iv#!V>!uN{Jj+7FZ-)vn7tm|1pBWZ?|~L;Bi3hRbz``D
zdMK>J7>UGqIxz!Ixn&PlG9fzVS3PZ4XP^VMYxn=!W1RcgtB@p*DHT;2k^Wh;FgoLK
za~c<~^m&>b+w4=n1rQWXrSsk@jSm|L>
zpcDzON|WBnh=>SRldw{%m#l<8@K$B-wMmg?^N~DQO3r`mt%Foc=Y<-JgIB2LSHRiS
zA?Uus)I0*8*#V2fWX&ufcvvEi_U-d=_>kNw`hWp5FWbbe11(9=6pN57*6ILLk7$qf
z-M)PQ6F+{M<*w-GJi_M&)d6W=sG%L)^8mo93T|}oY>xegpEAvk_tshL1(|&(Wn1;|Bs7Sk3lfN?L>N0mdbpp&yAl(;7)r5f0X+S*z)KDQ85Z%E2v
zz!djbO(oj?ZkQ}H%&cOPh1{_jcVc}4k!Ct>9wMVP%_i;wJ>7Yy@*QL{Hk+&G?&>+p
z=A5_jmzlD$c`nTY;T20uONIDV@uvgMmb5t-Q>%~gnFyFR*Tx3DhSiPU6^w1L4r2|j
zOj6tMz9f5x@_zTjo>~qj+?rrMxqq66s)=U;4NJS@e>fsy{;kw>ITa)<
zKSr83`rq@AF)@v6o$L8rp^waqHcPFYW!}WR3fXW~Q)wD7HVyDNq5OWJBnB1)dtX+R
zz;V0ipP8SUS6p1bY`)sJEw2VIse+m5<9i9V**TAG1-h-M?*WA!v61PfDh8m#q05Xt
zj%8H%*Z)8R7+^TkrDP&G-|gu|2?6Zo%H!Qv+2cbbeJa$Z1d42Av7m7BpHX{Nw6&2xDCyLazl-j&SFet#wjEVr^V|1qi{abf;|6<$MONcr
zXfzjosNKOjDiHD#uEkv6WTah;G#Q^Li#9BQ;6FHmcUC0~w
z0D>>Gtyx9t@y6Y8G=E~V4l2G0PPZW+(Fj?Znf3L3T;>KzDTb<{U!=TYql;$Misu?*
z47z=0_FY?D_4vCcvtFRTva>rZuOC)QmZNDWrTu~_%}if-OB$&wxHwW@PPr&=j*U1X
zyxef2bY15&{`02?ozVRD41+5#uPd)EQ>U?A%~SqSHQG6FJZs~{i+L&rr2dQ_;>47H
zO@hkKaV{|Y6JE<mIW
zP}SZS(1u238qUvVtT`PVJjcjrXMzJtI>ZEyK0W4Hr3ZNBvs=WRmAWJk<
z4#jDg>+Ab?5>Clj5Pw`qPOkd)4eZ2h{8z&I%mOp>F#FP)ah}o-UFMClX0QO^F{2K(
zi94+AB#@}s4>pad2UMv=WH$LBUY<-aMTtl;`C$LZ_rMx?M-Co1pwzju`P{jH2{?N(
zAHa9mi+hcm=pZ`K$@_y}fB6Cj$A)Y&-K=K?2!SY}!Z>lZ1b{`sqA$lf1!_b?Y8}S0
zQv-3p31szs{zGVts@Z3RjbB93Dbrxb^`pI8l~AElvSvJM^-1Tzp}GA+<1^E`&lz3$
z&gaToGVHJ{jgiE@%{WVTwvcbhTVN>^ny7T1z=%}r_boj^;$w(r!b<&-WPqzxNj
zNXgVF5ZM?~sZY9V>rUyUA9rruf)-py2EqQ*_hYp%h?n-m@8bGXE~Te$rppe@9#nxe
zpOo|qWj0X^fJ~!35GP8QR4`3pObI-PPzZ_$Tc8hg<$_^~Q^P%b$)pXn6vfH|x-LsIcQ0(wq6NeL-Zg%qaZ%qq
zW$M&ZCr->bq-&bdtd#yx)7V^)!m|mvPAJokfMbCH>+0!QG|VRjj`v#9PlDhF_K~72
zT-SDyS?^bDWSPUE*XX6hcS>d%TwT
    
diff --git a/docs/reference/as.atc.html b/docs/reference/as.atc.html
index 29856a79..6862575f 100644
--- a/docs/reference/as.atc.html
+++ b/docs/reference/as.atc.html
@@ -248,7 +248,7 @@
     
     
    Details
    
 
-    
    Use the ab_property functions to get properties based on the returned ATC code, see Examples.
    
+    
    Use the ab_property functions to get properties based on the returned ATC code, see Examples.
    
 
    In the ATC classification system, the active substances are classified in a hierarchy with five different levels.  The system has fourteen main anatomical/pharmacological groups or 1st levels. Each ATC main group is divided into 2nd levels which could be either pharmacological or therapeutic groups.  The 3rd and 4th levels are chemical, pharmacological or therapeutic subgroups and the 5th level is the chemical substance.  The 2nd, 3rd and 4th levels are often used to identify pharmacological subgroups when that is considered more appropriate than therapeutic or chemical subgroups.
   Source: https://www.whocc.no/atc/structure_and_principles/
    
     
@@ -286,8 +286,8 @@ On our website https://msberends.gitla
 
 # Use ab_* functions to get a specific property based on an ATC code
 Cipro <- as.atc("cipro") # returns `J01MA02`
-ab_official(Cipro)       # returns "Ciprofloxacin"
-ab_umcg(Cipro)           # returns "CIPR", the code used in the UMCG
+ab_official(Cipro)       # returns "Ciprofloxacin"
+ab_umcg(Cipro)           # returns "CIPR", the code used in the UMCG
 # }
    
   
    
   
    
   
    
diff --git a/docs/reference/atc_online.html b/docs/reference/atc_online.html
new file mode 100644
index 00000000..004b63d7
--- /dev/null
+++ b/docs/reference/atc_online.html
@@ -0,0 +1,353 @@
+
+
+
+  
+  
+
+
+
+Properties of an ATC code — atc_online_property • AMR (for R)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+  
+  
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+  
+
+  
+    
    
+      
    
+      
+
+      
+      
    
+
+
    
+  
    
+    
    
+    
    Properties of an ATC code
    
+    
+    
+    
    
+
+    
    
+    
+    
    Gets data from the WHO to determine properties of an ATC (e.g. an antibiotic) like name, defined daily dose (DDD) or standard unit. 
     This function requires an internet connection.
    
+    
+    
    
+
+    
    atc_online_property(atc_code, property, administration = "O",
+  url = "https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no")
+
+atc_online_groups(atc_code, ...)
+
+atc_online_ddd(atc_code, ...)
    
+    
+    
    Arguments
    
+    
+    
+    
+      
+      
+    
+    
+      
+      
+    
+    
+      
+      
+    
+    
+      
+      
+    
+    
+      
+      
+    
+    
    atc_code
    a character or character vector with ATC code(s) of antibiotic(s)
    property
    property of an ATC code. Valid values are "ATC", "Name", "DDD", "U" ("unit"), "Adm.R", "Note" and groups. For this last option, all hierarchical groups of an ATC code will be returned, see Examples.
    administration
    type of administration when using property = "Adm.R", see Details
    url
    url of website of the WHO. The sign %s can be used as a placeholder for ATC codes.
    ...
    parameters to pass on to atc_property
    
+    
+    
    Source
    
+
+    
    https://www.whocc.no/atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/
    
+    
+    
    Details
    
+
+    
    Options for parameter administration:
      
+
    • "Implant" = Implant
      • 
+
    • "Inhal" = Inhalation
      • 
+
    • "Instill" = Instillation
      • 
+
    • "N" = nasal
      • 
+
    • "O" = oral
      • 
+
    • "P" = parenteral
      • 
+
    • "R" = rectal
      • 
+
    • "SL" = sublingual/buccal
      • 
+
    • "TD" = transdermal
      • 
+
    • "V" = vaginal
      • 
+
    
+    
    Abbreviations of return values when using property = "U" (unit):
      
+
    • "g" = gram
      • 
+
    • "mg" = milligram
      • 
+
    • "mcg" = microgram
      • 
+
    • "U" = unit
      • 
+
    • "TU" = thousand units
      • 
+
    • "MU" = million units
      • 
+
    • "mmol" = millimole
      • 
+
    • "ml" = milliliter (e.g. eyedrops)
      • 
+
    
+    
+
+    
    Examples
    
+    
    # NOT RUN {
+# oral DDD (Defined Daily Dose) of amoxicillin
+atc_online_property("J01CA04", "DDD", "O")
+# parenteral DDD (Defined Daily Dose) of amoxicillin
+atc_online_property("J01CA04", "DDD", "P")
+
+atc_online_property("J01CA04", property = "groups") # search hierarchical groups of amoxicillin
+# [1] "ANTIINFECTIVES FOR SYSTEMIC USE"
+# [2] "ANTIBACTERIALS FOR SYSTEMIC USE"
+# [3] "BETA-LACTAM ANTIBACTERIALS, PENICILLINS"
+# [4] "Penicillins with extended spectrum"
+# }
    
+  
    
+  
+
    
+
+      
+   
    
+
+  
+
+
+
+
+  
+
+
diff --git a/docs/reference/atc_property.html b/docs/reference/atc_property.html
index c6ad52c9..208b4d07 100644
--- a/docs/reference/atc_property.html
+++ b/docs/reference/atc_property.html
@@ -6,7 +6,7 @@
 
 
 
-Properties of an ATC code — atc_property • AMR (for R)
+Property of an antibiotic — atc_property • AMR (for R)
 
 
 
@@ -45,9 +45,9 @@
 
   
   
-
+
 
-
+
 
 
 
@@ -216,95 +216,71 @@
 
    
   
    
     
    
-    
    Properties of an ATC code
    
+    
    Property of an antibiotic
    
     
     
     
    
 
     
    
     
-    
    Gets data from the WHO to determine properties of an ATC (e.g. an antibiotic) like name, defined daily dose (DDD) or standard unit. 
     This function requires an internet connection.
    
+    
    Use these functions to return a specific property of an antibiotic from the antibiotics data set, based on their ATC code. Get such a code with as.atc.
    
     
     
    
 
-    
    atc_property(atc_code, property, administration = "O",
-  url = "https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no")
+    
    atc_property(x, property = "official")
 
-atc_groups(atc_code, ...)
+atc_official(x, language = NULL)
 
-atc_ddd(atc_code, ...)
    
+atc_name(x, language = NULL)
+
+atc_trivial_nl(x)
+
+atc_certe(x)
+
+atc_umcg(x)
+
+atc_tradenames(x)
    
     
     
    Arguments
    
     
-      
-      
+      
+      
-      
+      
-      
-      
-    
-    
-      
-      
-    
-    
-      
-      
+      
+      
    
     
     
    atc_code
    a character or character vector with ATC code(s) of antibiotic(s)
    		x
    a (vector of a) valid atc code or any text that can be coerced to a valid atc with as.atc
    		
     
    
     
    
       property
    property of an ATC code. Valid values are "ATC", "Name", "DDD", "U" ("unit"), "Adm.R", "Note" and groups. For this last option, all hierarchical groups of an ATC code will be returned, see Examples.
    one of the column names of one of the antibiotics data set, like "atc" and "official"
    		
     
    
     
    administration
    type of administration when using property = "Adm.R", see Details
    url
    url of website of the WHO. The sign %s can be used as a placeholder for ATC codes.
    ...
    parameters to pass on to atc_property
    		language
    language of the returned text, defaults to English ("en") and can be set with getOption("AMR_locale"). Either one of "en" (English) or "nl" (Dutch).
    		
     
    
     
    
     
-    
    Source
    
+    
    Value
    
 
-    
    https://www.whocc.no/atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/
    
+    
    A vector of values. In case of atc_tradenames, if x is of length one, a vector will be returned. Otherwise a list, with x as names.
    
     
-    
    Details
    
+    
    Read more on our website!
    
 
-    
    Options for parameter administration:
      
-
    • "Implant" = Implant
      • 
-
    • "Inhal" = Inhalation
      • 
-
    • "Instill" = Instillation
      • 
-
    • "N" = nasal
      • 
-
    • "O" = oral
      • 
-
    • "P" = parenteral
      • 
-
    • "R" = rectal
      • 
-
    • "SL" = sublingual/buccal
      • 
-
    • "TD" = transdermal
      • 
-
    • "V" = vaginal
      • 
-
    
-    
    Abbreviations of return values when using property = "U" (unit):
      
-
    • "g" = gram
      • 
-
    • "mg" = milligram
      • 
-
    • "mcg" = microgram
      • 
-
    • "U" = unit
      • 
-
    • "TU" = thousand units
      • 
-
    • "MU" = million units
      • 
-
    • "mmol" = millimole
      • 
-
    • "ml" = milliliter (e.g. eyedrops)
      • 
-
    
+    
+    
     
    
+On our website https://msberends.gitlab.io/AMR you can find a omprehensive tutorial about how to conduct AMR analysis and find the complete documentation of all functions, which reads a lot easier than in R.
    
+    
+    
    See also
    
+
+    
    antibiotics
    
     
 
     
    Examples
    
     
    # NOT RUN {
-# What's the ATC of amoxicillin?
-guess_atc("Amoxicillin")
-# [1] "J01CA04"
-
-# oral DDD (Defined Daily Dose) of amoxicillin
-atc_property("J01CA04", "DDD", "O")
-# parenteral DDD (Defined Daily Dose) of amoxicillin
-atc_property("J01CA04", "DDD", "P")
-
-atc_property("J01CA04", property = "groups") # search hierarchical groups of amoxicillin
-# [1] "ANTIINFECTIVES FOR SYSTEMIC USE"
-# [2] "ANTIBACTERIALS FOR SYSTEMIC USE"
-# [3] "BETA-LACTAM ANTIBACTERIALS, PENICILLINS"
-# [4] "Penicillins with extended spectrum"
+as.atc("amcl")         # J01CR02
+atc_name("amcl")        # Amoxicillin and beta-lactamase inhibitor
+atc_name("amcl", "nl")  # Amoxicilline met enzymremmer
+atc_trivial_nl("amcl")  # Amoxicilline/clavulaanzuur
+atc_certe("amcl")       # amcl
+atc_umcg("amcl")        # AMCL
 # }
    diff --git a/docs/reference/first_isolate.html b/docs/reference/first_isolate.html index 3256de9c..72d7bf17 100644 --- a/docs/reference/first_isolate.html +++ b/docs/reference/first_isolate.html @@ -368,11 +368,11 @@ On our website https://msberends.gitla library(dplyr) # Filter on first isolates: septic_patients %>% - mutate(first_isolate = first_isolate(., + mutate(first_isolate = first_isolate(., col_date = "date", col_patient_id = "patient_id", col_mo = "mo")) %>% - filter(first_isolate == TRUE) + filter(first_isolate == TRUE) # Which can be shortened to: septic_patients %>% @@ -383,14 +383,14 @@ On our website https://msberends.gitla # Now let's see if first isolates matter: A <- septic_patients %>% - group_by(hospital_id) %>% - summarise(count = n_rsi(gent), # gentamicin availability + group_by(hospital_id) %>% + summarise(count = n_rsi(gent), # gentamicin availability resistance = portion_IR(gent)) # gentamicin resistance B <- septic_patients %>% filter_first_weighted_isolate() %>% # the 1st isolate filter - group_by(hospital_id) %>% - summarise(count = n_rsi(gent), # gentamicin availability + group_by(hospital_id) %>% + summarise(count = n_rsi(gent), # gentamicin availability resistance = portion_IR(gent)) # gentamicin resistance # Have a look at A and B. diff --git a/docs/reference/freq.html b/docs/reference/freq.html index 4f4c7ded..d8db6949 100644 --- a/docs/reference/freq.html +++ b/docs/reference/freq.html @@ -385,34 +385,34 @@ On our website https://msberends.gitla # you could also use `select` or `pull` to get your variables septic_patients %>% - filter(hospital_id == "A") %>% - select(mo) %>% + filter(hospital_id == "A") %>% + select(mo) %>% freq() # multiple selected variables will be pasted together septic_patients %>% left_join_microorganisms %>% - filter(hospital_id == "A") %>% + filter(hospital_id == "A") %>% freq(genus, species) # group a variable and analyse another septic_patients %>% - group_by(hospital_id) %>% + group_by(hospital_id) %>% freq(gender) # get top 10 bugs of hospital A as a vector septic_patients %>% - filter(hospital_id == "A") %>% + filter(hospital_id == "A") %>% freq(mo) %>% top_freq(10) # save frequency table to an object years <- septic_patients %>% - mutate(year = format(date, "%Y")) %>% + mutate(year = format(date, "%Y")) %>% freq(year) @@ -463,11 +463,11 @@ On our website https://msberends.gitla # only get selected columns septic_patients %>% freq(hospital_id) %>% - select(item, percent) + select(item, percent) septic_patients %>% freq(hospital_id) %>% - select(-count, -cum_count) + select(-count, -cum_count) # check differences between frequency tables diff --git a/docs/reference/ggplot_rsi.html b/docs/reference/ggplot_rsi.html index c4d2ae56..a3a1c163 100644 --- a/docs/reference/ggplot_rsi.html +++ b/docs/reference/ggplot_rsi.html @@ -334,7 +334,7 @@ On our website https://msberends.gitla library(ggplot2) # get antimicrobial results for drugs against a UTI: -ggplot(septic_patients %>% select(amox, nitr, fosf, trim, cipr)) + +ggplot(septic_patients %>% select(amox, nitr, fosf, trim, cipr)) + geom_rsi() # prettify the plot using some additional functions: @@ -348,17 +348,17 @@ On our website https://msberends.gitla # or better yet, simplify this using the wrapper function - a single command: septic_patients %>% - select(amox, nitr, fosf, trim, cipr) %>% + select(amox, nitr, fosf, trim, cipr) %>% ggplot_rsi() # get only portions and no counts: septic_patients %>% - select(amox, nitr, fosf, trim, cipr) %>% + select(amox, nitr, fosf, trim, cipr) %>% ggplot_rsi(fun = portion_df) # add other ggplot2 parameters as you like: septic_patients %>% - select(amox, nitr, fosf, trim, cipr) %>% + select(amox, nitr, fosf, trim, cipr) %>% ggplot_rsi(width = 0.5, colour = "black", size = 1, @@ -367,25 +367,25 @@ On our website https://msberends.gitla # resistance of ciprofloxacine per age group septic_patients %>% - mutate(first_isolate = first_isolate(.)) %>% - filter(first_isolate == TRUE, + mutate(first_isolate = first_isolate(.)) %>% + filter(first_isolate == TRUE, mo == as.mo("E. coli")) %>% # `age_group` is also a function of this package: - group_by(age_group = age_groups(age)) %>% - select(age_group, + group_by(age_group = age_groups(age)) %>% + select(age_group, cipr) %>% ggplot_rsi(x = "age_group") # }# NOT RUN { # for colourblind mode, use divergent colours from the viridis package: septic_patients %>% - select(amox, nitr, fosf, trim, cipr) %>% + select(amox, nitr, fosf, trim, cipr) %>% ggplot_rsi() + scale_fill_viridis_d() # it also supports groups (don't forget to use the group var on `x` or `facet`): septic_patients %>% - select(hospital_id, amox, nitr, fosf, trim, cipr) %>% - group_by(hospital_id) %>% + select(hospital_id, amox, nitr, fosf, trim, cipr) %>% + group_by(hospital_id) %>% ggplot_rsi(x = hospital_id, facet = Antibiotic, nrow = 1) + @@ -395,22 +395,22 @@ On our website https://msberends.gitla # genuine analysis: check 2 most prevalent microorganisms septic_patients %>% # create new bacterial ID's, with all CoNS under the same group (Becker et al.) - mutate(mo = as.mo(mo, Becker = TRUE)) %>% + mutate(mo = as.mo(mo, Becker = TRUE)) %>% # filter on top three bacterial ID's - filter(mo %in% top_freq(freq(.$mo), 3)) %>% + filter(mo %in% top_freq(freq(.$mo), 3)) %>% # determine first isolates - mutate(first_isolate = first_isolate(., + mutate(first_isolate = first_isolate(., col_date = "date", col_patient_id = "patient_id", col_mo = "mo")) %>% # filter on first isolates - filter(first_isolate == TRUE) %>% + filter(first_isolate == TRUE) %>% # get short MO names (like "E. coli") - mutate(mo = mo_shortname(mo, Becker = TRUE)) %>% + mutate(mo = mo_shortname(mo, Becker = TRUE)) %>% # select this short name and some antiseptic drugs - select(mo, cfur, gent, cipr) %>% + select(mo, cfur, gent, cipr) %>% # group by MO - group_by(mo) %>% + group_by(mo) %>% # plot the thing, putting MOs on the facet ggplot_rsi(x = Antibiotic, facet = mo, diff --git a/docs/reference/index.html b/docs/reference/index.html index 839e49a3..fe6fd670 100644 --- a/docs/reference/index.html +++ b/docs/reference/index.html @@ -341,13 +341,13 @@ -

    ab_property() ab_atc() ab_official() ab_name() ab_trivial_nl() ab_certe() ab_umcg() ab_tradenames()

    +

    atc_property() atc_official() atc_name() atc_trivial_nl() atc_certe() atc_umcg() atc_tradenames()

    Property of an antibiotic

    -

    atc_property() atc_groups() atc_ddd()

    +

    atc_online_property() atc_online_groups() atc_online_ddd()

    Properties of an ATC code

    @@ -518,6 +518,12 @@

    mo_renamed()

    Vector of taxonomic renamed items

    + + + +

    ratio() guess_mo() ab_property() ab_atc() ab_official() ab_name() ab_trivial_nl() ab_certe() ab_umcg() ab_tradenames()

    + +

    Deprecated functions

    diff --git a/docs/reference/key_antibiotics.html b/docs/reference/key_antibiotics.html index 57ca05ad..1ecdd5f0 100644 --- a/docs/reference/key_antibiotics.html +++ b/docs/reference/key_antibiotics.html @@ -334,8 +334,8 @@ On our website https://msberends.gitla library(dplyr) # set key antibiotics to a new variable my_patients <- septic_patients %>% - mutate(keyab = key_antibiotics(.)) %>% - mutate( + mutate(keyab = key_antibiotics(.)) %>% + mutate( # now calculate first isolates first_regular = first_isolate(., col_keyantibiotics = FALSE), # and first WEIGHTED isolates diff --git a/docs/reference/like.html b/docs/reference/like.html index 6dfd0338..f7819f2c 100644 --- a/docs/reference/like.html +++ b/docs/reference/like.html @@ -295,7 +295,7 @@ On our website https://msberends.gitla library(dplyr) septic_patients %>% left_join_microorganisms() %>% - filter(genus %like% '^ent') %>% + filter(genus %like% '^ent') %>% freq(genus, species) # }
    diff --git a/docs/reference/mdro.html b/docs/reference/mdro.html index 43ed5daa..0bd55d9a 100644 --- a/docs/reference/mdro.html +++ b/docs/reference/mdro.html @@ -618,7 +618,7 @@ On our website https://msberends.gitla library(dplyr) septic_patients %>% - mutate(EUCAST = mdro(.), + mutate(EUCAST = mdro(.), BRMO = brmo(.)) # }

    diff --git a/docs/reference/portion.html b/docs/reference/portion.html index d046bdcc..d8673b9e 100644 --- a/docs/reference/portion.html +++ b/docs/reference/portion.html @@ -340,17 +340,17 @@ On our website https://msberends.gitla septic_patients %>% portion_SI(amox) septic_patients %>% - group_by(hospital_id) %>% - summarise(p = portion_S(cipr), + group_by(hospital_id) %>% + summarise(p = portion_S(cipr), n = n_rsi(cipr)) # n_rsi works like n_distinct in dplyr septic_patients %>% - group_by(hospital_id) %>% - summarise(R = portion_R(cipr, as_percent = TRUE), + group_by(hospital_id) %>% + summarise(R = portion_R(cipr, as_percent = TRUE), I = portion_I(cipr, as_percent = TRUE), S = portion_S(cipr, as_percent = TRUE), n = n_rsi(cipr), # works like n_distinct in dplyr - total = n()) # NOT the amount of tested isolates! + total = n()) # NOT the amount 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: @@ -365,8 +365,8 @@ On our website https://msberends.gitla septic_patients %>% - group_by(hospital_id) %>% - summarise(cipro_p = portion_S(cipr, as_percent = TRUE), + group_by(hospital_id) %>% + summarise(cipro_p = portion_S(cipr, as_percent = TRUE), cipro_n = count_all(cipr), genta_p = portion_S(gent, as_percent = TRUE), genta_n = count_all(gent), @@ -375,22 +375,22 @@ On our website https://msberends.gitla # Get portions S/I/R immediately of all rsi columns septic_patients %>% - select(amox, cipr) %>% + select(amox, cipr) %>% portion_df(translate = FALSE) # It also supports grouping variables septic_patients %>% - select(hospital_id, amox, cipr) %>% - group_by(hospital_id) %>% + select(hospital_id, amox, cipr) %>% + group_by(hospital_id) %>% portion_df(translate = FALSE) # }# NOT RUN { # calculate current empiric combination therapy of Helicobacter gastritis: my_table %>% - filter(first_isolate == TRUE, + filter(first_isolate == TRUE, genus == "Helicobacter") %>% - summarise(p = portion_S(amox, metr), # amoxicillin with metronidazole + summarise(p = portion_S(amox, metr), # amoxicillin with metronidazole n = count_all(amox, metr)) # }
    diff --git a/docs/reference/resistance_predict.html b/docs/reference/resistance_predict.html index e2f7a9a0..f2c57789 100644 --- a/docs/reference/resistance_predict.html +++ b/docs/reference/resistance_predict.html @@ -341,7 +341,7 @@ On our website https://msberends.gitla library(dplyr) x <- septic_patients %>% filter_first_isolate() %>% - filter(mo_genus(mo) == "Staphylococcus") %>% + filter(mo_genus(mo) == "Staphylococcus") %>% resistance_predict("peni") plot(x) @@ -350,7 +350,7 @@ On our website https://msberends.gitla if (!require(ggplot2)) { data <- septic_patients %>% - filter(mo == as.mo("E. coli")) %>% + filter(mo == as.mo("E. coli")) %>% resistance_predict(col_ab = "amox", col_date = "date", info = FALSE, diff --git a/docs/sitemap.xml b/docs/sitemap.xml index 23a976c0..76568930 100644 --- a/docs/sitemap.xml +++ b/docs/sitemap.xml @@ -15,9 +15,6 @@ https://msberends.gitlab.io/AMR/reference/WHOCC.html - - https://msberends.gitlab.io/AMR/reference/ab_property.html - https://msberends.gitlab.io/AMR/reference/abname.html @@ -42,6 +39,9 @@ https://msberends.gitlab.io/AMR/reference/as.rsi.html + + https://msberends.gitlab.io/AMR/reference/atc_online.html + https://msberends.gitlab.io/AMR/reference/atc_property.html diff --git a/index.md b/index.md index fced3873..dfde3922 100644 --- a/index.md +++ b/index.md @@ -1,4 +1,4 @@ -# `AMR` (for R) +# `AMR` (for R) *(TLDR - to find out how to conduct AMR analysis, please [continue reading here to get started](./articles/AMR.html).* @@ -6,12 +6,24 @@ `AMR` is a free and open-source [R package](https://www.r-project.org) to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial properties by using evidence-based methods. -We created this package for academic research at the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG). -This R package is free software; you can freely use and distribute it for both personal and commercial (but **not** patent) purposes under the terms of the GNU General Public License version 2.0 (GPL-2), as published by the Free Software Foundation. Read further about our GPL-2 licence [here](./LICENSE-text.html). +We created this package for both academic research and routine analysis at the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG). +This R package is actively maintained and free software; you can freely use and distribute it for both personal and commercial (but **not** patent) purposes under the terms of the GNU General Public Licence version 2.0 (GPL-2), as published by the Free Software Foundation. Read the full licence [here](./LICENSE-text.html). + +This package can be used for: + + * Calculating antimicrobial resistance + * Predicting antimicrobial resistance using regression models + * Getting properties for any microorganism (like Gram stain, species, genus or family) + * Getting properties for any antibiotic (like name, ATC code, defined daily dose or trade name) + * Plotting antimicrobial resistance + * Determining first isolates to be used for AMR analysis + * Applying EUCAST rules + * Determining multi-drug resistance organisms (MDRO) + * Descriptive statistics: frequency tables, kurtosis and skewness This package is ready-to-use for a professional environment by specialists in the following fields: -Medical Microbiology: +Medical Microbiology * Epidemiologists (both clinical microbiological and research) * Research Microbiologists @@ -19,18 +31,18 @@ Medical Microbiology: * Research Pharmacologists * Data Scientists / Data Analysts -Veterinary Microbiology: +Veterinary Microbiology * Research Veterinarians * Veterinary Epidemiologists -Microbial Ecology: +Microbial Ecology * Soil Microbiologists * Extremophile Researchers * Astrobiologists -Developers: +Developers * Package developers for R * Software developers diff --git a/man/AMR-deprecated.Rd b/man/AMR-deprecated.Rd index 0c4ba589..78aa1816 100644 --- a/man/AMR-deprecated.Rd +++ b/man/AMR-deprecated.Rd @@ -4,14 +4,38 @@ \alias{AMR-deprecated} \alias{ratio} \alias{guess_mo} +\alias{ab_property} +\alias{ab_atc} +\alias{ab_official} +\alias{ab_name} +\alias{ab_trivial_nl} +\alias{ab_certe} +\alias{ab_umcg} +\alias{ab_tradenames} \title{Deprecated functions} \usage{ ratio(x, ratio) guess_mo(...) + +ab_property(...) + +ab_atc(...) + +ab_official(...) + +ab_name(...) + +ab_trivial_nl(...) + +ab_certe(...) + +ab_umcg(...) + +ab_tradenames(...) } \description{ -These functions are \link{Deprecated}. They will be removed in a future release. Using the functions will give a warning with the name of the function it has been replaced by. +These functions are so-called '\link{Deprecated}'. They will be removed in a future release. Using the functions will give a warning with the name of the function it has been replaced by (if there is one). } \section{Read more on our website!}{ diff --git a/man/AMR.Rd b/man/AMR.Rd index 3347c90a..38471a41 100644 --- a/man/AMR.Rd +++ b/man/AMR.Rd @@ -9,7 +9,7 @@ Welcome to the \code{AMR} package. This page gives some additional contact infor \details{ This package was intended to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial properties by using evidence-based methods. -This package was created for academic research by PhD students of the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG). +This package was created for both academic research and routine analysis by PhD students of the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG). } \section{Read more on our website!}{ diff --git a/man/ab_property.Rd b/man/ab_property.Rd deleted file mode 100644 index 0e0274c5..00000000 --- a/man/ab_property.Rd +++ /dev/null @@ -1,59 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/ab_property.R -\name{ab_property} -\alias{ab_property} -\alias{ab_atc} -\alias{ab_official} -\alias{ab_name} -\alias{ab_trivial_nl} -\alias{ab_certe} -\alias{ab_umcg} -\alias{ab_tradenames} -\title{Property of an antibiotic} -\usage{ -ab_property(x, property = "official") - -ab_atc(x) - -ab_official(x, language = NULL) - -ab_name(x, language = NULL) - -ab_trivial_nl(x) - -ab_certe(x) - -ab_umcg(x) - -ab_tradenames(x) -} -\arguments{ -\item{x}{a (vector of a) valid \code{\link{atc}} code or any text that can be coerced to a valid atc with \code{\link{as.atc}}} - -\item{property}{one of the column names of one of the \code{\link{antibiotics}} data set, like \code{"atc"} and \code{"official"}} - -\item{language}{language of the returned text, defaults to English (\code{"en"}) and can be set with \code{\link{getOption}("AMR_locale")}. Either one of \code{"en"} (English) or \code{"nl"} (Dutch).} -} -\value{ -A vector of values. In case of \code{ab_tradenames}, if \code{x} is of length one, a vector will be returned. Otherwise a \code{\link{list}}, with \code{x} as names. -} -\description{ -Use these functions to return a specific property of an antibiotic from the \code{\link{antibiotics}} data set, based on their ATC code. Get such a code with \code{\link{as.atc}}. -} -\section{Read more on our website!}{ - -\if{html}{\figure{logo.png}{options: height=40px style=margin-bottom:5px} \cr} -On our website \url{https://msberends.gitlab.io/AMR} you can find \href{https://msberends.gitlab.io/AMR/articles/AMR.html}{a omprehensive tutorial} about how to conduct AMR analysis and find \href{https://msberends.gitlab.io/AMR/reference}{the complete documentation of all functions}, which reads a lot easier than in R. -} - -\examples{ -ab_atc("amcl") # J01CR02 -ab_name("amcl") # Amoxicillin and beta-lactamase inhibitor -ab_name("amcl", "nl") # Amoxicilline met enzymremmer -ab_trivial_nl("amcl") # Amoxicilline/clavulaanzuur -ab_certe("amcl") # amcl -ab_umcg("amcl") # AMCL -} -\seealso{ -\code{\link{antibiotics}} -} diff --git a/man/atc_online.Rd b/man/atc_online.Rd new file mode 100644 index 00000000..f5646b4a --- /dev/null +++ b/man/atc_online.Rd @@ -0,0 +1,73 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/atc_online.R +\name{atc_online_property} +\alias{atc_online_property} +\alias{atc_online_groups} +\alias{atc_online_ddd} +\title{Properties of an ATC code} +\source{ +\url{https://www.whocc.no/atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/} +} +\usage{ +atc_online_property(atc_code, property, administration = "O", + url = "https://www.whocc.no/atc_ddd_index/?code=\%s&showdescription=no") + +atc_online_groups(atc_code, ...) + +atc_online_ddd(atc_code, ...) +} +\arguments{ +\item{atc_code}{a character or character vector with ATC code(s) of antibiotic(s)} + +\item{property}{property of an ATC code. Valid values are \code{"ATC"}, \code{"Name"}, \code{"DDD"}, \code{"U"} (\code{"unit"}), \code{"Adm.R"}, \code{"Note"} and \code{groups}. For this last option, all hierarchical groups of an ATC code will be returned, see Examples.} + +\item{administration}{type of administration when using \code{property = "Adm.R"}, see Details} + +\item{url}{url of website of the WHO. The sign \code{\%s} can be used as a placeholder for ATC codes.} + +\item{...}{parameters to pass on to \code{atc_property}} +} +\description{ +Gets data from the WHO to determine properties of an ATC (e.g. an antibiotic) like name, defined daily dose (DDD) or standard unit. \cr \strong{This function requires an internet connection.} +} +\details{ +Options for parameter \code{administration}: +\itemize{ + \item{\code{"Implant"}}{ = Implant} + \item{\code{"Inhal"}}{ = Inhalation} + \item{\code{"Instill"}}{ = Instillation} + \item{\code{"N"}}{ = nasal} + \item{\code{"O"}}{ = oral} + \item{\code{"P"}}{ = parenteral} + \item{\code{"R"}}{ = rectal} + \item{\code{"SL"}}{ = sublingual/buccal} + \item{\code{"TD"}}{ = transdermal} + \item{\code{"V"}}{ = vaginal} +} + +Abbreviations of return values when using \code{property = "U"} (unit): +\itemize{ + \item{\code{"g"}}{ = gram} + \item{\code{"mg"}}{ = milligram} + \item{\code{"mcg"}}{ = microgram} + \item{\code{"U"}}{ = unit} + \item{\code{"TU"}}{ = thousand units} + \item{\code{"MU"}}{ = million units} + \item{\code{"mmol"}}{ = millimole} + \item{\code{"ml"}}{ = milliliter (e.g. eyedrops)} +} +} +\examples{ +\donttest{ +# oral DDD (Defined Daily Dose) of amoxicillin +atc_online_property("J01CA04", "DDD", "O") +# parenteral DDD (Defined Daily Dose) of amoxicillin +atc_online_property("J01CA04", "DDD", "P") + +atc_online_property("J01CA04", property = "groups") # search hierarchical groups of amoxicillin +# [1] "ANTIINFECTIVES FOR SYSTEMIC USE" +# [2] "ANTIBACTERIALS FOR SYSTEMIC USE" +# [3] "BETA-LACTAM ANTIBACTERIALS, PENICILLINS" +# [4] "Penicillins with extended spectrum" +} +} diff --git a/man/atc_property.Rd b/man/atc_property.Rd index afda0e59..1edac996 100755 --- a/man/atc_property.Rd +++ b/man/atc_property.Rd @@ -1,77 +1,56 @@ % Generated by roxygen2: do not edit by hand -% Please edit documentation in R/atc.R +% Please edit documentation in R/atc_property.R \name{atc_property} \alias{atc_property} -\alias{atc_groups} -\alias{atc_ddd} -\title{Properties of an ATC code} -\source{ -\url{https://www.whocc.no/atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/} -} +\alias{atc_official} +\alias{atc_name} +\alias{atc_trivial_nl} +\alias{atc_certe} +\alias{atc_umcg} +\alias{atc_tradenames} +\title{Property of an antibiotic} \usage{ -atc_property(atc_code, property, administration = "O", - url = "https://www.whocc.no/atc_ddd_index/?code=\%s&showdescription=no") +atc_property(x, property = "official") -atc_groups(atc_code, ...) +atc_official(x, language = NULL) -atc_ddd(atc_code, ...) +atc_name(x, language = NULL) + +atc_trivial_nl(x) + +atc_certe(x) + +atc_umcg(x) + +atc_tradenames(x) } \arguments{ -\item{atc_code}{a character or character vector with ATC code(s) of antibiotic(s)} +\item{x}{a (vector of a) valid \code{\link{atc}} code or any text that can be coerced to a valid atc with \code{\link{as.atc}}} -\item{property}{property of an ATC code. Valid values are \code{"ATC"}, \code{"Name"}, \code{"DDD"}, \code{"U"} (\code{"unit"}), \code{"Adm.R"}, \code{"Note"} and \code{groups}. For this last option, all hierarchical groups of an ATC code will be returned, see Examples.} +\item{property}{one of the column names of one of the \code{\link{antibiotics}} data set, like \code{"atc"} and \code{"official"}} -\item{administration}{type of administration when using \code{property = "Adm.R"}, see Details} - -\item{url}{url of website of the WHO. The sign \code{\%s} can be used as a placeholder for ATC codes.} - -\item{...}{parameters to pass on to \code{atc_property}} +\item{language}{language of the returned text, defaults to English (\code{"en"}) and can be set with \code{\link{getOption}("AMR_locale")}. Either one of \code{"en"} (English) or \code{"nl"} (Dutch).} +} +\value{ +A vector of values. In case of \code{atc_tradenames}, if \code{x} is of length one, a vector will be returned. Otherwise a \code{\link{list}}, with \code{x} as names. } \description{ -Gets data from the WHO to determine properties of an ATC (e.g. an antibiotic) like name, defined daily dose (DDD) or standard unit. \cr \strong{This function requires an internet connection.} +Use these functions to return a specific property of an antibiotic from the \code{\link{antibiotics}} data set, based on their ATC code. Get such a code with \code{\link{as.atc}}. } -\details{ -Options for parameter \code{administration}: -\itemize{ - \item{\code{"Implant"}}{ = Implant} - \item{\code{"Inhal"}}{ = Inhalation} - \item{\code{"Instill"}}{ = Instillation} - \item{\code{"N"}}{ = nasal} - \item{\code{"O"}}{ = oral} - \item{\code{"P"}}{ = parenteral} - \item{\code{"R"}}{ = rectal} - \item{\code{"SL"}}{ = sublingual/buccal} - \item{\code{"TD"}}{ = transdermal} - \item{\code{"V"}}{ = vaginal} +\section{Read more on our website!}{ + +\if{html}{\figure{logo.png}{options: height=40px style=margin-bottom:5px} \cr} +On our website \url{https://msberends.gitlab.io/AMR} you can find \href{https://msberends.gitlab.io/AMR/articles/AMR.html}{a omprehensive tutorial} about how to conduct AMR analysis and find \href{https://msberends.gitlab.io/AMR/reference}{the complete documentation of all functions}, which reads a lot easier than in R. } -Abbreviations of return values when using \code{property = "U"} (unit): -\itemize{ - \item{\code{"g"}}{ = gram} - \item{\code{"mg"}}{ = milligram} - \item{\code{"mcg"}}{ = microgram} - \item{\code{"U"}}{ = unit} - \item{\code{"TU"}}{ = thousand units} - \item{\code{"MU"}}{ = million units} - \item{\code{"mmol"}}{ = millimole} - \item{\code{"ml"}}{ = milliliter (e.g. eyedrops)} -} -} \examples{ -\donttest{ -# What's the ATC of amoxicillin? -guess_atc("Amoxicillin") -# [1] "J01CA04" - -# oral DDD (Defined Daily Dose) of amoxicillin -atc_property("J01CA04", "DDD", "O") -# parenteral DDD (Defined Daily Dose) of amoxicillin -atc_property("J01CA04", "DDD", "P") - -atc_property("J01CA04", property = "groups") # search hierarchical groups of amoxicillin -# [1] "ANTIINFECTIVES FOR SYSTEMIC USE" -# [2] "ANTIBACTERIALS FOR SYSTEMIC USE" -# [3] "BETA-LACTAM ANTIBACTERIALS, PENICILLINS" -# [4] "Penicillins with extended spectrum" +as.atc("amcl") # J01CR02 +atc_name("amcl") # Amoxicillin and beta-lactamase inhibitor +atc_name("amcl", "nl") # Amoxicilline met enzymremmer +atc_trivial_nl("amcl") # Amoxicilline/clavulaanzuur +atc_certe("amcl") # amcl +atc_umcg("amcl") # AMCL } +\seealso{ +\code{\link{antibiotics}} } diff --git a/pkgdown/extra.css b/pkgdown/extra.css index 8fd48767..bab9e252 100644 --- a/pkgdown/extra.css +++ b/pkgdown/extra.css @@ -71,7 +71,7 @@ pre, code { font-family: 'Courier New', monospace; font-size: 100% !important; font-weight: bold; - background-color: transparent; + background-color: #f4f4f4; } pre { font-size: 90% !important; @@ -84,7 +84,7 @@ kbd { font-size: small; vertical-align: text-bottom; color: #2c3e50; - background: #eee; + background: #eeeeee; font-weight: bold; } diff --git a/pkgdown/logos/logo.png b/pkgdown/logos/logo.png new file mode 100644 index 0000000000000000000000000000000000000000..48b92531c9e136731c0c149fb6d65a50628a0ef9 GIT binary patch literal 57583 zcmZ6ybyQVf)GmAg2`P~fkQ8a8M7lvhy1TpcNVlYPcSy$}qz~O7(%p?5x=Zrg_;Fvi(?ub6A*^UU>KK~4e#^(`t01j3N~@>vN4Lih^&y+lC*ev$t0H6Qr*(&39H z7z9GYdH#a~rDYHRKN5Zw)A*`vZ}!#I(8&}eY+`R@N-k+@Xl|-xYG~r_IAF>L06I|uD)@M8QhhvN5@d4_p7a6^Pa81+P0hVSYQj^S-9oon^3-+F6QVbv zWgp&JaG}R|HIpqey?BRX2SIpRFcKbrQ>=wpiVOdR{H5ftHs+d#?Bi5(YPJEBbQw9b zzb*QeT<`qdPbk;9v$9sl0+2KfmgV;SIzt&7n9{r4X0-vxdw z5cTVN9e5eLluZuA#64|naRd-ZL?QiF&5r{K6psuH5Dy_X!~}lSz|IMR>&WjyCF!6P zPKO6(r>SKHrBDLXr||ItYXX6wH1OnOa4!hN6lY3aF|c3*KXsuVuAqQWzJlQ3FjV0{ zAP4&wLO&2tK858b;4I(*FQ6w?F29HC2vNXA>}W8=w0%DK;1FPPfnYoy(CR`k3o;1A zQbyS|BMr(1Cijb`4O7Y&@Cu9tUL=?{${TmX1*GB#EaQZvWdj8S^7Ety!IKF6P{cJw z$dLu+?9eD5JIVyH2+ujaWI1K&4^nVjM4{IPwh*!Gep!x!s05-$0(Oei@cMbD21{pk zp0pqtklGH28W1deb>&D-H5D+0p#{98JqwPL|_psqC^OOFQ1o|j4P&D zBG5v$sWq6)OcT)QCk(9JGA%7_=VZORn#r|w+`@|}50k}bod6zGDd{f8%Fdqn`}c2_ z1rUgQxkS0BxUo@lhQAKwJ@5{&*fqrRDW{wWYumY>a0tN4ltni9i?M9cL0CH=lOS$8 zWpY#Jil0AYwns9NjFy-870Qu6O1T)?rW*D-3LC+oAy!~iNo zB59@k(`@){EgdkqU+49QHdo1Nk!Bi%XMsY$xQi*A!2!MplpUk<3k~x1c|_wPS}AVe zGX*83Z*agd_)(sc0$QC82lB@>m}2RtiYvHiTUX}!zZL_vhE%WJFW zPfv<<`oy49Y-yngAfcaYo@qTCNPh?%pXK-tS8QG=ZUNWke^f_UY@^jS$Ym4>cnC62 z*%Y1m^Rc3rDvK(~9dN8MB4-cf#DETb33Gi0$l}C+gubPyEw}|mSf6s>{L>PJ{%eu%+RW6u~Box!)SwIY!yFVs5)M2zy(jHL!wkjULsjLyMzNh-9_YY>zpHiph z(u(bgrbbwoYt^Ct=R`ZNzqF}KDHRUGJs&H4MuPf|lCtu6As}7@T(8P4PcxSP9#MbK zrQJvQ_tAYHZY`@uh$1o|pbm7f7lGDq2C&yyb1_OY5Aa>zx8qc7v{1uD%;ymkYB><8 zsHg~RfhSKbu1-V&P7z$s0RZcg>a;@rV~B8pBJG{ zaZ`n$=TiZ#ta}#!r?}4o0)^$4QA*mPLbEYZbAYFAA;&q`cMVCF;1~Z?L7i!nLdQwd zh?xYC-jAMZrSG=rzgah)T~7c1Pv@~TuBY%8be_$y<5hRY6bB;qAS2*3Ua${bPunhJ z{ChC!pgKrNh)>VJ&~5SjY`c~HJEdwD(zE@&FULIvd?Y;+6ZQW%^OJXN4QKpnal?Q+ z0(AXR?6;aUQ~8IgxA?$$eOdP`%jZCv*v5Q*mNzDaRhjrtX`i(Oh?HK@e>}@6t;hSG z&*MHIL4D52$;smH*`H?#`bqX&Yqi0UCW+yn-3CEe?n%zJ2%rl$Veg*Dj&~bnoZ7~I z9$6V{8@lDtnBaSehW76`g|ORTXRYdSPXF0NNvENlR62aw2%uoUs7_bXKga2jKW}Kv zq9B+o){(IS8uTx6Ii0qu8=3A(jQv~D*224gj`5@C2C!T|v^M1PR<4xoH^7uwXSLYf z41iM|PGkRPWh`Phq(j$6l4}3y{I4p}KCv4ij(-tdhOrG_`h!e8!h1|$vGHFN6PzyJ z0nVQCXc15Z&=ZsfW(~%8HbF@gu#S?3R3*VcB@*BfI#4K&)8<1tkbuKv;jWJjK-j$Ow>@iLNG@a`JRhezt{9yX+3)|y&99l?tPEXSNdB&EM1J-)(O=vPBBb9N zJ7a=~^&WTlJxoTKZYLYr1UyHg+VprFt`gi3{7%afHmwLrceoO*XYr#bC|@6qd-wz9$EnU+SB!cSDcC=5wP!XQ9wpm{rH-ZiK%dD zNe7(=#MN4m=~(09GM+9Wcp)srCurhaF*_CQk8}dRTJv{>aX{Qw?%yKi{s7_xu^_rx zQ?`E>g5}{g9WLw$KB5F#&hZmFP-r-1Y5MCg0}I$r_i09*H25=PX;Oo%gwn9)F9}l zXG0IZ$zW~c%jfM9NLnkCR}}$gkJ2AT5W=nY$#^C(D;i=N#xgr6!x1mp^0bwC9V1|~ zwdkOi+xn)v_i9G+@6(p*uW4pJ(eQeHv1|_ZHMCc7A;;_g8K93i!)qPdO)Vl0n+`vO z8^ZKq>iV}%?!J1dPUReQgC)T{r#o|RQ?s_bV|iCT($(8*m77>rA=exvsAxUSTT49D z(7pV=QI*&1sq`pFwrY;+%gHnmhehgdFM#p|`}j`~FwG+^u_(yr&9>VN&`rb$@iGo5Lo`Nwjp@7&(*RBRBnKKbtM z7bMpn#+j{HSyqKzH!Oh#cfU5#k-%o-9IMbpK96XSed0^-Ki-m55i7!?@Y-)LhF8mAm@P5Na@6HRv_wH^e zQ%BUtdy~u-pyr&*&39DhRKF#g>!+p8!DlU)vQg9Av(y{BoZjX`5HLirMuTrJH`nX- z>Cf9wB+qjYu1-?D`7$5z&*Ilo6UvixHZ+Wm--1rw={0T|^h0!8bR8ZT+B2ruTy$`$ z#s}%4S!ysfW=(PTT|#3Y%=r0(^QWSB!pe(CJmat}PQQ|#YZpmd^!#B>z{QdqSQPlp z{)VbqTG9cI=>>~k)xMy%iTpxk)89=o&E|-1xzv}&==xX z){~?JnTFW@2yh%v9<_UV$$z%+bUv^eogEFa^V#lS?dIf-KwDk>OUgX(U-|-a{V&}O zN%|M{Pr&`zzTfq3lZP)X1_YH{N@0iNEg10)2GulIhp7qMi?bhEmLP(zYc{rZv<_(Y=|W9wPR%>7YvH^+V27W{~YepMTue5?BbmPgMv z?IW*D0v3Jb$oQ_|`JImgM18VpvvPxY1e9SA z1@prL>}d1WgQsna7e{Z?+MFgCH+@K%u#ESQ@sG3HKAk>sV#*ZNvR2nShe}jzaA(>6 zIO@DiI491l%d_tCZOYwjluguB1d%dQ+Y1hTb-HytV=+!e99K<55mCWiHc zYc8SeLm{(H^EaQH{p20>yA=mC=cSDwZ0}{urdoeK%1MQWUG4FVoVzW|*M-%ay~afj z$*p>0{JI?ftT6og_-UA7W4!LLtK~ulw(1OZK_^bQ2>#+BjUn&K*y87+_*-tDx z+3vW=Q<)vDPSFegUh}Q+<>T_+z>Wt0lp3sQ8Wwr!C`^Fj<5dase5^9=H_@rk$s9Zo zB0>=Q5ung#Xg9Hld-Bc_2$jETo`&ddPkHSp>e;D2>0>aq<<9Q!p7L^z>2g*SHv8Uq zm)hE4lfm8~@6miuCtPa2`}10qB-?)Tq=P~A-mR)tm5)ao&jCwXZUYmRYY>{JzL;{F zy?Gd}#;}`<+!ea%F77Gd`71ov^83Ii{@5q?+Ia+daKKHoCy`pJvGYhFyNvJIh-VAa ztFc>ER6JR)$0M>lI>jQ!zkXf$if|;@Mj-CcwQeR zIyOp7aSwCkjca_51+q&N_Gg1(XU7B5PRdQx1j8!UsR6c3{$}c03@0wHk)y+G0coP_ zWpVo!*B-*Xn<2sw9y`mi@oBLphhux^V5q-PGC_s1eOkR^NV6V;VuR`0=;eiW@uCUg z^?A(vqxnH+f7S2nit~mK!vi?N(dwVw6GtcCjI?L-TKm#ah}0^a^zIP@UmYfSy^%jQ z4Ryv zUm9|RMNTQpK(mbU-qUi3%f;**?G_#B-Oblr39zMpP}^f!{PmgVdaYlW&ZgGS^p%Hr za`fu9rH zn1Wwe-gzCvxI0ENc};cf5Jznz#5b)8+@BTyUBNpVvIudY4ExKJ%^EJirz`xxlvA;l z2=n$Sj2caFG{juKpU0iw_fa!*NZDL73w>D>=#YuxWI5odEV!-`koTUi5aZl)fyZ;e zq+UT;T`+a}$7}^sn+yAkv=4ceZ+Plcnu7U`Hj5_rcN_4s$1t+#E_h6`Cs50{)TW#! zCt5v7CDP%U$~N387_XO(FRij^THv8UqdO)3f5&FqBgw|Fy1;(jA+N&Ezs7BIpnL_S z-zg7dl0en)BR~HI0wzn)XB-FiDX}5?AK@nUj3)uNLm`+P?{kr|ES>rpa zv2$tJv@o3ZjBUOe*sV&3H6T}X!X=36X-iaU%wIP4iZrqhp+J3zklMs4jjF8OxZlf(Sti+zcgkr4{Zc6 z6pQ_t@{dftKrIp}ZpI7^RnC`iXbKr%RjP#$Lm0aexjjSC^2!pp!cbtgVbJhl4C4h?C! z%JQ)~s!`Hz4_fdX?tc8+2^T%OGLN9Q@>3s@syVOspu7C`r*@eDU}!A;=A3_@LK?tn z%%zo?7u#IJvwSQ@-;{N zg*b{XA5F|$-wzpUjzdX-hxg{OHAB=h*n)L1l-2WgT3Eu-yDasAXm8Akyk~+jk>EDO$j4q4x4q;cH}GLng-mS zak6`rb`^9o2$ZJ8}fujhhb}f46nm$86T0T@L4CUk}_|c zDh|F=8+WbP0?+=X9QuAt2uYNIm41%qLq1Bp*4RxxLBup{IXr8GWyL!;dIEk1GlGYF zOqeB*n<>yKfl{S@D_}I8!?x=O!cETA5tG*WvTyFfHuY#H6LsH;#7NA?6X7-qOYIXk z)e082tm?R`Of8P1C09%tGy#K<-r##X}c(H0o^2(JEx^(DADGl;bWI8Gv+i? zI~k{`Ek&=|EMI}~tuh#VDTJ6b#RXfB4YO@`13P;0n5pVmxhmW6a)eN2>RHg?zWj`( ztfQm-SMcAI^vrR2+!c*ZEORbzoSx5QkyhbN>Zr1v2-}_wdv8{ZNQ$JSQ!FtsbMnU~ zZBtJUpMTuhvpoIuo=z&mkQme6-OFf|bo}jlEMRQhUzk+7^k&s`%QJN;h8VNhJ-ZB} zL~~KV^kCao?UYR;2EhdfvM%CZSqxk8`M+1N766bxUg|%DS=PgJaAU)Wo{J&*Q3kC*)7}baf@jR9&y4HTWm})sI$qz*2$E;6tkF z`npMbQih_S#+CM?e&N$?{4B?Mnl&NV+wGN`$5-Q}prw}EJ;>L!4miT(4W#fEDfRD) zAp_s=cv5U87I1%Hp$e_7)g!fN^_OE*D<587x(`xy>8!0!H>VQ5{JJcIu*}C9i8^Wg znYm*<^c($xl%|FeaS&C{c*`!%KH+b3Mv{jEokbk-p-u<4kq$8O%V+G08bfWzV8X%{ zbtTS`@rb$mPbeJu$%(hcQ&sei_MIM$t_fwAPRv>ty)&ck#u7>8T4ax+LQwenko+j| zth3JOCN~f>ZZ>qXAPDC2-$j`2uLC<8e4l(4>a3H?26dx3kXSUw>Os`;3F`S!S-37@ zp|uULtgo%L6MzhYOm{!2RHK{R*KLAb8;wz1Tbi~l%mf%&zt1q~N8stR zPQnPUSxw#~gTYTgprd2v?>6`KedOi7-PU}Yeu{`efeph7T3A8>ihX#BA;)xhItUm@ zsB;1CE>Nd9Rg`j{exh#;mFkiWgtVT4NyPVl6kepS=FF-Mmtj_^0e4G{b^~8OW%)kz zuvR%yqvk-%Mjke-SI;ax;e9%Vy`sbRb+E~-5BGYK2Fbg?-;MjD2B0c&91`^X#R%{u zH;n($4;!eeNC9vGm}|&xb%E;g0>uKyr{{bxvy)Qz^4EIT4!<@oEuw2PiYh62)w(sy zc(+%S#FsV?la4NCDz%Sh-2{wl(oK4m#QrkEJGR$qSSbd80#LNOnYFW`2!>KM#5-OF=S_>pcL+T8(fO1LrI;7{tBXzM*?TaA8? z#6INs8dn#Z)m8KHS5k^lQa$GFZx-48)=p*x2hp!)mX>%AXT;l()n+UmH@QwkB@Yh| zli@_bt#_&eI_xEGmj11}`lD8x7dH}#5Vl^)nkpBjUBx1$Eq|*K#c;eXIi2^XccqVEs8{-;HTO*?pv5z-8cz!gIw#zD$x(SIDl6ZB9dY zA49rV_pgt9G`-r-8@VTg-ojvRcqjhT4I60KftX|hGQ6%w3C`RAhM3)nN^&!SNr*o% zFd&?Q5VNBpi?@6?aef6duZpRw(Z+D%zmfUH5 zbZ$-l=Bu)mMuRAFBRWErVBb`h!S)gX^6jm3puh##5As=bXY9r6Yt+*j-&^9;eWvfK zji-U!(VRcHu508pUyc*l5a6i~Y*Ennf+s92%`$GiasHfMpStMTaS3Sc2fXekt{l=t zQp?bPfYEqqIf&sp!?ja5M#WYRX98$J2Xhy3@)~2ZBcsnHI#84p#@W~Jo?l4|Xu~q{ z_nm2jfrQHZ5ZXY}Aea)1OVt*Q1g;fWYja`ty~skb?G9ovPuVAVyPef?PAVmz=GN=p zCXhX>U3*BUb$(ucLvc%(W&C9cQ6-84X$=ja_5}VSf2XXaTN9zx2|@*JNre)6PIn{* zh41z;Bq`~cC7m1N@9pm-@RazR2V57|Hx7{QKsCa`KL>KBfb4u7<}bdaS=TG*T61RF z5jK&;BM@De-~Eks4bG_9gr{wZ>(}Ne*IhO#EqzDQ?vhj9SFTqbAtm6t9Qc&wMS_`3 z{FX6Nc1nFUlsSuRqp@#1Pr?-Ui{!+%f<{TeOJPOa6s&(VTC~XnLO1|$vTv_Eh#gks z$T>J8r1RQoy5M5N<_3XFW4sBZV%nL=W1Y}&4|J;?R15P z{@$Gtu-e-rdnB!Qcr7daB{w;`jixK3pe}NV-TBJ?@+Zsb!${=sr@JRF*Dh^F_eB^0 zLKW8(CCk7d8Ifc1kF#>wcAGC&*WMt-EfD|VbNsd zGAYEk?Xe;HV9~dnqxus^d}F6~Z$$Wy7U*d!JJ`PV0L^mfclS5 zD2zA+lO%V0+e{N&l1ShT;Oe^oNLnON7URe$kWU;=MB0%+r@6a`uY#SM%Ti2^Xy5-~ z=sWH->nOX+cw@cZN6p%0$tBagRmxk+JvQ|G@bGuiqVaPs1J6O4j;HHx4^knf_JPsX zq)mf!>sq7ijaTgb>795c_+)AGImL2p#N#Xa_%^cAa0`HFP2#J0`jHdD!@>XzS-8in z$_Pt{z9Nd7lOfhDzZavHA1j-XcBDH|{cj|~a?O(hM-B_jgK1R7IkxPOMAS###fm;? zpB3+1o$q>$`-_-ZP#HHKJc%2kDpMx|z|zO(|3~sT04$j1PjD?i?NDgJ9LmGkKv6q951>}-XUeZhy4ewGHe8RFZAS6PLDDFj}M_bEV9)W*>O4+x3Qu)>d0)nsF$ zv$3&};Hw{b%?Fy%2LvurWMy*B;nxQnd`P@N<-B9cIb#51ET8@H&c_%N)9sjZ^nGEc zFUvvS@{eCTV^UN_c8c3ZAp!+qd_@M3$aU-y3ps?LN0V!h3JLxsJ?IFe!*DsJnA7Fw z_eXb()kEg>WN!9nF+bcPKJ)as>xsWugU$Y^HU+IWeu>CPRFMGKdq?3#cmjMeMYYmb z_5;v2&uAfj*1?%ciaN_mWodp`pY+J+DW!+I4=U2j`z{N{S4rDj;|=OdpU)@RGReS< zenz&oG~mpuhw_mc8#TzBQRC+Lv4JX+kffcl!~d}U#zFB=7QH_JH)xBBwGDzN3*kI! zcU~KkEIqWKu{KY>osq3?6A1e?>iF1}<)d&Z6^k6R&wfJqzFapv~jbIoAr( z&r+n>dLgxN)iL{%9>2p)4v+}kXdMtl49kFg(zuZJH`3+07~$+ftz~@i2Skv6i28=! zEx>^6AJ8?;O^76Mu>UHtPvW@l!WtJ#Zj|?c6(~bVY2Z4ZKGj{1(L^p!tyo{(xTnvH zG&!_d$QrD(z_6D%%C+UMSMUD<{Jb6W2os${C!hcZS{$Os zEtdSB>BAG#luh1##W;oexBy~g9uUe01|?JQLu10NS$p44fG zw{Boz`jqQ6?i8O&1+{6iy-D?B=sNtLQ#FAy&HUgdwFsUFByA?cGLASviA_yS32gm9 zUE1^wWbP7WL#HN_3ln=bLo)AMEPgFA>mukHM{8nyC6GVS*TIWlMMCDalOfGYlw03L zVxOyvscVh5(^L5j)D`P5b)y?T*e}&c-`kvyCN$pWqC^MIZWN)9Dw290uo5Q!p54~_ zL*Pt+aaG?@T#Mb5ZmI);LQ~L@5Rgd7g}yEA;b-LlIB-tsIezie6d~*S*WgA)jp-BE zo>DYn04f~L0hE4wX^J3htl6euDkN49!})d1865?$at2Z6uTlK$$>-|%OeRtFiUnCY z3`WbR9&5t3K+vIK5QN!hlnx{{k_NaUa3{VxC2{IoZq@}F>`)EndJT`h_+|e;fz9?h zvYbqsQfOzWJAyvv^bhUfurK(QmACz{c#pebT$1nFI4^=5HNSs)&lolGzfKFOZT87w zJKqhAE0>zYb!8_=ynPddU9DB}L~L((1iov*kp2oRhCbvKSz%TdsV4ZRGa!SPBV(PR zCiQe{0?ZJ#^5+7OPLFQR$$_lZx&E6CHBKs|@8{d16(bJsoIo|^=CreqAD2)?4?ONb ziI8|TZ}GHq&Xh;W)odZTXciZZiKkv?@gVVXlRfPF*~A9!!l@p z|Bz!EPJa7YF*x=^7Jta&<)CRTIj8U3o=@^{N{N7ap7sxj&9OQHNgolsyv^4ac-xf9 z!sg7G7JH7?&KlD$Wok2mLQFMd}Z6h&2R+vDgr14CzwzS64q~y|yO3Run%M#$C|-8H5ySy^0_4?k)Sr#J&k+7npN`*hnN)a#0LK&*FjaU%Ie>5Z!0 zcT+D8@i-@{GyJuT@7d}f6ZIDuH1(`-RoPO9jh@cchq6T5Z~F2Q2#9zq+C%apQINTP z?DSM&U19*H!gF~qeIp_Z`qw{k&iX@o~6rRdG7}?Wmi)NMgf%Lro}8jNk53%j=NkI=zdv z<7IGnb@=sQ4lu6`dL={vz{*;qQXr6Pj9}@Pl9py&0Qu~(S*Bi$hmgfF>9p$ZT#kJI zkw?mq|8Uwz$ZMwXeLuX?UhArM%xCG_HqP$gU-hTK#FY)oxCn}y>$-f5vbpBtRp`R>&do}nuCSuZ)h zGs>A6dqL(N210!8CO|}=D7r2;yq2dYaeiUp?_P0Z>gKak;F~KmA~3AoWi5ToVKKL~ z&3mj#%xaJ{4oQ+fAr?0ZI{J^iHz;%Y^^8cx%nc%fT4D%@D*rV453J(oH>Iz5cq~F` z(z2+tngzL~Vrx)oojQrl@8Deu3tk1h5~g9KOG<(jDHw{Ec|P%&)qPjpJ2{XUA3ah} zZxaP*woMP86|(_zyil1>3YwJd^|ZuyxyCJ~(I`fLJXp|=x*pw#(H|U-L=rUlKa!}E4-5i95QLiwh%a8z)#4!iQE^5dy ziiqG^J%bAD9RSw;WAQLY+Zws?ONp9c7QWL})IZbj@Z6uIzd?-Q&E+-@NN3 zff4Pr%+_t4k>TeG#wVPGhGf+7x#4eO+YabUAyFla^lw3-UWaj9xjyAj<;2Ipxt>ydEqaSRbpEHj3Sn`~fHwm_ksyB{J1_gjhTE z?`*_qo>udrAk92o$who6->0Konigm9U94-*`Re06+r`YPU?0A5hFerOm;~rG;U*5` z!WDy~{)3k_HKhX3h%c(pE}f?;%73QrzvX+PE~opOx8ME+lB_GsZE2Z5`!-4Y!<*a6 z*2?(0y!bNPL)@f|t_q3XJ<_ee^YMi5{o7^o^b4#f> zDI2CZc?6#h)Y~O*e^#}djS3$DT_OeQZkMA*cnp8G`^;{+jNj_EuQ_?K_I-!({GTEP znn-Xt7L3<~RYd!nCvFbt|N5pLC(zZ_duH^|@!M|@wX={{YWMQ^fk^e>#@^$kzAhm< zbr&5RvFf|Gg4}!8($qiALIQlz+AF~ zWeFOe#(2{E77?^F@hl6U^##0yOe^wqp43m7l}>j{1ATUT2S@#WBEKBVW-z$5`x|S5ELhtjz*j z-!rhZa=g0_an>jZ82jT`7p30V-9_u=!J%8fg}TQP`Iw6w(&*{h{^54!)Lk7DT))!x zuD!Bp9UF5kLy0YC zEnJ@c=BmT&&fSkI62~_bNM7)6N8Mm@Ne(M8@AF=j3F@(b>bK#W33&+b<9Ix@9wj^82#OL;<~&I4}o8p4>=BCM~L5(rj2Rvy`Xz$ZQP`1 z1Wm99ui=HT{`O|g?$9**Fs{JZL|(I@Wn_zXJNm)lT^_28f2ytPzpUAwcx9(0`ciRx zV^$lpjV>&E?)LTIadMU)t$rhUgqg1j9ywg+_c;COs;EqPk zN$xAAUB@=7hiy3WPP;E#ZPVYk6IC}9=nDRiYO!6Yl{5>Y z0ilQ-F6-7_-s< z5%NfRPA2iS4CSo;Z7!u)c{mc+`L9>ia$I*tohSJatAM;~RU;Y#q7VY2@|!|;TJd~D z4ryt~x#+Ck6=7xfQfsq5HpYm)pi^j*hhyRN=(d=JF;F=RM?kcw2cQa?nuI`acT1lb zkz3bI;xcnQ)5o|E!{t-Hd+4bn8Skx&JpJypMe%PZ;h-t0vE-mpoP$s`po5$c9SLYwbNkaV zuUreHqhab#jhsolONbw5r{c<2Db)yN0EDGf@65gF+G=6oz=;}#e2S`9Y`l(5X~}cu zw1-(BiURd)Crf+Qjc{A%L?fG+Iv$7Rq}Q#K*l~d)8SQg zH8_siu^Mg_ZY-V5EleL?c|z&+eS3@Saw-;0aztU;SbHEHu6lzJS!d?-%5apTX1#~R z{u!k1b=xG)_LB&UaB@A1@lunpQC0m8gXq_z0Byt?!*LBXUBn1kEB{pMs{=Amx|wkC zE)doN@gnpyo`7@QuXr)=a)F_5dtFh843jD|At#BTVo2d8C}4QFTD_BaDfE6fzidgY*4)bkKSaMFd{)u48dmA>&DX_$J298 zo#I8GEfUA1=_)I`iV`py*z1k`e1<#0n&Vm{_Gs!iOH34$uPonziy@*_K_4rqPVoQ* zuV#VG_4R6h`0Mzy*&dp@@-+ICJM3!rgVXn(4c5;+c1j6$C>H%A?U(b+4Y=!_#ekiQ zY7Y}y$|wBQ|3E{QuihVHHd~Dt9u-~lN31wM@|)97ZGXe+84F>8b`vL;l~cY-&M==W19n>O(DoE8y6P5&d+>D?e7NaxEg=ydoeJ-Fkust9%a|!R{s1(T&Bc zd~D=G|Kx{^=L~p|rOiiSXDKKPf4tV6r&xg|fU(ygb3+E-NV9jyvgMBxtvlP)yVK9(I-ZulQZr;5 zlE<_KZ+ByW3PbJ9B%`|C;XS*0TkR#(p78Ex1rCEVsCy0U9F*#42ipTm*-WU4H2dYH zNr^pHxyX>0+H?WvwRA+JSPEKMqjDSvO(1y?UK4piVktk(rj||>uzxrMJ}4GK_VPLl zjoNmtZ4!qbqQbFsyZ45qR!Xwq2KeN``cFffc-=6Nk*4V}tL=Sd9k**g2D?ip5R*j$ zgzt}XNOY7+!}lvP%$a)3kE+w5*ia??7?um%BZ}~a z&y(A_mCK^GmWBXyE*tkty-!QB@^X$4uU!;po@5G46lc);P3o=L;ZF*7MhT1kmxPwJ zM`-##5E0q>?sZz~oCZ5NOD+;&yANRVOyMZBGW6hh!7C0Vz9Q5@ZVK|T&KE$cP$952 z2z@g$4Chzbayu$7Q`{lqWA>)?f;qkSuIbkoAn|z*1~cr+P*0=}dl?YtU>cyKg5yF0 zn>gv^BIY0?c-gU=Z%`_|E=V=srWHS3a7PP|yrbtM4q$SXOROBm12E(JPyeXJR&mPq zv=_i#IX$^7H_es8@*jtuPG|)*RPy)1g~40`*Em41nIKXcC`97MbT$i5w0YxMg(p#L zZL!~n4{s2t(2vKWn~A+hqwlh>3JY5#KDqk+3~WW!yNoMOc$GN*N>$sQs~dpnS2F8F zz|rhBX93BHI109#CMERb<86KeUFi4k|7Bw!H!5bf!M~4{9Nr;k6KvG?87-~h>My=3 z#+uw-@M-ckANVVJqbZB(ZY`ybXi|nWwNHH=!`pj*I|b*KWF3kh-M`n26x5Ww6Ljf1 zet+R#Q?VG`BFbDM=$pCBZ(?UbDXkpt=>eWsA9#0UZEaViUD=Xml&9!DgEv|pManP5 z&(9z4T|#L)0)@*XB_69M|MK5GGs;b^XGjKTd~89a!TynnF||F$=jw!$`a-8-c!057 z3&A8_QyWg@*k0{!Pe?;1LZkJ4>s=r2Co*ILO;zP0?P6m9siK%V9VM&$b-I^P2T2Er zkKE);qAc@L`*8Eo97cV23mvg&k=QK`r0_`bO~nWvfFPCs;hFy2I5E-mbY=e(42SGT z2P55Hm>w`Gf56dV=A9LSp*Sm^o5eDs0~(NiLy*Dn3SN3Kue9$}Az@QatfiF+ z(Z9;%k#5qv?!qLSah^C$Q$wfkU~#*nx-JbLvldkMVv>8{uDSLpqqg=8>38}E)wc^i zVRvObjnt`GfWH7inGPrhitBWMTQ(hbii)q1NI->4$xkr#5f<|b60Q7qANazQ%vPmR z)%m^{zODiy^Q>rb^Vm#?0x}D{osf^STpa(@?qxoj`s!5wuhhT!L|@<7otAN5JdS4N zAq%z#clFH&5`P)0qkNOaAmN|T0o<7MkA`STSt|Ph9Yf@ksfBub2MuFY;maGbzPhu9 zN@URr*^T}--rk~J83G?;(ZR<*Lg)O!Jd+iVG*-8FOna7m?|g?vgj1^DlJooq0Rg5bbT(~7jzZAmk~Ihme>i-W$0V-yMNd_&zK90Ow zdKaT5cT5O{+q=X~Px6%B&Ta*kG3j$v+p90Sj^s(WjbCtE<6Ir0y;%-Wli9N2a$aQTA!W6NxaGU*UIp$6E=KUU|a>5@0*+eId2=NVJ zWS^9mD>C&`IlT7sZ8yKtBoNEG!#Fi{!=&3c4|@y#EJb01I#QC2 zy&Dg6#a|{uN(>n(bTCX`;}Vj}Nmf;TW{R+qWH$~c*J?pb<0cl&g#bH1@Ri`s(Jpa zQsz)qF0d`h{H^RrTLRPT*oEfiX(9Zk%^`3l&_y_CW!wS&jd62?DWj2trU1kl6|(1k z6um3`Ix9RtEBg*2>KD{1gQ0nKx*HD_K9Jc_^P1G+M%b&3@rk()D;e>F8NIb8f4y=v0f`^r@2jpp~~z*Bdy@Tsl0^S2kP!9UAjoiE`gMy;c?FWjX`Kj+etWyRVG{k51 zo>b3Nrk%KI@E4wB!5Gekw@B4#!?=mOnPpnq2mkax3_tva2^ z-ge4bXOL}{)CQ;dXFWV4}F$-bh6^KJEqRG)f{h#dapp8*M6Z$2vDc-7M z5o(_NP^P1d22lTvPlmPt5;aEkxql3=2BzR+MqT&SWz4&Q9>DI&HnkOnwHxdb|ECqr zOa1*==T{$GqIgfo$Z9yGO*wye z-1dbgx?Py(a&)ijFkM=z?H(K!5s^9elwG9I->YP_JxUF^b#?CTRjT+U)zQcUdKIPG zprq=Vz1VM7P&hunEnfAOre4G4E9L{>a6K=gm?v!2bwwwEGH8p1Ys~RyydPRVZgCE# zw+=i?y$(`VzhJP(-fdu_Y19|w(pJUElE+eHQ&r69ap^h=qQP+puwM2G*VE_ep zdM)!imwDxy;_xB+NmMsemVzaiswcJt5^_OIOyWOjhSRI`s54y}+~g)DAJ)r><`>?T zVX`N%Dk7`|RzKsEc>b$7)>l}znu9%>2qo38+Zia{|+o+0j zA{%6HJ^t8oxwBQ``bVk%PSU$9c*&2C3{Bfs-l(dBtT1-WuQrKEBizy0m{{84M8*%8 zdhP(2lGP6DWHoUH1i>K`Wp;AH^5wjYtn%O{G^71L8=7E?{=C(k9TXc~ zQs%65M}ORxw&=v*5odzS4nMpm(7PI0IOct309y{g#CmaqzLY)c>PE6g46$!HOG?9H zzHO4lNZ(QZBMXPyPoII}XbYSEZkDaVzP4s&X^sCb>dwHu?L)FsLs(*S3O8GD24r&v zNnKW6C4jL$0*4?3~@iRS@18^cHsN}Pm>Oc zflkobPOqJLDCGE4ByR^*U!Rgk+*_p$qkf%Qle67El5MT#y`6^|&)~8y%>|weK+424 zcXuVQEyA#YY`K{&6Ij1H-iAE>f`w1oOKldoPm+#`Dk+4pnGy02@3JyPH^vkY0w11aYEsJQ<|&2bAFB0Rk6+mjj~3Y) zxw$#tyY{yGW=Uh|B;hO|s@B`D%JoN)#5>Z}vZ8?IoOYjnn?AR*egneZsch`bpk4U)4T(TCm`&La@u`9qA1{$?-v+Zr~M`AT7g@E)uy7$5HD9LdWm z4h`{DQ={9|eYNS#NSu&ItHwEvM0;oZB^DQwX!Vw8r)JUjV-8FxZIAL_i%u@lDam2`PZ1b!+ZDJ1DF8$<;Ckta;FT(r>69z0#$mwGF(D00B6VOu zS)<2fZ+g~CV`1fdLYjJOIPgl<*qSLw(I)j_0Ag6lfb7>uWAr+B7eah zl&0}y!gh(Zv&(I50gG{cB-M5u6>^>*r>ssU6 zg_`LbUv19)-))Y2KWpLmQ=5VTUBJ7_DetWC{<{gWwN5l)D2Mpct7y+`u^L> z+@qbqsy2iJfDXFXk|N};dJ>R8xTwp0A;L@wI}`)Ov(aQKZAqL zRA9i8h9RDv%%ni+?FB;EcWG+TTbW8NQa2;k>&fhEL21}1G3i+&^c!(?eqr2*)vHYo z+vzB@!Ve>I3hiocBzPh?*+rh$I%v-6NNVckvzA@png{Oi*1HHXU% zj=`V#pC@Q&nrvH%AyHX&==Aew3y#H`&le^NQNBL9HFTq9J}KfB=y=Zom-nLiuL%D9 zgP$pbpsVV&QH^yV^?aGI|BtD646HNiwnp2gQG>>4)HJqj+qT_shm9KBwyh>a&I$z+(vZ8>);3*q~U@q!Ie~3h7dVEX* z@QQEdxs2Jm)m*(uG36yZq2T0lW*R5KSSh|xbXY(S;7;rns7cp@t%#z8)A!{9Tz|cJ z=r`dsf24C5#;_XoUJdx0R8imq;+u7rFHrz9;v+W>7X*;z5RBb8N%SqX#M20kP!iE~ zm1b^KhCvy`fb@U1&XP~5rm^^ySeOI zB=?+^85N+_7G9^*kLpf)x8^!bX`%vT$r6<4vLUMaVLs%YQknks-Mt zaG{QY3$={n^7b?3ECqHVWSiK28yQAr%J@2uDXBBu3J1V z!%sCdfW0#{Xx6H~=dq-44}GsSb|5Y#>z7dZ4{8EXDlE1H609kC7Zr)>wy7PXn}jo3 z{fWAO^8`A^;dV{h8OqPqVpCR0q#rT*nk$Cyf_r-DktQa#FRb_b#QYW7G(i~9<{4zh8S%{m%ajagwtS7 zyIWgH$z1Z)I|hIgwrJ@b{xE2@Wu$LZxA))(6 zFH;j>qt>AkbShHm)7IYHL`;}}c6j;L7xxG<-ko~pj#~-#UR(1~kpvveLo-8GA3MzP z`D&yfc03RR+nBu=4i4n|(fzCdlEiOAjz$TSoYbmLO6YL5mc<+{hW{1d;s$DL+C7iDlLFEAP6<`snS7`@L z!hH4gLq~RK`@*5^moRkh@JC9fAI#~{+pn0~V73wTbGGS)CahiGq_4syg#nypPNyja zyS^Ze6b-h(NNh43Mk@rVHbi}BZ=(dJCKSw2y z3T~Ec>Tm`MugnJ4_-_eT6k*j`4qE?Q@XPJlIzt7(L9~iEU*% zhiB>D3*+8JZhr-)hyJ}RFz&bO>~zMUFVz}H79Ydd)4BS{2$r0wOl#DUjr>H%d47HCK)8_jGNr--%xv_x#<( zFsk`4ktSXKme+{iN8v@RG@j{?Rs=9={j>DoqaxBfoTvc;!0)su!h=?dbK^-fvuOU0 z%|txx$Zkh_0@EyQrmy`)8>uTavtRM?QMBU2ZBgADjrt0CIr!?^i9mU<*v(VS_+HvE z9t?TY(apDM6@Zf$LAxo!F;6NU5@DEHf3m||8jbAEEKrg_m{c1A6r|HcnXqHTx%COz;yw28v9Yfik9^1F?ens} z<<=A;x(sw<0}tGAvRaODc65l<9go&O?vIZ9o)9iiphLFu^Jj_B+YZ>*z`2EjDL}f% zNcKyZB5kgCBNNcJG163R3{>o{aBQoJ*FkPpFW=Gl{vf7P;j*#bl6dc~v_Z*EN0Ua9s8Kf)|1A_F=G7RfLa`WG;@9P1@I|6dH zKDMxL6xH6_?l+^x4QQQ~{a1#sE&zYothg{?5ldX@e*QDL@Jn`j)4BM15Ld-MBQ~DJ zR~dVbo2AF#k8NZ1`&2+8V+^Vb$*kGNg4N{>dYaF3`1J9UNc^MsU$lefH(dz>1~Sn+ zwL#H~%vgj%NlTNB)Z^;D(vbk)O)`K&^N-@KuMc#t!kM>KU50t9T^GG^(W&pkaJ=7V z+^43X3qTxB`v$4yujdXKfPp^e9$&Ov^T+eT+G~#A-C#@+*p}ATxnxaRxk6~MS~ZUu zH##{el;^ilRg?Qszjy+Qesy^oXPp9w7N(7w7eP>+Sg6(5v-Em^n$1f?d1;WKjfdPP^y|YQUB0sa{tXaJ3G#Y^7Lgbbj!LLsGg7L zp=x0bupBl+P@xzyzXA82EQ^?sT>tJuiBgB%$a!1)%q;=5s>kSS`eMTjNRT%DFC9uE z7a{q->Exrbx_YosNG`k+kHB}F25mE8SyoI_b46`q|K&jeegiQi+mkVaz^lA(XdDu z91pQDQ@sCOY4pbHPjFvwn(f2wP~HDLIp;o^DjX)rQgF&g5pn3IZrdh#99lV_m|Y!SKCc+{;%~1x;XmrC&FPU6fX`&Rw76sQ@?Ln= z*zub}DwkwV@4|T+BWWN=IGhGe&yTPt9Ji@B;flWOeGxb*UxueRBD1hj{ z^XvNL^!C)Wr-YDo{=kWBHhkfzZ(wt-#jVcjNjx^?r#e==^XM=ow%EC7*SwoU#bVPj zUftcV-hA*0R$N6b%2Is{ldFobQ9WudlUKM#goq~<4agi6RpteEH9+1_htAwn{R4`r zBkey$vPc%>R7BRUQH2RPsP@-c1o+UQDmQIY#`*3tD@RuCSiczbmMS0vf#53*T0%69 z_BV)7t^)@5gNoTxs8Dp1v{UT1Z323b8uvNFEw(b43Cz%opEC}y&#O@Wb?-28OsyLy zV)96|2GrB>eOuTi9V``yNoD`(HFt|V37UK`4%BDp(JOjO zf>;{7AI%%G^Cu;KuMf@{&e>1we`TWni6L#EFbdffh9^D#VobM_#I)~#b3%@;cdpKh z9-qP-m3P%C0-hp3$&!izvE%jk7fr>Ry=~O*?_7D5*sP?gAnGDEQPXU0=er^Dj%?R({~+VE<2^y58${ zyAufhaAQ;uX#=Di|B+m}cZpqgI{)T<=qvvjZx266zFLbh#oWx|krl#qPQ7Z_CcPi7 zaag$!gq%Q1R@L?J$~MpUb*%m2LzA%kS>z-?_~frLMKcs%TX=G1$s$NYQCJzPs$*M9 z+il-h@y8tRc!DY2g5w3oY7xwoR!H@^p5<|YK(-Z{&KAI3JQstea)vWb2;Pt7O-VE@ zV3&X)>XrGP5MbaPJM~XbZKGz4^=9hLXN7kwTo>@lqeBoJw>)%v2T6#ebiNF|+ACls zn8idzr{#{>RlHB6a_kx^OT86-3!~`J*&JsPjRQ3VAbOoWx#RZNlh9cWrEzU9C7IBPIUuuQ%?F);|IkN0_p43%vKF`F;3f&KyAaL?K@9_% zc8|X)rghhgIvA|W27+NxGGx2aL~;58mlf!}(5<1FR)yn|=>2Ms@|pRJ?b-RCoQBw? z-(zOh2ZS-}R9-)+AlVTuw>YuM$uLc{4#rG{UF{!4-9@`|9nVg}0t4n=8U7bs{-4x( zy}Preh~L(i67bzV$;n8-&U#RG`sQ^+%c~hUygm*M zqhnwb1PR^#+)o5#AJ26?$i!FO0EkNjP!Uul(g#|Qfebk8kLWu;v>o!LA6*)}Ra3i# zX7R*aqc3Op{T0afkN!joUQgPGZbbYfYy0B6>Qx8hF8%AdE6-&5d=#*)?N1#Fn_SaF z#jlmA{Co_Jx=WBf;!X~Fz9h(Wo!G`zV1~$*E9AOR^Ecm5rl)IV*epx@<{V9J?ZbWs z-=OMD9-;u2;pU~?|ChCPig%Aa=VnBoMp^|_TSQU=%JwK->#WWm0M`Hu?q@-;Jj~Sc zLETF=Ng7jgA<5x!@^!2j46I?gZ~7xM*iQl^bUnI12EMaF^fqrmm*IMA`AJ(ZljX3k zY^*BlwF*N&wlEHV{0Q+{n=JKuOA`lJPtsYdFZcP~rR6*!)f0aB@%t&eODni22hX20 z8WN|9b1N$m3y@R@cf`xJ4*@y^rp6S0Wm&`U$-Fs@JxT98-ZSR}8-6`3Ly9Xtjr~gD ztDEsC1_S%D#xL9U+gPj|Rwt6Z*ERm52T$m3Z^8*hj+(`ZsD`!kg5er;S=}uobpMwC;d>E^a&g0p25v)P+?z{l! zR!&1I-Hdlf@DG7Uyu*s})gPN&=cWV|u8e;pFyyq^WNthquG6=Z4A`D22J^zpX?X{C zz{R8)lLK8GiWvPI|5H~a#)z$|U;j2X78+*RRRZE=WS z;mj!m`%2Emt*6?s1G0oK&xsQoak?yXpVO5N6`n00?gNefE9Cx*$VF;;OGzf=sDKu7 zZ7l)ATFM3lw1Abj*Qzui@D$a1$!?P9uMo16{|U{tFW_?&Xw*WSM9<2~Eih2w9Biup z-t9~#L=g5B$S#$#?t@h{RSQ|%<#;D%7oqfOym!A3(B1|2dPTLRX_VWK9K2ba>2+;W zkK4RyG)=zP>2ydA8JcvFFOaT4;A>4_9lo$ke9V|;55xSTEa~abs4z|zt4SJ5IJK18 zc&&gy<~p4SlYj-2gVk#S%Mq3(h&B=!aRE)L(?~WFPj>9{cGl1!F}G5f##i6DSbz7p zn-)oyw>ZV&DSozec2_;Sw)EBhbsl6?|MwZuIwqlLl{t4mIK;)G=XYi0&o`KQSNohp z%t^a?g!&?81{L#^dXjDSFUvoi^BBZKIUCVF=WtbI@dP=Qwn`v3Wn!&++K)8-uF+$! z7q&C-N+Lg{PXLSc>$ZIi&_-w5k0#(z#XohOnTlk}&6Q!7ZUH4FCDr}7v94xU`q1LI z>;odtj}?htDFRuHRL0M|ifHrM1ZRE+S{I`W8Ml`Mv1y-8g$b()?u0{-VQAtCK2H^X z-|I(@gAG}GRd~UY6_<+3wkU~c9UyO)oNsl#+KY5MnfkE*lHLk)tuwc%pQf^5^z0|o z^>^jT0&27&I77$mcL_yTCPn)%LFVv?or#THuZg8^>+4S~UO&3OJ#5X+AFlGmb1H)J zW#(sQ3d@uA2h=z|n;>j;9p4zIUcqAy8q2;{>aGakxjspvTNObK(q;b8UA41tnEaET zK(oc6R`zttte7PwdO>06<-Dx*+HL@os8g;Q{2H_6)0emD<8fHk`Gui4CMQv0?R++M z>$7+;>~2A?Ktj{{52f|!wCoI;Y_XJs<^5~TplEqqq@|uD9c^0XR^b6BlFqJQWFR}C zWL2zvX`$>8g?6aLb$9utAM_9v(NYx`M-6rExU|sfRd0@!Lbnr1W5YU&vX z!VB40;y;mT2*!`Ek+L!T7EKNp)K*sfq@Duq`q&^66sLqtPKxOg%#-|8W@Z*rH+3-L zXeMsFO$c3@#Q5f%g5$p6n*He~6j17FU}^@k^Qi+K|LV6i5cNkqUmF7trRuUa$=CgG zot?`xOx+bup_8yL*Bjjd)W}V06;%dPqI$3z+5YlmC?M(Ej4Ff9>$>hd-% zM<#u+00A7gH)quei=4JvGG-~zhwCk4Zr(48OGksS7%%0xPb=?s{ipV}t5ZOPh#=;W z3B^lb#$6cORZ9)DJMW}B_jaJwuH&|jl(Y4XA{R!D^dLNHDP0MMd?Q%~9S5s|sEiXU zSo!d~6dDqu!bDsIhQPatC>_Suo?2l$=3Ww#y0e$w_j)aVa53NOaVw_EDM@6GMCS-F z*YYu2aH{zDdjHj_`el0+b>~ysYW5A~$HD#Z&zcm>v7~xBi2|Rt%pNbP92MdMt#reY zTgfk#e|y^~lvavzQ+eiTI=NOcDgWw>{TTuy_@*GgjtWSEJTvg^xaoQB-h^MTMh)bj znp2k{<<(Q;X5V|gPRAIgFj?eXPgly;F&t~h_iZ-H2Vr=e_ZEt`z5;DM)b)a)GF_1? zs$)qk;StXJ(xwgIy{K3{ZsEeWjn*F$w0t}|<<)I${7f8-UqvVsV7*@M+F~TFJQ@&@ zuZJ#7Iul<6UY-tpi>nFasy~zM*9EoY;^BQEbQ8+V2c;y%72}mdM#tlE$sW9nRYW0C z#Ny`hsZXcao!=Iy)#`oFwe*P&Aq^DKj&4+$8*QQ(ytzJKYv`+yUvR_xV3^G zmU6haW9ZJ@XNo#ZAN=3I={+-UF;xxiAZ=YuJ!n|}7$4cZQ2lK>zokmFj8An16 z{sgVJ5`_o8UuBjEmocTK;3@QkW%65|1i3r9$#`@~?Cn}eYxy){>^R+yQAg*TB;PIn z7!2s8hybgU6rHVjym(w9G)K9uP(@T2(=_}dL+?3lAAkX$g`JHY-Zn}Z5G3TZUp3OU zyT8u~{Wwz`Zj4y21bXu7;I8I|*30k5f1RRoTB4lGiGu&D=)rO-Nls z>2*HT<{2N(ywv*9eHa29t10gypqBMT`}3c;Y5QPI5FB}qJmlsxveXs0D?%O`+H8xe zDi#-8j{%C$)~WEq;ClRNm7~PCPN(>_b;rF=Mg3a=G&FO31`lf328V{9-fOd&PYu7P zM)v+>lSML?;s%+2^r_Fo$)TP10MmKcm!#TY@x$ZK7zY{*nv{1dkDkRbA-@C=+sg(TGuDV_Og9G)cMKl1zbL6gY*V@-%A&bO3jb5Qz zk*Bk|vf3$WQ>rrXc#18{Ho06Y37x23Mj~^lfx}y@v%g1&sEsw7&8<;y;1QObKPSb2 zykh=&oT?vR(2YK|Qr6cho;(dK7O$_%N_>!P3H`(qA`tqxk2mwNH<$i&0GhC;lrKde zZH@|kwP1Le<>f;SFO8h^6`!(l>PP~qG$1Ru>oC|Q+Od*)%WKGE_ro#I6#28%SqOzG zt)!`u-6?E?FJY61RPgNz|8xJBRnc7;-;1I93oGn6M#X};`FR;4;q|Jbh0=DL=A&s5 zl|;((AMGQ*TcOJJDKVT$)r*()!??g?*lI0v=cMYKI)RO7u~aW$b_$o>(L>| zV;3xRD%=F(AKuS26Dt$fSILQ6K;T;0SkM;owT`4x&=i8n&z&sm(9XT0t;f}BPFcUK z#Nizur*xYjZIxw`SPit@O4?)~HZ{b!xis7e+|RJYCnPOYTiOhAz34tHkRjZ329PpQ zMl&@p?O)A;W=lNmx6wrV)iGg(WZ(DWhb5IYYCHyXV_QNah7r0R!iAyg;?IR&TK+p0 zySmiri1^$wEsb^eq3cp6lDlCtjUxhli0sR-t=rK2+!{ae>8shDjZnQxUg3Tef`W6z z4{bK4N$%6igY|S=tJ|^hdn~!_fMh~|mz|hER`0}I$jKw}>9S6b?DFf@nCq>y%J{Ff zRm6x}{E{55f*cYkB7&4_f3M+89vx=$WSJjQafmtJlc9Vc=HanHhUQXbJ|tn#4dp#J zP%|4e;3Jh@oc7Cg+wTS&66PCJCS z0Q83Lg(OZ4U-atymuaS5az`|R2go5CV_R4Yh((4o_55gJE+sS!C=5C`$zgt$C?hEw zFenJT{4Vc(=@{Sl46BeAvQUR~!$I5Xk7Us?S++QCi_>$by~Z4}F4KS-wze-lK;U-f z_kTU#pm1?o3~Tk&Rq-c^pddvgc6+lqUNYJ`$jAO;t)~n{zbIQ)-<{=f;u;4l>#LTY zQJ_^y4cD}t9DU=@%X;#Xqd8(aV zyLlIgjwHkPoxaD1hDgcHJyUzj*9r235Vr5KYc*^zcl=WR$f-{q&SW`bH)0u!hHD4T zOxISzQ2AxI%3aN#*5N)SiqE|J&9=rAQOG#WfQcqoX5Obmh1vpAyiG<7lXN9OUo}c3 zX=mp+V@#h}Pu2p$71H|!h_kw_w~-g;AnCBwt|IT@G&f-Fk0`_t5W0;-UTCwgu+$@> zax6`ihh!8)q^N0rHCeJP{N>Oi1fssC%Ruc2j%=%pyoT?FH5}ODNbZJYV>&zED1

    T;+!IeOilkblbsgRUF!O2`ny5K?U>7!ARoH~#Vxf;gjGyqSGUZ2 zR}5Ty`Au%Y!^}>J$-s~uw&B<$hOc-_aaLSTe^4#v+-DG3&%I6m%nSEyOzSoJ1Hu9z z59cr`C7RwEymQe`K@uF0g0*venzW*y=DtuwLRyPI@##J~8v*s>fjs8^eh6HPNXeU+ zxCE@({WUJ`39rD3>qr@=ONYuF?_JYl=gTrj&Jz)y*|^{O$Ax7H3`Q_`3%sTLvaaHC z_w|w)+heW{S2Lmj_$Y#96ubt0xNC##zG_{sr6Pr zg7mVFs|9$kny{$ z5u*@#W|w@*;-9Nr%)1%8_S(DsZc9C`y9fGKe3QE6Mg87Is+!@7rjvS(E@W5zv%bQ-8twVQhhuRV%TNBk4Cb3rX*W955^jB z;A3aDgi{OaHGq(E#bx1$+@Vt_QyvwHBzpfon_J~ zWa_XP;%h5uS9eTXBD)xT_tZVk5!|Gr2T9!4ek-r>UcZVKb_Gh#%$eRhM?_|FRq(_; ziX(@fwKv^FubxDt{Aoy<#c*T)$X5B!9__K|-Y72QAq31H>y@p(sLmo7-5ky8I-~VW zHu`vYot1?aQ!Hpp-AS{FP8ap|Uw+sBMq(;`OT=Ai557*wN}>|;@E~3^>AnK_g3fY= zM@RULj#BlYUYw3WzBH>)Q0S{2XFeA+b*BkApPtrX$Jg=#_G5T(P7agug3()KigBG7 z3@A;O&LUPi^0wvBjTsQe08Zb-b}(}<*n^pyib2&N$It`|lApGal!u^ft4I9j_cz6X z^92;!rOxSwee(Jmx97VVyMUKCC~$rGp0v0}8T}qi47={V7KO_J;p({>_$K}MdY?1( zwOi<+0{fNBI0S=$r`gav5ktWg)p+c*!$yG0pk)uHBlUaV>1wMPK!z+wzO%|1zk|`> zLrEsuEK_kr>BCTj#2Fg?@UO<-g6rvaaJUiWk&zIRkTm7D=0g9vCz!3C8-fr|_~n!k zn@C*qK~9F>{IU7XYeP;Ca<~c}yBJ&i6QhTD(fK*MT}1LGYdI&mcYn$B`-GPU;s-Mb z3VTA+cX{UK=Z*meQg--j#HOCrGCBt(BKHQbtW z+@;+VoTq;^U=XxKZVBTa;=9$$&Uc*Eyj}ZfHT<<6mW-k0oUH0y@_8*za#}}U|GXF+ z7QHID%=J<%U}xlK=pqkEr4SafpivwVo}mh75{&AI2P`-TnSM=^c&kp{mL?k;o2~=e zyL>o8-|fWT&LR4k{mF$vAoGzGC-b9Hb33gvR?Gf_9eOK`Y#D)2Yh}YsAK*TP+E?6mCuQSEU6qUv{PBzPY zK9=|HZrJi?Gl4ZXnbxdYyvro-L+_E8)0xGbr7>q?gB}p{-+q6^^SBkzPh+NB>oi|> zdkOIZtrDG!nXxEN_uMGIr%|i`;$K@`mrpH{#>i*F(!zbHDnIdvA9LocTAWzU5-U-3QNHw_UY)f{M=^xScV7fPr4IJa3F)Oe-&vmF9U8lCK za*CQ9nAS%kXRvVk;fTy5C?SR-|6De$%=JvxSIo6<_wvluadH~vax~^c#dw3QuurbB zeeJwlCW)&$pT2jhBYSO8SBmUbuQK-yV}ikOj{8Yg9v`ODqKzh?;<9V_!|8Bkk+~u; zU}HEK$e1CHTitI3GRXs3TCR8OtX+hf(4w24gp_r(h@&44f50t?tPji33hW5Y!-5lj#%4|wKqo&uh07Qw_Dpd)OZ9ebm zW_ocEWY*_j)$G3Lam-A5JAYrt8c-CQ4+>X`Y+mey*RS!apI*fqGhL zn8(|4c=q;jyt!}htl!6$?cQ(`zHfZJLPVBICy!>xW>YwN-57afADo@BJjWhe$&nHI?Z|2pJLs7Xkb{Os=(64nmr3VDK_ZXt#6SjB1G}I*Ay1Z zGC+J9wKCkB%BwQ4G9ot6WQSp+cRIxA!@0M)<7qy^aOM`5?LMK7Zt!{eF&uGmMCgbG z04U}f^g-~aQ!cm8R?x?>x0$sv5<{jN){Cn|IIaGt$rPVR5_M8khfPrE3QUaj7)zi& z6kMs++pREJH#4Lkj`@kC3r_ZH+UL+#m$TozEWDNp1YgwCwz~V3v8{ss{vt;79OxZp z^Lg&+bH^mMUpw4I?W985u{=;p1#6fcP8Eg%#V^kB;L zTpd@bzrx>*NA@Ou@dtz`UTNyFix7^4^8J*glkO5T4s?a`q>IAIL#Y0#_G_j zz&Rh1Z=X%c72Ag%i>|;oYQD;&t8|Oj&nja(BV657g{EF`x1D&X2#7dnjDL5d7mP$g z8s1I9?tjL4t;%`*PtZGXz4XZA{p!Wf@{J826fqFh)FSt>cpLoVg&_y=9>4Fm!A#ZD zWIei`{1zd`T-&TTor2K5F;j?)sS9xM&WFka7|pSJ)x;i#76ISiY;A_-6?F~OqxHZu zPkfNNW?Fb^rpodgzCwq7o8T zj1=b#uhuKcx!bmF%d32I;eHG;{;UuZCPk_Qi~8d(LZGk|gj?#N^hBLMR(eQvp!=yW zbJypbQP{|B%=@`5Pv-QY$;9d0*?wpqIM{8>2poyn9@}_6eGt+p(QW`KknW) zY0I;GzPmY=Mt^1T-eqY@N8?|hzPIUhMAN~qRhxqFu8YpwSW0rJNrl4U;U=vcysp!F zAj5`0^up4mXN-`(9z7F?Zy_r_?WH%v8T%VMdIb8}Kxd(;GeOgTaQql^ z#z(g9^AdQC7!Bivo^1uWvuht0h`M*H-Pldz*F3b%c>>1v<=%=RRfaxAEoJ+UnSEDrj0FUL`4R$}p>T3|f7L6w5+FB3 z52zg-W6>pocZ+l>L%IO-w0->ez7Cqf{M_^;C;MAyCI|9JY}pvN_>nfPySw%K^3Sc* zz^AL;)*0Sxyl8d~N+UCmV~ZQrWkdsMuZZwliL zc>J^Z<9jX?lqg^FPfsj-DM5eeBQseWvo{e2f^xCcEfJe%qip_i3zbmaasSI{T~D+- z!U>|Y>FyFf?_x*k5gP$WRAx%~R$TrL-n?P6tU z7{Z?{S|IL`lV73IMK1*A*1FL%HDRnxW`+Q1Y*oi*B<+*VSpazhb{~OEnqaOnGYdps zLwGvT>amL^LqQ@Q19beuxjAl&VH>u3?#-~-A zwV)mtO7Z(1G8`wf2Z?%e48OeGMUOyZxw?JGP#>zA*CVQXy>Pgqs7@G2#sb@2pq*Ik z_FEd$mB#&F$>c4`PILY@6EI~7r3 zL(=-7zcZscP1rK3ct!#DHAod4h zyTXnR{cN8{E47fP@bUfSy=yj?XT&Tf46TwaO`Q9}R1j8bil?E4h$fQ+whWr=y;e(c zu5og`b03#6y#NIdIaA47746*+8wMz_8EfXxrzoi76~ovq7!{0WZR#+pT-5OTa|twj z-c`IywvR#6{qcb$3l~lfmXeP!AI9_6h+EteWte95)?t&tc~u3_=zGev{(j~X?~oZ zK#G{j?bge1&RoAy;#0#F?~?lmfzLIRP4;{E#G<&RX-Yga`EwH=F`TKSvna#=%@4Hj znxX#ix~4+BM-fWeY&R*~Zb)HD9V^0_=Ag$7$L)G3NgWE_*l^HY_%k{dtp(Au2WiL% zhiWVG&_pto7UaqZv66KtWAtNe1e(eU9R+xBiK6}28KX!!jP}To4kq*meVg_N|IzCA zn~w(`t~@HJxikrL+ZFUNbluGs9yM$Ov6o^;R2xSlEUw7_d4`;aunEC4c%8x`(-hCBK&DDar6i;VDj#!I2ajmW7+l z&dmI)Wp_RAe9jg?L&J*RG8-04%1j|C7UW0)(jO)Yr*R7D!u+3`5rMIV^HVZNQG!A# zAB?L-lRg-^2z)pj!KET`(F%lYVqP49)1z^tFq| zqk|`&t~Kg~Q468Qf*ru&l%Bv%F3eEHM-a)}-QD$qE~W&6*|{v*fHe541Q~|SHhd`@ zVAUMJs#n!mI5{NX!amK+d_q!Y=b{_vvLa})rAGb`p%%1=OWNHvd`WTkJH*QesNU#G zU7^Pt{xg;sprH(!;Z08}V$vUqIyB)-ip98;2gZHBzUcwk{(|*zs{ag>eDeB_6H!eH znVn!geXf)UQCdGeZexjH3Gp2_q(OB0JwyMVHekOia~st;$A0%nF~P_mO;9N<{UcF$ zJven7DJw#VlQ;hPiy(x)m6c0ndbCjavBg{JA z-Hhl+L~DK9V_)ZvFpfq+<0x&wJPob@2}k;&b33Dek_RyiB~|jCkfmZ%MFw@(XDmdqkW-D-2V*P;tdH~-9Ua}63N5<_-y)!n(zo9-c(!er>oFsRj zg#~$lv`CCJ9MlxYMbq$Y@Cm zH;b-);C#bA(kDCABVvIbxE38FxcbmlF-)D}fFWQTIIJBgtbhT&vXXg+0FS;I5D&vq ziQO`e_S@{E&z0e5qMZoc?@Kc`N{QC&j#C-^F{aBXmL5w3iBfIVX+}^FM|P?Cl~aem59bo5y{}-hfoXLn-Rv560?JlK zCh+DMnBf#O9UdGoA?U)Y0ouBocHkw|NG8dCWP+tUY2!}|Sp}&ieboPU42A&gAfLRL z9ts?F+wvIk9uB@doD@vyFy;VG;mX`dBARo$v3}XA?LVJfGzAv~Tp1c*k4VE~w8suu z{@v5?tE=rlslbSVq{LqshBe#;v8t&0!uLnQr!ljmY< z4&{>_2hbFOrTzV24GLm{aVh)FPDOISTBJ)7Zv1Jk#$a3{D(a9BKW^|Y8@P7SUzg}t zDS<`axBsd!;1Ce9bZ3MHbG0Op_2U!wNl{i#YTzsd_|yCSGhNETY)5rwBlqF8wg0i5 z_%;am_v0hC0DhTBxFp~saEnev)u4rykVPl^8O95$EVO&PWA*`@M z{GlFT{1^)2LBG@|R*_zKVybu6u0c_$%O`{;hIhzWXkxlrT4l`3{(XWkhlKxerD6~u zW~^*&M%^L>b}Qim2m$zJ@wFkQo@ne062OK_i7B=g1iQtPJ7(sxR0^k*b7Gl%`U_vT z*KxBH7CX+6$&z6l%?Z4TP@*@i5r?>s0MxErx>|?!TV&HSCk?QUa8gnjbLTQA_$G!j zLKd2V)Ji=vDfDVqzS8-0=HE<5=~7jQK_fC?!MToZ{V&UKzS|F5S zx4E+TKF1_wj6k-jAB{dayYir4V+kX_hL=I))y_8PpUv3>_9v=GyF(LW*SMq&Se($A zh9fPa3Xtshe1DUxc+O{X$UxnK2Oir>&q|##p9A0!K+ycJi{+_sxE4Nq!!z5R>qOdZTg;q$TloM;IK9cGe z_Nbo7<^5U$aZX49**1LWvSG^D!@&SWNQ~6IO<*DSmGYNtL-Y1I51&@>7{7E)3gav9GsPKT ze!z=_;5H|E?2zVc2fdcs+AewaR_C(!00}JV_}~!!LEFf#8bV2rrl4-DN3m%-tocDW zR7bH5p=OMp3C8tsf*3S*nfd`yrjEygA(jIhpD?;&MnhkXlMm^dj5k+e@F- zeldu;fi-sjQHQp+fmdmO;)jyTX&liCQ-*wUAj-U-wn3bbbS>qd(Z=@N>BJM}6T5)_ z1u58}JV4zb5W+rWZv~$?0dQ#znKmXV^kRY<^vd``KJw9tTEF_8`k#3pZvQxOYoQ72 z!drXKJclnBTH?APaI5`ktgMV=f@TN4Xh}fq0cutr1t#|a000m30pgJki<-vRo4!V3 zO2wI^B&orRd#%?AdOxcGabWY8ndj1%tU|NzGzY9=o*|6IT}fZ_--%NuOg3pV^Jd2W z0>I;_XqZpXu7`iSRrR>~Pz}}TC-t~~?W(8epa_S)>R0d&Y#`5n;#LdCf{GtWrrTb$ zCHcDN-=y91F$e?-45avvF==&n{gz&>o4*Zr-RU^crYj~yp7T){j!E#OW&)0>Os}O7 zo?C8sE-XLQ-{pAjqOuVc2s%G4T5}aNE1D-^fE?k{{5R-V7lD%Z;r9b%6jYtX6^zxwWYs+`(xyB@)z!OQDx_~*D$#V%&jRWoOxEL5xW zt%*~0=AUYO_j?tfp{_^_2!;b=;RK;5fiRwpHJayRR;0xkRT!0_+n7G^QfZpB(a>Q3 zPA!H2?r!K+B&2umkJe%m&G=|+3BLxh2ITr&>T6)E)lV!%923R;PXKZ-pOnv7{8OCr zcGFVFSMsO3ksb2CL7)z%x(OVa0eekSpi5J6aBv#egiMt1A9qNsQC<0~tFC(GCW-5^ z&jNV&^4vLa!f;_9EZ_Gt!O##e9H>%hXeKd>uILB4HME5yh)72M2U2rvrq>()I!`re zD6H8X2ZgEYqIKDYC9 zLUFwk6sW4&HsToEYNu_A1BAvf+!66Ur z^>-MOc%;SB%ovzTnodt(akw>T|KsvCEWt=l0RSbhwYXx$^thTeog&DH0}C_xOId!$ z)B}gns!ffXy!6WmYFr!d;%F1u>JYh-mZ3UTj08h?3t$M^__=5Nx&CNZup1N>H^g5O@>-}g71J$rX&pLu5HnLVh~(a5B5hLX5B+CwB2fa|X~ zpebvT7B0uSZ3saLaHMu3O**0T8%y=B^?yu0xxcNp=HwI$X00dGKny(ZY*K%UJ~OdH zq%4Kn2ycfZ%Y{77o4EIm3-e@pP3I3ch?8tpf~Qc=rwPC9AIdUO({VK@6Tb|+Rf52D z6dw$jcj9Xo8Xbd@ui}|C0HeRn0CAgxsX}d;aD`vK=8qmvZY86b~0@u zY|Bp^k%&0RZW5rfXNuO)(^OI*!Oc^fb9Y0Q5B$>=8g&>Bk_3;02-Bbkn-$C!m?Pja zs`Qz|m2zYh-J%3-4uC|A?h?#HDBQ4aH|N{f>Tehb}D9>dDy?tU^>}OU#m#RRC5dmF+VA~T3K9%)HGa)P*$M-MN~Q&zAq(^32|O@0$k%!c zuPyCQnehH|VuD3zoe4oRQ|xTpgE$t{;3$?amwpyML^OoYmcmW9D+&9H#8V@rSD~NuU*eVj+hW1Fv3p>im5r5~ zIcg(`_t9|h_L#PxM`j8u$BV?lb>oS_frtM_LH;)iYfTha!%p%yFppqKIl$fCgQS0U zAx^Rkdyas>mL=pUA`(G1UaJd|g7s=}Z>$jGAV1~W%D`1_u#Oy@DdbrKbSxtLx->kN zL*5~Sa^Pn5(ZcUd6fyr4HL{ijWou}UhEvPnF3Sm43(mf;YTN^)79(t$@&UgQbkwN{u^?2npz`ga_dGz=mxbw(b!aN}&qoEQ!$m?SfQY^W~rhFyzQeJ`ET`B`x3Y*7+Qw)t* zGBG`!-`uxoumkT`F=|~_4lQg_QP=7fLb@b|EPf%=B>P(Pxt|JlK(ylU_#DielehZr-1_iXW|WXPZRcWJ%rWc*(9%~LMQ8PqyNR#wTsU&6#24Z_q1 z@1Hjq$z%8TB(Jf8pDPi{1X41^Px&3A!wT}PzZTi!Y6zwRBC*Q*we2)MyqRUI^@`-tTx1>nIe#EkD9sj z^r~O+4h{~!M5U+$WlYxLNX7(GPBPqGki-5$d;uLQ-${xN#2B%6g1<5{h+sJYRK+p| z0|z^{6U5x(O!#o`LOQiK$npr{(<-*J?9|@0A9m?GAt{O_yL(8~KKcS;icyKmRGBIM zfaf$tZ*PU+NSzidTO@Er-Efc?v&HKCVIbpo+FFrDrA9+E>FlsBh0AXS-8FL?v?vLD zDySW9Rwd<(s-tl4Fb4>E#6-DJsl%2Pa|o2<6yY^6gg+^Hro?Q*e~N^8Q%``p13*yA zRT-K$%1!|#3tJC)-_&RCQP;?Rs0MLYm&;M2P^=9s_`6ElPOHS7|bnA1r@^@Sly zt%fvZW{XuiqK>H4Q24~BLiOD*wmdH(M}OoPA2B-=q}W+`ETu;GtZhdg{Glwve_$ZF zn+f(Chex7VqMC`u;fyd1gfhIYdY38npdp0|DGcEIVzUi&qx4h2Iv_@!b7LB3;+hG@ z-nwOzOe_mn26)upERZ4?ja+h>H`{x)ubKoI0T@9=XPIVMV%o)4NkZ+gs@f`lRf4-3 zbr_m}%Vh=m{)D!?++XCK5RCn){9ntPr5FiZ{Q>Joo)oyYy9|$q_B*vyz$_=}5lHgZ zeVn6>#Xohx`%U0y8^1TN~Jc(<9{X+{X-7KI^E$ZU@4bjZ#A(t*&chw&>GZ z9UChZ6(8NAi~@K2W!v(1fH56cq@Q4vpi?#U=eSjrP@iY%=Jzm=ACOW&cT9JXj?E$l z@w`oLOujd0Ap*%i^Zg7fqyW*FiTf~|HN3MI8)HAOubO?H9$mX{JUo~`#~5r7eEG_! z2KrVm*+O~C_zr5z{0;1`J_aww$5@)Q=!vumsr#1a-8KIv(b)Ha!#Gz6DEG;UL$zENx zhCsCcl9+V#28%!A68{-`ZUn+7?+LZlbfuSVFGf>1Ua%K90)m-X0*}?~x+!k&>Z<21 zXxE&!-HY?HzOd}c#q7Cm#ji1!t}}kvYto2`!vgAhs&g=;qf}vXLJoskGg3`4N)Q?S znbsC2QK}!Le4=n0!yf8vV#3|lof->9mstAa>sb8}0vZ24iZr)>F|A7EF_u7qO5|}0 zTZ%^7S?>GWiww{iSuIG;yQ(~pk9l`e!QA)%b;>*>YD`xOJZA{gm-czxN6FXlcNX`dx0vw?DLrJJJPTYF329S82hNtdGHS;pvSok^ zdBBK$ZdeQNpAK039vi`k-97x>Rcr0%Gm1A!3aE{gkX^O>lSG>{FJfk%>8EjVZn(oK zX<3kzlrgCUBN*D2(9H7R+}zAB+4@2B8Vgq({^V!=s;*@2v0mLkChX&UA#NYG^J1SM z?ll<`=J>9J-V;xeFq{)X|6b+5B{$=zPhP&M@>Al9WJ}u%M|vaAF0f{a!4;`SE&|Ak zl;$%#GLUB^!#peF>5wjmq9So2ftnsAB`qQg2cw9UN>+ByP;J@QZDi#dm%tUA*_7QRMbBrt_VQxa9e z?(9rNp`j5PZbiT7!k{Rf8;sMfV@8qh$3WU$G3Dolf(1K|n8`T$u!uYAlMy22t|(wQ z&V4V9bf-b4Gz@3w1%X2@VMIiVie*Ke+K>hpXFDkLiGRi}XX1GE1_c>j+~=EivvH4^ zIB{emNwC?c^zkp#*S{Yi{ac7TQV{d&o$%4&F$F1luw5q`N}AA_HaC_|1K9$0y3 zLowtO5OEJKpsE7IU{4Ms%FD}-LZ)3LMjyuh6`ksRfc>0HwcODn=5GF+zhd9`dA4S~ zI~*U7PNDEU&By5`B*)ZW?-qKXUhr7Ajo4<2XQ2s&>#lRtpc{#x!RCAu1Y*v$;C&4l z+Kl5^Jo$5rmm__Vq4dDfm!@E1h}U4w^$lmkm%)*i?nTpK zev!v4?Emzn9%8Y;6nrJW&ah)~1eJsia1rfHxp=w<+CjiVgdtu{xdv+KI1QMpPS!$S zGR({_+PCE!zP0)j0&3D$M7ao+FVHE*pkF4gilllHb0_Z^)sDkiY>rV2qsUM;1W-F_ z;#9`QKVF=!cwKu~JtRv_kAU5xP6-;;pxc+I{reoBu)Xa2SI{7{{N28Ta1SQ+1#Wj7 z1v$FK*f^Q6QGtz(DbaIdgSzPaSb6`1|0GN>Sf3VIQxOX1RNd`j%73s6=9x(K#^2v7 zzBuYE+q?QHE+i$D(&i|p_7B?c-@mPZbU2R7jl>h3mbe%cVYoSY2@+pL?%eiAV!@P` z>w$`zL}72+@|F;dZ8Iomws~<;+Qz+NF|6k>pGx-w5CFNDHHlrO0xbrw11ZGZvLC|T zrX0o`0tOE$r<;AR(>Y$(pMxpqrw%2cNT*L*4)_@jyOnM$T*&0 z=0vW%KgK*!reED{QjME6Ra_%TqBIjookqN4-4jwBl@)o4qB*c^#myjQN>QvZ60d`WOW=1#TBO+G_}h!Bg%`qJ&}aQk0m6e`$3ZTeUza$Z=e$e$ z=G)YsNmp5b;Zs*Gzo`_hA8dDd0JScSib4oXNijfr2C1e4Q?+UZ2P`t!v6 zK?#@Yyj}F&s&mGZ^YmxWjy&qBMX1WL!+%_mCY*#|4^AggkJH@@_#toevv0jA$_qzW zmdnbOx^_!37XZ8jRS|QR6WtQsf#xl>MI<%}$Xpvedfb#kgclUawy*Ci2(DmXb{E@J&+jcG1?VrELQqc$~gIUb;+ z6rQq?QO?&~t#3|uB{K)r@%rT|*Hc~*q#s3xx59}{6YtNv-rGhZNc6P3CoApp(flfJ2#!unYe9gZI+Prfl+sG3VsJ+1DU3FuApALlMODT^)@>rg6Nmil~MQ znwm5>-za{No(cItUYTt$eJV^GdX2!I8t9p;Z?o0^i+|ksZ2~4d z`=ZS@!|tZ0-$u97*o4x-m?VtDp|%?G^YK**YA(WH?{MW(9g;lvg*-bpI~= z=OKV4;gE_%>>0guj&06-z9{0o9kyY``C6d7Ce_m$8^<-J%N6IM(R;HD-)*2Ixga#? z+BBUbZOC9<6Xe{&m=L*;U{dF*m5z+J;+qs2i=tejcD3k|kw_MC!JZZDV+--mOhvvp z{^l~v4&n5Goc-q2SXv=_Yy{n`^R8|*VHG(B#xm}U9JQBZb?TqW{@C&to${P<{( zWLy>8(Z1Qm`?@YKMH&}S|1dfH3}`8n$%S&!7oFt!u4hM?fMYfeU&12^aFy zb74n^6KlcQMlur0WcIL^?-SH$kw=D1>?L~xXH>er1)nuPNK4O`qX|0Yg!#tucZ-nA z`gOd)CjUvgLpiwl!uxdgPIg^~a3zkE3Yc;-rUm+Jt`?M5JimULMG^%i2Dwpi_(}g6 zUR?&1dMMy;MZoS$BmBqqH<7k>>KErS2$R}diD1gvFpx_Wnh@^K^6xm4N`&SucH>Lre|5;*AH1A=ghN z2)0R4ew_*hjsk+BbYc$(+?)hGzTYvr2iM6THj!4vvM5pQAWIE8c#apF?9X0}u*q~= z+wHKiscs6}dxc4GBT>l0xR8Y_!3aTsEWYQO#a#q1Pk0=|@o`I6sqSBX(6D~hbMf}Q zZBl3y<2aRJqPai?T5Rw@p?$peU~r9ypv{hM)!(&UVHDLqvlDKa)n6mUX!y>7IA7yi z!p*ekzn)SZGVQ?J&cb%i=AW{UZEe+p3zDjnY_T^vlby(B3Nu$E2rt%Q&J6VJh^CMa zj^B0s?nx_RSDqo5SdcCQY>(#Yi2oO>)A8Y9{0lKfTig%G8hTr0gVgNYGB6QTMH8^HPPcaf zd^WvYl&>#@&mx=JVziCmsJHlpqJ z`>*H8O9?l^JGW>FYTq&X-3qP+(mbsU4LhxD<)$ad7Iit;DmcFVaLJ}W*y6niKgl2% z*CC{IDTO&=a<#W_dqf|8d8?_C;+pOb)uN%3m6B6|iDO%Op z>&MNBVNTHf8So)L0UfaJewth%rrWSAYIfrq7e3^+v)bb5S0N zH+w-1QjcsHIy@F@oU*hs2lU}!2Y&BkOUqdCdvS;R%n&oYqmU=zl`n>2N(Rvra%@bk zJbfN%>|Bb}zP~qq=ps^ZFzmybP$$!}2n{=XZ00@6#!=LFuT%Smp=hUxSIItSxJ^acd5 zT|$jUixP_ZA3>sdJ{z-DNqY8Ei;(5b-^T}-YAP?79iCoTg%xP>Rc508e5x1OQ@F<= z9u8k`qI&g`n8;45j#DI;0mfcXxsZ6nX}AuSl%i|j<8KrquvlW6B_`X3iR1gsi|{hI z=AC9_VBa)29;o9`yY0Pr+T{v+O3{g8Wv!a5utZZuk~53wp+PgZXer4;ug!Z_vWIkoa^(E9fbNx4>a{0Lmu) ztPx88I4)$mCm$9A-P`UziF= z!qVYHMm@qD-QPpjeKy~UvW_7pB1MU{J8Sd?erlb(HA1m|r`5-P6=gW`-MPq^qOZol8~N6oAsJ7rv^{rynLsv>SM~x$=@_WHs{JLv!fWYNIK; z61;>;Kc8oFX%mwc3p#g6r=T+T=kRNnf4_+$#uA_nDl#MDc0ka}t)1Y~*vfx*asO!!RtZOTp<=z=WbVKa1r<3i$;0$E`#_x688 zLiahH*4*l16%NGL0^GC03{xtuD7`>}M>Xl`uEE?0Kq{!-L!sym5_n(uomg%5A(n8m zEc`8(r|G}(tdt4}38IDikekT=vxAe5U8*bzLnH{W-3B3s6~JuKo$EWGfMPP)CLLTU z)fx&07XeT6q{HR|YA2ZSv-Wn+>6!2$*-~dXvd;3$i92%t9!8~(xsj|beEWeO_~|y) zuC?kN{k2x--7Mw*{;W}n^^-JP{@IbD{){jo3dmq(Y;^ftpZ>E@YUofuD$;7dq9J1? zkeSuE+WD;Mi1{@z{P)+e_NR7m;i`FO5ntR}3vx<~*#s1V>5ss5P`(T>s_+kVkbsI6 zqJ-D!sR$E&@}3hwSP0o_lt6>mC!T*qGYkhMH2bx=illSXyUh{|VbwVcj*?^&1pV~ZmX^yG zpd<-2v)$QBX_yQgolTdFx=NosbeX3*F>(GVqp5l1pyirbnG3SaC(hllPC>Cl- z&GZ)N`)hl*(;ru^)r&U*tE75ptrGQ?V2|KEeVpAf>GBRo73&+l-bAJT(n~}*Ot7$g zc5ct?dsQa8zKtPYu|CDQNVq%vSmI663i&SF^4-fa)jTbnUdU{LX8%Bo> zB@q2FD_v!CfTPtguh#dj3@aa>>FfI%anw9F{p>oEuJn3P;{+jtlAd11*P&~lE6#F& zdNxy}4|1qnPaWRCsIZPx_?a*ScF9)%_dvoCsf@br?ho}qx&O2z3zz_DGM4Z{4wMNUxb-#mLkB6J337#2I z+Jl+=15k>sH|+g9%hdWQ9oR)LMG@1|Htf176ef@lz>%VvUs#~?^78T+BGglGcCP&( z=pF(xoQUe5iqm20I1M1+#qnAzXd^E>{r5l-yh#_COMCDjC`B!ON5OKoP@Z>w6lFe| z-*#9AJn^myM!r$QDPS5lpM~#g^K=OWkZim_=`MeRp+?xnOGbHkusJX5EN=u{Pc`{n z+e|Ox>V;-gv~98LWC!`|92cxz1X9hbfAc%VY|S1Z^!!|=din)dFW8WRuZxC~>mw?X3A_ZmNpTE< z^JZ^uJppV2C5SWP_ca0A7_Sq7i^zzTG!7m#?3tUTYGtGcng(1$pwMr4Sz8Z;*5R-N zz&rp*PkF3xr#F6iD5;70x_+*SCAuaI*%Ia;Xj!25F&a z1q^xwTC>c|IDp-(E-&kki&g%MwzQfQ{}e`2CRbIl^d^Hx1Y`WJ_YJPv8DHgn+`AAl zu~`$j=;oQ53$dho+*nzuBugma1|`gtTBEkBFh=HyXne+RjU$v=UV>191&!HCd@rn3 zla|F1gO7GePV4PS^$cJlK=%LQa0hM&o91aay$enxP7o(eA()jREQK?^(xid!d9CFh z&#m?APFCc{X014?8dbMD`1sR@dM5BVG@O8t@W@NTjqQm$N@1k1`DX9i*0X){uGM&f zuS_sclA@@I-rWjHqa`&t>f<1Dvvl%Sy35G?#vKTkzk#pdrgwLX_BO$OAH4S=-cw;e z9Pj$x-&KLlMkp68OQtFG%IV*~F*3u&sZ+lFp`kOK9>uJmRppqLw=>g%M<0)GKa(dG zU=4#cI-0|8wFb>{n_qnoXQ}T--u;n(+f{5*a80jBukOzZszFCJ@4;SVC)X{V=V`+v zyfC<2lm#zOtoR<=b-VfQ_3`m>2`H;nzI>&nl@f5jwz-cl?ex^a1%Tx%((I5B_UHuw z)d&&sFc(3mJKNE9kO!_;>HD1~dI`l>B=pWK|KzPMb&C1#5wFT#Q)UjJC)+4Ij#d}V zgaz_Ak#LsDRv2C23RCwJ`bM@uX(`!-XNDmm)5t~Grrq%@2{(fn9N*Jm9x$;zeB-3P zkNx$-v0mD9G9!+Bzx`+8XwY<~nieuFtfZ?Fk;A)sjT?rF?^U3f2*^2ltA+U0DDBlw zECPMvSm!w1wr0mfR8w01gsb%fJu%>zD`yrLp`o>u#z|?2S$%*B+fCcLCS0 zlS7QHa4ju^=j*1@BI>g%IP^+n(%ErbFqlv%l4v{cILOoLM8ZdA2Hgi;L92#IxG~&Q z5|Xy?s`dhQKJS5ma@_~;5!mcyz^A7;RWy)*rX9PWO!tuCZ&V>@F>u0+AQRCckNVHo zDe{7Up+BB2E#9S9y&C`Mv{^a^Y(r|c z22h@-j*lx%Q2y7&TRue4t~7g>FLU;#Vn?Fk@qawrYQbRa@!`H> zR0a**abM2eOeGl9#m!a!;i1VtJWPd68O?Son-3OUOi<>pu}7n;v$DoLRC!wb`**N_ z_P{L2W2J|{98eq4zkN195`jR?TdqvYK~pV2O{Q3`0!j3LQ^bP+51TH^zk@NI{}SZ+ z(t}B}xR9b5KeP2!l+B*>m|l3F<&)Kj6LIswRAzpDegS)UdN9`k$bz!UW~ljJm`NLV zGxslE!(goN{oTatN6o6Ls`mEi8Y%}zeBtLIY~CEbzi5clRos?Ld<=+?6GVks+r02@ zLqN%YWh#o=9znk?h@Ku$)9p;ENC_Y9fndtlIMg5Mm zt6ZP2+wl0x63#U+f28Vo!XjylDa+#CIgkbkN5~IbR-%G_1$tu*J2nQ#fOVa(+z9M8p{7Yz@|IZ;pOe^ z;jTEiNk({XSnah-+NC*bKmI_kL16iPoVET?x*)6_j;Gmkpuk8bgYV{@)5^2>{O5mv zjTj>q#j)0R&nJ((z391ZZ>KXaK$c^xiRzJy2d&XG4xsPgOO5}}({0vlK}ysRK&gfv z1T$YMg>lj~4ggKu77gN5LzEJyynNJ#Bo=IKhHFnw4S}!z1$?z4;Yf(AqmdEW>&37T zDkZyxLQ3z9_CUH8CKi^a)5euX#^@(4^@EuqjQ=`&!~cOJQ3Z6YKqP52gve7NV5$Ns zSEH`OZ+V+;tiMV~cse9mCa8}YmQ!Bu{!$03t)-R8_*;PE0E|f(La+9Y!MJg&t`@S3 z05%(3urGU79VOg0M4&z!9wYp1o;jM!ELiD74B>PtQ?h-2Em0=5+mvPG8k=HMgU1>@ zHM8b5KWR&Mwc-JDxmNKGReQ(;3BnHVY;JRv$Us8UoA&+2U<2Ch!bB@cO9Bgdf(yfn z?HH}uBfIfOtg~}#!jVBjm^WuM-#f)Yx0WNRAU-s{UjF(Su$8z_QoZf_oe4RtSCS+2 znG%XP)DhAEoIb#J;_Le4u5f8$*id(bCx(EO$7B$x9ze#X)!Y#FaLyXF=Nj%c;FAXc zJp|!dZ4UG~8J`RD%SEQG#iPM!gL5pY9`5^gp|YS57Y9!5mC79naIfNlLrN<0+Lik3 z@F2jCQs9@$F3iJ%-w0liQHXMY2bo)(%Qc$u(L2>KC$#9#jFvmV3re_`(}^9m2Y%n2 z>{Y*hV8O5*A|N8leiNu@)v)0UXopfBhE$pGQ?y2en3Gk*wh^$jsvQ42|BfKMGImRD zf_AdGf|eY>`ssZ(y!0kVEW#uMG7UUQ=k-041|~fv73kXcGM16T`OZv>br}gDpEb+> zk)5Jc91Bh{r4l1w1W@8V8PFTq>>P2z}qxfS{}f&e3ym?PnC z`IIDUL?r{eh+cP>tPQnOf8cJKCW{Wwbc@FO311CRT&tP;B!sZ*VzO$}V+%7S2ra8< zhU?1`s!)BYF~Gm_j++cUpwf*5KZePsnRq3aHhQ?K!-8icVDMHN$;ny;4k`C2 zMZSx#N)QM1=n(c3ZtKtJphml0lel%qEndFIMZOH?drv4RbQSU$Y0~P)wx~e!&oGrC z;2U1}8BfpPl6|R*AIyYD7jCXd;Hm(0wg}(I(q>{;I~R>7;oZ8oJ!P{A4RZYJew7ah zxopvd`iq6TU(E2ZDh!@!fsRF`qH`E(^iLzWXBT|>l3N*rz~gBGuz^y#Ue)4@d1@Af z_-nD{lqs)&9zHjPuGb;cVbqkvmmWDbHPBnr$6c^P)exX_NFWonH*^YFo1EjLP8f#Mpdt7iDRzV0|$v7F@GkqCsD})GjVV3 z%NKBuUF)Z~XG*-D(l(vM%WX3q?4A-5IqoE0T?ITMe`Z#MEYb>^;k#Y0;SsaY7b?(s zQrpP*1Pcq44+-JvxsYKbBUp;ah{BS3)sL-{qiSUG1;sR6wT-uC@Klb#$R9Dm`cFdL zcz91a%bS#DH+*;Fjm@~}D>Oi`*dQV=nV}zNt^yncI*KY<77>pTx#f{c=8?rL`H(2i zvqs^#PQR%sqS+6*w7O<{-pZyyR9eBS+U~ISBBsL^xL%+&Z5RlvEr=TyU+6mS=pRH( zLgECMtSLc@S5~Ps_0ce=Wit}*2H1woBO-YWp2H|rhtG1w`wRq-bPWJMG4&xhc(^=8 z%(}rgU*0B}2w!I&QA#f8w=7OfX9~@@iSx|F>R$%NiK?;oJFy)cD9{mHP*%eb$pEw; z`%42S(+y(n`L(qPSw=;KjZFPmgGsEcj&aAboB>pX>r5|_mL?H1c}@Y6lRr$HId}4- z+7~0by^nTV(lo(_1bme=KS^8o3ky7l(-8Cr&sUlwt5uUDvTAK?z;Ef~;2!K3waH_J zpsdpsO+gOICSKD)F>yR~y$+thCZiq;+gI3hmfs z9s#Se>H*ZyU+987*u^fmb2d}z%STkv$iy0XZ+{v9uHhF=hgTs3Fdv{ugZ)fU#Wi-A8zH2bjixZ<-gm4TV(?>EKL z&cm4Dx!B1HvspZzl*5CePsK;W8O8$hU)n7!goUvC0W~!C4nHk?vhn1k16>u5`Ty^5 z%#PUD7%sBSKB7>h3?AFQ#nh8{LdbzHZb+Er?fFK!cSMSYves-;6v>w=4%m$ z`dIsX7Hl^7VggqCjU?t~l+D=1YG?D?d}d{d``*gQN*36_q6dQwwF+^^Ctz^bJmp^> z6Z+%krZONHHv^uFxEfbRbUHl=G56W6toPBRrCgkuQ5`;o9N5{(eGWXl0Iu!*99LbM zeIRI0lBkW&{;bHyi$sw{^vU7|7M2sCT4F|}Wv;l`^ZUC9Ysd!|VhhKuUhqk*BYBe; z14ocPGkLetnMSKjN3f8I&Xf4u9ENur{UVnC3)R8(*Kj-mS)2Q#Uv`qZc}+QG-ZP@|1pIv9FR%UULKY zIolNKa0b`BCI0;BOTmE8e`P$_jy-TM7h5cyPk_ zHl2nnz}%J{c-rPf58FF+WO9yp=jjt={9W!uJUCsIke40q);(t~$Ec_a(q&XDqyD)! zWy0f+M&*kr!KF3mj+Q$CvsqDIB+sv%VPpO8D0f2IsS?MVV{I^l@pAhVJ`8nT^j7EO z8VBC(UG*b8rF)?H{50@8!t|TuhJti$SmNPyT4S~pJp!p3?|`!0$%|%eNX1qvt@=4S z4v*)XI8M&@WVXap-N@};@nKz@PjG!;=_2wDfq(lSN zvWu%#b2>-h)#I=CfA!yOYB)o<34PhFjp_L-sLA42Gxa4HGWsKJm`-+`N}AN5gR_9Gc0MVnC>(cz#PegAi_zeHzaf1O!! zST!b-DuZxi21lPk3A&*=RFmtw z`!%kaVlxo}q+B5?L$iGxjKkx%2O^t_S#=f9cnI2qJSdsDm)|Hb?ML-UPE~;Bstuvo zZOq)EUje;uG)OFG|G8X^;ObeMpVLOUVgkASQG{|NP)69Y7b$13WM(z1>^lbG#0cSW zR1gx55G;5uG9P|;Qm4WMnDw$?G;oq^vuO(Z>xnCBWTC@Tmcy6aI+J#j?Ol>vRUW?d zKyIrK=O7CbA~4GlLdc(4qK@$pQ2)S0?nciXmvxptcCI3!G8i{Fc@lz)yw7?4p_nxr z9iU+t1tKRG?o&GoR+aBfX;7LI4_iAHyMvO#37gzcBOs8-L6>B*U4Y}7`K!|}z% z#WBwru@Sa@I+kP{t?$TsxgpbI3l)N>5hmt}$_kt|GFZrGX9PuOJo{qR|$@V&c?O7dwGtu?L&^U+^_3ZV$>>TT)+Cw1YQ{ zAKYYDCq-XZWqK{+@*F(*vX)RZ9oGPal4Hokgr)(PvOTP}gNb)*R#krld-p#I~rUY|vQSffANGINaa z1{#vdJl6~3v~M2dqP~e-$TBDqR5s`s@E*Bw&Y4{7vLqytF*b$5b9(1?`Kc%q_OS02JCJX!1{LS9q z{GKk9gxz+$C!%_#3m#ju9veg2JL)SN^koRd7w{96ILkr`2U{T>ikw7eYpMe>_*?PC7lKL-xBw(>89 zbQvsqp;AmwKQbrIs+x4q9d=77rB~uaQranXPje5)T(!u{ z%QL*CQA)__QA&)UOKwt-TALr-@=$~r%`F5{3~4CE6k_g;a-HzyOjTuYybjbFrOOT+ zQ4adGmN?nSj=M|WTAgjLMOC=_Jf-vQYM0aU#nf;)E&98UVmAEHF!t21rJo0>1fosl zxw4ZtgmjQQ4zHz$jDOQ{4T~(46}%+xIL%nOI(TpL6p!9%x9OB4@DhVZ+=D*+#OA!}KJNblr2Jf2RG~Qb;e;*c4 zKi*#sIypKzI?G3Id*QCpw=!pDT|PEQFVU)wEv1Ie%;m_Cg}TQUr_bBCVk#Du+w zd77&4gEU;oQtAC{b4>6!yVOcvom+tN(xd9cfA?~b>RJTL6_3lrVrCnBcoI+eD|>Cc zH~(kEHud2W^kB`@lJ=jhiLoaU{9rk$O$1=F6^N1lC~nmJZY6L!IGvBz8pBrL)nFHr5{N*gRX7|^IZQU$ zh`VDKauJH?gL~{_+WCBQ6zY5aMsZx2ZrFoSH7+JB0YhnJI$^$b`tiN8B5sr(+zbhN zDAc_}L2WIjFVu^_m-6?ATed=0wuqwjKfbb_7wodZsi3xyW2ZT^nzmfluc3@a;k@AW zV34*jZ073vDmWFFxhJ1@!Gg(EvvZ*!c&!o!xW|D*BKU_P(X> zolzS!5y~FR&@zQXJLWxAh17O2K|#(nT8*Y_+%7zKh|3G53;4R~%Nvr^ZX70N{rSar zB6#!5r8a*yKPOZC;dlAkeIz6m6SaZ2Mz9P{oJLXIN%7vuMqFdj!r9SLrQ&l*ZoT;` zGbf#g9o2xNIiW6ywNkIN384*({R&q)?MS!DpM>HItBjql10ks;8XILNEw{F4#iUsc zJ6-w~uBeDq%$J3ZtY3BCH>&s_vFGkE?I}WdOI@pDO*)e|3wP5$zqy;eF&P8tqOKI> z@_z$x^6cUXvllXBmvf_J6^_o$ zqfMgc#d)8<{gH$gAWcOyQaY^7#Gs5g*1S@)*cW{-SFKdFiY%NIq;y!uoUk$++u&O{ zn^s%PcFSXM_gmXT?-8$&5y33dh3dF7P#d;7K?-D{=9fgiHw1i4`0~DMy0`(qe;g^D zlcf5YbkK>O?KSaPN6H3(ZqF)NhQBliW$JYv9h@g%&NWazzGoIcb>F6UNCupVdtXEl> z6Y#nmGZYJyV+sTQT#m#PCTeakuv26Zav50gU7a!P%Sg$~?|2;h4NJrh4LT_cPqNhx zZG39&qP*1H;U?rz_C6Rk+)ne}=^`C_o3W#Rc@cOkk}`#3(R9u51w5;lJ>ST@wxvO& zM;00wYblD$G#js@XZ9gExi~K4NO6h(uGeEPX6ID^Be*J|=icCoB0ksZ&`-3rQZ+a% z;X{c_?;pWw5=Zg;obQy)p;ig^A7)#y5?|}AI9GpLb{}h0A7(ud^nUw;ySMnw=ecYB z)Anetq}e1o>x}c$)0)-IO@TErZ4cY1pB54O`VEf=^KN%dV3HmGTk%3RfcB)tSkzq zJ#SiW`W%~gb+0UFv-3aYSP>{h7Y`+Pc;e#v)3-1Sx>_jFL985=#>=#6V!krMuRcc6 ziWm}p(UX0M5u-xbvAx`$?8=@hNI7`9?JF=6L) zmIceD1zQ9=^4A@r3#Vb_LWN`opq4{FSq#*Y+w zo5xJj%EaamDE-RSyT?~cma=2(#l^+Pz>8K!zb;zONLL$!iL{4kWjU+go1wopwI$Ws>aAq?B#iXOU5-LO^ZrAI284(MEBd0PS|> zA_(SjK0Sr>**CVdluDqV#I<0z0G2VwVegDdpkR=n91|#+^>Y#Nry)sdG_4c;W?vhj zD6?YSOUJLV5i1-TM-3(`XXq9C$hizRuE(27p_tH$`@q4V0x_p13NkpC8|& znXLJn)K{<@+N6mcS;!YVbJSNDAG!v$wzjp2a3tdSly)=G$T+1f-}}r#6BG^)vwS}% z&ksukrv}hVp0Xww^$Jz8V)beVIM;uxIH~rJ{aaHq?nr(g)>=g4Fg#snB5YdA5$%kA zI<0tkSiG<4s8m|yo0I8lo^iak5tFQoH2$%kzYya*d4K9IXTS5zeS%f5j$jiAkg0V$ zi{ELue=xe)v5(DUaWD6lrzSw7cu+gG(a|JB@Hz5G<5ll<+TpfI`j*a*lMp6F9olqZ zvDPmL|6%FgYv^ynRvVVjK|AC}4lvI=R`0*%tXyTn_7<{qkRQh5{BN$-N)%by@+k(I z!_M#1C_lyK&d=}GCwKnb99i=Dwt7Czj0$CeV!JMNbzd6K<+x-gzY-I2U@o*oJ??z0 zQF5?sXlpB%P|}pjAQXMYrVzX9OHclOT=|g3FM(n%*}o*|BWuJU%X)`r`85}%c)+3T z5mW|~uu(ht6N8+L)QE(W6((M(*HdilN$*Id-_AWd6$U<@1R`bd^*@yoI(t`f**fG& zRj15#HaExwTp;4p`}<|I8~Au!+7>w>SUl{7mJ$F}TmQ7@aOtKli;0Qx9Z@hl+tjMu z4?z<&>c2Ue`I82l>}1ogRPeP?96z-&fNZHuJWW)z=AF=rf@d=m#MYrYtZ59 z(j@=FqAV&mc@jpPxlT*i9oWi6!Ie!nwrU%>jtAUqm^-E!_w3e^?nfF+btw?vj5v5^ zclo7GhqteTcNvJl>h+hVR_M@K+&sMpHiS!uVY3E!q8_=)i3iG*GFE4*4wbc|;{--A zZj64V)!PeC%&4%0ghj6hySqy&R=bj%o9Gl`qcryA56P8zYH#`2>_* zp4ca;dx1*2o44KTME779DrPd1aT!IzT#2J(cp4d&K&M){dIm^Fc?>^t2L5f6l5x)) zovfeA?UOz1*25DuzkM6P``^9e>2-Dgk-Qzd%+%;}(F*fr!_4eMdA67z^SaHidbrQ3-Lq(`!BdQ0)i_<%kI17xfuy61-0OW8#FP|E&%^lRKR@Ko=ykm}Vm_>Y zeYYM)%=8xHWF^D#POve$hS^&;nK=4li*B>C2Lih+g{tlw4x&zzH!qXv(u z0F{Vd>?4MGq0IFEywG(z(XY(x30_hiRErz-&x8H!CN6jnESV97;sUGUmIMmV5~6~W zR|!7oc^}Y0RFt*G`Agw7=~&o3`izd?DT3XM$8B4{a}pqCGt-x(`c0EJQY|R{hrP{p zv$YOe;!gtJ`_Xed7}?6EDHIta8D-z-dj8v8peQUi+QqmmJUD}-L-Avm=MTm8(vwaJ zrS`yw&av|j=<-3ye3^vQ2(NV;m!PmP_t9oCM4r)`fey0Kp;ENPZeoCE()78E3g_)T zr7d|+9ITDfEno$Rl}mDJlyXZo;_zcqN;g8f`aR$AJFoNKUf+H9`8=QJ^E~h8{k%WlZB+4Z zCzRyc7Ou|(>z*#1j$h5Wp0f;!39;2P`-nKH@{ZdRa_8B$L_2@fw_MPm<7$ANQ@l;oj%sgli-Y(a6`d(S%#g{hY$4mEK4iVsJ zo{HPPpI*z_o^$5$P5M`t<&J`PGMx?08As3goOwm>R@CY#mSWSGuQ??e|LY=kU(k#r(8(P22Ta9b;Y0z9>nEQ%B(xEi=lyut1|>+#)pjTXo=| zGaR>mIW}@v-@5tpvpk>IRv2N+vE;AA-rwusAu5}iS)*TGf1Sv`^*XWW($>oX$uoEK zy=I`J&1f=U-Ixs~#2#yPy4(Zptj$m9JUiutgamlDAt|B@gR4GxXh};zH&lZ2mM<@eLOi1r5}eD)_n!-#mOM2$K{ZLs)jhkiggN*R(ihox zHzOR;1Ct!>Cvj7P2UtrlS$|C(JyRJvh#di|#FjsD@9H37QCA@`8Yt%tCD z;7S?0XhVXcJ_i>UDU3l)Kbya#5`|-DUC|~9iE39(B)e~<`r02$G-aCA#UfsAVsgv* z_sg3$H_XTuU|q6%Ms9Fh;GW|=h>8!lZrzH$hQZy0?{Yjd8|3q!gnpk`j2%cx4>UNi z#Lw*awCv-*(uQ5`;Y`gJv6x6>543@El`M4j^HwEar-dR~_)4A%8sW@Ez60tTTK+3h zF+zm&E%mL&Is4%6uV1y~ttKQMF$kdU_6uV}Fy(ji?$K+S^lk==Es?O-1Ie@B#0tdt zM-|=@WA3`x>*x~hn!GVf_O?{(zGEA;d; zVV{7?i9vlqya)bdzXW*Ll4$ivfT-$)82t+Y6-n`%@gv>0zQ?^7_DIp$XrY4TFaOn# zla_7XW~J=t?CghE;!tPaL?>_iHmKq{npgz7&EZF9vZoCQ+@2j?B3*4K!bRdK{yxsy z`1+mmzSwqsPkClUe&x;d4cZAK=3>a^$f7e=cB1O8SRq zw$oC0d%t~-!wy`=JuBl@z?2txsWY1mW=2Qv?M4St@(u5PnPJgD8j98uZ4Bot$ijBPEe7>GlB%5cxUtQ^s5Dr zY{kTb&-hts*$rqqo13EXu4A0jbu*oqt5#ChM5BxrQ$o5sPU!b7VQyGt5~Yq5{B~ng zJ_sAx%e^b?LnPWB9s&7&0~Y>LxgH33&7F9Us8RLahu~ifx3DZy%jq z3pQ$MtSZfR1RJ0ok#+2 z@6e^xu;2YM^{gfDVcT|zIyFkI-L!5$Sawxl6Ma8rc68-gScPAXKYo?u;R8!9W2Gqn zO}5KMItw#-zTG2Ydd+KBR=Kt+q*6v{_Puf8+J&}OzxQV z;4Iz3J9>^Civw8f*wM^OTR+evH1ncz?-^2K$JwEE8Q~w z_HE@;WsYjPt*eOsS8JwW3G-@UR|D~<+rz`dtr-uI#-)-Veb(XJljv6FJbn@<7pTJW zHIe2uF%_=6!f`pBe|32_<1K!v?}VK4G?C6Q#_sCW0l2!IAN%}pV%V*jG5*|pnIeMA zXY^s&FIL!y7Ene9ZHcRrhjYbt$_U9^bZzw_cWOo;Y+f-ec=spKDNE^#Gs%?@Q<)yZ zm+=16J>j}A)iTM5>_aBV;77o0ElTjC4n9N4DE2*p{_?*(rut?n1D)vFv#CTsG>+fD zMHLy!F1+=b4!Q%P&X5Hi{##;H!^hH+Pl(RdH1&7qU`-M0EbdWld1AEKZuHllZtLWulLa z3~J>1wCyg40gs4kEA>&bHa$J9L&0!txwZ~cnbA>tCL}B63f#~0bU_7P<2RnKuowLRE6=jCRz5T?JA%4I z#9%So^!(Jpu7eo@$@|nyku0kOeJ6{-M5A&iI?!js5skk8exJVH`o}heL=-hQ2RRFR zFh;R^G4u;VXal%98$NR-NOX-beYjtW!q=ov@UPyxm{*{|gFxCJwJthb8MgL}&8nk* z**+eQ5nydt&e$tCk{92i_9uRdDX^3#y4VjPB%$rp749Nf+&a4lxM%;D0Fk|_q7%)9 zP68Y{wJKdzh8Fp(O%U70Sk}()sZjtYSfE3szk3SLxFT`(ds3AKq7<${pF4_L@2+y^ zA- z$O3yIurrL}&Y&B7fX#*knq;-D-5rjBMC6pe?%L2YBB6yKB#J12FyC*40o9!k#r$?u zk5}Q?r`uYIj*gXbF|bU-h0&wFy||uoMUH(2T&Jh>I~v83blW0E13~Tm&2hZc9#MA} zW&r?3s+E8Nwor>vLHih$P>*5Z8;^eYnJ_ zCtC@69BM{2sfPZSVO4gTW^2sFLUOF@CzqhWeO??ON$jUkL+F;ziytxKs(MfejKe@jHadeJ*jcq z_zJKkrp^z}l3mMKpO^f8*MF-7iX;;* zs}Jx6-15#^9*bVUU_1?_Vn$!HI3P7mQ~5kGsc0VtA3ups-Psg$qK6e%LdO7@heSR& z^Py6Oo7?{J9Z1-SdXO+;o+H3`>|Hecxh?JSUuR;bn-CL=>2sPO z#G<;tZ0Uh6VH>2P`EF}wj`4WW%mFMCU?8o8>cx*-4v<3&>6S<29OQ(N!rT6+Hf`Bn zMSwE8bInLr7%zSfav+QXA&g$Pr=)4#e;k)2p3~YAT~MtJnG6#8!@Fo#VzTw?pGEHDA; zhOqUYGRPU=RuiS?Eh}nZXw?g2pXJ)^0OwaGLJpM_@@_b@dxSMGNx&X7G${RCuGU2(2BLY};obkqT;wl7JEi{cH8kPv`hHr#FYd5b_JyV;Zc}hZJKq*6 zqZ_+W`#ygOQ%_$XC9l1br8=z5xpcXM1F8LMCn_>U&p*_ts)Vi4?k*mVj8X~$azhsN zlz(A%rxu+$<)6`1`uX9p!#kQW6u`r94O*~Yio)!~RCg#}$v75-c3{7=5d@^TC$+Y6 zw$FyVWTW}eK3SHmW*5RSc=2byBg9~>P5Gbx&lEUTfHGjJv;ns!+1pDI5$}UuM@`#_ zaa|ypX!SzKrq)qvgA+O%QWn)5c+(3YtPbT7$DEQ5b&zO-w`qc^Kkf5MBrmV+Vr!xDLfTtKKB Lyge%2!+!f87l{n& literal 0 HcmV?d00001 diff --git a/tests/testthat/test-atc.R b/tests/testthat/test-atc.R index a51556c9..467604a1 100755 --- a/tests/testthat/test-atc.R +++ b/tests/testthat/test-atc.R @@ -21,27 +21,6 @@ context("atc.R") -# test_that("atc_property works", { -# skip_on_cran() # relies on internet connection of server, don't test -# skip_on_appveyor() # security error on AppVeyor -# -# if (!is.null(curl::nslookup("www.whocc.no", error = FALSE))) { -# expect_equal(tolower(atc_property("J01CA04", property = "Name")), "amoxicillin") -# expect_equal(atc_property("J01CA04", property = "unit"), "g") -# expect_equal(atc_property("J01CA04", property = "DDD"), -# atc_ddd("J01CA04")) -# -# expect_identical(atc_property("J01CA04", property = "Groups"), -# atc_groups("J01CA04")) -# -# expect_warning(atc_property("ABCDEFG", property = "DDD")) -# -# expect_error(atc_property("J01CA04", property = c(1:5))) -# expect_error(atc_property("J01CA04", property = "test")) -# expect_error(atc_property("J01CA04", property = "test", administration = c(1:5))) -# } -# }) - test_that("guess_atc works", { expect_equal(as.character(guess_atc(c("J01FA01", "Erythromycin", @@ -55,7 +34,7 @@ test_that("guess_atc works", { expect_identical(class(as.atc("amox")), "atc") expect_identical(class(pull(antibiotics, atc)), "atc") - expect_identical(ab_trivial_nl("Cefmenoxim"), "Cefmenoxim") + expect_identical(atc_trivial_nl("Cefmenoxim"), "Cefmenoxim") expect_warning(as.atc("Z00ZZ00")) # not yet available in data set expect_warning(as.atc("UNKNOWN")) diff --git a/tests/testthat/test-ab_property.R b/tests/testthat/test-atc_property.R similarity index 66% rename from tests/testthat/test-ab_property.R rename to tests/testthat/test-atc_property.R index 0b618535..68abf8ce 100644 --- a/tests/testthat/test-ab_property.R +++ b/tests/testthat/test-atc_property.R @@ -19,20 +19,19 @@ # Visit our website for more info: https://msberends.gitab.io/AMR. # # ==================================================================== # -context("ab_property.R") +context("atc_property.R") -test_that("ab_property works", { - expect_equal(ab_certe("amox"), "amox") - expect_equal(ab_name("amox", language = "en"), "Amoxicillin") - expect_equal(ab_name("amox", language = "nl"), "Amoxicilline") - expect_equal(ab_official("amox", language = "en"), "Amoxicillin") - expect_equal(ab_trivial_nl("amox"), "Amoxicilline") - expect_equal(ab_umcg("amox"), "AMOX") - expect_equal(class(ab_tradenames("amox")), "character") - expect_equal(class(ab_tradenames(c("amox", "amox"))), "list") - expect_equal(ab_atc("amox"), as.character(as.atc("amox"))) +test_that("atc_property works", { + expect_equal(atc_certe("amox"), "amox") + expect_equal(atc_name("amox", language = "en"), "Amoxicillin") + expect_equal(atc_name("amox", language = "nl"), "Amoxicilline") + expect_equal(atc_official("amox", language = "en"), "Amoxicillin") + expect_equal(atc_trivial_nl("amox"), "Amoxicilline") + expect_equal(atc_umcg("amox"), "AMOX") + expect_equal(class(atc_tradenames("amox")), "character") + expect_equal(class(atc_tradenames(c("amox", "amox"))), "list") - expect_error(ab_property("amox", "invalid property")) - expect_error(ab_name("amox", language = "INVALID")) - expect_output(print(ab_name("amox", language = NULL))) + expect_error(atc_property("amox", "invalid property")) + expect_error(atc_name("amox", language = "INVALID")) + expect_output(print(atc_name("amox", language = NULL))) }) diff --git a/vignettes/AMR.Rmd b/vignettes/AMR.Rmd index d6fe1289..317231c7 100755 --- a/vignettes/AMR.Rmd +++ b/vignettes/AMR.Rmd @@ -41,14 +41,17 @@ knitr::kable(dplyr::tibble(date = Sys.Date(), ``` ## Needed R packages -As with many uses in R, we need some additional packages for AMR analysis. The most important one is [`dplyr`](https://dplyr.tidyverse.org/), which tremendously improves the way we work with data - it allows for a very natural way of writing syntaxes in R. Another important dependency is [`ggplot2`](https://ggplot2.tidyverse.org/). This package can be used to create beautiful plots in R. +As with many uses in R, we need some additional packages for AMR analysis. Our package works closely together with the [tidyverse packages](https://www.tidyverse.org) [`dplyr`](https://dplyr.tidyverse.org/) and [`ggplot2`](https://ggplot2.tidyverse.org) by [Dr Hadley Wickham](https://www.linkedin.com/in/hadleywickham/). The tidyverse tremendously improves the way we conduct data science - it allows for a very natural way of writing syntaxes and creating beautiful plots in R. -Our `AMR` package depends on these packages and even extends their use and functions. +Our `AMR` package depends on these packages and even extends their use and functions. ```{r lib packages, message = FALSE} -library(dplyr) # the data science package -library(AMR) # this package, to simplify and automate AMR analysis -library(ggplot2) # for appealing plots +library(dplyr) +library(ggplot2) +library(AMR) + +# (if not yet installed, install with:) +# install.packages(c("tidyverse", "AMR")) ``` ## Creation of data