From 29f444543dac89b60bbf5d0825414bdd56be2fd3 Mon Sep 17 00:00:00 2001 From: "Matthijs S. Berends" Date: Tue, 26 Mar 2019 14:24:03 +0100 Subject: [PATCH] added Becker 2019 --- DESCRIPTION | 4 +- NAMESPACE | 4 + R/catalogue_of_life.R | 25 +- R/count.R | 2 +- R/filter_ab_class.R | 59 ++- R/freq.R | 22 +- R/ggplot_rsi.R | 14 +- R/globals.R | 2 +- R/misc.R | 6 + R/mo.R | 233 ++++++--- R/mo_history.R | 67 ++- R/mo_property.R | 11 +- R/portion.R | 17 +- data/antibiotics.rda | Bin 14247 -> 14254 bytes docs/LICENSE-text.html | 2 +- docs/articles/AMR.html | 482 +++++++++--------- .../AMR_files/figure-html/plot 1-1.png | Bin 35429 -> 35915 bytes .../AMR_files/figure-html/plot 3-1.png | Bin 21146 -> 20485 bytes .../AMR_files/figure-html/plot 4-1.png | Bin 69625 -> 70495 bytes .../AMR_files/figure-html/plot 5-1.png | Bin 51366 -> 51984 bytes docs/articles/index.html | 2 +- docs/authors.html | 2 +- docs/index.html | 2 +- docs/news/index.html | 2 +- docs/reference/as.mo.html | 26 +- docs/reference/catalogue_of_life.html | 2 +- docs/reference/catalogue_of_life_version.html | 6 +- docs/reference/count.html | 4 +- docs/reference/filter_ab_class.html | 24 +- docs/reference/index.html | 4 +- docs/reference/microorganisms.html | 2 +- docs/reference/microorganisms.old.html | 2 +- docs/reference/mo_property.html | 7 +- docs/reference/portion.html | 19 +- docs/reference/rsi.html | 4 +- man/as.mo.Rd | 25 +- man/catalogue_of_life_version.Rd | 4 +- man/count.Rd | 2 +- man/filter_ab_class.Rd | 16 +- man/mo_property.Rd | 6 +- man/portion.Rd | 15 +- man/rsi.Rd | 2 +- tests/testthat/test-get_locale.R | 2 +- tests/testthat/test-mo_history.R | 18 +- vignettes/AMR.Rmd | 2 +- 45 files changed, 674 insertions(+), 476 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 1c069aec..dc718674 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: AMR -Version: 0.5.0.9024 -Date: 2019-03-18 +Version: 0.5.0.9025 +Date: 2019-03-26 Title: Antimicrobial Resistance Analysis Authors@R: c( person( diff --git a/NAMESPACE b/NAMESPACE index ed636cd8..37afc23d 100755 --- a/NAMESPACE +++ b/NAMESPACE @@ -23,6 +23,7 @@ S3method(plot,mic) S3method(plot,resistance_predict) S3method(plot,rsi) S3method(print,atc) +S3method(print,catalogue_of_life_version) S3method(print,frequency_tbl) S3method(print,mic) S3method(print,mo) @@ -191,6 +192,7 @@ exportMethods(plot.frequency_tbl) exportMethods(plot.mic) exportMethods(plot.rsi) exportMethods(print.atc) +exportMethods(print.catalogue_of_life_version) exportMethods(print.frequency_tbl) exportMethods(print.mic) exportMethods(print.mo) @@ -221,6 +223,7 @@ importFrom(crayon,red) importFrom(crayon,silver) importFrom(crayon,strip_style) importFrom(crayon,underline) +importFrom(crayon,white) importFrom(crayon,yellow) importFrom(data.table,as.data.table) importFrom(data.table,data.table) @@ -292,3 +295,4 @@ importFrom(stats,sd) importFrom(utils,browseURL) importFrom(utils,browseVignettes) importFrom(utils,installed.packages) +importFrom(utils,menu) diff --git a/R/catalogue_of_life.R b/R/catalogue_of_life.R index 3cd597f0..f15d7c80 100755 --- a/R/catalogue_of_life.R +++ b/R/catalogue_of_life.R @@ -81,10 +81,10 @@ NULL #' #' This function returns information about the included data from the Catalogue of Life. It also shows if the included version is their latest annual release. The Catalogue of Life releases their annual release in March each year. #' @seealso \code{\link{microorganisms}} -#' @details The list item \code{is_latest_annual_release} is based on the system date. +#' @details The list item \code{...$catalogue_of_life$is_latest_annual_release} is based on the system date. #' #' For DSMZ, see \code{?microorganisms}. -#' @return a \code{list}, invisibly +#' @return a \code{list}, which prints in pretty format #' @inheritSection catalogue_of_life Catalogue of Life #' @inheritSection AMR Read more on our website! #' @importFrom crayon bold underline @@ -99,8 +99,8 @@ catalogue_of_life_version <- function() { lst <- list(catalogue_of_life = list(version = gsub("{year}", catalogue_of_life$year, catalogue_of_life$version, fixed = TRUE), url = gsub("{year}", catalogue_of_life$year, catalogue_of_life$url_CoL, fixed = TRUE), - # annual release always somewhere in March, so before April is TRUE, FALSE otherwise - is_latest_annual_release = Sys.Date() < as.Date(paste0(catalogue_of_life$year + 1, "-04-01")), + # annual release always somewhere in May, so before June is TRUE, FALSE otherwise + is_latest_annual_release = Sys.Date() < as.Date(paste0(catalogue_of_life$year + 1, "-06-01")), n = nrow(filter(AMR::microorganisms, source == "CoL"))), deutsche_sammlung_von_mikroorganismen_und_zellkulturen = list(version = "Prokaryotic Nomenclature Up-to-Date from DSMZ", @@ -112,7 +112,16 @@ catalogue_of_life_version <- function() { n_total_species = nrow(AMR::microorganisms), n_total_synonyms = nrow(AMR::microorganisms.old))) - cat(paste0(bold("Included in this package are:\n\n"), + structure(.Data = lst, + class = c("catalogue_of_life_version", "list")) +} + +#' @exportMethod print.catalogue_of_life_version +#' @export +#' @noRd +print.catalogue_of_life_version <- function(x, ...) { + lst <- x + cat(paste0(bold("Included in this AMR package are:\n\n"), underline(lst$catalogue_of_life$version), "\n", " Available at: ", lst$catalogue_of_life$url, "\n", " Number of included species: ", format(lst$catalogue_of_life$n, big.mark = ","), "\n", @@ -121,9 +130,7 @@ catalogue_of_life_version <- function() { lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$yearmonth, ")")), "\n", " Available at: ", lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$url, "\n", " Number of included species: ", format(lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$n, big.mark = ","), "\n\n", - "Total number of species included: ", format(lst$total_included$n_total_species, big.mark = ","), "\n", - "Total number of synonyms included: ", format(lst$total_included$n_total_synonyms, big.mark = ","), "\n\n", + "=> Total number of species included: ", format(lst$total_included$n_total_species, big.mark = ","), "\n", + "=> Total number of synonyms included: ", format(lst$total_included$n_total_synonyms, big.mark = ","), "\n\n", "See for more info ?microorganisms and ?catalogue_of_life.\n")) - - return(base::invisible(lst)) } diff --git a/R/count.R b/R/count.R index 13791582..b1036cdc 100755 --- a/R/count.R +++ b/R/count.R @@ -69,7 +69,7 @@ #' S = count_S(cipr), #' n1 = count_all(cipr), # the actual total; sum of all three #' n2 = n_rsi(cipr), # same - analogous to n_distinct -#' total = n()) # NOT the amount of tested isolates! +#' total = n()) # NOT the number of tested isolates! #' #' # Count co-resistance between amoxicillin/clav acid and gentamicin, #' # so we can see that combination therapy does a lot more than mono therapy. diff --git a/R/filter_ab_class.R b/R/filter_ab_class.R index 9884ae42..5d4c71a9 100644 --- a/R/filter_ab_class.R +++ b/R/filter_ab_class.R @@ -19,11 +19,11 @@ # Visit our website for more info: https://msberends.gitab.io/AMR. # # ==================================================================== # -#' Filter on antibiotic class +#' Filter isolates on result in antibiotic class #' -#' Filter on specific antibiotic variables based on their class (ATC groups). +#' Filter isolates on results in specific antibiotic variables based on their class (ATC groups). This makes it easy to get a list of isolates that were tested for e.g. any aminoglycoside. #' @param tbl a data set -#' @param ab_class an antimicrobial class, like \code{"carbapenems"} +#' @param ab_class an antimicrobial class, like \code{"carbapenems"}. More specifically, this should be a text that can be found in a 4th level ATC group (chemical subgroup) or a 5th level ATC group (chemical substance), please see \href{https://www.whocc.no/atc/structure_and_principles/}{this explanation on the WHOCC website}. #' @param result an antibiotic result: S, I or R (or a combination of more of them) #' @param scope the scope to check which variables to check, can be \code{"any"} (default) or \code{"all"} #' @param ... parameters passed on to \code{\link[dplyr]{filter_at}} @@ -54,8 +54,14 @@ #' # filter on isolates that show resistance to #' # any aminoglycoside and any fluoroquinolone #' septic_patients %>% -#' filter_aminoglycosides("R", "any") %>% -#' filter_fluoroquinolones("R", "any") +#' filter_aminoglycosides("R") %>% +#' filter_fluoroquinolones("R") +#' +#' # filter on isolates that show resistance to +#' # all aminoglycosides and all fluoroquinolones +#' septic_patients %>% +#' filter_aminoglycosides("R", "all") %>% +#' filter_fluoroquinolones("R", "all") filter_ab_class <- function(tbl, ab_class, result = NULL, @@ -65,6 +71,8 @@ filter_ab_class <- function(tbl, if (is.null(result)) { result <- c("S", "I", "R") } + # make result = "IR" work too: + result <- unlist(strsplit(result, "")) if (!all(result %in% c("S", "I", "R"))) { stop("`result` must be one or more of: S, I, R", call. = FALSE) @@ -88,12 +96,20 @@ filter_ab_class <- function(tbl, } else { scope_txt <- " and " scope_fn <- all_vars + if (length(vars_df) > 1) { + operator <- gsub("is", "are", operator) + } } - message(blue(paste0("Filtering on ", atc_groups, ": ", scope, " of ", + if (length(vars_df) > 1) { + scope <- paste(scope, "of ") + } else { + scope <- "" + } + message(blue(paste0("Filtering on ", atc_groups, ": ", scope, paste(bold(paste0("`", vars_df, "`")), collapse = scope_txt), operator, toString(result)))) tbl %>% - filter_at(.vars = vars(vars_df), - .vars_predicate = scope_fn(. %in% result), + filter_at(vars(vars_df), + scope_fn(. %in% result), ...) } else { warning(paste0("no antibiotics of class ", atc_groups, " found, leaving data unchanged"), call. = FALSE) @@ -244,7 +260,7 @@ filter_tetracyclines <- function(tbl, ...) } -#' @importFrom dplyr %>% filter_at any_vars select +#' @importFrom dplyr %>% filter_at vars any_vars select ab_class_vars <- function(ab_class) { ab_vars <- AMR::antibiotics %>% filter_at(vars(c("atc_group1", "atc_group2")), any_vars(. %like% ab_class)) %>% @@ -260,10 +276,23 @@ ab_class_vars <- function(ab_class) { #' @importFrom dplyr %>% filter pull ab_class_atcgroups <- function(ab_class) { - AMR::antibiotics %>% - filter(atc %in% ab_class_vars(ab_class)) %>% - pull("atc_group2") %>% - unique() %>% - tolower() %>% - paste(collapse = "/") + ifelse(ab_class %in% c("aminoglycoside", + "carbapenem", + "cephalosporin", + "first-generation cephalosporin", + "second-generation cephalosporin", + "third-generation cephalosporin", + "fourth-generation cephalosporin", + "fluoroquinolone", + "glycopeptide", + "macrolide", + "tetracycline"), + paste0(ab_class, "s"), + AMR::antibiotics %>% + filter(atc %in% ab_class_vars(ab_class)) %>% + pull("atc_group2") %>% + unique() %>% + tolower() %>% + paste(collapse = "/") + ) } diff --git a/R/freq.R b/R/freq.R index d498932b..cdb116eb 100755 --- a/R/freq.R +++ b/R/freq.R @@ -417,9 +417,9 @@ frequency_tbl <- function(x, header_list$outliers_unique <- n_distinct(boxplot.stats(x)$out) } - if (NROW(x) > 0 & any(class(x) == "rsi")) { - header_list$count_S <- sum(x == "S", na.rm = TRUE) - header_list$count_IR <- sum(x %in% c("I", "R"), na.rm = TRUE) + if (any(class(x) == "rsi")) { + header_list$count_S <- max(0, sum(x == "S", na.rm = TRUE), na.rm = TRUE) + header_list$count_IR <- max(0, sum(x %in% c("I", "R"), na.rm = TRUE), na.rm = TRUE) } formatdates <- "%e %B %Y" # = d mmmm yyyy @@ -564,18 +564,14 @@ format_header <- function(x, markdown = FALSE, decimal.mark = ".", big.mark = ", # FORMATTING # rsi if (has_length == TRUE & any(x_class == "rsi")) { - if (header$count_S < header$count_IR) { - ratio <- paste0(green(1), ":", red(format(header$count_IR / header$count_S, - digits = 1, nsmall = 1, decimal.mark = decimal.mark, big.mark = big.mark))) - } else { - ratio <- paste0(green(format(header$count_S / header$count_IR, - digits = 1, nsmall = 1, decimal.mark = decimal.mark, big.mark = big.mark)), - ":", red(1)) + ab <- tryCatch(atc_name(attributes(x)$opt$vars), error = function(e) NA) + if (!is.na(ab)) { + header$drug <- ab[1L] } - header$`%IR` <- paste((header$count_IR / header$length) %>% percent(force_zero = TRUE, round = digits, decimal.mark = decimal.mark), - paste0("(ratio ", ratio, ")")) - header <- header[!names(header) %in% c("count_S", "count_IR")] + header$`%IR` <- percent(header$count_IR / (header$count_S + header$count_IR), + force_zero = TRUE, round = digits, decimal.mark = decimal.mark) } + header <- header[!names(header) %in% c("count_S", "count_IR")] # dates if (!is.null(header$date_format)) { if (header$date_format == "%H:%M:%S") { diff --git a/R/ggplot_rsi.R b/R/ggplot_rsi.R index bb0961b2..9a2d8730 100755 --- a/R/ggplot_rsi.R +++ b/R/ggplot_rsi.R @@ -164,9 +164,7 @@ ggplot_rsi <- function(data, datalabels.colour = "grey15", ...) { - if (!"ggplot2" %in% rownames(installed.packages())) { - stop('this function requires the ggplot2 package.', call. = FALSE) - } + stopifnot_installed_package("ggplot2") fun_name <- deparse(substitute(fun)) if (!fun_name %in% c("portion_df", "count_df")) { @@ -235,6 +233,8 @@ geom_rsi <- function(position = NULL, fun = count_df, ...) { + stopifnot_installed_package("ggplot2") + fun_name <- deparse(substitute(fun)) if (!fun_name %in% c("portion_df", "count_df", "fun")) { stop("`fun` must be portion_df or count_df") @@ -279,6 +279,8 @@ geom_rsi <- function(position = NULL, #' @export facet_rsi <- function(facet = c("Interpretation", "Antibiotic"), nrow = NULL) { + stopifnot_installed_package("ggplot2") + facet <- facet[1] # we work with aes_string later on @@ -302,6 +304,8 @@ facet_rsi <- function(facet = c("Interpretation", "Antibiotic"), nrow = NULL) { #' @rdname ggplot_rsi #' @export scale_y_percent <- function(breaks = seq(0, 1, 0.1), limits = NULL) { + stopifnot_installed_package("ggplot2") + if (all(breaks[breaks != 0] > 1)) { breaks <- breaks / 100 } @@ -313,6 +317,7 @@ scale_y_percent <- function(breaks = seq(0, 1, 0.1), limits = NULL) { #' @rdname ggplot_rsi #' @export scale_rsi_colours <- function() { + stopifnot_installed_package("ggplot2") #ggplot2::scale_fill_brewer(palette = "RdYlGn") ggplot2::scale_fill_manual(values = c("#b22222", "#ae9c20", "#7cfc00")) } @@ -320,6 +325,7 @@ scale_rsi_colours <- function() { #' @rdname ggplot_rsi #' @export theme_rsi <- function() { + stopifnot_installed_package("ggplot2") ggplot2::theme_minimal() + ggplot2::theme(panel.grid.major.x = ggplot2::element_blank(), panel.grid.minor = ggplot2::element_blank(), @@ -332,6 +338,7 @@ labels_rsi_count <- function(position = NULL, x = "Antibiotic", datalabels.size = 3, datalabels.colour = "grey15") { + stopifnot_installed_package("ggplot2") if (is.null(position)) { position <- "fill" } @@ -357,3 +364,4 @@ getlbls <- function(data) { " (n=", Value, ")")) %>% mutate(lbl = ifelse(lbl == "0.0% (n=0)", "", lbl)) } + diff --git a/R/globals.R b/R/globals.R index 7c480b9b..51acb22b 100755 --- a/R/globals.R +++ b/R/globals.R @@ -92,7 +92,7 @@ globalVariables(c(".", "Sex", "shortname", "species", - "superprevalent", + "species_id", "trade_name", "transmute", "tsn", diff --git a/R/misc.R b/R/misc.R index b153c951..2217b850 100755 --- a/R/misc.R +++ b/R/misc.R @@ -194,3 +194,9 @@ search_type_in_df <- function(tbl, type) { } found } + +stopifnot_installed_package <- function(package) { + if (!package %in% base::rownames(utils::installed.packages())) { + stop("this function requires the ", package, " package.", call. = FALSE) + } +} diff --git a/R/mo.R b/R/mo.R index fbadb762..b65baff9 100755 --- a/R/mo.R +++ b/R/mo.R @@ -23,10 +23,10 @@ #' #' Use this function to determine a valid microorganism ID (\code{mo}). Determination is done using intelligent rules and the complete taxonomic kingdoms Bacteria, Chromista, Protozoa, Archaea and most microbial species from the kingdom Fungi (see Source). The input can be almost anything: a full name (like \code{"Staphylococcus aureus"}), an abbreviated name (like \code{"S. aureus"}), an abbreviation known in the field (like \code{"MRSA"}), or just a genus. Please see Examples. #' @param x a character vector or a \code{data.frame} with one or two columns -#' @param Becker a logical to indicate whether \emph{Staphylococci} should be categorised into Coagulase Negative \emph{Staphylococci} ("CoNS") and Coagulase Positive \emph{Staphylococci} ("CoPS") instead of their own species, according to Karsten Becker \emph{et al.} [1]. Note that this does not include species that were newly named after this publication. +#' @param Becker a logical to indicate whether \emph{Staphylococci} should be categorised into coagulase-negative \emph{Staphylococci} ("CoNS") and coagulase-positive \emph{Staphylococci} ("CoPS") instead of their own species, according to Karsten Becker \emph{et al.} [1,2]. Note that this does not include species that were newly named after these publications, like \emph{S. caeli}. #' #' This excludes \emph{Staphylococcus aureus} at default, use \code{Becker = "all"} to also categorise \emph{S. aureus} as "CoPS". -#' @param Lancefield a logical to indicate whether beta-haemolytic \emph{Streptococci} should be categorised into Lancefield groups instead of their own species, according to Rebecca C. Lancefield [2]. These \emph{Streptococci} will be categorised in their first group, e.g. \emph{Streptococcus dysgalactiae} will be group C, although officially it was also categorised into groups G and L. +#' @param Lancefield a logical to indicate whether beta-haemolytic \emph{Streptococci} should be categorised into Lancefield groups instead of their own species, according to Rebecca C. Lancefield [3]. These \emph{Streptococci} will be categorised in their first group, e.g. \emph{Streptococcus dysgalactiae} will be group C, although officially it was also categorised into groups G and L. #' #' This excludes \emph{Enterococci} at default (who are in group D), use \code{Lancefield = "all"} to also categorise all \emph{Enterococci} as group D. #' @param allow_uncertain a logical (\code{TRUE} or \code{FALSE}) or a value between 0 and 3 to indicate whether the input should be checked for less possible results, see Details @@ -49,18 +49,19 @@ #' | | | ----> subspecies, a 3-4 letter acronym #' | | ----> species, a 3-4 letter acronym #' | ----> genus, a 5-7 letter acronym, mostly without vowels -#' ----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria), C (Chromista), -#' F (Fungi), P (Protozoa) or PL (Plantae) +#' ----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria), +#' C (Chromista), F (Fungi), P (Protozoa) or +#' PL (Plantae) #' } #' -#' Values that cannot be coered will be considered 'unknown' and have an MO code \code{UNKNOWN}. +#' Values that cannot be coered will be considered 'unknown' and will get the MO code \code{UNKNOWN}. #' #' Use the \code{\link{mo_property}_*} functions to get properties based on the returned code, see Examples. #' #' The algorithm uses data from the Catalogue of Life (see below) and from one other source (see \code{?microorganisms}). #' #' \strong{Self-learning algoritm} \cr -#' The \code{as.mo()} function gains experience from previously determined microbial IDs and learns from it. This drastically improves both speed and reliability. Use \code{clean_mo_history()} to reset the algorithms. Only experience from your current \code{AMR} package version is used. This is done because in the future the taxonomic tree (which is included in this package) may change for any organism and it consequently has to rebuild its knowledge. Usually, any guess after the first try runs 90-95\% faster than the first try. The algorithm saves its previous findings to \code{~/.Rhistory_mo}. +#' The \code{as.mo()} function gains experience from previously determined microbial IDs and learns from it. This drastically improves both speed and reliability. Use \code{clean_mo_history()} to reset the algorithms. Only experience from your current \code{AMR} package version is used. This is done because in the future the taxonomic tree (which is included in this package) may change for any organism and it consequently has to rebuild its knowledge. Usually, any guess after the first try runs 80-95\% faster than the first try. The algorithm saves its previous findings to \code{~/.Rhistory_mo}. #' #' \strong{Intelligent rules} \cr #' This function uses intelligent rules to help getting fast and logical results. It tries to find matches in this order: @@ -80,7 +81,7 @@ #' This means that looking up human pathogenic microorganisms takes less time than looking up human non-pathogenic microorganisms. #' #' \strong{Uncertain results} \cr -#' The algorithm can additionally use three different levels of uncertainty to guess valid results. The default is \code{allow_uncertain = TRUE}, which is uqual to uncertainty level 2. Using \code{allow_uncertain = FALSE} will skip all of these additional rules: +#' The algorithm can additionally use three different levels of uncertainty to guess valid results. The default is \code{allow_uncertain = TRUE}, which is equal to uncertainty level 2. Using \code{allow_uncertain = FALSE} will skip all of these additional rules: #' \itemize{ #' \item{(uncertainty level 1): It tries to look for only matching genera} #' \item{(uncertainty level 1): It tries to look for previously accepted (but now invalid) taxonomic names} @@ -121,11 +122,13 @@ #' @section Source: #' [1] Becker K \emph{et al.} \strong{Coagulase-Negative Staphylococci}. 2014. Clin Microbiol Rev. 27(4): 870–926. \url{https://dx.doi.org/10.1128/CMR.00109-13} #' -#' [2] Lancefield RC \strong{A serological differentiation of human and other groups of hemolytic streptococci}. 1933. J Exp Med. 57(4): 571–95. \url{https://dx.doi.org/10.1084/jem.57.4.571} +#' [2] Becker K \emph{et al.} \strong{Implications of identifying the recently defined members of the S. aureus complex, S. argenteus and S. schweitzeri: A position paper of members of the ESCMID Study Group for staphylococci and Staphylococcal Diseases (ESGS).}. 2019. Clin Microbiol Infect. 2019 Mar 11. \url{https://doi.org/10.1016/j.cmi.2019.02.028} #' -#' [3] Catalogue of Life: Annual Checklist (public online taxonomic database), \url{www.catalogueoflife.org} (check included annual version with \code{\link{catalogue_of_life_version}()}). +#' [3] Lancefield RC \strong{A serological differentiation of human and other groups of hemolytic streptococci}. 1933. J Exp Med. 57(4): 571–95. \url{https://dx.doi.org/10.1084/jem.57.4.571} +#' +#' [4] Catalogue of Life: Annual Checklist (public online taxonomic database), \url{www.catalogueoflife.org} (check included annual version with \code{\link{catalogue_of_life_version}()}). #' @export -#' @return Character (vector) with class \code{"mo"}. Unknown values will return \code{NA}. +#' @return Character (vector) with class \code{"mo"} #' @seealso \code{\link{microorganisms}} for the \code{data.frame} that is being used to determine ID's. \cr #' The \code{\link{mo_property}} functions (like \code{\link{mo_genus}}, \code{\link{mo_gramstain}}) to get properties based on the returned code. #' @inheritSection AMR Read more on our website! @@ -188,7 +191,8 @@ as.mo <- function(x, Becker = FALSE, Lancefield = FALSE, allow_uncertain = TRUE, # check onLoad() in R/zzz.R: data tables are created there. } - mo_hist <- get_mo_history(x, force = isTRUE(list(...)$force_mo_history)) + uncertainty_level <- translate_allow_uncertain(allow_uncertain) + mo_hist <- get_mo_history(x, uncertainty_level, force = isTRUE(list(...)$force_mo_history)) if (mo_source_isvalid(reference_df) & isFALSE(Becker) @@ -247,13 +251,13 @@ as.mo <- function(x, Becker = FALSE, Lancefield = FALSE, allow_uncertain = TRUE, "mo"][[1]] } # save them to history - set_mo_history(x, y, force = isTRUE(list(...)$force_mo_history)) + set_mo_history(x, y, 0, force = isTRUE(list(...)$force_mo_history)) } else { # will be checked for mo class in validation and uses exec_as.mo internally if necessary y <- mo_validate(x = x, property = "mo", Becker = Becker, Lancefield = Lancefield, - allow_uncertain = allow_uncertain, reference_df = reference_df, + allow_uncertain = uncertainty_level, reference_df = reference_df, force_mo_history = isTRUE(list(...)$force_mo_history)) } @@ -320,15 +324,8 @@ exec_as.mo <- function(x, fullname = character(0), mo = character(0)) failures <- character(0) - if (isTRUE(allow_uncertain)) { - # default to uncertainty level 2 - allow_uncertain <- 2 - } else { - allow_uncertain <- as.integer(allow_uncertain) - if (!allow_uncertain %in% c(0:3)) { - stop("`allow_uncertain` must be a number between 0 (none) and 3 (all), or TRUE (= 2) or FALSE (= 0).", call. = FALSE) - } - } + uncertainty_level <- translate_allow_uncertain(allow_uncertain) + x_input <- x # already strip leading and trailing spaces x <- trimws(x, which = "both") @@ -341,7 +338,6 @@ exec_as.mo <- function(x, & !identical(x, "") & !identical(x, "xxx") & !identical(x, "con")] - x_input_backup <- x # conversion of old MO codes from v0.5.0 (ITIS) to later versions (Catalogue of Life) if (any(x %like% "^[BFP]_[A-Z]{3,7}") & !all(x %in% microorganisms$mo)) { @@ -406,9 +402,13 @@ exec_as.mo <- function(x, } x <- y - } else if (all(x %in% read_mo_history(force = force_mo_history)$x)) { + } else if (all(x %in% read_mo_history(uncertainty_level, + force = force_mo_history)$x)) { # previously found code - x <- microorganismsDT[data.table(mo = get_mo_history(x, force = force_mo_history)), on = "mo", ..property][[1]] + x <- microorganismsDT[data.table(mo = get_mo_history(x, + uncertainty_level, + force = force_mo_history)), + on = "mo", ..property][[1]] } else if (all(tolower(x) %in% microorganismsDT$fullname_lower)) { # we need special treatment for very prevalent full names, they are likely! @@ -430,7 +430,7 @@ exec_as.mo <- function(x, # commonly used MO codes y <- as.data.table(AMR::microorganisms.codes)[data.table(code = toupper(x)), on = "code", ] # save them to history - set_mo_history(x, y$mo, force = force_mo_history) + set_mo_history(x, y$mo, 0, force = force_mo_history) x <- microorganismsDT[data.table(mo = y[["mo"]]), on = "mo", ..property][[1]] @@ -502,11 +502,16 @@ exec_as.mo <- function(x, progress$tick()$print() - found <- microorganismsDT[mo == get_mo_history(x_backup[i], force = force_mo_history), ..property][[1]] - # previously found result - if (length(found) > 0) { - x[i] <- found[1L] - next + if (initial_search == TRUE) { + found <- microorganismsDT[mo == get_mo_history(x_backup[i], + uncertainty_level, + force = force_mo_history), + ..property][[1]] + # previously found result + if (length(found) > 0) { + x[i] <- found[1L] + next + } } found <- microorganismsDT[mo == toupper(x_backup[i]), ..property][[1]] @@ -521,7 +526,7 @@ exec_as.mo <- function(x, if (length(found) > 0) { x[i] <- found[1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -535,7 +540,7 @@ exec_as.mo <- function(x, # empty and nonsense values, ignore without warning x[i] <- microorganismsDT[mo == "UNKNOWN", ..property][[1]] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -552,7 +557,7 @@ exec_as.mo <- function(x, if (length(found) > 0) { x[i] <- found[1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -562,7 +567,7 @@ exec_as.mo <- function(x, x[i] <- microorganismsDT[mo == "UNKNOWN", ..property][[1]] if (initial_search == TRUE) { failures <- c(failures, x_backup[i]) - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -572,7 +577,7 @@ exec_as.mo <- function(x, x[i] <- microorganismsDT[mo == "UNKNOWN", ..property][[1]] if (initial_search == TRUE) { failures <- c(failures, x_backup[i]) - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -582,14 +587,14 @@ exec_as.mo <- function(x, if (toupper(x_backup_without_spp[i]) %in% c('MRSA', 'MSSA', 'VISA', 'VRSA')) { x[i] <- microorganismsDT[mo == 'B_STPHY_AUR', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } if (toupper(x_backup_without_spp[i]) %in% c('MRSE', 'MSSE')) { x[i] <- microorganismsDT[mo == 'B_STPHY_EPI', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -597,14 +602,14 @@ exec_as.mo <- function(x, | x_backup_without_spp[i] %like% '(enterococci|enterokok|enterococo)[a-z]*?$') { x[i] <- microorganismsDT[mo == 'B_ENTRC', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } if (toupper(x_backup_without_spp[i]) %in% c("EHEC", "EPEC", "EIEC", "STEC", "ATEC")) { x[i] <- microorganismsDT[mo == 'B_ESCHR_COL', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -612,7 +617,7 @@ exec_as.mo <- function(x, # multi resistant P. aeruginosa x[i] <- microorganismsDT[mo == 'B_PSDMN_AER', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -621,7 +626,7 @@ exec_as.mo <- function(x, # co-trim resistant S. maltophilia x[i] <- microorganismsDT[mo == 'B_STNTR_MAL', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -629,7 +634,7 @@ exec_as.mo <- function(x, # peni I, peni R, vanco I, vanco R: S. pneumoniae x[i] <- microorganismsDT[mo == 'B_STRPT_PNE', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -637,7 +642,7 @@ exec_as.mo <- function(x, # Streptococci, like GBS = Group B Streptococci (B_STRPT_GRB) x[i] <- microorganismsDT[mo == gsub("G([ABCDFGHK])S", "B_STRPT_GR\\1", x_backup_without_spp[i], ignore.case = TRUE), ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -645,7 +650,7 @@ exec_as.mo <- function(x, # Streptococci in different languages, like "estreptococos grupo B" x[i] <- microorganismsDT[mo == gsub(".*(streptococ|streptokok|estreptococ).* ([ABCDFGHK])$", "B_STRPT_GR\\2", x_backup_without_spp[i], ignore.case = TRUE), ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -653,7 +658,7 @@ exec_as.mo <- function(x, # Streptococci in different languages, like "Group A Streptococci" x[i] <- microorganismsDT[mo == gsub(".*group ([ABCDFGHK]) (streptococ|streptokok|estreptococ).*", "B_STRPT_GR\\1", x_backup_without_spp[i], ignore.case = TRUE), ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -664,7 +669,7 @@ exec_as.mo <- function(x, # coerce S. coagulase negative x[i] <- microorganismsDT[mo == 'B_STPHY_CNS', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -674,7 +679,7 @@ exec_as.mo <- function(x, # coerce S. coagulase positive x[i] <- microorganismsDT[mo == 'B_STPHY_CPS', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -684,7 +689,7 @@ exec_as.mo <- function(x, # coerce Gram negatives x[i] <- microorganismsDT[mo == 'B_GRAMN', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -694,7 +699,7 @@ exec_as.mo <- function(x, # coerce Gram positives x[i] <- microorganismsDT[mo == 'B_GRAMP', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -703,7 +708,7 @@ exec_as.mo <- function(x, # Salmonella Group A to Z, just return S. species for now x[i] <- microorganismsDT[mo == 'B_SLMNL', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } options(mo_renamed = c(getOption("mo_renamed"), magenta(paste0("Note: ", @@ -715,7 +720,7 @@ exec_as.mo <- function(x, # Salmonella with capital letter species like "Salmonella Goettingen" - they're all S. enterica x[i] <- microorganismsDT[mo == 'B_SLMNL_ENT', ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } options(mo_renamed = c(getOption("mo_renamed"), magenta(paste0("Note: ", @@ -735,7 +740,7 @@ exec_as.mo <- function(x, if (length(found) > 0) { x[i] <- found[1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -744,7 +749,7 @@ exec_as.mo <- function(x, if (length(found) > 0) { x[i] <- found[1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -759,7 +764,7 @@ exec_as.mo <- function(x, if (length(mo_found) > 0) { x[i] <- microorganismsDT[mo == mo_found, ..property][[1]][1L] if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -782,7 +787,7 @@ exec_as.mo <- function(x, x[i] <- microorganismsDT[mo == "UNKNOWN", ..property][[1]] if (initial_search == TRUE) { failures <- c(failures, x_backup[i]) - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -869,7 +874,7 @@ exec_as.mo <- function(x, g.x_backup_without_spp = x_backup_without_spp[i]) if (!empty_result(x[i])) { if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -884,7 +889,7 @@ exec_as.mo <- function(x, g.x_backup_without_spp = x_backup_without_spp[i]) if (!empty_result(x[i])) { if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -899,7 +904,7 @@ exec_as.mo <- function(x, g.x_backup_without_spp = x_backup_without_spp[i]) if (!empty_result(x[i])) { if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -925,7 +930,7 @@ exec_as.mo <- function(x, ref_new = microorganismsDT[col_id == found[1, col_id_new], ref], mo = microorganismsDT[col_id == found[1, col_id_new], mo]) if (initial_search == TRUE) { - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } next } @@ -938,12 +943,12 @@ exec_as.mo <- function(x, f.x_withspaces_end_only, g.x_backup_without_spp) { - if (allow_uncertain == 0) { + if (uncertainty_level == 0) { # do not allow uncertainties return(NA_character_) } - if (allow_uncertain >= 1) { + if (uncertainty_level >= 1) { # (1) look again for old taxonomic names, now for G. species ---- found <- microorganisms.oldDT[fullname %like% c.x_withspaces_start_end | fullname %like% d.x_withspaces_start_only] @@ -966,11 +971,14 @@ exec_as.mo <- function(x, input = a.x_backup, fullname = found[1, fullname], mo = paste("CoL", found[1, col_id]))) + if (initial_search == TRUE) { + set_mo_history(a.x_backup, get_mo_code(x, property), 1, force = force_mo_history) + } return(x) } } - if (allow_uncertain >= 2) { + if (uncertainty_level >= 2) { # (3) look for genus only, part of name ---- if (nchar(g.x_backup_without_spp) > 4 & !b.x_trimmed %like% " ") { if (!grepl("^[A-Z][a-z]+", b.x_trimmed, ignore.case = FALSE)) { @@ -983,6 +991,9 @@ exec_as.mo <- function(x, input = a.x_backup, fullname = microorganismsDT[mo == found[1L], fullname][[1]], mo = found[1L])) + if (initial_search == TRUE) { + set_mo_history(a.x_backup, get_mo_code(x, property), 2, force = force_mo_history) + } return(x) } } @@ -1000,6 +1011,9 @@ exec_as.mo <- function(x, input = a.x_backup, fullname = microorganismsDT[mo == found_result[1L], fullname][[1]], mo = found_result[1L])) + if (initial_search == TRUE) { + set_mo_history(a.x_backup, get_mo_code(found[1L], property), 2, force = force_mo_history) + } return(found[1L]) } @@ -1018,6 +1032,33 @@ exec_as.mo <- function(x, input = a.x_backup, fullname = microorganismsDT[mo == found_result[1L], fullname][[1]], mo = found_result[1L])) + if (initial_search == TRUE) { + set_mo_history(a.x_backup, get_mo_code(found[1L], property), 2, force = force_mo_history) + } + return(found[1L]) + } + } + } + } + # (6) try to strip off one element from start and check the remains (only allow 2-part name outcome) ---- + x_strip <- a.x_backup %>% strsplit(" ") %>% unlist() + if (length(x_strip) > 1 & nchar(g.x_backup_without_spp) >= 6) { + for (i in 2:(length(x_strip))) { + x_strip_collapsed <- paste(x_strip[i:length(x_strip)], collapse = " ") + found <- suppressMessages(suppressWarnings(exec_as.mo(x_strip_collapsed, initial_search = FALSE, allow_uncertain = FALSE))) + if (!empty_result(found)) { + found_result <- found + found <- microorganismsDT[mo == found_result[1L], ..property][[1]] + # uncertainty level 2 only if the fullname contains a space (otherwise it will be found with lvl 3) + if (microorganismsDT[mo == found_result[1L], fullname][[1]] %like% " ") { + uncertainties <<- rbind(uncertainties, + data.frame(uncertainty = 2, + input = a.x_backup, + fullname = microorganismsDT[mo == found_result[1L], fullname][[1]], + mo = found_result[1L])) + if (initial_search == TRUE) { + set_mo_history(a.x_backup, get_mo_code(found[1L], property), 2, force = force_mo_history) + } return(found[1L]) } } @@ -1025,8 +1066,8 @@ exec_as.mo <- function(x, } } - if (allow_uncertain >= 3) { - # (6) try to strip off one element from start and check the remains ---- + if (uncertainty_level >= 3) { + # (7) try to strip off one element from start and check the remains ---- x_strip <- a.x_backup %>% strsplit(" ") %>% unlist() if (length(x_strip) > 1 & nchar(g.x_backup_without_spp) >= 6) { for (i in 2:(length(x_strip))) { @@ -1040,12 +1081,15 @@ exec_as.mo <- function(x, input = a.x_backup, fullname = microorganismsDT[mo == found_result[1L], fullname][[1]], mo = found_result[1L])) + if (initial_search == TRUE) { + set_mo_history(a.x_backup, get_mo_code(found[1L], property), 3, force = force_mo_history) + } return(found[1L]) } } } - # (7) part of a name (very unlikely match) ---- + # (8) part of a name (very unlikely match) ---- found <- microorganismsDT[fullname %like% f.x_withspaces_end_only] if (nrow(found) > 0) { found_result <- found[["mo"]] @@ -1056,6 +1100,9 @@ exec_as.mo <- function(x, input = a.x_backup, fullname = microorganismsDT[mo == found_result[1L], fullname][[1]], mo = found_result[1L])) + if (initial_search == TRUE) { + set_mo_history(a.x_backup, get_mo_code(found[1L], property), 3, force = force_mo_history) + } return(found[1L]) } } @@ -1071,7 +1118,7 @@ exec_as.mo <- function(x, x_withspaces_end_only[i], x_backup_without_spp[i]) if (!empty_result(x[i])) { - # no set_mo_history here; these are uncertain + # no set_mo_history: is already set in uncertain_fn() next } @@ -1079,7 +1126,7 @@ exec_as.mo <- function(x, x[i] <- microorganismsDT[mo == "UNKNOWN", ..property][[1]] if (initial_search == TRUE) { failures <- c(failures, x_backup[i]) - set_mo_history(x_backup[i], get_mo_code(x[i], property), force = force_mo_history) + set_mo_history(x_backup[i], get_mo_code(x[i], property), 0, force = force_mo_history) } } } @@ -1127,8 +1174,8 @@ exec_as.mo <- function(x, MOs_staph <- microorganismsDT[genus == "Staphylococcus"] setkey(MOs_staph, species) CoNS <- MOs_staph[species %in% c("arlettae", "auricularis", "capitis", - "caprae", "carnosus", "cohnii", "condimenti", - "devriesei", "epidermidis", "equorum", + "caprae", "carnosus", "chromogenes", "cohnii", "condimenti", + "devriesei", "epidermidis", "equorum", "felis", "fleurettii", "gallinarum", "haemolyticus", "hominis", "jettensis", "kloosii", "lentus", "lugdunensis", "massiliensis", "microti", @@ -1136,16 +1183,31 @@ exec_as.mo <- function(x, "pettenkoferi", "piscifermentans", "rostri", "saccharolyticus", "saprophyticus", "sciuri", "stepanovicii", "simulans", "succinus", - "vitulinus", "warneri", "xylosus"), ..property][[1]] - CoPS <- MOs_staph[species %in% c("simiae", "agnetis", "chromogenes", - "delphini", "felis", "lutrae", + "vitulinus", "warneri", "xylosus") + | (species == "schleiferi" & subspecies %in% c("schleiferi", "")), ..property][[1]] + CoPS <- MOs_staph[species %in% c("simiae", "agnetis", + "delphini", "lutrae", "hyicus", "intermedius", "pseudintermedius", "pseudointermedius", - "schleiferi"), ..property][[1]] + "schweitzeri", "argenteus") + | (species == "schleiferi" & subspecies == "coagulans"), ..property][[1]] + + # warn when species found that are not in Becker (2014, PMID 25278577) and Becker (2019, PMID 30872103) + post_Becker <- c("argensis", "caeli", "cornubiensis", "edaphicus") + if (any(x %in% MOs_staph[species %in% post_Becker, ..property][[1]])) { + + warning("Becker ", italic("et al."), " (2014) does not contain species named after their publication: ", + italic(paste("S.", + sort(mo_species(unique(x[x %in% MOs_staph[species %in% post_Becker, ..property][[1]]]))), + collapse = ", ")), + call. = FALSE, + immediate. = TRUE) + } + x[x %in% CoNS] <- microorganismsDT[mo == 'B_STPHY_CNS', ..property][[1]][1L] x[x %in% CoPS] <- microorganismsDT[mo == 'B_STPHY_CPS', ..property][[1]][1L] if (Becker == "all") { - x[x == microorganismsDT[mo == 'B_STPHY_AUR', ..property][[1]][1L]] <- microorganismsDT[mo == 'B_STPHY_CPS', ..property][[1]][1L] + x[x %in% microorganismsDT[mo %like% '^B_STPHY_AUR', ..property][[1]]] <- microorganismsDT[mo == 'B_STPHY_CPS', ..property][[1]][1L] } } @@ -1305,7 +1367,7 @@ mo_uncertainties <- function() { } #' @exportMethod print.mo_uncertainties -#' @importFrom crayon green yellow red bgGreen bgYellow bgRed +#' @importFrom crayon green yellow red white bgGreen bgYellow bgRed #' @export #' @noRd print.mo_uncertainties <- function(x, ...) { @@ -1321,16 +1383,16 @@ print.mo_uncertainties <- function(x, ...) { for (i in 1:nrow(x)) { if (x[i, "uncertainty"] == 1) { colour1 <- green - colour2 <- bgGreen + colour2 <- function(...) bgGreen(white(...)) } else if (x[i, "uncertainty"] == 2) { colour1 <- yellow colour2 <- bgYellow } else { colour1 <- red - colour2 <- bgRed + colour2 <- function(...) bgRed(white(...)) } msg <- paste(msg, - paste0("[", colour2(paste0(" ", x[i, "uncertainty"], " ")), '] - "', x[i, "input"], '" -> ', + paste0(colour2(paste0(" [", x[i, "uncertainty"], "] ")), ' "', x[i, "input"], '" -> ', colour1(paste0(italic(x[i, "fullname"]), " (", x[i, "mo"], ")"))), sep = "\n") } @@ -1373,3 +1435,16 @@ get_mo_code <- function(x, property) { AMR::microorganisms[base::which(AMR::microorganisms[, property] %in% x),]$mo } } + +translate_allow_uncertain <- function(allow_uncertain) { + if (isTRUE(allow_uncertain)) { + # default to uncertainty level 2 + allow_uncertain <- 2 + } else { + allow_uncertain <- as.integer(allow_uncertain) + if (!allow_uncertain %in% c(0:3)) { + stop("`allow_uncertain` must be a number between 0 (none) and 3 (all), or TRUE (= 2) or FALSE (= 0).", call. = FALSE) + } + } + allow_uncertain +} diff --git a/R/mo_history.R b/R/mo_history.R index e9c52bf4..9217eab9 100644 --- a/R/mo_history.R +++ b/R/mo_history.R @@ -21,10 +21,10 @@ # print successful as.mo coercions to file, not uncertain ones #' @importFrom dplyr %>% distinct filter -set_mo_history <- function(x, mo, force = FALSE) { +set_mo_history <- function(x, mo, uncertainty_level, force = FALSE) { file_location <- base::path.expand('~/.Rhistory_mo') if (base::interactive() | force == TRUE) { - mo_hist <- read_mo_history(force = force) + mo_hist <- read_mo_history(uncertainty_level = uncertainty_level, force = force) df <- data.frame(x, mo, stringsAsFactors = FALSE) %>% distinct(x, .keep_all = TRUE) %>% filter(!is.na(x) & !is.na(mo)) @@ -35,10 +35,12 @@ set_mo_history <- function(x, mo, force = FALSE) { mo <- df$mo for (i in 1:length(x)) { # save package version too, as both the as.mo() algorithm and the reference data set may change - if (NROW(mo_hist[base::which(mo_hist$x == x[i] & mo_hist$package_version == utils::packageVersion("AMR")),]) == 0) { - base::write(x = c(x[i], mo[i], base::as.character(utils::packageVersion("AMR"))), + if (NROW(mo_hist[base::which(mo_hist$x == x[i] & + mo_hist$uncertainty_level >= uncertainty_level & + mo_hist$package_version == utils::packageVersion("AMR")),]) == 0) { + base::write(x = c(x[i], mo[i], uncertainty_level, base::as.character(utils::packageVersion("AMR"))), file = file_location, - ncolumns = 3, + ncolumns = 4, append = TRUE, sep = "\t") } @@ -47,8 +49,8 @@ set_mo_history <- function(x, mo, force = FALSE) { return(base::invisible()) } -get_mo_history <- function(x, force = FALSE) { - file_read <- read_mo_history(force = force) +get_mo_history <- function(x, uncertainty_level, force = FALSE) { + file_read <- read_mo_history(uncertainty_level = uncertainty_level, force = force) if (base::is.null(file_read)) { NA } else { @@ -59,30 +61,57 @@ get_mo_history <- function(x, force = FALSE) { } #' @importFrom dplyr %>% filter distinct -read_mo_history <- function(force = FALSE) { +read_mo_history <- function(uncertainty_level = 2, force = FALSE, unfiltered = FALSE) { file_location <- base::path.expand('~/.Rhistory_mo') if (!base::file.exists(file_location) | (!base::interactive() & force == FALSE)) { return(NULL) } + uncertainty_level_param <- uncertainty_level file_read <- utils::read.table(file = file_location, header = FALSE, sep = "\t", - col.names = c("x", "mo", "package_version"), + col.names = c("x", "mo", "uncertainty_level", "package_version"), stringsAsFactors = FALSE) # Below: filter on current package version. # Even current fullnames may be replaced by new taxonomic names, so new versions of # the Catalogue of Life must not lead to data corruption. - file_read %>% - filter(package_version == utils::packageVersion("AMR")) %>% - distinct(x, mo, .keep_all = TRUE) -} -#' @rdname as.mo -#' @export -clean_mo_history <- function() { - file_location <- base::path.expand('~/.Rhistory_mo') - if (base::file.exists(file_location)) { - base::unlink(file_location) + if (unfiltered == FALSE) { + file_read <- file_read %>% + filter(package_version == utils::packageVersion("AMR"), + # only take unknowns if uncertainty_level_param is higher + ((mo == "UNKNOWN" & uncertainty_level_param == uncertainty_level) | + (mo != "UNKNOWN" & uncertainty_level_param >= uncertainty_level))) %>% + arrange(desc(uncertainty_level)) %>% + distinct(x, mo, .keep_all = TRUE) + } + + if (nrow(file_read) == 0) { + NULL + } else { + file_read + } +} + +#' @rdname as.mo +#' @importFrom crayon red +#' @importFrom utils menu +#' @export +clean_mo_history <- function(...) { + file_location <- base::path.expand('~/.Rhistory_mo') + if (file.exists(file_location)) { + if (interactive() & !isTRUE(list(...)$force)) { + q <- menu(title = paste("This will remove all", + format(nrow(read_mo_history(999, unfiltered = TRUE)), big.mark = ","), + "previously determined microbial IDs. Are you sure?"), + choices = c("Yes", "No"), + graphics = FALSE) + if (q != 1) { + return(invisible()) + } + } + unlink(file_location) + cat(red("File", file_location, "removed.")) } } diff --git a/R/mo_property.R b/R/mo_property.R index e0fb4a24..1d3faccb 100755 --- a/R/mo_property.R +++ b/R/mo_property.R @@ -446,6 +446,8 @@ mo_translate <- function(x, language) { # Spanish language == "es" ~ x[x_tobetranslated] %>% + # not 'negativa' + # https://www.sciencedirect.com/science/article/pii/S0123939215000739 gsub("Coagulase-negative Staphylococcus","Staphylococcus coagulasa negativo", ., fixed = TRUE) %>% gsub("Coagulase-positive Staphylococcus","Staphylococcus coagulasa positivo", ., fixed = TRUE) %>% gsub("Beta-haemolytic Streptococcus", "Streptococcus Beta-hemol\u00edtico", ., fixed = TRUE) %>% @@ -461,6 +463,8 @@ mo_translate <- function(x, language) { gsub("unknown species", "especie desconocida", ., fixed = TRUE) %>% gsub("unknown subspecies", "subespecie desconocida", ., fixed = TRUE) %>% gsub("unknown rank", "rango desconocido", ., fixed = TRUE) %>% + gsub("(CoNS)", "(SCN)", ., fixed = TRUE) %>% + gsub("(CoPS)", "(SCP)", ., fixed = TRUE) %>% gsub("Gram negative", "Gram negativo", ., fixed = TRUE) %>% gsub("Gram positive", "Gram positivo", ., fixed = TRUE) %>% gsub("Bacteria", "Bacterias", ., fixed = TRUE) %>% @@ -579,7 +583,12 @@ mo_validate <- function(x, property, ...) { # check onLoad() in R/zzz.R: data tables are created there. } - if (!all(x %in% microorganisms[, property]) + # try to catch an error when inputting an invalid parameter + # so the call can be set to FALSE + tryCatch(x[1L] %in% AMR::microorganisms[1, property], + error = function(e) stop(e$message, call. = FALSE)) + + if (!all(x %in% AMR::microorganisms[, property]) | Becker %in% c(TRUE, "all") | Lancefield %in% c(TRUE, "all")) { exec_as.mo(x, property = property, ...) diff --git a/R/portion.R b/R/portion.R index 38593462..278c9723 100755 --- a/R/portion.R +++ b/R/portion.R @@ -21,11 +21,11 @@ #' Calculate resistance of isolates #' -#' @description These functions can be used to calculate the (co-)resistance of microbial isolates (i.e. percentage S, SI, I, IR or R). All functions support quasiquotation with pipes, can be used in \code{dplyr}s \code{\link[dplyr]{summarise}} and support grouped variables, see \emph{Examples}. +#' @description These functions can be used to calculate the (co-)resistance of microbial isolates (i.e. percentage of S, SI, I, IR or R). All functions support quasiquotation with pipes, can be used in \code{dplyr}s \code{\link[dplyr]{summarise}} and support grouped variables, see \emph{Examples}. #' #' \code{portion_R} and \code{portion_IR} can be used to calculate resistance, \code{portion_S} and \code{portion_SI} can be used to calculate susceptibility.\cr #' @param ... one or more vectors (or columns) with antibiotic interpretations. They will be transformed internally with \code{\link{as.rsi}} if needed. Use multiple columns to calculate (the lack of) co-resistance: the probability where one of two drugs have a resistant or susceptible result. See Examples. -#' @param minimum the minimal amount of available isolates. Any number lower than \code{minimum} will return \code{NA} with a warning. The default number of \code{30} isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source. +#' @param minimum the minimum allowed number of available (tested) isolates. Any isolate count lower than \code{minimum} will return \code{NA} with a warning. The default number of \code{30} isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source. #' @param as_percent a logical to indicate whether the output must be returned as a hundred fold with \% sign (a character). A value of \code{0.123456} will then be returned as \code{"12.3\%"}. #' @param also_single_tested a logical to indicate whether (in combination therapies) also observations should be included where not all antibiotics were tested, but at least one of the tested antibiotics contains a target interpretation (e.g. S in case of \code{portion_S} and R in case of \code{portion_R}). \strong{This would lead to selection bias in almost all cases.} #' @param data a \code{data.frame} containing columns with class \code{rsi} (see \code{\link{as.rsi}}) @@ -39,19 +39,21 @@ #' #' The old \code{\link{rsi}} function is still available for backwards compatibility but is deprecated. #' \if{html}{ +# (created with https://www.latex4technics.com/) #' \cr\cr #' To calculate the probability (\emph{p}) of susceptibility of one antibiotic, we use this formula: -#' \out{
}\figure{mono_therapy.png}\out{
} +#' \out{
}\figure{combi_therapy_2.png}\out{
} #' To calculate the probability (\emph{p}) of susceptibility of more antibiotics (i.e. combination therapy), we need to check whether one of them has a susceptible result (as numerator) and count all cases where all antibiotics were tested (as denominator). \cr #' \cr #' For two antibiotics: -#' \out{
}\figure{combi_therapy_2.png}\out{
} +#' \out{
}\figure{combi_therapy_2.png}\out{
} #' \cr #' For three antibiotics: -#' \out{
}\figure{combi_therapy_3.png}\out{
} +#' \out{
}\figure{combi_therapy_2.png}\out{
} #' \cr #' And so on. #' } +#' #' @source \strong{M39 Analysis and Presentation of Cumulative Antimicrobial Susceptibility Test Data, 4th Edition}, 2014, \emph{Clinical and Laboratory Standards Institute (CLSI)}. \url{https://clsi.org/standards/products/microbiology/documents/m39/}. #' #' Wickham H. \strong{Tidy Data.} The Journal of Statistical Software, vol. 59, 2014. \url{http://vita.had.co.nz/papers/tidy-data.html} @@ -92,8 +94,9 @@ #' 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! +#' n1 = count_all(cipr), # the actual total; sum of all three +#' n2 = n_rsi(cipr), # same - analogous to n_distinct +#' total = n()) # NOT the number of tested isolates! #' #' # Calculate co-resistance between amoxicillin/clav acid and gentamicin, #' # so we can see that combination therapy does a lot more than mono therapy: diff --git a/data/antibiotics.rda b/data/antibiotics.rda index 2f309d6c5bea0f068ad1ce8260f5cf7d8f390894..0c9a1c9e51b2cedffac751d3071c42eacc63176c 100755 GIT binary patch literal 14254 zcmXYXbyO7I^Y-qtz|spYUCV+J0s_*xEK5s=v`b1V-6+k{DX9ochlC*A-QAtiQVOW( z=k@zL?{n_C_nzlGbME{#cV^C@Ozb5D<&7Wd85h-Scme#G-~RXiar^K5(fQwh_dVEP z0XiVSCa~lr&)!*GaZ9Z|mo5*lq2n0~01zZK&5{Dl!=tf{pu~rEj6V;U64F!yuHUly zWV8>TmTG|xa{>r8Hm+&8irBeU^ z1B;$K6^bZN11KzPpY5o3m8vwWr8hULvXafHO^_|bz+eyX51t~!n*#{r{d*LW427d- zd3;NbDYa%k##8ym6&E-%>Kp;c2>!Y9KLugwKVKPS!vWzk%{Tv@443<*{Se9#ivEwb zv(scg_wvxZd2IHHlr8DAoP;`y?wC(1PU(m}Ff2dDOV129HjFkj;$e=(AD+D#Q!rk| z&5`2Ko8$czW5JU+)R3JDS&-`6)i8Ux?)w#RZp&wa%r~uoAJC+J#oS)u zBw2Ntv>R6A8*Pg8)T|UYK@4az?XL-;o)gETk&oFu9vo4*QI=)LZ5E%Rj!RD178F#Q zPdGn^bcL{UBu*1O2$WsJbD4`|-!dhOMh?&PR;7NBdAXqQgUTb%O~43S zs~Dq@{4>sHdF^HOTFHd`@$#0xww%ir>!yoA^jpBBJ3}-H zSvZ7$axZB7)!=biKkO+{ARqMqp?#6RXxC6z^zLXgsPJMVp}1}&f9NDVwWhbE)$ext zsE~X`&;TBas|4%d)5x@n)m+VfnRwrRa_S|faP#^#XVNg%Q;yJ4@d6k1y4iBgpDysM z(%+$Hq}OHj;z`zYvg*uYQHOz4w4DExRNOUrjJLMfKJi7KM@iBUwoi%IkQ7b84zog3 zS|Rdq2zE+EN<&1r=_gWSBRQd{;u&D9VpI$F6P`#xOC5ejQbjJ7&}f-@uW`GnB-UK~ zVr^MT9Zv2^XO{+sg^z)nE4-=OGUw~BecIj1_Vzg&zrd~@w0>DVdL8m;Po~e25GQ+{ z+jRf9aE3o?O7%R%H|fUzPuAAYR;~>n2i41g5})Ea(QE_H^2FtW${iN0-C^mutc^Bm z3qseTPxW{2p7q7z`P<)&9y>8xXgT(yBAqsTN+R$*zB~={+t`*nYUnWQfNV1cC`Wkt z%b1#_2FThtGK0uV(W*j1UfYClVhs#{$<(2>&yO>W5RlMvTt7@vrBX2#NUfu{#; zOx631Iy-i8p~lnVOr9a?LafZyy1VBr?t@1|bbafl{pX{$3KfF;7oy+18TO;XXH~DP zeZ$hvmc_5{?ai3~NDq8!IjVIRY|Hv^-P84hX=hr33w|-ShiMe8XMxW zN?FVFaP;t)ulz#kdb&>1L>$UZ?n{%wB;vg-{ai!ME_^rUxX^VS08a(8DIw=~`5MCU zo_a1?JP+7-(I(9yrh~`GP0@GEH)L@mIjJ;0f)*2#buMv`;*hY~CoBB1D6*)3`jY*m zF;6DtYdmb4Xv9`O=DTh~EjVcr4L=TfM-R1jRiAvQs0Q>>HE-y>?ei2DFbv2`AIh;# z$F0kr$K4mw62qZ;f(wZO6>!+a~8f=u?*%}zy**X4?M=)=c7u%I(rl>#tr;Yg^^*^+q z2W(tY5|`JE$-l}j<2etQ;85il8%3zK;@CS_CJwRZlr9o+?J=QW@Ta9*Vm5`=EFWdS=s+IzHoU!DkY_X9!HWqI7}c5 z5Um&!K1_o^rgNm=5C{YSi^cwvRqS_XlPR;hteneb$(pUc=kN9dI*&TLg2^atG z-}~4Ci9M$E-A{<=DAAval<=B#De(&Vm8R?7t-kN5B7F3-K0;6Pyo78_pvy$hHfv{; zs9D%U`9r;gDwR&E!0qSV<>aD|eyj^;xz7Xs9&dZovDFK`@}a?DD(}j87`RNQ4m(;#kV~g`-qFL-I;H5 zu=vpM zQWcfV2u;4Pm{Ed=_$6l=CQ)r>b>bd6?(=ezs7HkAc^v!|F*_$OmsXee=cl^AFZ3;S z>9c=&NLLboV;VsfpvC5km9oLg-UZpB)997ROzDYTJm>_F3tM~_U)hf*yprxuQOKN2KpJt2uBFMvqkhpQ@(IPre#eRL0;gu*Wxn&%7DS&BvsrKJGakQW{?jD&8mM3uS|+_6kZ$p znCihXJ;_c`O=Yt*<4`FaS%w$Gl|1a}V&{B4)tIMK>q74(!i2%$l|Bp07hAX)Z7vpV zvf^1qYQ)qogoK0pRCbc4w(^x?xS!e87>B})$uurgnwN`@8Ja`FaCRIiKsfjne3-r$ zDtxB&wOWa(Uw{GG>(+`dD6n%D&gHk<9Q;@^Q$W}}bCrwH9y7NVk<|Pp-9f@sqv+hu z&9z_5<1G7XuDf#TP2HFAu?;Qxbg{C@PU}HOA?jMNDDNu%BVc*{+4Go^I;H20c4s>w^oZ<|PuZZQrv2Y=S6%Ek$#1y~Lg%n9H#H`QCBuzvfLJh28F}yT9UD}E^ z+OTAsm|8_jAST)cp9a+JXf%W^oz&WYt^y#g?xu#y-b3+8kfA(WQnoM7u%W-LSbxNn zWt9{yo1SGbvSu|a^fx#anNUeH$R8b7&wTe2d+Xd=B+7h*X00 z&0%`xtK=nh4{H^Z2yisD4c_zJ-cnLu<3jKmY-jovxBt>QNEE4?v0{P#)-N@(T^b&~ zi(HzOV-L3?$}H}7<+6kzTi9`4aejM*#$&^^pC6v~KX6gT$IBlJHEx323swxrf()QZ z5eWliT0@%v4!~SM8A8p+y1P5oIzK&CQ|Z{1NSQ${cxoD7ETWf9*(#erm=W@tG$H9{ z)4t;-_s>r&Y~9LN4^FT)c(~X;v%5t0JZK~dh2SB5Fe6u{{d7V7dXof{SB!{o%J@zx z5;Vj}KrDnzAh-Q=!4#&QH&lXNGs2?|4e#2Cdly=E>A$n}s)#FHa8iM>l*tgeph~th zOGI8VHs6c8PJttNUBbAkgdC0Y5|((nMM7EB-Y*7gcI}hal4**IblHsq)ET6jpk0m% z=4>_mj=-r75HcJK=2U58>L+E*rbt@4qnJz&_@I3l@ITBelfL|>oMxJ7fU!LN} ze_?vFPxLuBu;^wt*NzwpIa) zqN^{g9A~w$6jt5DQYK|&$KMO6d0@Lyz;^qUGKMn#*CWkLq1D>R{E!sX6rlX1LAtKgc{z9RK*w*!yp-D*czFw~ug?kq=-0eF}xMLacD*B`ZEBy>P~tx6=H|w7Tqlnb^o^6^<}U<`N$RgSWKZu4n$$2Dv)e zuT-iWDQ}tnX3L22=xGSg{@)t+=c2MDQ4j*j<6pR>pdAVaa>@~GW`>`NaLlD`;HDOA(`p_V@mV>{la{24n?ZDE=t+}osc7Do=`}5>O z74;P1&}N(D_=h!FCzeh&xRcui_v#BXe5V zh0oHKn!!H8ST$mpCO01F1W?>4BVo&^e7qx|xKb*VQ?StF(|<|c_~P40qFqmUkxeO2 z@MryZ)M~qNE~JVyys`MCFOm-vMjNTw@wM*Xg#WiE zcgDm1eAh|oF|O$INW*eQY#LsQej=Z-j*94902wXSWp0+7)i_GyB5s)-ghF!IBqe`T z7%X{R-MF}ZdJ_=nq&7=?Yn$+@-siVZtkP^bIBMN%;KrhdSTV$;pDY^V>c^0jv;9C7 zpKKuo!L7r;T(dH#K-(O=I>&`$6N{m5L^5dWIEz&c^C$SzaDs z>e=VNwe#btS|!rUN7Z=lJuA@$;=w%MdlNbNI>=s7pTDB*;2da+XRir;D|NKb=q2`Y zeU|qUI|WaPcw}d1ql(bpK(LTfeLL;ztrO%ODJ*m2vHUOzbM&ExM|wFhjak zD(6`pzi*qCkN3Wz>W_H57uG&PY6_nYJXv#n5^g6!o&aPC?Kl1v*PsotNapSdARFNb zfFV&hG+zg~_O<~iX$g#Cp#cM zF|xCxrhYiKfBl#0Umjatp656CKG!FCJS!{0ypWH%3N?~7s8$^_W6jZ85c_IEs$G_T z#@;}v;|EN=>R&wVcIWO>=edijJV;w)DDRN#kF;E9Gpnx(TmSl3bg~T^p96v$vbtBN z8eN=(_36EnoDwe&-q(?$AuXQ%0Cd-Fa$qcg^^S_&eUbjt-J9+@@R7SUjE+C*lNjW| zndG5E#=Yxo`&|xOfPH}ST~U@eQ-ceS87b_ch!c}npgq(lLQhDOvx7;Z%#bVB^X3;Z z_xvn7xqyC@7U_7&0<`BR@OQ|sw-a(UxiMf>K5ntYy~*6ipzcD0qve-`klwYO)qur2 z_O}uDZ#X>yXzOr1F!xD))%EohRrtTQ2e^MO4K0&MkpKI#XyDu|xwY##ZWO%_ZJ7 z<4fZUip0%t-?F&~11(B*VkkO-Yn7SJdY-!V?>wV@^>wy=o+Y#KW6@D-f#)msEaP_u zHVO$c-EOr+iSjmWRJ4Yda^@GAle?em5-kKHbb}EfY|LSO^9#?P-xKX`5)T0f{m^m2 z?b9U&5SZ;b1qRM`>PUVRt{{Iz1&Jaym*9IOm^#38@F30-sTA0>_Q)*W=vSKvU&6)r zI-*xfGKkxBg(J3(%FL*$*XD13H7-`XbKRo5OXDd;cmeh7<+$3b%{l- zQThCtr!f1F>-U+$$eC9{S)$qup6j;N{pv5R_nqWcV$TQ1$uK3;^!8>ei9zX%z8uLC z)z!z`2aw8{Us1>eFDtK0FRXW##OES`hQM&2_H)Ky3BWNtF04=BRDz;7bzt-Sdo`J|e(76cCInUWJ0&^BwY(ziKgs>Z8#@htow_;h&>3 zDL$G#zc`?95;mMI(+g|<#5UjSV_M*jkpI>avPR8m8pl5g(~-bX+0Re6yp&CYPy>z|Rs%gUr^;tD9G1?1+^i(qfWZ=uU5>rXwo{H)+k7E8EBvPBX4R+FC|7?LcKr)>Pr(M zuA59@eNQO_my|bJ8;>FsKG!6L(3WgoeQ+r(y;JUy#&xlT$n0*)R(}`>TIK%Ui~8~= zRYBM)?wz4sRuykED{iwd{uCXSv7LQ-8Q+Yq469aI-`U&S-0qD^7pwNR_>Vmc#rasU zYh4u~7Mp0)fiU2&|^ zBc{|tz3kbfismL_d>{AA;@WY$w~cwlwXDyIlH2+a>;nP3;e1a4B&-Z2N$et(tC7z9 zn)!@-L-wOUP^{5Sj*xwCfhIFu{gD?X&*y%4hEi-IT+FE;#(5VVQA||OiX*F5aK#3F zs3KWUjxnrx(1wgeNYEUZu9~i_j``F^zj-D^5YSV*P%*dwWO=s#=j>t73qp-4j_coT z!h~cBb6oEw@B`c_fM05NOwzZ^LdarePf9Y~KX4xUQB2b^_Pk-Tx^TU)ZQ>@Td3?j0 z_yC1B0#tyIR(kymXjOQ(cI#KhWL~=uXZYDCn-H9cu1$`slrvD6m+k zOPV3_vxt&s@-#7WOUODQBbqxr-p0B+uC=+olu@4rSqP{zx< zS5jz)PeF*L9y0!p>IjtDO5B+^Xk;RkV_A}X4|5*ZFmrvPkfGtLP`GU+pZnQ(E!gf;7oxS@^{U z?m`=a)F;UPSPVolW@TtBdA2yXqEe5jsgr_ZXyNK8hy-Zl@vMLbY7h@ZFLF|d8d>dE z)Dzmu(6lgi4%TJ7Bvks_!7FFG79b&2iRG3*e;N;vXsOzxO0e)m40_%FI4d7tTzL9^ z&~`Z>?5)n$2-M9C>&BK;*!N(B#!}It>EpqdJo#6Z5h^uD&=vgF@+xbl3)O?z#b?Eoo7p)faf5wvbFs>}Sl+far*JI692#k|$p`{)V z&XOw<-w>Y@&ziu}l`B#=>>HRE6!L5L_LiarWFvt6!16ayw4!8RqSK8uiF6KpPb)3y z@mH^yb??jEwMq1g@x|6u^F<#5n2v4cx5q4k_od;nC!10j(j*kr!t~_%>x$cIvHGPH zGvpGp!ZctD0RHZbn=1bR)aupW1DWxkMpg#WLGI%%{MDfT&Ku!rXf$9RRE}$U6?a|ky zgpB8h?G^=}zW;CviaCiF{XELM#O(Wd<0L1fbF7E-yI%M`79GVA6A%q)tY z8O}0Jo#OJ3NT`DOEc4)mAG5Y2#6A4I%r8ED8*<0&MGF(BIfy{{Q2cq;~S?!w$j%U7a(nb^9#v7Lh|qO zBJSnFj{(kGMpL@6AJ$CkT?yj2EE5%vO%3$x=(qsR%Po{A3Po1luDc~4?V5M#t(Ce6 z=im=hFSQ0ro@Aj3Yj4{UUcJw!;5u{eCA1o>IGUb{Gb5n}hC+Gl%?2^|>{se<DrhB@dX_8Bu>P3q?<-4~6F1gmhi=|;TN zMz}<_FT;AokLb{<4RHco2pyqJd4$eGDh^68S{_VENfn(pjYfwnj_sx}kEx&`Y7>Qu#dzuO+G})xF21AxRc1q3O7Y8fsKH2#_)bu3RYw`RvIA zKg!RTA)}N$-CmBDaH;3pn<9Dy@?d!2-LSOAp6)I)_pe#1TZ@hvU`M1VNkd01txT4R zhADa3A)%Sm-7V#` zE>^eOs`a8CjlSLoJo~k_$gYduQsY*T6l%&oBO>opfe?R8Jsz#3M393LP(#Mi$vW>w zg*-3VAD zg)oIRk?5+0!nv*VxsobVcxg;kNI{BB-4aRS!$^kyVd!V*LU^g(8yEu9^Du&o1B!7U z5~w9&(iR>dC*sPZtK4ce)p^#}ol=OPV`CoGxV0)stK%Sm5}WJi^<&c2^i$|#dl>GiBt_Kt1*Gwspo1)?@wV{F;ts>Dt3 zYk#@`R{nXizbuO$;q&)UFy)9xxP$trEf2s2pCyaS7VTly4RwCcK_4H|0vIDuo zn(pPvYknEYe+R~sQwm3}iK~9wgb2fLJnHD+o4yQ=Dpbf?mWb{8o0iOXM zS;fHBubQS)%>+}84j=1-JYq8riy#8zFMVZx0T?EfC9${f6n!aa@`68u1y$l|xF4#j z7=n!AthCi2{v-Q@boJbdQgzX)?CxE!`uG$68ZQzIS4CgO?l~zQgelKy(B_;V;J!Fn zOra_P+<&8FVbH&Xo`ww~KYs52msNfJ+{;NAz3%{VmtG(C*-mXv^i@bWyu|bf7;^k@ zJl-3i3*cI0l99#7>p%X%jES;LDvP}BmAWuMwXs%gLO7aym-Xm9DQG|K+ygNmT#t{- zb1dR7CR-Xe`(`KJD~gj)vf2)gib`UY$Oe*2XF|NJ>0kpcNWCAK>u|e)yhD&H-g)ee z53Bm94%hXP2oV1E;A(s9j(tjj12!`;F0em*{nDXit=hSh?Czo3tlC6GQh@?HkeE$L zNs*4{aZZ|zpE`xFvjLOvcoC_!&i5QoiODOY=pn&Y z8V@5y+3#^&;x*8pRumm+P z$mw%8MG~-08v-%~_~@(?>B7?)yI*0W<|SKbMpuN-bv#L8PS>mrLgM1In<5AerKuFy zzXC#o(wxZ{h&%tyZ+xMvI_L@K;(aMsY~U~JbQ{!h?lbx!=$pxl;lSg{1|Wn{k@lS~ zF4JAAdN5*+pu5+)F0VYd=J%_tt`@G=jDow-NrKosoJo8yriAEQ8W#Xky%6`LsNN9aG zKAK#{spo2*DYb!IXuX=1Ha5?HW*zNLpA^-#%0`9zucYG0qhLP9T{(`fH&{&Q+Jywt zwFO6oWeT<jHGaJ6-FW;3>UZX^dH~1hFEk*gwVm|f>*2y$= z_6K-(Hp8pl;j_M7vc&?y6ENlXFeX{r!!BRqlaodK946Sq4lrZ45=0zMq!W?!xo-*X z^!`ZS0VK1c`Fg?GpeJiSB5ZRt`H>%qW-|VCq9tLk>s!ZMu#g8+1 zI@4!3d%m(8i%puE!tJ?k)wz>13M?!2(-J=Ko1Pn3t5x>sO?8JM!yx`DQ@&|B+o`&u zOl$82KW7t*3Vaoq1`F%vFxd*x=wg|oxj2><0lj!}OKJZS29>OiOgMr-%{z`Xx-=q= zRFsPmVy`9q4C`^Qwn+Z;nIt3IYeWgZhzK2<ATW9Mf3K3%E;IbBK`qk0xL%c@3>L zb*Vl*Ab>%b1^=qkv1D=+Db-8Nz5)q~Ep2gUt0tVec;ogaY%#Hv1;)KI6*gQWb}QxW zIY{rOPE*lMVnKW-P_GMV2%!#`e=qZ8zirZK$CzoaOxGjh3ugQ*(5l*+(Ivf+y@KU+ zXIB@$S}`5=sd}vD+NQ^zr|Wg?ojLqN#ZcuzMPt}_Jm^<@9*0%zDV!9J4b;Ivu29l* z>_f0UkoG!O)LNna*VdAb;J9+34V^rStGpH~fC&RCLZBF=zgPO^<&+b{_B&q={;f9$P{5eZjrr*e5b#D*_ z_oJ4~2uc-7afBxy*E3{ZioIrFQP*gu(99!nuQmdr7|hPUiigJR6+K>18jGR9@6`1` z(xG3}BJW*qS@{U6U)_G0R37>s#pf{}pYAw6c$RV{9O2@RFPNA2LpEGAl$Pd6VT=x4 zi}oKX=Eb`kq%iZZP#u!Eg;-bMQ*F_NBRF#KdI2Um1h`6Iw^y?t5p8O~&m`5drD~gkk zOf3I%5_Gyaj{-mD){lX$_&=}2R&1%lLM|u`i#e9jT<~a9A2-+_b>lbN7BJ&+-z~bJ zR>UW_r3cgPQw3YeWZNN#>U#z3QQBdqLUBWYqc~s;LHO-BsJl&+CNZn@_;By4r^*g0 zK;r-=Z8H;7P@%WgSIZOgefNyycc$I?DCSa)=}%FULfM%%ski*j&l2FwBWy^4CaO}U zZ$o^!M&DhE)M1hRQ1#5@O^96ySwI;Y92btJQ)aNl=!|mH>1n=o%SR);u#WomPKqnD3yUPd59DUq2dLr5}=uwO~gFL zFRlsEE^O>zUp#=HpuWe0U}v;Y6Puwub;BdTtI{JT;wn4}1RYOVV`p=TVjTF%6OD0$ z8uH=@)un-jcj0(QV67${cFi)nv6Q3@uVTJZ(&vCVFK5fVhn)s0kKn*h0;|FlqoHs- zARGwmq#|CYhk-Z%HTL%O88!vn)cROtc#>l9Fnw?t0Q8PM-KgS>1)raR4(gFpj3EWV zElXfj0qu=0%&DcBnF4~}>0^qGbQ=0Jp4Kg&Z-iKjeEKsu>t5x1YX^%Sfd%GC1pvYHFuOw+$0Tzer9;ao#3hy1Ve zYrBtl*Vs%#(}M6w#H%!wZ2 zPMPf^$uErdIZ-;MqZv5+Yi7C_A3+Uo|6pH6tXn$hGcD2v1w{0O$=8&yCem!>DoA3U zGS{h&>)Cg{mS2+5{Gs=9xt!r#BVIV4WcFe!?~d(9JNXCDMwQt1=-QN=6a3jqfOg5G z(gLf1I{_&bQJ=6SQV#1>NEk&B8(9LB|WIiCzM>ha+_y`9TkFj-O2&%sq zpVHfYL2hSvPhRO2^9z=jZM5v$j<< zP@q&$H8ZU<4!Zjc5rDXJ2gr)T{p3gpecZa(e%St22vUSUZ1@pscwiSQlG1H2Gi$hZ8V%?40 z#x|GjM&_-vqT}^HaEpdDTrIyOY~>vxk&k=!*Op!4Mv#hmFKu zRrO0eehpKN&{s-~ArUUT2ZFSO_d&#nz@glPU=nL49qUQ4gjO0to!IK)Fu~e*ZxPq) z4v{Gb$_nbb^zTX>0L}MecYX!@`In)t6EY?*%vF#dyhUCsl_1ST3X-OfYp^&UuLq35 zUq#&mEi4-g43kNV%nr2&Jj0>Th5ArA-Cx%mo*ta2n_E2 z;$s=I2|CDR_@l%N_2B$7&!9Gdz-i@aNBt0!IB@vXb_%lHNRJc|D6RO@M_|CuDz=IP=R%M4EI39-Sha-p( zIpJXfmZ&_5Var1L7}OA3N?Do_o0Ua;-c*D-pf?T8U7pAaeTzxM%Pk53&e)Rs(TL28biAx4KE$sX7*51)7)5OtQe42i;fM8-3h@K z5v968!cOpo2U3y7Fbi>y7Mi&PL+as-1z;G16_1mq~&1SILg1rUm zo$6#MnOFmDsQ}BL-%g*7^;GkLZC1ki=zhGBxX*0N19#Bf#^*b`PuYyUOUITKyykfQ zcH>*Gw+DR;$2w&xuT^SOsP+kKy>P<$W(ag8$yumO<=5uX%r^X@V)AMKoG5i8?e+!xXBv zB|hVa1PZ`ds_s~9eOmxbELCIbu(?dM7#Swk*Dsw-_owxsNyI=(9DR36T%?N28$^L< zxShB?v11o$C|reDo_HE5fPCuC(1nsDiH*^YhpWT~Kl+rHu1yj7-21XF&0BwZ>%z5r zI%Ir&!0H<1Bh0gBtvWXa*OtjS-)SFzqyBi~L{Sv*hY2+0!(#J3cimH)T&rSSfDN|# z1|2e)N%3yg$64F6kS3AH-sreBHKD$kurOFxNeV+Xf#HmfYl+e5Cuhq0gB%8Q{Y;`d zNIqKaba}FTG-G#?SJY{13F#qh;tJ$!uEIO{D1677$wEMcFRb?!DS59L3O!qZ{`jx| zg-0p(W%TXf721l_`Z_ywwQGk^8B-dt2^oSXh3f}{jm6J>02Ew(`-g^1C$ zyU3fstKQ+8f}b(I;)EHi98sEUQ#FB<*Y~I{!UVeL8dF$*D6(}2(Kx#wM73hW+-PiUEus6U&COyjauP;f*0NRs%9bB?bvpn{= ziy$(dc^mpe1bBxxMiVmn-v6M9Xnd`%sa~IZ`(|WDs0i#d((`gVhlIQeQ-Jx7u?J-0 zwrXg)@Oj2dJMxq=!B&~pbb|5mwfS+DkShiXYmJ8e_!?)rDkfpU5^^ZJW}YPAkvXs! z2#t(D)?f z>uD*)OXUt?<~_;L)d`LmcD9ons6M-Mnr)u|y(;0EP*+C{#YfugTvtvV3IzxXKZ;dW zad2kML7X$Ar4IUzYN zP-;6>ewyAvSM9by(i*ecEQtDpPGGz;N~a}gS$v`uIL^0{99K&FYSp~5R>RFW>=CC~ zH{@|PV+#)ePmid%8=TJ6H; zF)k(j7R7|)x)UmUxE4hndulVDz6mtV?G>rpTIBkCr!XF3EX48Q%C<0{4Qz#eH|}|z zVbZpxAxGt@#*2rmEfk9ISM^ja99LE?3LWObPM(7}sn& zklZ`APgG>Owf?r)mYv3bv#{wN3;TqrH+X*cW@qx#sx>3(%#pZ-nyXKx{IQH_U7QB3 zKxbbB1{Yi&Gp06#bEs{oG0La0Mhlkl?7Qz6(DC#)t*LP1C&Q4Bja%k(kCCOk$rwn8 z=og#N9z~ekbFf-)nLYOTULfM59Wi+g5fHZWWR?=zR7wTFbJJ$sQZ)bjQ{Wfj9WqJo z`(xev&9Vvno z=~ARgM>?p_|9kJ7o4uRcnccmco11TU7W3FqT3FGH+t5tdurCSVfA_z?{~s6s=CewC%D5{ zb1B0SU;w9<7UHd9DK7pUew>KsxBkypy1e*F6`cQTy&*gmjiHiCwio~aev5O)m6pRl z=ND%?{x(F9kKWrMk10qRJR?Q`03srQUNK5E;2*?#^~K7s-0KFF znTWiSYVo+^KmPz4HE?n^Ae$bY?U;j|kcf2-PH`$P<^B0D%wE!jGQc=M9_>i1_>-)R z9nS&)Zh+Lnq2Uw7y&}9jaw?^~o23N>1slX@z#stdFJcqsZ^H+?Eys8@;Ft$W^N*KXMw;mHZ^Q5;0PsFI#UTH19iQ(fTrtQ?K&h%`*td(@D`0&g*k*oV2E0Fn z>rDTvgLpXZ)?FYIed$@KBbwf{`+na+x9;9cCiU%(zw>U7g4YcRsrl6n3@0g-&zlMY zc_oo6cl55g{p8`JYwd^h_n59JHVR6~CnqL9*^ci`c=XwX)Cwi?zf?J{eSlGs@fOPY zVN0tGvRO|f3S~w^AH3uv_x+;qHzQ~H)@0a~=RHX2AV|X)j@E}J=?)puT2G#QY}hV@ zao#BHG6TrZwzgjCRmcNC!H4i-Wks%>OdtsnT@X)21u^PAiB0tX#K;_>%sy zf`4dMNgz`!=MA(Xg!}ztheQgflR*cQ(@V$nLU~YwiT8)JH`|CvWAE54T~Ttny0ReQ z0C%^Zn3pePEpJ?2;44Dc&eD0cOki;b_wectaUiXZQ|<9xiPJRtK08~Q&+$9<&xE=4sg;!>Rid{ zl1{$9zIFv%8SZS$C=?=D9YLqgmHJP?m8@BV1BnVjDu~4tC4F5+zWMt6+kEy6MK0;1 z*$g1_;`$ajN zdUm*6Sv4!XfmS1Xda8!j95g%FdP4_p&S1{$4#qC}mg4Mh*DG3g}z933jOy~~Pu_ao2T-O9%{Qo(@9*VGR> zeCl)6OBh?l7;$lF-_?PS5YnkA;5D=SQhRurbS5q#!=DutQ7UB5@mvCx*_*q*vkS|o z2i{gUX)TgMjNpBB72dV&D1)T332F%!TWuoFHvLh!W1*{(7Q2H-NVEeq6>Au%GHJ6K zVh|(dHW5;zUR$LxAJpH?7cvqh}Un+q-MwDmTt3;&W}%S zr?Lp+QXV{)C0m(2RSS`1JQgouOtnE4F{w;numx4FEmeiKwxOMHcL#^hF!5BW?1b)3 zcucNg-oj*6I3eEKU*>_X9NVf~Iak?W8vP4z)7+%H2GpCFBw<1dmFHXve`>(ZVWRbY zH5G9dcgOrUVd`y-@o>4J6fZ+_CA~R>molBSK*HW=K51M42|Rrw!`8YVf{+Cb%G`rL zx$+ZFIDo}Aj?;Tq`QWXA!gNx_VxD?M$_%BVru+m5f8+pc$kOE-1g@PlF-(=ohr?6$ zgG}T&0ZZTBk$!o`rYyt~61naJv9a!30PCIAhXG7{gsdFfggf;lC&Fw)nJ}B@X60Y! zT?OMr<05(6^3|KPZtbkT|F@Ru&op2(5^@nBusIv0@+ksGvaBX_TkUk{r!f8>`Gj z!Dz*Us^fvE)hU}6M&oL*jiGTss|J2MtkKgBVtq8@({w&W&>$Yd6aqBTd)fJEiI(IH z`*5F8UkDKzP8)3t1SRSH2hxM5oSjCOpaEuJvSZydO$2pd&(Jz zN|Ft0D>mpg71C!U#Ne4;JF7%XDXY>LBTPfiJE&>Cl6@ypuq`78){&p&5ho>>%1%In zu|hwBH47hGx2k$P7)?MrGthAvCsF0UkFtWD)a%iA@{SfR8l2a*f?RMVg42R1KbyCA zJ*O}jFZ|+6a1^+go>m*vrPmD&u~X&R7T&BthCFQ2twQ3cH3Zhyn~!C1;erC}N>eZ#OIgN8yNOvRya&QUf}E_k zem7f)3B4$!pA2$;`M@n{8%{#9mP;>eMQH+|>v0z3>oc4^d>+!BT4*{TAMcL$G9z~4 zlCss}lFcZukJ6k`3jx$NQWmxh)jkXNtbIge3z9XKumnnl`7_s2YKsZiJR9xOlzg?P zgd|W)MxiZJiF^Ao==#gRJcCT3P19vB@V0XZ+Q~OZl`7}DTdJZ zBC6~^q-5#5A^zUDN)=nz)Qxy+FRuMb5eqw+1v#LUbGvICzf$ zdN}!enI@QRYZ=bD{T)Z$Z-jT|DCYo1+f6S2ZW`N}xbA2d*zXKQSjyoabr|Q_N(0AN zvxE&LnB+LK$9(8?YMxj5jJXOtc_lES*-HR`*Iw6Ut=t4<(_bOlD4UAtwUv zWjJyq|7XHC{IDpf+^MG~)iUFuGnrlT}fB z(N`-1*s+MHa&WZRPee&5TU0sSG7%zbuay)K%Ts&aS-&Y4ZC4mAn@5eq%tYJOd*Xg# z;&^x_6sHy!>s5Lw*^AoAQj)H;88DwEDalB+NHM;rlPlXV^{9k`#%{C!A% zHbnWYXH#a|{pia1GElp#R@SSABqH*x0~9hVTlV09jy+~) zC$D5PJURFvPu@Q;XTNd5_5TisVZ(S^E=#jeTk`N;JK^k+-S=bdlq18*o#*Q7{fk>zEn_gLe+UmbSJnl?oSD+i+m{*BaqNS1ow z>1etMPTNl6Rn^A(PR-I;En5lAju+zkbX`q1t3^ zY*1&!h&JQXh%NExmxx5gF)4>e3fAvN+)Ihm{j!Kt8!z-~Vc!pmIHHqNQj> z!65s zoxb~P{bygl^60FHal&BE-rQxlCzbd;pK5wlSuxyMK0Pkx70vs5Kh4V2J85&c^z_lD z75qW3M!(E&?|b`P`}?iBPoOvEOykd-?56u@69Z`r5C5 zNqg?XYgo=kD1@KKysfQG6Zk+`YeX#xg?nXeP%+)aOOWYPtaXE06EV*ti;RYX{DGguP=Dv@#2 zLyekkP4646@>Jh?roDG@8@>v(_)CT#s}vp3^gCPol_YR2ckmJYsoQhpc)u$=r4jjp zbUO01ILvQxcu{$I#BFxG*}V%2zVPhb#jaDlU^+s_;X_)OmX{q9SnvwT{7@B2xu7L# z+h~b&mArW~nOq`5Nqg)^=zWMwlI3~ywN=OqL!;^b)ak-i+Q7l?t0{O( z+soJ8LjJC0pfA%EPcmQggtK2{M0G;_{8T#*-Ghw(AB;wZopYSH=du6pAm;OzUFlg- zktRVtn{ZlMXv$P9z_+~yqY-+4r%R!%U-&m3xD5!=`8I3$apjMWWF*__7!XM|2cRNL zSJW%RJN^E4#Il)<^&gO`dWiOpdn{7uV7K&nUK}lg4*oArCkDwnvC&cFinZ zXd46cflY_V51ZZLmbHg}@rSBEvWIR&=|suDXWq9vitLuWQ^_`Y8$yN>_=3-np_2 z|KWK)a=V|@u_76EYcP^aZ7z`}KnkJDZb)S56a&jd7>elJ>tvO7GS8AL-}}X2n3GPj zf02fq{vK0x6)yNxjiZsH@|wWhxfiAyc(?6wh|>psC}(P|3@u z18cs5wXQO4UeyEU6|oig1=s)4c^fJexlH9;%Yw^gD0_I=OvGNqd;VCaKB_t!@Kf9g zWR6{g9fd0&ajoxt0dc>IazCeD9lyu!e%uW6PO$v*UiMCdwqQ|Z*rXaLF6y~i&5N9^ zLz~D641%Tx`XXKXlgS4GUDYRli!hY5I%FAP6(gVLsQ$eNa;N`gGjF&uK^wi4l3NTR zLt{J0qv+%grG1xSO5Eepow?FA15q)<_H$`tM5CADAU~ieL$8}uv@t*z`p|trMi&?O z_OHZFAwf%tM6WiT)5Ln|7g_FLnOf@y3d^O`kG_oqb6WkH9dx zpA!+W&)^R-v7+p65Yg@>ld)f|VeQsq9#SeGko`bJw|(#Q>&hO3*`Ms`)(-{;il3Ye z260J#;T}I5-L3vBaU=HJ0?tW87hw#>;p32SKC4`#n!>Zy_J_rR#C}0UI)7UW_EMU@ zNFaBqLLzI&o__=1%k`6R{oZwONM=WSNndMr^t|V#>n3sdCd;#>{k1y*u)w39EUxW_ zI!s~LT-QQpDKtPUxA|+PxdKL};}DLM!tEmBm3oDorCwK0XKvFb&W2n0zWTEfG*2K> zwhp(gU9aYLp{UO2B?qKofS|(C1t_S4;DlG*)MX7d!eT`>NAt46>tZr#xJW9YRg{yG>SW6ld{gk~?l{@=>WA0P^Zupk~RTi?v!R?y99_kVk z4rs`j1vx3_$xmh&UH za?eA*)2|0>YXt zWR$SlLGmQ6?PJ)z;gw{`XR#V=+$L#SFIuALhPe{e3h9fUJr4Ct`x>MUQ`w%yvLUB=~PWyw$JTddQq~Te$A0+Y|nTnw`>@1c~Vj?t8Q5h<=6Uu?8k2 z<_k)6%^U=@e@qnEK2D+vEacF;L!&`He)+R4zw<)TU#2Zn5<|&XQ4vDUd++OiAIWIy zCiUI|-KE4Y-y$if1F}zp|GeUj-|p!l%&`-{2k?XQpIZ3G`gNqP2n%r(B@(uc3R{yy^? z-(KXuOFv1b_)5&+=m!lpX+;*4NJh1~4d+a?VO@h4lP7wmj(0n*cyYuJ`WD{_0m_g@ zwXMoW_2fnW&Kg=T4QXycPZf>hIbWeX!rji-(HdiX_3ta$I+_Xh?|_1b5)r!k0> zYlNh?wUI0`_xGahc-g};5N#Xu(S%o-1Y)6RTRF>!KEf^Wk@w8vgin+TP~f&49N1Id~}1g=W@nSKL~(H5;QKGZXs4uAY}54fPK{2}u2 z_~*CEu%iETnP}#H*+1w!!!qD6vifnXOTHfDDxKb_0nw}71>>Ch8hdH#%DRilKVgJ; z#99kiAgmraB4Dr?D%f6b=7$`^1TJJJaB>B zb^1H@_+jJ2#11w5Dd{ghb9YB6TX`~+jOq3Pou@6gXrq+0mB-PV;N`8V!@FZ(sbs)A z`uibx#g#)>QDX|#>N;F(rAY1}7xbnC`TYIkpO-Lt3(l zwBm`R3p)fsh(fM=u9#?&$Z_4Mm-0)x+?ACViGs^YAYw+KLR-Rt#iz`TfZN8F_VmI> zKaO_}pLZXubjR}7vy<3gTs@H!@rp!94^CO(8tv7M*0HRk7 z`i{mrc*A`@4Uw1lv87WY5!+j*-S{%yhR$KD;mD2Ik zl%Oz9DlzhBtDVGiU?t6TDJz8;@-<~OBtS=W{=2mc*&1GVWFX@~dkw3{K*HVy^|yuT zhKsbN1ULJ1vu0V(<@w$B4$~IQowdp={Di^;CMA{lJ6z@2oJ`P_@c0IIcAH;G?9Pq4 z>$xuIe&sa)VrsF>qS?}Gxd@}HJ;QC}nmz=^ z4-og?VVpjg1zyFhqJ6wx`#R?fs{Q^(ZSZR8Ra{Nf>(A5)Z@*ceNp*HoANQTMUknR< z3H+|hp!9X^Ac>Q7Yun?%PlfjU0|@v_?8M7=Vr>_9{rlIqFN3yi%a7uFY`31YVaP?y zc!>5K!N83lzRT~Zbsx#fpVe2eno2$8VP{>mARFG#H~QjBTqV_>-&JfiNT-8ZLD<}= z$U6uVH~b_982r$y@dSyEJSxOJV<%|kZr_i`Y!-1CZr1IE+YZJ~YO(M|X4`6EvYm#T zXSd@yXW2g6rV38tCice}4!3$Ot{cw|+S-U0+}TEAUQsBKeq|U}>t-)f$@jI4hswl- zdEL!PBD`k?ON!?`@uCD-_q_I~t!+_-RcU&Bn>uddo#c2#F;*Y9iwPAX-Vu{_J=KvG zbDoxil$X{FX1X&rikL_J7h&)zO1!BkVU@DS))k-upp0v*M7wNZ>6y;-3rvX}Q2n8) z7DwytJ-wc!BRtmm@WsZ8@@JlUfQ1*(*LgH7Bd5N;hsWpZF5e@rBmr!_pyqtL8}H@I zRJ31y*}jDP40J#7d_>5XKOkQvk2WsE1}}sm(PkE2=7QzP^1mno)hVrjL0Cl)EiGLPegcaGqazRn(c@O}bq*iW_IfqvXVye^kLTYU z7|I>3vo<}H02S$z%H(=x^D{_AG%r=UVd$O1?|s_rmm-UJG82hd1tK0F-I10OVKCd_ zi??dmDzAh3Q(HEHKGOLs`#?n~zSrYRv(y&l zBeu~v-c*EE^rp`o&uM7vUuCVYIztUQJEz5Ra@oYks>4o{9z?`Ex5?nb*2JU8DMAU3 zM6sX}^vBrhs*+ka2vie)N4@=CUUAcll)LpQ#vBD%8Z7z61_;=IkWLdn(`Hw#7h{jt zMh8IicJ!>Y6iXp3L-k3o(ls+oA6BDPnv2}f&q4TG+|0mtGX;T3;qlrvuLp%knuLQkvCf1j1P<} ziP0;>)Tz~&8Dr>xsDvZ!XqG2>q{40}W~laQM1m@eQMeL_li)N!Y2=x1hwBDv)}_LW%RvX0P;vW2&|gB zSqRf7)z_3{Bb1tXG`<_SJj}{`SZdH6GQ3NskAMEQ>V?;<{$mIg%tEzofO*qUaRuU! z(}oeF@1pGHrrtw&3=m!nE997S_v(^p_h6HJ(nX5VSj77u)N4?(u4`4N+!qQW6=lac zVMKrc*zGYqn#AoR(*2JXLwnrBQ90;E2)JkmamS)l^2fz_DBHc~7?GBbZ11e`81haI zSzLelz%uie+-~ee*v{rs#z!W&Kr+7_CpgKf=hx`BhLa;N86O=>99&-c(0pf4Z{gF_ z_Hx!I3o4GgR4Ex@O>DoDuGAE+poQB!$n?E%B!!xtR(I|u_u3=~U7pTRl5FVbI1b|v zA$q=a%s{H<5-1&v4p_#@BxJnqmP#sJS|NjK*Ui$0H1k$>`z3b5ru(?SjHFl-l;Uhx z2-B95DE%OMuJ1qtgXLt~3U0Fb=}to;<J-!#T!fSo0NF8!!s`v{S ztP0Ljdcw+ewhtCVoSn4%`^WOpT_Iq!?ZA*fnye^!Q^A91G%sONpLo`k>dm7HwJ7|D z%Vci3H?tb-O?rltwua~#-6D5E_^8bH zR`cJG8oZxxG}Phg#6C#xSFH{%@X~qRD#7CUxG&uK`eJPgHYl=C&L0qLk_}nG<~3}u zygd#Yj##^pm;YqEe=gk+i}Gm2u@7^=hIoE!lSuSi?CqygEu8!FUVO4TaB?UA?oR0Wjo!# zMPgxGBMbu{L7x!jJy^lfs#rko76aoi6lc+(AHA5=e;sS>j1L{;RTLTsoVsR zkrAi7=d~BDZW}E?3%zm3>Fo%#)iq{z@A~jQQv6Z8olQhIkM#HDWElGj_}-EVp$Jnw ztJL16AA1zIjS204c`I$ae(tt#*3rqK;B(el+bn#FkYvX(U|1WDcCh{5zn-^-{K0TmNfc)hy-kQchAcCowt%LIbdk4Pls{ z1jbVu^l-_shNy%K*EG6tL7P*#6x{{7O|TD?e_Hx8Q`p>@YnP`Co?ZXo4|><5VA90~ zzGqczv4?nacW60gUZoBinzx+jTQ|)AI^RtnofJvD-)X#SL$ODFKlS2|hirSmZ^<_8 z5*0Vb6DtR(B1a%>vGD*2-*x!kq3d%Z@`4sl2sO z!jaL)!qnLxyh(Mb=v^*+iminbCAE@`9+s9C_3YXT7k!8K2kZ{LJ_QWsq9*~Jph=1t zp=$gwlTcmCN}1F$RsJC}GagJz%q2QTU26Fh?HWc15m7vA2DVXeQ$$0i_$YDmu6JmN zX3c92*AMV)p=Y#vAcekEi{_*+VOxF=VV|V8KW&o*K>}Ey0SjatxYJX=tyU|8;VMOn zUdA(_=3-h`BEGA%+>RUXHHXftbX93SqdfaVQ_+BR=_<3gdE))xqXEK|yo#cCg?)6G zNX^HM`t8d_xU9uPig5Y_pR}Nx7H=P0bjM#PIjr!e7Z^@U6Tt*{&A_=*zk@ z@W?nMa6fN$Pr-}%IF&|cet~KA-Fra14X}$Nru`*x3Ii(#%~Q_B?3_C}Q2sTi_+Qb% z!+Y+7r?PRFnkfTb80R<>-=bduntYM!fa+;L918-z^DL6*ZcIEyEDI$2LvHtKwLJWC zFWKclR)`-1Yzvov%EYfg4+jLi#RwEjGs*I=9QR_PRdcwaZ9B~(5lgj zp?I0+|wt?AJ)BP-_@8o~5pg7g(A9`XU18M*Z;& zxvIMv7*_1r*}JxE3VPSc&g$9&=bx*5y>R!36J+_6p+7WiD_gN>vdsdMFpJ z@Y-mJkctgT&oh@Sw7l;sj~7vTTHYykmUNfKH$rj@bRzT;EJ{LIPpkeG3;> z<~@3_G7O<6p<0bFSRd|k4WV@WP%j+L1N^ZM>D*uNvYmTO7Cwk(${?Lx#7Y|&RQh6m) z7s>CmL;$1DcQT{7Cn*U9Rp~O$q2hiTqT{b1pLf} zPez_peCf@x!j}!8A2zX|fq_9O_V&cHnZ(lR2PX?p!U_Gr0~KIDu-FDlx6U2ncF@O9 zwL%F@2BUvGpUemZ4in2$#vYuk?%0dBiZ#WWV?>}KU?@WFXu5XQtwS(;xpKB2?A(Da zY6PleMH;AJB=CjMF!DZrC5Qon3yOtCqfnfK=}4;%x{ka);hCy^(0sXbHYZ(-BSUw1 zp+V+d5xN)^tm7bqjgTH~Qgj%2U5g(gZO_T@;69Xz2vMsXj*UDwQZLnnrE<|ZsxfHM z-2vX$(CcO>rX`d2oC3Q$RGb_xN7Ap@T|R{TbkQ*Fi|#iCnDxVA)L`si0t~Po>Dh<@ zL9Zy1gvS2)8UkaI{Sw(zjJ_?5n=w3|p>MV@2@or7$Ox*@po{rI;3b0sxd5C%14ZSJ zEYSrhg|g`^wO$xmJjsf-(w#1&5fBY;ftK_U0cThOCfTM%bzzh26x+8_99WAmZo{Xi_3H5wGju z{ct-ya1s%r0RPPLYkaYBk`*F0=?%Ebn-NVkMCy9CySi5fVk#mC^~lyj!$9bc(rb#9 zpHqEvGCMJ0#2m(%74{Ku7YrG)$qlu_B=Y$CVvr=?#%mvIwcG;L&%{kjLMrNLp{miR z$=F_ia}R!R;O-N~=eil2&KFA?1&Mi0Oh}tA##i3q5&~^+uRUkW!N7*QGI@4c$KE?j zt5fbvf2i{{6WM%mx)Dmf(FMc>6!{q^CvNhxC*e{*j+N*ea1DKZ!u&iPEBO?!LFEWV zO^!O`!26;>4n&mgiZ^nIK3ZMxW3gNqj}cE4F`rfROF>fk{TgmmR@$7CrlT$JeUO+G zK;bbV{MEa0*uUPJ<(z0~lY^q3pTdb*+hPFMdbNkofKQ|pQk zrDfuS5w0AxJBXo;ah|M}YqzBouVu5%;m=D^ZuneK`=a9@AE)zIjUX;3?Cp$R;^}VZw1lGN14h-pn38`_f zrhr#Mo%a1Q_}<3du%6ch5|c+&zQRu-7^qX<9__$&QqCbhu@@ZZxr5`A+X0 zhqVUT%0_Ys`C>iLqz~$2OFj(aMx)nF*s0b)R=pA+@(NL~Rl@>+aUw^6fNuWkr>v<0 z)#?)o8>%0f)ZKDQr*`eW^P$oIcWvuUryNY8)!kf88aD^9hGCJe;8_prfAxuBVgYL= z602+;Ekr0SgAE8C9;(O?7D`f^$WyzUGvKok*44NE9Y5>xg^ilE6ZQq3fD-q3-0TwF zizDw*IV=xiZjNfES8@6tap8gi9W2guh|3bKzL%x~vl6{|O^q@aVpZ89Bm7{w8Y>oO zr(~`7GFb@&Duspv6UyE8Hs{cSAYI(z#{64ZIh8-}kS!xJ^H3i2bg<=TlA4H*U+b%+ zjgShZBo9*)oHpN@a?HW$w5Q>%QiK+I1he57o{f>G~q!Gg1doI0kR8SWbX8q zkz%k27iCht4=dm81hY!qpcLU(IuLr9X=NjQrPNEF93 zsT4Dd`9tsUWhsX;-QD@f0xh?Kxu+Tq=?E2P3gFUmd1t_@p5PgqbWIkqu-Hh(2qwM9 zF|lr>0`J9fz39G@*1<_LXji1kv6IL2U_?Q2DUyhP1yn1Ck3@0ClA=<%bwDVZDux+x zF*@FEIw?`uY#5eAT(W};Wd_6WhTqTdLEkL}(`jZ4=vdM*s z!5WgMMXg@b*5YApF9*8S9ef5UduIx`svhT>SH+jB3s@ON#61loCxa$XQ?&zbp> z5^t`5a;>(>)`r6SIhCA zd+zNv`BJPGbChDT5d<|t4X@`il!(@%41^G7lA!(_IxrrI^ZrKl-hGp=b-74ukj2f> zDv-1cZ@v0i_1WTcN6gZDN8mz`=WgbUv5t_Jth38MW4v@C`HB7pdeK+cd#t{jy}pV# zxy%cvQtW%@d3O&ec0g7%^ULYo`nsvd{Z zsKe0N*0;6f(1_dRi#Ry2vi~#5=JI#$Vq`RVt=Epe6jWL4!8LThO}kSVE89#yoy1SE zfx{ncS~-tlf3*=Uu#0>w-A*qn~HW2Uk-(o#)p z0)sl*kfwMiNg*%;4by@DqmI|>7LU?T4c&>)#7OWz{F0rIzmou_50ACL%988tNpf<4 zV1CJ+Z9TuQ6si>#{96vBe`2(#>wxO84J*wAoKE+*=2)#hD)@Ln=n2sJ7;$&<ZV zQ_IzF;hnoRC7-OV!QEutJVA!53&0Z&=fJ~xvNxfMS`61}q<_{{Fs#1ea^FuLO*HeK zkY7ZdgxgTso{a(BrhI{Gr;w<@>mo!bhSmT;Yxms&4Lo$~=mNc)-P*`7!x`KiuqW<2 z?udGR%(?qc3H|aa2HBH1XhDMw3~q4;>=e<;pX{@-zxWR(@b*;BuPLNxAxd?PVbb?= zouwD=PdJw~IS~k@LifsmJxS2BS4*?Ei(1RNYjUbC^llu|Z=4Bva2^{NG2a~FiyNOv zslm!U#@zzfDA3E_-Na6bTsAE{1(Y#wpH|-2PvhZyvOw=jPscC|-|#eJ1XY>yZZ8pb=}uqf-v zHxw9f8gB^2F)L}c|5Goj)}`aokd!bDLuj!=z*{`A6}iuRt_`H5KudruK<_k}6G2*3 z@wh6TetOqV67Q6(fvkzgYNXlNO5f3N)Dq)v$U<%v5XU~A?7ZPKHU+*JRT_S3NG5}q zUl!~jq4A5#?Ys5h(!WC!wWz3Y;gtWQ;LbLNdy9v$#em8zXmv2rILVpvL z4>IL_mVrXp-MhX40KJeB0Gwet)#9&PiGv$Q28}|GmUN?W3blFjUPO$_!iSp93Q?!e zy`C-4S7I;NtlHX4mWCQA&gi7vhHOkNSe{#S$o~>+a#j(>Tei9S)b)w?J)_LgX{iU_ z&j#;Ie|h?d72cP^@WHR7Bt6QgbV|_WNzg)WJo~DF9rTTIm8O}=zxrESp`xzKWG8PU z2cv(EV0KBa{*bbFY~eUxvvEvr^n=4Sm~9JHTV=2#sd5(4lx9Qsv&VzHA4LXW)z97| zySuB@%@(wuGD2XcwfDvO2J1^4RT)ygcb?XB+c$2_&oys8a#3{omT&DSQypcQ&!Os+ z<5O|bMr}QKc%tATAI^9K4}QtS`yxk zG{h#O26=)b!D&E)HRRLRm%_SjBxKPbT&x@O(He@Gkq8ZNO$I(hCd>W_5&D~QgID7? z{;S&FkBI(FT9W15k`)2l5HO!lx(5b=gC0t5eeoAPK6b2 diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html index 5fab3eb1..a8fb96d7 100644 --- a/docs/LICENSE-text.html +++ b/docs/LICENSE-text.html @@ -78,7 +78,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 diff --git a/docs/articles/AMR.html b/docs/articles/AMR.html index f06c27bd..6c761450 100644 --- a/docs/articles/AMR.html +++ b/docs/articles/AMR.html @@ -40,7 +40,7 @@ AMR (for R) - 0.5.0.9023 + 0.5.0.9025 @@ -192,7 +192,7 @@

How to conduct AMR analysis

Matthijs S. Berends

-

15 March 2019

+

26 March 2019

@@ -201,7 +201,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 15 March 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 March 2019.

Introduction

@@ -217,21 +217,21 @@ -2019-03-15 +2019-03-26 abcd Escherichia coli S S -2019-03-15 +2019-03-26 abcd Escherichia coli S R -2019-03-15 +2019-03-26 efgh Escherichia coli R @@ -327,54 +327,32 @@ -2011-03-23 -H4 -Hospital B +2014-08-13 +C5 +Hospital C Escherichia coli +R S -S -S +R S M -2016-02-07 -A10 -Hospital B +2017-11-08 +R4 +Hospital A Escherichia coli S -S -S -S -M - - -2017-05-30 -Q9 -Hospital D -Escherichia coli -S -S -S -S -F - - -2016-09-19 -U5 -Hospital B -Escherichia coli -S -S +I S S F -2016-03-20 -X10 +2015-01-27 +U9 Hospital D -Streptococcus pneumoniae +Klebsiella pneumoniae S S S @@ -382,9 +360,31 @@ F -2012-07-29 -D10 -Hospital D +2010-09-17 +R7 +Hospital A +Escherichia coli +R +I +R +S +F + + +2017-04-07 +Z10 +Hospital B +Staphylococcus aureus +S +S +S +S +F + + +2015-08-27 +C7 +Hospital A Escherichia coli S S @@ -411,8 +411,8 @@ #> #> Item Count Percent Cum. Count Cum. Percent #> --- ----- ------- -------- ----------- ------------- -#> 1 M 10,422 52.1% 10,422 52.1% -#> 2 F 9,578 47.9% 20,000 100.0% +#> 1 M 10,435 52.2% 10,435 52.2% +#> 2 F 9,565 47.8% 20,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:

+#> -> changed 4,018 test results (0 to S; 0 to I; 4,018 to R)
-

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

+#> => Found 5,648 first isolates (28.2% of total) +

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

For future use, the above two syntaxes can be shortened with the filter_first_isolate() function:

@@ -516,10 +516,10 @@ 1 -2010-04-01 -K1 +2010-01-29 +P7 B_ESCHR_COL -R +S S S S @@ -527,101 +527,101 @@ 2 -2010-04-30 -K1 +2010-05-18 +P7 B_ESCHR_COL -R S +R S S FALSE 3 -2010-10-12 -K1 +2010-06-01 +P7 B_ESCHR_COL R S -S +R S FALSE 4 -2010-12-05 -K1 +2010-07-21 +P7 B_ESCHR_COL S +I S S -R FALSE 5 -2011-01-19 -K1 +2010-08-20 +P7 B_ESCHR_COL S -S +R S S FALSE 6 -2011-04-07 -K1 +2010-12-14 +P7 B_ESCHR_COL S -S -S -S -TRUE - - -7 -2011-06-16 -K1 -B_ESCHR_COL -S -S +I S S FALSE - -8 -2011-07-16 -K1 + +7 +2011-03-02 +P7 B_ESCHR_COL S -R S S +R +TRUE + + +8 +2011-03-14 +P7 +B_ESCHR_COL +S +S +R +S FALSE 9 -2011-08-25 -K1 +2011-05-28 +P7 B_ESCHR_COL -R S +I S S FALSE 10 -2011-09-11 -K1 +2011-08-09 +P7 B_ESCHR_COL -R +I S R -R +S FALSE @@ -637,7 +637,7 @@ #> NOTE: Using column `patient_id` as input for `col_patient_id`. #> NOTE: Using column `keyab` as input for `col_keyantibiotics`. Use col_keyantibiotics = FALSE to prevent this. #> [Criterion] Inclusion based on key antibiotics, ignoring I. -#> => Found 15,948 first weighted isolates (79.7% of total) +#> => Found 15,891 first weighted isolates (79.5% of total) @@ -654,10 +654,10 @@ - - + + - + @@ -666,95 +666,95 @@ - - + + + - - + - - + + - + - + - - + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - + + - + @@ -762,23 +762,23 @@ - - + + - + - +
isolate
12010-04-01K12010-01-29P7 B_ESCHR_COLRS S S S
22010-04-30K12010-05-18P7 B_ESCHR_COLS R S SSFALSE FALSETRUE
32010-10-12K12010-06-01P7 B_ESCHR_COL R SSR S FALSEFALSETRUE
42010-12-05K12010-07-21P7 B_ESCHR_COL SI S SR FALSE TRUE
52011-01-19K1B_ESCHR_COLSSSSFALSETRUE
62011-04-07K1B_ESCHR_COLSSSSTRUETRUE
72011-06-16K1B_ESCHR_COLSSSSFALSEFALSE
82011-07-16K12010-08-20P7 B_ESCHR_COL S R S S FALSEFALSE
62010-12-14P7B_ESCHR_COLSISSFALSEFALSE
72011-03-02P7B_ESCHR_COLSSSRTRUETRUE
82011-03-14P7B_ESCHR_COLSSRSFALSE TRUE
92011-08-25K12011-05-28P7 B_ESCHR_COLR SI S S FALSE
102011-09-11K12011-08-09P7 B_ESCHR_COLRI S RRS FALSE TRUE
-

Instead of 2, now 7 isolates are flagged. In total, 79.7% of all isolates are marked ‘first weighted’ - 51.3% more than when using the CLSI guideline. In real life, this novel algorithm will yield 5-10% more isolates than the classic CLSI guideline.

+

Instead of 2, now 8 isolates are flagged. In total, 79.5% of all isolates are marked ‘first weighted’ - 51.2% more than when using the CLSI guideline. In real life, this novel algorithm will yield 5-10% more isolates than the classic CLSI guideline.

As with filter_first_isolate(), there’s a shortcut for this new algorithm too:

-

So we end up with 15,948 isolates for analysis.

+

So we end up with 15,891 isolates for analysis.

We can remove unneeded columns:

@@ -804,13 +804,13 @@ 1 -2011-03-23 -H4 -Hospital B +2014-08-13 +C5 +Hospital C B_ESCHR_COL +R S -S -S +R S M Gram negative @@ -819,16 +819,16 @@ TRUE -2 -2016-02-07 -A10 -Hospital B +4 +2010-09-17 +R7 +Hospital A B_ESCHR_COL +R +I +R S -S -S -S -M +F Gram negative Escherichia coli @@ -836,41 +836,41 @@ 5 -2016-03-20 -X10 -Hospital D -B_STRPT_PNE +2017-04-07 +Z10 +Hospital B +B_STPHY_AUR +S S S S -R F Gram positive -Streptococcus -pneumoniae +Staphylococcus +aureus TRUE 7 -2015-08-01 -Q4 +2012-04-03 +J2 Hospital A B_ESCHR_COL -S -I -S R -F +R +R +S +M Gram negative Escherichia coli TRUE -8 -2012-03-10 -Z10 -Hospital C +9 +2017-09-09 +U3 +Hospital A B_ESCHR_COL R S @@ -883,10 +883,10 @@ TRUE -11 -2014-10-21 -G8 -Hospital C +10 +2015-12-21 +E1 +Hospital B B_ESCHR_COL S S @@ -915,9 +915,9 @@ 
freq(paste(data_1st$genus, data_1st$species))

Or can be used like the dplyr way, which is easier readable:

data_1st %>% freq(genus, species)
-

Frequency table of genus and species from a data.frame (15,948 x 13)

+

Frequency table of genus and species from a data.frame (15,891 x 13)

Columns: 2
-Length: 15,948 (of which NA: 0 = 0.00%)
+Length: 15,891 (of which NA: 0 = 0.00%)
Unique: 4

Shortest: 16
Longest: 24

@@ -935,32 +935,32 @@ Longest: 24

1 Escherichia coli 7,952 -49.9% +50.0% 7,952 -49.9% +50.0% 2 Staphylococcus aureus -3,886 -24.4% -11,838 -74.2% +3,895 +24.5% +11,847 +74.6% 3 Streptococcus pneumoniae -2,509 +2,502 15.7% -14,347 -90.0% +14,349 +90.3% 4 Klebsiella pneumoniae -1,601 -10.0% -15,948 +1,542 +9.7% +15,891 100.0% @@ -969,9 +969,9 @@ 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:

+

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

+#> [1] 0.4711472

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

data_1st %>% 
   group_by(hospital) %>% 
@@ -984,19 +984,19 @@ Longest: 24

 
 
 Hospital A
-0.4801481
+0.4674370
 
 
 Hospital B
-0.4811895
+0.4698925
 
 
 Hospital C
-0.4707087
+0.4813574
 
 
 Hospital D
-0.4915144
+0.4712389
 
 
 
@@ -1014,23 +1014,23 @@ Longest: 24

 
 
 Hospital A
-0.4801481
-4861
+0.4674370
+4760
 
 
 Hospital B
-0.4811895
-5582
+0.4698925
+5580
 
 
 Hospital C
-0.4707087
-2441
+0.4813574
+2387
 
 
 Hospital D
-0.4915144
-3064
+0.4712389
+3164
 
 
 
@@ -1050,27 +1050,27 @@ Longest: 24

 
 
 Escherichia
-0.7282445
-0.9031690
-0.9756036
+0.7272384
+0.9034205
+0.9763581
 
 
 Klebsiella
-0.7270456
-0.9000625
-0.9787633
+0.7457847
+0.9014267
+0.9760052
 
 
 Staphylococcus
-0.7220793
-0.9184251
-0.9796706
+0.7245186
+0.9181001
+0.9756098
 
 
 Streptococcus
-0.7182144
+0.7234213
 0.0000000
-0.7182144
+0.7234213
 
 
 
@@ -1081,36 +1081,36 @@ Longest: 24

             "2. Gentamicin" = portion_S(gent),
             "3. Amoxi/clav + gent" = portion_S(amcl, gent)) %>% 
   tidyr::gather("Antibiotic", "S", -genus) %>%
-  ggplot(aes(x = genus,
+  ggplot(aes(x = genus,
              y = S,
              fill = Antibiotic)) +
-  geom_col(position = "dodge2")
+ geom_col(position = "dodge2")

Plots

To show results in plots, most R users would nowadays use the ggplot2 package. This package lets you create plots in layers. You can read more about it on their website. A quick example would look like these syntaxes:

-
ggplot(data = a_data_set,
-       mapping = aes(x = year,
+
ggplot(data = a_data_set,
+       mapping = aes(x = year,
                      y = value)) +
-  geom_col() +
-  labs(title = "A title",
+  geom_col() +
+  labs(title = "A title",
        subtitle = "A subtitle",
        x = "My X axis",
        y = "My Y axis")
 
 # or as short as:
-ggplot(a_data_set) +
-  geom_bar(aes(year))

+ggplot(a_data_set) +
+  geom_bar(aes(year))

The AMR package contains functions to extend this ggplot2 package, for example geom_rsi(). It automatically transforms data with count_df() or portion_df() and show results in stacked bars. Its simplest and shortest example:

-
ggplot(data_1st) +
+
ggplot(data_1st) +
   geom_rsi(translate_ab = FALSE)

 

 
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:

 
+  theme(axis.text.y = element_text(face = "italic"))

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

+ coord_flip()

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 c93a5298c3077aae5c95081e833189561d500a34..bb00739ebbd01b3ed280842892c85316ecd50b66 100644 GIT binary patch literal 35915 zcmeFa2{e{#zdx?sE>9D7l1(C&2(cT4Oob9Mj~RDLM23=iYVSl6b~0p6CG(gebCZOS z%yY?*Ib@#xpG)ul{my&NS^x9y-+9kE>#TLG-nUkp=eeKzzOL{0GkveTl@(>SY-HX@ zMMbqm_O!Gr71g>2R8(u9Q+~kToavKY!EYO^PoK4+qT1<2{!MxCzCW!q-o9?@R!PrEH=&unJ_X5L?0*b@6^&MG zG;kituI@CNecITXA-(%2ToBbm-q;us@`v=aA6f9*@tzGr`0e^zdTa8xcR4?j-*ziK zUxVMIqpq*TZ?{C(P~$f`#~*0$+pdX!;0Fx~V?^EuTC`+x+&z8d8vm@-z`(%SvuD{o zeqa6a9HmhY4i0Wi)JUR}Ja_Js-%b(cd=cfdPcK&KAt6mq6vF8hg+6_d=dY@+?wqN>T{(Wke0WXS!;?O& zZnK|Ut$Kc=X5~6?pz7`0FU=XB`>MkGtHN`wKfN6PTsAXMXJW`r?yK*K^Rz-?f>xac z_G7GKPT#)No^Q*su%(C`z1;kZ<3!Jg4<9!17h2cHtKjafTenUvPBBu#efhEMJ@O`v zDY{K5hww7*Pal~U6IxHhGFxf5d==jv7wtA5T^~v*x|^u!l@Y*0|Ns}jB#Z!LrBD40jo|?0fFqStRoTrGb zOV@q)a5+z5kNWbhqvnn8_H4AaHtQ~t8f(qw@klQy;eH$&%dma>b_Rxqn5!op9UaGt z7c3hlw0ZmZKlm!k$;ml3ukrmuCh%1C9=SdJKdloo6&ROT!fQ%WI5;>OSQYj$m*>X* zpU*JP#BxA4XES?Ge?R9|Z@EoMcBAcQb#!zL;&Os`=KBOogv}e16MONahVDzYOLsh6 zvE+mG4rbw2ynOkR>;c@!r#;cXu&OY}IfzCD1u;l+adXR!mT&QuGcz;8qLZW)*p0Mi zoR^WZ_gb-i%kFjL8sqgFC-DsOuMKRKjb)gp{3~-A-<;z~Ep_ zi@D$fx&av!-xJt)bJR08PjLwd2+XnHJ?$WU$)low(OLRZM8%421#Z)Ovu=5H8i~cP z@7}$mdpXft$+J@@=ki%fjO)U*MO#ja6zUe$gK^XDH8QxamE|QVicQ};*}YqPdt+l` z(@K_|DCeGEUt^oJ8Q*t=Re}5CeKF^0+a`TMyW!^BH(z;f!8R5a7WNmNIDPfedwhCo zHWzE`n{yAXWZjdio#nJI!>Y}s?GYIwX z`kP&vSDtPdY{HFnDe{$Za&nqj=Y@@EV10TIZgH^7i*x7B#W1pbpa_^Z@(SO((qA1p zH#fJXV`n@stAFmLx_utX>gwuK(PgH`|14TQ`?9G?HMO?h`k$=0q--5mJ8G#};5jO( zzc}B`zaxJW%PuS?VSg^F^qF@b@izbYQvUzk1OCVVVE2}eHB=9xvfbUSrR-z)jz-VQ zN!hQVy7kLHsqb)pe?a`5?{{7|%liH0S%E8^3_hjp zKU}|YPhx525xP~GQHJN}I_lHmM=hB1H%&d+?|buh*thV*aFqMSTTS|An7%eKzMav^6y~v%MxJC+WRk*UGTzPbrJCT6GpW#=cDCz$+bJMTBUK zXQD*&va-It+{Di!V5W{1c;dv1`UJK9nrMkjA0B(LxjnNTY7~e7c$unKQ_?uFGC!17 zva&P=NMutZmOEIxytL3|*Jd$wbUj}7R|#|U_;(S)PoF(|W>OP%{>>d(B_&$+3l}dg z_i##-S6B0KaXAdch72|iqo<>31J<|>Cd4(GyOSNd{(byfKj7lrPA47@>lf=7UmImi zOgM;&o4$WQ_wwb9C2d!`m{eJ~DWid9f-C?1S#*cp01F zfbv*pkrV~BXnrs$tu@C&H|ZkKeX-lpJl#v-{s=XTn-LKaZI%TVlYLddnEJq5T_r1_ zCQ(fOf`enE6w_Svo#!7hZ%W<5{`&Jco{`qE`aGNdiDTJYgaYaW{e=7OzoL~WY~8p+ z(6as6mGcvm^HW1z&SOO(hHi7yZB}WmzK`__>?}G9^UNGio$_SbP3`~WT3YxA?fCfe z_LhBz>9{W)vd<~syjMq6b=leID(`liO;j|BzQ;bkt*qR{o^`n;vwJ@9G1x`ilP7>9 zef|ASiBs1_6VuxDo8z6XeSH2KgS+T(`m5B!iHh_7 zV$*&iquNDIQ#-5*uXH;0Hw<3IJ$=50Jm3rS2CAy6BefS6@494HbjqhH2`_!C3m3F1 z4vG6VP}kpcPsyOrVZ30hSl8ltE!db@?j#ovPm;y5w06*O$^8-e7z ze=;`2GU-Y416D0q7`eM%rOmKu&0w+$_1^*bB=tW5ya~VS{6Jh@UfwyuAvH7WcL&RO z@qR$D4Xh)bMGGKciNRLjws{qvH(pqd+U{NPAI-B!Oe}Z`@b!~F*TQaA|B#io`?~Mr zDMHuRK2a&zmm?p-$LT2=n=JVza_j+IZt(eYkC-lwo_AE*L$jF@@-VIfsDwS}26Hp%;kO%zL8=>Np*F|EFm z_WdKdUDcJ9@(KzmfkA<79Y6Z|ODxYu+IMbXk8qhNcXk)X<$Sz;seX+N?6xp4gyGoPfavIzR`awDw}lbF{GB3p-!?MfolGN`r?v*sNrLOX!I}jP zZUKD_7fiz%!wTR7Ka!Wnj?x=yOySY2uBqwDx}*je-e7msqBT&jLG{&qp!Dtx?2QXx zlUWX;2HM*9BN}TH)Z#YK?`vk?fcIdId&6q&L02vG`Ofh0aDTMBTj_0v9Y-&lHY7G& zii@kVnLbFP)%T?~mN)JB}u|N`c7ye9%a`Dh^MShUw6Sw|}tP4(!H{ zytigvU?tU?%6acc^4nigUr76i7yQ>x9g@x8V^kA>M~`1)*nFd8vVLL~OwuQS*3ET1 zWJ|}o>q{>;|HH!0{{n^oE}-zw73lu@b0jpyv;wj~%X|G>*OQZz!8(^r53SvxV9vXc zy5Dt&!bM&XfT@T7_mADzU3X+?^Ukre`WLJdm|UV#2)ce=;&!P~?@F2&RRv9R(4dB# z9DV4i`U~r~PPb``KHQR8ey4Pg4#-4G%m!clsdi04N^i-vQlpH0le{CG#cU4}wt^Ty zyz!RqzOK*rP-T(qQSgcLf@?3?KUh#q4Q19i~( zJU26ah*OHj-z=qU*!#R4|&)`g10ZavAU9~c=KdH3#>*FVYVK_Ev}PtNIM-QhA;G~@R52HUscmZuOU@tMjXJNXKB zKD##XVM)*fO>4fXWO?fOZ)-*DM-(6#WLqWF)TQ4U61V$Ng(99!lOJW*2;o1%4}eO1Qh zUUe>g{lG#%JX_@|L$G*@#(B2GJrVLl6b4x6m(_@}J6Oxc{pPT6Q z$J(*S^=KJ58oTQS-nb{W`cU7#3q8DP(L>ilH%ik_6 zgb4IaT+BldfLC6$01cn*M_L6;sw04c_igoNTmI?==qEJ)<0zs7|maYMOK04*Q zk-Z(uB*eh!lA}m=>+t6pFopylD|asEa}nP z59mN;{9Mi%ohQKhxp>xS3UmF{eV<-JC2Fs##p&chEMj_SOFKW-csgc*S>uH^s2I=0z2j&zJh~u z%IvoDYX5OYko>3IlBJPnpZ(;64Q;9fz?DEuY_PP%!Mxa|JPEWi@cat)w)90tLT>L? z@Dy^N)6c!)W-VG6EdX9=!H3bw-XM@J4IU(R{QWIyT^$e>x25&9ni`8`Ot;a zlyd_gVl{Ff#&aD$JXy+U$g3n6U|F&>eWAQP&t^s@`g}$+R+&a;+hd>^efthub`Pxl zlG$z_=ep{(w4#43eqHEVDHiQGJ=m5z)>D2@ih}LX+c4b$s0>ieB>8M*d4VT(hiutS zd%d{`#%BA~yZx)m73bR9y}c5Rg-NBxA^O3Qk@^YgaDlq!s_i8yY_8u_E?v4*G&SWO zapesYXN0w6!$kD*x43dz7yzy3_h28oEKM~@QDpF~*x2gXF9n+P>N3uk(Y;JcE7swE z1cBUfG_PNh($dl**lzu*Sdj7^WYKKIk^vcF_dqA};V*vH9Wz-ik_IuF-9ut&Kna>r zf%zvW!bv%zp-zE8K`@^hO#G!N>=Cw&XB&dq?Ax!Di}QmP`1|sL9O8)rh5IFHlztvR zTqAneBOQB@fk(4GFP9V$;p8R$Hb$S1UbNAiu?vI@oq5oxOOmZ9W~ zKctEAaB($v#9YWyVLem-K-3uQW%WL`+GZT<^$j%PNiPX~feL=amA`nl+d%OQT#Ya| zP|Kq=oeLmuX5xe>iyc)p;1m?Jx3?wTNG@pRWC)*r0Ne6hjr*vxdAi`LejQdkag&qO zc1VG`7LlleviJ6J@W4@-T5zkK;5Y!rRPDPsV&z_d=a&?mrk!B~#?J1crYLOe?+dob zdEkHro(|dSNh!)YI>+3X7wIH@wjbawmd>e``U3X~v}$s4(h$ucAYkjlovTz1Z_(HG zSz_7QVWOOK zW+@*ZM9IxzWoc%p{q*j;;2N*-w79p6gF2(en^I!%lFsztJ(fjNjXhrITceNs#SPP1eHy*QJLeXvYgLrpsv)tm*e_ApRQkO5@D1Py)9#A8 z+Y^gM_MkR)lU0Ht!NH19Qcwm3;@F+Zv$b;hyn_uUCGNk-wJ-0}3`=?pXYu|WCGIOl zmoI$%_#zD|0E8I#S6c+X{oi^I$%s+%w5)9CFS1*i?|=lphnA6fdgV@<-Yn;W$+X~VMtE9TSBzr!prxHQwn22n4iRaREk@#_ofF30{z zbAY7yM}8G>0^hw8Mei=V!}Rn*d4S>4pw_~9vf#9{%^F^N(<_OLWZ^AP?@&Pviky6z z4qqH?&$~fQn`&_*T_nS`r8*=G34q??ZbjgyuFq37{3k5Km9x{A7HSvHTTXhXsUKhw zOzQY;th{((s?>1Q|DqTOz@XaTPbqKrw0;x?;F0tHvP|b+)|PdNo>-%;m0G`ziu?=U ze(^u)p>dMu{+9^%-_tNcitqx>C2)`N#hku&|Ni~xSzDUd2>nbUKx$uVax$-7*|YV- z$IEx#`;jHR?8j8$8)f*HRmQVZggxWGMM5bN(I{p{d0#BGgV9_q_`xb$4cn zgVlX;yvK_(+GQfjd6cx0w2&l#N_RJZR>GgSu&qV>()7tnjJlqaXZk{6YHH zgS*VaS9{*x-E%K`rtA&fYW+HgszDHr*i=2_!|gHGAFYQ(2lzf*7gzI>3`^~M*H6zg zh`IXw1s6a6SYChBCiXil!Xy&G?g16asx>RYtO{5f>}qbZzrU}~z;&u2QpDa8nrE6p z5vya*-3vEiPJ;{$0fa-Db%YFM`RtP?N8;EqCX! zYqQ8YZ&> z2J3{7iG~ODpN5^#s)8g5$n=1M4xnP>69cuA8$$Q8Xr@!d==CiK>)?g1(=8^3F5{(( zbCb9ed8mxw+ghSakTUf%FUSIE5Q!fY48%NHH+R&zYoQaL37v8pkKcn1jb!>;of2B1 z6Ve~R_g42f#lJpZivoQK(Ffq{Y(eJ-xRP;5umhb%&hRNJH(3?W^_fID?&IMxhyR16 z)!SX_V{`Q?A`KVc-LC}=4ck$O(!Y!+)7#&lrjtF`Vc&($uOu zyxVt3xGk#4?9@HUM#CdD6YaCbg^BAGdcC zEq)zx5F8NGVY2Z6u?e?BBy}yiTWY@JYdf4Ize$hn0 z4k`%}Sa*bp!N189T#Bn+ty0vHJ>Pr@SQEYfrS?%7AzSGSvMk_P-eoH@VhpH~Od1i` z-Gq6Rh7rs`VHXt4E$nH~GTg!r*s=gxpP+qMOiXOf>^>??2qS?7c!B-g+{{REF=*+j z=;mP$mp~4@9rPeA`vPOZh#`BwO|Fh zf^n7~L;YUtoGE5pHaQ`e2gbeI!+NSgEAH{^rrG7*13-pU)FBf^M=Rp2_WGi&SHb`3 z3pLrN6crH~dUhZgC@)`C){ADR8COkB4L|?fmq-4R6o#fdf%5x!+1wYe;Fiwudhb_z zQaIJ9i&{X-PF$Adg|V*681SB=@i#j_HI+OCWZ7K4o}ds~)K+QLYWB$ZML>qX!*uw`nb3gX;O&ylS(oZSBBdxzdNv9jsnwnIyH=$gQh6cA5%B}C zI9VGjIt0SFWmmD-oL!I{NgpNb73Mf+-%FSzM|qWyi0zj`Ab~a4z!iNcaLOnE&zjO#}$XNO@I9OSq#SAy);) z4EEqWGs^C9+c_Z$ybkzq2?ZhGu%;vheMTJxw#03TIC;nPB6WTuV1q?3z(@JEj}Kri zUD5-TPn6l1Hz}uvo**;G?g6b|T`Y^Zh>{Zr5_@kF5d(JVy%Xgg8|b-H?Gny5OzrR0 z>dLn@-{~Zdm4as*0i^~^YuLVcG7`FiAhJY`@gE85X9VPs=6=r#Z@Pxe$!vjkd`^h3#n# z1#i;F28D7;5HT#9X@?+ap-l$PDd-?5*OsM-9NvesnnWX}#Ft7eH=d&B#;``fy^?e! zLXDxun1Cx`5xj6;YI2W_i=&0LK@;*M=lg!TOVl8k#eYcAoW=e1p@6MW2l6-6XdesYBEYH(-G76&8o>5E*!U&nz|g44)@0o59GN?b!3e)Srmz`ON!`__0qO z^Z{unm=Mkk;E)fvi7HYwn3yDvo{H{36uR=4fcdaGA3%mAhCJ_fbC^g_0O}yTU`Guf zj5?jF#B}VMY3u}%;7GKMa&GqPCnAQ;J;S4!YPYE=Lh}{Kas=1$pff;oVKj8fSWI47 za9XJ)Luxb+ObbsM0}`OSE+VZrIWYk)Y4dUer=HV5ETj%+ zn^E*@tpN_PUgSbaK488GdhT)87QEb*vYjD|5qghQP=v4yE|4W&A^3DNQDAMS1{)Z1 z2b0Y}HlUBOd(=LX8B47u`W!x|8?FrDMKOH*8P{#HL^&i^iXI5I9Sb`jqA84IlHLWs zCXFdpKIFp8KE;Up0Re}gb@n7_OHv5Z!Eytx5Hzcg$9J&WHJ@w9i9Wp-20ep+StaKU z^=qK9Rxr&0LLn`#gt*UzJn}nc2JsDL6CPkbI`evPssc+x;D&y*N)(xrnW8aUv`Zi) z!dG)G+U%P2?ZwbS8u)thAR`mGwA6>uiw@eFvVRx5fY0;Iepvh+S1S*ITJiGo60Hwg z5NX|+Iw(yg%R?p8#dnd-)Hn$xV5Y7Y6<}Kb?Aey!mAfG!A-uf&39nK^%R8i$gg$vN z?{gwbLGsh;jZ;Mpz$dKvrnL{d7W)Ld<{NVx(+pQ2B3v77pF>2#5C!g#;Vg;`S$N3Z z0*(*EAx(7{C5s<%2L6)8tJo0*;aU^bB4cFRi*(H?W)Gb}`~kOi9Eg7ltEdpv4YYRB z-Z~0qP-FN?7AKhVclwkXprpd_1o--lj)P7pj2mGH!i&Eg9u1VD5hgUeyaxBzzwFV$ zj0YP`hYi00r=V}>>F79py2Z0$4r}6216!FbHZ1)m06imwj@_~ISwqdD_3LRjjEd+-Y+J$1nB}E za{+fy(^tz7ymF3bQhM}}X(pD#Ce^%re4{N-`|lq-AFwIn@8ZsTqd$HzfXaK_DMN4# zwSw*=8Xg^u934ejl@!nEAnbgNA4u`I>)h8@wDjK6SNUlXyKwTZ0C?ND zaib&!x`j)uRQb%$pcDgWFJ?e)tl<^q<#{7HZAYy-Bch@@v9J++A;l*sShC?WSvl9& zCLnY0?<7W??+IPTY6tKvuNi7eb0?e(kFU+Dq{ygp%3;-kKW+vG{%Xia0`&EM38;r; zSYKa{#Sqr@+crs4Tme9|W4AXacKbo#MD(~#+j$+JexkKJg>mCN(No?#DKzMkM?g6W zhDN0oYO0xGz2r%Bq03+R>izc}{^Nbto6NDW54p7$-h8;QUX}k}{E?7U&xWOnC zb{8zM#Nd_6l0|tG^s0^|8RyyE%t>qK7)G?>YeT1W?+T!`_oW?VN2x z>JMK|*ZG+bDD;>$f{>+V=<`W;I}8=D%<9R!@PVS&~w;IGW;B$|pc!F{%*IN~-Ck zQ(`yv2)pu0NJ!j0t*&!46ZH)DFr8Lyn6!CR2Pw;Sz^cE}EAzh8i+{-OUf#|JXn){gWABMGV4gZ0YS|1b? zBoJzHNn#vstj0)iJaWu5h&~{VklTJ$KAWMhI?@@9WUi7%TN>ETy=5>QWqV?^P zrBAu%Asi5Wicaz>r{8=&$xFQ7WyWYtPyxFK%u<)xuZc38iV@GyU+5&k!=gdeaEo2h zv}i@Y9>4mi4@}J+a3Oo73l>TDxPzi%HF|PDd*9Rabo@P=9@1El$lu3E@o17%`QHNU z69GgAUz{CBk61+QzQ=)(H}MjYoH2mV0l#5FE57~{2{0Ysqf#Iy6fnjDY5E=*FOEj7|BCloV8~ul=m)HY7$m~G}R@c_n zHV8Pq7v&&W?^lAg{mbCj-Ftc%$mz(rmmYFfCleY_b*`U=c^X^d@?ed~AM-0Euc?~Z zaN8h6d(h2KkLXUl2c-_xi#UW!nYgxRAj~{9ROpJ4rR6B9kG>aQ6r2|z3W79lGw^`Z zyhm2CPEllJqLRNWeB>lx`4Q+KLC|3!0s@~wBmoSNVYwm=Tv3gnnOWDGVt%swm}9WA zd*s(&-Az|TNpiw#oc4Ls}~0Nxs6PJo;qbUBtCIzu#&+J?ii!I8Xz0tbnXjEAIKf3ed=Q0FlKU-&QEmWE%=MN7|IK?q-nE+8t&f>HI$Y&T{V}V(+tl} zV-{-IDqGhpxZTTWyt_200wx={i=ii7K-$?9?oe-JG!yw;;h<2(tBm~MM|LW^2Z6f~ zs~9Tb$ww_(gQ#jbcLTY>x?**_pg&K+w<|wtUB?1!ev$%n)&Uz5xAe^R;;%0^p=oYl zzi{CKk&Xt>BE3~U6ZdVf!Q60R6ZyH5Bhw#=yF|VD=X9j2;5xZXhIb8rh^+*a$%PXw z>I9WavtUgbsXCCdj;%VOu44zug5}5#fANz~X%u)ahLHBUFM_F7)cF#j9fE#C)D$2q zyT=~^0auaI8S zjUwYCjd!0gTBH>YMT164Ag@@8TH#*>Wd~OCKoPXn?3}jLIqy(Uzzm> z6w5T=%a9?i{b=E2bwotOS{vc8bXO-I5(Hf+hyQpDG6^)U9)Co^aMKNuPlQB+{XCER zk!L^FX=^EZ_w<>tBLkxaW1T?A6!z^tNc!&cNC)gCy%BL=l;FzQ@z3t#K8E#`+Gbx1 zx|S@#zv3dU$`PY!Cfm#oQ)n|#D*z&>XY~esm`EY?Rk?EIiYO}^x(M3pBGd_tIavY` zfXA3NrFI}`0QRqgQI!5Skn<;f3>S?sszUl3ek%Z822JI53=-^g_>B5S%T5Bi%ctnq zz;N$}6aZq=v(|-gs+8o!uD^+gVgoT)wp4Zvd47Fi=9y2Q*1($v1FnLc3Rr1tI!A2j zS8U64tKP3wUT^SiFZf_J#~?IU9~(mc)g1_V`U=H**Q!_e{%72bC#@W`B$tY(BeiP( z?hNb5HV26BV33@J0;09QBc4k{WI?NBUZY_`*rsnY)1k-c;Mkx;iN%h0~O zyf{Z5IGSoW(jI_gXr#K9dB%9<-UcFQYxCw{@`vu_#}_xwuY5+lK~D2+RaFsqMKwOj zXh#8A2H470UB&nIDPRPvY&7*gWLXF=_OLl1J|GI{1XDJEVdJJvV}PSXy~1Bd9<$B= zQUSYbLOyURo2hg&C}7ip|nr>=f9d!x~b+Kn4^^tg1)8JZGpyOK1sTE%sA zi@9z;c=qc$)`e|)*5^~M^E`a(H%xc>-6=QscWIZ3H+WF7m-~**uoZe9o{4gr9(Wa4SzaJU71izdJY#59qt4{IQ zz+>D5$UIN*3%Zp%gm{yxuqiA(4o=RHt|3%+G>khtMUHyB2fPN`CYnBep$mX}s+_F; zq*${y==-|nf<0F;*pP&@gDhuc){X**CK<)*k)fM>Z#R-VFL8C=>{p8?XxY zAw>4eNIIc}E%>`HKB}K4>vexzL?+hPx=q`OH}=wF1CYoPAPoIavXmJ75JE7p*x&|W z)7HCh-f@&S;|12;B$ft}#RU0B!Z1gJg76y-6}Sfbsz6JENO45p9xGW{##Ses0pND$ z>K>z}WsQi86hk+}BDQSFG#)FQRK$fL&qTIDBhbph52C;LvbM!7_2PZ z+{ircC@?&U#(-Uu$QIy06c7YPBH)FDv^s!Ma4@!ZK@xb`_w@iVO+ErE*w7 zn%dgUkYYLt?wd=-Mo@FV{GAPjmcqr$OLB6;2tmWaSnPrzL_fLBPOAF@L+s029{9Vx z+wXYL1@jvkOeDbB^`wKy;9h%@F{tApt3L*OleIG*_B;*%5lgPW2%OVi8X8F?j2>Qw`7rW#B9;+(Y{gu41xbM*2k>QydPp=qYTnL%B%5R0uduBWQyp_%nfIi( zdf}1lo@~tnOcQsVhdq)C5rK%_0L7hH%dZ7a0IENSBm)y8q}5nPrhO!M@5O>6@I!WQ z>AWi@N~<2R3IGIj0ISzA>iq&KL^_`Y<;P?#pkHlbNAjC^mkeDz;|E+Jw4D^O!!sU{ zeI>^P{|KKKDYIEDJJLlFH7d0iJzL`D%E21X;@!fBJVtWZs|>HzWg~!@vKMpx(Gp

R35gsz}5evYfI``!fr0cHq=%4g+<7mc0;=0Pa>a&$A}fhI@g5M^GfY zjd_DOGPXadp9rRt#26ms91ucm1smkx3X9{y$Q(xF8xe9L`Gb}dEfyqdbv=v=X+Ml$ zpdab1tMdgf&cseYHE6$7RWjd@wzX*^nG_*ioP;3w`T57yRa9!>a?x)%Ela)g+I#pC z43a-1LKm;{2qMVsXdOtr*sE4Zljsk$yK|&c5zSV$*IU=Oa2lls@APmld{`nL;$G9Y z$S?@O=pv2*-AmXvMCj~Jy4cg(>&qrl{NX9<^mprbUl_t4-36`~P=djHsN&hclW;l9 z5~w3!=lo|gAMXzGXAzzNj8arkz>d{|6@^E*gzZ2YHr5uffIC(M@^oo=ePIYYY#W=v z%A|!?2{DRjNoeV~Sc2Jd&^oXTkVPCIH^sSw6cZ^5k!P`3F`3_qHjBIuzsGxEcMuS5zmecN`M`c%ny)~iIKNLg98x3df;#X0YvPKFI*s_%LI0!qmikb*J7IS!tE#5 z!Q$S>jadd!2y^(_U+^NT-Q>u29|&p|1a`J{EtB{!5di^eVcp{zVPJ_s!{f(r{_7%j zA4JrM&C7@oi{Z+A69Ts%QE`>fE#JKxMm0u?1;8)Y`M>~_LC9fInC5`(P3~ZPJl9<^ z6GH$WY#z457vBM_f>lDqiz9(kY)f*rmi8`Mv5z0$!M1q+-~>#DE)%#^z(4z7L|b(& z!(U|k<=5ju0yl2oVkj|*hy0n6R8iOV@l!$4uyzpFkmrYcU6Pcl<&NAz-Au1WmL>np zn}UjOG4w)K)I>Sq*C-TQX%QL8L!?43;i(zP zd4U@&0KC{mE4+It1S*i2qY^kxTz*Kps{`?i@l(SsHW0qC?K;!XNnttDB2xiK7m4)? zRtR%*5~l~Gdrg&qIU3?<1r$M885Kc1h)1aJuS#Vmw1t2VEank$U6CLBriPkm*~Ay| zA}OPu(l=HUCZ72an7nA&IsxtBMR?I6dW9js2_)byUcBf@M+8{0@)jBL%_Fy>44Hgafm0HIZ@AYK491kSD5PB552k6JB ztQY}WW&X76pe;QQefT!ApNSB<0?WlX7sno0@NRcTV+K?wFamQHnLv)%^9wMv!kTws z=nD5}en81x2U!)@nT{Evz~BzGI9;`|VRIhNK%paz5&;+7pRZ}aG-#v@R@NZ@i2T5? zLR6@@#}7EK>fJj8f&f2cuACEQ{LytJyGfGbUH{~9`902Pgib)~bGgL z$UR_C_-v6r8|nff^d=GuEo-P*lo4V8b7n<_BWeHg$r7jmqz5FZnG|FfA@YlrB_`%d zYna)QjTya2?+`4TSbunfkpHRTd>Bk?7JzY+V9`!3+Q-iMiZj9MXYXjpqhzK@z6O zT!dj}6v;UW_@g8efOBffJDO5-?IFDzAf{axrvwN-hd@$>%iILMgUDQHlA1>0Xd^@j z*TpgeCsZvwj}8k(OEX!!7VCqk{k!$$e`LYb9GYSzAUZ5FM>IH+yahZ&(Z#13gIv-v zAblTrYYJJ^MaL{x1kV%)H&>&x<54 zs z)nl>C8%c3`NCx8wLqVGYfF*Vb$=)cL$tNo@!NC`0#nY(1$!PF%g?{W+Ea50PDWuaP z{E-JN07FB>!y38{Ele=XQi9YWG1ZZ2T#3ye39b!h2+eYm!=4B$V9I1Y)?mm0d)v5@z45|;GZVs=<9}y8m`#Ne?ZwkIfW(kat9U1p0^dAe1+?mIZA4g6Pp@5Oz ziXHIB{r&)JY#s!Ba?tLHNQx{rC}=h&Gts+nonTq1iyH~9!n}<$_%4|@KtKX$#?Tu= zln7L7x|e{IWWI*$@`uOeKrI+pAi_}hkSVM6^EG4`iUM`T@;<%?aRhpH^8NPLUInV| zJ99rBr2&)Igfe5_aeDyC@sn`15C=Fa6MzbqZAIEw815rj9p#r}@%;p0iL&xL4u!t{ z(HC@`*zB>bPx0ii$4jto$X+4-1<2P5zp(He)HN|+Kl+=1n+^!Bfkw((6e7}4#_9~E z<`VQ6AT}O8HX-Yen2n&5JiVx^3dMp@Zh%G3| zwL?-H>I4};K{`Y%;qXD%&&ccW(d?r^$3OSrMZA2XCao5UY-4 zshYDhXOtYVs-bJaqiBMHyirqC?muR_oH>}~mq0am<-Yy#Hj>7Yq5z$qi#(<=zfSau zQUsD&b65l1XN$3f7P}csxU$FLo`yw7cY(c@RE;4x(mGz%&Tp@XqGs zFr4Au-Zi%m#X~(Bz0L*tt#=vmI6wYIeae@43ZL|HMc{r^>NekvK55x1qON;Bq0P>t zM3PxzR61mzRh@T!r@QV&T`G>{W3Nc&iW1WkcGt+;qZa^*0ScK%Wv`az&NwAayo=1G9B{lD-1QB?6bI2uU6bTlI{~+v+EEIlH@CM(JLfthZKlC z0{T#k77A3#(Hiogji4(6yOdm*1OH4#KB+2P5SD%MFyln#5c5{Gtxy55F}ed@mkQw) zcV+s@y6_-#(VA&257}z#O#qf5EV=;^hJJo|w&cGP%> zBv-Mf`8apb>l+&l48GxG87!1kg&yYgfNtfLZA^OY{*oNzS3FicL}CLEoQYWc^va8I zM7zb2O<>j7*kyzsAVn#i`P|L{8z@55@hT+-W$-|SDN>`9Peg3Q>vCtj@V5Hw9lJYr z?~_X;5LRl#hh`e3%{7iSPbvU;McuvB$2-~Z*jL@Hb155^hBnT-1`*yE@fGzZcf-7Id0`DIV&~{d>Ac?cYy&1}1 zZqSOyf4dl{ulICjm3TY^!8Bb>U6as`V5;sM2r~{|!!o&miNmCdS&&ZhHtOo%$TVkA zbKl`=p*I6kwF*CE}07$%F!P zVvS&B2R&mp&p_&elY^rwTB4*U_6!eK#<7e4M<5xoB&Gw=-LM9L1{L%SKx2!&b!*f! z;L(bC{6Z8AE!q~;SNJgU7A`OYAa+(o2u~uGlh}R{fSy0_Y-eW3cZT&4w0sI#NsQ;} zJiVy!a4+g8;1e-9whD6Op;O6Ot{{et50QiS>(vTB%|~)e9h-E~6JN7XUMfW*O;v3Q6a>i+Eo!+0I*0*iYSas(yN0Qjn^8kIq526fC59}zq zxHt6#Y~lKjHrGFI6SC8w7RV0}VFdNV{KI2eAP^j)=m8C453B#mCt7!iOUKJc@X?=v zR05L*s`bP309JvAglw~2RuzJAEIy^g@_x1?V?2kU!%h@qKt~K2&Y>6%Aq9qNNOmMv zISOwoEGh544wOM$k0ZP@`dp(8>_n6CcJ|Q&3pO@U-Npk<`^z~=pn#~&svnRDID|P- zR0vw;BV2p-e7=9)PZ-CRpwf^qjivpkGZ{dC5q7PYkdVjonXUO7Bm`s_NPzhs8ixVP!O8EKWDuYzmq!KZXbJ1j2Dk!REPa z_=AAmVJ7tvy9D&&)TuYb)PPd|BsLcJW(-xu3887bv@J!>GprEAHgHA|(n`WQ_?aa@ zR_++9HhL_UR(Xx5AlZqcMO#>l3o86HyfZDEtNSINy3eFQ*oqO5S$TB%lP~?D#9|KT z(U`+cqrPTaYR$Cl0+}CjFg%slbN_lvQ~J~?Umg7!U z80$lKAk@Cl?@42PPWEy9$n#Dz58s8+0@R@@{6~@iL3k5E>XHW!9w1jt@c-4TS8WB; z16CEH2ixIo6(S0UuwN#ubO<=V?B73tSTK$Lx`AGc=f520r`}H)3NaiCXX7w#Wr4h ztg7D9!sWP&|HPbIL_gC{8mbLAfd4^IcED5`O~0bBf@w1;ubf}st=oK<&(uQsG?%(s3w(j z$o2F51T1N=^2Kt~YC2++ArUWko_gmc<%W^?&CUZS4@xI>OwSwLS`J~?8QEMr!St|K z9^n*u`Ay_F(G`f*8aB#OS-Y8!-0C^|!^6|KLR4@D1_q6mPrK)xl`Ji#S9WW((j41b z9{uIte?6SI>3y9XD627B{EM``;`24?Ogt}ebN~04yT5*(@!!qd{r8{2xVp>!M?FU$ zE&H|HJ;2efpv+_v13ZcVX&jBgSTcJOHTvYVJ`e$vOM(I+T*9dr2IfRp5P``|Y_Pbv zIGCy6*TkBz8zOmT=(ojjVkD9@{X6AH7GjG-?I=S-g7%eTT5D7lCO{&`@T`H~oL~e7 zm5d>GMNB9Z!Po9;s;UUDF!Jd=gSH8X(uK?)+UbD;EeKE;#!Gma$$?itzD1>OtslUI z@6QJx!T`E+xSAx^FtLvl`UsjPk~0#7E=VBkz({TNC@2hpP~b^W@5odj#26el1+t+fD)j^>5I8!hgPW9rM(~tZ`h#3*duWW1%)l_IKY?yFX*6% zcEuQaNk*(g=al<5FJHNrGTQ zHN1kv^B8~~h0LP&HYtN_Vcs~i7e?9XGfO1gX`J&jem0&)0O@CpK;T||kE|ucL0e#x zBr+0^)(oVy4)ND^X~`Mr)kt)n!+nS3fVO-Lv;E+=O#V$@Y>4k6aZzAi-r30MB#s*d zl}U&rqdtXImOru}$I}5$fC&n4kroreS@Ar@#~pw@puf0416*&6 z;&@i-z##ckLrF3|viGLkj6K}^Sd~sKoZ()^XOCW z+4CV==doO|Dvgk-KvOP8EPm^ZMoR*iS0dzWpha@>g56p_NFO9dCIdqtViW1O|jNb`R_n?5OWXTIevHcOHM52+vvN8?c`<07BeqEO)0(7gnZ))`CyJ-JC{G&S$)#&6rcU3}v0 z9-smF$2%a?fA&yp1`MS)7pE$mF*6@_LaIWoc`E@*Em z_dKe?@R5$@+8=$%hFz6O0cJ{|!z`-EwDv-j1 zNkxOB3>08q`|zf2Jl^womHH$8L(G!R09|+maj0TQ3Mhsi;@Gq2Jhm-js<1x6%FaXV zk+UqstDr*k_w;NF0al;E2HMCD1*skKi1CobNLC#Jxd9G(7zqU{c-^L^2Gm=9tU~VLAg7Sb&IwV4rt2)p=GA)a>6!e}%N`K|Qb^Q5Hl0sh|+^|F{Jks(g zv`vWn!Mp>YJm5MiFCL+QMqOo)s zw0~^jf58bcl>SG-p}(yh#V>_~+ z@Mk~S6ZG(Cq_0k0h)&&IITd4*M~aavD`R%!4(;;F;{DX|DL=9}!?TprSkJOf!|t(M zP(XlcheA9He)3!z7)y#BUdGc@HoMPwOLjc@lg4!B_LUDB2q^0u4xZlnx7Q$tsbVxd zaoBoG;_&GpGXM{AJsCIrE~wjzaKAEeQbA45C4FMW_ZzPUh;FgCxibVHz8Oe+1I^HvaiG z2LAzI57K@W#YQ@7{B|G_ZJa)V^F}D2h)X}Ez8ay24rhRHqjAHZFL@F#34?%@{JSjZ z^*mGRkW1w))%FVv&wV0A)J)}(6@554Q~$J*5`W&Wdt)H<0R%$oL$`BUK)tLzl;=cdWQ+Uqja|cXOJrHU8+;;@+Tz}I61XzgEFMh9h~?uXn8`x=vL!# z)JRX$Ef;PDtA~4M4d*rloL~~+s#&vz>U4l{&Ty_YTOE{NH+XO6$A%ob< zbBbE;m4i?g;YF^NMek=D%>uiH8(=&1)+pRCJ9kUUe3q4>|CK5`)QGJS9lc{B!k~zS>HQc~+hz&kk`tfKp<^XZFHroSe+=JB^vcA6eYS zVlK+zX}LHbkxmE&6`J7rXv8QG;I5rCj=v<#?;i4~2 zrMWBU39=)!L{3`=k%W*58&KX-6hUr4R~qErbIqG$eX;$nGw;^CnkZRCX0X2V>vVuR z%+bJ6Bjbd!vdB2-BDSl2wGtb+2nHee8wp9-rFrUiJafT4NSceADcgg8K?pGnb`KD3 zd<|OC1O^8Le1MrlCy5*x%&epWVPzdim4LRA6fof%@}_EQafH=s01TGfQzF#~FKS^P z)mCuLY({)7Ba^}x|T#UKR z6wtkdfi_PLZpaT`8%u0=a_T7M973l!pTfdckXjB(el;GXB!xIG2Xfn0JF0&B0CU7= z^+*Y8=q_DwdGMZ8iK~a@{e%CqS*~|)nGu|7jCO8jABMd^9`9)1@k>ZkeUEdKv;N2e zBP$2Po=6Y>BncCCRV63afI*shEDNy4qZY&&)3CRpieFEHGmx=)Rmg+>x18dqUvMfO z$|rFtxoMr?T+hIRKmwxE*VR7Zh4a;2(}`j(m$+TqN6$Iu6cl{Y5*d!Am3_6A>Q=CW zt>AU8JX{uXMjF-Y$yum43Dv-O?3JK1qJls z`!!EuOCYbnURtrPEW%^1hLpZam)~^D048J7Mwg zj9z;<5Fm9w_#~3&rz9L;17YBaHX84QZwt_kFkOMQPObcimXtF%BLdJsy{~AvgtVGq zE5zcgCCs{n8;o$}I8laFbQ^a{v)Bp2PECiMk0B4#S+49vY=um7GA3io zu#9r)INCsz_+KIIXVSFeu9Vvo3exshWA-ZSw@4SKm62T8BsP`?Kf@3b-tC^xT_83xnRD5+|VBn{2_tH z$s~(5coC#2E8%3abj6c^&yWt@XEQDSZdco=6=ui(0jv&0i(cqxl z4p62xaiSP4Am|PBxM$M$9DC(Y6Q(OfW1Pi?>8*qxl<+em9T1Qny-opb$SJOhxrEh< zutNcwMK<+27i0$n7G23Kd{yfPZo-ZdhahAQZiM9aA6P&uLAyavVBzekwbl7}0)S7j z!$8jUVbcnOE+KT-t6TR$svS*B-ysXwp-^90DPL)XiiOMDx`=#g+tZMZRkK`5zS!wq8~7XZU`FC zar1Ih_Z|Q2OB>blM!~#R#iePSL#wZCl$U1Rb*;le zwiC{-mqI;j{bV+mu+1OS&PPjq?n_!6+4gq^J5C~;^SxHcAFJz)+jy5P;bW37y=ss8{rS>9`>iGj z=`sfc1RsqY4uIW3q2}5EqJN(%qa?CwU%P{$_GCPlrai zIK)w6nKULoh7t9Re`6r4+p8U{Szisf6b40*h0_d{w1F&pQ#h0ez*1NXf_hI>%>AF< z+&N8^D*1?e#b?}Co7h}14tu`Yos^+sz~*a^F6DC|EG*k{&xS?@f_KP0r@z$GpT@*y zxFiLdIA*XbJ7Qh=Yg#b{*+FBp9iKO$)?L`~T2V5c&QibZL}%@?x^LP}TOey^os-Kq8{Sg=T?!MS**jsS&*|%l8zQyK;xL`0j*a6! z7PHQ|)645(}oncOLB$1Op<3FMASyrtHv>aO(kW5B}j4<%F2#P-^nw zOoiZ7^EO2@ifkmX=sV$Wari8~PR}^yte^LbjtOz*E1jOajyA)!zvyeKX69Iai-QGp`kC7w z#7{9kiF`@r%b>S{MWy(|YU@!k97R5dqGiF;m1br;5uN-Hw6`SkfpP;`v0qqUCW#%8 zMxGVgx2V`T&!9O)N;8EOC5ZnbdW(|?amZNCX=UZ;y;DrGkZ0!Y>Zj^7O{NsahPi!? z7e{YDRaq2&0pl;-ZI4QPzH|=D8lkf=<$c767e2%{ToH)KwJ3t~=O0{qm?A2lc?l(O3Bi4(pFi^>zEsr9JF=G~DK=wMKnRo{dja z$+~{qUi0bCMvqmrv=$7RqE%>rcz%rQ<}1>1?Z+oo`2jDGz(nX%ueV9(4HK=1YFJBy4 z*o1x2<;x#I0}>4j+Fr+eA3x{Ivu5m#!Bb#@7-2s{%>X{~1OG?3G;~mz?9&2oY{DNm zo#*LWjBQvK<^15_(W9^_1TmJ)VdF!*9^yB5#E5W&Yj?hBsHqK*^c<{t(>37M8hHt> zEw!Xyii(QeyDkc@zZxl>)YmxtY^z+b;g$96^Oi>KDg5d6;|!TEW4_;Oo(*NTsg?WZ5_b-}wfZAasXN#L?-H1+z3i~Myf_<^6F zpPJWo%Zpdk?6;Mw2NYb#O(dY8zoMeB@*@YMzAuogrI=B{u-VDUw6tq!b!BCO{Sy@> z!+BeW8~<#E*u(SXd1-#$8|f$``+5UTdHhv;$!OsZEfxM z+jM-SFD%eqHp@h{vT2Chh%Gv9aSr;!a*(2IZFei@5W1eQO~XO+B^f>{(%OV1D1dIbXV? zI`#g>By;60;#Y3pzTLt{?MlDrdRD8RguC|fyvI-kbq3Q3vn+f2w4Dvs>A?q#J(9au zMMok`oPX-oPS{sNhYg!Nd9sf@6{F*gv%_U-UzUySF=eP<&xQZ_W6EqpYgez)-Le1W zBb}j{y)RDFO!k@HQIMx3l`?#j^K47=I9DWQT3W&jFks<<0-GCo{#)n#Aa2Y zx$a}e*co$na5%=P@4?2gI#}Y|?NrrZeb0=1>*I3EH{LkdPithb&nBbqhYTbVhxFp7 zVijLM{HaDh&Q!I&Q8VPPr#Z>C?Ya%mT*rH!bSHIea@)0Xe6)`|4{%G&2a$Aa-r$(@r`HA&hljbjRTxPuFr82X6y<>b9CPkm$F`k3 z*?+lzyVQvpM-Lp3JykW`t?6RbS6%{RC}Ic5i)4-3XH(Mit5-F<_Ob}mi2tx8T~^`-hx~7odBXeB=ktDJ%LWdS@ zyi%@#iewiRc4L=r>gS)>u?B}uAx=Vqi))7+9X1eg|do3sYr7r2WXmh{pFVe z$=G*?W4{)u=R7jS4GEax*vXT)F4E;Gdng{|{R_2bG&I0pZ!>50OrqNH5fqI8P_|$mZm@y*F(g{-^H*W4g zmEoF}Sq9b8Ngf&bpiZ3sV;0`Kf1e7$vaE+u^rOe^dt%R({1hlNw=0Wg?6gDTVVdoe zR$v&-*bx_PH$ks%T+$4;0H2ZQLc6{D_PK*i7Z)?J?|EtI`vawl9j@~wphzD1z! z&^071!i;`1nGPObM6CXU2K7*qkyFfYu9R$2@OgK5Vdt|C^7Xv~018is&vo;-?Cc*D z;W&0r&@kVoQ!Xk6FE6i6-=HBX;7-iup@B^_{o77kWY;A1HF+Ci$9RTT)z=I2aei|T zB~B$tv z5fLLbG_FAJ__sI5vnJRFA*r8_rpF@gn@8 zoE%AH;rn;*rom4pZ`U3*Dkrt>kDWWk01^s34l2$c-hg@B)bZo(I4C%jj$0LWzA2su zl>~R&$_#oA-VYx>@UT0mqkVmSRaYu^F+TQad7+&)NgY{wAIbH=s`qxgssAS`DXk^P z;>b=)N#(>iCI%t*^Y!-j_VE#U zadq=qd27}pJP;ik^XM#8R8`dm9?sC&^7`8HzWT-?I@@CwIgektx;Tb9LU3{rMG#V{ zPI!2rc(|G*J`5;peU&$_>T9`&CDI2eU0vq8)qY_v+OvY%2UwMa0LeW6sK#p**63GqLCeu$i^yRu@q6 z+FI-dKi<82_vX!;(1W>2n++QViu*4A*IBs0=5lYdW0RM6BZv6^8vJkXaMY}K0`Q^Jtwh{ia1Bx1>xg7 zSuMO0N%6=y7X~4F-pnFRNJwxjpKPr?bdbhshXk{pGP#sKSkpR{Hwh7}AWy=-qe5dv zFo#8^>@963A!I{-Yo{ly?0_+{frR4|5*kQ1#8l3A6=6In*N=b7Tk~>whb^DJgb&m2 z*S9Y@Nm*MYH#WQ5(^vE_?Kll2vVL=~?P_=36h8+f{W;%QWgc|wu{)Q(rrp1qZvY8)-h)?!CzVT_c>_}RanO>5GJ!SLoV`PhwnPQMZYT?+Pa zsmJPK^CT6Ql#I}GTPCZ8%!GuftUC!uQrRa82+BN(ph6`Fjy_gnC*W|RO|pe>a7C(+ ztkTrj$QSpOu)a{brAybJ@5Ory)F4lP+?L6fi zC3RQaJ?6uhSz4-ji%AUCxuy=k$jICqB*ehTaLpYRra6U{n@*~6dG}BuprAN%o?H~) z4_mIctZWJhIpBpjs)gVQ`e@h-Wqwg889bMRB)K}v`RWNfJG+aHdvnbbk&}`U>CCzZ z$IhY0zP)=tnzl4F9M|~xvh?rYX3d%<5K_QOj25jsKZxOTb8{olog*A|?LEA-%|N^v zB`10p7o(DsO|w2VH#^22HIBZf=FqmP)OE^~DbEJlCz)5fzdr)Z3ko`S-n{!$rsHSQ zQePo-q~81YKm1cGcj^uiw*rs7;uYto85(iCT5KmW4%dEhePckBo;WBXKgUfsyS5Hi zFNPkRhu{O23D!Ot3mMXZ-RLW_B~>-G%pT?9tB7a2&70gZJ=SUuEsNRO)@V~Esreeg zsb|0Kfhmycn;z+(=XlFgWgcyn@84he<>ck%@j}p}V?1mm``hZ(SuRy`OI*dQSyvH7 zFWP`apE+|za^S&(Md<^m39{Skbjuo99GJu^eCs+Y@MEj=eWV6`9qNB zaF}LhWO&PCI_f-Mjs@^)aOVw@mM{a&NBsG8l+2DkXhn_GozLJQ5t^z&wlzfhL0#eg#j+W{R6zlw?TZ#bP83jn1$5=8bg4#rC{M2I3kd?!mGAOQc+i5Op&-Ta*B6UsM&HptQAEiShWsA@Yq0V(LpR@Vfuvt^Sa}x&y&c1I34)JC4X&i z_X1vOJS)s7O@`foSXo?MQ{zruiOz_)PAzU_RY44mH%oX8;!f6dveo5h8JXvf!xR*D zk){jF48aCfQesQKeECugfC5yZE7MHx2%C`fm~g5BPAe@f7hHGfX%KD{;3$Ls6F_wx zN;T6Li_T7HXecO&K5q9i`)=L2bB8C-ATcPr^4rSFBgN1QnbWGrMgr60S>52hRc=}XVwXm(HFzSK;aKKSDaXV<%Xrr zXbM0bov$=gxG(wu&8@B3%3_b+Tq1q=NEfN%B+eob)!TV_hK7bj!8lWQyi9m){D@P3 z*(w=&c+7m(i*Mf6S8SROi^dfp(Z;l(FlJTk6EPCVz+{DDZU{x4~f_=f+746FW! Ylx$#V(`?Vb7m072Z)9v3FIltqU(DN?wEzGB literal 35429 zcmeFa2|U(Yzc;MiuB1YWQes~r8KOysNRdpLB7|s?sEnD%ol8Qnu8XB5) z3i3x!(9o>7PeZf(CGBtc$?>lWi}<$MLjIIB4b3($^6#>Mo)IG&nm=e1jvmppkNn>1 z;H=f~r&PyS;h$9Qv#XbF*=9-k8eK|m zuzaV&e{2oim*0HyE;Y&0#d1(@(#6U$uKRiKc7Bmmo9aFjCg}q~EyEISt&vWHV!ee! z+{GWQYy7yGym2`+j7B55?BoxJZB~oooBP`h7UX{ec{<3q?W!-A;oH$@_vQF@Q)1aF zd}DO@jUM0r82z0M-wt>G15eC9W+Umol3zqbBv8J7V&}9}Utgc{z5S~xSK13DrKF0U zcr7=&RQE{1(b19i?9^bZ)6`(4Jg~- zebmg%>~w&qTTp1|$&WHLTlVhzufG1#D@_?jr9R9YuG5`f9Ih|ST65>-=4zr2w%fJ4 zgkCkC=x?Z%7(1?_QWGudl#!7!J24<~uH@$U_;|neN{m#$hvPPj{E;_X10*MPgtt2M zglg|lz850Tbx*{+?aApp<%k2-kz&@buCLg@qf%8-k)(pjL32Mk;o~y7v9Hw_6PLM> zvKWiv)#M6pvF_vhT#WbNa2|ejbh~B4N$qtUha|YUjVi--ZP;=AZF%`!QOhqS-W!tj zS@AjvQvDO`Y%*T-^9^aP6Rkt8&)pUmcIiD!kzVuRu`<7a!1vG3hu#KqYMeMBO?&t5 zU8(s#RSgXdYb&cTAwz?n3UaIG)zg;yn^sg->g8TDp*{QU-GkD~&sioP(hQ3ji?6R( zlccruPTE_nUZ&grXwJ{i*AZxZC>OvK?>PCLRT`I+sJrx;3{2iGE9;GMW0$_vkaRM5 zhq7X1|GNh=v}e2C_<4GIo=jMax2xx$a14HL+MHu;OiSV9d^n!iec5mg9o^)Q&mU7x zWmaej4o2Cv&9qGwYR@K#S%1~M+RjKX(!OTG5Tg|#Vs7y9q5J5g$B!M0Hc#jau#AQL z#-_eybge&b8l&{XV@6cb#KgpMkNKZd+7I^P{nXO-ceAqjZ55%Xu!&mSA5X;fcOTK! z)n(?}6do34TeYVwL{LaTKw#(2go+np5?@B_1z6TlHnOnnVDiporw^g9_?C8!bnwQx zDivN52$a{!Q78y?R+OP#*sImP(M6cXOGbuXG)PG)=(4Kfr|iqxv=nacxJzYziYEmJ z9|f!26TYm~H`>zDlB)My%VoSi3sa|ClqYL+L5qy}d)9(jSslR9RJZtE|iWXtCj&{;j?@++QbAgwz#OQa(Mq`nk~Mr(&d{ z8L#8`dpVv(V-q8OvZ^N(WfnF$_0~k;Zg21|NjjOV7^$0MWkmY`Gwx*auRF0$tV3Q& z>EMs757M+kh12IoMlp2+PGxXWcVBvUKk4Ms{0_ab!J_KUp7Z$EuEkPrq&SdM?oHRo z^LAIK+3~*e(~qBBY1(_Xn2K@5+L`G45ML3B^5Qgv?mm>=sCE(O2;@%j1Z3n8x4P;)xGy3BJ@60_Xo^k8eEmN(fQSf$@^x&+k>PRrJ>bSqK&%vV8HqC1>9f7)X%({M=k9Sv2`snfeBLE1~_r8@c2}pXlFIq>@-z zRaIp#5iQTbJtdap?qB<_Zn3Ms~$Ra zu{y#mw=dGVCh_}Q()OCw+n4)m8#ovN_eU~v?y%H+f2P(i~&=NUjK;AsHYsybsY`falXLoR6- z&G3RW3Ct6Y4E}f^GYbnamtFVUKmZO370-@Y7>~#MqYGAs3#I91T7RutO&K3-B^Xv% zOdn6a?_b~U&M72h-d7h#p+1oDVi7V2&Mb1Bm!@6AB9I`Ri3aUBkosJj);Pw+R(b6P z@{UducHR}u*_X#gN6)3}1h7j27dB<~&drPghbF!Ip6@U=IySa%@7^F@1rvU)lovmq zeYUc;ju5`w7^f8e%45|OIy~Jr!dbE(FRWyXaa(YpeQ+{a3uJ@WG70FHLIuEMVPSdG z6&gVuogGN?VqD3<-jbl+G_}xV9K+4<4AA84>l-s;y;B1p&0Ahr#@Vs2!0YvU&u+CK zMT>enFi?F~b97t!iWMt~Hzmh1d%z@gclY!_S<0Se^&w%GJ1#y>M}FU0t5 zJ#fXoFD~4`u`iBWDNF*8WpUDcQR`wvvR3MBQ?093uEfEEd9uDN%p6TVHflXZQSSLLUec9kzK1IBb-K_eG}s{!ouVyuWXR^Na39AHQ&ooLVp zk=$z-ai#D&<66n7mM>E5Kw{_1{I9kby4c!If?nKMx3w|-d|93LkM<(B*EiP1Rd$Wo zTb?nIGuY9 zL+H0fc+1`k@}+4$WnDax7R5o_N`=#3eE0H`DOL5IQ$%DcIju0sUhZh?k;1{0W_CH{ z;co}d{GC35$uQt3Fc+MXBEN8IWo+z1O^4{$JLjcoaZ}J{481kV=jCvtzA66LeNR88 z4$Nim)WlA?jPT;(V#U+sM%UlN&|VvC5fc^`4wO&P%}y#w4CU9p!I*0|WH8c**8z;p zP%EFnQaHMOWTcG4i?R9HRlUSDWKrvCxGne3%F6nna&Q-Q7?74ls6E4|5}!z#)??+m zB>T(eg)DOlE)^-a<+&;Z+~y}ff&{Wji+=LNB^-`QE?Oo>dloBh#D4C_ z^Y-XNE{=E(?b*L@yUNOe##BA;lCy7av7Uc(E2qoFnn*DUHM2&1;7qdap}FDL z2Z!>l-^a=xwEZq0b_IajnQN`(lcw$O1yvn4}Sj3SO(mDLoGShK;%Yd2Xil0-&2*E-yf29h&xbTfRvHZ z9tss7+g_p&{G>Y(^={^Cg!z;7JR*LW>K4$8O4DNb{isj;kXd^uA~-k`^$ue>In=(G zQ7M>Qf9yed-&USz`*T)Zb$hp2SMB*|;Pm6?P|+e*C1$UrkWiY zxAF)SS+XJFnBSI~4c`p-iam6Dw^S9_D=J;u-G0SF zh`EDT@=CioZw@v9^ns>=hYy@$(18FflSuc3{H)izV@oli>dp zDe}I5!NTl7x{d&gFQ7`Q{Y(h2MoOa6;Lh2MPBcr9LO{EHmmkX9qc?eX#H=swJ$x7c^%HS@A?r8{p{ZeleBA!J z?($$6TF9M5kKkeokQjXn`7K$O{q@J9g$a>%=Y3R*It8AF=Z*b(b{4ydvfA-BG$P_> zi*>Ch)_lQ}>D`Sy%3f9J>P-^&KQR^rx$6F94Qn7Im^tJZ4H0 zCW543{%|qySja2Zb>8GEQ9ho&Rn9ven$?FbM3X(FgD(6l=cY}c=S|IJM zuRN1?$@u_D+s0GI*+4rA!8_2>b2@KqZG3WCFZU}&&uOM7Jnh97A3W$8u+T2uEYZG4 z!Di4w0n0)Yv@|>x$3Li=7tK#DTfQ>u^2aAY8RS6|^%~|cI&Wwjx@13nI(%koO(=H< z2Gm~-EzoJI)lP=?qrSB=5eCnrvQwyc_Zb7ZWzSs(_*E8Zz1HT?E4er~27p`z@ffv# zgQ~>)=jQG4F|N4@x&kap3JScs!%P8X8VjdZc-@PMaqINlWMEw_jQ;!;`r*`2dl6nx zYGEWm(rHqlt(Eelt>96#GyPzpT_=SWi-V>ssc;(QE`Bywl-XmRQ z9By;?Z-5&xZsFW$C2$ka<5-VP2vRkYhd`p3c^L3$gt64mCOmu<1N$6CI!!;vYGH2Xd7I;9h^<6x#|;uP z$bYfj4@#zi^GIo})S@$Or{O}6;lh;LqFs3qH)>DbSj|D;ZaO-;!ThnByusY$1lNgG zN9^==uv({~8jJgU*oU49~A)-!;qW;s1!PJ=l-EWX@IHByU2W?%fWspu1+ zD<>9FX3TubO1V6|6IqVwW$gU@X7BDF=>@x*fv()~^3Nf+#h*h3QwHx7J!ZyY7Uux< zdD2`k#eGIS_tl7=$K(edtEjFfdN`p=o0=UqoiHx1uRO`Z=S1B5k4ViJ--`_sQV`!H~2hOj)->bPoz+{wClo{SPuawt}+-v zv$H|la95Ehfpk1PJk;ILImvRp=9&B?HwnTjvq{o+0?09G_^B3H>MkglX|5g?@=NvV z=2$sT3|G8_zUxeniHS+6s!d;A&#iqmw3Opf;=)2gLuYmYnLVr;J#e*|$_PlN9{hUU z1H&R$qcF_BgTUETwFT#3#$uBK(N>F zQ*8#3UKT%04oAq z;nL^})YYE)NC}70o9j7Ejnur`e$KKR>_2Q`~5e243;dNahpUz$=v5 zfl?pbQ$Dg{2_CYY3d-|(b1t382&?o=GO)ZCrvnyu3J6ry)D+H7eok&WKViIw$nZ0c z;Y_G_QQgNV<<-iSmKD75TnsEi2KpC0p|;}|dNP6-1_3;18f3qUv28Xf_dxR*>y=t` zVAgf7U?M_|+-YKj5CtXss2ijIn!_cff0y|-ExG(LD0Dqphh z8nnM|>go-OMe;qc#8lX^{KR^mzf07J$7-@fT@)%9uS3Oc#!r}-qwT+VgP(gb)_|Gx zGZX^MqbllWU3!lN55DnLmaqOdf`r{U-_|E;paOG9Zx*wi1~bXNeJ z3cYF-Ap1KKI++)h8+50kxwuZh<_P;_*3}bkxPaBpCXM-4cFH))=It@Ff{8{(X#)dt z|0f4q_2%l~v%K-!x{1`=nfC#%nw%c0HO>lLOq|DV?Hnt}!I#tI_e9MIHF|*@>PS8GI+(JA~iqGtMPa(yTo*2 ze6%C}`fE*;Q{}Gb`u3d|QcskL*$*)bnt@_Fu>QpWFl1=q^8EM^UrUq~(04(dryWo7 z2F1~2f`=q?P<->iJ~=%&(0q11Z()+w0iNKEkF+A)WxP&l2u1lzsV|4i_{>0$oo?yj~_u>A)Ptnb~q~7BS_s?~v(s1FM zoYd@SrBKn&)*+TqLkJhDk`tP;x|^k3=aw@_3X%iWiEOR`nC}+`h-BGA~BCEzHPqxLiZ$;&*bue~oJ* z??y#QUU+*OT=H>T+&0J^?TZUj+E4TyAh~GeN5Mnu#hXHwV8c`bq^rZ%hYuLe1-$Vv z`Y~y3mu-jBb-n{&O?P-OxXyKPpfKfuZ$j__82Q$a{1Kgp06w$>t$g8~hAG#Fjz7+T z+;Dj;vwHf+Vsdt&>AM=s#Z$RYiH^S@pELv=KU{FGJSC->Lt#QW|6B6wdMghHHO|?P z8yW1HswPl(c-IBGsLhK@KDse}Qj;g{uUUW)_8pK=M(ia5<-5OrZPbmAuJhUHsLcDa z^UQy@`281LYg+p!mM)v9n%DB1WnGX0ZA57lF?LV$?Kt^@tXW}K4AX4vD885A45%< z#!yzuy8xFj04R8+rQNf6wPMqFe?v0XJr=`Mi#3JnE0~+mxJq^#BPpIo4+EIiiuFbU zS^ogeGDN*?wQE0}`2%b0!$G^jE133}qy(F<+j@Wv3WxCL(zBxx?Q@T-Mxj38J>%o! zV{95vWlM1NQ@M$9wthFdC6S2drbjjzI$J`;x|~1%{rh*uVzO{x1aD$tS-|Q_91%2a zik0;xNYlDjQe@Yz)F)-qSC_7gt*AiS09wv0DlPUGfJIh{9|JMd%x6CbM_2ELfXXm_0-^t;Qr8d%UZZ{J>O%b!8- zpF_p4!qa7$32gi2`QrgBMHbM7fCxtH^Aqwch9!?w>c<4hb6u>uGZHoA91k>znX^s& z+GYv+rGw+ho~BEEjIECybr6{dpkTX!#vh52L);Y&2SNQfu(42tX66WISEK|3xjz>z^&;7 z=VMwB3OUvH!59*Lx%lFQ;Udw0pXg@yH|m-1%C$f_(bl(=MHjmIymd0w+-2al2t?}? z=<|5VqJ#^u5;o~uyaK*3K#yRQPBSO~1llC1Z~yt~^Mb{NpFR79&01c322nD1`>Cg^ z+l=a82TTbW?KBVvr<}h)g(&9SUW<;GNI2|$ekp3Nks@tpUimGo$!*T~ilz9HTowk9@wq*mqf%WVV0-jN~+EvvRAk_vqb>S@V zigDGQz@VTETp1Seo>PE9JZ)H|6e_Nf=#tG@CQVIE7#t^D2x1rv4jP#ktLZ2NF3588 zYd<;uRdk}c_d+{ySS2x=<8*37N%(E(`!o~Ta zO^fN6CRl~I6fombyYVY6FGc`qwn$Hdy#;ZX&wT+PKOVNJ4^_b`^H!`oCw16^W3D4e zNwB=SdfOrA>2)G4jM6VKDSXZaj)u0mcilCPUQL-BC|Vd0DID?h$x5~~z7PO-bsa-1@MNM7fOlwLXlG24c?o7<(GBhuk608EPswWpU);B!5&o#Z zLHZ8vEP*U_+Hvvm;XA#{x_Ux3{V2KXd`bZzTj{w&y}BIp$(=!W?=}InbdO9GP8HC# z)nmjAb#!#T%<}>Y(^9gaRb2PmI0MI_a16zDvdI`1*9uJd{7RD*`0&x~fwvBjj=hA= zV(#9Zc`wHSXslNrbm5a_DYN!|G=_}R8oWyll~dcwr2=IDnIk6ti(u9iDq7SRr{kK2 zRvUbf0E!(?L_NTDjSfS*fY4GN((NTRcXmd|de;fZ<^GJ)zAU?>X-f@{=^X(YZ3S-! z92Z6l!P0qd)+)};%^h+tFEHfZJ#lc+;Q;;fu&@Zqe0nHOi>M-ydSaYM%b~Bx(4wkd zHdKUNhIx2wRcmW&W1#lngR6-5Jv!tv ztNF~3Pig7yQ7dX{RJfR;4%)S8hV@j215)4xHWn<8n=J%G_hM{w9;-$W@VWgAE;cyL zL)okjk+;f9vOdWqMb`tM#scT4efxGA9doo~gK9{7DOln&cqVIv@}EvCsY=trlk+V- zH`ZHgm~U?x_a?ICfDM3d=^7;827y-h4luBZK7~$(THSybjEpQhJA3TMQm5a)9~UrX zS+>oN$V(bLf%078F}Jn|Cmm(EU7us!>o)(KlH3FXCPZNT3hYE1p?GS#|C`WuYJ(Nu2OiSymTsug|Pa}LFoto&uY z;9d9v<@F&Sm9{rzpo%~VWG?89%j)(T4lkPHp1J0!N!4%{J%{7@-zeRCim< zx}cWkp%J3l62T7Bh+BvauLvTE4B8|iQ}^%RuX?j)%^FBsQE-xOsVl-os{@UKW9N+K z#9>pfj)xK@5b6+7Hc3}Jvz#aOz%uLKoVvOy%! zMFqS~ktv+aPCMDp8Ed-KnbxbRsonm`fM*G2J~|OJMv$52-039lwH${~U%q15+kd@l zoU~`stqwIDq_GW^6O@n`=meFcU+-OpT1!Cbxd9(9cE@i(yr*AS zbfQk2yx8TtNoWC-kJ!fDxj{_m%m)Y!)`)i<&}$b5s_)GVw1iMV zYAAv1DbhPHGt}drD@QIxWw|RVXO1O3jo@w2{70f0bO-97DFBHwc>)$3I^K#Zuf~Iy z3x(^FrNJu~g1~QzVbQ{?RUF5;n8@r$kP#I7FFDA_$jH5~Gd)Z^Y*uv;F^6+Q%CSBV`yvkfX3 zUX)Ds7nWTFy1unWyyA^c_!n0KO)y9xw-GRho*{Bdt zywuLOD9PHZ4d{F1Y+B;k5$guyev^pv3Yn8Sfy^33QpL+VfcBDnzxm6+m>3S}OZ5r2 z*0WUSe=2fwn^{(d*VdaWgQ;!?2Mmf;ZB0!yx-?7#aog`Y)q}Q!Ei-_l;e{Yjp))(0 zUte%bozQ$}I>ss9^7r3)BLBmsk@d^gDO3x+xFhAZ090gwg+R}`_X4C*q5NU#hGvC@ zXOb2jhx;@f9309$V5akBp`30qzIYM&Vxj_PzuSgkw0LpSY^5AVj`&Du%BW)w;Hca+ zc+^(&d@_9m`0iqyp_5y|(?H=14pm+iv_>X~U+#a!j>lbDnb!xDsfu<|5lSI%)G#y{ zqM_md30^V07hhk$YMr$|8EinD!{)i0^v^w7lp;v>Le#n4cU5*xsEtr`o!b}QRBP8L z_MrIj+a#(_qWLAz@=Q}TR83^FOg5COuDC%k5*tFH!J?nvKkjCIh1dxm#2GnNd*(4+rGV#&n`SDs16Oht_Ms2u_@En2d(x$ z3V2(v|IE6+du%wdc6M;LrKAYO`B1ZX*&9Hx!?D5g|49u(qKl^-nE=NJVcaO zYy*ai;tu4K6N?W#f=$ZR+3I06sDwSF%h3L0@KG>8@1y51=ebotmG@HLf!8Vu>u?3i zJEN6TsDKKM(qsj`?9|F(WrK3Jj^d1h$ycC5XheA&8_YJcVIbHObm}`4J~R$A6VhzD zzX#BP-;z`{%P!qV9i4v4ANI!cc&S2lXi=;?)~=bocb2^`_ddT`!Fs_Z$2>_@c`{Hi$uLZWy91 zk!k^!gShpco4J6*VEe*GX#$Jkl_a%bax%(->RU$fjWzfko;W!e&nWf?Eas6O6Rf^eYDRqzC9YHTQ&*aY6r-=iY*pn|B4KbW6U2 z^++N&?g)ehKobT+ERng#P1&Iu1+)lF+uA0V820@Em~?1ht10`zvyU!;vItFv&Aac9 zpDaIo0cyp`&F#1s2W|Stzh~Bd?e4zPmY;(n1o@~4EMo88z4Q)0_LQ+%gNqb`fX6`F z1fWMW4fDJey^bPtBhvB>tI-pKL>0_{!}Ho|YG{*xinATIqEpyLPqQTnmw@D16D|+W zR0d@TYuwklPh1iAw8goA~*J_^BbDN%~%*2JH~F*chcCp zo%eTNPVZImHS8*N5__E%k~cN?daWSixCoN1^>hnKnbUZ7l6uK zRa=`DI0=|E1vBLwa#-jts>;e&-^Z3Bon=4Kpk0ea2PPz3S4wGhTb#!-=_Ty2xzB&) zV_kC+E4t5;|8p>}z;Qy69V7%+wK;lj8-aw?PThfW1lqu5(#{#dq%oX>X$mF}&cG-w zk2m`8xEePf01RJ9dNqTWVLS-D7Pj8E%5HIf3WcexH_FbS%zqn$ong<5j_YfXcqKll zZr<%JOX=&wF5xjT?T}JXBl1z0fKl5(FYvBBDv@`>!k$5i!3%4}kMKiB0@E*oZ;V(L zkeNBrR>5abL0WMkh`NIL&ta+qGZsA_j9d6wZSK0ys3OE|CfqGCdrji{r3`$%9byHi zo|~Np&h}M=P(j2nz)!cuDK|Hgw7k*;f_%y|jL3DY`!1Grji8h=04Yx=qPFT^gC~0W z+I#F#BDsWCC->J?#KCo+72LNk(>_%kqyzwxw@JUiUM;0ZTT9n% z*$;rA&P|8bHs1H47VZ_wKExGvh`0zSOjLyOD`_5tpLj0)6aEaxY#ykVgc-nsc%rV= z5i=UCI@T024}1np5PHhm&Ab1YWWY`>c`Y5>%;}LXIP@*3e(3z&EL_1ns-T;z1}y&# z>MYZ)kR0tx+XG4Mwu21N&CdNd>Z)K$#}5t8st!!$n@O>5ZN?WaXm*amGbL@1Le(?N zi94}r5DF)lKn!3R?E@?oFyc8tE=-r%dJR?Om_zfizJh$}Zpapr7y+ONC@0xY1|@KD zx=hLd_ZBYE?Gy`4B|`{DBwY*xpJ15hS3e&(f1Q zAmwDoZg|q>8-r8S??Jm|Hp{L!67qi8(Zjx?S@(DH#qPa%F4a1&;j&Vi?q^-*?AgrJ zU7LO|@7i^L`=+Dme5I?`Cu|oDpHj%L40|HV@b zKk^0&Y*cAdLvO(-0|Y@j045aL5H?U1z#{Xa-`0$kfu+h-fqXNw^b62tY;#oHJcM|| z?DL}eRLu5$7pq9n5*TV46dFy&2D`yX`ntN4&tW=bHE~oAa{)??q8hHH%+2*m2|2Eo zG2sfjNwoMn1F(?IX!j7fvDAK!_XY37j>NX`mG1PLzEN{t-`yb$p})15w*(xHVMXK553;BA&Hrk!uk0jH$%v*AkG(! zjo~;PN;gnAaiR{+u^zh0-MeDI8_R_YU>O|UfceM)oa4%YQeXi^9_@edew5T`r^XgD zQj>2+BU(V@RZE$&YJd>?P_D*+1QfXkWIrDW4vT;ZR5XNszw}~>f9>gsLb?UYDqmI? zhHJ<1JHx1roA`(!s*})tuzjWm1)a&)EaU|A_+J|Wo?>>QR%1U*R20M$P-|Z^=MTyv z%yY*07(~3a>ZyR5bO3>hqI}R$vZR0_hz_w_a+MuaW(pOWmUHjHc3v0rHGILH)@n;? z-%Wy0;D`XXBN-4+a#LP*GsmVsR&2w%;nQUIEd}O@ns$Iofu$oj-4D-r%aR98u!8i# z9n!a>=`1GI)4j{2luC=V*(Sv=>Ylkn)9>~;kOg$FOUCvtxV3&n?nlV;g!^AVhxIWW#e~ammAYr0KZa)uMY5B^v_CP79 zH`8#_02-#{O^J(5dlu5Y>^^@cu0u~CjkJy|{{+b)a6Bmi3*yJ8^e&k5P7q|B&_*E` zba!`KxL+2j(BCdyQ6%H_OJ8JM=Y6dUphgTXNjnl%B?ZiKU+_F7%_W)8H4Sx$%J{W5 z#*Lb~$>zS(RVLM~3MG41%)?IEId*7c=;k3z7{2?v{Ff5VfBc4(DVWn8gw2#zhU$MHhaQIh3h{0_S#OFrOA^dc<`VTkR{2r168*pg@Sn$mOn4UAbG9DvW$54 zt5OMH=GcEp4H5-2oG?sV6rSBeLP8^TfB~4S6G*ltzQd=ymIFi~L(nGj@s6)NxwM|> z&w%_F3>UBQI*{+CAn@kYI7PtQ>%GdI-JKXRg%Io_cbOjUMA15!e}i5DjtitrkXty^ zI>WD?K-lNNO@q>?zRczReu2GofRYUb=)1;fBIOHz*8^7n$>XEV%H~wx=E* z^Ye#AgG@Xs5#X^WBmK`}pU&4_su2f%p!|_Q5u77t-%{)gdW@`|l>}}h62!3MUQ85hl6s8%8ktlC zkmJ=+HE%Em1qYKL1(sO0S*s&4L$uQdp%vkS5^eF*!$VwnoGYL(kMg~GbQ}~=0Ddmm zHGr9_5+g^?dD16czf)Eh5{wS4)t#O?^=Y2DQH!-%tUp|KO@ynn<@@3!bL)?+vTNKX zt%7}q$^)Io>-HKE}783U#U_7_Y>z0NU*2f zDdXq56BqaXkwU1bBK9~XX4XC_q5r;6qlXK_pAOsf(EUp?@Elo~ z#^lYoxM%LMR(O)l3DXQg5DFtB^_vQ4Dx$wL66hwOO(F-2M?fHpfV&jGAI6pYZ8>!F zNYj`TqHA-jn(*^o8&2@0FF$|d$9jvy4i>(c_5Yr;8~&C2`pu_UuO;Wwkr6AZ(2_6x z6@+++&G{rGigdzr(*{075wN2Kox2c%8ZeZGma;w!>t7k{Xo;MZ{uKRRaPN7Gm6DNN zx70`Ea=b7fhag%fxj!@2JiHZ`&i3H_Lpd~{gCo{J6_^SIzjiwLBjO9U9?7eP^^HXk zG?BdGawRD+3B-apQ=S$RR{}9CQ*=q6!f~VlsEmThrO^#-Tr47g!v3*#R+uoq+(e`iPYju?ZLqp=W*qst%0z$U4dLmHVmSV!Ls@A;RAUD5jEHYdd)L|?Q{gf zV6_vpAuO>l-37LV1cce@)DSO(GD$5W`7s>ofC>*3n+@Tqq!YH9)0(Sn0c9kDj2plI zYV&?>?jCR+7&*zC5Tm@5IVbiM@B&*5MJ_iA;A6woBub`%fx*H>#Js^)Fpbty2%1TE za{v#oFnPMv9}{%J?!auo4Nc;sY`G@jOS!@21%z@0MM%r-Pue1EN{l3k=2Gt_G20Gx z-P*T+V2g-Zi>QbQrdJNU=1!nMDS%(7MaS>$Pee;WI1LDjv`b=?UjONesRNMv0-uJo zDbVrfmp_`p?qWDJeFmHiQ!4b+SH!fdksZmv>RFskTdZi`W4Vt+7cobgP;EWv`vI)* zgF++%MwOuGSc4ieK)x_X?u53JFhB(bqA%kKIT#Wqa{2Wn*AA%`vQ{*%1tzQmQjbrH z7G|N6bsMu07CBb658E@fzcZym{9U`0C|LEwmUR}oCn8f>i}US^SlFnrr?(25j+5L9 zU_7!N+VB0a_5@+=!{)*sHwZ2W7#pF>BbU^VP(EBx{cAtb^(L_Y3*HV)AZRM5p$VwE z&3@njC7sy{GCl}RD-|IX+D@>}{7FM%@mg(3TUrz6;0oa$86d%ozuQe6HbjO8+*ve; zZgKWw(G5nXk7gjM0_hj}{uKN|OPTBDkzy6I>ITw*P`G#BKCg9K!y+P_Ae>BZ{ z6bSi{0Fno{fTec9$f#$C)Bs3;DVRE#+Iso+BbWoZ=SqFBWS+pBMB>R?i3Zb}tY9?P z#XeQHd%!^F%8=#2X5D=72?m^aaYQa8Ffbhi6np*nB_$<`h7mHFM^dHnkwP%U4@62j zVakI>3*oMd1C)?+X4F2ze8QmRVT8$^5}l`KFx;Ti-`_oW4f%}Zj^?VFW@NWl?!1IO zq?l6*5W+~K_n6FIdm45##9Jbj;|?7Jv;dJ7grLd8(<|gQqx9YnUgIRm3Q;$x+yOnu za1vD;Chj5Zc!lsm_G`QsK4pf70Zf?ztbk$yn=QiAgN+M>22FRvR_yt7Lcq+M{}xJz z;jP8+>wy|gOS!J2Z*XrI5r7E_f{uR(S}P+e-v)LlR-B1sXN4ZTVnA^))q6V?xV8bR z2yQ;Uu^tLM{7HfIE%K(O{X~iZA4B8X58O)L=s1O!*92t+LC?2URZtwv&Xr*@aSwVD zcLJO@X6F^iW*8zs7bLQ#Nj#2@umBAC0V;BYBF;z{z{Dwrh=b9cM?5y}(Id8NYTmx| z1cc88mHKYtv5F*;6jUGVX{gxxPdxGowHYMM78LgD5R>#bnC;*z#YGtps8~9W9zB9E zCS_@Otgz(z4mb$M^=s7jv;j|HP2Wci0BC^ z(R`S(1?RhTsGTNK8M2tP6zptx7;q>TNCkw5s7)}^_JbAf=4(NZ!+a?&a+_08RxTK= z;E!>g?IS(kyY{)~#)7s72s5K!2t1RZ-Y)v~8sLR}DPHkjoG@MxeWME(HVUwz0YI|E z79=-77A(ZAW-lJ>_rPF$Ap4RqhqEB3741&1Kx{5j{oWQjaOD~-a|q1Z<8jhTK4e1^ z$>3w>zuQEzA-5u#IzX`mD(oM)0eZHLAnNy{$X@;W=Q=l_nqcmn@eyx5S)Yrn-o>Ch zS!Wc!#E_Xy65W@&O1`9#q~L>5qSUJ?kfhI_Q@LN3B8IU%yu69nk%S9DB4B`o(y>14 zQjV+FlM0U{PcmkVcMDfLk{3Tgrize3B3Tw#EgF~7AQrIvP+i?K!*98RU5f-9VD6X+j_3*y?ct7V-#ml2S%MViYQ|8#02Nfd<*29Y75v7zHOTBqD!- z)~~9f(gsp@&adJ6Rzt|auviRnC&@UX^m@9TuHJ*XxkZ?MVOc&JB{biiIvJ?rsAO1# zTxPTt+Tcb($%?3ptE}dIi2Cl`8fhK z?1i}oRm-cYjw>noG80vf>_jklCA`C5|I5P(D4@QDWC5vlXHM;_mDqt{OgbWE zuL-S<5J~G!Vp?`IT`uL)*>hb)32>zWsNz*#ul~J&*}M39fX69p{$2{|kger_=h~^dHW0|RWqD)d^06aK zZktU#_81sEm9R9dI%552EYp-D7gNl2CXt$rp>Ox@P>s&VFhfQch7?btV!1X4>um$x z!4KKIU^ApZkzKQ4RXlaoa*k)$`7^^rmJ~!yY{oli`R8G@B8Kx*z{6!-BhU}8?5u$` z45WolG8XfvRX0;@whMYPoy!}fHcx)Bd^%IhSY2Mu3TF*Om~1cvrZ|K&H>8;ecs3+e zXSD$Zs~PtSM^Byj_Hg3<5f8i~=qdfgdFOLY^_WbX1X_?3`0^@2Hj3Vv|0jG_i9a73)8B2H2Hd?hl+I!QxwhdO@_3CRSKB?1ESD1@7cousG`L7Qy3!ZtlpRLA9gNpuHj`XFRFrG$O#0X$|>tT=!q-7xdH z$%h>yCGSeE3K)@KrUYakX#jp#Dx;bZGswB zqM<}K%-{+#s5_XZ;y3Cd()kY81$F>a1*v})XRS)85m<8(i;>~6OsjCB*J|%oEjw(9 z*azW@KCALqybID4>6NAD(xG{Tzw5NBi&u@oVnYoW01K-s;<*GH7YehI#P#_5sAhy0 zQm8~Afi2x3z6BN187C4DWb%68*tuPGu?%N<8GflwX3%`F)1>0%pUc4l25_zbC>W{- zc`)vWC0-UiOn2ClLZJeErk=|Dijfq2P=hfAnGvV%2IX0PHQ4^~8+0X|8|^Pu@9f58 zpa-A%0Ysz#_5x#xfD7Op3D6g^H?qWPD<;S64|BJOprBFodH7-n)4RZ(ZqRSbMWq2{ zojv@#8%BBor~_z-a>-85TiXsk!*IjugbeQs&k{^F0MnH;3)rjtXZ^e}u+a#K;fr{0 zKrjg0ljNszlz8^L^U8FJzq8?uE6U5U!@!#O5;EdPjf^nzKrKL9gb#sxS(1b)$RirA zx1B_KkbEIpJhma(!-6G>6kq|_@`I^QEDY#^q$O?Of5dj<=!-EV+{q3tkf}+$NwEDT zGlwNws%ZnlyGSDbIAajog7@HzK_u!>K%r9G4Hhjf;PA7#WOjOmFS)lcpEuFT(d8oa z2x^;&tRR}%Hrw7cI3ubDy^P(y<4=-Uf$jtU9t(e-Fb9Mpc^oly!iap$9v}t4=o$9J z9-jufvm^)*Hd@{PRMA@-Qv_s&MG8cuK>0t&MCqzel;u@aToGtNZ)m{WfJ>cfP>>7h zmq^q5FTMNI)&vz~VeHa|vvP5lK0awh^&kO06lOPU9w3Qec$U4@5#cY+#J{uF0X7Fk zoWrC(4W@wiUw|_nCU{yGtpRu55%e|AjjBw+&QeDJI-D4?05>2XgbWMWAkX$H>#bDL zbVcXuN)yj8H+&?XO|a(`6*u$A9F&{SxODbIfRLcB&cxM0@rRc>YYog!j7W-E1sLcW z@N;QLcyD=sYKu=q!bKBG!^N;0Z&ftoKX@dmWM)M^ijU{v=0*yDQ&eBw5 zi-TySx8srKxm9o0ehzk1_|0gLYz00KW1ScxC&CJD`hYwypa~%SK zyXlu-46w#9F(ekJKOVwd0pLPC$;|k9;>{95)Z74);()D`P|b|&9w}mX<_viN^p`mt zb`qv<+hl|s6WO~0c)*u#-t*v?5y{EW>~sS4&chDzWBzPSFkc}0AtUDsnu_cQ>Oa{K z#+PSj^lQI=gBl!&LF_{zP9v~AwDGH8?|^Q2-Z&}@IfgT|H7|pw1F!9FN+fqs9}ALHVbJ1w(x1CPE`Hu#L zg=saNzUdCj<)rPVid*TL=NtOmH6zkBBmN8t?Z0;TR$Ok<+lM%zgs<@ZO{<&k{YPJ_ z8(`ZR-)M7YB;Do2!ceWnxefv=7wRNl~_)_BbW@GA93`*Y>d#Q6z^O{tJ^h|-!4%0Y(Gl7eJMSGO^ zqdxQXR zS?+)ih<|kP~OZr@im2IpKaDCxoKu;LJ2=P$uvi@q&+4 zV-^;E4oSg2Bu=zLJ8}xdWAl!|CR0cPSd0jmWL<;Ue zm4q7tf~JB^6`<%Okq$S|XRrZMJzSG?=as*cck$&bSXl<4<92xXN5BM#09=DRA!#j= zv^;=5nl1d*(0nHdC}h_XvV0mUV%(PM$6zND2c=s0Bb-7AJ)rt@o8bn~sI?`Ty$lQv z&V=R9D2;T)nlLcS7pT<~D$(w{w;+}O5%?*#2gDWU$@cVIZF!Mil}kcbn$by4z7^1X zkr=`@N+?Kc3hGg}5gNfKW;3Y9KGhK!+$EpFS&U2z{6FYaWPdd3JW*#MSh5+&;FS)S zCgd(F!x(Rnz66eqGX5Z3_t_OzX&nT{K#NY)Q4Fbj!KE3cq3khDY|KDyFJU0J3cJxI z@fX5uIU-zpxGmt$79S?*u*8!NCo|Lln`eLSEowKz8!dp{^ANgSg*n8#~rhl7rQ z)^HpIDgVuTz98dj0(}`5OtgBuFtnSc?S15I1R@reYLT9TG~~uzgq!*nNK>yX&b(-s z-yLR}BEIdm>Ao=2eYZ1CMA6?&*VJZq*gv}XW{ia`MCNx*o|7UShz}XkJ~-xg&hd`h z9$6f^Mp?lIGC}rO!&Lo@0VbP&-X(+cyS{QG=d+R4Ms8*R$0CG0Fwbu|hk#eN7n}mu ztd%uKFrwoRg_-gvPs1uSW!Ym#FABt+jn&FE-N%xdb=!2TX61R_6`5HfxIZ@cRC-D% zza<4H<-NUxhABgfoUE)NkfXxf?R)ohXXzlO63~Vw0su1z+tuVjr3n26c#nW|IByIy zn9oIz46tlcuC@i&lW_h?g(qmkbQG9y;fJhhu-yrt2A9_eP-O^#G_Ginlb5#-${*Q3 zO+WrN6bxaLldmEG0x}Q0dSX`V3s@g-XHa)I_)^Em!C$pO+jYp-Ter_=tM92<^Qt<< z-fNC(7yFI~UwQ|93{VD?L|faKX1yoXPm&T#)XMfZzGg~BfodPl~0j!1V9e8 z@_Y}VLrw~dfjNq!Kz@>~nt4y;Rx_nyA~XLq1>b;Lr<3Ijb*a?ARr*LnA0w-huvQek zd^W36Hmm%pM3q$~I!Vbs5?e5tEmNO7@3_yl{l0i&?(+m_EjzGRi9J9FYRfyNr4%d9 z$9S-RqC0*oDE>J1m3;z5l<7Yv!EU&8ZZfKyR~9D*Q0**PclYi!Ikcq-^16e8&le!Ct$$1_iSwKu&x+jh4mq0FkSv(n`kP|2!J3$sRJPP?a zxGiHO`lzg^2(E4ZB`#P+Jn<9RDB#W)t4I!XBOAp`8~PDasCfJKQMDc%CYaW=U=k`ODe(tV6Fc!4j~G{-$Z%;uNqa77f5&pc*2*rW<4qDO{aJ6dvn6? zWc>0ISKpkty7Gip(uZYx!upf82OJY%NuEB&S%H?YVVRsmB6{>ihoVX$3J3U(qWGOVWFgUKj%MjBM`L~8s3;47vev5y;7@m0l`pF4?(Tg>a z4%l<;f&-WVxd6S$SU}{+u2U6 z^J;Cu=UW^NFWT688A%oh<>G4X75cWG*_w~}Mj1mz{?8Rov(^0}bW;iyd9zrdp6+fg zSEPh@CF3UKRD{k(NRjJ2oA22hLKC9$ z(UO@isZW31wbjOpN9W)gu8(e%8A!Vbe zBQ$~irfUkakdbDThG<>!^aiInX|4$ZWC)a%VbeI#cEai7*C~Vw57YV&DzU-#ru=oL zD*a198>zGZERZKT#Q`}K+;g17q-D{CTo+Dbv`|K>QJpYeyskr}#XAe7E8`ITZmqLL0~|ba6I=bzZra02~ z+dZJ{9a`E=g)Vu*q6zmP*DxZ3rDN9gISDpYZ1$RLh5qL<}K(10}IF znp)xR(?yKie-IItm5j!a4WY12S5vNGHh?jNwr<<`20O8kF4`td4jhN9ajL2H&vVHA zV26q^g^Jlo%oXy$Hc%pRa2SpxLPD!za19N!+)GkFk4Ed^@VmbQa*pi31>pi`s$do? zduEG5@=+4Zxqy(4S8f-@X5y*dgYDbOKWl!~n35OQxMsNTsW@-^*dvACXpYK~(O!=b z@00)neTUOP|Gv1vA?DAJvan~`H$x72!%2~A3iczr3(bSd=!yee*5ZhXy^eAXL*xt@NkTbjmhz)IQRqUf_!X0L7NFJ8bJ^Me(t+eJrR!b1o7?SUdbw|GznjR zXJhlnFg^M<)z(l2hb~E(KLi||1JW0sfu>0!iQt9t8BUrK){irAuO#PiYP#JZar;Pi z4Mvq1i?1gm&hcL$=XM}`%3FRqM$_c$Zkh)CPP9MZh+>}`GHIE(I>f!j5!~a;lhYJi z+NJc_JUBR*Y;pys-&vG@#A7AAJC#u7l0Ra^)*jC0fyh7(jet*v--z((h2?pmVW^oH zEEQ;ja0D9@HF(@I?Inl-LqsB|h8X1}JO=qOvYP-8hY7))WDSXf5O<_4(Bwa0f*~YM zoMi8z`*bK#WLF$cvzb6}Ftkvt zMxu?8U%!N33kI9)Cp6A$xY)T|-KrsNXLxscb(Kv2 z@zqr?mp9?%X&*pDSRuvALXMktL@bC&iX`iboYCsZv09=b9+7VT#Iirqt6CVOdWbl! zNIV1w1-%L2FdR3CNAdOJkSatyC|a0EQ`&r9OREtF74F5r!i(R*9`GFS39Hw$=Ev$d ziK}4_o~v2~aPU2V9)*hE+`ua)mUCtU(u6VO*Bam#tvSEFO_}kGo8w63@=kB&;ayqO^p$xLP`LXojSgE_Md z856(jsq_5--}=72&N}NH_TJw2eV*qYuKT*LTiU2%DavPl$*$(Y&loutOEZbH+y0T} zwAVZZPVCg3=mm3Bqv1k;Il}dj5dx(D3Sl0EXvtBySqIjI*JMPyCsc$e41f;c^*F=v z5t?9@ISrl_G&GZpdK?KzhW7UMB6=iE4}?(+^MW1i3RH&oGa=*si-2)mgky8ZafS2} zK{>ppv!kbgxNDvy6h1H}z!i&6NO+&Dy9?6#A2`E~ob;OqX?o!gixa;R1T+b-jle0` z4;9`Z(?fRG$E#vDJK|eZ5kFuq2fAm8V5Bo_k%Y&lK>^5cJcrBWiZ(;Z3M!0qq|XEe zTS15~E=tBNgh@}-hrVHx4SMMX|bt8kdGU8aNz<&Lf3bEusw7zps!`DSkJ+3$xiHXegVl+=E@l>sLvN0!s^evlOZXtmmiE0g_|$aRN%4TCj1-%qW)v;UcO8^B@+I zGCt{E(;ES)kicFjW5ddcZw~wp3e}(WA}T3ldI=8u0=qO}OOW1OaMb~oqc18nV~-CN zjfjBzV2@G_^GDH~QTW`Qbcr3L zW&?%-n!fbCmj__`f*z4f7QD|C>}k>(MwSUIlpR`qh~UX!Llo)dNErp>>cwX&Zf(0K z*RT&b8E^FYHKZRG+9{weGGBJ~K{P*m+xqOiT6_f`nKji@w^w%FN0cgD`9R9SbWxJ9 z)0m0E@PC$;pb91fg3shqDZFPLNc8BPgMJ~Ol;7tk=M0lqpu95p*cWdwzWIzcxJV>Js<*tvu<0;}#PobPCK z=b%fHje^by)3W!}z^6PZAhdu@EHb-c6nS zF_4fJi$PkzR+N5{yl!gCJ_vrS4$TN*p`kzEGlWW$*2T#atLWoiDCYm-=Txe7t^K+k-1F_IF-7(| zoZo%*<9(AqYhm>Kc_);0X~>-nPK_1CAbGw)%2A)NJyu*gA_3+whZ5POfaJrS32RnK z7?mqvyrc|txdxO!y;J7OEd(ZSXwyuD_oH3X*P$eQ` zcJL4StnhD+3M_$2vxE;73d`dSFSY-^E$s{$6drfk=S1`o^dOQTKuKf#wf67l`9={N z+!3D0rN5yQ^zk{s>cGoOf5$BE2!#z98f-ubS|L=tSl?1M^)$VSzQ)hnR?=UyLt1){ zP}Py@&@jAD2&6gnR&cr6lMAU2T0-u_=)8cGON`St$%yUT*3h zr{fNpwXrFc1~Bh%P>PzzE@r4kpE4OuZt+(w^g8Na{8zi8%jiBU(IYX1kewPdVwg@qQEq z<2`m+E+u~7gBL8`@hZ}h{HmuV4_|`mmWJt$vua*SFY#c%m3*6DYEeLJEA=X`lcFMp zTQjptm73_vI>B{pt8vT2VhQ0S#r*;Pykha{XKu}GJg%x`+SI@)O6QAww9?K>aTiaL zYbUirYz<3Asn0XO_7xkSR>%RA;cW1wKtGBz?E z^tb95>+0%)aDwib2eNLCbUGbLC{#+!&CHG)8)FX*-?*`ATmHIj(o#|{@v5q#hSfeJ zFDbLj=6_LM_57vw<#4Wnv7zCvrRMv_RlA?_{j+K#00g{5rKFw}7Lu?4-UeJ7`7b@NS;=(aQTZ~~iLo&~v|pe^4%NC)6$?~BF+vH9w-$uU zC~~n+$u&poW0OeJ3aVI!Cyu7By3Q{PIjg1#CUIaZ-MyY|RtP4M`$)KtHS|G3&_q|+dOGjq#<~ zAV<>2(6qoTwo^33e<{vpL4SvM9@G+&FEf(7H|Cp2K8b@d@rzDRtr=7u{4+spLnVu%2u;7fInv{Lj)>!YDT3qZ2zt?8h2UjfTIh(;@3bIO@ zeAWM~_7!Bc#J+>lid3XEDx|fg1^PzlAXjGQmZ_xr16WnVi_tXx*?7GB~MS>#`Xgn-9AYCyiz6j zwD(Rci0vcJIHGuW%+FAxX6Ls%{0khP3G@6dxzU$l6RK|}x%`T^`0CYa4hTnY-)1Y> z13#l$T2TODAY_FhLIp)d3TPgISq1ufArL)hZ4DUb9=tIi=R=FSPl}6;;F zH&h?oygOVMs8s9N zZ0ziT{r&y%zd+20#+e6V0L4Nul4v1#?$@th|6?o#fQ0Ux`+=*$e>QHuudgqhT~}9Eb@kDcC*N09RpD%`{QZ(B zYH9EJGI`VVseoh#i>d(s+9OJm23BM}KHz=wqkN~2p{fp*!;Kp^4jOQ5-YjPFyONGR zX*h^563;a=_<;7GmE) zV8v>peciE|2eRnvLWEjsRdoHj^6AqZh`(!VYt^IWab)bzo;~};oNgOH!~<|6IXOQN zX^>d`T#!Zu3&GA0emw+?)AXIvv4 zAj?_G!J|j3y8}Q5i%Am!H*hQz5oq)+KfeuYycfoZTv$q#5J*+B#`qa-z`)qpSWi!c z;R;5GtU+SDj#&95%GE^ zrVMv(BAx+Avo-cN!pX#xy7@n(KET9udWu{Jd8Hh=im%7(&tJfQln-ikkRLEHod{e` z!0-RnS2bK79313Yzy3&oz`*eEXHeAurIGf@Cr=JC?{ytJO$z~97w1xm#el;mB2mcS za1Jo$;Ut~jPZXUxp0D^)4|@nrk`WQ<2clS0TWejJfIGe-nc?vn zxNj5>Dm)Yl1tC}4U6A6@YUhTK4+-J^3{xeg3aF(F4G!jrVrQaZ60e&#Z{ps@r>0tq z9v_a?M;|G;F1ez}Sx_#Kck0)KuX1&DjcC7vf+6eLwW3sNQ(hvDslg>!Zv>|a@$ujK z`tmRB!h>}c!m?hO)-*9uK@=WlVqy}e5_b3Q-TU|XU|MJ)knI3wh3KBb z$j_ev-RgT^UxKCx+Oz{U%N61QLUcYTC%q{_5QzMO+}uwzMcO9fB{tR(W|WSO5UmM-5=q_X{tiYN0ChM327qsJEj)3dd}J%c z$YI>l2w+YnU$}Bq&`b>Lnc3I~+5wX@_0`4^{uo|>l|oP}hwj5NMN2>J&cT#HnCL#< z1xTf!SM!g! zj*bqra;CHn=G|t;HFfV@O|A)sO_{k7cMS0li6Xsi;^N{|s>*i*H2ozVjvb$wfmYh_ z=D{1gB_x~x7AyI}pyoY#r06mQB-R!qe?ESD92*PMznc+swx90T)n)2-2K|lhG7!%C z%l0$jh2B1hQ*zn?IP5MF5e}tdbeFilokMFv!Y4g_{hjZ(Y~8vQhjJ=F)}iYlg@I6# z8djK&H2b8>p(96L0W4Q%CKGv1l&~6O5JoUBph;a5llH1ce0c*8IjB4dk$O%5tlVX0 z=jR7`4eNWavl4i<7P}FJv>*|b5`>d5#x~v z+=rWTX4hw?VB4UL6R9su`hEar9v&W)mpIt~N&CNlC;cO@$UKtrpeVd^W`K#|C1Ym{0qBvV)<;@*l<}@F)+S#_Tb=PC11GG z>gsCCW?Ph(cWmE2XuL~IO#KwFKSg!*fUoi@agI2swt@E0be=G#vaqlqvO8viPcyF#>M@57PVBKv_OMq~WHqjfMg26{l0gZla(amFCXMP^Q+PYj*vG5(xX z?puhK0A`Cp@B$_V&mELutTAB3ZUCUG*!VQD5IE3IVW=gd1qC%TQ%JA^xw+`#lAoI^ zx^pL?QKRDJ%>n-nq}k5wG;TqB6;|yZkBt0$1sok@@gS{YyhL*nk*t|R6XlzT0~*YY zh-@r(A@ah75a<%cjo%R?t?;^xj7)@ZH82%GF@h>_6ZkdV;QrX;B-Zo;n#&Sh(g2eU zL>j)VtnBT0etn{ZkVY~jh~ag9tSM3-tpH_@X{0rRA*z2PF|_02SE z=WP-=bKh~=LECJgOCW+Ja-f@Ch-c4`SA&?6>jKm*MR-5gT@*!!G*gr$>efv39XP{l zyeq2W-E1+u*A6xkUJ{QM^RK3-rvrs$@m9V4BudG-Lr@LW4k0#y4%qP@KXNiN3vf_T zr2s?IZE5im2J8*DG7L-Ay^aH)IB{E=+zJU&x_ADGTmEnH2l=l5hfrol ZAuUQzW5c%xhsYPw4yhk}s&x9=e*q9KuJ8Z= 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 464e88297e0b0d971180ec60bddeae4a2324052c..1eb0f5f28a3f4dddb5a19ac11a98adee4a90fe0c 100644 GIT binary patch literal 20485 zcmeHv2UL^Gw=YrzM2c8IsvJZ_1XOwtAQlioQBkUhN+%*EKuBT~LAo9Vj?^eBD$=Bc z&XKCLgd!aR0VMPm0tAx0FCd7X|GMk0_wK##y?b>nvpzE4%lSId-t9_d-m?#yKmn< zK0ZEve*XRY_X`LJ2nq@c2?+@c3yX+|h>D6HIB-A=`1d&Mk3aqp7Z*Qx@Suc*#Gyln zBqb#eA3iK4B_%B_ee~#285tQ_Sy?$bxnswU9Y22j#EBE~^74v`ib_gKDk>_fs;X*g zYU=9h8X6j!nwnZ#TH4y$AP`7LM@LszS5HsxC)xPm#FMR=U0q$>-Q7JsJ-xlXeSLj69In5=e_&t$ zkH-%V4h{_s4G#~0`}S>QWQ0HF<)xjE3>WW}pNBorgj@T? zC+4NtPwYL~K= z3cc=ju;Sf2tC&|;5=yx3+uv2uUiXbGQ`B-Zau+M!`+Z0^&6QSQVEFr>4vdk3!GsIB zo#EJy|AUW^gV?g=T+Ks*k?)Ol9$3tt7JNEpioJfx^1>f0JOnN`_2DZ$4k>eXzrXlz zz8^dH5m?JeS%Z8vl$4`32y!z^9j2h@hPOI%7mr(2xc3q5Q&p@-nm)^4MP-Drm@>jB zS1pU3E?9axk4|v0<%so!2u@ythlOxodilgY6J#?_n$IY6GC)mV<2M7lxv0oTXkR_i z&4g46uy9XKsExcZi!@M}+esB6DyJ}$dwhCs&fgw?@1yg@g?sCavQ1~?D?wnv$o8B= zZB@bVvP*az^z!#AcfDKX-z%DbQoMnO31$|yn0KhH#s~MT(|Ri@mM@>&euOO5lKsoY z$R%txPwHRx_VPEfcRJd4>{ebsY1wrOcRTXi=sRN_CVXF}RH;`#Z@7ZqPU2p7U;DAY zmvW`DS^Sh))#n|SO_ z@Tpi^_|utqk{K&HEo3C7o&-X1{OAzKOGrHwA?r4EjmHe^=+Xn1iSW#0Wwg4tIf;D# z@Tr)i*X~{qYe3*G*QW;?nulfxhlX-%ACN69xS&+TwE4DChXZh`(~(wv7wf&5dY5J$ z4f&3$JFl>yR&Jy9Hl_th2>4D=Uxtu%qJ-CoL>+ztW6Rn3`}y}i{Kmj<3~XZHAhK`n z^G=fukq7O3`D1hXIFPar(JD6&MC5zSGV2FV=%H@?e*Pb_4|d8}gvQv6r#_(e?!P=q z62qSGDg0x~QbUJsY&z`Mu%hd}?`kD6{gFDKvB|T~TFmC#jm;_(LM0Cy+!SS$d5|Ja zSEPF+K5`?YKeg-ylrDP+Z)Xswu75P-2daKg^WR|8V5>?z6i=kQF0sUzX5lJOifS|*gbVNdmg(Ud@6n$ z(+}en^D!ve^Dj}{wfc;3j;{ICmBm9?mdp4t`0b$cV%Fu?B?P>-a}YH-2FDu0Iqj=w zSyR%B5wxXnytk`H$qfjjm5D_9l)X1$4_;#Dy5*ZB7#Zi%=VG;2?ythTt{OKjR-!@1 zr+-jj5_~EV$ynm5VcimYl~3|by48N|ra}p9i|LP%F1~ECM}csA2TRg|7moL}m(3;J zSao#1;c7Yi=9aWEwYE)aWjEpe<_6e4<_*_kVj+|BuYXj`I$qsPHcQ-#YfU7;Lk8d4 zEP!=U9PcZ?QtG)9bc+LY3>3&a_YhJCoz+b3W&=yT1ou_R<))+;5Q7%Ml;zhPgHL+f zv2-hUNG{a$!lJzT+J2-MSSCD~IH1M(RKD}GC@@(_ezCmQ^;L6RVd@}0{L6id5lE;J zYWLbi=cDq~#5;BT1=u{L^bjmC7Y#J{OA%fw;a&F#x&YC=)8rq+n$j+@gab!owWvuj zGVOa%DqSr~bS*hlS_)>L*5SJpoVxN{xGzNi`vO)>g+zl>$!Myl#!E0eQuZyc88D>h zj#=LAQcVQ;Zj6p-Y`X8wv&F@Tanr%GFhjPjFgO!@D(O?{S)cPOaRJ>|s^(kvwpVAd zsy*#hrc8HeTX&+>e;SeQ_w?tg?5q50As|@Pj?Z_(6B*)(f?gWZzAWrzFt2GwTC|6#qN)tUzf>06HtVtJ3s5#=6C;@2;0hCYrMNT z>8{hoKTUEDpuY#O_x`;HzxRNya(?6B|EE0=XD7C~%7ZAVT0k`dW(*+ul4`F2 zhCk2{82)R+cA%lcLg>W0=oOFnS=5H9;3c-o_G9>;O`?iN;?_UO?*E_xh6l+!R5<@4 z;Ipmk0J?Y{Qyh{MD}LqFn;@CsIqo8;_*ru?T>@+D^Mm#UffH7!GM@6~Y}eKUi#ZMCf^JFRRc>PD0qmA-SP;-f$!}US^mQ!= zeAL9oJj_gYpBKYCM=zFx^Y;16dv<1&jKZejUlP@)7iuHD(p7r91_~uG-4Yr-iKS{< z&M_lGeo(uyu~OK|)G~FRd%2|-;zu?#hM|V?HK%oOIX9A0CP?=$<0dsh)9l6^$mn&o zM(4V>?T-&)MY{_2R;wl*-bZ95n;MVTQ-hLRaRUh+AuQavZz3Ht5+FKuwZQN#P`HCN z#0>*Jr#VFeY5Ud3lbQ>_&d-u&a<;0y06)%APNMV3gnMNWW_g^)yCAvX`n<6$+dx>7 z!m@rA^`)w9-=ANTw5DH+755J`at+$H>z!902Adx_Jj;>jdU^VS#r1{al1FhI3SX)sM4~86~ozUCJ8;2&vgj&yBiJ7nvA%yDXXHVz% zg21tSq|u|Dg%F?Gyt&i<2n6W6=n+|YX|iTd>Q)__7s$)3a+V@UWw@DBo^{Cj>)PW z50HyWno;-#HD|S1d*2+y@})e{l<0k-935V^)1!Gsx)ZJZso^VPrn(MH{*(ZLqp}Up zqU3hidO@0?-K^58|2Uiz6(D7sPl+vPdmEIYwN6HA4=@6Pm*j-VES&u^28t=We+X;L z{1aDKfN*=tYfCj(7-1J7ewfMWwQeJc2!V17^{0|oSjiS*LQPf*BIT|C-Z+23+ZzsI zjNZ~s`=++ua#1&<#R(2#o%&N8ZdNM7D{6(*;~|d|oj6zeHro)><%UwmaL5skcIFM5 z3Ne#|K^sDp4qRX$WnGnwqTb49i&A7p&5>x*PzaCKSG3<)spewOPO@N^X@e{pGOFo@ z89`+@$*F1wn3=`@V=JG_V$0ZUeIZ3f-W=)>9Av4{g6!=8O9kVgq3;Yw0!Ca%Ei}Dw ziBR~>#Z2gU3x-Avb3;KRffLFV(-=&$fMnK0fO&Zdl8oy%G+@pGd<_g6&KH;vX|woH zuE*pY;@erV)s&}l%dJ6?OOSzOnEIZU;}gpfxqL!AUuI(I`f}=*2|klH!sZDcSAbkkM;JgHGOHf_1}Gnkg3uCG*2L2PB&#Q*S=$o_5!* zl?9Y?Imv#jX}do5J8O#C>rVcd?KZ52yjV8yOj$@PB+4uOcPgE^~zd0LY0Q`vKE?^q9Dqkjnc!v@dVI{w%S0>E!)wA!)ZX|1cZlPE*64G(!9PglKC0Bpb}x#jvVd_cGvr|C_k<6@p{RO|`>Y53AMS z(IQBD^-W6Pp{k*{B-)&<=(DZo;v`Y&i=ufY@f0FUr2@b^mr+~K(L`FTl&NGvJ76Xz z#{Y#dp*ksGcc8z?hD*B!>?j@_lIp;gq9C9>&g^%~r|L1c!NyevUHRwo;?=Q;z1CeF zy9nG5?YaKd4E8D+S>jmda#=mCU#S25fsyhaKke+1NT!txk5n8n*D_!#@wnOzj22q{ zH0W1i9$(u|mcqcMvXl0dx45YhMU*#k0R*lzf4m?-NC}Em@Mb1k4MhH9AwXZhYxB6Y z7!Ab9>!h=|6>8uoDvTEr8tR26|&krB7}LptC~X( zc(*`ZH!WbN1Qs21r^@7h^pj=~?VIC(uQHm6^0`wz$lgt0PG{q0VNJ_l(FG!h7J5r# z^tb20yy?$(e=Eg*=4sTL;MVhLHVcIPasZECFq4Ne=jDQUbHXlJh7P_=36L#<-6pU~ zY++IWSkGZ7G-asOcYw3Pz+CBl`fW)205oS_!@Ygx*CRWzg3(d-?Fx?Ml6LHTTPi|K zMpG)P#@)JN2Y&@fHcg1wqPJAx9C$g$|IR1)_qz$YTs3FkUk=5VUEP=HLN)bfHfP1t z?~C6?J+@taa%V219By1M_kJi4#J3h+pub+5q5@xfb!QY<`YuKpCU^RkGQd41jJ;O{ ztn*#@b?VMIqG(C*wX<6fq&i95R6&+{q}*vbwzj)L|7dhO%DuvmV7Kb(GxJ)GqkMZf z(`;7a^qIarkHmqiZGdkB_YjJ_cktDh+N=70;H%*-gT%n7z8za%@u$5sDBnA<%)N$S zhVP`YA^Ser1g+z6gPs7;bU$&%ehn}ndcYar0bLYi=1FGv8gHzHhyhUW5QK$xC#uoG zvK~?f*p1mwUAsebb@`_km$-<=dGpB`B4rkABb;;w+L->)G-wePIkPwNT<=ZFC=e3X z9+|q?+0`*H;iz=vz~=hUY((!wa$C45Iv;*i);jmFY+){Bpez6S+0d^oE|)gK*1BnK z%Ur~6w8xyUjm#I1!NiB|3*V{( z^W)xhbSvri^R!ObP0;QxdII;M?<`9hpjaT_qvbwBZFAvnof!>b=@BV#lUuCxvs}DE z9kEa(viQ}4-#w$gtldl|fcTEDF1?-$XY-V!qop{;583z8x0;{!9?ZS3NCPL9?{-MAmchs4*Zx*czAD}i>0Ew=RB^c58g`&udXnQtl1l9s5FM$ zWIvWauumbYgHhv!=dM8~uUh&qZF6sGNGniuKbyQ@?O~~)rCnVCzmj)>dy~Gg=tU51 ze4tFbp=Kg>bt&gHM|8s1f>sZ8tYBM-{qR!9CrQhKcb>^2Y@XZJng6TI2(r{I(ovgL z(_-^Wx(+F&joS8&%W(}bC27p+iwS-7p8S;wiu9I(@D>jtN-1Ue?eQK#bV0bmbd?a4 z4Xd(yaUy0+;n}vLe2^ci@0J9fy|H7nY zY9Ab^P~D{mcxfbLN`&hF3kl@i1F8*(=?>M2g*NU|+eIF&W4|l_hATF)lp^LdF0$EV zdHvG8a2CsyHr`}KT)mwLLA1PScD=m~DZ3$i@JiS^Dr9ajT)Sj+C2}WitNiE&1WJ=KnR5cA|snr?&9wvcy90_$^{z4P3eX z*TE)}NiK?H?ZoA}qd$pM*1{&Ap;{(yDc+KnRIL)Stc72gQf-?3_LtO*yYZ8@ z4$5eiNqsef7AV2|bPPZ?oQ+KZtF}NK>sqLrE>H^_+Axtc5o9CNckRQ2D|_2K9BoH( zE2+xD{nEd>H-&O7wGrc2H(5cqMK+hOi7hK4M5TfEXf31UwA5C&3hi_z3c)O9s?Be9 zwKgxx>p8G0fkf7{}_QM#rI zzejoh@eHU)pHOkhO}?iaw4(9aylq>Q_qrv!p;7;hX#+qb0Y6stU)$}u6-v|x6N*5j zlu#+DW;D+;`gN?xXyjT>7GO$TL6$D;7t^DDO&Y_J? zYw{t?XK30w7}c?C>8yk-JyLI_ofADA2&&sa&WSis5+6y#y!PWp9tGVLGeXJj^q8Qz zX9BlYo0BUcsl!hzN@FyS<-`s@+%iO}vAg9*LpBeR?*i+z$QA4f-R~(G^r3o3P}3T7 zoiDyTy+U>SWjSrQgR7&%U>`TOjK73VVeW3}x4+t~1YIl}ka}AO8&+YA-(JAtI>8a)1TDE_4d zG`d%_Z2zEs1I>c`v~6|Wm!v>TXKqXm}<4u)6BAQMH_EV^UA zq~;i05#`mk=;0xZuBCRfKX~Rq+u-n?U#0)f;wz}D|)GOJ#&23JM&(+8jx7? z-LHIs7_PoNOGyjf;$7ZcR3yr*s^X^+W8rSlOfK>MG^N~TTIf!xN8gX*;hC)0>&#>u)18MCy zmsbqPJt~Tct>{h5Y^^KFsNACqcd#e#NFpxVv-@2MY^rn=QA3@rE&ci6?zQ8uuBEw8 zSceY24^9@Oz})_scC)UdnfAF+OlP*d3!lD^ac1pR8+_DL^&( zA=G3Al0*k>wa0OB8xZ^?u2j3zPm>^;l;`>BW44;;+inqpY!%BX1$o}3eCiq=ow3!kAdryAUk^GOr$#za6xg|#S zD!j3`MNS6y2!vj@MVX=1MhAqSZ!}?_Ay?rD`9Gug!De=0915NJiNAl1r1^oSVr|IR_8g^zD0_b%n>S{(UL| zcuC)~@44DBc$$;rms8(sE?@t!md`cb6h~;JXP}%}1Q=F9fMt6a+wO(4?rU8k-NiNk z84maGjaw1PtGQ`+5w=5sXEE@?Z0AiE&#V=xh??hLs*`~-=l(0JP1Uc+dlZ0DQo6nF zqRk3(7+xcIOOYwPwrUco96Gg&|u54)hDfKAPWIX-wvsOZnM9TlJ&;Ea+ zJbhtUc^d=6&ZqR>1^B;oB-~m{C;-VCGyO~evS&~>?oYYB*78ep^r<(>Xz5xkoHVbp zvWrRg1I?xucPvObEQzj^oP+H+X3FNt$~ei%$O%+r3A5!Wvng~0fglI4eFw1DMHzdM zAm{_o1K7WOX{j+B{nl8gqCvUu12BPG6}Vuwd(8CSb6wOnhOmEph=va0mA|GiR6G=W zD7k}~oYmi{arf9O)8*CIkW}Ms1_!W_ESPUk2Ak!lFD2bqwH5_mOk#WnLWy!Pa&jHO zDv1H@$nC5=4skvlL^)Y)_ZtJqn)Ke**tkb%3cmhzXvFG`RoSYhK3>2vokG<(KRBaf$bF4XbgJ-UrsytTq!}DP)<= z4u8T%40|Q2rc~W7oPAifw4kZO+tMH6(KJ+qw-Aj=T*e+2Y!1%%ZhAQw@n|+be6kae z*{@lX#56H4=He>wtI9$}*T3AF1cBA1s~<#I^A1*3^_*N?{gYw?ITHqU;-XF3m#HQC zkUH%V7og?GSinds*;U_tN>eIb_S+$RdA5k#x%6NTV^zG3Ksdr&sO;iVYhmtHbC2w_ zc0N95ek2HUhTQAEoB%|1Q>tfelm*I!B57C$epe5FL1GR!T+ZZY>ZclRHv1(vHS5xu58TAn7-*fNoBT2R`sS(UQ#j@~GX z(1J2Br#4b4qzD9FAxVg8%-75F)g&o~u#WCcdzey#&U4EMJ*^bN7jc?20sO8;B9fSb zzcA@47nvFo$6b9nDA&e4lJT{k+Aa*ZL5Y?!CY{!)cwfHmbF9xrDE>hj$Yy_}Ge&FA z2>6I+d+xWc3S(3_UIwde-n8s-W>qKI=W(8BlxXlsu3H(OnF38y9sbrnau*x%+$+o& z6-iKchtH}(>z*7Jp*$M$ls8d(wR<*}wE89OqA{`bvj|J$#45MR;Cvb=Nzex39hc>^ z7!mYo(PC|uqgZa4;1p`hg9aKmLcchziEQZYJbQZZv;`Vn75uGiI+%|*F;~eAzzrv? z-Pz{{3rj1LfU8tvq#Bht=u1-P3(%5-=VuL;)qS3sT6#ySY&S>3je9z$B1h z)iqQ`L`{x%^f4`?)Kimtfw5L>bZ~n{YM2nSOGz#ww@EwvDj9nhcaZCsvifqF$?V8% z5G0w{qGFWV7Ty8H%Ku6A^w)!qlYrEnYrJyW;vz*0v)bK9pK*h;N7oeYmAD4x-@TLgWg2x!vGV zEG}XNhYiC%oaZ~=^1k{seku29Lqn;SK+=Q6=bkGb*fOZixCb_-`Zc$b03@vH!tz4l zN3n!QcGJsN$yspURS?u0ShCM)jlydLR^tiammCJ&S5vE4k0Ms0LIq42DbyjO1DW@; zLB>?8FzG%85jl02!Yi(tG626?<=#12dR9e#6dxCm8sUm~IwKJ7c6N!(A35n?akrI`GQQWHmW<2qN7Z$SzV#$;*SfKwY*vN3%cUIY}voD~rY1Sfg zE;6wiQi;c;REG!Tz0O#)<5g~c8kg8^z-=Q~R0KZ?Fn%T{v@3 zTubXnd)NZozx!8i0&AX(>n*L|NgsLIE`Nya6lTc32dbFpkPCpl>FsZPdcH7MUDE_r zH^uNb3$wuOs>v5$a`+5ablFBADXcp@zrX*%$8Z;+-3YA@wwcx%3~Mvaea2i^5+GEafl%G7>m5>Imp7h6lPRTP2}A zc%2UXXWKcEv`fcUN(jL`#3Gt;{2wixXczgb&ilZxWmX5;}QRtS51Toc3q(( zR@godsGq3j?eoxv9`t3L&b%y%AX|oaZ(;F?7sDRo(ArlXBoH2|N1zIMW*289WY_Ex z)f&mr>llvscE3Tp;6Q*pym^Q({2-PlKS624SSx5r)>AGzVSJ|T=*d?EA zyqvmSgZ{LSd$_V8L*jKFhrd|lIMr!|O-sF|<%o%+4$;cR1hcAEbzPOh+_!i;?*U^A zZDQ7KH=n8KzRNWJa_cm-rkkJBUr^Jp!mIPs53SmA_;5D;c`BI`teVoB-^wj}3_<&$iKmmxD6Pg zJqTrc{SeKl17>$T%QYhtQWVoL2Y;1KBJhYDc9UkLG){di>C&J2K)%8j1ZfWonkku6 zUpmjW+c%!!s1DFKozvD4I`)<)-N{IyZsmDn*Pvd0N`4v}@nP>Rn(9Pbwv!c`y;plY ze|b#pbiapKv34l$Jt;PYo%Juo{0lU_?ASsrc5C85zF{DUdf!sru@w8S`eGlZ(tW|u z)IZhp^X;YYH9Z7Xpjapvg?=^c9v5)5Kv&_;`$XT6JZruOel|<&!cgJz6dL5iI@W=yGsdjaTU2L*KY#& z=T{D#p^+MCi#$|_FG^cJh3Mp6IIDmDWV-J4`~M5{1}r`R literal 21146 zcmeHv3pkWr^si9zl_;TdtFMbxOeMLSktBqo2qCGETkgyl)1>$!bWw62gv$Loxy^hf zRBnUZ4WH|b>x41GjF~wvDWZ(Eh=XH2ii3me?~Po*8?w1<3kX$3?CkCB9UL5P z-MZ!I=;-9+U#V3Z8tYJcXxLW4-ZdIPcJVoZ*OlOA0J;|Uq3%TC=?2V z!TkOG;c$3BKmY=PxO3+Y5{bNf_ikWd;JthI?%%&36ciL39Q@Z`e?55cAS5ItG&J<# z!-rvEVd3H75fKrO9zA;e`0YAFGj~_pN`t<4Z=g+mZwRLrM_4V})4GoQr zjW`^xsi~>Cxw)mK<;#~Zt*xzXZEfxC?HwH*ot>RsU0vPX-90@$cs#zhx3{ma@1KAE z>F@6!7#J8F92^=N8Xg`V85toE2t*=rbaZrVY;1gdd}3l^a&mHNYKlZ6ef|1%dU|?h zW@dJFmP{tk&CO9L6e^WEKR>^)ut1~H=ydwx;v$2vpTS@-nM@XoRm>RX0~P@9?XzYc z930}oOMmMkhNo|EaO~#LIjwQgH*T^5R({0`PGW2_1wFGZLVYn-BiJ{-CXQ;2d5pD$ zwADbJ+6~UWefq&&V6%qC_VV+!S_0P^Y@2S$G@p5Q@#3FVn}Ra_;S=J12^ToOmFv&H z4(wTXYU9wSg!ayYo8HIiWp{5iJby_9 zmh2s-fIY{Zb9-o|_zhj4LR{{y*!{o*sVvJ+=GzBHg6{iX~pUwG43xFotokXURhHsO8GeBg}BYPa#na8 zJ&!U?pp23NphhUudRcXJNzq8;KxBX^Y&XtK10}Qvr^3U9-M~oIL0TEbwPG%-<-AR8 zY?avPX(C{+wUONL?ki`7gO!^{NnYXn$Dxc00b=HET!;WMKCpj1t>M~r+mgI|MVFaY ztF^yi6kW5i8!W!o@Lb0fw&%w{m7B;Sp@S--J|a~?I;Pz{^4Q8s!y6wvrnLZ_i?zs- zS<<-I*1sOA<#x?(5R-gaW%O381(lTRf+KL>*;#K-UN=-7 zzQ_xOBAJMr%B3T(4!~u)4k@=wi%c~hB*vsgGHO>dS#`TPO6!CCcCOd|gCYL&n@fO;kAgr0c_J%9I zeW6Ang-}{=-~~^bgl`W1U-338a;#Q{e`$2y0HxGXEU};(Z)`S0g9tdnD@oA=MQnfU0dAx{brk9ulfdTaE4Ec>+-ZUd)y(A29xOm#2+SjFO(`gM6Tmi_xi z&mE;HhptH5EW2keGz<& z*~_j-uW!w<5NU%e+H+p|o$e*OL$tql)vQ?0S0^GG>}H83A&_R4KZ=xnz1sHZ<%pZIf$M3X9}nbed4!}uSsvL+g?bk;^8NL`a$(gS+4ca)`tyY4)p{X*Dct^NBTWlV5_sLM z#9bRko6g-tK|sBeY3H6fNXY+@WH4NWH0Z2RL+aLf>12)6&R6BEE5?DQi12+vbi$z5NE> zAL0K7kG?m_^A2|7pM}6ytf5AAD<{~_A*mWK-+3MWCWcd-?kv&&q+u%5^K^{1DPRJg z2E-WKJ%Z#MG?;MeG2QN14`-}^&p z1uTiA*W~^Wj}UizRk8CkA1sQ?U%$;P(?Lm{U#9K##fb2;v&3(k27tVx)*KB4TJh`F z0%~W~0zONh>T|iGP16%Bn!Y@7xBFx&u}H zsVyhMOxE48MrD_?2FefDbiSM+5I>XZ=cyj6jW*&g4O-3yY)M(wG|lDoLhyxEby|uy zG*Oj5Ez3PPn>E9K%R?MJRG%{2sapE%Pn`U>oWuVFIr1j3airrVpDkHQ1FMLyfTVFR({C(7_ z3loWlv>&aA?1^r+J}LNmG6+JN_|A@RU(RhM)*6*Ml^M(9bGkjGkiDHNk>}DBZJ^Sh z6mgC@SZ2~5RdM8ZZ(2qK{Of4yzCj2-FXwls>(j*R$=9OCi*(`q5tLYZ0+A!xC|@2| zYg~%)x{*hc04Xl=Opf>I57r$fST-jH@3rXw`DXk#;90E^y5g%q?m7F zfnssFdMeBNU09#$pqX?9cHnaQonOq2OlhLD@fazm!#i6(kKas1t6g%jEU|!g&rbz= zxg0_hqWCMWMUiKk9#9PemPT6C#)pCGb<>OL;s=q;)4GV#B-J)Tnk9*d$TS8Lzbj$T zirh!}$h9Yi3@v(o`ZGiVrMm~eI9}L3(lA92XTiJjCi|c-3;djP+YQQnW;E$c ziQD@sGH)b!s^UQUWjSL#GoK=b=fG{!Kz@c@=g1pqf%tB#X8~wtG$FVcoq-hG++fEBvBdev0s zY^1~_>=%rP_KmR&?i?+d40X=BqMny;J=)`0Ki|Hi8{_UzUl@&$>ggsVsqqEOyh@-? zB`kG_Ihwku21|P^oi+BW4&Bz%jMc&>nhRhs`kU!VLKqK?_BohxVty!+IWbTs(Rqbg zOp+RDa6y5KCJD3NDAF(K0=k)r?6sA!<5Ww)Nue!Qi5wjAA2Ybo^xZs?4Ice|;&XLmcpM3>-I%!HdL z;M5G217h$24iPXF^py^VH79V4^liJ;w6Z{tYoQP?nxpX+)#eMaeUmP%uZi_jf_<-M z@|Sg%Se!%uC$o^1MyUo_KQBcByuE<}ogKYX(=7__QkjI>v25cxf3`oLwj+DX4ZC0q zSiBzrR9$Rn=zv~`@@LVl)#!%GAjKCD>~ThC2!c*~pyoQ)3nje_rugF(!qsL9(EfxT zLOt!N3ko(R#!n`W8$(CeE5OGYuvAZzsyu^rKN~=R4`}tSSqE>{d|g(0rOb)4D9Pt1 znoCFy*16VBGnz2W6azHnH09k}f`?FhO6Dq`NQkp?Us@Wtc7hC1a%t>beFH&b$Winu zb*5WNM%3cMEVW}6Z9UuT+KpF{RDkw7QhH~>;xHe_=8C5hU39N@#$;_G^I=r^!t=H^ zh-+B^VepKp1ns>VVlXw-)m5K1!>w$)vT+GDKsk0yE5*DR>|tMyxq}|3Q8GXFh078a zPu$Dtyyr)fKuZcIKQS-1)qc~DEW@&qs3H6XvDoOT^KH|$Z2wi%wYj@aq4d^_%D#bG zqT~P7H!nEi0^tP2GC@5?{|{>~oWsulSAy z;4a;|%+R&p|2yv%5Yf}bWm%Z---8Q-urVGWXQSs{0pgRj>;KZWVTdb}>WFE^d2IXn z6CT1EbB3i}?4=qOh-{%N@v_Ob<bpU`}t`nh| zJdz!f+G{LH%b`z419aXpeVRX20`mvb`fF?opxQz1!ZkC6gvQ|JqBHCk?P%7M&HHf{ z0U&X3WVZaNK8WPiUkN!0P|?vs0w}1d=nPSmc>Pyx`njRA2z{x|DNEAAfOZo6Y`vJ1 zQRUZv#eG3y+x<}o{>@2_VdrOCrgNUFGKMw5`j38OvzBA=tS7I4Q+F#&UUz`#FZAOc zBw`vnf1>Q>_roskuJe*ay=F8!&+jF3|jBAd^xx=2s=7hK_+y`(BrSDl%HyuBEJkA|63p zV@!LlxEzsDZ}yn|05P5T0^|-?4+eMa!}$pB6|D_>R^_Iq00Ido7T#`Z7ESMY&4-lz z4%ukgL^d`o?K}=4x?g<+L1bO-=zN>?qGeDmK)9weHm!rbZ6U`2T;gP?U!6$kRN`MH zWe1_^qff;BiTrv*KuWLyu)j$;Lp z33pbSC0d~r=D~OUgBG8BjlsOAxnjYXagQwsou!is`@^?nNKynCj4z5SqG0wrwCaIy zvT2GMDfLQKHR-(%thYU1;Tg>#;ifiLaA(hTCJyiYra(Gf-pG5FsS9wGZQD zGVI`O+q05TW}t`$D9H*kqekqwU4L}nj>$4(el~q&LHfvxuNwk;0hrO6wS<|rM7zew zyWiB6^d)52rGk~HJ$sf6;ddS3?gEUpo-xgxZh7A}7CosjUcPKm*}mr(6j`O;?uPp0L%}*nQs_7EIEYPQ}NBXtT2ViL}vhmaR2&q7<|mdy(r5se0u za^u43?cv4du~yMc`oHOzZC;l}32huL5{W}2bkl#fIv6Czr!7-5%<>4aJmTwq4ED}I zFxyO6C#QlX{QW2T^hv%@-GW|URxbNobCJvsv|dM17g`%Am<2fhRRRO~JfYQh$J437 zqUro=nSWFoHz^X|Nb^fsa(b(3)&WWU+T)$<<5x)#^>^II_LI@5d$E|WQDw!Vj2=N3 z$1!&68DQt8nmd#_yx^5H-_dm@flVB*<{hQ`{AR5tPlG3OGtiq^?7#gCwkzsy$&q0l z>fdBY@BC?gFUClGy&hemT@MoGN`F$KqjQq?#49L&rO#^Hik|v`3)9s1mt5?_>Y;wT zn-#gV*|^H5B^6O*L6;BjTMiD^*!fl@^W6h%YxZmckM*$$K_xbA4gnyTA0?lspJKfW zHs$|`_yAJDwGnEOy$3BAUU%w(x+UEU`gkZy-$iY*u{pOf=c%f_4M*+2^-yey<6{9SZM^KG7Gty}Z4W<4zr-a@ig zQKop1vE|cxntI(|f!yGCYcDQB6mmfG1U)YtS;f%MfVZim)F6|>4eU)fHOsYamT{=p zSj7mc$l|C|304ckH9^8fX>0rN6|Rx;)^liQ1$?K=9sj#5OMK{;dD?*HzqGK!+(B|VTrrBuG zzd03=9!WU@u5-aA^2<0^2Ct#(3QF5maqbR*gdw=H8V#>A%$TbaYP7z1Y?ZDRfXWX? z`G5EegUngs78skpE5xj2l@#Eu30Y83++~G zLpr##z}??CuiuEaANZ?fr1f_&*6)Y!hWodM{BO{Z9jj=p_}krqhkF$e4gDmuk`fOu zzoy|s^s8&*1)E%mH2{Apwl{FQNJ2Egs?Am1zjlC0L{FHX+doPB+dH)d*KW+&!B{2J zQnTvN?zA@Bs0Nwm&)cI!L@uhvt&O919K`8`6m*GX5QNZ9Wz&y?RidJV3M3t@w-I-( z#=mTMtUmg9^1KfH38WqMBMP#41nDz-=yXKEM7TyDLp9ZML(tuSAhG=T*`~C*`7OB7 zToEO#9aapgX&g|5J;evI(Y6m~eI%UZ)ML3_bRwQ#!YK2ILiUyE!8t?b#9&o%l*SYt z5?myzc6!ZL7U7@!u>J}FjrzXvZR??S3=GsY^@_^MoC)Z~mwU0cj9+Qo_QOY%r3DlQ zh{yyj3X-dRgrxM#9cp7kYD;6ep`5E>;S$#BS&jzS?bdXgc3rQX2*C#}QIb~~<0X-d zP28ou;7hP5z#eN00z4bDSPjbI+J!bVzRqjRxTwCNjG@?q>M;IT; z&(T4jiI6pU5z7|oB72t#IO6X)9w>jBTQmx<%5yBX5=9&v9ZQ~n?Wf4L0XdH%?PMJZ ze_ERnB?j;6z#1l4iM7loQnl0jaxtyuu<5t~G5T#b3H$`A`dpxlG2PB1*_6bXdRG>b ztVn#6hcJlud;_5UR(GC9*&tOZf<%(A#R8?HRT~6n9Sg2A^Bqw*kf^A+HUR%Ba_I+{ z`Zu)wzaHAYX1np5y}#M}yMp9faU6FSQ1hXEWvySZUV-Aga?Dv1>sMJxmE($Lid zxObfJ;j?ZX$x2lhunA*rOqC*_5Ph|_mM!9s9$5O$b{+9n2YDH64&bK_hv+r?m z@E=~f7vMiU>oW3lWX0>U1*RIDaJysqc|DiS#7uwnb+wZEjRl?b(_zgvB1pK#=j4=Z z2;U_%rE^pS(PvXX$QD7n+P~vo6TKIYwW+J%SIQ;URPcevy7c}MUl1gdfeQm}3D^Ts zHKv$UTRQ?YSM%2omXEmp(SGR?fV(^BiH%ZA_1XGaZG%9)_UW`f(m0P{XWhQO0!8nm zDL@f-Fi^zJO6uGJ->jk9dn+qcJ!p4v;h7ZvBoG(b{*2sNRN@W<>C-*qxcV%H&!N@w zaIT7{Uway2x!ceAKSh-QVsl=tDTg32c8j(r4PMi!ufzyT2E)-$~?w)6KLS)NXd}jXykyOz<6lnPIUy^in~!_~zf28T_BR zmLcCIe(Y7Y8QR5}e2hEK8((?^yVHlGBmm0;+!OI9XZ(Ji304qMbK^i7gKE7EP^=?( z1dF64sVU&v!)i?CUnjP5qcZr${rGj9mOM{Y_u81zzYd2koG7W= zjq^JCN$yFgx+j9XXQ<{_l_k(ra1YK)!2UcEV#kBb4uk~$0os^m%+i24e{^ zO*370ueBP2Zx6jA(KIsV{t0G5r>5IIy>~Gv(X)gj{*5A%uJw_SvOVS0HC26@aJDy1<_?&ec@gv07!2XsyC5!8OTM+-M zEaEVx2~&)ELI0$mCB^c|^KEL@Hcv@Bw8fFt<7?$Mq;Csze!GZlJI7n7P5*LjnvvB8 zGCX3itDA}m3?UVpOUm{#FHRu&AFJ1vqFylaj?Kl62(_a>XLv-Z_w0i2qbLT~s)SOr z9g70;>13u1Y+*eVSV^~i`6alarFfHX~9*hB_z zPm~7b#3o-%jP=XWfEA)K8{jSryT}Y4kv@OBX&;rv^P(wz`36uv=%v4r@*#eFw1H`@ zsjHmuBgh86B8c^Q|4ew^@CRvKFVe@eje3ve{=`X4CKM=E2W0w>O;%}J@Jlo+$+(`u zxtamlytlrKN5U^HNoEB2fA6HAckwk&M%zH24|)3C7honq*Lpjs{{*GZrX6hUz|MBF z8ht8F?dtq+vXfZp#=rpL%NbSTjjCiR^Q;`9VD;@@b(-mo`LYK`3L674ZdL@Rpq)F2 zZJ(-Ok`i>5<{&`>QTT#|r@X$$Z#7fj_7ak4yr}oZ<`m)!XT`9ZRvs~acI1lOrPm3H zDF=n?UioY*Eo>JveONwsud}L&zt|kSL+R@jMNKc%$N7QMP=AXZAQI~r9>h;I+vA_^ zxCtDNUcM|gA1-(%oJDWQxMCQPdvFVQ^yPw<-$(&3*(YQ`hU7Eii0(p1daKWJ~XSiQtwP^jn6R*tm$dbsYY-C-vfJ^xs1_ zoDsq`JGJXnraxyTR&Dk3ug|5}ZsJ#^B`WwAmL+G!HZsP!2;%f4S2XMJ3kW(}Y4oak z=-$IaoP4=qJI#ieHKbTC=DW9OwC|n#hIJ*!`css43UBLfL<(|%}t1k%2AxSZwPA(2vtGw<&!FF-cnteHN9nO6Wt@vf($m9O`l)#oD<6NU*JTKs2^!TKzdzN|TYT^lFA_t`QC3l7Y#OdCE~e%s ziw;>f+Fw#DmxofO2Jy^K;dARdYy|8(titum)N!}qGN}<>t~(q_elAd=~+2^(x!D$RK1 zJ8xa*4QOuZj9WcKU{qo z1|s!Zyo7g&Fu33ssA=hxv#uT9jiyHC$C*_u)l_Y|y8jJbJB2jvN1M2J6-Trf(X8yo zjq&ZuP(wEW$l8q|N)iv(V5?_aBwfo0?;~Z!u!A2XP3GY9TGH@0J04=jVL}AcsVpsuIrB85ZcxaPX$5s!dJyxY;NSz$KW63<|i`Ej5?aAFb@p zj_;731yD3cQ{~FgWO&NwT4>)ZcMV-0)!yFure243mBSL4HK!tXOwlZ41-v4rQ z%An-)!rD_ldRUoNKP<{yEh%6yyx#BqSshiV7#y zNl3OmAtBlFhIBLj9JGeh8%kyK6t&=ge9>#eNU-kn{J|jT5c5PfX8}v$+>6J_ zPQATNle_u$G4*5@amwlGUsYxCYjG}BxgD>hewS_NJ72we)!8MyXQrXS{=;Q~O}Gu> zi{JEg3Gd&xBqZJ?R0IEcf5(qx$G`XcrMHUzd;4a9`OSa6x_$R1%71^%?@DU-@2&S+ zdG9U%-tS`CeBj^Pi$DIiFTI6o@7{M`?Zgi>lsHW~8q$)OFEKDMh;KX&2}ztBG>;hE zX+6{Tdc5V%j@_0l8zaebM{#FOd$)=|p;=m<%#oP;;VLa9Rr=_ll;@APJ63+pH zI4SF#r*wWH6-kKH>7RIArpm1i}*1u0a zeE7|#?BMKd8)xUDp#x9Px&E5|a>(=d*Fd@TCl2AW!t=O@@5QpirjCRV+=)5a#{m*o6?60SfB=fPM~@zTwz>582EC7B zc8yFdEV^FW8cW7SMP(c|JA1b7o$t;qn>QagaNw+p%9q~WySwP~ELu}TLiSe1P?7tl zsm3i2+}XXlwq|2(?J6Cgl44fs{C)dwrn1YG50oQ#1(I&@N3RwgT9MAm%rw^)5D;)| zXh~5{k>xTmGdmjQWoY=N-)m#7UB{S$UhqSGeSL3lZ(Uv8moHedeR`$NHbzGAgPh79 zSI=|P`uX_Q!W9r0#_a zE>oS?=Z2~))|aiWU(dZwqa|yq)c&Y(bf&*TPF%dRwe|6I%K4t|82X=OLW6eob6YW{~d3pB)`>EO$ zoI+(T>Cy&T>^wkuW+F~R$v3s;?s`G0+plSl#jdNKo}LR-E;D@|!!=}URcLsx zD|tw3`EG9z+{nwz``+_%_aWKX5o;@}m5~@*&*ky70N?IHeT^`_d`yfa+jeu2^5qGx zo85SDE(OsWbEc`cgoTAau_>si927KFFtMrm{CV+HFiU{h`oehY^p{euYheiRGnk1@}Dyut8~g4L*IfGxfh@X67{2DX`2S_j9P4I$QgUFZErO z*$+7{eIxjcm3XwWGei}=^jmAfxQY#)Pd%WerM-0N68EpCOxha0%CUnxpDj}uTwiZ{ zduPY@@821@Favg~s*l<@8FDyM=FG4uj~}|Yi;~2m?i+`LgF_diH>23KhYTVQ6iqH& zYA$xTYGpOq+iS4=EYi~_rJ!J8zELhh|0PD_QxLO+gv3H)kxh^DbZ^(^&qdFlKY#LM zp!zZU!mSqyte1`T&E|y#1oZN+P%sbu`1*d~{P!1^-Y@@};fqSUfB*haLSwv4R(krA zR%d5tSy@?8QPIt}4zsY_k-eLpl|`IOPEO8fcTQa$9Wnc%Pq-^8!n5pb85x<$$w?tW zLGxKbLBZ1x_Xo$uT3@-sR(j3d-CaRJ0W-AL`svfB{{H^1F1^E4(q8M*Vqy^^#uqMd z6(&mho#nuwzrRb7ZQsSuxfq}azDIWy}zRb^mY^bB*`z#}ajFQrG zZitK+EF>i)+S}X1LPPI${XF#aN`17`(5F3;^T}*tG@3JoJ=>x>s2T~6aImG9ptrKca`;K)c#y|TP8p7-U|u9Rp_ zgF#*Ov|C(7*S~%A+F0qYOPHRXE-x>~Z(?~r%gSQ$IeF&H?*06SMMXc?)+*=GGUQ~` zL?F76cs!jX-FbZeQtO?hyu6m~?r65jo|idoEoEiW?Ck6%ZT0ovfAxFOk#4PPNmEOB zbU-46cX-xS>{@S-zDMN)8pn*dxG$KrloCJEt+%oFiycNimxd$Mxj0>?QtjjA{U}qo zuJx4_=e|B+)A@q=@ZpOHk@WQR>i*a(RhnI&J{=PfIDd_@j^&(-iwi*kG405aBNLO8 z<1M#u-$s0nEIzjOkB03$1G7)gP0CJ<4+4PNX}(OYgrUKYXQ~)x%t6v@zl8 z-i4WdV|zNR1(j&wjB0sns&-Sa`zBrZ(Dvuz8)IYUsV_rwa%>$Ph4a%33PQ`B2oc-2 zZ?E~TnVu1y=^nKWDe@4h-EppWY;SU1XD^SWWm@N~&wi_FJ%zPw@5Uk~EX-eVcn1Xo zYhmbk&$HjYq`?ZTB4^&_sE5s)Zp6GwPgl6!ppkm^sh&!_wB9v_5z1RsEm=A_b944x z!gVrgqYZIp5#=k>rH&aAOCb(z7$b$x4ejkBQc@R0k&BK!9_cQ$ zQde&0OE#r1D=QlczeORNFf%r$Fpm`+zUwSMYY%C#%df1iiFCVn>4yf+73+y8j%F(! z+b3vTfmw8Maw@znC|taoF=^iNK_S(^;Y?AxZA<dRfh=qAZTjs^0Rx#AR^r9x2;={?*2sdIQ$I+qQ3S5#F?EQy!VH`oHXQ zbDQz`Tc5E$+T?F%WpS;!)?g!9Z06(3!8etam8%Qiy?Y0g$ee6k;kjk|E^}@NcJ?%6 z&F1mWPTlHLbr%L*rhA(;4GV(P@(c_O$K^i(MV$#`;!s#>keVr58i}!|`#IC!-`N?d zs_e0JyLi&s&QAB09rK@I2)%4;E9W$!S?vGHV0v|FetaQH=qhW~wI*xkwbj+gsu!HU zS7s{4KOp$Ne*Jnl6@Vx~z~r=vgn5x!th_XDdmMW#PxE_)&Wu7dyM(fFq$i z#p(ryDmLe`Z*e(~)X__R{q}8sePyOr<^5N?$ZHzAnWPb6&m}fJ%lNw!xb~aw(`N}* z_^|8Hu@sx0qS|ntmDTx1v#L)2z`!(WmA>PP(_dEFGBi$(OsDJQ7&!(N`R=5fb1e%B zqAE5PIQKww&ibJO>&@Rkz5<2L&ChdjaUD%~EVTQ5ettgVN(~9~$+rh{kTml1h1T@h zg+3e%3ko{U-siR9p`oF%xJ`Q_h{J5G>8Z3)5?%WqmeWo5YierR+B8SvRq}mzk&~-u z)~O?eDYEz77(KYH8es`LORCsk_`<<<)%`z3QnZs&y74JfI+0@)2DkMRrXR-dw6(s(MF5>g&8-uZKCw<2n`E6%ErbE*y`Mj z=ZGY$WZCF1_lQy5M@y^JU|i-pyEH#qdHMSF>$AX}aj~(d5sh7c3~bu6oj>Oimonpx zn#|11Ze+<@TXu}mQSCd%$EWk6t-W3At$J!L0A#?B`?3lZ;hw4SbF2i6#v^P zNE27CTyd98pqg74*BDtplkdAQKd*sj20j`)S@q~34XcLTd@6Q7;-Feqz0%8U4jGv^ z)nl@TG<;_AFWcL;w==xDT=$ifl=NIs9mcMwCuZ?WllpGT|L5_{1E#)z_kZwUtU#B$ zp|Md-S-GdsssmW)!{u3|3}oUxbad=Xw`779G_|!)Bh|>(JI-sLo$y;}dMf|Yw!hr8 zdhgS73Zxvzj)^;BvgG|pnVFcFn33x$n&QqF^asr8P4_>;nKcH+Feymz)!NIFk-mV2y>)me2s&(<$g64bM?;aTa( zq|eK8pRJ_(HPfFU;lMU8pwB5K<%R%`g_Iy-6`mJ(q%fFW{xB7B5iOjq?Co7`Rg;r( z7y<53x^bg;h+TB~=VY4xx=LnNmdQ24$lyJlO>N93YJx}D=p3>>_BLCT1x=JGzFnsc zrrgbuwe+ia(L70ST;A$(Dow)kiL&G;^M4;kV9`(Bw=OL4Z*1;=vSY`ajTjND&p#(S zyjH%85k7_UT##M={jDKRs`XTOc=*SU9~ZXG30-aAH)+m#f>64H^1$!!FZ-{3DWN%Z z$ZKhC*vDt(zCZwWVWw z@2{`Tcq#K9|pPCMH#O zT5jE@&VUEH+^H;rmiPVrcg86wD{EMus%Oe$lkr+Nc-!*e!2|F!NuDmUvZ$RIk!fk{ zaTkp~MJT^j_eiIVs5M)TRCr{`;cKSjMIp)sJOLKyNSGau2IZS$TX-7X{X~C@&cho* z!{7i9Gz7^aS<>}5jjw<(FOY-C=j0X^u7OyOFCZF3F;9~*+rIuu8+Y&i{pP9DDk>`M zsQ#F+Tp0%Da+>$Qu@7j-*%tg=FI1{m0w}?diAN9yR+|0{L+no z&e`N=x%YE~_@buOzykr6n`~@soC=G-XH8N~e5VdSVaWIgGGE^&+2LK#D7O(?>_$dG zVKyRUylHhb!7K9VjL0Y8;-$lv0q2V5O_zRdT0T!gAoY81!Cj9q*2Zb3ad-D2Rd!HJ znqS;OiQnbfjsh>f73!mAS8clQ?M+gxI`Ze1ZMBTbTyt~x99eQ-2asc|J)xG_`rJ@T z5)i*vH(G9ERim&@>ssb=Q}lKUhLh~739>52ib0bg?VPrRLz#*NKW@?d4P^HoJW!{4 zC}lrH8pkgtHuI(QWt)0Ho91vWH>3xn6W&{nM+XGd4_5k*JDQpf5rNCXnL{2!Q&VS2 z_mKO}kJKmesak1ccgMZR&u?{(zjo~!rr7XUwjlEm$g4eda%$>yZ?VP~bLG|Nh84X&K)X2tIymAY1MPdsM(s-PC;l8(~b<|(kXXe z%F8{lkStlJG5xJ7uvR4~G&H$Erp!`B>yUmc5bxNQjl{%61i5OJd0=?sQfHN6l`(k{ zvPtCwZkZx>l~?K_FIijTrb)MgzRnHTf{r(h@0MF_diRdNdF%9lU|J4f+TkiZZ`Aq0 zNYw))BO{EW)=yfIiDoJ`JTF~(+S?9R)fg+$TH)n2;{VVmXmxdUU|_(Xj!$&4{vHty zk8TXSz0(z{5hoob^#(g?+xw&ZR^Pkw**Q2AEg{&boq2SiTKYx%UI&MHB!-r8A0Hn) z@27(@Ck|6h^}JM@>$^}dpL!cA0MCUYh5EYM+MQ%%Pt|G-4GfZ}z5c}ro8DK!s%K7} z3ZNG{Js0d`VKJU~%D?E^m&}3ZMrxTto~y2sU`PQ8p391s7WVdYkpdrrHqV>kg!tH(f|OY1O?R>f7<8j9-t<^z6}lv-dq^NW-g!o z$XHZV^z-LWL`TpPIp?YUYtQ5>Jl7)o-aW{8d{sf=6Q1AF(z2$uRtne7zp4iPQBpXm zxL9J|&TV~l3BM233^Z}e4$4);3%}im`f$5o0Xyk`Y6#6~ABM{Jk4d3v8B2+V#!DP{lSW(;9LzGKhM0 z9mZYiDYtFg*4*68t`@(K+;=A}_wV5dW7CfI(;6uY$s#s=WfFpdbM09=7(T4xb!=c^ zix$@1y8{OY2Qf=fSuiXCjAGNE2bse;?CqvE?rU($6C*^7sLkcRQT;sAYCJ8V%Jk&q z1r3eIK|wFBHZrj_y}17E^cC+5HvfqjOnbHzFc^FMq>+J!@;&CPfq{Xwjg1NbipYZ~ zzP|AMrtGYQpn%CUz_i-tq6M3Bo|{Hy6<}8e}MaQxkr& z5ERHOR~LNyONIvfHVJCN=N#jli*n}4sh34~iR#+T&BX1275UQcD?xG%A?gp@br6r; zSRIvvLK`D&5t5OS(dz{MLC2%-I6tB?qCx3Hb>TvfN{lEp%jDcb4CeZL!bWeoN6-8B zcg&dE>m0Bu!He`>Ts-me+86xC`(2fMW{Xo@3l{Nh?uai~j=iNWjkUG@X1Chkew+1N z``MA6p8n>|@#0^q&~q{J5j+oT{LXHh{G2UybK#iKyQ4`EG9WfU<>X_$kSnpXiBn`iwF zd5S|zG+{4;z$34wuMxp(h;RZ~MSR4qS@Xl}miQyIO8JT5L3 zPLtX|qP-CnkirtM;x1Q`Z<8?3O#KHDww`(Rv@vZ{0im$4u;aO5ZCxEVFE6csCG;^P zBO}8S$KbUkF2%!Cy%k;?2)j3K+`uYFK*x5$ivRvOJEo>WsW3QgA2f1A%H-taygWfE zDJeCzMrQfD<}0eD0)WgV_QOiJ9MGq)udkoq8I1Fgb6xnS4#}K`q%(ofjVp|F zbvsj47!MsvaOt~oX0ec=xS-?NLYm0%(9nm+nAE9OH`kkPvlEO;bzDiHQkGyMg1-l>$tkbN`cceNa*H);Ha9fTs`Pe{3KWkh@U(@`XfpgA60R7UIa(cex}=u{ekL7cX#*a_I5L@K6kioO@(l_3CZz|#abMM~5?x!F({dw(T+D`wU_y50FmdpbX z_aqLeLhw6zBv_q`NzOAC0)coe2*t6&K>(bw2Z;FEmZxN@69(s(P^s`pkoAC;_3+_C z@dJ-gkfk}IKnFX`5qviSy39w$R8`IOhx)(x=|{T{!* zU{{OT_LW_!XP_9_MZD<6<5UCQ+EJv?4VMRg@BK8|)Mg-C4dwO06bM2)n%p@Gc@ zQrF>hk5wiIcaz-BDI!W=;m%!{#pG{j+ktDTzAYC(v>z0Hn-^+<)8}S_Rjm^b@il zQdk~+rk5|i_a*|q?p;KWIMjev7Qchb0Nde4f+8c2iKX1miG`H0hWHEl9S{t~tlZq( z+1c3}E8kzDmcexBP-C8DckKp#R(N!1$dsU9X_-0HQ0y|pq@t~_fAhz{TLe58Na*0L zot>S{&DT+M0gye$#bu(mQ*p;`rlDEa1C&)gJyI+z^7iKy6{|t4ckJ3ffU8};JUBHa z?f(16Yqwvb!oukPaYPQQz#QqoGl3&{;JLGJ1VefFtmr)ak1zel3F(AykJe)qS;F{NBS} z3LLyO`XVBE$UJIZLpQ53xZ3ZA|io2gbXt!{dQkR5H!utD=ZA~_h*!H z=4SrT(xPt3V>Vg4zE#6UO)yn8PKi`NRP_0?XPTCB#AQHIK(hbN7X4ta^(8;5!SCOB zen#DAlDTPmA*SxnuiCw_-zLQgx3X_kR5NF;v0X!Ahuwd-v`o-?_8uAw5y=@2+^F z2q20ICl7Nnl&0X|;E)|$+}ze5AJSjW?fl^W$n4C2yZ|3e2S410dXtx*?}n`aI&dA? z40UWg(gKtah#1_zKz$tEy?;-}3^G4I+Bk!if#rMhN+cHIgBr1L z{CoBra3_*JgUn6g+PFW%+C&(We7CvjECkGP2|1vHVzMJFEEczcu!Y0PTF1Sqh!vRI zw>MX(V3Je)Y59z}3ln>pXi*7E5<KB;riIXt>6!hQ$dG!LWlwVN5>Qi9bzm8{6FZRIZ za;!{Ij>vlkK)BDavaxXnm^s9MeR-0PH$pk0W^v$LcDc1Gf4lt^{tS3x2{Uz`g}=9Yv2ZP1e25Oo!y}?y}(K6>?j&CMcXb zRf(`1%}tZgn07tgb8Y$O_Z}V5w{*tt&8BSjxfwa(_Sbrfc;d|MgMdPyHH7alu{&;c zUR|BQJ~cJf)|d_EV?WxOj)}{B_RMrzl(7|@4#^+v2&@^J9I{nDVCh6ecGp})NO16V z+&)rQT54)|SQy#X%^6!!cC{^=y*u?FEG&%W%%d{L@x9EZU*GwHj6Gp_s03=cXYH;6 z77B)JnATe&kAs5)OHk9G8)0y{J?zPo!^LFo9v;wdt3FhkW*GFdWyA^vR^=BJAx3cX z@Mv8sCEh&Ab_ygh9$>Jstt)$u(F8H1hQ3{px;P*1g9HRb1off0sp$pu3H*h-LWP8q zNm`th^+Qk3g?fUel$RnFuwl7-@l^J!WUSBPd60mUbYL&`;L`T3{Dympi^16Bym$R~ zk89U><}=75#G0;&>ArpYVrAT%QEi1PZu0Tr`HfRsY(~`%%G_MY${}I{6q}X9xtAcU zA<-^j7ZZhQk7Y-wq$NZtXdK^&*O1Qc*<4$UR&(+x~#Hd*)U_CEwM`vAQ#B9S= z-v42X$iG>77pr$!Sz0nEx9Yw*Rlm&nd+weu#HTywdHo8(j5 zO_Vi#eV#C6V2+ekRaI3~C@3k}d{B_vKuPvyyqC5%?V3UDR9C*)Of?yEU56#(w}AmF zYHE48hjZ_D%RK|p6s4f{y|MZ`H+owt>?LD9x1Sy#=2fpK4>&J(b>z!|5$it&CvzF% z_De)^a6BR+qIGTaNH#T1`E-UJEF4HQX}P%qf3!3Frl+TDT#%cZDrqq)r;nq=B_t|8 zeE7YxLQNo+Wx9h;s6z@E8{mMmMQmQlUlQWx$8WQw%#f?>sZC8y%iNdLoy%)}+RSa$ z@KQ@nPHrOmA8z6uL<4X`s+LZ%lTqs%T3TB5+L=Ve0F+G~_VK#;$ZC`TH+Gz9#5xv& zwQRQ%DXx7#AmDq`(=E)b!orT&*&)g|r29fSG)Rd)2Z)dP(PnHukg+LXH=(kJMhN`V zwH0#|QJVOldl4ifD*56^iSuy0_72I8f+GvBAHqC>px>2Jr*jIpE;>zm&z?OMYl|_x z0*6&&#ZMTgjDxlHji@axEj8;_6Kg+=v=1TVG(-yA@z93$2%LoF>=UGwrH%ZrXg?0O zhXwm1M0LnC=dMwLuAx+Dt9xzQcw?C^E)w_)#-E`?+_eLchkb{7ak)zT#fce3h5>$2 zQ6|`49^d~1X!Q5*5+u+51PK-3O_{XVal8epLrQo_NePgOz|o^exw-4GLbG4?CHA}9 zfGl0S_(Zhkaah>TuB!w-fg;Dv)MTG2o)s)>Dug6Ch{Qi}k~h zz<+dMaZwgw9FqZC!PWZcLO648y+j<{g&J|~7zC|VIICd_;eJ4F}_TId? zw@IJk)^UiS$4SY^$bw@AfJ-5;X9hrB^jEaQ=t#~Z9ojowEZIFYJgnG|<`VA{1P(4B z^lPds>4^<0%D_@W+*zsLS1T_Ie4qR}Gs9P!UR2}^r%ztYz^p4arPPhNRsf}#vC$zB5DG?JizKVWJs zt}YY_Y3WSo%%55Hrrna0ew^#FwYBush64lz>=`}1DC^tMV+~3iEr5q0lBA}lcJnr( zqBGN5oR7qcuNT?&_tn)stokM)F1~9&{{RStin4N&Sm(_cx%UtvBqf&-o2FXR0-;|a z0_Nn*AaX#`)S6@-93G~jqdQa8y*lX6$I2ptc#OI3!pLJ{zkmID2@ePi4nhyC0_tmA zY(EUadP)p5pMi!|iDVOKZ{kJ@!cbDz|^5u1MvMELl954=l zNSxd!TZkdsKP`<&Tu7PaR)5@4U~O@_P9ps6WxppE2M4$)#KHT|YyVLDCya1&4I2W{u0!hSj$74-Slb@eb?V3YdNqT zSN1JRO+~_Z^5hAG|FY^()J7@D$(2-9uiaI*P^uL_ywGN_%h$zxG-A9$BAxg-v zc6g#ldJ2fL&aB=2t*T^VbLmx+mr8lRb&`TF(gWL|puHq8@^(Z#pY zDo(SH|^Tl&EV~6IkG)* zeWWRI(*n8C`Ay#8Y)6jVrrNuIzxc&BB*bu${9O63?^fRr<<_P|Xn!B7s;CL5@?W}q zdGEo49!QX&nGh{9h+|XV*oYiZdgso22qwhBn3mS?^t3Gekpd;{;Z`Vy*P2{LY=%%afD4pTw=hp6TTG5|ZF@LM=i@y+R>p#ql~BjCU* zm2-1*kbl7`8^L=)0UbwfZ`%pMYz`t#%h6tny1xwlywd2NsgPrwSC-wFC$~^==}Gosbz$yuXYgn=jZ1)mPQjm z%WGAjgq1@jhLLP!L|aEEA}XpFAq^u6&j-;UXklT|(9nQ+J9X;R*RNl}?O`GIAG*gx zLqh`;h{VC-^QyG;g1)}2*ZL~*%=z=@L2ObghM=E39vT`#xxpHB9xwsNQ@Ofjm)_q+ z;RebEV2}Lu6j)$Itvdmql}Qne=VoWIAR0b>f@`<1pdePz?7?a0xXmb88Na^i1ZRxD zzyG;ob&ZXn-9u2I;R9yh!qC4p`fY;OI{m(VtS)=H85k!D3Q=>ZtgMWRjO^^`Sy^5N zr;>sH2?C&~=pu4k=<6+}#o5?9fZC{QFw)aQV4rm@1H8b!t3>jj$jAhj7z5&f&QMiV z_3`5f%J`6;&YnHnn`h?l>$~mo*<<^zbr*1Oaz0p{p#s!qM^&AT4drSN1Op!`7nffy zNJfB4K&Ifij*gDWli)#mg@$kUu2{!N2MZf*6X~I=t%m~2ZSd*`?&b99)5t2HKYxb) z434j?s5rZ@V7mE$HD#h@sO8~_jnT_DT9hp22J(udH+k2fNx+-dw>*J}XqM;AI$t0% zU4lpwuuUAdAYb8V4jG%)|NXmni!=R)XlcWvqxE%kUV3eK+S=L@K0zXb?j0N+PK$yc z1imXjQLVw|01(bLEdAWypFpLqrBw*(4g?3a66_MI&%U@9%0gqD6!Fo#P?7<=B4Y-X zsRAa0byw%PLDvvpHYP*@CRT_EPC9jJU4eym^BMZhgcL+c4l()8|lO>SfEh0*X{KMML6B z@e%VD{tb_>7B9{0!(U;DfO~@U#`>y69A9mFyHi)5*}}`6e($41Z2*%lz=KAFRP9;g zd<2355d4_{hEt@)o@Rh-!r0p{)7w{dWZAj*gzO-NSO^2>A1O9ejFFNU^M%n$A_b4ImlA zXttL?w0Da3s5|St_#k*8AXcG9`$XJgrKbbN{IJh1M$xl*BG|F0qY(X*3u-C{PZs~% zA`UH_{%h^KNHp&dvzmR=G$T>A^sFl`ErqN+49bl?QrF0*2<0GnRk7-;9Xd1MiU*5; zUUF2UrTu7yg_;*D8cjd~lm%0uUt^I2?mv!YKIVK zTe0T+I7~@F0WBYWeSMOvv~{SDH-3A)xRHp_y4n~Y*2_q;uRB_@&Dx6a^aq6Fz(aDp z@Q7z+QTtc^DG|UJick+lm7_Ep%u})g$t8s2;DG}er7>!XOuCYILr{9>R=QM6=mXy$E6Vp>5hmXsM& z0llPPh+iy3*pMq}kjvKDPjRup;HW|A$arI|DP5Wa$6%9Gys^~L4rXyAT< zL5v@mDzH@0!5ylW=Y$EQ9^I{-FeWzE-B_AC%6xL-CCe!mZbT8n)1am1V!N;Jz;cmA z_Y(SCzXdePt~^wEjf{Vq6voD#F(32?$HzHDsu~&|m6eN;94ioUN^kwFuCD(1xnWF1 z1iOpHsZ+k>J+LbtA?lq*qVh1_viY;#zb_>uen1tt8&fx~P09?jdO%<4*~CQX`rrrX|3S|agYR_iPhq&Xyiwd4TTpY^ zK_n|9!{XVUT_nO}f0hPRZ!+crshcKbrnV(*CuUN?Yo*rJ0Yg%zY}eOWwR#dPGi6PE1V4{?Tnl+r_R-uOk-Y=9Z=o*b&fB zjf<@HZr)r*_CPpB&s!WK}-~gy^dkFw_$$iB~ zeeRu1gryeH1syS{SE$&8I(wzO4o+!0Q-$nY7g(8?c%<7HYD_V@d{ET@WLN{7GE?UA zbvE_*{o`rs1Bxdyi;F}EVs2F*=p4D5lr*U1M15Udvf4u}`7=gAJ&YT`6G~=B#boNE z=vCiURr#fRkao^I0I0EKx$sksmFJ)e#kEJZ!^_nKw)P-ba;YH zls!8yv;;ta{09vUde-2>L18`n*)s_2Khqw9oz$W^hMTt4h$)&-u@(-Md9>kR^%8_c z$f0aL#317M2(^U@PY<9w0GHIWQFCzLloS^O2B4^zR-Fxjz`J&s$m$0Kn!K>K%&jC( z7{BM><_?YaTK#?9Derqn&LQTZzSnM!7q^{8mCL{&R$cGZ$&(5{0~OF3S6%(pzPQfs z6wG`dhV3=f)gcPCo8ARN_6aH}k<3`q@1~i`H}g6o;y}ZYG%^C%b%GQqFtti2<4*c0 zmR^9x)IeSZp3{;Dc*4E=RJQHdQR~qa|Nd)J@EPQT^tYE-5V^mBmeUVm5_lqn&cHFLyJ%++wyu8$Uj`FBeX(u7>=nv`DRWRz z)EQe^o?lGhS)tB|%6j72?mW|Xke*)gOxF`jD=UCFQf7Q-K|~;hGBMu7p+z(`_fGA) z<#v+Hw_Kbg7k^CmSEyAirw+u}pj?1QR=9NOEBfXb8Rb>C0Up5fW}&a&otEG^0h#8~ zC9EfhTgNX#k3y~d%$YO#W%$~DdV0wAA@sS=puHuy&s8H%mv5}E08ckRtz?*o8i?j7 zqPhe;4>1r`(;NWy#>SkS97uVdj~jzYqN%&1RTr@PA-QAlmK(j+zoGVn&ON|3a746< z8J4-8w@fBW;l_eS-48`V6p?_WMrK{Hr4R$5KuS4|QLVUNX^h8?`U)~~)6ESMVsqbb z)bQ2&Uq#{9Y;3+0<2_U@I0dU)ThS3l?BaQ}opZ^~4QLnwF(?Z%B%E)ef`UL$9k5## z6mW&sgb&|utJ6AHVTqfRLBs?6v&e%SIyGf2n_!F4L9?Ymb?2dzGF5ZQVOhC%lsgUo zF)Hu3NngaU+|Yc%pbVE^3zinjq38vn=yUAq?40V%{RSR{z@Vq62NMp!*wmNOU(glD zNw%Vx1G5q}xi6k@5*uu&1b&2KpfePl(1X~6f3-A!8HUFh!4PddkM7-5z@Ac5dkGNo z6RN?>nIL9)VJ$k6fa4ch$zZZWc?xDrFc&0rFb$~7z~R?WtA!0pll>~3JTRyql64oC zm0btq1d{`#hy%F>=nAb#gNO@15z*_7fC=RmqJ$si!R5C*4k>t?kE|Ugnyw)7NrBuU z)nSeszRjY~6|Sa@&lhZ)&-80T641%kcS4gJxG)s(T-~#WGOa9hj)n2m{#(h=CFY@A zv$3;R-2BNYA`(_Rj1E+QD=YM#f?l2#T-VhrCAj zH&@7f9JWViD^vXH!h;h;cXmD14bALj$C*6@AHvh}@5j4UW3J9{_!fJQ^)RvcjE%~1 z;4WXUu~!m%-XAfASA0mV{*M>n!F2BO@=Xse#=xp13XQ^k*Y5Yj_5dYJ@g^kMTOo!0 zTQ&cc>!6BgWm@>+b@KEF?GE3dqpTldsT>UHBzYbm=+-`mL^xfzFO$F@)%C8evQiaV<^h1esRBOE^S9~JJOZMlDG3B#HZHtX`iH6R@2e_do=T-$d&&MkNMxUlm3s7RDb~6ln5~&kI-0xFk{w z3xC2dfBViI)VxWVj|3kR5}HR|!goXj1TO7GH3*;=JAsdnFD^{?c6r#J0tm{C8-;I3 zhzbiD+^UD|J93Qq=vi>A!W`@=KYxZPB?JebAiCK?+$~P|Eo4jo`|0JJZG8l2XJJ$= zfIDn%$61da&DP7mt9ljnRpfQY5?>0Ml3KACt9b`TkvzmSIW_6LvdajCda!#PVwm|t_Qj!UjArMDii2}cm zLe_#&#}7wJ-^f#7l|;XXh6^XER75P(l|PD3YUAp?AAz>3s^r`j5gA($A2CI!ros_4 z0i428g%)_?OFx2k{{R{`j{4wqfES9Z=)dfJ?S@YGXGny2Ii@Bg9AZAnO^do@?3Leu z^{6PK#P{*T2cP>fXn7+_ei9N_0Y5!riaI+b?yO%*N zMPE^171yz2_Z~e$Ssti~NTMDOGyCkLp+S|G3I6oT&8V?rr|zes`cX+|%)ciAt$|Qyy1KhXZ|?m&Cdav2 zH*YzB#-%dn@A@}xETP{PejOszBi7JhjytZ$~Wz}ay^S1BKRT_pPJwh-+k zv9V{j9C%QhkI}+=tf%Mtg~W!`2J6<;dXzz63yXwx`rNtWclLo3zw%fqdi=N*2==I( zqOP8v2hMNlt_?C1l>Bth+FSnEz7}4g5E*f3uLM${W?AYlhkbsymcd4U7 zDm67VAt52z1iWU3hBP%biC(Tf1dRTX70P>yf~HXqyO`DAhf)#Z<-ClHjcu=8n;sl| zSNG?L1xR)8TU#|w#D|_ch9XcJrDqlSUjo@`r$jh;8gb--c|0TK~QKfq^){0nO)i zT+H?s((>WeFhUTIP$^?N;8+1UQejSNf!61)b;e}85w&zQ={H&`f?J% z#jF*Uh&_Y@2M@+@H$u7~Wd_%XsP}0cZM}42O!+{8waTONj9KhIG&rEU2VGEkEav>1 zD67E->apkj@7;6#YjuFpY-DUq9A+~}@HKZO;D&WvoYLzGfQ+Z?{P{OH};vSkagcBHAv zO6wox_U+?la_Ah$O9v>^K!Wm$@pcaZ^`|Bnt}A=8Gcu|h8`<~HQYsQVBXZ8r?+f)4 zwtwx0+Jr8*^Y!ab=$T*aMvKj#lX!P8oKY` z!8Ld$04Jykc65gnJ6CA^HmtpF!rJX26n~Rz26W$!|=@Fd4g#iU3t5S+fgipw@I@ZQn?K z9yI=a3}hiaF?Xp3QJaODf^FS=`%8tF@$B8d;q8f*#raK-(8ddpTpxo&~rMGo!GH+OBdnSukThZmwQKLdh)q_>t;Vq|ZJPJzV zGQU`*EvE~`eID11IFG=h-*Nqvm6pM2rGo~?lM+ACQq#WQJ3SM)B7NiXUaHOedCQHx z-c}cndP4A!jdcTQ^wuxP^fp1`3{flBG4^m;nlqbcQUl)!GwF5 zG~#(2?t4JVTU%PVb#__IZJO*-(d#gQq*>!mF}(LR6#tr3ApqBrQzKBNUZRwot!*Xy z*;Md5)HrOg5LV)OQHzs*>@BZM6tgYzhjol@R7&4@1F;177tzd}?lgh$4r`U?WpcRL z4LGayvp=`C3ZZs~qeqS$xeQ)UxQD~6XlQAPN|5uftpZVJXHbVgF+7wSeMKlj(C@kn z;;$Eu`9;FjOc{k^s!;zs#Fp~aIc3F=#H1vc8F>*|YV8sEPzIpz^4eH#W2v3P`4>sC z0>Z*=jg5Rb$;(_AIuFpWAsO91a9Z?ChuiP)3k+04^9*XV=svDCy*XVx%H;X`(tL5W z^P8K_wY9Zw>r10>9EdQe;A7b0s6hj}pw3J@S_O94;U#irC}2e%E6&V52?@rouCKUj zaXF}*3;`qe+2i@u_%i~5cB{%8!%m$ZjqV)YnXQpSlS?r%vwSV9=EICIOMbqSOK>@$O z+~Q)m+0w@VMp*4?O2=SDC1w?fAKHxNN+E5fF1B~x+To)_`5JC_)RECP0Yej(R0wNI za&qUF^yj+LpyJF-PP*ZTQC@=Pjr@fq2e{*m_KVCSoLvR8 zFN){mKbJ8$uv0*Kz*S)X?JP@Hc)VM;@ft8TVm@RYOUP6hdPm0vlR%k8Kz`dVB_fc| zB_xVr9Z_mT!55Zf5S*lD*YDjTuZ<2JI6&-fLo-3IeGV;G&GKQ&A0RNS7J<@@x$ke$ z@(%V>l(yHJ$=S+kJ)5tKI-S&?kTxQMF6ZT&?;TD3+f)*rHVEU= z4ykijKIFb>2H7uh@||3*7nk=pCdZyh*ASxU57pkobz36+Qj-anQYZ|z6kN%R~S(m#CsC|OGNCvfUZY<_g*Bnm=!z4?CPO|yZi zUb)@Z+XJ*TfBt`TLL3jFiIr7x8GZk8hJQP_T(;sT|Ge5+2L8UuJoEP&B$|P!KM-H( zOq>4lymK;}|4Ld5t90>^z=`;GxIpu4>P70 zjwKvjmiaM=HRG>E0CUk**!!WQqXR&S^l8T=4z7zeY*4{5S*CiT`*$_)4zaDM~v$;=FN12|lj}Lz23y@ux zZ!hRi6;970Z5H%WJ*wC;`IC4%C=LNx5lEAou@@$$?60BhIF7d4AN{WNX?Us-R`@Vr zIFb@2+yREry|n%RXi7#WrZ#(rPuDZh?HQUnVjbo4WAD4#F0)Q`=kp6r_B4f-QN~Kl zKBZLC^{ydCT$dSd-kU6C9mqxivA!B%XXT(0(p1ovpy743<6^|z<`%)6$TX_>2HyAK z_Lc5FKd##|FG`FnkH49@_tE@kg|X)B&7B3>*{eVQF1B8>|JKFwU%GrBvHgI>^bv!| z1Y9`v0#isg(avbu#7qB>&Q-c|#vo}c~aO)5K0Ev>a-J}-PJVlLz5 zOBdLn-(Eb%$tejyh!hKaVB6&dw}fQeb0n#kY0}x+I1O(2+c#S!AF)abHO24n5 z<=MYQU{?~(WVednAl!rBs?YxPN61v`3u$s3hhTa_SG&@ZI2+p)bWspUUmJPB)9~=& zu59hB*71j@O+X6ZG$Ec+vS-gFiM9lM4}=)DGZtxS;t64>AYz}xVNDcxz8%^CpT5|o zcV81pch~m!VCY^r{0I8lwyj%<)E%h~1zx3>P+98Hhh14|hNOdPs&*xg?f8Wfk%OjY z8wiLnL%uXhcSoKUHNCS+QUObw{G7~vz-*Q?8R zqQDm|V)Z9{ojZBbr`fy=*bl`#oaa{t=L4$W^WrsA_n}es!#;y221$nJ5oH?Ol{5w~ zVPo~G1A)1A4(!;M>U7d9YHU1QTswE~{xv%bUted5la-MXP~?1QJn|E+0M-I+PFX?W z1$U3R@N?Z<0_iLcy5Jnga>=4U07!=3&P&?b;jD_lkn_KORoD;L;66Qpl8DXwa~vSd zumw4yazh}6zz1;@_6lGRtHN%Su^gD1hqio9Bhq!CHqe)6EfmZj&>ff^U)XFO3kl=O zl~k%D($do0+|M9*BCR9OqtEJZHhW?|zUd5VN~-bFOL(|Zf4=hH-)+5mum-!)F^KCl z#$y3N`Hqt;#Cp&^h|^EdNRKZ0fsv8a0%$|r`US^iWY%JA%cBHL?zZR}7(DBk^rgZ8 zVk^Z$rh*xQY7jk`>o~`Z*RZ4j%nKWX^Z#P*O~AR_+js9@tyXCunwO|ZQidc`N=Z^0 zX&^*JN<_#|nygS7G$<4)(u`zIlIDRFMW&=-QG^DiG})hQ5OcIb}7qMghjN%~sj=>Ep-L4VQhhH$n09#YqIZTd=kGO`8KnV$RQt zK)z@sOlwza91>n|THmePwlTcL$D0?TAZJ83jXLcjI-Z$-JWi<~N(E%!9pOFLDrNaB zxO8Yy!P7+|f!2sh+<(iKcnO+}5~sBE>%dV@)2+iq(KoToU0@p)`AtParuxOT%b!G6 zeSd!Gbokhb)@Q+kC;nu5!Z-UTS`up9w?JKQGhZD6EaFA6zALLjNzNRL zZ;tE7bDlbAodUO&apW3fhp+UYA72;F8UH>YQ=cYc#E6xg2h^IHU1VzR(;9uNe7k8y z<9JNGC?SyuGV_psDQi0QyT+I?Oj6ogUPrWwId2yoos8i}H#|JM^}+?+yc{E1sz)G- z!rO-PNzKGgs9ug>^ZM$@dNpO`Jeia6i*tU0jX{L-fc90ZbOpdL*{`To<@c%HyrNP^ zalc86;llgRblsl$Nit?seArb?4&yvXslZ@7XeNFtnwQ?d5lfCz?I`k*ZnD{*KT=)& zo%Z2BMOGRVEVpfYI9R%Vu=5)?eMV2+@^qJP;W^)hA#UbDf$QyTg|DZ~W9g3{PscL` zLy^4J7Ntys`STAn$oCgKc^#H5V}9)f$kWM_#$slsrbAq3FAUA7qHNjx<@(@wiMK^( z9+6}YWGz=2cl*YTnTK@?&!%Wx)`*$xj#R3(c>o04a$ zs~y%MI2{=v2{6ut<~jSBLUyBuK77~K0+`4f>oT-({irq?4SXwUAs?A7Eoqy`l zi0;-02WENJ$_Lze@Sx<)r|F&c9yzj!vqN>5w?eMoB_uQ(CEnpteFiYM{t)&RZ>xZ5`!OOsKO^q>c6()(C zb|7M!-c#sB!Ltm5NKIDWDc_6)v?ObIFT(-Bw-D0H1$gwn%_9ns%viKBMR>v)lmU@5 zPZB~a`fA?mu+709V3?E5v++P4$D2pkBzC70_+*glxqOuD-~Tg$(~2Xhbb#QIjo0eC zG3@tDRNzDfd}yX(7l~B`iz{|#KXuZSrkhCEs*<-mdqB6264CBOecTSha$#SHJ=`7= zMY2j{)t1No+=KzZ#FCx^wE?M%lWlnB72XF|hvQ6$S5U--b+fmX5ibL#D48x?=%_w` zEM2U4=2&y40$F5q7a8#QAK<^75e-J^^Csk;C&h(bhbZeNNB&q9C(O314g%Z>qM6~-mm)^=I*PBj zNaQwkWoCz|ApX$)mD_-{H{cZ^cY}g-wJWv4S(Q8rBlEZ$dCBp|<;-JOrj;XJ>MBP- z&!6#kgwGT+*KqZ?`1tR5It54)mYbTJ&83}Zj5cZ*7c=tBE+OKRVb!IB>C4j^?0uT2 zGT7m=z%YokHE65{L%Qp41W8Tb>Cq*h8?h?R=`lDGBC(lbOTDVL5gV9*lDt-2ENJGv zWYkRNy1AWS61qva^eg#Ru2+)4ry$zCGFW>NC$n{CsnkHLOV2-t4%LGX6~xLCfLtR*!taO3-24z`S+J91QCuyFl|e zt-;P3htOYTuWMRP4pmbWHWY|1*rz?w()IB0=+?bEY8zM&Cx{3_07imMs(r!uC?}df zebV~elMynU{+!YtjBlE`Y8AADGcE%Jh(Jju)~znMEkzrKBB)&h4U~b@eUYs#<8e}X zKcRqW`^)gfn+_5CWMysU&07OwY8l20_Mt8=(dw!8+zO9gWo2c_D%-YhwF)~$ zV@@R{Fx-aUd7Cl>h&0q_knd{&t&tt;@z1A{#YmMuH8o-Jt0f%_HAfzuGjpcqXPMD< zH=xAu+Qz7WncEM5K(KD$dHe5ve6r?2TUKtS&JwZ{Ap=g6XHE@DFog;eO1p2BK2??z zgi#n!NGvEbIMKZ8$tpa`(6BHk&4^P+e9ty!TM0K&{VDv2__tvd-ulUq{#%xx~%<-&hjH63m0GXti=);H@poP z!c!fDYE8}WI%UCvVlwYA6W=e-x4nG%vLwNp?rp4P7(BP&dpqI#yX#@Kf>IGjJOz`m zap#rlE_h85W0v|GGk-|oh=cc<3(L2LD%2ta`@t}&V0VHNABi6d0$QJ?*SA`#_Cd_1 z$9%cafS}7Fw*#G4Rpsy`cq!{?7MsLD$hZ?I!7$6z>eMFN`u8do9#ZQ7P$@v@O`u52_iTG_M2$05eZ+THBp&Lx zTd)kHD+83FkOb_5Sk5&*)pjtV&q%s`?`auEu`?v%dB0GK_+i-aJbKi`jXI*f^cwa) zC8;mlAv1oGoXJC2ze<^*a}M%{0bTP)Yqb3w)ARpp(9Qo@SS~~*@BXQta7o`jj&Qy$={i@!|^;p{j@6ma(gTsjw z=gjRnIXUT?XP*}^FktQLwi9W*RtXb1tOic1u$+IGSO>crEI=5}Dx11;NsrD%d z<8c=*lqN|@3pj1JG5?zY=ehf8BFEZIm)@wY2p5ThwKT?6lnr}QzG%OKreUYCSrXQY za^ItD{B0EFjAmrp9Wh+1m({~Mw{MfwwcB?COG~a@K9FsGL$CVMxwmJ(Ek1vim%&Qe zD`!L7SrUo;0%QxiN&X*zU;qC=)VAqe`to8Yqmc+_g6y|3SGK6F!mE5ON{Y(4o z+vuUjWu0X1?+XvtapDhSjU863u-2b%Yby-(@vrooo5+R&VCzXHk~1Q!$mm+knw5`d zkIaN8VRx53bV`%x>G-);^TXKoALzz&c_wkZz~>O8*VCM)c?psc1`V*Q;`R z#A1q_0FRl#nQUk%qg#T)0?G?U4Sq7>_*(y~>I|y_FWjz6`sOL!BGVQSeRMlYyfW>$ z8?Oh8lGbm%WX7*`D?B#EI5r6~WK_=gWKQ+NBVcIKqthmh9gj>a!l&-%sg)6(hNeijV&4}In) zQT^k)jZfvU0K`N#sCG~-A)N)0XkotH+ADqf2S6t_*7h5=>PagpYrIN-G;mHU2wz%0S(@ADF zMf_<2PhotezuKa;JQD^=aCuw2zCo*EM2}<@WWKhg_go?UTbMRsN^L}d7+U1*+nMIi zrKG?}?`yep;-|*SiYN2B&im;51A~oG0r>H19GVHVMMafQ8->^D+ZP`uI_FCV-vUg+ z{Ggjq*Fvl^P1C(wHxFj6{`e!*Z*rJJ){L;nDTA`+oJxOnfqaUb%uzEUIyxFS3cd&$ zjKU4o&RPs`P@_oLwAH5u%0^e7cLEFRZOC^sU;Xn_;%0PtU<w5*y4_8VHm{$m)qx{N1p5nM)!5OC+c10sXG1f3OB6D_41p(> zGf`Z#vX6Pan$$&hl7LCj6yA^2d9Y#6cAPXYP~;(FM}<^`DTd_}!X@oMxE<{OK14dz?ZD&wPLzMD-Q3v>&}XiL^o#?k4r0ED9DL z$@JIH8XIlR%%0cQj-}1l`*}Xa=J2uT=q2EOAqx7f-0P>%!N`BQupDpWnBbA zFy@?!@9=D(W+*jl!f+FkyFn!s8yoxP-0csxA)Slowf?EwhuQ%})CC5YalH88lc{l_ zx^c{MusU3Sl3WIlS-y*Q&*g!bs8KTGRicaS>JA1W3jcu$b?dOLx6<2JfL$9vsqxnH z;#4rCkD-1_MVa^deF!%|ZZN1Ak#%mNS>xu>UBq*r=lp0`t(xIrrnI@%>SuQ3fdi>@ zYCvG1$ty5&1j|LhlM!)q$v|UW(>WW{P1`}1L&>MNC1CxR)gWXPzj3`g+-^AesMb?2 zO7a+`q5x0ePjSvR`zvida+NA=f63;j-;e6L8;W5mC5&#C-?!V;nke%$c52Ux33MKP z4Fk4rji4NzOZl4tumxbn$S!bW8ZVDf@AC@ekKWec6fIG-CeLr^e;@0ZEGKjhn5F=bcYL>VXTVxgg%qkPh}LSstE|q0^y@ zpE=G=*OqCFbz9>9v)mg1DYlT@?x?lQ(!2hqDgPLJJ;F94(j(6pIPlb|Qc zg$AUt0In%@@iSd;a!)$^gyvZMea;()qWnwO9MOUlPZo3?=5gXZdZhNyy~l{$)LjGK z-yMEb>CK+y%a$#acSyjQMP*Je-eJ{yDC#;_y-FxVs|XTYM*j z9s13s_J%>Uf`fAhu8+HKuH&hs6ROlSs&0*%oDo^Y0RW^O7~o}(w_h)15`wfiP!eh8 z^qswo7Y240PqFgZ}JEeVSCNqZc7byxRn5-qm-yRurdb9qgCx%l(jzf>g-JpnfIWoY5 zxf#;oyv(HmwFBF(OF90kyY*i^Iy>C#R*~@=$Cokm;qWT@P4~vYzaT6@XA$NwR!(jy5Ma%p ziXhtTuK0<3^=nHD9adiQVGNtCtj-oX9`UU^L%6k)D81ubmlBvujur%%M~+N@XvBb; z+|3tBA5MZud!w;^i=W@PzdGD@IiYez&LpJx+d3%UtZ#rK6Bz43*(f*z@XNqY2y?j} z$HVlsr1SaX%jA7}M>@hqmp7DERE$$sKaU=W4852X73xaX2N2w^uoA8cz>->py)K>% zmXZVq)9s^mVIVs)XaC{DG6Mz(P82*dhe1<8K`_Wv-|)q)sr)D!l;AVB8=t2IvrfqX zwGt4k2NlYA3`ymHssR4w>C>m!{fToUp^*>RU9jmi|opZ-?e z-pCpJs;m9X{r<00L;Nq6<7>RUI~dH+dGRC@)yxVD_ueKU*jvxDvI3EfLhQis7}+>b z672cx*!W{gsKC3r$MYY$6gH*r;>_JFwDS4UOIa#DL(2A7qN&R~Dk`GWn zG*d6?J_-z@*uqYK{t4FuB)+1=qxa^`o6$|IurM3dUDKnze=Dx_RNQ};?^RGznig9q zCTCUiV5KF(%7HqEZSDvu7>DBkN!6xT^FtJ}ZQlx)p#4;pD-v6(DLrGxjMY`!r&e9W zM(Grrvdql(spRD^HvI!_*R8T)A|K8FU3tr*C>uO&vMpcAZ#irept@hu)^P1u8ZZIG?rptv z{ajlEtD3$|eXczc6c^_X?vb1@TkXb#R~tvje)+R-K*G21og-~m|NZzZw$N=M#&2Aw z|67zd|BGjB=rhy(q(yhS74WpnKZfhm+ z>e3|fkrze}Z|fNSv~;CscGZRbS>3cQs+XJQ*1B$O5Yy@YWB8MGRkjak6{?Ak$4{KV zTO6WT@D}gf`PS{*J!N#yGr1F{k6(`98wZ+3g$2z^rzx=UvU-||ipI6kos2bZ~Xp;DYb3XN=0$q+N}BADO-+Yd9DeUG}{@cM6=+cwHSeu|fA@$tATp z)_|Wfe+oxXIDu2IL;lr$@-@pzQx7(N$)Gpl_CQI1Ly%T9icmI`K_vAWKS~!ncp-r5 z-iByOrc9j*=f!-8Wn3{`p3=I%Rr2V%EN*RJt7cwqF5T9~4I7Zhuv{a8=6?0l@p<#Y z4;!>Ekx>;Utv~kkFlJ!Iq z)8K?fqEt)KG7Vvhf$I_P*>ldUS;8o~f{9@eWhq6SS3~)NTJP%IzOjW$0bg*M=HUN) z9lPi2moH*+Fb+xB8&VHpdk|Ujfo5qD8wMCxgov6xeTT<>!QPb-llEOzAt1$BnVFX2 zkp~azBJ<}$EW-$T`FniVt+SjR?znqP!;xuXQaI#*gkbV~!b;8v$7%L;&?Dt=2x!kV zpDDL##T<*pbft|m8z?S=Wyd{kHUpSTy!a@n_mYpE(W~_RNhB z`0m~Ljj6BVHCFwzv%$U z-0xy?MqnTaB@|42!Hx54w;IM4qG)>c>Q#TH_az4Q>2mEn^hocP+wF;Di0I71CZ#>3uEuw?ESg+jdM5JdXD z4CzaEyQk|H{;S`MZ;UFe^`vC(Yq-$GI}QT@K?~zj!CQi`=FPdkL{`~258Up!d+U*# zf5#%y+HcWOH2cQjqki+=Rn>MjZF~!4<@8$L3rq=4*@SH0(Wetc~vXM_s7_&IIw zeAij=uM`+n7t|SB{9-%QtMxV89HM}81t!+Ku1&znXb+F3n0_pw55wu09@ zyC6E+%BhjDODcNbO@Un?k0DcEzwP@_K{xOW)I4T&8%v>l5N<# zfUlT@V8S|YMajbh3;km+b1ITM-XzLnkFmPqDyv_?2rZue4GM^p><>&wVIxtwg*%MJ z&H9GprG7bIDPuA4zbB=V{7Zs(N=fR2< zoF_8fF?%4L2|gc)!mt)UOB@F@_P>gZaY)_=Msrq=jjxV1?=W>upH-iY{zn{aR`)in z-*F`HsHyp&`l_5(u-AxX_c*~LTHRzpAR4?o`9#!YN&9^8QhauLRQ1ztzyPMDuyPu! zx8vdT|ImKrdFj~L*uZ;da0Fo71t*NSVsxWWlmh5m6EzEDkjOdAB)L-OMx#;JVB;p_ z0Ggvk?7GwxGEU26;DMs$Hy;7HvMcOBxOA+A=B7GL1IO$q*-Kf+Dmqp zMIAhNI(}?!n`4537t$x87LYT-g*U4CR)u+!P4KuDz20s`0s_ZS6CE&T)3=H+kgBmg^#|>xbdk~ zSKh-d;9Q-`&$d3K7=`w%1V7U2mt#5`(`{Dk(?faSzK$W{T}9r*ZKNR51CJ&RNi82q_n5Ucz_jtmA9K#EGrgK$i%>8o)K%mB)@8 zc{bgiqa{39%dmXau))f{kd;8z2twY;+Y+o{dN%(k*~}J{(hn<-2#dlFjbVLy8KY7Hjs4ht z?U;=-ih8#`%! zf-4Q`l+Vr0f^i_wHB{1OJR;+m*!7Yk`A9HQg+mF1AX@ zI(=?=JbJCa)4A4Snr!rIOV+#W`6u>F{yUC?m39n4UpoJCBg5xtKD2vl;x7y)54c`Nn$`Z2l z&(C!0c|ztBzOYI!;m8cGOIY?IXTH1Ard)vELueu3&oY(aqUoWi?K=x{X z_SZda{M)J9l4GiJ{0!*~mZL-mS(p^73W+K3e*vV(0c^FFBIFrB4Rk}ohTP5pM$ z<-_XjTVJ$~85#H&r(Zhpp&&WyJu3&TebynXfqD_|FI;>l`hGlJDbaQz83&@GFrnQ+E{a0SkNJSP^X_hPP;+lD zzB#v5!ubt>D)*Uy+*Vx0o02I3PSYr5QR}t@zkkRA5<8-IQ=pP9299!`NpEgXTgb?uEL`cUdIa4 z>mgT{IKDpbedy>~Su}8ip&wGjbtAr8AB*`l+8}AWz?X_1(tx*qOey9<*>O zQg6H)VE2CXT(u$JYhlXrwxHEj4p3Ye8DQFs9hXQEC=KLp@HU*Bb5t$B@$9z=@R6ZC zUDs_7kmS&&@6m3_Fq-^p-0JXy?=|Znmuvctjt~kYm!2aEw`T78>i9UK%J+?`oROpB zYaSaKcBgS(^G3hDv_5Z!LI8QvxjaRuYrpnIUb;uuZOkQ`YE@a*Eex5rPDx(=*w0w4 z#rbgJ;~_~T?EnZlr;_r_B&>Ykxamdix&}SGEEc@#7x?Se*5CU)swh2SC1pUUNhhK_ zRk7N6UH>cpYtkp^a)~WlUT~Hy6pi>HE8q;gzsVrgB5HbH=wTT)czt~mqW!#E^t!?x z;Qqpxi?-4;$=#3nl!fdpbcot1P$cG`cfrKYKBRFX-M4N{l(VqQrP`k~#=h)FVLiz_ z^=L`^7&0|;FG4FWW@yzQ6^%B1lA||x43N&<+*~Vsh6(g^KnE%(qg$t937r6BM2US+ z*WC_j8G(Zx*CE(b(5Yr!yofU1Vfpe#sC|A7jJmKj%idv^%vcY|PO8;8bVy9n0LE;h z^%Nhdjg)=SBB4^Q)(-xb%WVJsY`j{65dG0$Xma zsQP*GNo=9%?qY8LdsdHvn6c;*TeyYI?r=f`Vcv!M&N83=%9Id19u!tGVFXbuPz)rC z7CC%6K+0b#Atlqu9_ zoZzWOMg-k2Nb~f$6HxNf^KOAv2~D=$4Hy|QPzktps@EetGO7xRJ+%h;8JDDyP?5+M z;YC8kZwI~s8yWudCSnV9*KWJIbx{o-?(UW>2!nP$y7tBPFJIQ;mP~{J>?7a`N0YSY zT;P~-sHh-tL5E@l`5ylwM$VZyeFzbqdYvYp9<%Mj>u+SA+PGNlzv4(7_d+kviqJF>6C}7>&n0(AbIc#5)>b7ylbH1X zGDDia{ZH4WmuJiZtWSx%u>HT)lI1E^{7-NXmMKS9d;akiAWWFr-0i*W>Ye2$;x8}P zI0SbsXvdOgp1iumG(BkbSmZmXU!rWLWUCb1A$7wh6g?ki6*-5YPUBdq-D>sa@!)T0 za50O24#jY6mBEkzN9H&~6ly>Do?5WvZT|oSmLOn~*BmwR4buKxE6r%uBSuW02mTW| zhh46RZ92M5wQtw!O=5p3koXxh;14C-Es*s8t zi>0wyGJOS?Y@kd@JFw2g?B)pJw+RGfSlHHpfK?Ug`DJM$ANl{5m=R`E+m4TF(A{Mo zY@Y=PQd9drW{|jX`)T?z5jjlOMXxn>9eTFDng|m$TSYW-%E-=be`|hXX2;!hO*!wb zb*Eg&X7UK^4qMT}ne70+$gxN}321sfr6N<%(6Oo+0T_UqU<3N#fldatLL0FYg!*=! zpLC@m4ImPM2MsPm8oF8iyzb=Y3KDb4W5hK4sPC&y{gY0(m7w2UKwzqf^((?-C4k46 zQpVUFy@ZdqYTe#_`(nNu&z?E+8yrBSr71DI8bjJNQP*od>QCc7f#|S{q$iUzV2@PG4UBG) zbTc?1?X`0{8#5$dz^kXPx_AG+`NLrNUOE%PCU5*oP3de~!H!3##xge@b8+}eabjE3|vQ4& zjMv#F+1;d2Vzv~GD~OCRVl=KCxpylnE5;Euu{KCQP_+or5k1=}ZYwR$(dyqR~1Y#eR8*IeP{orOq+UnzWe+c=d-ky zN8=jS&rB?#c6rg7;#1{5%l6ygD>;AF2M@^#vbxb>_l~|6H_xW+wut+a9v?_O}LHq>2AObjqm*c?eqFYN3yA{h>oR|}6zAKh!lmhUOfEF-duh#{WnpE0cP-DDJ8>YqO>@R=P>11$* zzQi`1isrpUI_!YwxtCq++=`XsbIlywPjW`{JeQ+w6$wg<^Pd;-aBMlta z8)2Oa)AV?}nxxoMmfQv!UNv`~`^dZeU|`@B0|Nsj7+jf3pKfn9y-L`)#>w=#an63n z|8y(N%c?tyYBM|E=GZ>N1m8&DN7()j0svsmA~I^d1v`mft=yC2N$On;n#K|9nH*~0 z!Gwc!(4B`5Jy1cm&jFvE+`BB|f&hf%=;`VLnqv2robQikTQe@!s12LeUaHwRDEI-( zy(YG{JP^<#)E-HNg``+)UF}zUatm>i@{G$&sJvSq-B7HEk-u7aMOj%k5X;5l0=-7S z)$8z0Jc@hVyE7Y2qD{Wl6h&VP-ZZ?h-q~L*<4jCLac3K~M?dQg%K21zcBz}9W@)Go8)+|#vaM)*3@AUNLXym49bWm5|- zhfY1=lSky8w}_%|`~l8Oq_DU72P}@EEMY8X?ppc)4owRd3>eBrem2p}pb(BRz0oZp)@30JAnRn?-xj}gi-FBHb`<>7`6r~iM+dKTGF_vwq+)VP zNr#J1d}H#8yIfo(J77k5_p<;u7l4kM*RWrQY{6Tk+^5@$dk5cRTv&WntKjRBDs#ul zM)Fcpme$tJ&CYN|;|I-Ag#8Rn8p>NB$bO;pO5!cA??wxg&km&^VMDJ#FuW<5Gj<@u zb2An9pHUlKtQU0i1z|+85DVp^X6-eeo@|(zPL^kZ@v2p;NIb9&8=&WzWMZ6gHB0zf z0_P}S-d|qTDK%RfzrRIU-oZgmi{41M#A}N?&F;Kvy<@X@pjw9OYmZL>Y8E;iF+-Ox z8-9{+hf9hfR6|fFEHBlL=xn8|pc^f|Z~6(N<_uhkhi_I z-?)C=zv2D~Qzd%Esl9ve2Z@t3^YHk9DC+l-ILR~9RHu4*e+buUZmF)msv6yvEGm6Ci<(GlLay!p z`Qg5Hr&tO91E(RgM*U4hCE8coF1>N%aBNh8xfwO;E!f}DF)Ma2RI$zSc7faIJ#kOX zknlVryyxde8|ChtHtQJLznKiW+ZmnHt)KY`4f@e5`8N;FU;`PPs1N` zna0_~lHOvSplw-&*F*ub{WZ`Q#|Tmf926e^9wS^18f6UlmoIw|edv5fIs6_w61bHM z29B`FpnsJ#;}KNewE7%Xbg8T3`iRoHqWO7CYW1Rnf4`^BU2V=CDX4bhJ-yF+8h8<} z?X5xV4bm*x9B6KwIASCdKf!&w7>s%M@uR{qX2_7j@ciN?9DkyFw$Uey^0wE`n_%Lv zJTi@d1&oY9URLaZBeJ%%O!B`qLvjDc)*qkYz?ZI0%f56;+EXuUOhn=vr~kMppY6OD zpnWa{+a2wHpVM-K@VJSdnZo~#v9I-rG1fR#4?@6P@zU;5_oBvyyUhI~;UI|`Xrrik z?@UEpOR)v-Fi=9%v0#YGjz2noX70e!%E}x+Jq3l+`C4S~2~uOnjZ5)LaQ5WI{r+$dr11HjeJb7*7^3pSJK_aHP#^9dX#78SM@Np{_|0)Q#$-OJ5@0BSFucH zPtD}OPWi&EUE%CQ5knfrm~$fq0TC8V1F>Z#v2CETt4J2-ONN=`yY=j8@k7l}aX+&g zfAdCr@7y;{f!5v;YLb`t)Obf{XXVi8Wm{hv9XD0t*y1J_S=Uu_boz}bZLa>C;&3gk zPp|?;H%`_+K3)9eZs*EQsrp)2kz&9|fNJ=0v{(5;S?Qv~JxZGk>fdZt%b3(2y(hFq zZ))(TZC|;4d$BbMR-^2~0LRLR=GFYB9{^PV4Gd#@kvI%v&YO(tVw%W)92_r0LXvUx z(!NA0W%iJ}&r)Fx1eoc)H>0yA8$o@truXIBw{wipy4IJV-68HB!N&Fde#c(*3C)1_ zsV(wsxL-rn$T5-<>r_7txdY__@UdEW9^r6)iIv48r^aQIS9dHwGE#e?p1OL$)2Ekj zb#%1%a{d*{6U8q+*=iUb*V8l8SAz$0fKZNuAzzlX{rmTi0VCuQQS&FeBfrqPt(`;o`+jpNcJQgH2aVRU{wFGy48*G+ zD?R&(DSf|Gd$dga`M#(3aiA=a>d<7j-(i!)tlj70qNtd>1hcq$-YufUMAotrJm@FU zzpz*ZSJ)W;Es8g+Dc8p=QqzoZx{S=^xohkYc=NnY2q z?pA*Q`ojtmG0}9F6^tSb1O~%h!(J8Mp=;Vy`*4_i2s2p` zo^Wg}$DDZ&Foj>f93?15Nw8uG2??x~;%VeCK3c9Ao}N7J%yn{uJ#b$rMl4uy!bq1t zU6y)PTe06x_TJz6S$V*^$H>+WY?3RQa9HzKSyCcq<2spa@z=#C(rJ&?GNh>89KL^? zH)hdk?Wq1LtUndke}kyV1Qi$i7s$#9<0&HG8H9$E<3Uh8?>@S~%Dv8}Z>Cv2tS6Fe zDs%aLr~guGZ&F1U&zwFTq~R$4Ecmzr-OAP@TC_=m5|QPA+U}zOxG-v!POP~e6kULG2d-$d%G<< zK`8~^6dYupXsf#aZVy=r&A!?F{-XGfe`$7RK3v@+cB=?nFO86qChgtE-xnI~Pihs$ zum}#2K)Hd3V?qm^#dmj3Fc>H!v*G!*KbcaF8ujaA&B~uv@=WBod&EeLQEA(5!rSew z{B;$6C!_A6)InSkM2FW{uXsU z45$hk-F|6)F~l%m3yW2AdD|5g6+8D3?K)sX0oW@ zPm81b31mTcii%SAZE5={_YUN~|E&e!cNPTN4%OY-<1ZA1IV3bq^S0&VBGHnC8i($k z@8FiXh=#Xxz?A{DX`O|2#WXQgiSX};n50Lmv|qJ4P5X}SQ!frw_Z$6a(9&a~*9PPv zw3+~xBS(xt0LAhVZ~L3=YFd8j5Z_s5W3j_vEiLUWiT~A`H{(`5JkBOFV2<6lUlx1k z3UA4Sz8yRTHu0SqQyRDON=hugUE|Tr>fcpl5LXhd)?ZZgI`kP!i_Ly6f+yZgM*Q}< zWaEwrW9)w4Pp9K0ecG)F!PmnK5~XBF_ABGt$8Gs0&yyBg?7>Q?Mt=Pjzx(P_em!f^ zu0g%pEeN?IA3sJMJ2qW@AJhv=Ji4==e*VQ(Wy!bBwrx@7FGsru?|r7EtZbd;RE$DV z;M2M+=q)2GVW$AZW(VVo_}1#*S61|T+>~mH52U3nPzVcB20AIuieMUU5GHL%C-i^6 zBBE%M#7pcZ$#V$ z^<_)T=A<%qRjIoCMfaCmCxrhxx~B{I(PL%qLq3ViiVfIB0YsMST^K#dzs_cEDykc! z1BVaC|L31Sbi#xqK~E_wd}j#joP!A2w6woIok8%&>24HmlKVikvxhO=8WfaQ>@#bg zNaS)aQfHK|?iVChTO|T0D+DYAw`jPAE;)|mnXS9eEw#FjcckOkkF^5}6FZ7D)w0vK zr=_GQtEdz$Uv!IW+m2;|$(0UR}@`H&$?F#MqU)AIDJ>(lKf zbB)4aR6+t;TXr*F+l~1fx#KTwZILL7WzM*UGNk&Mr-8h2{2-j<8sXj$7;QicOn{D% z+lp62_fA{5$o0Oy+Sj?$SClw=YpFN7ckga*XUCQv8=t#;S8p@ADdA3}f)KqR0wRE3 zHuT!s@ki3qyoi>*!q->Eb(s4EIC61yoo$48v+3PC3a{*?_Oqu=6IOqwq_F*GZ(3T~ zhc6ta-7;hCu3YhaWY{=TG+?h`%opMEWORpwPTwAM{W*^3Qf9<&44r5pK#7I99GVbq zF9jNW3?^PbJhAg?Z<((jgI`;85J`u(SGbT(FPV`9v!&&YOAsbI+2gocUK*1f&W2xl zJ%e8M*0XvJP+!u%DDGKPi_!c=i#G6-cnAogcNocsJ#&eF$N?=W5PUv1YX zN`1Nsv$JS85^$?=`jcc0h@FnCL>`8AOvGx026oiBFVFq2x-ujtPP@qzh^3vBL+)}4^THy&5B{M z*MfPcxiReE6wFV7c8`zOWk)NrJrpQcA3ydcJoOwjp4u43L0BX-ex1g*UUO5lF(-l9e96}seEJ6E1h%~;b%Fdx26K6H9iR1^ROJJgp|AIoFDE)S`|;N~V$txz^U zKnV8X-MiBbhaOuu5DIwD%Xyj%3|EwvD$T)m97=YQnOPxuy9(USTYcQPZ=@e~S@7D> zjFC>jOHnu+QeSEqoc*31Oz7rG)O;F2K5k?4?b90_1gq%STpG_tMpp3S=~7kubgM{n z78YjGJDyK^BP!?y!uYl-=V%aFW$tYWU$zwp4rev*8B3=PR77s6)W^!&+NXW0fGly= zA+>(aPh==y6)8vgY%{8BxjidvQk%1ne%Qee5G>2qe|Dvlg%SlThwIs< z5N9#UJf>#Yfz&h2Xi$Zb-RaX=o%RFKXz6z12i8H5tDtNLCv3c!d<{_3XzJ9+hzLUN zIRIp&8h|D|ZUNx{Jzh|SMX|+ZK|3|dRzcp``Hf)v7ak5jjo<|&WTd8M>eH+UJ`FZE zK;C@!p_zQcXJIf8)jGjI)n%c$=rz6;N4#!&Ez@xVg=W4`Qc7x4Yr|4(aag~CPAeZj zY-}uNBy7n3!36egJ{59{G`yeyo^)x5dxtJgSy}aMG#+U53Zc^!Ad&dkASs-{Y&Mxd zMqsKG5fZ}epq;a`^}>Z~p$8dwa3KypJtF>Nq{wg5>&RzAjuFZTc5cvwLZ?3P_DEnb zOn)ewi*DbZ+S@U>PBTn`e=V?*jDtXbx{1_>s+{6^ppMhpcaPk05T(Ki^3-D(ih;^!CAyr%HRZv~J-a+Hn7Cd+` zXWia2850p~@^w_pSrGb@2ng3j=T2{Ydm96yF=S}i*yY>n0cM5UNh0HzosEx&C>XVV z@OrLVP&W=6HYM`cqjDQ~qTk@bN4bTVU}3i3N;yGX(jx})-~Q})m3X?3(taa3yR9yW z-LQgun6{zCqgrH-Bq^*!tY=RqmFFsxaxbxxFRXHiJm?tmQ%<{7Az6H(^p+r?f^b#q zn)-UQ;hR{$D0}STWh>+(+`8U{JYj}XFw`nrbP!~Fk&En4Ts9IYVb1F0qus(}Z~UN9 z^76nQN&dt>wEuF)NJbKaCoHmLw--}V^Ib&iTn(>=@? z29>l}u%PnNx;31Y+|NmzKxt&u+WVr(fa(W~2V51hh~?~TsW+WO_|6TN$3n~aj0@y| z)0*=FXxG??qsJQdyrd=GG!B+_z(LVBAUg#P{H1c@rDMJ<;#tP176p;;ijpA*N-yv~ zD-1ND2lV0X0%*LujLwH4H4O$|^PRx@0349`V8Df1uB;COD*Gwtc>)Mjwg<5?MSlNX zgd#F-JoVk_;uKp1hc9?gu5X_CO0Prol%+QA!OCBRfhtT3&Q4{CpY`L&q(LWn zYPl^#rxQx6k{xESGGL*KdBgL8Cngr2{5(%u$Mvw2cEI)Lj4BO-fWS41fOd8m*xz)c zPsUp|^%Y$)l^%1ogQ%cSsiSSu!Y4{;D|e50>81;2#FInoZnl0}LxQT5K6=DkFLNVO zQc@f=EGKt~)J!dJcbPyND`^HQ$N%Ei*%1JEnFM2xmwlOUD(i{PNAVc+xTew)Ez+OU zRJM3*2Pl0#PgRsE6R&*k{n7HmLNoZJqZD}y2HS1l!}ygzP#?MT^8GRmOVlMq)(_D? ze{2uSJ{nR}{$SM;BbVE6f;$PpD`p56uNt*~e{ZSknwq-3x&_B&8spZTKX%Np;X=*K zmCdq>>%-5Sq)Zh6Hk#4N7MZIZ(*PKg?;Ep7=G5)YR@uyUE_xAozo@$41sMax=p%8L5A)anRl&?EEk4}WEs((`}+pkS4qh;)`yjn`b>6rPpX-`s%uY)ZL!zGO2reJIcaP{?-HKJl?eC`I9Rz( zFfbgYH6Bg?@}_y+&TL$N_lOrV#mV-a{j`S-8R8do!|pv~dFf1Xm-8}LiAG)rvrY|c zSf6v!zwIP^v|3hVTZTTD02BRTML*VqD$F7ebOw; zwCwD+mc6srS~Wh9ha_=*ru2N5rAy@o*8f0Tn~h!+;*&}c38A_EPW_?G4W})^)}+)? zYMAyYMLD^cn9+Y2L_SPeF-JQnc9M;-yy?uk^#lIxl4x<9XDRez4wK#)`$d*MWx{3& z7;5}0wg$0$FLJ_0Jt^4fYCe%x*wTUDigi00&SLpOx!Y@siRCL+G_4))VxGR@o7Blu zr)WYfKCPwIqdnMuntt|^`LQ`^9+?{mp6hZJ zKbo`N%L<|=5#ELl6_{i_BMFg9r=t&6*t{pe0cxG7wxq&){(dc1pHzOq1NR&{^p_M{ zme0zTT>k8=M{m%hni{HGpdDq=R*6nMj1xQECSie*C4P0i%&{X&4&>v(hF;3f4!uoG zng|R<-+sO}h*%CDmEfMqY|boj&%anPEk)(-Ld*q{$~7r6j8T`Df5E&&Df;M|drq_X zE5wKeyJcq2n8A9q-crHRT02ym%`&*!q#x5MJNAZz9E)E=p@F3icrjBe51)5+THL^a z#5MaBOPJX75PALid7IU6#~8lMuQCy~lnZv>!hEFn@rxIIp-DIY_!M5gMV1u5&KY!1RM=e6WLL3uA!lYqM1Q>^e7Em+`%L|c#mcl>(^uyk+5nMgf~-;NL&L<*{UG=oG^ z*g3LC-i8TPj~|`VIFQD8@nZ<;&3NoWQ=p;!IKBa?bFfB(rm7UXeAayG+$G4)eC<3ZH845ab=axSTbpTQsl#Wynx zv^5mssehGr6uI0WpFgRrq$L_aqtUzf^_TC#{nw2@GEKqGf5h7Hwlu=veFsiqHNO4k z3*l@rmPdg~sAjR|5J?sCyG{})&pQl7B&twnS&Yj)E^EOt8TAW1g9Q`!0wk^Ag z(ch6VIEPeu%o12wYer(=^7MkcJ?r9WD3In+pS;4YhqjBuBQZcdn(B)R)vhY4qo^qO z`g4}k2u@Yh5-^-We`J7@0n-K)LT^I zz6n<`dYNs6L@Yi-L3vGcy=C=2K19K0i;L}|KK}YP5D`A;!_7Xri32No9u8e`VCcC| zU4LVBejjJLogeXr>OV1K8Ez5DU(|ecloD;|2*B)+BIi&~K zpDgu>o}RSwt~T9b>U3Y1-s3o;e4Isit`P?XlUtf!2z|;l6%`c{DKQR6iYDQ{wi98v zh}oXf?IaNDprOa4b;AGrbs>(DycRMNuYf^>dd~d?CmNX@Rg#6X%2;+n6HnMJ+bp>6 zBhU$Q1Ty;i8^#qG_$ulK-MMz{1qup=)P)+4b%54-A2+8pwLt8AMUhN9m*D#ywCX1V zPaiM+f|o_2>r0!aN&`Gh;hG_e5GK+af)x^~)5?tcMVp*Bbt-R}#^k9TL`&i^3rQP= z4ctS|eIik+uXr8%&4Mov)twI$i=lv)UEuEue!l0o)yskWVJJ4OX zqvOBGfG>lS7Jd&t6x!jBg|;>;(WYM!U76-CF8lk3_+8%n?Ds#%ZW}SO;4AOh?2NGi zgjoVljOhWixxVv#SsRAdZ0?z&g1;|axpr-fxFTz^EGjh1p8=Wl5%#PF#{99a!_fyB z$;tA^uqWAWWcS+5b_u_cI;2lGaoHd})_=)|wK!F8}ZWJS*b6;LQaQTPvx)qEPbQAJmU6CDYLxq6J7ouH5b7Vg=3NY;^T-_ z#>&j*j`GX@{xD_w$j}`(?Iv$)>ewv5fVsX>FL_NiJrX_oeUbmOz?dR6;pj}oM-4ak zGUV~y51)=OSmr1N(-&q6Y0 zd)&%u3u}_o?`6nPp`1MZ>t_2EPTumHO!-g9`@cVq-;Y-`K%eTg{p-qWIV$b;um8mP zY?%BT)h`eOX-;2VwF#~Z0VrXaez<*cIg#)(^vS5~k0CLC1e^@))Wtyma>$yyR|_UN zhDcdTS`N_bF-t>UK3UtX54&qNPnXvirlI9FL~C!_vvJ0sZa;pIVc&b3-OO7jP7Txx z_!?DPbhkiGBzm2v^tIw~9c#!|Uv62>iaV+IYsUkh0k>fGjOv7HcN0e01T+5_dw%bT zwjltRh9{7d$mBsg*{?pEMPLA5fDe(8L{n0$4thXZwaK@|W=RbFbqlUsU^cCCBVArv0@P$uMRBu>_D6P_T!r)Bw?Ma%9O9)K^$VyDVSMrV>q-*`ftw zp}~lGC(-1p!q1~F8#C$m!`;Pjdv^HVz2}!)?T9ZbC00a);B&@W&$a8o{2XQ|bbxd;+1TX+SbqL2Sv+&Zd1OSJQHwGF9p!J493U_nC-Zu&(w*IOy|v z8exctHWiVlrze$n%*!ppLvBAVsk0%|fF{$4_Ek#G~-+$N7{ToFhml&>M>G9^V>Y4eu64OsS zq{I}sI-b+hr<;&jZ58hoAzfAQ`}DpJy!{f{;N09X zri-W;Zog`Mn>lsL6g(QB8m?fy;nzVqEp=`CwTi4RJU;Xc3jh%9_2idt#Wcd`Fz^Ot z{j{oT11EvjY@X`oXIDD>Z6G;dfMd`S=YoeXetlNQ=Tpt%fRv^G4P%)N)$X-}Knx2v} zhH>ATSw`}O^h`)xw%_4bS5%A}KKvD38)}Uf;5R;2+@)MfpzW^-zFZh_k(L4B17EBQ zCx8hEG!mWc_mXCed-JoHvO=4J3v@z)3le@trPuNPf%L3fyH+U?eys&CRMSNIQ^iUTb(s)vQTIoG7EBB>Sn=QrnG^si?5ck!P6=wvo8D zpenm_|9*N##?YxkW@sS;ywD+{()A^br1;+wxhc7#(@M z%#fLF)Eqv1s{B65Lb^79TgEuq?t9Es32AW9w2`4K-6)~W=M){)U!RVNrO@XK)je+u z2dIyeM6AnNX}UH2Qy{Jn(}RoHzhq@!F(&wV$530Yr%F|UE} zCOn$56y==p7sdgck01ZiUM;9`W%1>nB562#coY@q$@ZaB>FEW;3u~dA))pw}*yH0T z|Nc8W4BRsZKzzxPrsihD=#2u$3iV=qD_}dhHP!Z18X=?9-uQ3ikb!9}Ec#@d!N+sf zcZCJSs+)pl0PzX}sbgn^VGry`ggRMR*A?hWLgE3bvP$ofH2#j%;D?Ls;b5w+o9omm zn-tqye*E}FC&0L;hYUry4ArdX&C2mcmuEW7krFzaZzEjrp|#ee<3>feB5HrG=IX81Z~SXO zqiC2^ZAs&={ysRTWbqSB%o+q zA`Mp_b}crLn;6;zy0wSwwqOXB#tU#7_4CUG@tL%AUE}y8-r~m+2C1ysYdlVCpH{)uKa}2Xh*zkg!)&SWF#tX0D%k*s5BezN%R; ze~etw3L3KuV29#|W}CS5BzY9(EV`uJ?gSm^Sy9yvBtx%)##>)L)LSfZG=O@_yDl#Zn3!Uq-KntIVXNL<>o9Xl^!LW#hzPI-zAn!kW|U~jOMZxRxL!Zm z@h!{N?j~^WX}{X9%Xko+8sVJwh0a#%UwD{_s38;XLx=Ug3s&%K`;h6o=4pX?KDs2_ z)cRS)Bl}31WJYaP-MP|)JI(O5%x3p!niF;1fhs*Jj zVu{jQ(o9nx9Gvh_eCCX3jq71ApFi*0zdysOOBlGtqxo)QY64~R^5w+DBR4BEXo>_S zF+5lDA+4&%?AY{J6J6cwqjx@0TlRv3?bDiLVgB1M9BWllQPB-s1|KUv#q-h`%E709 zOxE4^S!(Ul%XbFM1@P06&O4P|C0MbuQQ3{il0klmJkRJ#NeIkaCyT%5OqcqreyVrW z*6u7ZRb72tf{dg$0d~Lj0{P1qMS!$6lY2~F6ZdE96%DPYMw(h@lAF3pFcfIR`t>B3 zgv~-3aT&e)&Q7}h1n>ad)M}Yc`+6z<-v3o{`~nWw@%{9wETu&>-Um_jqXRTrB_ISX zvwuea{BwzsoqkTe(f1PvC45V+qa~Q*y}AxrlVn~-MkZOsCsMtObYF=wlf8@ox)8jj z=K$5V+4IL8MNRGN^=wCt+$-s!PPeKmE5lZH7X;d`+3&QU1*lS|c<*sKfa$+&`o#HS zU~axdT4vM2k%u|qBqhLo7v3yngR7~lOCEwc_jKUTZReqSR)3Tllj(%s7g18^;-vW- zW1q!dqR+6^TZ@AzJl$ff$qbM}WdD{mM_O*SngC>-hJo+|H)wf=H>9_iHm~M~MVn6-m>PDYM2My>si@ISaiGOIYZ@ zIiuko$N@z%%AA;evsD~R@0fbBP z)(Km7$?VE8vp5>NRBEhcqz{iCeH5Cm_d1^gwFWk~>9U{712!NJnxh#&5U~lJ_OJ|t zDuWB_aB8I7yanN|(y>sVIL4khQ zvX|A>3^e|*Jp<#SnNzQ6$?)mvNn4Ze)^1su8=NdQvu9CWO7+;ywvSUkIsP#-znAZU z_)#aMeH16|Ja_DmKzNnwOn0W6Dk&=|71ldqAP_1psJ42`&52-wdKS$Vg8S^SzP`6b zhrC>Upi!NK6F@>ypt|doy&5-6q*fd|b_Y z%2_CQ3;5iA!6U{*_M)D(t!@3gcSC7iuDR6>dq@EdDNWcYE+Mqx*~uUdrh6!e$7d&F31q1mnaQBe%u0<4g@I7sUqFBj-xNXiL4ccKBpEu+q{}> zwfU<-<5>#&N@Lp>;r-H5b-aA2v7qI`%f`)XXxo=;f}bE7q@>{kzkK@^e^{`l>eC0H zNOTB9mv)JTl>rOfg1CJd` zwtOg%K9bA34C*o0UMz7jedHbjFc8$0KMqT9D7|u)Fu~k6fht>t}XOwvp)QxBF)0cTjCl z|G#5-=;CYL{zb0se|0_ikE{EyM~nWIj~1%)M8ts~S%h z4|>9wf(wa7AV*Tz+8wh13VO+PoEhx-3nPN<`X4U%i$_a^4zakG_HtG2uu1p4#(RzL zCFeOh**84tkBAHUIp0@E9vZ9Lvpjo6;qG^XGW(W|*}YpP_Nuj)<$*gKH*@wc%X&4j z&j(}csD#Omy(X_|>!aA{f1=+B89=zV{wpO`4puuDlyrZ_D2Wq^Pm15l>{>pf!hdn! zzj_`B&+2R$J>eI~^j`#D{3~nX7Y_8Fc~JjXKYG$`C~lvkQ=SPK_X<51!sMN3sh^vl zo{x;Wm@Pt0t+{hq98&%JqdFo2A=2ao>%zF=x}t!*wu*kCR;(pFE<2%?vonwsjxSkM>x_9b0B%p{?q`Lb%^4cfGH>VsaSo7uY4v&Yb@y^{< zU@(9{)gQJCP3PQ|_G#tq@XeF?(Yto;RF@D`-%gJf1kV1ohORvq{ucO<))W5bPMvj3 z%#JpS+x_DtGfN6hHphj4?@`b$VDrBxxg-0_`|B^sZk-6_*RKyBHcT+v%gtS!6gfb_ zfWNC~nwnow@EKkduq@>&Y`Go;M<}hpyVk3ZEk~=$z$^GHpQtNoml9RJ!TLmAL8@p# z>0?WsWvbN7qXg8jzAj9EBLFpj`c#e#CLnu-LDY%s@KxZi`S|-I6PEPWA{-HMX&~A% z{-s(IBZ>oFUh@_$S{GqVTLAhmKEjW(+w?ZC?JuU8-UbQO<$if{8>eAQ?O zZX_9rl)$-)X1RvjccYP#sP6&lw!L{`g`WiI+T&jBGovY5Lyw()-nUyPEj=@{=*5+* zZ+iX!o&+TYi`eGiu(~UlR*5)XbTzaU>Gr~3rH`y7+CdbB!X==*$Rl=wyVR|Y7(;bH zmc`vxzj}4M2A*;wh0;(gRrySX-#Nd)758|Jl)MMwi54@)lF^qgVfKu0A_RsVx;TSJ z*gK(H;lNf@j0P=;TuqM5BawKBJJa2GnZK+H=Gx;vZC8AG_|&NM}D@w zBMX&y$iiX#VYmUqXSUL$_uZ&C!q6ya6LAmitN>V-cY4yi!m@*IQ znX!>k--pouFd}W^bwU~hBZ#{JjY`scuNR5x42Cf?d5N2m&;{s0%na4{I2tgip|3t{ zhv~P42D!C$r15TnW{poIue|Q@`2ajutE(gP4F4G>bjg@94u}#VwLlkzHgf6AqR}Sc zfxsiMiJ5kC5YK<+EA(blhml?Z0`^q202sfWcbDd-v`|?ZHkP zCmvrZqcw@5Q%IS2XfQ&H4h~8||9}9)(P~HbRRAl4k|^{PW^h0SAfpBy`Rl1Z06a=| z@Nd1fNEQSX5g9Dw7w04mqVs9A+XEJp4$+w|KXSlxyGB@U+=v@PhQMDNGe#kBET`-h z#<_BSvl1_;FSr3|8JnubhCmnA!LB0$?-dW7{V(H5akH|va4^8~T=6cUi>+RF?}H`+EDtS&1$-s$2I?4J)Ym)#!8Z$Hyk1u0 z>Kz?u+T?00{Yk_8S(f_@?AkIiOzBVP&YIOh;-Xt--gGxWE2NBz>mBI=VV9Gz^7qJn zoRxFt%qi%R@U6t7kH8JoI&lQ@nFYcg0VaSndsx$?3tbP+|lQQ1P z-dZ;fkEI8d)z&&qLeV(!g1>*#Lxm^te|{`+YA9b>znyEuBZ8lJ6U~wu84k$F8z|8I zyF;Jops0C$mauVQQ1QhIX0HJs@UV}}8_84tT}5RF)b69BO2*VkGaWiN7ne&DUXtJO zWk0lX<40n>vh1nrvDG?yI{ue$2&O}Cmh}_?Yoe&OS>5y1EZ}7k;c{S)ed9Z`8(nH1 z$k7KY*f?vlZ5We`M~U809a&#kK*(j+_1?>PRJ8Dr+5Q?ke6n?W4X>~N8FPh5t4>{m zLmsg*3WBGiKL+_3s%Ae78zm4h=r^FB%deE-HM0bcP`(Co)sjWwo*?B>_3+rkYnx^~ zE7UVEc+>PWlo!~vj~xL6we;#qba3iD_U(3E2tXAS@ub5{m$?U@FWchi*o%s#Pammn zop39IO_FY3x!c-0G&x$I0~aRw`2IZvsuyJ!2pui!rq@4ETf(c>J@x3uxbEG$<@XW_ zBdwQj-(E6EMO|S%YGvf@r%%m3FAnqb^Mkd|5~l&XYSk+2<2cj31sL1Q0J$u*=0cx-hZN53+!u~QV?eHt(j3_%j6y1RulDS4!v`P$6;^Ztw#@>2W{{V zLOSo(DO&Nm1I?wdWojH5Xp0M~=n~nMg`HFa#KYTMN7?`NvUHbbrHdm4w$90< zt1tN;Gt|@TdkCS!#4E!O&0|>ag>#8FIC$HcQr6i-(2`YVuWD?M{TbR86B;%SP!!|? zalnKL2jy0W6j$5uNOsx?f} z&^Re*J#M%S@V))1;;h1({C3DDcj?1L-Qo2nJX!Ad`vI@ktW1}HfbfiFwbo#p_%w^* z1LqA}(?ecjZ0E5TJ6!DXX;=sCeRF0#xoST5Qp&O2(E}|zL}~hH2N*?f>7V9Rerth5 z-|k!VB@Yf%xqW2eFw@x$3lA@jFIl(k!O+Kc$Db~~+vUcF!+9;S6B^&%-^^5p_zI22 z10zR|_6I0Lk72x;ZJ_vb7Ipqv$8ry5gkFk^dsr1ivm7bCg_hgLzz{W6^Hlp;`UT7> zJFfqNb^569@d%(FH^RQ?FoIyC9#1~#^{;pC-W9uQVQ}qTm`XB|lHs;CO1BSIhwP1v z{#_7hV;EeqCJtreolL*%lA+$--VOTRcbPbH^wcRi&HBL+m%N59e4W}Mo2Ja)S_9nt9>mF) zk~lGIS1=|lToZ>Wc>2K z?tw=tXb;;T9vo2o315I6|70W36%lM2FdY`AiEgpF^gE|KHeHZsqy`S$)ToAW0WOSq z0V_3+`q|kxJNY6tSd5{3e=zOUx`>a?GS39{EO)#md>~e&xt(pNhWQj?v|;ck#g!U%nYKwEbrpTkRVz z4?$v6zz7IL({T7WU`{KD&5kjcdvbG zLjuF4YwE4K_W5!l++Af*FPICs2r<_%P1S6TxL*4a#kkG(q67SZ{(nNDe#e)G?b%d=v zbD++(N*Uv84(&0wttM*~K@s{|`t3D?p(}58Zz;p4*jAt%m|lOVN&Xu*La(F<3#j5a;$|rv!TC8^Z9G34>()Vhyf2?3--CsU`e=k0^hS zn^O|=8fSdDF0OUUMpfB3u@-=Yaq>$wKHMV4n@V3fGrUh^BuLLXqJB*c>b!lPo-qGc zaeS4oHZvDkG)zfAI#mf_lORl{Od0s6x)W0|9j8{qN`%{DMjEnWML%SXG|&$pp2!Fm zP%kT6Vax&tKa(y-YiefZeooDh3y?vI4BP@Xh2GV2;)(H63mqLlG5=VD$y;zWO`AmR z6xj4W9s3ML0~i|_DR~I~BCjxu=tS8{&6=m#e6po~7kzyuy^XTNIKtZ6e8;P!wDtvH zZxQJZ+ybFb2}n_M+Qp8P&;OY5pPUn)Z}nU1H4hzE?gj-##iy{YC?XiM@VuruHfe*R zR1T&lobg&Cq4!Up{>(;|yC>342SMnmrlrC=+E=OE=6SaH0sqK1Bi7#3+VGv=t5xa{ilO|#KYssJdwWpj! ziM4Y4F(@~%D%DkuqYLR*;+S>*+&Rj6>y(g5lP2Mg>WG#IE^Rfs5@1WMGq{+u^0b7p zdO{Ztkqx!6C?3fXIz@#kQ+PF*Jd-DVfB_?^3%RiAjMwoWFdqRm4=Fq%;#6JtK7E`| z&w2Q5r^Z#@j`qm0W33p3O#WNCN&C#XbJc7jOaM!GQY)5fI*n>;PntX)?De?WHL*

yBD1S}839sYUe;V({Nsa&Vgw35e=Itk{$lo(w%ZbuES1|z z^4zMw8%g=8zEu|&JadaFCrJ2U2%b27+AT*hg*-L&yMC_b0n0g>(L44oV4Snb=FGE- zZz`2=7_P!^h7+tv>zYF}VLR~NNDB1xm{wYB zLK5eoX}(pBSxp~F#nV#Q5WBs={ii15$`3iF5qbl3i?@QlBGz0^Mke^sA!uz{I`=ED zN?XdjNwc}8Yiz8}5lor^I!>1$9S;l;xYD0p@KCsXMdt2dOl2t#$V?rWLpr_WorjC_)W7SZfx|w;tJ1DCm5pH;J z^7Ti5s&l0_w;M6OB-_*8WjuCuK{4Un?3Y4z(_Kx>QJUmvLqbyJKJ(79wlbT0clnLU z)l25+7bN%g6pLAwuy97`Da#Za9Ko%cXM>jJVMm~QM9A&QVx6omEw-JvWQp_Xa$O4x z<>;2)kK%4vu2>P66GNRE1B!#m+SKRv9GF7Qg+4Cnvkqm~De>a!pJxHWGiM`P45pCNn0^j&u_u zyQ9s+kKG9B6tAH)`pS&-^ggvzv|YV?`Mu7JZx4A1iGK8bjWN+~ylAUx!odw#JV4u_ zytz^(%+ggede>f`aCyKBQM}z#_3T>*;X=@rT6*Ol!>I={oO&_&$0h}XRCg`Guo|e| z9#T7}_f;4btlLNT51*ub6XaaZ&P{>^H*;2~S3NvDgbF);qP{*vjhB`eGrz}W4{-s1 z6=q#fWm69lTbJk;u$U=2M>luS_4az*pM6tXnefu(c!m~ z;@kIqPOO#~2drTR!44uXXYvzXA$@PYsPM?RQ9Zkudb9`G{G$@~rYlN2%KC(-?m9hC zBI2Pi4TohEm6-VHEc$nNC5loDkw>pfaE0Xk7NSs{H7I#<|C=%CR{oUC)=C!^m! z%yOY>$5TeM9m>A#pu-2zi1{PSJE$kF{$V;|ZEB9%jz{YzCe@D}$9CN8y4E&4Jf&Bc zIgXB#suVq|yRI~(v?DCbzok&y<5hArs_7Y_2f zL*6QJk)eCh(Vv~B9w*B7>D`-og3V6DV<43&iByAg*G>Gf>2U{(!m3ph29ak(MMXs$ zM8$4O!wF{ZL(5N21ES;eLrHY}zq(paJYl06EPRidAJ$^ zOQrYktM0OIbv&+;*D&VcRizuJ7LPO_M{^Nnq;QxOCg8%Ts)cpE6)?E{NAnB25OCXZ}l&?wA z>D`g!XTFLptP_)2G%zRS=@<}Ejafn!N`gu=^{Uf-w5^2bP%ifn3 z4%{{B?}^bKH#Z4mj3u;n!6-CTYb&zcT~4OJGKz~+A#YYviqZ6cr;GFe+c7NKi4K{r z(T1HZ?m>>2#j4$y8&r^7v{V26(Vug)#R}Vh znB2*k)5ENQuIT>W zGS%gRYm;E~$ngipLHXe4Cn%z_4-5{(V{UT(?xWl=CQ@znl!y$Nrfo!zUoeuPKm?m_ zUV*Xlzfi9UW!}kP&Bpt`lVHPnzFO%igMom6cT>^e_%1k1`)B59G%jMSNX~~?yX!-i z!g~=$aDaRAa0BnHi!O9J$xi6H2CSN&MN=RKZi=!TFer7b)osIsHWI6tE;CYm>?lR zX91>;k(oe4XB=KsYo72H#mvMy?B7N*H(bz* zSkrp@`xmxaC6u(*xVP3&83U=3Kgw!szZ@%$0`p zw$>I}z}hc;m9HAbue(QzORr3B(~f^$@lEmmmnuHfKEViYsZ+3F*VhNhUb`7GeWRmy zlYDWNx7PnG-Hek&*!>AJLs=>euc^Fv{`AKe?(NB2{zVD_Ms(? z=FuS)Sq7>l%s}u$<^TAQotIa8;T2RBLc&iEb`|#WQL$I08FW}YL`q5(N>28Sq?R>W zFA+2Tc-PjtIlBqdXk5P1Y1W)MbL-GR27Zmh9R8X|2NuQ@X}{7t*RBcEP^|CGh8~So z>nU*peuGif3f=zotrFQHY2&>Q-8#Ey9P%pPSr@Hjs78Z;xthHChZ}aKVwZI*r0x60 z=6XS?Diymu=j;%%{3Lb+tgDvs4`xUk2Yis4x$y<_HIuKump<@lX3gAdm2!&DDe)+b z8(aWicIu=L7g6ttwt)7NX6?{0#=C*VBN8zw&U#1RCl7*8o&<~Nf85OZikX(|(C738 z$t};w|J84)M&-OIlUPWjMx8|nf#1N_%b=LNd7Fkav_TSe*ikR-DRkIRJcZIy4I6Eh|IBV<5Zk;I>n)6X@i@DQ*6tQ8pa=p5%c_?UcrS%bCfO2+`0huL# zAk9t2NdU78@<72FWlIi};js_g&y=EFDzIkWZfMm5|7y#vvUXSMRgY&m5WfTOosnN4 zNXQlcQ5Iquk=f#qXksIKeSecP-cTrOgIp3G8=VQqSysp6aIQEk@ z?l`uStU1#!M+eR~{?Y9yLKcc%H#kd}KM0L5Dmc6texEoIzvm0CZ?WUN?3Jpqg0KD-dYbaxk+n?{cibY16@40^2_WY_NUGncuxYS|#b&KJFVT{FMCT=bW+Oc)M#sNPLEq$O7_TH{<*5-sWn zfn!aZ5J$@N>atn9L7zA4h^9qiFxhoZj^HU+e_mT*%)|C$F1=gFKFZro$Ay3HuT6a; zA(1`49L1T$)SaI!gY%-+D?PZ9s1s<}d^mBD@9-d(X+xS>Dh*?n>n90tlQcD&1>oHm z$Y8$nU`3Uk_Gu?U*Iw$TmXZI>V=Y=K)RCB#I@(a5{L}8`6IJVgS)9j$E1&G+;!6f~ za3M|=9ky)9AV9Mcm98-PdALXzD~p~4ZsSQAKr9y;oJ#vYZ+G{Z)VMB?)9#0sPdJar z=Pn;5o1jf>oW#Ie+j_}!o7?Zu^l}%SP3@K0GEO0D>~k7=GXS!}<(+1IzwQ5aV^B6= z*x>(76SCalW%W5@VFVJ@JX+1m6SD8XCzG4HWhB0mG{sHg)(FN9q#N88>h;J-jC<1G zu0GYA-buDz_i}c>#c){QGD1KT*Zj0hphF^yR8YXblgmDS>Quc$ho7~!;oNHvjY~5J ze0=95UrzZmb%?k6zuKRxahmeu#}C9cSx7g{t~g^jd5)`N(j-Bi7NE0637FnFmbPyH z<{HoKC*@a97<3vgB4-RfHwmGk&#CUfKEbQN5bN;NkQJZlAX_+UrRCQ%hMCW+r6G9z zJIb-k*Ob*WRcC0^y}y%}w>f5U+M7`wQjO{99ei}d>>quhLi-P9$nF*c#T*@bet*l+b~WaOq))hG zU12WGit$nwMO(bdWSLeVaS`VW8=FtmTV4ka=;7h`kM zw9wbliKS$Z?decJ7AnCO=@C%pFyWuH-HMV-nRmQ zETVc7zNfBUx@v;gJpLP8`RLeKs=MQi_U#Q#N~q8xtnv=c~M-N)vf4gf8#$`jQtyLk@k&PZ7LApF0x@mE?kf~>yy@$Y649_PN=kk6r{N+k#8MaJ7j(T8ebYP+g~GRQ zJ6|7sdjGmzN@M18Md3yygVv{%O?$4LfN5WpzWN*Su@=Xl|B<_)O6IW%Fv?Y>4z-We zU%d00*;NIODO^K_TLCV#q)WMec^uN3D0FAq#rA#V-qdYzTt&MdN_wK#qF~i}Ms_E~ z=D@#2K%*KQ4H$~O;wLA?Zxg6^*o*B48-4kzx-A-E$3v zv^IUh5#D~`7ebYog06nJh-f$j5h$Pi2jl_O-+y1Bg{k(Z@~wGa(`8+;uQ*a-BdDNZ zg1ega%pc(3`_n7_|FE^3y>`tX8{}Z4(+kea3m9`c`4LTWa#`({o-*W)Uhkczs@uan zg7e@l#0U;?SFU^A#*M!7K)LDnysb0-REf8mur|B&ksTx}%i7W4VMA3CNe&oL!0c>` z;}OD?A}L>OEdYMr<)=!hvV;lIBOIJ?Ki~&`11Y14pXmit)wy{8qHU8XmEucmI&|p3 zf!E}uIMYz;+Ak!>M6W$O{F`m}yo#dEV$&(xXnA;2@(_f;XTh_9Fcw;g! zbhz*B!}xvR+ztmQ_lG68*bhYfI9@=PvS0kyW@XwPFjs;9?n1R;z89X?WM(*!U#9Q0 zf8V~eNw9K%fXr(SsR4R!D~NS_m2oz~e15Fb?sE#wnSg{m*p&QXBGDRxpuf9w(sTxi zJAHXy*$z89golP+W5xwmtiX?o8E1|@y%%+--eJ_0Eh(Ej%!x@Ev?cS#!Ls-z8ZSGV z$#&?PeiAmFfK93fQ|QW1pMDi$1vwTMwSysgZeMN=RSzmCDr#%kmc{7kuVC!b0|yFT zvVufR%6C0hn-6qIiPgC!7+#-RN7R6PXMKOAEEk|ZQQD7qS1R5LY5so5j5el6Z*@P) zjKY=`W6Y8rzbTXi`G&rJ;ks1!2x)u3mHQhKA|t``oGJ>Oz7-P-1P`p81y?8kx{2*6 zoBPbM3s!lVEIG$6N4@S~&zX9m3bYk&oS7epSD~N}^}QV)DJbJM#bz>xQiV1mn?T*z zt~7D%h!Jba$4X}qScQ?DJjt?pXPsakDyX&QhggIRWuEO)hiuF4n`DN1QEQVQPmB8z>iE*gA5@_fb`|aqNvMKwA zr}Q4QCANpB>EiRUTRL2b{7YK4*0?an3=8XGmOD8(gS{juHFvzZcpk^nx;Jl5o*zw{ z(DyDnm&hN#tE+!I7i>rCM4+!m)iM$Bed9RkB>zR?|58$HHJ5VGul} z1a9($TdE4Tjfs`E_^dF${bjjCyqmm#xZ&fm`%T4eh$3p2+o+a-{A#bm(gk``a!X6g zri2by6jpIt#qy%krKA1mCEE-90p0H=~)B;DwD9-hJq7y}Xk9Vpfrzs7ybTeh$bmCTCto(S<@I zmB-4A$&5SiZWwAjtK7v7;BnC-L?k_$O7QGiOdJ2IXgmDJ*~b?53QaqGGv7+hkT^sC zDaZd1nf&bX9R;U$6*t#58SWmQGPPHl@Q>b~Ccf;L-`760=fl=v)u=jUWa{FhfG7M_ zOP8LS){t67566t=MANopVa4!kwmsXi5uvCTvf1Pd7iza`)lB-4e%|Q`A6op|C90g6q9@DEIL^Zs; zc~vK6^KYKzIcx4_O7=>#4Q+pL9>1AECG_*cfpF?l=_j4KcBQ@u&fTCIoTSK62={I! zFa~JG1>5;dq`7~;{~?ekge0r^-;A&KmL{43&~8YuYV?^F`0d*_Zb3&&7y{&YI>fz|DZl5#**tO`S#{AFrH63%f==5UXl!tK zy*BqlLH*uX; zRY?`SpB7>ZC)E%c852FdNhIvNW_X!jxO(!lwyL3R+gY5>ZbOT9Kee-9&;S@2Fhq4; zNUY*V_mwlgSBlf65sBc~C|yZ^aP-r5iCUK-R)J?>_h~9kc`o6)DC6zVEmXMnuI=xh z<-$K?GJB8=VtUvc3oF6@}l!CRuEwttjqXs_8{&lqQ>od3XN{haJux!K5!CN|5cH?OI)bP~A z#9LiiId8q8on4HOiCEVeyHJ2%Ck8D3a{_>ocG+@6!;O=qPo0-0VSiFsX#V3-?1120 z#LMAGw=J`*r=xn@m<_0_G1x5DEFulMqD&WX`ERlQ)R6R$?;D(E{A zanJSV@t02h=6b2~ueX!ao@cm>B7p5R_cRrg?%2ms5$6|(+%ss}Ge;vz@w1+VMH{?m zVH?5t1=+J|*e8rKw6c0lT9>pxa1)83yogftN$Xd5C(QlEeB{EZ3au;oZUy}6Sd+&6 zw*)2-)2GQ;R8A}^rRK<3pL2|sBppU@(VC<}Gshr>*Y(<=@1{N;y-kN7YbNxWoz8KhTMH3ak@30|&2u9h06oC`x$Csin_rC+l0J+f6$Msg-t?AB zE_*l{G`>9FQ(6S&s=C@bP|wBdz9tg#^0GL?eceg$z6T-vs8P&wDXA&e?@D^ z=USiFNqcM>$IvT?!WW~XsqpA>!k__d6TFdb z9HrZT!UTsuxozdcMRfBK6mHy_OGy5Ly3}_bj3DoP%HVQtE$S$h=m*E_iJ)>1cQ&Uq(>4D`W z*!%%ZO2L6N46D2wZELXx$Ap;5-(Qg=3H>#Nb_-)e(pbxM>Nc(Dj=$|#fjRB? zjxz`ED;5-zkml~(z72_# z@Qw(&p(Nq_rAy;kojBL3sKjN~31UGiAw7MFm7E9_^!XsXGYyK+FI+Lb03n^j83u+@ zy_s+|%I#O9%ppibhk)J;(^>Fv#KY{-DoznJ7@~;5C^_8P0A1uW_qfx(_X_`o2QaHv|Mcq)E;B5KTdP34JJfnIb6nH-pW zv@7zCeiDKA9HEv*nZ0!{u5W?`=6e?&swW6ZT&}X)hn^A_V`3iMyJwXpeDbrOpDgbq ztZOeXQX0(m8e=#lXpVW^&2w+v>h4~2Wd(HmsU$<>z^tyWUAl~Gt4_^(MO9jF*d)wq ztanf(MW_jq=+`e|@&nMwpPwGrg$;Y^7O##Oy~9N8q3zWtHp-U4tPOLm+~w|5&2MN# z=2!P|*noi`K89BwwZSrY(%!mTKd^=NNWG!(I;ROl?ELvGwln9?`_2Pi=4?&!gCRrh z-|rC6L2v0vchi302t?skL0LiW3%?gy?Qrm7+N^@E4RI~2_TpqH_w|MejayeMN4*+` zeBaUGKD#}%aXZI`Ky4DCCuO|gWi>@*^|g0;9lztwA+I%3NvVM)MkheY=wK0hKWkB{%IA?YZ{;XV#b7 z%H@xHON^D5fB)tQr+VqY+}wox(<|y|#_G1b;F`@(v8Aqc7LL7BI!LBj`ide#hS1w) z2PSR|Js>wt6%uXQdiX$1`?4M9Xu)5qF1U!pQKB+(i@K{tHmdIInT9fa6=kKQMvKrn z6-qKt&Ldek;zCzATpF3qe3a}TV;gdOJ@@Xlv|uLc{U5{F=FLqfF8$V}mwiT|>pPs( zH6FZu&oGyX>wUaPFj}dIKfXD@xdL^JTi0vIXyiA#_}r~%ZAw92wGcV|R&PFFe@2EzbLVMF(1RCGdv3uYAvn@MxPtZf@3xuZ0ifkOY$dbFYtbuL z$K{e^yS0>6>@-3CU%UM0FYDFiCW1%pTWjJ>Gq&prG}jkK!)^+G2m&AnSn2jDV(1Sb z786=&Xt(h40kpyZ?rr>r?DhNh?$u~2UR&A$x_~O(SHQo`vzQa0Die$w)MocT8!5OBv?I|!3n(>IMb5Op*@7<*1boMZ=7p_^vlF9Z4~<)lb2DWUJYbD3jEh7 ziyx7_Ynaqr!U`ks@YJLsD@jZ5e7tx{E{GGocq)p`Uy~@{l$c#i-g_rtXb2qs{{7cY zl4kOd3Q=@ph%0WrnP+5JV(W$7C48l4|JS3_LWJe(-y~!Gm+5_)+k)0RCF;-0xhee4 O`PxggVrH+}{XYPznPH0n literal 69625 zcmc$`cRber|29lhNQ#UKNrMR4n<#r^gcM5l&PXx~86}b}dt}S3D2h}zSs_W;k<7C1 z<5b`4{$2n5uE%v>_jNuVpKs@v)BAkCU*q{ap2u-KUxDXU<#v-EASEIq+N~geR)dIW zdlC`R*4HFk@Dt?`g$?|(%U=GXBM}jUKjA;(kl`5{gZme+KYA`^W@a~BBKxPCem?b;W+ujM5MHe& zw_-W}z9k~^E~5PUpZD?pL_7bz9~0Xq^zW_IDD&(8{He$uVv2u1ZgnNG|M%9rS;l+o zzxPgzTMqqun>6>oeCa#^+s{HY_iBv_7k~EWj296}IW8_QSaof5baa@P3t1jrDeryd z=2AXCKi)p^p{mYY;WWN1cHfpmtw(Zo3-25YzJ2?4aB%RGC!@I+i`Q4@T6%l+RHCT= z-Vya}qMaq?VvN&Meb3Yq#DraEhZ?talxHzkl`%JB~PwwZ3`#_HA=>zFMNhrDwLMSXmDT)5~fd z>$I5MrKzb|L(Rp`o>Q48=C%G<;W+>8EmK;IdLP5Teg7`GvFhmJ;)2f| zsr!<{t!hzG(FXaE@84w}mD==aTi!XLmOy@hFSD|1=<8Sesov6M9Ztd%jeHx+}uwqPrBW@_0jl=YW&HQ zCl8!9^6gOm;Q!}Z?Tp^&WZ|vvwT>UdU z>p;K6swv;bV{BrwFg;*sy^tywQg4`AUS7U5H>z|>_D5Hq-RI{s6P@g)s?N@(dO4}D zcWLVDH>K4zHs;!~V@WIX)TIZNw(qcz(cDL}&CqL&zg1r-{X|4kqJu1{L>nPXx7(_#r5(lxyf(xUH%2(y zJ32~~qByZP3JhMQNYc_$Q!7Vv4-VBmYJZ{@)!5VB9kmow;{2nlzudXFs3^ziQctGIiJ3=xFziwcoy>EOHN8x9r@uZGNgxhp$CDPcLx&H&$k2i;K3l zwymvgo?a=gQ1{`(&6UMd%xOhM4sY&kFD)%qisX2x-Z3#@DJfa?_U&2efb?_|!Wy)) zGJJXSOhaU7C^sTcW+rP^Rp!78N3)M<3d6(0^HsNQ-NNRw=`G31&u^};Kgq_%?EBK~ zx9Y5%v&jRU)R(Svrf&oG&VMhB7jbrQbY$n^Qj?cYTG^QB%=!K;2s}}VJN}}ht1FVz`TBKX=Ls!+eTL%swp2NMb(&IBW8=s6 z_FC3Qashb@?gfctTVquk5zB*&` z`FWvEfq~oapC0S0FFvJ=jg1j+-O=iP|Ni~4@BVZnQEDenoRAKPit5h0^eoz;(sS+B zx3__frDKyl#bLt6rlveKJ<-w8)?Z#;oP6K+L@m)4Glbn%TU(nl7a?Xad&N@D>+V!n zUf`d8azpE+Qs7{#e?wC~UI zau5xRsHj^NMQRUH9gH+$C4B_^X@D~mSAMZOOX?qy_b<~Yg0K|OVj-*wh_ z;ezI14m)y+0MfLc?~bj9w%qonKX-1TpV!f@9}6(c#jUfmlga%Tu?nxpvQuGtBg5Pa z$5G>O&BK%dO%Jd8XWJ*t4lqT9hkwx3yL9Qtj~`0KdM_N(jkmPr_hWi;b91ScUVooi zo*$Q?x=+t5%j5r$Mebud_F-FF+d_nI&7l2@%WcAnj9jh(UCo`H7bbFuu{tw$k&}}j zWqJ|8m1a&a;_{PYMTLnzJ0~ZGDF{*dE#qWX46oU~yg(X(nW*v?FZR>W zD4JH@TCmI@614q%Uh_X|kawF<(z(#RU%xuMz>Ti2uQ%>C*;rqzW&DNUIkv}^gNB`x zGapgjb=LQIdv`Z&g^kHAimF=++3Lrl{xd9sV_2koITQ>c@|-3KRG+NNhC<4z+u6U= z*DG49ySs}yp7&fDrd?7>U!4i_AJc3_3`x((%FT7Mw@RoA zf%mk4Kyy=5L@biNU}R)u>vF4^@^#fz|CJ@k)A$o6L(uAr=Xx&p%}pR{iKYi6zhLz!`&sJxury{4aI`4HXHqh3NOibh| z4{(jX?%=R*it5YZ;SilvAz@*aXznu;M|gRQ)g;%#RS_E1J^b9KU;Q@rVmn`UP|&tD z@cQ?6ZM55tmfH5;LIzkEPU@Xty;04o=3}FnrxNHYS=-(H%&I$IL&wG0*(AZg^K728 z*3R14GV3>Q-Z-V;Hz~KB)pzXJ(P*Y9Eh8g*=)vkzgTmjf5LqK9n`|;TxAfx03k_OC z!CWNywv=;s@7^`Kmy((~?yJjXtKhM+n9j0#?C8+|iQSbO>nj*e-%vj?TExy^22t&$ zX_jo3mgQedtKs3{??aeqX=o}DuP4mIan(jE3L|4NH&GFhi61}O$s6kH4>2&roNKgA z6uO>L>B+*WUC&e?OE2t@*71-H113B5`Nbp3u*gX5ix=z2d6Rpkv7$<5wr_atVUkFr zYE;^`U^9%2s6m@mCK43SU2kIMbrnV`1vh6GG)bcy5(5@4Z`o~fhSZ& zH45L~hdg1}v*hlHrN~CO;yf@M4K=lv zt}d(Su{kzRg`z~6#>U36@(UL(q|7BscqpDQo+k-aT>9S0S|qpMq`ZP`+Z|digPX3d zS*fAQ{x@oehK5=LIrYmw$ZHRTY@F@fjC=`tec?OeKF*D{jQc(w&93Itm2*CyYtiuT z&^<=+TOZ^BKTU0IRpruM5!LIlGYs_sd`k|Y6etoB6>UGgLBcGZ%q=OoG2Z@UC&i)X zPUB(cS;YX5E?(@x9G>+m+fT9$5ZY<^^9#pDq1d9p{>qh=m1$tYrdWQ2NXoFND3_rR zdzY_0#|{c-)0Eg)oqH#dn$4nidVGAGMfU#9g^38UKqU4bmyRymR*_3TY!h5^U$1bP z9&?Hluo=1-uTeK+8NTcpka1Qn;|giUtn^6%(&HB{U1~TaYO1w8>ul89_ zyB12>b_*QijB0rK{qV}=h*u?N4&nyi>dFxxaJf1Xb(k z0LxGL+u2Jspj>+V`0?F6OpJ#Pt=8<3Y>mMNSou9otD>#1uabD&@$v6LF)=-~hVIvg>m$rs5-w?5 z?-$FNsVWv_Y{)IA+lyK*2(yrBSd=}mOp$7jRN;%6Yz+J`7|QFo#P)YVdXBvzmLg%! z(J82OnPyyD?Gqeu=e6nO8zEalB5AxdfZbPQXcUzv7s6PD&4?89bD)X|cyj;#{R|8$ z{+?gwmXPI#?S(d$TD66jFYkX6c!dfe7M&mAnaAnkChm`ob2|)BlaC~!#0Y=DuA%} zn@rpF8ov1QY;Uz@=sbHn<5Zlvl7+pFmX=oQuAa4Q>ZHFIbtQS{&evX3{S{H`Y3~N@ z1?;|Xln0EzWfys!R*kgx^3|)VwZ%R}+{p0o$3oZdEM1s;HsI;DI2jW;;Cx(*N%UBHHLgq;HYjc&y4K>~K_6H0~nbmDfZfdueDgdV^zQV?AfVXJWL)X8mU|o zFck|Y+!G_ixd*)Cao#KCk*@&*NcmDI|d&oHJjxD#Z zAlJ=KFCG^%NcrQwo}m(##u*eCxb&l-YHa?oup^(Yd{2gIyrqqe3JI!_^>6pM(r8Q( z4tTzBwT4Y_6O)V#YBmBd+xC~I+phhkdT>&VQXS zAnJvMgofYWAKy8a3{1L~2F=}MYURGXTbOd@Ia??>kN z@n_~cAIXu3NG-G3p*p8;&GDj$So<&CLY+>Lj6q#pUHA2+Q38vwXHQ5#08-*d z+#Q$zOJq`#!jcl|rqJ<6m{JXfahTW}QR7`H^PbzuZ!)A^>tYwv^hn@)Zz zbZP@~OUo9!ckfI#sUlW$mTY;hRaRpiwwu4n2E zrV$*4?U$E?RoeVmxV^gi4y6WQN?A(vdnHxnspG1T!8PwrrUN%$4hwVIXGXqpqcr0lkc!XKszO!y5&$yqNG{nH=r~g(@Lqsx>cU9 z#HRJSX}^Z%q3k?%?3j_C1^4S@sRZfdUq~j`CRi1%H$E_u6=OHyCL4A3bWnfI%*lE5 zWasmtQ_l&*mQs4D(CC~;%#ZQ$wWZO-1rrR?1-h@4q<*NZ8`<@YP~7ETeo^fdh?w1d z#o0KK`}FD4DIozyBQ1$sBF*>4f)vZxdPqge!)pY~$Q9?pOR#sM{+u{249xTfK3YT%E zw%PMMEv|DT;_iR2g#E-(@^ohJpKC9P-cCldZRgI4^75c2Jc(hslf~uBk44^bQD3`q z#U85}6-S4lh)+euipzk z?KfCDEG#TQi^Cv$jE#-2U26w=0X2}GmUf>>vhw-!=nUh#<6-o#$n%g{rf*TV#1)w>9o%_1&gMS%VC%B`oT$B9o-MEMH# z@X=|XbDdpX$4{IvGd4!qr*+{1{lSCJEZW~SG~@u}&3gG(?V6>o`95QG?HVX)_LC>A zt*tL#z6=6YMOj%Z%r$jrc)0(S+q0ykq?D9uaCx{Llxqo}D7R{`-FRvI1K((Ad6Idk zBTEx>+X-LPMVXnIpjia%zI^KGS(xhUZfH6JO6%{a0cgg9ctGfH%Qvan?_Y>3%YG(Sc=8MaVQwM2jdWt~taqMnor3CNMO)bQGQHr2#kT4sMG{zuYG}qPbjWYyWGaO}z zeG#_q0@4p5TE#$wz^!}l_^=?&13I2C_+ALM-G*LM6BE7ZO0-H!4HFX+*iI;~Zc9nE zqyCxt^6FCY@TPnaN=i^xK-rIw#a`Teh3(2vj&YbDQ{V3yx{q*eDZfoUMVjOV;&x|_ z4%Qx%q~~LR1p@<4YEnWn&es=ZVoIdvHI;wxiXcZ3C5dwfZN9<#F)?@Je@Y0^|DH@k zxH1Ooe@6jIGFd|Q(&dP(s`5(h5^F`t_wL<0Ti^^LtGo-j@}Q35)Q7}x_ClD~ zpPe~Tetz5gA3uBctoj98*@-v}O!`HRE^p$keEOlc7{qRd)*8L2r~ooBFX!02L%nUp z6y|48*Me(PCg~|MxtGz9axgnPd&eHemlo|AVE94OsL<}j^kN#psJqR4s|EJu)2G?I zz^OY>j1CisM5)6hBqU>f&kDv?K|QwFZU-OtQLCq<-3~B*tc^wb1K=UHcO0aMhYzoh zG}5a?DG6qdzvSWL`~39kR%T<|En@J=MtZ`PrJjs$ibY37L_|0^?o$@snCi{wF~S9= zKfjP68Sl!A;~Y^V*|lpIvu_FbO_XIIGAw&Z`MLnlKpGk9>OMzQXY%}WroDDko@*sV z0d;D-2gUraUvxtDSK6)HdV6nyyOHsyuxZZ-CS0$ssp**S^YZc|<;fT37Z%JKqtB3l zgacvR>U4eciA%N+w6vj-5hSu;N*=dGYn7;TQQ&3wNmKT>O3y3jXJ!&e;*17@xJi_> zAIccbAhtZAVCDfrXj?)7#X(~QR(rk*>Cz}LTEscK<1-RBJtgJWp&odvHC5c0DmQJ4MX;gI z;maN@>-{LdmZgHwVl7t}oFk?~sr^%x}B8w5>g@tvTYFy4qLl z($v({LQWY$F5{!0Bd2F%tTe9MS9il0sb+oEwXo5yzx-TO0?>}rIuW3b@;`p6uXi#-a7oZ|&*n4nDgF7t%IAd;j6DDM)2Ai|sw6|+S2&IDTPs|{?ICD~KkV$v zyHrzME%E28Pm9D#V@*wJQPC{Wu-t<~&@};B8TiaYeSCZ-t5Ne{vq9r1)Xl{&RAc!9 z7q_u-asn$}H#avoHO=6OxS+89=!DwH%uU}=FhOE&i@5-um?k3&^AI}3Gy+UR`GDk# zJ40-RdJ06QXlwiP`StH%j~?0B*c|-)83FpZT7o;`hx7*>Ll1;_&bIgK*rGQ8wS7au zsBv5@O2Y=GprF{keR~v_p@hSbyq;ccVxl3&R_tI(Ed>e5%|E}udbTE=Vb{(b>n*i% zbzK^6hyqF!1e<>RWU{i!uvkI(XMa%ND9!5ot4iBFr zX=`s^0g|iz=fA z`7yc;kIed_FY9W}-M!L(m939gvJiV96Ob??$Q6~9MJjW9t*`FjeRx#Or1N1OYy$CD znl~L1-jU=;L+eO8W4;|`y|T%MN#QVa4AYCG0eH=89>!X}?(D1&SdSV9%3cJA?xSI@ z5p2|k$WuT1o^dgJ_N8YvhREkjd0Xn&;?$)q_8mKSh8z+uDk&+!paGXg^bQOS*7(n} z?;r5^&5*;`_`C|-?(RqdHnu?3`5)bCmUocX>c<9C>`hEGg)RX+fN7B?@vl+8Qt@}$ zl1uQAHZjdv%BZLWhh1#bQ9s%i#W3WqbVNw#CU7|xIRry6sY3Q&iI~%nRS*U)zr0yk zQBe`*r{%Iv9o3)@mIF}S_{6moC8M#NBfg=C+9=FbEMrqrjx05>w7l_{8^OpJ{0!~L zP&rs96%iJZ7ZTP(>L=a%!e_~egm5cTN_Sy?SOp4d+cmPJT@2!!<;W4R@;bS?Z51wd z%TCLfOeU|@LS(>|#i{n$)hxTprMnU_dl<$3fVWbHq??%uSUCSfqS0T+Pdd4yQ*!l} zjL7M0@9sZ-d??FeOrFy>6i9YQ)d@aG#}OS$mbW8vtv$jU%ivyk*AdOT2@8{s$?U<@ zLAx9GHL|1341D%X(1QzFx5)A1BdbeuDD3m{^7IRhYQaTG-u!jNrnxFRd*bUGAKy@9 zFrKaP0VhwLiiocPn|j*)&o4+nRX1m<-@iX0CiW5|Xk;-tIXSj%&HnCebclAxZ;5;7 zSvfd4Y2vcnP0}?aE{(XG{*N^zE|jzcj4c{}6C7d3wy>5+mAbcYjXyoTO0YwqK35n8 zG>~nW^O_w}aCYWrHpZlB{AT3kDkuBvXxzYkAmN z@#oiB80zWxEve&K+1T1wA$z9zM>(QccvUpRS3HrV}}B|5d7oZ4>F} zZ6WA(NiBR=!WdD{f5F-gn)nkPE=jl`Kx^yIV z+xCpz%tHu!;9iu$&M6UI4Gj&Nt_mo(+~&vH3Jj~JD_4-gt$_Iy6ckW1T`slk#69j} zK7RZ-Vt;4vD%;MTI}h*%g@pWGTm*CKBrPqitlap3K@|04f|%>aOo{DCqLnviQXW23 zzka>2pui5IPq8^{15PC!2v*<$Tfk63@W5c<1vT^&M1Y-4?q6XCSeUpV{A>ZaqrC|C z+}ziAaRVR%xF?K|;HvL7v-=hAC-pmX=8ThtwRP^Q z^WVJj?pFm<35m6U+xW+H-%vyqg|$D`z%t;o35t=NoSaC0c5Gv!_Q5Ks=$adA;mQ7cPJfu6UGz{vvHh~Ai_6R?g3a!O84M$moqs2vy{<^&g15I~C! zRm`wX!I6ON3XN|7W(*YLSRmjYRF#z{2db(p+1XcKYM3&ugFxAYaNRnle<$efvGA1( zu0-+L1_nPzMzrP)9*_jZjqhrKb;9tuJs% ze?YiMdvJ+3i5;%2qm(3I{Jh6@5H3x$l~8I$av5UB8R+W%nQM`>LKQ};sG=h7v0Rdn zz^Hm{^KdNGjiK?s)t^ zkv#>On?J-l`~S>u`1gYUTZQbud;0IVB-^{4h>1GJkOTl~+S6h6q7VTk=JjoU-f1CX z8&T3Zi;iL1BtPVwe^>qg>(2gr{!Q<$7*Ut}f`VzR!U#k4LSdp)^ark7V-T``-QE2g zJm&6<$2=xMh&ljb#2M7u z-ZVRRQ^vjn`nhxGPSCx3{Q8vJ$8Rm2A*W#V-mzII6HRDnYEr>d_yi6hE<;1ZrbszY z;BOFjsimdP?YWu1Mu?21wrc$z@xG249s$vFZ5g}CqMReBbzwF~Mzf6U*t26VLCC~M5XHj+DmZCgxAbWftamitGZ_Hck+g6{gM6pk>FE`y^iHV6Y zfPtx$m;dmd$%`Y#0jxIYTBKFh#1=^uK^RV?CpabubmQW9yZ@&03=`7x=g(n|LS*s$ zGw2WTou(nJynGoj8estz1L@>egyz0JH`JMsUHIPI-nx_X^7F3~6Da$cf$&Ug;paT2 z6p2g(l-Sm^S9+v5J}xF^3A^+6SeuUm8#QTaN(#~l#9(c8^{W;Z;~*8Mro>Gf=>QMu z*#+bsPMIcBN&gpi!Dwk8-?(aYo=p6oUd-Tw1!YxCqzggVhL=w2X`dq3hoevQgYY zPfX;#S`AlCZM`fBsseCAUTX_Fu*aF0q(?+tfVWR#{m(V9xUq+i9yNw{)ah1T*s;bS zG8&Gg(YVzLY0uz#&Bd71>RI-I@Sy?ibLVP79wX7t&CPA!avNG5oUgdb*@FxZzyGRB z%D(Xsg7+08`cpayR2Q5UcI;t&`2E%~Z9~S8-;mQ+ME~_|n5@%#bTm3UI$%;0h6#|;2ul9opgIcMu&}W3@Q%MqU6%FxKzRj) zB~X_zQ2F?5jcRCWZeB;`#K52y&VSH!#_`UMOfi!KUx8jRV6al#SX&cTCRi4rHN4;} zAk?(8%$J*OfTuVOD_=f+dLE2RO^wg{@A@xq&H!XAFmx>w+_+%rc~76d?&#=-lKj@K z<)8f(iNIBmy8@5Hbh+}gVj4e^BPlE@nn036HILcH!UZl7GH*RB9Z+0c41&N^JWXQ59`|ME=Ast4ZeYL|*K`Bum!BVnhKin^o}wb~ zQV434Rev?&U`txX_5F|L&hGF0N*pnI>)1(V=0V6hh{yS_wi3Y=E#>HpzmpC~Ok`qy z+uK`?jS2t(tdTn{yNb#=2DfjP=wWJX{C3#E<>zO58X8%<`>1J)jcQ5B$jA^4=;(l< z$6vpG4au1vUIXW6);*BlK?5)My9~T|{+v>Jc5V)j82#{JAt2|i0*fnGo}#uqcaKK@ z)vZ#)Do<3>zM)8jfIsEHlDjM4thB31*1mg(2U`DOxN(5{3el^!A$uWkzNi7U`fXPT zYy>u@DR|8Jof9a#m;g#pCV`l+=qt;M6(DWedLU^w+`=2il|Ms|)PVcmiG^o8d4gh@ zAJ9ci3{=kO4ywse3Gk*M@6C82GoWy7gtMryCc50aS7gW1_p*Eu@=1@8yA>j+EJ22|{7ca(yg-Po`RY=#L z=`Ju-v(qMFMr8wgk5O?Cv@C+nins5X-9{~~A*D2EOnnWFeem(_+h=5LjU;r-!{g%M z2z1cp)u$#6kqFT|&k_jv@r0@qu(YXR-PfN#D`EG}SXl#&DlRS#&)pjTz9b2(J9F=P z%?x6&*Pq+lHRngyRO3bRE*9UVJi<@M+){>=2pZ*+HCiNoSUCAmeuP^eSdM>j)Wpqg zWk0(%cS|Q$#p+mU2nn;->dekZ#{~s{H0()6! z4GZW1-5^b!lD$S8%5)1GiTA9RI1DN5tAx-j1?G~gZf`>5H2lzMXj1Qz=#3Qf|@@B|I>!3Q2`T(FC zo12gOa_EHO3k$@Z z5+UgNRU7MW_`|DLlV80OXFkfqqj8uL8dU?#t=0?J%YJw7O5B>4Z*JnZ)XC&lyAUrN ze6p%qMPc2h)S~?^w4Y(jxRSFMV_nB|onbR^e z%@G=m0+HEwF~j9EYn@YAA?@dyJ=ADny|mv}an{ZXUk%&eORtS}cN>3{ShNcF0;xE@W4}B|5wn-9)XQVZhPW(TR(TySGOEZF<@ZB)+e& z@3(J8bzc%t92+@~z0&iTBkUWlS86FPK}Km`BH%q>%N@x zKF&KsgK7q`1k?t15V9J9II0=Ek5%&d`E^_vOZ;ka4_HAm5|YqmkwCG&u)>`5=J4do z?-vXVRDTOB4P3J~H9fwYN*?Zi3wxQ_=^$7dg2X>f_m(P6Tsk^Cnzah-A=C4fInwJA z%=bI@FoGtAy(SP^=>7XgeT9UC+!uSy=8Hwop7U4BmMtYawh>h4m?EHftw09~;MxJA zP^!%bUqx>A4Mm+jqN)^*x(v$piA495?54JrCm%m*)SV;9{`&-Vkxc%8fm)cK-?rrq zVlcMU!IvJ%yT;azc&kcn?MMObF{76w?^x@Zk#SlPt#sf~ z-%wxa(lDELa&Bd_goj@Oj%*G7M+gDMz+uG8{l+%zl_(o$QY!T4siJv01bcHi6vy>vM@4Pjz#V0&;%kTfO!s_6-HRU#>sR!o@`ZF}{=;sS+XYS5R_WSz01o ziduhqirg3%8;fvz*Uzu+i!a#2d$o$Hs$I!)9OiX+O8*_1XPjDhF8gr%w2UT7dKtu6 z17E3;V6CvRvQow~F))go5HYLA>J`;QuuxDL^=4d=VWs| zw(j|DY)t-r4uXn$rz}#C+rq>-f?nDHTiSRdDj9gu=ayEHe(*#g&G0WOtEstMzkadY ziH-SfU7ZCCQof;}XcQ)IpSh2XilXN{D|AnvF**mB5r9KbuViPFc`GW%i|pTh-e)Z2 z7w8QqDMbPW-Ba$I)6q;jJBM;*cJ|xc60*}(Mjy23K+|Ut_;}U_&(XF{LS!VDk+}k$t|7CC%9(r8@ zW2$6s&gx%tbtF6@0-*IFCD{HE9f%=BuAs174A1bKOg8HpX#8r=_K38cY!I2yPq3m4f^JzR1_Om;Nd*LU`mS9~2yFF@s49R4YN01L}iEeJnaYRW^8Eg%g;s$2EhntY8(t zK|fDV&qY>h8d}ME{z=2M@G6Z=e`~hQ|lojemwlN2@&7dTVP>F55^0<9{{Af@B?{p1#LAC z>UemTjqmmG*QUkz7GaRAn>ghqhzT&RtI(lPe`)iW?cC`PEehRXpe|p5aD{CUWj*kT z`DE1Io#b>+5t$Jc2)!a{X>V(4uA%rd8YnyJOGig%jZA}VIbY&B^X=S?8)aEp;~-B^ zV~8Q|A5RYnX@P45jX9(E5zM48R()hv?!}%lc7f6Z1-&UJ@wcf|gN>3cN1W%!B zluXZr%=+zGBUnqRr2n{kf+)(k$I{%

>#YvlsdB zH}p7QS^G*~1+774oe#M-D9_y1w%Mp~+ZJNTYBmqU%|J0fdGaLQj3KV+xUZJB_Q^#Z zHIK2x9j8{~AgLOgo6DEX+R?-{3GnlGR*O=e+K4kj+a=mdhaLF!L%ot*U z8~;Yc=S5;K<@oOV40T24wL;x_(}yjiR)Z|3}Nj`8Amq>vEVloM*}t zf1cu1Tr&0W)9csXO{P|Zs=PcrAA8w%i6`mlatp-em3oZ@maR7#-8g^|EGr`BQ@VK$ z-6Wf@|C64ggvtyuqNG;>zb>XlWRNlMPo!j5i8^yqg4vf+Q(Bq-G9}v|-)O6Ha*eil zQ~7}8^0Hr^p*gF83(uH;^*;{wnvrflXZ~r2#63#sTz>rr%jRZp#vU!#^7DU!Rs@BJj7p=D2(z4yjv1;? z3yZAeBUTpw(?uYQoxl}3I-I~M;t?9%VJG6+d=<{4ayjgaw(w*HrHgy=PNGMj@badx zuqA!~y-->nnB;8gK@D-Jz>w`5oj~oyGoChj3(`n|F1YM6^ONb z?8)b&jj!VQYat z5LwmLN6-@n7zOAIR*Gu3g1rz(fyKAAwR@#=^YU;U1coIFz%C&{0-E!2#^hP@VFlTW zOx&6QNBJ8LI5epGe^za*P2ayyt|v`P8-;EhKqOE|SS$ZIH$zGb%M#}tNVqL>2nZ}f z$OZ34`9qC48)lP|mhH^OkSS0drYM2q+`fhQUM(p(`5{0NIVKNd3yZp82UjsnVkfo& zKCrUzL(ps89r~}dJV<&V3r!7;2QYxZ;vQQEl#V66iy1zUcwRGADJgFhIcRo+x{AeL zQ&V$7CH5@K@glN0T+M4^WdIdASh1DK;uiC#hvACD&p~Bj)yJWyL%#m_ zH3L%oh1+jitda@Q+`k*9m52Ws(R)1O{I5Y73jaAMB7{B;Kwfwo+)#EC2%tKHtzaNg zvxE9DBHlh*C3hX2>sPCNVJ2vefoP8xpjJ{_FsgT1q&ZF)a13yJpd+DQ+!RZIftUFx zSPss3Nw0NqjpKaxYGY4dlLep!QgU$M*=_%Uvk?&7g8R<+%o!33Q0-t(7pDi9_V2HK z%L2Fuc1_f2?5Rzkz_Rm&dNih2UQEp(A6C{LkdwuPgF%N}1V<|G9B$k<6sq36%I(*z zt;LMqk{lTXv)L#rVN}ul`SWE5PoJYLG+=UW@1nOF)rRTSQfUiO5;`WxsVlf)eTksm z0gcI)n8M6#)DX?W&AQ1qG3cXp=qKfJN@CCJ;J`Qgmvz(pnnR9tX?L%>1Uc z)gC2)(LHmW034;TJb-Et!Fp_bJkQ{j9$$UZPdu>fIvNZn-!LzEk`m(S1Ik(WThM)1 z|KSnB0KjL~kUP!2b3Q6??(jEV*xPMDM5InS5Psw}aVu-nuk{+(PzhnjtOYd`p>zTt zfA1c0MSrnbNPN6L*sPfF5`Vu>j-_KqAng^ht7~b2?cnC+C2+<=dT1c@r39tXrVJMM zm{$nM>Lb3YVp?q#HE z%@6;h^N&b#@6<{)X=EF0_DzdIEzPkLC#a-xhy=D-x-C*x_^v~((SAdpN_<1XZ%PM% z^Y-yeW}r$lorQBtnq*F;9fv1u=8H5MWe@uLm`T+4(DG_)&pCugBIr>Cer-lM3PA{W zh=;`s>v2qp4_>Bo@cwB|?1jUUaA1l)cNPZ+N7{qqTZxi>P*?fD)a); zxs@*VU|}qT6s#Yj;RcR5*n~SE3!?Nzn zp8X#SM>?63R@VD?Qn!7W>Fr9fBL~*qfB)2nI9pli2_E+CzIM6mkpAj)lq@YRKWs?s zVLsS|dl{Xpr9q3>z4zZSKcEor%40=<*>~wF2}7aZdf(ywrmSW~n~e5R z!)wWQYY^4sW$%zMbI^dg#SLd6SHVDy{ufXuMS}mb+Ntw%yX>j=@1MCTmUWN78WS?l zUXKc9Ny$V?BRe}TVS^o0%FIh;Buj?x{ZYK~>oUd$o@X^a!l0#~P=~dDk%NX;BXF`B zV&21zS8tgo-Ud=33Zvs`qNn(Yc~6?Bm1Z8+LT*u!hJ)#uGj9+V&rIw(5y->Moix49 z*YtbiuMNx3M6a&rDAVyudGa73{`d*tPoaEXH@dzI`f^uARA35qoEb< zJ}A)2$eA)dg0Q;^Vyxu-&I>v^E(iv`zS|rf=fJUV`pST#yeuUKzTRA#HBnbrKTmjt zf&+s#k0VOvIP1{tLc?Xi5&H!RysnN7UJ=M#oSd9E-2|!ov4n@nL;9~UnXW=4M`9;6*D^RP;ZQpyFc*hR9=$HYf6}J(=W^$6PLbmSW z8$x?77ccfE_B8hhO?MfPy>?dRclmi)t-F=ameAHPW^QL^hrSHH1G{(lXy*h!c%UjT z9}OM^bOl4g`uUR)fcRZM7SPuK1hBNUgvpphHoSg)2I?Xr3p!Z7t+x7VWWD^6Ux70i zf@QCPw8SD*QNfW>@@TYVx;2)J3(A{ip$fn$F8l|Y(BAh2dOZjuKx2RaoY!LmZUxik zO!uP9C@t#e%Q@9N?Mqr(=z~c|3c?;nCkIs7uCo5Xv*{YU4+#-`S-H8&1>HXuZUxIa zeh(HTgz~OSb{9@YlsWQGc`r;N6B2ZB#MEYvmhd zB@EFAC!Yya9eLKWkA_CzeYHR3FYg^|Mdo^^)^%E3(*1(QQ*efQ zd@1~{s^DKh_LKRmInBqDjNASm+jf~@+o2}u*f&?JcsIScMCKCP4ym+QmQFZ{ydnSV zOUjRoELNE;l}SGDzP8YvkiTWK68b^H`WO$H5V$r9BN0@WV>R`BqP?UfkEt0hXhdM&X4r*RA}J z99Fn&Y9ZR>+WjueW@&+lB4x(GHcE<$V)_qKladZ&Q*qOY=?A2ShEhf-9`j{oWwp2S z{q^hDvdfJX4*WSRCe{L2yuW45C5VZM71L*XS34~D4ltipSASS*G~*;3g#rd*tmDdD zt2e`1d%ciz%+rE82EiJmCZk9(jpxF$4%OuSA@eA{LC*cQZF9h8S z%356igNfG33-a;-l-0&O5s{JQg7QALRj-{N(EnW#|BKU+(A&P9s5`&M)Q@D|X)kAt zAIYNAZcYW!iDlBkAA{1Dxyc5n#}8Z%L;wwoj)tGa;v)H9gE1hi6Y+w>(1(Zc{=-)A%D}Er_l}Pb z9P;HjHv@uEsg=%30-O*CwRM2Tz@-J7Bqci5G_thN)uSSjtCwdB*iA+8&$R5ExATx} z>I{M(0h7!@Sdlo~FkjUVIbJ&8)2B}(bOJbi$>P6U@BxaWV=OE+a2rB$c@PlrwA8A!chgYP zR+GHZ*|I$?i$;afUcP4E-w1SGt=sAK43tqaX0YYg5^bNCKr#WM@AHIJHr$hu$M^$p zix`V9D+k9aE(xcFJ6L~=sX!bC6e9IXtIVFIm6g6d3usq_NzDj0X5=IYR5(7;81O__ z_Y=yEcOgvEzZyRvZTV8dw}Dg$_z3#z6elNclMWs+kKg@IwAKd>WRsM)8cA9I}~gD$Zk^Z5EwABzhxPJIA^5FhL_! zQbKWb6DIGF5H$oIG}ep%{(MdHS$f^hmqyRvd_j$^mD-jIU3E~=^Vgf5P?X|fUc!Bt zS@Fd+;qsy`KgAqJ?js<~&EfdCsgLOm09x{1n~{1kf81N9pqq>tFgyQ~W|kH@W6UvA zV7rm@(LWX0i`(E@3k?e^y8d0ZRF45CW>8UGMOh^CnY5XI~Vk2PtSFNpDHnN^V?2F zoJ19O`0!VFCgCLNtMb~wyD64H6vw!^X`BN}vKQS}2M=0t)1jzGZy%ial9w3UhPHM+ ziQ}uyfa2Y3bx%lg5>2)eXw*U7msJhGf%FW3fX%QV4+(^T0|6i?Nnd zPzf4R9{qbZ;w$sxROn(04?pS){B#S4cFOqUoB}Srl1y}?l@)Yhp5fW*9(N+xzr}7o z?YOzVx`fh|`7J)SvD{q+ESlYEnbTPgJ`^np4&bgJgyPJ%sq|)%_-1PXc4~qTK@}%2 z;Fk3Ax~v5XbPJ6jB4Vb?yk&Aa-@SX6Am+-$&fdWM6~FPTHBwMi1nE@5ByjR%Ju;jn z8wUsBkwEF8E}oa%n3L4dO==$pY2*SoDy##&5{F_Wy*#0+ptB2fWEVu!tXDW63Myw= zosvP-nPxb_`Z;L#-k2vIw$jV%TFu}*F}lmYr#IeGseRg)13Zjs5a*&c4Zq)9 zZT9_$7Y}B>zn|`}c=qxoWHw1c&lilsF6}CUweR0U{q1uleT_*2o`Q4Ov7FiWIY8wh zJ(yp4;r)W~NkLQK=*Mrg(gE0p55Q|KUras^{mcd&CNz3rRt&@c!`+)lW7)Uu-x@BB zM1#syR2peQGDK2Iv!pUKDN~d}1Bpt}py3jVXrh!%$ym~?Ng_i+DM^M#q!QlG!PWf? z>v^8_zR&ut^;_#b|G4kF8|Qf*$MOB{-+kZqZQJ%=Y3mcs`0|=~a9&&(VT_O0X6_Li z_WOkzHULtQ`PlI^mToDQ<{389BWvE)H9GCE2CQ*k|UE>V3`YM6Q}7J^1lb`#|09lOoSL+Nw%7t|!w-e0ZRPS=>6! zGT%doT3~hw)L`x<{3dR;0J8{@AF461uaGAIyMaJ^ypEsyQnYh^ZE|9W4*48doU0^wqC z0+@6i4{@R?_PKZuCu~3=fa^u&&pR>U-W$1D3J-Wj5xUD!f)UnCMg@$${$-cPqq5Tv zyIi)J^!0U*PujchR9LGj`OoSaPcVjPS}^|nU0YRot<6tTEzc}a{V0AzWbl?Hl`#*} z`-{}3HXk%aAFar$l_jg1j3kBYyY7Dvk>U7WBLL zb&DyKURHi_7um$<&qqQ+n!Y_AE7Nl?c9lKhs;H~u7D*vMO2?|^5GwL~9oSL4Qp`4D zqqhW$D|b+|X$_W%7MnLu4uX<4K|=%Z%;3xt-8qz1h2Y8)4IY!68 z%3PyhIYjF4hPiTmaRsKLvOGSU9<0h1{|+Ll&YxpO)b8k{UbC!v>4qL6?;f}3ms=d# z^2>QuRUM@-6VUl`z4a~9Tpr#?PZ}r--YL3!6&>=i>Gj6o!9ZZ)RjcT2lY1Leya|UA z0<_V6yH_sO25^Gec5%T7hg3cIhw#HQGBT9K<1RWz>|^0B?5dy>amB5nn(__6QuB%1 zk-cKjk;KFT%)*naHk~UW$}IZ5Wxa3og=X)*LBV!6M{kb$IPmP>fA{v8GxMxz6sDNB zAZGBNkSFKzHn~+Uf}GfKV!K?vaN^IuWc7UkS~vdmd^dhTPvm6wiD~Tc?>amT01j^n z@yBbrDp2@)OMLIsJ$yr%e%FMe+GpVEo-yF#6@likjKZZx&fl2&Zl0oJ4tHa)z$;`8B6lKc~&9y?+(>jjUftQo1K}NSy3I= zea~4GZA4^}lx1N0d=KEEnkkY(q%G5Q@e`FL+`*7mS@Du=@9O7$&F8wap(OO-*=aiL zST*59c;YB};2(=U@jkKh7jGJ%-@QMnhjP^stV2jCmLt;oE+v_mJu@y^^^HWLZ|l>8 z5cu!H^WoEgwnCTOa$35|q-zc$&#$k2G-{!(3RX#zN}TQ}CzmKD8v0MLh)J}I6{12i zIAi5~b{s+9qN}8gjCtdupVEFa(kzzPG`D3VUe_(ob(m>n^r+8#Z6QmY^>EKSsPGVu zs?0Z}V`+eu8Ykg8_gOEmvp%%8ANc<5+u!nLO&F6C^g|B#CKGzll z?RL$8nD00|n6rh1$~<_i)u}32IUaycxd(ggd$`672#=)$+D+f5a(ijp5m}hJ&gEzh z`=z3?68R;srXN3kG&Nz%YUn)PTLNw6i76gw9<4MIQDjg5b z#A;F#nv=8V&lkk1Fc2^=yS4H-X)WuG@b96okX82M@rssjMK-7AhH9!QDV;~SJAC-e zuHy-}Gv&A4J)^&{>ClCzAN9MA9UBXOa&{L@2eF!Qmz$HDiLq?hCiwKke0_2px{u`A ztR&9H727KMHTg{!(7D_X_92vxCCj%B8#nIR&$PB! z8{=GPd-E%r45IpHz&Fq)7kWU@8mSW+&j3)@{8(_4S zw)G4@X;(O6#iwEj$0;c<9zPzfsrmBE-!H8<8?IixngEzjpPS=GE2DbT(g34|`!XBC z!}o-BN&UkG2xoba!(_v4W@~e>G?q9YR^4!KMpVAa(zr4q_XWP3-gH7p1S{>H0o^WCc0_(~(owLrMicFuM za&>O4gR|x1T_RVW{Zry!pK)rrLAl?%Wasl-(eto2v`R$6sjGr_zI}d`%h`d} zPC^S3)V|^C*D4k;@e2mgtE=VhLk*_hR9HBoFFhbv=Yzk?Xl~+oku@HZA6{{*#Qv|K zSN}`2VI)EP!a9-Q*{pu|Q(xL}#nIl+Y8tE)QZLrn_XY0t^z=-AZC3XcqrQfQe)&_U}k$H@G*mS7p9WA5V#=67Au)AE($>lM+H#Y z>-*w(#92B&s2qR`7n1=!Md$Z_J7VZiP}*(^oWvzE3Mk=QLQAL2=FjnK4ass#f0Zs7 zJfG7K*jQcHm4l!w4Z$_>O9ki+mZ1RcPtkQ5huyv5d+BP&R&~sWlnx*`I8z%ivkXFpKb^r zzd@{RzbbeGPg)cba))_y^x)|PQIpOz$pnsPjBi-sRyB+sw1T(lwKMIA)|ufDO0Kr& z1Ex`qe?Nlg1o>cqy!@x-%P|4>pXO;NwRf7~D)kWBg)m&g&{LY4O3BK~wxJUw@$bJa4V@>zYdA2b zz}SUrLsL!o$DMsoterV@0VJ|dPPS5&ZvOq7o({G^6QDepi+;^pG@oqg6MrkvzKZYV z=Yo@{CWYtuqCmo>oaT0VE;yZ|Y0xu#y9x>cnJ3U+7(&U!1={9pncdm7!bA677e% zP7KK+aqFl5!6l75@#E)D^1zp?$4 zTg^i}sOqSoq45JNMhq+?iW~&Ek!nm$+Rxc0be@fR2;$rDzh>@{m~n0+Gz`tq82DCX z6@L5o_tyW=@N3JfZIx8*@Vif{tqc74f=0c9z$g3p!s;-+)j1Ky%fi6T2`Ns_>eiVTOMD^S;hg7n>5+EXW5Z(&FAz%n&OVN!KIgzoM4+daloApHK^ z+VXkPe4UDtBJR!SWJPa{P49e#J{d&%tco8H%{XIovyJ6RDSK6}Z>u9;n2Pk%Cv6*| zsp$r_j7ZLl!X9z&d?O>=#4@IhPx3LUULkC$^$2u4&?JkA-oeTbXFgdO85s$Q)231A zXh^xK`vpj4`+f}Ac!TWJ^tiaV)2DB)UF_PUXU{bw7l|nU?Y?EYf&rwS#Tp0h+&33_ zHsSc3^Uxm}4>>;j*gxedk9=?a)jb#!P?YGO*;*A51SA7+9EgnIAlTj+=Qi|UEwls2 zkqfE@9ir~v`FKMURpd8XW@gcwTZW&zwNhi-w{W9~G;WZCA63<@E`wx2rRQBB(_Ue3 ze`($YchY?BzzbYInpQiQr{`r1sAP-%ee$HkxB)011*5tqt6p-NI1faajEddbW;1xx z)o@#dimhnUp5fv7dH4i32W9-8-W6A&?sod#I(FUnHcyiUb9tLlvo>$8X2I(C<5|`| zK|5N0+9VW}@YzitXAk|atNxFpH_RFTJyY}Q(&z%Dpj{P+RPUV}s6QnXm6Z1GW10>x z8y-J}UtH^@)|;JrQP|#eP#4_EX>WWF4GnsO*hNBL7CrI);eQ`WTsnrRdvyaE7L>~A z`e%glQO;+bs&rLV@8T=jPZg$5J8;oz&qDu)L;o5Eck6qX78Jm_-&MpzqT4=hutM3F zoc{0&ee%wkgiPeNMm=)h=kFII>#qr}-?VzrofFMN!SZnk#)k@l&gqJdwgCaeQkWn#&W zkBNohU6!64J_S7NJv2CQDK}7JglzKt`b8`lLD^LAmM*cHVk;>uHy(c8J8($4c)95P zfjR8acY++kokzi@{)2A~~Kg;R+&EniCvL?5Wu6-;7qSJl*W&H}d=^oz*zQ z3Y!+a0TCJWo#|uXg0OPWhuQC%( zOo~y25j{zysUt>wpw41uhyXQ?z41dIJZYvv`!$THJvCCq>^OA9#wl-d)#G))81(cC zTsvp;_r#33wX!|3vpdQcXrTzqvZx{|q`~HeK^#9AGxxEZnGyh{%N3V5- zTxwfyQfS(@6BLlEM+-Gw>cKWcl~{?}E5{LBwxykX9GPETR#rv?MHf83aMQqOQ<(t+ zMtDOqA2D`pqrd^Uef!`HE3}{&dZZpSz6eXapT5bGB>+lW;V@820V%E=w>3>-CZiW< zyFFi=_xSZ<(}beSg*7^G7w8g47;kgjQLQTNCvi41k^*llp9?BQs>SdH;V)_P;nS?| zOEiXtQng8iBaw3z9x>5f+w^X_%1eMhT)VwVf~eEfYf?)jJmM2etUnZb5c+_ zzNhP#cRyu*9XNOKYTgRHD=Cc~m8U(vzOQXLd)0LRzf5%bKUu*|{8t56zj#WyP_=2r zg+-)!w7cbcOW4ovKX^80y@3D8$%Soue?no}Ue%x5pqgNq5^j7ExGQ+OQ&3OQJ2V;T z?oP{oaoV_aN*fJ9q<2U0EhjNW?Rv&!6xs#L%|cVk`Q(ydG08rC&Y7-=$VdT32N>P! z;}d0aNmTAX{jFh#nfm&-XOB&HQOgc#E42Ll((P>y9y-MA!t*j+)FVxjv)jo^-f9{p z8yj|u?o(BMTYaifY{ICvlki!`al6mm8Y6Y!s+2X}*B-xMJP@O)YIukHwyI2-LfF5# zDt9fGYT`ri+R{~4{s_Mu(1B&%9`?ZI=95U|O%0w*V_A^G0tAC6(K4pwq~G-lj+s$} zmBrfsz6!H`{qf?3FlJ(vkeGMu)JZsv3H=B#1+NV->%ir1h3If05CpdDaW{CQe0op+xI%4W>$ok#JIdL9#qo$v^USy*KF%WezR8izb&S zME_G?`;L?od?vbDTRC3!eUBVDg3x96ts?;euC#+WT4!CH>gw9S+wGAcRX}tZM{Qx2 zm}{#_Ka_k=>cCn+_3sx{MvPcWKah@SzwXoFf&x*JZ&6BudA{CO87lOkO6Mponm6x| zg#Lx+(H5y3hD!LQp34zL7jCmS9x|RQjm@uE_CJ?jtLZ*Gecf)|SfN;EJI-#sJ|9Lq zw4c`hR29wgyc`oF;LZPaXWMVOi)Lt%gXxIALMhg6P6S)5$YD7-8f|c-0v{K3I+vpX z+cR`tA-F5Y+KlPbyD8MWHEVso?#xk7Z(f+bqkj3`YS2VzwWwa+v2x(Nzzic8h6lkN za5SHtIN8V*q1svMwF6Sh)flol7Udu>;WpQ}q|vUX7npLx(_9EIUNxOM%-lVz!%WgB zw2*aCoVxUD_kKLg%IK{>=hT$a@3ng+m|9Z2qfZgM2>b^?pfTEd>G=@vD$IDU+}XxW zLl5I4CZnWw$>b8%Hxuqg>gv9}aZo7hj3xn}goj?T7UEp}2o8xk0D9 zQQmHqZhsNw0A$h*;ws%KoT7>0D>8Q@U_|ztzR0z}~-RaG)9NS~!$6~HO_JGM* z&doVl+^_q+#l^<`Mb^BjF6o!r*wITTxpkq@%?_$vTU%Iio<}Of++(P|m(-p-as&ZM z60r{Z>&XfVXQ+nxcjD(S|JFdRlS@3h%ZsR{dG(ammU&%Q={mT%r9ttlt20lu52({1 zBh>F|t~n$f`J)_5b1C6`f==4#K}0g>dZw_3 z0Uhr*snSy6sBc=e;o8TfmrsewneRvQfWceHFR$EMIbht%o8-di(HPqYHxhC$+mwz7 z+40HwFQb->wJTlJ1)e3%QP=*p#w%A2o_(UD?a`8Jqq{3W`-;82O!oWFj$VPc{zHTK zkk`3Y;TMK7fPnT<&GQw}rn(^S^fjMXxo`=y=gtMa7wp%`nguAqTfqDxGcS9yS-^M! zvWq_r7avx1K{Qu)G=JJDXqi`C9LcqK!YGHae3zmEW5+|rq1pd!dG_Oc+ZkS{P!VwL z<{{NC3hL@fQ=?9g?7Ls68xhK2k-*uIWG2j{3Rq61dZl@TTzI91#XOm#Mpv@DB=kY> z_P46EE=<;Zb*Rqa06XK&7}KbRn>#yUd~i?8TY^eQ-xq^ZCDXRgI?2;JSSRZ(N-mU} zppdlq7%dKO36=g2t}ZDyItfXSBpaR`U`f&pyC<9p%j4xo9*mnWE4%!Pt`+OTNs7X& zVuDb3WwsSwJ5*I>x0U%`+|ZMigY&Gpd$dLZ1M`njC&S$zgoEGf*BO*^#^{ROt~v9E4F}TVq!AXTd<=tjj^aIIRmaj-~aFWI?x2#I~hOUhk*1w zc<=z?2?T72Zj8XZ@$J!QNCw8qu)e867}2R>c9j}x1SY}MSj;I|9eBsfc7p4aync@g z%gu2swz>Qd%{4M^ybJ9UIXPkR4BGsuWE&K?(0To3WlI31$)kk^tA`-EJ8&TV`gIr> za!)^OO7n)gjF^T4lsedrSp%W-DnEZ7BrWY$6P#F z(;~u{sU$RoA!#sYsF|?+G4JAYe2LF27*TspLU<@k=Hg2QEp(3r9uNX^^JCQ}k^X(Z zA08*7Jg2Q=b}xJD`}{pqrgwg+ev1)waWU+SPt;Ldme*DS&+U97=#}R!20{ZJyBo7-uJ|5H{ zcdsZ9Oxxwd5sy~bco2&WM;mli5WdBpP$o-GJ{bGFYWcQ`0Q$kgZ0y9BtTF;(D~A~y zIc@cL?9WQE7I~TE7?opt_Uze{O@Js^{q@2k994XAv6hO;r+vf2j%+q`vU(@l&!V-) ziE{~7p3rG#jza>epXz()3V1H8uB@=Eo?Oc&i3lWW=KiFnU?$v2%=vD3xC6f97Y976 z!vO_B^upt(V$D5O`^YbBtN&CxMCEI;h5@XK%n0DTOJmlg*TSlUnrnQH>%VAX8kN5~ zzN-SwTm7%COB$D4H2H3IqwcAe0F^vkb0rbGj0=?d=g;3@YsjcOq z3QW|dZ?eCr{)Q_ly^KA9s;|nEbDc1;Ji*#8x=hs1qIFlzHaVQ@P(_w4*e(z_ceJoR z5gkGRy-zAvyxjg-h3iFBZ`kkBla5Oy`a$dBJ6Z`8M%*cyX>I3icF@u7l;z#dntaw- zYRpnxxC$~nTU&pgYOSJCK;_4RAtEfZwA8^R7M_*e`8$rur4Xd7ir<&hQiyhJJW{ya z-H{%EzAq^asO=?iPcm>aQJz3E{0`Vp^2LT`^QWBv9Vn~Or+Hh zgY30yp=Gvq-4nk_uObU;GH@lt^f8XkGh3QJ0ghVt?19**l(537k48eOdkUB6)uzYF zq`IsWvKsW+`Jj8wn>InG^I&9T@$|^n3fG6L<4Z{Oc}o5C;k}3fbgZVMz~7)ZOkz#! zzBLZHO@#4e#%u)n6xL0AHs_yZJ$Ep51w;~eh=`7hM2~5Al>5U4fKAX(MyBcIx>(5i zJMfVL+PTzfE0};&D|kzgv(=L*M47g>ZiuB8$?nukdmNT~1e6=x0|D8rd&6ZhrE4jV z_Tx=pB+dFFZvT+O+K{E}&2Mcf*_eqTA)mB((IRFrUS$;ai}{|B?(b$uSqK3c4uH)1 zlv_8(12|I(a1vg}y&CV)I3zikRONd<(Y(AgUf*carm!^#Rz$ z_v$f}Zigp1o3{j+<%E!|r#=Fgj)A35yS(htt5+-3NZIa!{+`r!j|As)DO|kfnd{fw zN+e0%XgJ9MDoWe#WA8u?Sn2q9226?b{rI5SG3t3xMp(3aB)H##O^>q= zf2_es!n{pu4g7bAmgu$1Xly&8!rxLPFD0eq?eyyNIdPg^0R>@O8FkVx@wlqp-+4dD z5}ppB*HpRRCiP=du|-m2b^h$A{O$@++%2+?%B*lI6&$U!(Zd1uMO~eEz;TXU`uqd; zIFR$6jSrP01N?P{NT#A?n`k!DcruQ!WR%W6O22!i>{M$P=*&HxG_a3RgmKrL)0Gp5 z3^lJ)uUyGZUHEH;W%7duhCv_g6E#&;RUrxi*@q38bffGg5k~0kF~)FNX({MabLM5g zkIe<~eQh~Q9Yc}a$Srrgo$V!ayxsXZC5igmP`^>%IP1jZJY7JewY_>8)=#+p55)_^(0_ zxfa$l3?&5vW8=Rche6ieX!YV{34tWH7y0YvBGTWFWMN$;`}eQ>y?uY?KTY%)b!ZM% zU4nWT8%&=*tHy%XlIpNw5hv`0`ER#YI<03mT}1sIHf;6eV{ISg;HMJwf~hdNgx)vz z;}Y#S)Z5N=Lc?>`Sg009M@)FQL09&N@2_6&`TxM*F-b%wBV7p4x7Yfxk7w!5IWeJv z6KzXTCAHtxJ(BB5v$it+Q_eK@1*9TO7Q7``j6v#~qlY(kk7?3$sm_}fd>|etO*`X# zS#W_VHSEpZ%J&B)tMeAu1@Xt+VAWZ{+N+%j9YIw0UC$U_41>xiD(3DQ*B%DS?5}Y= z3H1;908*p-_wJPnH|ptS5tWH4HGjlw`X_Kch%ew z=O7V$QUyci&#yf*<+ePb39wgYy?DW8DCz(WB8N!@<(op5cmZ7m^vaWrFAT*zri zkDQPjMj0f8X5H4G^X*O*g3f>*MYJq=e@US|5w>uIbw=7Cgl+0Xd5`*q=1m-!q`op$ zmHa+9Li&%l2Y~qrOdMa)bs9jk>kH#n-rB`E*>U^7e_4JRY3WpUeiREq^w zbNBwYr)@Q8s~yTZP)PnDubJs5ouB5qj#~IiHf+o@&#PXMbuz07HnClz8GD_Yfqc!0 z76@bjh8P4C|7EKhOuw2<+)GwtoTB3Gb{-qNdo2zoF1A$Wxu0;?@$`gRah#-n?xfOp zaM)^U(2Qh)rnF$fyzNtJWp!lul%T?4o}Pk%8G+<5#Q6<{F`>BVV-$?UDQx?FO6425K+P{O;+_p;I=;P zV0~e~|3QHkKX=T6sEnw~ZCnWVv?Gssa7>-PmcGOO|10Mz%Qe`&v=&bnsOL0e_Ua)GZs`|#Z0t*`l}=>V{LriFJN~n_&^@Qx% z{L4vh)j!)?^V@?VhnLd1$bTd?O1bC%d5FB7t$0(d5+Z9UZg>)JQGp#kbm+Uw-z$PiOZ-zd0z404qGdXLrLMT;P_3TM#i~qgo+B34PS|~>|>@jd~un4Wh3DP z@evD}sOO#*m{!jShBXr~b+u+AhQ&-*2M^p#^HITo9;2;o8sCsw!$;y^Yk8P{v*2mckl5J}+4~MVt((MUddJNc6d%R1wcxstsd#m@~y-o1CkQa0m zssH=;?Th`*+!GTb1a16AsnaK9HC-Z4pVsSo^vDsiobswo?}Qm|H1~Szmu#=g65MfA zX39h00|*)FZHvRX*rbv&evLCM;=+X<3MdlMJn@HXtcY4bSWrHod4$D8sK7|T)(5y8 z9;3=PQV`I4bz0Pkyj<3bcO_-x7PP1 zw-9EtrJbBXUN7%yu*Y0BCURj1=qpX8KUwH7!0Fb7#I8u1!ERP&9eXJ2eG6D>*71?o#1KLmgcc zvFZ}p{&kwIUkY~?$I7HMtM^TQJ=*?O@`|#w+(@q>#3Y<2h7Z3$vTuy<=AqC=j8+4`0yIMBNNp51g!yfHaT?T7P8f)(%&MYLO1a#DT_l z#s=6B15GXwdKzikdfk^KJqV|T5F+&@s)8h&`FEG=6BxSt?HfP9RFao4SBC`2q9utS z_jKJd_z_LI%X{@tm{K_P_HgQTyerbSKeSctu3+(Lv)J*g$%Whh!!NTKmNoVkcv==x7_%vpOuvJ zVZ-IHO#Q;2S4}|+h6tBgZ--?j&5JN*AEq}Hn3Ez4m)i36u;&XmK+K5Kr^{j~_o);I zdw+PH(F!3mgPcPU{r-}jvRy+*$AcmsUy8b$A$InNq@V+E#N&cXLXvNv$Sp){@{_QM zHy9sUPFnZyXC!s9(dgQ|H*P7%8&bu0%|9)n?~50VfPbVm1A($H@nfJwPOgh8%pabW zogE9_Ab6qx0+^Z>kb_vxto-E}DV>-4aIDgx7EPxn$DZpm8ZtjN?l*e}wMSgd-t-=f z3U3MGvrzv$&&?%;$^nB=@UCy26@q@Vn}X0s6YfYoo7rqkAjZOM@#VqwGK~F3Vugm7 zf);wr3paV)9Tr`4GCV!2n8~~u=Qy5o{OPTb|b?f+bcZSD_w;{YlC;;%(N%{v;ZAni~qNF146nc1F z{`xDwG__^WB~jP)-wr(V$q?sRcbu}*we0)4=ZYILB=pIq7Oa{XZR*27H?VeeEUeJ5 z81cEW#2|7o$$tIT#xH%fwcL+xtKs2l{4d7g?R2A<8Ji>Swpx9DT7LFYOY6=I8><(S zrgk=v+BkiDz!PQVyOue*6QZBw86|A8%h~k!ZuFEBg9;y&EIRPb>b>;N9>F7HB1c?# zaQ2Bv$2%euZ;qST*qHfK?X}%r53f~U8h)S4+)6%nBemq|lk1av?D6(KzDZeRQKZQw zdSntgs4W{FlfO5RYD?sB&bsVzFb-(xIwyYVlkO+TEf*^u70Tr*NO`NiG>yId(Ps#Cb zx?L7cd;Kf^*r)#WlbKcLF1#4@4ANFSIm`IWMKOP^+)w!sX);Rwu+6xAM}67Jn?WD2d$!zn;lgl99G?<0 zto!!wKRd$M)X<>!zIQCtkA<sA0}@Zf#KqMk7c5`?R6ZCm>FM2d z9r9$%yWYpm*Yl@2qn{7>(v&xiT08rVIQ10mNYFZo1NV3wh`WIhIoxa-=mIH8bhV#Y zmHd~6XN$HZji2~yYsvsiYxm4iqD!C&O%WM=9o)s5v4-FO?cxp{QaZ~xkRE#iGKT$6 z7k3E{rB*UEtZqLs?{LC|-rWvK-OuaXMe^&`>kupj0#oie8j#0NcC^lXKTbT53Yh=sBV;3+&JmGRr?j8KhsZUrU7C7z~RF%nKaG61(&BlD}r8F zJ}FuX-@7I>cuHr5She!R`Yl@;$#8HN$1nlgMWxZBYapjXb-TX(=QmFECg^@2?2~Fk zmNhkb4UZdzTn3H5$vqJ}ZM*!)=hN2SA1=|$Q|EM3v}D?f=VzLtC(W+famGz(nG$di z#ba5ErB~{moubc0x`}(ek3D;Km+z?NPJ2GZN)SNPS`l{ z?t4~~$-uEh;A!AO#mp8FoTz^OrXNpYnQ?#E#WBA6XO^aJT1%v%)s2R~=b`GB<2Pa9 zFaom}^I@_9gkS>xNb==6)BH=;r#Z%NZ{ zG?)3XV=mk4)tHE;J=GUYMkzArbm_D3J>yYIiOjwgxGr}^#4MkN^#*I6U0Y^u4#6Rv z;9VQN#}^}{(Ls+nlq{#55?qSu(G`@IHj~i~&~bBtS7Bh_z5dbF2!;hT;i>?)98=^U z1ke0UK@IeW*}I!$Gu7wiHX7hn^|@2nO(Q$iV2bJ9IZ%S_J*C1_&(G@>Fz}R~_HWl+ zp9=ea*s-oxY3#_hZz{(~Y+=Wm=J!>OTcFgeS(A2Iv}RU^V0oF&ORKEi;d~n~x$M%Q za(GUF6&FbY(W@Wz#X644nBlB%K74o}EwI0ln!tR`AEB$)XVloSpez*#zsS=VLwTmj zU*8X3U^<*kz_BO~ZdGowHgy~HrL$=@$n&ODixGVbs!BW0mtOSep1z#cxK7a}BhiO1 z9GKgz5C1ctM2jJDP7L{0G-Hxx>X2Qc*125|IlJa9nA#~X0Ka%iDp%>xTe74)ztz{T zd91bAC@P;mK|Y@Ae0KvHVndG_a=txzW#$`6ciAAkc;16e&^dV6Z;5K8+2jKO^9DwX zUh^@FP72nXe>+R{Mz5_MN8b}Q)P;e$HMjcApSzjp{V91WD|nbo#`!oQoY1R8>YY z%;E41gtv6uyzk4=GDJoV@qg%R7&JH80MLd3xIoT476IcpaA5XgwW#3AfpT)8AtAF3 z(lP$7E(vs*SmVN?kk-Oy16a}3HM)A|Eq~K=O&t^K?H#{_5z9tc&SU4StxBbm=;B5LU3 zd!Ne2SWy`Mt0pZb2?6i2+R0eP~b*aemH8jfELI{v72|yFMk$KWh%|Sh``c znSEoi*D<5D2bWD8dFONK^N-Qy?%6oE0Q529D+PG6`5W2hS1`u@2kvpe{3@2;9nnX1 zY5_QVGs!C0=4X5ztXA|mEscbTp%6$MG1d%vTmh#F=O{+PuUhOm-pcC#+Jh%@M{iQQ8=Un?@}TsA9ea)S;zo@ssV+rOQ#n z@O=BCh1il3bHE2Ggsx+?--U|OCvHOeq6rYdcSIVo4dgxQQr(&M?T+OTpYTile17IXwvt@_JaBJs>C=+ zSp#a(8|;$(_ui7s;eVyJ;P^^wzZ6lQd1hwPlJO&L+J9T*z1rGG$AB@Qy2Y9&KP`#Z z+ih3h*~j?e@6VpCvkhJ-wUZk~f;;Whi=%0$_=|!x!uTQw`QBBz+m)Mj_V=_+dUsrTj!4ah+`Yr73Asuv8aE3 zN5mvMytB{O8sB1V`V8s1Frp&Y1F<4PoKt6 zg3}#+TQ~mWpAQc{HmlnqDnH|BQ%2T7goL|P{NjbG${gc6-0}N|X!kb7n21QQ+`4r&IS(IN_w>pvKk>DCpHn5Y(ftAMMwPde?n}xA)E^Te03&gr)@GwSKOtquSJF#NZpYIef!LIX6%OzLT zHeT(jXBlz+yuGTl^UMw+&w7)j#D5Q|X#~$kJ&v2v&rnqt)>RQ2Yfj@~_|4`$%+k z)|TJEblvyjor8T@hH!QybHF(6+`fJ3VgVDy6^-W1QLQlhbJG@&A9+i1(4hGS0Bun> zf_;3tNMgDWLVer*^18%|Kk{%*{rr}*Go=0Q|7)v@nA~IkFhZkuYC-_?K(B(~Z(OxER_{?~( z7~ArUtwfj4unDB9^fqG@ZOoRWVvs$Ry@I)eNH6Pq5s3t3 z2|N$(GCJ7z`yqsdjZhk<;rjtlBj9lb-FeRBS3sXj-_TdBuNkxA#_!NAuf~7X7y05H z6&d-1;(wnlqCe3hF*yL3(l26)!C0M{nZ0CH2H7^iYN3#|Ge60nAB<~K)`^KT&*f~VZO3VFc^sN0 zQXh6mfKdd5P$rbIIq?AeA=J=2<|w|^P{F&O&IeN-$Br5W^@_>g12vq=fE*nh9oJny zVIW9BfBe{rj~{oO)P%45?WdCRYB7VHT&yOoX+(OWcL4N!8$Enan z`n%Yzlp=5*idwviU%YUV4Qg-DGZ6L5R&7F+{NW(Rn(}nf69@;SL%?$q6|kZU#F_Kw zg@^=C%fKYdC+FqWpJ3J{*SAenQ**_Z2D-+|;ei1G@c+pYgsyp7t*E327%6>S9RAm% zedS@(I6$b+OK7c-;WziH=d1?*6~>lJGG7%z@l+*$wg=>z8+@KxOfL@-8$sTy8ccVZ zq8VkYLvhmFQ2~@3$=@?1MdA$7)^CIF<*JD(oCmjtE`EPWLKGvO&_^JbgPgq{h5#g{ zagi&mbjz8NjNC%dqX#^)3EKvyb|QdZj_aTJx%UZ>IUdH>pW8u|PM$o;`Gg~(Ej>Vz zbrN)i#}g1xW8g_bbOjbF9vH!=`U?-t-_8rv3y}%0M{BNtrNY_7_>cFYN=wF}cj%^6%jyv}lYJy)#%bDyU-D4y0Yp_oyr@JDqROeQ4nwaS`-D^iwMq zVf?`wbNxBf4mmn++&B>YhHGV2U4^nd?A#VH2NwPFbB_U_!-Hh{ zU4e>N{)kQ+Qc{K#4^w2boH+4NU61iF-5wjnMNVn`?YvX(2*4C8E$zPlks}Kpt9y8O z2w0k;unWnOXpDJO=Zz%!rJFp!VXYeZ1CGMYy0bY)zC!v@LW(!SaurohlMPA-j#HP0 zkF~W}l&%P|fP7y@vFSSPGPKVD^nEwVHkl6-xw;bCq=89cwmVT4wJDZd`+a>^7KsU{ zU+j%v)v$|>83~71&w1n1PhDIa6!{!Hh*U2Ap_k%OTO_g_cMjIkNe4n8(E>j0ft}MJj6~B=T2U;S^A@15Q zA3BETbQ8TjPH(Tic!7K%c170X$HLr2>{ST|)fB3sZ!azi;UG-kRPjhqLX2GzcJ$~} z13L6!D#~Z)N1JBey9c6-F&(qson)6RTsYN$YBfz00m|^R(5PHE)#i<_5x&FeaH2EF zIT^wZv5sC5k(bQTn~0u!!{7pPkNe9L24;an6v)om?@z3^Y}&|@p2a`&Pah%n9`^HF+pju2#&HL08!at+ahQOnLm_?n<1Tp? z71k)o?mv!Ls1&Bpn>~BTS!o-uC3m)Zsmgpb#?b4tdWV~eCeM{?G;>)uAm7c?;2jzq z3ke~8a|hgEOOdQ zLf0o`_3R}d{2y019NWZiU(yX)jJ#pz*E8@rUS3_fIz(6_SMB;pDg$D1+>)PWv^K}y zT80uJ-1CO}huMaP<3_BiTYZos%swx{X1;oTEs#*6?g3Y={L7D)ZMc6eeF6uWOefYs zohCDkGB@6LetSBCCeudFQqHicQTb-(=I{YNkW2v2va^7fHl=Da@Euk*CI#gwbcZ>b zg$8>`%27vOVYoo~=K&%jiy8PHJYj8jNjYLRnR7q^e_fR7Y~wc<;_2O$bH0%<>?3o_ zUfDt1%EA5>sa%ojCb@kEn{d@oyj0WuoU8q!Xwz7ff;jh4ionSfc)^K@c&9LGH%IrV zqr{yVo*y9U&}_^v%ca6#HYPyQZJ!Myk)vrtrd810N{CQhX9Y2Z`3qB~v@nuYOr}@O zFAUKmDiW*OFW>7t+hCgF(SveYrYb?Fblf*{j?*2^(|t)D4-qVk=8~?iC$$%OG_W#A z>kcOWG5BTr^m~EI=5u<;i-e640C|#ajYD|BR4{}ad5i1BBg1+>sboZRooY|=VhhVsdQRCJ90k zsk3$+%tfxO0fQaM?t55GtNdT=v*i|XuyB{_Dc3pdZzg5PQFQPv$tOYYK9`qUQEmqY zo;Qus{r%;RKyE0@<$Jo}FPew)6pd3BtS-@$H;1Jd>r=C4P_{Wb~8%tn478x6m&|O?H zj(TsOpI<3?3gjThm$g@?U>ntW!_-CFLg4-I&RvRgOIAiXSt0Ea#dC(vW8kZf-Y1o53u2>!a;`#FgxF=kIoT}{+!=bsl z(}(t^alD-bkB09YMw85)%Opbpbv~8IaXC{%!vu-1L?!1uzb9l_Nv{@mid zHjkth)%Lo;b>wgOBsXYKD|T4KgDTS_^JdMedUj^_f)SYGMKxUxb>xtf{V|q?lmrr-!{<@)1eY;lgkU0ztUB2?jz)l02e|aQ@i|eVeg?9S| z-yoB0$Y1)Gx>N9~x`{>h=l(!fN(AT}0;wYFdXd^4J&i-f*S96aOt|yCh8Fb1it0bV zcn~l%sr)9;2H=9Jg@uE~naIcwv>j};e5y9gziAZw(6-%G1ZdDjNqK@MPl9+}3gkhi z#xC@Dv!}m6+a`EWd`Mc#`pKNuF z>nnDmto>(Rfink79M|gX6@23A+%bPX%-Kt_O^GfdvLKY{KhdV^?u!^G9$nzOA$CD0 zZN>IqTOdb3nBib^UnJ1}QI_zo{|z|H|E;`?K&x>mDsx{_Qj+3PUtffQSz5)#XEOZ3ik8?@J`yoK+hc=Q3Y^#l{x;9~PmlBEC0nl71)a_;hN>~>*-_RioMcPYKc zyE}Kex<=aX{Ek5lTeam+We!fXz0qq@^35OHr(CnsmXA%nH^YGc8u&^zx27OiDamccp6tp=#qNe# zKQ2B`w^2(D*UsDsu+J~p-~YVqa?rZHpO-P0?DMjQXD2sE^Ib-c`sX39{CcG9pZ_Ux zz^8M&d87cu4{cY-h=|;LE9Cs`um6Cy|GQpHpWr_Y8?PBh$vJ5Eoy_BM%D7yoR$|+waG-+@2_$ zhW2Iy!0ce4rU`>WwG?e#{@ic9+0W@QlTh~9a~pVt@#R{RC;!!@3&5}k=gp?nl9HUM z=k)%x$IMO(+#kXe`Ul(6w8R$$Yy zQp=un{fxa zw||eTs*Kwn6#yQ@%lF=Dz$u>5@88=uU!~X(IyW14fJ^ZPXFplnvwPuk{nW9glI|FY6>WK`)iE+pNB2-e`f#v z>oe(vJ}c><8c6DK@9y29N=lE`Ou!uj4B*ozYzgy#v5^ISDAZ<}yoCzjawORHFI zTmO8urTe9hmoXQOy$2P;s?`PeMI2`-WT5sN8m3UglSaA(Fy@RSZ}F&nfaE8AKeyVM z{_7pk!j_e3tcP7fDnSN<@4PevL4=?Vt%sY-oQHz^{KXkNtgX)jXE{5gJDsrTL6$0o zRokmaZf7qyB32d!lm}yd0gbF;9w&IIAwFC*Y*ouJg)uE4lWpB zVX@HuzDQ@qodaXV1J6bb)8J|i49J0g75Nzv<*3Vc%fR0e_CQ$?^Vg1O;l0u6p<_nalCP7Ak@!Yr5h>?EgO5*ub6~ASb6oN)J+3(_Kw^E}BOu zs=3df(+7Z~haU?W3D$}`RojH|dj1#dwL0oKKj*$qIC0Pyj|)GwwsFX|u-TAS(P4sE zx@;SZb)R8`F}qW8;fxtVF(T-V5)urDersqLc9v9`tQ8;}sGKpJHa0f<40`wL=gPAN zW4i?Ie|hAgaIyyqG_a}II-C%Wosjt7zz6AdhNE!Uv?yr4+0hzuy z-a|21$32M!(vpM0WVGqy@~_NEoC4A#C}t;5UTk7Q8bbGH^}YR&t4ZIH)g@3=7!37) z2+9~m7DyRg4&J)fPn#<5I$bMhG2?(&zkG2zv*5wT5)d%YUsV?%k!5_j-D8ZEvBx+# zF|-fdfB)FXfNG|fJpB7Fz->ALLhpiBkzinBngCA2i^Ysbzu-|@k~(oTj_OTV_@f7r zzIe;b6z)R@$wY>9mu*3lIAP+%s@Km2_dNfTCrb!Lz@1eSrf}==c>KV!TbyCqzIC=v zNW9uPllDoBMJhHnC|ZQT1u`!f46^5`DksRR9r5=+XEMss(NU~-_xkK58xPT5mYL-E zQq^=s?|lY}IY7?KHkT)4PbshaS$pKbfyb->nt0Z_1a~@WXp(X0XnBfgFVWL~t+VSUPQ}V$ zD3t8bE2xKPit?f!18WotcA@_`I$_L=2!FX33iu!(>YtmT&BDVX|Is7Ck6-ll&eGCS zu*Y|swk=#JSsXRJumxX+`gPy7UMGEL7bSH2f4Y0~upHa=-#cTb5K5BiGDl@dlPDzf zT%y@fcbcSu3MCmb#2v+*QW27rsia8~N|chMLWP7Pl@O}+Im`Y0p5NNuwcg+JzH2@2 z_O9!Xd%I0n*L9x9c^v!x-M_<>0&(uqwx%C0WQ7C9%E+yqHH>lHGp)0&6YcNYghbl& zp%zxvoo!b8HqUdAIb1d&By=W3zWqKN(Sn8RqM(JujRq}WzvEHmz|q&~!PYOzA9uQ@ zlUObs$Pa}RMQQDpj#f}$qQ(;?sG&4ms8mxB$_l!4(-e6Yaq|xwjzi&;u)ZoO-MKWX zq1QAjH{0=h7IPm^uwT1Y!c?MmH6mplX4_u|4!{|)wlw_C+KG}y#l=r$7TVg5mlQ|~ zKf(vfY##Qaf|CMT2IBd!pgzkZJ8!&UzGxhA=*k8{9L;C&6&>aF9+C|E zYG}T5Rz|+?a$+zGI7jEZkHH~3bwgh{eTA-Rn~dGvH6*7&Anm*ta@cGgn1Kv<0!*Jg zeY*0vnz?%S*C`wJ%@z6erlK|SO?#fS<w8{U*)-B>1IdJ7*M|;K{&XQL z_jleQ9qExGYWg`Xsy1eM_A3VH$DrratrXNe*KkP{TXN%Aa9M6wGPis5z_$|G&lL|h zeeY2t`rtGkNR)T&pI)d&M8!8Yh1X8#*kMxO#mkrf%y>QEQY7vo&w7skv3k#ioogl< zBvySy`nPXx{OQqA_ob&r>kgl?YF*rgw`G|Xj>i^HQXA2)8z$msnFBKuHBND#LL~k0 z;p+$>VIbABTel0%zj-E~&$umLxqSW6IbT{75m*HiBHOPUiC2Ft4csmz)LesmfyU{! zjPJE<+S4wQgg<)E61+hSqj^T3DooK^G~q{K0aFdhL4y|QB<`O5?2tlr>J;l+tniPV z$vW#beRpU7U|upYrz5ywMtyyK5Q;VsNep#wZF)}6eId2=fD;qb^fFw$bGWLiLG(%k zcXW@6!-sqOeECC_(@a$N`SS$Rn!OU|CWI)=Z0WI$IB{Ly+RM6Xhw?2n{^C#rksf?F zq9pRn4|9I?E_9w8Sw|(`kP~nMb`}?}%D874rWejxY!L_5qy?EZ?z@94$)-o;)qh-?Wa6H|H^?E>2)%A^HHw$zpci`^;m=q`-&Y4{XtY zu%>q&Tjl~C*cX%mKe~6q>;!o1nq==EzFj)*1X$z7to#cPKD;S#!{o+%u-vIPq({;# zpd9D1U3bsCLPbxJpPiQ{*l;H%i!CTc_4FN#?CD9<<;xu*J+XD(v*E#eCgzJ-(+hYH zwYAi`7Q>CdRK5)c6K0dQy(1pJJQ5x`p~3bWHLbY^g9>uLpoY%|f+4t*Kr2 zf{r+CPG?hsw{Sgpudi=54)3f|W>?Y*hG#-|FN@Rz{=}+(1ko>}+0GDIP!thdnZ0@)=DsEvPbXCkt`hYO<7l(^LDd{-c$}}YVWejrXDCl=f2_E; zSa2;#Y&R-Su$)dE9jq`ZQO|oyRJ-x3LJtL0w{PAxFz7^<^wA4@HKH92YNBGT3qGte zH*d=6BxV&t_qo<@*^YC=zC)vOLT|SfyRnd?FIy_C@NAZxx1NPDYC=Gr>OPIs41c#urf`L?zsmfNlLphB2iOf@xr<2x0 zuSwpRLHvuZ!+UoL+4@P{$f$(t7Kmc=zK&=an;jpc9>QCF*srmrKy zls*Q4F85SAWR_`kQm}-Vom!fVP?3?t#dFuLO%B@2)K5NOJ`f_ea!-!|SFs3?E!;fi z)>G3+agdnaU2+`8eb}NQrY!z4$oS!)nb-0+2>vsxQ=J;(RWA9BHJDd?wtsMge~KjC?6~nb3L-AG^ zEp6_4!yH+;>~2PDVq?<(CW(f5{8?tz&vy5+e*hyVI`@(D-RWDFTRNcCF`r6GwpSlH z30Rrbj<>t~<|XbpCsN)brqKIv#!o7_hl76e3vc!9C=8NYU;h<|<)2!-|Bc<_|B|@~qZR3QXuQ@eOh6mGw5RA0DRBMU3bpxeUjIl~Gf+ zsI{zRQp*hF`0+nJY4@PUD|+^Rn=u>+B)#r zBlS*9m4gXsk0^(#`fblQW*ysm;dPb}F6O$^{BPLfUxm~D`Ch|*KL2>R#9_JYK{{uZ zb#mSwIP@bNrWmMDf zUdH^U)%g3*p6EI4U3%@T?BKkXCdZ(YZwJWy4848-;WE9&`N-dcIi7w20_hsU;IPru;mo8S%{^KL^erl-AX3pFh9sLnq3)s3#1&0_d zlb~Op(RA)n_sgfGB|^%~v*|$EzS+_R*&1n^-aj5GBEur@k-Z-Ij*24D%x@Z+n!zbO zyLbNy3D;+gmR1YsFtrMUf37H8}%LPJ_oGqYRhT4Va{ zXN(62ZSe`^`{p^BzzRNmaxGQWZya?7F~;P?I&awm{Pm6!uklw)>Yge};{FPT>uqcV z`2f1v-oL;`!FUDg7PHHN%28&E&Ms%@bNAl8`6K$!m6exIMBLQ1?irFVrdY!j8(mbQz0tR4MnH;k;JP&sy z++c@In`RQJS6oz-keDdg6EM=tY;L<|J8p8Rp=}FN7n_UsE9;4Hfndz^5FJrPb@jt6 zrd5wjh0>4mrGK~G9IWW)C@C0gg90Z(P={?6{d4}KO~$&qohA9e!CIa#(cG4lAS~nc zjiDf*_eordKAoodU{)$rUOj=I5nyVho~4CFoL$LE ztvYZK)JW+$IiCQ-3pO6hc>R8~8lW*4DzSNEdw0S3og^-p+8`l<=MR=`P5!(7i*S!E zaF1`H^u&uMSuY{(K?bn^Q?rZTPl0JJKy(_;{gG&Y9pO=?s}+=kivp1 zLJX8z1RoFj`_&_~h=A>sOKQr>0u^HY{hfRy_>pjd1vS-=`;5_iDDD{?3U`>P@I_6+ zg1P^Nb`6iqB%WTC9T@nSnWuN@p;l)38P7*qEa)Y4C7^wOWS=E)=#@00`)RUaGZT=DNf-4LQQN=076Fe3gik}Xm%V5SBS-0TrB&Cs*e?=Xy=hU zh79!i3B3khO}l(o$;S%44dWe)OKzGk0ZtiF;BCIW>ZyXsPVem|m1_3@LmC_eTzMlUi9>OCxu^*?XN9f2{}p^RA-8o&G&!aF&T-I79N;_utVnQH zfx@vef7A-}QUL)L#yOSsR|*uxcHBJoUMlZfd$D&YXd9|z{K~}6A7u*~Dxz@Xvw$Db zvCwhWb7lz)?)&SxoN-A>TcLV5Pl+nZeFLWy{wqNK`7eFIKqp$Q$8P1G=ZroF?&_Qg zQkmJZUL^Dp-Y3}KM~J*5$JjmpWf+G{V+uX&W^@W)6V)*!e}*T zwh&&7nF5a-p?e4=nF1Zm3azwd1wVR1V5cu;lf^})8htmUBDOd7GfZwZ-5lNA5}Lo+ z9V?sga>uc_SvnMp)uD13cnldBCOp0}f{lmD7y236ceYYNCOlfwdriMYOP7dJ0do3N zfSk^=w5mfn26fi|sW|be@KuXB)mphJ6JMUC{M>!;$O?ftiqwQV!(!k?&5=DS@169a z0t|V#{rIxsb)A4Y{f#=UJDYT$QE%dphW%&0^?Y{TAks1gk;nt;S~zGQw%E7!O~Dlk z%DvII%gD^tfmicX>5_HF3?4D6TtHAkHGwlD75DD!c?q=m0Fa@N3P-A~pR{_-nqh}C zCY#=!b!sVxG9v>MQ*DtSMmt3%B~_2xY3N5Q=S8jKap`ix+E$?N$F0Q7S zhl;uKw#UQys#%<(icOPMbPQH_YR^9l%q<(GKV|P+#p46tILn+``u*_&C4nuC1OsxX zHE}!4AK0S|3g-TvsJb3mZMxIjha9Z;rJiquaI^;x`nDEY`Iqi*dd{?WU#59r4-s|S zFi}&xPSpd|TEVKUe*&v|-l-cKpxC&qU{xQJox?F_95w15qkX%dr!QTwgow~%KKKJ; zQeZXdt|cwIo8omPo|!8|T?w3eFMk#N1$O%kko%KP^?;?h+ za`bwwW^&H^K7JSn55f{mOqqTDLv5GDfKfe`D|~sB>BIF$7~&+SO6>V-{Rur*%8V2- zvHI~xpS^50UpZfHu(41FT-+s*Wj=Z7g*;)28P1!xZ_}F1o4+!`Y%TqMyx$Gn^+NH* zu`6vAiI_&Va@r;yX(kKElUmjVc4zAU2U|C1$;i{fd%w@0v&F~m<*=jod)%CT;O<(L z4Ie4iEC=*G^qT7>xCE*=%+g9rJJOx~AElOKLa@}iGiSz|B*sGX$1fr=VW6IiaLof= z-=HRwy;KGgBo50wFwpJWCll}?=HxOhW%t6h1Oqe?tH?)jB$y|Yn`W>E7$G@9s!NXd zHy;qnBpF6QX<|MQ0~R_lTG6eb-V_z>;iE?B#`j%>Wdhv(BG&;;!8x2^Y`+h5w@r`_ zke@WE4n_jF7sIE?H#fF@{m;8>&K)>N`tDFv`TSkRtJgV$;^PrB+m7!n7`|X&VU&6k zfQRl7vZL1ljfO>H2d9nzeLmht|phL+Jx9xf4k|_D!GgrvWL#R;GVJKwWEj~mExmX$2)qB#EF8I>sp9AQd^p* z!V1L^?#t)Tm##KmK@c#==cL6Y~kpAVOrF3;0A&y29W6DK0pO8FF&<1>g;m1vq;(j zevbSLh2NM*hy$zT%KH0903ONuj%dw(LYQb|WJID9G$sk^EQLuImJIDZo>QYuzLDbD zGCgAxNZ9(ldwLB~?A-;9)_A|U09GJV%%A$p$hcxxH~8?kmg1zs@8>Q!AAY^$$hmJv zpbT|8yW{kEi!rBfg=LytnJuX&Vl z(%RRabS#}Q>Cj+{pjBZTK5z8#To$rqll_1a8IqUNVNZaXJ#K^B6v;{UTsBx?L-LMw zlywYVp%R1`rMI@)I}SJp#-!za@gE=;Gj4`)A8=e^Om^R2ufcU$9Kitq+WhQnN*gFQ zw5+$}CN(+T@MW@VI%mKH-d1+Y3&%YkRxHJ07%CqB+SI!D?&$3>hH~PM(CtrUYBX8w z4EL1pO>HA>jDA|y_Q+rOJB~>2aGU?P*!jOBZkJB`?VB0q-m&fI(Qf!{hrQ#&-+{6P z!~YF$WV$r0yO^TcrFU`+=~RLga(4%hM)N^N8|mHU4jmJZ)dS`7I^a`eOOx2sS-rAr zw{E0|g1ARTMs{^psO;LaCwjF2A1u)E>Q~IIxWT@J?;*W{m*N{u!)V3;D+P~8?p(8r z^VXpY94#iuRBuiyvhC?S>=Qvr&Kf3RQC5E%IQI<7UWuCL-OT4K4BE(+8kge|-f3Zl zRkK;5Bo=&l!2h#bQF5ofi+kQVzm;B! zx5ov|bq=%nJilm}s__WTTf1G?^xfCPS;BOzs=}%fYQnGkca`cY;XEM3Kj@s4x@T3& zOM^3=Ps>iZuja0tJJR^s0To}LpJtyd-qej>*cf`dcbRzE z7}5Icu6?^k)i;QF9A0|&S$E}L5C08I=HI=D&)-K72SI_7@>52_Va>X^mX>d+_!aFY zQdWNcX4QqL9vXrrXM zX-bkCGcAk@e{6~|u)NkNw8K>mut#o&R5i{}d>h{S#19qC@KOw$O`HCg4;wW2OTyq% zBniTyHEtZUW7L7v=Zd1NYIaVIcg`ASO3sip_NM1i*)ZN(upA{oBMk_hY125}oR*>e z>+@RoiQerG-CExM5G~r&!)kJeI2m9UYsei!chuDQ$P;N+)&d$?DZeLA^iq}lj~sEV zoidJI7ue`+X+p@5H*2TMw!YEKTav4?dVS5=5q{xtzk!hrM}j5TJ7ccW7# zbx&6~bGgWt)3%6&9hwuKP-kanclRGqG{BaUL+F(a5Ne^K;u^yUdExQ%Bkj6V(x2Iu z5ANSD0`Q}lrqGBOz|Hcw}U-hcr`pMzR`L9K>$QEUH}!93G39aP^;&9szOT_)gj zOVv|5x?g6d_P)eVAuGgP$9TmKn7a@f1poK&JmId+nS&Eq<(oIc_oq>V%(3!Bk?nO> z&VHXfE2ORVd~#GvA2%oQ@2{?hV051^f3n7np)K_Cw{PEma86{Sdh=%e(fhcpY@sNP zja435Mm9G0zgg;ad|ek*5sho$$9 z;pYAux`X}+f(zJ`wkjoz?O^T;!Gr?``sxN{AH&>eyqdg-2r|xe-S8_kb3%X%_PTy> z6=8b`(s5LF8iLE_ma?k5E582zyI{rVn9Z#7Bnq zqL^mZxb2hGBn0j7SL$k!eo_k*(>EA(lT}Qcg;TI=dD6EQ#ib5o(>3L>L z#r65KO-)}?`+IwPQyHDQI?H+VThY>9u3LB>#i|!(tQ=fPFFqx&o4@qcxx_>bC8bC8H}Em6 zS}o>Kpd2n*rzCa*?jfJ8quh=qJOa9bt0r!Ee1=69%I1gOM9|LIlsP@CW!z3rXE1VTo;W^g1&`m`w}8t?vx%7ym<}%E?lmr* zmwur3*U*qTn4Ae&4CDv{P;&Dz3mZ!-&OvbfI@kXS=BHq+A;)igN~}sYO#$kn1hUa@ zuqn78C4_h#`!!H%_6T(LU1MHduay>4?ghmuIr(|2({@=8FX=-&hEMR1P(V{u61xG` z0YKt(wo=buuZQrq_>wr-1VaMQ*QfRgUf?AyCABXT*N{&Q5!(%DXrvE}95W`fKJ*}G z5R-h3lb=r5#B3Veqgyvwo?E6P*wC|RLFx|bzQ%q?16Lj@(e*GaSNa*~# zO2+t)m5J%Ki9FT&sf7>DhdRc*u#YdYwO48);UTuj7H9=Mj1KJryj7xKguBnj;haJ< zbYrE*#Je{_sy5##cc=yl)!_{Muvv(T*BPO%9{4+Yc}Yh(uTu}p9GaGSJ~_V(QVj18 z7u1^Bs?EAb7HS}|I_trF`zQY?{B$jv^Qu~cTLCzIbthv3>b{thIV*o;j>5WWv$~lb zi2P&sGTgvBjs#?h8Qsizk@Z#4{&(_n*wC^rJuYnx=d|OG3v5*$K{;6+bS>r{Ke@jj z$1FDeH)0I*3=P@3idpALCkOWH7t3h}1*Af-{A?k}2M=8=c2a>nveM|dqE}sc1v;4H zgv153gBw6#o8bQaV^2)Gy_fDjxi-gk?p&X`Kg*eppcx$}>bX~t0b)yZV$vq>wmzUt z%EqCiHtqA($x$VTtEf-~uN+wDVABa!d8hlEy3TOhao6e9EZ|=nKjFthTj z;d%bNjvd>d2?`vn5a2XqYxNcM@u(PqW_yD7WcBb9dP<^xa*p9t@8{(WdH5Nl|qf>2RkE7Ih;bD{e6>vyB` zxYj*fP12#`jyf{RN!;;@rhmTGfqsAeBsgzO9@K+a+ccx&MvtyU zC^Z!}ISnZ<@=6iTQ8|Iyo>iV4lnpEjs^r~S0)ryKW1M-?h5Yvn2K@p9-`k#((QvkM zb{0GpSt486E>AAT)$cFt1Nmd)c3;-+uhlH9O5(H9sz#fpAX80+NzF5W2XQsKEnZGj zWPNS=wRMI^h1S*Uf!U@_S3IW~7mfNldtlO`4%Ux*z zyc9EV3<$ovHuB=d9?rumfsH7AL>LiazP0(KO-Y9pN5*-lna7u8TRMex-_)NJ-2C_L zO=f#1pLTj?d!0H)yZALNog`*sIopZ+R-nc9VA z0gm}QXYUk#z1eT6U#|A?@_7jx4E;PerWF3%|Kyf__^1JM4tGx6)qQK;ImyPB)aMU! zDpvnhr?q?7Eq&KNl9D$X?wYH!qkHY`QGKM|$tEwiH}si1x9!)X`m8iNs=fW%|G_=s z!+-RIFYg!#8WqpcDwp+AFSR}0J{>zHis{n{Zl}1Y+Ax8mo{ht-t_pXIU%19-oK#d- zZ#rxcT% zybXsA<}4Z~b0Yd~moKP^YAbPvmVMsa#{oocBNkta++F~O?w`v5>_qi``UN)D`qw(4 z^BaCLJmNKGm3R7(MMIRw_-~M0+uDU*C^Uqf4MEym%>`HpPg)0amRi1@bHa3A445VyXgoqP*1dkYN9N`LY9g z2|;}txDb?#*=xe*edcFq^IN7P-uEhv1J5(!` zfjCcfF|2MF7Hz4%0mp@wASx#DLhby9xCZg4CTXNsL$=0pbo5S|t#Qx*Hw-+yx7qI?M4FjAE?> z>{JJ4-Z|c!t_c{lQ0xW=4(s0zY zZh4BS1(#9~@UidF%Q`wy#p3QHC?<$tvzun$P{s~=qBYM#O zw*S-SDr*QWDuZq(uvfVCn#9LIs9tfXzmyc$*&xSvHuk#Nmibo72tktIjtgc1{IH;G zA)q+gBuQoT=!_{-$fu^6RFUs~he{SG|$6 zgsq`MIx3is)5+q}!m4v> z8m2XUI_+GoeW8n*9Nnwnyyv(yBL4+d3^g?0AP1)0)y-?;O+=-6m>J*1c6e*AF9+%37{WBfZ)1gezup=^dJndMS@@cA(iAl7k z)ob0Tf~yVV#co)iSmt-7znC%X`IgSQ?R(xD-BE7(im&3056qecAA{~HpZ*7}-4;8+ zP9CHKXH)gin)3(xbQH3CK7MCDtaGQq4%PX8^o@Cgt zbt6LzB>jNFlvZDT!+kX^HFkS`&v$V|y~c`k`}m*VOuWp7wYQ4-)f|6yNr!d$#+}6U z?xcFE zPjA~)^V&hpKiY`O;JImCaJwtm1W1lmPPYah==#@cidh=cH^m-aRRBnb$24i z69&DFN)YrXE!F|u0WcOND)<8J_;vd0kt6TcpDr}na2Z^up)$&qkLxj(xth~256V; zlx6Ya4mf&rowBSDp$Y8d0?kjy1B>Fwbt`v9u?tatpf0HVG}?Y-!Z{&hOjO50+M3;7 zvs6V>^SRy1-Ss2A)5^9PUlvxx{FN(@71;`6Bce>o++m_@1&UzVb<*l5>^VZSH@kF< zQ*UgH-sI~|^wq`HWD?~xt%CE%;(~GqQcbkoA`=sf8%y2CJlf=XQsuP&o8WfCMC7>D z)l_JGFnE+v8*G;+b2icB?(fF#xpYl$KWc2Bxk%^wwlxGHUDUR{Ru@kj?Ve)lrgA62 z!j|RigQcBPL+Gl)`N7f$D%cS%Y;C_LVcC0`4ZT+eQ;0{95yvB2?39yBPUO$tV!=&Sa6ULzu>>kg5R@E z?$J0E-AH?1Nbml8dmui{FD^C|MnPa7o*&~1{jdF=&6r;4ytfxa49+K=^{~X){pxLT zO+Snq$v88jr6D<0f;y6*41pVIA+sS?7gmFohUFGOq0L!bdr`u>^$@hAQ90d5^}rWjJ~0n z@=Eiu%vpESivPRr?fbMXtx#`nvZTXz?M6ux9rlsJ&N1T-16M0+X#C)r<>yTU;N}1Z zJ6y8l5yqlyMk?KV_GGN{>BJP9>%@-24IxZv&>*3%VO+>VBX1{=`qx9woHu{IW76ru z_kBP%iE7QF@%)rjvp86dglPI?sM8cEKfZi%u2dP56W?IG=1G;5l3S$dKv2j37hT(j z+@IafZJ9Dx=-L(={r6p)?Ch|ctJlj-%Tl?bonKbkCIb5ZYTWj}vwdSiA$DV1%4sK# zd8#h${*ECe5RuP>z3kp}$#;f1eHl>*Lki1lFh(_UD}qN8ajBt^2u<_cxluw}r>1s; zgHW`5^=bjq);|6kN?Oj^D@^t}C;nNF_czL9NgmU&++(vE1D^ z4&X-h-q|bW^bFHHbz2o9Ci_A!Cna^Zz`7;1&_tz2XQ0pieh5L5UJQQcn9~=-I!Vc8 zdV2kYi62=RyLa!K3k|BkT7o$vh-+tWQq~0QSC~WY+Qr;uA0m7jH=&_~9>FfjZnfR_ z#IK;;izE2?8$Lv}SCILgefqz!H}6D4QRe8(Md9(6yi)SfE9UM=kV-WcAA!RIqjJ!sVgN0HCLXkqPCeSIq1w zgWcZv0k|KSi&&A`H|)W(y*N&JLRl5nk=5K#Q>rEWJgt_-N9a?1GKEP4fVB4U@Sez* z8O4c&as+zuwA>1@>>-DLdrAC@^KRR|-Cb)T?LeB4oVQ>>cRCtp^$&kSo)L<781!pG zZ+AvlLUkPEL(8z4T91!4%g!$P>TvXmZ{QpcdgrLO4)O@lFE@nKwwJR)1LkZI>E)yi z2&9QHn`OS7Td28xGKVyO7Edu9!sRW8ol4Ola=a^Lz|=@QQO*T%KmCx84<>&xAkSWk za|T_Aiu(4kWVEQWcR8^QJ%~80{|`#QoYp>1?0>pMmB!?D5?l0v+u9gPU^qMrqw&Y^ zTcxNeXJb8d@SwBJO1!p+>*0irxPDz_%9IA$+f?e!7sXWJc!>kcZNfGn!=6{jHl}-PDk*K29x|lH zmQ2E0uu29!IB(-eDGzZ>=#bt%B+nzMDv6c5m2H4@$yJlTKNU2Lq+Tv>Gz`yU&%gp# z4x16qH;!{G?XDNrJmq`>YqS@Cv3ZPbSJi97zRj4?3w|v_22(Qvaz&4^m3nmCP;W^I z0#J;gWnbR(I++!5&v(=0_rF}$d{2?-kt&h#dFza9m+zen<-~I*VV<~_-UBT@v$c7w zvGj7JrP$@UgW)ohG%*qk1o&gx=jF|={8eVuLMIcKP31Njz6Cac7n^khf`YbEe5R0~ z&<5XcR+FP4=U>TAvDV|gN}Io`#(#ymvxZ;rkSl%9$^L1n@@u-*>95PwwVYlTC=GbnL<7yew3SsJ|Fvqe5s)~qgQUgah6^h=&H9!gSs%pxq+ zf3;WWZQ~Gj_B)$J^=82Vt0tjxu*KtzFweN>10je)<6{GuY9yG}3Jx zrP9vboYi&mM8)UsvDzKwtRye4tYV@*`wgGOWf~EeThb*|eKJ{IC&h7Rs`xeFFJSkq z8F#q_A)%pKY)^oK_hOPaaKzw%ymfHP>me;;M4OYEc(R&PoVq6mn&x$=;*k-2XZL5a zoSHn29^0IMCu6bHt-*6EFAYiGxGr4$sdssymh}J+uVeeBsO5?PkseydVXYp&S7!Db zCOV)j4;U?+oP$bzoCvffYvbgHmi6>?{@$V^7)%Q$G-R1`VK-i=>u|5!VT>84qT9_x z3SRs^5W+#mi8y!eCE29HP{t;|kGsEkN)*;WE|3Hq zx#9~$r@wHSarKzPuhGLI0vI#eI^K`SSN*L>zF*`G;c_WaoU#dGHpMJi4g$s(m3 zId=T`H;@88qACJxPyGGZ%057O*l3wv!$npk^_TJ7@{Eof+zqE~`=HmZ+RNEPYr-$n z-sv@W*L`mYGTdVpW+5umKCpDfis2$t&l%;v6m(o%;+(|eu)jnsj-DW%a*JJ4phdAt z1;qAtJd(*F=){Z}J_$2#_ zJ8Qxe*n!?|UnVpGSr6%Hi^^9-bTjXDrvB%y@^5Q-wB@+2OIttTLoRCA!uDShi%g-W z`T*1asQfN?;UhE|h>}Ulz<8Jl868_Y(3e0-s~d&Z{UfKHpf4LUB&@5xfk7%VVhq<8 z(1+3ReEbz~yAwn+dO;RU(@vXa)taF94byWwq!e=qFwdZehqm*dKAI|@Y4+Ohc4~V{ z51cwy-rp+luQV^|VPnV6(^)ubg}#13$%3p`ODLc8k8P>TvX6(l97GY|B|f;fA8b^5 zeP|M6OAU42u$}eu<9I*o_hI8C5`oeEa!iCmuqCqSb%S4?`P|%FX{(_WMGqvhqfzeJ;`F`I)7_xjISGA#C$rLO@=_ffVpkU?WWTrk;mjHex!Ls9C@5Qc;6NjTy{94y9!0e6$*Dv4 zn3+xdWjccUbf)z_by3S*P9-tTFnTlhU+@vgw(Ltka)kWXRnbp*!mfsFETD2mbxgME zoRf3#I6zwjL!x?HXZ_WYRTQ{(&mZMlL1$!CN*#NXhzjH-8vWzyu&CaGb`7e|EDC$a zGqJH>Qd@qevYRZD1R^+G*zinB_{_q(x5r?0s7Nr}w6Rv4_HpO$twcD@et4CC6Y;S% z<9dK8omrD-5-TU{NEEvt9n|r6p-a`@PvLS{A`}iGNI)+#~Mm>gw zR27qyW2-`*^zncIxZeUdgbh2UO4TxJRvz>mcg%F5n^Y~}8!mx?m7V$_8XgM$*2 zHh8G!ALbcz&dSLVjGXihOoW(=#Nyb8A(kpZaNEvqGqo_9u{XW^mzI#kmJCzGxa8;W zXMnn}p#z(h`S<7rPJ^fb_WXlT`nRFmzmEXCLknBsOL;g?W>X9Ic_$dL2q>17bcpM# zt|RSTD^G5becX&fNv~K50mT&?*vnS!1vav>c;8VAm)`u2s#fvYGwV30`^$BpwLlbk zc`q8OUD&+d4q{@ta)M?TW}@gS{SG}+L8&W)egU_1q=E%8y)gEJ@TTiq-?VSeJUMpL zhIr?kIvFjGZQ;jYUFWWE{Y;~1NVVV#_+*0pSzRmoV7-}=m08Tbxz^SnIF6q?H$cNw z9wo4*PwZnjJN46zS;C~pze{=)62~#M8MAs#!>`$2pvD;|yVjD|Qp8%KrGR`182jAu zfx-c41$iZL{-s(bH(g8Ld@sHwYv&cvO0{%J(@O5?@&K!X*4Nnay<(z(RA>F zbm0z&C|G_$Tu`yD*bgJGx#5y0I-eK|WDvZ535pm-M=^L@j2goaJ1^M|BgE_s%FLioD@R95r6O$AZBYsW zyC32UzC)_kwMxmKZzILi89_0Xydj$I5@YU)%Y9i&p|?A~h*mX_X3AMUz6UWh_E*h7*$NBwpB<3%EVDk!dj ziAw>w71I6QOiy>l_znl~b1j}9R;|J{@rtc*?|6cm0rXDoVy23&^FWdTQed}xc z#?O<>(Mp^i`YM)3MEJ%+d3RkY?^j7{@wz!F1?rk#x0fIeS9@mi?iVA|f%C(ZVUF1j z4`9vf`OemDCuU_&yCgMeklmy}A#$7r^r69BQXMVUqy?v`V(6-3J~B2Owdll~#<>Ru z9=Q8>Zm0gz(kjWDsKtK2k+2&ntFi|&$&~Vg`^u6UBhGNe-`9Lv#74n%b$%j&;4Scv z@fy8>ztQ#UPX&nU5a*kG_VcfPDZAhgnH;!SimBYoxfVPP`hrLyYyj@gJL`5IG3M_w zS~~!)ok{0xYy^FZd4o?T6%;EZ38=x;ts;O;I45obox=9S*m|9c$i7QxaqZ{y>C?ww z$zQ>iul-9~xG9tU@h#WfdzHEc1rMqxSzler1fsNITpAkuI zL<5RQBQn)z^##CPFPtPLEC#KRY%FbQG7BX+Osq^tc;osnxwCrhn`>wH5wznAh{-td zX`xFtDQ+lt+2@P)+YMxYx{2zPDf*2LzKT-tBTOSd`mBoJIpz!4|j5)f+HDEn>H5i6q#8qTuDDZHK*o>jF^d_SsU zYykH$arY<~)qw&maV34||E zw#RNQOY}OaD=lOhjx~b^UU5oliLfUuQhgzW`2h~dms}ddO>C~$YPrV9qbhw=gDXyz zcv*V#UD=wFruWN-U(BNHF<{c2DrAD$Fu}HQ*wZ3?Baca_$3pCYke38-<&Sx{u4f|- z9t<~E-n?0H%m_MAvI^{hVj5%E)UMf63hA8@vC%x?rm>HXu7zRfs|**~79nbcA7Zlg zV;lk!mLv}mr6xRR1EFzIujNNV7$d1k$mV2z4x@>6%~imjZUPsQ4=cYljc361vGU81 oulx_MMXeu;|M~yxgrTNIOy6jUe8{*5tpMe`*^6~zW}5H(Z(NgM&Hw-a 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 df3534bdf595408f4eb8a52aff720653cbccf3c2..5a888aafa348aceedff6560507d26e2cf4c9b9e9 100644 GIT binary patch literal 51984 zcmd?RXINF+wk5jEm_ZRFD1s71q9n-*ND>vv84<}jNs^#~U_eBoASzLE5D)bQ@*B0!3YQL&m=hpXL{i(X^`_6$au-2So_R)Lmt+hVxC|;1+y@PrOfk4~nZ3yg}Fd`6+5aguJsJJ{C?sU}& z>HE35YGM3#^BEmd18D;lo%f+?ezNtLCVcXg_4@EcbS^MUQ`)1m; zZ%)sUoLc+Fdzj32?HfYd(eLZuyp;Jr?Tt*Ona)SX*PD8-%>PQ%YAKU=t7Mno%MQF+H5JhPJYOfh^KsWkf&=|`!sQ#UEZbu1 zO?jzn7p8}5MJWiU8y5#tGbJP>9t8*2iaspQ@m78NAi!E9? zk|oT{%uG#x`;#3lyfz|q`K>o@Qkau7(^%NZ$VmVC#K(BKV7KYP=7e*U`ug3WC)5)Y z6RBC#bc@vD>UYte;t~+ZAG|p`);;^@PlG9M6u;F;@)mCOwxFXj{hyKz2&Sr7HkXh^8#f$pcSA4_6!_`tf29sa3q-iQED%QPzaQWS-mirU_ z5Avb}Y*v=Xyu2npQf}LOxFg|QIPP5x@AS-LM$^vDE-!NTNb2+FM^2q`seDMUTj)6P z=Z{-YfIy1%wI1DKH>a*QuA8>*`rVLFJ^tf^q@?7zbLTA5U3)8o+Hy?X-P{Tb3Z_TC z5g(YS=hEvR&BgAs=Dd*>tr^?tjXyt0p4Y!e$!YyN(e&YMe(egH3XB-Fg^73j+5#8O=S^PPIRBk--?&bir+dx+>C?P75Dy{ zPoG@p`@%VOULWznecy|Y*1dA&=jUkQS={JHO8xt^f=VRW_I*{2FD^b4cDBZceap8A zr)V0Qws|ulZEW1Hd{H#dvh8J|ddizOO9291BzyN#O5|F1E_`Bs#>T?(`uhBz`N?0} z`PQOdD@%!A?VaQl6n5>}g&)~EIW-SB;yzX?#8=2DDQA~wyVX0X2^Eod6a-tumc~CU zFV2cjl@Kl;dy3%aMFK~d0u-(#V>5pV0n87hfSL{HJdwqc`Dl2*qHDhPi1@M*TioU?gcH+dhQm@teIGG_mWK**fP6G{n zU%XZvu3dYja*&LS{(O>}l?8#;!dRrmb7`Uimqc|ty>&=gSy|t;??9ebv3YZf^emrY z`K|%B$R|(OLa!PduMAxDvUhS)O>OpCXnZz!D55DkHFd}$vzV!P!<5^y?@r1$Z{9SS zPvcpr=GoiYW@)9*OikVQ_va$N?dNxH?5?EW9;zKO0n`a4w5;Y%hCh155UR2~${18qGB-aT8Xiuw216b`RLomh94pOKOZ`>z*pNj|R`wyaxZO{w=E%K=MaE}l)KZ(rN>@u_#w+N& zLQ1TejvadL?r=weLtH62|EE9>WYCu{U#9eV%~$KESnWQY z+3JwSmv5MkAZu>ULrPZlDx&UgMXHNu_nP?mF@ogi66009a>+upjzrx;<9lq&z&qO z!sbY79{eJ1x8Z-{10>eD?A6b#-%V(YacFpGuWeRh5Mt8@tqLs0A@CA|jH~5<+oNPL4YS zm1hV2)9Zge;eyrE+hWh&L*C8Q&gWodHOGEX`hmh?ToaLvO@)*)KSxKq>Pli`W8?pbc`T@;4-5~}l9C?jymdK#pz+1G z_I5RPDp9xGsHku0+W8L-3D5kz$GL-k5ACVvjRPX0qQ%98 z-khRZ+{tIEeDF(zanxWy({oj>KH{n(C2yx^U|`U5?F;3%YHt!6X6m@Z$G4soA_S}? z`PNnyNKAty`U0|~7`+c~e$qQs>CaCD_a8o7;x=tgLlb3w4*M@b>rPyp;h{cN6P+Tv zp4+6c?anfHLbBrH<5g5tl2lleZEGX>Pyp34^$tiNE*6VtyLgO?Gjs|VQaXw(C^`$B zQq_L;_8waqYatw?wMgXZ(?GK7*7I7P_N!Hn2o7%aFM0Inkq@b;+f-89<#b=C-*`58 z`+OzpQ3a7lbW1&TSqrYuza(W45OBs7@o8theAzJI`1tW-BD^WeyluVXC{>$f@S7m& z!X1gU`sL2Ef2ui&wc6y%)9IO+!$OX~5fEEfp1%5wxJBYk6tDx2M52xmzI}C)i*Y6lNT@4bNS&*!LD^MM-OO7f@Isa zZHBDk4CR))Pm>rJ8h*$&zAH^Cp>$nr4l$*Z#F z<|!9mSV-wN@FzP}w`yr@8*p|?50EV;p^tyzj>ph6AuxmWD-=HIsjLvipFa4(&WCiU zC7p)PJmgMoiJ^m75X66^0w(aq`efzM8i((|N3Q7Gdt8WDkzc_SWD{95d zUHkdrufnkwBU9LUF~k`0&&uMW_qp(5s5P_u18dV#z0r<=MVV{YuGNO0r_?AD0&rVq$ z$*-qm^Iz>`%Cnx=+Bu{+bkrw7de`3ghn_(wl&vA>fR@P-p(Rd3YR!*?R$kd$&q*u| zI$Ymn`DnDGql4e3i+10>M-Ly44`r50pFJBb;%eVh9)R7Ns+PX*eD40J?S@^syPNBB zsJw40MYjkx8d|T<+0$HH};b05rzAXRvk?%+44H+N9TAlczu5G)iRYtZA z=2^7HmmU;&z&k0CuHM7U#KfPJtTl8l|E(j+=R&6AofVYT`(}zUicMP9ONpnP2AiT+ zEl`{H4t<_84)8kqxMauqSh7w8;q+Ly*Jww9fq?;?=Ufcw&(-D9Rp#QR=h0tl5V#%@ zej^=QqY=9s5xeKIoX5KE-rccno8R2rT(|itua)aBE<{hc6+4E?C{ytm-zWX~r?0xc zzFxH&FDxpD&p~7y6(vp00@M1~Cr_RLCx3n>?)BmJZfk36U^xwJzT)EhbmDpmN&vB{ zg$ECsem>PwbGC3d^Ug2wBNzHx5N982SRjB;*H=9xbue7eM+OI5+n-{hHAhX)h6UDa@FcqQx!$4u! z`gdK7g#XQ(8_mw5Dntq55$>JLinds4+jY8!6s^VP?(35Qq(2LOJx!f9cK4N-c)ydA zguY~X<{Q%!{`Vg~NV@TUz`YW&=YjrTzc{sWSwuxUySi2YCUR8ffFE(WrvwG90Fz@B zzkd5>(^=SDRW*2zvm|MjCJRZp<}o6BCnd+y4?ntHJ)E4JtGG+H?=;8QwpT^dx> zK{A25N{5}qdK^C;|F9Rh)})vGSl(dci$GrHk3T=&0}4NWz}U#B_L+ET%%Xs}II)b* z&(Ak_?ccXgEkozHPXxbJWKK?w%J2Sue)kzm`m&|@$=T6PZKuRL*eNs|6c1$^O`eLl zzSNQlM56Cbo3M$mc(WrhQ_I%YRzpJra4jZ2DamxQzgEKku&A4?@=gI$W_|~NeY$=F z;nq3CeYwG&J%pE(Na#RBJ}v_Z;fK|J0e~;{245WQDt2F*oA9fpZzZ9pr$+=81JwI$ z-;e&w+{DCrq&*Mq&e!&KVvEbc!O<`-Hs8BHL1`YVL2b-N!*%&Bz#))-k>fx^Wu>f{ zdA6VHSn=%3oE$FzG=M82$V+XeASdrA@hD158}4-OJ|t*=RXKgnWuXUrIW7wWFJ$f? zw8KTbeS2D6U0p_|0*Qu_oP6_^EgmQoi5=YJ`}UnQstQR}&)h>N_6CKfrKM&2_U*4; zy*d}hwte?*zLIDG1Vm4uIDp%5bE>+W+#N?g&()RXRMDP(d>}h3>%ziNW;na{%xB>- z+3+C~6O--&2braAaqElGLeoH1-PpC+h84Wj0ZPeJlatynuYNk(PQKf`rBa~5P;X14 z`ba~4Ihd{p*b_g9gIt2c7vh z)tTzN+i-d&{@xE!5s?M-omoNvNi);ad@9zgR^MJNBev8s^+eIHcv(dlH z%F0%L`7%2`uJOw9acQa7{*3iiR%9U;zBWw!N43=R7cXACaA6e5JY3(iz_RV+e(lk( z**z#%D@(t`Q=12gdA``)8R?FUjI3dbwtRACW(Ch%I`FUuy64{BUJl(tHf&vdZ1Yo! z7^P&fh2L@b(fP+G6Ht)BcF4)e@$>T|5ieq22w1gWO%en&E?pk60XRanD_vQzP*Awf zt6urvEiw@pym8464E%Cy+g@TW!g~PDfM^f~;Q9Xc#%*&zYU9snZPE|Fa_}VslulIq zJ?-WYxK2X7J%%-36J~@ZmmV>X%057 z?<}00`lX&87cN{tz1DLd;iIFYOHexQ!*cvMn!LHbaDA;;mS&^eL~4!Top|-eh6*$( zIWJ$5@AwFG`fGUDk|jSodt&Xy-Sc(r!rsPRzOg|@TKYEW`*-hR%nL82qG79z5;(UC z)_^}GkXFzhjEjW-+qZ9#e9$pD{jM`W`Y&Cc(Y|ouGgztwbzf2ddn5tuXxwE?Gf@kaN z>qA30J2my>q>+5ZgF_Y>odEfJ4+(`tL_~y#n^;&3A+L;#h$2fdGc!v@GuhNdm~Ysy zLBbz@CoCkSraS&M+b||3#$#bhv(&RVChPUCMN393b{;_l;JO)c?$9Kzrvb;9mPk4S3N^_n9{7I zqy$i-uA|cde5#hNrK+a3gPxU@6&$Vo)bC65KGD(9QBm4Jzo2RGTR;qRRVOl4hK7I{ zfzu>N($%z;lpckJy+ZGiWAbI|wr$_Oem%$&ar5TQ*={d!JX4YwwNxuh%Z7%AJwW19 zzw1HZ08>&epr-+$WasFZo6DE0Wo2hKfd>}+=#izB)id|e0-2`gLCyEom6ZPUN7*DM zBpfH-5g=`7VglOI833THOe#Pcv;y(Ixw77Re`svXIeU)+EEX!KC(1r}j`+$rroF^h zAbxV-z=18BH-k6LYBAUMm{xrz=7FxvY2eYrH*ZAf%K*T^Dz>AxZ`nz)i<(z9h3e3u zWfTI>$y$NVB4+_|`DgsUZWbIcv162uxr0M#>glr zBm^8#)!C^_f^K*Y?@?Y>W(f*5=ZhGR4(SA78IO=qdwF^PbgTaC2HEblZNV0b=WNxUtNF%dB8*)dYm1_E z)K}ui&z}wH+5)&?P%<-GL8BzW>vQ8v zOH0J^4B9S(!WQ6X>y|B4{Q@H`>ECW{*?IHUt)oYe;@b4azD$RNgna#~L0?8=^M>A+ zOoBvMxaj%w=dP3eay>-ujFjQ%(H`&w68>O1R1Vz=4Q&R&cUbq9w3@}k++1GzvZPCK zDP1*JjEwkP#=mdPa{w7}_wL>DfHNfYZq52z2$2OoK0eZ%-|{Tf2d;c@3k?hFdTke1 ze+c>e@&*OL?i7`j6mbp$ZwPK*0=&62!pRWGCp$YEI1;=zUV#rDtbk1@2djW2w^dZu z2)}gOQF7n@{mPdvfo%(nWIiG;UW$7r_S3n!x#pZ8_0wCD0|NtdavY?krLSLKir_XJ zJp2K7SHN zi09dmMe}7SIKHk_P zR9^Mcr3qj=3tnnTgIXIuG^!52K7*`6?~~!Y3sg6mglS%TBqtEbcKU|KM(}Nj1n@6X z0cKK%CD)#kT~9e0n$^MP)Ewj5!Pd-Yj+7Tca;mbb?w?tUyet9*jqO24v@9S3ByaC} z%xBRezA_OAusDw%09k-<#WkBRvzncaja)*O^0tU&GBCBuvJHxic}vg^K*+&El6H34 zq_KDceEN@eOuKoQnI&U&RVED@A7Ckm(p!$;XS=s=N7lSZL{2wSN#A#Mi5)re9RN^3 ztp7JapM(ZAm)Pcg=(&hx6zCKLAtVm`huKyAhO&$RllN1H z2z3e(_HoZ9KoZCi1Newn;IHdDpR36`?ERjtl&sR=_*B*8s;QJBYiFBXU)6yg%Ao%0 zH0eUY1Q5N`d!$p2c5YP)P)SltO?VM@Q1BIM#GDmF9~0mHXF}G^my%UbTXFsG-o4vN z!A2?}yFYU60UgPH>)nGs2Z=DR#1Y(CO^pJ*RC615{C26-&Pz%H`uh3_O0LTb({pn! zM=6m2Y>{c2AH9D4y2yDfMTPa^#V>B#j_TTgWwD1ukkTgE1g0@r{sEpxxtw;@6b~W>M1s4>WkA$p_tyfMzvO!UTR)`OGZa0 zjs-#|3>tXQQ7BpQMI-P+re=#;EgTHCpyQ7KSQnXYQkL+?CSqn} zq-x)_eS3lP*wgfMtJ9~w4J?W5E9n*JbIcc>aCK~tZ5;5N@1vAtXzWGaJx@X}YHS3c z-nc zQCV4u8X&u>maGEc0dffYzag@{y?v#R(<^zwvI%4bTDG0^;2(%Iog&NDT?e_W+Ii`v zpt7i`wG=uHp?A_w4+p5i)&!R)OH%*R=v;twoC>RhgG0hEiTSy?H?v*tO6QY!s4>JJe$BJ5m*29>(}_i#IVp%h)j^7LiP0Y zZc94~=|X_~6wK^PiW(283;Gx~2=EKGzuRcRuXywGT`0qM@7)XM(2WcVqW3ZFE-B8- zb22tg1eb}{`P%T;dX$Ihq1JPJ-5#@@lfS;4Ais;``wA*3I$+dQ5cXNfV$cN}#j+Fj zjHz*b+s_uIC zxP+DzB^GiprO0&p*y*00p7=cjgP7uC5AfeBQ!m8P<$dIGN@}VEUA%GQMtggEV5ZUT z(y`%T5xbvdAMa7BM;YWkcqamR4XX6Z{CrMU)~cGCH(slr#1Gs{R|4S<`9a-E3Ndj= zC>Ku$3jzem-4V(IVfIp-G}U3p24eixwzs>X_eHHIUU+r2Mcd0hFtLZo$wPvJ_wV1| z)7#7IHf5TeC>>{KYg;!oy=BW5U_f>jmfv5qg3Cj1!gm9p5EY&k5R@!iz^<*DwCVO5VVa;(Ms_q{j&jrl>X|FC!8A}Hxv(ameW z&PJ>Lf4=*HcqjkprT%5?I1b9OpknPl377X}d|&_W|Es%0^RYYOw8N~m@B0o(fbW@Z#CCT3pR3-JjD2rZAf@{rhcgyBni~^%;K3yKux7& zatQ$HW5t?*?`G&lEK#d|3@9_Nzg$ar@3%=>iN8B z%l}Hxi?WXX1M27~(h%Bqq&Vt;^43=8hIqMVj!oNl?W(D&(gOL7JNfYbJv4n_a?~fR zLE?qzcBqG1+icM*LkkcBp#|s+++0#p!dX1^2&nBxGpNjBJtCft9I^*wRZUfEYi|e3 z7B_04R8?J#Z07>LpJ;ao4+j|SYHW0<3OP>X#5L#PDj>3p3JNvV)j6mu_V$0EVBtro zE^!wBKf7W>?X?A6QH*qYTc4tOf?f($4~4Gzlaz(Mot-P#SVKd@dw1_HAm5gFxF;`x zD-T&A>Y~4Y|Avs2i>^4exxcTk^R?Yk;B6tHgx+1qr-!=g$2^L=B*XCPLJG z=832~|EW`7%gYnB`tUEiY52(x91s*1M&LmxSOz($o}ts0WpGPAVV}e)yw}{^5{O#d zzuR=PdMdl;?>c(=GPE^=7X%Q)U0$op@$tuq5bITTw%oaM!f2Y%zu-*<(A_5`Hx7uc z%=IAn%xGXv`1$iEY&%Shj97fJ*$#)mq%%iTsWRi^d*RPe06JhH$7BEenS+ya3@rv& z4(fp0>p^Pz87<@_Pr{AgEX*%Qu5?@6lZ)IpWiKSkgpO@=|O$ExjdVqc88{!IaLOW(> zuWfF2LN|K*-EYT2K;dg6?Nr?lh)U$xY66#;8Nqaqg5Z9jW8e2l$}#YaK!tFWLFv>W z>@RiI(&QVWGd<1InilvB5;Pk~T{H=R)pQn;kSn`_wFt zEe2IY5ERc*nFlq|!ujUEkN9NewDhnHlmp!RlAcgYOKK1LPh0o>G&I_PUaz@H=*z~-Id>3h z%K#&3iqrD*^P%2z^I=yZBB?vcerXdZ-iA!3AMbv$frLI}TAe!;jr;YPHk19#7aScO z;ebMG3!#qaDME7YUYW^nXi(~jN=ZuczjtpDk8O1(zts0O@deip(T;#^0h54MANmco zB7?Gu3Yo%9jACLXT7BF1GpXFuf~d{zlhmFj5%Vyk{-L!j_rn$Ku|68~A8S4E%JQN* zd;Y6ePkGHAp{?;f$;6ZhjlH%u-Mni2AT{qxty{8<*UHMvA>{C?My+MrdrfJX-ydR$ zYp~1UZ);jB8Po}!G531~BqO5aa%U;1~Ad*~;b z!`lCo#{H-g-ZbIy`TMQNe8C)#w-V-g{_MN2Mdj6^${L#JxS2rleF72OB)@fo-x(w! z^dnqXD<8rGx7-cZUuOF za{8m~K}RLGJy6jAK2Cqr-}_vtKelx!l>)@#wYukLxVgC@^bmcKtM2pV;9D&&=xCh> z4bUV}8y+uFtf#M~Wo}_{qWSvQtBiq#@7z-PWDyXO5)!xoK;Qk8l+3y+S8QzPNJ+<+ zCcn_EZh#s`P`*8}sf~m%57EYRS24(|$cD9mTfeiEg6>!)&>X2mit3`}d0E+{{1t@h z&K*0@XU)J*Iy=x)M#Nb=hJa@Q#zQr1xU!s@ue-k`lj>Sqg+%RYRFYgdQ`XWrnnjZdyoyQQ5-kW&kr zbK^e2J0NnP&`Qb3gs(Xir_sN3ZArM0@a=R;&<@zDa<4V$GNU%Q)(|_{rLirXd`IIW zXIBoww&LtO>+S9R{rh)h6gVlipI@ts4|#zz{y`NSGLr~MnbenUbrf+Kf39U@VPQdE z28U5b1hJiea%om%X05CAA%z)?#16!KiZ41D5ap@vXXHvf zmwial0`WQX5|``y-c-$Pv>^K(`fJ+I^j*0UYY@3B`U2&lL&e6m)Wv$;2ybv2k{$!$ zlVD*}@{ru==%o~hulq4U&>*1{t5k`ZgV){x`Lx3}=*g2ea9GfnVF_ubT-qa{LK+$w z!I_W@p&X?SX3d6(ghI!GKTXOPx6{LR@gyYV>cOkf8^NH0pWd`_W4r{OiODk$HIi&J zx=3XQM>m7TEnWI^?*|#zU-#EwsD_;Fyu9F)e2j<30agRPP4~Q(hxD-*RBev3{&!>o zchs7Jd|ak3jhPCY6zwgsrFQQ2c%hU`OH0do;>6^iKk;;5AO;f!R9joFCOSUzriq>k z&~Lwh4Y7+^$nS30v=!c%+Hc>!H8xJd0!Md!{0vqXm^C;oOif3J2sr5k?T^9LVBDJd z=8wFF##dMX;LJnKf&+*2eP^c!f|w~I1f(&FR>Chss25Fhnu6hMnt$NS1GU1gUjpOz zKWT+O>G@suj*h%d07BQStw*ubpoUH%k$}xa)B*&-==UX(4~C2(GCtF*dH4-F;cINL z(|){r0J;Qn^5>cwM|*oWcxj!7zg}_*4Gs<_@~FNN^doujvH-;*INz3+8`sC44d_^l zW5T(nv`r7V4a;FUSq7klsPheP2DSv$B0w$tguMd;^EEtQRL%?dkOBjqIdf)p{)-o? zNoaI5ER_lR13=o*&Rz4!34wItPeVghb##VDN5#)>7!Wk7B1h1q z@TI4vb-4|tqYToDT|b4?$jJB+*)+A;&E0)34gYXG)`m}8``cdeC0p>?C|jRuYpq%{ zI^o+(1QkEo6$Xb3?p72o2IM!WEXgV$VzR+g2Qy#1W^aGevvF-{*q+Are_&hrzH!qg zC};p_tpMOMO&<|4NUcIngU32&ZW@nv-fd^j+;X+d!tYhgJ&kmmmRYXYm?fJIu36H- zig^mId(zjXBi{cM*I!pseV^$^G7oG&vb*s5`V2(V4euU1EOS#|b-0z4RR#9bX!csN zyG$QBO-mcr3o&T#_U*?xI4;P^kx9In`+2YYB2WYIH7NadA_BM*HgdU0CI|R2a1Z>m z{%b$XqTNi}?15+qjMW4?PBb##4O@Te4*%DY3gm9ZT^)vN_f6p1{=bbh`HNIA%(w18 zypa%5^%vPTrp8hOhGrEkgGHEUdQ0`<#jG`+N51RD-t~((^B1AOM))tLnAZX!E1o|6 z7G_nNd>2r&_#Rwe)F&5n-HtN;wE#Two$FTV%5)}3c&Mpzwc$T|dh}s{M5QJEGYI%V zuk}v7GAOiQoA)ZVTNC7R*lj`80VY5hD3DRv3H**sf;MjS#@ecn>u;v5J$v>_dz8+LB0bm-8B?9fmzbE-%EPn9jA#Y0d%fKaOI-_5M@n=z3bCRkLka2l@eQa zB0oIQZjni3GUvAR{QQZ22U-~TbnQIz<~W(Xa4nl>z=yc*g6u6VLUi^FcIcN~} zB}OJDqHl2g`@6*ZFZ9p=2Hd$L2%HG;<6v)(_5_4VX66`D81((N*XwH-cGvsE6Zq0$ z&Y6d!iIw~=O85gBfzOp&;Q9T}Waw0{k#@f0lJ(|!;H^=*ke~(OD}$>&ARs{H#lLNR z%Sml{Ke^oh&w73IV^&h@9l*J>Zw>f~eop}#G5cPBv`BXkoVdN`konSDRRS>!!k26xOVS&O1RD^o?M8M|h z#CfBuS5?&1_#Fv^%W@F+Xo@WX>C@8F1CllM^qxjXcm94LRk7Bn`5gbHouC9qc8AZc z4J)Q3r)rplgbJalKqOzC6klz8zIbZAGt5w7B{CMN>YS4Ez`F5ANT8BIZ#TqL2I7PA?rmtvbE^IM^mWo3q>=BIQYs=U_ri z*D0`Hm>R$=#$#dU4EnjGR_N#`ku*XCLe?>`5)kqr=T&<5pnxViN?~wdV}w05Je3UJ z2?}T48W=;J0E@L-3p!FFu9|4wZ`^zbTMDfPIn7dTVXB ztv&q@etU`LNO)9$3E?gTffS&_#mIPeP3Q-C)O1}nK}l6bWeFGwY>VRW!9lI`NQs!= zKw;>xfl3k{{SO+eAMqu#F0%#)Rvg44fH=5hY;2sKi4OE&w+i}rg@UtvmT}>my^Wz@ zA111uJ_~o4pK>L{B}sE`C)D0P{^Cqers7t`6C3yBTw)Cc#F6m7ZA?ovV*5``O$k|# z^XQBnA&#ci3Mm=D_%lUZu-iU9KuoahN=MSEkQn@{ziK6O;JqR;&C0@}kz;%w(%wUQ z$))9Ggqx*_33Gq}77XpJQ1s`y7KJwrn1%G-qL|to7(*5@^tQq3byR zm5lhf-<~A3jd&Jfw~K~fq3Tp@>|nvRw$@hlWEDMh=VD@Al^if<>LAkcj&X1hc~#cX zl+kUkr-oWDl3apQrb3h{;NZpL_<;rZ7xmMZipEMTQr5+jFdw9Cj2?n$d3f>xc;BXI zyHmo#Fi!2H2XA%ozyZ}u6W!Wj|AXLJ2go^4`cKId9GcP(Vy%Jfm?GdE5*CIlQ75Sf z&%pfDC3bs-aweuPNa(Muz2f&_`~k8h;)i-ZNn-6b>2^5S@>1TOKXm~E07lgm#d@5g z#d&H_|5%S77lh0YrVx8RvEDR9-Uv2nj3$v{PrcAuR@ZZ7WMi}JuXzl566Ov*K2?$* z0L;k0lF@KCVK_%GMiCy*Y;f$Tg{TCs%{@cBNN=N~-%X|Cf2E+a0WFK9szNf6bzd@Bg#%vErld<~JHt8k zFM#4qR>2OV<28Ki~9+{I$p z&Ve0`^Pl4^Cbu=^hHkif|e|rH$fclX9iIDcsA8<3#V0Vg( zL3e072nC{ucq~u10w}@K348zK^t1=Ofh*!OqoN%B!+~^j?&gL1XY<(;b@t1VzwF&N z63cdP+DY@1Xj*k)TIa`?8qTpA+2_J^vo+a5(|lf)A``R1!NntxX$MlKI+&B!CKLE3cq6dRk(KYt)>gCa*F`{Ro!DVtQ+l&M}33u@>va&AI zgQ^Aw^ij31va${eIVOSXmmFHhDTL>p5;x-#kn7Sg@Fy%B_3?_Ph6Zp543I{~#`Xm| z(5=qgjC=KJ2E-0{D5-c%ycrp(0wtoNhlM4kr;ED&x%z`2lNv<3jhY&ONO{l1pUFv1 z{gNe2&qMx8PD$C3GU4(DfJjD4iZm!AgTwCw>?Ys_@rpv#Nz=@clBlh$gpXAQJQlzx zxcuj!MG@ zv*EdL4ulw)eXCKbU-}e_Qi?-Z2$W5Yz*$- z=MU|$6-qo7LCi!weoUP2xpZ_am2o451tgqjo(pDhk#1gmg{d1l4DQ z%RgOobF&{CU<)kA=?i^e55czzObX$-_yZs_F4>auN3p-zaTKtUmp8;8bH+!XI9|?a z167#X?TP4UP1F2fyxQ%RhpP*q;=!EjF@Aovhnz0(v%yJ==ge>U^|GPi(NoTt<^zIR zSy=)0W7z%x9vn}&f3W5?feI%j(!xky(-SASWq~h0-QG=u2~ay+6&f!2mA8?8d+GkT zh-^P`uU>yfc>_U=6np06vu}|2w*RUHZ6}T~&i0`+cxwB6 z^-Q?U3?F~ec^Rq-GzD?@nY5QLl}>qLF6PX&I6HPS+oLWbdJ+;F!-;Ofw3L)9JDQuC zK;r^Dva_=@n)&#{C1q}Iek^Slp^gbN`<2%-dIf(L77Dp?Y$nugt>oEt_qzR7g4vJK zhiu1O71A*3)a|tzjrr8RzGk@8w27~8dc|(r$3&rdot44^3L7t^prBx2tTBfNOa6?U zwDeXo7*QeCHrbp}RSm7^DfU=Ydwm>0cl##OJKi+!`|Lr|EiO!3WXnu!pk5DKANqIo zN>Eg?K*<5%!0EwoWi&46ai2bYDpkg2#(_Sw{N71HU#K7)8d=Y&qKtB--d=%K3XAPH)G`uf zQ$p5eA$hxi=Ff$hV8g{d1n<34LkjN3*&6n`Bt7f|7I8M74T?wP^366sM$&+VnuwgB z>}VG{9w*~oblit^KS1^=k4{^Zz210;mxGO&+0P$&{On5_=uel8gVq<6Kq7fFP8Bw@ zKz}UU-A#A> zofMU1ZF56l#OQqEs_Y_q*2t(2d%!;lj|rlU6o%;eJ(pYw&Qjhz6LO`dZ+??63(L9#lM1mMiiA{PM;H>x?WRmrB;QG8V^;;1wfT zLmVH+!38~Fjfo>6W@gxf_{q%7Ofb{=lib{7O(r>Q7^I@(zEUQ>y7ZyXp6BFAM<*xn z+*|k1vP|x&!5>tIb3&_7fz$wc7ZY=;s;ZdMIt8)>sY8(Nc*DL8trb_YiPHVAXI@>n zK-?oP3MG6$lL8E(#Hm;Z-7V`6v3-|X@ZRCgroZ?nH16)%@Z5D5N!Fto@|lYopT0`F zh%h)wwP7fv=XU&mJ$=_I{PZzIVL~!)WYIysN-19cp{rlr88CDGS{75|-hGgOeY%dX2z3uI{zyFerT!AHxaG;e9@9Ur`=QF^%SR>&53tJn>tTp2S^9Hs zk6&C&i~+(K!B?`&<^nXbL2+TpXUz)YNNx3Z>iYPw$;$W9pVYN*~#p zJ7LAxMM5$MoeA_-YG!6;VxqC7r3j`CpvRSXt?KnJcJwN%Tro5R^!W;xx2~=(6n$i3 zRB^Bo^7i+R4eVpzd`@M3X--ps^w7;SS3Q4z_hb)3Z56fvz=36a0t#VpK^r(Uj1D5| zWfdPid$#%oafpdklyb`>isYy#TkhvVOR zfvh-)02Q;DwdhfsDhJq`7?1gEUT^UTvLl$efKis8iz`CV!5E}%YHBK4Q+Qe4{hEZ2 zKnRNirIL&95G^fo1PB%$=TRMoc4)^<$;w+sOifKm1OQ*!1ReUv=dU|CO(!eAfLG-p z6%`mU-Pg9n!JXsBKQ%Y=iHYf{tLJ;l!rKlY)7sLqg0&bK9!^P31%=40^b0iz$`Q6O zm^L`UAt8afY$vLxsi{afCJ^uX`ZiBUViys5!`i z`@R{2R(r&FZtl96-v^AzX6NM{pv5^AnXfP>YSzfa5xxjsc@*Q>D+5>y42~6eE(`g6 zFk=~h`0ydn2+<3OTA=WWNP}H`Dgv3gu&@wRs9k{$?)ei<~Olf2E3O{uM>R(>TLw3iRhmiu5yPkN1j zB~pjmN?cb}m5+rbDQI{rS++(RFpciR&dUk_qwj8Rk%E?nqbwM+nfaSuKj9XTkd%z` zymkwxA7z`?GcYV*Jq9!11+}57Jf?&Vp462S!+417W3fO^XZXn2>lx#3{wr?b>oB|d zk!&My77QszVzE;uTtt$o(^6A$@3dqAIN50UbDUJ!aF3#n4lR5^t4Wv{!?jSCg3h@I zFZJ>tVzJ{So{}*ml^sw`ms9g3I{HphR@OL_joOCG;D z^5kR6hKx$2`73%j-DdktsHrTPyXE&V!wa~E;;#7ZS;WOxF$r)b@UE54N(7BFoT)aY z%db3@BsI`0=GNY2bm=8eYX z=7zY|_p&p@!cVs#6IFapcIV%lQc>g`-50n%Zyw@~)I}dB=@-#-`^YZ2T+J6C<1qf=+|#V)Hq6l6fTdXsv^nwNtwt!Hn%$w~de92U>fuEjG!gK}u?5AhnJg|nHBKMp&!0b#ymaQwzl!IR%gYjyfqYK3wwIa6 zV2eXqd!>kDlE|)9(}{cPK(3S8ExPM0+harPKh|$Nmm^*2`HRj-)$G4`)wF;f!ZF$k z=2#?@yXkLxCak+l&Pxdi2~E@aFVdg>$A`%IUe4S`X36i4#!qSr5DZ*ouHr$YFJzbL zYSfGfN^ImuZ}`?eh=l+Bcl(0rz!emm-J*`KK84Z5#>7lO3gA-TwP#O;{tv{mLi0#u@}%|Vz_KA zxxHHKAcgv$S+amJApuTK8=zj4eHsxLu4i8YaSR9v$>paTa|}Lgg}jq&eJS<7h0OUS3Bm8Dg4fP#*t&X8GD?ZTG6n@b)1Sbila zxw(0HdHFFPb;Bceta>@#4xVAyp)vQ$pyO9-j6*T%;8(P~DfuXj=0{J@hb!5z#{yS_ zXvS-^A6oPlxWADam}oAMvt3$;blxpofMqa-;7EqN_10szDvj_pOEw?E_)WmL>0FQt-JbjTgu4tMI7wV{ zNAx-5xw~Fn1pdHDKSyE#)Z~h)x3b)OCGz?&sC!!Y#@|_!z#f@4{ z;Fi;BXjaJ+LuK5T>^FFa-Jn{hhH)I^)Wh$8y#pb^??uvI-+MQF*!3R(c<%%>6Uz`v09KQQ(`dxQU#x2{lw8oTxyHz;UNkJ^|yI_B< zYJ#yXG?FyvUU6Q}==;N*GBI!KPuYi_j@DXkx^4u^-Q3P_RXP@n!-Vg+-D?1YXL5eY9wk8DlX?D)pLJk^v5-cws0aI$b>$0a+En_u$|F;Kn~X ze=qcDHvAnJ1cq3m$V91EVDIZ{*IP;E;o-p$2_2Z&DHBh#dRqNg6GQN4RKMAS0F-J1 zDfmOeSW5<*ACX4Sg2cc^mJlCb=^*&`Wo7ru+d|RacgfYYz}5h^GO_?_KKa*ZI70j} zpwL_J_v7@|uxC64s^zp41}1Jk!eF>Db3K^movomZ7#P5>ed+uAP0Jpg=&8eI#KDK? zS%|}jXV3cjL;RAH!al%}FYoytA0y!j+;sW}M0D^E5l^1zC@Eb5__nbTcN$ay!VNOV z?%zp5;vX1@qXS{|Ujn+usV8;e&FxKaOfQ4b^WK&3Rv&oeW< zKw7>F97zwv7(3&!W2lTG$eXcj z4K`6x(QH5YbNIWG@z3Wsj=Ts2?*ww=oT~n#(POH8VXuQn-h30-ESXV*nle-#w8sfVI7{@TZ%RrEkvY!5=gpusR4fh(T`x%Yoftj#KIV-DlR9lz;G5=?6VS!E$W_jWfJ)k~7F0Noo0T~@Tc)wsZNccsJTDD-h&}JkZ}!tB+4cO zH6|_axF2?-_XEHOAB)4W7VJm#J>M6n=FsH&)x zi5z-NoZAQs3Bma|3dj&n-7=FyP05X53qfS_fZ8#>mW%ENq5XKT5GpMo)XTh%uF2W^lDArEO_)H7)|LgXw%znG?e)q82G+2^@ zG^nUZ_#814+_>@1d&8!Z`Ti)t%Cj=t($8dU-bUtxQ4~0xL`9cz|5&c-+S+J73$2K{$DNmd1$y!o>WrQP*#?dsZ-fXPe{_GUQ8K{e_P^b&AE410T%uQzMNDHqo?#Co)mlJh_|b*wzfM4wry<2z)9j` zFcq}(*VE@C?;Nya4jGh?8s@a&mKgkMYHPPRMRW_Hm_e%F1GrXV0?I)PcK{s*NafD& z_r5!EG64<0WnD{)b*DgmJ6bQqxCUDo=2e#CkhF2ne3J{nvN#g~vr)6~()oexJ0e4DGAaR#goz{Zsm&jXv8Rh^YCcT47nZ@AsTWKbEp?Y0gTOZCH@yA5*MFlGWp z30ZTVXciZBD?1kTJYC}Ergn6V`xqLUo711YZU(4RRqdN_!7?e_@%8-(4F`A*yu#-Y zfMcAp=I;+06E%X!VZOV@gWnT5e9`4z@~fEG*q_k7qDNkI1x7@GIDTW zpzqf&9LL4X!otGCGl{MY;Pd(SozM8MGc%TM|LuMSVhbj#0{zQIo&3aFNdF3<;#{Qi zJ(3wuxO%IkHE-*fKKX7yNks*sHrGnl_O!5)uI_m$1|Ie;P0h`)&LQD#W(11}Y@u-e zJcw9ub(f!h2C4uo#c4ehoO%jUAX2a!U`*Od_BbjE=f^=P$mZ)(sP36?Aqr*le-iH8 z**|AJi7Ut%}v&&X4 zO=aJfZH^}YI$JlAaFae??x20254}2n)yZCoo(L~$hAT5pxA_$^&Pxl+WfuJ0`fx*z zlQMGW*SMOu%x{|aJII4YATr1(}4J#QXr|$GBuv2Q-gqvwigl8)o~Yl7gt1kdnfR?ScAmF@nngnO@}Z7%GruwsW0)L|{8`7atcF zg2k^=VW1onX!nRm2~lUZyc)Z@9OYf2t`BijON*M1OS6#dx1o{~^OhM=M|ULo(EYb{ z@j9MBRI2%$d5zMO@P4Q7^=^_VH2eeL(xEm?JSbkqu!6UMK{?}ROzxQ>zo@=dVE&2`j{k=cK`~CjB zKO4}rQ@g0Tjq$t<2?qPyYyONGJ|A3qjFTO%qO!;5mVH`!L`=*$=js4@a1eub-u3nM zw0;lTWbO3HD(CnvTfY2i*z-x9SEUF(9n1U%B=@aX7|N$qP}uGhFeJ@9IdJT-JcCIu zdiChvf2pD2Db8JD>@iWj@u1)LVDHWS%934DKXDJ5Km8MM<&n)l3`D`HQgAK5;$HFY z-NVp8zQo?a`6!UzKm{<14AFo7Mwv)Pow4dsM>ESDnUZ)IbAs9vhwyAz2hI}kX>s;W zoDioI*1=>0cKD6NF3?9&UVdwxdb7q97ndvEFZ6b=m|zX-GyBt2bDYnG0%g!3D(k?5 zBrongWi;QN;p$HBlhsaT7SCL>wsrmS5tfPPmU@?9cxSRBFV3nc_J z0R=889m!)vR22BO;8HeaYuAeOr^uN*W zY3{K@Ull^$cYIx5KJr`afxEdi@j{`my7b~9*Uai`%NH-kpIIe56gNl!EGeVI|McCv zOo=nLbIkDG9&fCI(KUjF+js7CXy5)}fcli29+Nv8K0{!sZ1#r78ys302`j=9lTt^~ z-Vz6Gz+doJDm~g7+|2uGSTqAjn{QN6K@>3-4MBPMW|(YZ zO68~>yvTJxreH-WU_$b;zKd1o@HXwPI>Bgu!2nWI69U1&zyMkktODGMrZowSb@aIl z=k`9E*~h+hz3eNXHcAho9h`)U)NI>h&QI>plQAKj_0y%-IP-ZQ24pj7{@S$^eyQa2b@N$&<-fG6d?z-}Ffb6TjJRQ5_Zdz3!XZZDOM$X!)23A; z_l??tE?nZ}5Eyu+~GE_#(cV3tj+-6bv#aFeMu0mq-`>aS zBS+fYR&K!*p-__sYhN&XN4{ChNH-lUHS}%eRdW~odP^(kPYT*|g0&N1(s&>&cea=d z0=u-Qc_VDoUYT1OZbzpAf55?nJRF(+`!5ab0qg*)xGJ$PEnOXYg~IAL#W}yf@g!Zx zu)&QD-(>ntO|s_oJ9X~7(+Z9yQ=-M(L8N&6&gXJCkdf`2oR4(C6bG4-QY}|O@m|>SSjmmGcR!Dm*tlWdGDkZNH<*8Hd?=$CA%TvV zgJl*nBgkh8db_uWV3zN$pZfd0)dTZfH%|y1KlNe9K`sAhcJ7F6Z4Mpa=KQ`D?qaV^ zPC1fA-|YJR!6#XA5m->rq_y}rf+Etm*;De@>;A(n_p{l#D;|vvQ+`-gpk(99KtzpN zeE-+q7VWj!-gf$$HO#l0k`b1fnW-pB%yEcWezlR=lf?M=3+v1G{XFvfy~X9;_w*+v zFrZjnbbhXOnw+pLCF{h*s}xLEn;MnN{~$G$e#+P9o0?X=dv`o2XqFz01Ao2=9HzmV zfW=cd^i)a73fJEcn`q!+01k*ej${wP>D&JKC5X}ogu-31W0=hlR2hfM9e;gpa~|v@ z;~3CVB^~j3(wr!G=z*tb*tJr_B0!=49WaV{gPu9Pm%Ha!WI~ts%pnc`69|RsY_1*& z(;z=4GEz=nQquLCW;@Y-ue7u@`Ui>_$^K%9hn#8R`40WM-Few0?CJpAt8mwLkrb8O zl*@YJvrbYJ;(E6>z_?ADZ2)jHG=>ivKmM4HFsvs4S#adFbPY@=6Gu2vDBtLH(Noeo{3L*n8d9$HPNef?T-)F_cCkQRjOK&+kM(Re97UO@MN zrv-rtzSVr%0|(|S-x5@yyuYy8hcT2`2avgWoj5!AwSOcZ@b%GOM|=!IX)kxG`-iOV zqIpv86Pi#k!WWUh^+KbftXHg}OR3W8?Vsu=y;Bk??q8uO3+_$A!6Q91GIFLKSA+3>E>uS*&sjI1JXm`| zzfXJiN-u6D3OZtT)Ldmr;;n1fLbzZ=CjCxR^b8F4`ucVsdG#j7$d4W^07IRWCMhkQ z;U0=3;wzYc2-HB>-@t$Xs+w0keo!UzxinS*r=S3L&LEKF{4Ek`Zi8D;pCa5al2i?H zREyC*GnOvhOkm*-UZMX0ospDL5Q)w$=L+dKSHFG#KFd4-_cN5VxFD0n?B9s{6~w2c zaP&6t!Jy-*ZWO+&iirlMl2G8*dL1}=^eEO3PjpDx%RL&Bg}(9h6T71J-DPc8uB0SI zbe9Nf2K4|9%Vv?EP%-)ny0&FZh7l@2w-4Mbb;k$gK@LF%amj_WG%Rn7`O7#HP<_#8 ziwD0eFJHZK<;R=dCyLKUC$M5w4tl6*&)4{6Lg+msK;6B&v+&iD65<1lQha>;6X2wf z5j5IpifGL0;kO{Q@V?Xn@62r^Vqt{_@I!}g{V-$1Hg)utpWne_#NJEheqRdv zvXprUASOO3Ux(50e0b7n&s9W(hgE9-Z17Ul&)cdpq=kPzy6shCEpCJFBb&jaw3~OZ7$T zI&F`14z(7S&jUYFnhE*6nu+rjZ!Z*iE>bAyDJdZCZUzRKl-UmK2ef&u0;Dw z^}@8nw1+mWCjGeOo-ydu_Qbx1JAHj8Zu~ItL>8J57m^q$o0q?N^Ct25Y%?~^6M6rB zG&&eCb=r@(xP3lkPh<^&hYsoKA%7yVBYGj!@Z|+NG_a(d5gaLojAk1cZ2tZM0V5dG z$VV$0W{b_ptp+g0JM9Du45*e)jB`CW=0H~YS+mqn#70C*QnH))WkIHEV`T+c!r3Bz zf2EM16yWKp18oExZL0;qfOX1U+ryz}&w`b_=Y9}h1Y^Ofs^Lo#L+_^DD|2MZXP%)U zY4-@P6C51O0NtJRbf%1VW*+|5yQ|1ujL(wQCH>%@jyJHLKxo@bLPAduCn?mVvoWtsFh(IIb$RCW00fK?jZW);o20y=n{}JfJ}udYdI!^g~qCl~25+h};3Gl-!WHf9}|!nK8> zplt}!_-ohC-mN{q4ij2E=sC`*qK6F`bHloISSAaTcRoHBwlrJ}3@jA-G)#-Gegdl0 z#A+SDW3-%HDVK0!+giakh?%cHt8Gsw(F&tkAOJTOZGEZ5a{Xw-K zKL%>9>Di;OsOZPfiF?QC&pK#XXe-=_+Am*t%nAa2TG;G7nv5W~od8 z3LG3h5EO*Ai6Aei$!P~}9C^;nDJ%zX-~MCsGa6^zNWo&+_DMWa z6uqfaN#t~6v*`Z8=s919UOS1te^8$y=;%Sx!*tg1q9~mqC(zTneR@3;i5&J(fGaVl zPp>DwF%mmHbc^4syKF;ohqu3Un|sl&O*Iv1V5ft=TlO$4BrLOn{pQ%A9;qOS_`D^7 z(a+-W!)&cD2ah=1sZ(xF&P*)uEi7(c=p+ge&)i=!P#$!aSt?HG;k(u+h!-3+zVdQZ z{8atsc6QHH7Ps>Jy0fn63YcVOV)}N}zbu_-o3`a?VWGNB6+`*-n5u?_#l=5q#rt*J zQ3vz8@4=b%@;VMBo>U{qOCfKpq({xiTNgSvfA9lTU1z#mofsBylMSJ7=#-uaE0 zZ!utti;D~5tkR?T=sft#qmGj4ZoT>#aD&JNuH>IW5AM{&u5X|+& zi4y}izoO5-+SK6dQ`uC}S~P1{pIz|JVKTdLQJ5R7eKIP_?d7eGw6l}zAOQpYRZ!N+ zpUIebe1>*?M_{hMxFrwXx0BkP>{vFd+l~cGm-d&H-GYbok61T+T$fZzhTapQOJs?fc&qAan1u^-Cm^!DN`&pJ9q4ebuFTlh>7jiGNcGSraxnbqO$U%oSYtqM&I8kfA{Us z5e&tZP92~kbsrO3B-L=fIC$I;lzu)DcV~=#fa#vNpe)M@(5qNzJMIJiyG;6*8GpsN)$WA0O8@Gq}ZrK6j%q@$xvde%t}~ zFE*ccX-sc9jmQZ+yFa5U@Bx3TCerXKjwxSB-SvVe&EvO&=ClovXtQ8>+a&J}yVDP@ z)Y^M46II1$k{+*!2#r=0*+vX~@P{QtTNms@IoVgQUY)UM#_OWlZ$=V~n%=ga^*Zvt71Kc4XlX z#!ioFt}(=3`TThoDz^_y9t0g>kYs1u&((z^EmM3%Noopsay$)a6|%IChK1P3ol~Mt z1}w2)e@apHN6@5%G6JP)2O&wF%J45y^fM+}QX10>uUHX6#TOPPxNrqkjTcQSx^0;R zLS>)_L?`G9O?PCKa}2d9v+m}jWEh(0Ifhx=kt6*wEq$fcPu+clux^STnRDl!JrZhX zBO_NHFXF*|YBA`OrYQn-&z0{lJ6~6D-HX-0U&j}JqB6o=r{h!DDObcj5*S?Ey*da0gfq9C0j`#tM;F*=I?z5?hQClBheD zU6QDqKsKPoQIxGGabXrIDJ3OX|Dk1hk4)EnZ7b1JZ;EPT6B7U}77Fka9T~~OhLdOu z_D4z6q7EK=k^1@_&7iQ}VbmxJt_Q8f0rnEQ%lEJ$6>;Zry^~>8D946}l=O_8EG#yb z)iLUpoz8a|yk-=WN*Ko>V_>j5-qf1k!tObqdXvw@Xoz3oAt(4~G_PP753$0>4=R_& z3sjDBQ>ewk?s%T5YY4a$dcV$Rx0FEU; z{M@iif@-I(g4`e_?exjCgwX0LJz|o>y_UTi_&fUYy5MLBmN*ED+2ENEZpiQ312+#r zQ$e}|P)GqIBc<-%eV_IrROVMS@!oIK{toH~g}KLn63>w3vH!?)Fq+7I-BxptAY!+W zL#ZL~=ipnB@_I>0@eCt~pomhL%Z$X9c;grv-Jg);D8>YHrx7DIetU z)jfD>kt9sYr`Y!Ky<-Y53oYlB#fr|mv=r>;InU;vH_^IMyCucNe87OKjKY@=^@Ilijr@j&VX42j@&nxJ)0p#$dV$e2}(bU z-4;Nyh&k9};m#4_Ny3>db6llqRLsOjQ{~72yK@X@zV7(@MLb{YJCKfgb$$zkUX<<`v^z(bur?Az+M5Es`Zn)r2-rkIf`Q6n*#X z87vPF;0jQ=-%N0SJu*DuCNsT&z(;Q#E`JSnhhwdpib^#Ro`)PrCIK)QmI((l+F#-b zU8_)TznQGcAZ7&)GIxWG5uo?$r>}<}&(5Fkeknyp8W01yO$vA*<_a@*ra z&FJgSz%!8ofQ5KrZj52eZ+s6aQBOcdXW%e`wbU@#{bXey+V)qvW|_q424YeNJE%MR z3uBEHb?i28TBcvg3Y6N6uHY6+El~0HZ2;4TMMbkei7)wmSzI+&|Is5(l6&p8>-QYb zwH>_3ufH|V&2hZKFOc}@af5M(Tc5pRAlY}ArwZWiufOwODrOXAmeAZWk8>G5mMDvr z2)eMyNMROs+P;2c2<8NRMV(1jOH?MDIQ#b3fPYDwM6{zNdFLbVeOg>epL%C+Ukrh# z>mgO3hl2^7IPpZ?Q5U@F!4EV0DY~!tqxnB%N_rU?=igT_Ce~Wk0>oAE|v4aoU zx1SD#l$MsZYu7AdM?u{8F4=Qdw*N&ID4zfF#Yvt~y=l&;$N!O$9y)sRq+Ac+)2lpW zISHOO{>+fw11BOl?9M9pz!e7NE8%RhlU|7Ek7(a`rW?S;~pd9H1@aTVP)!&Ez$lDdq z1GpeCOW48eyQL+K8%_7ZRa+PB_${|pJkJytUxbhVnMk4>=}pXLL}vg=oAiQqgNIbI z@8ENqDW`s)`~AB?NJ+IV3b^Rzp|S_BK4O+k+31sT?XS+x6Mt&~u9c9)G#RyY3dm0U zb5YB9Jj>p`g$Z*b_aQ-Gbo+DNPx8joCr{XkG!)ENmplGvB;XL~Q2i2F5y8SLbn5cGO_yJk+oUDuGTTlk;({{6((jx>&6J%T z&$-|fQtNOmWMyTkA0>>sb?oR$#;5q4=oNgUgXAxY%`?$zTgQEXr9|pTh6c%?)P4-f zl6dv-U-}3DMZt;pq>|3GUth~=j@^js2UwVO;skIseoMBTBgF!K6@Up;enpG78bwOa zrz^HHK=13rI&`n3zUJOLb_~#Q@^QV)ruNBoJX$S|3h^r@qf6jU@7cQ-t$8M--$MtT(jqXnN;uIRd3&ZVgETmD9+U1m9|cUX=u}?jZjYDg}_$#moHh+C_z=( zahu#Jz7&cD>U%CM4=9E=IVcHuu10HV#Wuae6OQ8TdYL0qHlRBLeSP#y+88urX*>Ct z<=S}%t--nnpMoE8u6#W6`z`ndJmf=|UYpqP#V;hDW$^GC)GGirWIsw`P%)NnX0e&d z+TMQI#2GEu%jyJIVaoLBI|NB24}{m~Ua?ul#qN}_{4%gMYzR!E#XYXGs+lU5n-oht z3xMmWzG%M(LEH-#0zN)sf&#A0L7V;;)`A~Fs-tCdI3t;8B_%CA1H;IueO#dU}-BE1BBZYLl0r&%6a9%Y&(Xc^y6i z^#gwskd}*Jf3p3M7=={6128+koMf!RkwZ*FoM)4b+7Z@{{h1sPJ9oY94r)$B#Xy#z zKmx5v`RqB<^)XA<_(`LM1WZDZ3evDM*7=W{!^j1?yob+QYA;5JKnQ^7`fFN=FJN*x zx1it~EbL`ld^`9kT>()eRO z=mbDGasT{QUHGcJd}x5Upp)fI{-;ZY>3;Aj_`>C;rfFp|hvI`?a~6>kvRRZyO=|K8 z?lo7Q-#K`mMFV%41`sQ0GCa~?Buv;NT7OUup+91Zn;(&n3~F&jTr{cgz^sk;%@g96 z4)h$yX}Fo4{UQ476$VR%bvne%B`SwgQ(Zxe7z|+5x_m$%xm2D9;VW)U9t`k}+#k4` z3v&;oo=n?T3wRMyxBC720TL2}50*gOEyLq_#kES-gVBG0H9HeWf$lWx%H8<1`ubgZ zVDWZv<}|?+^j)bhT)p z{LU-;=j+h1efa$OD0nou@OSqupcNJtp;xaqaZeG%vH*D4LL2zxt<~)Z>F5OAdBr_j zs-1Qnn|3*2x^bu3Ur4~^D~wSnp^lRE{YEveu*zre-XZdIX>^&Tj)FSO#YMiSdk8%< zLjG3{+VXu4AGV)&!`g6VN)5ZgXrb4{wU``=LJX|8jntNg873*?sl5)^8Z9>%3LeEQ zodLLJ;ubX;H^|EXQgrtr?61V8)f!iFiJ$Ud|uRh5;5d5(U>^HK7#*&$wep)Wyrp;oX(-012`+Vx$M{s@>6 zpe*vK`iK$8IWncCMV`48II=t_Pb@sR#RSmAzg%~QWgFpWjZmyPVay&c*L{vLP>;g?OT-tQ!|ho*H(@2J{a=|_0gI3+h>RG z&njnl0pew(R^O-2p<#V(6N8NY$uZ-?zj4e^svGXfqj#^@G;zm4qL80@Z>o~T!Khu; zzMSearIl#j{`@{`TTO~dIZ+~xfeKgp3Wfp11&W^`a~&SvQ5hA;dPW-g!Q;v(V7p4@ z&kcF}&ErYhH_wQBx0+sMjc6mbRbDCNm3PmCOWVaeDwRE(l@S-WCMaylo5Nv;O-+I> zUJUm?QhPKlHZ^jMbDqi4wGmyX4Ss38%u#RNe6?-&7h1LtSh>X`_=QW*dxyUE-BxeB z+9-4Ub8z{%_3rM{6V^XmA39YBTQ}vk2Rp?o_nfK4F0|m>6|s3SN@wer{FM#;^aZ2N z%b)Hk<2^_zG!aS-U@$o!boleRrH;8DH!X|_9Xl4+ zypr!~xo&~ZSl)qF7}~53)ycIR=o~5xp3a_KJod@?X=}4Tu9q)U@b7g(hAm=B{v>_k z4ABpD{9$ojlWd9Rx7gXaeLu*56&h{FM@T+6t6t(M(W_>3_Q|hEaK_q&$BKb)M~lt# z?gDMr9PV$xBF%gE43+#5C?z{jyZ9WB{ssmPQpyzkDs~LmBCcyZKzS@$={2Q$f(jDW zerex7M!`#PG7*2tqnYB3c@14ftn2idG}7MUZkLY_?a|z1#h8sKnK5&wD~Jm~0QPm&!gy7I^CrV#H7d!@)wNa^5x3}oS4m< z-k#jyB@URa1NMhuRyNsb!%O*3Uy`p?^;;L(1X;#@Lh|#sQ^$4a~FjZ zbknUg35v7DAafVfayB=dp5nS;q=pD8pOGru0djA*_ZmvhY zU(HkYX%6FHOX;?4+m=dW{>gd8>$Aqs9bbD$+?>>=bIhJm8$iIMv9qYr&{cNtr#;Zi zDlf|4B-VNTdSyk$jLb|)U93hgeSSDr*dR7+L3lM9Td^Mf`q^sAoCQSi0##VT?&NcB zQ)7=|*t`V;ayE#?E&`f@1wcw313<=fsWh=Txrg7~FV{N^z?Dc$4vvlM-lhGvIcIpt zg-sanj7ke_gc}`RP*wgQ(C^qW)#eRi7*+waGkDE9l?$X%9_&U8xer?-DS6A8>Etbs zO=MQqSwMNd1}rjxhHq|PJT&F;iUX++N2|B8>Lx$sy_0kApaW0tA365S`|0Kvr*|Z! zi9}t8?5>k?SU9U9Yt3TE@?$R3rcX!h(n(IpKb<=xj37DVynvJ)QmkKvdc-11D#PeJ z22^y8VRNCdyKOiIOP;>;t|-1n&!;?mx^ zy*@Bqc2l)_Rqjc{LEH}`kS7AWo0}V-n`Ija7JlBD*qCGQog<_33M+8iCnM<801`PP zmoANiOa&pk(pX;wB6iO17GV=XkIQpcblPjSY`Ib!7Yq)9H~5445WnV=hP)hOg`BEd zJ~i+kDpr{Z?%yFM09vUn8QbMd%jFqG=dqY4*;s{#i&CBcq&1}=L~`Ng-~ED}{B)Js z_C*OIP5IjT`iT))wO`z77p`_W>HM^*VM}Y#>)BGDRZF7GK6KjmCVcz-Ndr5xa5_U` zvBQ&t>7#e?@7LO8m|tmU=HEH)msN=g8%dfY$iKHND>C?5tAcL~M{B1wZ)Or*(EdN& znAPLIoeTIdEMt;>v{dEU1OH_Uy3aT|ckp~;e_%;zwVEg*-7u`|hwS*^XS*#`zkd2l zxML5_i-Jrn-X1g9EVksqdC%yVo&Mt+@!#*N{R=;lW(E<2V7&!R?rl3~;CV9KLZ8#>aO)|Fmh4gLo264-;+K-SXe4+A!9~Gvx84#s1Hn9Q!Js%%G0)O1tMPn0g zHs95fQ8w>dO~=cJecXp@v>|FrggFSlSmkN#H^*9e?a+Ieu#^#EDM`aMJSDRpy~%-8ONp? z)?vSRF%iG(?jGN_!3b`s;_|CX-G{+Yx_Shy%az)E)925hqt=bA3p&Jihhu4g*g&?2 z3lW{}X4uYEzT;^vjZ;4%6(nngi)K$k&6~0m|0bM^d%9D4( zLh0@kz6<@bN8{%cvEFW%w}3uCQqol__(h`E5fSZ^H59$9Gub6_Ibxm!2D0(^iR z*_AQv^b*D-wRXl|MBPT2SHGE+uuHSif`szB2E@ z#e;lU62Ia)e>GOiK;aRURz!|f=z8gX{bCBL5LX>!>a3=wfw|*R^S5*6~uCp;5Wo%3i`Mc$|bbFvE*P9{RvAY9#L5m@v46j~+%1Sg9_SOS>9)>`VkF0SxX*V|@yQ%3(Boxp z6=4AZ(iIMrs3>Dn_BzU3p4=gNj6D@7!*wKhQ+5g_k5up*h8XU}i>tCN3%Jb|CUw&$ zS~T)faX5Fd_!_a(Vnqo7oFP+lfzWU(rU^AWXFy?2u+_H$L015}5^dPfN&QKRB(t{c_BK##70Yo8St3xui9u~sHQY(Nx~6ZG96 zWz;w9PKIA?nLJu>I_GD@dk4QrH;xj(}IhV2q<<;-TpP7bn4s9}*nV9^(05l2@KYE^?+$2Q?etlN%QOGRJZbdSuQaiAu9Df#pCxu)E zzymG^U@(|9E4RW4&KH*eGb(M}lM%^1Vi)~jl%X7SHZ>WC>9|nDbydicV zFmTEI`K52(I1ARXN#8TL-(414^58}9=C#cf; zkHsp1Xj-$@<44ieriS-Imjfk}JYjeWYDnB(s4dY0Fq=!4fPU~m4k~M%q6V9h?48Tfh}n*qtR98 zQ@X0BOvbR1c$Rb180_)&9j>g*K&x47tLgB7)DS#i&k=Q|C67{Co+gLgZA4u5$1GR> zy=cZdX&;9^V15mza=w^4(`P0whomYV@VzfJZxe4`7>0l6tZn$KM+Ive&DrNA4iLmT z(5K30FC9F7d<%*vz+g^`B@aJ4epyJ>P4@mf*K->z?X#bY?6(D-IM;4n+MEN}>1Y2P zu(nmkfU5^ZLmi_p&q@k4QVL5OXIro+LhaKbd!-8MmZcZhu^*%2;$!b_1h+9Ul6=}5H+dHpx{O>hlq%oe1-n!`U@(=V6 zi#9?^fLOrJ)LtWS%lFa_a$dD}FR-%tpwz?t_HQrPb=5I85FGDU%iTg7XV)2$nA>FX zdEY_AWS!-{xNR=;uo6Dxq}@VJ1ED6)Zz1)V#O7br-+tF3*GiM!1NbgyB866;PNX;>=3H~TIh7iaEaxo_+2*%q-YQ8r&y)O81U( zOrtg6&Svtyt$Lt7Mc~|-GuNDIMoIR|CJDlz<*Z0jVoGjFs^ec}*IttN#$!HMW2eVq zq4v}j4AY4JI*ygiw?%bw(z0zgS!;;V8kZi2gtgfC3(1vLXq`KUO*~G4g-kjdJ64;9 zl{dFT5LCZtYILFA}a=YBfHzl2Cu}Rnc zE#pZw6t5gw!p^kQ^WB0surQ4SS8#1~9&iS_Gh_f_a%kwQzefeLckG^^PYVjF$ICG~ z&wBXqv&1^MbDqmec2&kNwS1XcejLz(+-BS|_0o@(BO|0)Tkh&w$3||rlqY(e06TVt zl0!2eK0H3w#h!-;B`Ep{YS!aO15`~@o?H<&vI?eBC+E#*vW5=flq#yK)_(dF#ImyS zO)boSTm+Ri#Rg<$Idy2$=Mzn=W4s&^a?Lz}w+ja*1Ke75dryL}NDPq@zCF){EnN(5 zV?MDvUB1CTZl0oG%1iOW8e9D{k1A^GaT=s5(}wI~N9DaK-zxKLGJ~`TEqIsPQmT^Y zSz1bM{c&2V^$O%-hSy3nKAl>G#+Eg2#f&gaJAIegn13jixe}%e!VE8eyxkX6w+Rf6 z{cUb;7eS0292`)^B5DkZBaz{#*~IqwLNFG39jGDpc)-02v(fjyr3m9a@(*K3LRH4-=MeR91~P51|Wf1Ssd)prXVt)xcma0MoSMWTev04df^#j@r139JMTYGE za~rPau1qive%2yq@N8fDe~1PgzgO5_6qGjA(i?~^MB%_m7oD`u8seMk5|h&AjeTP( z+MBWDYJUs$7p>!VDYwkhdRG4noBHO1ASxVG((*6=`GWP2%2}&^YXSK0P5)KvGft<{ z;lQC4(=MA`eMTQION~M!KFY7rD0NetqLw4-d9x$U&t(QpvDt|D6i%WVdcs|U_KF4I z&`xO$o10Y-llB=sd?(uSjo8nk=BE}K>9=lO`ufynR#@6Ag}Dn^5G$KA-LmF4aqr+Vv_R?9B5!)^27yA~nSS267%Z~6n;utM{MaUXB> z66Oh=U7BBIf1lRf%75T`PUpAM9N>iZ0qeiZMK8}hw z-*jzP8O;c}hRB6L6;SVV2K1wVE^Nm%i6vdjq80(E?B>{pK?D z%+|<{hy$qyo?h>tY5AEHjy_4=>%+&76?CwKI;v+zMzDWUFbJ|(+=SB4aC=Xna2gH` z4Vuk$u)IL|OcBi7(53xNXbSjYiB8@ov0p!a90mvgTe>KEVRT-;=jr+NuY71Z)@aJm zHB;EO>(Buu`?4$UW3;pup3aG347jK$P1dgYa+^uE+VKd6PFMnlU2m9SCUhQ<@4okf zPcbP7Lwq)6D&s|@^w>&Ma6EpwdpHweYg7-}G8!>%oIB=)^zOPoNau#*zZ9Lv$SaNX z^23!FbWKECLP6HKR@r zE8F&)b2`WB0X*%FJ4I`+Ekt7 zn*<;Dk4>#&nc!EW>qDJUI6-bId$O)bhLtv~(<{3*bl|`hIM-7AQgxpIIMezbkw*gN zY%Cr7A(k`L(gcm1Fe zheS{&+H;+ng8>0nqmD9ZWcR4;Omv2TQfkXCS!v4H^^TIp753RhN!m%uaC$7r6)wDl zK(2_%QRD$B)Kpa!g*L3)UuZjFL*=1G(V1CU!&O!NJ5gVBZ9jzpToPYD+dEd8hmRa7 zsC_FcnboEJl*`{@BO)B)!_&>zWc)3<)=twx#whZ8RTnGq#?E6hc@$|Q8J4~RG{^Gn z(wqH@)yI!tDz=WV)%@%)3Nu_Y>S)uC7fn%l);25Q>#L)NN$jGwvs}HJiJ_%ReQ5g8 zVr=$1(x3_bF>qTi&>1^d_RA0}ZnkdL+(!6HzBm-vQEZA>nPcx5nL`QSlJ+`d}34lGz( zUZ!JsQfrkxi%7}BJRPWW6l1$9d3~s@-Mf4Drk6X1TKkNt%sF8q*}JzehKJ8CHP5I~ zDb#fwRl@;vMF((rK4Uru|A{L){hvMDvVO|f_MVn2;r!2+D)N`QjuHQ?D(da9iIlQX zzQjQx%y5bCo+%d#2C1pp15I|5jR*+|xu{#U!03OYecJovgb78b1Q8ei`pnTU&Y9Yr zo>O4o9Mnw2rXN|O*Xw}BK8hz(6)Bd7CBNh8SMj3x+4^ew0V(n1LC=B>U59iIGZZ$z z_U?TiNP`905JNRZ1s573{U4tvkQ9aWrTTtURl9fNK;e}=Z3dP&Oc?e`TEoKU&^mU! zUU*aghcQJjx$c8FJrMg4Q-%n|{E{WJ!V=%GJ?#C9KgmkYljZ04=T#U|2Kcn1*mq7Nm$(!6 zp*?eb;gguHk3VV{<8#36*GO@_98ZxLI!b=FOsc z^Y$M-s_Yf<^Go$VH3}aQiRk)JBbOiF^w4Ces%j0qlB5y# z@X~8YDleMRKyjR1Rm;eu6CghO6_@sHPO2A1wccl`=N7k1_hfc+4DGFJbY$Iy)YMEK z9`r~wniCPGfQ0hUfTSY208cO5u^sH-Kd8{x6;){c5l7(+U0TZQ5N(ld`(gno&40TQpz@@VusaRNnkHcs11#nk_86`K+F@pg@a ze+S0%|0DJ-`d#Bd;qpw{J@s0S(SK5J-n7uzjJu7@-f3bv6tuhWWYa1mbo$GKF#FxV+#%8MEN&ue?dV)1N4L9S5U-=eZ+Z7NOM%` z00ht?p~=EZ6?Arr)?eI{pTm1TEmpHyf@4gbCkU9UqcNDs+Q-jqp$oZDNi5!0?@=PW;09P6O%8jf83 zIo0jhA8zI5WVS!oES0A01g`3(`+xzUQBJG{Mbr^lyrqTwv1vHeLj7bgY;;_E-Ho8$ zpsefRH)&l^;9RJRON;rz1H#@DEAV^vKl?AemIKhka8VJK^Y!yP4T^fq_k4(iu}0u< zh5f_;Klpm1+0%?=2Kuz`v8HsFUlm#Q{x$Iz zyXT4e>0O&YAaA@v3Vlj`L9Vp~02Z}=+`IKFA&8M#@$qVU?x-C1y=0s7i<7l~Xqgnd zpv*UnCl)zP!P+y4!jN6XVabbWX??qF zrwm2*sGZx~nuH7)SQ62Fx@@np|IA)^2*f1skF2pMc__Y(N?sSBZ~KpnV@av~7lhYSeDI%)ttY3U_!|Y~;=H|kl`O$KN(F}ES4&iEq0k$*BPWdX# zDc-(KSDDAmqRtxZWisyG1tsnV2igNC_>E;s0e#Pn7HM_>&!>_`B->R-sHE%C#&?CR^ElQkzs5P{aY$Bu1&^ZVCj`qe@z<7+m*ES%LE3*Ee|;RkpUqvt7N z^?>gxp`YQX`6ecnWo24Gzcvk&ym28R1Lfpaf*`{jts^{LUy)tmge;y1y05mwit!h5 zp4QxU-GMO;s7Cvz=Vrz(N=r?Zl#qDM8a+9TUMg$DkH+8h{|A&lww3C&c0Bu~qAq%-0tvDt4o*;pisoaqTGh?Q;#aJ*xmxRz&vq_jWq}=+6qi49%7as_lc*u7C(T6 zg%9bjk+H5aeHpbnan8`mxd-noV{<7qxJ^Vh&=Rp?iHGf)RWX!8Os`Q2@k7Tw?Q~9N zW(`k4^vd2Hb}TriG&()d_U_Fq?e$YPq#rUJs-LR0zI0e`t5PxT?3Y3}y(HfZ5; zD5W;tOJyk_uZAS?%V|hF!t0ig?}5jiPZH@I%HjkCA&5H$~l{$n~Gl$!7reDmzt zwf;xJfPjny7b@2U_xr5Eyd9u6YQg5|+kbt7(wkRw^iykZAF3J{UL2HKd8qRwW6#5b zm6fX!?#S-myH^l-?VWZy-5g{M)WpEnwi>7v1}a7iF~|>G1+ymn(63h?KKwoHLGUr^cU|DwJ_S+uFyLx^wrSoH=acE{hkl<9oMsO-%UTiuPgd=c+_o#af0MQnADWn z`vz`~;f~Enc%!1LzdJ-ND4RCXugj0h5oP&p7TBL&anJw4>qDKP0OQ+tFgXl5LczpP z)0Gc5I+JE~#VEJghCVfRQB|#5(d=HrV6ogS3a+pLMFea-Q5o%tiBYjR=JE5@0GcJ- zff5ZPFI|3r`XjCerSCnOeh__$lwr}QA-)*7nE)ywr^nC^cz0!im+;@UHmPC9?kcH&wRRvu$lc;pRyI_`h8;`L={j`izVX{P zcMWhnDzWOUaNLI+8P?m=OG`U@t67?}!P$b&a->z8^N}7+jk;pT=Ae`-fB$~C*M6z3 zxz@?Kino$-t-h)i3{`mjZ3M@!sn$idDhHIoS=!Us3_!7hvn!X zyKz!j{ls3o@1K}CeNO9DXLX=B{jWsHjB&K^my}-RpSMPP%(`mz>b_fto#zO5y?)5F zyJMhZs~J3iTW2iyi8P8r@$%FTfXOd;-xt%>w|siMfWsG@hTaznI)r0$MmxUFpkC-G zM^)w@7?`@^dTUNX(GLat^9;-Z{VPfAVlHOk^B}yg{QL%8W;#NL+8gXiO4Y<-)Apr} z`Z|t1r8ngrxH7xhJ=gwORLnK$=$JV-@9tdXyK;GV{nTXhdv;>s#cuoW^Kj{2`&$Z7 z)mV%*L#sCBgxtD+AN>SXHAw%=A=b$(GpmEw{NZ1 zJVNCFr0=veL0Mh8i!fC$F0AZ*S7^!JVDR@Ys4ly7Vd62b!U=Bo2b=T+iw8lMN3)qf z+}-TEzRngt^upY#S|kbxHG~#=(QRY2lfl8-U!}ha5p866aeMQ7u>(@|Q$>T@_OqHy z>Ek8tyx7FVb>l|qF54LovYAQBho@J^$b2dT##-YGg+iC~QfRj*IdCgv6XF&G zqWQ6LZVLS;cHDDW355e96=8ybd5qXg{_1G|e;v|eJny@Po&P()v1+>70yR;`-Fr^8 zJ8&4?iT*-+|1Coc)oKUVs_p2Q_2GnQ zn&w5(b}zrJ8!OZ{Ts_2~tO_(`8}+#ikJxu;8+awTTY_2G`N*>1yGnC8sk3s^bA=wz zG4*dH_1k*=clhZrhM6I~pR&KQu4?BEW)HRdqI?`Bm5 zQHauv;LWvOt6+kkzwnt7NsK&&^E1LYe@J_@@R)?3RX@n_MCM#~Y>%Lvanh{@ez*@&08py5gR3b92WX?W5-F!K$1F7^QF z*GD`fZ0gjg9Sgj7wV>w0*T5Ke4xInY7ek`*DoLVgbH-}i{(ahbdpqrLv+3Ntqh{e| zqMoh0of`-f>9^?A1QwG$3#XA6lf%|hG1g{j7~}Mmwb%f%YH*4Y(-Q(6c|<0KW)#)$ z$FwbJ0hw>;4{S7LDo#6Zh>j_kRKGRi)63Envqt?z6FTl0KbFdz2cy@9Cbjt^ZdYoz zoO$6fmH73v{<#*Ez(z()=FpU;yqL-hGj-NkF3QY#wz;MZc6_g}`K4WXYVw3LBgiNJ zF4q;?oeo4H)Dq!tZ4C5HUcO^AI(f_ExOYc`QJ(1%sx(_|_rK(`An6T8Tf+2mqZP!O&DX6femw|45#Ib;Yw;8(IYwEBof5u)$`L6Y=+@9k*U!dd|2L8UqGIN)TS%M3Zb&J6w%9C zqi;?h5%nNn?9xZ$*1J?Q?kqn|aK8xp-?8qJPeOn;2pDnCv#q{J)X8n8-ejZFluQ28 zgh61wket``72hA7fQP?<%##T_rOPSCD!lChwUjR(J^;tG-!{2ET%ILO$6TH#n93F3 z^Z)f_W}SI7vpjbD?l995X=N3aV5aB3n3(*1l~okLW`;ANzn{C7_qQqg9bQPnRfL!4 z0glnH4-#JFyoBvU58t(MFh!x+K!jzxHy1JM{{7Fjwag-C1AT>VxS<>!5g|nM94mKb znW~S+ys4=fZXAg&VRH{06 zO`WG#u&JuJdbGC3w)`efYLMg~uR?z(sv+UU7YX;H!;6)gtHAkHQ5h}$NM=8q|KA66 zBDUe96NC@OI(1P9lAFEvN4O0NiC{g+E@(Hp7rPtqoNN72fO3NC8tMLv9gLV z!XE*!A$xV(Ro@Cu$8tD5sC^`ZL}chrjy5NR2X&R44pcC`e@>-t3n0bdHAJy#>Q5vITcR4g0O257^tcC ztOr|a%f5c$3TH?N-!<_YGYa+f^>lNB$t^S`mm_&;JHNZ<)|bzb^Ez{;ocI;03+l=a zTnZWF;LI@(hjL@#4&6Z$^Z!~h27se<0SwMQw%)Mdn+FuAFic^r!WW!7?xP+%8rc6t zaZMQssS5%&()^YW^g#Xh@0uGhG4ga52%LeNoxm4vZ)H6 z2=0vx)%2Xzfkn}q;YkQpd7?pBjegitz+jzFW;$(dJTb zlIIDJ##H15udg&NXU*#tEO>NJey3Kmebn_XfLqucU?OUQQEP;+6C-?`l1?xwZcMj| z${z|TnMz`u+`jr@V_eH#9bF&l>4Ea{r|#)w zjsF%beyU{?pg}<|u2S=Zb)hv%n+GGa#DpEx)Do6y6@c&PD9j{1g!U)*l?gF<{bd>IP{XnpTYkh=2vw4=2RRCelx}7V(*+Zj1;s=rk`QW0T*dW%!5VkE51((^A}4ymuYEoAHb2Y2rt zSY{MxFDCaDF~XTCpei$m(?KY$y-bZ?TvjN24gG+DUYMER7V^7J z{~pM6Peo{d-qOP-`4| zTtX*`xq?;N8YYu+-3BalLmd;gTUZ7t#7Ctn@P$t(Kw@l;2n?GrkLNj?0eBvKDP8Hk zw^?E?cZ>KE)7iq9?EqKl?sa_t!4Wd30k?1m2qc?$`T$%p>S$WN>09Sq<9;HCpZ#|| zu*)3WW%73IQAg)qk57=FBCfya`jB)DP1RlVC+qh$*6+ME;Bd-IY4Z_%GuwX_@3Ks~ z-;S~4_iuaU@~tiuo8;%amv6cB?cLG-SN-)BU=?=sHY0v8RL9SlF_A_}__H!Db93UQ zJweBgp%Ih@%h1$wRY|BBlpwS3CrQV&$kl&oOlI1p`k`y zB=X3G4mvsSdjiyF8nvd|6MDxm!-`tB_bC)j0|pFOtr3V@gW|5ZvuAg_sFkk#_9NX~ zeb*^)0hYvl-ns4i3OhTyFIx+3Q=Zum=-2ODQ4Pnhyu3W;x|7Z^%>HxXRGNGUl!9v$;W4-YOwQ(Y<>Q~0Ermg_ff9`AQ|a8In6chVX;Gj7>-s_A+`c%PY5=jg@huGsoN0ID4){Qv*} literal 51366 zcmd?R2T)aOw0L4p^Hb~TIh>!=V~sT{u*+y;ZwVhuwb6ekbpN_z zvU68j;bG5itJ72MCiicVn(J*l_p~3 z88+?M_~D`G=G_}V9C6=DzwyJ_`TufXWb^UQ%z*x-OCRIJ`&PEaXl@p%6Ci1v>vf+l zEh)*=FQ2dC^ep76_1sxsGTq%mMfpC$(5v*yn>$aQJZWdRxbK7K%9+>Ox9NsB6W5+0G%qi2%Z}X_ z*LzDH&Ft;%CxYHP?K`PBJ2NxZTeecRaIq?W>BctyXuD@4SR+i=_ z_-(oh7`<0i(jSI|%q&f0Qy$_|@{#fja# zd2^yY>ohxiyVk=K-{|m&uCAruZbh)`UvqJpZp(gCNXSFT*ak~uj# z((#yoZiwQp{_{QH(W6K2XezR$hPC8mWL#(7(yXqox-U$LUjOmMd+m2zVPT;uZ;a4Pwq~FlTZ)d`uX$cS65cL zySukjGF04{F?y56=rY+g^!@vzkPw1zB$vtkdb_o?h3c4c7I`zxn80a4Hi5NaM%m;A z=Y^@BwhXOcI{uF>E%{ii^LKVd@!9A~O8R~~cT)a~N1%Dy!0XVuK>E_;AE|c&`dn_4 z?fa-DHNEg_sD6F9dflo{cFU2H3)_5>x+>j^6;qabroBeS#>V>le|A)_@rsIy5(rmn z9}?!;#a*Vl>%vZl$tLM$ef;<_C?LRns&u4kZOKYn`n{mzuz8^_KYuY+G&D4nzxT%T zygV*eR{3gc1A|_yn5vrEezFVIUaO(9L%89`j~_2gel5QGem6fqKcS{MN$&ac=Z_yf z!uAne&EGC7Cr876Nn1l>?t1`75QAu0NU@rx<~;u4sepq7X;Y=Ui=koPty{NBN=h6@ zK2jXwGXB~BimmATuA2AnISi{Rl9Q#LH>qoCCMPGqxKzr;&Fwfh-bVRMSbOj8m%~;c zHFk^vZF=+d>vDUR-pI#TVLW4+S_+>{SEBN%==P34I{sv(IIn?s6m)cS zxMF&GI!E=&uhulR^LKaiPGlVx_wra>nma7y^z+xRx=){~oyMAD?5bS9z4r6>Cw*hN zfB$~+1FQmWv#C_i^onf_3=BH54cF(t+ELOAmSWNcL1|jz7MP}3QL6)OcbgiMk!x9jvnFf_*Wo2E7gUX1=-jXSU%L&l9G|BX0$1Z z%t$II1ghVd8`n@$QYzH-{PXil+F)Uafm%k};}Z($nVCHF%_R;4t(MN#)|pjtk`jScWoMxtyfQAgS;S|hU7y&SXwx}f$64@qw`s4Rb943^(NnQR}6Siy?FQ0Jx`gK zBLV_{<|n@{y~brEcLjtc-TO6sb{~P$l23GQr+kyPbE&BZ>PsOQ~CG0(CqSG>HcGBPrBvluvy zBrja>tExy(A9tx~h;k1;LrPx(&HMn40Ij+B-BCY(Uymia0Xv&3m zeGTV7%vKqA&S@0tvh`#(QRVaf59`*cGNE6QKw;UwC`Z`LP!E6bheCNp*Ny9%vRIEssk!r8kk zy;he7g2mZ=AHERv`jPv-qOy`g&)(57hR32g;rw02Cjy*TUT;mapXx46K@IZw^OKyT z;$d_&i?4R+wWO33vjMx2pWog{`1|2y!l#3YI8J2JDvgq&{Mz7z7F&3W$dN(VFa;7SDrJZe%& z(;w^V>T(8yy;lbAGJ0W8wV~`G3z8CcGl(E52wS$M;sFk^i8+tAin`A~5p{2`nQGA8 z&-TSsZc@-Ru=>N@M`NC8ZI*!T32TTVjl2nbki^W!CTidBLnRU2rQG~Nznobu+4^gd4U*>ETGe<@d9jKNY7sXV z7t+~8I5`3N;pD2Fn_C&xYvcyo805aYyAN|M^`ZtW#d$4_A)`q6r#y8V?=*|6oEDaq zk=Y}`!{hqu_Q1DqSJb}`4j$XpE3C{xT&X8p&hYVFZ+dot->x@vxfz=$rahwI#Pa;4 zo{NLymY}jgr%AlQju%MZGIDZ{z4%WYKfaS-+g&o#WtDwMBRu(P!-o%?NgR$^7s!h` zkGcny4%q!lFm^LcNJxm`w-a;yH5h;H_PYm%xUIkB>|v7nv$%Ljk+fMgCYwD!D8SU~ zepKG`=(pX!!_GujZ1K4Vu&Nz>dk1B2xr&IygG2?Q(3+D`dR8G(S5#d$#9eD5I7HsYRaWjvYJH zSc>DzCTd12x6FMfvEHK~M)LdjZ=^WaEKOmvk5BMQ+}zx{zJAry(b<3Cz|x;Tt-^W< z%$_n?yEN)6i%`4cJRZ=Z+#vPQzY-YJ!>_iGpdK(AY69->K4QG_^=}cAvcx4N1VG zurTMTZb5=10{ZZTa+BpTzI?eI5#<_3z%90*B%5A3S*Q zMBKZI$_Vk+ESD#2Ic`!Hq?>(*FI8vcG>O9bmz!Qb`_WY>m(o&NR<@=d_gp%dh59~r z$J@7W3)O=GnkD>4N6p8=uU6u#n52V93A6j|XlQ7#T`I{bD44~5j1_Vo7hjv9ba!7y z4)Iv%aS3#p8GNjS@A>lO%Z{0(1Lh8RSs7U0@5SPz6K$=n9zf5H7S~t)%t-h%di^1s zK3$(9!opJ5?K3cuUHu|0jgxh8JR{qe3V5mIlhqm5U&ekCd-mai7=M(H*x#fXwgu`i?r4VJU)7Dm`tDuqy1z zu3lS0^<dX9;S8?LUapVn7`sf>{9 zq=V==pYRZvm=fr z*N_z(WBADl+jrBS3X3dU>|#~B-s;9%a85zoaFaRLa6idqLF9*ss3_*O(B7p}M#&tj^VtN&C-1t-GJOPB%hpXU9a-V*n1QsgR;>AfPjN@$R#u3CgD= z&Ywr+T|1)br(+XcG9uD2!@usSU*R6gY%D{@8;f-5D2|YgI#hezq(`O|(q&!qpr`KPUYB z`E%2j?Z(E&Kt_!qifvkkprVmHkHAZaISWLV!+S9xE-vm{9`^Gjh}5M^-O`Mntruyo zU%w83JV#7KP0yvZw6qMXJWBKOt|8-{)_U=yui9I#a!>pPdy*pd)2A~~0ob&2;(@*n z9Xh0=qjUA$gU({RIG*LJj^;ek$O$3~-HybxEi22y%p4`|y@oYuj6KA8=8Qdn@S8gn zKvlZ7wlA`?r?K7-hKr~r3amP85gxdK>NvM?W?|v-#Kgo5t!$L5PfrAYW63BfDB3!n zh`9c`LqUh|jEsmt!7h!Aj0A=eiPyNI8FOMvkkWCb(c93jdUYNMVaINIZB^B4GvD84 zX0mc{WOv{hK|;Vkmn@U*s`%<_4i~;a<~#EZDItnlWb&^vReMocH>)NOHdFbUakBw!C`YsQ2lNXTXi?Qm4zxAH2{oYNky`5Y< zW2!wlR&qzAparlF;mZ-gi=yPrRnCD9iVTvy%jntDhaA-WstQ{=Doew3Fq%P zjeb672zZ;9m}vaH<{kin-P=vYX(1a+cSQKWL3`+Y*}8?Y8Es^Q%*;$A2~`!9kf+3t z7xF0Z&epA4M^8&jNevGV1FV;{UG*#C-n;SN8^3Sf9Q5ngFJ7y5&{P+f1=ruhi_6QW zsmTb$`+6Hdv;I47{Zv?Y*oKtqlayQF!$cr_1IX6Y)I6=3Iog~QP}TkF)fLo}tM7ws zDib!uSDzhk@x>JtA_U+3{QN6rD%lV{JXU7jH&^$$O|W^oYHMqQvCjs-e*GF+M|*4Q zkKRgQPR?AwsNM?KSFc_ngsj;s;9eqSNZ2+WlhZ@q#|fO z_wSPhN^t{8@7#CdVnlc(*It68tLq~22BaOk-ioxAu_v*yP{ooJV%nkSJzq#_8GH8p zxzZDXkmzV#Rn=#zX^;R=GnJJeLVB#y4dB1gX9-Y{Z}#bc#E-AVpNP~afGErXo$jKb zh~+j5s#4Bq!z%CtzH)FVrL?4}vz$D660gi{$4=tX-l);heMwlIWjl2W*%r9QG7$w& z6w(6YzJ1V?_`rU`WRHiHmzUFNE)PW*7Flg)FuT4^DH0jJ`c{{H@7zGxGC@$4}% zdWwo4$68YG9drx~Vn#Kj&x1g%i)_A{T3JmD4{K^`M?QU8g%XM-xe#z5N?;>-|Nbb9 zEKBAm@x19&SY1Oy1CUosiW1_buCr68PYVhQFvz7_T&dJ#X>g2t? zMwxnUUq;l6#Kgfs{@&Wg#zN$EXXnEF{Bj^~OUv=F(^}xxW8h7;w>RRc-qd2#`~FwA zvobSTSXdxKikW?+_xASI)BEaX<>pTOoIHL!EG(=siaRBN@ta?B|{+F$6q|M}~jBxKi1#%$0s;a& z3Fn9p?PHQ(;PVFLCn>_93!oqCVz|Dfm86>1WWF>%IWaLoM@4n{kB{~~z~ZXK;h1KQ z>wXdmZI;1@g>l2>NpcaEJhW*+s%g7+?)*?!2MF8>xc~&$>dURik6UhSBcFX7vm18{ zo+u23703)Ng^_MdQNhzs!06~6K zauMu@&s_GY^4on_h=>9xUl3pIabaOS(mmAF#*x8ay1Ig(=4M`RZf>@;vWnr`PVoI{ zz4VOa^LG78x55wg(D3+X`L{4ZTSVSlCz0O`kRIkDPDXx-zOo8F5UV&cGLoXiKPwf? z;5pu!2H5;I)#KOT2dQ9N*QK!(K-CaLOkCXb=;)U}B#Fyn;C5~cQ#RUDKYoZ9)%Zt7 z9`s}YqG$5`IWxm4e~3Zi_6beyfCAl*Peqsi3PP+;6)n72tg9Ne4F zwezW{d-M&77wPGiiqcQqH)%%>KiQj=m9dj#AWo_7Gm+;ZlyxzCzqBE_fq~SSI6FdU-ezKLu2;KYU<@yp~z64(tnA_VHbZXCLG?pN-+M?|*rM!)o^C zmm7`4PBo=8K7JM-nM1^QK3E$9S=uh>>YZp)HVP7(M$fo}-lM30(QSK13`oLwu* zO^`P>NF80Tx=>~bf3RG>-aW)u)4#{qVw3c_bLY-K zmNlrjp|W&WH>;gSHrN)~kSBNbJ%hV^g7PKQXD}E(hY%?FheT@!kS!%h1EsDCY?40D zbV$f4mFhdX63w%WZl$HANCNvLF7CTUMnIlTQ$7U+_tE3Wbcd7z_|1)Y{UpBq_`y0Z zNdOHvv0bXSw^za+Z!Sjl5b<_?UL+Q4=vQkii(u@)&Cz0-r#95Imk{n*e1HD_J<;_1 zZdDca^;XYWne*raoltyo%2yjo8Ny}PbP-a14_Y4T>Y+_X7Z(@fJm;gtN(H>vR-l9X zQ4t7)J8iVI_aY)9s;jG8pYw?0-qFuMYb+xxYZA2z4XH#4Ev*hzr7@>6um-tc*{14M zJo(Vzph*07h0GIP0g6SoJ?Yc@Y-~1Q=zM&9Qqyh-8qnTQ(}jnqNQVXN&yqG3+Zk>k zi~0!M3T% z-a@2B3T?Sa!%_9e2uVJQ+pO1n-4jJ=EZrB|_t~?fgc_*Hf#aW`j^Hs=R8(jKlT%Yq z@$+ku?m2kSoJYr$iD|JVZmqz&GY`S$M^1yZ$P!kEvf9<9d-7z;&!6^h-1QEyYAa*a z9zM*uHdF`FD=Z{*0C|&|y0yJsN>Xz6N2gkP`*&x zXiUi_nNR&ca zJ|i0&QPYNlVC#?$iG;n(IYYnvIyxc9C5J_BaHqwE#8ka74EKKQJByHQV zgX2=kPi!nj1%m+BcO&uUlOV@eg zZYJpudAa|;tZ9Mx0ROLk46<0oj;^c3KO-SAKk%Y|;|G%etd~Qlc%H8aWznSgZxa!YSNB%c2 z|6kRUBHiNW=ZCFiW^7zwogZ+3jcoUBMOj(PPScIln{&B6OVnri6bp-xeg9briPw<( zPP4G6vuJd@&|jV%Bg&h`wGRO>N3Eo!q{2f(<(~-T!q$)_aQW}b{wy5xVG&=cp(ko6$i>CQ&+mff`aez`5z8*ymnsGZRi=%!S(+15 zQ(}E5Ai?Fb^`}kK@KBg z=-jJ%cIF#@7;j@yzDe4^;3?JX&d$y=J*ge{_MH@4`*U@y&#rPVyh?mdeEnJib`wZyFNvSCW9d|Hh*$>ts`kIhOAl(a*EckDS9vZ&@{^O31I+}r z6>uI`_Z&hBuKf9$TsG-ieK_0h-Mgjgy_P47!Hf>UFM|7~bqz*hM%OhsD5%Qycd}xN zOqT(lQ3X3VpM>+Pm^Ld^98^BHyw2 zgjN6l0GX9r{{yuhU07oB2APGX0FGa?@$vQb1)eL*y#VnL#5IvVF(>DYsHo?_yFfrP z#9R7T_iNXFRjZduA@Ri9F}IsG%_>=g@q@qG}YDNlHwB+Ga&ue-{1f3 zn~J)+(@&K5%DCB8rX+VaD1g|CDy?eKm zg6NkcVb%LeApi%BwTTI^cCN?bFSt_vEH8iU>T1_(`AYl&T*g~1AaVz0-lw4B zGd3}?;E9GTbkSybXedi3e;5h?z|Pm4E4SA?iN$(mW`-qf93n8J;#745U0t{FR%Xws z-$!V9a-+wB=mj6e#7uzUS$A@Ik|Q=bIXRuPZ*Am=_{r_`pb#9Dv(1oOV7|eO6!NJMm<3sXhM@_F*59ynh7UFIq$|_1vMRXQ4@NTz}9~eE!d6>`o3tFPYZHnws zwn-Yw?;MR4DdE=b+fZ~L1GhYU7>~aGgM)a54?zweJu-@{rWg0RM9O*nhc+Eu%$@CU z6?lv_A1Bnn7n5d}^M8sRL#Ip6$k<@V2fJo3Y>KD29~fx!D-X7j6TO5RxKp4p{!*ro zl_ae4jvp%_lbyeNO?Rt&+x0EG2{nMANFQhu04gm4q5(JJgTB?P_V)QGv!_vLGn{{H z)T*Jc?+G(cYile12pB9@QA@18m$NOO~{Z&4Dj1j@w@Sy}Nwi{p8nQ~*(6 z0b3m$9F@cGH*eVjMc^yZZn1?Z^8v{^R4=Rj$0_t9$W25F&F?f6#9UWjpF}}HLM0Iz z7RKw^i7mR%3b|+4X)DQrWWf|ks|mhUcM5Z>uBA-_!^1_8ZwQhQtpNLpmJMh+S(@c0 z_2Jk~W=~z;g-Y$+w~ycYi!we7$Fnr`igVBvkUEZFNmAWULxZrT+eQzEPwF-7>WwDd z9Y2sOV(%4O1u#9y@CTYw%% z>Nqa`8UkG1x?@M*f<4V`;v+u<<#R-I+w=b3y6sVJ4v9nu$NQbSa zLx1=%cxI7ZpBJJ9IUZ^W!T0fFHFNV+9hbBRw7ltpZv<36^==~Jnzv`jv$eD9dlDqD zusP=pIwEUgOfKBFB#> zCCtw)n2+MM;}ftnWx&~UHCVJADjaw}nlu+9?C`YXRa)^EfBTpk8@GDOu(VRjluZo6 zE4Fbfg|I+&Njc~5x1ejQhkROJZw0OgDMKw;evbsbs9V8I(8i4f#~0DrLuKLN5gmlS zo#cJ+qc=gc8PaBRYTm5RBZ$qk2in`)z1CM3D4abQKeX?HbE}1pRHgrySIE@80GHeqM{_ zV+2WK<3Uho80~n9-a!4ViCMOSLLDpau7@u^5EC5gyc>jL0InRX)7oej^_+zK#Cl_Z%z^Vp}%H*YAW8+CFnp94cjxeEi5;zYv!;#FVEDjI`S#x=;7mmf-nz9}eB<++P6?`N)$)`ugkQ}J4HgY3 zHXy^WC-QtUSJM(FF3n4$!XBRicyvecet?i5t`oN(_-&GE=U*g+aN53oJFO_S8|1I- zieGgo`+52KNrHy~KUjT{eNcQrmrTyu1soSfW2K}(I7k8bFl%|ZBUICp+@m;Q#D ziJJwhMuR_*=Ysif$d$)Wp48LPk@=*`c>#D{{7?Vw>FRYcA)zI_P@&k5Z{H5(zGsN} z3py#Rkd)SXT>4hw*d{ho&}%}pqP=ZrH;ucb6{9KIh!4q6p7b-ygQ;6^CO3A{&G zlct|$uJv75c+g{R_~1}fMB~{%tM;a)c@OKJmD+CS!0)nWV&UslPk?zc^9d2p%r=Lq zZMrJ^#CW4WeHV8z#y_#%_KQ>KqK#ENDSDzP>BWwX%ujO5XMjM|`xO;~uuo@C{iTGT zk9JMb(}xqm6tF5XJQLG-(itSWb7{wPH!xuQTPk~zU4YgR9EL?mCFVRZzIwpLr|T}c z@etb7n}gPWp@$*jZz?Jx0tB#rM0fkfzq%#(&oINb|NDq1Gvs2c;J<4duTyesqm4-N zpPk4s>*?A;()Hq^(x-NY%_Ieh|A;K^DN;>PNf?}O7ng_^RAu%RuZWk_ZSr2lxe8`AR8>{?g;S7|lkeXBv9{Kn{B~NowWIFF3pp$CvdJ=> zRc9|f{mNX2VTY#$*dUs)`1E-$^t@p_xUq>fxbps!h?R2zT1#<)qE?pezi$ei~DDJf{A9R}_;fb?0S&z7*23+Mm--5-vv^frDN z0GMr23T6QTdJK+K%I%EJ{z7|>)8-I8Nt6)rCsA3A7 zj}4$h$ggO}j)2iYg@73n+}v#fP1|ETrHUJzpouv-=s~nM zHnN=|emQU{d}-XIBvt6Jv$0)A+b02py6p zxB(0{59kG(-@JLAw7sPyyK0F=Obpq79*U{6iwg(FApU+XUL>WYJUOs&ldTtCHr2tv z1h5_Z@Zn`UyJ`?tSYx9~`e_V3_R!H~XlBrG82lI*VDe4P$^w0`t47n3QtVGZ2*+f5 zR?L-EL;%!_89y2W^Nts>R7cs_Z6WGHjQBk_*QPY@fa=uUeF^J?%#7|=S`M55Cr%{K zFkfgqEI;rLH5=_K0MCj12M~V1Nnw@ZV_~s`T_KrY!@%H0%b0vNB}q6MCz&7WQECj* zc*ee2VJrq!OJV9_fz?J|l6Ry#L-`b>U_JXYJ|;~4<|cq9>1k=`xMgT&jl&y!Pp$`3 zK2UpbdwOL~X;RNa$iiezpbKeg64B*uMllie#NJ%M`+#O2ziul8Bkmz?Q=&qIJ+S1% z^iPL0QHkG|3jIsuf2+<{JTGj0zm1KRLUkf4DQH&koF=MGsp;ulm0~2?d}FHR$rui~ zh%zRhrlYG%%gER_7*sPIQ+0}@;9R5N0vbs~GaH-0!Iyb^5Z|ED=oZZ`H8nM%*naw? z#CU2nkU?|_G6x1f0#p{^aSL4gHIH2~{Uw(P{WNiLIBr!)39Ad}1O|(*m5ix4?Az{W z2(1D$EEg3N*jQK~pfry;sVX|4I6KB{R4NfNL}@3{*#~>%i4!MY=oVUn*)*>nUYNsg z$OylF{}x{wWqKZg{dCgz)TvWvScoG{Dj3mHO;d+v51CB008Qh6r%@TGsP3oXa z(dRy03CRqm0ixCL?fv~|Wt2>-s@gv!Dmzg+c7A32!~vmF+d_azkcSC7acV)UirpzITL%Hl+{y~5qc)sY zo(Xn9eO=x0>FITNnGc4?xKD1Ng#HktW~b2`pMU)Lp_!@Olx5!#_}P(aUQMeI!jC9p=?(yj1MW)5L+krjAZ*Z}=NP zXXlOs>ch52B{2&}CLWR0BDxLK7erfz1w#ZqIakj2oL1h*fuFDL4k~)v+v|lOz+(|7 zFNCKnh)&J1?GMWgU@1m90f4JmUt6A^pNH#jqrLyX?hgvMo9pU!x%7FaD4)XA3x*om z*cv~6gbO)j_>hh9m*L&Xdp2z%cJ%MvyN4?~J2;Ge$sGW5va+-^@LC+gwyc@GzHyVm zK#Y7TcmmaTAyHAKXgESivEqp?YqPet1~=KVWlJ!l_|r#^uB|RPgCZa)LmCY{$Y}(- zw$vQrd3<017Wt0={}4TI+_)jKIQSR}${lBj7ewlXZI7-eGBrA=s7WxLD8&jD5*w!v zI=f%-NTjL5R^WkM2$|&r+&{&|j6CMbNOSNM|1&pBp>nWSndGH%Vu~4BEhM_lp|i8? z46j!!)t;MA5=er}(0gIjHEf^OTVwm32WcYw)i0$}8_)Oh`+wCw$=}B7e|DN!DWPRd z*L~N<8jv);{y)~#Lvw~Ce$wqP7S?@nm4+{zd|oJx>UTYha*4&o83AYUP#4 zkvDfK7vKf3x6ko0*!Yg{K%eLLAYfytX0e^&?QKw5Q_jkbf5l4Y_%GM+09nuuxqru5 zh`CMYA74}q6;fI*NK3~FI2`5WElf<5L|JYd$Iw@N{1IVc;pcqZ+}!BBcoB|}Y_*Yl)tFhr>Q*Aa@)=X4JKpdcL=wKMxV`X89 z=C?DjxBrQ00*te+&lgv_t~0tX9HMG#;`8w6-S4IGFE7CLbN5wu-G3H;gpc}Fs(k|&SDeALmgfRqIx39=3sjH1QGc7W*U88v&!Z!F^0 zok1ed4;KJZQEd+$JQ&Jh*xTC5gGS<+Ge0rj3e!9~6RL%1MWHq+KxJj6hE|$&cS$a^X$+l*hRZ?ubONbCw{aA_2JSXDUUBhiNM4xd z5)u|BC!j}zk*gA9eSq~W{qiEodwa(lZNC;}p_%}|oi?Z_QB8XQgtV}4=t8OmFNWoz zi{kQV*)4b$hwfts=-E2<=acA>Zmz3%|rO(`$Gt}7!W zLu`>aNHVUEWEuSoppb_UU-v5YC;9nIlHObZdYc>)`bjG$X=o3-}7 z`rbX6eA7ntb@(I&z1J$JjNtA-1y>8h>`MVmMHXMPl@o3)k@+K1mLcgcFT*|}7sh)7 zr~--@8ZF6+vAQoV38pEtN4Vd(0VN8a)Ho4W)%}TyU_k(b5BHLBMKyGHi`aCy?y)Ru zPCml|lk?b^pha^c)Ks(6uV&z0OiVmBIbroZ!kWad9?h6*9$C;B!*>Ruho~=PG__5+ zc9iQlEiLV%ev$&|TTFL}J)Xe8mhhO!$W#L~j>!oa4#(*6)wyfVXdFq9qS-MQdhP_A zX4xvLn14b1AxctZUl>$Ek;G{a>YWr}@KxS$ckjdO-}4GYr;gZC2u*_NF+ssaATRi8 zKpn8WK{#<2M-CqesR(8j z_K{Y(BXkIL0zAwRw8t$d&&r&}7K0_h60H?T<7{Z6wZIw1aV0Xh~j77P9>lU=j z!3{HS4&+KqE@6^~Ac=2&yPkOLT0m$PdfNvD>@TzP#n2=qJEMDtrV`9=a73j>n7RA| z;{#qlN?EyVZaz9V*oxPIhemT&h7=uYi!nBI?+7*M);Z=1Gt1CZQ9TT>xnHr9m(3z# z42rE)=*ZIh4JnQK#4&+iF|#S|IBsE93HK2tKR?>UgsABre}>s#t|%hA26}GH;=9o6 z8y#M7VIAqMm0V3tEg0=vm)H#|NG7zG-qjq5ZRAs2MA3_flG4(Q!q??VRX}3Wh#LZP zYHBQDfRGs0Pfj<*{1a+PfuQ{{-08ArmhMghM5AlqmUE&Uz?5s46$1wviSMi+qeQx|fiAx5N+Q|=Dw-Do|;3Ob(XDdw~7K4qf?I_ZS*{3v?1WSw4#1mmg9vmK+1+ zm|_4qlu0qGc3)r@64E8*#1zF7kKu})8s~3sr@%M>qnHQLeF0xO*p8_88hTJe?-{*` z^LSH}8=4r|@xAndIE{gt>_VAcnx_0NdV!y4lp|N(fFzIkg^;5ceoRhIv}IsQv2Xur zO?i#JFJErJX#le!jJDm-cVOISV`BsUM(ts@aSz#Y;XZYgfP)dr7CNGFsM%Qg`k`NY zkIS~EYh-|i!2A6{C*O5X`u5UGVi=A>!x2m2>*t5(L8`0AIRH2UW9tU)IKq_I@af0a zD&rPaX|-GmG`cjd{qCsxBX!F>!mHJXB#Tdep41W zxnWl&`FVlx>aQ|OCbIXhwJiQ6)8Ajcj2J=&=8BR(@puv)q`uri+P{C|!-}*j=S>M$ zwn|?v$=E-CUu%c>3gEHNaup6ep#7PGBOC?8q1w5CWzzq?uR@lg} zK?3Ap=ufM14TE~dTsml4BzdD}rjh*a&71SjS06rn2xeGbS{imr<#lasD$)~5S0`v7 ztk>bM=wT*AfkhVvF9ph+jGlCw`V?v;f(P0JALI)sCwiP|01Wq0_oL>^uD-hnwH3rT zcCpWAzkcc1SdinJ9ix|bZDEh#n-OCKg;m# z?_-{2N52M^Cxd*`!1O_IJEEn#+It_(?&pgU@~GOmBU?; zgK`f7n7;X=W_{O=%pp(cgRn+@CKVGQepcWV#YPs#;S~_hH0(?!=94FompqqdXMX)s z4TF7K1k>68Rq(FBht!3^gYc$8-JqKy5`QKBhvdT_W8I<4peMODBEFu6^+HbzH;B6S zBs7%g#?OAKKw6p8hsQgziB=74ev7bIsQthbk8E$_&BXHC!IOo#3hYZKAgSEko#f<1 zl?44L^sdq2^8^ZdbX+dE@;Y3!*mdc6c4~QKDLfj_xO^1X5Hbe*0+TSm;@>Ud>X0l@ zQq-^(Kdz8 zYxBvcfxSWCfrR!;piG%SSH@%s1RW7LJJ1Ziih0t8NJ2zCj(rH98v37>2JmE|Z+*?B zGtVUb_!gqcMmga%gubgrM({!lnbc8F>iwRde@Yy-ehrrl{_f75_2mvLQ1NmUZ%kSt z5*uLqhi}P(1Bbt;qBtYvq?P3WqtZIt_LQ|DlHfB+-AwEuVx4f>!ow#|R^CvGcLP9p zE}kD|n>c7M#mdHpwaidYduH$jr;9){LzOGQgJEz=r_izuu~lfty$@}_M|pG@U4Ss; zgp!x^i#VQ-I*nfi`TIu-Iws$}D~-QzHh5Zo^+@@b+Z#FbAvscQ1gp-okUhk6pb(+x zi%;$9iopPtYFegdRu|5kXnVZv5khEoy3dd_7f}n3e?de9vl?;a*MdV`3kMrvgIjJT zTE@`9BqJaL+pn#-PU^LD_CLVkNS4O@>coVbrgoB0g9s|HJL8DxrIDa!Ry9UeNdIxC z=EDaIc#Vh}S?GgnJf*_h^8)@!qBKbCXC@C&!m)uDNG*|A?r0{3(>0E)a&}{PJ}3&r zL|Q4;QAnjdu^h{D6DLZ@R6cRecKPW zneTou##22*zJQ8kae5X9=YWzK+nY(g2)aps)E3X{kx49Pm&JTee0 zDH-5$TCE5ZUF6Z{a@*Ro%IJHx5yf(<9KlKf60;$KP5)V_aY) z!5%?Q$eX()b>l|KeAqtpjSt9rtC+n&ej5v?qovi=(E%U1ASt==v}VVcnJvIwun`+8 zbaBAQyp5^koGW)HSpl|QdY!4MDed&|_k*>YH2<<&F%BGJ&>VmfVCMX0#Bc$danWxZLBcq+48X#=Or99;U|tsfnc}v^@(HM1qF31Es;xfwr7fJFhzAA+HW&H z$o=2H6`h!7atk?s5ooR9wyvtG&8R}Y*Xz$7bEURNHo!jdr2=3^nfK^=a*Nu`Rwb5q z8Cm4Pcxo?H)VjAX9JihR+k;(X`#rs$6v*I9g>FWD`9bJo&1}_+h)n_-aFQSyC+69l<%*X=&l9r;!_Q-WFzJ=;$FKpwoi7y#r$wAnlkh*abH&us zlBM#Z%Xu;=ZWeL%7$>9`ayk`k^abWP6t%8j@H)zI5b2JIn&57M-^=kV@-6{^06Gxj z1a~x=5>Xj&z&;7$G&8`X#c7o3lSGKq1im>L)5w49p9g{LsOUC>u7T5OoE)a+#tCaK ze1u7QBN)?8HKVJsT>5AC5zBTHZtgLWb1aq3aJ4H6&YHdGl< zaX3<3kpj6gTpzUyE-3o`ODKzLFI zw`oI8Zf?|>E3Yy9iR0Dqr7sF5wRLre1@7QMiRB1hB3eo}%s1iqjQXA)(Q=C6BmJz? zZ*aRf{RdrH4`?z-y{Rk*X=&N@idZpv)3fz1UopQvpgs-{z%9?g-?y-^{_QSfYhPIX z5Z>o9FhYLG9=F#_EE{M_^dO=Z<_u{3$^gtqFWgVmGehqYUxrhkh*=I27BU3DGz~d@M8F4sPA}$h18a$`R9IAmNgWJ?{K55*k3S>FJSmL2?ZaJ79P$G)dkUjS zAT6)Ff&##x=_8|cx%OaLvhb<1ayK5hTd zifrWA2InEEI`z*EIeYW{iRWkUn9}_up&|48VSD=N8=Kmj-LHU{GiY-a?|!t^ox4_>jPSI``upln_W1i3XVbQUX%E=kNbH z>92n3^I$Zzzr*{e8E!{)#(ykEJ~ZC`^|n zY6w3%xe2~-YNzL5he-J2QWMP^B$VW=l#|efA>641sh>mw%go%|ej;9|>FLqeFu!`0 z$rs98a}vi9Eh5mxRpAYQq5#)41U@g=LK_ttk`&rcg zpyS3}Dp`LnEUV7dfxG(WtGJ!Xee{=?8rhTkSoeP)qxtg;ZvzMJph-$R8xJHuX|J7~ z9YGR5DagyKw_(K4kLp^fV#WoMo>(zYH{>h~l%fBMk^qOOu*aXA;NVYCUt4L8q93gA zR0QK1c>tz3U;s=69_A&Sya?#mruP*C(Xh?|T9UmA4hLEeJS?o~#`gFF^e{LcAR7_Y zPv}cfrMY|J+A)xT(Gglda59zkkqCS4!cxk;Qt_AAIdlum%j__yO-^VQRa*(5wE%U- z@tk+(=L+f7JJX-g@IQVPwiV4jdeV@COeb#N;%)cFxPbKJULevuc|Nf|~dm zC}^SF@Dn5oCun^a<5NCz5(orIBQyJlIAfgcQ zvd^Y15N&|S*B`Thl~GHmzqq6mQAKhXjGrITi4BA;^yt7UaGydn4-QtW?dw|y7EO;v z4^zS))J}FCcVdJ@kt87l+y!M3rL_$Yx3Ws*nuMf-^h*l`niyl#mKbJ1SQo=@O-d9% zaV}O&et7lEn5aEcmrq~~Px_`pR=&6Q__cP4gi;HHT?{5EaGRKezHDI;$Q z`~Y7;>-NTM4dhMP;Blgmt@2!IybV^Cjal!OB#yJF1m970CH(P1(jtJ#pCKS5NO2B< zM#8Le*bGeX@B}n27fUm`Nj_to_Zg97} zC2f!d_eI_JrGg~c;J{?qrLeD)UfqrU=B~8{&edUFJb$E@V{*KFwX&J5tt}2S!^gw~ zgZ5(s1Kh|!+bL*s6pX(;Z((A=WyHb4fG;#oCSpXW9}%RU?FiQakoZml+BGla41L(q zYJxx@f1>4vzX~ayGZ2($d3iZQ7E{YizNEW$g;q8C2L^in9u8DLz`4wJkTY*nkc;V?I8 zcN~3-{Sxp2oZ#iv=prjdQwZCVc+wM8ozl`pd_PWrMIa_F;n@JxJ`X4KN%VtxO8BEt z$hyd!ho64-J9;qCoy(x@VlB|5Gn=FMP~{tw*64Y8tLb;ZYzcqJ9POXatTM_xC~z{d zQXX^I%Js+b&X^XRe6^6#Qe)IDuGOPV;5|gg4o)i}^8CrK(zl*JY~saJJ^Ww{hKzKi zSvFl(S~_D-Hmm4%rxVSFNxkOnbI@!Mu+7^CP)LZ!BH^ehT<-+&KZ8W@XR3VKmkN-z z0wXb~M@ekiFfw7r7~Q2VMqR(N+S*?*MSI*ASn}>Wz8;VwG=Olzq$zf%f`S6^R4tsT zfEo=HmW3MD5XqSy?YC@d>CJfX<{?~pCmGq^L#z)?6HSil-IfhzdiW}Ci+r_?(Nf#t z7Q3MRp<^^rIPIzv4+Rkts8~Bwo73~|?Msizckb^09T6IO%=h8~IaymV6<$>OzE%Wc zFP;JOacGz9*s%kaB|;6}41Ns{^%o3g6CkahTmx}{dRBUA3R`GwENUoReOoR547Fkv z6brrt@P5mRj3usf-~0Q|K>vZdV)wOZ62t(LQgG?2RqFZMCC?KBanIQDd4LhvuM4KR znz=%<&LzFyQ``TEJ=xIa%<6d182@{+y4ipRW*l(id-LWdx@c-HAsa3-YU<|e3ghKG zX&3Wjs3fjl=Z5;{;E;xH*zEHQq{NeLFnfVb^kL{1x?bL(i zX`HZ#$gN})6j|zN%`li3h?rDjYhVTlT^S((nI0Nv?v_f*2QQtH5);ugJV%NhMLwBr zlqi$On>s77`Or$|>)8zQWW!0$)$wOY2esW0+5D(@En90x_pnhb3$2bcOcl{K%aaX? zTkN@9c6Sm5cqd`ku3cP)0}FV+5Y7sL)R2ZH{DFB;aT=cpwqRb-vIeIOV=o{`oS%C5 zc!WkqV(RP%RvI%Hn5t5n3zG;Ryygl?3G*p=-M_2t`x>04w=kX2$5^9(P!Psi8rqfi zNkt#~Cp@x6lMN4Z605Bi%{G&z3uTbX(I`fi$B2_J74D?XMY7gJD679DQlWG|&qIAs z0||dP{R>9){EuT880=fnTdR_y9o?a=kBA`hYJP zyPpIn;tvHl0>*g2g)uR%=$&H>pnRsPBdD7e8~570c?=yS?&fPp{&knfllv|q1sz94 zq(%^r!{~qN@dsnBDDWKYN2sAh6C|1(AS0u~JcC@Zd+GOcYnC}#XcU5-%K8aOlMgEU zk?ltl59ba*6XNN0``LeU<5-Nx^_3MBNVULbtTyLnX9lEaycYr<8ORN7ix}^)LVp1j z%y_|7F-diCc1(@ni_XP~HnP=5`312vn_DpY`e^r_Pwks6UR_*f?4;c&30?@*VX|aH zHpD>cMoEA}0RYX;&JYb2y6H@CRZ89u>sP3A&7P|^t8IZzG?(Az_)7$&BG*s5^O>o!@dr7``@~I6R@7!b?rZMGG&a6 z8B&p{0a5Zp(u7nL6(J2~B_bK>G0!s7Jj>L8sPLE*X)r_zMT1NY64m>;e|gqg`@i4+ z+WT1hf4qDD-;QIg=Xt1K-{HQm`?}8ayv~b|DcMF^LffE9ryWFA$8W(kNFkB$_Zsft z6LpJvQfQd->?>PG#ia-m`}KxD#vTNJ2Hzx2$)V&VcZ-j-Or%#1z;*>~E<~fq0!{;V zhc!sQ{7owI+}h^@e2X0&#aq)lImW|G_6aA>uEXy~WL!M-SCna*xvVWwW?S)059xkD zRLV|37ch`UA|j=7>Q+;at*yJUst$9>SOcq```LH|70i8BJPzk5H;j!_&!0aJOv%wi z{uuzaTx_=zLkwP+I4Z$+OA6_g;7?)`60i*W!RwZ)xL)BHetM{XzwbD8q;XTS^Bf%d zF8LlKthu{+u+jt;v)cTcT4c>+El z{3~D)SOU0HExb#!?}s9(ZS9iRTg&c0dGd_mUeF$r!_WsHiyS#r8dFS7{a&lnph9+n zW7ALn`d^dXBd-2&)8qFeVQIFKlM_f53Hyks@`Zci_yuARg8xh%D~wvB>ZYEtiKj6% z+OzhrMQ=bxw~^3jlG07}Oy;sro)=dxtaCebHfsLe_xVx8XkQ;6O`t07r=*YoUyb_q zb+Q+VW@G^V#=|A`-{v>l%I@M-qs+mvtUOU#PV1i?WHM-!k37vtB4SG0rexW*};O_7X(w~-DyQ2Zg zm-z?GV`{jm!2q^6y=g*M01ped0`Wg03SYQ&xmTs^giLyX>*o1X+(<`2zS8^}3;|?T z>QgYV;=%floIE+$M}=~W0>=1|iqett=M8s#ZziD^VCxXyaPU6pr3S{XGiGGIl56;T z{dN33O`iRIgk=h#_5tIs4VSy%1Q>;LW;%aaU_MOz*~Z7y!^5Xm_H4Yb*{Q13^A|66 zkQ_aBtgzuPWn@MN&e;5CTAHaapgC%Mqv2Bud;mwl^5m3YjE?{PPfa2%N>n$$ z-Het)?2Nngw&Akx4evF*;f*%y^_u~nmS0@4ZAT&zj~4ADub>7bEsZv|m)@Y$IYfFRjx8pl*R*Z=VCXA6%C`L{HSq+YWjTlbZxSLAQorajvUXk5PjV9Gsn4%#8V z?{xtmz7^S#d|&idkG47@JY??Uskd;9xIwn1MD%q(Io76oj3 zI6oBfI4cd;(112Hr?8|JT!`A|b5Y$)bMpi6fGC71;`zZvPSy3{uP9jPoGBWqEpu-Y z^$VWGAdHV8v1x6GFr_Y^V`~dgl*uFR*DrYews}N6S}r;D)#={Vb8CT&toTsAQ+8A~ z%r2gJW3ULy9{NcU5aAo({1iVCjC_Qz7eD#(@`~V!tP_MqE&{5bGZIQa4RUW6{S=@z zht)2*WMhALg)X9+9m4Gu1RUgyboh)YU0%^obG_%_(C;T&=9eEjaNy$dH#dPA>Hce_ zw4;-%!@`Ar`}X0k!Iv8bCFDu$oFF`|*7m#)t299(fpH4UYdU$)BI7V?ne2eYy?aP?Mup-TD)~;5taJAEx>u*`7uPyAt{xj1Rwz2OyAHd4`}U+7Up(xq zcp0QSdZ_07{q6PokJ9Tn`n38n$42@diF!dJXraP&Zy~iQRae=I*l-KL;?>^X^=w4l zHDC1AtP|Z-*DaSxe?nLZwGU=!>+}j|2hw-XwbDd8XkP)efwN(BvYKj zW2bT|Sowp59Qrw+?(mf>YpKIANnAyVO)XnANFsAxVG>cuSDrV0j7|*sw-h`Os)yvj z+2Y7)Emyz8{jodxvOPT;Ro^5VCP@tNWKbEjQ6e}0;Jo_z6==T+o`IBwJ+`n$Gv z6}EXCsS!L@2n)o7!4_&-HZv?Y@V+pR`@;8%DgstTvJFCrbtK?Rfv2&gAuNdOA;~d! zcxo7g1L~>yJWp71A}-pA#6jc7M(czhbVcESpbh2!;6%i$6z@FpOe{jEO`~p7@^X!< z$)N$MX^DgQ5^NCfBy)p_l8<@hSYi!2N6Hyzl6oW?BC&(C8ZyM}#EEY5^1~psP>#WY zX)eie181Z}I=0?i#uw?zThd$~d6q@Sy`>ST5>5ke8(RLz6I7%;8xnvuNOJvnbvgmk=@jq3kXTKxSB_+i?(;Re{Ln%V}IbbNOIh+0{ ziLV@tB$C5(2Ca%eb$+1PO6JFe@XkFBkiNz(&Gn=V<27a-T_QY8xE-Eb(d$+lho0QK zcPhM^H1O(ZSAtNHxP>@938JjyQC#(|ucJI(nwN~p=Uca*?CPZ}SFVgS52bhvvryxD zUvg`tatOjgjXIO97ToX1dSs6XIZ{qx9N`Q$YYllKhnE^}F4{_6X=2WYY715uQI;j@ zMLQV?N&@}Z#Wzt=QNNSEw&|^RjmjdbIZNFOw|x$6UK-y{SMDzqSYM0ePl;M?0A&JF53w}aZa_21a3qSAu_qUy&V~sPDY(V#mN?3^nEl(np7fYrr$$+iQEq07or1D46s`A<%5zy zAx>2GKjPd)=9}q|{v?pRTCV&DwI69{`(C|HpFBx3oh?RdAhUCvd&`6jjeh`G8YpSj z^MnnxC$EmDwuHLUM_>okZuP&)(I0+iojY5c<}FeiIzBq-yktp?g&KWVTibN+(zWX> zRu=bUiOf_M6~;~!ibR#U9Lk^%M^Xz>@3J&*^BQ{VdS<~b5B6@;6V&+d62)%agd`a@ zj}LYM{$@85D#Fd$v~A1iohNJ7Tm|&x(X&?flqh@$9UvUl5IuRo)9o7zTVV1LYinzD z3^G9m&1)MH_gU7~3)gDUf%%&MF;awttECcB#8G?}sUH)-ZasN2JT@h+JE6MSh}5-VY%eOVs~c)P!F{=(jIh>m{v8Go z)=-^&VK*#xa0r^F0?_Qi0!F@t(2*%G3pl9+h-_+#_USdL>w74U=$S){TNouCb!^lp zuc(Ghi8jwDf)%pLBUWk$a%J}I|xE}UAhK1#PZq(V&ajYUyF!oPLXrW=sBOqKJ`UBi(Xx$p!rOz;l!4rrS| zAb6s}sy#BYn4jbv40`QIWW+QwE9J1;iWSxu7i^bzU~@!Cu;nWDM| zF9Is=p@06_k495!F~uWAdXJq(4~RlE>B?!6(bfpkh^MQmsflsyc1a*{e-bNAuvo%L zmi4z|`}Ql4iw3qDX^r(aJUB($&Aw+LE&O&8aMsNL;!e7g*%ugxI`Ib}DQ|G0t7~+f z6*pA)tv;=pamqBIo8!HfWD{UXR{&PFv$li_((JDbqSJuS?P&u5gUgU~P`btDv~X_k z4k<@BW;LZ2PWb1hsnBC6q$CmAh8={4!(8?W4~JLnILOhD8pguTSuKh*1w7SpyZ z)KsU3*|mRgT3VXrPgfj{#zM>x$Ow2(E`K3qe3{~1&x_K0uxjDyCyquI#mMPu#u*G7bfvH&>fF{2NzGxjI|+3Cup}LReDzVU*K&e_uA;0y4{-W(u&d565;OwYoQzD$Al(D~*8% z?~_R)X5%c)q56TO>aKWTR-=8o3m+V6FDZDSV3qMXSP^$ko=5h`xFb&MN2}IKRCO-| zDcwz3;dm*Hu=Ffq`h=S9eR4nEAyrDIoF!CKvC0z_fLWTI;WZm4ZG7EyZ3duJ3rg7`4OzwIa zu#)@}rs=fOuiUrFAS7>T=mW)&33e;L$eXTy`3g8_T>YaPQZ;@L>Hk*#>HT^l+ZK*f9`yk9>km!^JI^iszWg`wt(Ej7uqMqQXiy!7E$c=lR8jJLCMqw1q+O z!TamIyqG|Evh=I05?Q$BgZPGrAyY7r3X)Cvi3>n9Pw$gBBQA7bO}eizcotI19~jM( z7b5!Lpj_+eX-B6#2Qs0HltG@V)~E+|JI9Cr^4&J16H7 z4L!fOe_ByiaLh|&(M|{zn36KML|xbQ)C<1y0{b`f?<~1>=MKstow5u+a$(OkYjC#b z`l5R;2Qj+Jy8u{T^gULlI*8&bj{hcmCg=YXwh1?+Bgm*s1n0M%*>3}*@@z@DC0sT1h~ zFf`smJv(_<*9)8sfcCbYExv^AzrR2bt87NjG*UN_H8?kU$DX8PLCFVLfn(s};zh(* z$`1s`PVg{ze}!Z(K#G>Na+$z1kh6$pXSn!Cz{WX4+R4fqPMM-gj|$aL_Txj@h^}~d z#US7+<{|eurjcKTwj#0RSocN%0Sq8O%e#3{Y6>MdEYz=9-ESWJb) zd56cxSE8Mc+K>%V2jUD*@<;1#!ge`7Kfpo_22y>=K26fClg%=D8nn&{X+71Xx@}^d zi82VkJ=)z^t=}PNBs9_}JP_rBNRp4uL@1La|CTovb%2gbStZDcFyqfM$@+jf2=2aA zRS5!s0gm*Hak_A-VJk!?hJpE=y}kVx_G5RB!o?Jb2Js_M$c#n?oxBr;&z384;*Uh)idHJuWW-N0aseMWF{ zlz_VEfEegNFiTHQry8k3t(UR*%#ExpH!>NDoTcn09zCfC^cklOK2ny@QYXE7$k?}? zFyT)^BI*4LrmO-#gPL+Ha3O?jg$}BTuYkGwiZ2OREa-oYLY!GjTWpjdf3V&R%YL_1&KX|FLZRQq6+5- zClu=*bm85K4n&bE>39!UQHda5;5ic?Mt|xlbFmcQdP9S1GsHFz94sJo!U=bsJ7$w@ zw|*%bbulbcuB~&no59_q(T1Hvd^0-~|1h!r-NPa??FodxSF=Qjag)QF*vW+6Xf@-I zv@apSw;Mo1w~!f|C*(ARrd*dEFrK=`c@RCEt-B7>*J*ANHF&>~rkU+;n7G?1v*|x* z7yzdCBy&Rm4`SlZb|a{B=5&xC2Fqg^h2C!i zJh4ko34sjJ)tkN(lM=E`F>nImW5zg^Z_>ilE=sphr>tDxfNu85JAYqA&pT0>(u!xp zyR~D`1Vcsc%;vBpZVG?Tog~il8&q*#N;ft=wx<%aVD+x%a>dc;L&GREm9JdQFYks6 z8DzK|di}(2xKt)7z4*5RapU7gf5T9JH_XU1I~|zZfW5B&6c&1~;`z_TO{(@xeEPo; zGXCz|k@@${KmV0Kn&8!dvFe|urNo|vOu#}FjAF$CAwO6dGIpT2GlXSm%bK?GSEf+# zSN4=%bbhS1`lPVCuNQSMDER!82e=yJ(GereWv7Q2?q}V4*HozX?JM#8&iljH;eMJ* z;IgqnQthA0V!aK&ir&0wk7TB##FJJU)(BhfJLfo97NLYya4_}9s>|o+HE1OJv}(4r z*JGGzFYjr9Vx+FDYQomL~R%e=EOl;)bdX)wF%@UbG7_ z%n~86}5MfmO;S?vj!HSlQtV| zYMmJLnlwAcCY}ILG*VJPpQE_qjW->^99Vrq(@D`pI?l5lbR?CYveJ?gaVS&Oix$-} z{EokV#z6U?7L_0Ms(|#j{w6#0H~lwgeNQY2$nucY@AALd&4W(vjcDlK{79lKYA_R% zIGE&%7s*EtL`Sb4u5@d_fL?SpbQQ=hQ*#_4bRWOWR(jgr<{GdtzUi=bs<= zmllA-A7+8W|7}T$+QIui@-!+VKg2vKXwIV| zwy}`{#+hL?t=dSxv%v4>;rul}tKj8fg>|p)Kg(XJC3VOs6|x3PJx=v@?b;Pj!X%cP zWEF|FRL(Ned@YW<|$jL`Eee!QPgA*mNAr>rrr_rNKwR+ys~wWxWdkW zp}k~d@?K6HKOPlT=()w(%Gl7b2%ug5EuoA>Tw==-djs>r?xdykNR$BWfrydbhg44-F{RpK(PTi~vT9YiiOXS-EVvF@%IQnNKPUG5`F#&~_E}Q1 zGq5uXS89ADGo-|{Z&1CE0!n1D&mrHYu=;=a7)<8Zi*ZBj*`y>d9w^ITW{gc|5Na}1 z^?uu#2#U@h`J9O|)#}MPL%hGfokaFbk%5Y2$^7}jC4-Ps(F-jg4Tn`YGws>K=KBh$ zio+(1`tiwaT&zvkfl~@n9~5ZQrtyRh6l+xK92~r#k5G3-MMra+OAmS9+4GE-XPvcu zdHs4HJ{pr(k|w57X$>Df<&q;f7so~&2QAB${}>cJ?j}~MPkH=o;Ldb>L|WXreR~Ne zl8+ysqiCg~liK^xE=8!N|8qVOjl@WOdXSH2D}g$~Im2m+c_5#Tbzx!*U>HMBr(@mVT*AmoBL- zJD?!Fe<}%-)vH#ntbv-aRA-G<*VJGV^*&&{SoQjEte$u10fN`hU>D*iqtZGk>UUdhzKR^hg?ZFbH8(1$fgc_et zs(frH?UQ^#{_)#0kH6wfI*hzNfrKxmzHasj-SN1CaDWc=!Q^=JpJTv{aWD-@X+ZD@|l?XP5U=R#v9gO|=?> z_6M9Z&AK&0XMgw3GAjD0s8+2fe#emEX={OzBU$u&w?`&m-;;%(=x9-F^{~-`pz{OB zuAq=stXwJDGSSTdGef!Y#keO|2Zszw5y1JV!vmdO9QUkcHQ*?XF_`7*38CQrNDoN# zGF8~pNq3&8b3o7!xr}~%ehhd>qn*Czr$2As4u$zBDP(K&3m7J1S=f*A+E<>XQeyqb zdM9yPeRB`9=238r3f3BxBb4;Snn&+Aq63z%WgF}{N0-dg5jXZ9Iuv3&S>_)-A!f>U z>>*0rb#TDy|oGwkwu=qHh*! zW1&Q4_d$1Ksut^aQW{g%kCt1sd4j;6fX#m3{72~K#nz)Y1#Tv0TmM{Snbl6Nef`1P z5I2(ywm--6V)p@3r|=l7Yiqu8T(j>McH3w%FxbGNvyVKbibPgJBevlZnC>D7A1c~8 z6f4rLYS&qE2>OP6`h}+v)^gU77Vk&xS~WVkgN&XrNA<(6@rvW*HO@sEPu6Sr!$gzq z>yuh6FjktnJmTny6U6idVC?9&Ii#q=M!Qa~seJV3pY!QWv$3P6#BX|_cFJHQ_c-T? z4{{7ukN#TB(@=BPXj`o8NtHix#oJrBGlOhWdr}THZ`yRQeex?FDXk!>$r)+y7EIV- zHnYj~56Y<;S*v`BPjxt+H)}kj@4jUP)-zQHTeRB(HykY&d!nOY8RYviz~ZN|#nkl? zdVH-k8SFRwx$zGlpAau&H4Cl2y6)cy_7C6PuWTNF#t}lr>rUJiKWel^Zhj<5 zczjdBbQx;b(A3JEX?&K}C10AUEpEAo_rEAEvVbHhM1h0Jva`|TOKP3u)L$-pem>Ad zS~ieZ!BP>Kln=gm{(PHey&;K>=4b$_F%7+Y&HrW53depZ7lgKBnEL z^P@hl|KnNt-d=wmDGc2o?ve;H^yaLO^6mSCZ?E5JhOD9DL)yK2)gNOY zbNaW|t0egcuu?1gq%=J`o8zIQgjV3G(sbraUZ=Ddn=dpGaUVDQK1m5UFuA!gb9Shz z>VBiKy1Kw+!~zemS}05k`B}1WK7D$PA2fPcOlcr$TPpSK+ZQD%`Ng6y*Z1SE&wML9 zIngLW(mPv9Hf%_?iRmIiH82nXXOwFEm$y5I8cdqhfc8aYyD*5-N49O-4drPgUA158 zPbE2vh3({-G6|F`!GyriFErbQ>1iDQ1Kjn^rGr?GBkYzs#(=Zf#0-&6x&)q}3u<3f z{F*HWRx_fr!C+Me54KS0#MZQlNnjQA>2p0dx0aBCRQfoL;})wBLBk}Ot8`)kLYFJ< zelL=s>}<*(|MlOduoD!=X&!&O#bvd7;{}T+dgoPrl5FjG_}GirwwF_m>Urf{Z6%X_ zV8QV3jl*tmq%SPX-Fi3+xROPQqZ3U%-@dJkx8dT;3JS!?I<^yD?WN7z{oMDd;}xny zJ3Bj6XP~$I-hsJtUq5@-Uu9eez)th-mdB4B(*->w0G?wOFq6d_hGAh2fmnuT+Iww5 z`&H%jxrvr8^Qc1LVN+96S!6cO&XL%kFk}Fd^l|saiBI&WqIKbz!xM!0#^h%_H)zz+ zkd$y9pE+E#x(^>YviHcPC%10B3mXSPj>myI=^2tnz;K{0i@Xb6mZjfwAs0Z%K)2b7 zdGi9@p3o^PW@th2golT>Xx<#d`dLw8Femx~TiY0`XsV>Opiv-z9D=oF%e=|O7S~ie zh0ISZT(WwIjQXSbJx?TdQ~Z+m!t-v$hne>A9ttu61McHyWU?hPCckJ}$?PVLuh3uE z$MsBpglQM=Neif>JNDaoMPXQ*u!M#-a+xBZf8ryz==JNK!xnM?E%`h|y7<#o&;M?i z{8t^J{|CD|3!lH7tL>yWiqD^1gW<`4)|RdT(E7W--RZUKJYqS__@nX6zln_x#`gQZ#Kjqj0>W*h$qM z!`i3)95&_f5~&PQrlTV(@p3z6%#sE&oq-JO@R1{&UZci{jvZPmmlNud%+wsGNfnz| zP7z@jeYdR?rrMbBEU?KQDh4nF1}@1eAv0%Yvkg|#*z_DbwiYP|q#$ZyBm2<^7DLV3 z^wc@DvEgSQg}rOu1EY9UwkxJg0S|giQQf0!*NABtUx@7GHGyJYmY z?dh?+|9}Db1rmuwg291Zvyv7UAX?GPUYpopBd>FKPxs{og@rAZ;N)Gxy1VPpD|5tt zgKCn{IaU@TDg+sqmyqn-x_j4uj0b~@&qYMs!y@+OOL6ZU-Zq`h%lC19iF$?m1@>f6 z0oKG+NkX56MeF#5NdQcwsKQq@_z7qpGG_9AOZy)JcewU#hk4{Hcqy{-8y7_614E+p zzlh49x!!zh>ld75q8Y#Zy(xoV-@n(Ul7g6f@#00dtgK=;Fzc}(=9tqFJt?8CUi}H3 zE156>(TUBu8$Ye+B3k$U*dibKdd9uegzIwpEdzewIqf-3v@rhmng{j@&qa|&N4%TP zDL#d&8Da6MQ&QEc+sd9J^Y?Ao&M+$#RaIdm7$7Dy_x7rI!U>C55rq&Ft;ef<|N3>m z-D0FY%tPi-%q zxVQ>tC|gBZz%p{!QP=S4Q>ISE`+Fq-HJ%moyGtL=(F7I|v{}}}hi9%`ThC$2?ZITk zB_y1Ur5HtbridhRB}yP3@Y6bXPl|al)0f{>VQt{(D27Qf5CR`@=#p7mY9P$nJYrq2 zjpW~QUUH=0=VWGL#hjl{kHUV6X|SNWHsR-~J0UzjG1CfLdA97n5-j?7JXI)-nm3xv z)1(|@s)dlETo0WEy3U*iJQrw14$&_E_Dv5*ZECXhObup}WP6_#vQ1@Wol&E%(SQr) zaO8oOVj7~viYrrHHJuh{y%WPlY0dfZL*4q~#5@TZ5e!k8rBs(Ki3N@F6}Ak7v^Jvl}{QZtdmi z#NPstig{>d8-uyan%jz!ZQLOI17UWY~ihSkS;g`;zk2qHj zUW2@-ljK_YqcJtjL9D+5YNb@=xPn%K&a~65*eBn2(4bO&w`3a{B0B1)C>r7;OK;k-y)b%U1cB4bn8@CnM9Z{vi@ap)^NIgKEepP>;Zvg_?n5S9jA^J?myf=)2yi1w>)UR zl>x{qSdlV))!xC;u?uFUWK$3~vwAOQ1{LVWj-R>yeRIFJmzPhcLOxyyw1Vtu*WSI) zKD3vXo@fS-t4`?7yN);5Kja(zh5$x0@*eb@|0-$S%o+tT&dPAA-7>{@^%dk~r`jUwPz8=#oCrxP&zhk4a2ypFaI7S-xVXAru}f zpDq!X6w428nW(n5bfD>xh7_cgB+}iR_8_}$?g#4SBTp#MYBgcP1o3ec{IrM}rd+st z`!?JU3w&zIOv6(s@|eF}Rdu%ZFj`8`qPXYdW%r*tr7p(yx(38Qbs`De-2t}~1PzA{ zRglrQr4pv-rFf%JeYjqRw4`@a>-i6}taf)tqWz7RZV$)F5Ma4>?NUCkd_lzLD09&~ z&hs%t2SJ19)2BoW4mVt;q93J9p3-ts*-h?*@YwCpGdue}F?H$1Zd$Eq7)InXgx(pL zYo<@ndsP)AkuBa;={|+o(v0)*k>{Xre%E~WnWrk00F(#7kYl(&cp+lFs_6ASrR8cB z{K?#T&8mYxbuvzFX%z5IIJ+F&tF=bPstL!<@l|~>WK<3tJ)`eNgZ-x00~awO>s#tj zl4fslggt!NT2|KSavdk4mZB-(7&Fsd4v#!5b4h7UO56BBmm zElqdQq)eU-$tutkfy~s@m_G+cZnkALkfg70XF7O#x0=>PD2SX?%?gGVP(24cHo`ui z7Ik$WEZ+dR67l zhFeEp|){e!`eV`+AEb(#q>?eb7O&fZDYv0KgSubEe+UMFYXx3(eK- z?-K9H=Sa4puE_l!B+cS=PV8AX?x=YrSimdMO5Ae{|Hf!H4)4nDi9x(p1yjgH;O##Z7ILD+Uc4A5a+Fe* zyX)%{8jQqgCmo5O86^oK-a%I9g*0rb)k~EAwFXiY9xQi++X^1P1R4Nh0SzK)9b#D2?3& zKE`Zep?zbiE}smP@Eo-x5i(S_=O1l*s!0c4!L8tYHD}IAqtKF!&{PsC$A?Fs0Q=T7 z-oqJ+vWs~c?}P$<=unW{Qy{HQPEI@5pCuq52czY(*jnw*^3{wVXnB z9e{FP>eLh3!olCsl+IdwA%&UYXpU+!9YQ8=QB2tC)XAd!%6SG;@6YB>ct*iNK}az? z$e(E{CWMwohM%tC#BQUvlJ;A+3PSrs{{H8rivpJ-)I!7Qz1zZ6Bfk3hOv~C3GHFql z_U#!?iq1aqc*@~RXHXwI14ju8fcH1(RAcqREhUK_XPc!z*;VxU9?di$d1an2|B?&EZ{K|7yrnbF?Dw@-NdAI z(j0Q*6s7#?p`y&+?dav@1>F8pQC+&%Wp4Cp@EN_{RKCHUNajVqeCg%<%d?*U#|#nZ zq;u+Q5`)pjSNh=JRQkVsTgNVWwAi?(bc@TRbsmlM`!&4aqN1B4G+th9_5JRvRsmXZ z?>u}4zqh-t`F}Bp@}Gnv3g!WCy?OJ7L)~KJz>Yxq!M z1qaVx=h3jx>zSprsmLvnpmpcgEyPPHAZz68%RcwYR`1(4DCw&7Gp~CqCX+TGp8v=H?xG_Vl7RmFY{=+8hTZ zC5m0Uj#`qVNvm|^Bl@!#9>`=<4Thj9dxSNjs^tI@9=kxCYHAk~66hcSkmXCeNL_lR z9UAYcViGOJG~IglUIv|m#}C@e?yD@AzOq0}RoyH+Tc3a^j2!tLiUZ^M-Wpxy{?Y;n z`jmTVQ-WahJ;(jNo0~~K!B0ROC=k&PPqh#KkE>N<_po^cX`ykzMt}8c>;V`yX+(Ds zUq(hYmzOJblj@KHv>WePZN*e(D0zS$Le}8f31{F(40=^#+l($3^FO%AJUjwq1G8O3 zMh*_Vfq#&+e+JS>`==%BnY@qhpy`=zhWMRcTOO79yoM_B&)GY)6Exa%$0|kR@mP(y z*JZp8i$N}AEM(b2!^*tW>M%;9UFYVsxY$W1EOc~i5b)9d_OWK+(Pz&t{kHw+x<*Hj zI@a}$yfQlFVxv26Qx30A;NqD9Mq$DEQ$=jO7c4p)nNx~&0F~c5PfsIXREg9%yic+X zVFO6lj%~R-EoI0O)copy&dvWfRp}AEd~8e-rK%*|7V&$P1Q%vKE-Mdkd4 zQCDuwoAxLZy|^gxOwG*fAj@$N2>ChYQz==ibfk~>uXnwhFUzGCl$}0p+T3Zc|6So` z{KSBK0m(J~Ry&6#3-df$dTBHKPPY9<>%M7`$)6aeAuyZ$VfyYJn|$Q4luolzZX*+R z``&=A?hMV)xEN+0x%km`nd`UW(wNK3$vcMVB=CCx7Gf6qdo-RuSV*7O9qQDBvF&_4 zvkts=?NtEQwUMi}U~wC&uPNgaFJH!+i~$X0@K&OR;xWqKWKJu(={91%)g#S-hzOw{ zR^07KRfgxnw=ZAL$H!Z$`SILgU0fF1d<9w3j!NE?yP%(pNhMPS{Fe$eF09 z2WT0k=;l;oVj3T}n1h>TejKQjD-|n2vl?E0!wFf_EjxWWt$(m+1 z#E?j}zhf@RuwTtNd8w(!vilDocKoFp(q^Ko+TV*NXqyioMp91FSHLiNrCS7}+2=Ld zTo%)X9gvGQFI3Og6Tjhlf7V_n?vaNr21XkM)70wx=T&DGwN2nOQOZ!|8zhinZeSX9 zYyr?|dkNXOQTOFplOHI;#pG^2<-CzfLZ10ye=C{FyGsMjQ8hw1L%)_nr=!0imi1o$ zaLnQ7|uRr9=uF zcrF%5kmg1gO+~NmHZia1y^;@tCs%)dthwRKGrcGj;N8u)b0Yv@Wt|(QDivX_e-|y% z5uyWSc{QMfxDdfrcGq`VSD8JN3Yo67$-TW8!KN^BBt~|B=Lhcw)M0c*_R0_kU@oQv z8-;d|G;Pu1*(+Vme*MHqJfAq||zxvK4X&P8$Av;Q^2l5BiclRDWvO^cj~>e(lH0b!QEE_260l6VzLW*U{4%t_Ro@Qs;1^Oubw~B)Mu_0 zYnieE_Dsz$iq$>gkJiU180lmAO>0z6&$<>Uqi@>VVvt}L73Vduj*}G{SjTZx`7wb# zQ~F6s$4$RAfg3;mk4Z-VkFqoW-!fgj8Z{`0_vw~beUeFE;WaJB3BGXHgKc%mWx37P z%BDVC{CUW$-VExn%CNKVa*;za^ZI|0UiHgb3XdebG0#XKm)gJSX+zv{Z z6i{*9+~CBVf>>#g4G;|MK7Y6=K)J|d4>*Km%={8QHn5a^@}2sE^f0p^r;tFoB=4Bj z2!~s;_V)G!rH-Sd&L-jr*AzK4XW{eLNlv!VO3JIGwAx1J`R)FCcxUpRY&mSm1gY!q zr=~J^iqr@~AKwGvKp7jGIg>y8XLL{N9QcmcbgB@{7&3U`#B79xs5o#n9ItiC3{b*@ zIiu+EKpAv&bP!SMRc6gV@}U)tMR}*royp_QCMJ4vG9!D0S%V{L+pe8I70Pd z$nvy}@j49V4D&-84b#PdQR~^WiA@5#CGOQ7l|DJy#(S(RZER}LL`5?qTtfp;g(hig zgphF2pD|iR<=(SrGo!5R?CS0h^oMkiQvwPgHf6h1(yYM*8C=ykI;X{^f%sD}xWwC# zkHIVP+tG&etCMO!-*o97TKx=_SLpR}pJ7hJHbifiAKpxIzqsq?2XaHd*H@w;=M+LtZ8w z9e8>Ti!InOo?$^Wg9DI*y0lV?vnd01xkhHsKST!?TEXZSA0Y$*v?`fyiHUZxTOy+t zb;eD1b&F2`z8zQoPy_u)`l4MqcNWiH*J;#p1*YIoL9-yB9~Jx zle?0)92@6d#{f|ebV~-!dcd~A0o-{uvcfR4U9*jC;To^pzuUIE_L)b^w&t){{*HtP z(N_(~Y4iK;`XUk`r_3ot7*g|$1WB@uDq~kSjWEZxrhlVC_K$A@jq5ON1Qj34@YSn1 zUiSgw-F0li?DTTe1!)IFNhj0XX?m!Oe!i}GqG%g4)zUJXu51{vY!~;13q#Gq53bw+ z(bjd9i&#_oizZxuGLaVX?_MU0|KF2k$3y#m^A{T5t_d<^0L7YQ+r^6`yzZkb^Oc8& ztFOL0uC-d;-}3QKIQQnwxMVQ16sM(Y0_;82NdlAKb?xfyIL&zd+%BU(5YjulU_Ppv z-DjNV&3p0}i4$S*Ez3BdJ(Fbj(^0cvK>@J@c-V`A0PaCfi7vfGX~#oTj3)&@kyU~a zaaeF7e&%MwSi7`S$|0S^lHP;epXF=FE~lIcf#X6ZoI8 zKyXJ630Xk?4VPwc+Sb8jdFH-5r`pKq=+xFdjp4OLSxYH2n;gea&H8XbC;kI!LCFUl zY;}rZP^h8vZC)aXhRyjGtePcI{?D8=iK3vP5!SDt$9ETRV56DufT>GvK>SmNLN-FP z@H!;hkTe@DTPx=7;6C$ebNE548)T;Ob58`hC)&KE+V&MrA|q6mecda~%!UnM7`JIn zb}e;R#$GU2IbZrT2hejKYBn6nH}=VB#;FD`Sx7(Pgvf?(=Kt7i6SEo)J;tNKAN&;) zjfK-UCJq)kiIO0zXjBygeds~+w_r19&AZw3l-VUpaw3hF>23o?y=|D^Yn1s3+|CRQ zx5>YaeXKVIJTy&rsD)ZKNg(OyiS)(92yMItlx~S7YIiMSnKyesL&HM~OGb2D$H8P` z@{sLVvc8no_=5@2R0Tr6E(yd5O3b%$(qzw{JA3wURk!SCNFdJI#0a>6v1SD5f2(4H zbzUs_E{OWw1|69z_+)Z#_u`D(LOi)2su-lqi=`ysgF|6GF?5|b?@d{mE`C*D#B^2{m(Iqz!Zxu&AXenR6qD!X zTzQL!I~y3D#rfq&;hdIWFtZH+6$b~}4RyqUq2~P7g$z_c6jGEOtlndquJ{B1d;!%ivTGqt?f>O2E8_;@mmglf)TYBc^HSP2_nwcQ5^EF zv;~7ALY#i9tn_;0t3abw>k=|DY$>1NLW?E=T4+gSOPifWp*wc&9D{IzO4-QR7?lsO zCZH8zs#Xdez;pSG;U$lCt}D#X5WC zv9*m)$u(-Bv!95GP{J-e6S)s_prS0IpoO94z0j2KZ_j29QdbxHdFGOIyE?m}!1=A%!jKq_7GQ1}ta%4j)#APa8O}o;(s9;#~R59AY*Z zP(b?4n?djQo_gb;xTRNg%0Jw9mUYK0D$; z%!=XNepSw^S<*Jl{@w7}*GD4FQuM=vo9JvMaWXxnqcwQ&VpvqNBArv822Ft6deQ`+hn%-sS5O#7@Dxe1FGd#&T1 zI5e~j0(67KA|rtyYSXIKY)~LCzumnpc1OK>t8nl}o=jL?826-VlH#d6nztgq4m(1I zxnH%4?m67y7Bq3_q!ffuz>%jzLl>e6A~UJf0xa;62Q4|g;Ugdl_5>l4DGL`C;!)2r z@6UYMgj)HSP>5vS&q3{i0Q<{ z2?#~{Dxb!6F?k=vq=U7reZE~xG$6n4es=M%02hnGE-6P_*EJtjo6yK$Zj+-MDoya* z*HLQR)=iFtfeNU-#N_nYD~@X+n+^8#Q1#iib7!W4m8IqOdb>@|z@eRuHn6@xw3Dd; zVEbco%M+09el94mxGJzyiEND3354fyhsV6ReWqi-^Nl#h=^5%E5nbx{ce^F*R8|}v zks}PryWgpJnbUPso4GYh6t9@1=zqA?t4C2MEY1+C1Wr?Fz0{$Tq;;>cqd@T3!1gq; zPF0%d>6uvZY!`2glrVCd>Sj}UM|s}E_FX;HZX}fHj%ZTgg@xh*~@Y< z=_1*D_RIsl0;J@yh|F$7!iGQF)c*O#`d=T$k;p{b49OgtKDzz#fEiM>?j}_lTEu*H>0HgFOV3(GgIG#wY|QBjkvm;tSkt9T zV#JM_ni``<`e)~zpSR`Mu@{5RUCT)D5AXt1ms1kM^K1t+0sPL`$@=4c3#=W-VetN# zD@xXjE+4%!rv>kc!Ehs$Zo#iVOe?K3atO(eoW3QhC$9A=&PO-wzESbg#3aSE-;rX4 zqLZ?t(p3$=4?~{uY=d!5Kr%y&&YUsHnfr>n$Id=)eR&#WhKdj4B8ffKRH?r5DLBYb z3fX%W4{%O(Me<}}v0(oE89$9vn?_hf(RhSw0gUdJC5d3$|b;qQy&DRf~CUjO2^kyw!Z##IweET(Q*$dLs5-*;jD$4aQosh zUA=sH@T~Ls2%G5st)T6*;*v?KEoxKnYQ&Jj)RzLR>yJZ~V5&^KEpMI&YKa!o&KkN1V*T}M+)*syGHho%5z;lV`lvs~E?p8+V{lI~V z{S*va8RXPEX9c(joBxr`Gneh0Tcgz>bD75dg+$NEYFdDC`(t- z#Os?LIY7-Cg?@v@;m0D*p6w!G4^fe7@e05|obsbR;%48bJ?n4wNLL_gxd$i4u=-7UiZC`Q$O}ftJbXttE$o- zlwcD>-1|v-AZCfy)Hx{Ub}Gxy|3XB;UnP4zS|d9>Jw5z3c|T+j=$)5c`)Y8i-RL8} zkjQt%p#;mTR??wUC!mS}mLLWRH24K1@3*os*1V@^aVtU^qxsb^D$@hxN`?%o=~nEWCc`3an0n1GGv<{*DXJwiaJ% z$??i5s~4ujPHgkH%H+cDE}j2#jUgMusu7+eV3!1v!>wDVBkAleBO@z6W#V{??-+w` z6kQPqhcTH^b*Y&Cw=1%q|2L`>GiIKC0^88<-X|aOuG2O0_l%t&7I~LePMUO^Q&z_({ywjD23SxZBtpSSVLrk&B$*3-tJAQt31cOtAS+Kp{NwncZ7kI z7S=X4OzfTyAgawhYaPrX_cf zG>Y+<93cko{C+p>_hq>tAn6Wvp2eZkv_gB?>t95*XV#MwH%*GPs4E=mz2Ar&zVO|< z;LKtdEBG|d&`W!IkE^?_VE>V_h8iX&XVnxiGE5;zu3T0Ni=3@(d)C|?S9gKq9vi5* z@gsR(Jw(wyS4Y|GWKm(E->FkQJ9b<}k-?{Tv!L;lp6<@Vs2F<$V>QkU$u_VWGX{h) zb_cgFlqiD+xl-Tpkx8^JBKj8Q04N47xqJXY{RPU>Qas+gHSgLWT7;hTGm1yOKyspo z5*&j^Rn^FN?1g0(?3isKBQvaLje9rZCH`I$%H%K?K46#i$}S7fYUCz(!~PywAJ^bcVnW@*24{`^dcWS!ZqkZZPT)lq^q z$0aL%gM={wM&X%l7$y#ZGHm3?IrDVDSt(&!Db-;@u6^E{VU0x(8$O+=vRAJrLjEnw zeH42n?GjS}LVHf&4%Bs*-R?@r>nITl{mO(NXi9~2Nd7IdOl`cmWA{`9Qd>g-*+hy9 zek%P)t(uopTX$JeKc1z1u&zmoRq1)DV~sWP!#Wvv6_TS)}EUzNj8SfOQ<$z3NuSsd46Fot}}d z)6I6+S{M5snuAEoyRO_{A`3>21$eR}sAKuK`tos-ZLkhvbirfY?_wev_Fk3i=204J zmt@s63B79OLcy=40#m%-&T#K}LY7lwK@pmyBbo^LIjwDvQ32+WB-F=+P;w0o52E!m z*3ro50TM|cc|P`JMRn&U)bLBQBI#WTRiF{%Z0%CGi!xKq5HAya?W)RLv##(kDx~ko z)VsFS-dCQw9Tl2b(sHhO{y}*eL66k6fjzr+@BT8Pyr!ncXsDoUQldXkF{ST;+P8~j z4k&gWlcj^rc&L4pM2yo+JFSalqq*$Yw2^s+k(-VjnMsa2J|4?XqgEq{He$Oc`*CEx zTJ>0Kb?I(4tdU0~9F(GuGFA*ym_o(t2hz0lxJc-f!X~X}SM4ro%|ad9aK(T=Cv@DS z+dZbwTJJ@}9?%q9T9s7P$i(W`Xm^$T> zwH6{$)Iv(PKvFhu-b?@!=`L&yDlyatKWl0duU>to=R%F1QSJmoNz?6q1-mu#Aos{O z_`;13zlciuUzlfIxh@PLZP$D;BI4+oBX*w7d|!sEuS6*~&itiEp4UjEM&zG(Xc&0@ z+HvdEE74dol(kXrc(A!pDqtYV#a+QVI_-o5{owe>)0I^+R`?z9u*o>eO+EXo8#c=W*iICP6Sn+c5dKx)3yIH4ElRN>A&Tv>%7OT))(62K1KDV ztDEXfkddj9PSrR+P|SANs4Ja=`cZ29GP{D^{#U4lwn TXWLToF;ga)O*|`^yZL_sd!Ouy diff --git a/docs/articles/index.html b/docs/articles/index.html index 331cf09a..9f777dc6 100644 --- a/docs/articles/index.html +++ b/docs/articles/index.html @@ -78,7 +78,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025

diff --git a/docs/authors.html b/docs/authors.html index f1ee4ea0..dac0b881 100644 --- a/docs/authors.html +++ b/docs/authors.html @@ -78,7 +78,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 diff --git a/docs/index.html b/docs/index.html index 8a6ba10e..7712b63e 100644 --- a/docs/index.html +++ b/docs/index.html @@ -42,7 +42,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 diff --git a/docs/news/index.html b/docs/news/index.html index 4c8c600a..c5ab9efe 100644 --- a/docs/news/index.html +++ b/docs/news/index.html @@ -78,7 +78,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 diff --git a/docs/reference/as.mo.html b/docs/reference/as.mo.html index eaa6f33b..af1ff7bd 100644 --- a/docs/reference/as.mo.html +++ b/docs/reference/as.mo.html @@ -80,7 +80,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 @@ -252,7 +252,7 @@ mo_renamed() -clean_mo_history() +clean_mo_history(...)

Arguments

@@ -263,12 +263,12 @@ - - @@ -287,7 +287,7 @@

Value

-

Character (vector) with class "mo". Unknown values will return NA.

+

Character (vector) with class "mo"

Details

@@ -303,14 +303,15 @@ A microbial ID from this package (class: mo) typically looks like t | | | ----> subspecies, a 3-4 letter acronym | | ----> species, a 3-4 letter acronym | ----> genus, a 5-7 letter acronym, mostly without vowels - ----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria), C (Chromista), - F (Fungi), P (Protozoa) or PL (Plantae) + ----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria), + C (Chromista), F (Fungi), P (Protozoa) or + PL (Plantae) -

Values that cannot be coered will be considered 'unknown' and have an MO code UNKNOWN.

+

Values that cannot be coered will be considered 'unknown' and will get the MO code UNKNOWN.

Use the mo_property_* functions to get properties based on the returned code, see Examples.

The algorithm uses data from the Catalogue of Life (see below) and from one other source (see ?microorganisms).

Self-learning algoritm
-The as.mo() function gains experience from previously determined microbial IDs and learns from it. This drastically improves both speed and reliability. Use clean_mo_history() to reset the algorithms. Only experience from your current AMR package version is used. This is done because in the future the taxonomic tree (which is included in this package) may change for any organism and it consequently has to rebuild its knowledge. Usually, any guess after the first try runs 90-95% faster than the first try. The algorithm saves its previous findings to ~/.Rhistory_mo.

+The as.mo() function gains experience from previously determined microbial IDs and learns from it. This drastically improves both speed and reliability. Use clean_mo_history() to reset the algorithms. Only experience from your current AMR package version is used. This is done because in the future the taxonomic tree (which is included in this package) may change for any organism and it consequently has to rebuild its knowledge. Usually, any guess after the first try runs 80-95% faster than the first try. The algorithm saves its previous findings to ~/.Rhistory_mo.

Intelligent rules
This function uses intelligent rules to help getting fast and logical results. It tries to find matches in this order:

  • Valid MO codes and full names: it first searches in already valid MO code and known genus/species combinations

    • @@ -324,7 +325,7 @@ This function uses intelligent rules to help getting fast and logical results. I

  • Something like "stau" or "S aur" will return the ID of Staphylococcus aureus and not Staphylococcus auricularis

This means that looking up human pathogenic microorganisms takes less time than looking up human non-pathogenic microorganisms.

Uncertain results
-The algorithm can additionally use three different levels of uncertainty to guess valid results. The default is allow_uncertain = TRUE, which is uqual to uncertainty level 2. Using allow_uncertain = FALSE will skip all of these additional rules:

    +The algorithm can additionally use three different levels of uncertainty to guess valid results. The default is allow_uncertain = TRUE, which is equal to uncertainty level 2. Using allow_uncertain = FALSE will skip all of these additional rules:

    • (uncertainty level 1): It tries to look for only matching genera

    • (uncertainty level 1): It tries to look for previously accepted (but now invalid) taxonomic names

    • (uncertainty level 2): It strips off values between brackets and the brackets itself, and re-evaluates the input with all previous rules

      • @@ -354,8 +355,9 @@ The intelligent rules takes into account microbial prevalence of pathogens in hu

      [1] Becker K et al. Coagulase-Negative Staphylococci. 2014. Clin Microbiol Rev. 27(4): 870–926. https://dx.doi.org/10.1128/CMR.00109-13

      -

      [2] Lancefield RC A serological differentiation of human and other groups of hemolytic streptococci. 1933. J Exp Med. 57(4): 571–95. https://dx.doi.org/10.1084/jem.57.4.571

      -

      [3] Catalogue of Life: Annual Checklist (public online taxonomic database), www.catalogueoflife.org (check included annual version with catalogue_of_life_version()).

      +

      [2] Becker K et al. Implications of identifying the recently defined members of the S. aureus complex, S. argenteus and S. schweitzeri: A position paper of members of the ESCMID Study Group for staphylococci and Staphylococcal Diseases (ESGS).. 2019. Clin Microbiol Infect. 2019 Mar 11. https://doi.org/10.1016/j.cmi.2019.02.028

      +

      [3] Lancefield RC A serological differentiation of human and other groups of hemolytic streptococci. 1933. J Exp Med. 57(4): 571–95. https://dx.doi.org/10.1084/jem.57.4.571

      +

      [4] Catalogue of Life: Annual Checklist (public online taxonomic database), www.catalogueoflife.org (check included annual version with catalogue_of_life_version()).

      Catalogue of Life

      diff --git a/docs/reference/catalogue_of_life.html b/docs/reference/catalogue_of_life.html index 846b94f5..86b50d67 100644 --- a/docs/reference/catalogue_of_life.html +++ b/docs/reference/catalogue_of_life.html @@ -80,7 +80,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 diff --git a/docs/reference/catalogue_of_life_version.html b/docs/reference/catalogue_of_life_version.html index 44256430..49dfdb5c 100644 --- a/docs/reference/catalogue_of_life_version.html +++ b/docs/reference/catalogue_of_life_version.html @@ -80,7 +80,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 @@ -245,11 +245,11 @@

      Value

      -

      a list, invisibly

      +

      a list, which prints in pretty format

      Details

      -

      The list item is_latest_annual_release is based on the system date.

      +

      The list item ...$catalogue_of_life$is_latest_annual_release is based on the system date.

      For DSMZ, see ?microorganisms.

      Catalogue of Life

      diff --git a/docs/reference/count.html b/docs/reference/count.html index 5625f035..17cbcbac 100644 --- a/docs/reference/count.html +++ b/docs/reference/count.html @@ -81,7 +81,7 @@ count_R and count_IR can be used to count resistant isolates, count_S and count_ AMR (for R) - 0.5.0.9023 + 0.5.0.9025 @@ -340,7 +340,7 @@ count_R and count_IR can be used to count resistant isolates, count_S and count_ S = count_S(cipr), n1 = count_all(cipr), # the actual total; sum of all three n2 = n_rsi(cipr), # same - analogous to n_distinct - total = n()) # NOT the amount of tested isolates! + total = n()) # NOT the number of tested isolates! # Count co-resistance between amoxicillin/clav acid and gentamicin, # so we can see that combination therapy does a lot more than mono therapy. diff --git a/docs/reference/filter_ab_class.html b/docs/reference/filter_ab_class.html index 37129580..9baaef93 100644 --- a/docs/reference/filter_ab_class.html +++ b/docs/reference/filter_ab_class.html @@ -6,7 +6,7 @@ -Filter on antibiotic class — filter_ab_class • AMR (for R) +Filter isolates on result in antibiotic class — filter_ab_class • AMR (for R) @@ -45,9 +45,9 @@ - + - + @@ -80,7 +80,7 @@ AMR (for R) - 0.5.0.9023 + 0.5.0.9025 @@ -230,14 +230,14 @@
      -

      Filter on antibiotic class

      +

      Filter isolates on result in antibiotic class

      -

      Filter on specific antibiotic variables based on their class (ATC groups).

      +

      Filter isolates on results in specific antibiotic variables based on their class (ATC groups). This makes it easy to get a list of isolates that were tested for e.g. any aminoglycoside.

      @@ -274,7 +274,7 @@
- + @@ -317,8 +317,14 @@ # filter on isolates that show resistance to# any aminoglycoside and any fluoroquinoloneseptic_patients%>% - filter_aminoglycosides("R", "any") %>% - filter_fluoroquinolones("R", "any") + filter_aminoglycosides("R") %>% + filter_fluoroquinolones("R") + +# filter on isolates that show resistance to +# all aminoglycosides and all fluoroquinolones +septic_patients%>% + filter_aminoglycosides("R", "all") %>% + filter_fluoroquinolones("R", "all") # } @@ -431,7 +431,7 @@ - + - + @@ -311,14 +311,14 @@ portion_R and portion_IR can be used to calculate resistance, portion_S and port

The old rsi function is still available for backwards compatibility but is deprecated.

To calculate the probability (p) of susceptibility of one antibiotic, we use this formula: -

+
To calculate the probability (p) of susceptibility of more antibiotics (i.e. combination therapy), we need to check whether one of them has a susceptible result (as numerator) and count all cases where all antibiotics were tested (as denominator).

For two antibiotics: -
+

For three antibiotics: -
+

And so on.

@@ -362,8 +362,9 @@ portion_R and portion_IR can be used to calculate resistance, portion_S and port 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! + n1=count_all(cipr), # the actual total; sum of all three + n2=n_rsi(cipr), # same - analogous to n_distinct + total=n()) # NOT the number of tested isolates!# Calculate co-resistance between amoxicillin/clav acid and gentamicin,# so we can see that combination therapy does a lot more than mono therapy: diff --git a/docs/reference/rsi.html b/docs/reference/rsi.html index d102b48c..ad19d7ab 100644 --- a/docs/reference/rsi.html +++ b/docs/reference/rsi.html @@ -80,7 +80,7 @@ AMR (for R) - 0.5.0.9023 + 0.5.0.9025 @@ -257,7 +257,7 @@ - + diff --git a/man/as.mo.Rd b/man/as.mo.Rd index d64d3062..69fc3cf6 100644 --- a/man/as.mo.Rd +++ b/man/as.mo.Rd @@ -21,16 +21,16 @@ mo_uncertainties() mo_renamed() -clean_mo_history() +clean_mo_history(...) } \arguments{ \item{x}{a character vector or a \code{data.frame} with one or two columns} -\item{Becker}{a logical to indicate whether \emph{Staphylococci} should be categorised into Coagulase Negative \emph{Staphylococci} ("CoNS") and Coagulase Positive \emph{Staphylococci} ("CoPS") instead of their own species, according to Karsten Becker \emph{et al.} [1]. Note that this does not include species that were newly named after this publication. +\item{Becker}{a logical to indicate whether \emph{Staphylococci} should be categorised into coagulase-negative \emph{Staphylococci} ("CoNS") and coagulase-positive \emph{Staphylococci} ("CoPS") instead of their own species, according to Karsten Becker \emph{et al.} [1,2]. Note that this does not include species that were newly named after these publications, like \emph{S. caeli}. This excludes \emph{Staphylococcus aureus} at default, use \code{Becker = "all"} to also categorise \emph{S. aureus} as "CoPS".} -\item{Lancefield}{a logical to indicate whether beta-haemolytic \emph{Streptococci} should be categorised into Lancefield groups instead of their own species, according to Rebecca C. Lancefield [2]. These \emph{Streptococci} will be categorised in their first group, e.g. \emph{Streptococcus dysgalactiae} will be group C, although officially it was also categorised into groups G and L. +\item{Lancefield}{a logical to indicate whether beta-haemolytic \emph{Streptococci} should be categorised into Lancefield groups instead of their own species, according to Rebecca C. Lancefield [3]. These \emph{Streptococci} will be categorised in their first group, e.g. \emph{Streptococcus dysgalactiae} will be group C, although officially it was also categorised into groups G and L. This excludes \emph{Enterococci} at default (who are in group D), use \code{Lancefield = "all"} to also categorise all \emph{Enterococci} as group D.} @@ -41,7 +41,7 @@ clean_mo_history() \item{...}{other parameters passed on to functions} } \value{ -Character (vector) with class \code{"mo"}. Unknown values will return \code{NA}. +Character (vector) with class \code{"mo"} } \description{ Use this function to determine a valid microorganism ID (\code{mo}). Determination is done using intelligent rules and the complete taxonomic kingdoms Bacteria, Chromista, Protozoa, Archaea and most microbial species from the kingdom Fungi (see Source). The input can be almost anything: a full name (like \code{"Staphylococcus aureus"}), an abbreviated name (like \code{"S. aureus"}), an abbreviation known in the field (like \code{"MRSA"}), or just a genus. Please see Examples. @@ -60,18 +60,19 @@ A microbial ID from this package (class: \code{mo}) typically looks like these e | | | ----> subspecies, a 3-4 letter acronym | | ----> species, a 3-4 letter acronym | ----> genus, a 5-7 letter acronym, mostly without vowels - ----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria), C (Chromista), - F (Fungi), P (Protozoa) or PL (Plantae) + ----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria), + C (Chromista), F (Fungi), P (Protozoa) or + PL (Plantae) } -Values that cannot be coered will be considered 'unknown' and have an MO code \code{UNKNOWN}. +Values that cannot be coered will be considered 'unknown' and will get the MO code \code{UNKNOWN}. Use the \code{\link{mo_property}_*} functions to get properties based on the returned code, see Examples. The algorithm uses data from the Catalogue of Life (see below) and from one other source (see \code{?microorganisms}). \strong{Self-learning algoritm} \cr -The \code{as.mo()} function gains experience from previously determined microbial IDs and learns from it. This drastically improves both speed and reliability. Use \code{clean_mo_history()} to reset the algorithms. Only experience from your current \code{AMR} package version is used. This is done because in the future the taxonomic tree (which is included in this package) may change for any organism and it consequently has to rebuild its knowledge. Usually, any guess after the first try runs 90-95\% faster than the first try. The algorithm saves its previous findings to \code{~/.Rhistory_mo}. +The \code{as.mo()} function gains experience from previously determined microbial IDs and learns from it. This drastically improves both speed and reliability. Use \code{clean_mo_history()} to reset the algorithms. Only experience from your current \code{AMR} package version is used. This is done because in the future the taxonomic tree (which is included in this package) may change for any organism and it consequently has to rebuild its knowledge. Usually, any guess after the first try runs 80-95\% faster than the first try. The algorithm saves its previous findings to \code{~/.Rhistory_mo}. \strong{Intelligent rules} \cr This function uses intelligent rules to help getting fast and logical results. It tries to find matches in this order: @@ -91,7 +92,7 @@ A couple of effects because of these rules: This means that looking up human pathogenic microorganisms takes less time than looking up human non-pathogenic microorganisms. \strong{Uncertain results} \cr -The algorithm can additionally use three different levels of uncertainty to guess valid results. The default is \code{allow_uncertain = TRUE}, which is uqual to uncertainty level 2. Using \code{allow_uncertain = FALSE} will skip all of these additional rules: +The algorithm can additionally use three different levels of uncertainty to guess valid results. The default is \code{allow_uncertain = TRUE}, which is equal to uncertainty level 2. Using \code{allow_uncertain = FALSE} will skip all of these additional rules: \itemize{ \item{(uncertainty level 1): It tries to look for only matching genera} \item{(uncertainty level 1): It tries to look for previously accepted (but now invalid) taxonomic names} @@ -132,9 +133,11 @@ Group 2 probably contains all other microbial pathogens ever found in humans. [1] Becker K \emph{et al.} \strong{Coagulase-Negative Staphylococci}. 2014. Clin Microbiol Rev. 27(4): 870–926. \url{https://dx.doi.org/10.1128/CMR.00109-13} -[2] Lancefield RC \strong{A serological differentiation of human and other groups of hemolytic streptococci}. 1933. J Exp Med. 57(4): 571–95. \url{https://dx.doi.org/10.1084/jem.57.4.571} +[2] Becker K \emph{et al.} \strong{Implications of identifying the recently defined members of the S. aureus complex, S. argenteus and S. schweitzeri: A position paper of members of the ESCMID Study Group for staphylococci and Staphylococcal Diseases (ESGS).}. 2019. Clin Microbiol Infect. 2019 Mar 11. \url{https://doi.org/10.1016/j.cmi.2019.02.028} -[3] Catalogue of Life: Annual Checklist (public online taxonomic database), \url{www.catalogueoflife.org} (check included annual version with \code{\link{catalogue_of_life_version}()}). +[3] Lancefield RC \strong{A serological differentiation of human and other groups of hemolytic streptococci}. 1933. J Exp Med. 57(4): 571–95. \url{https://dx.doi.org/10.1084/jem.57.4.571} + +[4] Catalogue of Life: Annual Checklist (public online taxonomic database), \url{www.catalogueoflife.org} (check included annual version with \code{\link{catalogue_of_life_version}()}). } \section{Catalogue of Life}{ diff --git a/man/catalogue_of_life_version.Rd b/man/catalogue_of_life_version.Rd index 6bdce96f..9decac39 100644 --- a/man/catalogue_of_life_version.Rd +++ b/man/catalogue_of_life_version.Rd @@ -7,13 +7,13 @@ catalogue_of_life_version() } \value{ -a \code{list}, invisibly +a \code{list}, which prints in pretty format } \description{ This function returns information about the included data from the Catalogue of Life. It also shows if the included version is their latest annual release. The Catalogue of Life releases their annual release in March each year. } \details{ -The list item \code{is_latest_annual_release} is based on the system date. +The list item \code{...$catalogue_of_life$is_latest_annual_release} is based on the system date. For DSMZ, see \code{?microorganisms}. } diff --git a/man/count.Rd b/man/count.Rd index 3ab59c1b..adebc5b3 100644 --- a/man/count.Rd +++ b/man/count.Rd @@ -93,7 +93,7 @@ septic_patients \%>\% S = count_S(cipr), n1 = count_all(cipr), # the actual total; sum of all three n2 = n_rsi(cipr), # same - analogous to n_distinct - total = n()) # NOT the amount of tested isolates! + total = n()) # NOT the number of tested isolates! # Count co-resistance between amoxicillin/clav acid and gentamicin, # so we can see that combination therapy does a lot more than mono therapy. diff --git a/man/filter_ab_class.Rd b/man/filter_ab_class.Rd index 78ef7433..19df430c 100644 --- a/man/filter_ab_class.Rd +++ b/man/filter_ab_class.Rd @@ -13,7 +13,7 @@ \alias{filter_glycopeptides} \alias{filter_macrolides} \alias{filter_tetracyclines} -\title{Filter on antibiotic class} +\title{Filter isolates on result in antibiotic class} \usage{ filter_ab_class(tbl, ab_class, result = NULL, scope = "any", ...) @@ -42,7 +42,7 @@ filter_tetracyclines(tbl, result = NULL, scope = "any", ...) \arguments{ \item{tbl}{a data set} -\item{ab_class}{an antimicrobial class, like \code{"carbapenems"}} +\item{ab_class}{an antimicrobial class, like \code{"carbapenems"}. More specifically, this should be a text that can be found in a 4th level ATC group (chemical subgroup) or a 5th level ATC group (chemical substance), please see \href{https://www.whocc.no/atc/structure_and_principles/}{this explanation on the WHOCC website}.} \item{result}{an antibiotic result: S, I or R (or a combination of more of them)} @@ -51,7 +51,7 @@ filter_tetracyclines(tbl, result = NULL, scope = "any", ...) \item{...}{parameters passed on to \code{\link[dplyr]{filter_at}}} } \description{ -Filter on specific antibiotic variables based on their class (ATC groups). +Filter isolates on results in specific antibiotic variables based on their class (ATC groups). This makes it easy to get a list of isolates that were tested for e.g. any aminoglycoside. } \details{ The \code{\link{antibiotics}} data set will be searched for \code{ab_class} in the columns \code{atc_group1} and \code{atc_group2} (case-insensitive). Next, \code{tbl} will be checked for column names with a value in any abbreviations, codes or official names found in the \code{antibiotics} data set. @@ -77,8 +77,14 @@ septic_patients \%>\% filter_aminoglycosides("R", "all") # filter on isolates that show resistance to # any aminoglycoside and any fluoroquinolone septic_patients \%>\% - filter_aminoglycosides("R", "any") \%>\% - filter_fluoroquinolones("R", "any") + filter_aminoglycosides("R") \%>\% + filter_fluoroquinolones("R") + +# filter on isolates that show resistance to +# all aminoglycosides and all fluoroquinolones +septic_patients \%>\% + filter_aminoglycosides("R", "all") \%>\% + filter_fluoroquinolones("R", "all") } \keyword{fillter_class} \keyword{filter} diff --git a/man/mo_property.Rd b/man/mo_property.Rd index dc549af9..86092391 100644 --- a/man/mo_property.Rd +++ b/man/mo_property.Rd @@ -111,9 +111,11 @@ This package contains the complete taxonomic tree of almost all microorganisms ( [1] Becker K \emph{et al.} \strong{Coagulase-Negative Staphylococci}. 2014. Clin Microbiol Rev. 27(4): 870–926. \url{https://dx.doi.org/10.1128/CMR.00109-13} -[2] Lancefield RC \strong{A serological differentiation of human and other groups of hemolytic streptococci}. 1933. J Exp Med. 57(4): 571–95. \url{https://dx.doi.org/10.1084/jem.57.4.571} +[2] Becker K \emph{et al.} \strong{Implications of identifying the recently defined members of the S. aureus complex, S. argenteus and S. schweitzeri: A position paper of members of the ESCMID Study Group for staphylococci and Staphylococcal Diseases (ESGS).}. 2019. Clin Microbiol Infect. 2019 Mar 11. \url{https://doi.org/10.1016/j.cmi.2019.02.028} -[3] Catalogue of Life: Annual Checklist (public online taxonomic database), \url{www.catalogueoflife.org} (check included annual version with \code{\link{catalogue_of_life_version}()}). +[3] Lancefield RC \strong{A serological differentiation of human and other groups of hemolytic streptococci}. 1933. J Exp Med. 57(4): 571–95. \url{https://dx.doi.org/10.1084/jem.57.4.571} + +[4] Catalogue of Life: Annual Checklist (public online taxonomic database), \url{www.catalogueoflife.org} (check included annual version with \code{\link{catalogue_of_life_version}()}). } \section{Read more on our website!}{ diff --git a/man/portion.Rd b/man/portion.Rd index 1fbd5296..ee3f044e 100644 --- a/man/portion.Rd +++ b/man/portion.Rd @@ -36,7 +36,7 @@ portion_df(data, translate_ab = getOption("get_antibiotic_names", \arguments{ \item{...}{one or more vectors (or columns) with antibiotic interpretations. They will be transformed internally with \code{\link{as.rsi}} if needed. Use multiple columns to calculate (the lack of) co-resistance: the probability where one of two drugs have a resistant or susceptible result. See Examples.} -\item{minimum}{the minimal amount of available isolates. Any number lower than \code{minimum} will return \code{NA} with a warning. The default number of \code{30} isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.} +\item{minimum}{the minimum allowed number of available (tested) isolates. Any isolate count lower than \code{minimum} will return \code{NA} with a warning. The default number of \code{30} isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.} \item{as_percent}{a logical to indicate whether the output must be returned as a hundred fold with \% sign (a character). A value of \code{0.123456} will then be returned as \code{"12.3\%"}.} @@ -52,7 +52,7 @@ portion_df(data, translate_ab = getOption("get_antibiotic_names", Double or, when \code{as_percent = TRUE}, a character. } \description{ -These functions can be used to calculate the (co-)resistance of microbial isolates (i.e. percentage S, SI, I, IR or R). All functions support quasiquotation with pipes, can be used in \code{dplyr}s \code{\link[dplyr]{summarise}} and support grouped variables, see \emph{Examples}. +These functions can be used to calculate the (co-)resistance of microbial isolates (i.e. percentage of S, SI, I, IR or R). All functions support quasiquotation with pipes, can be used in \code{dplyr}s \code{\link[dplyr]{summarise}} and support grouped variables, see \emph{Examples}. \code{portion_R} and \code{portion_IR} can be used to calculate resistance, \code{portion_S} and \code{portion_SI} can be used to calculate susceptibility.\cr } @@ -67,14 +67,14 @@ The old \code{\link{rsi}} function is still available for backwards compatibilit \if{html}{ \cr\cr To calculate the probability (\emph{p}) of susceptibility of one antibiotic, we use this formula: - \out{
}\figure{mono_therapy.png}\out{
} + \out{
}\figure{combi_therapy_2.png}\out{
} To calculate the probability (\emph{p}) of susceptibility of more antibiotics (i.e. combination therapy), we need to check whether one of them has a susceptible result (as numerator) and count all cases where all antibiotics were tested (as denominator). \cr \cr For two antibiotics: - \out{
}\figure{combi_therapy_2.png}\out{
} + \out{
}\figure{combi_therapy_2.png}\out{
} \cr For three antibiotics: - \out{
}\figure{combi_therapy_3.png}\out{
} + \out{
}\figure{combi_therapy_2.png}\out{
} \cr And so on. } @@ -113,8 +113,9 @@ septic_patients \%>\% 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! + n1 = count_all(cipr), # the actual total; sum of all three + n2 = n_rsi(cipr), # same - analogous to n_distinct + total = n()) # NOT the number of tested isolates! # Calculate co-resistance between amoxicillin/clav acid and gentamicin, # so we can see that combination therapy does a lot more than mono therapy: diff --git a/man/rsi.Rd b/man/rsi.Rd index def785c0..9a96902b 100644 --- a/man/rsi.Rd +++ b/man/rsi.Rd @@ -12,7 +12,7 @@ rsi(ab1, ab2 = NULL, interpretation = "IR", minimum = 30, \item{interpretation}{antimicrobial interpretation to check for} -\item{minimum}{the minimal amount of available isolates. Any number lower than \code{minimum} will return \code{NA} with a warning. The default number of \code{30} isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.} +\item{minimum}{the minimum allowed number of available (tested) isolates. Any isolate count lower than \code{minimum} will return \code{NA} with a warning. The default number of \code{30} isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.} \item{as_percent}{a logical to indicate whether the output must be returned as a hundred fold with \% sign (a character). A value of \code{0.123456} will then be returned as \code{"12.3\%"}.} diff --git a/tests/testthat/test-get_locale.R b/tests/testthat/test-get_locale.R index 8e9880c1..d4631dd3 100644 --- a/tests/testthat/test-get_locale.R +++ b/tests/testthat/test-get_locale.R @@ -28,7 +28,7 @@ test_that("get_locale works", { expect_identical(mo_fullname("CoNS", "en"), "Coagulase-negative Staphylococcus (CoNS)") expect_identical(mo_fullname("CoNS", "de"), "Koagulase-negative Staphylococcus (KNS)") expect_identical(mo_fullname("CoNS", "nl"), "Coagulase-negatieve Staphylococcus (CNS)") - expect_identical(mo_fullname("CoNS", "es"), "Staphylococcus coagulasa negativo (CoNS)") + expect_identical(mo_fullname("CoNS", "es"), "Staphylococcus coagulasa negativo (SCN)") expect_identical(mo_fullname("CoNS", "it"), "Staphylococcus negativo coagulasi (CoNS)") # expect_identical(mo_fullname("CoNS", "fr"), "Staphylococcus \u00e0 coagulase n\u00e9gative (CoNS)") expect_identical(mo_fullname("CoNS", "pt"), "Staphylococcus coagulase negativo (CoNS)") diff --git a/tests/testthat/test-mo_history.R b/tests/testthat/test-mo_history.R index 7b272118..a0a6daf3 100644 --- a/tests/testthat/test-mo_history.R +++ b/tests/testthat/test-mo_history.R @@ -22,13 +22,23 @@ context("mo_history.R") test_that("mo_history works", { - clean_mo_history() + clean_mo_history(force = TRUE) expect_equal(read_mo_history(force = TRUE), NULL) - set_mo_history("testsubject", "B_ESCHR_COL", force = TRUE) - expect_equal(get_mo_history("testsubject", force = TRUE), + expect_equal(as.character(suppressWarnings(as.mo("testsubject"))), "UNKNOWN") + + set_mo_history("testsubject", "B_ESCHR_COL", + uncertainty_level = translate_allow_uncertain(TRUE), + force = TRUE) + + expect_equal(get_mo_history("testsubject", + uncertainty_level = translate_allow_uncertain(TRUE), + force = TRUE), "B_ESCHR_COL") + + expect_equal(as.character(suppressWarnings(as.mo("testsubject"))), "B_ESCHR_COL") + expect_equal(colnames(read_mo_history(force = TRUE)), - c("x", "mo", "package_version")) + c("x", "mo", "uncertainty_level", "package_version")) }) diff --git a/vignettes/AMR.Rmd b/vignettes/AMR.Rmd index 6a0f2a01..a0aa0787 100755 --- a/vignettes/AMR.Rmd +++ b/vignettes/AMR.Rmd @@ -315,7 +315,7 @@ data_1st %>% ## 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: +The functions `portion_S()`, `portion_SI()`, `portion_I()`, `portion_IR()` and `portion_R()` can be used to determine the portion of a specific antimicrobial outcome. They can be used on their own: ```{r} data_1st %>% portion_IR(amox)
Becker

a logical to indicate whether Staphylococci should be categorised into Coagulase Negative Staphylococci ("CoNS") and Coagulase Positive Staphylococci ("CoPS") instead of their own species, according to Karsten Becker et al. [1]. Note that this does not include species that were newly named after this publication.

+

a logical to indicate whether Staphylococci should be categorised into coagulase-negative Staphylococci ("CoNS") and coagulase-positive Staphylococci ("CoPS") instead of their own species, according to Karsten Becker et al. [1,2]. Note that this does not include species that were newly named after these publications, like S. caeli.

This excludes Staphylococcus aureus at default, use Becker = "all" to also categorise S. aureus as "CoPS".
Lancefield

a logical to indicate whether beta-haemolytic Streptococci should be categorised into Lancefield groups instead of their own species, according to Rebecca C. Lancefield [2]. These Streptococci will be categorised in their first group, e.g. Streptococcus dysgalactiae will be group C, although officially it was also categorised into groups G and L.

+

a logical to indicate whether beta-haemolytic Streptococci should be categorised into Lancefield groups instead of their own species, according to Rebecca C. Lancefield [3]. These Streptococci will be categorised in their first group, e.g. Streptococcus dysgalactiae will be group C, although officially it was also categorised into groups G and L.

This excludes Enterococci at default (who are in group D), use Lancefield = "all" to also categorise all Enterococci as group D.
ab_class

an antimicrobial class, like "carbapenems"

an antimicrobial class, like "carbapenems". More specifically, this should be a text that can be found in a 4th level ATC group (chemical subgroup) or a 5th level ATC group (chemical substance), please see this explanation on the WHOCC website.
result

filter_ab_class() filter_aminoglycosides() filter_carbapenems() filter_cephalosporins() filter_1st_cephalosporins() filter_2nd_cephalosporins() filter_3rd_cephalosporins() filter_4th_cephalosporins() filter_fluoroquinolones() filter_glycopeptides() filter_macrolides() filter_tetracyclines()

Filter on antibiotic class

Filter isolates on result in antibiotic class
diff --git a/docs/reference/microorganisms.html b/docs/reference/microorganisms.html index c773534c..bf77573d 100644 --- a/docs/reference/microorganisms.html +++ b/docs/reference/microorganisms.html @@ -80,7 +80,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 diff --git a/docs/reference/microorganisms.old.html b/docs/reference/microorganisms.old.html index 7a5e5f37..dde94272 100644 --- a/docs/reference/microorganisms.old.html +++ b/docs/reference/microorganisms.old.html @@ -80,7 +80,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 diff --git a/docs/reference/mo_property.html b/docs/reference/mo_property.html index 9e2ef6b1..314bbc64 100644 --- a/docs/reference/mo_property.html +++ b/docs/reference/mo_property.html @@ -80,7 +80,7 @@ AMR (for R) - 0.5.0.9024 + 0.5.0.9025 @@ -341,8 +341,9 @@ This package contains the complete taxonomic tree of almost all microorganisms (

[1] Becker K et al. Coagulase-Negative Staphylococci. 2014. Clin Microbiol Rev. 27(4): 870–926. https://dx.doi.org/10.1128/CMR.00109-13

-

[2] Lancefield RC A serological differentiation of human and other groups of hemolytic streptococci. 1933. J Exp Med. 57(4): 571–95. https://dx.doi.org/10.1084/jem.57.4.571

-

[3] Catalogue of Life: Annual Checklist (public online taxonomic database), www.catalogueoflife.org (check included annual version with catalogue_of_life_version()).

+

[2] Becker K et al. Implications of identifying the recently defined members of the S. aureus complex, S. argenteus and S. schweitzeri: A position paper of members of the ESCMID Study Group for staphylococci and Staphylococcal Diseases (ESGS).. 2019. Clin Microbiol Infect. 2019 Mar 11. https://doi.org/10.1016/j.cmi.2019.02.028

+

[3] Lancefield RC A serological differentiation of human and other groups of hemolytic streptococci. 1933. J Exp Med. 57(4): 571–95. https://dx.doi.org/10.1084/jem.57.4.571

+

[4] Catalogue of Life: Annual Checklist (public online taxonomic database), www.catalogueoflife.org (check included annual version with catalogue_of_life_version()).

Read more on our website!

diff --git a/docs/reference/portion.html b/docs/reference/portion.html index 28e94e0c..90d311cb 100644 --- a/docs/reference/portion.html +++ b/docs/reference/portion.html @@ -47,7 +47,7 @@ - @@ -81,7 +81,7 @@ portion_R and portion_IR can be used to calculate resistance, portion_S and port AMR (for R) - 0.5.0.9023 + 0.5.0.9025 @@ -238,7 +238,7 @@ portion_R and portion_IR can be used to calculate resistance, portion_S and port
-

These functions can be used to calculate the (co-)resistance of microbial isolates (i.e. percentage S, SI, I, IR or R). All functions support quasiquotation with pipes, can be used in dplyrs summarise and support grouped variables, see Examples.

+

These functions can be used to calculate the (co-)resistance of microbial isolates (i.e. percentage of S, SI, I, IR or R). All functions support quasiquotation with pipes, can be used in dplyrs summarise and support grouped variables, see Examples.

portion_R and portion_IR can be used to calculate resistance, portion_S and portion_SI can be used to calculate susceptibility.

@@ -270,7 +270,7 @@ portion_R and portion_IR can be used to calculate resistance, portion_S and port
minimum

the minimal amount of available isolates. Any number lower than minimum will return NA with a warning. The default number of 30 isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.

the minimum allowed number of available (tested) isolates. Any isolate count lower than minimum will return NA with a warning. The default number of 30 isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.
as_percent
minimum

the minimal amount of available isolates. Any number lower than minimum will return NA with a warning. The default number of 30 isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.

the minimum allowed number of available (tested) isolates. Any isolate count lower than minimum will return NA with a warning. The default number of 30 isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.
as_percent