From 193a2d2863db3549ed316ebcc368486f754105df Mon Sep 17 00:00:00 2001 From: "Matthijs S. Berends" Date: Tue, 8 Jan 2019 16:23:45 +0100 Subject: [PATCH] EUCAST update, as.mo bugfix for empty vlaues --- .gitignore | 1 + DESCRIPTION | 2 +- NEWS.md | 8 +- R/data.R | 2 +- R/eucast_rules.R | 128 +-- R/itis.R | 6 +- R/mo.R | 28 +- R/mo_property.R | 10 +- _pkgdown.yml | 12 +- docs/articles/AMR.html | 948 +++++++++--------- .../AMR_files/figure-html/plot 1-1.png | Bin 31700 -> 31951 bytes .../AMR_files/figure-html/plot 3-1.png | Bin 24216 -> 24228 bytes .../AMR_files/figure-html/plot 4-1.png | Bin 66604 -> 66607 bytes .../AMR_files/figure-html/plot 5-1.png | Bin 48872 -> 48879 bytes docs/articles/EUCAST.html | 3 +- docs/articles/G_test.html | 3 +- docs/articles/Predict.html | 1 + docs/articles/ab_property.html | 1 + docs/articles/freq.html | 69 +- docs/articles/mo_property.html | 1 + docs/extra.css | 11 +- docs/extra.js | 2 + docs/index.html | 26 +- docs/news/index.html | 212 +++- docs/pkgdown.yml | 2 +- docs/reference/ITIS.html | 316 ++++++ docs/reference/age_groups.html | 8 +- docs/reference/as.rsi.html | 4 +- docs/reference/count.html | 16 +- docs/reference/eucast_rules.html | 128 +-- docs/reference/first_isolate.html | 12 +- docs/reference/freq.html | 18 +- docs/reference/ggplot_rsi.html | 36 +- docs/reference/index.html | 6 +- docs/reference/join.html | 4 +- docs/reference/like.html | 2 +- docs/reference/mdro.html | 124 +-- docs/reference/microorganisms.certe.html | 2 +- docs/reference/microorganisms.umcg.html | 2 +- docs/reference/portion.html | 26 +- docs/reference/resistance_predict.html | 8 +- docs/sitemap.xml | 6 +- man/{itis.Rd => ITIS.Rd} | 6 +- man/eucast_rules.Rd | 128 +-- man/mdro.Rd | 124 +-- pkgdown/extra.css | 11 +- pkgdown/extra.js | 2 + vignettes/AMR.Rmd | 1 + vignettes/EUCAST.Rmd | 3 +- vignettes/G_test.Rmd | 3 +- vignettes/Predict.Rmd | 1 + vignettes/ab_property.Rmd | 1 + vignettes/freq.Rmd | 1 + vignettes/mo_property.Rmd | 1 + 54 files changed, 1504 insertions(+), 972 deletions(-) create mode 100644 docs/reference/ITIS.html rename man/{itis.Rd => ITIS.Rd} (96%) diff --git a/.gitignore b/.gitignore index a3e30bee..778fdaa4 100755 --- a/.gitignore +++ b/.gitignore @@ -1,5 +1,6 @@ Meta doc +.Renviron .Rproj.user .Rhistory .RData diff --git a/DESCRIPTION b/DESCRIPTION index 83bdcb56..5f5043e0 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: AMR Version: 0.5.0.9009 -Date: 2019-01-06 +Date: 2019-01-08 Title: Antimicrobial Resistance Analysis Authors@R: c( person( diff --git a/NEWS.md b/NEWS.md index 7b26b020..254bcc06 100755 --- a/NEWS.md +++ b/NEWS.md @@ -28,9 +28,13 @@ * New vignettes about how to conduct AMR analysis, predict antimicrobial resistance, use the *G*-test and more. These are also available (and even easier readable) on our website: https://msberends.gitlab.io/AMR. #### Changed -* Function `guess_mo()` is now deprecated in favour of `as.mo()` and will be remover in future versions -* Fixed a critical bug in `eucast_rules()` where some rules that depend on previous applied rules would not be applied adequately +* Function `eucast_rules()`: + * Updated EUCAST Clinical breakpoints to [version 9.0 of 1 January 2019](http://www.eucast.org/clinical_breakpoints/) + * Fixed a critical bug where some rules that depend on previous applied rules would not be applied adequately + * Emphasised in manual that penicillin is meant as benzylpenicillin (ATC [J01CE01](https://www.whocc.no/atc_ddd_index/?code=J01CE01)) +* Function `guess_mo()` is now deprecated in favour of `as.mo()` and will be removed in future versions * Improvements for `as.mo()`: + * Fix for vector containing only empty values * Finds better results when input is in other languages * Better handling for subspecies * Better handling for *Salmonellae* diff --git a/R/data.R b/R/data.R index a9ee2f1c..b1ad6748 100755 --- a/R/data.R +++ b/R/data.R @@ -127,7 +127,7 @@ #' Data set with taxonomic data from ITIS #' #' A data set containing the complete microbial taxonomy of the kingdoms Bacteria, Fungi and Protozoa. MO codes can be looked up using \code{\link{as.mo}}. -#' @inheritSection itis ITIS +#' @inheritSection ITIS ITIS #' @format A \code{\link{data.frame}} with 18,833 observations and 15 variables: #' \describe{ #' \item{\code{mo}}{ID of microorganism} diff --git a/R/eucast_rules.R b/R/eucast_rules.R index 616b8da9..9cc57146 100755 --- a/R/eucast_rules.R +++ b/R/eucast_rules.R @@ -34,68 +34,68 @@ #' #' Abbrevations of the column containing antibiotics in the form: \strong{abbreviation}: generic name (\emph{ATC code}) #' -#' \strong{amcl}: amoxicillin+clavulanic acid (\emph{J01CR02}), -#' \strong{amik}: amikacin (\emph{J01GB06}), -#' \strong{amox}: amoxicillin (\emph{J01CA04}), -#' \strong{ampi}: ampicillin (\emph{J01CA01}), -#' \strong{azit}: azithromycin (\emph{J01FA10}), -#' \strong{azlo}: azlocillin (\emph{J01CA09}), -#' \strong{aztr}: aztreonam (\emph{J01DF01}), -#' \strong{cefa}: cefaloridine (\emph{J01DB02}), -#' \strong{cfep}: cefepime (\emph{J01DE01}), -#' \strong{cfot}: cefotaxime (\emph{J01DD01}), -#' \strong{cfox}: cefoxitin (\emph{J01DC01}), -#' \strong{cfra}: cefradine (\emph{J01DB09}), -#' \strong{cfta}: ceftazidime (\emph{J01DD02}), -#' \strong{cftr}: ceftriaxone (\emph{J01DD04}), -#' \strong{cfur}: cefuroxime (\emph{J01DC02}), -#' \strong{chlo}: chloramphenicol (\emph{J01BA01}), -#' \strong{cipr}: ciprofloxacin (\emph{J01MA02}), -#' \strong{clar}: clarithromycin (\emph{J01FA09}), -#' \strong{clin}: clindamycin (\emph{J01FF01}), -#' \strong{clox}: flucloxacillin (\emph{J01CF05}), -#' \strong{coli}: colistin (\emph{J01XB01}), -#' \strong{czol}: cefazolin (\emph{J01DB04}), -#' \strong{dapt}: daptomycin (\emph{J01XX09}), -#' \strong{doxy}: doxycycline (\emph{J01AA02}), -#' \strong{erta}: ertapenem (\emph{J01DH03}), -#' \strong{eryt}: erythromycin (\emph{J01FA01}), -#' \strong{fosf}: fosfomycin (\emph{J01XX01}), -#' \strong{fusi}: fusidic acid (\emph{J01XC01}), -#' \strong{gent}: gentamicin (\emph{J01GB03}), -#' \strong{imip}: imipenem (\emph{J01DH51}), -#' \strong{kana}: kanamycin (\emph{J01GB04}), -#' \strong{levo}: levofloxacin (\emph{J01MA12}), -#' \strong{linc}: lincomycin (\emph{J01FF02}), -#' \strong{line}: linezolid (\emph{J01XX08}), -#' \strong{mero}: meropenem (\emph{J01DH02}), -#' \strong{mezl}: mezlocillin (\emph{J01CA10}), -#' \strong{mino}: minocycline (\emph{J01AA08}), -#' \strong{moxi}: moxifloxacin (\emph{J01MA14}), -#' \strong{nali}: nalidixic acid (\emph{J01MB02}), -#' \strong{neom}: neomycin (\emph{J01GB05}), -#' \strong{neti}: netilmicin (\emph{J01GB07}), -#' \strong{nitr}: nitrofurantoin (\emph{J01XE01}), -#' \strong{norf}: norfloxacin (\emph{J01MA06}), -#' \strong{novo}: novobiocin (an ATCvet code: \emph{QJ01XX95}), -#' \strong{oflo}: ofloxacin (\emph{J01MA01}), -#' \strong{peni}: penicillin (\emph{J01RA01}), -#' \strong{pipe}: piperacillin (\emph{J01CA12}), -#' \strong{pita}: piperacillin+tazobactam (\emph{J01CR05}), -#' \strong{poly}: polymyxin B (\emph{J01XB02}), -#' \strong{pris}: pristinamycin (\emph{J01FG01}), -#' \strong{qida}: quinupristin/dalfopristin (\emph{J01FG02}), -#' \strong{rifa}: rifampicin (\emph{J04AB02}), -#' \strong{roxi}: roxithromycin (\emph{J01FA06}), -#' \strong{siso}: sisomicin (\emph{J01GB08}), -#' \strong{teic}: teicoplanin (\emph{J01XA02}), -#' \strong{tetr}: tetracycline (\emph{J01AA07}), -#' \strong{tica}: ticarcillin (\emph{J01CA13}), -#' \strong{tige}: tigecycline (\emph{J01AA12}), -#' \strong{tobr}: tobramycin (\emph{J01GB01}), -#' \strong{trim}: trimethoprim (\emph{J01EA01}), -#' \strong{trsu}: sulfamethoxazole and trimethoprim (\emph{J01EE01}), -#' \strong{vanc}: vancomycin (\emph{J01XA01}). +#' \strong{amcl}: amoxicillin+clavulanic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01CR02}{J01CR02}), +#' \strong{amik}: amikacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB06}{J01GB06}), +#' \strong{amox}: amoxicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA04}{J01CA04}), +#' \strong{ampi}: ampicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA01}{J01CA01}), +#' \strong{azit}: azithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA10}{J01FA10}), +#' \strong{azlo}: azlocillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA09}{J01CA09}), +#' \strong{aztr}: aztreonam (\href{https://www.whocc.no/atc_ddd_index/?code=J01DF01}{J01DF01}), +#' \strong{cefa}: cefaloridine (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB02}{J01DB02}), +#' \strong{cfep}: cefepime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DE01}{J01DE01}), +#' \strong{cfot}: cefotaxime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD01}{J01DD01}), +#' \strong{cfox}: cefoxitin (\href{https://www.whocc.no/atc_ddd_index/?code=J01DC01}{J01DC01}), +#' \strong{cfra}: cefradine (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB09}{J01DB09}), +#' \strong{cfta}: ceftazidime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD02}{J01DD02}), +#' \strong{cftr}: ceftriaxone (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD04}{J01DD04}), +#' \strong{cfur}: cefuroxime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DC02}{J01DC02}), +#' \strong{chlo}: chloramphenicol (\href{https://www.whocc.no/atc_ddd_index/?code=J01BA01}{J01BA01}), +#' \strong{cipr}: ciprofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA02}{J01MA02}), +#' \strong{clar}: clarithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA09}{J01FA09}), +#' \strong{clin}: clindamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FF01}{J01FF01}), +#' \strong{clox}: flucloxacillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CF05}{J01CF05}), +#' \strong{coli}: colistin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XB01}{J01XB01}), +#' \strong{czol}: cefazolin (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB04}{J01DB04}), +#' \strong{dapt}: daptomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX09}{J01XX09}), +#' \strong{doxy}: doxycycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA02}{J01AA02}), +#' \strong{erta}: ertapenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH03}{J01DH03}), +#' \strong{eryt}: erythromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA01}{J01FA01}), +#' \strong{fosf}: fosfomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX01}{J01XX01}), +#' \strong{fusi}: fusidic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01XC01}{J01XC01}), +#' \strong{gent}: gentamicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB03}{J01GB03}), +#' \strong{imip}: imipenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH51}{J01DH51}), +#' \strong{kana}: kanamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB04}{J01GB04}), +#' \strong{levo}: levofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA12}{J01MA12}), +#' \strong{linc}: lincomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FF02}{J01FF02}), +#' \strong{line}: linezolid (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX08}{J01XX08}), +#' \strong{mero}: meropenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH02}{J01DH02}), +#' \strong{mezl}: mezlocillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA10}{J01CA10}), +#' \strong{mino}: minocycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA08}{J01AA08}), +#' \strong{moxi}: moxifloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA14}{J01MA14}), +#' \strong{nali}: nalidixic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01MB02}{J01MB02}), +#' \strong{neom}: neomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB05}{J01GB05}), +#' \strong{neti}: netilmicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB07}{J01GB07}), +#' \strong{nitr}: nitrofurantoin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XE01}{J01XE01}), +#' \strong{norf}: norfloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA06}{J01MA06}), +#' \strong{novo}: novobiocin (an ATCvet code: \href{https://www.whocc.no/atc_ddd_index/?code=QJ01XX95}{QJ01XX95}), +#' \strong{oflo}: ofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA01}{J01MA01}), +#' \strong{peni}: (benzyl)penicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CE01}{J01CE01}), +#' \strong{pipe}: piperacillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA12}{J01CA12}), +#' \strong{pita}: piperacillin+tazobactam (\href{https://www.whocc.no/atc_ddd_index/?code=J01CR05}{J01CR05}), +#' \strong{poly}: polymyxin B (\href{https://www.whocc.no/atc_ddd_index/?code=J01XB02}{J01XB02}), +#' \strong{pris}: pristinamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FG01}{J01FG01}), +#' \strong{qida}: quinupristin/dalfopristin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FG02}{J01FG02}), +#' \strong{rifa}: rifampicin (\href{https://www.whocc.no/atc_ddd_index/?code=J04AB02}{J04AB02}), +#' \strong{roxi}: roxithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA06}{J01FA06}), +#' \strong{siso}: sisomicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB08}{J01GB08}), +#' \strong{teic}: teicoplanin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XA02}{J01XA02}), +#' \strong{tetr}: tetracycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA07}{J01AA07}), +#' \strong{tica}: ticarcillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA13}{J01CA13}), +#' \strong{tige}: tigecycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA12}{J01AA12}), +#' \strong{tobr}: tobramycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB01}{J01GB01}), +#' \strong{trim}: trimethoprim (\href{https://www.whocc.no/atc_ddd_index/?code=J01EA01}{J01EA01}), +#' \strong{trsu}: sulfamethoxazole and trimethoprim (\href{https://www.whocc.no/atc_ddd_index/?code=J01EE01}{J01EE01}), +#' \strong{vanc}: vancomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XA01}{J01XA01}). #' @keywords interpretive eucast reading resistance #' @rdname eucast_rules #' @export @@ -114,8 +114,8 @@ #' \url{http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Expert_Rules/Expert_rules_intrinsic_exceptional_V3.1.pdf} #' } #' \item{ -#' EUCAST Breakpoint tables for interpretation of MICs and zone diameters. Version 8.1, 2018. \cr -#' \url{http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Breakpoint_tables/v_8.1_Breakpoint_Tables.xlsx} +#' EUCAST Breakpoint tables for interpretation of MICs and zone diameters. Version 9.0, 2019. \cr +#' \url{http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Breakpoint_tables/v_9.0_Breakpoint_Tables.xlsx} #' } #' } #' @inheritSection AMR Read more on our website! diff --git a/R/itis.R b/R/itis.R index 6b3e78fa..e4bc2477 100644 --- a/R/itis.R +++ b/R/itis.R @@ -30,12 +30,12 @@ #' #' ITIS is a partnership of U.S., Canadian, and Mexican agencies and taxonomic specialists [3]. #' @inheritSection AMR Read more on our website! -#' @name itis -#' @rdname itis +#' @name ITIS +#' @rdname ITIS #' @examples #' # Get a note when a species was renamed #' mo_shortname("Chlamydia psittaci") -#' # Note: 'Chlamydia psittaci' (Page, 1968) was renamed +#' # Note: 'Chlamydia psittaci' (Page, 1968) was renamed #' # 'Chlamydophila psittaci' (Everett et al., 1999) #' # [1] "C. psittaci" #' diff --git a/R/mo.R b/R/mo.R index 666f64c7..fe7702f3 100644 --- a/R/mo.R +++ b/R/mo.R @@ -76,7 +76,7 @@ #' \item{\code{"D. spartina"}. This is the abbreviation of an old taxonomic name: \emph{Didymosphaeria spartinae} (the last "e" was missing from the input). This fungus was renamed to \emph{Leptosphaeria obiones}, so a warning will be thrown that this result (\code{F_LPTSP_OBI}) needs review.} #' } #' -#' @inheritSection itis ITIS +#' @inheritSection ITIS ITIS # (source as a section, so it can be inherited by other man pages) #' @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} @@ -211,8 +211,16 @@ exec_as.mo <- function(x, Becker = FALSE, Lancefield = FALSE, reference_df[] <- lapply(reference_df, as.character) ) } - - if (all(x %in% microorganismsDT[["mo"]])) { + if (all(identical(trimws(x_input), "") | is.na(x_input))) { + # all empty + if (property == "mo") { + return(structure(rep(NA_character_, length(x_input)), class = "mo")) + } else if (property == "tsn") { + return(rep(NA_integer_, length(x_input))) + } else { + return(rep(NA_character_, length(x_input))) + } + } else if (all(x %in% microorganismsDT[["mo"]])) { # existing mo codes when not looking for property "mo", like mo_genus("B_ESCHR_COL") x <- microorganismsDT[data.table(mo = x), on = "mo", ..property][[1]] } else if (!is.null(reference_df) @@ -665,6 +673,16 @@ exec_as.mo <- function(x, Becker = FALSE, Lancefield = FALSE, } } + # (4) not yet implemented taxonomic changes in ITIS + found <- suppressMessages(suppressWarnings(exec_as.mo(temp_changes(b.x_trimmed), clear_options = FALSE, allow_uncertain = FALSE))) + if (!is.na(found)) { + found <- microorganismsDT[mo == found, ..property][[1]] + warning(red(paste0('UNCERTAIN - "', + a.x_backup, '" -> ', italic(microorganismsDT[mo == found[1L], fullname][[1]]), " (", found[1L], ")")), + call. = FALSE, immediate. = FALSE) + return(found[1L]) + } + # didn't found in uncertain results too return(NA_character_) } @@ -780,6 +798,10 @@ exec_as.mo <- function(x, Becker = FALSE, Lancefield = FALSE, x } +temp_changes <- function(x) { + x[x %like% 'Cutibacterium'] <- gsub('Cutibacterium', 'Propionibacterium', x[x %like% 'Cutibacterium']) +} + #' @importFrom crayon blue italic renamed_note <- function(name_old, name_new, ref_old = "", ref_new = "", mo = "") { if (!is.na(ref_old)) { diff --git a/R/mo_property.R b/R/mo_property.R index 3d0493c0..ae8bb176 100644 --- a/R/mo_property.R +++ b/R/mo_property.R @@ -33,7 +33,7 @@ #' \item{\code{mo_ref("Chlamydophila psittaci")} will return \code{"Everett et al., 1999"} (without a warning)} #' } #' @inheritSection get_locale Supported languages -#' @inheritSection itis ITIS +#' @inheritSection ITIS ITIS #' @inheritSection as.mo Source #' @rdname mo_property #' @name mo_property @@ -480,6 +480,12 @@ mo_validate <- function(x, property, ...) { | Lancefield %in% c(TRUE, "all")) { exec_as.mo(x, property = property, ...) } else { - x + if (property == "mo") { + return(structure(x, class = "mo")) + } else if (property == "tsn") { + return(as.integer(x)) + } else { + return(x) + } } } diff --git a/_pkgdown.yml b/_pkgdown.yml index 76aa269a..b2197338 100644 --- a/_pkgdown.yml +++ b/_pkgdown.yml @@ -71,13 +71,13 @@ navbar: href: 'LICENSE-text.html' reference: -- title: Backround information +- title: 'Background information' desc: > Some pages about our package and its external sources. contents: - '`AMR`' - - '`itis`' -- title: Cleaning your data + - '`ITIS`' +- title: 'Cleaning your data' desc: > Functions for cleaning and optimising your data, to be able to add variables later on (like taxonomic properties) or to @@ -87,7 +87,7 @@ reference: - '`eucast_rules`' - '`guess_ab`' - '`read.4D`' -- title: Adding variables to your data +- title: 'Adding variables to your data' desc: > Functions to add new data to existing data, like the determination of first isolates, @@ -103,7 +103,7 @@ reference: - '`age_groups`' - '`p.symbol`' - '`join`' -- title: Analysing your data +- title: 'Analysing your data' desc: > Functions for conducting AMR analysis contents: @@ -116,7 +116,7 @@ reference: - '`resistance_predict`' - '`rsi`' - '`skewness`' -- title: Included data sets +- title: 'Included data sets' desc: > References for microorganisms and antibiotics, and even a genuine data set with isolates from septic patients. diff --git a/docs/articles/AMR.html b/docs/articles/AMR.html index 8b3a9a1a..9e9b3092 100644 --- a/docs/articles/AMR.html +++ b/docs/articles/AMR.html @@ -171,6 +171,7 @@

How to conduct AMR analysis

Matthijs S. Berends

+

08 January 2019

@@ -179,7 +180,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 04 January 2019.

+

Note: values on this page will change with every website update since they are based on randomly created values and the page was written in RMarkdown. However, the methodology remains unchanged. This page was generated on 08 January 2019.

Introduction

@@ -195,21 +196,21 @@ -2019-01-04 +2019-01-08 abcd Escherichia coli S S -2019-01-04 +2019-01-08 abcd Escherichia coli S R -2019-01-04 +2019-01-08 efgh Escherichia coli R @@ -223,9 +224,9 @@ Needed R packages

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

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

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

@@ -236,51 +237,51 @@

Patients

To start with patients, we need a unique list of patients.

-
patients <- unlist(lapply(LETTERS, paste0, 1:10))
+
patients <- unlist(lapply(LETTERS, paste0, 1:10))

The LETTERS object is available in R - it’s a vector with 26 characters: A to Z. The patients object we just created is now a vector of length 260, with values (patient IDs) varying from A1 to Z10. Now we we also set the gender of our patients, by putting the ID and the gender in a table:

-
patients_table <- data.frame(patient_id = patients,
-                             gender = c(rep("M", 135),
-                                        rep("F", 125)))
+
patients_table <- data.frame(patient_id = patients,
+                             gender = c(rep("M", 135),
+                                        rep("F", 125)))

The first 135 patient IDs are now male, the other 125 are female.

Dates

Let’s pretend that our data consists of blood cultures isolates from 1 January 2010 until 1 January 2018.

-
dates <- seq(as.Date("2010-01-01"), as.Date("2018-01-01"), by = "day")
+
dates <- seq(as.Date("2010-01-01"), as.Date("2018-01-01"), by = "day")

This dates object now contains all days in our date range.

Microorganisms

For this tutorial, we will uses four different microorganisms: Escherichia coli, Staphylococcus aureus, Streptococcus pneumoniae, and Klebsiella pneumoniae:

-
bacteria <- c("Escherichia coli", "Staphylococcus aureus",
-              "Streptococcus pneumoniae", "Klebsiella pneumoniae")
+
bacteria <- c("Escherichia coli", "Staphylococcus aureus",
+              "Streptococcus pneumoniae", "Klebsiella pneumoniae")

Other variables

For completeness, we can also add the hospital where the patients was admitted and we need to define valid antibmicrobial results for our randomisation:

-
hospitals <- c("Hospital A", "Hospital B", "Hospital C", "Hospital D")
-ab_interpretations <- c("S", "I", "R")
+
hospitals <- c("Hospital A", "Hospital B", "Hospital C", "Hospital D")
+ab_interpretations <- c("S", "I", "R")

Put everything together

-

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

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

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

-
data <- data %>% left_join(patients_table)
+

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

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

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

+

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

-
head(data)
+
head(data)
@@ -295,71 +296,71 @@ ab_interpretations <- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
date2014-02-20D5Hospital AEscherichia coliRSSSM
2010-06-17N4Hospital AEscherichia coliSSRSM
2017-08-02A6Hospital BStaphylococcus aureusRIRSM
2012-11-25K7Hospital AEscherichia coliISSSM
2012-06-24G9Hospital BEscherichia coliRSSRM
2011-05-20T72011-02-27M6 Hospital C Escherichia coli S SRSM
2012-07-12C2Hospital BStreptococcus pneumoniaeSRSSM
2016-09-13O7Hospital AEscherichia coliRR S S F
2016-12-05E4Hospital AEscherichia coliISSSM
2017-10-05M1Hospital AEscherichia coliRIRSM
2012-02-22H9Hospital CStreptococcus pneumoniaeSSRSM

Now, let’s start the cleaning and the analysis!

@@ -369,7 +370,7 @@ ab_interpretations <- Cleaning the data

Use the frequency table function freq() to look specifically for unique values in any variable. For example, for the gender variable:

-
data %>% freq(gender) # this would be the same: freq(data$gender)
+
data %>% freq(gender) # this would be the same: freq(data$gender)
# Frequency table of `gender` 
 # Class:   factor (numeric)  
 # Levels:  F, M  
@@ -378,67 +379,67 @@ ab_interpretations <- mutate() function of the dplyr package makes this really easy:

-
data <- data %>%
-  mutate(bacteria = as.mo(bacteria))

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

-
data <- data %>%
-  mutate_at(vars(amox:gent), as.rsi)

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

+
data <- data %>%
+  mutate(bacteria = as.mo(bacteria))

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

+
data <- data %>%
+  mutate_at(vars(amox:gent), as.rsi)

 
Finally, we will apply EUCAST rules on our antimicrobial results. In Europe, most medical microbiological laboratories already apply these rules. Our package features their latest insights on intrinsic resistance and exceptional phenotypes. Moreover, the eucast_rules() function can also apply additional rules, like forcing ampicillin = R when amoxicillin/clavulanic acid = R.

 
Because the amoxicillin (column amox) and amoxicillin/clavulanic acid (column amcl) in our data were generated randomly, some rows will undoubtedly contain amox = S and amcl = R, which is technically impossible. The eucast_rules() fixes this:

-
data <- eucast_rules(data, col_mo = "bacteria")
-# 
-# Rules by the European Committee on Antimicrobial Susceptibility Testing (EUCAST)
-# 
-# EUCAST Clinical Breakpoints (v8.1, 2018)
-# Enterobacteriales (Order) (no changes)
-# Staphylococcus (no changes)
-# Enterococcus (no changes)
-# Streptococcus groups A, B, C, G (no changes)
-# Streptococcus pneumoniae (no changes)
-# Viridans group streptococci (no changes)
-# Haemophilus influenzae (no changes)
-# Moraxella catarrhalis (no changes)
-# Anaerobic Gram positives (no changes)
-# Anaerobic Gram negatives (no changes)
-# Pasteurella multocida (no changes)
-# Campylobacter jejuni and C. coli (no changes)
-# Aerococcus sanguinicola and A. urinae (no changes)
-# Kingella kingae (no changes)
-# 
-# EUCAST Expert Rules, Intrinsic Resistance and Exceptional Phenotypes (v3.1, 2016)
-# Table 1:  Intrinsic resistance in Enterobacteriaceae (332 changes)
-# Table 2:  Intrinsic resistance in non-fermentative Gram-negative bacteria (no changes)
-# Table 3:  Intrinsic resistance in other Gram-negative bacteria (no changes)
-# Table 4:  Intrinsic resistance in Gram-positive bacteria (658 changes)
-# Table 8:  Interpretive rules for B-lactam agents and Gram-positive cocci (no changes)
-# Table 9:  Interpretive rules for B-lactam agents and Gram-negative rods (no changes)
-# Table 10: Interpretive rules for B-lactam agents and other Gram-negative bacteria (no changes)
-# Table 11: Interpretive rules for macrolides, lincosamides, and streptogramins (no changes)
-# Table 12: Interpretive rules for aminoglycosides (no changes)
-# Table 13: Interpretive rules for quinolones (no changes)
-# 
-# Other rules
-# Non-EUCAST: ampicillin = R where amoxicillin/clav acid = R (no changes)
-# Non-EUCAST: piperacillin = R where piperacillin/tazobactam = R (no changes)
-# Non-EUCAST: trimethoprim = R where trimethoprim/sulfa = R (no changes)
-# Non-EUCAST: amoxicillin/clav acid = S where ampicillin = S (no changes)
-# Non-EUCAST: piperacillin/tazobactam = S where piperacillin = S (no changes)
-# Non-EUCAST: trimethoprim/sulfa = S where trimethoprim = S (no changes)
-# 
-# => EUCAST rules affected 1,828 out of 5,000 rows -> changed 990 test results.

+
data <- eucast_rules(data, col_mo = "bacteria")
+# 
+# Rules by the European Committee on Antimicrobial Susceptibility Testing (EUCAST)
+# 
+# EUCAST Clinical Breakpoints (v8.1, 2018)
+# Enterobacteriales (Order) (no changes)
+# Staphylococcus (no changes)
+# Enterococcus (no changes)
+# Streptococcus groups A, B, C, G (no changes)
+# Streptococcus pneumoniae (no changes)
+# Viridans group streptococci (no changes)
+# Haemophilus influenzae (no changes)
+# Moraxella catarrhalis (no changes)
+# Anaerobic Gram positives (no changes)
+# Anaerobic Gram negatives (no changes)
+# Pasteurella multocida (no changes)
+# Campylobacter jejuni and C. coli (no changes)
+# Aerococcus sanguinicola and A. urinae (no changes)
+# Kingella kingae (no changes)
+# 
+# EUCAST Expert Rules, Intrinsic Resistance and Exceptional Phenotypes (v3.1, 2016)
+# Table 1:  Intrinsic resistance in Enterobacteriaceae (349 changes)
+# Table 2:  Intrinsic resistance in non-fermentative Gram-negative bacteria (no changes)
+# Table 3:  Intrinsic resistance in other Gram-negative bacteria (no changes)
+# Table 4:  Intrinsic resistance in Gram-positive bacteria (694 changes)
+# Table 8:  Interpretive rules for B-lactam agents and Gram-positive cocci (no changes)
+# Table 9:  Interpretive rules for B-lactam agents and Gram-negative rods (no changes)
+# Table 10: Interpretive rules for B-lactam agents and other Gram-negative bacteria (no changes)
+# Table 11: Interpretive rules for macrolides, lincosamides, and streptogramins (no changes)
+# Table 12: Interpretive rules for aminoglycosides (no changes)
+# Table 13: Interpretive rules for quinolones (no changes)
+# 
+# Other rules
+# Non-EUCAST: ampicillin = R where amoxicillin/clav acid = R (no changes)
+# Non-EUCAST: piperacillin = R where piperacillin/tazobactam = R (no changes)
+# Non-EUCAST: trimethoprim = R where trimethoprim/sulfa = R (no changes)
+# Non-EUCAST: amoxicillin/clav acid = S where ampicillin = S (no changes)
+# Non-EUCAST: piperacillin/tazobactam = S where piperacillin = S (no changes)
+# Non-EUCAST: trimethoprim/sulfa = S where trimethoprim = S (no changes)
+# 
+# => EUCAST rules affected 1,854 out of 5,000 rows -> changed 1,043 test results.

Adding new variables

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

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

First isolates

@@ -449,18 +450,18 @@ ab_interpretations <- M39-A4 Analysis and Presentation of Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4

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

-
data <- data %>% 
-  mutate(first = first_isolate(.))
-# NOTE: Using column `bacteria` as input for `col_mo`.
-# NOTE: Using column `date` as input for `col_date`.
-# NOTE: Using column `patient_id` as input for `col_patient_id`.
-# => Found 2,950 first isolates (59.0% of total)
-

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

-
data_1st <- data %>% 
-  filter(first == TRUE)
+ +

So only 58.6% is suitable for resistance analysis! We can now filter on is 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:

-
data_1st <- data %>% 
-  filter_first_isolate()
+

@@ -481,21 +482,21 @@ ab_interpretations <- 1 -2010-05-26 -D5 +2010-01-31 +L4 B_ESCHR_COL R -R -R +S +S S TRUE 2 -2010-06-05 -D5 +2010-08-01 +L4 B_ESCHR_COL -S +R S S S @@ -503,74 +504,74 @@ ab_interpretations <- 3 -2010-09-13 -D5 +2010-12-29 +L4 B_ESCHR_COL +I S -S -S +R S FALSE 4 -2010-12-19 -D5 +2011-01-21 +L4 B_ESCHR_COL -S R +I S S FALSE 5 -2012-03-01 -D5 +2011-02-06 +L4 B_ESCHR_COL +I S R S -S TRUE 6 -2012-04-14 -D5 +2011-05-30 +L4 B_ESCHR_COL S -S -S -S -FALSE - - -7 -2013-01-04 -D5 -B_ESCHR_COL -S -S -S -S -FALSE - - -8 -2013-01-22 -D5 -B_ESCHR_COL -I I R S FALSE +7 +2011-08-16 +L4 +B_ESCHR_COL +S +S +R +R +FALSE + + +8 +2012-01-15 +L4 +B_ESCHR_COL +S +S +S +S +FALSE + + 9 -2013-03-20 -D5 +2014-07-16 +L4 B_ESCHR_COL S S @@ -580,34 +581,34 @@ ab_interpretations <- 10 -2013-09-13 -D5 +2014-09-19 +L4 B_ESCHR_COL S -S -S R +S +S FALSE

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

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

-
data <- data %>% 
-  mutate(keyab = key_antibiotics(.)) %>% 
-  mutate(first_weighted = first_isolate(.))
-# NOTE: Using column `bacteria` as input for `col_mo`.
-#   amox   amcl   cipr   gent 
-# "amox" "amcl" "cipr" "gent" 
-# [1] "amox" "amcl" "cipr"
-#   amox   amcl   cipr   gent 
-# "amox" "amcl" "cipr" "gent"
-# NOTE: Using column `bacteria` as input for `col_mo`.
-# NOTE: Using column `date` as input for `col_date`.
-# NOTE: Using column `patient_id` as input for `col_patient_id`.
-# NOTE: Using column `keyab` as input for `col_keyantibiotics`. Use col_keyantibiotics = FALSE to prevent this.
-# [Criterion] Inclusion based on key antibiotics, ignoring I.
-# => Found 4,430 first weighted isolates (88.6% of total)
+ @@ -624,47 +625,47 @@ ab_interpretations <- - - + + - - + + - - + + + + + + + + + + + + + + - - - - - - - - - - - - - - + + - + @@ -672,56 +673,56 @@ ab_interpretations <- - - + + + - - - + + - - + + - + - - + + - - - + + + - - + + - - - + + + - - + + @@ -732,30 +733,31 @@ ab_interpretations <- - - + + - - + +
isolate12010-05-26D52010-01-31L4 B_ESCHR_COL RRRSS S TRUE TRUE
22010-06-05D52010-08-01L4 B_ESCHR_COLR S S SFALSEFALSE
32010-12-29L4B_ESCHR_COLISR S FALSE TRUE
32010-09-13D5B_ESCHR_COLSSSSFALSEFALSE
42010-12-19D52011-01-21L4 B_ESCHR_COLS RI S S FALSE52012-03-01D52011-02-06L4 B_ESCHR_COLI S R SS TRUE TRUE
62012-04-14D52011-05-30L4 B_ESCHR_COL SSSIR S FALSETRUEFALSE
72013-01-04D52011-08-16L4 B_ESCHR_COL S SSSFALSERR FALSETRUE
82013-01-22D52012-01-15L4 B_ESCHR_COLIIRSSS S FALSE TRUE
92013-03-20D52014-07-16L4 B_ESCHR_COL S S102013-09-13D52014-09-19L4 B_ESCHR_COL SSS RSS FALSE TRUE
-

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

+

Instead of 3, now 8 isolates are flagged. In total, 88.7% of all isolates are marked ‘first weighted’ - 147.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.

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

-
data_1st <- data %>% 
-  filter_first_weighted_isolate()
-

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

+ +

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

We can remove unneeded columns:

-
data_1st <- data_1st %>% 
-  select(-c(first, keyab))
+

Now our data looks like:

-
head(data_1st)
+
head(data_1st)
+ @@ -772,87 +774,45 @@ ab_interpretations <- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -861,6 +821,54 @@ ab_interpretations <- coli + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
date patient_id hospital2014-02-20D5Hospital AB_ESCHR_COLRSSSMGram negativeEscherichiacoliTRUE
2010-06-17N4Hospital AB_ESCHR_COLSSRSMGram negativeEscherichiacoliTRUE
2017-08-02A6Hospital BB_STPHY_AURRIRSMGram positiveStaphylococcusaureusTRUE
2012-11-25K7Hospital AB_ESCHR_COLISSSMGram negativeEscherichiacoliTRUE
2012-06-24G9Hospital BB_ESCHR_COLRSSRMGram negativeEscherichiacoliTRUE
2011-05-20T712011-02-27M6 Hospital C B_ESCHR_COL S SRSMGram negativeEscherichiacoliTRUE
22012-07-12C2Hospital BB_STRPTC_PNESRSRMGram positiveStreptococcuspneumoniaeTRUE
32016-09-13O7Hospital AB_ESCHR_COLRR S S FTRUE
52017-10-05M1Hospital AB_ESCHR_COLRIRSMGram negativeEscherichiacoliTRUE
62012-02-22H9Hospital CB_STRPTC_PNESSRRMGram positiveStreptococcuspneumoniaeTRUE
72011-01-13S6Hospital DB_STPHY_AURISSSFGram positiveStaphylococcusaureusTRUE

Time for the analysis!

@@ -871,12 +879,12 @@ ab_interpretations <- Analysing the data

You might want to start by getting an idea of how the data is distributed. It’s an important start, because it also decides how you will continue your analysis. ## Dispersion of species To just get an idea how the species are distributed, create a frequency table with our freq() function. We created the genus and species column earlier based on the microbial ID. With paste(), we can concatenate them together.

The freq() function can be used like the base R language was intended:

-
freq(paste(data_1st$genus, data_1st$species))
+
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)
+
data_1st %>% freq(genus, species)

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

Shortest: 16
Longest: 24

@@ -893,33 +901,33 @@ Longest: 24

1 Escherichia coli -2,206 -49.8% -2,206 -49.8% +2,203 +49.7% +2,203 +49.7% 2 Staphylococcus aureus -1,093 -24.7% -3,299 -74.5% +1,072 +24.2% +3,275 +73.8% 3 Streptococcus pneumoniae -667 -15.1% -3,966 -89.5% +689 +15.5% +3,964 +89.4% 4 Klebsiella pneumoniae -464 -10.5% -4,430 +471 +10.6% +4,435 100.0% @@ -928,12 +936,12 @@ 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:

-
data_1st %>% portion_IR(amox)
-# [1] 0.46614
-

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

-
data_1st %>% 
-  group_by(hospital) %>% 
-  summarise(amoxicillin = portion_IR(amox))
+ +

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

+
data_1st %>% 
+  group_by(hospital) %>% 
+  summarise(amoxicillin = portion_IR(amox))
@@ -942,27 +950,27 @@ Longest: 24

- + - + - + - +
hospital
Hospital A0.46058730.4504164
Hospital B0.46242770.4782034
Hospital C0.48538010.4670571
Hospital D0.46592180.4471101
-

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

-
data_1st %>% 
-  group_by(hospital) %>% 
-  summarise(amoxicillin = portion_IR(amox),
-            available = n_rsi(amox))
+

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

+
data_1st %>% 
+  group_by(hospital) %>% 
+  summarise(amoxicillin = portion_IR(amox),
+            available = n_rsi(amox))
@@ -972,32 +980,32 @@ Longest: 24

- - + + - - + + - - + + - - + +
hospital
Hospital A0.460587312940.45041641321
Hospital B0.462427715570.47820341514
Hospital C0.48538016840.4670571683
Hospital D0.46592188950.4471101917

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

-
data_1st %>% 
-  group_by(genus) %>% 
-  summarise(amoxicillin = portion_S(amcl),
-            gentamicin = portion_S(gent),
-            "amox + gent" = portion_S(amcl, gent))
+
data_1st %>% 
+  group_by(genus) %>% 
+  summarise(amoxicillin = portion_S(amcl),
+            gentamicin = portion_S(gent),
+            "amox + gent" = portion_S(amcl, gent))
@@ -1008,94 +1016,94 @@ Longest: 24

- - - + + + - - - + + + - - - + + + - + - +
genus
Escherichia0.73073440.91205800.97824120.71629600.90512940.9786655
Klebsiella0.75215520.91810340.98060340.74946920.91295120.9766454
Staphylococcus0.74199450.92680700.97987190.73414180.92444030.9776119
Streptococcus0.72563720.7576197 0.00000000.72563720.7576197

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

-
data_1st %>% 
-  group_by(genus) %>% 
-  summarise("1. Amoxicillin" = portion_S(amcl),
-            "2. Gentamicin" = portion_S(gent),
-            "3. Amox + gent" = portion_S(amcl, gent)) %>% 
-  tidyr::gather("Antibiotic", "S", -genus) %>%
-  ggplot(aes(x = genus,
-             y = S,
-             fill = Antibiotic)) +
-  geom_col(position = "dodge2")
+
data_1st %>% 
+  group_by(genus) %>% 
+  summarise("1. Amoxicillin" = portion_S(amcl),
+            "2. Gentamicin" = portion_S(gent),
+            "3. Amox + gent" = portion_S(amcl, gent)) %>% 
+  tidyr::gather("Antibiotic", "S", -genus) %>%
+  ggplot(aes(x = genus,
+             y = S,
+             fill = Antibiotic)) +
+  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,
-                     y = value)) +
-  geom_col() +
-  labs(title = "A title",
-       subtitle = "A subtitle",
-       x = "My X axis",
-       y = "My Y axis")
-
-ggplot(a_data_set,
-       aes(year, value) +
-  geom_bar()
+
ggplot(data = a_data_set,
+       mapping = aes(x = year,
+                     y = value)) +
+  geom_col() +
+  labs(title = "A title",
+       subtitle = "A subtitle",
+       x = "My X axis",
+       y = "My Y axis")
+
+ggplot(a_data_set,
+       aes(year, value) +
+  geom_bar()

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) +
-  geom_rsi(translate_ab = FALSE)
+
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:

-
# group the data on `genus`
-ggplot(data_1st %>% group_by(genus)) + 
-  # create bars with genus on x axis
-  # it looks for variables with class `rsi`,
-  # of which we have 4 (earlier created with `as.rsi`)
-  geom_rsi(x = "genus") + 
-  # split plots on antibiotic
-  facet_rsi(facet = "Antibiotic") +
-  # make R red, I yellow and S green
-  scale_rsi_colours() +
-  # show percentages on y axis
-  scale_y_percent(breaks = 0:4 * 25) +
-  # turn 90 degrees, make it bars instead of columns
-  coord_flip() +
-  # add labels
-  labs(title = "Resistance per genus and antibiotic", 
-       subtitle = "(this is fake data)") +
-  # and print genus in italic to follow our convention
-  # (is now y axis because we turned the plot)
-  theme(axis.text.y = element_text(face = "italic"))
+

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

-
data_1st %>% 
-  group_by(genus) %>%
-  ggplot_rsi(x = "genus",
-             facet = "Antibiotic",
-             breaks = 0:4 * 25,
-             datalabels = FALSE) +
-  coord_flip()
+

@@ -1123,26 +1131,26 @@ Longest: 24

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

-
septic_patients %>%
-  filter(hospital_id %in% c("A", "D")) %>% # filter on only hospitals A and D
-  select(hospital_id, fosf) %>%            # select the hospitals and fosfomycin
-  group_by(hospital_id) %>%                # group on the hospitals
-  count_df(combine_IR = TRUE) %>%          # count all isolates per group (hospital_id)
-  tidyr::spread(hospital_id, Value) %>%    # transform output so A and D are columns
-  select(A, D) %>%                         # and select these only
-  as.matrix() %>%                          # transform to good old matrix for fisher.test()
-  fisher.test()                            # do Fisher's Exact Test
-# 
-#   Fisher's Exact Test for Count Data
-# 
-# data:  .
-# p-value = 0.03104
-# alternative hypothesis: true odds ratio is not equal to 1
-# 95 percent confidence interval:
-#  1.054283 4.735995
-# sample estimates:
-# odds ratio 
-#   2.228006
+
septic_patients %>%
+  filter(hospital_id %in% c("A", "D")) %>% # filter on only hospitals A and D
+  select(hospital_id, fosf) %>%            # select the hospitals and fosfomycin
+  group_by(hospital_id) %>%                # group on the hospitals
+  count_df(combine_IR = TRUE) %>%          # count all isolates per group (hospital_id)
+  tidyr::spread(hospital_id, Value) %>%    # transform output so A and D are columns
+  select(A, D) %>%                         # and select these only
+  as.matrix() %>%                          # transform to good old matrix for fisher.test()
+  fisher.test()                            # do Fisher's Exact Test
+# 
+#   Fisher's Exact Test for Count Data
+# 
+# data:  .
+# p-value = 0.03104
+# alternative hypothesis: true odds ratio is not equal to 1
+# 95 percent confidence interval:
+#  1.054283 4.735995
+# sample estimates:
+# odds ratio 
+#   2.228006

As can be seen, the p value is 0.03, which means that the fosfomycin resistances found in hospital A and D are really different.

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 6d329cc5683968389cf6f89cf3a55643440b2ade..f9b2d55eeae54c368d133b2a9b6ec0bc8f2af5cd 100644 GIT binary patch literal 31951 zcmeFa2UOK-mL-m5DX34l1~3ssL6B%dkRS>w0+Mr96j4-yN=}BWK0rmXN>T*LQF2rS z5fD%W$x(vjpyV|B<5l(a%$lyM?y3Gyum5V+s`AOZ_ZPl!&OUqZ^F23ZMVa+$x38t4 zp;<3``h+SC&8inPG%L^2{fUN#Mq^fc1O8ZJd0OWN4Gqf!^1l_H-D4&+G&^ZzPaIdb z3mR;(cT%r?C%Jf#U2flsT_@BhPrhY&+4wEnH}Utz>X=phbeR^6sqRtyx_b6SW+!K5v^LcWEen@um-Z1XlrzopV(3xzJ@}F7QU(n;nb^GZtsUG@~DWmsUy+Mw{ zpRCRvZFN-SWA&uP!`$MQj~!Tnf1nxUUqOCBvHuf2{@6MGXJ-6ytZR)3{yuw4JXk3t$i>A)Ro2(fJ@@{8HtV{Y+)tlAtzN&KN;z!NntP+SGMkmYCP|y`Tk7Sn z6e$&zFCQN57;q3#*Xy)6ch=}S?LYPDBkCq-V$9~J$J8PfgT?Ky*9Kl~NHOUwa`V_C zXqa`~q}-oh%yzgrQYkbjC`cl9HO7G>{?ebB#cT%c7AERqYcJsAyH7p*SXITqe&}*F zhamYG30<1+m6&S&ntrXRUy}@;w@!*=n5w@1d|zZ}tMgRLz_<8VhuE;NFt6P*J-xl5 zHjS67j?N7lEzQ76?EiH|N2c;Z*JoG_3i5t3`#uNLba`4_1Bg);(0rZJ$U`utco`D^~o+=R8_g0 zq>*Ttw~}7ug*olYG%hBOXC2|;si{j#OJBnyBTK%IWwZQNlc~+8Ia^pKa!ez<$6|b9 zpzZ-B<;|ONKQ6hAGO>p7ak;s-zaJofaNl8guTU}dQTVG$l?)~lO0bX7k zq<$~?zG~GfYYC<(`}_~G_HKz|-rnB9Vz%EVw4>6CN@xe=qqkXN9bA~`uWd@d#%pW) zp{F8Hnoc3`aJ*((if)>j_1sW~7N1dp%fh#Ky(?z(gFEm(r{~KvU%WVW^rRfmLO?R! zNcG~yi=9`T<|c<+7QGydlbfpUv69>A3uKlfrWHgmX9f?vtTs?yq@v&@}yO!}Vf!MhxAf z?LwG7W$RcHS!4wmhuiBTCWo3N=SSb023eh2n4OTE8+;QN7xxDHLCJMi&A8>!U$;=) z;P|G&WULTJuHFASur%)R_x1Jh*(Aj+Akdn0PTIh8m6;(1@b2pMQgngB7U>Fn(O7(( zhbMS>cw#aK*h&S*GWI12Mhvo$;P-Y>`ftU#>H!Cuq^0a@W;}86&P(<)))Iflmkc;KI=M`Bt}BV0DDbXO}=OhcUt6eGb0uauf`iY(-H-Q5Jl(y z@^PdZ%{u9w_Sagnt%YS$Ci_IpN`@03FMKqAeVpgh=vnXYSAs-0dK4cxcu<Og>*?{y4nQ$T6otbaHpjv(?f2-rtpd zoM_d5`tsWio+Zv_R5;piIalp^g{AvXLl6JRDE@Qt%75SSKLZ8+%~9>Mmbhh+3}ofD ziA%sR*RH$Fk6$l+usQ2S=uzkE*RS(fSPy6QY8swH8gkph<}~`wz_ul=T=e{hhnE4i zCLa8TB{z5lXoycQ{c6$g8)jx^*r|IIo_BSVpM{^HOS!!vj*aQpa!Ojh#cCz~LN1P- zatXrMjieS|!izIit|13aD}lNer%NPXM+{BQ zJTLX(8cA{b@Nip|_|H$pTa5H|Q_N~(D1{SsMy|7ckpZ##$mGv6>1l2)XubDZ(x{V; z+NNi|aLs_>oKeoT{*2~BER0j30Y-JwG?QLk26xZ5=Gw<<#+%h8v{VSUHRH|{DI1%~ zYZ)!ykhw7`&huj>eyJ7pegv&-+H*#v=jr)M$))+~=SI#G8gwt6=O!5kN{o{m^H1T0 zUYz2vc)Qs& zhVt^y^^A(s%MhS`1~$LmZIENbBI)8}eC~0K<4kwJjT<*;8CaX+bly}K;wSA&T~Ak6 z?%Z(B*GMHJ0Am{)n;e^=*{0A=#_@d)?VM-VfB@ zvYnS0Iaw7i*T&QWvgo8cRXi6OvlEw;bghX}N!A{0zss;VJCIlxr*jZkwp_3vchH9~ zVtjlYm4tfod|I8MytvFt+_stA)?L+cJ8rAO7%f3-HrKz_EN#j;iazpqp2LKy;ysIvb#!#P%XSEvZI+szDp)d@NciB%W~8ia*X^=<{O`Ymb8bJF@(dpKPv%0ZH5{-g6^Vr(Osb|xpbI7=9mxRCWWV~n>wIHiF z{!=JlSoLDXr05I}z!@F8udgrJX>FkrLij{Z;@C1~#Z&%k%(|)MUofk&q|Y7&_mc0} zQ0B!3D$j+kXxhj=Ry7T_{>Gb_J3iAJswG|%qY>L=QIKamLmu9|MYotexu9X8`SiVl zNi)YD;keq?sh2g2?)4S55rw}oL@zd|Fy?=lx}P{E!Q@daxAL**>@K-`+gSUDujs#B zF=seF99A7J>q99-;aBcw(U`hd{YZO#(z*92S#}7UJ5|eaX)M${V0HK*phPMoj>xX{ zBD$%UHb_nXc;#89)I?7s#Ze(E^_^1r!Qv6el^WwtLTZXaq? zt`NIU3)eZlta0Hsr-Rhbn12aoQCuj=g45#dm;VJdBh#`|J3Bk~pZ~yTls}*O{qYq% z!sUv~Utd=|-T%s%fmbVG9t-(RN{U<^g}-<3O%*-+ndgTt_k4QB$;ru1MU9Bh=1q5c zAVjrx8;9XO$2Q8fo;-CvxqiKH^S-O~Nw{MrN;9k*Ud=deZthDpQD0shzgzarsnd-M zi^^f5UnAiG!_n!TRLfsqWVG}R553gOFyCTm*Rf78cl6_KPw~ZR5&|o$sssfDD$B~q z!h3&z?;9Q_+%7y511v>1)Rf_hQRPw$$~^n-4&XVTm{<-%%@%{3D#i<6Ed1z19!pHt z%k}F!jTM)$xy~avAdCoKt^fR5A+R!7Y-*rx1p7AO*%e%r#>_~SmKpU4z1ZOEK=YW~ zO4R!{I!B$RM`MD*`3wRZ`jjucPBTJ}$)o6W!v^SWHg< z!7@0~{GS5531l0LzrTAaHsOKt%Jk;hrfgQSu{ZS4|9_r0|5NxHu6Df5|9@(ae;gd< z{>o-O=6(r*hL0)MM{P?@sm>K$MMXsehL=oP*?C^u4~jost#Z*@>)sKH!9_d9+Kxk~ z!3Ye=YB%LNCM{7cYaU)}O0TVrW{8U2R2PL5N-C5u!-)b{LLa}fshKnlz$FGFeZ&!p z_m#$8EC}jg7uu7x&G6)$i#PH&NH2<%mDL!E->I<%X}akB@1zB*qyXDt@JH?8r= zoHwBc@fnx->FPS93LZYbxObJNRm%($0!H20P$AwKnUAd$vVjM;xVyUpsj1JFfSai^ zbc|m;CppvQqjYqpi;-8e=70O}#fs-?$cvQ1TPs#>kbS)#^s32dzqG;gNW6_vFwgPKU@9y#d zBgdh%YmKSVpnZ@_Dv$IAt=Y5(x!5;eO_poSZXT&#bR_pDLSfQM2Js}FHy6RsIgOWc zdAPgt7|L7AZ1pVRQh0t7-#m2XTO4o_796XHWxLo&?wgz|FU|jWGo#KKUqBPY^nKLN zfNXfT`;^7WjDl;;naSSwkxv5f;uuW=brbL~ps3bu5nw)Yy=#97^BVx$Jm%V*k^Cln zw}jPk&_gi49xxJPz1Zuz80osS2*A{czh)e6%XfAJUU!%pmcWZ87A$5bC0Sxt@Os(( zF|mqAx_$HXHP7P)_)33WV%ySu)e_*Qd2eN~k;_c?^w@VLiHREE1_@Tr5ry8G)r4I> z<}UwdT6XF|fbGxH4C~p8jFXELn8CmX9WasOyf%{68)6#jJP8W)sfbnQomJ~zD}^q; z30>f$jslRkIsL3~6GaL8i*^ZAWcgz9b>ODf)XQp9!!08PON$uv-*z01lYT%CGI0Jo zTb=%mij2c-;&zsuS%IKXA8*~?35@U5ew(%uaGz2Ls5JMhPYqnP>F$Rm-vbP68rqf? zrznN1w&?G>_~|J=J7!xjXMmJ0O*hr*Xwk56>GVbtsc&r-zFZw%q_nWOFc-kI$G?NF zEj^&@Cl>MOdj_Qt@hpqBd@L9#@T0HKJUd|7{+3dxXOWi{uyPJ)U?hKT7zM@x*tsE$ z-3V%dRqL334Y!C<_W@=exzVFuJ$aYms2xfWX*z7AAz-5sfD5pg3@oC*YJq!3-_dS* zKR2?pI3ls5{?oIAo34cd!H}GvJ&-Wak~2lhDkO63vU`+MkD0SfCDa_31L$6XF()}N zad_DI>cSD1sT>q&zp>{6aH9sP9c~P9=#Lg|wv^7|f1qQB%qTEm&p) z3hsSmsEcTFq-b;`%_8b_%~H~XsP8hg6C?@=Bfo&90JD$yVHN{Wu4GCn@> z_FF4sgkk{b5D^}<=sSM@@JPN**xQ}N(48j5-^Z$HCCu|CFzI>L0ku7q!GQq*wnZCc z)Wv=6bi@5qFMTl%=*GsUXOA<;N%u~7lhC)Z6_oAl3k1Lf@0tOisQU^Wv&Ok|=Qx9X zf|^xuY`nC22Z5syPPMTE_bGaoRMqTAsn4ZO;%YW)pITu?BNCdL};+ zUtV$1(V3YdRz{~TUhJuInS5jLt?yfWla~zZHmQ#l6$Y7>9Y!;#wn7J*#icsEU;}wL_HSGF!9rqwl<-~3BC|*s^{M61Mo4KzQ2s+B4JEP5I4)vdN z!^88?Q34RO8q={OyYzhy|4*k;B>-Qy4}n_;dtqVB(-m>S)R@0kO-UjR5y$axA#w*;kIU>-4}t6`{0bB2 z+!qmW>fzQe5%K|;9Z~A&+m#IJ-G6Eb7z_j0eR3y%rYG=(>Sx6LuS$}6-p>Ji5W3Yc zK0|`o{=v4bvhzu8E5RT*FD*=ALwzaoVbRd}a=y%WFUe!y9|^Z&!=!Ytq@_R8%&n4D zFyAe>LJdP4H&XRSL^rj^2Ux&9GAE5 ztL}yr!i-ptP(&|2`W8hu+tPFic>}O8)n5x1mP*)eem)K*aDhZkJb}=aZ+sFGdDvFa zCO&LZ5+AD+8}T*2pJKZEQ)#JvZ?G*ZUY2cf^Z_lKljW&XAFN7PY`>h`!mpjw{#a}{ zs;oBIbD4eKxoQGnsCngfzf3H>M6AE-_xzgMExWvAG{qfiRAj(z#PSH0GeH7%`t^ed zZV4Ccat1lrnLH+dN|Zv6`Ws1o?I5 z)u~4WAR=k2-DyM*3!1F>%$I<+-`rp?LuZX2v}ryW3qFH(wizp z2jU*ExnyErKVY$`ua1y^uzrW;u#P9NN;ck=pdD{cd3uRopHYuo05uB+;+cq*ahMcj z^HZLz2HM(o-~bsJ89CR2-57(e8FHiYNF8w0@Q0tB9)dOl--duu4AQRxz*iuD&y`3n zj!`!$PS+JIrcI3~MT3ep!1i@J(@T_o;3OB2yme=n(qu>xbF81tF(IjdMNt$Tp;A1G zd0gd8fTAJDY6Ad3?%#O)6kW$VS~h*$11Pt*0w^KCb|5~(f8ZRr^t-eS0(^Y)iA%GI zKy8E~NA|L9wkpBG{pn#eze`e5QYD^1dB-UithY@aAKe*w&9l1wQJ9G%tmovc+AS%$ zRK}ag$IZP}!r_-czaDs1xD2en>6peFuER19qxu zi2du=vxyqZe1&QofW9;x0zaPuW#ftx#J+TtbOwiI#X~nr{a$P=+;USb%yO_knML&G z>CI4^4^fkhi`}dD08NjeHcrf+?Z^Bb+`W4@72ECZhTW%rjkLJ}aAUQd4b$ag+976h z6+?m4kbmh*SZqSJ8D7{EnHCR~pEI`9!QfgCYN`DlMus&gB!pG!(zmz<67s974FPAd z;PaeZH$vNfK+oa;!felK`*QvaD#c&W$Z&UX-Qne}wb#7lF$*%%8us6|?t78CZ_HN? z#XBmkq;k!c99uzW=a1|Us1zs-wq<)GeVGm;bx1$QZhxP7^`AGa(s|IjGF zNlVrZQxqkp70<1ad{KZ#ddokRaI~T8=#Nbl(6jsT@_~R($_0o8CM8J$F0)@l{qrjk zOQQL&POkXN13{F4xJ}Q_Y~SUTymVS#es2C}l{8&M?0Mg>SX$L}ZgWRL{*hdF{hkTG zLG~dg4{MCHzCFAyQgq!+K%hvfS`e z8Xo5GwMHss)<>49_bfLgw!$Hh2^ZWVYW)nu}DAiA5k_r-H2Y zw6!0snuG~L!hshj^Ax>$o) z={S;?ky=~jy7=>FrI?_w@Kgpe-LM1RG8Vb`267}Zpg;yhGGi6J`2$Lu+zp?FAOiwK zP8<4B=`~7so9B*^+>tykx?AQkD3J>d-dOOOV>fg7#D_D#?>X}{Dd+11@U(HPHs9oU zxuEO7RszHUOj{=OlV!6u`7N9;F3S=BF0jtWN9+$jo&2Pj2=0Brs z4|)xi{Ik$d*T&0{B-0Sh0HKa7M34p#w+r=qy3U{1)itTAi_=Zxp<2SkMreU<`r1UJ zf>VlrxzfT4N$4CX#X$rOLlr>@Z$-y0CN`JeWPasKSTWw>C=`RTKv(2%b}Hhusk(CZ z#F$|SVaHEzgrM{(R8o>^`C*%B4J6pq(OWC&PY-Sshq0_IkZZV|JLlV}N1=cD@Z9fZ zNYzqw2oJnkt+?gb_YyA6iu&NcD?H{MDMng*gM{JUjYtH~R;%#AnTW}p-hR61#Zy_L zs&fX{t*O~|ujDL59~T=ReVy0Qa(6*ye6j9-6&rsHL+RYZ>e<`d>$zQshslElx-$rv z2`F9{t3sTCEkO3oI6Aqbkk-d)WGp9~UXirGoZ<1{ptRQ-^P5%OVw-k=#=U!)VzS3x z zLbBE58uz3t%gW2=bh`5r*z)kkrx=_aX55WS#{IwHaOn(M1tgDmrYh0pjg zUxOlzO75AD4?!O%WKW$sg~)=nI}Rj32vvlShBs;#Oie@Wd!8|t%gf2FU8~yTs#0^i z#%0RJ)w*_ZWY?OANmH%6s&kJT|3&Mo^{sIUaC)?<|HmV_`AwoA`~H>wD4S1PaO+l{ z`p~WO$mk?swW6qWe*i{@QA>ZU`9_tWKf!ecGZhwuvIXQ~#l+N#s-O}^S)B*ycimPS z@#P5hGct!LAU{G#t-_=sFj=`zLYLjUPE>d?nnHGMIOk8bkPKL$c zKSZlz(x&gh4X7`(#0?oFu^1`Mj$$*0?#Jzr8+Knn5DmcYdbn#c@iBb#Kxh5ulU483X4MGt>t=-6L zq^<(oir+%ID%e(yu%ap>G$TKK#edUFL2LW$)NKLnlxM-!%r<4m^0aO7XGFluDFbn2Q zt|^8cRmUdcA<$Jus{=3f^BdDDxyH&s;Sng`)2NO#6Xs!n_>KMMV7=7{iC|B<0LbX0 z)YAJ*jA9JmCSNG^rbsOygZfXdP(U@nxV!x%k3a^oWM58X?cL0~iy%%3*K zG=P#cX!&DL#W`3JORE$efN7N7kL7e3gvyI?>fSZHE8RKx8EZwg{;t!p;W=o76WC2y zt#a~+b2dmv`J;vFFoz#O8j|n~F$4@A3RaLw;4G4|BQf{C2jO?v)uPPDI+?shnQ7+y z`d2YSF8*z44PP10-o5rH7NqEiYqD6=tyVO4hb5KLm|?L@Fb9cPy}PrDpf1=c05k=& ze}olvzVOR|j!Y6R0B3Jck9mF4OW4auKB`MJ%Bs+x>>5}e7V+0P=GIyS)V)u6EZQFh@EKm9UQ2VXOBMm~;B=+wV08V(`k2`5U#Qlu6CuPRr4alr z5U#H7G^zYhN3c`Z31q%7_5ochK)eCUHXD@jja%E*^KQKY;3MV+x|aYIQwTV~62i#V zBxABuQIE`zK9JbfM5%U{+S63H6Q{w#(#Dz5Ks&3)+g;Izb_b4b&IF;MxdxRtI z(K1`Uy-_8hmHqG%{OhQth2T+x(XN$)5A-7fvoTk_y4%RhFCitJC=;)^k@e#X=1n{ z<{Nj(pUN9q=+`Qc8_Xj~R#|?MqkUQvMiS6&QIA4Mn&*jWU3Tx$$et#k_4&gf?z08q}nZj%O#st>so19nR~HuS__BlvS4;vlmJiEXh2v`yu64L z864c1z{C6q`c@ARVMKd_ZaDng~mg7iWoLWLm|FQW5~t9=2piK^kK~mlH^2 zv9)T0y=Ep`81Z!V=YRHANy4d)jI>ee5&$I@B1zEXF|m+bz)4KLc#oX~@#vtiFyX@C z%NIdGOEwyi1Q8htr7UdTj1UVK(JL&L*!zj$4@u-cc<=^bcABlbI}Ajrpivsly*d7< zNj3u5ZiCi_IyfK68C6cae%5tF3zUPUm6a|qY!Occtuy_$0~`RKvA=SLFxd+595kZ ztFMBEKsZJ@v~b-zW%);njtnY*c`asLF<7((>lI+aZLQnGJ=7#zu)1yy)J?dA2pI(W z93J{F2!U)1KV$%a+q(Cny@AL=Foz%j6@YZZoN;5kxw$i;gXCBb_&lhT&i>O|Hu;99x*Hp0lvSp z5#6&pz{qfTGoi&%nJS5NP;pf(tQK&}An1ZHn}|boh@A+Hd{(W<1i15gTdi5pOausF zF684{MFFQV;G!!BiTryR>- z5=R=i_NkG!C2)y@pI^Smyu~&-f#C$*Kq}>|@%jW`);vJspFe++Qt#~BTTsm@QkZ@e zdXM$Yvm!Dxr-62OnlylE@cm8e>>)+tUvMsKK4r9%z%B$0kctVW?)`|91@ zy@APBH|2tCgCwwS4m%atw?N+lj!_mU{K$oB3Aux_EFg99gB29(bQTguE7qJ=`UOlO zAxnq*ZAV)3eoe4HVBRPdh2^|AGDuao9?wUS5@&5QU_iL0XD1bq$vOs5r6`9sGcsya z?;HHGYWVyz=jZ(ev}7V&09cyByu1U$a1?-lB|MbGk4O}i$U)N(4$D?C!%h;BxNhxQ zn9@BwJjz2PmVJ98DOD%}{dq69WKXa@j894$bzPcr1#0<@o+f@c{eWb#_i|$OZE9|(ahPk@ zA0!nM3DpHla|LeB+BSUvWCDTapquolfF73vqTj8cWmZnOz)%=~><;P}G+HX!kwA<7 zfP{{K*MdhadbBm|90u?YJ}c%*RdvK4wv=Pn?SZ~6GCS@|(;vBjHZ#a!&E>7D!6D)T z@W?sgp%}F~Pj3}A*U$1s7_54Bu$Nr*uCrduk1Yk$#Q;#mx;0vG*0YE`iHug?N@`+wXjAnPb~%kBkgu*1nig3q_+vi(mC~@cy%~ zXY2bNC7c7~xcQ-sHjrPh&{gykyLB@YlM65aGJOH5e6eCTDT;J}ArWZmnryPD`t&Im zZAGl$JF&wbP(ayooq0+qi~eQ+uAUOS??O8fipSVL|4C^dxo}1ku$DtWJNZBNt6ff`QJ%4S6I=gY7?+KeAN`~!NbHl`j@3$YdUO|SOy}#4ha$$CxRk~;)+1w zL^}rgu0Mdaj=yV(S;5w;RS`eR+5iR-in?Hqy>0bnyT*R~WA9PA9Ut>2YuOfV*E z)LUNQ2xdzwL7(vF03TCOb~EwzQ)g)q<_LuVom|J^HbIG?AV_vh0L_GsNU^q=O87yE zZi37T zh{@3>Tab_wWjXwFHD@^Q!LjuYMjhpJ4ydRjZFq^rZZmLI8G!n24(JhX)(e z24ElI^&d%)WfV;MXKSjwBPVlW^9C&g^%}ph zddf+*clkCZ8gb>iY<2geUhF#iK7m`Ck}SOWq`QfR@?NHx`w_Goy@RGaf9B70DeTCl2N-do4e=IzOTrK{vN)S?l2khj9mRX9jH4JRAe% z1zjLC2{+^xN|4sL;FIdD06@f{kXEO9{z@XbuN-=fBT?ajEB=kW1_%>L7FTRR(IA09 z0itLK+-tYaG`bCUNY&%t5bYK)5xch*`lIn|MGvg*Ism3Dr~ot#Ja`GhjFQ4uKMWw$ zV$(E)B#VZKZYXn1f`(2I+W6t~cIQptuJZmv_l02tIV;(`MbtK0oohKo#ynXjMTmDB z?;^?MagVZH*jyZrGD;zGl5Pkm6n|&X41IllsEfK}xq>%0N2um4Z{H{>AZY@Z;euo| zKLZ|)9RW7LwA8I!SP^&}w!#x{36~uQx_R0cl`9xnLl>7tl!#dSMkvIvJ&DbzqN=K@ zvN9ijz3iKPs&G|ebF{(3faJh;U=GTMB*G5*nBU+|WY?m_WIyKMj@A}rVFbeP@Ng&K z&Q*^STl(LcYLP0-41oq zP$3+VML^GAhZ>LI*Z}z5f~-iw6&6T&dHD_);@{~L>g3)Q!>7T)2FPX5nz|8q=D?&8 zOiq9VLh%}QSTqN*Xt!d;pm${kLI~eoo7%8t zpmYw`M1Mu;_Pm}8y9jm0dAbfrN(}4(LZU~G%)n9T_$*sjb2$*aa7R0mLA-7nil0UD zsjd6Y!b+=`8$~o$)LbA;3G$bwOV*C-%27wHLd=a81q(J9E;rXkX*$4AJ**+9BgCtM zHF9E5)ou;ErMV!S@OXA0oCz-r>lnDaZ5T{=G7y`e0Es>wgmq8?zPgK*LH5WT_b7O+ z0FcfHBqSD)Et_KML{LVw!#Ja$pumEwk!b;V%Ec%m?HFX38+4Rv#%Wstv{*D}j*%3K z6$73b>pnR1RyW>B(5VAVD;|?X6wEBqh7drSZ+=x^r=p=_*H}Li=BY>98Kq7uDDY3) z^DdXp$|v~^b47%Og^8AnY&;8I$kb!Y1S)wd1&%T8Cp$U*^q4q5Z!o-2X#PXfh6t$> zW`*Si{Ydc;J*&6~brh*;^QY_BEZDb;C>ru$rc_f?lcvK~&c|LPU<=R~VTEtM4n%D* z0$3g9uwG%9Cy4xPk1-PCH6D#P z1mN_14_8?=)-Be*-8%m_7)KPy7=YilDt~^ODbI-nj|!x@OP|zN@2a3W(X(@KacyB` zM&RDVPPG#^{Ct3rxP_#J?t+S&e^KnJb<9v$A%daMnneN+vHGwLMOxDx1zsP}lMg70 zfKG*vB10U^yh>lg1urFn3cw>3{5ZV)L$^>AhzWQ;gA|l=-svM&Eiz_iX5b^dJ`@s4 z2M16<$=o%BVOYmL58QQc2ig6%SJDzP1*|E5cZ)E2xDH=*<0C*8?jSZt3Gh3Cfh2Sz z8fLWE@HW?jMc(DJY+OysDwlOP8chMI;vY7m7rd+#$Ls?4gqcOChx5+ya%?%Kv(U&>F~02?w`#Qg`ixqkhXw z;4zJ4#AWmZ5v>wfTyR{~c;Dk)YffHW1ZVFzzH|ie zlenIqf=~vI)X8*)M9oeu`ki$ZX>%hdTma06K#xaU#P0i4l*GbGO2M^D+dYc=zr|zM zHmcerVsuGp1DVwbgm~ve=XaA-i#8WvVyODpu(9?A=rjJ20b;`N4me~$2fkf`J-Z^n znF&#oa4%o$XJBzYR#uurM;(*rfEfuS+*T>O#hKoW)bgcJv=~u|^I0c+0pXh4PUsxG zEX0t447riv!UC8%3v9r(ebQ@)YmZV$6o$;?=^Ga&QKC@_fp9%iNm)wEa#OjpR8V8t zDSIm>3~xbbdAbgygJ&q!J0E*uc1Vc;XaP<91EGTMxQ!rrfcF?x3V4<&*^Oan?OMNO zVQz|n{S)kf)A4M2?byfihmPo9%r)%=KWF~bDoA|PI5c3i~)z>%ILoY z_X1>ZTgn+gj1Gj#W{Pt_;5^BCO0VM&WX4XC4<_>`%4L|I;!&6)d&Hm%4JpV6RRgdB zQ+`Po0q8x?ugDoT!dOLAFG?Zkgp|@XDCP=^UIa2;-%x@iH4E1mCiOdcS$X*@C@yt% z8$qUMg2jgwgCit+qZIK?5-lH(#lc$R?d4^K$ON^P;C=83+^)ihO=0@UL|6qhYD1KT zXo?0x!lHwuQKEZ^Nm=CsN9R?TWWnZb#VHiJy1Jl24jwq5i0BLXg@g)JCVK}Qh;2L| zAOnGYi_1QRd&}NF<$K`~5g2w;3}g$UvbT><05T({73R=w1Xgke=&OE)b z;g)mI-J{r;EBK}=T?Z0%Q#0kI$#o189^pII21uX^j12g4OX&5^fFN$BarY^Nk%7-C z71}EXO7Lkc;yQG<=Aa`t%t0koCt`hKC)V<)O%X#O*k5oq5K_d*UJzMawqzJ#~{ z#|tJV-CbR1cHK`p9gcqopk$Lm8!Gn!D-3(6U8kG(mdsKXja(23N@t3=_57C6_1PRt z5Gx~)lE}++d_b_dFX@a7lzc z$O{B@%F22byqA8fvL75d&z0KR@BGb;RniIifo<8@O{r{pCEr{|Vr1?;7)t#ZD}9gl zq@ie&$-M{tDqTFezUj_h=naFUNu`Yc{7FFmqdHcpC{{*Ro{>LmWS9#z+*X&wUM3B= zI;O!I4J^@iwLQ|2-q#@INriBwuBzrSiD!)WKAN84RbgRZJzd|_IASmnHJTL6WN#fc z`r@O!X-?dzvV^<-y@2X;!RsqzPDaOV^1Zb(J@2E@9U>Mjo74ZTk}ZT-!j&aZuF)=X z#cmXP;@c%=oz6lmX~!nip(_KXXxa##-LWB(RE%C+?fCzH>tf5b&_DYKs{g*@e~s4E zSd|8r=}iEA_Q1I!Oa?ti@5)+1!nvKF_-5$MMyRmQ0WYwS5i^^UhgER`R{@}rbsC?Q{ zt0f|0LUM=agf>zk(1rwgBu81mdvPzU6qLJ1VQ zau_Z+Xwj0KpXLBM@K#Ys*rc}!@b)|r2E|aBfr)FT6yj#e`?`@(r09?z8;}n7~tiF5p?VA=cDyF)Uy5{&_ZMsV^%h4Y#`A>UbB(MQUa1OtylpnU;< zfP>M^#i8pjV6fe@1QSZY7Wx5*o(4}eirP^4xe!9Ff%Uf-jf38Nl35k;J2JkY6}{Hy#KFf#%E;NvquX23nJ1@O`t0h-$oA~<#v zkjRztf*Lb-2K~wnJ8; zb}ldWSgoVXwTlBW(#S-Mts1`lc>zHm*7&8q+Q=~BQSu$mfhL!s+E<0r-HchL2MW`* zu%v$d`bA8Qa0P!n$qbH(p8b$nP1K=vGbp!)3zimv@bN&XKwn_C?~S}8ZYLDA?p3wO z;K=HPYbZ7{Ye?w^xKYVULp_D@D3GVBdjHdjL*a)4HT~KJ`M2pBPl!=j^=cd^H6(wbUydHmM24Y$pu}%aP z;4hpJff|?vs02`3aAE5%7SbIYv!+O^o^5FCZ&O;SExL@Az+Z%WY9fD82o} z=kTi|5N}`;_>EOO6HbA^pdReZin6kPbYFT6?jHNyAIwmMJ~>)~<|?nOU(4+Zx!o34g&C#AW0ivwyaAYN^VrF86qf)=3O)-mz@0Ph2yO>JwjcC;+i+vu&s4Sl6+^GSo z7^3SC6v$x~#8wRfs2Roq5EYm?6y^p91gjX91AI(o46!o-3T4+E1}N>-5xKSTS#M1x)%=% zF8loOH3xE(yaFaynN|UO`c7VtbA^!OP zet%;2^QBtp;j8uFFnLXCFZ-o@bJvt*Yijz~laV0mGy)>&b*d`O8gPvTnT!Q~$O`?(K@Eko|wS+W&7)iTw|c@_&EvzXrDdcPs!ibsO5n zBH+ys;4PpY(!T+o5}0`e6}@a|FT78w{`wWl41x88 zd2L%-w1xeH=R)gv90BZ6y9gphVgnsh@#zzBRfdA`z+p_#zZ#2Zy&Z|DPbT*{LJFEq644yg7P!b|Fbx%1P;HjO3XP(A7H2G>FDb z8KziM%j$8kS=`1t!{BdUu5P7$##u&Ef`CfW%UvL@@aC?R zArq}KUEW6YZz(qz)Vp6buqV5}Y-ibK`^!g zgK;u)F5_iz3@&sX1hCHZ@>lW1Jl3^+95pC#_2d|9=yDh;sf-?EJ#l-jCqcgM;@P;a z`pDYER&^1|5g=c5zH{bgBfpPV<*bS&ZD{32iz%f-{>_{*FQ5<>ae6>bW_>Q5M(6?J zBC4vWh#$;9RxFQ$Q=ncdepfeA{O;v%H+Sn=bpL8*5aHzXWvDt{ynHbEvq<4QE0q~C zf*>?6B3TzV0sRwqV)fN68Ztmb;2?J_Got|1JUL>@W9WNZ4v31%>he$w(Y0u^+({~(bryxwSnnl6!;r6bn>ml(yNw$kJ;_O|SV`Br%XSU9{hSM3%^dM8Lp+u&&6vj+ zGst>4X9N}G=F5atm!=aNN>y7PGkoG!%qu)PaTL;Z0N3z|tDb`53TuuO9e@}2Qf{{n z8hRm6sJGmDg{Of`LCzXH?RQRP_W?%k>xV&GuM^$TCp7@WNHOZ34EPwFmzK2$>9f|_Lr#J z*uLnr9%>Y#eugm`jC*v-+@Ban(8%kA3RId7QA`4cNwRw1L13+e+D4Hgh8EDIWyAEx z{+xM|ETDhr6!zZz$yW>DM#x3IO_2h<3x!y}q2;#w6y!H5MO9603X7|3c%6DK4sp0v z>Wy>eU=jlrs)eV#1A)FG=*U5;GSmcEh%{|%X?87}y5JGlBQ10PM(@7iqq1R|+6qXv zbCF+jLD=h^&x?+ZhEqCrlyl3Ewt^*W&$7mu>YM0EK2xh+D7FaIp$$hvK%*w=InlCl zB4CKi4W6X4>2@k7v-8%|A1fpFE7G!vDl8kmX!skT3Z;Vv0hI))sAV!Z`t7*#W#2eC zjiWS8A-C?v@8ai=PsyRtC?|p?_#W8l*{o|+R`spEx}F%Ba1M$z9V&QGx{VN0NqT{l zkq;*m2mwv6t+OPyDk>iR^;w!XGEvzoOm&7{^j5sg+jp8{kbc!|w(zvV_MC>OcZvTQ zk1^yvqLM<8K?jL5_%5yBo6rMp5c>cU=axgSBO-`tAF2mAu^!!xD${M^QLO4mY2NL8MWa_+ zcyHYj&XSMUdDBB$h=@2FQN2DUV&-QrXlOXP8D0C()+%=zefE-Z;7ERbH*z7iVKu=r_E|^)+2sj5I3Ew4xKNys~;tFt}OVg2SgAhUQ zzn8D?A-HA~=u5QOS$OliVD%$UfijMy5L_K>nhlh&qt3I0uh&Znh~_{GGAO~1IJJ_{ zVQ8#M_3b-#S?&;#_{m}<+A+2S(h%`Iz?Xog8Y8>sk`nocb!sC9kFD8k$tkCxfP()y zUeL=J=)t^s8Y+uG)cZT^Ye-C(&U&#??k7Fd<|^_Y#Igjc1Bv`9NINvZ;CwBu-1D44 zt4T74(u3plhn`}O<-W81#R0egEj~VB z$Etx_0Gtt~4i*j4NPyjU6V@EY`Q!T_reee`P>tY27zC*BU!gpaHg*^?Z@@7upskC; zcHmWn2csEV5#>GU#DIYlr=lEzn{eIhXW)LYvA!i31Zvli*&}`poM(muv#el9cfUCT z1(4NANZyz%BRUSF0wj|@byY;Z_J@6+>-WzQ&=eZS%% zmULuo=5;vRZe!(TLoalk=(k3I#tEq5?GgBo5kLmLV}yOovV2aykGD5D9{;o9YuiyA z)8>Ge*knD89UzE9i;2M+E?VFy4Z9R?rMpBeh0|69Xc65TU@sUyO(0?3UnX8Ft_=c> z&cShtFfB;d4n5CI ziIs#>2rn4e>14z$^5~Ea5d`r8(lJO#cyh8SR9If^t2mRG2R$Fbey~jBsUfx zh3OuHhk=;f5E3$BR?|x}^ZW4$iaK#$VN_a{9(chVbmYRvC(9=#B2vpeGxv=?fwO>` z0a?lM7-MF_@9eLC!;iLzZ;LLJ|0j z3)s?z@|UCipz>dY^P{tudLZvEoH**(qf6w(J4+UF3=`Q7C{*5E;0#?oP#c>8Zvh0{ z^DqmzE({oLdIMa4CRkJmrz?!KI{WBBkT?P!6pH_fm8;PYDhxkA7ndnosIie9p(G$W zjT9}VMjX-7Y7diJ`Z5}s-cD%^@hceLwHvGBmMc6>rHE1y2Vk7YadLhJ2%!@%sFfqL&YHAsa;^efaD^l zs7U-ok~npu`jhtSjS^TVRrs%u6eYvf5lrmFB-b>rdh+zep%N{7(dCT_8)h#Ib|g2G zMlOUKLK_p`lY(%|A@~!C!~ziOnoTAT-T^VR8oAftP{v9mN&O3D*p_Z88;NP>jz2^Y zh|)vYhQ$`M@^+A(V2s7?wZ^WF3=ao1QdNbks~+GBG6vd*Irr;auB>Iuj5^?a$oJ|x z`i>!;8D7bk(~+*v6dy)N?pmw%iH5P5k@+fP@yLhfaH!*03D#)FBM2PmZByHITa+J2 z@vFXKB{8s5cWH@1h_b{!Kve|ap}Pqm`gr` zNZpvoq&Y2D*~yc1{^THF1?JAR1LmI~m6fk7DQs=pF*9nvB1A)nn#KDu*?drY?z&ZK#ErGCi6p_)x^XD)Br<- z5MmkGzoWHt#eRJ(e3_gv$HM4If55IG><0#s_FFjW0;Dwz2wY=E1jlWb5&@DuTvxU1 zM}kFAEj$lf9RN?IvsO9#hV?3em@{naIh*cC+lgsaBD!^bEjWW@#kS$zUZkpBNL2=C zB}8n36aCrYYr0rGs9G|x5lKfWx`$SUK6m3i>h5_*#VIZh`_FsnHqzKRx{ikjE9<*r zF_Jvhs^f3980(WeVR0s_hv+@vtciDO3+#m0j0gB{ms$72a*7dIK1s+54kLsI(k%n+ zPH#N)t_jZ7c{aHSR2dH}4kw|P1;@*T=Lbgyxajr_o@61y1k94X&U*QnN`T?X-UOwHW*(ycoy zUmoi1U#qX)C%JvGhKadwbA3vg68CtY5xZ&6E}0V>+_$|5qZ5fbgI*IY1M6BCZhn&J z1_2LX<~?K!;tYZwu@DoRU`CE@AnoPg6+ZeXACAWUq-r`gUDu9 zpSaAmgW4PLv^WPy4=oM8-rgw)Q>21H&>*Js{4*FWaeiiQ6LFn!M#dbAf!M{7li`YK!7LZ<7GzR+z0m;q zhjdoQkAUY*1j}8Lfa^PkzW(aB4HO-02G>k?hf!;(5Qq`MuF= zf+g7f3XYhF?l*7P@bamA{Sg`y<0mRSUvb!iRjq~=qj>||-#8Iy>tfqN6gz23d_W;5 zG8Fp!kJipTuIGD?YnuYld8wU#p>mLatr*eE&FS|D6BM`HM%F-|yG=^ZC3lulMWq`iSon zA6;a&TV9U~%qxFzTQt@gZEUq-I9}MJOw0VqH>hHZ*cdUDMoHH-a#eEg-I~o#bXP*V zC8Sd9CN||pBzvsnjxF~=p0Cfl2xGfEcmL>;%Ib|jzW>AaMa;BRW)^8b__bbO2tOeD z^WJ-Qzw$wtoTgYm%LL-UnmaYC1ni(mqoxHS~Hrw8` zJM()hmnr7eL-p}{W{gjJgOBWvx7|i`_UUQRW&2m~S>^DMfqaMma+Q-o85C>iR(i8d zs9V&ZQa!L=2HPAI*DYbh6Fyjw+{BA#ds$gJIIP07kM=Z7_t9?PM(H~F0#i<#CxzcU z^vpRxs^t2p_zH15F3)XVE7t%Z0a&6xovE#jah5g|+ngrPNt2!eL=N&wJ9hL;rO#dh z;5w31em=GZ)a}x|0xHS%5fCZLU-|2~-DGG7bGeO05>Hk#9cn{!y`u?oRcWomd7XrW z1kD>!JMkV_d+Z$fQj!7N)F_{ls$Cj)`e5(r)1}C;z8R^TZ7F{WUT(y5kCL2v;b~2p zw2qE?4g-AU6TCt)Wh0?fc6l&acYTv#8OCc*fE-x1dRXJZ^3SgkZ>SHS(ZWLpLmNc%95{UOHC`??CB=yedfBksFVKgs@B*gsvWk_ zF!|s#s7|yoYRdj6HM;p36AQa_WK+FzVAcp-Jh0fQd5MQdC0s_M^cGU0*d*bv-OWqH z8RTfF1@?3jIP-MdAJN6=5%p+N8{^ECdTjK=;J>u(_}uONBmYrTL3XdwoM#v&DK0>}@?j5T%E_ zEh$H2ccIO`d7x+Pf!_cTYN*e2xBmVyVDcgkKfOc*FcXxaJ3KTVrc-^Q_ZFA>7sbOb z=~JtV*4(4!uz1wODWbVr1#x!eothS!P1|FKtewe}^|`I;#P;%8e=U!3U&S>!^ls7J z<+3)?`UpBg4l^zazLZ^{{hNVnve2#%sG&AO$xqp~O-pSHkf<1rfy}r2J|@Nt>&IdU z28ywSQW!i_aeb)&rC_Ml$g|oGQ-w&3g_#Q$uMF4**6W%qG9~+c?<7s9i5I&fa*wov zR2QD^)+PnXTgI3xm+W4BQ$SGjbG`qsw^k0W7FTaFAV-KQ{j~7!pOe`{jJ&I!@Cy<1H?iyN!7{0LRqJ`*P`uF7xYttilz%JuK1s) zQ2KJBqgZCra~^)dNs;z}!z4AKu9`r&fVVe`MmpVc_gWDf7C0J%k{WR&CW%rIe9Zug ze%ig^8FtHUkfS8~0yWHozJbt82s_fj@_XWkB@A2Z##WlY#EFj5$4WToSu-!X#vdVW z65EIQ_J9-rLO$nTuuR#o_!L{)$DhYr3LJw&GkWwxM;lTyGCIQNH}I6OhFnikH8{fh z$&dizI&VhG6%hgxnu4aij3s~LY=et#GL-j($Y*graM^@2XzExWZJFcFU4V0v3#Nk1 zktfD`&d#m9dFfkWJx7v9uA?-H$zmfcfTi}HO0aAV({%M`r3S9wIY1~fEJJg@9MYgk z##?659FXfoArMHbvD7+^e82z;*g=OEUy$ocUx*&fb47FQu8lJ+gUM#>Ca!`ek0bR) zPtc2chKLwUs$QDK3_T+(}|=bRf;dCSd1Ub!EfdIy_+3eUZdkCoMQbO0dx)3V8ofkM^S^-Zolo zlJ7VG1`%!H-n)xe2eDd14zVGn+`rn|NtxDmB#O`Z6~7Q`%DChzByOD%IpOd`Pqr&x zZlOQHEFxZ-IZzG zp{*ZCL*5xc_+V&9?ha2dn4tSKvCOYv=~J3F&>_(Uy zAh{sVYiUZh=YPb;9;Q{tSBL=LJPzUPLb4g%mF6&cRAj5Fj*ogWj*r^VdBb9>=3R-h zeJK`V-q}h-Si+$p8Clv1XlaU*8TFUgWt{f*q)R9yz=bm!V>RwlZY8y3alm6uPi^hz ze`HMm_;_wt;5k{^eZun-cU+dGX9!hL?1T$5E4L$qoZ}UIe zo`I-{Y3z%8ivX1`19BoP67yj8ikOp|MFTH|bGrQJUo=q0Z{q|28vqt#VV4=BPw~XU89=WjvulnR6jEF6N(!XY_?*k zY7eO+Cd_*5cuZ9`qS2VWNLAQ zv7#JY!7A*qHqr1leh0@MPqOP1_iJNIOV|uYMR7V|+E;1q6<@LMP^0~n=WXppg^KdC z-9`k>it1df4ABkK#6v@g9xS3p<;H9JYG-XHp)me$-+KH?wb~@3u=7vu^1_qcr;b15 H78La-#{$QV literal 31700 zcmeFa2T+yUmMx6O<6$cbC@KbmTSO$A5lOmH5m15>lqjGgs6@#K96=ES2oekg6%Y`~ zN)C!30t$+tgY9+ocwK#g(nt_4Sll*UyPsi{%28K-x z@`nzp*$4MEI5=w*K9!kw@Z0wGcM7ZfZ^_HjdDQB(#Bw*A-c}dXVzqet`qsB4uOq){ z#H+BsGK^epci6X3aM`o*WrwxJ_8wln=QHJ*o6u7?w^hlKc`~6*p9IDJd~kqf#nm{N zmmmC4+&c8mpU%O%*lriKEyBfYDml^Pi0=#xS&DDS4-SR8EylN-l8YGejn&~dW_;T; z@;e8<9cW*=58vEAuvy?6gD+n*`L=vM0t3^4c^_LdYI=hbK^v%4F`zKvT%rxrBjzX?6NtO{EXRSIHFw>Na8D`cKfTbnAE_9`%q=Y` zBO~MS`Q_=9Z2Fh$T(3UQkvkW@$Lrd}l2so+ebx1FWP1A4S7n);(K3neaoU>W8ix-b z=8^OMSY9qOT)-CQ(D^Vb)X}s)-BRY~7oWZ6jgqF7(SCk@rt0K@^<+45THM(vHjq79 zHq&qJIx}3vtr^>btJR3tsmZ-M^VlpiM*jX*s>jQhFSX5cUaQAy;L3&j<8D>q*WDcB z^%yzgv|jJ;@IUD|-cuE;nP9pnSjN?b(&B$oN&fh8Vc~k?u&a(^KUUHnNZ6UZenG!( zot#GZaO3h&DW{2J&QeD2@4OH@mR(+v<1}g2(U57gQO3pDu;}g!&40SYzU1-V@1Cs5 z$;l-Fd5U`P07cCVN z6Lb9W-nd@X1D_P-rx)0toj-s6ecNy*=kiJ}nfHrcY!hGXJv%#lN+|H*!_)DSz6WQ! zWENsHUMDYGwhU`1^vBK(Gg1&jV z_lLh3&^*J}TEv>1Q?AZTWO6ZACgN(Rx-O`ye!*?`I_^``ZZ$VJqpVQ2hU3$tJxo-! z*~e$TK0n^F@CS!_%pZ78mDa`UEnb;c33v>Bk>d^!)K9lCptQVM%<@uW5B~W{sA8F0 zTjfdR71ZqM&d2BMYPRw7JM_k-(I`2N<1ha4nj3CLwXaMPvPTqZ{K`Tk?E0#Ah>1;l z@r7;^5utBEpY^-W*Cd~l<8nAlcBlFZymxe$pTYevMO;ooQc^i~gN>2ANvHZUd*e6m zzw)Cp=A`k*2VXL6dOJ#k*jKOKZB{?^=wf_~*A2sgssSm9ym+MAH^Bu-zcx3o<~vJ~e-;V;Teac%k(lp(ModR$L{SMV_x_u&{Vyp%|KSHfuUv=P z-rqG!I)%#RC?F^p8}F%d+i#{j`dNGEAH{Q5)DByf|Jm-6*?#ZQqn^6oRo49G{YX_u zN9VijlX(FFf!gALvr{Y+9QsJ#NaoTAE6_JWz(pQsH zQUuLyzMVE!*E2x9@Di1tYIc_xNH_Add4Fg9S7iGhmi0)T)n9vT-XvY=u4sAZ+11tM z$@*x|#lRr)HJRW#cd_8+%KqBdbsc6WPo7lF(|c`NHQ>XBUyIfr7i-=oAh1E)>a2^) zJj#!KM}X#DlZvz0Z3H59eSEkJ7)NGdx}2Y1;%eUck@jKR8)a7S4lW2D0tFs*? z0aTBR2{{uH_mu=RGY-1{v1gc$RpVmwoGd;*7Bj~y`s>p2x}QIOwA*AA?L$dP=J+>l z?boKSam79|^XY!6-4Y{V3$w=g9!ovBU8cmlf=_CV_9o;pQwc0FoI53?QCCjE6<6N; zxzXZd7_gj034fIT)$p@nS0}o^gv(J32I@1adg3A?&Q?aNnwXe~HQF21L~?tr;h3n! zFS;F#%}a=WshuX`@%dk1BO~t@PTi3~R@T;xEL_3&@1N8K z-GUk~am}VpxmWQ>_S+3)zjMh2E<&Nz6e=$+mRF3;Q31`fA+&SRpX8RWYXUHoLxM;hHt23&TFHTN=av zyd|L2cJ@S_vgXiZ{qLp=PRHDx=1+W=jXu0pyjVD+>wuMvuGP`w$Hy=K7JUng*WT4t zWSI2v<43Cwz;|XU9iusFwiWq^ZrhgL?x$Fi+rMglk`mzW@2@DDGxqAMlA^M5Q|je9 z{J-4>`5u74JwL*I8beaF$ht~BpZ|kn*go4Y_WJef>U~|eMROmBTX(kLIey$xWXVvBl_CBX?`GUF#c37uI|%gF-^;(eV1*e#r#?la%w}T@0z}zl-iczdZ@3x8zsQ= z>_VgJ8kajK`3OiBYj15eY&4*TXm)w|orzw3*N zhz!)EbTOxehGJC_5v#o9PkZrbA!eTFuG@=uNbIU=a^p#=Dg-t@ZM(}G4M|#~qoBuU zG!TRRR4$+LVDViZ78UY*{fYVLM!1~%k~HFRZ5lIeryk=ENISr}PYRaR7`C zR3{mknGLWhOZx6(AUzS9nY!e2rQVVw9}owD--7pE)-p9U9c;`g9ZxhYyoD$|d;Waj z09C83J1T6x(PaPbq&zkx zP6x_Vj=xm8YWfSeAgAj&W|}6RrX*!*XyqER^aU$Gy0%gCn`oPOr*wQ`vSNx%y^A1-zsi-U#>Uj_px`@HwH-c;z( zv2VF9$7xeJ*8SDm+FI;V^=GVwh;HT>wzSFD=X*w%lgHT~`+bodrNwPAb9&2-jRFa~ zF4w-|3}o53_oYDEkJ{H4(Qw8}?ZhjeG)Ct=zC&0EHQ#>~Z}rS<4R=mB!m~iY&f>jI zBc22qGBB(>|1TTu>}S6*9Jnm+ZD;aMZ+d@!+{u()N6MbI#*|Tff5TC=FYQJ}_YF$%S`-2t((UA7y z?eE;>_4YV*EN3a+QT%C0pmy}W$#4(Z`)NIo6m7mWLNgBiP_!TbU8VEithj8 z()u|5eKcC1aOcN|Y%}`b^_=>-(vkVhT5X%OPcGrarmNPz!!46L)(ie- z&Dyo!&UB^xqFjIwG~KU$d-+p_X6s3|@tFh_HMQL)6%iFOon2iEZQKjdZ|8jg+1k7% z%%(>=_EZ~xda=NB){a7&wTWfBjLUSgY%fy`-ncFD^6Lt9icd9nL_SIY;Q{)_rcplR z%0I3_&_6e9r}NYh2m?=6J?G)VS{HpDVPRnj@|9I45p%z+=01Ic7n}EfixbVAGNiQd z$xO><+4cj*u+gfK#F4&w9WSWt`s;N)l`;6F6;vIIw@auVAihLZ^@_CxyiyJW5w#6Z zAzRyx6!RJ5>->4Ht7BhKTYAAFmR22ezWU>-XW(4hWTrz*2*!`in zSiJ4duC2!&pgB5`s>B;o&^FAj?>yX>QZC)>ws@k!t|>S;7`R4ieyR=CVNF0Rvb?;!I1;=p1?xldDW#=K zQ@Mv;Jxy+%PV;9lcXVw1U9gB=JkZ6|p3p}(m+_VqM z86ZdoUOGWc$ zr`mj)K3(3EYSvJjg|ajEle|MYAbBdF1g_{Vx6Hf;o6=OnpbMaiU6i${JN*`ld9S&% z=Ep>Z);>FYo0TTCR#B+68X(D^|D=G4gkix=<4}iAaEOohS+-tV!t`7@Z2q?X>}HR| z^Pe7pLgZKFL`<%tOqMM{^Ls<>Tbw(gZ$4=WhHF;*3sS?5zEn$hl;w=g$I z4+Zm&4|a%V59M<&Ociy0dhE$M0J15$>x+sqJ$U`=HP(`_q^DEPH&~SlgJ+ug8aDq5bz#zVu=dUQ zj}Lq=%(UNEmPTv<-;8HqGZk^#37tyZ#K*_yu^l0x+xxJVhivDgR$h}Q5n~o*;$8l0 z=Z8FHE@5#f1^{mQu5;sMwV@XIOTX*d>1GHE{IO!gYFc!J`kD~@EUm#-yQXa89@8;= z($=!w{8AI=Ji#2Y(=ODd_Tzff2Xkiv1A(v!)&Pu%w6T2)7_x!(qakaOH%RA1>g*GD z=FExOi?S3zy?S7XcpD|*m4r^)k^=bQ44g>y*i|l>f?N~X0r=$gdeyMKGwHl861=Qg z@0Nl9-Lo?l_$|Y*3n*U6gOZVv5%B7`4yUBO1v-Ti-CKo*V)Yj9CMQ(9e58MF^RW1| z=et_=7Rdx-S>cPgz&G zPdFJ#%nrS?JLOWTDtDbVQ0Vjt`8ts3toa6>oT=|(J-Hk&Pz;dTfd9eCE5AOXuBP@1 z2_f;mv3W&=e0SH8oXzw_*Fv=zJM5!vmeCQYZB}FO8o}4u(ZT6F^mdIXZ{yk+UeMpQ z1`ensGzxZhT*T$pI}QFnlqB&P8(Uvuum2U2FBjg2bXb>j_8pz&Cl!BvS~uCW5D{c4pm|-69C^>& zTVR-kO}I5zq`~`&-Rjk=)pADAn9W7W%*9-Kp9D<@t$Unq)?QxTj@H|v@e%!Qix$%; z;J~tm-*05oKEDN79P8|g+oO8i7RkKu{m6q0Q?sMxK~C1jpy;8eP^cW11uI`?N-WJf zKs2d)!3s^vF$yPGX%F^U8p_KTi!_N?Ug~L@pGaH6wAOj5#Z%p+0<3h?!u%uzjO>N^ z8NTC>uGC#lLq@(_;?Ga@AVF?al#QrDN4=CI94NBH}zMrqaF^kF+M2nb?F}$F2~&Re9Be*HDskaE)Z?TR(Zf==-q)nGJO; z2P=d=_DIbLS>d$`Y6GNYy0K!Tp38K{WRvRxQkAGvx2Mc(3)1|FlP7VNP*YAmKh}-3 zP@iGVryME?bt^dtzhjHYavdD1en;nkkJ3*o`?S+;XS?^wWMkfd^TvO!EjV#ZizriS$GX7%Z>UJWiR4A1nZH9;#_ zn8{l})oK(M7YA2@epd#n6X^`?8Xcm>w)^XDG_bXukQmG!#aogsfD&_DSy^V}1CMBW zGs@E1dfU3o>JIxSw$qtpKNYNVY0eW>FTjAF7qRgInx~3?^OR*4k7%uuWs$l9h@~EL zIyDiQD;#N2%JB;CyE+5DrBD- z?pg@gL+2;mY1Z$hd%=kv{@LwUWpkU~l{hFCkWvnP`2}j=!Jyilg|CTEI zw=c}ecc38)W#yF6UMyB7m*TmdyLK5RRh#YgDl~lf@S((Po5+}cIsN^j^UU(*CX(}> z4L+~0ugA06k{i0+fOgzQ@#?)_`QD9_^z-SKZKjFuP$oq@EIv>@k%yqMjw2^DU^|#5 zE^N4hqH(DyH)rBeA8lbgn7|h|N9c1FWx?XEQ}4KQXGco!+_|%%dl#1v-*4VosC_p! znoVJ^5!6zuKc9SLe}d&?qmy~u-kR(4z2XUEx2fbUN7IcfB%8F!zU}UYKHJ7@hcMT9 z2Pn2KKfi{By3S9()fOnGFYtjmaG^nSdfUTB#dV1Ye0fL%H_E!L$bYERiH8GInlIef-67)aA9oP)7Wa#d{3>PZcOVoL2&m9)xFF~8 zDov85;(*I*O`@d0haj;qa#+0a<5j%D%&9e?>%$l3oD39J4y4#xcw76`h2dhpFeugW zxIZ>NrDJLrs$Nw6_!7><#6<8Pg#AM;z%2VAChscS*VYr8&{$)y2l@jcC^PzT7gXy{ z#l;Un6oIqt!YhB0{5{|*9eL#L1{;vWTX%-IF3dE^dNR)e*r~bCednU6u7L8o~-rf1fcY*#JBI&1k=kWPtJ_}_yUT$th7`+!>R+6U@E9zQlIvW^P`*T&z%`~j2;aS^}*xE z1W$Uf66*U=Po4&SuN`#(bIL+p&ap3X_rasTbD-+Ve2dr3dbbq_lSY9+iyd)vwKu0k zDyo=QK0?BS71yIz+a8}a@RLxE>8-a2K}y7==FS0HLvh|VY+uFtfD)^3!ry`-d6 zhJOQXcm=#E^zUh3IWF;`H;e7|&I559xd-bX%h#!BJ+N0K%-?iZSd&34 z(zU+}DSV!+s9hwoEAr96vC<^DM1`m63>Vuz`*M+f z3)_a1J@dCB7vpCVj{cd5V)S)6AY+s8Jp2?zYVgLqQg)C#A|kdVwMV?fL%YK%Ve9GH zFmRa;{+*Nz_n}FSo4Xb0(gg1WK9|u4h6q$ z9Q!QJU08SXv;x>@H&^UMaB)pPT<=`!LlZ=Xxv*x;$T?v5aa%lH0h!LcEkOY8^3XIU@)+d2bg3#ndM?^&Uv8#i_ zo%}4za-B6Elr}m)JG2D=HN?t+{lwNmZ;g*?0hf#L^LL}psLFA^ezy#X07#jIdhEgW zr$?Bzb5O@R%fp%y^z+a(PT_*3Q4~nCeVvJYqQ6c|)c^vY>vXApZJN0&I?;gCpD<}S zOw<^6b#~6Tu((#AF4xqtEDRR6E(6^Snj=B$^$TQX?D5m2K$#^6S>GZyxN%M1r?ToJ zH}M(sKYJ4rvdcdB!qmiZI`u3rSUtOenTaqVOWC&e_1O}SN;NpboUsbUCW#xsyT<`c zjiod%oftTBZsAnY2=ie2yZoQUe*v?enPuL{!pgz>hQaM_0<&<`|cX4r{JOvqm{e`auMAeZy>%Jg~mej@L zrc%wxZmeYc_h^*?Ir=G99VM*!ukj2aeFS7xJ~`;VA!7;NNkzG`Nx!-4)8jO}0&CrL zf^-Is(h4ScK)HXdm9e(64x_tn2UBD-_ ze1w_2@c9W+pK*|R5}Ic0m#2o)=;kI+X9T1-tT}h~EaVnb-zc6fGmIVGM+cOPzpm^V zb61d;AHH16DJ@m)RH^YM36&7;sE`od%$CD89sinchz9-tC=@CM-%DmnJB4dQV$n^S zeRf;K6#Z&dSo|MrDvNb5YUy5ebh;5$$637Nox2I^xvdWB4;FtpcSBQ^Q^_4@yFJw7 z^`|ICCm-D!_weZGA8=hsO}F1i(Vnlpm=KVocIwm=>{moG6V`eK?$HEg`{qiXWy@?k z5>o9Y^@^+V^YazJt72EznY$vJltBoD4#`S$baX^%D3cuh2-S>0y~$s(#$BcNHVL8* zXqZtnO!4;oTt51a-H}9~Hz_9U(hMLEDqHXlqa&!ju{Pmg=MXri2>%X^Q_eseR1Y8* z&5FGspZNHq45$B@+?eHjo5UUZh&83RZ{HR(Z`7G)tMa?r+aA9sE?zoE%BV~E`vo8G zaNEj>NfGh$_SK4f4m&>%o$=HBq$mDP*6NrQo%!A(s(S%0mswomKueY(BWZD*&3t1>k=U#$kInlWZT{BJYAd54&Md3KntYvTIhVLYiU_1bV6T(I5crzHc5 z-mYSmRZ(fieY4$k(R99%7aD?7_ZDRcx5q|a)Cd~eAN7_uyP^3dG^{;xk(?w~Lij=f zQB!fvyv=S>366`3Q0jv0^V;yBxc6Q+ECoiHO4hGchI`D!SAk@y4vN48pT={%3%aw^_ zArWEWIQywN^mUcG4fj{t9vq)&et=$y@)Ykz$i9p#JffoJD7I7&nfYO#bEO0!qZ?n# z&b|PXXY99}RZP5%c;3kp=Mb#fFg8#Uke-G>0q_S}@v}he%c-D{Oz07&QVulJ zcQUG?qG#}J$d<64B^nDRtkk0UJd(WH(GeG!u~h}5UK?358Ni{BQ-QMz%ht`slc|pYF-D*dnh{G`;qij zM+n>CSZV>f&{cx950LnH&dv-KMkQlxX}4C0)vGv!U|IVU3CjdFCeHU)u{b?W1G?Jp z!Aja?s}2ImDJ_5yQjkIfQngYq!7M-sqQV_?HTZ?&BDt=z5LpV$7bj|rb_(a#z)z-R-d*^&Gz8-J+s{lX(kQOO1)A|_si}>9(>DJUDm8;1 ztmc);NlMH7%wTy*$%~kSc8*RQtev>XtV{E= z(}?vFR1#T=uy$%aSQ~iQ5!5z?Yczq{c(Ohlz_|rA>CxlIb#Ql}dklk4L0TpQgBEoD zBZxF0?Ezru3$RasmR5bIeBwQ-!p@yL|6t}g<&+lv15RN$)SWJi#qiNd$0uCq9oO%( zXvPP-&bD!Pb#%m?N-_kkfmkdqDRD%eC5{QEtBv4qfRtsXi{zuklop`<7&A{uCeFaX8+TvW4h)4ntntzUG8Y#}5~{~=ThZYBRE!{f zVxq^F1gFOkLIR(3|RAPCQR11P&5>vF4*wae?%S9w`xck90H!1_sY)o5Pn-Dgg zoF}rOZLJB6Z_3Kb=3k$GQg;3M6-wLS(AvMrP$|~T+z9Dgmx&e;(f9@6M#%|zJ4jYZOdP^{H6))?)YEIkWWfDXyDf2Rz>?9II>3p5C%g*DcN*&t-w)g40O`50 zuU@fWbC4%5QK<0ZkM*+V181P;ae1?d5sKp(2+i0Pa0U?+L!l-KA3crBzlzQu6b_kR zIF!puOGodmnV>g^k0(qP5-DV{rKCkPFlGq|3v;bG7qn*e>N}ucKyjfpBH09_BlxA6 zx~BP5KjrWd#+Q8bhP?73VJ4wpbGyzCSV!!8sH z%iURLNfLkpQBbjOZ_q`-B$w7X{{mq%_?`~6;0YtWJ=k{4c^?9+sfKe9ax7Yu6`-hw zn%_cmpn8BoLW&0v%0^#`=Ol44{US@cr^8`XDL2O#aB@OD1cjiR>pYDndXG&{B@&-{ z+I@8Fm#Y(75OYFljB=ZWw!Mb*m+a~cAPc!G*jg#0k(4zEzC_K?aj2P-z*fc=w0f=S zH)SYPXjZc>6$1q50o8|84Z=a%{hf$g6zZNm<3L%W!XJx^mr@~lg^X`^n&@NAU!$p` znwkh$2&5(=An+o>pgNMV{@t(Dmm{Je42{G?hzbF|C4?9yzvIQdZgYU45&d^vjUh;cbztJH%UjJ+Ux`AKLf~e~=K4B^I#cCCkEC7&7e0J+R&zk<)#RKxc@?QwK1QGcYVev^GSEyN|a8qh=(Xb4qjP3@MTEmSOkZG zj4pC(C}4_01<@-|a~0vn$PR}16e!aF*9QlI|C@qSpbpTf$cMWLjcP;RWyBkBlM6oC zbNTucmVDkGc=!Q=gdqWk(FhcvyDu&BmdkjozVPYfc9IJql4IE(Yk&3jxK4w?faSTD6fR`CtS~bVRu@#T$)2i< zC|?lr8qp#PYCM3|sqmyCDfAw!gxj|2P?nxGJH$XYBCeTh4a-a}X8gK7@?zJGRl6nL)!aXABgYzDJ;&DOk`hCxIvc;Za(Pd}h` zFp=pzqDb0PzsC`V8C8BJC<(lE?%%hkx(S7ZxCv zN+e-P(8kDK!U6)zs2~;QkzR$iZQBQ8zjr}#TL68uP{rqChy<({*h5DotdP|Fzrm*a zi(iW@hg~%XcaB0|fTj3@h0D2Mr5xfJCQzawl7%EbPyqW`SSy6Sw}Y&fS5%zAlWD+u zfaW}BYz&fn0SN^J(3Cu1h+0FJDHnjLk*(08pm0z<9u@`yn)!?&)sITOdUCm&5Fww$%pkfM2MHC_Zf* zGEQ!5z%H-u`XbP-saRgn0qWh0^{$RrK?_&_Hs zUeG#d5BrCD5XRVtc7cL@uJIFPw4%@H%vO2 zC%r2Y)l7eP0~`1;Fi_!0$ex(i#oxsLbEkpGOan^sfjHRCh4)Q|5!H0{f^vwI+%Lft zgc-hi9akrM-u#Lex_wBwhOS_fI2tf~eQ#laZLFeV_FFNR;fqDHu6+%5&TG{3#fGfe zC{K+jH?LJ3JhYlsLszXb;92#(PM+%T@h@+k)BW}{aqpoeYZh&^J$!JbljiEfx6Y}v z^544RKDKt%z)aEACg+i@tZb`}Zgt6XL?JoT4LzU z!ll&~iFN6u4E-#cU9QU zq|nu+=AivR3#vLB2xe~%YA3IY3lj0IrcKv(*!EQeU^{9iMCQlqkp^eA9?B2)0GhLv zGy;4>_S@tFXOIcrzUm|d96?XFzfK|3Y@}6#^ga)|5WNX{1dW&zk!OE?@(uxYh zJQ1ltwBmbIS@J_*-HY)V&#@(NkC$tbJJ1p(!EPdXdjSv+TSf+b`3sFW$Ik~DLx36q z@jp4(47U~{v&ktalwkRSPQoe&i^zuCg-1Z7PYLgD@nCbD9MFvjVWp7~8noAXFdSjA z2)058iYrn)E1w~(mrd010T9ag2?U5M@OtnKY%CE@3a3$ki7(){1T^F8QS<9(w(JPI zNFg1rxXj?@&R@$Yuk+HE%r=8M&q3Eoqrf&(-+ewMB}E@ajFo1%^(MFmG{--P?+2Gc z&`!U|h>z>65i~R0KZ!5!3r_D=h>_6}EIT1*4l;78CFtcquhT(Z#T7%)D?8nTZX*v@ zj8#1Gly)7!pbH>r0qh(paWIOJ@en3zWrF?!(P$7bz_N4TMb)BJs2)RD&pfO=L?`kl zOnIuL7r~9+e#MQYv4wQ)$qG|326$zF3ZZ;-CQP7nnSkJgS0Snh3UGzs2@#Csb^r)z zB)1W@Tj4FiFNhD(|vlZ%<#Zv4XwfQLZ(7F1wlZ>`p_ z3D$g24`@I4!c7Fu=M#$M%B*%X1Aw(4KuYKw<~ifv5LKVR${^cfH5(z=A7AEH;E2t8he#!k;DQG2P)|wmCVl=fIlDv5z71kiYh7uzK}*m zVF{6}BFAL(s(&uh4Th?hJpz3G8C+aN_IdM_jRH_1FHUdkKA^(u-SDPOq zswgd3;*Yxa2#v0oz3`Q>=JQ7d`$c6##58a^nGLo6tiKiZI_sM^?HND%lRmcBF z9!smYQUvl90XdD%jevl|m&y2$KHXc6z$snm0r?Up<42)lpG$Rh71(gYD1sKyVVN}? z4oX66FXApkN3cnNm~j#H*9r3k)rj~VFqyVyWZ*GYMaoWL6%E9j?7-dqu!V91@p1}F zqoc*Z8umo}brh1alb7ixK~7yIzlCc-*rI8ySDQNMt&;zm_3PK;0V)Fz!Xf0>6$##J zoaovaS!%1wm9c&U0Fk~~lCXV)cL#mc4f;~CJ#VaD)4Dw{IGBU>VKh4c0t76J*I9v` z)6nxm$n|!up2sWE{}xGJ&rpOPQteGE3_;UOY+_H_1Ah>tmnuO$3J=Mse>?M41^V2L zTe2Z?JB%GVq&+AP3+sw3ILqO%>Q+9HtRR|l(H`tJIT2dFh08|_L-kPq9a^rluiABE z?Mc)tvT?EPxGdf*$|yyB=A<3{_`|miAZ!*f?}N#q;`@B0ImA{!daO>>jj&Ra39!AP zN`W5`Jv#}SeFA%5SSLLZ)SmeD>8{cXC`)kZMIC#10%eAlssa$4aFMVr;N(W{LzE9RAlj%Jgg_Jz7)0_U>=R4fvHGwI z=-&N}7GE&HM`un(n|>y-#Y3M4m4r>w1i@H4^%CebR432{M0P`>TBW>Bel_#D?VFGW zpaPQohtSdl+ChhO5!`p-pzNY}w2e^ekqML@Y{xz%noPJ5*C_~vhcBDz08w0W>9N%X(!*Z2W0#IWMis*IaPplGf_eiTrPwm>ol z^^=3zfgF(6pIV2)v=gAM;G`yvLV9z=(pB(3yj+!jp`k9&2h7pLfw#aWwI0q&;vsby znnNPq0aZLQD(XAp1y)L^Im(o$Xh6iPdcG&f;4PP}5g_&?Y+ok zHkdnNH$}_!FkONt4@m$Q!I}@3ep)y`?RGm-(PP*<5gW(|DUe(+pxFak*%a#hs`67f zB?AC~oWz3a3mG#sMGZNfG>|nZ#>5+VU0)MREr6Jh7-)dZh7M~Gep!HA1O(l$aeTj5 zS99k++!XOQK(V#P#p%NWfhVQBzdM4&tNy}IO<#?m?J$>Mdn|xq_L5h(TX~<%->IYm z6m+Aklw~|Ml3R9P4&l1+;i_h-?F!fwarYUDsS=mFY&Fvw@(E)ZR=rsc=E4!tHMa}( z96AE7%{G|`WWQMvYCaQDwJirgt11hs*0FkQEZ?3LywzX56&u`3e;xqKu zEm=dRq=%v`KwAwa6>-6YadaRb8s&8v$J|R>=*YKO`6*Z-ss}L=qJ5eR601TM)0aS} z{Kk=@Z!1e?ypwJG2XoH$QX-SWt+>uVgxr2vfZ2&<1Sx(8Ggz>)s!@vcBcI z+O2n+`1xa;S@Ly1HM&beZpY{av1diSk~o3Gjd%XhjPoSCDHM8I}fdSArVHkf# zT_$d0wC}%?G5h%%!s7jW~Acr3zo1$Y0zEUBNYmXsDavn3!# zj_y7I3PCs3lI%2jfh=o_W9XLvuaJpyF%@9??d5t}w0i6}f((GS!RIbOI~G1ugJR}_ z*8$0*ZPM3}-^!LV5>pm<^(u zuy(k5U`QvdDZ*h@-738I8Fs;}MMWh6g0d7O$C8tw+vKw|d4AOu+0cA@Non-8toi!$ zBSD9X5k0NL_IN-*HMoD$3F3?i(t{zf?<2y7c!&S2@B+9`xcrLs2`bP8VUSp-@hn;K zTpX|P!baWD>de+{+&q%&{!l%CkNw6DR^21^)PUCQN0pRBn%pfkQzo0s!~6c=01C%2 zfvf4g^!ZkjdQV&gRDS2l5(Zunv1;XayMRZHq-j_+(NsQv{@e_%V;D+^2=LyU6C6a{ zY`JL-x>^+Wku>hxg#v2ZLPAbU&zo(F%Sm(k-(1JG!n|Fjj7}``k|hIQ0MD50(Iv-S zH#f$B8;NgZSs?c@$Q4;g0{;F3-UA1A?J z>yy0EA|f&p`oURr$POZ{r%3zr6h5}=Chch8iG>-sD&*0lT8O&XsU1od_;9>e!>poB zf2|GP5+)Vv`5++bpa*liebB3}l@$IEe=!VQ|El-`7Tk&Myvt8KaQ)uXwXP=Us3|1=V@pmp7c`E*mO9iBIg8L5K zyqC;n0sdvb@|z@d!7Ax)Z3t9C6@$t_cV2)<+#0$^dmV9iQ=a-uAH@y2ZALW7p-m;M z3h02n<-2t9(9g5xLuFMTY9*Wls1I-w;z%cWKxS#g36ch-1qr09Sb7!zAaL%5}_>gD3B@8FwTLAX;96?$#Z}}K#e0H z!Q1&4AXU&P$UUM*CV?5<8ln(b5Kb?kLZ^tM3CvGtC27n- zsEpT_l9N=>FTlnhg9*LPet9+WL?~#n^z4C*;7VUhPK7@r-7w5RL_oL$2>U=dLTuI`9V_{PM+9Br$O^cEtQ5$&Hw_{yT6(sTwBSdN z_LEIW14m9Qa^UBP501=u0YUECxf9fIta_|1xU^2mO9Vu0Yb!B(vyw*ifT5OmggwLY z7DTmdO*a z{y$LUKYlLe{|n$peOo`XKO5}spz0!%d-_hCz9^57)-bU%U{AIwRFytrzkT_$kDEl7 z8*R$GGei?8G`JTWtdq;w5`TX1ZJ4K9_}NR47++|AoiOZR~&pa}+J>UJH-aglom0Tr7o5b>&OeR@Ia1se{r}`1^{%4;a+9$gaHBFPn_$=W zpmGBA0s<*0D~rB8cRPg)Q9Kda_H|JaM0%JP{Cs^^(vB)BJ|>Vn!&(MbNkZ5VCf)ZR zFTb-bD=ixH1fURhW8xc7nXm$YP2_|EF8Gg7=($z)xtsCKYA$^Yl%{%!pG&tDkg-i8K&iHflxX=MlSie%Qk z;N|*49a}yPU!cEJ0zTm1>iL%*R?nRbjpOm3KAKO6X06oC-*_ZR-rD&gymXW3oe`=0QZXKmo56sC=wyD=g8*}J zIHVUP!~d^BkYb%4|3IJS&LWo+uH} z5ETt%d!3a?oKcdNE(`D6!nc>MHC}@tI8dW%yVx7zg(oXPQ<5D`&ZEaE2GEuT=93Fg z6Ud@s>)+tkhK6DV)fpHw!?>gxp$D^{ECtAm|6jZ;9J>HIP6(7mxX&^F!Abj2R>mc6 z)sDGu5VBuE^9Mg7CwhS$&t)rJ>q5VX(`yB%#b`Ez7O0xof1$~!kY$#!r zpL9^BY<59gNEZz80nJjK*Ey!s{VZ`h8OcI}@~MKxeqRvgkI(vB@$bkv4cv&PN+C;B zWyEUhdSa=TKf>>d|NK-^QX*r_aV|{$h{2>_mL^Q#u(y-5ag4mhpM#tQGf(0NI~$`! zst1GF?p(%PB8DG?2<|&GDfso*(YC8^5P$E# zixv1g$8i7WW=_IGFen@c8%h`Ka0(D2H>&`#r;x>z$b?h&#CPr5g%DOMY_p8AbldEO z`NE2U#s1#VOQhig!ubkjncW~Kg-BfXLYJmIg%U@s=O&X&6dK8J8rn@yR*Vu8({GTi z-4hR(@18;xr+NUW%V35(vVqf$VsV?~$-l)(l^YpOk3wZEMw?8dfE$QE8Kq=m$EeT< zab-OXt`R9*nj(4ZM6?8He1m?VWniF2ZNs0d5Rv4ZYgQUGVuBxP8y4MU`0E^Evwv&! zevLxbVt+BdkSi73-yG0S*cCd$hf;KRqh_mc*N?iiLGS{%Yp3(CTHBr=s)(WQ2d;2%L)pS1}x#A?o;kLS%oZkR5v_(rkF7U-OxuXtbUtc8f{^A-5CJ1zLwVPC~M-SW&%(7-|U# z%nC9C+%FL$@G7`ViFJ)orXvNPNp`ie8iDqxzW?fVKehnh!6%EWZGPwITZMt8VV4Vp{qWmua=s6S})LB&j99{j_cIhQ}n5ow0ETf!N# zDiIU&@L@sxrJtbz22JaE#fp+ha78%&fDrJm-JsT$)vEhLuIZM2VBC~`&HV(i8WX1~ z77D}$Y8lL;CNPabK~08w)E=J-izwP)BGmsn)E;b^KAbO;$cd71u%qQ+;*lujNH{oH zd?qb#E)GIQO7F*z!eoE(o4oma13LCGK<0z}V8-7XfNgnsWHn(Y&Y zKP>najvsFTfIwW1F2BJ_1BXR4++fQGyLjIs#@S@L?s(*9yNkPb!3E@m#?}QS8;TS; zZ4@_6#^{=oep7NMDm4f{%v4`#u=(Dh*G@bLAnb^VZza!>z6(yogNJ1mhUFP200E?E z;tVfTqBK~(J7P2*SlcY!t8Nj(d3@lp>#{1E%b`^Y7uwAyzsd|(aEGpAvOcsrvFFV8 z#s0r9VvICF2mQ+@VFX7HM)M%2AQ~V@kHLo01S5^OD=VCz9e7F@b+E>ZFvv^vR5aB@ z<$>s054yuz3x8Sxk`nRTVu1r6J<7z^gp!XFGe+TqFOS)U^Z|Y|4ilAMDv7NE=OH*l z@`g}oLZqE5gbam!iPT8j-7}6$ZH3Z6)j=@BX1GoWS%gRyG`5HEQ^CF3{N_&>L;IBa zFWII+Bv=lUGjbDggJOE-zTYyNLY)@RA6PUpD25IO*o#y|Y%65r`zZ8w^wKgBMFrep{VW32~i0%i2W^lQ2ql^pX4O$Av(yyLJVBeCR= zyWGJ{29}(sN603`v?Z=pd%$!_*dOFbOma3C%vJd47`2!aWhY?aQKhszF!HYX@;(<* zCV35B5BJR1uU~O;+7ytnEA}|1=p|ck@>soC)2X9-?f9CJ@D`T-dg^SH`mApl&q9=I zi}IZ%+$)#7tUdF`ww1pz+j@bsOn1}d#`s-3z_B1_ zeH2csUqu6)B9oi2X*+`du^nub5*K&C3!rJ1lc7u0DdJ8N|6~SzoJjLK3=6<#vH281 z`zDr7GTb08o{s<|p$m%u!O$pGU^?;a33&-#mkX~#P+{(2d(>;BHoBu3gKFUX!2FJy zAI9VMA$~bv9WYo$$Hf{daURDZcMA3DbTh*j34NoohgCpJqO5(k#NAcT>G%ff4dc+tD0??lY>xb!S81TH%K$sF% zHT5zcd5DArg{os!jA=dcm|>3}wx;S@YzMFKo|;so{uiXiCKbRy8> zcrt}qW$j;Ecgp96%qup}p|I1#axS!a<%P{5>zJfB+rBb&&p0}`=fI+mZ{La}r5_Nl zS}UTnjvR7k*ZLJlEF;#*Yy~84%*Gvfb`}$*_y9>1Ij6B7zUdD#kl*k$&IzrZ0m}u} zdtjVy+=(+1S}OrF9k_o~2rE5uo*kY`ISOC6_kID(7*p(eD8$(D8CWT3p`B&|fIR>Z z;lePegLrm!WTCCrBv7&map6X1o4cubVk}7tOQWM)hYN)c9sSoT9hL#F~0ur77S zORNMdSf%j9N7N)ROHXEN$bm&J!XJm#gPHqoF4E~i=mL_kvE0D~S|LdTAbXK@$zXOU ztOZD)4`+JjW^au#ch;{8;Mu|Kic~Jy@mInF3k4BM7%+HPzXr1o9JGCyQ?siqr@Mzx zczvU?aUc~$Zp+pxm2`T+itxE{t-pXe%cuDf$*nxf)mQ1xb(zgpyB;i3xaH0nrF0vF_7w!QnvqMRzm#g zl&#A0Z`t$%&J>N{PwtSJ5t0o_pVR^a(^{cw^sByFPp*WZYUANEQO5=vobX9_@|-&IYbR**$%~$5!04-n9Bx z_Ma!&zkqtoJ7nYZQU~cd#rBWET{l0xL+f5`k zM>&t(c_;bjQ3EA+GTnkcWg1RbPV51AyH0Cpd?P1@1P=!{dB@*Vb`}o~2??2cy}hev z)uk6h+$*NpKb}k`SyaR8&Me2T_0qBUaB(}k%^C)Y&CO57A|oR?F~jKPFcKuHFAZe^ z`C}AT4sxi8ECry391@3r3N_9hAf_BFF!|Fk2tB5ZXDD~&=npU_@&b*;aF*^h&QhcH z555>wBI~V;gY1H325w(T5sVZpm$5>)48qn2GD-sBPY`ve!w#R#E56`p`9Uy58HyyA z`xK4NuF)I%$1c2uS|tfl8k>{+@tcKMulp6;N)Fl)b`}V2hi~I}&iGqEvrR?|Psyoo zz~dyIQGB=?;SsIIE#Qv{qyV`}S~qRYH7^%uCAq8Sx$Qu>fn3uNdpGO+R{>w&Jf6e* zcMR08G}z9bXw7h|U`x3Fb8@5{CRB@cli>p<{;%1*8C6*d87HF>t0Szi7-JzphC(}X z?5bAC~?Kmp{WKynmqL|G8_+XKwBqr`x-vv#$4_~6Oyo8<2;5pyjnp!d2R z&)i(cZ|^>YqXqn^vImLHtaT^!e|y*ryf<4)Yh=xmTbeD%0ij?QT!~ zM}%J;O95jUt{hIf;Q%tTfTR;3QxR z(uhafL`JTWKro-kvi@a4yk`-US z;SgC>V**{Q`HmA&$pXp2>%QAklj zIY3&3(%yklovi|^JEsJc7;Os}L=FSEK!58Y#$i-0C7k((;KjM7fIEP~=ry}SF%E^Z z`DgEM0-w*j_Pxt@p?M$PhKF=urcS(b|QH>fE#fgFQsOL4ZxqF+J4_fdRO(~^v1|5B}O+?GJ>7{0#0}`nnWEMNZ zdGZlabwY(&S}v!zkxG;H38zbnI<#fbp}d0XmCgxqnN@_Ro13h-x>Jt!_AkZX zz$b2ag_Xh|dWPr0;*#iI?V~VTyKqVGq`G}DJOV5s}JrtV~?nF~1P z1ygGptu8(*+)X!w<6$nvH*;u1W3`>TEJAIk%=a!YjkbR;Gxu*mCD+8woBgEGiau1q zp(2xaa4Vd`#p2?R_=-4=2O*Zhj(gv5FqPk3R5##72HVHk_mts@-I>Rr9laeY&;)}7 zcCshk$4lh!4&}k_c!#Sx;IK(PsI^I zPHM&-^7gDL-u~v}i~!g(T)yo*m>+_w=SJr2^5;$YGIq2Qd{`aWL(U(*p-5rXUb;!8 z**SgpyegVYpO67fyKL}fl6IlHL`;e^Pl6w-p4`fw-|ls|eSCou?PNFn;no`s=>u0p z4XMS(ky;%3+%L?o8a)!7>lKh-4V+tS;KAbRTPHv*Y6JL3 zo6@KMj`n3M0RZ;#5IBq)L`~sSRv5JCNsk1g4q8{BJk)s@4LS9Cy6Z)g33TAYsm%V4NMWi4`Q;E?r&Y1rttEFN36};XL~eIjH;vkKG@#_?@M+_Jrmz68#Lx`Td4N#M9}Ao$xRr-=v&S_1N8=?f z#87-(6yi80;3kEoqDg$4HV(%G9A3(5b0szTpWM;$phDcHT$!Uc3!+vcC7)*fxThvD z8xW6UsTxVjHvct_rhq_k5v%Dl!+0QzEU-UR};*E7)UHdf2HR7U?yC0Aio!uZoCW@`>nZ(t)u;cqi}ir;1rHh|)SDv9@k1g0e`O6_`{|$P1d| zeK9UViwVC+tfh8;NJ4SzJ8b__|3t)0>?cyF1qs4M^uQpK*LhDuRA>q0{DC99ilVPB zW0aC=ZYF=@I@SRWF!nWkX$7;ya|5ljxt&9D34t~>9Q2_c7ClZh{*&)sX90)tl^~jo z20J22*?jrX=Wv9jPAU`S?B2M)`r@e-p998ly;%b=ymRMre!eFVL(T748Lan&zi^Kr zOy&^hA}6)@x0bz-W>x1-W*I)Cl!J|2qVol(CkMWv8SU&6_E&9BS(>ThET4LZr6H~v zvP67gVHdc_B!o5>`oK%~U$H_GxCr{nM@`zI{z1fl99?TF!Mvye0b31ABrGYeeJQ5c z>`OpMct_bf>Q+(Danb>LCV1)8W4+YrnZCznP~7$`ds%R;cU1FI781{}89CQ*qwI7C z4;U9sCx2UZ8#!`UD2zb!iQuP|E9<8OGfsJ}+26+<3Fw29D>;c2Kty914q{;nLEfgbntx{^VNJ=R7}D$u$J07)qFRNv7;z z67Z{9Q822I)}H9&SS20A zMhPvi*TP^_wZ_H9%FQVQ<%av#)OprMmdJobBbDeVrLO6!Jq{ zvF-T&Th2VEWLfs!A((GQ&L0%#eruSQKB$1?gk?U(*#}ybAj;R_Nw+A=w&cOz4(f1v zR(&E+uQglX?epFy|6b3X7k)J6wDTW>wk3`lm-g0#A){_wi=CfwW?g%-sa1Z`l?{HC z*F&oFe+%)8T*u|t5gvDyyB8}$#{Aq=Um2U8?rweQLdezn;RVvZA+9Uv+t#an9=n&Qg@R ze#V>r)L$7#clr*|H{jqC-3C8K;wGM I<+Dxy10N^qng9R* 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 6a3133746a2c3c097e4ade95c4bfe9e4339717a2..265ee49b72de861a0e3fcb2a426d3c14bcf8e249 100644 GIT binary patch delta 5814 zcmaJ_c{tSF+o#Puk3xx_kZCF@!kZ<#DJqIkVzR5qzHiy)s~Sl{@aX@v|_oAH#j(01vNiVoPb4W)Xi1P zmN(9wH>Br_1{@6idLMjytLt0&aCv;I4ff2`kb%_k%3QGTUn?Kk$to!+F(u-sV_h{( zOop3Y3on+izIEFtX{qrBxfbp3uV4tQ zVih?Eou=#I(3fW+r^EuQ=X{eI_Hk-?D`g8K0s;a~s)n{SH?v}XPEVWSHz(ud+zm<) zr?Gl8QV~s=>N4M4ndCgJ(d)BViL68<+@9O)#+e3il)2C9`Oz<*$j!u_ghgL+he$hB zY%i2!2#_FA0^{(Wuq|W{torV*6LMCRq?b*JNS=o7-i&5H8xBF}N7tc_9l zn*z7~y!$Ni$R!@B;p*JYygLR42F(+`w9VO`z0;7SqTNA1oDg=hh)YYO(uuq+3l-%F`+YOtTvEK ziOiD2sUHg*N0bOTE|X0{1Gr2BE}LUAdKq_?e;7JWPEHP{g_NGHS9LD4qQZBoB^pDx^kkp?GOE$s1tww$w4Lpql3Kur zh4RI!BPI_Mo5(m*KPkfZB-OCYSUFhedk)kF^L<9$&r_?Sm81{Q2lpH^O)@Rv#1tbY`6 zF_wo$d2cS>SAA0X$w8Tpq$|PPM^StnsoWw4=H7q5^y1!iXD^3%E(ee9=o@LrVH2Nu zE}p)Ox9{escri}N^`CUpd1%-G@&N_@t zdMpR4=$U)i;A^Wg4@kI0bEJhgxAk!+cyh7xbzEGfpHa!r^SO+VYrn_wgkL^^gsYvJ z`W6$VaT@J2m&?3+AMn`EsVVZp&^FMU*x9pbd6uNvN^*bt3Oz&n_H9X*pACMLAwaJp z`~HGH&k?^i+38ryu#cm}L}X+n1YJ0?Jxs~Vr_-;nuTFhSm)U?=v#Pd8ij+YKK|#yZ zI1e64tM6ZeIMcCi_aqS2^v=PejiXT_h8`0k()! zZJL|zsfb3)c(19AiLeoiC}V>HtM){dK z*q%vEpl$UK<7J%hp%OtUq!E7#e~<%mhmCS^ap}tTFV~~7&f{NVV`KaIGBsV10jj0% zd|^*0mbNk39EBUP3_RxX5FU6_7L2`=r1+=Hs}7Ffx95Q$Ao^&Mqry`4?gW6(IFJ6c zmAZapqUhl7j(FEzI`bihAF`N0TT8|6%xL+L=Sr>G-)}Dx>Cu+)`ekl24dExzaKcO3 z*ajU0heO005J-#b^4BAQ9Q)Y$eYQ+})fRlP40YcgFPM`m}a^(up`mZpAIsubg;uW`p1mo}InAN}}Y2S?{=ZU)R6|2I8 zfd@(xpb<1>C;x?DiyelxkQWlI8)NK9Z!8NNGLLXZM6EQCY7o}T09i6ZCF+KZJYx_v3wGlYY782@a)&%%SYQ?2AFpwmz7&Wx@}5b- z5P~=b*^bE-G}WkN5}mE5`T3x;CFKJ7T-07;U#Xy=SstLq;3fUz1N9-i6v&|o%+vi_ z8I@>Q>;T7mn>70u!g>0(SD{vd(nMWI`rye=EuUP5P?!Si&Z$Q%{Aw0SfoOcm1=Rsk zsjf6=ErxKs4&U?nt+l6#MV`~o`}(Bo%({M=$GqHwmN(DK4l1jiI&|{t3z@a=Dk?V; zq`S6xap+wPff>>YyFnKr@fFa1bPIXOL87dYFvB}TnK>Wjyp>9*})o;?$^kI>= z(vBvmvB#{URv;W-M;!|KA`oSCD_4taom$r&=)(ZQ@4wdO`tp?=wRYzHz8qAw!z0Dx zi+NDG@Y=&rZd_bD6KMJy_>`J}H)y8dqc&Hk z1Ah}Kgg|ojgEmS@NqOzq#Y5T&NoRiqB<+7SHJm0 zf8atX0^XQmi7e+%Dln^g z{5ALpWu`NAD?P2;`qZHy68qbcQ_QM2UT?2<|= z*MAs-w-GIQ$0$)>P#}fTjSrH?n|pKb18m)yOfeUi^hr^ZhqPK<{*hHbOnGw z&Y&+{X*$TxtZ5X;AN&kLn?_pYW;1l*C`>B1EV0}AaaX+nmmR7$rSETOOS1%27bZ&qU1+A6;JFt$mtOm9>03RH#1fCJ6-)34L)!L?p8px)`Bv zj}WOV%@~BxsVQ$CTyL!=dXt%n>G(Z;eSJ`U0HkQ0v3H(}!x(}hxpxADXVutK-mLP4 zG6o4YoD7>AD0UQ&_N5GY0=(0@?3Iw^VADBpj_y3df`Zd90Y8%xg@<)Kp^7HLunbNj zjhzLs9Io14FpPO(_jS;QioDp_rXX{<^-tN+Rcb+ zUCh9-JM-wq~iO_X5JG^!%{2?Ui1$vR1w_U8IfiVKuXceek>Wf2Coft$fCV}(tG#Kefe z0StuxA+rTt#oz_Ks*?}w>-@$7jxZPkAW*Mw3|uiEP+N1Ph^=b@lKI9kB*7W9z8cB=NtgxC}qh(JCMW zg?rf!gaaVwL(nBIuC8FpZ{{ir3(rauH@~r3U~^EF9v&W-F4Zu|6@X_81VpxxbkWBw*YstHg^JbI1mBfLU7T?@ zSY$xTg`8S8Fo;!fyMW!E%Lh|30=)u<|?rt3-B43(_|HB+XsO7zV)_d{pC zC#raOkVEAcWPqBWGZ)u;OtWuE^X#^CN)D8ec}I?|VXisK2V9E6NN!5Voap#3!Q%(R(+r<_U|XH@DrRYR03O&J^{iBc{IRJM+z0jo$BySl%mmke`$F zi+v56Ceo<`L&V#TM%4U;LAB}JW~^bAe~@2b*WuN-Kh>cbn66#EbUP8u+d3aBQ^fV- z3P|4UCJjhvsa1ZF+H6V_hcw&|Q!LtIlLq#M6aPn91{}|KJ(uFKuhPHv0CI}{>)XKAdKaid}6(Pxpy zDW{BLoG$3>MJVpBM&uX+%b?tGBaOR2M}J6hxT^j3D1&dY5 zfY{ww8Y>=jX$H)C)&CG&)`u#f#~vfsZ|*(DIQk=q`1pi3c~0M=8ANgwXrBYT7pNp0 zu^%+;K%s3^c#xE{H44^qZIzt{<$DGVKn4{-2d2n2D$N6H2;d8fu@~9tLDqk@pA<=g zMK9Jxe8gPYo%)d}e+lys8xs6G8-=f8Vq!E-GweS}Y#xvn_U*H?-ouO6OGYuogSIez z8BIT^{12!dP>Mv5S50C9hk_nIehk-I=T&r6Mq!kHKSO8kJHWH{O?rgNkZz!Xyw^$Y zeHKwSKqC*8xktzI{O0^F#^qF38lpod7ZU+@yoSm>6BK>OivWK~p>m(zy&DB}vjbQq zu2^&W#-G)%pE?APgqHW1gB!8n=g+~`#v^nJA|@hIIUVoACNt^}1gX%;X;=1}e|mY! z;ld2aP7#WsO=)}1e>dA5a0jn(Cebt3q>Oj5Ah2t@KImFE(6^b!oDdYh1dR<;5$SF8D)F2Ilv)sX-MVg#qj*SIWG zV%1jqM15FxZ{Q0KhAT5`#sdU{d1`%gJ_)##0ffKrlMr)#{XUS7*`RJg{pGqPtxZ5eO@ei?T=boiTbC-?pR`cUI?4@I~s3S>tQm%8#zYiQ+M<7DjdT@iS7 z)es&jo34)t2kd z%J{z|2WYc4n&&-ICG0!tl&tFD;BX?`YV=Zb&xIxbm;7J{uT8X{+jHV|U4R)E$5|}f z@nj!N*VF164~3Z01)QkzLunSDU zQ}kgT|LSmlAi-N_x^4j-en@4Cw#4}BG9_Az5i&9|*6pz^qk9a@O9dv$S4SB^CBo$f zSa3VXQ^NV}9L~)D$MCZ{EYbVRSC>A0QgN)F-Gd50%l!G&@#p&uW|@R+0vqS;}UQ{{!#G{pSDx delta 5721 zcmZ{Ic{J4f|NpcIw_@CqYaMRUy@VoLj46?%P$D5xiELxvd3S4~4QVXNmKNJ2Lbfnb zDP+sO@7vgov5uMV^IgAlK7ak@oH=I3`?Won$MSkzw&hvbmM8ai7u*r&rif#oZfp#* zq~1R@;*M-QEM?`LdJuzYscrd+v-STYM=8e6e=EkxZaWVK^D=FT@837PKfg;#li%+! zLeNKZI2_yF#;Lju^%Q$hnTxgciRvrUogUwxNN{j)#3Su)-$V=7M5WF>k6ItvT z)~6hM?4~>3C#w6r+lbnN!Q2jMOW*db^4?Bj=|a`e&=6K@V|ix0A(?=%n1YHodpw)Z zeVi%iHpLZO&b!HPEpJs?#G-Go$-7x+4o}$F41SN?PhVWr;#yl8H(a=E z20r~4o&C?PzS6anP%$Ab-|<8rnrHsv;$qV)T{}Cwh`)}!T+F~_D5~~2ZiA68+kEBE zUoLRE%#}jyFE=SznQTVJn{;vKdY`>oP6}G?^rMemajoDGJ?5F-VP(&-c@Lub7*bN!4*#wDJU z?qB$HFZPw+sD64w;j*QrhX2xp_TNqKu6%r>A1ik`cOCRY7 zcRj|8A)axOk+D^&3-Ydr=lEWFRE{+A(^HgN=%PO&V#cMNIf%%gks|Nb`1|OyDq+=! zj~?xLpzY$~5`gqZ4IzT8P` zrBHYyqoYTYM2+VG62CPW&(jKOenqOnQo{?-IZ)BvJ40)i_)rRe*o*-lNPHjToUhYo5->IxZ zs2CpAf!kfYW%PRWcGaVh)kamNzE4dV#%b8f>CQZg6MN!Sgcg^my7$|<6Rh=iYD{#r zXz=P_XQxsEMImT?Nslb`=AoW#hHk#+I19?hxerh1C$0@i`=Z9az-ICm!@thMNsQs^#s zclU6$v1ih{zUt^x_#SjGbaBnK{5tIrkBT+pP8_S;VsTd-P%F1=Nc1r^DzRnaU@Zptdh%TX`i3!lRA$NBaU?;RB}S!ga#kyLHb9o|dU; z7>nzEs`zGfvI3R*$R_PPs-npjGLHK?Qd_^Yy}L;=PVuXb)x{UKTLs)ZrA(2s|G0LFOJwrBLu+OT+b|_)TLkB=+-qMSo;BQ}ARmV8 ztcck5cXS_)bKlm;n(uQuzyP}m6UvM>3*tSjKZDkqX+k;MU~8e*Zr4-J&O#{#^Y`*+ z9P2RYu+MA{WL2@*qto;!L$GiTk@*iz!}E7gS3#Y*wsA>1LR=#7OQWZ)ogEP;Am?}X z5PZer(dTZTIuLmpIq>HLKtV}z^*6Bqr%$)H!1~3-#bp62jOXU=3!$F2Kkmn~;9 z2{L>6`NKri-1~!80C$`r@5``|N4?rO07dtYqBn2ez@cYW%2&#!r`br;=TbkqG*3C4 z70TPc0l)I2y1MgLTH=n~LPw!EXuOFXKaeKc(L&kaD%;waUfA7MiaDARe1z7l(s zpWfd*ayU#|Pfu@0(#zb*fgNIeKd<>M3*XY{sur!+A8vY4adve*V)9rNj#FE@3?c9w z+79u*XQUrCevLHef9w{Zjhe?8b4-OQNC*y$_L(WA*8>z<0eeX=zkRvb1Z@zmFJG1q zuXPvbrG>1*zAp5v!@=v5X;c;?`=CL>Ut0Fi;WYWRhZ*%i%dk-$9UYT!Z|1@`!vxhM z2M?wx>r$F~5M{QYb->IAXz1Xz#nIN4PMc6s2;zsnvVcoThGE~<-Vwh5_^CT}cLQ?HLT}mcXA&b*#gw07qWW6~FA0TI*Kf&6V zLja>=vhKI~@24Ik|X5ea(+pvRQepiFDVzOIriC0>Jd(Gl#two_r5CU|?oDU^9wZH3y zpRAEhMkp>ArH8a6e;RByq05iXHdQJaxU=(u*DJ$h&66R!Ivumi9zJ|%6}a#fXo?CL z4nO*hMqhfauB& z87;;L&Tk|#TvXk(ob|Gb&;`3UH!~{&aD-rwL7pjr%zHZpc!ZAH4_4ljAW=7Gh?^TL z*?|e#e=pFJ+024&7e_!kQT!XEbtVItaSC5YlpH0$G^BUooF&!BnC$jo8tB7BKciDGwOmULy zZ1H$s@Wza+dH!iN7|y{^Gk zOOO;BG!#kmu!!@*%y3oM2INp4#z}KXkQ%cr3L(7G3%(D`!SertmS(iF*Q8W^dsC;hO6cEdu&6hdPH&I7F=< z0<0EQym?lqmrDZhgm3>T5&wyll+*@c+GZGq_cz##FEtxx2Y26}3z`e~5V&E@UT?=% z4j>hG9Rol3%=LlvbmX!b`w?eiC8TiUv}v0U>rEgux=FGLV2ym~d?mIrLCwR#BR?z2 zf*%071I|AO8KTLTt&PRUBXj%e;#K5HAm;?~ojP-C^dD#sJ=K@X=tz6$A3RL^{QsK7 ze|h?Ha$y>4S##+Aeq}0R;pXNREz2MKvL$`!k0@z~5*1r{hhyijg}Qw@p>$zcs5W@9 z79x-z32O9aLqgVQ0JWC6M*q!}j)6*y;&N!CpFe-rs5tCqu&P=^KLH6Je`VYdaPO^U zajx>mEUU7Tniv$C6*rLflgEMUgtU-VCcVM&*P*-+_C|j;!~yMYXaIiUkDw^KZl$&Q zZk|T-|4-mboB&t=9*L;vXj!XLRYs@Gjd>~gt(=hgFoUoNrK~bg2__U%{MrZ^7}hYc z&ulc1Bn@DB@p|6r(c4$NJKrelcGHSY7627+-W@gwaOZ4WR=3{4#Fj#0KOin8CnpD{ z7*uz8ay|f%*gWTI#n9JB8%vYMo2@OqNB?}F&ETwSp$lKa{aUy?9yB2@ftdqN}cY33YlEdxrIve2s1=ewVPzSuDqE*Z@>#4<)3ZRRQ{ z&J6XS;C9ht1x-DD{!>}lN)7=_BeXi?T)q72N6acVW+Le-O&X1}poe@n*Pq+VapARUK zznfe=G6%T^U8hDuTp_{E3#z-TC8Z&Y+J|IhD5a&$2!wfET4ZUqSDlmtkZu{oXjSQP z{p{6#W#xxrg9u<2=(2NCWDst%;1H8b>c-`R7asL`cV`(~9~~J%2cX>!^9;*fDG3DD z*>lj~EM8+2$gCSm(9z>b)-#K+WaK@_M;+2iPhNUDiV?n(Z(_B$LPgxa z14B$LWfx{i(hyr73DVQ2Pea(TPSpR=GV=f7<^R#LVBmKhe)?FQKHfRM24|e{@gmse z!gYSEQn@WiRRpM6nq~J@AH?q^E5A`9>|00|bq#ZH)Eb{JZ|jOs^mrn1vK+Lgw0eT? z(1YP`5k$~O&fx_JzXxSO5kj=YNmxBWW2HvVPBGsBdIN#lY@lw^XVy-%>?+pgfWo~Wh9j`%Kl2iS8NjAR zh~cFR>}+i}K~k&@+~uu@+60T84?fo!=`H|IfU*U!W>EVTALp-hO%z@`^X!uS#^Rs> zYwGLe{`qGWu!ji{3OgH)o~qi{>gA#oT$Sk4w?;P9ET&~r)|V!mLD2&+rU0Bm!wlOc z2enZVwgs`w3xebVN^+EbrhKYD^AzBJFz^bCIj%{-dHgs6p6h#keINKwP970o(065U zp=o)myOAduwj#aQZ(rN__Hr~S*R0V}gq_U2qD zFOEfq%Lhoheqtk^*6Ik^aI8Kt0MzPhgV~~?hcYN5tQ+iuITd8R6pYqkKF4aAO|!AsQjRsiFExFvXe_U!}xlQ3Tbh-%P2Ody|BgT(a}Dm!SjCK?Ri zzXuK-(wNTq%$lOID7q11w*)y}l&qcn_WRZ;v>C1sFjr;B`4T$Y;va9#V@mwRgZ$!O zjDw_#ib~wsa*!ge)?HBCv9cD+>r>e(%(tic&|JMRWepQp`$>oG8(&23*9~6yDiCcA zrU(oH7{BWwsUaw#VLo^?pHl$=KM_wXUjrMG)9vyRzb&`FlMY@NCu`+sfP=br2%1pSC0;EWgx)9iH5%v&m8N?shKBYtRf>9H~x*E1fNz zA~|5qWU@;Yn#m3&+j$Upsv{R1)ot6#5r47E`{U%3+mlAaVowzak0DIix0EtOrmSObL!mf>q$(#_`R#7S-#dVD+D zC2*aV0Os9eydFRH?79{gSkkT>o0A~5xg^xp1AxRhae=O>X`R0hZX^Q=d;=8s0{R9A z&4$14!E1q-1ryBxoDtIu^c}AkNmRsFNS*t&$F7=&2Aq;ZOZxd&3V6OucV1{cWh7S- z|KE)EqkXaphiR$19&s1hixikgLH?2|fN4DFz<# zf%eP)IAyK7KW)?U&%f0y6{eeqy?;?i;Eu`h*G$#hPiF5K32)`>KJwpwyy-j3&iT7z zO3Wuuc;E`=^l%eux~lG7<;VU@(Blz*9U#$i;UnmwU?Y3XR$c$7*jW7(BYggp3*Sk?hPVpb+z6T5vA zF%k-r$DeK2jy&NgdR!;V$mskivRC&NIV|Ww#>xY_F|Z|Fp$Xjz2kZ z;;S@|_(Nm9EJ>47aT0uSCsXO0Zsl`5f!tRQgeExo_EVpFwRJhpxVCkU#C~YsL2lF# z%1cqo_=9Yuv1`{v+R@_}jF`eN$U34ELUz^Q&09GhC%TvQ=ljka3CS|ZIYv*%K>MB6 H)jR(OCfT?0 diff --git a/docs/articles/AMR_files/figure-html/plot 4-1.png b/docs/articles/AMR_files/figure-html/plot 4-1.png index 5ba457e2c729c982ed8c5e5a5890903372419a0d..eecd78d2ec34e4ed30c72ea0ce96b0f91e2ba7e1 100644 GIT binary patch literal 66607 zcmd43c{rAD+b*n;lG1>XB$6SNWFGoSLLxGgB2$KBo@t;YLu5#%$~+}wWQtPeA(_Vv zDRaimYrp*7cdc#x_kQ1czioZ@_B>BLy50A6o#$~L$G-2!eq2wkDqN!2O}CqbgoHv? zMoO84WXCHKl5IE1wvv#Ls4i>l#~-`y%4phUn8$uSaHsee=)BgcD; zZysvt{P-vPw-=wX$!o9kzg~xNo_I~}eTeB8nasiX>;D|OcyWJ*{%e_&$G-hjwpEA9 zt1(W7LTvki?UFKNT=(b3>sR!8MI5Fkjj}tgXLbDDaO4gLc%F9&tM%i)qPk7`Ft?nVYSIk^?KT9?!?(sgxFJHcJYvm+a4SqRzQlYk{ zCfn{RaY6SIE2?mp)XB>6KI>AlLA<=Y(V|Xo3rzj&s zDJga7QkQ6%)o?XciN-dzThU*_(}x;DBV)FZymMd?y!yq-+1Y)4X=H6>kw)@}xNCds z5AWSn9PPr}N#128S{ZRJWuF)^CLtMTc;h6^DvRb3)yVGq<>P zi%g`4655QG_eVuXueYe*nE&0Jh$W4Vj-H&H%r$KpZG8Qy%d*sM@QYu0XZ*pDbnW-O zZi_wAesoLA%g#VK4lYR^gC>K}{PxcgM=oSl0Nc1_LFp`STrr5_Q zeq{gtAHRQh6gkc6S7bDq*iUu~-TZhDVN!i&@prTF;$+Xxwi&+TJZe)B*5;#g-u?qe zuO+1PBDw@xFExh&_QpHa;u zB&cTeYO|K5YijLhyEsBdv94Tf zY^TL$^jnOo!|Y^(@ScP;rI?2gKYdTW)?%9Le!A0YvbVUap`oFFAjWm(Ng3DkhzOB8 z-TCFM^t80$FJGGWl$@5-?f&}pQo33xE@vmFWq1A`Y&iw@9eb6|uIaCg9=5i&!5gR4 z9t{5Y^cc5wI)4hedXI9(|%P6G`BlsU}RJ>_wBM*y2EsTnWmQ4BcE^k4m_AXB#U%od2Gxu6VSkStdu=+S>X{0Aq%7@*cG$<>W8^ z48;AWtI7O~Ce~vYl2oCA^8;oHiBipMBkLc;-5cN0)zwW@hzjOO-m+y&gXpY$bHbIL zo}Q2=Eh(yJ9e=xEPkDHF;x(d#?S$<{zZW^#OeF4`%W&QOv?xFK;w9o$SWr-v{bu7r zVLkIDe-n=#VIKV!eI;%(GTsYw!!=>_9pxVDONrUp*_6ix1^+IM#4w)GmwHOgl|!?E zxU>z$!Z(%#S=rj+z*{ya_+?~d@Mhv1golT>j*<@!5qE3U5S^|lCGt? zaiAh7DcHjC_qP-3>gw@DzjyhkrJb5c=d!F~z4B5}Xl=Ma9IBK~th${OWpdsTc7^B^P1n_hUt>7mjYk3EBLVce<0RmX4TDljmV$)5tdRo3UH!Fpg;{-R4yJjA^Dj zluO&R@B7;Hk57Tjm#VXIh>Y}yTGOv2=-j{=mm7(mcuK>Qcc(`yx-0%N&6;7zOMITz zTb%+5dVZ6Jo>Gs}nYwi^8r?=s9K(W{Qz3HmRVQQEZYd{5-mo^F-H;QO z702WIoW}O<-De(CYyA)R9Tjyv)*z>#;6C4?9&$Oj>>=scDKlA>YX0EI1rxo+D>w-X zC<7}C76+MQgzZuetacaJgm8t2gv{dxgalU`*qRiXt#WJl{MEE^x}m^iK|n=qdxbQE5>)QfJ2&3o;(rGo|%~m9@`!@Prb0C z^Fyv|P;g8PkH>_)y?qHj!2LeGz@5q(XBU^ThL-iHrOH6&L9y2T$B=6rqk zSXx>-wf?M&n5WSxu#W%cP%TBiQZ6_lriW9ryo36b#;Zg5&hsg`Z@%?DBBwsZrdAuo z5+4^=S(-`C z&54TY90Foxda2a1tul8Hi!M`h>m(f#beb^;v`dJOXLn$#3qN~FLM*Y#M0{!JV8Ok@ z!j)o|#Z%`0uF}neEP^+~d__IpB3SkC{q~S_AFKR}(|YCGnI$+l0=E5XP&Re{Q$a()omyn0 zKGJE9{4g_z%zL<~MY2FyHCZKqQ6luDRy)lXb{EM)`-we|;?z>Hpr^u?5M;r>siou1 zKcR}yaNg_~iSgj(=`FA^ez=2=&Tq!1SmC4==gh!DiGk*WPerjG$+Q`EFuG3P7cEAN z3keDB46CcJS34k_a8l5`<#^S=_Q&j(V(QLylmp)lnQ&p-ur zUU`uX9SO<1UBr>Bkh@F9q@$yQos7Nq#5F8mF21_5lFj@g>culNla`c_`n1YQ8K+k7 z{mfW~Yu%MGrWOgPg6eqzfiE}KraWlW9+r_a4X;n z(Eig?Z0|l_6W%RsKhCDO@iW5GH_ff-%|$PZ-PvOC)Uwnk1?7d7J9BPdGl&AP2|GEu zC+7973Lh%#%%mhXa_xU}PP^xGlJRhr%J#o>eyr^5zgL%Lr-~PQ!_OKc&=F8HN00X6 zBjRh9W=DqUg1Z9zWMpNV!e=UIZsb^W@$>LlPITtd^PB%_iv4=Ge+b7w z3b%jCTJgT#oVRa>R})2HEb9E`T;_%-1t z$Cs9teyh6=e12ja?IfKTmyt2`>Ys=F7M%vux`xbw+VA-_fmoO4$B-eka8HITqSxxT z$<^W4yi~bq8kgeLX^X$j-9Nx$Hs`f}MtSevy#)mYULjTW^`VcC&Cku{s38OLO+^y+!cBde^X^|DMMM{THL!mTPxM35!h|H1K)Ri$J5q6hl>U(F^cGbAS`qfjTC z1{!oQ9AQ1`R$pI#u{GH@BkpYeqrHY*YRSqK1yOmDjXp*IeGi5?*?>g<(OFgYJA<^-tMun(kHR8It$3Kd-rZ40w>-h z!A-nZO;G_vubOR;u+&dN%^=%<@ZeeNp-S!dci69)wx-e2(P^Pte6Sm{pXx2P8*8Pd zrTxOG^hJ(O$=$tV^`DiBq>EWaJn~F8q-ckJ{rZJ_QA-W^n|@d|^Bcu(p##ik=rxmb zkMrD_ijeeAKW#Y3cGueaTW?^RYI-f}=KkHtRG|B^kK)ACwX0WeI!Emc-@L;-y|F#y zH~sbf#H=Pd&lTK7u;nJ!lx|N^;b4|9qQ0!A){0C&QX3xIeHIHy0HhZ*1zx!oU%pgN zHBn0LIehviK;-g;vviu><9$CuwEG&OMAQxFsnn*(EvkPjtWdBE2OIAOcsEE-Iz`KL z@!N8|FcZ`3cf5&;G5n6aJohUp7E0J_SXo)A^U}nx`EO+gvO*2N8125k>cm`gRLJ`C z+!ehpYN`VBz*~0@3oQ=}3=HuKPm%Cz7#BOw4?X$n&v5pe&#kZiRTXr6CO7psYef>l z^&;NYU#mNRJE17${D^uT;4?WBi!6$0UbRnmPY>XPgw4;|v&QvB8|y2QWPZ}Kf4(wy z#pNkVtnr;Zd5P?daeX8p2)5#iQ%!;-hr#xPmpvans%8uhzF&f$`Y}qlum1gmcLgSD z6!Yv+e$?{aVPRZz>EQv7Cl^%@pEzLHxW&!O!k|m~PNelYv)v+MyMwnJQ-~5ajMFeT zH@7m&Q+;~MxVp*MRf9sa=Y!qTw5u*}T~BHJuf)i<5-c*^+}xa-=O39J?7% z0w@sdd-v+*nTOY>q0l{k^hhB_{JIA_@Wk?1Moo;L2f2q_?k*;UNI@o#!vc3A%eLOW zefwhX*E>6h*Y+=K%cFLrX=baXX=LhG>|V-!RX$L1x(WR6_H?IWY*Q`vZ@s(3&Bf5U zN=o&Gw>R0+C-oa{hVSmN$X*WPJ||d{7g&??m9!}je5jn7{p_XtS!)u@zhb+)bsid8 z+t`E%Y>B8> zL}jW!4(JeMT=Dhmn0k_0>J8UF7nw)4WLp|4%E>7oof7!#-i(q^ZDaO5>9u^$J09O= z@j;8u9NE%)GkFS3pW`owrBQ`=1tfj0s9=xXbJ#U`BtT+aqrIwV`*DHxl^~WKq@?s6 z-@gVhs&8$*(fS{S@BN(~YtRJa;`QY*(_AfMc0^CBwk2)Hq4@NRK~33yfiH6%lpYp- zF83lIF7WsF2j{-n3IdWM8aE5f_e(v=Eg&EwqN}ISf$M(*1U@dmlU$ifJT^)e=1}yj zo40M-CSczFDoz3b4V0KuHHD>Nq9rxVJ?hpM-@p<3iOzX^NwsaR*4kJ`DMyVzqeO3T zC0E)6616bZUOGOR=y_nugv3O%24TnPn>C?axjdraM6a{+PtZt0Tu^zdQSx_yd{{sC z)vKHHqb)Nv|9Dd3TzuE94npNDjOPe3T^R2OI4Txo44_oB&}mlP{m;XlzX=FR%__(u zOUG~iBI`uy>da-s%Rh&PY9j<1nwpeck}41Q7rpCMmnNBCT$HdL@?J=*ix6;eaS;&_ zsiE0eu6aq|s!y>u%RP6=)ddCyj?_nSvavm5k&SKADR$0vnCg`z8}4~eK#KO`%*OQ0 z=ghvwDklSL#vXAapr?d;5$_^+;kitOiSEXCdY_b)m4h`=5dn?VewNJEi~R4Plxp#t z5^csApe>i>*h>MyCqH;my1Tn0>6!JF6kD^O@FXKAKl@j_yuDpx_>vZrR0xM^=X=YI z0FTuRnqidXZEcH)#RRE4x)$e5zdthuz(QOpfm5j%O>|^mT3YMt>RKV_lfWGvaB)dV z$)P8H^a5&~y-7;3s07+8!ev3^uWM^-jp|;q>xl>nc|Cr-G03<YK;hufSD^TE@FBy){=|(S(xz`sO9t$pB_dIsqvcTuhW4l%3Vy_q413@eY9)7|vBH}XltI4aFT@4q^C?Srr z;qlL`7E`zj0Ul2HZYLdAw&Gz3*|H=mDmph}%J&lIJ>c+}<18$nKYjWH6%8Qk!lOM) zYm0pp;)&^8Vq$LfkwRFk*-gt2!Q7c`y(B1;jee1SuQBhII zJdiOmfFKX=sv1v93+jK?w%)8LF+bH;s$by)6jfGMhMN(x8o*ZV+O=zjW9!zfa)Q=_ z#U8-yP*d=7aUxzV>Dr6)Z8u7RGerg1*eY9E&f$Oivns@P`xtb^-bB3Obnc~~0LYu0 zp2nGs;JY2fds;5=X;?Hhtwh(MaBMKL#Om~?eGTF(=J9eNk+?$jx2xSY4Hi8gR6TqT z9E=t7SYM^LENTM0_VDmHdGe%(#|Dnwl^F4!{`|9{Ig)x`HdO(Z5EYKTlcXfA$2V%n z1_xuir>+_uk#N^J`Xc*I&j;yVR&t1ts|pjFNPZL}vkPk(ulCB&< zaDtxh!Q0qEAS$1~Jv21LQaX`!Em6Vigdo9BJ;?U$<0+`bJMJl0ZR*r}l5Uiih;|#v z%h#gfB;B|P2mnYFDp5LJPJV)p(4ns`KkFyC_pP$5><0wEAc@7PJ`Zg3rGTSuf2Z}N zrN2OjkVanC|4im|r|s=^`g5iRg))FX_muDdBfTZqYC)vZ#M#*yRF7LH|7M)L*KR7% zA}#2h2c8m=K3i1&!)@nj)d`&<*R{8saQe+|#j-5*c38 z1|y=fELb2ylJDK?J~Q;h;uG=hub}^rx4%4Rw!S*s5Fox>iOLr4h+P2QgpAa6`ZPWA zPLo+iu|4tys6wH`RHyI}&TN)4y%2_5D4ZxqjBay*CqjsibEJbfqAP|%{Kc0R=XI*< zea6BZ^c(zV0dz2LcWquM_jL}>U#;m~kfs2HEExPlZu8M)hvioLH=&FqB_)9?MmTa( z;`8nuxbR@xg6aC|5@Ipp%&jlYjxUb$@$qpHuR4FzP^7CXWPgA;<{;_=EhygR%F~y9 z@JY+4_C;V!jD%V1DQ!|>=lVSaJA_F-9s&JAIL!R{^Sh^Tu{o))s*3&Cv5zIDp;hc8 zP}39N@22OV*yTSxJ&nr+Em~w}XQ$#+%dy*Rw5&5aK>S(zI~af;ZzJ7nYh#mbcZy9Y zo~ew<^Dw`;#y|g*;X*7J$cT&IIF4$OV?8X#^!X`INs^e-N)IDy9p|{}F;G2}79h3c z_r%Kqd9KfOw$5d7@^%>e_?6>9EE9n6jj#Ser2v!OO-5$Y^rj+C_PIP`$B*AF=0!^= zI{^4jXgfe79Q*lG4Os$lUJSU8En#i-82!$U!WSY3%`&0%JLoM=aVM%d6eMIzi1Vo2 zlaQ8K)wlsm2z^^h%Coez6p0y9Yr>U?1TmEqg$JKLOH&oxI^;08hn820Y(E2o#q9eJ zxI2=+JiFcrKo;ia=0lqwOhe<3>QhRWM>&m+jUUb{ zMvFoQZV3K6)l=98m0*nydAoFNL3_!@+4+NV@0>Jk2X94>pig7tRVFDNok;d8MAPf) z*253CEsP+Zk(jx(^S(QYUkqYl@?0HU#bpudYUw!k=0$KYpY5;4``bt#d3p7K9AKLw z1T3M+O#*hV_c-*?YEF@&sD9cfLB`~aV8l774&gL5GKv;=6BZU;Zi>D1=@G?c85y>5 zZW@*;!eSDCigZ%eEn~kjroeS{oXsKscdt>At^n-N@+YWu9VNf(M=>bWP9? zq∨$;-=QJ99>$u3DpCBI%7UT!cn~{Eq4jF?$5U!tCrUmM0Z$pe28LW&mg?#`t{> zPm|svCjg1j)^vIrn)hxi3kWqoBt~{4=~&8N-LoUX+|_X^r9M+*ci$q@VzWuEvG}JA*tkI6<85tNO_F3ztg9Ex#uP($+{zN%=B}s2LCRmpu&Qxe*-{ zr0?1h7stXRg)(B7AYj=miai6olndc7@|;sK3%z*pB1Cpz2_@s@>;`d856D!3*@uOp zJ9mI!p(dR(X*>oN&&DQ`_|b=oGb=kA<*YYRkuge>iHQk^)e?u9Qh)Ym9fPp#=>tCm z`dpbkO0#|A4xv`MDAR# z3@4k_%@a0nKfSg^oKq#~W_1?un8P6K|(v}6EuaoqyBwjKP zvxhE8?zVv*h0_H-M9zdG9v{;~DY?4PWw{wa^l7hUpR)qh7Xp}pe)*C*p?AUb*_ZZg zP8YY0gF_6|*4ps16&^?VGvkzmYu{e#UGtImAv()!XCUZ$C||qgMfuauUa!h~S4|jC zfUmEp{kR6sFz71*7PAa%pn&n2ey{8w(~`ST*NNPP{-Gnv4%EjR&@&oeU$EACecIao zQ(4(Ru}!Xje>?`8L7ZnPgy-iAGD$(W^Ucs2IdM)HLi(NFB6d%c?)=QMtrT>8&m?}8 zvgYOcamZVZ{aHk>Rn%#Qg_E-eVAJ;;5eDzLA-75(GnRLw5wPf135G&^G+KBBR}gcy z#myuAACOc@QAxg0>ONJn^0xk0MEq-`4zvewy0F)8Yis2V_3=iW(h?w~@=!TNMaI)N zKcX`dgQMr`>&t#E;n%+M<;yvL*#6TC@T-aW+E(ntXF2142 zd1(7%$^o2UkgC&ecDPQG=mW%s-nnxJSqY_pUvnM=;iO_T6qi9@Lv+?wahT7XIfImN z9dsNyW0>iroN66n&fnL!wz86J*DhL7$GgBfs5k1_Mpqmh9GE-<&Hkc(Vy(eJFI~I{ ztZ0YQ3xG7*Q~2IK9P1FDnCP+C;{cq?$0N!lHC!FSz`)RAY6ohGtUpH%Wkh@Z70YID zW{)Y^OGK$J5m)?6sa17$mD6qS+f47uR;f!wuht`{1^I_arF8 z2^avc3y=4rN~g!h#x9(a9UJCd<~MKe2Y~d{cz3f5$@OJ)w76cmC-4|9kKK?^3+d^{ ze*H3;jxS=hwzq!^30q%(0QGVYt6*^A#o+CaJN&-s*^A9gCMqYNDmb}WYpH(wkB|nt z&%Ahrb`slS~cKLxx}B=~LXE%KdWexw?%uC6$rtO5S7uLQ*b zA(1oHmOMp8Kc&u{bLYX;?hkfm&|0f~eARi8jXYKd86~}UkW)vByJ>~5S94}0sidIx z0Fi2+6tF`50?xyh8XFkwq2sG`Tw|8@rId`sxk!KC`%PhPXn6Qaq~ITH(@ab?2NF)b zKe2FTX2aJBYs>lDA1wpkNdRi}4gXi3PPlNgI~fn!91`6{didW=;-(4*~!8w_qnD^ z2=C<|j~SsGqtKj{4MI9DaGp1HBKrml0*%lfV^lC^X6D6-u0?bd#`{W3K?(`=G9aK2 zAOSigGSBc4&!GO(u}V7~_GAnA7p>%4_Vsq(A(Glnivu?;ht!{|rK;8ScSCHX@BTC_ z!E>V|t+W#Gz;5@LVjxR0`um7-F9tbWVzUX~#hn{-rrc@as9=!2n=U)Z!jQes`aKdKJ-9qGCsDP_B&eqmh>)pr(c9Y#5Xfy#AAXTX))TpO~ zvOuF!PHjO6ngR;JDTe-wxua(gi=m+*vfyPhC8SV*A=3t708St&T;;@%A3r80 zdhiXvHPIptZ#BwBhKGT#(s0yEN=n|oeT!CoH~>3}e~5iWMMZcUTkX1OLYC*hSt~bg zJyU9r|1Q0^-|F4cn3iaU#a}qySJTF zHb~fE(iN+OO184H(j|OkmFv)bKEOQxq^ora?zVRFUTZ$@$DfW83$(?+2saeEq+$m~H;vf6pzRr^R0969}oY5|y=6nEF<<+d>Bb z6FJQjUtiaS4r7Y-+tO?Iq6U%#3f&``Z~KcEny3V(-=nRabiVfCLZbD-HbWX0=4l5| z(es-2s14AGs$+n1&FS~tJMd8{Kz|7V2CnF!eMygF#b?3Nd+%2Bdcw%|@mh{?!%-$F zi1>gqOK2}aI>|36=n!W6w7f785fig9M|~#N{o_%q@7l^6eT`^>_jGrEu%9p;J1?() zqe-jnT2D+}s*Xo;sSW9t`0X(F8HTdRA~vWbebL)SuNip=EuyF1-tX*m9u?12b1K^H zKRZe~zV}kG*Zj8l*3A!yys(GO%Ta2_`EWaw{GlNOP(W0L8g;>$kbU>Ed}5E1+$%kc zExT$|<&bhoT3T302%4J}kT^cvWoAegJ}6tc>Q4b{D}5X5$jLAhd<_l`h7J!lhy!GQ=O+2UGFB4`z$kc!)FN1;(96sC*o6_3OtqTugbrb#6L`R1UZ=nwv6&!54 zvF-*l613+z6hUCbW%|}&RUJ?x5OTybpd_yGcSp8ysr#Dz?J!Eo*rtEQ5r+4ceS0Bm zQ&6D(rGN`5WMWg&ZME@V;$i$xr&55R8T$r3@!qI1nuy4jf3I35rMt$ zMYS$3I2}|EeED)2LL&n(A21^HiGTk2hxk<#PLO~3sjza5e2LVSQP_FbAksi3%eeab zfdW0nQO%2!MxB>we;-r&PJ1Cy2yhYE1qQF~e5=?$7F*9V64CNpD?PMS8%!KcS-6*w zSg~so>wgKDxsyh-$nlRqgNWpX3*Z`ek@x_}mH|a!5G=U+L(;^=1SZetK|ya~W6#mm zp#>2fPl&ZpXz&sd7T&pIM^C;L^O-Y$K(){tpCS;`@ngqsRtK{)daV9QjB)>9`&)Tw z>^t%|L8gGe#od+ zstx372oF|vc4+Y^Ub#ZBeyH(;kb;O}`fSr6cG9!Gz$OvkR6cn zIf;m#M-RNayBl%bAybzyZsb!gEc4>-mqu!O`jrfiHFW5)K^?y7TkdTqy_dz#&%XeM zfNoBZhq+R+%KrWPwe!qjH#*~({QUWI8$>KDn1p35C=O(SFa^S{i9RbKLLeQSkkx{h zNax{9E)N%%1#~_fW%PaU!q$MEz@O2Mt;e;$6tJ8e9Ax(V)m<=)+KSSgj~hZ+i%&?v z5$vw183XWCPFC4DsHmt2r$7TlibVPF83@-x!ouQM;OC0s(9l0aJR#aAspj$6SFi~9 zE%{EJk`IaldUKnt6TnKdqJn=`vfMrEzYL`r>@CN2X$GL1f`TGsjIduqwsimdgET7j z*Ky($eYjcn052L{N4=rSKB6IZjFUfqhK7e1fb8MO^8m6C zJ~`H32ztU)sg)irWMhOKK62y;n!TkflZ7}E&QMg4+z^XDQR}=Yk;QE7?L#FZn%a+t zYiI`+TZWj_b&Xun0o3K>J$n`!m?$Az8}xnt{8^yak#JiQh?(FH`lW}=W?$w@j0_C{ zs9OVK5zRK1+lX~S;)kQc_oSdtcU=xu>p!f~XM%s$MvGxJfE*VW78iM16G)ET+Cv;{ z*FrY$LwWB?$m;%7m}m(&lz>2|mOJd>21oKIFI zlua8O8)#hf-!AhMMF=S)-XLB>5cOcwn&XQT*$2Fk?hVx$noD5}2l1yE_ z4Y3JrC%I)5RKH%!k1Oa&Zg|g1g<=mPR4#LcHUXBptcz2EvxkA64R0R>?<)6CGQ(aRdV*BeErR0jLMfKV!$N}t~8SBdEWh#lU5ZdMu1_m6eB>CV{3*cdSaGDfK z$&G?PC2lK|XtYMBst5u#yA;%pCh7< zjh@ur$Y^8oPkekjOFcX!B_FJgR6M2eqD0rYnVp)Jwg5H=avJW#$=#p7z&)z7(ts1H zsT|Q!e53pAnOiXeR#YfcK`~jhC|Hm{hxx7mG2}Y9Twabp%{tj2T!G+v+CA~KyG~wj znf5}$M&s^#`fx_S+9T{dXJTZO(73Xdh$C+Lg(BwKYZDY7WpXQmZqjN=q^GELf!-p)WscZ=b924`}f;=rH2iw*T*4U ze4*Hn+MK}FO8co_Zp$HZq7Yw|m-nSCZ)i{)Y1u{R_Y-Glq#*`HCAZqkO|LYis#J&S z&><5=mDCpK_mbY|4T5#DGry(9Q5b0!xd;pG|jGUacot*`c z5L7sjN>zwG<-IQYu2c#N3Oh623>#C|!c+h|S88hNYGU_(v@v(88;FV?q&FKVG?!1S z8}H@0)Apk5v#O(uODRGwqj;ec$q*8Q3!)5#10X8_h6wojqFv`SzwvmTF=RJ39x4A) z!cHC4Q+udF_!b#c&f_7Hn>$O|wz8Qa{|%S*Zp>$R{MJ#B3F0%TeD?kOcc8bbhJD&> zApJl{xOm~gH&qhKRSiO%{Fc400J2C+F(M9k&`pKh{EYD{SK3b`Ly5%K}Uwd zp^)9k4g1(feQB*3zgC2QRo8Wj$JwlIiRw_SgR|;{nAjRVO4xE|vD0kAlXKlgPT9Ep z&THTSOtL|%sri&|kRPE7>t-1|LGQ)tQ}&%(SBQmpePkuLnIv!jzA~2MgJIq$t#bHdr&Bra3{C?mP$;ofjPt95?n0`CBND z%q#ZcAP)aHnd?y)N*coVuvhRLO5{p-kmxHlp{|4=2NsU&X6B(7*zl0dv z$qph!>riC8C}CCEId#d;*Y}X*=dWKQ&Kxc&0fTMA@CmLH+CdPbOnqJ5b%?nL5jfaG znC4I^0V!|6r32^%(*Z=MrnWW*EFG4aUm4E(S%*Hi_h<*?YH@jjiv7j902*}V-2P;9 z;vT>Mav~Q*vmllevMjRSfZ~W&kSES+Lro2*ng#mq;L!w82s&{Yvaly5G99eLXfj|a zUc7h#QMc-$6p$7nHbb%k#hjO zQat(Y-K%SBkd4jt+Rtm2E8W<-bMKLSpdfVI9U)fr_V&V=1t{{XCAAHL*;IGI+1uaZ zpvvT!cYOQY39tlzP0rmP=-KDAw4BFxOU@OfZ0@Tt6aCQjPt zUXRWut#6*V5(t~in5NN$0|zL7QznO22pk!ruFHO>G`|AB~rGPBZTAlaeXMEII|4muKB~U{=^g$L}OG~8N6g=lhGH&PD0OrD|*Qd3klew zo}zLaxVTyw=mEbe24o628Eok;jP4!-HFX~7Dghob)_`OIWy|$PZH-^B%*%7X z2Y>%AKuSZ3HZ(Bs^ztHRq5vepponOLduN#bjQk>Cuh*kTXd;{w7hgw=089D%`1p8x zpFUG|2Kp{Bsr08ZfE9dC-k9_kb{3}!HO~QH6X$$oY3baZZbzaGOfS&N4Oo-|S+cL# zMcs+Z8}aIFkubO3?2mYbb@MGK5Xc1};RlDQ=MnQT9_4OnDPv=WhP#G{RO0Z=!Ypt_|W4x$ng6a+9eGBiwXF~zvv3%Gwk0x1XZ zu|^vw-8zxx!!}>WW9RqS*xA`xS?ymvm~-#?>OqLacJ}t%xf|Puv;8RFKwkcC&v)|z zv|dFRPHNY+fW3#N>`ik&e0SesXKQ7B^72F}r;*U4s zszER4|9tGUfl$XzjHb4SSui|MlFi#o;-UUL!nZN}0OieZ4@R9h(;2S>a#Bf>{W#`% zqbj4zz?7-Tg5jZ+Dbta}J6U#z5;!J|Etx)3Xp`QIyuRv@`SjRjp~B8b%Nx$-k{gWS zDx({v?M)r@Y=@ZSxEyj4&#N-}x1$DOaRdRCVZN0w#?g>*}tM{rL4u1FR8Eq+Lv4ekWyvl-EI^ zCB1=o!d#R1b)#%}r#x zRo%(VG1Ev7p>R1H=Yi-X_D^pJML`FOmhjMB7e$AUiO?2Muo1Pmb$AEo(c&=g%=wMZ z2gso=Cf_2dF|IX<%YwKQ9vTXpK^tZ_Koxgv-_B+hjxj?d>ejc{2^&b1hyyDtYl=!r zV`F2Ot}{_fzNm9463L&Cw4#LPVeqiDoO<^T63HV~IQtWYpwab#yh8jzm4>+xEoWh% z;OXhR6TE6^)sEpn2hbxPd3v5glgK3*-1H7aAM{E*et6LgvD5h(0mMMhgA2H-vNGxF zYe}H{<;AHfm_1&JY%a#>D_A+goeMPmaGy9aKnVX1@*VHxcx5LS7fuh{fXM07r(t+Q zw+PeB7`VeHJ)j&wfx$k5FGA!jv>8!=1cBx~ld-@8%#N6DEh-X)H{#yCdpS8d05PzF z)x}7Z0y;{17Znu|?T^2IT>)M}Y|#XsnV!zaYNGz#x^;_iNeg{dYESW^Bt)(}b4|>5 zL_|cCmTmx06R{1#j`1baldObz1XB|M%A~GdZ6w;p*FVgG@)oZxbODg$I;&m`eL@gc zV!kv{1V%ScN)Uj+4a|#2U{BGphe$)%HzOlaVhMp6>xu-d-9En=>mY4MxIN@&=bz8Q@$#Hc2%b8L1MxL;4QVsz8b7|$gIA<0* zQyqe)6ebB_7rR~i;*6Nff~~c+Gcg|#<7N*NTnOg{vy_zo^a7~YzdU!DEbzq(gdoN! zT=535)lw*B;IdAsH8@uifBUyFr~3Q(UC%KI1Ug1D8r`L|Vjs}bQb1MfOjy@lp|l3E zK)yg2*0i;~hk+ee4ehBr=l1hRt9SaU3BiE}X~D-^ddq`Y&}FL0cl z9Uz=RakxdyJuG6LPA!}Hld6*i?avNwqhy@_)iVGD;OgP_dW%#^`%-!ABK?~s1 zhbtX2*|0t?8`sl`6A0LprX9j=D8=M(m*wP1ghD=&oVA=}P#ob(Vq#T@{53Li(i7@1 z+Ol+~Z{7m{QjidbFaiF%ytaalW8sGnql%;?FA_g1q(l~P`RIe7s};{MEw$c)grxQ0 z0@;tj!RAsAw4zr~hGT%xkrBHgrdV6gJlH|bB0Jh$kgYrea3?ucvTaGr4b2ic`wL`N zaQb7pfE+lNwuXz|ePr$bEDS#T#GsyMEoqw9$o>pf9XwI?x^xtxCni8JDACx@fhOVV z2;@XYQOB#uZNRy=X=WD|u#Cwqsl4&>Kr0Y&Vq$LGy!pzWHfrRWCnd(1CA~oy-2o)6 zl|RAz{n>jz;g=yHsR=II{pU{zL7lp)+=r4Fuq7^(tnYdHk zt^eZ|CMkeX+t6ZwQ%Xsv&p#19lHM>!>5jNxhfDFu5%c*JdG_ZRoQ3Z@Lsu+{*ZRQ) zrz^g4@pRBRa8-!=C8&^(y}SU5{}MJR*_~D8<>jpzH!>uOU%fit`@(2?Zq9)18cCzx zf~+dpkFharUe0f&P5VgJe_}poxNmRWwX}nRH!oEyJh%l(7t9Vli^aLQ@8QFPgJ(f| zplRQZ*>T|DLC{7*py7m{Qm3KjawJP)|6du@Qdy$ET z>F$^d3EcjeMHWR4SlEk7MnQpEk`E1z@Z$jwUfWP{N!)t#obDORZ|K(tBu{DOpaFWv zdinfHNTv@c+eNY_*ec4^xMaUUe)psVzZ0&(^98iYnxL{4yofBi+WX-e;6a4kN`IrW;zd_-^468 zcaZ|DF(3ohpQ?1A_*Gd|rI~9Q^0zOM-NbL!&QJlg+$khN>jeyGeHejdvtKRpqnRk4~I8aj~!+ZKq67T9lib z!ABaI9M`HVDKcOJQ$C-r=7G+Fq&F<0OWahlL6FPlJIylKnePE-Rnkjs_|tD53ZGP5 z5pHjYoG}SUp+xdPC|_ z(M>eqq@^EGBE{g?Viwi~ZLQ$G9h~bnq+e0wFbW?X5y4414Wp$861=20Di&vK=xByk zymD25W13d(CMc0i(#--b?nHW zn4$)h-(d+98&Qa2;Mq?%ifMl0gTen%hXbb)Tp*xfsfI0TCjPxi@{qtwDxQ=WSoeAQ zw9snsQRG#ap0O)|j9Ta+VdR$)qwn@hc%%W-XS934E-Q!;AF@B#2mk{JvTH88;mjPy z5rW&)894>H2ZrF89UJJjAT)S9F{dIf-V1FE1(zsmFxaAABXvECikcW77ezToA*R*L zrPPN+fbA8;Py@tOG$W_+2ha`;O&I(^Fkhne4p^L-nTh2DU^GCIfbmzS3vYt}Ye?jd zYtTNCP(3gtPPCbmRUrB9+p`CQ;w@OwknNA<;!Q#6p<0E)hiTfv!N?eslfx$)gz-&2 zquRqZE1QqUxwkR$w~UmrU3ll%U3>e<&fL_}QV%t?Q0dsJ+FHmP@QFA}Nqr7xzlPx{ zp3*WY!XSfQAN~n?Qm%Q2GMN>k7G3E);2YE{;Sd}WRJ${0&(7jPAjnM5&YJanm`5)u zYps6UPgK30AQ7^#h}Mt#$feWtN2R{^yymTi(xYQpUp)-=T978Sm@Y+I z&Hn2Pp~?t-=Yu@!1{X70jKYggK7Jsqy$eUjU`iSom{A?CX{Ff3M$alhtJk~91?hLm z1r2_`BK+wx)zdPoT=H90J`lcWq8JPp21w*iW^c@Ego&*)+eCg~=iyOwx9=6L5Wc_7 zK5pE%Oiz2JpFx<}dGlc33;O55C*dK1C*M<4Yg+Gb{%qPo>cOYoXjbX#>%-%K@U&nc zCSpiPJT9>arV&p?K>GxCm!io-n?H_V6Ulgz`}*0lXTa3$Fu)M6^^*TTICJEJShT;A zych)%F`CMR{0HPE=?&d0rNuP$i{UwlN9eoN)z%V9ffKgZ(UFV^X4A-s2(z)fdjKQU zl2tGvMhGKF^OzK1l7fF}Bhz8TO0{Ka@M|Aw{wehz50070?Y@&-5OG#Z*f2iy`I2gL zwe<}x`706OtML}ieAoJP8f~S&@##pLRR>$kvRqTDk-Dg)bAJCt`|ZKQ<-@D%f_;;N z^*iRXDu;iKEzvA?H!MXiij54CPDL~*TQcTAIB7Det*^JYKNezRWpx{-ZtvjG(AF+e zi_?eYS+BWGTA*u;zS2e5e^Wa{wr}4qsGHA9Gqbp;eyBn}a|q)Qg+X1_EiEm0`UI>l zIXT}uGF9pgcxm_S+>iDO!o4VuFZ$PYj2(&8!K?O z-)A{TUTJbDHgmE(Y1HyeZtsSBlhPE$_cPM}@jS5q_3i(qOZ>m~CIMs8ezvC-0AqOB zfNrd=x;i*4e*E|mL=mO2ysN9w|6x^K9nPUSs4UUZ`IK^sx&~83{~-^niX7X#I7moAAH?ZTv%aj?QoNP)(`&tQ{OM z6q0T???ccoIMF*BKpINCJs&?7xcyB^L|H@QFV=6or%-^I8FN~deSI5?r5kHlZeQtG zwVTj}K(bc`p7PX3ixE$x3J#8AlLO4f)OrQjg(lC-&``CjSNmZd8XLnKmTGuPBO%); z1%tj5Eh7Wo+Z8}H6;K&qMKIMo?3a?_u~c&d?1Rt+@GdGEnj1xqcq5b=jT#+1Qmk;Q zM8x&)T|l&e07U=*UB@3@z!V*B3s8ZfNrC5K5$X3l>hJFdGkJ@~Tb`k5W=ceutfC@% zZq_CyztFufZ@?%`25tddgJ|2BTtXKgP4lmC;y?sLQXt*21MuGxPMDn!Uk}XwyKVmn z%iKjXg_nux2i(x8!M}(V8Xh)uyR3AGk&$t1a~=Y21!3V2kcT|}equyuLYm8Y53Lsj zka!@#MI}@na&mG4r2_20B8X<0I+DsPXu%cMW{@Oe6cwTlz26s%AK*zGz}kcy@p7>7 zktKRnbx|S$cr24Jd+# z{t;fL+VEzmjanI_p@unDZ0M`Jcd>`BS^unfg*kuee5*FFp*=DNH^4uT4 zVZ$+`ej5MkRX;!~tSFpJ7BQ29VIF<6?? z!g?GC7kxfFqb2XlP5ub<|0jO_{jL510Or_n}Z8ADEaBLq~hRtc*_`xuaLA?M`>mrMg zP=S4_b)0Ya&Fz;=O-->)ckjNlZ%|eBd-7y|APyCT@F(7H*r1pY8V54<*wt%9;w9Tkm8Ck47+n~{q)gyTV%Zs8w2!(d~-qP9^KI>f*JZy(T3UVK-AJ(C2$ZNV$fBcF!ZMz1$AqK-_kU zBcce8D)afup!fbT7s+|4l%8ZCnUGM$lx*@XAA8QLwxF|a8iN*_Zs8x2c~9{JN7TS8 z@T*YZ+F;be^N+A1EAZ-S9Xvw)bQo7lj2JHpu%9|b$X#+cHqOpkT3VP@SP<)b*)Qm} zoZ~Gz|NWZ%Nqmf|l&hOtZoE7kiFHP^VvF6kqU`ltK1{T7Y4Ml6?8p2B8#gy$E=@P{ zhKPWv7F3+lkBv+pz1>u#2jZMcWm5kNXF;x>vLjM3J7t)>Jlhi zW5~99QKk+l$Mp*(7c7b?o3%+kDxmERdt0tzhBE2iUoyoCcOlvzgXLe*WBD3%#_?X> zaCxY;XuD)gC8tKF?2#f4+^8D_=aX1{cfGE2nqq%}UEj; zEAdTgdz4gFFY9VJJkE5FgtsBPV-=~3ZqFmFG*l3n{Bk?Q?8l;Un zis3(uU*g>;vUn7pGY%^1y73G#`bF}Jb#&@@tj`-0T2hN+@bM1}K%uMjQ2d<4SN7VF z4GHaBR}(Fo6_v0RG`@bgP^?A&@Gc(aT1Z=tpTe;y1r;PG?%ryi%H!(~V&A=+hEjq$ z*V!3PCm3*L3 zd7pQC{&}zM-hOwhxUTE_{hsG>9>;#{`+npUJ(ZU0+t;^j;}`2sx_n!;ePLnCY+dNx zkmymoKRmtYiM>ToNN(*jvEH>7owKq$vp`D?z%AeKag1avx;N-cH!ijIr*Y#oPowjL z=HAY6N!3bX5@+Q=HRM2*m^PWupRcLbV>jd`8c#JtGwV5wAK@1#qyk!JWFyboZN4^k z#9w3gbMCGr!y}>nSls&LN87~bq_<7PX0~UFObty9cqnQkXn52d*#PO9&6?|&GGyZ7 z@pcw@0oTT+Z0Q2lL|?}T7{#@W(8oTfjO+C8(ptt~>n3@J(T|~dflAlg(g!OK2kx6S#-EQV%H~HV>JO1`tz}~%>8M2`=YRWsy z0|&wT>e8`e?v82xw-Gqg8S&ukfYu_?uGg=7C@5S^Pp6ZRP7f`=+pRslR|9hqXJ}O+ zH--?tBEpA$QogH^(>ZmcZ1hxuUknd<`qHJRP7Z<~2wB?$s~zHE&*Be*yNs`&V{ZP0 zRsxiu#Ulmk7w1B734+d zSF4SJA0*fzG|^mE%i@PLAAFDFf_TIoKeo1F7jzY}WHSG`$1`^|s++L_HkaWLAG<}O8 zL&xRf?xJB&d#s0;LqbjJu|GK2bpHGjswzlDosf+ku4vg#Mcpkd!d15IuR%rc+w{fP zC{WR1be~hNv5e`iqC&fICD)bg<$T#0&x?8KH=K&E51BCbve%T>RaYwQZsnhq&e{6j zW>?#WKiztrbaOoC>{e6Ex_8uj|hW~UqBUu^HL$@fVvysL9=($oeY z*`P}&WKW;9yBKMyJlFDN1b)j^c`;W4=`$_xq?8Aw`z_y5Zmv3pVSf#2a zWiHqj+1W}n42~l!zQ|3@wwvIPlf`42HuWXOP=fZEVBUgOxmCE$7Co*b_g)7mMVgaq z8Y`5l*Eh#BIR*r0?G|9n4%TgCfAI$)V;X+xUxwoU2Y=`owMg<3Ddo`caJ!lw_|&|ptsSC9o0?qR@`XejjRe3=G)Jtm2)!`Wt+01{veeEdG&DN*B++yMjVqar+vIAKXQflf!{(D7}#S z^jD)IX!tx?sgv~nJLVDVm9WXcz*qiGcDBT80E;@PXX2gh0E`M#&sk~m74i~ao`)d= z#~a6L4K1xTUYemJ56zI?HrasWj5;w~W!5Wxes@5?Z!$9CgE+3}a1Ib2k@&h7J{Qna ztmJS+MBTed>TjCGlUiy-FYzq`4QZ$yJ*vFCz1f(AG-sLg<=#!=pYETYeCtw2m*Je#DlRhXb2J~23W(1s`sgy2C{RuzbUlR%D!-r&`(rw%NPvcZ8bisgS|85h7eRDY5 z5b}}Vv(P1rv&a}FlJhGb8=7{%^&m+m-6x_Mu-Pn8yJ~7AsGl-23R64E%BJf5`t`kz z#uVzI@3ap@FEc1&%xXjRoE;^c^>55Akjo^PS)Meb3_wPM=)xiN{(t?BDbJOlI-ET{ z%%DF+MIa0~XKP^$0j9Joj=vtbV|~fdusLUQPMFUok>zFa-+U?cAP4`TAVH}nGk`MQ z2WgIRj?mN@&&%!lTk5`YU7z|GiA2b89$9-Wo>$jWf6cMzuUqBsx^;?0o`6?ME&%Ri z0vy0Pim-dm4W|cpc*a22@ttR)gCLO?mH~$jRZ{kFTp{+kdVcfM{<;X%kfLk?O^M81 zi){}~ANo!YY~nLAejvNt6BI;3YfK(b%z&3fKwUPhS4wLt_>Jh=A<}WURIQcbdo>Pb z6Z_&zf#3!T7GZ=6y6M-KD}A+{LUJABE47+al#&}PrR|hVqT4o2U~0=&TUkAYA7M+i zMi&m8GT;@+B?olz`Ghr(vdK4~^v+E#d`D)0C4g0gW74XL8J9RaPZ<` zy#%uzt~B^N#3BG60FPS?Ot4Ne$niLM@3nyEI7>;&;5Wb{Hkm%%8YP#H518ZQREhd5 zEsy?E>1Q=I1#m7xl$oEg*3>kF?*onjmIW7T@R%{*L@NFBdvkC0g7cr{F&y*rDX_JB zb)sue>vATO4}v)%%@3FUS@uyT|BwoTNPY-18GdDt&~a4)v(K6H9%IqIdS062#{EF| zo*S@Yn}M;3iSVdl`AvAA)h6I10&{_<@&QzNRFXUV4Gaum{)*F3G~hpdnrpEJ{scx+ zxg-ZGL(1KUaRD_80&c^Qh10Ezt3OhpUV%5sPe>Et<7#4gWnob~U>dst&0=+c_cC&; zygt=*s%$d5wJPtNPtMcmd*bk!qq0)oz0d+VeTkDu^4*3_`Z;-P}zbINJylsFQj zpEWCelM}lr!dRjBBDRFHeLJUnln{#S>@xb$4DC+kuWe&uBsSzJ zfMBA3w|a3W=_xEpxcvFRDd|laxVMNNra~R5;S#V=$=dI&q(+-B4_D6|E%ijL}p4Rl;V5==wOR3zbVfWEDLAND0RjznVC; zKmC~T<1_gQ0+QM)h#~T0K%NM|>iNpuyPpc&_%Nw!z)6w5CEkS%HPyhja;|9zKMxHO zVX|O)u>vT^HnF7GYm2oajvZS7gAC}M{OMMkvogiCQK!$Ib!SBpQ%O{*;Hd<9?4GJ_ z;?4zQs?ij)cFgV@B7rCze_5NaGcxw> z0u^an_QfropcE3)U49*bg91NM1?=AhlnCB}a25jWE&k}$rf*8#boPl^W!J9xDpo1+ z2JmsftLzT3wRTN|&X;najdUl$%qP)?IY+?4mhBFu4R$=sXr^m-EPs7%w1GILAfjsx z9xQAr3F(v*Q>IMm2kCvu5{-enl*fJ7zdILjAm{%5A%h3Ut}T(L63x?-m#STqS8E;> zux{t!`7uCSc@ug{)lLHp)~=klMNgq)P_cM7i3GR#(a!mIedd^kaJKodey9snhTHqq z_?Eg9yf(KG4yM%yg*q;4hpyn7P+n3OYNvP1%t0rbi{@`hz|n(qGRZqkxZ)&)f= zwnoXoiv#z^UbyfTo)XcmJ@aZw6qd3GD^-1 zh=-z$au;dbXbX!!W*mHvV~S(9DF)YJIPr!b%XSwR57breQvSMQ5K(#8ZH(=f9oaet zjt4~(55=laUvZw#fsO5!9m!g z`^XG}SB!0G$FhKP*RyZmvPh#Y&Q9em_!#YTf{4wplfVjPO~1U?uDw7dMWvUr@1G*r z+}iq(Kd`?LL>F14wB{kfx8S^JnR?@b!$9=etuq8Ai0*|fx(Z_s@4JZ(i*-X*bkN-58$sB!^#0zBNY0GH< z(^DR`$tna;d8JEGdldr=(6$-CMH5~vh4oR*aTI{pzJAK#&am9dR9IH zXE`|IG`wTrAqD|~(otNIGI%bTuX$V!? zJI+fGO>TbCt>zGN+-I75$pSJjxLIa}9XiW@XlU5TVN3+!jI6)jZ8r7^)^C!natOvl z=U)((-k=!VWzND)=c)&d{?|E5iG;kO0>Fb%0vABsX>fa4=_wq#9N&`6 zT`fhO;*Co?TF+@}DI;+yxR9Q1+hg3qbk$ayH(k7Mvoh_vS*WAZpL#LP&FY1#T=Y|C zx1V!nM%~!_Le(FAbGEuK-#KSyVsbt$XxCqB8_Z+dwDSKIcV(q&+-1Kc)*{HW#|&% zH2uzNKK7z1UU8{36JUQ3)|4Mi*6n4b?bHHHVsNT!{M}g0%Mhasf`%_|^bNcfw&QT@C!xo-IENr30O&th+NeTEM9B&H zXV&c5qkDBi_bc4HD05Q0A3u6TNlI`hdB8qP&=9F&Gy((@6iPPbRi0xP*L0wcIIV z;}_PMs08jY_e5PCo{pGmGSTVDpvc^}<(bV*iQ{Trl{?3pZN2tCYaDBxhm|qFB#e{B zf7+r&<(&68i;SUWqSmPg=-qTgy5h~7(eQ;y_NZV`;f<#$4G1{+1H6A6ZgjUTLR=Nh^Xpx7_n=BbIB7pdKG5Cfj3xB2HV+R|{0i?Ll6~+0M8Z1wzoAOn! zxzsMo@BhD4vL&u$Q=Zr_Qs|}(gm?*22uxli#EV8L zk_~us=(-dpK}M;zJ`8u3ODow(97 z5{XUvRjG#d&h8~PbZHkaKHUwIEsrr&Sk;-RzZe_@s$Z$8shL}B zd=WUBL3b6eUk_AcpTfZH5zPPCd>>jZ>CJeq)7t5aGXuhQ#N5bw=ajGiKk9N*mf2{A z{mABO2jy7=8g-HK&Y)PZsF_#&PG8FX!10Cc)a~2eN>~xQg|G69)$M)i2Y|-ZmoTAw zk6Cr<^UtzH!*C_dw-Gj?=xZQrh&*F_?yXzP0cDCFkbeyxJl#OtmUR;zC`r4Y>TDS2rva|4~$@5y3ATFSX{8ZClM8;xEXPqOs z+o-AuPDc7pN`m~O!3iHfuA=JsaG_ty%V`bw+iljfNY%6WR(Hzl=S4ZG5?ON#En1n9NW~mBE7CS;N+;4&*pzeu3hM&Q^r2@D#%-Q*lJ!IQtr)`&qdWI-Hocx z?j(zeCO%~Z08z3QBOd=Q>9nd%cW)`oi~sL6nVU)jItF3F;qolwV#OcXSV-Nwmp}mo zjCTI2l$61#qHu}-(;*HUZHJmK|Kun&X(-49`EcAuAGmsUx@+Gb_a}|L0jyhiu4G7R zL+`qG>mg_5OG3)!f^o>eRl1s>0P9%z3c-0HJR@isiMLC_W}Sj-ULFAfDU17sk6n|L zqy6-iycjm7hRsK8{TbVQhsjXaEG%khIoc)VyB*qN(<#29weo+|6Sf`R!XE7W=w>pG zz}bzmZ|~2wjref?@;qY5iTL;#M}nWPr8W3JZi>$9KGh-*%q(CUdg_|N5{aRa5j_E; zz8jyEmfD%fnU|yuz`IQxNO9q-p8wTOp2lT~Dv>shg)7u0&8TgK3~)L zFrFvbF;}g+twhOnwex`;F$r1f`58=)l3$0ZVtk>j{J*Q;6r0I;M{hKT_43XK(+#%1 z=#f(QiGJX!_aD2 zRSX=f^z`){`8CqZ<|Ruc;1M5-KgRvLI!>OG$>ZhC<{RqXZHDQ^c3Rr*XsI~-%VO?g zZvq)mUf#6(s}no>ARV_sgN4TsB-mxkPD>;(x5F78kop6p2#S(o-@X$eL{Z%F?Om0M z=tQ!FO$=b6wDdCHC8-yUk}JMwhKPZoTD$~#l0gi_;;qZNcwbW=%fPXG;px|0)(?Fh&cb#-rlb0ft$vkWFtdamP8eB z8-Q>Q8z^7E*EP%u3rvJ%8F%GZ!xY4*9;(8ta6>81p=Bs* zJDK0eRCF`94Yf~ywVal%U=30eVwkj%<=-+j0fNC>h7cr$`@8S=aZB1AAd!f{Rxn=# zkV$uD;leT&&baUIl4<28Tu|BjqD!rg>QxV!BJa4Qy{e_8Ke;?n_z8 z?b4wbXIdl;<1XXgXW^dgI%U<;RzXFw@%H!rXILL7aU|Dqx5>FQH(&SLzH zq~Cvd8MKae4^MsOrVym^VQstHv_0Y+zcRN>f~Rb3=B+a+hxF zBe%3EnzR`@B`IrzX!0-yl!Qr`2htp<$q`&KEaDvJU9PzQJKu)|rx1*0g*iim@Uq2N zM(EWL5QkZctpb!|Hy*yIn5uJV2D}W}PMwh2M!Cj-P6qAXy&l|xUj7}@deR2r%`$wr zsln+PhmtmYTV>=F=jGxRagGQ`mRB^QH37C7mu8fEP!S+01Cg7W=7LrDLMaINlAm}? zX}mumI9ax_poZum6X#~aFx~{RhLS?<5gicffm|Kuxq0p9RZnxDG@Ef9sk__WvJ1i| z&IZ&wsC0bC&hi~)WMKIfxV*8<_*$`>eL|0Gg_D!SZe99NY+)-wIN&gm$tsRm>hJoK z{g0!_h4Xf=fpbsQ$Sh7UG7Vvo46!^u-1oSJ7CN);2}T|dctnHDY^Z2-S)J?XSf(I7Rozk-V-Dz;PM z0tuHhJFh7Q&>%Y2v`@Dip%T3@jNAsF59?$lwUdLg#Z&+)8WV?zc}{$xtu4*Zbmsy3V_oak1~FuagaMWU;DD=cvf*F+?!LN^L>sy*(~IAN>keWTd@0xe76%TQEkz zElYxU9}EhNLg`e6E&QYl-!7(|avksidUDZ_L9wRY9cbC-kMMH(%I8isY%XUTX5F|a zD>3+9`}66Ny`>peH>QW=#|{cjx_;h2f_(+qJ^hWmUlX<1dh7Rh^S+Wf=$K6WQ7|RPh0~tD)cg^ z-lm1(RVFr)ao#54s={g*wWoT`E^`!O_Gw@Di}&eY8N|deM^E| zo?PhiB}^g_cz0OrM7Feed7hy>{rrm3Kw)Yjy9}6o;erKj-z_0oqb4Wfqj)t6QnrqY zdq*s$r<-!mgCd=gs;cA1+ZjOEdoyhSx3P94_5L^4VcYEnfH&lCO7tAG({6m|BPXH7 zW1TOsv2hxoD5+x6;BYc^DNU)g_~;?Sr?yn>OE{pwtA$f*>h;N#0#i?cv2wTxZ;D3N z0p+yd9FZ5yvk*SHu(_ko-+dGDt3H~Rmu005k~Dt2l+=u#VsB;T4a7S(fa8(q4E#Gu zKUbaF=XBk&a{0T0Gi7wCmNVLgLFBjl?WG^c(Ksui9C=;m>%X`F3tt!>y>MrHxZrZ9nWi_rbdED;{YWZ0`5Vv1 zWLC(!6NVS{KCY3_I=7{(F!nqm3Q;r=;AtLlK%DF2?cwq5*2G^P!OCwsjsoMx zTh0StpczNUtUgV{Mlj(>Rx&d(TyBMyyj@_C?KnypDNk(r_JF#K>4CT< z!@Pk5FQ#-IJlHG!o#Do;4xQh2?5DfA=thU2bme}!Qcr#}bboSAZ$;akK~L^UwS6MT z--*}e{}51j19ffwDW3$&QnCQ*oD1##W|EZ5aCaBSZ@5Z3w=J&rC;reb8)#{O50O?6 zlZ2ZV&hU)P&CFK)Y+NI-U@C`Eic?R~YGBg}IuJA3O+(1h#Xr)tL@6RaSY2I`)&=XU z9LG`1mM_=S`!gG_EoNy<6aDn+nr%A0I?)lE@I?m}1A-m1s`~3xD~p1 zp@$=jp+Ua%%fsSqW@-rPHCU4PWW_)>Db>>b&Zkz{tn8=e(oM!Z;Qw4#f^7SKP^%aj zaw&ho*N4(AT9Sp&-wN_JX_mj36GFSx-AngU_io)rF1guB9sxi-;i>kWyJsbN`rh%M z4~jx=4Hm5TI~$z=fT*O-fWpX=)71;Jt$rN6x6tJ>8X$r}#XGBdCp?NtIMhB88^y>H z@o_LXumLkzN-4`pvWAaKAvS?4`rn2^jV){yA2*o(Bi(Z~QSLx()YDTw{%rAoOMe2T zZeBm-iE|;IEm%-{T?!biwB)Pd2BYU5EeVVb^FMA~88~LRR8C6Xtc}FN0HLsni?dZzx140@c;1Lj(snTqS78p?k0C zZuv92VkM1Z{$|0A>({A&Sz7hD)BtfYjJ|KDR4&eQ7{glwNy-qt?Yv(AXyAvHx6TAn6E)K@tOU`-I~6)i%s}^8NKG0-&6Vh9RLa1vapTDC#z! z9F#wTbtp`LqN0T%F&vVj2i`SyYu^9r5co+N^m5gw*3g%8Hys~r=>$Fog!Bt%YmJQs z!Ip0poh#nBqn5t0iNA8jq?#?1UUU7OX&x67w5vHD9eFd zJcJ`o{Ax-{YwJSzO|&Z@3UnpWaURbX=1BMk*Wzu+Y}4hu!xx6gDkvy4zagEO7xalM zDoBvOlG@tr#zOj8k|h0G;@DNbemAY{2yyulD*_ad{23V;mA$nyvI*aI!|h98LYLuh zWmMMQ%UxgQ=2<@4<5vB%NgFL6x4lKBX0Vh^ZA0qLpjZU&pRt)FlFTsZKDGC7`|B_* z_)w>{TE|baRhoX5HQme3t|B`^%Z~sE-U98BMsC4S6gM#FNo~~d36M}B(Oq_f)1a2b z+UCz}1TXR$oAGQE;eUv$&GXlmkA1s09Fj-`dZDf^tOj5eZ`-=n;3a1jkleF#ON@Xt zsMg{_Gd6rn@}F@;2gmqLUZKP|$B8BPyz_#;PkE8COX=r_D)PA|q?8LVd8n2@d{V1L zQp$Qq%V%RWvuM@Xyu6(^t^3+P>^b(m&Ez_})t=>f?te5qlM5z&#<4lG;)8H^L{f@N z6fpu~*P6b)PQ7*(EaBb$+UcrlSch~Ep7`T=m;8PZV*$!8YZ^{?tLP7@6zylHIRn_Mz_#BpR}3+L?

6?3xV|jFZr!?Xb>eQV-Xuwys-G z`j;@ILXBxy#xwzJY%VcLM_eURg5is@q!Nag6=I<@4kI`=Qjto*$Gz01ML96;pdjJ~ zMwaz}Z%_7zxaS*VAU08@6ergfrB{{zJmFz^2YZksfBrda(~qx|Sk;pcpG+WutWPZ~ ziP^I)A#uW}`;BtjEIwosHxsEslVBb$H^%=&-jX4W{nWb&fGvX}dbXehyu*r3TD*}m>elR;E5)2(7 z!lFQ><4H1&&k1o+44od^Sf7{~*ZEmr#po9)=kC!>6$wX;$6}Rd_{mw7NPD3=j5HNzy=qGyHG`1_fQNIBrCFo7WMMLO|P)bvZCE2a+5TgZy z+j!>8Or#2SBlIRtTxdXnvT{`|TN!LI#x+=IT!kX`(&4+f!GLQs$#+BX9ZPS{+z|TO zAdQd`NaTD3gYLT@N}-}zk;0v95~`qvGebfzDb-505icu`a}-G=!doyPE*7*SBouMX?WIEhBYm>-B-dvD4c1Lw?OG%jC6dU6u#Le@Q?86btltyq3OR`o zH`AEl<{*OWAusPy+}iszXV@mTA9?bos@P}&D$~dwb3w+3-jumlnrmsQw}pBMd#WFm z6TUc(BMwPYtW{=yF#NY5@89`{*YPijeK_S#MLtuq%=R7Gs}muPQ6qu|e+65i0OzYG z-G)h8Hwyi}Xk;hrZNhFxeg&?NfwRVeV{l&M^%nE<-gA;$p?<4p544w-2CK3&2*OY3 zyP9_xF$YWe42nGnWY5U=HNyRR!*mm_TnD1GT-Vfstdb8Du^D^2iKEqVhd2Qh&!zNIUhP-1u&JlW@IsHR`O@+|KZTiFFr=nyFsQeM&F0fq7M;&u zYJ8~sch0!F{#mMj=M1mPm@hjl^u>U1Hdi&+JWBvbFkGeFPI9_q=NpUTZMPMl0NbIJ zhUe&4_y$@%cKahxLa!A*(f2Yr#^|Do??B|UPy*Lpd=qa}%kzgS>RNm{lfi=N5=qgH z=id9+*dd{z<9~g9A#l#bJ(e!CKh%;4I%Jt)2M+9>Mm7mHbop1K^Zq*w*g9*habl4Vd){OKHXTma^t4$ z1Gc+er@(D2?in)`a2pL2#rFusKT~z@ zZF+4tY3-xpKR(EqfquXiFzeOr`kGvM#tAD#T84Ea=m7@$-$-y%whi1rm|>On z=eVHvfuo%!WBgOO%A&+1pI z)bH6Hhj<@3S(-y_w%| zLR#Z5DYqVbp1uA{YJr~Yl6oCTmulZ1oX+=%-r+eije|C?KAwF8o#)xR)t-|lZ$Vdu zp)#GwJMB*1oFS`=hm!jEW1*pIIH!2ZIEQ>e(?PrgQ$s9wy1re>494_u__FcBnQQR+ zbv~UZac~vxj6KQG_ETg^1&P`=BM^C9Y(WwS_x?;DG$S*!`qYn0pEyG?-79%#8d-Ls z#RGotu3e%(Nw*T4Q6cR|!d`jNyFAY3Uct`3_ti5{_z{A@xj)k2iF3TU*M6$Sk6oIQ zpL6H+-NZhS&EMLpWPY#Ads|y&cq!g}>pDbsM7f;)w0+cSwIjot(p^vLW z6@Dj|IpwNme`zj8M=g@oE;{$kX5=-?RnXVhY$F%A6x&vz^mA`zeSZ%44yv??tBwzCek1qxlHHqM zP)qdGhgoyFb7M;>?0vjA-9TuGac7~;(^a1{?9KVl&F?E!Yjs*$IWOZ=TxRA^8g?_@ zwFnH4o2@x#5Cs|notcd#+1Bz^vs7+B>8(s25`Sq6m?=IE|%JC!^5z;yy4RoXnwfp>MrY4G59>K>kSB2mUx1^?URCZJTFiW?yKb&e~QFjg9a(J#(

;A#v{YH%Vh%1c} z6MC(GYyMuN)`F1Fn&oSIRx0rIWSP%F#aEvUP#0}jFcfm8bhpy6-M(nF-2NDqxy#*= zOba>_r8{XwBY7gMpz^x9x>v6(D&11pTBFYCl|086$8&6WRGgGl2UP>u>yonO*%}tD zrDB2=Wy?1!4A(Ayi^A+zHM$#K>WU+8v^JB?LPl?N$)l$<&Fl3J| z6G~O;m(ZO=^L%=ijCI?eFt+*Uvuc*?*xYZ>AV>5K*##us!+gxcUI~Y?!`eCZLH~MB zC*f$Yi?X+)D)n|Z1qFwc-(SHYSjgr2$-#k}==&>USIfqdGS7ap`2_)>n|@4Q6%bAP zwrzWjFJkNS=k$vgJF23!b+BL9{N7e`SX%?8CwVHw9F1)y$}v^HgXqoK5gM*o6k$HW zyl79)l>g$*iP8H0Z2mI=I^@n>n+Ie({d>Vi5dcH(jG<_OiHvHTc&!LF75#WIr*&-NFl;S!b-$9t?CZ}60`>NN zp^>z2zY{R@iO2A~<*^53r2OQ#HP2|t@>>jsLV3$#gIPKne&UYCh^48$R`rf*b=-+? zAgBh^27Cc(_6XGB0kULZnK3bgRIgK(x^Po}_rrm76Z5|k7hXx+5N8?3v**PbBBCX< zf4FPclN5dv4*{Q>%C~QUjf_kRT1z#QlE$){gm=X&TO9e#&Fje=7ce4?x*YV$hl6xw z^>`Ukm)qJF-|Dme-RCu}q+;6e%{U^2KM)NAgwEfv^MuMVZOkUXDi9YOw#5iIeSa37 z7^r!=hfI0Uf$(sZ?%hMe!%Kk*(G@Z0Fc-Rzp5Awu55T4-GiM4-Ai$RM^5xMfeIf5z z#wC0oi!eaT?IrrpL(iax8FiQbk5L8e~ z0w4TB-4@Cc_r3Aqez7^S$CM$FqomAd?sF)tkAtX+T!eG&)V|LBS8#gbOmsdeZ_uIu znnmHWmRG7TnohkRuxF2G=Gm^ybU+&Tbq?lygmq?-i*_y zo#Uu3RZa8a8-=;Dm6c=IgWO?ypZq!xz5KO;ON6jdD(qBv&iVQI_wLm|{1P?^fr0#k z_w>U)Ae0#HusKN^K4uzGhdzF?2?lE8*Q~pD5FMv%G_Cs;DOP^yU>UA_L|MMwTpp z;y6*~XBylMvM?+i1^WuT4MWQ@k@rS~jQO30I&=-ptk0#UiU#1vhg=4H)=-2ZhYw5M zZ5h4zueLwUy8qmf&1s%pVDV0RUPBa&hT%v8fh)-o+QHIUQs49_P5HW{S4!NN6m`2Fb-qmk55q#{Pk!se-FKFQKAD7g$B} zgpL9;c7`jD(D@CoB|R=&JuP-qGy6j znzEvzle4pM!&1+_@G6Rs2DRZ6u=55=DroF;ewj0Xr3oW0;WCEj!=Qp-hjsL3#56Ox zzaBqMX8U3(LDCITpvg7G<_(Jq%*k~6^j-Mwlbce+a17y@n&DMbB>D2&H{b~-20vw^ z(pI40=7FwAErQMR>|>PlX31cs-Dp7519S+`^KJ~U;-UEP?zoq{!-;DAcvd-qh(ZQEZmk!9R+ibuLAF|M~@yrF%6=tPo>RndQ(%Au<~@C6XnlX zo**|{qgynzb)?H{#+DN2X@+8{OSvL|deSr^ZYd!e7@h7=v*|GpVuM|5)qGJb!!iiq^vtK!p#UaJ)Dq72X*&k^z>|=jmX;#D;PSC9P-A?Ad2>_Eh zMo{2s`1&OzxB}Y(pRVP+W;21@eOVU8EFWX{`@a_NP~?e3khFf}v# zNUh0T!sK&yn3z8OuEltI1s!4_QJT*Kb5>28cAIj8`pm6|`!M4+n=5CODo&9|+uGW~ z#^9G_nVbdTfb|91uVd06RXYeJg}%RW&lLsJ_`0wSm}N1@&+$o2E+Lvu^O;;nQJG#_ zHa0ww3*uJ8fDVV?+8jvnmJl{#Si~d^2qlB2wa^DyGhbk3*DsPY|Kb8bJa5!C|75nW zeWzLjfLa zH;%=geU;O1@QIB6(;tlcv`0=&ORHwt_z~hJSJ_J&L4O6T!wdUk4e2wFJ)Jfp&mw~`V#*46FBYp3zbBkiQLnNN)0{GZ6~Q`+zB+T(3+hu=6$d+G~bh~d2TFN2LBNv*Ce z858*;wbymYn3SqgHe=(N(2Se;`R56_joXapEV!{KXOOJa>5*>XdrWI;i~dxDpPl2lAP z!XvC!@)af7A`XxO--JA;ot=8yuZ{T1{Ag2an*_|lhmSQ&pBz7SO58DQ-F`VcbUa~` zpi@$Bb0zWpvR+ZGvOLMqC>9l=#Sw`~(n#|buT^>u&5R)#&R9_aj|d@k7iHb!X0b?A zeTiO#m}i&>LI>htojpSnDpe%eoA3{yv;|0wk`z+udA&bVQx#WgE#+>4-U%r#IDKV%-@xL{F2~_lxYU6JON;(rOoSX*=Y`weETRV z9l@`xK4J^$5-4gNOl*ozue&Q z9~-{J5Oyy$Cbhq9!&E^2Mp8%(rL*+KU4b+Sb|6Sl)i&h)AxPq23!FGid`n9@7L}6X zN$Z2RapNokgp@QHNY=&DpX)N=>!j$%D8r5Gmz~;lGVgHCinwfP_KnMq{^@)#tUSg)1MTklX> zZMoV}yPx3-sbS%hJVPQF_0p zG8I*k++WY0E%;V#+2MIjO(xOy+AF0{MVkAZESJB%R-!H%pvC|L@E_vrMTa{6Ao^T% zm8e-{IP~l5J;P@)QFRzG*^POlIq4HY?#!I^ECr8%A;uNhOT9}kr1797Q z@agVIf#sHO>q0X3s-l9WyDvO^Jn%I89rl6_M`%><|+ycbPbE|^PAjrsi0>HNIO9a`>jt6LO&Kgpxuc{Gv7N<1U} zunt4kuw2#edEI7zf3Tzd17}*z=y3crULIE{sHqAm+CH*>ShgY&2BRTCnqYt3ziN*< z2@m7YC!!vJ*2I0|a1glyH^n0Q3xVAWlQ|waRUO$2z>Z_t<)1K8CCND(XAW%;Ynx@r za}I}P{VN{77b@)j^z7Ibn8Ebar`3Ow!j5?RlTZ)TLI2EXPcILCORQtQTqUOL>CR%wAotSj*Kf*|V$X)1mLu&$q@}t| zA6Offvi^&kgU(kL$|%s;$UU6Z99&B|+eFs=kW5`hmF^q85Ke)wC>YVz6ox$Wh{n@) zSdo!ROfddZR3dMqmD>!P8u&S!23GpUP$?;=Q-*E6*330GXE0J)JDG=$eKKC%U1-&F z?w9hlv{&E-srjuX;{)0W7LN?xGAcS%Re_p-^O!#hq&ym2d6VY|xu_O~Ib9`tmpeTd9pxskT&EhuZrp4gGh zMA!4HNkHYP$3v#^ds{;P!8E~*!)OK$Hk{69lF7GYJUcm4W#8IgIEEXx!7v^sv8QSA#XEtgfQi?4ey;@isD1hZID9*564tv6RL zSocc7_!{ZGhWZI%uPN_Cg72Q0x{Z-s-$`|8IeX_blqle}q z!#5AKp6a=^|L2!E!^JO4#rH8WUo?}kln&O3r5CwJyhn%Nh=`SiH#S)?PbA+d6<{H3 z$f;EXdNHNkpC(I!rE}#fbtc01pKgW{D@rEzD6>i!dmwib3c`ddx%@0!T>Mt^1lA6! z*$|h$DcLdbp4 z-5-a_Gylr;m80ppb9_8{WM;&p_2+ylOSBu~}Qxd6JeX6gGA>KcC- z#^qJ{Oepei{AnV0_V?DEt-6KJnpZtBr~h<5MqVGpvf6WOa=wF(@%D!E<323ho}^h& ztTur0Ua`-@mODGgW$ZZF=SpspX7SUfPl`XfxVVHAoaN$-gB#YRlUh^t zIA(g-kQ2s(!-hzm{cWCGj>W=`8rm=NJoPUe{IDu*%d8H?$4kQ!PhRqjJJwVGg6*X} z>TmrVT`CnNr@Jx7(&@Rn#B7LPrrhVSA(6jjJ3pP~Z`fnV%N|wVu5>r8D|5W~?8*+y zQ9h&139qu9JNM9!F_)0&_3YkV45=3kJ^qV4@&&cM&7~~8o_{0tF<}BS*42HQljBUl zVp<%h37CkrwKZMrW12a{Zp2<^Jp;Xmv~FJCQW6J3t-e2miiz08vp&bXeg6C$WjIv@ zONZ9#)syX><#uRk1;m6Al}+|N0f-6c0vADDw(8QrA3Ixi(Pk%M?XH&xFFxq?qez!A=$$XM5t@nB=hJV9{}C<7rRgbjHgWZ1GJ zC#@mO1AuW1GtQck58M6xIx)yTE)R5A2z&{T{P_L9J5rNeQ=Iag=rv%EPMXPS&S_92 z5ZB6+we$a8X(dH;8T4QnQPu}^0TA>d9o6?o%XMjpOp|JPb0jFw$Ds*QLod{(m67CR z`W*nTFKPYOH1Y3iajSuF(L+B2yE|fnLf_JJOLktC)!h2`y|rD>Q>UY++^5eoq#00l z#%O8H408ydb>QH^uVk&_7n#;fdKNb1)BUI<&z2Bm)rxaa5PTs1(U=n?8o9r6bI%b< zGBW0OIAInGpY=U?jLoIHdOiR31U?e77h>8#fhy?qxbw2}3Eh++BImgeJWU$%U))&8 zkFatXINdI6NZXrF|F#ab8vpm@EoxAF-BlrcR?ptzwXX6J2;VsR5>%GZ$*8>ev+bpp zcF>|_vct-6BhIAYp)>a}VgLTQF!V?a?d>Z-IA|JR;}N+sKF^8HJxM&zdG4(>HfNoi z@3rE=9X;I1I5~NSq5t{)_i|xS0apQdjDj~X@F%qp=1?R7=(tX;j6f=&tX#rfy)?VG z=2PwFH<6t&rFh#5FeOGw_)_`fIZza3(v!HTD&Q@0n&tNn5AdV4xJNUm@iU1+SN#+a zpjwmEMFq|8Flv~rR=F;`Xt@firr`c}-l}3Qs_JJPHDbfG>Agv0s?Qqcc*}|(p48^? z!?2h^wkyf{EH~V~f8UJ{(9vlc`q=t{`*TEZp=bC6b-xbeQBWvnMXyJ+Asz;m8VzNJ z?mY&mqPViK4+c~w(;%n&W8}!kcwIq~;4zXqJ^IoW%}?LHO}Ms`%?`%g1P$UoF_Vrg z=`wf7!aG4(pp)cbVj3!Qxj?z=>O@ADUVAC$Z6y?78b~zHM<5$Yuw*7RUe>Fri+8x* zT^lPY2ELq4&yR$T9CrA)YBEjM@hvhwED92o8MV^{fW$^Y%FQ=|P)d@ehxJFQjoqD= zb9GX~sFcl-)Tz{mkgV=g1+fI{-oB0Towlz(lZbw%!Oi)?c_|~~3|dJM&Edg2ZI?r- z%wfI8-Tfd|>qrFDHxI3Tu&GPC2m0pbJ3QhexqNN7H~O71AyWC6_WL27`}C(p%$?~fluB|C`W6(rb; zQygE>3D;dyWlo|?;ACwy+`?3DyBrJzp)BH|BwTrw4HV7|BaZ@6WLC+XP-9^hhH?hm zZZKO~(YDQVOCMJv9z*SQK+}2^r-<>sQ&-}0pyNJ6PNaT`5#}}wim^%9^eS|oU@ASm zL4TLN%*j!D^zi7BI#_q^)Jeo0@H(1dG(51Z1DHtY-+5Vv`I@3ZlMRXAvI`emhXIp? zbkxia<^khzDVmC0yO+230f%ouCe-ypW?-5n-?y(A#2!#r$5cTfu1SvA)f8hcTNAA! zHRBDIk4<`#3-7v1)w(k`JO72`d61vjU=u#3u6Vo*KvpzonrUq_kUMyK*7KFXhjr+5 zl7{xuxlFArcao!bNBhu(;Y5GI%`7S`9NgZ)`Weh6%^c{&hc_+Q20~6bh!+}dh<4Ut z1E!nZw}>_89xb3W4_!vtDq3UI%^sDH21Hp$+2tfLT0TRA(nqGytq zw}w-Jo~rtgArna7MVpLf2B;zq-G*VW=0{Q}2FB#^UbP^#e@Ajl~lPAs(V zrlO+dw-(}c;OlDReNXV{OkOA%>q;9Q6$$;brB4hy>ei?23huvx@}JX(%z>6wGE)OZ z3%I^=Nq6bNY*#^iw;V@J6Goi*uyzfzIuABYY%A3-wU7CBxoppjv2SnVUy}c(^`vd5 z@|-Buoi_ReO202QiZaW5>JiyaCZ_&b_p?s2f0SFLI$11O@C-<9fyZ8H3_+Uc z*`YgVB`pYW1??Z_W-%JvLG*$Qziam&FrcF<+F7&8E3F*V4AGD=spH13P8C-ihBjX8 z6zYZ7hr$QnH+sE}6|>l0**aKEBT&b!9ZZz3N-?z$4^VQ)Jn8=15(tuF-4RU107p(L z(3!K#AN0AlKK?BvF^i1i-EwM}UQKKhb^73*_EHLYK64V%R9a<)PYQb_JuFdi)}i)y zPi|?eoTLd|h*YpF{wfvyb~!TAg1)9+SBDkp=vyzb?=E{ArTj++)$2e%%m!SUzrAbU zUe88Y)@5yJ(@evtTgLv{0IsX*M>?5%Q3x9J>uZYVtvK!1voSsK?d&cxGMoXT8jj0b zmhnWZ_$ixu=;2(;fq*5%TC)AohmSwUO^9p`2D0<0!*H2}dJ2j-{Gm}wx0~1BjKxbT zTi>0sum1q+Im={w(bX=@SeN|uN}P_QgKmACdVSA%wL{}HKRir_WeIC4Bw_q@-)_A* z^XR%QP8NwfT{(K+#!2qUiJ`N<8p|zNTT48qgB!DVS%@DlmiNvU0#f!t0Sk3~KwIq> zY!btD6*RUVkA7I`$#?3e&m^x|hoaPSP*Us{Eu)Q(Tp%fA{GNJQqlH@KBikS9+Mx7h z@wRETRP-d4`W?s^QOrWrKpER__;3$)yeM`qXC_VYdp@LB#g)yG6#<=IU1#%9adlK( zYCQqij13R1;7o~(<&V+ZBAJ*((o1P<@tZE^7g2t@9HBaY_EpK#)c(`6yY8j;Kon9s z=DcLdNcL@%%=CRBYb%h`FmzBsl!uJ&ZP&iNjH)nHNnThL=6c=t;scJ`kd^4G=Ox&z z0gq(~{zWjMg`qrQ!v!2~Is}6Y1NFa3b!cp6YGoOiZ7V!@{KAE`KrD?)2gZ&W6B-gS zXt!nm>4Kw44`JnnH&ekRNZ&~T;J_#0m#KOk{6&v}8(TP9-SxflGB<-*)8X5W&9Q2x?FX<$ftKw@*|Ar$J`ih*>uk=Kze zdw86KRRX@>XVcfkKQB^;(BQ%5-FN_*GL@Nrhil=Q&D&`mu2dmo2GbN}MGY9hN1(6~ zvbRnA1F3D~sPFWW>3eDVK`lgGh8;_Y!$lZ!F#C5UC$H8ndxbl#P1E&D7cTG}H!5n! zdPTQ!e7~ThMyhAWHTQHJ({f*4SB&+vczy5SqhLfe->S}~PEe6j>_wTX7-;w{qM#@? zSE{p>e6jblb+;aAAKb}-{_fl@pbM}yawcdJM9?Rkx8#Nzecy%Z9em5=WhiFMX-EU} zq&DiR&(#hbH!cH!2h{jV?hW?o_lD|uR#pd@PDM6ZTf2!)Fl8Mf!*&I}PQQR7p}=$N z7HX-hU)uE32XO=PWRf}_O#vJ;NqP@`hTct}1&8KT+`pdqbr27$9!2ebevv3o3YqEg z!jMXrvWfy%@U@Zp6%M;NOl+EgEsk!)bg0&-{3^qVywOQ_@_rAQke9O5yUB)F`&rgLS zQ*u4%<-{-fjh<4Di(LAwwTXT_c=b)^Xu~$Ti>4~x@6w^*_f?{uh7fSpS@)C}$~&1|vK3C!S*!(cIAY$6E(}Q~ss9H?Lh2 zbA`{IefVg*IleKxrVHR~AzBduj#X5sO*aGg7T_4%4rqmPn1)?=b~!gFD2UAm;34oa z9UUE_tbT_COWT!Yv^i?X4I_+{5VEq*Rj-Rgexp42SJh~psD9YhOy9@7<<}F2uCgsG zD!P=O4z+Y4@yvVgGFr{Wp-Z`QIp+ds_ekxSOF-GE!AfqD}W}+UbXyY1&CGQb>GqyhdYj z*u@unXLabg+jG9_SXGy8UbdG4sw8!hX>w|XkJ_2vQ{QyOYHDzU@|ndy-EDmvtP0*T zAoTzG68TRqHg%JpbL>d`=#tZ|z=Ru!lr;qblRTC1&7Turi1}$qKj7^>CSfVLZc^!a z2`&V^PZVHJpZ+#ao`uO2P?r6|k z>OEjv=mr;OHVBX54!O*Dcs!K(pz*nm@M8=wHNWGe1nbFJWWZwZ1MEHk51~$?;O3Y4 z&N@1uIT)EV$V40K6vyDp8`C?@Bc$wVpk_2 zP?|eFN%P1?X(N*Q8CO`Eyu39vtWKVE$z1I0Z2LhK7b+T^Ro-W;{(JDms#7sBZ^0=8 z{rxG9vAz0SU!Or!nfMoe^k|4Q2O$ZUkjm23fVbTLMc2n!U29;+#?qnw49_AEAz~HZP(0Mneo98S^;G1_2l`qQ0S4} zVCZj7j!D^Taz;P|M1)J(bwmra0dNXxFI5kTe1k+mK~d3%B#LGrF@nKHn1nJ@wAcCJ z93XD{j~$yp1jTWh7T(SG@nTLS1uOF;dogx!72a@yw#@+vSM**^4umht*E;Gd=1AZ8 z(#!|m?3A?ie+$zH-AV1;Q`1UJD4V_yc?ooW(nx3m2aX>70qWO*crnw=Y+qblH54-s zgifR<7)pXma43^z&?+>G@EG)XGVY%sw7Rh^BpaAUpwE*YJRhN zZOZpJ=m_}x5Z9OB+Y0c7${p-SsAG2+#|z6^TpLgUwU(FP&%}wBV?fMO;b`Dk-+RiD z_pe`5Y6;mo-e%7A?Z)kJG)>!EAhIkL=&shOcjd(aHFVi z=^n3dDb}fWlk<58eOcLdtei(5h-Hc0XS6-nzo~Lpou`|_sRO9enWWo=x>Y07vjH#x zxu~KmLPFNf@E-sZnniv4u4NblZ1Nag3ziD$nbK%s{CQh*@99xguc+RLwpQ(!H6ZAG z8R0dXOj;U=ni#_NyOE1W;%f1#J|^6<_fFugG2ZjxURfvaKEFi_&i7scTw=4v_BnJtvSdwJ=U$WUw@`&) z(4QqnyXT9S1UWqeQp9Y~+*~_(5&qP#v6*+Yni>;2XXn3zHNkHzWMIv&=kb5QHL=@! zjw2|wg{9E8Z5{-Sq#$?L|`GIlN^`l2pE?ONri(1=hyKqjW`AH>DInGNe1An=uBeCQHofC%Bw%IJ7)Q*WDy2KeTP*Y&nW z&@dOS_`t)$DnM8nih-7_W_Wc_v39;3VIw>CBM;Z8c-)Go>jZabjH%*)r{`_n(SR_9yC%j3j{fFnz3YFHWR-(? zQ~s26?jyUU>5mKaTGCtZ(85{6Cy-_~P=#N8vO@SnpE2XKSZ~fo!vu2y{EZ2jXDct* zAJ~i>z%^laIsaAY*8!?Jw35^(mFl-L;y}h~5V}(M`@^TEp0dIlNzl96sR^HK__MAC z?XS8lkxbjZJFjbJ4?qf#^U~$2&O@269pZErV#^4mIiO7$J!i}I>fRZEuM29L!!D5Z z5oyQtJ-cYWolqg#*7>^I&C)tvYpL1o%dW+y< zNGFgGBJ6>CdUeN}#>VE+yVel64;U>A+ihpD`}nnvq8mx=rVvI45Hf<1k*)kEI&uf= zc&VB{XKr0y`nYeg7&k%_=t9Br{1OQ%Rq0_7yUSUQYOL4$-bv)viTO%FlF zmT*?J17HL2+|v^$9C-Tz`k>cXx1AgllIu`3>#h5z6c!cjIe0K?cp1K*WM|Lb?~_hG2(^7q z%9>BGO9@>;J$XjAF=-=qdDo+S`LP#I%(v(RIO__4DA9$G0`Z8b5i9-h@YpY#4;Yv7>sHq(e4i;)Y zXiIHW22YH(0ei(TDfhvH0VpJ>tpS5F^d=MZ7(R-3TXVc0Ui8UH7z@`p?bY)hxY3ZoZjEf0Hqg;Mdx{wT zh6S*Qpl4Rgb`X#695D%~8!{1|H#JaQm0A5T@gKV;I-O;t(zlu#bn^@6&! zhE&{@rm~2(GIVyu70VWX<3eqhYPk6diYqYKxGAvc82+UrM22?#8qgxC$H^9|>}6&D z6R-R&U4^wV;2NP)jaVU4^+QS2j=uf;)#R)^>u+L?XeDx+&|5 z12!V_)FCRsp5w@-1x5rgK$<>ULYlI!)_fS?;P1b4h}&Jz-|&6+jx>IwGlsT;zf zw6T9Sbay9@a(8$CQ$aX*RGGodmlizT8vs<=Yuv+kD|nEJmu|T`ySX7fKf;F1cGYv3 zP>dTNAE2N?j>dedhs9QRQ7i#jVcrPD6+=cz5FITcB>J1r6A)KvsdlC(Bt?M{k+#t{ zQwU>W0C5qbzzqmL;_@?GG`HM$F*uR(z)<;eBb}=av^6=$s(*$Q{msev`!7wmyC@er z8RYo(!(LW>ufuV&d6`k3`a{QQ!THwlfJcvFJ%_#9a;9yb`#WuE)TN#Iqb2i!TnwYW z)y-8hd$K%bYv;Mab5yhEJA^YtW`Bc)>;KHl|G#5+{l{xsxsdKW?$6)g73&yN{=w75 z(O&|^8H&U>dGc473nQp4@k&#!8b~Ju=@~SL1GY?ZzfIizedCWccEM5J!Irs+8#~Lk z!($1s>+`bgQ)t=F%s?bK+jn&pY535#>5 z^>C6`XKsPGSk7N;@D@;lZ9R4E&IvE8Ni93=7`QhN);~W{@9fN-b3WL~?sw|+rm8EC zznZm`s0C!7_w*?vuSIL*VKt6Fk(T|(hdKuPXi^sk7c>r1`>bK@Q0aWkJMblA_0B zMQFFd#dQ2cEd|{gDmfIqaLXdHGxAvQf9=|3T2wfIMM7qYnH8ropw|wSA$QMg(w8@a zQX(8S_{%8L=_ss(7mbjrW&tg%w7Tki>ME{qivoAa9)u># z?;t&!m9i!diR1NZ3W|8$)$lvgT#Ek-4oc8q;t}8Hnpne8M*bSgj;FT+2ZiEt%Hg4j zXnT4U@ijc09sd4_adDrjt8GqMv1rh)&OkaOva|`-v+SoG7WeT@_rHLS_SdhJMepYW zb$!f*`k9(^YBVCQr_3jr3P&hU-R!jgbg&Gz$Z6M1zj?TvYj zF5A)}Df1qCqJoj1ZFh{1kXD`7&WvB{*Qm6;abif@|X+i$F^V>W5cU8FBdGMxT z8ijY~F8M<dZI}DrrdK;F zG*;JbncFdb<;m%3BTI*j*f6a1q@)iT6*+Sbmrl2yGr3)#!&9V_9T;Jt+SX+uf#Dm} z^sKVY3<^lA&T|7>Go~C_l>ol&dyChf*m@}DhWd_|K_5vd%WO^V?3`+8orqWjR~-br zk3am$fEYDA);RK?CAuxFdTEGtBWY-m*8&Waf};`|%aukx=xx1Vsa)h(PMX9cGg=yb zRM0GRX=DFo7wOi!ci+jD=&OH4Km(kX2d4mvi=~5?o-$>}JXjw1+FrQ$qd$Nz- zR5IB3bv5IdktoV_*EtA!w%;P}g-##-r!u>pEOX#F{GiEJ;3q#hqUh$;$Z+InGt0gB zk=b{@;;4^cXo@M+OZzbuvY_EHr>Uy{D8KG7z!UjCy$xMqp3^(#3>O{W3qMXuUcY%m zdIxmCJ1_wDPl`V{(g`zcb5xoh7YEjlDG7xD*Yyyf?T6Vp?Cw<)Dn7@p^| z5)up)*Fxao1)X$%kM05P1)oe-KZ1>rS#8tB*d=OD68Dyyd!h2mohgnFrfn}Qbc9|Q zH5lcJVjx=9MRO?MR=}+9Gx?B(g@qAi29Gm|<~g*i8MD_$^lSEb{r9aBF?A6vkdz0u z3ipe#w(!$nhB8j*+AYL9Gr0MY>o3wBr?a&-nMSR)>p4xi;n!S8oEluR{d|bB+-WOx zs(DS@y_Ih?c5^Zcbg7izBcU{0YSqb^P0Mr+q43g)O__VabXRfSA*mGkn}aFLx?Es& z<-1|!*)UC_%72Z10++~A!9Eq@zcGBM%~w92ORIBdM^mn;F?+e#zI#bCqwbMDr8Zsb z2;y9HkM7-#QSmGf4!-=CGODR7=ZckYrfHpT|ce zb#k;`Rop-E;EJpvt#G{LJAX3JH`qIRlZ-)P;^5&oe)HLj!B-wi6g7eL4k81E6NCSa zuf>7|3+UvqufK2H1?PxH0Y4K%4Eh=wk=WYKJn0U30n5ZEc?H zH6+Gg6GNFG#)N{E6i2`S5b)!{hb|Pu$I7SELQP$OVvlQQ(Lg=gA(806=^GR~Bu?Cc zPQ8w(R#_YbXUMbLwr&mRI)GvsZk{1WC)&zjC0XJ(wRJ0b8(VA~rLv0sSbWq;@`A2MYuc{l8e-pUCz?-g-n@C|&LrWnKB@Qg)F;+UQR zS^33QcVr&x%sBMwGR=^sFY{RM+jrU1r3t(&2r;w;Q(K=3Vegrk_(;0?n{TT#Pri7u zrlw|S<>DgDmT2E=z$!>ImW|T#FY^qeacpME>?O8gbo+;)@DPBFNsZA`rn;R9VZJkM zN-@co*!VR0kd)WKm_i22K1<#ur8|uUgv0{hv@4EhR{w5I+tAuNF*Gz_Qw{Q>1}?zm z{6DRt0Rsu88q;RYdVi+C1!$Da7oLQ;5%(lT#m!fy?pyk$$)rM`0FP!3)%d^m_Lj%3 zZe$W}zigdv>V(J#lf1gfy}jz+!ev-l=!PTT=5_cKm$}`2L5F2W>Jw9=&IEKuX>I(fXaBX;`etrL;}s;0YD7-M zb9S&NIUYwGF&HvrHAMr_hM_)_Ms$BNe$k?Loc8QB&O#-#Q#Y@=E}Ji_cU(95q}!zZ zsPvPZ$LZnXMVs7E-V&#syJU~>U)8q_}ZYK zkl;UX(r6w{IM$>cQIJK(l?N6sy48~`)B zMe5lbH~!&b%*@?AVMdDKVYpqa4L{6m#2YP*gsa~E{VrZ!&suxk*OUQCQ-{sE;?z;E z5Z9ZtaU0CcuA|VTFSUk{Ok5`|YKP|l>VPEsG)?pv@DkuCQ7=wv@{YMx{M2%;G8`x+y?-4Goo_SRXRy;eZO~0UF`N zr3D+&fe6+ydcln)+DWtP2RcI9tFLJ>@n|u`Nvp|@y%C^R z#z6OZ1q~6hTcd50x@#5ccWomSj!+8@9XbRd{w3<%;NT?mDm2CEo$WuUX1sn4!|X_T z7&EFWtTw5sbZ4imp=uHKB|pjrD|ma?3wut+5YoV;{m*Pklpu^L+X%lbYn$)Roiasz z^UaL^#(ED+cL<|X4jIL9a=<5dbLXfcAb}MXtSgI#lmYKUD2*&TmFqIbMEdorc8?3p zrROWbk*0R)B|9{~kr!i0fMu)$-szjYXUbN>w|aS_5BJuOy#Zx}J4@DnmUVd8IojKK zWpMRHo12_KXq>-(C5>jy3O{Mm(yT@|L9oA^99hTkYyO>SDBr$+Z%}oq^Kv<&o_IFZ zvnI7!OP0%uo=~14;gHgubLj`N0jbn=XYb!ZpE<{P2fzr`xR66Kq(wN8doPwGJP_j{1&0}kD2nxR`Wq-P)wkRB+F0Ac8 z30V(cr}OnQjqua`92&_z{6yWy6cd?{lZpl{{KRPg2QIS`U4x`jkWDPz{(y)mAvI0UefU56Y8uwW;dn$nfJxqQB?WLbGdN%iYVvnGHX z_1NIMOsIuqs+ddhgm^!ppx(j3q0gj{`Aa+?EU<1VJ(&k<`{8X-5wdaD@T39g zp)$E&d8YYhCr}WLhX4mr#!xLzr&tbK%w8)lPePX3n?X`KiASu=OebWkm7B`l?-VI@ z9eBVsH8wlL=kl1%Q`(3-5uVq2{z_&CV8(ExC``V-&+XW`voP`Ob98+?`=(?tOGGgc z$(DWHrD(13ES7{E`UlN7A0xZ6d6WIYU_fkh&mZ5GmHRN0AjoeK!vt3OvUMImwxV}{ z(7<-Epb#O~0S^jZ$8xe6`-C%8^eG?-At>OWH#D?9xKC$cHwrePQZDwk1k?p$<8D5F z`V^7L7cGZHe*ucoI*$2X5seaYQxJd|4NWcu~Z z%F6r$RgtxIHaVSLonn^jfgS5~Pggcp6-^n21(QQ?+>oL}jLjkZvVn;V+Wnu%cKYR2 zO;x{Q*Aw$1(8=qvx(1N7Xv#o-zT)`pS;5aF!X_tF0It%O%;AHKqpktql<=IxhD@6b zo;DzZPbamO*B*JU*YCgEnPL@sx?IejQM9|@DI6qSBgbaCB&6!v-B75q-EY;(=n^Ox z7egX+@8FPFM$wjN&XE;R1)h@>WS8Z-$;`Y$B%`2dpkai=3rpu&TT}hl+)!D%ze2*? zwntAMe5tG)IONe)2|TLI4TPYZfJzmV?#cdP87&@l?$V{;{4!0bLMiJ{(YOBLR@eIM zKa^XsS1e!5TM|82QlovkGLR;?jz$`G)OX%(m8g!~IGk*q+E3SCwwod~8wb?h-*~iw zRpFnurGSS^9!>3#=jsXoPlxe>L`;7k_D7f&HEpLrdN&{feiod0#A)V-_0vfEerM_H zITIE@WD1#a>Avs=WG3;})_>Jqqmx@qvCf8jj@F9#Xg@)ShvY1-GU+&p51}Z>Wgn(P z={fx<%_wO|aB%N>`;FG7ZJMW3{E0CMeioEQdTO$ci%Hw_X2r${E``wOY3fDB+<}64 z1VRVHJpXCcbD<6&Ld*s?P~c$0h3E{5T;^e(9yRvN{v==gT% z-u=k_{bJx39k`1ZFP=DYLfdyBv5g`bdJU}=bVtw9`pQ;@t$N}4_T@HyKqx@4rFp|E zZ)uj~2%9fR0b=3u9@)+$LU?QGQ`dO<3(GsKwSUme7Lyi9pMekQln+G{^to~8>=%|{ zdaoB<*t-?&H3tvTg(jVFXbdy+gM2PVY6kbpjh7o+*V*R#Eow)W#S7vt@C!8=<`7^y zFH1{90t1(^>bcy~ng*bIrdElwvfNE9A05gRqek>zb^Tr6s+k?+S_~<3JdirUV-^Kc zlKu5}n}*+?-dvX8Uk+M$;>o(zaxU_#etds5yxwi|mCN(yZpyIzMa=zwx?uV{DF%$G zj%jqpnxGgxR?ITP>PtXzArnumi;l`~+O#RY3rb2#xuPy1w_CT)*Md-LXLleq^Hd0b zKTNowRrfpY%DaM4t1)fbv{%$37{Z}|1Qrst2%JM7A34PV%Kq(Y{a3AASyffF@^$Ww zf`S5=Ii^@%xNg{m9se_xoMKbbH{URFK$2Vg9>+)F+E`m#%eq$aH}}e!X2`@C$kvMV zCr{A`r8a8arVRr}uysyat!_>Kyz=8mg}^`lXuSD~V}+-*q^vAT>PjI+0f&#)os`s6 zv*QRMoYEc;t7rlc5X8mjE!NcF;OSTJwnfP0MrtoxH3;DUwW8ram$*m#Qd`R@kK@>a zZ6T4>c)_lxr2M2tMcUA4eBjcF0Xv@Dk>1!3CgREP6kk0pnyQ+tqNA;yV7%hB#`Tw( zI=Z@6ovvT;Gtkk}QrK28twsM>IGL86mc1XUR=+KjkzI;=ZqKilEcKEG@p8BQVrJHg77xrZ+h40!DepTMq0`V}qt@s(VbNhjqF z0sYiQtXlz4p)nBg3qBr?@{8Z%3X~81xW5L0Z#K9~YUYC|PVD@PD>D(qLfEQ~DgG&x zo%&sc>u$%6^D6AWxZ>nbgptk5VgWr(R&}t4UdW)MUK;FtmEmj7@Hr7cMWAUGrY8tt zu-3#?p}t2m+Chv`jj@fpnqMr}ZrjWTdk&xfCbrPMqu&W(>_pWA{-5V2Y@z0p!S@s_xgq!{~2F<$S}~M7e)0j9hq{EEn3H)SJwrigN_|1%68o zK+>T7lyADvXiEy;C>jCCVxXoA7oe|S&ngO*bOBM$^X z1YN*O2$@eQqKNXuVG$a>xU7~FLc#e@PGQ1Qhd|ix zwCP}H7eh=DeqF?VY2xjSj1Vv|*5Jj}736N+A$RQGkAd3w%r{TrBh%Kad*l7{q{B}o z{}S|Olz206GO!LG3ca$&AQ#;mtgHz+!VGAm@-e@{|^R@-m%~eBMy*=>2Wj&opvdfW}&e4;% zwkE@&&)VQ_I*SnuhPCifm{}{Di{*k)V`gs7O+8#s@_vYN^EF3L!ColviDjYR@7MvGYejMM!2v_Zc0Cj@b@L_tO*yR>R9u|bIQGwNi?|6@ zHwH?;+BnJKh+?0fZb44Y3{!w;=+;lEBRNvZ(_Qbdcu#8i{vHvqV@Ibz;N^om&$4&{ z&Nym^)TD)49_BmQPP`Ia*POs+JDD+ne0!fGf&$8#gT9$Zvk6=z70P?~m)Qynmsv|FT>4t~>cY zn>7o4E-{14SD1rFCw+bQXsl_1N++}90KppZaFB`I2H5C5cj0zmXQnkR>mxA5hh! zWwmp+vbLUi$BV8~UNBj{we{KfcplXtGfQM6gJdl*FpvREY5JUfa#GR^_xC-TpDa&s zJ2+EN^qYg>zBl@-0{1HH3;61H6Vb<*^%5l|~y7Qcvp?0bFDAEHTZw z`1Na-Ie^@$v}aV3Zr*=zYskUwF(R^;nuM4f_6Q zYts7*d-gmc91F1xwG)5Vl?+K!3`8Oz`cG~R!Oh7dPbddD0KoE-Qc7&P`nJFO_gf#< z`(umivbSFLXTXA`m#-{q*5b<~>ulwG^qwU-)R0U7syMAo8wc(X^T{L@K!=>YY>Pe` zg4F;s0Rp#5==`zAq@|p#0E)ckTAI0+0GSBDc{9<8)6Rv4*s5*Y>?CkSoPlFd9np#; z$TLFwL{jRaYN>x+dSSu?sx@ZUi9q>1_R)WMqFp+!DcASP;gV~@WKUG=A|kH9Oq7)D z{>+6)snMZpSKIVUoSGn(Ga*6x`DKctN7vSIqhl?qi=v{UdQhVSBL^DKCwZqwci_;W z_a8nOlQck7x^Vu7*I@Z}?UGXbpDYH`K}=ARcG2oo-!H!|kB2RrG9yjN>o(@osNBES zpVa5lPTW!m?Q}DL=Rt({fVr4BUN)kX@yO*UOJPFt{qgf z?aCrQGEMmHu>OqirI&229%MeVizn@;G^HDr*M7o;ywc}jso82N+kZW->-f|-4m^O^=7P5OxOrN}S}J1? zYqps@HgeSJ{g=xmxyc&`Y|7D8`zziony`xQ$ISe_wsi84Zz!Jnu(l{qGamGG!A8^I z2QH+O>zyFF#D;0HqT9~g5T1GGj>rTX3M%;C4i0BUC|5x62-KXH>#jAOohH!#b^$(3YMzjOQZ4rG(?_gzF)NS} zickz<9g;gk9e<&DN%+a^-aU|w`Z<_HHBu^8Z+RvUYqqs@`KFic_lN^<-@Y_rE`;p< z(Y{YGQ)I@X*s`@>XINQDELgE9ybxQJVFXFJK4b02zps~xF9!kxAFy^lcUU3zZ^qyI zm#BSlUUkgaiG@`Y#*&Z}?hWZu)J$~_!?7tTv4@~tM5}#YNQk|SO-WJFXDWTSE|qp< z?35GO?DJ!=G=-)mXE=Ehar}gquup-`8q9$C;u_nUD$JXHLSoKNh4n{-UsYa3E?kAT ztcwa0?Fo}~iU=`ix$d*1GinDX&Q6RIr{puX9;;h0TroVc&e?j*HiA(Kne}Ia|9<9b zeX%@7_ZC z#yVZ*S@TtCB5M-6eJjd1?pnmHjdjAsW!uu=0`y5qcUJ|0bqc4RR5789vKl@z^%jaL zVJkSNu5?CPeO-lcVJ*HiDOwiY7v5o-z-}aRye(h|E7|n}N!k9~mN@_KKri2MO{!yc zO#g|6iJv{P@_jUm{;t0M7rT&a_TyPE46J=0BHP?^+iH0cLJw*$Gt0pUmdXaXj-_!P zQ>6&hLC>d&oX@rc$;q`axy)V@+X3ccE_`A+MwNF^Qp)an9cb!t4^eh^_rywFT0NIK z#L!>@@cP7wodQ8k==9u(q!SeSQvn6`$6b_39u^i735R{UqrO$n#N_p3#4z?8i=cn_ zELb>TMzYDxVkhKGY;8o1E8^V^9lk8|i0s2YK5E?V)X#oFz&RXZzPFel=tisXMwIxz zUw=hR@`9XW`Wls_4$dsk9qIh!`7wEJ#>OGk1axDNS-nSDkK-jlP%KKw6(l#$g3m(0 za@%RM_Wo)%^o^09HE2!@(AWRS1Ej4KytEEsJYSkcwZDEMm@of3jj(8ZLKQ%}cVtij-~k@hMx0;BUSQwjz^kmL=D@^}IrUX@AbCfBMV0C>Y~fv1 z#cskT?PWR$6KT%mBg4N#we0491Hm4d^l69Wr2KmzeP8@UE7V1sT<1H7g#kibP0e)r zVJRD`O0$V39Rfuz2UkAsc`-ScaB!F4L?_0l1~0vS(%W5wt1RdcBA(q%e?g z+m_kFB0#Nbb(SxKhOgeMS40MCUX$rJl(9QBP|BMYPN=6GOL`tNVq^p{lMyn~lpGF3 zZo@rjiR2dijf5_^Nmb2!gEuYvKYv}BUet;)rU2fK8xNJ!{VV;NLXR>>boyPiX`n=m zP`^G<88c(LU0nicAPxQ9&Rc&?$$^E?h%Ta=%osb2fZingJKZ_SE&SD`>(BA-b`GzU zNa)rbmyt-;U2C{TkR!kn5|M&5Z*RCGh%#jhF)A`rA&}fG`%LT=M*%y+Vj+2|1|Jk1 zKQyFmtrp^fBpFV}&2R|mp=&4&KcDWTVRCYlZedritA5(LWPa;+()%Z zj@R$E-$JPck?YwbLgl^*W#qX}P0V0yT*nR+O-r=Ss^)Ek;k9kk}_9(5n8Gk8|UvFHWb z8fb45p2tW_ng96n(@t;OL|mXwglX}hYB3c|Y&KQz-Y}eks6@dmurhnRezu(4{o_Xc z?c%S=qQ;GIt?|sVd6~YA6Ad<R7yc%wh?T0U6k=j;W{TmSuNJqH>tVC!fAkvqYVfao;{M)GP@!auNRpuenKF}1kupXRA)%0D zjLg$MF36-NhBm&E|YF1AtBLR(%Faq?6f

qtVvaEJKcrtqOZrX(bXNfghV(r|k` z_RahVLkZ%&lCKI*ove7C3LCP|Le zqILi1sMY969?j0!50Tp+taL@r948@}3){M*;fP`+qqG+dJ$M++lI$>q#F_P>u-W_dy zLq&V`cY9k~TL8thwhM`yQp5YM6zc+PIMr?9@}iZ71_s*jO&8+D1Mb{8%Em^@{Pfu~ zn}q&X4nw<)GB-sDs0=h|O`9t>w_sN!C=YQANJ>e`tp07=v}HRfGrre))b32ct^?K# zn@M!K+C=lC|8xJReEiJJ%n7>CtgE^7 zM&7g0E4{Hh_aEsLr&jh}9Ey=8J$NwY(=&ybL61GQrxhdf^7Ex6C6xpte{d<6U%#7I z%+O#Mj1OG9v$d0%iHWJrwZEW1sKoBWqZ4G@jz4Pd*55z+CEKX4wl>wE#37XK1f96k zuL|#FA-d2%4f*-`+L=0^aNkR_qn>VV8ZRzBIUgr{wKlBW?ax!%h&aQz5d|j?kEMe~ zUZ0Au_x*0q@WeKhmVQas%)q;@S1kSvr5D*{6?5TnvF$gHJDxENPkbv~U0K=9xAsYaiMB_uq@-k^Hk{wOJR%|@EiJ8MoQ!qw zowt|QXUo~9*yDS&dSBTOjDE?cH|QCAQBeFnTxRXpuU{PNx|v&R-`?4a({atN{r-{j zTpS$7@)UI0r+>^<1neX~9+t+^^_!!vsmbflyMtuMXJ+0Q#(D|^` zxU{e!>9g`mJKJ#kXqt9*g5>Me2n*-I!NGG6kDW?Zqs_dStcGyllaTnTmvyg6Ds>ad z4NCc2TU_e@ZdLH{@yR#)Fj(E^vz*o3Q&v{i952Cbq_$=A=I%nPF9p}sU0q#GjSDT? zcN;DxNVqmPHY#&!rCx}~+eEJS8Z3`&S>;ZwX5qKB`Lyw}wY8nj{I&k^(JyGb-lh=FDg8?4}%Bq(mGB>!^A4Ecn;(>t8(j7cVAx zvk(0GMZ?J0n{u8W`OVaLb!qna@#9(T2jABdciR*%p`FIX!;@**p5DDDO|LM0jXj86 zmGkRVYqIjomoJsv+x8#Q)z$6R*YAxy|47K*VQD>;%)I%rZYQH@blrzv-pZ7Reln=P zCsww(+4gHumJ6+lN((~G^5_wqIql9A4ozOcA?vG>Ro}yIW{@S7?c(H!Of)!%=3y?43S zb5hD}>SRLn~vkEIpGl^U$NBCS1{$6Fnu}3Vj*b73odmz2&8MohxQL^c&QOYmiRD zFOOSy9y6W50nTdOHPd{Jgd}M&qW{JvwTj!f56BMl&4)2aq$DSgXgJJITw456CLc;? zYHB)?%`PC2>$N!Tu%~i$F0Q!;i&>vfxqrX2+0f7s=a-%0qr78e1z21*P8k`aweIn; zF)w_;>Sht!o_jH~b8{Vu8LJXA5v&S-$ucjMY9;8GdpM7e(9+WO_V!L^^6D4;;(uk? z&XqhFb(eZBz`onF`satZSu!5Ig0q}XWAH*K^3n%J^SR@vu9Ogb*Jx;kM|&TH^=W~ zk`|&_RL?pe`FzJ-#&eHF?NPSmeKa%}cYI7t{=8C6#!q9Q_2ej1P}WK@NY2`kX(4g?_hUmKGLNhi?W!#@WUjqSSR;%HuDG)|)&PnNwf;flp^*zk5p@Q(r~Mw0ED|$HbIv z&BS_QeYtO)FLS%!LD`1Y@1q@A+}2fO2l)=+Mt*&I*5I5O;CsK@ygg-N_yrU}joPThzFZZg#6;omB&dWLbvkti1dm82OR9)#+y?i&-iOT8s zXT^lI*)K-)y33L5%DcW&nRzPlM)F*+d+6}D5Lu*7e8+B@!z!O?rB4%iXUJGpRh7D^ zy3CP|gd}I@(M_Gl)9&T|IYD<`O|2CNv(J4v9_4XxXeg9PMp{y`3?HEsJ2TwUc!Hyt zi9RAS^6BxR{1#~|)Hg%JUSv37+n&yR^Ol=ib|5y3u$tn2tPiVS7t%ieWD$A)ezs91 zBR#!m|C^h*nMZjVIyySJ9S##cVvDDdqsh42l1^=j=fp9%ODAlt)0uhX{G&Q1zDuu7 zW?w|zyd3l{idR=>Qipq^xHUAX+6^@vSUe5H5K7f1%@CVqqGuwe9#(-ec~G|nh&DL$ zqUX!GeKw36$Ni14^&`VgO&XcSFZ}P^X$&9^hLrNMGo{@0%uHMMO3mH<07_Ma^r zBPXxVe3o>U-IuD)FI7}j^jBG$hJvMKdc=9vbUij*mmPQRDkSFTJ4QHj4RDX_e);5d zSCMAAMsCi5pYd%ZBsb36?by*Edh}?jYoE6(mRB~=Z^vHC7PX9aS<+~wWXUWWf5Dz- zMJSYq#GN>Vh3ER#*XCPf*1d2hZ{5135YFfgl!qd21MK>MSAVX@u_cx!-PvltY)wr~ z2;GU_9a;JfQ2^h!Z{O}fwXps68ewbk?X|PK{OvzVQMr`oqY@MOeLwmLSVr(nlBw4n zRNXEnE-o%A`l8*E-G^IVGtcV5+MMg(EPxV*1&-~<^55WSi{HbO7DQA1dCO0>C+Ed7%V#^Nlo^sFPwT~h4)FR8S zZbKdO$WjNoe(AoeTHq=gosoWrrx?dg|I^c-s+u2a&mn7gEWWa!zy0A5-ka7 zmbkH}LpR${%KZnbeMrHN&fKdGx!d>9>HH_bX3l6FzxaqVo9pAEW;V&(d)@dye0v7Ji3EWI%4~|Vf z-cCYdeG61edWd}G?_a0!5e5mDC>e{&AlcfL#Tmbi7r4li;~Cf)T-0&1rjJHS$!g_u z-B#1)1AWzrYBsWg`;T6zV|pLXbUo*!o}OOBd~Vz+cVGWC>ide3LV#V-sP_gXYCgO# za$fPD`@1-tNMAPBW+8+`6eHvM>*J|dLqXL8M_5>7*QVYbG@{`-tk?>EvZp!EW>9ea z~NZ?6k;#xer=0 zbiTg9-bDD{dBbsl^m6Qv-j(dJsqTRjT$OCg3kwEiZmPa%3kz37uVP`w|lghHxN$p2k*{$SEzq4}L+uJvAY}sz~ zdl3OZ?IOs3vu@8^1)E}3Rh7K(?4N$zx27EFW2plvHQzs&#tPesYN)aq@-}|9U;KL(gDl9fq|bt zT>xpw^#9>Pom+R3cP9TZ6z4Juob0R2mh$e*xibCt&6_uX9b6-OL*?^vvT%;-9RVY< zjD`{LLnXMkQoHZB1TST2tuKvcH{>BKkFh(DS(SP%=3NLtx_V$PHPdu_WMrf}pPW&$ zGtX3coGct=@E4D5eZa@(iua?qAGAm>pDWSf<>1iCHw#^HpkS^6o-2&Wd(I!yW}Bvz z{7Axe0x)w>my?q-yJ9I_&=pBRyit!b8e~W@^7dY)m)7;jdj?&R&>+aDdF-5=J~MLV z`Lpt8&PVS%xw^U^@wU`(3R(C0tdX7M^hI@bUGL9+=>GFUBb~@b3Vrbst~h~7P2NM%+UGLW zB}9b07N(-2s7$pS9Hzm?qDrop&py!9`xn!c++dpJP8#p6LV|a#vSH|H}^GK^E#SL!->?;eG_G0=Z>k%;BzUmryJK381G z8I(dnPAAx$Ip71&-EbM^{R);dIET?z<`yHl&VoT&N zg;2WoY$F*{t8D$^3ong)bpiibtv#uPKodRH-8?*mtvZ@oT2x}6N?tJmoW0E}=ujk} zmai5Usi={r0Zy-eTRsvWVRY2!>htEZGRgQID!2UnB%FUg4;kkgZA}hd<9_hL>K{0F zahgE22j*LI<$|dl7U%nXjm))>d>~!OF|)9+0O6Bm%*9==_%lDxZ{0ODH3jvljaB4X z5vO{}FRHc#?)AECBa~KRS??cJ`Pm$wA$4gvbngQLByR%GL5-pAcmPsy$PGz*ahsVgZd3GDbc)hmzL-w-lDI3^$`O-wM-(Jg^0K9=^@ z)Aj0kWxr|DCPPC*FoBPZ!By4D61wNkH7WC#Yh-Bg?%liB$f!@)raR=2*mNzEZ`5SF zNL^&bG4>0EdgXv4Ac#A*Zx@%4&`#G#bDiu(<`ANc>{8WbuVT(#O-=NnJ9hcxyPyN{ z@$o22xEYThH9Hj}DJdxjHMefv8f7>5-g6z)g;hR;bno8zY2uZxUp!%zUG4&$>27=R z;=POvEBw34G}x1hs=i2}3VZxMgmyn2-EX9=@89=PQwzIKo0wjXVmZh!#VhDj#3_gk zj+B44h%irZ{~3#{D26M1X|UL3p1Arm?)u+a4grB~RIEGJMl_ zQ~i@1Gz30jVHcb$*+3))1mxSxv_r{k&c8o%mek>GH`MMzW{#4_$)5hohqP&+bL%Sb z@AMtSdSvi!yoDqBkTnB7@CGD}#{Yy5F z+9dgOL%b#VFBaE{FCqD#==3>P=|XWJg!j-3Yh<*`QER1Xa7AgwxDJm+6#z0DPbn5ESv zfCLr?-KJ^>laAU>eAPc1VR^OTw#c|R3E#C9?52k&@e;A=cKX>AJ3sNQjZeKZ?hKn^ zH^REV%8$^{hlUPNP<(tU7YyY*PCD;xTSk}L43+?r&paqsdzSu}4x;xJ?)>{)qVy%t7aH+f@7xXLa;W8)cuxzJkb*^Ay!+>MXJTunj3_T(hb(LWbtgU^ z?SsNp`o6bAGJ6>%A)~%D;^E-8~2o9zG2t|q{Y3s4=JH}eTp^%vMimcOSyn@g< zB3-Oq#ASWS(%1Iw0;p!@bHH*E;6!G@8vmg)*|aJhzzkY zy~E@~A^R8HP9;$q45PWJNz!}C$;s(2@FQ?y!o7PJJCpP5wbDv*ewv$_?qQN%sq)*w z$jJCiJ`{K*D>1PThXXC5GMtR2rY1B#{($qyTS`0s)&PuPlJY=fhZm z+_{sPnb|>e2l=66jB~j1p~$wB^NlSn+9|_>gJpkPm6iIwRr>ao$)oG>vz=AH%q^F~ zxb7bF`>)%GZLWcoF&6IC)%QY`_4tF(z(5)i+sDl{%%^XAp>YOW|32otk`kq?(`d(e za}VGW2#<~q4k-G@@@G{F&2%+1G%jDhj2?qiiVO(F^c`SrvEU~IgZ1}8LeP3rMR1^Y zK=*Lkm1$5SC?VmADvnTTk3B$1nTH>6n0GNFYFeSTvF`I(o&6#kh&1TEG?GeAzRo~j z*WT`oHYPyQgFA0OGWxw8lOH*j&FDU_E_f05Kw^#V=vesUyT>L?37!56Q-8i}z^)XY zuaL<4eAn@LM(cz3RnQ_y^=6Ppem;JS^X8)f3P^`|Z8xtE_ow;^Jqp*WtfF#IHiS`1 zPo|XFe*qfJMg$$xIgMryN}&rD0Gcc9-f3u+vVq8}*NQLwoS2Y?+KMO(UYE2sR($64 z@KSi$@_|??BJ*7|Mxj`Ho|3YQxru(fI&$Csik0ccy1F{F{+!1;1w=((nYScBn6}2g zA=r0Uyi6AQoXN}2PqfR>b*x0dw`XYMytAbq*u`otg0hcN1#Bo|Qg;u!;%L;};NbnT zPUGF}3+c{=YR_1q?<2*@1_Bh&^L&KLx9GQKWgPtVMKx71BQh0p4KOq^kffw!lMXAf zgrh7~o0jiCcyOfYyxl|BzB@c@Y=ih{q~LCpAhb?FyvmXOna_awEX_|6?YGg83SBzO z2bW45Oq(BzmAZ^KG&N})(aO?ut_j?Sw8?Ls_V@2!h?8M70zXQI6L8ZH#hugF4rhil ztG>aP{^JE;loDjW5fZYS)p3YC`m~_V$=H|i{l~IZmzpvZF4&PWPxO}SKa=0nrcJcz z`#G6$p`geQVq#+A;;im#s>BMKHbilTLo&rt2Rz$*NR(p#{(LkMW=Fp;NxEHRba<-K z?zQxH1dARL5`wNNqFczSBNKN7$m8VddQg_8^t9ELyuDwiipZ||XhbTEP9sl!l1SXh{4p*SaJ8kE(?t+T_FAf^b&<0T!%`m^Gy90 zNn9MR6apynP4lNus-6#?&pOb017tfnI8e%>Tk-3Qk?(mGl|)f{<1=T@;PRpbaW5gE zq0UZDLJMk!`w8F+8B9Rn4^Z~@{f8RbSd?yUoSahPmhr(^@6#;}q#bnRh2 z1E4?LlF0A>3LG4nt)S6qqDPlB*I`J>?*zbT%@^V|kDikN|%tF7PnB&itskeI}Q-a#WvMB-_ z7(m34+&Ti96Ljdd+*TZGoVq$x8gm>nMOlK%&Xl9t%*&-|MnfN}P7{hPWVKj)+Cmt}HdNxwy z;>C}M@@n#AT%wiGBNjhjj}r$wnxdkj(2f12t)FZB4ni^Fx6b$V>(_L5FV1!7U$4)H zZvOlnfco{aKk`?qDgmL7Z1=^1L24QKauGSw-+$|(qnB5iduZe?l;sx+M8#&VL2t@L zX@iwSkpMu-(1psciAjlx>H1D2E62Qc8u>9aqzP>kg@C(lh+7j-Jd!P~{rC9SV)zvD zaf&A4u8y9ZnkR}mnj2{1-yI`B4e}2djWZ)l~PzguR929HbORt3_B$go&=R5N(ly*YJ0BWS>H$3M;6jcrz zf_*`K@&zY?xx})tyCb*%Ix{=FDO%6oOMm~xU7Y>|5)L)Qt7p&u9Z%QBr~glA=f>~; zJEvJoea9w}cc?!}S{XJB+el85GXMUZcGcti!oou8!JQ;YIzi5xcZ`v`{ug-7{#UN+ zf9!xu3Za+r@j}sp0t*0O!w@XcA~|yo+F3yG8F_hWfW7VOLeG5OT(JKfcd7Ejh>$|! zC86{>tv9>PT+2DXJy9>YJDL|+2Ex zP*vt~xae=*wDs#2Yb%Rr0|LV3J0Cuhn{AObnl{n$Q}boz=e`oZ8)|5q+z?cbe2#py ziy1O(rPD|&@(@6n+?g|-;(TuneHMpOUkB38ZgIKuthajUrrJLr(9FC&N*0<$QqyZ> zV+V&kbgLn$3~?V?Y}j#9_nqoqXh5{sGLHN~iFRaf5M!L+0#q1$xDV6tcR`JifVmGJ?vFK3xEmDY0Il3`1=XS(z8+cG zY6#n0+Aj~$(TT%-h5T9PIQgw~zEzpu)ZAP_LE%fLu6hE8VkzsAw-E-L=&Q9txX0b1q-OV_A{`~4lYGN3Zj1Tzc z%E}5DGeZmgQ{?6P1>sFeI1xAUV1j7u<9+Qq$>&c>MwWr%uB6n!vhMAENnPMSI+A12F;r977S`E3-0%h&Qb8Dp_&11nNQcwuThfSK&=&RSiTfy|yrb zRe{ud2rDsEj^UPixAfR}fC0VO(|DN)QZWsRFF$lx7}M|qd4fG##iD;=PraYMHP zJ}2CBea#Ub!!m-P!p8~$xqjmXs_Fxzvz`3Vi>O5imBUb22J820Yis-Zu7CdgnE<an z>%CS8tGz=!uKlyf#o z{04||hAxa#-jXOIBP68p(j3h;Lhyq|?)36$uz?(|05};1IRU2xI+weLhncxK`a%;( z0|L1RplH(Ik^}d#BL4~=KaO}LlpaJF@TYw9R^+(BXW`NSC-9=6{N`^sGA5vh%(rVB z@#5zHAzF`xZ5~k=1Ar5KKJ(*r`fU5Hxbx<-D6`y&P1gaBG&B1NawZ>kh%TpaGB0^QwDbnx1e~V+`U%cQb)LZ@L+NYb5D<_yMobOrr>eHj#mbh0zU@^+1 z0;pa?<#JG<5ULE~P8LK{)9leV{_U|9GH6EX`KZY!tIbaK86~S-EB=&(w5$Hm?fu0^ zZ72k&P>D#N&{|Wnx81l!bR13r%b{09DQi)ge!j$L6_#YIQ=3sbcBa7`@R->jUGulM z_e9^FF5aUU8N~^XdqDP=j7Tqpk_}68^sdzNadXWQlPfcc>rHiapm}$^Ml@*_wO~{9 zv{K4&!@y(>{##^4orSxUq-`-+Gm<-6&Y#`VNm$u!`NKYHI{XO~04!pW)VX$-Pg>O49JL z>jRsGt5mOx&xCmt>M_7NhQ)^=2{8;aKUCAW;$4g8>!|6Y=e{HYF+@&>&oswaKA0AGf`Mot%-VwKf4qj?X zir!FlMUGMXpwUYtuY#knc?=GkFrPuU6tYRwzAw8Q8XFz$>^`owE=EPY;krTj2KRPc z%N`#9rr&E?9Zlt9IO^d8?DXYHqE0#S9c5F*lz|13 zGZg8;;XAxkApJl{%X2pI_MZls(guegA3zN$ftLiQt_2Qn^hH3D8o~#twPx@Glwv2J zIWgc1+?}}VMCN+8a{u+;wxp;jJI~-8`0R21PeAA;D+h{hoLcKREQ; zYUpfx%eo*Qj&l;`S~kTsO#@O@=<3k_`SpvMzJ4uz^ zJfPa44xp4m+TbyGMSvOV2eZoc+zukg<#L;8NO)=wKO<>)1W6xx5-ns!M(1;JO39H- z+lBwc6tmR#HT$moQHURzrW&7|fQbjaMWS#+Wa`7oMDDRd&X?;bv--j}eiwK*7U%#1 zdlYjI32E3;Dj}UtPu=gXywvEY^yrjrTJuzpY#?}koX%Ucrm~Nl0>Y!2u}!>z3pz`Z z`WR|(tfYIM!K-5(Hko$|W4|qTgmy$~mI1QCFZDS=Eln*MIV)&AA)5ffH11^^{`vDI zg0Ce(Dj^}Efx-jHoXKb5iC$I$pjTYnR~T=+yuDF5JQk--Sx?|N`=T+05_}Qn!a#_E zz=p?UWGbOVNNR7k7M2GAFuei08h zw=yY2xBUzZ<-Y4a`>g`+-qkJlD3m;Fg1QSqdw%@u@b~Y`m1jC`O=#DuI@Wc%&+v_^OuhnOG_O#v8E( zHZdJali~^3d;0Y0N?aYtB!sNbFE2@OadEM*RM%{+g&LGjOe(R;Jc7H+E}kI?=L?o3 zeTbweE!X=h#)pT$;9bzk2p@ZCCpwP=`vQ06%HEc1d-Z(whp1lP?oWEH{vSVnM6$H) z${Qk%z{EF47Z)H)4MkX4X7oW|HE2FljjG2l5l{ov*?mfw6Ij+$#*{zbAXueH* z$B~f4ad)&0AWNz6Q<9v_J+`u=f$M$$h5|$K|KWJy|5NfIbd(#$q@<+x*y_tnzkT}# zWx}5VHHI$qeY(AFD8|1|ojPS}`!Z{bK-0T-?@;DQBjV#PUA%aC)NZ#U(H1c=H~%V5 z@fLV{kQA^|$x)&7)hkSt)O6gWNl{Bfhv=w35);sE5qa$~s1Q&H)qINV?ddn1(VYjMJ8(LWWyg*k@LOeO@)YXXjOy&3nVNzvkV=;L*s=BJD*9+< zKz+x{nj!ECAP^rP-!0!;)H%VvxA6Z!9+Kx0le~)d$-=Q5)g89oIuLY6@zklCT}F*4 z*DK#HWNF28^Cuw%Y}>XidCuy7aBy(h9(F~p!c*yZgOaA@Tfl;Q#ZM@ne%?MZHpVj< zR775L%#_|z=#d)zbFXU759aiy#~*YG7nsQ5Qvd;~l@hpcdkPA*t(7Xfm_Z}cK9ojJ zN$VQml9Ja4S&#B5+qg|fuqe$R+zDQ=W5*pe`h>ha?ReuJ${c1!Rig7x@?Q}SVqM}S zNoTzGEk|aZKE?$}F^T64#n~_fq$w?T>66;O?bt+PesJArjHOQPrIYnrmi0+DH`2Y~k%2X3>jr9R>+8k} z=GT+_VcXca@c;YMu^V6W|58c)A1IcNdCnv%0eV>=%2SZek;NWGM1248gA!4~$Vm8; zJl);9#Kr&l8dK9_RS^#!%w_woaudkC?d@Au46Q+$6cDgSEr(Z?bk{DmUBkn}5C}fP zB?5HFekgU1Hqr7YIZ3PDL3zlsa0$Fu>FimUUYG<;2*)uPGDZlIPtcxm2YQA)P!7dF zX%R3Q!i5OX=3xGAVS^JJmtlHNm)>t+IMElL0zJsAAbRvd7X3ee9`VPK$TX^4gP;^Z z0m^)zO_9?V$$6ueDobn7zr+j)8pnd1>_ zq@bqOx+T!<)4uU_Q39sp`wqDO+JiV=)y1(Q`iXW6>yMkE204YDl!F@9q)9ug~O`T51Zg9izJ3dlG=ip#femtvFE(olS( zWl&QXXlOuM)X`Ld7KwpUe9|dWd)yi9?Ek=!K8ziq*8}Pql~0fBHhS%J4R#w0x1Kyn z*z4h_1Z;#4O9vto^BE{v_$CaRR-mhe-WOWI@PJ}9=TV`cQ9*nyc|5>j4XlTcM6ZuU zMy3z^w6AX+00Sx;;WPlaE!@8!MbRM7L=pL$f(4EtSe#<`E_n>cyY_m`d;l!bD^F)> z+@P%>Y^iMwaI(t=LYc1f{W&!B0W%KB-cTJdA_-F>04E_cV_o5z;TiKFmgr5NuCB5j zrWwBDGl?NH0Bp>2BSJsIss+Uw+j4&RNi-y*cxi9(BS(%%O0EpW7-^*#l{mf>kM*&?p6Y} zqNxe!_+xnZsA4Oc!#`UReFy9I#c!?sNBc|bt3-eDHtg7c=I*ZBIdEBdN|5Nhtm#d# ztq=OkB(d#Ar5GGrloB_$xIE9iG#%jY59z@Rxdl2;U~sSm?h2AE&Hz#H090JjGB2G% z`!Rq5-|!`YV{hm_N=iX^GEq<5pRy_9x?8jgp5|n#z#{_5<>Yk-(iV%YzV;=yi+n@m(+!mXYy= zyC#wiQ)d-$XE_MqvT;4c350stk<}0-`1GEHC`M!;v>RmUoe*PZR%}I%4WNK42Gd;o zW#KPJb9T=m(T}yY3aLymV-=XUFs`n7&wLQMbm`J;Dh!0`#z!@qdjXyhbY_X#g+?VL zNJzX@%>Gk<{?Hz~jE3|UxR{ZL){zkbA7#YE+&?{)i)3>iX_e!2$4JH#*S?!xS<(=l z*kR8Rg+~#~_4e)CXs?^+7)4KuDbzI*meYFMI?IksPJiM72$B6Cjb;(N;A7~1SlAt~ zEYw?@L8gI(^8#^*{U{7}_w?j9s_6Nx8LO6(lysPxxvHgw|JbpMr6J8ToU(yUP3M?v zKpSP;rY?)6eIFZ>bQnClQO|FfHe9}S`uoI0FQOJJ5K1FJWKY7o4TDVd);m!0!oywd z?ST|ksex@vpp^i3!BkP0A&v#JJdd%7QuFBCi--`o`hGY5PP{I}?W^xY#GHQJ zo6|jvB8u#YjNF}Vpm_Eyups14@qrTtl|Gk9RnbWHn>3HOUgNg1V6UVUv=+MihfH`m z$Gjko!7NzvyY=45q;hMJhe4U4R9W;tY)sVuIjq+hRyT=a_%kWr8c1Eg&=L-+T*6Z* zB%l~BvY=36)A@`Pa4rG z+MSJbn(99lDzC0{b3;2K^h?fZ4jOSn|2ZO_wn;IP=z%lWV8Am(^7oO{y#+?J84JjA z{uE#^eAexeY)~SUNuhmY=Z_&rZ`e7ag6r$ahO)RDeqbq(;*p!|VG1_ZlzV_Q93k?k z`Qnj(Wb~qpjEv?zbXaQSdmg1LzaDKmT($cPe?WsWci zEMCg_A>(QXiZBS#s_Dar=q(GY^L=n$J2KaxVnwMc&uZgY5Q7SmTG@uH3xBSTo5CVV zG!n99lhx`+?gEm*@lM7J8iJCH3K~GcUp95CJ%cMRWI?5O80B|55yi$Z=W-S7Nr*wR z8GtWvU_w=PZNsSj<&oCp>7t>z4Fq^2prMYHOEwV4wD#S*Z?Ei6U*K?abHlCH?ae|u z#1l<+(+i&~_0rOMK=A|Dnyr)j1N{_aC0HT>3?R#{Np0gV|J(XcgF*^VRzUv}v}o~` zFT5fEJQT8LBdM5}Cc$MZVfd%iHCSMAtiO`r48N<+?q$^jx@O0kx*sO zoI{aJ*GNaj!H`FhW&3Zm2bFG}PF5?t-sc1D3MvSOj|wrVqNn$WO%YS9bZAGEcyBx{ z=gqpK7wWS$gP*gggoNv82hfWQw5MmEpfh=RcwmR5SXhi%06EHW>p97~ofE z4#I29=`V_{M+t(T<`bSO5#N9sg2AFFbXag906q(gi-nNL09hL3d=OTEJ8+XMbX#TP zAp-12kD_Um0|^$ruSe3}9!PMZ*?Oek@pKvp55$OsnOQ@|ug__1kSYq)DP>9d`Lp5N zM{4DV_KOi>m@?6@BZB*}c`mUuJNNEYQC5aK6tDUD`Is-xIIIW`00XYBr;sl&2_xh2 z_blV@LSSCZ%@M{M__)qZ4vmdjw~>w7IXlCdw{m>wXucK6n8s+(`5-=%%_F}!Gd}yZ zzI`%&Qq0CC!8ra6ufeB38qK{ozU6eRGc-oGuN#ot>_~67TuiW^p&H#v-ns8U_Jf=t zm{19OEC$NO=kLCGjcR#)j&XE+eEi3cX}K}wjy*d$R#Sv%uSI)&CezYQW{hGCYZD&b z&9BL`y|$e%gq<5RFGdb71zo{gIIeUoRbDO0TS{!S@BWEFuEj3*f4(Xr@A&pRHuZk4 zze0ZfLtmA)?<60+*T<#?6tBNyV~*oZ-@cvX+zAz2Kaye)Fv*)NNa{Im(zjc zU;wp)lo<-w3$2VSx|sGTej{mkm5v{8gZ}Xoq9fE&f1-*JBFb9z=@DaIt@*5^gNkCTfly?AeTV`HO*5PG;0689QPUcC~s{CxI|lCtvXxSuf1 z?j!fpr00dvb%S!jfNq$$W?ZVb8T$SE_wX=`w%U4n zzsGdA%mrh2Z}$sCj*E(kk&t-YfcGCfaNqznwK%@$gvG}AI=W43vh|IfHf&aTRo-P`^O|n#rF#=v`-JG0QJGviG$TgJ=?KNdHC{ki7o) zgSLMC`ypIO|9L>ye;(fTdiduU$qn(sgU+T%<134#QzW82U;4~5W=Ocv~*hG1#8~gBR1i%5%7{U~SQZ)VdZ-EXE zFdghKizvm294HM|yonerpr-DC@NkJu6ozwF7Mt#ZG=CXD~NN zE2lcv3qVc14~PA0aY586_@QmpCDYS8mPo@;YdXrf{`p&a;t!ub!Dj&rz>^AC0|Ekw^#ihku#ai2mDN>WJfkEW%WWZKxebKc z8I+l5xc~>kn+x+$(9;6jZ%df6hx;db_UW~2*Pv+P=mIX{4TPeN1v(%%(vkHQ9^~^! z?rV+V%}tGs`mdeR9t3=Pk-ijDxx&uO{Jng>7ptRhZ~q5O{QME96E_M8_C#3PF*AW# z5yG?u**@T)p#>bn-^^Q@o5MmvB%!b4X=PQHNy*8H31&D8jP+BfGhVyL!Z85R;m+;b ze0l|SbD5}?mavt91<(o@`@1|ZD_gLC1;{k684vq{JP&`C*)bX}X`_t=JoMae zs{+8peo9KP_HS^UN@ImEWz|tkB?m!0w}P0804T@Q3FzCx9hsG?ckkHYYVyoTO1g|F zILL3PLB)RTSWZq3fl^^$pI+BS+HHF&&{lN*eXz#S6mCker;1yauZYo;QRuhp0oo%RhgP!1eHE;l)A;FBQ}= zbd#FlXu=IZ`gu8kyH08P7_k&AqA6N!d?ymR{BUXqK!RB}&@wsEzdx;2m-V~E+`USQuf z7y^9=D-jw;2tbf0AT+~L-*&8RaA;^~Sl9%T0x*kB9~_tMh!H%x29L4W`s|Yq&NQSj zSVXRkx^e_XMn#$A>Y(9{<2478JOAs`X;rGx30_E>pQaB_e~noLE+URUY+zq*TaRH_ zk%wmtHVi!*7KpLLv>qUl)o!zVceHHarXl*PVHPEnqx0+N9utDj`;hQYh*H&G2hQUjRnAW!5jT4_2 z7O{!s^W)0Obp{t^l2`OJyKh_0XB0Ia-0VujkXf~lj_$Q}R~{^0Afc+7?NAtzy?z&B z?hP(V1nl^(L~&=OGlXg0^P*-uFVp+FMH_m;rHFURtuef(J0D zoq@JvRm`Q(P`5|k4x>ucR8(7c?68_Q&}@enZeJ{nTX-5(AV*Lud>asc2!=p@f|ws8 zA+bHVgH`lQjfo%{k=7Uml#`Q#N=ytSU@AQR(WBQEpI9_Ci9u5}>(Pgf9* zMN-DXajs*X%))*3h1tIdBOf}j*2-v32G${w7CfP)4rYgOco%Bz9p#c6U}U!B)KdfTGl#2Fsy;5k8vl2Eho&;d9Nig*U{v{`azgYFnWbF)t zun}CRt|DdX`U4*$hbbCu{RSa1u`X-jJ_tV@*A5n?ezpDf)O3I5&M`O&biKZP z7AXs*4;zmfFE@y3e98zA(#~y3?U&=j9Wiyb&mHVxydr};s1>s6zZL`q2WtYCL^1a> zcG1lFGpbQw=mC&8<>g^zD?|$fywGQ=YR9;s(j!z8{rwz8knGSIhFa9=$|(JeL1*IrrZP`#id}_SQBsfW-B`sWJp+oZ!7*F9cN^ zS*e>(E;cGkLru*A+xXR{Bo8DEk?Wcwx;Er zyFHf&aN%O~llzG1<}F)>iXT@)_Jdyiwa{uFZT+w9nS1&uBEWu?OqbtTzMDY)8&4MI zuJO=Hw#-HBTO^kM*n9}$Y>tF0v`D0Rad3WX>oGWE;V>z=@^<@IDXoo|f03{h*MCvd z8OIe{EW&l~(IYMvEKL#PC+hwj{hfr<3O-IKiV=z{Ym7F-u2qxxD9X!HAwW;<|C+E}`H^Mxg*HD0^-kvlspp>6;)J%Dd{WD?4|xi=yN~R6^tAMOJ*8 zy`$p{9_hiw)s1VytO%p$m_VsLh0E2`1!oH~Lv2V<PlOMEOR)gp6upBV;2<@1 z(bZaVn_cp}T0>`P$I+EXyl6oE1?XV20|re zOhv+0dM6PXLZtzfjJ1u4B2-AGL^G8J6|v13i%N5bXp|{KsPnvQe}>=h{LXiJoX0u+ zvp4G9Yq;-quXSD5x|WlcUsM#PHlC=CW7ND;)6*T-CB1mp>h2pA)igxc@CBnzJz(IBgU?)K}-`QUocaaLH{rX!a`UTi%;D)c17w??EFL#m!tke8dRk%QBri zcMlNgSYC9Ro%}Z^g;}ds#e7a6-MO~49icV2xnIs2QV2Zwh_&`L$`u4dcC$)OlH=T+ zF0HRLqG^_yTmXVjl9@rolilq($QLY#nQ3j-!;UD;0hp|@$jWM{ipT>96r9RoJ!@F7 zAR1(%oTX~puI)c|EN19*1TY>1F1vfZxGVbV_F)qB{^Q4*(#zj@975endO`x(qi0X~ zE<0g{Xl}HLo=D`Dvc*t0CbBSlOV;0Dw26C8^Gy>PzlQtC!g&;SQfq~ zhvf$Qk6u25w2REZ%q$>1{X3@_S8UxEQZ=;=|)9U3q3S7rF5sh8!G*hEkFXdgBn1 z-vVaL?%tqx?RiB-63?2P?!=bHVdKaDWXDJ=XsygSV**{-zDpll{of5nBi={fM)T`U zoqSE02pCf&x#}DdNF{gwe!R~(&kNUVr~UCqCO%A*(8ObLTyel_%=-McB;@$x|56ya{Kr2S|l!^M~+k>vg4DEPlH={@b&`m)beq)1Cw_~<~C~&N6`J|%g{3R0qLr1_bNsRx%5fc28=A-6sCz{F7 zZ(t@#HSZLUzwj{hOk5dRE8B#sirnZC;-}bQ{aRL2)J)Qwf|0rfWRA`C%}p-&oO-;R z?BEPLLwkd0V&$hDQ(mWA0!k*$k4c_c`y%Y6hRDzE)6DB5~`QpxAOz#m<9to0@+;251N%ppN{IVVVAc2OiOGVc`O_2PCpfM zHkrBki&|IJH!oj?4HYgC;vdt~)A#M$=fiH!E$UELQDLX0fJa5B(zFU7E!rTxLX7AH0;PMkQAJ`cIOSy@pYgXswI?;Uq{2gPkqqj)QIE+IGWRq`5l_lA!j z!KKtRG~7MZ14kd3(SF-xLwdT<=!PoIs^I(gv}oSNFJiNmS5ypEfw)+nSWxiX;^DGU zkx}HJ^|g~!ktpKwtD!D7V z%%cYdZKT|@63W;2Uvb;Ddz4SQPkQ3@)J{&fO~ZV$@BUf5^+aOZ)J}E%@;-L3iQBcY z(!73K%%jVGK30YcR>ZFJ=;3d@$t@#sN@`#WvIHpQJP_==+B>9rAqOxh%knzARVSLd^naB=S1U#M4~kD-tbxnuh!HEP zZ09oxtL{ADSIv^-A`Vow8?0J^tu%dEupX9G|NAEzDqbNDc6R)2iXoRE5FWawRsbV` zq+EC~y?ABn?FaUq+NJlM-ar=1*W8Bx{Ugr2u-b{gIDSE-1ueb5yZXmn+(e!j?bcJ{ z)NHj*LZA-XKmnv0YS-JNVM1&1B{A9>=KpMnu7$(~Y=yIK=8z`>H6YI`=!wAR3J&yl zm*wQWe2ff+GZ9wtJOV%tB2iX8-_d(jXP=o{2kPlumL7AHy@?F_ zHkU>=i~heuyLLzuT*x2TylU7b=VD^2udD0H$>QI^wzo(4iPPXPc)dKM?;IU82RP+3 zZI9on)aCtd9W7lVUd2_Ly}wSi8LFnH@70vya}hvomCmjmJL*c(Q&>+3FJKX3tR{>c z$+;txEWgJBT6}-<$3*Rr2SjCJ3^&2aBP1}Xu8RemJ_?qV^Q--~#r!zw0!`L@J-l=0 z8Gs>4JpAp&zPk!mZ2_C(AcZH%NnO1ZmYOC|&T&9{qz}~2FP?Ur`pbpR=`YSfkR8U3 z7bv8s5uK1Qa$C-xWf5K= z{Y@j&Hnad!ViExZejz2*_;0Tcavvmuv=hDueuc57fj}wtu+FqI7cYJy`$LKKwr$sO zCx=cqHogU#B7OlS9*u%N(+mwo%M#WqBeBpS`bs32#x&C&MjuMEaVMD$Z7*~#dK>N& z0~`U<2@{DU>DKI(Bqt@5QylyxVHT1ko2~4I1{!eVJXaX+>t|CJ-w#e8S6@!*tt|;p zM04+`Z&?LWuDe#dyT^KDMnyT)wQu{h{~+D!t)C@jMMd97czrYF@|u4j;6Yg*yI&QWCSVbLd#OO2-tJx@Rb+u`#60$Gq}gjF7iuKz9Vh$ z@p<+7wZjOSkA|!K135UevlTf=%7}_0C_?<@e)e%6=N;m5>h#d86U{$X6e&<;fS(zj zLHaS~(nhh4q>8(-j!uU6JE~>%(-W(7bfgv?J<#0Z! zB1`H5doAw+R(h;MkgGLhPvfN0FVrn`poC*ZVcEX?H{c z;2WH1rOrG`cq(%c{o4#=^j{ z>)syoal?al<5=`U;3`VvJTc|`Ou#~lSbSmeb$aoP_x3S6DCIn1(-cFFsSG4v+z36J z6f4*~jMmc90tLk2V#!u&<1g{I`$cjLhrGZPBm1k_vr!;x|-o(CQ7Ot5{+=rw8qF zZ{x4p&NZy3F-0pddKM?%gJWZ#D4dCkYK5-GSg-2YvU)mP($)9YKj9ubGu>V5dqWLe zo$sDKnaxcbi(V#2wlOlh_3RPA4JU(G|#gvGk3!ZNPsNJZMazbtQ3%K>_F$l=p#iVFPf zE;QWe{>P?<+_|KjMBYu+k>?BtAqXbA4jObrum3VUHNc$s68o*?G=OF49ss0C*UVhC zrSVpHn9^PM8Uh~m&8nhg=(Z6Ux-v*+zyMpyghGYWzNg21dOQWvp4#08kmc?&VVNWm zUhxFYoG9iE0KZ@)blLr;v^a){;-`nAV$dTBAprrJx6|yy`2*!ciH6!JWmN&DCgGb~ zoQ9;LcKv$0E)c>tAV4|LuUu9R3r`MXB8UTLMc9SV zQ1mM=JM{Ckt$ch6G3@!I`@qB&66sEz1>O2qEk$0WsWQkB6}jvl7!lHJK|E^TvIqwM9?Joxqyi|=ky z4G%uWEe%~`b8oBbxdkbCmmXTX=!7JFdzm|@r3T0=Z`mIIMLPMvS9JYH#Pt94lQ`ZU z`nPel`1gk(&KSrZYrp6`khX|3XI?=b2!;3AYLQ4VN4bF1MsQ)gO8XMkU zzIJ9mw?IADNmKj$ZQb%;W7k{DH;4Dx?;pxMKRbM^zEp7)C`66zT}6$*B>@(}$s>2~ z@i}p@?IrpDToTae*45>M;_a0^!rmu$m|eHX%HeYJ&(mS0iV;iydt!zE>6-Y*T(W=3 z9{#7FC??6N%SZBzZuZC zON@ec%jTXfJxI52_~vjg6v4nL3vc(nT+&I##igF)N?8BBpYy+cFZKx`fq{cn@Un=# zhxy>vfrzrAMmzrdx2cb+-p`5RGtJf2m7r8p3kt$_zJzSVdTVt?#>+n?Ny}TVJ8G9) zUzzM~eK|JPUf8sL{Wq*gX)4@|WU19S1cfRL)_v!n{^SBU#X*Y0#wd2#N#^k8_{KOw zc47K|PQW`!s6qrcPm3z7F%~J9NG$SvzQfyF%CXI!n;&r7N?w`$Vq4bLRAhq70?y(?`6EfHYt zvKV%4u}+AvfCidIwnU5GGuqlQMB+Rr$K!8PdKF>NKp_OSWjIJv^BqkZWKAOLhB!kb zuaP;kEx>LFMK8*+|XXRY7Z-S&uqZq1R}*s+zZ8_H0csWT+TbU-)nFgI6qGe9C8;ot@2{GG4 z&dnmklVF3a&>1UiEx+G-`}(yG@^v|rS+nwd?bmPTT)x7Lg1q(psj1}TK=NuT$d4@~ zn_-=)b6)&|MgIMdUI7re*560eM9DL>?yPqD;>*54J0osht#!yV0N!~^PJ)CWsnf9b z+fHGBry{t;^yUoCt{++4?a*9_-_)*B>oOeHMM>)B*3=qExdxv^tFYwP+p+eMe{w0p zBWc~4AD|3IuTaa1HsH@c%WO5_O7g4+{4Z?o`0U%aS5WsAKKgf>So^WgT6?(4ypc*{ z*Sz9t!1}XqSz2k^=NLBW>qmzxQt8%_9gdHXo<&`o>#-(Q+(0imBeSL-ZzdL5I<~UX zDuM@1--QEh-m!pKikv++&EKaEy!dKb!^3vo`jRAl$+!A59<9X=8v3$fjUzR{>L+w*5ZZp<)sb3iyOTa>yKe&M7Q`11Pil~_ zuia?0^<`evp>kP4HDml#LlsKC455R~?JH^;gh8X1+~^qVt&@MTk zKdX>q4CV+GeB&ZNou8j)H()zvRf>X{66FGJ0J+F6$&K5jx{TFAj++0 zm>Qo64=*^LPBDny2?%fHlcB05hm*nFzbzg06rI*O2JeiB zCHQ7I73s*WuS?30DUg;EJP}1LLM1DOmSg(ZO%4q#$Yc(uQ^obVSpQKV1Mf_~f*KG= zID#aWmP4r4$HI+8`d}9$iJokBh_hkO9a0Ct07Had|*{=b{`IED+|GK&Jp&i~S0mr*xl52D@a*>GbrCyy&|2%jYIW zMd3vJq3A=j3Yw7=QUcp+zsRA*TK(!)%L8@oKEv!%I}L4DMCF|QWfAx3jOw@km7JVe zkBU>f`hi4P1L07Hkm_%OXk>Q?L#o-Cz@(jK|&IXgF+6ETfc^vo-_)v$AkO##kQ&&+D(q7 z`j2|WQk4TBWJb!kYK`5fZah#9u-Aq zm4FNfVMJYa*loW!G08Bqso}huWeh3K<0dz!^heX2o#_ku*i2Rkn0l?KC>>55G_J3< zgT>9u3eFbu1DB*%tbnXtfFKjL68Lm8%byYqqL{r@Ngf?HFgLA?j>KBgcIw(_N zxdtyo3HrCTQwXF|mG-^t`c_Bz+Um}Q7JKl?1S?kzyhPC%J24ZpYDyWl_1!ynhH{V8 zto$lr&zf#*%pd4nqNVR6oro2$U$^hjf#P=!0))JF>dsnWhV$<{@fapeMoA{Z$vnamVl;{m*o%s^b8^J_eRoS$KdGd}q41`vul-!nK*$caMhy8UXI^r1XzYWDXD zDXG!4?$1rX=}>fI_yoNx9#ek#WVazdUOVPm!hj4*mC2jS;aN*mXGzS%kECf|+7C*9 zU}^WL&3aPjBEGpCQ%Kw9wYasEuHWml#6`<>l48eqBuc`LnvM|+Ay($cm7pI*2NJot zfZ-*tz_#kL<`&BjLg&ObR2k)3ew9-R}v zr}U&uXgDwC5ot%U5m>96DUVdvu#(7yN)wVDZZH2LFDMwY+C6v3y_?_dn)ocQyS#j4 z?y-;%hPrJ0xKUEI4M}V6@+`E4?(bjREIixY`Usmq%q}%#d1*R49h#nX^LdB4HCD^S z6cDM|^#X_TSaiTh;94pGi-Gfxv$;R8wveh8*~uCX($e|_Gmy81a--Sli!;xShwmJ+ z@4}ueopfcPDRP_$hZ@o1my7AfA;IpVb|x(ydDr=&ri@{i7wa zq*x1K;6bFURKI7Kzw9uVDUafMq#7Qwxzyg;*{3_ae()2uR?F&{UPihco$UG?-9cTc z!h}t!d+teR4$CB6?HNXGdIVjf4;{|>=JS)5CVsp#aGww$vL}0%>9P18Ji0vCNo_Z- zOt~JDP5e#|W!qm2il1|x->W{Vg?fxwr|RrHdvM{p`r9azUf)!mb^78gqsT+v~Oz zeZDQaQ|pLu?+xd6I_?0E&kb18bM9!;(}tN@Wh=YyC+qXM!<*_G8Cw`HaRWVrhbL)WeNtfrWJ~|~(i;vxo%#$cYoQMO7kd|H~uYGV;R6nc67Y^>8I8HAj;f_cczZ-D~>qa}Nw_ z_;t_Tmec&LR$)^lcYOX+3A#vBs(fu>6G);y6BQy4>qE^wwrtGE{!J-mSTdjDdxu+g z2riKg;1%n3yE}8`-C*>}M;91U|54wM2qmtiO_yh6=*?OLpVkcMogr9Z&*=12b!WGqE{x zuuKaWPF@4+{B{urV5|etBn)*|i4;95N;v(X;z_cbAY_xGhMb;Hqr@@3owM%vrVn?4 zDM(G=W+xYos~}{)eHwXiV4%goYo00O+0uxk7I1QcYiLsG`=4)AqjD6g{=-8@ zsbJB|{a5y^|A!X9_*m-Q9ibFfPAO*T&95AzEsn$fz3AdI{f{b2Z!Rx(M63%KijXJO zld@Y>@UOyg-_n_mWIR%yPq~V-%GTC`lhbW6Y|^;e(tt+;R&c9r;-X^Oh<3KE8i%4|_x@DQw?a|InfJ z0v}RV?5YN~h2pDx zIWyuQv)_eGz zYp73sPs28i~QQ* zgnB?2VhXX#id|u*R4bcn<8K?DA>*ecaP`pL&_GbYrlP=Bv#+k}Rf>CSQgGPn@n4D) zQGl+veR}Skvom)4`SlDCp^?Yj^6UQki*-Lxh1|KeDCNBPbwsjES3N7eE^X7Q)X8o=Y{z3~WsRy#Ix5isP!yte8csbiwnd7L=4v&P6;PT)G&OV)0e2&`IX0-dQo4jj#WMob7U| zN7+`Hj$<5lu@!4#Xp*W!fOn6Er*4o{o+1p;uY?hSSwlx zsWmURO&(?Nlj#re@jLl55L_heKFORSIb2CEXNYK$N4+gSQt8d(B*u@OCifNduddP& z(;hg{`@uVw>|B&j&!H$xnISTWy-jV(=dgy>m;c$Jhf#bG>kuW*I<@heTLmEbTdp|P zM{WBub>*=!nwXo1^k%T>p3iM(#+#GJ;2`r6A@IDabpMNb9rl#GRh-{{$>ZL7?-Wjd zi5si;?r7@L4K623qwKf7q#78mruMO+!Oz#X8V6Y)I$lM|MPDRf4Q+1Ug_%2dF8mA0 zI1%8kce>H#M=)wrG4qyocSDXxOuf-sJgno4a`E~;AKE`@6gLlMor&WU%)q^@EVR{| z0R#|#eQj*CuHi;-Q@Gc^`Rmkkn|$@w@(C%W8=@m3ril-w4!UCfTax}7RDgGi!+UWH;0FZMpYd(XY@*rq3B`_HoG zpNlLlElG~>$5}G!i11+s3>1$*2;rFWx_Y%-0M!;aj}yfi@LKl(&R_BWtO3%RC)IZ! zJP@-h%RFC7k4ZV&6c+KwLJ~UBYYUqJARc>6r5-&7sR(@++Gnyf;RTW6vMBZyC8v>) z2H~xh7<~hykMGZ&uSEM7_g8o`v$%5KT-0kn#cZ$_dq!CAd)&imo_Y{Z8#C+SbZzT7 zU-PR^2Juot;1pdMYnUj0ekr^s4YHGf7*otrr z2m}V2?;EPS+Q6)bV^AaTPPc%sUp*bi6L!IXOVD}EeskjFtedxQ6M6-dD|Cq{0(uyk z^#}*Qp=RzCAe`r|Kad2fbYlYMyg%Isd@9*ASLxD3t%o5Io@LN+u%|8fdF``ok5u)U z*|;Sl#*`CSebRf2SGLj7UHuX#+&DSHtvqRKY5MERtI^dmHJ2AxG?xL3Sz8wpG-#7e z+SPBvomD#e`d8B}W_IsecyP3WU*144!fpY+&9;yvj-DDPPjiMy44DMwqCY6dR&yM( zM-^UZrd3zC3K|W5#{9I6x4Ib2-6PcFUJ^pDZ<>n0K`sD64gg<4zx<|aWTDpkR(iR| zhx#puO#d9Gx5jJbF^T!Yg;yvV(aPaBV)MQ2p`B+}<|2Qf2*!+=t=aU|FH84Xb@h~& zFJHDQ_Be= z@{rfB^T6F4<(+D8(IPuvtZ`h(eW%eOS?BMlR_M^ZhtVtAczXxXeF%{OU_>w0eC{%B z$xUC7?v;Mu9_EoTf*&z?>hasuAg@pF-)ApG>;Pv6jZRmwmpB}!`X8gKrwsm%B<QGIyZU_EA(QdC^0G^J zy>}t$*EhHnZwGh=WWaM?T?M%#M>jV&E8U^&%1<;Yf<=Sz@wr3gjI+@X(Kk!Kko%z400{ZuoE7CrwRVY_yBPWkp6kMdJvbYb2VNUd9Ex+GK4)S&^=Y;js77~tC`=0cO&bnqfx4*)Qe~U^d+n(>KSABW4DOF!@(XqIq!lDU@r_M z?murXD$3WV#LeL8k)!_Ql?XP0CULGW65|7ls?yNp2`Nx1TgsDCZVJu(>^Dla=KDS0}fV)vU*i`O}yA8*%XuJstuveSAPeXEW>526uDi^ylh z2ASVW>II5a^6l>R>tP6Pp=m?49fRtQPMPF{B*hFX7pT9w0|m&iR9@8AdmUU$_hcHz zWlnoyh?bWHQ<=Mr=K3pO7S!2Avy#(6FA>FAa?sByGbFrraLP9oTV1+m~{6Y0f-!U)# z8RVzBm8Z15ysm*$P6hvp3+7EB*KAYCaLKo-jhZxM%k?RP-h9 z0qJ*796ASJc;lAC>r{!_qvC7rgc@Y*3l)BvHy(a zGD@D(*&FkR>%Fr+gTltLPW7>|20JT*3rD2#Q0Com2E#R;)hGb+buKd5P5&h;p=W?% z-IzG10B!iJnqKp0Q1Lx&)#3G#8AFWBK-!&MKDiIa%VFHO;-aFBtY|Wm%VwgDJeH|0 zWQHEMIb}6k3?)9rq`zss&J?6d78ZwmD5%fp{GxR;YR!e*++DZkwdRaR!@k5Bagdr$ zy*wtSn<|Z76WLstpR)v*?psqURd236({-rK(h`MY8K508MuagwXuF-`tqgB0iC3SW zTnq6+9g>#atHsNTNK2pNit(cTH99H{rmn7nyj&v5)#;LXkRFS$n3!552tt9s+V0{K zq?bJcz!1n06EiXv7^1m_@%eyFSICUBT?}i@=8F6c4%||u$VQvEjA6|B4k_J!p=;#%*5cp@W zr0!f#q(y_aZ{H)pmow6@5=ke>;Dl|aH(|_%{3lO7l14n;vXD%Q1UFns>&OgJX8M@8Au$mye9mw6$?4VQKToYL zEoR&W3`7A<)*(Lvx1F_$WKTb9+Llyd8~xp@w#0tYq1@)?=C#+lge15)yx7{=+2n|| zeWcyIxX2?`&X)oM=UW9`x;Wo*_$$i@d*^vaEWh4WAH3tjO)b}U%jAp-eqFXperJu> z%SP?yZ!$ht_jcL#=(a}c>jnAiA9d+>IQY%6XyqTSI@=XuI<`%nr@0}db6d|6E&uGI zy@cbsi6ILgg(~DcD0F~{DM~zwSC@r_TiBy)a3lzK01IwwNN*qO(c0zU_pu*5nH$fZ zBP;1ACzlO4!$8Mp1qFoZ!#TZO2Le7KoNA&!10uepxR|r}8^yZXcTGt$LB6vVR4RoD;MT--GaVQl>Ml=G2ImzjakiOER_K zC>6Xahmx`(q0hy>^>>#i+c{h{yRM(ft&kl&zR`NsQc)KDO)c1c-Q?v9xYP}mtqq68 zJ7ia^8CZkTK{2^_6%uVSmI?ttzN}a)iD!-{x1EC&3|p}aK2i7M7cZ_ z;s)M?yB%J#w`y~1jc>8Mx?f+=z#5PbnC^K|t$!WSc1~M=iYK+IThNrqt_vU^4u`d3 z(caekm(A0u_(8JFyB6IkfF2{~&J;K8eJl3#>Aw=%T?jCExwN{AKlVS$H{f~ho3)HV zFHg2zdR=3L?eeot(-^4SN!jX1%Ttz8zw=bSFVCJyX6yzUdbCU@w|t(lkd7uqTd+hd zROd{T3!6N$p$-Asa>lN*JZ||bIRo^TQKWf zq8q|_E$~&Iml9e&dHH!Wm!9=(`6b@-|5W_g z`s<=sRCkdXV%PeIJxkmF?UKFWU++hwoYNfPUvEx*^8eBJP&|8PrF??`dFa4_C2_-B ze>Q5_PVXtvxepJI3ogCGLzp&aiC?cXKLldI86vv`*qFu??fBMJ?X7x5 z!F3a^0|p(FtTzJyUA;O9bCAz<8!I0xb80HzAV-;5+qybCJ0Rj4WD*qji-fo(im~m& z1(p%rPJz-eN@r&rQQ6L5iIM;Q;S18-OggS6Ik0?k7R=GWhupsV_tte1aUinIu2Exo z1Lx8vtXj2QmJ@x*=Ts9B>nF~Wg&&ll*Tm`TbGCpVjyY|!!&!cL#=tE7Yz;<74hsgtKbN(xy`ZWz#2 z%*WP#!GcY|A_8xsQnD9G9VCNVUUg4iJ(eA z9fsY;t6(i530e>|XI{tm9LdDslBY}B6o2M~2fGJj0PE1iKt^<5Ub=+&07k=`$f3~2 zk|MuG3(U?w^qG41sY6o3qBoh%O={bprLGQh|9LwseBp4Z6mpde!I3dc4m=GoN3dN0 zf|TSm(4_Jk#bL&RhKyOyx^%IThNoKR>KgIJJ4|NE@GvbYi$4z76?}@Okp!AHh0NJk zW{^ENoJi6Wa);Xb5~f0Dt*BD9HKF!nniliZ%VLqxTcbb zh&9^NuP-|N%hTzga*n0C6DBm}Nq&hIfu8lmMv9|`Nv5>T4r6D0=iuET%fnlhefp+G z)SvI=Q$nnz%Ts32=JJn#71q2c{-`5&M~*aa!qn@v_q*$jqtv8HXcKDl3bMfW`bi!1hkch?N|6R}-p&4j=vs z0Lj!N&cwO1#%!0R-uSI!M_B^~%te$&x0SMzpA#HW`K_@L0S*9N`0KO*Qhm&lC5q6M zj3Ek?M&6kNVt0MBvES#VPrMZ6W)=7BzUuuDWCdIX24ys~0EZx=Smos8@+m{=Y7hq5RS|Fx=32dQEQDy(h>u;rx@e}d8gH*9)RLoV$IiKnBZ zL*hp&$5R9Aq~#6Qq{C+SXt9N`u5#1+nNdlsp>uP3bZ%i`As9Z@?V!PfnNlh|v8Lx| zdE7%blboC^%=ypm4Oz&paijp?N}Ettq+-ig@kcHQN;Cdj6iNLsV_Ty%FQ~VM^(SE6 zj>-UqA=KP~fek!k3XL-3Xm=J>BSjgQRUu~T>(}4Bb&I3;GtdO0oyaZc_wxtX%u|#x zP;k5zTs_&{;F4FWObK;!bb8UeyH4BbZR$(^tffzRDGiYNI75;Q(Xs^+)|bHygc>G_ z2i`7qXdkaAU8vpPx+fb;I1clc>k+dcL?LL=L#&CK7-t1k3166O))*TRK@00&e#eK2 z$L!($jgR#jUAL>*3h=)CD zwVs-q+Mq#(=bp?A)zfA~$-{?n*oU$20n(U4SOFmPvbtKKZ(nsW_;XHlZdSe|>TdXU zS>6m2nD+Yke5JGzVu65w_Y~)hTF;~xu2Jzfv^_6?C)p}iS2nFDPy}WPLW2w&TI`SJ zxt@Rpyo8us2lkFWGBUOkM6V!IXkob5q#Eh9$vzXJF z2>^wea4FK-j`18>T(yuE9@8}|IFMCZx`nv8Z`=pS-E4vOWxPs9xHLe@#Bj33M+FDZ zVI~I_azx;`$ehwq7+#Zy0M#9z=yhdFT7vB9n3x#y41oW+O~3XQldF(cbyCI?DaPe9 z#vgc=`avlXX0n#a@*(6`CAV(9<`wWSV^k&Qo&bjpb1WZh0z=r%0MTvkkGsEI^@DjX zc=jyy(j|E%uL#w~sp8#omZ9RG@ZrwDEMpg1&haE-a!5{<8#2h)=i${lKDn+dbH$Fs zLM`VeKy+kZT$-4EG9A4xPX~&J95-RPEA3j?B=eQR{>#$z%XDTOwTxkMS!N6r8Z zsyWPBmM&e2mIBc7F?BxZJIyEr6c~rDT=V87OJ0z{iSGReJI$qRZ{RU9dh|z9)-k{7 zvc5t0325AHwERMAH1}?2&}10+AUCuq`v7NiV31^CN8#q8YzPtRcigycM8j2X0|*|` zO*9XIG)!&L%yUl|H%4~I=}4OjdTs^@gz02yt7W?7p0BZlyDPmYE%o$IJh2xqe$J8X z*S?M$smjcANaB3c$@pUvUiT5Iv6i&bDJVr24X`|TO7iILU6badgzd9qEft+N#4eia zIq)Bk1f9s<{u3wY=m1DxqO&F7xzqMtUF1hmnzifPD~7o&^qG#M8(@0)QMMwBka!^) zOmNZz#-1=TUP>xuA3C)Y`s;@4>7}tDBs!@yq;L}LkQJ7Pv4p*I(LaKt6XbT5`Zcwk zdBk)9r_;xNj_$)kXRT`)H$%YUr1NwBDnx?plkwWxxuvC7XuKiS4AFCUfEU_(b{B>+ zii(QYGm{jwo34OQ_Zq8$)}b zvAvXLXk^%PwAoCgC}6R3{bxQri?WOsWDj^G=Lr}G1L7es)60y5rZ3fT_BVi_>cnp__3*b zXDQe3xR%c$Gp1mf$O=7uS|w~MDLKFL_wAa6r%xv!RexCNlMuOr=N3KD%>Eq*yrR-v z|Kd-d(ri>GOxVITXjot5c=|SQ-?%l%MY+J7cZZNPsutx}H4`qOT;sF)VF2LbDO^>d z#fmO0rcZFngFPLj){;k>ashOviDomV5M)Vna3<5z7q%_S+XEd%*h>zF!(&km#nSr8SX&if&`j8PE&$ zd+at=nCPRxFoO&bDs|CMBXYYBlzeK67kc*Y&0*5SKo4RsYJ?dLzl+KAw9jJVU6$k+ zoNzpx!<{67k8#L3bC-JGvB}WEGm;aB1ZdH@Crl{5dhOa`PAPr`>u&<4Bu#LT3lr3v zK^d}A_%Bb9emLgRCRw9NsyBp-Vo0|Ts{2#lYzA`5f%%HYFwuR~94q5y|u*8D#StpEqfu>a-eS+_{ z#?=5IF>~#kS@fHOLb7f+?vIaKKT1Qx39N>rx}L}m=1Zr1B9oO;w9ogIqVN8mBSOp3_%SSVx0*-^|==34Q& z1V?cQ2M3>

P7>@F?3na4Az}Xaii!m>!U0HgR;hB}n-2mX)Oe+mx}?W)ap_A66ZmBuff3V{GnF9b3a+DH+O z)~;DpWcrh+gv{TDmAvBq;ZqYGAqK%nDQ!i@%Ri3T&hQyS>aZ)2ztqc&F6;2?uY3E9 ze8FF^Sj#5-{Pcw9)2nxHwKp<~I_lUGu)64?VGH62#4F+)QJFGQ>Yf8tEp?U`KDMN? zbS)5lNRv38#}kr;G<1*&w8f|{y4z(%md3}>l;c5Q=2*pwkqUk@Yy~U&{FF8v?aeg3 zqU32vpP9eu?~os`?1i%l0EYSUZKA`KfUcRvaV-c~;k_slZ;`Cas_5%~=lV^jO*_ni z2!1-FN+~6T>OO4q(?6|+n9<%oa!b}osX0#_%8r1f&Y#;!>ZGNEws)Bx<=(7WUh^+V z`JH_tsC9#)5m;MvRQCNIyM2Mc_)A&7}ne^TyI+ z@{a9ue8OhyOLJP=VZE#Fd)$ts#uNNmF9Q@w%s>|P)y9o;uY~0y8+VNB*XCq0Wsc>- zh0awi*zVyI-&`V@jKTr6^z*%6ysH*&s2XeR66>0mzLQLlQvUWp;WqH z+lJ&Q{6+WGVSg31*zrZU=!H7Z`C-~i-FA8KBaLVJ&h7sB!&9%eKGv9irWUp{sZL>M ziY~FW`HYTc45KW#xh0puZRAnZEsPOsfD6tN-Z}E< z^l-xb?v@%rIWwE@CE*o6bzl&q5IQPTE-QXjEV(+Bd_{3yP)(g5-xBxn66FJ_poInF z0uRRz8l4ay&%~bLj2s;?BE?NZ;>c$vJRHa5-G`YbF4{yf&X0tIQKr4kwSjJU2g-(R zy~6B-VgT+zLeSLa%3^qA1DDqm+3P;E2jGd?3WM(I*7d?BX_3Xo{RjUr= zU*P7Z2S~5KnB8@EgXO7VN>nD(4m{mIwV(3#qzqBWNb9V78GN#8kV!Y`ui6%o7C*Xa z*!qIg+WkXi zldq+#+ZfHPvYaq*yK9P@eD32;*-vw{E&lkOIhMJ9Ni5D8blj+1t6^iT&7JR-ovFUy z&P=U$Uc*jb%gkQ0%}Y9VG+=5XDt+ zLz%wjG0+f66om>4-zsy3?vhqKo9n>;p#GuT$cS(M z{&(;=Ih-gnnl1yZGAPaG)JsP{m1lxxDRH6gV-J$>-4kNj%ITHmP;G+1>EB|%W`N zOKbU5sTgmj0r1^gG_7!Ob)~DP_a&BMvy^PKOe9Z#CK_Dwy z`AGb!!71^C^%TU9Fe<}Of%TzbQ|{#V_nSS6Q|tUxS5e7m*mT?*-{JqZ*R&rFR@Dm? z@dx`azKtM8P7C-(s~k^QOcQf+Z@K2H_Z1dj4G0VrO(C3%74spQ=;NYh;0r0t`30A9 zn95gX6`f1LqN}U>iTdPt%|+Y%mLJy|<)=~pxXO(#^vPr%wzlPnohT9Cl$W1;QiTFr zv|Qqn1}8vKTT?{+OG_VhN?6mJ_MJUi$Ds~<^6Yc@SK#7q-MaPLP8Okw`j)i{$Y-#{=x=*yl$PGZn8 zaJt>s{Rc*&qkFp4FQ{HYT(h_F*?0{zv*c3XsMsI-u`i+mS+%NZ(OGP*PLoQiEy^SV zH1Oe?fdQ-B5D?vBUR0wfWq^M{O2sTl0; zB<5rW1c?e>E+*|XCJZtW3Onc_K4H9t3{P{0%+P#D2tCAV8p?`g@Ph;*HTU zh%5*~2e_1_MfSl=(Us3`?G28)GP6|^0YOJ??&O&#Jkdx7F+RgC-gqnr+WR7xO#Ii; z(^b5ALnG8@tnPU94oPXgDJ@EP@1yps+Dt{ZMNgNg$I$S}^wGSUoo&{O{o=P(F0BZKEc zH-Tv2Bq!IV0j=Yy?3Kg|@DB7B62gly^VWgEmgxmp(!->xr6q?nV6 zyj9@8H0-bfgcN}l%ncduu{;jv3Vh5cPxO~!wKu*b`WX0t1~k+bP&t)7En8Co3Peh7 z9%;e)V%V?G^l(O~eT7qF(-=&d0@*xM+0fklz^rp>Lx)0u&VzCRNFK-l!MNeTY+eMN zs45!cH&DAUIhdwt1yaq$y@jm-0{NU;;75Y-e!H=_F|#=+MxjD6a~3nzDP#}m9)54G zZ6Eflyhyz_?Xa8Y@8>5Oa$)FH05g*Mb&M_nGQSO?8dL#nB9IJb4AN3NzPEKH&lMf&%|~eZ+@^IZ~+)B6F+t_C@d1@Aiw|jHTc2ys57T-e@F- zF!*yE)Ws0-wOqt9>x+E=%b_+_J^Ko^C_P7)!&kU;I zFfy8W{u;~z5+F)3#N5Z!0p5naVaA-m>WP!nM^lyJv-1|a`E(q!b7HdM?B-Dp?NYx- zARbe@gkleexb~WY$Ef{s^_d$U*1M)bX3aZz-&dS`*#jy`gYPq zsFLhGr6WUrnApjxnHqfP5au(DC9|m&MrJzy}aZNHsfYGpv#J z)K(h(to`;jyN-v2EybX7|rl2ub;!nu_5eWUN2Eb zN{#-R!S@c!t^!i&S2y*f%6SC5PMP5DrjXTxKJkn=+y zwevPMiO!`pJn!2l!N>Yf58n{?q zz6`&6;29Z`9G{ptXQ5VD>1j>Aju009PV}e~lsR5#6i;K3{eEK80qNGs zrDre1yR~_(Y;xd$`q0Godl7p9mzw-2lPKo?+P6{CvvH5wmtaYdXQj>M4eq2wS$X|l zWbW<)LrP(Mp@7d`jh3xz*RF%-rJChu{l00i&&Y8?96=n+nL2v38}~xiH1${C)EPyY=id!7@&;PZoEyU$3lZ>pr<`+|3pC z#Ab9}oDF6q*{H3Rx6e9v@6MgCfQ_&j3@1Sqe>nYZnrYd>0_DG4dv|%i=&IRzqn&GB zfR~`l+aa5vj{l4UQUnw>lDF;DklnJuzd{qzJ2R}^56TguysQDCdg{b>(QERFgQnwz zbrz+rXPlqk1NLp;aO&9?y8%MSk?waSRhHv*h}uRpuioFn+mLInn1Fki#T7!FAT816 z-fRx-JO||RMqO5-`&J-`O>YdbSQ*Mmj%_YURl7`t6MY8 z75O!~Dy`y=OcTdr@C@VyCly)hDcKhk07B$bkPzO~G++aq6OmXrR6qy5e~-n9<%D;S z4v(BtU~Um)SJBAf3Vd-PG&B_HAyqKKQ0rL1CnLp=em~MZeQSa%A5S$|W_FZ6MamL~RM&b(=sBhOSzWWzRlSv2yubD>l z9lru(R>W_i{DRGzo=E=wiHJ$b2r@D^pOLEbf;eTHmB-AYZ&VQ_udVJ?u`}&-fT3O8* zc{5|%yI%Euc7-0?ptx(}h_;}*)m2sVAP0C`NZC-H3C^~U=A>`7=Zmiyp2y^q26?zB zV7|Ax(ZRAWsJ=*ncrF>B_IrmrySSj+X(o3k#GwBGaf87ggY6x7+VpJ@&wMKcNF5K4 z%7sS(4qwcUwUjXj5ov)VeAX1}zA zTt`k|5`zhdo+&tvW(uTU+hx^_($dnrywB%9sX9OWrQ9P=zo2@Iee~#%?afyi-Rezx{NGiT!`IprPkULg?RvtY2l{(GK8Z{ZQPVc>>*EgT@20AKn6snhuUz$2 z$~D`D&f>Vnm|_m$$~3=4b9S}P$NPF0`u(vx&&-^dqTjOpuc}xC4L>=O1g4pQreV_> z6aI-7Nd32<5viDd|2cm0U;L)ygYG4SJ4!jIVrTPkVmz;&y28MxxOf2yr@XZLx9FvS z@TNI6XNScDm3aEIb6<;j?oDp$eCes0BV@SKXk+z(}Kdn zwDj~h6&3bL)~5O9+PKIiS!-;+bN6l}aG={*$;VHh)JZE^u`z+AAxV@~VWv1^Y0{2G zT}n&KN;r1ngiDn{)N&HR+FJGP!U5=l%SBQ*sHa)8{Ke&uD(tAd)7Ax$pj8XN3moR+ z*0L8h|DL>IHU4j)!M5RVpv61)Z#YBBa$jrxEoC)6Fub!=buN2f-NqovT*F4nw&(EN zxNoMycbRl8rgV)Z+J=K>;@n!!iD=YhC3Q3Fl0KD)DVqC;r&~Dvw@NbCjs7qS`1K9Q4G=G}6yprPN z7~8z70{+>*{~c(*kgg!9pd6Jo;PCON%CQ5-Z>ja}Cd9a$KhrfuYn0~Ft7ctuTW;@h z<-E!NkFZ2Hd0>g+(;LuEfA8W?-hFgS>!bIl390u8gh^~SbytZpUQ!FbI5fzq9NeN2>B13~IitaQhW28ieB9W{N z8DbfVBqBrZBvO(j!y+1_r9>gaN}6P7P*nSS-K_OI@B8k(-e>Rq*`Lq*_Qx7?-@oCy z&g(pn<2a8KV(z7#@B$O$H1!1SghdlfO>ZMk>e8c!u$5!?}NJC4pv$C@Gtjq67$M^QB`}|p1MFr#pw2NV1ML>Sgx5EzcXvhhKG?r411CaoT zjD<`JtkDTi?$NI;Pc4JPLWydK7KPH3Vwe7mQJ7|;?({Y20JBOdLRN9h?=?v$Zg6Pd zpneN=Hcgl^Wxunq(yi~N`QOJr)SP=vk|7^SARluF8=FRCYum>W7w_M>b4NC7+7Xo* zzrjO?bsb`Kfu8TaeNTQ=^hYu|Ns`(#Kka8fIXTZB)@n=4_4a#1)Cz3()-0Y)k z;N1a4XVz5y+K2Ey@$^Gp0eqphV>@VWBVI${E9BT%Csozw0R z9LA3uht4@D>W5zVEMTuh2~@4eJ0g<-8DQ-WFyDXHq^ZvMe@9LJ8GI2yE4@u8pU^-{ zCta`f75HD0{;?b2dhm$r$S^tF3;QmYWjJO(3>D24pAV(Ss;j9*W&C2b3uUQrFXe&} z(dW}Qs6J~Zj4 ziN9lWry#Uw2&UTlXZ?|8UPV6_hEe(FMF-|)VZoD@qaaJ^`fNH#bN<}J$69t{f#prp z8q(GfMK>{TB#ATPn@JmjU+P%HS$BqQk9II&^U(HbYR3Msy-@4%+0ga^;NCYRnGhsflX$ zfMeGqOV^Zj>1*+zwK~s?d0Xr0L8WgW zutDsGsAAGm-EP7`QEn|QZa!wdqm4NPFbaCu(UuTWLM)wFE{O>DNEY?Va~u+Z($d$7-2uunEdobLLQ-)e)bfc4FH2{8jIOwghG-2Xy_I-kGrwzn2uUmEsu}~6-2PcEW`~aPyBAV^bZiQ4;&;{RE+wgs&2D( zdYZIt-z}D->(rh{Nh$#l#|2RG&8)LoytwNEO)cG2_{S~ywVfps+o5+QmSLiV5(?&)Y{}ycrAHos9A6kuJWAlJLj4lwGd)og32BdRqxcA2sAKe*}4aAQKR;RIYe=u1f8Y|kHfmwg-MN|aP8o23l*}0^H z*JNzlV5?h>$2CL*b%jAem)da{CelH{!CE_P`b<;>z=4ctSAfsVkG-Cg!okw$%(`s3 z*b8Bo(5S$SAv8tfz@fjlPc>TsX}?gzMMMbi0kUwiQSylo!XanW+MI%dk$?nDP>r@h zEFngQC;GybXr}|=Nmm$HL|ABU>cCKYUO59a!)RK4`A7R+Ca|s~m_)H^wXY2KtN=3u zGChKCFLvpKUw|b59QX$y4XN>Rs13YE_zaP};6n#UzJHNGyMet!8{keJqB&!w33FDG z*u8xa@&XYF=_s-r{liB;BK)O!MyO3$=Q!zPrlsw578OuhrrWm%XX@YHkRB|dsRLtU z`JjqJ1ey$K2U?ayd4aw3g3JBJeL(YsaQA06!(g|Abh|*z1EUklxu211-oM~l=-mO; zLC6Lz#OE+316XrL;_Zoe%$b>O`Q}w&MB;g?qQ7+3QH@522rKUy(~6!F>8-B~-?3uA zEz^NKAv9?vWZ8_FB}}rZghZ(Sku~EI)pj@$aM&|qGvF}-W&q6x*l1Mqc>b2;Pyv(v z4E={U+|l7H0ea#IqqGsJlEZ`f!L!W0D1^oJ^-#yi(%CDRt{(g5+~BOZNW=)gl0J69 zI*$IE{{h^XeHuF@0TCbKG3p8-@4Gtln!EF&MR|4oZ4xcYDZ4WqI{Iy?ltFF}#ykO6 zE4+WTz4YnfFJ@Cp?jrWH$jBLSw7pz)WpHEZg?7(RX1h?MmaW?is_)l%@dF=^97X4$ zn_u4VzEBA%WRD)cuwTC}mBlQNC?$`tDXsdkLVtd(C;THA$V&j!KPda(;XQ`E9c5U$ zQ6>ct-Hb0S7FdW@-v+W=GU;&vOhhda)lRyz?46I%TUzVan--jiZ0l=7CWVo74~K`K z_9D?wM&gmVLe?oOXPI0u>cw~bD09sX5$i(@vUaMplzp$k?H+&j?*5n5Hvb}8^zYzK z6JxaXb3iJasCd*? z`1DDla>oU5B@6|fd|-wiMKPHOmyX~nzMsV*ysg^yVoB(!2A)hmb0{h*N<00#&jmdhUy5!hi|ME1dtW_hl1t3*R;XraP zZZFiev0Bg~)y>7K`jcAf6|-gGM~3|8fUCc`tbd?e|0BOtDrSd31Ac(^wf3FB3r69C zzm(_#6L1c~WpoP*5q^>o$Co-owc-;^ca{Eyd`?3G(mb?IvD$fGwIgE7zJ3!mMs@~? zyX<&3_G}*&f!nN&#A=m_i6~wTh=3Fw6Uz=7vfcL-U9rA?e4AqoBf!zW^Q3|ACARiMAQo4(pC<)Y+ULU?RC!2%=b=-P|UEK**!_N0^iF=A6&MMcrhDD-WVwI?m$F6a)hk8VT> zOFHua7c(ZwI$2(oZUsUdxoTIeYEMEWJf_lyXL#pOA!!i8_h{#PR>6x>_b z$eC>}@DHF5426Jw9L{@;)$YmI0r)cjiXc_iLwbarhPY zes9r{I6FkeY0Zu7>;8yROfz4Ccxj%2|FTG>iIqBQ2+tkcti&AIj zb?@)zrgm$&Y2;6BI*sk3)F-6b9=UG6y677Pp-t4f_8Isvk+xHKfCY|ay*t|u)9Y-3^yZ5L1a8lKnTS&&7ag7Mh8{1-G~<2df{60^V##DE73|ipAsxizYEjXV z5IPBpw4&wwM!3dJ40@s_SGot>JGxlXyuHzHZ46cYyNJP})Mmbb*es)D1Zb2bbaK_* zQCnu6=d?qf5hp;5kE3SluDl$cy;mu{Wa5v?aDQiy_~P%UC1!W$AArHrh^6s~a>V7> z7HVQx#f%DxqyadX5EZ}Zw|u8DnY%5ml!Yy2u=(Jw3cQ<6dyum}dhmU$s7f>Q`45h7 z1=iDXx@tSQC)ki+z*$xRW)6dz28c1+u0^Y7BI_zYUeR9b znC2uClTDIPG#EGzA^St(ZJCv|tg_s_^H>h%hrVv!?mk zv`h8VXJAjj*}%Rc=S4x0lVgp!ucVba-H4Bg$peqxcNzAEaG9H03zKx)QA=*l$w&L7 z0k%%{#fJTx`<)7>$K%UI=Ze8Gujbya^l2yhX>@cfOoW9uFKDqE+b9 z4He7i%Xx~Fg}xl^ypMx*uYVZR$~xiZTMj-U=_16Fordh-qj~a;jg7fFmt>l7zre%g zj@NHxU43*acf=uD%s*6Dvn3knfLWUOY^bWG@@=Yj6Uq$jf~VKk`_Nv5Wl2cgZu@*Y zN}K3&Gaj=V$PQT$K$Dny0=DA2aO_!E4Gk(bK2Zr0Q8%i2oZqdQ=C17x=@J{LA+A`b z_d%8(=Os3{f!{}odYW9%exX%(_So{3D}6rPRxzc~^-^4%bwQ-G6lg5$@L_sn!re<4 zgc*RnkqQT~y+7qUN>$<1507hL-U6J&Yvs!H`}d(cAAJ<6LDb=A*&)xKt*17zPZt&7 zRqvk%4LZjH6Eo=%0j{jjwr{cT-YPngkRN}Vbn=q&9En$vZhYvf41>0+3R}QQ8tbw) z1aFAmD0^~a96feS^1pZ`_=aez!U!XjGX?V9+{|qI1P(`FDHoT>I^SRMW$YvSnQ~~@ z0LcBzmu($Ri^-XQo{z8wzXLd0Q}QqsSOe)b z%E%}~NA$X*tM5VA8?rC1okfE-at;A!__Q@96W)JN{BZFG#$v{ONp&mUD7LEY_ZY<7t^sfJ>U^OK zuqkC&dHE6_nqI(j{QTsU#MsZr%i^fNVq#)?XXz75D84lI1_epV{9Cqa_2l_w+2gfV zzD;ze+N=MmT^dznVIiY+Q)uja9&eqQmzS5DD-k+rMoy^IM+*UfM5YE1vnV-`kM>y;r2-qars<+WGY9$4Q%1pT(_i z<~Qi+<*Y9k+vhh8Fg8=_>62&qb40+WuQ3&lo1@j&bBJ2|s965&_;p>j>7MqxM#pV6 zYdjVa^F+;M!K}aB-@i){{zq5Be|K$i9>8*$y}cgrR}rV6^)3(`=n?nJxp9yF<9QS^z9nE3T7 zYClHZ-XlxPBU?3ZAIbt>=FMaC4{hgsWJxq};fvE{miIhgxt<@@cX1 zKU$JikVZA2F(isNG&GQAG}4qV->OxJ8s~v%URYM>OXIa*&%h87$|Ge5{Gf_$z!m|~ zY3{PQD9eI&BR~5}c`nQ?2&G7}kWZx4=f>cwR)*=!{6bkFY1ysWR*N2*FGv?rp1lL3 z184zAfBEXw-r(R%qz0sDjBP#`N++_I%?T2u(NSG}9RgyyTQKhzeZ^v)^w%=|4jVQ! zAt=>l2qBp+M*)*1ckSNIkTPE!zcRLN-@RLuo9*QNX}3j{M3qAml29+ej3SY9a|axt z#-juk9Skr{yg2m5vltnwE%4#mo8+PA&wKEdBsG@GePxH{XIx7-jA*lTj9qZge}jW; z)qHMhWB4v>o%tPzDDEsts~`h^DEOWHGO{%OE*e;Y_&+e#SW*p-1WWM&mN%oB=n=xX zwPB(pmwyND?*d3V3zAgT1? z@(w7cYH%ROomWr<`~k{0JFd2M&voHpAJ8Xg>_wCYfhWA;4GnDzmUbSWGkqFWEJfPsHSvvjj?(sOQY92!)GyN153v#@hF~Rb39Ah%7qWoj;Z!BoZ3>(Vj~)8 zY7mK}ETQZ5<>%#78=hTT&n#G5k*_V4-1_QgE0NIsrKN#g{$C6dCsz4>1$H-2gU> zND753_y=`6@e;|TTBSBD&K^TrCg!H(|9(xl-%~sdM?+Fky8-#?rA~x6@ZEvkJ@P# z7P)VV((KIWOF{!LshbUY8-~P|yFvb?y`!02zyxl``+CyU(iO+)B($&mQBG07FoZq( z%KPsAYiyM~o))%frLHlQ!E`vF(*&x~tJg~e*(!r(JtiHc844tzbM!{9n5{*xl!F!@ z2n2I-aBgQa{3gveCMO73!74Kjh8$>>xVBm(kztnYm=cWAe2Tic>mhFB6LqyAvk z65XhUXnTqw{6g+PUrLTvIB2etG$L6Q0@P#2r#8t%bw7DnJ=9L@l&S2W#J@lVx){-aWM|DEjAO%W`*c zwu_Hl>`t+E&nU}=XK*oOLPu%aL3o^Djt*B!fG;}qlPm(|G~coFc`Ah=&74p%1#yd4 z7T%Fc(IHgR2|2h>37?x&(GexE@k>u_R>BG__=_;L=U6Iaoq4I51}UCGj&couQ4f#v z-gVP^_Uu`gSFf@Vs~#te2GN!*bn=h5lKRyCc86+-ZBg&aXGt?ne7_VF9(u?~Pr9q1 zgkW;NkMy)OZ>e5;tYLH^q`BILA5u7Npe5jn;&OAo*E&j~fbwc-YK5ol01aTtds$g3 zN>o40b*9YPad(;TC$+k~z1O=)JLI$<=9%G>rWcr z@(iZdYDuz}wips~wwIWCF;V0K6AlhrJRNrSEAdIqsI&yRM^z7_ZKw$IF}Aonv3{Yo$4hA?`&)b6bG)Wi4QzXh8%iplK8; zuLnb}=ib^9qH;d+-L8)Ay{4s~97Ye^0g77o48<={DEL5CWnq&T%&C1ZxRqgP!ud4w zBao2nPJqOHM~?JRRUN@_h=71LL{mNP5Mr@T^A zknhpyN9#MP-$<|jhsvYBNs4D!OX63z^NWTla~mZaW%l%`Ngo4)JeOgQ+#IX>{q$4# zH>LG+l-B4j(dC#BaGBy#?l?7<0IF=t)=8k?Sh;c~lev`kpy%A$V8){b48-8DfRYPB z3Qy;N3Etj`w|paj@Ykc2vhuhlldT{eAGKa= z$q7Y;MRf)rS99*9E1Wq8s0Qtr>@;x=ya^-~Km!$Ud7@*=$jAhn)n2#q%ng z`s($a)PgkGB47gCQIdKny= z(l1)Ed*X!UpFi@bJDVoEzx`+3Cur>Pb^mn|iqn?rOqhyZoeJ*Wqh= zsw&94H(&k7Xyw$#W%GuqdVUz&{JhGub(fo!x``D zCZ^jkZ`IQ0K*VHzhgOYq0Ydyr6KLG(;aBk7s3n)(F@eCB7wxd9az&LZCpN(r-enZ? zjFR0FQ`rCDLr_NuAs;7oNj}7Qu5sgj2@r;5v2is%P!v>JN~n{L+WqG&s=5{Bou1^Q=y`O z=Ea2wqbwAzO5WIytVx?wfk+H`+s?#3-nE)}nvavz9i@?x4~}>tC;Y@OKS@$g9)T?p zSix~kke-CqI<>VlHJ_0Z)>=qW>C^S#sBg@Z^qx4yU)ZqehFu`N zd56?k04};+w@dPQc$8z}053|qv~z@7sNSm75#!p`-)!k*p7Go>wWX7aVrF?eL+$46 z-#Sg2ltzUhrk3^j>8BUSdJvlo2i(Q#w~BsaS9hKhx${caARju@+L{rl_|fq+fB!hV zX2_5sNOPO&jy5emu)#Ef&agD0b`l$p#m5Oo3BwO&n8FSz@d<0J(kJrN)2K^Ty9XP( zrGw3UJ#@_04ox^^T9i*-u+^gZ7q`5#HIE!S`{4DmT~CsZ4cVCY;#f#>v#qC^uf=Lc zSZn}uiaLiPR4N7Lp&fYG(4i~XX=V{tZZ+h%oP>g0%s+s#X8X>avl3UFtV44&90|>6 z?~e;!H+53ocW=S(SH!$BT0@60yI~)rOy-lt!8IA7yiF_;V`$Kwlkf*wGk7Xa-y(6Q zdr43EMeVd|Ll=_g1}7gIs@xQV2{cK7@Bm<@314vT>GeBS#cli_D!D#T>Gyu^jdI7; zQ(nZsADsEz&wqZq_HPS>h#fW(a*o5CM*HmnH0xu#08kOSckc?k4WpmXoUUv-~W6rM=2Yc%$ih&N%>C3V-n2DL}N5k!sD9Tj~mhdieOS@4+(6D!}G+I z<|bg)FPyg3je9G5>Wcms<%7OtK6^H*fB!{De??TfIxF~?OPB858!$z?ib(&>jTs?< z5%-nkPxsCV*PZgB`j;n3?+#w?nKNGBr$zf+el6;2phtJyy_hxH&3obrh$8l+jz-hh zV&hCTi6FIdo!oSHnnlz&v$}Y%r!7JkdMkb!KS1y&$i+A&v=iKnU&5BVK3^ds!iB49 ziIXfY$)0a<3tor7`58>cP}h<_sw$6KD41TP$QH9>kT&Bda@EpNP0c*4x5Cu#E2Y)N z)#K+hk9qRfH3o--4A9`^#pge#hh8arsipEB)L{X4$+!c}=6ieB(L^b(*O7pVf?JqV z25c@cCoF1cXaIREj87KTEaz;TE{~ZFpr)+63Q~!ewj1dI?d2Q3zV3-OU`gW4eH9Y5 zFI#WajS)BiY#g|I%hs(!4TdV~h>1Tb4F^i|9~+jc&-M7e6IW+EZ@1}(s|yvMuoDft zblZFl#nO&|qC*o^-FMV*4ulNt%ivlrj70N+hC8ewe9`v1`~`s27nd-Dr7vr;sp?@^ z?A)y-5{FD5T)OguK_Vp*HZ%|GXHzTU%r{Lh7|0OkH04jZr^RzF?Wqze^?Z_y3bPq%+l3X#Q z^9pA#2g5cobW2$Bpx>6)d}0+TUCY@DY(ru!$aB!7BMAu!H8w6TZ=rLUg+tX4uLCPi zj2Nh`y%Q>uW1Izg#(mkLWY_skgALtR(eMbxA_8S&*|6~+#y`SnOUyyJA1Md+!aEL^hWY+cMCiEG>M zmxlp>zC^+yuNC8U$8w$JUr%x>F;?~B>g4&&V{}IxN^aIVRY&VVfag^f>vPsd82K@>6E61N*-}C0uFSBG<*(0 zY?7{+s^>yauXS!g@S!C!lTJ3y^~h)JS}he5iKSxI`4L;@c`i}++%?#+`!V@Z^O`Sf zlkq(MR!gVd-(D_phw%gsN)sndip}?>Nm~iC0#DD8P8^bmnc>|J)fj9A$l7+7eiHyj zC3STp{5g~+PMNaga#}@^5DQ#f7>LlZXXE>=WIi*!J1qo1V<2YDt>5=v8nK$%%(L|} zjqi_3NRL27@rgK>Hv9Lk+ZEIPitF9`y&o~J=G<(8;{@}I1}|Q;VddrTeMZl1utDEL zQ%*sx22AkGQp@YHM~^w#pL)lVW_C6mGW%e0Sy`0kBr<|qHid5~vd9F>Dk_qJClQX$ z%qu^A)EDR2X8;jrFHzX-m>`BnKSio54Q#me;;ODhLN#r|xXE4;{W+SWHUF0=$a&d= zcd6T5oHe~)_+9hlP((OLmnLf+U8Ay6MD}GQ25f@OTer@v4X8xHLLG+`E8NkXMk zv3kFJrClF|%c>?sU%8uDUNi6W@g7 z6dI_cbu>`&zc$BL&? zT1Li{Y13*yeCRfG!Cg-Ic*$9<9ox3iL6grqJ$$%veXD(}NsNesz=!tkole{$tPAnj z%g`cfhEvfO9sA+|M`w#$j8Gk*6@XW!-r_7}!1ffeP zIDJ}CP5&%VwCws9bK(a#&DHrUER7&1)IFG7M!>HyQfDFG{YUlX_Mc*{{>p~`rr`aT z=r8d>JrYfp>a9> z5G~5iNMmvNMt@Kysbhd3h8;p%fRM=q;u(jTF=YM?G;eGoaqQW!jLn_5i;J2E$ zhoUClUHGtFd{}?khkcFn8!t_n+*e1Z0<#5;k7cu)@}E6R{vi9l@4q6fUJ&Of)xArq zq?{gT@EC*M8sT;qRG68O!AO%5H1A2PN?yHtCk_X(DA59wvRo=EXLILANP1K~V^e1y zH8y7O7=Z&7yphp5k`&@cY|#lhx$rYqGQfd-C5lh&ORvcPGy?~^kuDFy(|i~L;l+V&Q?eysC!=9}_8d9l zl;Vk$kXZZ&-J`LS3`|at#J@>>vXn#9H;aKdtAwGO->G?=^!c5pYe#GZyunLHsoO}e zv-|c{xAtFj#Csui1tr|sb#btQ29{yQU*G!&C=deDRwM3cpvn&5otmqP5l`Xf->&f` zOez{$a%F1lMGF^Ra>*WNLLNJE-@QH>WIIuFXZzpqz}!}#796%jcp;iZ!l)W~ADN|+ zHx~bHOBwQzJ4R?>N4;vx9zOJ|fc#A;1M18aD@>`E5HQUw8pOI$HCQ?ezje+P^FY;j zxEy?AC~eR`UD&uC$K8u3?GUiE5ZFUiz(7>fF5}3@yL9b(Ff1$?1&DA4M<+vbnhC?4 zV|3cP_JtA%S#)H8rY2n0Ej;CD{H6xaV}=OmxzaWmWuJ)@n>G$Y({l7^6A+7N6?~V9 z7oJ5+QTST~goYL{+`O?ChLLAPwqt~KD?_2IH*8458qLwtlBp1zQW~pc?%&^%cScE0 zu7$6d5pX|vS#F;H<3UbWUE=!=8&(ApA*ib2^IZQ^l>{F3gE*JfXCkFnc*MN-fC&I} zWS>z>uw(o|Nyz&oS9)on9P)iI12LPeyOqQfryv`(_|^}_l1TGcAL&KI8b6h^OL;$l zSG_)dr))J8ZR>x8d-e}lhrlKO(8>{SO5PpBlBwX36FK;~g@sO>iS~ zNpzItb{=R$+0u00)fi~S)QSgHi?G%8$8h^2t6{N#`_Rrn!=0&P--J(G?i9OVTe2JX z5@>F{Sb9N`^(DV+?gwNeOzW{fH?-KGVDI7ChaRU*#H_wO||H4Pzr$h>(hjZ7{$dFs^m zfV!V20#RnWP@sEImra?H!8_*LU}qDE&J<&9$qndETK{YeyQk_E zILDhJ9XLo23`R=r2^U6$IQvs`&Oi~7&3wV+5qYrb2{0MXpL~b>c_-lo;%1F~P2fgz zZ4D5WyWE!%uuL~NLEQMbA*Ln8YUR~W_lb_PoF$A5yhF>LQ<0Rn9)9nYz|RgH#-S3g zBDWY}CqAAd*nu9@cl3Z%VC~2cgczv?`$C}aw4kmdI8&GN6zCm{soUA~p=Z-_B!a?n zhAl`5B617)cKNJxT>J{kXKNSGc+im5^mQ8Z30Qs%ZTbVQ=k;r_fTNg#W21;Dal5cQ qutjOWyX5M8{{K>k{GSO%W6$1adjF88@I)%^XQJs;lXK(d{PJ(ysANw7 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 0b8e350841a74e94c1da0434094b10715444fc91..882d3802b53b8b60f52ad4544fb49c90a62191cd 100644 GIT binary patch literal 48879 zcmdqJ2{e}N-Z!jNREh>F4H6<_1DPomAw%X_rHmOf&vz(gDl%tE%9w;?Za^WK$((sk z=9%|*UG}~A`>yYM_w%f0ecyV&@4436YrDhgJkR4e{{P=}9FOE>C3fwg-9bV^vP<&n zWd#zFt+6B|q&LVnlaP=oFRAUp|82Lps(z1zyy=|`Hm+YKfvV?Yh{pBqIv7at0Y6##|Ij?t4uq%1C@)z7kSun>ay$V(sQiO zas9=SLjK}b0=2!S;`Pe2)YN;Fs7_pw2;1~yB4FCob^53ogU83X!QS-nYUdw=1=Y{P zzkK((ClVjXD2e;Qhb3I*(t(XHZ*XkhP5dg>e#;T!7Z)bU`G{Y*_w2FQ_@PpUUmIUM zmiV}d_|^UZcT(aPEXOvH5x)O-@!f~^7EIM zmQ);bXnIL^l;#&T_44v%RwZ5Cb6B}oC6>mxaFnCvsJ@5h2hJ-6w10`x;vLASi;I`F zWE%9hJ$m$LmnMa~40+XDaBU@DIPq`xyn&S_RQO^kf(QjQ&qHZ+ow-AXNGEb zX?tIJrfk~bn3z7;x=Y70Npx!WX4>t+jFP*wNlAqE2Qqp+c%W10XwzHfXI?nllx@=7 zl%~n+yzuA2n^AfzJ3BiIix2jbw-W6BIvHSBSl2bn(=;(Uno>V(Wo0#D>gRX+`$J)? zeJVc8X-!<`Y^iE~eYm{!LXgeC_wW?ebOC<;*@-TNG^dqu>xzRzu1>n! zV3ghGFJD}ootI{YGmRUQ>*^FTOS!Z@{Hb6|pPA_D`uf%2qx&Ye<+iS~=g#>B;1!)a zefq85SO4ObDW8n%fiJi3JBi`KyK7OqRGM4Csav#?Q@om{TkN{Fw#FdttCnSWT}LO{ zs3kh<4Eb@?h7UJ9lWzG#nfjU&%y9I}9Ac zcbH?Gty;5;hKGl#^E(P0re~XV>CWEv4hWD-*C~7vAMdu%P1YMfbuCMbJWAG}VD-Xb z6Z%St6#WTJ-87zbhn=cVqoNA!Cwu-PCEK=j>*B(~%y`>;qpEJ9MfZL6oRN8Hw46C6b&`LR{Pyi65ijcM z>VEyYk*4CbvS2A0SW#K&G&_>eXuLj~?xs98)=T(g-uSdxPOh5%(gUHzz95Y>m6S$K zjV!~4#Oqdi6P<< za?VY@g74!cCD^gqhU7S|F3lblus(SD#sxLCu!6rTLpYq=nQ0BV?VF`3$F+5JbVMAc zZs*=>extoSGt5BwrqQ@~p~puf^;X+^Q`|&@arW=uzl9xVhHBzGR8pcuT=H55lo-?J zF&fRr*|_vjZTv%_qK6N^KG=2mn$s~pi{qzH%j2OO91g`?qofS@@PRM)i%ELnT&qcX zx!=?{S;x=hFf*_Ic;({xwDk8)gpr#3LMghiyj(f^@WBJyiB9d`^||*3F~QY~bdwcE zn=@DDd>=iUoS8Xt{;pcF>uR4Fo%5fI${v~vXU}OTCm&^0w=Fqs_TwpoMBna0r};N) z+c(LdB9szE4UGtulwI4mpK%Sf#{$XH828-1kJUCrG~UzG69waHppuSG(e3iRi}lyk z)YSC#U$wIY)THZ*_TFz!*PWl58mWofnJF+ljb*zi;Jtna&8q>RXi!5>~mscKX!F>)z?pFR*M7`AMePsG5PGdT_bId z%WY9Q!RIRFn)25#U*a`$%wEgIg!pK^zZdJI=fauzXVW*m@RfX$m zy46$Xw~>*>h`Q7QE>L28M?hF;S~yMAye!GIPv2 zk_TEy}LTa7I6B@6^M{FApgXAD*6? z!W>7B$+)w&vZ#^PG(*SpZfM9bO(h@oSWnv3b*(o*v@=8RD@u>wVP4sk#^0TV`L}kJ zxf;mpLcQ{q~qEB!FpK1R6HSoe*0?>om$+^ZHg zXdN0Du>JGv6Rs&`Gf%2UO17K3)7FCUNlbbA*HTG-r&YFn^FvgFvNC@<(axU=3JUMc zyNX)V#9Tvk9EX`Q6Lg#>OKI7juA+^dHwi~Qq3RioaSNG<=Cc&zY)jR=eA$z#XJN9p zk;1IIOk~zgonIque$C@|ghs&thnAPnH_V%WW5UMIW$&PQuCI2jAKkZ)p(|UzSgG`L zbEZ+wKvksX)MzbF(RcQni+e7ezg0qBNk%6B)RchPY|Pi!RAh3)iXV`C9KCi+c=BUAmAtij2cKKkRBDPrDis&B&1?>;7E58xnZJ7!q_ zs!DL8Kyme?R*|zhd2NQCMCP1qlz?*aFOPT5pT%O&^lF>uwib>`OH1QsmntV**A@*5 zb#(KUweqYb$-4&!4VpNs-x@x8EZkq)Hz-d|zbVC^TXo=>Co2JR@}7rCgL^cw}S*E2ULOMI|IWd~tQYYp}1cq5Qyd@>%22Mhwzh{}Uc$>`nS@dwA0V=X$<=&|x+;PvWkxg0PiDND{e4Ep^(3Xaxw$EA z2MK!z2j#pMBbAvJdiSiX*iU``Tx(o7PiNiSaNjG%up@64Bhl$NnwFK76)zDGEnqW( zCb9D83ne;Vk?pv~VuwMMYtmyTX(R3kspf^)?>hP+_OT2Ps6Mx}tK+D=Y>+O+!HH!3lEC#T5s zZ`3mf`pSa}9cKk>$9`hQ&5ySk7#OHFe#2}q`0+f~c08h`*k$f_ho-#z>02eF{7wlrGmbAZli>`cAwB7fFpadB}> zj%%8nS|5%}2CnE@(tGCQ%ws*;j<+`E*^H8Lq?_?J5#P(`dyP@m+V`eyC~8=iD&$Xt zgR}8t9GdS7a9K1F>Zb9~CDq=_?|Uh&OGs`A4`9R_#yav<)0>?f9c_o}O2_DfrI>U{ zW1c-zVjc|?jUqt3)Kzq+b0VzE-4E$PI5eAZ`D)R1XJC~BoLXu{&JKPIUrS5F&vzEN z2nq-|*1otBq9sJJVo7*T+2?$53P}KL`b)*5(}UH`X55RS>%c1KOx9=WDvmR}#vZi*L8#^;Pm+rP|()aDDNmFW){-3-KwVe_vvz_T}#%b!MPXL-I>C9St zhKKphJB8>=2tx_R4^RBqLikk-5Lp2PhT;O7@njmIyXDyFB@oj-%K) zkM^9wkF3nhWppOhGz})*Ct6xs1=hoa4*33Vi$b*DHM8gZ_wb{Be!<#LqOY_%mnsgNv zGD?=0mrrR+1{ST(X*zUX#@bd;n7R;uMMA=aJEEkd1YLF+?N`iud47UR{ap#4t6yMX z;2Q8ld$F4?`E@0wnSn_2->umxSA1y7f~;@dx`i9+wD0vp$D%oKU?)9F_}+c{4zR0P z0BdG)B{DHF2}J#-H%;}5S1+2UGtO?hdp{+`#L;mH)yl7*nuewb?L*9)fLF{MVpr>a zp#&&b+$B@DFCmdv1uf-1<>27(kdlr@x%yHks>$x70^R~kc5lGaoF)oitE7aotM`nK zF82k=EiEplY306im>!rYUN5qg%EZhyxPAK?YFuGqU5o+PajOC?`Gb`-4@NW=DCA8xqYr@?;{o zPqDLqudmO{%Cau;-jkG+6cX^N(YVWD@TjI{+pfdsw`|!WG+D9_3?xM*&2c=tnf(a8 zfWVU5+MwIY>MG{bp@Rn(hF{0DwzP0)=P9kJQ_){WRqS+Icfkd`b{@cUfX0a|4aL{i z)`A+jQXTea~M&%E36?&HUg zooIHyI|TXo_&7O#l$Q_t@pe9W_|CbQdmB0oYw`yVcA;A&iEM;w^9+S0I5gDB$%$;+ zHkH`i+5MA#Xf4+qJ+HLeWv%%!~V{sct;B za}f>`a+pe1PPy;lVc!11vcDquE1jD&06)O;r>pwLumT8DYFgdN?R5htOxn=9tgqJUU zj|sPa`NF`(H8D5dR#a4kA;IdHpP%RT*Y9>UqF{Fj4^R5w;ki|Ug2d*ka!w}IhFsDh z`r{W-B_a9msh|*_?Xf{y%~q0G5~7ZesUFfg>C zveYCHpV|Fkg5=gChtJ==Dl1C^d~1B*Kxj`-&rbBN4;I}i=|vF&HpT#yMuR9tfWNO} zT=UjO?|xJ!if=WHJW=kwk>*8`va)84$&I?}OU*Sk^4S_3o-C}at-u-Rw<4=Eidbr~ zvB&k+!P|efweeo9sBur(Mi{eLNn?R~7Gqt-y5y51Dd{4!4T@HI^qz(-@A^Mj_MViB z25Ch7IGlBXIKqG4a^nvYq2)-%*JCLQ^5Ep{ah*N{xs!xsHf~t!#VvF5^!nkmXV0R% zRUNascaPA^lv#tFoB0k&SXyQ{I{_tHNh>KmqdFlXvi9qfM_rn2}rJ3C`gTwMuD9O>rGCm0xjJ4{<& z?|ztE6kwTBCGPL-{Wd2jARvJEeP4e+7W~WCuLlPQM`s;*d2>)pQAHf>?a7Hxn_6$Z z*&i=w0xiD#vsZU_H@Ka7{VTsoz?8;hWwzc9$R9iD@z)LX^v)U9#6G?hCG2F|^6m~n z1?ke^cbMu!7YDOTsWp5a6=mL$7aS5oAS^>eLlAu;IP+bW=Kzorl~^$^3JMC^+uPSy z21V;%%TZENrn@$x_UPu@rhU2rz2eQAH|px@;o;$EkN%GyL0}8WXv6)AtS$8R^xVn~ z^f|z_HdV=mu09S_oULIRMR`Y(P8x9D=+phJ0#UN@wIA~GMrM})F!5<ipSTE&Q20PxXSOk1fL@{ zXi)}eA=^B<6GC-ph3wyIq@nN3Ve-mF31kBnEKUzLkIRS5WYnOsTMKj~UXL#epffi& z=koma{X1d(jko21GaTU1xZTay($a!a3rRmfBJY=)%5Fkq-uxy?JU-*)Yn}9Bhv`>5 zqnk+%syobJCJ)!dUDBo|^ptK_*X+ZO7G+W+}w*;{r<^^8&7OUxMzCDu!M5c5uYkb$`RVL((7 z^v>MK`1oFMgV)!>twtJ7Nd_vhDj(fVm=w_plgrobfh!2rV5lLf9wY;u93#zsBP+!t*x-EIMPdb#7r_d~c_EobbIsK0)L1s^KC|;v9G&CVk zo*Wl7=5}7N$TVY+@E5Wks==g8QSZgP@}w#|^2rdZ1)ysxUd$T+ekXljinj0b=g)zS zRG|wo@3!H4#^jRR!lL-sUw=vXA5n+eeEITadHE-PetuLZxCx(z&jgo-gd|ZsXb0c5 zY@_;{lQ>;Q#gR#vj#U06*WEyT0BeVc4Azg?aC^s?Czk#bD zWkW;Sv}qG`1)F>KGA;TZ8_GMpt@`Tf@`pZDUK`cJ9=zL;1Jp zE!$PUC{;Sa9B?p`I!z_=>C>l?ktVkCf{=5~i&y6w6y=1czA@McD*3svc05m(RkgIW z{oPgU293mvDmOQG`}XapPMrdQbD6HwZ=80hQ!_=TZ!E(KBD0=jf8Eb56zRZOE2 zi;j$^L67jH!c;k9LbwiO`@MVjUOOBV6jYTr-kw{}cU2i(+=~jBn#ZIo(;#5-daqx4 z(NaZLHOdo#-=o`Ch|(wyUQ+Iom;<^EpOci4;n7?MZyWd#Wzt%QL6QtQ`KW7=-EtgvvE;4FX>>|>VQPeUU`&~{y?2ddywn6|vTlBS~id`&UE`M`k#&3p?# zGxWyC$3-E~TR2of5D?8|G`9u^Yvs@AZ~_mE;$ zG7xZltsy#74hqKN((XbX0$*%sP$DCHh<2*S1l2T;Ryc%z;FUBAh~%1Xd(Z3W-;)znr}%5s?2r}qpERrSj! zzIykOq~wTq7cE_vhF>#DhhTz96ruT1Z1X6vG0t|x&3SCwb#`3TvZn;?9`ZnLULHY+ zH1mD@n3a>WGutGz48_mmW|^N=ibhK~F@h z2xM$&Z7o`vswCY;k?7i}>$W-zatC1x;&f!BCIk@}P*G9Z*RJ^vr{@tYxT%0JLvC91 zT&zm8WC20JbhV7nwY3>P9wui5IQu=K`dnTP;{!VCG*({JdDB)@94{(#peepkF5PHB zyElI~WijuSm6dnz-l2$as=vD&{V>}#RY*9yvuP{K)oT|0(=5%2cNdrP(zeV>3Nycn zlYYBj!aR03X*MQ0FQG*A_6`9@(%EaPm`J?VyKFA4wLHTDLMJG>ar)V_XIbE&C?hUQ zGY+$jssv#sb8WmeyYkyN7JN83j-I*Y*}gF0ww@1u3h`b)N)SDphUQiMFv$7T)RacH zF$(hxaKZd&bG3c){em$-67&qLqL|3Y(ViY)g-{?II~18RWiZ2so}TT6PC4j-qM}_L z9ff#Bs0KXw@5;V@9el(b4djWI4yh=F8%(kBQFowxB#LJ zD1{ai4}%T}0K*Sy(kcfplJF;r-HKnn?8D0iM~D8pdahb%-@bi{K3%sn$}%D)XLAKE zoN~vn`&bVouSeK-EsL-KYlIfDb%c!@Pms` z8dx+$-1qOiAZ&8t-iF=nE_(L=YGvO&oag?EK}e{5K{1Iqm19NrSTuwm&~?s;lP3Pd zFUrT#N*lBMKWUr?{|VswI}7lC)u2}YqmeZ&X!MCiH>fqVIrC3 zIBEYlnBf_Rt}b(MY{vEKMAN~KuL_;(b zd-+UXUtg@()YR0&yk>^n5h!X7PEHcy;_uOx)_flQ%{a`JE)myjV6cqvmg_E8AE{qLAtvGb(RE*v`00EG} z2M-?nh~%xdeoE)M&<**E0B9?M*-~0NF$ASwzv|{%G2!084$upL;|TJodJbSDLKzr6 z)Nd%(+qP_h-u>RJV~Kv3vI||WqQQBq(o;&X@<8(I;F3;H&pH;OpWL|d>)TTX2#U#$ zV#HVRRz7|=pX2=RLOc$J@xendG?4>Uok3GkVhzR&!Ht`l{dQZMjsZJ^ zeHCdN#ApQiV`O9`A|ire05{Zpe-|{VT6q3B)d@z%+eij5%RXm88_mo-$2ki*bUXbL z2xVg#0YRaQZ1cDXLozQ<9|%!j|Cop~-^r8k2}R1x0FMYJsE>~i53OHj<}@(58`>ry z8D#ndjkNba9=>}Sz{IJYmxU-nlXx{q^Hz}P39@9GQpM(>>u4q zqSU*#y4=KW1{$fSSDO?IvIV)gDRn2wjobaTFt=LT+M1QmT!<%3arkW_%*=xzCFt|` zL5VO;`NSwZJ=dNUor)#U^QL`!n&II60vb#u(LA=!iKK>ooi(@BTK zfR8T1IdD7sxWV@X;m~m(q~I!?se>lcXiWHJtS(n@#wtwS7|~)g!b|l6)_7SzEbd3k z$l8Da+3OOKElETm5Q2K9Jw#y403%7c zC|SFnlIC_Ekt$$l9Rq5=4VX`UEaK+TS*wyK5fQAOLr7&P+vpH1)H7hD; z9nam}9iVn`X-OkGkeohMw1Z(bE0~nzLVYcO=#u(%@S!v<0>wO?oDV1|L7KE;Li;>rY0v!`}1YTeN_!lWUoGGf|jT<+3Rsk~pBbr>y z{y)>?r{|6;qEd&0JQ+y?sW8h#FuKOLZ6Ury6TCz{xVmU%qN_9YP_0mMudAuCNGc%1 zgbJC1fxlBpldYj`sUcseWA3QzgWAm~2^JhUAr<%x%lUWy#12$`4|QuR)C@G>avyX$ zH%t+BB_2t;E6E_yrfaL@vQ#$gYeS8K~Rt@o9(dpF}7H<0(^V`1Qi`+ z{zu!8`~k*$_H6&+tsvkP=pBbC9>DFY2r6vshQK@ zR|A{hP7e_a{0_@-7SQaX$F?Z`dnb8$o7>u)(5hhd`4LI=F%)_!smD?YRyH>1RiTXK zO-+Ps(6Q4u+%2j1?Ae1?4r2RiH26Rl?wSxIntUl4)JJg#7p8ta!hLuI&`T%Z*3`%- z2}R-FJ%l{jxVUmMGkrF6Xv-w@V}-Rn`~1WqMO#6-g)?nnFbF&1;A;^gHH4siLRYV+ zukU4}F>L)sTv0aiyiD{^$p@SNfKY$`C!yxvd*+j3>XA6`X@R6IetwR!T9-m^obvB< z->be(mMF_zSbU4fr&F)5KbDf0uR*(pj6DSrstYv@BEpX!Kg`U`pcO*O4=rYnbi_L0 zHEn$s6JstEdE?s?`T(J+t4PP%+Rj0BL00tv#i2T^Ib@CA=oYU56$nKA_^<$Ag6}CP zDnc`DeQ!ECJ}wO5RU=0ChPgR3qiS58Z0lC#YrL$qd={}WF}e_)^!4?zf&tw^Lz|Hv zs&akD2)5bWJl};(96;=j9Xr}PI{MvT!ELA1OQc<7qSM-;xCoSP#N#Yc`Bqk(@#ed`YvBZ=->9?)5GR;WqPWX8iNd6r{S>1d2+Lwx zMna>)G9Id>*~@*NKjupWW`=3H8I)z=5@f+;MSn zyR>%_FDY|m)7MM%l69cPam}MK&Qp>Qlpb&r8J_#eH`l8_#mN(dI{-$X$B$8U&*Q!P z{ry(~?w82vkpcFb4%DbFE$s))!`uU=T_5Z2zOMRZgLfoTS&-A0;4#%6##a$UweR6J ze8)GI%&~t^c#{7wC)WQTA>029>qD3ziPZ__aD#S4;$9}UAtE(Y)GHp&+d^W)aME7t zQs|%JijZ{kp}oeE|7|&UZ=4U(G>;!A&%`0o4KFPDTJ>dLBIRXs~ta<=C zDu~(&Qj$E;*1h;?o`V#-w6_v}l=6Xl{3b2rt*Ust8iuVQV@90O6YrJe1sOqqzZ6RR zsgI<+dxMukqM}yI4x8_%rWT(5ehwJ|Kh_T7w=cx;dBp2V5lQkkt;KW0s3X{I>-)af1+|LlQ1`RAB$n zqrw)yF4RY(=t~ndS@?i}M?eh&h-wkCl)%xINB=!lTwPg7Wshb34@q$d1+he2;34N5 zkwl30{??sS)6-s5K;bm64x=ru4#fvZNlOoY53kQL*A13RXdVT-!7~8aj}HzuBL=BA z2wfGS#DK%RKRP>gUe}kFm7Qc}Mj|Bx@C+E>fY{yEEXmjPU|_~83zMi&V&1^YVD^NJ z+4=Lf;7=+v^1(=y91(RbKqtoLix5;~s?Rr0V_GtBa+-mQQSP^Rj__z|>i4NN>aCiY zr%AXu@EWu9CqI6?Kt@I;?Konchrv|Ohw*`EefSx@GU!7bInbRF6Ir5ULxItOQt-%Q?QnIl zzvNra(IZD-fU2me*#i{e`Kq7uD-zOqOr8hN>H9u6Bd3SY%MFPcQb@8$oQV7;Wq2yX z&}m`*6TVF-|)Y-dgh+2;PL1ol-L zN7ts>+h@uRT_93dm6wNuWm#L#pznE60i{COu=U$nu|AP}(96@y>ku6e?fJW5>N%M5 zJLunN<(}x;MM1G&3|y!O5g~RiuF%8KxnN_SwH;F%-I*u_p4REQY+8SgXU1_A^Nd}c zhB$?#pL8|`!E;3@z*5W`Z|8`hEjt4P0f?s;uQ|?6`|2AQ?4hGlrl*@L-w~4E)X2idCg?PGS6_diF-0}= z-8dmm9Gau7wvBQtrVb8oe!d;Eb~dOTlZm1GDGH zfTQnD0(=053%jj3Lq$V;@WO?U(BM1T+eZpWS|H@DA!3irET#k&-OTR}Cv3}rd<12# zfXRoLE0Jf|?7wuw*3}c?2OvEt4l__Tgyw$g!BA1=82bI&6{rFnx%f_H2+tc(0_Nk# zKV~tpu}KFqX4(_-s{{vbdH#S{-@w30?4W`EshvNE(wOzmJsHo01vTh(K<6Mv^^ECL z#-t`v;=;Z0fS-@H4C)!e8F1tY8r@>@L~k#HC!bZHxB4=!Ian2mNqnODtBn<{4pfod9^74wEgg8Z(W$YLMfVOgITAv_MEj1oakk2^$~ z4e^GbsAh1@ay^2A>X9k{6H$S#m4o_j+F77ZesjfTpUIBI$NxJzBE(Ldn@zv=25$o$ z*0t~U!eG12wHSa$Lrl9x2PX=V5Q0<)kQuYSVgSZ4fg76W6s9l12tm8JCWs`iBf0=q zK2Yq|ty=>b5iEw;j8dNa1wVuYerT)mx+lXIPX$MY8w<3b zrjecJy6T8B4>=OQ859{Qh^mbY0TkQWi_t>FTVA8w?Eiopraa0eVkQA}ZYz_bYm=0R zBc)^$hY|0<(m);u#2pK+yRUEm{{7s@8WZ%F)Ir3P!CPUh!XhVt4eK`mDmf&>u0p3~><L6Q}R5EqRK?}<$LbG-TqQoUl;Ta?Adc&F9y6?*mo9XpY>fTfznnl7xr>=d_*@7k=VRY{_;6bdQ$ryX&88ct zSxh#5l=aHT$*+XHEiC`|UDi^@_>Eth1XlEiO#Z)1sfF2AmX|*Y2*9QQETIW>tqT_} zV9OYgSd};%8ymqtfWNA(ruGy4AKMsDo;|C8kj30778Yz$Bm`d|5gj>7NXm)(9~tiL z)oW#DWtAe|Lr3R^G6>D3?dQ)_-QuFUqzj`j-#%uL{x?2OwnGRJb1xJFn-M%^8g{kV z`eANbKa@qC^lH?sA3tPeWV8$HGh$+5+Q-oaP)-mx$qAO=0n?3N@=8( z_;(IRMm0(mV!*cZzqK6_QPu#Ku-A_T))IUs{r-Oi@nCeMWUUFXe}Bd(IZ?Fy8%BW_ z748LjD!hoR*qSIO7x3uOA#6ZQi@r;I^=qP=cl!{W>j(+Lj+d^VNLk3fKFnj>004tf zh8GoLcz|XFfH8OPj=i|z<4J|)tPUOZ(+&IKgwSo2$5K^NASo3(FHRx2k2c|ejbLRr zk-0!KDzxgCLcmWl5Lga7KUUB;58m_qPiE)1JwCm~h5=}*l(gL6N=p-ZR2pvH)JF}! z2eb;*Ry^B8$UIn`LAmwz@o9r7K)Uq^?wF8on|hD`PJ>Ji`qXff2nti9F!_1)hZd!O|s@>+ZkRtbXk$eVxTz@MlYwuan+!kyUO zGc?49bPG`Da{(KvK*nIHJ4Y;lKBlrcSc8qR8461R{NkKQ#6Kf&LeToGe8l6y-|B{~ z(c9qmK*=oo0l6Ex1ENXk$qN{~Yxs9;#v@pegu4L5xE?Q#b*GI~>C)?lYqGNb*~Qg8 zw;St7YMy;_dv9EY&u8~9H%_bNa{6}?Or|}JO-&*0q%zc-9$xu=GC5HSMjimCN~#)& zZ;p~%;nZ^5w=ox)``W)EeNMlN0RUooN{KV=&jqX& z1#4^U78F5O13tk%ToLZhNMJj2f3 zkxB>vDQQbBz57D(oQ;~=6}&cp!>aG!3mj*S5lx1$WNdfhL2+?0qhz*P%@CRF({1iu zKo2mCptN(086l0pU@6a#`klW zIhZUTl9HAa-=V(NaQ+3kIKNK!PxPPSoZzN{E2F%Rds3k+A$uzdFA4h<2peeVJz>HE zL1}3{AGs&#NmY!1BQ}+3W*aLbU%N{X+A3HY5^r(Y+1Yb9M^B&TL5vPF`O?GPtJtjq z0{K#mgZUP5)MG2Ic5T|vhMY2CQxAuwl@%esN_7JDnKcO(92M5gzT`&u&e;BwW!Wpf z%g!X|1JZ8v*z=yM;tF*aa|}lrtf$>?zInqK1mwjGS`uh6Nl*s9yQBo1GTT+q{BvLS8MDr2^kRA@H><4}LQTXO134FNhw{O*8 zw1B;151khke2l^B7~M>L8AHQFY@gKJn*QZu1JdSf`yb!D77pe-*iW0y9d)n7`TL#0e zVhXbiKzk=8rQFr4r_Y^BQOmf6baKA+@QXabSFm-l8wqTZ_UO^omBo9is?E3%Azf8b zF=9$;f~Ug*fJ1Wob|1=@si|pUK|!9~1O)W)98;;BzmnkiD#CK~@bI7$b$uQf*fTKD zgt7|DSNns-P4p`m)X2cKW>I1wKT>&lc{Qf0E55xHQ$!s}=lQ)xl;n>}NXJa09r=Yl zXFmx}3|>2M+-b6Pe$V!q&p*vy7hS5^AI~fQtniC@(0uaG_2jd$wab3ivv#v62A)(X zN%bpx2DVA4#+<3PeJpd|)As-^Vughc5hrL?;jX| zSai-sB94@C1K_dbUb}Wp$;aT$3dfvc@mnzfR$WQAR|#aAeA-n>~+22IDHDx!aQ*a!sX*RL8N9gv5?&ge|{rcT!Pysl*^f~znH@vos` zSevGGFUtx0-TKP+?P|NeYHhrKM=9bp7?$6dejxNiLqBm5Ou5^4?oeB7>RRw{lCyuj zLyBgun@nkPfAHQP?sMG+Gus}YjeeoC=fA14)3%$tF=uLJ@BF7ILpJMJUWjJYXq+fRwak$>GS79)&f-@(C*n& zi#s5MhnsL)MNac(FxF)>oKk-7So4MdJO&LA3(cze6j(jDPLed=wj0wZNZzLx6pgyqz3RbP*db3=b^^jZF?`niOTn$orA-4Tw~Vv zC-fmg$^yXQ-5qJL(d>9MzQ_LlW-y^a;Mr7C?XjF-Zv&{t#>NtI2I`sOUz)fB(%h@V zA|eFP`S5^h8XAO55X@Gn4lY=O0Fi_^4ptX7U82!SBy0W2uBZplO&Al0j0qV^8x;!7 z83BkW>@9=Df&HZO;pYr|{rtMR$>yU^dyq2i?Ao+BIqcK*&xdO4+W7t_BG zKYy572+@EHfGJ?Y6j|YeXK#N)m&K^1=dGQn7Hx%@m8_B$@${)BFeOaur1x~x)QuP= zXl?W*H~|9gTSBYheX$O5Y#=5M&IaNI< zB;-62UfC4)sb1i&F&;rW6Rp|Ofp+xPD~fp=&22jaer>skfB zhG^pN5ONwJ9aLh36G0sJ96r2UCO*aJ5&{W_3vfLg-}!d?9b(VO*NgYfI(RjS@|iyQ zMeIcT`O*2;t;`R1_w>Bz9!4mMif|lGpF=}iTfRbql$bZLbmGyGj{Kab*Nfav$%UU~ zvQt6?{}8X)bE+O}!HLM4`;n1^H8zg7NU#f+Yp{lN{^Xh?>w41jprCCk!r-m+;nxVp zChKTo?G)MTU2}i`d1wo*&pB7eSFs8AfEHpK7t=21?q`y#pk^^1!9EjDZ(rYrm)Umy z9HM~9=%YT!Tlo9Cf&@YJU0Yi=-&I{DN7(oO0*J=pSg=U5==usnXr(f*F}23}udIvr zH*~eWt3D!~Eto(&Ng>aky;MPESGlmda%{6guGJm-65wPWBaDCLID{_Pgd#Yq2dZDN z7mU)CvCQfzEzuXb*aGr&{kzW&YF2W3>V6`IA4;Zfvt#vGuAXXUq%(OE~u zg|n+fNjNKJx?0o?n_Pgfa5h0_awrNbLElQ|_XkKq84=>-lqCjuWM~}*e>RB3BS^Af ze%4Ea0fjbDXOKVmQd*RdB*$ggC=uL}oS|%$)H}S2i`Rk6yr^Pa=2{N7ow~+;ok)of zo@QW(N7@kYT=Eeq@HYKrcnf&!Ss2q$a+l%A0-RuA{t}D(0L}o_@ujH<+Mz~*RB+Bn z<>$}0(3|n!BdCI1p;_m@I0>DBG%+AV! zs4oO=iW-f{BqJl!Z?%YCj5V0peuS~wcB%npl+o)t_)Vf~3-Pc}qNAhXSi$)v9C1R0 zaiD?F>z0x-UsRr@8%}!g$sJyo*`u4~J+J*)>uQS*EVLhA_TJ)nb1X-(i{9{Y?O~RR z&hDIYC*?6W&AqLU`7LKI~!0H+f+7`+Q8DSOYMR-1Z zm}A^%3`+^k0i&%Dr5f0kT@jR!a0lQVr4OhRwAv7x?+pmYZ{*`1bdfIO$iKe--!(To zO9j4tRIyC@|A=~fNNkiSlD`oe$;V$$H|itFwg4G%;zVWnhWUiOW1OCRwqs#MdKZhX z{{8D;_fiv9EXj>O|NN(ad&Mmqq3_f7|A30_pBVnJ3z*{A_Ki@|fAUh*m%E5JM)veG8k+%h5c!jBgilD->UtoA+ zFX(aJql|oFVq(}h0jnU0KzNws5W~c#TtG2s-0RqO4w?atUSrvx_@+pvZolYXL=t!m z6bpx$P(dINV_m^97CJ~#!u-V_AuLv`XV^f8_^oc^?`QiR_$F;-HH9_@!wd94D^6@H zw!mW|06wQQNnX7QF{&OrVt{Z)89kOCx%TUu+4C+peZ(jpcx}>>_U&xdBWV`TI8^x83F)>iUy*TxFLu|| z6fXzh@)G@J><$CML={3L?EttEq)0;B0&YN?L@Fnq^VYVtfW*W^WVey0yhwf>t{UOo z3~$1Qzv@Wdbg5ugg(&bu9RCKN3DyBL4#<0RkQ8uMJiJ!tHl_u|-b<{-^Bi}5p##pV>hwz8ZjFe{_TUkfPRUQ{?L;R&G|VbS9t zBxG7U0sYD8gUWHl-96|DXpbf>2cBp`h(S|%{^UswHs9=F5dZn}XMyt~ZY>yw%GW?9 zX&Nq_ySHyMdSY-DrKBp5IK`=LOrGd=Uy(Ayg+ zE7Jaa>$i!@6qv>k1}F}ly{!H@Es<4FkYL0?+OwY<3%6=|$+~MI?}f!Z8n1&CJ4rvt zo^~_|*tBwV|LfYrV&tIaNW2bm+9CLT@7^dR3Fx|LGdo33laJ5;T7bIaNmViSfT{;0 zF6NDy#U}mo?hB=THEDpzYzUkKS3n4X(o=WR0IzJ=^uin5B$*GjJ|t=L#i!QVlV&gp-b?-a^4 zvTvsLip*pwxuJIOqs{$VO(%+9<|$!*o$~LNi{UR~gB&s&e6A}CP-<@L>yHS2+$+_# z<>5>a4h&HWS-~N6V&3iRUtYd?WsHf?23f+33JhN{YOj&8aqBCY!}KLcvm~)AvFyj( zt1}tCVr%<;<~%Fw2t*2)yPmeh6lp@pH7MI)>hqb_TvSW$IY80&D+H% z=KtDMaHI6@%manb>$A{>v1u0@5uh=OuCLrfS6bTr*0b*Xr|ZD4aqmhvVe4W}0%gKb zS8RGZV5XF;Bw1PH-i}#%(vyH-G;*`z)3PpHC%=xsAbkm-3~&cP2cmPqUOT*Qp~wO2 zJTV*Ssrm$gDwGpz(zst?Ed%|vPBT~Q7#(4Yw%g*=9b|=pNBs_-xdrJQyYG_?f{7)n zd%&3uF&&DXJEv!7ZLF=8XspPEL%4Hc-|d1%*+U> zU69M|^jIBlCM={_OhdJytxSVV5U@D3Cr>Ikl3>P2XhX=$e&?SRYK6W2*<(Au5i|=i z@Nx!m{8o#z3;hRxHNnQ0Ngl!p03!Ad@WM&xFFya0A7`VA6ZRBiKET;1 z03gGbS0(Zchz|f?QjJn$%8h@p`i#vWDjYg=2=rJv>K@w%>aOU2J)8fg6;l*kN{U|s zH!sBVc3zFc@na1k`(D%-3VOs747d#w7?#INW^Do%Lt5~Oe-qARIB^1zWyG3zMYs>! zlhu(2(&cKsaW*wK7quBt%H9FP9XAL%vPTRjKhW`6{6eP{BZmx)rlj7NU1gIIC(nY7 zSZ^WugQK!4Cx6FIS^mjnl&LP~X+NkgRz1O9UZpr~3G4(K9_10f(?)fSNd>q6F=!94 zlg56kPZAex?~=X8R>bkI`gwqKA^+w~6aO{~?K82phs|fOe|S4R((R-!WC~*FD^JRA zqb`o3c~c$}T7cbz==%*UwhCs^@W@E0s}J$)h^8oZ+#|0EMyVIZArt83#^qx;V~^ew zzQm@%BJ>vUiaLgOAULnCg}-Q*!Omns494vIysGwH<>x|)2lCaRq$_CPoseDZfqx;wB z>>*uP{y4O1hEo5{UEG|de2q&{u^#xt?+8DXJ03Tj zheRNjS4#5c(l&0#OXUm)jG7d1Mlrx8gwolgH@087Px?Tn_1!Y2RkF`sm@t^($34GI zIP_wUAe;Ow;9Fp2KUydMnd-7K@smM!Zr?8G8rrFS>sAlC2i85de;vRnGb_o!Rl3kD zM3L9gSOn`Lrj;C`m95?+KWKg!Iqe5!6+qaF3UWh5=H{H9wz@xW*mm$5T=)L;_O!c6 zK&|FOyx&T~`}OMIi@oj;J|RP57GRo7cWnxhZ#~I(n^v!jwty0qGZ70D4mQ9ZYzi+b z9Mb{73WADFJmnL6x`3Y~l$07!kb;?D2mrDp#24IoOwjfk3N9rDmn=$sbZ{_KJ11b3 znS!g0!~+0eQ!YYQh9KZcg{^aht@Om*c`_&jQ+Escw1@?G@UXD!3gK9-iVD`^LGS-{ zEdvY99W1o*-lUZSJy`rxGIDJ=Uy8m2GhpVZ^mZmT`*WSVF)=36aVy}YY;Mb&1rQnH zf%}w|#Vsve35f?AtVB@-p>?Uhz3~_KQ#n5^PC7x`yBj`KGP`d;Kn%{+!V3p>V+tzA z;!(v>icm%eaz#VBm!N52&sId&^_@F?V5khwg3G$D&Z;KWAk+vrEhyMlQDI#1?34rN zDRv`O}bDDhZ z)s+;O(e=ZQuM$QFO3vcyQKYJF!Qe1A$62Z8#$SBNuQ~r|4^H(kK&z|Ue|7DP2YRJ222Yk&mEq}#nD-I@7#&#T#9_$eRxx-%@rXWk%PHRe>RrS z&eIrguzBaT#X;0hmRMR~{jDqe)D4~g#&;}uVy{|FX2KJL&e$X_F!6a(p)r2{?yD^7 z7-xDv{s!O+d>f?CP`{c%$#`OZZ}8^M$9L|3X>S*TQzk5oB%YSf&>zmuiIeeX!|!6@ zqGLe=UIzi`GSMZH!=cbDtsz)zOS@k(I!?%4e_DQ<7^g$pV$Efqs7tsXQ%;n>NS<-? z%Qp0ez5SCvjiXYOQ$mP>s8`Ja;&mn@u~Y98HMW-N@;yDCGf&v-_7rETcwUu};qWXX z{>+8#N(Z<51OIKOC%9YWF2s9w-#fI*dHoUc0qEzbp`KL8d$^_l{Y{X$hY#djd3bqa z`0u?6+4yIYzNFJ3i4Dohqu_bU$x5gG`4?V}Q~2Z9n)_^g0ss&fA0vi3XAdWpqVEuuT%bS1)WFtnJIl(3Co z?R<)S67x2%8#MP(TGmRE^NcA5*hswWn`vnf}!Q_(IqQ zYa9}O?e8oAEJ7HEw4$!gh$A2yG|=6RE!$i{An*KBj1iEwcrN-sx_cA2 zoY%JR_rgLlWhj(kT^31$F)|dn5M@eAgd$U;NHn1qwaTn0WC#frl2nGu7%Evv8c?Rt zU`nE--tT#3t^0oW{p@!?&%O7%-*@lp^Ld`nTKB4}|8Snic^tpv_xl|_>yVKUE2-F! zE0IQbkZGelrwqAo(Xgr{o)4<}YRVKY%oTVXTRlbvi8XA~26I=0RnF{cmoLe3OvrGB z```EHSR=Q0Cbrl{BG6JgdCC+Zh1s#z1_==?)X{*|oJvZzRBu*QKlcl9 zJnn}qDAIZTOSr3@WFj4B!Dq$Gz*xZO{FNw(ADqRKfse1gsN(rKe{-p9tH#jDfNW@n%S_WBo#-U*N^pb+Eh?@#DRQ6-EaA-RXP9si%_jM zD7~OosZ|t(`RcEw;E=Yka$EH`Qi$ONpNnIlb!OC6mdbQKHkt5T(gv0%PE=NfQ<@pfTh9y7_?G8vRpf%u) z!e3u7dL42~sXuGlkb|=tR$z<@VoO#~Hc~~RQA!1j-}l2^H>x9F5*|&z^=`eo&`n8@n$uZC!8qcz2{c`Gy>g#rU zTTPH+7ac68Q;2X?TUfL=wO=RS;Bu-Q;_ddpK#e(x<>acI4dt(2hlYf#B7uYi!8z+r zW(jPzv(L13J_9F*>867Lv*|y?Zhlg@;P&EO&3xCVy9Kwip{);FBO8N&w}$H9aZFwE z=RqCkA&QcMZ=CMi@tEecrka{PYu1VGo3?NN`sov-JuD@ApubD)xeHG=D=RC({@Lm; zF}*gW!Gx0&(F*4`ki~-g>^G4bDXbu42SvGjymRO9Mn8sg1U*i^K78iPnLPY;MT0Xx zE_2)IM!78dOgt6gn2YOZ7kGyS1vthQK@ueRQ26z})X31A+@G#U(%G|CkXEc#k5zb1 zBekqdOL%kLpWr6(O{(IV;xGQ^ojXo!pbPQ9JvKH))Q&Brc!Juzz28XEYRlb- z{W!PD+QA72Pgt%9msOh^?hl*HHxx*spLiIg3ZG97SpMt^-3CBG%}Ecd7S2e;{k{Z_ z9?l9hbB(rimO3jR&0r6xrUE+(Z&6&8O+7XA_1A#;0A{Sja*%?U76y6q*y8DymX=YQ zu{J6$tL^y298iXbh1R|+E;s^K!C294)vBjw7jJfW&L3^ormH|uISGd@d%{D%iYDXE z(}m=ayhWC5S%Zv@=C1I&alc?5dz}q#g}|SL7LW%`!umcwP42a@?~ug)#9?FLT2^ITe^*`;^cQ&RX8kAd4QecuyZE!Xfg?2C98sEY5(N> zCkg?wa+8I6L&U8D_OfEyok-;ZcU4fqN2-m*JXjUvsy}lAD1~fX-8T?>HIYzYG~7%tyAPnU^KWFsRNe! z`}XXar~_=4LLA{CLj8~__{)R>zNF|0>w`tge+3s*mT6ljpQkp;q!3ehPoAVCJo>&J zH}N0Lp;pNJ6`{UP^76VUJ3MjHB%uhVy+z%7aJ0{9{imQqSy@wbI_Jn*@5|scd9k@a z|2eeZyl7JmL;>b_Gq4=^slNLR&~uXw;nGb6iwq``6Y4IVKM#k0%xr;R(F+gJv=F{w zbNg9pbfl_RBlF(8ITL9~(3|356U~_?^B`BXU*hEld{LVHZx4Gs3@K!9d~f^xgt7i^HB1smF(V`knn{HnD7jNBaUeg zISwQUKtI*60H9>itMgZ)fdKtin1PGuUou7qIE0K$v=iyV&@|QEKIZzdMT7D|u@FQ-<aCq8=Uy0uu_dVhC|8L3 z2FP-7B_7_sE$o${3RU}u9XMdXNCf-V$#6(;h*NsO>6}x0y|Ljsf+$_cqXTD#I9l(T z07V;V;3tmb%F>)k1#h!x3BxGj#b?~T3(kMQVaA7{f%e1BY2wu8PR6wRB12O8AHCMJ zrOHILh>S&N<MRL(E1Fa^xb#jjxH8W~}vE)+Gmzre9&Bj%u8J z0Lt`{t(F}fjh#nAFpS%#&6~5|CSkm7K28YMrGDo^qN2G!#;O>Oh?ZvU1MNjWc$JEt z9>~r;doaBbgzggukvH;*unG{@v$C5>bVB;gtKohKaSq>A~qV-x?Aha9;b18g0GcBKhF_W(! zwupj4lp)evnZm+_!~-?0mXW=tHrl|-lGsgq{L2J8JNl_&s6%%Zm6>c$(i?9N5AzeI zQrZw$43U?@2qq1%KD$U1SS(hWu`sR)uDFM|apT~f2iCNb^!^=p98v@zzdbhV#~wCy zdUAexzuoSXiM~HdU0v4AjWEJu$<58}>X3*dM-~m*drry9fN0XUM;-hOZd$=93wB{JE1tMp5)ZNplfG9mtE)_vX{;p<{ccREK zi_BoR)0+f6!>>_B8B~0juu9^xjxCE(%wBqJJR#cK6kDz=5m*Mjd-Xz7E4*>6nn@15 zvMV?z7?`5SCywfC3AYH4O=TIYwd|DD&_RQO(-&Q+FSa^8cX&=x_1fQ;aGv<>$Se-~ z`fcVE`gz849wBJcA2jFzB*8ClNniq6b!o4xym*0dtJ%!;KpH%Sw+OJT#i`Jspapcx zrg*QL6J2lAT++>fE5(&Y@akyf7hCor{J>?ZQ|l!v=B1B*{kr2zn+<#Z7#q`Oph*+o zs&h{_;8<19bHd<#_Bp#Cht*?k9UN*vWAyAFyaHwo>&em^t};-v7r7hLB{r7Fr7@S-|mb;MMI{;*=3LmXa;{yo1=-WnLF5acLJXtPgI zK>_c}0?a&ju;l?>1UDsuNW+mvlzGIt4!()HF%LK+CUS|qHbUOvS@|}|s+zqEt|J&l zo*yNLw9H0%v2Lncm&*eAz37mM8w756_f0Xp(t_s4h__?6Jn%idV`y})d&k@RC;{-& zQIL|jh1jI#-?(vI(eUPDT|o{?uI6qN5S250ay3%#qK7#(UCgqQ$ES9~!Yo zX?bae6M6NKAG?VuAbmp7cOCNwsJZ)V*BL3Poy&d{8RAdj0xBs??@>?Ynl>XRL#L z6QKYk2kefuF`<^kvuQY8K97|vKNBi3iinzg`4T9rlhkq@Ctg2>PZ&vc zcu0tlXWQEkcYi;3bdSRzKM*nlI~lSrf3z^By1zgk}^X8|b;jM_RryxGJ+HAR6K!TJ7sADT#_{ z3X^i8p`mX;zywNLeFFn(Hb)1C5jK&T-~r15$#Zc-(xoRw8A%oa@*AAd$guzZ0|)4|yk+VWixD1DH226CGCU8K z)o0pRgqC>7ZV5leA^M;>$k9>3IgC|J1WhffZm?!29EDh1WC1ma19$1n8Op=v`rl_C z-)?@SVLyr^w?o$l*6yIP)jDI%0IIijW#rK)4FRUf6gW_Fx*cz1*nw{Z_AE!?0wUqG za3S3k3y48P56mz=^H(5fxi~EVfPv{LWEbR{{C7c10Y!oBWcNT2%7o#Phz=GpG#4Q? zeJ#nBD>5&x@_yX5;^r|R!^;b<|H0!j{;pz7!Cm_DWrud{J`n;Z^%ev+o*YKFkcCyd zb(_Zmqjg%x(qq+%`6V2lyD~kSwN~v&7EgfK#j@zv?=&$6!ks=4_ngQj62mu|mZ#US zvB*JTIhm*i(FuV-b%s~KHrh=dMMmjxys|w1vq+YCTu|$YikZ9mW)sr5{?rxiZ4Od* zn8F+^88gppJam!O`|W2bX7RmgAr)*br~^^&7N0WJph_cU)s>E0zWmI&0d*`h zVjZySl0%*2l zg>fx-a^ZM@qdYl(Er*P8erqHPeJ{mffJbA5NKb4aZFH<}U@J+^9k?nLFsv9t_O(2J zr;R^V+xxt@>jec?3eVrYTU+)>2WgQ&?PqIBOzrjvew691{W*>woGS}Px=nlB1z&C2 z1SIm|BUVLIGx6p#rX1AK(ZPI1xUPSEHl{C(-M0k^WgNRSddIGogM*T{o7yZ{ej+_1 z!>jgN9L!kSl+Xf}sWq24V>dCO-)?v{(~5ov1~Y_2b}{n%PlQl)m;e>tCb+*n*e3LZ z94C{!?esTa>o4fGRrmi9_iA!wH~DWK>SeV$+j4u#w2y^HZxwzT#b1*D@BbkK?Qe+k z|2ALjFSOI;IT#gjp`xma4g<75k)$vSkTk5ao2Btz?6oN(u9EZ?5barS@~S|Pa)<^1 zYl2ex;jM{ohqcWm9itnVkG?$}%1c_U4KU5y@?&-B$X})`?q6qKB$XIWr&;YDcaEx_ zItYO%9Ql(}y(C<+K=|!Uis9ierHM)Nh43AjdR_al{H?S8j0ow_f4B(ITZb=m1YD5t zT|=<~GQfFPsXBk7(N7ZJRwCb6^_{}Y{Oe&(fl11WBh_mI{(6gXXU`H}2)dbT$?r_4 z@n8{}J)h9D#m`r%`+#FqI*xOi!=9c_bxP4V31GhqVLAgXpw8x@pUOwQ#DAVRjl&!^M46l=!UeL5iyxTQIELjeJpU1L@G znsEKV-L&^#>$A`aM3uj|23xxKV*!4d$r-OCFaiH=Ds^Ljev{rMHWGY)4uZXJrbGFZ z`o+bqc;3vvzQ@mpQ+Sd$C=28)(8O5f>wS)xzGa5}fAStbE^o!FdBMeg7W}-6jMrDe?{fWe}1xf zVGAuNS5njFm(sld8JmvXaA+YF62m-@!F}M}A~@tA75;N9ERM3Z0Szsa!ritZ&t?Ih z5sHop9yECwcX zVKKm)JQ~nJQLu<_JOD!-sD46*+;YPibJdR@$xqs=hYB*EaH-(;!u4WqPfE%saoEa>yQ4 z^zYu#!O>`ywzL^jM!0A{ch3#6<_&a%u!gGx@h4&GK-=~nWEI}@RJlc3)Dd3hdQUR7`JUkBgGp9J5D1hOssC?OAP-WE>MJ<9N` ztW#v{fo9U&10A4)f9^lpqvq-b2!SFcx0q5*IhU~NQ1M8%HD>RL07ZK-gk81Yx)|6zv4G}5u}j{)MBefSW* zb7#bwstoQLjv_IHS{C4uqcEQ4FqOdyymAEYU;wHvT*j#p8W4Rj2iA8N@DQ{|SLdOC z5ELxe3%vTg!ooTrlC>be#8?nI2$ho-CjjFx!K{~o!MshcDAR$qLD@t{9VqPXz6VFQ zsdI2&rX2@NOo0o%iHjkM2>_EcQ83>JHL5g%1qv(^_O+!%;|fLnx#3UY3-K#E!(1=a za<&OY(@mzXBo4fj&((&ba2aYxIvK34}Wy1j$;C5RbgeEC>JnWe$j<%3Zk&ESOB z7?k?SpU~jJJFR1&TF||GOLGX?0dTCJ5(-9vKfw~lD-QiWYEGzC+zAG6ap1l5#>`L8 zo$Xme8R%72J{+Z&y-~U#=5E-KdumQDOk3`$_Ttou6K7#L3*D6bo*%SdvV9MS1)B-Gt0xCD2-4Lff$X5I9b}V%1?vyY>O|oexxPPqN=m@j|jYHWS@YGwlYKeK%%oi%PCAN~-;!9va6U-c&>9yeLV&DKXW-9k|R#V#t zO`F3?)NdUXpAL;Q?$-JT@-A5*tkQ{=MhfC!0vP*3$A}a?EJ+@C3=eMlvsD|Z-(+>{ zql3GLwC~YFxKP5W{7eGM!n@3yz`V*l_f$v2Row!_q!M$5`;dPV98mn`AsBNrkK!nF z$U&^Kf+i<~$By?FG73lO2w~2l7#x%0az8x874>y%f#C|qW9zt@h9V%4qQ6XiXUUnq zQ%XC2JZvrqjvN{M+BG)m8Q1-4CEBTthL#h3UWdyB*QpUu9(+mf6>@-!Q4LcK&fQgU~c{^K)`3D0k1IM5_S;EV-n`(^&IbJ=hWGk( z0eta_$*6!!t&*ms#7#ZeqtE3MP2Mf5h;#Bk(6m2p+^-=uaWS9#$c7CzNg)n+O+bzl z@Cf_OZ%5T@kLJLNvOwZ%Oo)iXV7lnyEp=M8X)`lM-MPQ!kl=7K<(5+Npd&N8w{L$$ zKY9)HofbJGh-sXizz-4URIJ{J!$+X>IV0#y&M15O=btW|uhG5f4RO$^)V~`o@A&%; z-DJEzf&`La1JVdx_5q;@7Mrr-cz%=~05?M;%fZQMzxQ`KlXoC2>kTbTa%afuCgi$ z!f~6NkJ56sl@&6I8C^F1EtQW!@KTOJ zhmnqX1qGm8KD>a8X$SW2PbLjG{6*bZzAhA`i(I~(`SS>}UT@CBX(lGYg?N3Z7rT~Z z)3o9UzDU;~`U}nVUHkWQN;tu?0#h*YC)`b%Hf^-q+Z|Rfd6;t;d1Pet2b+55PEOee zaK-$Uc&6`jW5Y`?fOn1Xsys1SJw7RkGu~9ABjjy5|H9tA<@*|{Zed}-!Nb|NVZ&Iq zG)@{9E>uHXG!HLz1>-D{suMFgnMEc656<%R6S|d=0R^RrQF@Pp9_>+(qW7SG0~3H# zeIPt)o}N7QiCoR1KQ{G%=I%`Nb8_Pp$i@UHk{a&0|DCnL=-746rAj)7#vLDA*-f@! zaMk0e4@$ZrDc@$S4UkC2`#0KJXeb?gaPZP?sSEG5E{W^QxqtWeZLnj(o68KP72!&P zgEySn@u}SsYLEbsnPR6d!7eOIxpRN^sqTLxeHxD zeB#6y(BT$iM&vTc;ObQ=H8!ljyLTbic>!VJUGiM*lK2-S%{*k1eVq8%ziPU60|c=+ zWC;5NESW)l;CO33z3|5_0w|AI5PflAbenx%3%k)K1VZD;>!YrY+szRy44}xOYJ0~) z&-0-XpktwhoQJ=Gq=N~2w0y)%1y>V2FCe`SA1A9g*S1qL-}AK5fM2H^ne=4mh%I4X z9=R)onboFF`>P1mGrcX&pOj3Os^*(IA_2SIcJQ!GgZKyEVEOaZQvaz6_YL0iua)=U z`|gso0DKNArvDs;G9c*Ly}g9Hl93HG9utkf(1HK4uIyjG``=Z8{Z-Zfmjz{eWry#% zH&CJ^RtuW_o3gb3uKt$|sdD=xb*#q4pY{JhuOUX>8!CC{d8rzgg_^S!cU2AKjm90vi}eKziZA2(nh*-&K64{~TQXlsA^M4w@F zH##w6PPiT<#>W%J+R8u7gYv^l4wTVc3#=<6FYi3*UCl=2Z}kP2KA%5P`eXacq6Nzh zca6W%yWNZ@11g^%^m>|MuKSCnY4+sU+_M^*u}kK~p9@GjUH359^;D}Nb0-={-f(R` z#5m2sefff%F&*9fy8Q9^`%C@zwXgNG+qAjX)zhF}^=|dSm815juDz;P^w~f}WnWF( z+(x&E$T)^V<7CY47ZBj+90%z*YwJStZ4ktdD8EQbpAaY>u1gQ@O_ccQ)oZS|I;Ghy z(gA-ZN@B|5?ZQ2iC_%|)fR}=CFh|7n$cFJMl1uY*8%=O^J&PMH2gIj&bWDQP%)O?| zPlqe-^S=D1$yYN^nWBm0DlyN3q#HWNbjGXLgsHs5^K18L1Re7Vdm5Wz!pDVDJc1RW zSLNJf7+apOn$O1^hSmUG*mX3b`67HsvaVl`AT0)CapBnibZv{#OOin}Rv|gJ}dBq*8v!s)^G+bllSt+*%y5vg`^Y|5%KKVgPyOuzz-s68I9|$ zN)~V_84q*ej^sE1D9=XE1A>FM$D0-hqRWRKo3nJq>lc$wz`Vd#zhB?J%-do(C5bVx z))FZG2!kS@D#;(m$wfRX9wOA{Tux1sH@F&I$bsQ~~-nvtah< z?d;VT(0A0RR2~&?0?=s|j4bO|A0|ZmDe+{`;g(PYVckm~ee#5NV#?}$m`@K=VG{=o)x%tJFtP&DIEs*=Lq>8;GK422JUsTk9UT&WdJW2V$P`%s^Ar@y>ogq; zX1!!jfdXQUrMmTIX6B^WT`j>BXotx&`zs=1pR1<@tJ|xj781 za?*;&jOWCict$)VF8-Wo<$U`#F&JxF?k9|AkkM!Y?Jl7*q{fBKUH{I-XJ^~{WnU-- znexGt(D^iy(MAX%G_`h4yD<`(K~+p_^bmXb2C2E zcvEfFtSoj;t>a{_zrF1Rm{EhQLUxSp@Nuw;0ml}zN#5aU(Qh@m7^5|X4j zy6^Mjg(>SRpLI}g5XD834SS{3(Qrw$8xHVUeO1g?S#(<|#Dr{JC)?UHnK{`z>@&G4 zw-NK$0y+ol2IPZ%TF16kP!KvWqlk7g>|jAXzrK5Hc|049qs6jBve5%mzw!=oNy?aZ zLrE$Uh=Vhjc*P%r4AZ`Qg zfKU@IWPyZE^8D&Iex2-8QS4cp)eq zArVu_y3_XLl^L_MZ<+vhIV6mrt2l6A90&wt7+S$d!)K5cpPGhMS>m*>!v(PesiDVMZ$`{+6kqUOv;&u9;uMQJw>8*}=Jr`XNJ{O-A0cWq?N+TuHFGBJU3=d^7NiHxG={6V<_M0jqki zlP@yuJeMoXpN9gm3nSkbg@B$L>+2#?T5*%;KK3CQq0$#%CySGFI_&bgw7Cur(P^QA z#};h9X34GJ#NuNm`_xr4(%0wJ=f1K){?#~m(LjqE=D|rxNuKdI9d2GCBt@8nQ9>QO z5tXrQ#*r76yFEc^;kUp+rFIu&SJtZlcCmMSaJQjF5mK)A%;WuqH-1VLYO^+fK;a** zB(vTZ(Ta@UGRm9~J0#pd+TUaLTqmcKX)2zc_vusaI=)=$Cm>g7Yoe#k9Y8K2%Q!<| zUVM%w#RVl>Hjv6=QW48+>+Ar~&!@>*LM(!Y%j=6nb=Dx|b>o%v?qqF%Nnf`X$f0YhhSk{4%`RiRPni+SIRn84*PZaiWObB=O;kRM|l&RM!>Z@ zdkn=QlIR`BJW`P6!&FnH4QiOs>JMa27rO z&2i{$?CR#WrtDM_EK`?@q6dv_6evtqQ z2wPhl-%}x6!KQBdbW!?2SpXcLGC{=Aib<34P86vMN#CqlP!=vMN^hV2;JC6!^n^r| zJUhb&LVvLXEd@LV!=z`@v%i~d&3ouPOYiJiFrYKj28B<(40qM7MiisGA({1^1lMu< z_nX`2HlE-1T9u0Vsuop~44l_m?4B<|gkr@}pGpn8%4V8-=UpD3R#fBzrUdxJHd>0t zkcG(ODMJs1u>;ES>Z0`5gu9YKVn>ArYZ}gHYDSjwk%1*VHe!hms$-u2>QDfjPEk`5j1V zPXQD_gu-kxb93E6S}DLUAR3q%lVhh#3d(bA)2fwrT~Rx+sC+BVmUZbGa_mOm&WR$! zp!Ztj`Q`wu3-j{5pYpz`{c8Gjz=nuciZyD#k{>js;54-;cW*79rb1%#$WE6qda~3? zzCt}R+AY^_7u<`6=k(ZIkpQh+u_CIpVT!RwM*bJou8KqGWUw~g6c^{5nEo3(B|1}1 zFnCrn;fmBx3Fi5+RmRSiluqHp(j6w=GsqM@ND@tyLsVJ_*o z-B%uWCI7`sUwN{$v9F2p3Rg3W-I6PX{_k{7l(yI0=v7b?-S4V6<;!RHu775F?`>;y z0hq`?X}>*d_=ipZ6NicZzw`zUp6A3ys@L9KD0xX6$b;bh1@|fmdN-+qs;X+&u1=1J z6Axq@DZlltpZvBxoPOzQ@mfd}-rUvE(C`372W~rJ78QN5r~C(YWyD3dJaG(stVYZc zV46Go*CqMWA3u(&iAjxD=btFml>ekgkH*_H#Rw8%)p9%=Q0}9U7=`2MI}q47x}SVq z`ntYs7m^Vg7ADvatb9f$P9n`&9kNXRC5KG!JUd|y{6{4rj5VoP3q9X-)5_ioOp1tw z?NXHNiHu61%oLJzRLdP1wAh*$%kJ>Lz(%?1<6_Dq%<<{LB@vHI#!4R zI6~n&zGgCk9*)3F%_1}TzObWdGvi=*%!1AX7iZ_rm+#*flB?s%LLp)0)8O`PGWN=J zPiV=Y(I+VkDVb>$j~q5@$lBNF`N705`qZZyMSQBP6#mgv?i3i;uU%`_s`LCpS8`T@ zt7b?vUqIW64?SJ#r#6a;!D@`3Sw%rJ;=t61`}p9Le5t|TiVp?v8dw~}#Itd}4<-f+ zmK!;mqLjiCI5-^Q8mBjNLArMrc(mhGIo592MPZoc#+fk(hB$`Kj8T>$bhFyKOi*_- z`(M`9*4{tV*^1k?&J&Ax-eDR&&c9kDGuc@ML$hVO=hETdeNHl ze7$$6pAtFlhy%-D3W7J|@U0@F26iUVCdn1Up%??VwdtTUYiO;@5n1**xi%;%U=@TlUBMNU0F61QfZTwBH< zc2Jw(l3?|eiguG`vol)1bPYLt=FD>bC`8Eyl}_O$cNeYzy-wZjCOG4`u3U++Lslni zk1>Tu?%M&EtQx_n@H><^jH;R8Tc*_O`V|edx9m+qTuJDNWN+>2j(Sq87-W6cIRssxiAoNyw487w=cU zR}@{^G(if6H0a$BCVK{skEcp#A%z?Gsy_xm+E3> zs<0qz_kycEdm>_r8^1w)N*GL*_+HS-A3Ch!`zi9MfLSxtav(p)g}>HJqYH`}8$dlM zx+s{0B^tNH^1QV#@IG7d*078xCGn0<`b{MILtdS$iHpj4G)m75!@_?&lq)l~_(lw( z?ULSs0Za}FH7Q>UDIvZJ6F*Xt%ZMKqcb&!bK);VwRsB|c_-*O#;lqZVFxT8_^qWsf zY3T@-B)kw>S{3jS$RQ`2m{?&Y9v)sKM2BRw&zs%`fggoUFk=0!M%nCtq&9-5%g8n; zJ_)Zs-a6k?az!;{=!s}^&1TCbCp5O4Ftq>X6ESGko$YoQ&a&HK*pklVR{}&2tZ>3vJr2@N+J|)i zQSC6}akBm9UdG$k%H(fL`%JS5Ibz%j-uhFIGbu~sWq1vNPf13(n`ir-1y3T;g~33n z1F>*Cl23C~+s_V{o7!UJa0ojW6v7#31`yLpMx4p1YHYHyuGSN%0TI`Xi_*GFFZ#;= zlJa`r2nUp;$vkn@t*_aeTw~;rmMvPa$8pvuX44+YE%R3bQGqQ2ksdv0a^DL(&mx_O))=QV26? zkBTYCLr|0J>3!wfWPv~;aMt(fb%&w`1WGs{WMVYIU$fKY$U$G{x`7`8ly<;v5Z{T4 zl>@C#k;b8Oni{4Xb)#pdg`qt(41|Dj=pnG`L%T;)lE{y0;NXZ=np#?p6xJQoCkw`h z=duRWq`qyV2^Na2TGaxlLV6ISu^(?n*RNQvu|PJ3s7nCsLX(|vic$cK+{dS$m_|%` zbflQ#17bHj3;5 zzQ9RAw{FIa8T74-AWicukgW8UN*90!bLKGQFk^=NC^qe>>}YVrYU8lk6?2s(16n+u zW17?3y#1GRUo7UWPw1S|C@i@(^f z|HXv(R&+nf3G;S+`dF-LA?xi0GXso2u?Ckgjg#`W5LK_cnC*m&F+^Fs6I ze|Bn0^RxF~4W<7bQ}chXSoo84@r*l(=XR%f5UD;Z=FvSOaZ?-}Z;UnzJ2=nHNypCI z8aY`0z_&9_MHBGVVxBy2k!Uc%!Gg|m^hLi-0>4yi)ok&BF5*Xh+qYY8Zi8aP{K;PV z^3`a!c}v4Dr7dhWp{XdW5p$WDiSn*YI0!j1P9CiqeeXN_7$Gu#!UTrJkB`X_fuHN3 zMG}j@YFhsPNsEN>%gIydjpO^nOjy#c5+cT%Hv&ij-Px1WqIGL!8T{5h#J<__HyOUo z2J79gsg=}Ud31a)V*(_npfRKPklMMsyD$P9=Xk2!9&h@|%bSn&+|f~pm3L8qAJ4Ye zRRvV%oTh^v7A8iW5XX}Vd9LwXs?V1k%j)WCHa%)|_#i+;LVkxr3~}M25&L=>(;DYb zaxQ=Y3APvQk1t+7v|^KO9mMnyigS!gY)0h(uOQY#7|~fpW$64XlFb!&ArTYb_>dTf z&hlxhvSe!TQR>ZZ2v8Nss71a;{teQ}=i|qZl*XeUWyxuv&+3(y&nhO-*IxL6%PMaB zf1MdB_54qu`g^C&F*RKdp&Ir*qG{t`(hZIcA=j9(Z8=JQQGAg8(XL{dSwxuwJplqT zu?HmH8E*pS06UJ@cXj@r(LQzJ^lQ@@TE->*F5HP8J!z0y(Lst%=$;f6PEVA!t1Ad`oAcDm%jE1}&)D%U6eCr*oUIf@$kIm{7^IZXad-}(nwT1%cKujHqi6Pvh;hn%4(Taw)Uz{x zqv54*-%bP;6Z=tHC0auukAiZyC_VVuv-yl|gRU(d2Pn%Lw|7|i>BV^IIAlT9zk}P+ z))}C>Rb}`!+E^|%NPGE+F}ww?WF69RWVJdOZ^^?@Xe8&(1q92~NNwCQo~bCjp^JN6 zXcSQyE$-OBx4WRkE@9X}g4F?z!aaNF)V<@lXESigQ9RURZiWY2nXOUY!W^WVwwoDa z?C#$Gr7L7VSzxZU_o*8x{Kfb@+qipC{)*Zshf!ehumpFCWsQWCw&8ZYc0%zpbkq^o ziw`%dOHAMGQ3>$UKUT77JJ-JGr8o_*+_>4!qE1Wuqd5Z{Cla#|knADJB-a#=feeSu zLF?>$b#)f=g{TWeKTQDWg??s7$YAzN3)47_Oin07=Do0klmw0~DsqMUsG7*w(BaQ+HCf0YsFOs4pX6Js|0_f* z6dXv3Vayd+uV#}hz{i9IO~ma=(NSXWY#i)#siMaCw9uFyYGd zAbov((w_5JC1r2g2bfFc-A=a0`d9oY%vjenIuXZr*=lql3zz=Z&BpRtH;=Y7`-8zf zoIFSa>o`W}FDXnnH}BY^$7QIp@RP(so111ie}M|_puLP4Q*fv@vKNk3#$c23;Wrl= zpgO0kziH0ItbT46Z!`d}+LARjVV%1@^Q5vvnyUgD5!!)NWo0atXr2Xr%vP94e^-*Be-W1c z|C9Uu{R|E+#BIvlm#x*n#~d|eNCFuN@ttDqC~XQ)wNo>{3z5t4l}4v#COPIVBRgVS z4Rkq_TLxf;wj!Xl+RO{ZmWfD@$-Sy+TthA->hg^=cHh%JGKn0NK*bm~cShz+7EK$_V9hr|e@V&S@NgfvwlqTF zx-cPkZx|-lqbtmFs!v<3^!eq$=M_;o4%tgD+OFV;6U0I1*dZx*GnP!Nxmhr_b;dQx zvXMp~`fP2K+-h3Z+tztQT9^*na22NFLrj{8-%nD!ErX9zqH>-gSV;N){t}(?Wr@g{ z`2ixrZ5x54pzlE|oKPYL2#C>alP907bvZmpSy?$f$&t$gf~CmkBiQ?xQJI>Wu33{D zRg82L)(2hEq<}OW57V8aKhH~eU3YJIrfF?zI=-+@>-2hEd{J-7Ok(H~K0nHA_)}of zX==0b%gPV0Y`6z&Y3CH@TavoY2anxXJF}AVa`8xfORcP|0DgJIuiwA#=SQX~EP^PA z@p}=pWj#jpp5(PhKIA)Pfz-Zx?+Ohytl^79u8_KJ=F$9*9HOM+Wg-JaLSzzY7G;hz zAS2Z_DcMqg9}DH?gx`_P8{5ep4#)h{4KQw?2yzQ>0Q`a1*^5gysq?+v(B~jgwky?7 zoBgl%U~N4upZ74laT|@t@HG6CIDrR;x1Y`7B!EW+L6-;{Y7$Ha)ZZs`bmy%`)tMv} z&}8af_NX7=^G9_Qf~6_aahwz!ZuYF#7VZqN$PNWUlKNF=-|iiq=$;eyee4_U-Q?)x z0~xR;IAPtFf4dw$#cg~CM5>(otve5xPx~w~A?|E${@6F?0#tYTH%gWb@EYBs)w9Lk z8LaNRtnPfgjCA}+4|k?j0h=pIUp4ROFAU6-Woznxd@8H>p1EoNlr!T>uyWuJE-19n z`q1`3{9N9W7wG_^3pu?j=(OGYNa$#9E}J+mTpSx8aM!-=5DlC+-*rw2S8De0tij?4 zz4>ouE$W!T&~>IM*$g&TcL{s_} zIf`&6ndQWANb9Wc)o;RgCt-(V5_~kr;c`u>7Ss`%zKmLdX^wVJ*nsJNKlk%$v%M;w zEaAwc(%I*7Tq|^UNXp&rBaRz9JfuyeSXjBPedjA$e(S{}9k`)M#<3g+sAj;SI*FM+ znT-D4RvWo{w*1yI+oFL&uKC+C)=*Z zd8~ESldD&s_o)ANi+uopLXQ#78CtOlQvMm%iMn14t09BcaLyV=)|fF@35{8Ao+w_l zt^Rv;n%t6DTW=|x*0_m>zvy@64PU~G?`5pHFczxD+Nz2QVH!Pt1A;p=Zt!fR;~2S4 zy}72Ue74k&VJG-yqxuUsOs|p!ALT@EC`MwaXy7TvG50e$hL{GSf$!q(_9mz0=X)|& zlMD^I`DoNI)HeNHVh{ej)(3n6j*ahV^VY^@yQNi}{dQp{tG3s8j7kZjYi)3O;cRpH0cd4M<=o9 zlKV7$heOzXI0(#DFM#e4bT9N>pLhmhHjVI~MR@>)r_W3e3x+b;6yfEA)BsW0T0$u> z{LuR1^Q{CCqW4qhl{rt!d(&<_`EkU;*QuG6yRwEn_ogMb;LRPxm$sw&`4_D@-62TefW8 zs3rzk$scGS|kF1K7z(%u9?G|hM|%`HQzq>mf7h)!Nj<`$akw&uZDpcIy!bv z(tCP#!Fm@jU2;sYinuSTZWfk1CHJ?uoOh?KJbm8oUo42GI0*{h5>Zh`CLGoZ)fhG` zuhwVQ%9&Loyx;C8#achW*HXdg!=`JJI*)_f*x*Y`DP7E0wf3FDw`J3lQ&tcAorVQY}}%4TXE8LnM}P=%KwB|2!{_UXTp2kmslTzwGp+1%2%rr zC%t<6wsZUTJ$*Rheyse{;COZk)G2gvxpZ<_$m9^&$O~^QjCtI!f-@7rb%_7Iz7icL*Rco=E+IVxY@weF zzGD;-SAMg;?(1b*x+aly0=>$$GL~|#Tw5q=>1P9#xYCchD_5_^YNwqHC(j$VZtZ?5 zx(OA6CJ-{6*^Y*3(r5f^Up<&*)z?8rGVMZ9V#-eNYDt(Bj`&LuZQCUNC<&r`VsQ+L9Csx#mqwh=HYQ(spqf1&WE>wXbzc|$>hm% zv6Z_zAB~|0S^&bUX6;4Z*abnrFFbO1U~~98L3Nd_5;&|Z5GSYhUsoffAVHOh;kA9tc^#%bAF(G6U0l9$Wy>~gh>e9L zGAuS|aee&qpiYS3E*Aabt}(e~IR5X3YZ4sn3S*eB5HGt$j_31hO{L?&tTUI9D2AJ| zAq_XmpY@PIY&CJ*=o-A0`q-grAf}n4dO*A34&S0tVn2LVA9RcaoB=NHt#^QsKI+p|2xbN6P_Co_UW^ z;JT~|a=BwlqMe_(d)I*j&T*0KR6tW^ti_`RBkI%JG^v_l$r6cD-(g2sl0LDDG% z+nQeUxvxlSmo0mbV-!Gr#LSp1cZ-Lc^DrZFiHjsxl>1@k9Q%5Pr>ft6I~FviDYvIZ zp&RJdErk#w9Vd>?A3r8J;s4N1I&RjiJ>uQt@@wYV|3FB{;<)j_M@c^K+eXyd769yp zdIYl)aQEYb7xkfJ-oNkh&VuchBSvMd5w_3(SfNFhW;ZL2(7llbz9`$sL!Pm&vC^4D&!J13*_6eNPGj{bi)m-2*3nDNDr2VdsLKf|Vu(V%WjWT^ zfEYs{K$2)7`Vce}7+yq7k!RKP|6B!BBtiwMg@FuWfTF^%;qwctiE+Jot-8z9zS*5Y1#bs{|&g<3r+w4 literal 48872 zcmdqKc{rB++BU3NBaK8zDP@)+k)bP@=L{hfl8||x?;=uCWXhC~nPkeGN~TI?Aw-fX zbD4en$-UNkpY8je^}gTx{_$?lb8XwbZa3F;Ug!B6j$=ReeLsHdu9AY}&TTZ?$jHcc zN=u2WkdbYAN=CNf3i*06GBUOKOS|!}t(H=nHe_UUKEyxk0{SPek&zuHlNLXx>KHll z)$OwCwdIuwQ|dzxRUgt?Y(Cc?ov>$Y&jy~4;un>R%jFs`x5^*WoJkGW%eH3KVP#+X zAzv7N`Y-lWa((@TgO2&npM_jwVL6g?SlsUc*M`V$hJpG;BcGy2=XyR5&$WKwYn{8? z8qQ-A=4A8fU@((3abIL)V%26e&TBuCwH)bL{T-Q~%o{2nFDjqh~DJu_8SGeGJDVe5qeXi25yhZg7E>`nzm;4<0 z)_d?`c%HnxfB$~=^}3q;y?gi4+MgmDS~uo=_TlX8ES-=&?=%}*LfV(*bynHo8|k`NIRc?Xt=<>f|X-NvP(?tXlx);a_j&Z8HG2KbZl&_MyBr9 zS5|!y7Nt(3?YVZtEjwxX(_#l^C<}^;gaiaG7dvJ(6o~~@7U>R-&C?8w4G*U_4q97V z58Zqxp)z$nymKm6%DqES#L?L|5kOMBL_WhnkYF*G02x zWUz5^whqr&lr7m~8Ug|oV?^9UmS_7K8dS0?I4{2%uVKxc9_#L|ti1l(bDhURNB1cn z9{+%@VkaIht``QC56TuN?`0_m##{Bh$3t0k6@L-%@oQx%a-Ey(UjCi$zBE6#ut32e z;yTe=;pF7>yfJTa(rCX>ttq=#Ti#9W?ozjs;^H@N-mvJL6FceH8j)^5S2}!5y1l?= z03$~tkpvxnbz(-h?mezrd_T4S{Ni+@Vq>Br#rEw}latOr!msn2wJE8q8+}U&4h^+v z&lwEA9zB7-Oja`|Dnvbrj@HfUz?AB_jOLc#-m)+|J3Z9QDkwPb!{E*(!lHLqojkU2 z@P0mn@ilfsr(Bb~(wXesAAAm9Y^UM~vrBa^ zQmv?IwYhO)P?EuosjjS7P<{SW%EUFJLRCImsivGtF72rJ_;}qCXW_Z;L3|?2WGsy9 z#4f68Y0(@yl-6t#z#z&Yt%3o`)Gf);8ZBF%$@GhI!?(D)9^knAb8zsC<9H8qjH^m& zvq^4y#XYKkLuXXXN4^&2cfPXjmub9KHrsnoAxiK@u9l)=-NT2J6ciNc>cgX>QDI@m zBiRO(yVBK#j6WZ~U4A&<>}#P~YV!jI(bD4LPJu1y>ZV#we|~+nHo)3<`SWXZa4@;q zgu!ERqBfLMBiC0wb!K8BdD^_<)1+3WURmjRpIsX^?;zj4JxIfHZnB?ZTzrH7<}v5N z*plJe+FE9X$P*5~+H*~@aK86yrT@OiS(;Qq*^zg1xGgJAJrz57tUgZCXBQnFGv`L* z2ld1wPMxi~F7m0(_CG(zN(RtdyHQXCU}uE=?kw~0xN_ww?qG8Alt?%|J-wBcm9>wC zp4&{bhF&mje+Nb3OEqqt?X{_DWi#n9H`Dc|4(ytEOCdVDuuwZiv2*8WS4mN4qRqf3 z%>7H(BGrVJ%H+Radvv zc2H%mQSQ>EOGZY|J5Ol*Y|V_ZDj#mmba8UB`}z4BZjOzEBZO%Xn{j2fQZz>^y{ydR z+_}Fx(~FB2IX&j?O&smZHEms7TwI<`6z%`<Cav`bl})aG4>1jf(#RDJsNtFs_mJ=JaM<7tG5qtXpuiyT&#|CH6% zl^t8>gFpQF>M-`Th*`QJO32{=yB3p&OR;soU*~9kx4X-9y`-C)o5M((vby?l>4v3+ zKN=aA2Y>zg_3fJ#uA375dW+VVl(3eZ7f+69ch`JrnI|@sva&Mn9~TJ8zsDpky0SRc z7a(drPoIN%QXOv1E`Cs6UOrG46I$f9I8mvUo`>+Mwm*OTntI=Y@=M16MvbZIX;=J- zitUo+?~yNfcC{%pvZQV6ws=0j(UPW#tC#%g;>n8?w3AtGm8qcEIeGnYX4!IkoAq!D z``p`)-`@K8`(x8-rMI-Uwzj>zQobI$VLpIH)7CaeJyqwW;oYobqM|Dkl?-ETS$&8> z?;p@%2Re*(=~(T0Uo?4r>2#Ol+Z;t*U0tkbS2wr*I`0;b=6aJ{O!(=%&LRgzUDK^f zhr4DP&bzc?{Qh`T=_1ZW+%UjOuE?|r*}?6x?25f<@P0?O@^ghKldG?}Z?^Mh{|?o2 z*Gz3*u3K3QaCN8-Jf@XyUmL=1^!2;Nn9Yw5+L-KK{cb33Pt|-mlODOY_8A#O zXF4p(!tG@h6x=ao{*|{cmFlph%nWOq-}U$B%d5KnNL7ya!>^XvQ`t;CFI+K-+Apr0 z3szi5w%u|kR=JY2w6u(jAEo~Hsz>kNbLbR0IyycM4kk8ILxS_4UpI?KdwY*~DWx_G zyZq+mFDxwF#>f=J5HpWK@}>-8R^(@$X^`bS$iR2ta-Lau`4wtm=V?UR%KHa-467cR zsGk$5Cq{wmrmc;Q5TaVNuuFX5!n(BUF>Wo69hma+^4JWP4KsHgO8QMEG7!iD{QcdQ z=LY=Qj~zRP0G0lgax!~*vX(P~o$p%BW18zn7N%lW%vw%i+!){0iLS793tRPioxPcD zzI*p>l5bySfX2nnH^FX0Wty7lE!r#RPRq0FB2X|=h2t3zjr>C|9u&0wxw1UA^8Ves zDu?th9BNtPGiL4SPE$WZ7M*SVIeBC+l~z97$sp1>*-OUq^5)O2WMW@C@-6g~l^;<) zYoLh2uuX2+&cm*i!_}pptV$vm5-KwK_#~X~Nulf9OPPcr>@Urt(9lrI-kM<6=l-`h z@1)@~X?j2>)Sh!=>UW2QM%lJdPQ3#p+mW{Vw33U73eB9ePua?@Fn$gL+PFO0HItB# zfbh7~?|{9Mt(%$ol`@n=XAfz1ZZ15xR^w8Rctx}|-`tsfq^h#UF9;zrRCRTAnWd%2 zSXnc@kFg~ieQfb~Du3}_Yq9rvHtoC*EiL>fPY$MLmRj4|jv!ne+c6Up=fvVsM&n=|a>z-~6^q_8NZf>rxug@t-OJn2VnOYbt ztE;X~4&wZ+wxl7SuD+dd$L8BN3~t;=c5R-%b?cUFD95HPTQn{f#K*sT|Nec;@7S>f zdC}JOH5El&*13+Y*Nu!yk;E_tdHMNB=Pthr26PeVkx-|xwlXUyKR)40oz~9rmmdva z%gf4APFDT>`}d@d(|JcHCpAH(nZ|6(Yc|%_Y~f+v%_b!?47QC;x4h5in16M~CoM|n zjI^}cG24n!f-~h?7+lB8w;;&r71^gR{>nB&0uM~!rIAlKDsmz_H2fI7aR8&2rM-Q| z%rqG}5&ji1(~BK;K!f}Xf{fBCQc_a(_P;Z9ik>URm@i#ISOk!o4rbL@zka=32hXWf zUX)#3UC;eZThh)rO&TJxW3KsKevcrjw14@cruL<_cKAa$Piuw_&q6+;vdgw@+wM>> zbfu`V4i8Z9?kpZ=$eWuQ&?|MFn`zaHIqURtqC+RW?#WIPV+Q)HiO{&oIbqDDTe>D621P-^qKQHH#_V< zgmD|ZzrUMgc$hEZ;^O97^qWX2|luyL)!!otEu zwuAb=AIc;I*8Qa@Ba;%8^<8m*7!}i%k?gwr0X6Qk-+cOOLy-<9rs_l)&RBo<-cF^S zc1hWw|J5sj#`oAYl9G~~y2WjQK|X(p?&_MM=(xL=S(T-^Dfy!Oii6wo;#|90(8^Sq z`B%a0--@D3O>ef*o;K$-)x=y;K0};;e%^JiKh)?eV3LPFHMc(Iw|QS?M{w>7t@M2N zub*0;Fm9%xKWo;;)p!7S2&1^2@e`5vE@kTs>HWQ%$&{E;IPvlU#qA@Bi;Jr|pG|Q+ zmJQ@nKiQa=%5C#Q4tp5!WD$8OL{W-^gF`pZ?8~PpA?-Y~lY0Jg<^bPDfP9nvwWtCP zaO#fq_P)fP$KF*_n+w*^tvBXH9_U7{#x9_I_Tq)*j}PI_CGLREks9m6dUaM_fuEXj1zq(3TyaztkD582Yr zu`}a+sAj?k{)gT!JIL(3iOM1{G}K{s{HpSdT@_YDL+tr2%91OefbTqzcbZLRaH9YP zF|L!+qM~JLsp@z-!mF%or4n;Il$xn^i4nk`i2935 zOW2qPsi|iN6JxMB*|qcJmNh9E#f$7myIjVEwY57g+&eHgH|Krlj>!DaIE1}FW8E>L z9_~_7zFDfnE$Ov2HJf)(b2(4{^vQa8Kt0=XSajrzR`xdRs3#I}nx(EzSFT(c>%!ju zg|%{sifZ8d_i4;fZ30_2hyOW$&TKyx^TXT!P?HT2_~rOD%w~UoKO)FqfBh9~uav9` z+`XT~bo_WrwPsDK0c0;_D{D*SxODozzWhQ5KB8s?9R^178YZG8*{J!+TcpRUXB>xz03-W zvwZ=8i&#Qd{WZZDGFJqMv9gurTbs6DzI-`Dw}fTI%fBDv{xB>|z_1D>M*zY+LJ|rL zyY~!x)9dk0%HYPU#`DsLZtfX0|W$6fSu!X(S~jB^jBTB;~lXXU|Sf zPMUX@jt&pg($SSzbc=X+co^_)&zCj0QeFE&u3{$>Tblt{()pCal5GS51ioddkNm$i zfkHgwQ^&lW!t0*urV9!e#3qt8<%ji1+o>d)Rm=+}-+q5ym^mXh@yf~HU7oj^n!D+S z`I^fvZ)g_H~4>829<){Co!`rH5H7 z0D+^UqqI!djQ@3oPkaKuM?09k!mz6^DheM8_0yqB%Wg?U%g%W zkmq|XFPFM%Ca4JiZZp`=uniTtP}4&E>R-j&j0F>u+B!OhZ42+;-+^6`?bF%WDYCL? z6D)JAn@{(C9P&bGiD@fG!7&yV8S>o>3?Ab>e6o<2P+BC_0DaSx%$ z#@2QRIXN<|S3p33)#Ie3q~6|MUgwvsO6F6i8UQ)p$9hxZL-zs# z%0Nz-o0~8E9tEv~;;Ez5%_X}T@4XukP>1oat3zRBASNb;@)=Q7exd1V^3VcxYkQit zxVTqI2`G@_tYe&9m9CxN(9p1pPH-O`-4bBU6OJMTSEPj`RTe6$P~uaaohyq2qK(hxw^LAL zx)ZS%AgbjGS5mWyhDK{zTH1#XAKv;;Hd^)QD3GkOl~vZ+pnFuD%ZR|p z_m@y3si&q-sf0{ty-Sb{1>2LKPJknKM z+RV(%+IsTNPTE3;v0p<&TFsx46ESbB?Cf-+?yiQ0@e*TUNjI~zn3I|CJ&l0Qlh(*qW*8Br2(S@DUwnPpB>&-o12 zk=;-0biqOf!xNivd;>3wJadnwrRAk!#|d0GG9<(v$Qbj3*SmM(2nZmysB|66M?Tz3 zL6kt2SBT*M*cSNkp(RMM!Nx>dk3ZsZ_2L&U4B8fg>;aV*7DjC_@cHxS>L6y?L|(h0 zCXkj$(W7`+Tw85tq1%FeiLR*e=cic)l{7wKTvtih2qq>b`uf<*d%Y=z>_QYw03=bT7$az^}(_hx$zcJ!7l zTejaLXG9h@;i6_6)7#3N8nW5*`Ma9bi-7y>lb&zeS+8dO+3eY^Ss|(R+ z`dy4(G6|?N0zJ0#b8?OWaCdvGxH&t|gHyA^eIe_HN9U{TY@8DCqQs-`CE;nq?6z;; zE-NMVkb#ee-z-csfA>*|L#US#8k+Ar4mKQP^x~G}qB&(KWnz-Dm_*sTI5$NipEIL6 z3SJs4cW`iU_1*JyAur<<`B<;9aB+=eFMw;l@9RsxZQIMNtlcE9JH$)t(rPUAG~rG5 ze5)G4e-k?#FB==1ZkMqVY#Q?~FRy`63Sl#~|57_LV#fF`UOI?n)OF$a&BmhrjY^7& zij434X-}sdoIoXuG3>n{)<1mtGJzr@f`X2Eap@j>S7lo+$aYPdVfzJ1$<*ed+gm8; zh3wOS@7&$pfe`^-re1ls*2}Bx-6}w^h(LF!piK9Rn&qOt0tE%2D7rX)+q+pVQ;Nmw1UvhF62uLS z_Af1YcLqMce=m`sqUNCwbwG`s)$0T+YtR_Yj?LJK>Z!wtkB_;fXnjsgz?@9|_!x2O zS`8K=Q7584nx3A1_3D+Urzdt#K|z7$r2_r-$=9>KJIKmhp4MK_j?>IGYI#u6MN8(c zVc}vSX7xns^`oF58xXb__>G%4tGiA=lBD0QE*=b;4jImItmKbYo|&e>0ERXD%;h3` z`M~(0I-5q5Tq6Hj_1zhqk*OHl5BM{5=Cfy3<91Wh-9ynJIhUl#v#!-1DACoM zsNb+<7dhj1Q=6t+$TXC_SSd!MNFNcv+9cAg8wS?aFE#T~Y}4FRt?1~`CeONFN1y$h zvuv?pHfiF0tDeWr_JLnti-_|6y+3U~!@cAwmF7Q>mcXz)cT>4|@uNfx&-G8mPE&H) z?RhtauD;ngu`naKdOI&9FpUxq4&AV@SV4CG7%jX&>{M^>KqhDj-NjBe$l<8{lvA7c zbFL(}4&S?X&y-EX=mWKj%YvfFoFT!Yd#dQ_Mu&v_u4ayj6ms|k(l%!*_Ph`O&32~H z5{w3JsSz^@BQKru2tU8N$RkPeiLVabsFrF+YG@P`6u_N! zgKM-(zvt)2Z_&l(H9k3+VzqbmS(Sv<)I!aaA^}Nm3^pV{$apkn!b<~vATvrUJsMO7 z5{3K%bcs?Vdt~~Ij10&hk7(nbJ@dPF&tbIvn)+Ejz8RFp94Aj^Wo6+$MlmfIdf*oX zJ5|-kgD2YitE&0p&xjSlc8s}Yh=a;`cmZWz= zB6xR&3o9EeQz7IpFhJoL1cLx!qn0v^8p_;Fn>K;C0}=?OU0E9Q2n`8&KzsUAnhg{Q zqzqd@9ZgM5@W-j@>8PHJK7`e0>WTKnZkv1w`NhG;rpRN(-P}9_U=(DZQC;*`U>F)7 z5MR5tZY^;6V~$U|yO$Ofx!}Pu3fJw8`~j`@DxOtVRgG^Q_E?(HNLTMbenX@P*QL(g zCEMIqiPzV!B~PC|eeq%(TV`f_JWRyRxy*fO&)&U&wkWN>n*#z7UxBZemaYchq@}Cd zg|vM=+UfZ5=KL1~rzbD&Q z#Q)(1z%~AFY3k83f$?{u*Ph-}P2kr5miV7du+uXpSll~>H$B~bcWboaHSd@EhldT1 z8&eLQvBGa<0Sz91nlBTulN$6W-k0-d^Uy)b|N77kS+JnxV+A~`t}akIYuw&FIHA3IXFr|qM;@%MYI9*lN1*Zv+pYN zDAP)J2jfC(l(G8Jr+@JddGx9XKWYqrqw^wL`k^$`2kBSB-U0{jsN*`+NJ8_ z$5BwT8p*1YI(-!ai0AzsV7daenWSZ8Wjm0xAp-#OA<&}e^4W2)A^Wg#=1 zQ&W>?(Y=hgzVE<+yc>;B81zyCOZ`wIYkidrh^{COlLi^3`jpdzqe4ns{hP#LJD zj{zC<_Vs06E(nZ>Ac{mz&P?EDT&*ij8zCM#xP*iR09xe(x((~sA31syX>#eIj9Pc) zY*V;ehU3;|)MNxJIz7F(=vtyX_T$F^YH9)fcjTa@QlcqWhk~ssX~P3>a2_C!?;T*@ zMnS>AZ*~bd^FBqgYKnTg*1@q|G`v#eSq@{mw6qa_ZP-H7aZK8IAj$!1IR~Kzn4>^J zh2^~Zl9T)3xo(4;5AJsXWx6U$FrqXT{ zHUc&<1ga#?;_+LQN0^ulXNH;y*&Jy!JDZ1N2045y|43m**REYN zGNMP#jR*{D#(Q(g2Z!c<#sy#o*XmX{1BizMh=RZ)m)hLoM3hy%;9@~zG!5F)_`h#% zR?BR?zWPdh{+vVeWqiZFWR;4Fia;h!5e~AaG=OdSMpgj1w6ynjZDL39jXN`9BlCO| z>|zltbIrm+Pa|j@O|S%=WibSsGiS~~a#oNbUZ{L7qRzq#9LEj&!(PbscPRA%Z)p4_ zO4)^=Tu$^=5>xjh!ou0fX)83Mx1cvbCfJX4-8^6k>X7f$DQj?!laG!9Re&j=uJ`mKGY#~4*2I0wZ@0jtUH0AH>uy5gCwP#?q- zRAxpy@*DU**463do9lqEpPlGCdh{qpOg9rC6ED3IXFH_V@4P5^gpi3*E(1|cK0SB4 z$%ObYSaB;n8`u%fOD~?96NMQG%cfz__Ne3oS7?*{OE-*+emuKy4`d`AEp3tGg#Py7 z$g@rjSGX>Tm>-Kw)1o1J5(t2xne7Oahy`#%S}{t&q4(WZ)AxUu5+yfp-t3=R`s;b3 zvfk~t<>gl)@F3~aoprRt=7i4%#d){$a5_d1Vp8FY7cbs#11*Aj#bu&`s^9iJIcz@J z@GWd(%+M<{Z#l!uYm1?nY_-_3#Rmkz9dGZ!nR#HeCo_jc-HToIy=4+;1Z|UK5^8E| zc|=&oICn9Kn3g+T%f5PqO<-@f7An~ix%0L|9Z_K)LiS7ex6an6p5DrpJqA}-t zNIMRmdY9%_^^h?+Ie9XUf6>FR82l7P}YLw~>l$R!1$X$lL5D`_jHxa6E_Zm7FG{Mmf&6 zeD>JqY2M%ew#IGdR8v>C2PFWG0!#|FzD|L4LW&JhcwcGh9UMIAMO0-s;*gkZZPSdz zG0DK7)#v1-q^f`s5wU*t^jtZR8&>GPR49{>;<#IBPLS&TZFv~VyeJV>c!rG%uMkyv zfcLYwIKV!r^Z|52Ezd4&hhl@;5|^8spVx{GBxg($?L0b@6TFG+>EKTUlcgO^sD}P7 zf@kvnY~GhR5&diuvsE_JqWxS_g8J|Jm*mUfJ{voKG3{X=G(}PDDJ}M`tDExUCV9Q0HeT9n}OJpY8 zbd^m|+x{e%$cjMu*o{y4Ox5x1z^w=;Kd_NKmKPCfgpJ)+gZ~HKE>92=%)-J;s3C$y z=Bthd_;#1&Xc#~}L=fXFnO3=cxf6Ss@bl%GYBa{^aR*05-E6T2Nh}@6LjOfM4hAkh z)0PoDCw2v2bj%U2&nCHnOyP7a`jLU~EZ)e6oRV!0nO4&(oX6;`PL8HO#oO-n2rJ;*h{$uZNi*mHlC0 zLW07WM9>Q}>W#mA21t^9U~cjmQVPW>D@HG43<2c(U)}H$tt=Dx0?aNPc~6$Ry1Gcd zs29U>iNx?;(*HD|i)o_>!Tw?cAQ}S4Joox&O zOi>8qI=AS)w5Fb<)jMu@fDi+)vI65BzDUHXSN!VLSSD$dZ>KG~I`IkQ!X^{DirQO4 zGtQ0KS`ZeGNn_PMbkzuqM}Btba*`y!%0>O*Sr7;_&{@*Di=fn@0m;eAHX8HBNd{z8 zEcR!siY$!qNC$$*(OA-C$8TGVc|ovzEp;n$b@$O-)m1?_-M)PuykqB0sM(lED5o;g z(vKARPqMIRW$AmDU-=2r+%+qopnPI*bK4m84Ggff`fIx3X@Y$Jp{2FDdJvQqihCaO zD2S;D^V=Eki(0PEidcFw{m)8~;V;mkbD(pgx~n2c;_@pGnbXu$k@`d|d&C--A*yk* zu$X{~OidjQJSOW!2}Mye-#m&EwMrcH&(=&mPBykf0+v1DJlCylY=Fp+_1ge^)^HVe zUt)Yb_+_xifH2a5W;btw#O1#7nyil!MixK^kgCu7YVM7p!q0)O>-ffNtM#3i@UZ!X z4)LY9PaU<|GnB-zI7qLSTg<14|zI$a4V@C98 zi|Fzzu>PQ&C;7sm_VVRROg2nHs-hCz4g0GOxU!k?Ae}u`=*htQAfM3Ed4>4cm>N{c6N3|g!YvyJz(*_k5xZM zRh)&Cfl=wJ-v~~@{re-yz@Q+!4aj1+ua5^dB2c7oA2$utW)Xn3p2%g?#r;nXV~!G{Qg?9ci>*dDp) zKvSDm`0WSN3+bJNGF>8WVtgEEX5k^@c^30E)`?yA3%^oU=U;8C*Y#*L~maW zb@GSSRi0;*ZlKb0jcpw!BzPo;JJD;IR{nBa>1H2N2?8}0r!E`TY)je~;4~U%!PO7* zx@|l}BHv9)&GLt9o^fwdHixD?5c%HpFVFGMbQU_zOa z-!H4(_4D)d^?hOgtR?tVggtx9s-ESkb+pHr3nVkt87lyM0!i8psRqk5f96?zgIF># zxE@LXYtDWCr;+0bRRxBHf{A$AI^jQ&D za5@^;cmk$G&{C^!bG#DyOr;w-k{;+W1bl+i5)>>{PM}@=^ND?umQAV1M{E#&A;`kd zN_Y~y2PIJYxwZW_8kQk~f;6?aF9m4| z%Ny8d;JX;N-~Cy5Q}<7a(I|VuJT3`7ueupYsV- zh&Ls~N#yU7Cr(H~c~MjhxO?{?*A>rW7gmQcY4bWs;c66JuPm=3_EElRX=!<5+eeV| z?z2}>h9PLcM4zgXJnihZ`V1q$^-GJ3g7zcEBawlDr%alXaCg8OP_f(E+P;7P4sGW* zh;yiiBwzUmegr>&5vbZz$c`jmKxN1{00=_-{Pw7x)D@nxTt{qjUv$KSce_r>qnKs% zD!&5FSrS-}xRnz<0_cAL$nRfb-Iix`mCRU6A^Pl%kG=5S?Ao;}WE!~yRbjRfTWp@m z4KiaHD2q^ydaj7+EC;?`DQ!keL5j^qAdK0>hhYQA*SP*oO_sYr zNx_33>&g7q#4>V$q1z}PU3>0OlG4@TOM{0~ld#_YDjFl;=*L@_bP~CP!yg%j^ogIR zXlZGo+0`3=FJjlui^RTqeDb0K8X!=;p_oieOsuS^*tBuuhlta4A3vslVm@4i_Ly$i z>mwr%L43xp11SZmr3;SG3M#!EL#x#dWFr1rnc>5O06cmm*VQ-Afhw zO2K$4?5N`D23f#xzUS`JFnfrLiFqm{YUi4$@#)RLis3~GzKPqE zSmnUWd-v>-qYVlQ`dA3j`y%sK2!}A;Mn@cuMjGgP|$Q+g#;DCKOJW7 z+nwpSO5KY^9quuv=I7@}-Pd5uOVCKt(#a_uKqH`HMe(pOWFTTPiW4S%t#+_F*1tN> z7+5nB#&IA|fPF7Y7zUuCV?~%Do)M)$`9JYID>^N-k#ttoFRta%yL^aWV3L@mVSWo7 zlL>qr9lZ?qAvxhyzPtu(OfCInZo|QkdawbLExIt0jXFAAT{|lP^q#HlG^}vNz}y7I zce5j}1hpB;Z7<5b$K{}ApBg=jsD=H@%)|rc9b_Q3F*O#9l0^7y&DNkX;Pl zt5<83o-#^H-gw6IcMid8Pna7)2`*0rc(k>tT8qh}rwT6++nhRuw(vhel!x+zVp0@N zMk8SqAwPfpijIto3<_!lOokl~Fc}?T)otbf4!@=p?DFm3n^e`CH$~$2#DLnQw74D@-Fss-O8G_81t;wdB#(7(amR;fG z(Vgo~D9eqKJZs4C2Sw-veq?>1+gS{>$GiPu*jA&Bt*jS9tr$pzT<(9(8% zzL?~)hAWlSudTk7<-+TUN}{dh`WLYYfm?A8zlf1KokKY^GPrZ#?>R95w`>6eFnh#<+WP$u4O%8k_KT8 z*=TBFA}c??uBN8_<+XddnI7M~sqVW0N}&~P5@Dex0d!(8oL7K1z!*fgkC`*>NCzrC zUSPOcqCDsnKEV6*@8P9bdbHW<&@YRw-*rzeMx^A4Bw`_JcU#VlAcaKO!M{V>vaqn= z^s4&s0d~N8L}QrRh+^046{0mlDpUtp1<#@(GFJ;&a&$kdI-0~xV6!0%(;=|OpMjE( zH^N~IO-xFv4M-Wl&h*1>81War`7nfpgnSC;NwnxLWeJwaY-K)v96c>?W3|Kn2r%>B zWb^H-Fe?#VJ_43ckvJ-HliuD9C(7jipny~defb};DDD^?xcSAR&|!#97$Yk*Jwu9- zbq;y_7$No&&jGU6RW&8~{{He{W`>M8#QI3DukPM18Uk%-E2BgJJv-qVg|QCsnEmKc z=m_V`@fAK88Fa>icldr_jiFb3!i!FliwHofEC%JcsoDX!8&iPr;Ie|{vToKG`U>O% zC{4@Y`fAx}{Ex#bn%D?Fo$1&yxHPDRLjPfwOHZk8{r2ty6gXS-*0Hh4DV+8q8g>YG zK9Dx_#8eNNkHix!EU+o4v%^nycky~^3#>tGI|Pt@gAE`_lO1LKla!a2xABm13O1v@ zeXL&!%u4jQ2t4R0B~gF@E|7ddc0f-xh*{<8L9oeF+5VHQ*L*PkZm%M>MF%kCmoNLN zsA#o81~Yq+qjNJt0*#sQ5iKSq1C*=s%n3$@g@e?EqEMT20eTUfU{BVEjV%Ae3sAkf z)W*dC302UKp_MLzJ%^%1E64a77$Zu`&*|Ey_4M=%1P?RpP?=z%#$r2d3WpGOZ1axL zs3>-?Fy0#~2?6jwU)m#+Kyc(sU5T*VkbnF2OLs6XFYgC!KG?}-)l@9cf`5-oi+zDS zXUCerszu&Z*cuHgdZW0tl}=d!N&zc+t& zNqjiGPK{}0RggGUK|CticSdV_gdQ8rVM$zHeB3GNlCePFAtoe zaB#i*@Ij8H$@<9V)mcxuKTRi=)jKdi@Da^>fSbV4ZfAt}oDhg<+s>#EDG;lLuEcB5 z9zhp0S?2TKjfjY#?1dO_(hpBD{JHbXOAFmBj&z%!ALr#&JsxC--qG-{lv-o{8;LLR zWWh5Tnwq+-EH5Evopk7wQ&8wa1f?X+kv)RU2KsXIrcHFh&b&fG+9}x(77H$SLHX$% zmf7|hw%zU9?*Ygk0+-3dgMtwrKiC8D8#pSR9UY6+#szoC`D5{rVqZB6AL;_Y&7uzsL3!Jb9gpqrq1O#9!q}LwIKjOwSgWjA0x5^Vm1{$=lnXWw<#mA z=Maswf=0v48g$8%fSuoT45U=AHY0Raeyl`!C; zhKfRxXiBQb`f16~LDd(5rfT^G;@);BBd{ReZ4#Ou)XthaSG8kl1DVCOFYk7UEu3XHnv-6Np$e#-uFz*^|EcCAuxD-85klfP&A(Y1@6AQ_$tmpcxp$Hf!-AZ$Q=&n4naaBzP9 zA2jDji+W_JUv$>VHj;17m%%{7fB~oT$&1hL=jPgBFeL6%TVXG*pAW9>?{;5EhavKA z^@{d1I@IO}_%(WFyYXnczDwVAR}{!_f_%nrPcmU^ z9+!XOipF|0TGYRwYgSB@h*g4K@)WZIqRGg}2r-qo$cwAz)z#J4QH}eHzWU>pnDo@} zDuerD%d;0YrR*?faF?)n-7~%~_)n#$#MtSYv2Sz@dhLYVh}JIDUC-@9Q0HKlAxj1G zH6z;qpTNme+dtXajAo`6#`Q-oUc8v=z5+FKtaQN~A0?3kKMZm@T}wg=!W{&FgD_3U zZ2{Nhfu@Vk&G$?1sdEJ71WKvQapH(W6tES*QavoHe9>n+s>ilG3JKu{ZwYJ0cabbm zK0Xu-_V7utH!W`Y6a8Y#Di{2;Dje(qvK53+9BRP;?+OG%^rT=I4s&pPs;jfW{~^d2Jn47qIb;X4F|=f;)p@7GNQy^6_5?>^ zYip}2)DBr0NDR(YTdP52PHItue+ctY2(m0{JO!Rsu zB=modJs*KQf?h~qs>_A8H$bkzU`T(;unKS?zGjnN>REp$g)^;Gp}=*aybvY z=!6jhriG!V+bDC*x=TwiYbnE=lZ$b}92^;VZa6K`PVuuPJ;G!GCkqg>zSC2?~XQwl!m;(s!Uz(r5r|WjKe0vKMo0an=nR8zv!iMXJ{xCT9fr zg!@Tka0U`((*xjp5Bxo4jyyL>HJg@1ZfZIVfG4fU_yr33@$?cKvx1qiZVwn|Oup=7 z6bCkpr-FaR!i-6=;d=7rf=R5$VEn~P?sx?72;_2c-53qyrQ400x320!VvnXEadH01 z+YM@%CfXg&6h<`rC`L;nBCx8ZFnK}4y44}q74b(9(!&XMD`$TEe zu|pA0u<|g9E^wL`P%L2&ZHiftxO(*}$rq^UNkl{{U0}5#h9}|W0~&S@%l0c2e}8@7 zw{Ni@2OGM(z+YIEH-kWJl6fqvJQ;uauV>FuJCJ;@}SKU3IXea%XV?lzJ{TM~D!MPkn*%ypGdOg`1rAWLe%n{0}$+C3zmJ4cQV5dFyy zno@&gFk!7eP!m#e3AiNO4V+@MTvx^%HH~ zSowHCu9;Q;$f1>k!(I-bIiuM=$Wulq*mcni@N74Upmo`c7`@=VYh?;tFI621HwmCs z?)h!r`e^>G5xlTvZPj^}!;`4wCS?6xDqPNfadrX`mxGyEa^^EY9l`6P6$u_Eln-O+ z&IJgt0iw%EPx_=36qXT2`g(i4C_!E}$3Jp-AV123-Y(yj;}?_oPNA|Jw2QuYrm4L; zsEGv94t*lutqWdWj#a|ZFra3&$S0t%mSjb}dADajk-$CIp=H0Ox*B61{8(W8_wNIw zrX*zpOhUKE$`THGf*S*Y&j$tFiG6+uo#t&X&b9woZT3k~bxJLT7=zw#q{n2$Zy3fV z@GsT9-LO zEdYwj#VH)4=%%Hkb3=6wm(^BAR3r5;e&iQAk44BW z1fTI-r)l4)(alIU&s)CWp_TWr#4%mr$T{UJBl#D*8IAqwX}JX2SKimFa4&mb6N~#p zizWwYMOw9mY}NLJQ@p&qf42FaRlEVHgGBk*BG?DqGET!vMWfdDFAJb&f$L%mk3K)X zgwiY?5gvidWIx25qMIH3XxG82_Gz13ypLprbvK1OAqzxg7tF zmH(@k+UvHaWuLhFlFB2cvde$TekjYKnBv3#@s+^!D@7ZIGxOS}?kpSjNO{5(x z6*k@COR-8nG!X%E@TfhwJ=Lz z(o>Vq22tB|=n*XcnJ&C}+(9W)!UE>av@{gnQAM4g!=OKcF@a--$q7a7HYci60z6}&jAHPnKJ-+t8e>}>t`<_#K6sSs9i)`LnEM{Rl% z;UPuQ4tL3Ur>XDHzv*b~Gyn9A^7hrMWUX5zEJnFK%hL7vozGYQT0wUy&b=xDazGWY zon!ncJUn@fO!fr!L4)Ea9BZgKi3X^xjMgg@aEhf63jvU0KPdqDlt&9i*GQlhfS{zFhwBYgC9+lcD z>-a||?r~A$D-h|7v^d7hd>shr`0?Xt^$jfb476lrDJU$2T{D9qqM`d|KDgtcqx|a3 zJ<^Ul-s>(iQv=;(-23R!7T==C0%j*XI_NWE+J z6hX-Y105a~21kILrsR_%l`g_o2K@3YML#M1GaB=(l!4SAI#!63`&r8X$L0 z>%a5G89P2cKB>`at0BrKVk-U6Sw}85whuU2t-fAavnoAlC@w&RW+i5E$k?%Uzjs9T zzqV~OmnT(Pn19y^&w>IcG_paJIqoIkzWA#2?aA029eXth#3L0m4sbdYwM0quaU`p82`fK)|Ot^_X4cNDp5hUWC z{rmYq^1s=6S(G@4D@pliF3Fq3n4WmEA^xr^bf8qF6NqTo_eX-NYtTGT1tyu+1=j)H z+dtAsOldKu^hwYUegf_Rn5nZ5sJm*@blF|__JeIL`i^otmr-CtUKNWw-9_|Kl6>LU zaND9nx*>Gi08T-YZ%T>v^&IMkI)b)-cjGDVC=d;gTew5S;An(RVjf3R zzz`6;(*E#=A>h6nmMsyrKoP?VNwgv{zJrv6gE>#Av1Vzgy~XZJF2KPPIGAAv&K0%$ zl-{H6>hiB=6WlzWU-5HEgv)c-3sA=KD8|l9Nn62}6gRr#0jlO1xFDeoL-2SMZ42*u zKWFJINl*)vA=Hfc1@v*X{8U~nphwTIBh^x3?B#m~z-ddBY5YY$MrwyW@zuqdua zgY$8(S(v4#>7=$M+`M)Ec+e8!B9b>D2Eh0$ia&zmI1#gGXl}j?bqF4%w~){5>KMf| zklg;jn1x)PdMrCAFwlz<=QC`ITtIGtt4k`N3Vvmgp|sUci!qIC>C-SIfG=d%FU6AuvG&!+>|8#3A_Y z!q)c)@URZxj04qNX;aUP$E+F(>qj@j7|_ooP$fq!qgmuJSGbPY|AOnC-+nZqS)3WBLc&&Yc15c1 zKZJrqt3Yh{z=l`54u1Z*^H{*;cuiUCLx4+pIk_eW&tvnj^ z(!h2vgOf7pN7c1@=)i!JdUZhxjV^=vr_(AY_CcN4N5Y{?EOpyD{VZhP7G<31jJ&|O z`RyCB3}FciI(@QMc4B<@g~&oo0<8k1NUQ?vG`B66NH-#S9^Sa`W;!l{$Qg%?35o|` z@58502S|q3uLH1(OG>sTUt}(mbS2Ku1SN-nq#Dwcp`#5}SJ+wA*=3}S8$m;ut5|?= z=z-Ej0!&X!YnVEs1~GXz2}Sn+L|5qNt7p{F3ECP1l7qp7URRSn5ooivmo27|+HtZR zD{Jav^wCfMVJ`y9yykzT^@S z0b6z#R41@oh}>~(9$iT5u&X{9SiW>;7$>O}InS85OF|Z1zhOf{D{5Jy_a%XZ^^J28 zaNq)N9i;mAg7_ElI%+#JDNbK6M>9CojL(Q#>r4B4)ISi7?W!w2Y6<^DJL}faj?Psw zkJA-+$n=qlm;>&KGVk4my1%jEk_b5ie;jOankNnbL3G8+%DJ~|j0C6vu_C%3vItIB z`-;jM$r~F4l$bRS4-Zb1Zoph(!+(@Eaj;3G$DJ^|nx zJrMGGZTqmj#)WX&*u>mG%pZh4PZMDM{o{&;u@nEmcd=KL|q}C*l4;Xwl}l~ zGL|8F<9O7UetPF^eQ@jKK0okS3Qu^G5u9-U&8~%O)Vd>U$kts*l`x4;Pvh)S8}?^! ziyX@$?$;Q;#Ky&3+ChUu0pgMAwknf6)oZYh1xr69^f2&eiRgt3$Adtz>XB!GANcc? zYPIHcR*fZXVtj`~T#y^2A6FWr+GU`Rl;n$V-cQn7eNQnnss+?)P-ef0-|FmI*s+UI z92zv`5k9_L%K5cI^qA6BrnSSLlJI%P>D5}FOy=pIBJpD!97NkGV(4BHFL8+8@4x>@ z6mv8pbIqNdt{|$l{{HpD#5b3osUXdw&QncRN%-eCJj~+}fCqAWMi08wGA^HCcUiMl zo$$=tx(n{zsCR4sJ^pE%!QHji`qwTO{>eYkF$n;~1MO+RvGFCsxO;5`#LU}&l|Op; z5a%o1o}G1!5?^(sk&W-lk+)>K^g^u09Q}2MU}Qim7y7PUwuilH-!^al0c3|UU|y65 zT{x&HLw{{399eP2-3Jez^rA+L=D4+XSB_Ne#|1EVUX*EaYrk=hzj-Teb+Azh4IiOi zBLN&@M~}zFN%$9{R|hoo!pv}Dkmu^3j=j|^`Q0UvS#thQPEk(#UHC3p(e(oP$0ML^#1;a=k4x|fK9Q>=!m&V46wZB$BN@m^o zn>)+t_^HXa`zVOty!QBix_k4up7Xcw`)drcqzr`$6Ghs_QX-j5wkbtvLC7{}k;s;! znwhd^i9|#SZ7NHPQnrz$gj8rz22qq~qeR#9{msnpci-plJg@sYulv02`*D8%n8)C| zd_M2b`+Y30<8{1_yRVZzjPk7Rmlj#w24qPj8F}lrb=lX(K=Lge{#EIqkI~;?Or`eK zRg`d%^MutRI1CRSjDSxebC!UIG-S%mwpysX4vl{I63qr$|gFn$jaa3?1HPmQQ~wd`>K$4lt(98 ze^?iJ6PsAOY63&&u5{a)5GJeo%_5fLktJ5OHJf}tod;u=;Gp9-OkZC>3Rvg-T`(?N z@RdZPCR@qgTnfLQ7qmt*8@o1hIQ)sFX!58S&KNty%g+IP$+5OOcivVbmA zoKhn+W!zKkEx;Qyewj)1iGg^F=wz&&&XVIWOA+Guvs1*FP4jdmq$$Mom_efG`giZ5 zFoHZ$>|&38{o-malm@Tw5TWK#7M3X0r%aM6c zD2<`^M)(};oq9ZI&Gv2E1i1aWuU}MMn zSEn7k-0Hf&nl*cN23}*+J?%d(=2|>hcztURW*|_Td<)d*NErxWH5ZpTm%TU9d5iHO z@e8i%D5(aPr|MafmF0}+gedI!0W*t|A+iAz2jsSsloqk3LiZB>0|)5EU4SlR$lnyi z4)J?@*~jPjlunXi!wj>>jvg~+6Qy--6E@qetSmEgb4bi-kS}_aS;_gfLkxe9{4*9K zB`GQA{58aXkXh*1T_sA}s(80W(TXcTi#75 zKTZ|^=0i+<7ljED;-f_Sl+S{u%$qmwq%J^zP(q#cN^1&}q)Vsgrn=KrAYc^~`R*4K ztOXK_@dt_QGkWC$Jf2{e0I5N`LHu~c`rX8kJjLZ~*)3b9fYsBMp-jtOS^12N?rb<` zpfms^Y9SQrx*Tnh9Y5rRMG1<^4*a?0^|#-CTSZel&&|1<3t-SB!u zJ&EH40|59ic_Bnd(kHHnI^^a^cqj-hAS@nrDHQ%62M<9#a&bV+7)uRvb8~O%^`J7* zM>YH&Q)MO!p|g=q#Mxe=dY$x~{zq^tCzRu!Jp*3cN0lMQW~h%(D^=I7s_^r4{T|a5 z%U$hvo_%J)ulc8ndQ}*VQWsmGmEf4rL0Ls*`JzPwlZ=2oup=vqlPw1C>#W+VOD09F zlRm4*QpB4*d)%gGa6wy{v*2aqW?IHJY!>*QheAS}QMIV5QsLKwf{=g^Vv!h~mzU;d zy%~nDp>B6KFK;ArAwo@ZIBtNQoYGX;ZhU_xc5LJd=(V!d-+g+U$U2n`-cl7ML+9)~ z@Ljrmc{JNm6d)e>q!fj@IPe~;0-y`x39Zb}7>#TWLq%rxWc2Sl>+E_F}Y4oDr z+QwR$O4*e?7H)qYAO)Kuo)cLwrK(ew8b^&b%!sp3>Y|`YyY>&2m6cum2kPilM;`Nb zhf@6RoyV7!)Y>(mLk0#0NegVc>Mz&Co6rEda@DHYX=|cQj(gNsSfO{oc7Tl-xx5ik z7owrk(o!r~klBb4Bigj1g@*EyBoHhw4-cCd8#-Pss9qnpG@_Y>$eWMM-}rvg(cr0? z(IlRfh*y-R56ygDQ&aQo*@HwU>l~jhl0C=B#ZoU^h}z{8;=%sGKG7%gp}H6)%G^Ijv}$eDmaxx_-Y)7g^WlQ&O@eRg^8d43Xx%Z%R8D%VrHTeZq5H{8E|tQPkJ zla9Ya2O80LD;h4Zx5CAJ*`<3fabEbqJYRO;zJ1mZgM>&j(N$GR>PQ_O zi{7{UO4PGS7yRWn=sxh)q7R`70gw~(rvcxQ0dtWqlPBL`KiR}WV+Hytr;DM!w)R{~ zN^cVi2u3vR(?Ru_^*`AuiR4Aleo1UOj@Xf0qmHtNVHFsEuHQ$R16usYwQE#}Ae^0} z?-sG~CDs%u*`;)1r6Iv@vk02TxI=TA`%gcIYloEzm_nD4O-Q#zZf=)R2OBgfg6k^h zUwS*E@=l6-LjT=}L(55aO}0`Go>?c?Rnmkux88^mfj4H^#&59dPjyx>fP^~+^>B(X zfSSjcnw?7enq$X$VVq(tGK#-H_2>PVdSGzd1c!OAQSrRArwj8dzIWZJx$idGb3^?+ zC@6W48)4Sow=r>(`RTzpa{OvgR~b>#B(`E-8W4xcdv>y1K5Nb#uoJqAoKp9Gp;A)gz^#;&a$F4_Mr>@h-w4XBlSckWKSyXyI5NR*_B-!#T% zXEd$iZ2HLq3w3z3bNhBS(gPDmTYfUTuKt^JTWi9%DkgV;%L2Iz6uKmiO)97@3tO8w z79^jmKWO;f+Ef{16J2}5v1_TOf~54&jvd(;E4ax89jiG{TJsrjkd~UdWZ5#UsV8!F z3Kqw*!!!swtJjR$>NFxz6Z<=K{#0c(8qfu=P(jg`_$4utB!`j$ryYUc!}wFwr*iJx z*}ny|YDB*tM^CSs}{XBwM%GA~bCU?b!pF4Lu7*r@j*3zzE*S^Mnq|^pm){ z(<|{aAe(kFxm;$7b0O@S!TZX;1iKL4+myZh&>@7=EN`M4>{9xCjz0A~b=TP+a9+F* za(zJr0gMWgpXmJg`|}$*;(9n@f|(mPXJ(Q;TZn3zUUide^cUrRk~LBMJ`YtaAcg$> z^FuK|1y!3ry6rhl5_fd=?0la3)tt-mPla$fX3PkDd9}T7{Lf7l?3)(`XS%9V;f=K$ zC>tm&%&}nD2u=eIVsE<-H*3Gyq$tXv%<6kLQUF2_Rlf?{qIc6$yew|Niz?i_6WaUx zzwe`nT!U%_MiHjr(>v|6F%UXr&{^&LgJO^nntukLQ7eKxl2KedWP_x^rUE5p$%ih6U88*3O1DQ z@jUZ}hc9S1lt-vKLx$vW_AdE(<;r)IEl$WjrU4e67q53uf5Oxfp($(>Rlb~@98BdU zVnC;HQ<1hsg`VcQ1+K0-u5%MqWe=N8pFRMwVn!ldzI+)vBez*yRYmJ0DaG;SF@zR4 z_|crp8ZYqq$324fT<}`eFT+&mUOT(M^X<0>%D5t z8tQV!#feVm$smd5mn~U>rNjYbGmnLG7_ty3zc%d0In1)RzYE69ekHCj*-BMc&@4YU zJQBK%EOV(U=B!&mz!-fM`?XuY+JgyZLtZsq&{lW4u@;tHka|}7W`z2si%9VvX--?D ztYOB{Vvc=$Ovx9oz)yHJ*E{h60{at@@rny*E2pOjD2~+jeSJNWuW=kNR+d1i^zkSD z2g^(}QuFq$sA)We4MlzFq*;(X4c%{VsyLVBbK8A-^!W458?EYl^LcnQc8g4!-Wr=P zb)v*#vQ^{*P}^`1vPyb=Q0Tx^z!pGdS(JrwvYk~m?M{DWES8KaaW2Xmx%@IP(=o%f z(6LN4J4rI=r>D{qMgu*YQSgue>+qihHW_>YWh_if4tZZeW6!ng);U~QiR-wHAGQVu z0=ppV25UY`2q3aZM#2@}u%wpGVsrf$0D5L@`+6R6xfUyb_Il#)=l3F|n<+pw`e8E1 zo5M~6rpc({P;A#9=_s)P#r_0ZDddVsO6kP`yoMNr^)Min=2yHtJujX02Y~s(J~66I z!j*q-hL!?~!k~yS(;DD#(ZY;XA}%yBgn8K5U4B5zr#brB*#h ztrD;qLMGh}m_Y5IjZC5gp@FI9&2xp(%LW4@Zf5JzJD$fxFPx{9?yJ6J{zUP@K(H+c zh$$>GJ+4+r`~-!xlZ3{?4iyLM2Zs_y&p1tVU%3*v?hhV;h&YI&h$y2&kpR3Wf@PKq zd&+-xtWTL^(y(ryZkTS|V9yjO_Qr`$YfaTdUd235kg`zcT@0iC~9uEr?6}Jay`hojZy7-{EA`mKcx>pRBrp37{}CXyCv* zIXQ%lai81RN|O8QI&Kj#Yy*o{hQ^_{LK=lBrscV~xTyNU{-V8}a=Jk6mqkm)A79v! z501BTw@b)K$#to@KhAX-qGf>E1oC3o4mlG~UejO$qPF$#-;1GrWUnWyHp_>TJ>zyS zu71_MP*w_0g=rZcyn1}Fmev~<|K-b<1XvW`(p*&}iNlxORY{%uBMMBLIteW6YPaqc z2j2EEHiL2HM{c<^Mik?CV#h`?D7TWliBD8YN>-$M8qYgZ&FIX=l*?!<`K`uqN z9JTdLTV|X51=0pAN2^NaEG7qKNHamR#*Y%m3K3+)_yHIy^sjsu@RdWSL^Bl>T^F*r zw-Z3Df;D@sGyf>}*DWo=DOhSi?mqCzl5>N*Uq{jC+U_pjeO((z(XVN;6@2_tQ?z_?%Y~{2KbxT#R zLxAr(R=Z`(*KcxLNBluu9m(yH_h?Z|77ZBBugP|4HU8^+X7dF78svUg3yE=1fY|+`Y{ZrT>trdG##Sc<2PGegyr%ODrntG|bVUGKLAg zxc1E{`zF{KaPWxnhqjDvc&sm7vCJ9oO;^(9M%C{E_%Q4or07yb<}h%~m?jF)Y#Lg` zCO{{IYq7t9C3Oa54c7j>|3zt+UDzzmA3N{D>va)gQqQWZ8Y4*PG7d>#M!TShthkQ6r==ifjmvI`>cUkt?ey>}10z$|DFiogt zCQV>R0`CQr+07|mszRvs;0+1CsXA(5JxypZC1hC0hN2e?dlb~2CQ2iw6!0YBN5CK> zI;zTz*g{@*E*MA<0^$Jl>_DwaH}N#b zgUszH+=fGkDxW^JB=7)_w_&E5^p?XypY40=K=^wsu7#vrp5&QCy!TNBfM1{LD+w}0hc3~d5?)9TajCj^#pGN%l>Ax)| z+9i;nyNc!}UNJLHZcmZEz=NnpIOk9{k&&(t*ieR@dT=(d%zb)R$l4wYn1W=(8wEuQ zOdy*ukFtL`N8rz$yk(7`-U$xb+|+Zm^~53#RfVfXt$b%7Ng#Zt1S%vDVz{TKwV|Zt zL{yM6!F+jR9xdNM2*bo{CEvqI+4r3u&?FmjUv@cEO=8ywHX+^)oKVnl>EOD9JWz^- z(~Kz-Anh?A1}f?!Oe+<3KY23q7T`7Tmn4c?tex}YY3QQN)qRv+X7t#3?I=mFA;j55 zM^?DH#x48}DclL!mtdUx1|Ap`vu#`F&fR;>%v>hdoni_fhT(geq!oj~_Zkt=K&Hc} zCIXz%S14P28!)Lfy$Ohn4X||a;z82F19>pCXSkCm*6Q*!IcRU#RKUFye_mI@7x+LY z>6gtZiHY$2J;({D;gjlFj*p~r4!%M3REZ5>3*={FTgkXXLqa^s^rFSgGAaooA!Sl! z<#0&WqXd`o_Ak_gEH!$ixti@WRBDF%>n{)3y*GZRyl_mU0{K}{q zxWa-ML3IOlM3YD(>?Zh#>O{<3eio3LkgKU=A_{?_iHuXyj=;FMYT|G3eT6Rm=7aMV zT8HEheL5jJ2IV7M1|KWpLs6Y5#(o&M#V_m{NIk(Nbz*sASJ%58eHWc1`z|^X zKkBD*64utfQ9a&8`cUn6MLjUi{B=?EEcMYgW0-9RZ}a0vnxS>j3BsC*RfK6a_*IOn zSJTJ$i&d|S5x+)SmpvQI8eCzq=WBvHo65YW`|umjjkPbfQR2?%9F=&_-#uuax%p1{ zfgg5`DCoKN@&3VU_4LSIaLZ&yA{HY9;shX7wETY9ue8>_oc-P2N9CJb2uzp6U7KdHLNY!Io411+O&ya ztz5e{=lr>Cx0U0MgDRO1*7A6@wdH`<&y@vLRjnUt3{&Uo?z?@WV4(kfF0FQ~RowNW zB2OZ6FwToK$n)gIFcP*QxFF7r-rj<%SO0XqD7ByCZHJq#yv}ZBzy_=(hNXYV#kzOZ zdASH~?&d99&{?`)RCFlsVas1!faZW8cF1YPKZvDzb(wV4T8^w4uul|q(&k5hbgSJu zLg>(b2c8b*-}vo53Uz`pOGKqfXUU4go{K|`jHh|$+45}JMZ!;ZR^=0owDC~~CYlfh zyAE^PqW;pTgQqWZzz)bSB8}i!r0zaCX7ywl)#{x0-K9wkCsE|08AFQ zvnX<~aaJ=Xp6P8OlG!*Tkd+NKO=1R7%vx-kkmLnHa?(k>E1b^@E-_{;DO=>ji^qIvb-HrbyzYL13=Ld_tHlF_BC>a>RGm)_KSp@i@$OSRf8cI;$O=&DUt_ z9LN>N3{}(bOfaPr>~9V78x3fH8_Zw#@C?)_pVlutfc?h|$Bfy4)irrz5h&dkaEnS` zFFZD>5TxSey<^Ar?^nyvA2|}M{2+4Vs8P7!HDsMOZ{(EpG{%g9s!>>4`i08H{w|ck zMMp!$ebuBJ6mwGuE5UI%)QAWm1qcq?RZJ)?Vb({%>alBIuc@!FI%K}o&F$EpJz>(K zAY9-&j#clH20&VYp5u6E>w}NYkw!NRCKLEk)Q<(_Kwb|fnB$A^%p#Hq3bMsDgKnG2 zB^9_@yPX~sH@t@lZLet;E--ob5)uL+GpwF8^f9Yu*IR@d+Uf?wDkKlq<|=jL2#IlA7@)91G}YsKvadCTsJN&Kwl3WpMy; z?f@m!aQ7m75E|MKE&=fi(*SVKf}1hM_9sK)ma?l?RdsZ9XoCTDlM+uKU zbnY8L7Zxg<=f;i#@2kdq1_T7)oOEop;H~i+5ClPp9nw9h6k7wWpp)Z>L-8tV*ueP;&LK&3#om{@PbX z67~yRam!oVZ})FI`eABc+x7psor{!Z{QEzjKabdGqbc318s=)F*DM7+AwU*?;rrco z^|pWcm+8UZc)`E;?tjsI_8(;$|Jz?Rog!;}zc${OuigK%Zn%GYLH8z>wUa=SkSZ>O zoe3Bhdb~z{yT;#A3zBZxUY`pVOV{>4`y2o1{(=SEETAk0;iX5PKC@1QNO7bvKdslDcTxXlP&W$L0RiCR5AyOD!N!Zp z3IM&ugeL`A9GMZLM!`x9@Ltrxw>2SS?Cu>grLCjC^y}DZ;_OWI9@Y~x?{D#Xy;jRQ zS7z={79%s}Wrs(lhpf$c(7!aT*?MYLlB^Cf?#XcXPDwv!j$6NSVbD*#*7)_^T=(g@ z(c6}n2HM@bUsLfI*Q#{4>FDYok6hYx)u60yoY>gT+vasr!F)48lJQ7l^Z^iif?ce? zJZu?bT4KN$FM);NPZ<*#Qj{?3?6tzeL%!1e<=cEC{?SuJx9QuWWCp?>mS zJpm0gO&08CR9)lSa1JwHV8Im2E8jcL-FP&&|b2J{WwC82&@T^-Oh!5EsKB^TGbFq_*bmVqpDn3Cx@`PSwZ*Py?8?@U<=-I$uVtCc{@Y!U%%a>PSt`qI6 zMRyK@wv00)CEc@5*m+$J7?0Fk^Po`N4_X)QO1@zt97XggUA?hYa?qq4Taee0VM{ zp|G$C03O_qA!_vLpOz0N;($hDL~}V~An3cRjDr2sS#@)_zB6(SF0yWfMatbeCfUaSkUA-Cb>&rpuQ6i|6B1@fkrYki)u z6Sxg*jCl`cfxVDb0_MO@+-f(4M^EhRP3tR;@JqFu&px@_Hw`S!jA$E@U)>L53!IY( z>L|eGi$*xAvX$0goeB*F5orEupzIuBEo4? z6Mfog@yUt`N0gg63qVhXW5;$Cy;>s(6j=*qsUpdIKdX)ry*#%!33Iy39p2T^H|+&{ zwPY1>JM?zC*n?Gk0D4NEyCYXwV!m7@qaWIvuRi~pc9X*|SUEHgQ63N-BZR*MCrbze zP=2F5vzBO_6ISE3nKdE6Gx|`n+C7Z{3-`mWlIQ!&6V56IU~!C54Q@JC1}TT!r4Opd z4hgMP$+U%f@NDlhCXD5+yEBrJOyrcOGHN|I*+1nSAe*mPlSY(gZ}fQ~=a~^EoD@B# z5C%*hD z)fbfQ9C2aYE4!@Ml&^@n@1#^TG{b*!SEl24*7Cj-bV0pos&+j4nYh$o(>ji#yE~_E zge%0@goudew8%7gW~dCWD!V*i<~=9J&gK>AgukfqC>8_Lke2*VqhNBx7=7V|?{Dqg zvgIb>|IWz~(g7<eBM4T`Mv$lQptiv&$l{zj#Ib%@Yw6h!gxw=utIpz;!F##P>`UY z#u&YMO;(8UlPU>4F`Ob*UAR%2o;Qw@cqz`I2Uf=qvdf6FD7#pUwN`34!6LBUi|Q_)P|%e@ErDQo#T*?V-DF)Gl~>XyLwdvf`Jjs_RuPk*U2b(u zxK7$ipp08i#voA>h5i>$ApJ67{&13{6=%xtcO;E~S!2w7QI8u2K5B`u-dMAa3j*VzdJiGj6ciSa)N+sY-!^sA_ai1FAz z{q$?g$;lDJ`*d@^>YOC>2pH3GVS^CZK?FG&weI5LPml$AnY2K%!0+@h`PkencvZ-K zzj`I0Pmm2xJMR22YHd7X0x5zkxOIoft!G422u`w(Q!@pePe`xLg8pg|EF&umaexWa z`j_K3egr1JW1y&@fU4r8yOy}!nd_pb?XVW3oq+_AqhaxZ0f8GC=)2b4ozz~)lvPFv zimUfFCYAz;n38Oonrb+uJ%%NCTRd1S-Hq$C#H9 z?KH9{e9n!a!7Xaxy3dM1u=ufOgVoep=%s>I#yNdoTkFiuA#jI)@WN-vVJ~6`RH<1C zr%_kgV#@l?y@2uoEokb8cSQ?9BmAJDL!H>PT&iK{-8CP1NK_0l#K@bR1e{D^%8<5p z)vvF5j~+XgrTzp|ON-2synu6<*@qx3pg}}c_z|8G5&{-SM&~{YQpX?@+fXB@A&I7~ zpYeV#d{1E=ZI}vmAt${MqUlHLbfhOTf7Q1ta!hDuTu>-JzPRkm%V*DK z6qif?(eh?tgOW;@BsypqPYt|<#M}4U+NYDVrAc_$+d(v_Z6)~0OFNP5LI}$iDFAD_ z%ru!xmo62oCH~`O*+Wd`_CPW>=KXSUtu6@}b^$}$;I^Q}vTa5Ae>K_i-wsHfa;2?3 z>i@7>whh9i>)Hy6l2KBggt#xGZ~jx4e(!8@SBbMt{`<GTgKM86W+|o>P7TC;8*AT>k&?{mT4Tj=1rtAo9U(Wk114`(QJfNFP5ZWm@2g zPss^CQSeYLJ7*B+J=E4O*wmFJv!I@WYZ`)&^eIz4=k^9&-tqp&IHW4uyqAVp0(d36~-cX(N=(M>3 z=ba)RWDB9O!wdzq!9*(g>C+s&eQK3BZqdh#m?+eLF`*kLfRfle_Q+eJ4k^B>+c zkQ7xz^A$1FrcLD?sb>M+^JWjCFA`|*>w$GaqySh3(^$HYV#3OAiP z#h$uHbMhL9ZWzs6M?HcHs)H2tp_jsf5FLpdvT@!>AS0HH1`(VBUa+t)zq{5|RaMpf zcX;mi4jW95%yZIH!Zl|&U{rZs0%b-_>I?>El%i!1(?C*>HKc8-e!;;rDd@5+!125w zPm^9b=a@<#M%1_MrpPjm0AQS1>?Sf)b+z&WsD5pv>VhxglS(8EW+xxKX&`4nm~J-t z3}4V6Z)*LVv>mfb5%y|f;q1sfDB6gM`w)|0Q9T)>CFMOcK>=W#-WqTrMH7(^L7X5z z+r^hbrVHp`^8%*|-J`L-UbLp6`XNMx7m}TjNl2MEy;j04DRI=ZFT14T+?JE^XvoPZ z&|}M8>=_qHb+*V|XR@1Q*x6O}JVYEzZ2Th0MUyL5J(=Vn5cYlhdiLst_DVd-XMJ1x z`(fNL6duFEo(gW|vu#6O2pwu8qq*EnW+v+C<3@~lkncglPBxR?Qb@Q$rc1!Y0~2xt zSkl3M7exEtA~I@eDhF8*M@BQdO|Dy%t!CIjzKHZjBymURpHc!ZX4A1Zs5q21&VK3-xnR9G3gS?A8zTVBmwQF9K`9__e^-JPlqI{xY^P@&%V6#zX zG1*E*T};lt)G5oSMpN0pTc2T95+A)_Htt!+QD{-APGtB>%Mx6(pFD)V(O}h#I!`~# ze&Loj(jrye!R7=xnb0Ob7R^L2pp3XNiqh@jvZu6Q4`S+V!!}@&u@mRhlL37l9BN(p zo1Ld3BfF}a*NxDgHBpV?(>cfc^cbo7IUS&^jz%rtf(37 zf`%ytkPKd;)QdG><`If#jSG4XZ?3PblT0}@c7ta|z%q%i;e=_i0}k4|R<9lelm6V_ zd03bHh2N^^GmXRa=moSvVhh~T-`^l<5vt5J^ineS?evQ)fq~yig(g$IYQ|o?bM-1x z)f}9rso?NXWYRfRHz~%F7?3#t>oc%Wj9p@^4+({xSG#i*(&c{q_&r%yMD7}*J`x`w zu*SMNueYhMPLFA67cV0@GdVyuMl)!8I~7Sx*Fl<=J-(Dhbyln!M4C4asW-T?#7pq6 zGK-5ZhPS7;OBW;h%kA&DhEERalx@EM{>sK|-lJxEZtD;X6A+S+Vp5$*MVrDOLg`d> zg}GGj8g=XMe5diw$a@DLD4GWL|L7-uTC*0&?kW=VZhUu%;g0seWM%9Vb+OU=6oPxe$ zruz%T10XaFU0p>JkP0@S(a@pMB%_S<*{h7_`5MY&Y-^R2YMrDW;Y^3!QTZVdU8Vsba`p*@1Ys5S)a+yn3OJCJnD}@e zpi79;;5L5H&=AuA6Y0@Mx#BH7Gh>S8$g4w5UP?APd9wefnp_&{N5fb$` zzO&|!pG3M+NIJ^LK@zzzR4WBW1AB`Hgx$@)d-q}G8oQ&?hI(K3=vi-iG??YTuYDCG ziHaTA*z3`{&W%&Yxh!@KULb5#W5NyZXBv+69i98Q{P!L69t|W`tt35ZlI7RFQd$2O zqvro>=($CA(ezcW!C~G0DfFD9-#TH+rR+Y#B$ECPrW1d%`EMGAu0CD;P1QUay*CvT z9Xww+_fcWtm{FsWi|#G|u77_ACaM%XiyK;X^=>z@;#b-adU}T0N-nO!Z4W?m;+2I# zFeZz1k2jB##+N_MUe-qWoBORw!y_WeUh9`i-8Kxe4Ha z3b`Jh65*}7rIeK6n8B1`MyV*dGUou$nGQjnyG!+y1S}8o!c;KI3F8{_t+887V|eNM z??#=6Q##AZ^){h0K3H8H)tpkQ6IiEm-46CT{z2o;tCo@b%V%0VT7 z9`Hg}T2*@2+GC|nkk;C-^18FaAwL2xde|gt01T0gUP1H4j#Oe zhIEsykV_e8_xsg%jK&E-XEDx>e-+Zt5H;o?H!!v)eX*e{U9tow5#ix5N!3l6b}0Ud zl-+!c7%%c8^&C1iL270D8_ha7gBj&izz9_74?o9xiSaX)%ZWDWQ=)Rv2f7%}BFnos zcjr&cD)eIW^6KEYeyFS4x1$iNDrj6prJ5ZC)sxnnhbf&THp0gdj{?jFOkQj;m9U)I z&e=&4$>34DO7WD$Mlo&C=)xel8ZIHX7w3SAN$08)YEW@PqV0BO=A_bd%vHpDLz7TZ z(RTZa$qOPAY&+Ay6EmXCha5rZv1R!Vvy+}L4=sa9zLL3Hd8IU8uwtxn)3zZ;_lR+T z@7}HCo2a({1e1SQFOJ9+J=^@4oy|sl#ihsj2z`B`?ns?-BK1nJK`}j!&6wpD?az}c zYW7xatAeQM>lYmOgBI*KxzWqh6(bBJ2Op0PXa3K3E5qUkaym0j6cm{Gk_Rq>fNu{a zC8a)nDxN<5-j8N$qRr11u8{qH@DpRqjPL*PhZu}KIU;x96b}~D;us?wcu@^ApMxH{ zmLFJf!lb@j+SVOA_I(IZrfFY2bLQfOiiC$a-2rtvo*6%m8Iu~gNP5VlzWZj^>s~#2 zFbW+NG#EOh4kcU(=^u5LM7Ofi{oQZv`zb5_xA#oup0%7)OaDjET-|ZwkO=|o3%>XP zf2%l0ThTDdGQdA*iJp=uRIn>q1<2{}L8`9~UPShA_r?^PX?CM?zm>f1m-oz4?uOpH z_m{Z#e=JItkAH{PYFyBZ*RKtUC3`z~{K>->l@DZkn3KmAqE8A0HjjWp)elrI+D6gM zWT9$ z^Ut%$*ht)m_&FAyD+gGn_@dqMlwg&CP;yn!Pxl7(Mkoy3uxkvUhWX<9!$qa8=g&YM zA_f7m6cwpckxA;N=aSl<$(J3KrUgzAhvA|RFMB}a6*5#Zs=D(pX}dWw%3A)J6v|%r z4=9^>_u>4zDAdWUg50#D8uUA4?D`eNz(Ly+Zd}v;M>M)o$56SqkJR8_QE4}2ZSA{v zNFcRvl+3kOfRv$}PZh}XS0+o&;_?x@2hm@kr&K-)Lu$~c8#O%LPjgMx|KpIg7z3rL zFrS5|5$b?iC56D+;6OE|acSEp{wxZiFS7oQK4%F{{-COWZQJ%5Lsl;*sU;NM9uUwV z?3k3*bh|pQZ2}<9X7ttBw##Es{|cw%l{eEo%%zD&B>S$Jtz2mLP#7u@-4mG zVhsCFKV79nP;N%kQ0$syXYD&CxKPSm1ip&O%5Pr2JU|H%!~s+V>jg4;2O|hmkq@Pm ze8f(($>859la&TxGsT@cBFo=gAx2GnC7u4^}5Uqf5F1@IlCfB5K8p@a?|w+mHO$b#ts zcCkVWb9$)ZNxN7G&m%ZIXo=Nz#P*ZWjUJ8mMXvrFZ;R}loF~L499JSSY!eOY3d|gU z{t{%i#2Jrp4h-F0Za%|C>4$uAuc0yCeuK}qq36G$X*|e)+WVH4U*l)R6H$T-k#!xo z_$b6-*^={HHZ86`-f_u7NlK51l#@PZ{?3*ta~BWyG+y5AX;9S22!jQW)W+XtEFHkq1QQcPXKB*cF%4usD0cvp zrj|uk4w#%;h-D{}huxv+(}bq$WjrKJ*IBR zt3T?Apiv-{#FnQHVAjwc5T*Z`AS>RS5-q*#39n91Ec`T>KKC6>Pxe%7Z=KIXZlaMd z4GBIp#rpaC2e~d-l5l>@T_-txjjruIk`~k__iO*LebiL$;T2~-YaIzS?gs4^I-9ef zJeenhIePzaj$6~mk0(x@I%>GqY{fdtygYWZXztZd9{)Q$^cCZ~s(H#RuS?6=C@cQ* z_N`lvj37Xt=RQ#z6Lx1rQzX!GJSW+!NDevUR`v~`Fwn}U3k@| z)eOIe^^LFL!RAC}KTxnB2pdK#3I41&e?!)}bB_uqyh_}nwBNs7y8STE;$7|1V_rY5 zkbOMno9-IL6u%fOvANsuW8W2`Yd7Smhl$L4km-<7W`X2AYCZ>y`vgpG%BIB#pt9xp zfYxC?n^UKyp{OJuP87({1HCfcR=r5{?B3wCa2Rd(gxlxS%(2>DG^_AU)$!Fu6J)clNgQi8@U-sVQJ`)Hd(cu$BHAi z=ZMb9uq;quA!a`nux8Tg=_Fb%t+rOmT3(^!)=cw?`e`=j5IOce!+dAP?}F&*H;f#YABHk$^5S~$K7Fpl`u~Q(xJ#F3)~Nz#TTNThVUwKg zlTB~psg{!|DeDmgC9WX;MKty!vjt&HZ}9Nw(`_@;B0LETYFF=U*yE4@?pg^!kKAiv zv+D$h#u7RV2DE;>3HpO<7q#A&s`K}{s8V&MHE^IoY|8qAtWWGh2MAf@NF>B}UX^r7 zTU0RnuLo~-Q{rH|vsA7<2hH-n*quyBDg@>DCE@CVVVmeD5~S-%LU<8kxai-TXl0d4 zm0=|ZOm*Ud1y4Cq^otHKx!q_ID3}@SEuh{AU?|uj@d(zX$MQVUC;8CW2+cVzJ+rWI z19pPwh#x3vu5W`8`5{`Yn)(3#uFe?=xjW#Cat;vk}$4T1JuI1`5&zWO8zIz=` zDO$QoM*-B4s*vB>`xSQR(7|LYB@-L>D&i#+0)?;&j7q;&H$8gY4mB-K989+5q#EE{_osx-zI_7P4)CIwnn?EbZ@We5aY912ZsNP$Bi5 z6Uhboj$FF`ll)83VuHj->lwWv33sa*mY#e2&Fy(fwO{U!iF=Rn?Hh0-@~CG_iO-2# zh1jethh>}|{1n2)%ELWp{?PHA^NGKo>W15INmvgV??=BPgsup`sESR`Yqidi-I^!d z8qud4Y$Ltl_b~n^XCQfHT=LpwE=xdaj^{Tf;fI`Pn_mU<6BCmO$h`dQCgN0Sw{x(U z&F9ouyV3!MuQr(mlFjL=UdIM!xsIQCTJ!&AVCDs|Y{7pon_!J`n^>n!RJbNbSjjBZ zQ<@oPj|Y56#5g5o9fLYJowNic3Z9q9>xwfq9fLySIA@f_5@}R$e{^$3Jf)DQusIZ}+xRR&#)2|74f%ho?a&i~~sd-+M7<;>n4-*vJ!z-S(g zrb*JWSYI-V7FjqjPf21>)}_7eNl6K8p?ci@?bumCq7N}KF;P@lx3nIfG z<8O%g^w$|W{~wSDqOyThNX#H-(jx;lRUSZi>Jw|jU}1%xJ?pN_+<$K+_uJ`5u*NIx zzke!`gy~`rX>smpf}AR|Be?9j4i@MabR7o|uh8#o7AF z697^a(YNaRkGFx`gb7i}Mf|>J#-;G3we?i`Nse8j(5dx(Jpo3^_i={m~;wwEg;wT)Ol8`PDhLAOV&Z zf;AEK38|_cIkBGW@z zS?lu5%o3crkQGAWiQ*yK^k9u40|MBTG_uZaJVGsvKaZz2b;lsfDw8N0DCmU_Zs-k) zk@DdsWrmtXg6ICF?pUi{pKeR!1nCf^ze%C2`cZ+Kv$z%q^_(8eam!FQeXzc4)3P2b zc~gz#ZUUD)FKn$T%ff$L3RDnY^mJ?cl zzdXb#(PB@bA0WovU1+~99@d9Ugw6u4H_iDn%B_~VA|QpjK#5Np`>OD1Vg#D4gbdJ& zsRxPTyDN{tvH|GhhmO-3B*eOY;4vH+R}2F3WzXvt5+XmbM&)m-F%+B$e|gGfa?zyfVH3p} zAHV5O#@zvYDk}>&!PX&1=%UI#v?B@fJ2-mPBK4cE8=BDofyBydUb@Hdp+hT0p!f6I zqhr@klNpYa$vW(mRJ27*+p-)eUF+RK8&`N63pvkQ1Ms~_TPL{7i3Uf`Q3j(c>MPKX zy1-tdjLyu^l^{NH(YNp-v-3_vZcr6N==N`={Y#QRh&!N9?RIuH8d7;=grGn)E~|@4 z(t+utqx_*5kUg9W3%kNVP=Ync3uu{IvnxdD){iEz->cQ>rI@`O!DP`z!0LR$-4%O# zbH&r;#nSGUqR;QB>km;^N70~$CQAA)Y+5#E5e&?;wB)eApt=jiu5MmI!@y+N8}`f5 zf2;<}hw@)JPMa(KkU5AZv-}@wtu+JHGH={qboeBhT+SO5M0aH&{BMHulG(9lg3Kx^ z1~CqX(03Q@fK7*#Q0C;OOu_Zg`JhJm8+?!#VlJk(LRflj9|0RROr=ynF~?6xeFU{! z3N$;=8@JorWdFSB^~7hjQyI;DRO{bQ3lk1HFm_L^$$Z6-VELF4SBVSs9Je|4o}iSD8aL_YUr{q zFNG*BriK0x9}#EC(1scwK5#>D`m9Q}WX{a{%t`5wI2U~~nH%8Gpv&+Zk<|892@?f>u7 dE^B<+8P5C^JIm8@l=uzPNz*3An=JV4e*nz3rmX+~ diff --git a/docs/articles/EUCAST.html b/docs/articles/EUCAST.html index 7eb4e985..4f91ef91 100644 --- a/docs/articles/EUCAST.html +++ b/docs/articles/EUCAST.html @@ -171,6 +171,7 @@

How to apply EUCAST rules

Matthijs S. Berends

+

08 January 2019

@@ -186,7 +187,7 @@

EUCAST expert rules are a tabulated collection of expert knowledge on intrinsic resistances, exceptional resistance phenotypes and interpretive rules that may be applied to antimicrobial susceptibility testing in order to reduce errors and make appropriate recommendations for reporting particular resistances.

-

In Europe, most medical microbiological laboratories already apply these rules. Our package features their latest insights on intrinsic resistance and exceptional phenotypes. Moreover, the eucast_rules() function we use for this purpose can also apply additional rules, like forcing ampicillin = R in isolates when amoxicillin/clavulanic acid = R.

+

In Europe, a lot of medical microbiological laboratories already apply these rules (Brown et al., 2015). Our package features their latest insights on intrinsic resistance and exceptional phenotypes (version 9.0, 2019). Moreover, the eucast_rules() function we use for this purpose can also apply additional rules, like forcing ampicillin = R in isolates when amoxicillin/clavulanic acid = R.

(more will be available soon)

diff --git a/docs/articles/G_test.html b/docs/articles/G_test.html index 012e7f17..184ca5e6 100644 --- a/docs/articles/G_test.html +++ b/docs/articles/G_test.html @@ -171,6 +171,7 @@

How to use the G-test

Matthijs S. Berends

+

08 January 2019

@@ -179,7 +180,7 @@ -

(will be available soon - in the meanwhile, please read about this G-test in the manual)

+

(will be available soon - in the meanwhile, please read about this G-test in the manual)

@@ -688,8 +689,8 @@ Median: 31 July 2009 (47.39%)

Parameter na.rm

With the na.rm parameter (defaults to TRUE, but they will always be shown into the header), you can include NA values in the frequency table:

-
septic_patients %>%
-  freq(amox, na.rm = FALSE)
+
septic_patients %>%
+  freq(amox, na.rm = FALSE)

Frequency table of amox

@@ -741,8 +742,8 @@ Median: 31 July 2009 (47.39%)

Parameter row.names

The default frequency tables shows row indices. To remove them, use row.names = FALSE:

-
septic_patients %>%
-  freq(hospital_id, row.names = FALSE)
+
septic_patients %>%
+  freq(hospital_id, row.names = FALSE)

Frequency table of hospital_id

@@ -789,8 +790,8 @@ Median: 31 July 2009 (47.39%)

Parameter markdown

The markdown parameter is TRUE at default in non-interactive sessions, like in reports created with R Markdown. This will always print all rows, unless nmax is set.

-
septic_patients %>%
-  freq(hospital_id, markdown = TRUE)
+
septic_patients %>%
+  freq(hospital_id, markdown = TRUE)

Frequency table of hospital_id

diff --git a/docs/articles/mo_property.html b/docs/articles/mo_property.html index 46b7a24d..4d794a18 100644 --- a/docs/articles/mo_property.html +++ b/docs/articles/mo_property.html @@ -171,6 +171,7 @@

How to get properties of a microorganism

Matthijs S. Berends

+

08 January 2019

diff --git a/docs/extra.css b/docs/extra.css index 7cc9e8c6..df38f6b5 100644 --- a/docs/extra.css +++ b/docs/extra.css @@ -59,7 +59,7 @@ a pre[href], a pre[href]:hover, a pre[href]:focus { /* syntax font */ pre, code { - font-family: 'Courier New'; + font-family: 'Courier New', monospace; font-size: 100% !important; font-weight: bold; background-color: transparent; @@ -102,6 +102,15 @@ help { display: none; } +/* Date of vignettes */ +.template-article .date:before { + content: 'Last updated: '; +} +.template-article .date { + font-size: 14px; + padding-top: 40px; +} + /* more space between icon and text in top menu */ #navbar .fa, #navbar .fab, diff --git a/docs/extra.js b/docs/extra.js index 2268acc2..ca621c42 100644 --- a/docs/extra.js +++ b/docs/extra.js @@ -38,3 +38,5 @@ $( document ).ready(function() { // Edit title of manual $('.template-reference-index h1').text('Manual'); }); + +$('head').append(""); diff --git a/docs/index.html b/docs/index.html index 77395554..b5501c45 100644 --- a/docs/index.html +++ b/docs/index.html @@ -215,7 +215,7 @@

Get this package

This package is available on the official R network (CRAN). Install this package in R with:

-
install.packages("AMR")
+

It will be downloaded and installed automatically.

@@ -231,17 +231,17 @@

All (sub)species from the taxonomic kingdoms Bacteria, Fungi and Protozoa are included in this package, as well as all previously accepted names known to ITIS. Furthermore, the responsible authors and year of publication are available. This allows users to use authoritative taxonomic information for their data analysis on any microorganism, not only human pathogens. It also helps to quickly determine the Gram stain of bacteria, since all bacteria are classified into subkingdom Negibacteria or Posibacteria. ITIS is a partnership of U.S., Canadian, and Mexican agencies and taxonomic specialists.

The AMR package basically does four important things:

    -
  1. It cleanses existing data, by transforming it to reproducible and profound classes, making the most efficient use of R. These functions all use artificial intelligence to guess results that you would expect:
    2. -
+
  • +

    It cleanses existing data, by transforming it to reproducible and profound classes, making the most efficient use of R. These functions all use artificial intelligence to guess results that you would expect:

    • Use as.mo() to get an ID of a microorganism. The IDs are human readable for the trained eye - the ID of Klebsiella pneumoniae is “B_KLBSL_PNE” (B stands for Bacteria) and the ID of S. aureus is “B_STPHY_AUR”. The function takes almost any text as input that looks like the name or code of a microorganism like “E. coli”, “esco” and “esccol”. Even as.mo("MRSA") will return the ID of S. aureus. Moreover, it can group all coagulase negative and positive Staphylococci, and can transform Streptococci into Lancefield groups. To find bacteria based on your input, it uses Artificial Intelligence to look up values in the included ITIS data, consisting of more than 18,000 microorganisms.
    • Use as.rsi() to transform values to valid antimicrobial results. It produces just S, I or R based on your input and warns about invalid values. Even values like “<=0.002; S” (combined MIC/RSI) will result in “S”.
    • Use as.mic() to cleanse your MIC values. It produces a so-called factor (called ordinal in SPSS) with valid MIC values as levels. A value like “<=0.002; S” (combined MIC/RSI) will result in “<=0.002”.
    • Use as.atc() to get the ATC code of an antibiotic as defined by the WHO. This package contains a database with most LIS codes, official names, DDDs and even trade names of antibiotics. For example, the values “Furabid”, “Furadantin”, “nitro” all return the ATC code of Nitrofurantoine.
    -
      -
    1. It enhances existing data and adds new data from data sets included in this package.
      2. -
    +
    • +
  • +

    It enhances existing data and adds new data from data sets included in this package.

    • Use eucast_rules() to apply EUCAST expert rules to isolates.
    • Use first_isolate() to identify the first isolates of every patient using guidelines from the CLSI (Clinical and Laboratory Standards Institute). @@ -253,9 +253,9 @@
    • The data set microorganisms contains the complete taxonomic tree of more than 18,000 microorganisms (bacteria, fungi/yeasts and protozoa). Furthermore, the colloquial name and Gram stain are available, which enables resistance analysis of e.g. different antibiotics per Gram stain. The package also contains functions to look up values in this data set like mo_genus(), mo_family(), mo_gramstain() or even mo_phylum(). As they use as.mo() internally, they also use artificial intelligence. For example, mo_genus("MRSA") and mo_genus("S. aureus") will both return "Staphylococcus". They also come with support for German, Dutch, Spanish, Italian, French and Portuguese. These functions can be used to add new variables to your data.
    • The data set antibiotics contains the ATC code, LIS codes, official name, trivial name and DDD of both oral and parenteral administration. It also contains a total of 298 trade names. Use functions like ab_name() and ab_tradenames() to look up values. The ab_* functions use as.atc() internally so they support AI to guess your expected result. For example, ab_name("Fluclox"), ab_name("Floxapen") and ab_name("J01CF05") will all return "Flucloxacillin". These functions can again be used to add new variables to your data.
    -
      -
    1. It analyses the data with convenient functions that use well-known methods.
      2. -
    +
    • +
  • +

    It analyses the data with convenient functions that use well-known methods.

    -
      -
    1. It teaches the user how to use all the above actions.
      2. -
    +
    • +
  • +

    It teaches the user how to use all the above actions.

    • The package contains extensive help pages with many examples.
    • It also contains an example data set called septic_patients. This data set contains: @@ -276,6 +276,8 @@
    • + +

    diff --git a/docs/news/index.html b/docs/news/index.html index 84f0a3e9..87fcccc4 100644 --- a/docs/news/index.html +++ b/docs/news/index.html @@ -222,27 +222,48 @@

    Changed

      -
    • Function guess_mo() is now deprecated in favour of as.mo() and will be remover in future versions
      • -
    • Fixed a critical bug in eucast_rules() where some rules that depend on previous applied rules would not be applied adequately
      • -
    • Improvements for as.mo():
      • +
    • Function eucast_rules(): +
        +
      • Updated EUCAST Clinical breakpoints to version 9.0 of 1 January 2019 +
        • +
      • Fixed a critical bug where some rules that depend on previous applied rules would not be applied adequately
        • +
      • Emphasised in manual that penicillin is meant as benzylpenicillin (ATC J01CE01)
        • +
      +
      • +
    • Function guess_mo() is now deprecated in favour of as.mo() and will be removed in future versions
      • +
    • Improvements for as.mo(): +
        +
      • Fix for vector containing only empty values
      • Finds better results when input is in other languages
      • Better handling for subspecies
      • Better handling for Salmonellae @@ -251,12 +272,17 @@
      • Manual now contains more info about the algorithms
      • Progress bar will be shown when it takes more than 3 seconds to get results
      • Support for formatted console text
        • -
      • Function first_isolate():
        • +
      +
      • +
    • Function first_isolate(): +
      • Fixed a bug where distances between dates would not be calculated right - in the septic_patients data set this yielded a difference of 0.15% more isolates
      • Will now use a column named like “patid” for the patient ID (parameter col_patientid), when this parameter was left blank
      • Will now use a column named like “key(…)ab” or “key(…)antibiotics” for the key antibiotics (parameter col_keyantibiotics()), when this parameter was left blank
      • Removed parameter output_logical, the function will now always return a logical value
      • Renamed parameter filter_specimen to specimen_group, although using filter_specimen will still work
        • +
      +
    • A note to the manual pages of the portion functions, that low counts can influence the outcome and that the portion functions may camouflage this, since they only return the portion (albeit being dependent on the minimum parameter)
    • Function mo_taxonomy() now contains the kingdom too
    • Reduce false positives for is.rsi.eligible() @@ -265,7 +291,8 @@
    • Small text updates to summaries of class rsi and mic
      • -
    • Frequency tables (freq() function):
      • +
    • Frequency tables (freq() function): +
      • Header info is now available as a list, with the header function
      • Added header info for class mo to show unique count of families, genera and species
      • Now honours the decimal.mark setting, which just like format defaults to getOption("OutDec") @@ -275,6 +302,8 @@
      • New parameter droplevels to exclude empty factor levels when input is a factor
      • Factor levels will be in header when present in input data
        • +
      +
    • Function scale_y_percent() now contains the limits parameter
    • Automatic parameter filling for mdro(), key_antibiotics() and eucast_rules()
      • @@ -316,7 +345,8 @@
    • EUCAST_rules was renamed to eucast_rules, the old function still exists as a deprecated function
      • -
    • Big changes to the eucast_rules function:
      • +
    • Big changes to the eucast_rules function: +
      • Now also applies rules from the EUCAST ‘Breakpoint tables for bacteria’, version 8.1, 2018, http://www.eucast.org/clinical_breakpoints/ (see Source of the function)
      • New parameter rules to specify which rules should be applied (expert rules, breakpoints, others or all)
      • New parameter verbose which can be set to TRUE to get very specific messages about which columns and rows were affected
        • @@ -325,11 +355,18 @@
      • Data set septic_patients now reflects these changes
      • Added parameter pipe for piperacillin (J01CA12), also to the mdro function
      • Small fixes to EUCAST clinical breakpoint rules
        • +
      +
    • Added column kingdom to the microorganisms data set, and function mo_kingdom to look up values
    • Tremendous speed improvement for as.mo (and subsequently all mo_* functions), as empty values wil be ignored a priori
    • Fewer than 3 characters as input for as.mo will return NA
      • -
    • Function as.mo (and all mo_* wrappers) now supports genus abbreviations with “species” attached r as.mo("E. species") # B_ESCHR mo_fullname("E. spp.") # "Escherichia species" as.mo("S. spp") # B_STPHY mo_fullname("S. species") # "Staphylococcus species" +
    • +

      Function as.mo (and all mo_* wrappers) now supports genus abbreviations with “species” attached

      +
      as.mo("E. species")        # B_ESCHR
+mo_fullname("E. spp.")     # "Escherichia species"
+as.mo("S. spp")            # B_STPHY
+mo_fullname("S. species")  # "Staphylococcus species"
    • Added parameter combine_IR (TRUE/FALSE) to functions portion_df and count_df, to indicate that all values of I and R must be merged into one, so the output only consists of S vs. IR (susceptible vs. non-susceptible)
    • Fix for portion_*(..., as_percent = TRUE) when minimal number of isolates would not be met
      • @@ -338,18 +375,19 @@
    • Using portion_* functions now throws a warning when total available isolate is below parameter minimum
    • Functions as.mo, as.rsi, as.mic, as.atc and freq will not set package name as attribute anymore
      • -
    • Frequency tables - freq():
      • +
    • Frequency tables - freq(): + +
    • first_isolate now tries to find columns to use as input when parameters are left blank
    • Improvements for MDRO algorithm (function mdro)
      • @@ -371,7 +411,8 @@
    • ggplot_rsi and scale_y_percent have breaks parameter
      • -
    • AI improvements for as.mo:
      • +
    • AI improvements for as.mo: +
      • "CRS" -> Stenotrophomonas maltophilia
        • @@ -384,6 +425,8 @@
      • "MSSE" -> Staphylococcus epidermidis
        • +
      +
    • Fix for join functions
    • Speed improvement for is.rsi.eligible, now 15-20 times faster
    • In g.test, when sum(x) is below 1000 or any of the expected values is below 5, Fisher’s Exact Test will be suggested
      • @@ -412,7 +455,8 @@ New
      • The data set microorganisms now contains all microbial taxonomic data from ITIS (kingdoms Bacteria, Fungi and Protozoa), the Integrated Taxonomy Information System, available via https://itis.gov. The data set now contains more than 18,000 microorganisms with all known bacteria, fungi and protozoa according ITIS with genus, species, subspecies, family, order, class, phylum and subkingdom. The new data set microorganisms.old contains all previously known taxonomic names from those kingdoms.
        • -
      • New functions based on the existing function mo_property:
        • +
      • New functions based on the existing function mo_property: +
        • Taxonomic names: mo_phylum, mo_class, mo_order, mo_family, mo_genus, mo_species, mo_subspecies
        • Semantic names: mo_fullname, mo_shortname @@ -422,22 +466,52 @@
        • Author and year: mo_ref
        -

        They also come with support for German, Dutch, French, Italian, Spanish and Portuguese: r mo_gramstain("E. coli") # [1] "Gram negative" mo_gramstain("E. coli", language = "de") # German # [1] "Gramnegativ" mo_gramstain("E. coli", language = "es") # Spanish # [1] "Gram negativo" mo_fullname("S. group A", language = "pt") # Portuguese # [1] "Streptococcus grupo A"

        -

        Furthermore, former taxonomic names will give a note about the current taxonomic name: r mo_gramstain("Esc blattae") # Note: 'Escherichia blattae' (Burgess et al., 1973) was renamed 'Shimwellia blattae' (Priest and Barker, 2010) # [1] "Gram negative"

        +

        They also come with support for German, Dutch, French, Italian, Spanish and Portuguese:

        +
        mo_gramstain("E. coli")
+# [1] "Gram negative"
+mo_gramstain("E. coli", language = "de") # German
+# [1] "Gramnegativ"
+mo_gramstain("E. coli", language = "es") # Spanish
+# [1] "Gram negativo"
+mo_fullname("S. group A", language = "pt") # Portuguese
+# [1] "Streptococcus grupo A"
        +

        Furthermore, former taxonomic names will give a note about the current taxonomic name:

        + +
        • +
      • Functions count_R, count_IR, count_I, count_SI and count_S to selectively count resistant or susceptible isolates
          -
        • Functions count_R, count_IR, count_I, count_SI and count_S to selectively count resistant or susceptible isolates
        • Extra function count_df (which works like portion_df) to get all counts of S, I and R of a data set with antibiotic columns, with support for grouped variables
          • +
        +
      • Function is.rsi.eligible to check for columns that have valid antimicrobial results, but do not have the rsi class yet. Transform the columns of your raw data with: data %>% mutate_if(is.rsi.eligible, as.rsi)
        • -
      • Functions as.mo and is.mo as replacements for as.bactid and is.bactid (since the microoganisms data set not only contains bacteria). These last two functions are deprecated and will be removed in a future release. The as.mo function determines microbial IDs using Artificial Intelligence (AI): r as.mo("E. coli") # [1] B_ESCHR_COL as.mo("MRSA") # [1] B_STPHY_AUR as.mo("S group A") # [1] B_STRPTC_GRA And with great speed too - on a quite regular Linux server from 2007 it takes us less than 0.02 seconds to transform 25,000 items: r thousands_of_E_colis <- rep("E. coli", 25000) microbenchmark::microbenchmark(as.mo(thousands_of_E_colis), unit = "s") # Unit: seconds # min median max neval # 0.01817717 0.01843957 0.03878077 100 +
      • +

        Functions as.mo and is.mo as replacements for as.bactid and is.bactid (since the microoganisms data set not only contains bacteria). These last two functions are deprecated and will be removed in a future release. The as.mo function determines microbial IDs using Artificial Intelligence (AI):

        + +

        And with great speed too - on a quite regular Linux server from 2007 it takes us less than 0.02 seconds to transform 25,000 items:

        +
      • Added parameter reference_df for as.mo, so users can supply their own microbial IDs, name or codes as a reference table
        • -
      • Renamed all previous references to bactid to mo, like:
        • +
      • Renamed all previous references to bactid to mo, like: +
        • Column names inputs of EUCAST_rules, first_isolate and key_antibiotics
        • Column names of datasets microorganisms and septic_patients
        • All old syntaxes will still work with this version, but will throw warnings
          • +
        +
      • Function labels_rsi_count to print datalabels on a RSI ggplot2 model

      • Functions as.atc and is.atc to transform/look up antibiotic ATC codes as defined by the WHO. The existing function guess_atc is now an alias of as.atc.

      • Function ab_property and its aliases: ab_name, ab_tradenames, ab_certe, ab_umcg and ab_trivial_nl @@ -452,7 +526,14 @@ Changed
        • Added three antimicrobial agents to the antibiotics data set: Terbinafine (D01BA02), Rifaximin (A07AA11) and Isoconazole (D01AC05)
          • -
        • Added 163 trade names to the antibiotics data set, it now contains 298 different trade names in total, e.g.: r ab_official("Bactroban") # [1] "Mupirocin" ab_name(c("Bactroban", "Amoxil", "Zithromax", "Floxapen")) # [1] "Mupirocin" "Amoxicillin" "Azithromycin" "Flucloxacillin" ab_atc(c("Bactroban", "Amoxil", "Zithromax", "Floxapen")) # [1] "R01AX06" "J01CA04" "J01FA10" "J01CF05" +
        • +

          Added 163 trade names to the antibiotics data set, it now contains 298 different trade names in total, e.g.:

          +
          ab_official("Bactroban")
+# [1] "Mupirocin"
+ab_name(c("Bactroban", "Amoxil", "Zithromax", "Floxapen"))
+# [1] "Mupirocin" "Amoxicillin" "Azithromycin" "Flucloxacillin"
+ab_atc(c("Bactroban", "Amoxil", "Zithromax", "Floxapen"))
+# [1] "R01AX06" "J01CA04" "J01FA10" "J01CF05"
        • For first_isolate, rows will be ignored when there’s no species available
        • Function ratio is now deprecated and will be removed in a future release, as it is not really the scope of this package
          • @@ -461,9 +542,36 @@
        • Added prevalence column to the microorganisms data set
        • Added parameters minimum and as_percent to portion_df
          • -
        • Support for quasiquotation in the functions series count_* and portions_*, and n_rsi. This allows to check for more than 2 vectors or columns. ```r septic_patients %>% select(amox, cipr) %>% count_IR() # which is the same as: septic_patients %>% count_IR(amox, cipr)
          • +
        • +

          Support for quasiquotation in the functions series count_* and portions_*, and n_rsi. This allows to check for more than 2 vectors or columns.

          + +
          • +
        • Edited ggplot_rsi and geom_rsi so they can cope with count_df. The new fun parameter has value portion_df at default, but can be set to count_df.
          • +
        • Fix for ggplot_rsi when the ggplot2 package was not loaded
          • +
        • Added datalabels function labels_rsi_count to ggplot_rsi +
          • +
        • Added possibility to set any parameter to geom_rsi (and ggplot_rsi) so you can set your own preferences
          • +
        • Fix for joins, where predefined suffices would not be honoured
          • +
        • Added parameter quote to the freq function
          • +
        • Added generic function diff for frequency tables
          • +
        • Added longest en shortest character length in the frequency table (freq) header of class character +
          • +
        • +

          Support for types (classes) list and matrix for freq

          +
          my_matrix = with(septic_patients, matrix(c(age, gender), ncol = 2))
+freq(my_matrix)
          +

          For lists, subsetting is possible:

          +
          my_list = list(age = septic_patients$age, gender = septic_patients$gender)
+my_list %>% freq(age)
+my_list %>% freq(gender)
          +
        -

        septic_patients %>% portion_S(amcl) septic_patients %>% portion_S(amcl, gent) septic_patients %>% portion_S(amcl, gent, pita) * Edited `ggplot_rsi` and `geom_rsi` so they can cope with `count_df`. The new `fun` parameter has value `portion_df` at default, but can be set to `count_df`. * Fix for `ggplot_rsi` when the `ggplot2` package was not loaded * Added datalabels function `labels_rsi_count` to `ggplot_rsi` * Added possibility to set any parameter to `geom_rsi` (and `ggplot_rsi`) so you can set your own preferences * Fix for joins, where predefined suffices would not be honoured * Added parameter `quote` to the `freq` function * Added generic function `diff` for frequency tables * Added longest en shortest character length in the frequency table (`freq`) header of class `character` * Support for types (classes) list and matrix for `freq`r my_matrix = with(septic_patients, matrix(c(age, gender), ncol = 2)) freq(my_matrix) For lists, subsetting is possible:r my_list = list(age = septic_patients$age, gender = septic_patients$gender) my_list %>% freq(age) my_list %>% freq(gender) ```

    @@ -482,15 +590,21 @@ New

    • -BREAKING: rsi_df was removed in favour of new functions portion_R, portion_IR, portion_I, portion_SI and portion_S to selectively calculate resistance or susceptibility. These functions are 20 to 30 times faster than the old rsi function. The old function still works, but is deprecated.
      • +BREAKING: rsi_df was removed in favour of new functions portion_R, portion_IR, portion_I, portion_SI and portion_S to selectively calculate resistance or susceptibility. These functions are 20 to 30 times faster than the old rsi function. The old function still works, but is deprecated. +
      • New function portion_df to get all portions of S, I and R of a data set with antibiotic columns, with support for grouped variables
        • +
      +
    • -BREAKING: the methodology for determining first weighted isolates was changed. The antibiotics that are compared between isolates (call key antibiotics) to include more first isolates (afterwards called first weighted isolates) are now as follows:
      • +BREAKING: the methodology for determining first weighted isolates was changed. The antibiotics that are compared between isolates (call key antibiotics) to include more first isolates (afterwards called first weighted isolates) are now as follows: +
      • Universal: amoxicillin, amoxicillin/clavlanic acid, cefuroxime, piperacillin/tazobactam, ciprofloxacin, trimethoprim/sulfamethoxazole
      • Gram-positive: vancomycin, teicoplanin, tetracycline, erythromycin, oxacillin, rifampicin
      • Gram-negative: gentamicin, tobramycin, colistin, cefotaxime, ceftazidime, meropenem
        • -
      • Support for ggplot2 +
      +
    • Support for ggplot2 +
      • New functions geom_rsi, facet_rsi, scale_y_percent, scale_rsi_colours and theme_rsi
      • New wrapper function ggplot_rsi to apply all above functions on a data set: @@ -501,22 +615,32 @@
      • -
    • Determining bacterial ID:
      • +
    + +
  • Determining bacterial ID: +
    • New functions as.bactid and is.bactid to transform/ look up microbial ID’s.
    • The existing function guess_bactid is now an alias of as.bactid
    • New Becker classification for Staphylococcus to categorise them into Coagulase Negative Staphylococci (CoNS) and Coagulase Positve Staphylococci (CoPS)
    • New Lancefield classification for Streptococcus to categorise them into Lancefield groups
      • +
    +
  • For convience, new descriptive statistical functions kurtosis and skewness that are lacking in base R - they are generic functions and have support for vectors, data.frames and matrices
  • Function g.test to perform the Χ2 distributed G-test, which use is the same as chisq.test
    • -
  • Function ratio to transform a vector of values to a preset ratio
    • +
  • +Function ratio to transform a vector of values to a preset ratio + +
  • Support for Addins menu in RStudio to quickly insert %in% or %like% (and give them keyboard shortcuts), or to view the datasets that come with this package
  • Function p.symbol to transform p values to their related symbols: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
  • Functions clipboard_import and clipboard_export as helper functions to quickly copy and paste from/to software like Excel and SPSS. These functions use the clipr package, but are a little altered to also support headless Linux servers (so you can use it in RStudio Server)
    • -
  • New for frequency tables (function freq):
    • +
  • New for frequency tables (function freq): +
    • A vignette to explain its usage
    • Support for rsi (antimicrobial resistance) to use as input
    • Support for table to use as input: freq(table(x, y)) @@ -531,6 +655,8 @@
    • Header of frequency tables now also show Mean Absolute Deviaton (MAD) and Interquartile Range (IQR)
    • Possibility to globally set the default for the amount of items to print, with options(max.print.freq = n) where n is your preset value
    +
    • +

    @@ -552,21 +678,27 @@
  • Small improvements to the microorganisms dataset (especially for Salmonella) and the column bactid now has the new class "bactid"
    • -
  • Combined MIC/RSI values will now be coerced by the rsi and mic functions:
    • +
  • Combined MIC/RSI values will now be coerced by the rsi and mic functions: + +
  • Now possible to coerce MIC values with a space between operator and value, i.e. as.mic("<= 0.002") now works
  • Classes rsi and mic do not add the attribute package.version anymore
  • Added "groups" option for atc_property(..., property). It will return a vector of the ATC hierarchy as defined by the WHO. The new function atc_groups is a convenient wrapper around this.
  • Build-in host check for atc_property as it requires the host set by url to be responsive
  • Improved first_isolate algorithm to exclude isolates where bacteria ID or genus is unavailable
  • Fix for warning hybrid evaluation forced for row_number (924b62) from the dplyr package v0.7.5 and above
    • -
  • Support for empty values and for 1 or 2 columns as input for guess_bactid (now called as.bactid)
    • +
  • Support for empty values and for 1 or 2 columns as input for guess_bactid (now called as.bactid) +
    • So yourdata %>% select(genus, species) %>% as.bactid() now also works
      • +
    +
  • Other small fixes

    • @@ -574,11 +706,14 @@

    Other

    @@ -597,10 +732,13 @@
  • Function guess_bactid to determine the ID of a microorganism based on genus/species or known abbreviations like MRSA
  • Function guess_atc to determine the ATC of an antibiotic based on name, trade name, or known abbreviations
  • Function freq to create frequency tables, with additional info in a header
    • -
  • Function MDRO to determine Multi Drug Resistant Organisms (MDRO) with support for country-specific guidelines.
    • +
  • Function MDRO to determine Multi Drug Resistant Organisms (MDRO) with support for country-specific guidelines. + +
  • New algorithm to determine weighted isolates, can now be "points" or "keyantibiotics", see ?first_isolate
  • New print format for tibbles and data.tables
    • diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml index e1a0a6f2..1f121089 100644 --- a/docs/pkgdown.yml +++ b/docs/pkgdown.yml @@ -1,4 +1,4 @@ -pandoc: 1.17.2 +pandoc: 2.3.1 pkgdown: 1.3.0 pkgdown_sha: ~ articles: diff --git a/docs/reference/ITIS.html b/docs/reference/ITIS.html new file mode 100644 index 00000000..67f4bc3b --- /dev/null +++ b/docs/reference/ITIS.html @@ -0,0 +1,316 @@ + + + + + + + + +ITIS: Integrated Taxonomic Information System — ITIS • AMR (for R) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + + + +
    + +
    +
    +
    +

    ITIS: Integrated Taxonomic Information System

    + + +
    + +
    + +

    All taxonomic names of all microorganisms are included in this package, using the authoritative Integrated Taxonomic Information System (ITIS).

    + +
    + + +

    ITIS

    + + +


    +This package contains the complete microbial taxonomic data (with all nine taxonomic ranks - from kingdom to subspecies) from the publicly available Integrated Taxonomic Information System (ITIS, https://www.itis.gov).

    +

    All (sub)species from the taxonomic kingdoms Bacteria, Fungi and Protozoa are included in this package, as well as all previously accepted names known to ITIS. Furthermore, the responsible authors and year of publication are available. This allows users to use authoritative taxonomic information for their data analysis on any microorganism, not only human pathogens. It also helps to quickly determine the Gram stain of bacteria, since all bacteria are classified into subkingdom Negibacteria or Posibacteria.

    +

    ITIS is a partnership of U.S., Canadian, and Mexican agencies and taxonomic specialists [3].

    + +

    Read more on our website!

    + + +


    +On our website https://msberends.gitlab.io/AMR you can find a omprehensive tutorial about how to conduct AMR analysis and find the complete documentation of all functions, which reads a lot easier than in R.

    + + +

    Examples

    + 
    # NOT RUN {
+# Get a note when a species was renamed
+mo_shortname("Chlamydia psittaci")
+# Note: 'Chlamydia psittaci' (Page, 1968) was renamed
+#       'Chlamydophila psittaci' (Everett et al., 1999)
+# [1] "C. psittaci"
+
+# Get any property from the entire taxonomic tree for all included species
+mo_class("E. coli")
+# [1] "Gammaproteobacteria"
+
+mo_family("E. coli")
+# [1] "Enterobacteriaceae"
+
+mo_subkingdom("E. coli")
+# [1] "Negibacteria"
+
+mo_gramstain("E. coli") # based on subkingdom
+# [1] "Gram negative"
+
+mo_ref("E. coli")
+# [1] "Castellani and Chalmers, 1919"
+
+# Do not get mistaken - the package only includes microorganisms
+mo_phylum("C. elegans")
+# [1] "Cyanobacteria"                   # Bacteria?!
+mo_fullname("C. elegans")
+# [1] "Chroococcus limneticus elegans"  # Because a microorganism was found
+# }
    +
    + +
    + + +
    + + + + + + + + + diff --git a/docs/reference/age_groups.html b/docs/reference/age_groups.html index 922d77e8..2e31aa90 100644 --- a/docs/reference/age_groups.html +++ b/docs/reference/age_groups.html @@ -289,11 +289,11 @@ On our website https://msberends.gitla # resistance of ciprofloxacine per age group library(dplyr) septic_patients%>% - mutate(first_isolate=first_isolate(.)) %>% - filter(first_isolate==TRUE, + mutate(first_isolate=first_isolate(.)) %>% + filter(first_isolate==TRUE, mo==as.mo("E. coli")) %>% - group_by(age_group=age_groups(age)) %>% - select(age_group, + group_by(age_group=age_groups(age)) %>% + select(age_group, cipr) %>%ggplot_rsi(x="age_group") # } diff --git a/docs/reference/as.rsi.html b/docs/reference/as.rsi.html index 762487df..8ae4d697 100644 --- a/docs/reference/as.rsi.html +++ b/docs/reference/as.rsi.html @@ -270,11 +270,11 @@ On our website https://msberends.gitla # using dplyr's mutate library(dplyr) septic_patients%>% - mutate_at(vars(peni:rifa), as.rsi) + mutate_at(vars(peni:rifa), as.rsi) # fastest way to transform all columns with already valid AB results to class `rsi`:septic_patients%>% - mutate_if(is.rsi.eligible, + mutate_if(is.rsi.eligible, as.rsi) # } diff --git a/docs/reference/count.html b/docs/reference/count.html index 6f1c7218..be6540b8 100644 --- a/docs/reference/count.html +++ b/docs/reference/count.html @@ -217,7 +217,7 @@ count_R and count_IR can be used to count resistant isolates, count_S and count_
    -

    These functions can be used to count resistant/susceptible microbial isolates. All functions support quasiquotation with pipes, can be used in dplyrs summarise and support grouped variables, see Examples.

    +

    These functions can be used to count resistant/susceptible microbial isolates. All functions support quasiquotation with pipes, can be used in dplyrs summarise and support grouped variables, see Examples.

    count_R and count_IR can be used to count resistant isolates, count_S and count_SI can be used to count susceptible isolates.

    @@ -275,7 +275,7 @@ count_R and count_IR can be used to count resistant isolates, count_S and count_

    Details

    These functions are meant to count isolates. Use the portion_* functions to calculate microbial resistance.

    -

    n_rsi is an alias of count_all. They can be used to count all available isolates, i.e. where all input antibiotics have an available result (S, I or R). Their use is equal to n_distinct. Their function is equal to count_S(...) + count_IR(...).

    +

    n_rsi is an alias of count_all. They can be used to count all available isolates, i.e. where all input antibiotics have an available result (S, I or R). Their use is equal to n_distinct. Their function is equal to count_S(...) + count_IR(...).

    count_df takes any variable from data that has an "rsi" class (created with as.rsi) and counts the amounts of R, I and S. The resulting tidy data (see Source) data.frame will have three rows (S/I/R) and a column for each variable with class "rsi".

    Read more on our website!

    @@ -314,13 +314,13 @@ On our website https://msberends.gitla library(dplyr) septic_patients%>% - group_by(hospital_id) %>% - summarise(R=count_R(cipr), + group_by(hospital_id) %>% + summarise(R=count_R(cipr), I=count_I(cipr), S=count_S(cipr), n1=count_all(cipr), # the actual total; sum of all threen2=n_rsi(cipr), # same - analogous to n_distinct - total=n()) # NOT the amount of tested isolates! + total=n()) # NOT the amount 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. @@ -338,13 +338,13 @@ On our website https://msberends.gitla # Get portions S/I/R immediately of all rsi columns septic_patients %>% - select(amox, cipr) %>% + select(amox, cipr) %>%count_df(translate=FALSE) # It also supports grouping variablesseptic_patients%>% - select(hospital_id, amox, cipr) %>% - group_by(hospital_id) %>% + select(hospital_id, amox, cipr) %>% + group_by(hospital_id) %>%count_df(translate=FALSE) # } diff --git a/docs/reference/eucast_rules.html b/docs/reference/eucast_rules.html index bd93a4fd..1d287876 100644 --- a/docs/reference/eucast_rules.html +++ b/docs/reference/eucast_rules.html @@ -289,8 +289,8 @@ https://doi.org/10.1111/j.1469-0691.2011.03703.x

  • EUCAST Expert Rules, Intrinsic Resistance and Exceptional Phenotypes Tables. Version 3.1, 2016.
    http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Expert_Rules/Expert_rules_intrinsic_exceptional_V3.1.pdf

    • -

  • EUCAST Breakpoint tables for interpretation of MICs and zone diameters. Version 8.1, 2018.
    - http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Breakpoint_tables/v_8.1_Breakpoint_Tables.xlsx

    • +

  • EUCAST Breakpoint tables for interpretation of MICs and zone diameters. Version 9.0, 2019.
    + http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Breakpoint_tables/v_9.0_Breakpoint_Tables.xlsx

    • Value

    @@ -302,68 +302,68 @@

    To define antibiotics column names, leave as it is to determine it automatically with guess_ab or input a text (case-insensitive) or use NULL to skip a column (e.g. tica = NULL). Non-existing columns will anyway be skipped with a warning.

    Abbrevations of the column containing antibiotics in the form: abbreviation: generic name (ATC code)

    -

    amcl: amoxicillin+clavulanic acid (J01CR02), - amik: amikacin (J01GB06), - amox: amoxicillin (J01CA04), - ampi: ampicillin (J01CA01), - azit: azithromycin (J01FA10), - azlo: azlocillin (J01CA09), - aztr: aztreonam (J01DF01), - cefa: cefaloridine (J01DB02), - cfep: cefepime (J01DE01), - cfot: cefotaxime (J01DD01), - cfox: cefoxitin (J01DC01), - cfra: cefradine (J01DB09), - cfta: ceftazidime (J01DD02), - cftr: ceftriaxone (J01DD04), - cfur: cefuroxime (J01DC02), - chlo: chloramphenicol (J01BA01), - cipr: ciprofloxacin (J01MA02), - clar: clarithromycin (J01FA09), - clin: clindamycin (J01FF01), - clox: flucloxacillin (J01CF05), - coli: colistin (J01XB01), - czol: cefazolin (J01DB04), - dapt: daptomycin (J01XX09), - doxy: doxycycline (J01AA02), - erta: ertapenem (J01DH03), - eryt: erythromycin (J01FA01), - fosf: fosfomycin (J01XX01), - fusi: fusidic acid (J01XC01), - gent: gentamicin (J01GB03), - imip: imipenem (J01DH51), - kana: kanamycin (J01GB04), - levo: levofloxacin (J01MA12), - linc: lincomycin (J01FF02), - line: linezolid (J01XX08), - mero: meropenem (J01DH02), - mezl: mezlocillin (J01CA10), - mino: minocycline (J01AA08), - moxi: moxifloxacin (J01MA14), - nali: nalidixic acid (J01MB02), - neom: neomycin (J01GB05), - neti: netilmicin (J01GB07), - nitr: nitrofurantoin (J01XE01), - norf: norfloxacin (J01MA06), - novo: novobiocin (an ATCvet code: QJ01XX95), - oflo: ofloxacin (J01MA01), - peni: penicillin (J01RA01), - pipe: piperacillin (J01CA12), - pita: piperacillin+tazobactam (J01CR05), - poly: polymyxin B (J01XB02), - pris: pristinamycin (J01FG01), - qida: quinupristin/dalfopristin (J01FG02), - rifa: rifampicin (J04AB02), - roxi: roxithromycin (J01FA06), - siso: sisomicin (J01GB08), - teic: teicoplanin (J01XA02), - tetr: tetracycline (J01AA07), - tica: ticarcillin (J01CA13), - tige: tigecycline (J01AA12), - tobr: tobramycin (J01GB01), - trim: trimethoprim (J01EA01), - trsu: sulfamethoxazole and trimethoprim (J01EE01), - vanc: vancomycin (J01XA01).

    +

    amcl: amoxicillin+clavulanic acid (J01CR02), + amik: amikacin (J01GB06), + amox: amoxicillin (J01CA04), + ampi: ampicillin (J01CA01), + azit: azithromycin (J01FA10), + azlo: azlocillin (J01CA09), + aztr: aztreonam (J01DF01), + cefa: cefaloridine (J01DB02), + cfep: cefepime (J01DE01), + cfot: cefotaxime (J01DD01), + cfox: cefoxitin (J01DC01), + cfra: cefradine (J01DB09), + cfta: ceftazidime (J01DD02), + cftr: ceftriaxone (J01DD04), + cfur: cefuroxime (J01DC02), + chlo: chloramphenicol (J01BA01), + cipr: ciprofloxacin (J01MA02), + clar: clarithromycin (J01FA09), + clin: clindamycin (J01FF01), + clox: flucloxacillin (J01CF05), + coli: colistin (J01XB01), + czol: cefazolin (J01DB04), + dapt: daptomycin (J01XX09), + doxy: doxycycline (J01AA02), + erta: ertapenem (J01DH03), + eryt: erythromycin (J01FA01), + fosf: fosfomycin (J01XX01), + fusi: fusidic acid (J01XC01), + gent: gentamicin (J01GB03), + imip: imipenem (J01DH51), + kana: kanamycin (J01GB04), + levo: levofloxacin (J01MA12), + linc: lincomycin (J01FF02), + line: linezolid (J01XX08), + mero: meropenem (J01DH02), + mezl: mezlocillin (J01CA10), + mino: minocycline (J01AA08), + moxi: moxifloxacin (J01MA14), + nali: nalidixic acid (J01MB02), + neom: neomycin (J01GB05), + neti: netilmicin (J01GB07), + nitr: nitrofurantoin (J01XE01), + norf: norfloxacin (J01MA06), + novo: novobiocin (an ATCvet code: QJ01XX95), + oflo: ofloxacin (J01MA01), + peni: (benzyl)penicillin (J01CE01), + pipe: piperacillin (J01CA12), + pita: piperacillin+tazobactam (J01CR05), + poly: polymyxin B (J01XB02), + pris: pristinamycin (J01FG01), + qida: quinupristin/dalfopristin (J01FG02), + rifa: rifampicin (J04AB02), + roxi: roxithromycin (J01FA06), + siso: sisomicin (J01GB08), + teic: teicoplanin (J01XA02), + tetr: tetracycline (J01AA07), + tica: ticarcillin (J01CA13), + tige: tigecycline (J01AA12), + tobr: tobramycin (J01GB01), + trim: trimethoprim (J01EA01), + trsu: sulfamethoxazole and trimethoprim (J01EE01), + vanc: vancomycin (J01XA01).

    Read more on our website!

    diff --git a/docs/reference/first_isolate.html b/docs/reference/first_isolate.html index 503cd2cc..64174a59 100644 --- a/docs/reference/first_isolate.html +++ b/docs/reference/first_isolate.html @@ -361,11 +361,11 @@ On our website https://msberends.gitla library(dplyr) # Filter on first isolates:septic_patients%>% - mutate(first_isolate=first_isolate(., + mutate(first_isolate=first_isolate(., col_date="date", col_patient_id="patient_id", col_mo="mo")) %>% - filter(first_isolate==TRUE) + filter(first_isolate==TRUE) # Which can be shortened to:septic_patients%>% @@ -376,14 +376,14 @@ On our website https://msberends.gitla # Now let's see if first isolates matter: A <- septic_patients %>% - group_by(hospital_id) %>% - summarise(count=n_rsi(gent), # gentamicin availability + group_by(hospital_id) %>% + summarise(count=n_rsi(gent), # gentamicin availabilityresistance=portion_IR(gent)) # gentamicin resistanceB<-septic_patients%>%filter_first_weighted_isolate() %>%# the 1st isolate filter - group_by(hospital_id) %>% - summarise(count=n_rsi(gent), # gentamicin availability + group_by(hospital_id) %>% + summarise(count=n_rsi(gent), # gentamicin availabilityresistance=portion_IR(gent)) # gentamicin resistance# Have a look at A and B. diff --git a/docs/reference/freq.html b/docs/reference/freq.html index ef11ba9f..cec7b99f 100644 --- a/docs/reference/freq.html +++ b/docs/reference/freq.html @@ -354,7 +354,7 @@ top_freq can be used to get the top/bottom n items of a frequency table, with co

  • Median, using median, with percentage since oldest

    • In factors, all factor levels that are not existing in the input data will be dropped.

    -

    The function top_freq uses top_n internally and will include more than n rows if there are ties.

    +

    The function top_freq uses top_n internally and will include more than n rows if there are ties.

    Read more on our website!

    @@ -378,34 +378,34 @@ On our website https://msberends.gitla # you could also use `select` or `pull` to get your variables septic_patients %>% - filter(hospital_id=="A") %>% - select(mo) %>% + filter(hospital_id=="A") %>% + select(mo) %>%freq() # multiple selected variables will be pasted togetherseptic_patients%>%left_join_microorganisms%>% - filter(hospital_id=="A") %>% + filter(hospital_id=="A") %>%freq(genus, species) # group a variable and analyse anotherseptic_patients%>% - group_by(hospital_id) %>% + group_by(hospital_id) %>%freq(gender) # get top 10 bugs of hospital A as a vectorseptic_patients%>% - filter(hospital_id=="A") %>% + filter(hospital_id=="A") %>%freq(mo) %>%top_freq(10) # save frequency table to an objectyears<-septic_patients%>% - mutate(year=format(date, "%Y")) %>% + mutate(year=format(date, "%Y")) %>%freq(year) @@ -456,11 +456,11 @@ On our website https://msberends.gitla # only get selected columns septic_patients %>% freq(hospital_id) %>% - select(item, percent) + select(item, percent) septic_patients%>%freq(hospital_id) %>% - select(-count, -cum_count) + select(-count, -cum_count) # check differences between frequency tables diff --git a/docs/reference/ggplot_rsi.html b/docs/reference/ggplot_rsi.html index 217298c8..3c78957e 100644 --- a/docs/reference/ggplot_rsi.html +++ b/docs/reference/ggplot_rsi.html @@ -327,7 +327,7 @@ On our website https://msberends.gitla library(ggplot2) # get antimicrobial results for drugs against a UTI: -ggplot(septic_patients%>%select(amox, nitr, fosf, trim, cipr)) + +ggplot(septic_patients%>%select(amox, nitr, fosf, trim, cipr)) + geom_rsi() # prettify the plot using some additional functions: @@ -341,17 +341,17 @@ On our website https://msberends.gitla # or better yet, simplify this using the wrapper function - a single command: septic_patients %>% - select(amox, nitr, fosf, trim, cipr) %>% + select(amox, nitr, fosf, trim, cipr) %>%ggplot_rsi() # get only portions and no counts:septic_patients%>% - select(amox, nitr, fosf, trim, cipr) %>% + select(amox, nitr, fosf, trim, cipr) %>%ggplot_rsi(fun=portion_df) # add other ggplot2 parameters as you like:septic_patients%>% - select(amox, nitr, fosf, trim, cipr) %>% + select(amox, nitr, fosf, trim, cipr) %>%ggplot_rsi(width=0.5, colour="black", size=1, @@ -360,25 +360,25 @@ On our website https://msberends.gitla # resistance of ciprofloxacine per age group septic_patients %>% - mutate(first_isolate=first_isolate(.)) %>% - filter(first_isolate==TRUE, + mutate(first_isolate=first_isolate(.)) %>% + filter(first_isolate==TRUE, mo==as.mo("E. coli")) %>%# `age_group` is also a function of this package: - group_by(age_group=age_groups(age)) %>% - select(age_group, + group_by(age_group=age_groups(age)) %>% + select(age_group, cipr) %>%ggplot_rsi(x="age_group") # }# NOT RUN {# for colourblind mode, use divergent colours from the viridis package:septic_patients%>% - select(amox, nitr, fosf, trim, cipr) %>% + select(amox, nitr, fosf, trim, cipr) %>%ggplot_rsi() + scale_fill_viridis_d() # it also supports groups (don't forget to use the group var on `x` or `facet`):septic_patients%>% - select(hospital_id, amox, nitr, fosf, trim, cipr) %>% - group_by(hospital_id) %>% + select(hospital_id, amox, nitr, fosf, trim, cipr) %>% + group_by(hospital_id) %>%ggplot_rsi(x=hospital_id, facet=Antibiotic, nrow=1) + @@ -388,22 +388,22 @@ On our website https://msberends.gitla # genuine analysis: check 2 most prevalent microorganisms septic_patients %>% # create new bacterial ID's, with all CoNS under the same group (Becker et al.) - mutate(mo=as.mo(mo, Becker=TRUE)) %>% + mutate(mo=as.mo(mo, Becker=TRUE)) %>%# filter on top three bacterial ID's - filter(mo%in%top_freq(freq(.$mo), 3)) %>% + filter(mo%in%top_freq(freq(.$mo), 3)) %>%# determine first isolates - mutate(first_isolate=first_isolate(., + mutate(first_isolate=first_isolate(., col_date="date", col_patient_id="patient_id", col_mo="mo")) %>%# filter on first isolates - filter(first_isolate==TRUE) %>% + filter(first_isolate==TRUE) %>%# get short MO names (like "E. coli") - mutate(mo=mo_shortname(mo, Becker=TRUE)) %>% + mutate(mo=mo_shortname(mo, Becker=TRUE)) %>%# select this short name and some antiseptic drugs - select(mo, cfur, gent, cipr) %>% + select(mo, cfur, gent, cipr) %>%# group by MO - group_by(mo) %>% + group_by(mo) %>%# plot the thing, putting MOs on the facetggplot_rsi(x=Antibiotic, facet=mo, diff --git a/docs/reference/index.html b/docs/reference/index.html index 750abadb..c298ed40 100644 --- a/docs/reference/index.html +++ b/docs/reference/index.html @@ -221,7 +221,7 @@ @@ -234,7 +234,7 @@ @@ -513,7 +513,7 @@ - +
    -

    Backround information

    +

    Background information

    Some pages about our package and its external sources.
    -

    itis

    +

    ITIS

    ITIS: Integrated Taxonomic Information System
    ...

    other parameters to pass on to dplyr::join.

    other parameters to pass on to dplyr::join.

    Details

    -

    Note: As opposed to the join functions of dplyr, characters vectors are supported and at default existing columns will get a suffix "2" and the newly joined columns will not get a suffix. See join for more information.

    +

    Note: As opposed to the join functions of dplyr, characters vectors are supported and at default existing columns will get a suffix "2" and the newly joined columns will not get a suffix. See join for more information.

    Read more on our website!

    diff --git a/docs/reference/like.html b/docs/reference/like.html index 9037d65d..1f77b2de 100644 --- a/docs/reference/like.html +++ b/docs/reference/like.html @@ -288,7 +288,7 @@ On our website https://msberends.gitla library(dplyr) septic_patients %>% left_join_microorganisms() %>% - filter(genus %like% '^ent') %>% + filter(genus %like% '^ent') %>% freq(genus, species) # }
    diff --git a/docs/reference/mdro.html b/docs/reference/mdro.html index 7506fcce..fbc8c601 100644 --- a/docs/reference/mdro.html +++ b/docs/reference/mdro.html @@ -526,68 +526,68 @@

    To define antibiotics column names, leave as it is to determine it automatically with guess_ab or input a text (case-insensitive) or use NULL to skip a column (e.g. tica = NULL). Non-existing columns will anyway be skipped with a warning.

    Abbrevations of the column containing antibiotics in the form: abbreviation: generic name (ATC code)

    -

    amcl: amoxicillin+clavulanic acid (J01CR02), - amik: amikacin (J01GB06), - amox: amoxicillin (J01CA04), - ampi: ampicillin (J01CA01), - azit: azithromycin (J01FA10), - azlo: azlocillin (J01CA09), - aztr: aztreonam (J01DF01), - cefa: cefaloridine (J01DB02), - cfep: cefepime (J01DE01), - cfot: cefotaxime (J01DD01), - cfox: cefoxitin (J01DC01), - cfra: cefradine (J01DB09), - cfta: ceftazidime (J01DD02), - cftr: ceftriaxone (J01DD04), - cfur: cefuroxime (J01DC02), - chlo: chloramphenicol (J01BA01), - cipr: ciprofloxacin (J01MA02), - clar: clarithromycin (J01FA09), - clin: clindamycin (J01FF01), - clox: flucloxacillin (J01CF05), - coli: colistin (J01XB01), - czol: cefazolin (J01DB04), - dapt: daptomycin (J01XX09), - doxy: doxycycline (J01AA02), - erta: ertapenem (J01DH03), - eryt: erythromycin (J01FA01), - fosf: fosfomycin (J01XX01), - fusi: fusidic acid (J01XC01), - gent: gentamicin (J01GB03), - imip: imipenem (J01DH51), - kana: kanamycin (J01GB04), - levo: levofloxacin (J01MA12), - linc: lincomycin (J01FF02), - line: linezolid (J01XX08), - mero: meropenem (J01DH02), - mezl: mezlocillin (J01CA10), - mino: minocycline (J01AA08), - moxi: moxifloxacin (J01MA14), - nali: nalidixic acid (J01MB02), - neom: neomycin (J01GB05), - neti: netilmicin (J01GB07), - nitr: nitrofurantoin (J01XE01), - norf: norfloxacin (J01MA06), - novo: novobiocin (an ATCvet code: QJ01XX95), - oflo: ofloxacin (J01MA01), - peni: penicillin (J01RA01), - pipe: piperacillin (J01CA12), - pita: piperacillin+tazobactam (J01CR05), - poly: polymyxin B (J01XB02), - pris: pristinamycin (J01FG01), - qida: quinupristin/dalfopristin (J01FG02), - rifa: rifampicin (J04AB02), - roxi: roxithromycin (J01FA06), - siso: sisomicin (J01GB08), - teic: teicoplanin (J01XA02), - tetr: tetracycline (J01AA07), - tica: ticarcillin (J01CA13), - tige: tigecycline (J01AA12), - tobr: tobramycin (J01GB01), - trim: trimethoprim (J01EA01), - trsu: sulfamethoxazole and trimethoprim (J01EE01), - vanc: vancomycin (J01XA01).

    +

    amcl: amoxicillin+clavulanic acid (J01CR02), + amik: amikacin (J01GB06), + amox: amoxicillin (J01CA04), + ampi: ampicillin (J01CA01), + azit: azithromycin (J01FA10), + azlo: azlocillin (J01CA09), + aztr: aztreonam (J01DF01), + cefa: cefaloridine (J01DB02), + cfep: cefepime (J01DE01), + cfot: cefotaxime (J01DD01), + cfox: cefoxitin (J01DC01), + cfra: cefradine (J01DB09), + cfta: ceftazidime (J01DD02), + cftr: ceftriaxone (J01DD04), + cfur: cefuroxime (J01DC02), + chlo: chloramphenicol (J01BA01), + cipr: ciprofloxacin (J01MA02), + clar: clarithromycin (J01FA09), + clin: clindamycin (J01FF01), + clox: flucloxacillin (J01CF05), + coli: colistin (J01XB01), + czol: cefazolin (J01DB04), + dapt: daptomycin (J01XX09), + doxy: doxycycline (J01AA02), + erta: ertapenem (J01DH03), + eryt: erythromycin (J01FA01), + fosf: fosfomycin (J01XX01), + fusi: fusidic acid (J01XC01), + gent: gentamicin (J01GB03), + imip: imipenem (J01DH51), + kana: kanamycin (J01GB04), + levo: levofloxacin (J01MA12), + linc: lincomycin (J01FF02), + line: linezolid (J01XX08), + mero: meropenem (J01DH02), + mezl: mezlocillin (J01CA10), + mino: minocycline (J01AA08), + moxi: moxifloxacin (J01MA14), + nali: nalidixic acid (J01MB02), + neom: neomycin (J01GB05), + neti: netilmicin (J01GB07), + nitr: nitrofurantoin (J01XE01), + norf: norfloxacin (J01MA06), + novo: novobiocin (an ATCvet code: QJ01XX95), + oflo: ofloxacin (J01MA01), + peni: (benzyl)penicillin (J01CE01), + pipe: piperacillin (J01CA12), + pita: piperacillin+tazobactam (J01CR05), + poly: polymyxin B (J01XB02), + pris: pristinamycin (J01FG01), + qida: quinupristin/dalfopristin (J01FG02), + rifa: rifampicin (J04AB02), + roxi: roxithromycin (J01FA06), + siso: sisomicin (J01GB08), + teic: teicoplanin (J01XA02), + tetr: tetracycline (J01AA07), + tica: ticarcillin (J01CA13), + tige: tigecycline (J01AA12), + tobr: tobramycin (J01GB01), + trim: trimethoprim (J01EA01), + trsu: sulfamethoxazole and trimethoprim (J01EE01), + vanc: vancomycin (J01XA01).

    Read more on our website!

    diff --git a/docs/reference/microorganisms.certe.html b/docs/reference/microorganisms.certe.html index 9962f58c..ef184a02 100644 --- a/docs/reference/microorganisms.certe.html +++ b/docs/reference/microorganisms.certe.html @@ -216,7 +216,7 @@
    -

    A data set containing all bacteria codes of Certe MMB. These codes can be joined to data with an ID from microorganisms$mo (using left_join_microorganisms). GLIMS codes can also be translated to valid MOs with guess_mo.

    +

    A data set containing all bacteria codes of Certe MMB. These codes can be joined to data with an ID from microorganisms$mo (using left_join_microorganisms). GLIMS codes can also be translated to valid MOs with guess_mo.

    diff --git a/docs/reference/microorganisms.umcg.html b/docs/reference/microorganisms.umcg.html index b0c49dd4..ba61c085 100644 --- a/docs/reference/microorganisms.umcg.html +++ b/docs/reference/microorganisms.umcg.html @@ -216,7 +216,7 @@
    -

    A data set containing all bacteria codes of UMCG MMB. These codes can be joined to data with an ID from microorganisms$mo (using left_join_microorganisms). GLIMS codes can also be translated to valid MOs with guess_mo.

    +

    A data set containing all bacteria codes of UMCG MMB. These codes can be joined to data with an ID from microorganisms$mo (using left_join_microorganisms). GLIMS codes can also be translated to valid MOs with guess_mo.

    diff --git a/docs/reference/portion.html b/docs/reference/portion.html index f86ad334..44896e60 100644 --- a/docs/reference/portion.html +++ b/docs/reference/portion.html @@ -217,7 +217,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 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.

    @@ -333,17 +333,17 @@ On our website https://msberends.gitla septic_patients %>% portion_SI(amox) septic_patients %>% - group_by(hospital_id) %>% - summarise(p = portion_S(cipr), + group_by(hospital_id) %>% + summarise(p = portion_S(cipr), n = n_rsi(cipr)) # n_rsi works like n_distinct in dplyr septic_patients %>% - group_by(hospital_id) %>% - summarise(R = portion_R(cipr, as_percent = TRUE), + group_by(hospital_id) %>% + summarise(R = portion_R(cipr, as_percent = TRUE), I = portion_I(cipr, as_percent = TRUE), S = portion_S(cipr, as_percent = TRUE), n = n_rsi(cipr), # works like n_distinct in dplyr - total = n()) # NOT the amount of tested isolates! + total = n()) # NOT the amount of tested isolates! # Calculate co-resistance between amoxicillin/clav acid and gentamicin, # so we can see that combination therapy does a lot more than mono therapy: @@ -358,8 +358,8 @@ On our website https://msberends.gitla septic_patients %>% - group_by(hospital_id) %>% - summarise(cipro_p = portion_S(cipr, as_percent = TRUE), + group_by(hospital_id) %>% + summarise(cipro_p = portion_S(cipr, as_percent = TRUE), cipro_n = count_all(cipr), genta_p = portion_S(gent, as_percent = TRUE), genta_n = count_all(gent), @@ -368,22 +368,22 @@ On our website https://msberends.gitla # Get portions S/I/R immediately of all rsi columns septic_patients %>% - select(amox, cipr) %>% + select(amox, cipr) %>% portion_df(translate = FALSE) # It also supports grouping variables septic_patients %>% - select(hospital_id, amox, cipr) %>% - group_by(hospital_id) %>% + select(hospital_id, amox, cipr) %>% + group_by(hospital_id) %>% portion_df(translate = FALSE) # }# NOT RUN { # calculate current empiric combination therapy of Helicobacter gastritis: my_table %>% - filter(first_isolate == TRUE, + filter(first_isolate == TRUE, genus == "Helicobacter") %>% - summarise(p = portion_S(amox, metr), # amoxicillin with metronidazole + summarise(p = portion_S(amox, metr), # amoxicillin with metronidazole n = count_all(amox, metr)) # } diff --git a/docs/reference/resistance_predict.html b/docs/reference/resistance_predict.html index 57407280..2d789bbe 100644 --- a/docs/reference/resistance_predict.html +++ b/docs/reference/resistance_predict.html @@ -311,7 +311,7 @@ On our website https://msberends.gitla # or use dplyr so you can actually read it: library(dplyr) tbl %>% - filter(first_isolate == TRUE, + filter(first_isolate == TRUE, genus == "Haemophilus") %>% resistance_predict(amcl, date) # }# NOT RUN { @@ -322,9 +322,9 @@ On our website https://msberends.gitla # get bacteria properties like genus and species left_join_microorganisms("mo") %>% # calculate first isolates - mutate(first_isolate = first_isolate(.)) %>% + mutate(first_isolate = first_isolate(.)) %>% # filter on first E. coli isolates - filter(genus == "Escherichia", + filter(genus == "Escherichia", species == "coli", first_isolate == TRUE) %>% # predict resistance of cefotaxime for next years @@ -338,7 +338,7 @@ On our website https://msberends.gitla if (!require(ggplot2)) { data <- septic_patients %>% - filter(mo == as.mo("E. coli")) %>% + filter(mo == as.mo("E. coli")) %>% resistance_predict(col_ab = "amox", col_date = "date", info = FALSE, diff --git a/docs/sitemap.xml b/docs/sitemap.xml index 6aec9f24..430b986c 100644 --- a/docs/sitemap.xml +++ b/docs/sitemap.xml @@ -9,6 +9,9 @@ https://msberends.gitlab.io/AMR/reference/AMR.html + + https://msberends.gitlab.io/AMR/reference/ITIS.html + https://msberends.gitlab.io/AMR/reference/ab_property.html @@ -63,9 +66,6 @@ https://msberends.gitlab.io/AMR/reference/guess_ab.html - - https://msberends.gitlab.io/AMR/reference/itis.html - https://msberends.gitlab.io/AMR/reference/join.html diff --git a/man/itis.Rd b/man/ITIS.Rd similarity index 96% rename from man/itis.Rd rename to man/ITIS.Rd index 15aa9e06..2b859cba 100644 --- a/man/itis.Rd +++ b/man/ITIS.Rd @@ -1,7 +1,7 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/itis.R -\name{itis} -\alias{itis} +\name{ITIS} +\alias{ITIS} \title{ITIS: Integrated Taxonomic Information System} \description{ All taxonomic names of all microorganisms are included in this package, using the authoritative Integrated Taxonomic Information System (ITIS). @@ -25,7 +25,7 @@ On our website \url{https://msberends.gitlab.io/AMR} you can find \href{https:// \examples{ # Get a note when a species was renamed mo_shortname("Chlamydia psittaci") -# Note: 'Chlamydia psittaci' (Page, 1968) was renamed +# Note: 'Chlamydia psittaci' (Page, 1968) was renamed # 'Chlamydophila psittaci' (Everett et al., 1999) # [1] "C. psittaci" diff --git a/man/eucast_rules.Rd b/man/eucast_rules.Rd index 33d13699..7e1e319f 100644 --- a/man/eucast_rules.Rd +++ b/man/eucast_rules.Rd @@ -17,8 +17,8 @@ \url{http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Expert_Rules/Expert_rules_intrinsic_exceptional_V3.1.pdf} } \item{ - EUCAST Breakpoint tables for interpretation of MICs and zone diameters. Version 8.1, 2018. \cr - \url{http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Breakpoint_tables/v_8.1_Breakpoint_Tables.xlsx} + EUCAST Breakpoint tables for interpretation of MICs and zone diameters. Version 9.0, 2019. \cr + \url{http://www.eucast.org/fileadmin/src/media/PDFs/EUCAST_files/Breakpoint_tables/v_9.0_Breakpoint_Tables.xlsx} } } } @@ -78,68 +78,68 @@ To define antibiotics column names, leave as it is to determine it automatically Abbrevations of the column containing antibiotics in the form: \strong{abbreviation}: generic name (\emph{ATC code}) - \strong{amcl}: amoxicillin+clavulanic acid (\emph{J01CR02}), - \strong{amik}: amikacin (\emph{J01GB06}), - \strong{amox}: amoxicillin (\emph{J01CA04}), - \strong{ampi}: ampicillin (\emph{J01CA01}), - \strong{azit}: azithromycin (\emph{J01FA10}), - \strong{azlo}: azlocillin (\emph{J01CA09}), - \strong{aztr}: aztreonam (\emph{J01DF01}), - \strong{cefa}: cefaloridine (\emph{J01DB02}), - \strong{cfep}: cefepime (\emph{J01DE01}), - \strong{cfot}: cefotaxime (\emph{J01DD01}), - \strong{cfox}: cefoxitin (\emph{J01DC01}), - \strong{cfra}: cefradine (\emph{J01DB09}), - \strong{cfta}: ceftazidime (\emph{J01DD02}), - \strong{cftr}: ceftriaxone (\emph{J01DD04}), - \strong{cfur}: cefuroxime (\emph{J01DC02}), - \strong{chlo}: chloramphenicol (\emph{J01BA01}), - \strong{cipr}: ciprofloxacin (\emph{J01MA02}), - \strong{clar}: clarithromycin (\emph{J01FA09}), - \strong{clin}: clindamycin (\emph{J01FF01}), - \strong{clox}: flucloxacillin (\emph{J01CF05}), - \strong{coli}: colistin (\emph{J01XB01}), - \strong{czol}: cefazolin (\emph{J01DB04}), - \strong{dapt}: daptomycin (\emph{J01XX09}), - \strong{doxy}: doxycycline (\emph{J01AA02}), - \strong{erta}: ertapenem (\emph{J01DH03}), - \strong{eryt}: erythromycin (\emph{J01FA01}), - \strong{fosf}: fosfomycin (\emph{J01XX01}), - \strong{fusi}: fusidic acid (\emph{J01XC01}), - \strong{gent}: gentamicin (\emph{J01GB03}), - \strong{imip}: imipenem (\emph{J01DH51}), - \strong{kana}: kanamycin (\emph{J01GB04}), - \strong{levo}: levofloxacin (\emph{J01MA12}), - \strong{linc}: lincomycin (\emph{J01FF02}), - \strong{line}: linezolid (\emph{J01XX08}), - \strong{mero}: meropenem (\emph{J01DH02}), - \strong{mezl}: mezlocillin (\emph{J01CA10}), - \strong{mino}: minocycline (\emph{J01AA08}), - \strong{moxi}: moxifloxacin (\emph{J01MA14}), - \strong{nali}: nalidixic acid (\emph{J01MB02}), - \strong{neom}: neomycin (\emph{J01GB05}), - \strong{neti}: netilmicin (\emph{J01GB07}), - \strong{nitr}: nitrofurantoin (\emph{J01XE01}), - \strong{norf}: norfloxacin (\emph{J01MA06}), - \strong{novo}: novobiocin (an ATCvet code: \emph{QJ01XX95}), - \strong{oflo}: ofloxacin (\emph{J01MA01}), - \strong{peni}: penicillin (\emph{J01RA01}), - \strong{pipe}: piperacillin (\emph{J01CA12}), - \strong{pita}: piperacillin+tazobactam (\emph{J01CR05}), - \strong{poly}: polymyxin B (\emph{J01XB02}), - \strong{pris}: pristinamycin (\emph{J01FG01}), - \strong{qida}: quinupristin/dalfopristin (\emph{J01FG02}), - \strong{rifa}: rifampicin (\emph{J04AB02}), - \strong{roxi}: roxithromycin (\emph{J01FA06}), - \strong{siso}: sisomicin (\emph{J01GB08}), - \strong{teic}: teicoplanin (\emph{J01XA02}), - \strong{tetr}: tetracycline (\emph{J01AA07}), - \strong{tica}: ticarcillin (\emph{J01CA13}), - \strong{tige}: tigecycline (\emph{J01AA12}), - \strong{tobr}: tobramycin (\emph{J01GB01}), - \strong{trim}: trimethoprim (\emph{J01EA01}), - \strong{trsu}: sulfamethoxazole and trimethoprim (\emph{J01EE01}), - \strong{vanc}: vancomycin (\emph{J01XA01}). + \strong{amcl}: amoxicillin+clavulanic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01CR02}{J01CR02}), + \strong{amik}: amikacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB06}{J01GB06}), + \strong{amox}: amoxicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA04}{J01CA04}), + \strong{ampi}: ampicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA01}{J01CA01}), + \strong{azit}: azithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA10}{J01FA10}), + \strong{azlo}: azlocillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA09}{J01CA09}), + \strong{aztr}: aztreonam (\href{https://www.whocc.no/atc_ddd_index/?code=J01DF01}{J01DF01}), + \strong{cefa}: cefaloridine (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB02}{J01DB02}), + \strong{cfep}: cefepime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DE01}{J01DE01}), + \strong{cfot}: cefotaxime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD01}{J01DD01}), + \strong{cfox}: cefoxitin (\href{https://www.whocc.no/atc_ddd_index/?code=J01DC01}{J01DC01}), + \strong{cfra}: cefradine (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB09}{J01DB09}), + \strong{cfta}: ceftazidime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD02}{J01DD02}), + \strong{cftr}: ceftriaxone (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD04}{J01DD04}), + \strong{cfur}: cefuroxime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DC02}{J01DC02}), + \strong{chlo}: chloramphenicol (\href{https://www.whocc.no/atc_ddd_index/?code=J01BA01}{J01BA01}), + \strong{cipr}: ciprofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA02}{J01MA02}), + \strong{clar}: clarithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA09}{J01FA09}), + \strong{clin}: clindamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FF01}{J01FF01}), + \strong{clox}: flucloxacillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CF05}{J01CF05}), + \strong{coli}: colistin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XB01}{J01XB01}), + \strong{czol}: cefazolin (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB04}{J01DB04}), + \strong{dapt}: daptomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX09}{J01XX09}), + \strong{doxy}: doxycycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA02}{J01AA02}), + \strong{erta}: ertapenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH03}{J01DH03}), + \strong{eryt}: erythromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA01}{J01FA01}), + \strong{fosf}: fosfomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX01}{J01XX01}), + \strong{fusi}: fusidic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01XC01}{J01XC01}), + \strong{gent}: gentamicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB03}{J01GB03}), + \strong{imip}: imipenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH51}{J01DH51}), + \strong{kana}: kanamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB04}{J01GB04}), + \strong{levo}: levofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA12}{J01MA12}), + \strong{linc}: lincomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FF02}{J01FF02}), + \strong{line}: linezolid (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX08}{J01XX08}), + \strong{mero}: meropenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH02}{J01DH02}), + \strong{mezl}: mezlocillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA10}{J01CA10}), + \strong{mino}: minocycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA08}{J01AA08}), + \strong{moxi}: moxifloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA14}{J01MA14}), + \strong{nali}: nalidixic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01MB02}{J01MB02}), + \strong{neom}: neomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB05}{J01GB05}), + \strong{neti}: netilmicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB07}{J01GB07}), + \strong{nitr}: nitrofurantoin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XE01}{J01XE01}), + \strong{norf}: norfloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA06}{J01MA06}), + \strong{novo}: novobiocin (an ATCvet code: \href{https://www.whocc.no/atc_ddd_index/?code=QJ01XX95}{QJ01XX95}), + \strong{oflo}: ofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA01}{J01MA01}), + \strong{peni}: (benzyl)penicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CE01}{J01CE01}), + \strong{pipe}: piperacillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA12}{J01CA12}), + \strong{pita}: piperacillin+tazobactam (\href{https://www.whocc.no/atc_ddd_index/?code=J01CR05}{J01CR05}), + \strong{poly}: polymyxin B (\href{https://www.whocc.no/atc_ddd_index/?code=J01XB02}{J01XB02}), + \strong{pris}: pristinamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FG01}{J01FG01}), + \strong{qida}: quinupristin/dalfopristin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FG02}{J01FG02}), + \strong{rifa}: rifampicin (\href{https://www.whocc.no/atc_ddd_index/?code=J04AB02}{J04AB02}), + \strong{roxi}: roxithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA06}{J01FA06}), + \strong{siso}: sisomicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB08}{J01GB08}), + \strong{teic}: teicoplanin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XA02}{J01XA02}), + \strong{tetr}: tetracycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA07}{J01AA07}), + \strong{tica}: ticarcillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA13}{J01CA13}), + \strong{tige}: tigecycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA12}{J01AA12}), + \strong{tobr}: tobramycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB01}{J01GB01}), + \strong{trim}: trimethoprim (\href{https://www.whocc.no/atc_ddd_index/?code=J01EA01}{J01EA01}), + \strong{trsu}: sulfamethoxazole and trimethoprim (\href{https://www.whocc.no/atc_ddd_index/?code=J01EE01}{J01EE01}), + \strong{vanc}: vancomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XA01}{J01XA01}). } \section{Read more on our website!}{ diff --git a/man/mdro.Rd b/man/mdro.Rd index a0915e83..04efb7d4 100644 --- a/man/mdro.Rd +++ b/man/mdro.Rd @@ -181,68 +181,68 @@ To define antibiotics column names, leave as it is to determine it automatically Abbrevations of the column containing antibiotics in the form: \strong{abbreviation}: generic name (\emph{ATC code}) - \strong{amcl}: amoxicillin+clavulanic acid (\emph{J01CR02}), - \strong{amik}: amikacin (\emph{J01GB06}), - \strong{amox}: amoxicillin (\emph{J01CA04}), - \strong{ampi}: ampicillin (\emph{J01CA01}), - \strong{azit}: azithromycin (\emph{J01FA10}), - \strong{azlo}: azlocillin (\emph{J01CA09}), - \strong{aztr}: aztreonam (\emph{J01DF01}), - \strong{cefa}: cefaloridine (\emph{J01DB02}), - \strong{cfep}: cefepime (\emph{J01DE01}), - \strong{cfot}: cefotaxime (\emph{J01DD01}), - \strong{cfox}: cefoxitin (\emph{J01DC01}), - \strong{cfra}: cefradine (\emph{J01DB09}), - \strong{cfta}: ceftazidime (\emph{J01DD02}), - \strong{cftr}: ceftriaxone (\emph{J01DD04}), - \strong{cfur}: cefuroxime (\emph{J01DC02}), - \strong{chlo}: chloramphenicol (\emph{J01BA01}), - \strong{cipr}: ciprofloxacin (\emph{J01MA02}), - \strong{clar}: clarithromycin (\emph{J01FA09}), - \strong{clin}: clindamycin (\emph{J01FF01}), - \strong{clox}: flucloxacillin (\emph{J01CF05}), - \strong{coli}: colistin (\emph{J01XB01}), - \strong{czol}: cefazolin (\emph{J01DB04}), - \strong{dapt}: daptomycin (\emph{J01XX09}), - \strong{doxy}: doxycycline (\emph{J01AA02}), - \strong{erta}: ertapenem (\emph{J01DH03}), - \strong{eryt}: erythromycin (\emph{J01FA01}), - \strong{fosf}: fosfomycin (\emph{J01XX01}), - \strong{fusi}: fusidic acid (\emph{J01XC01}), - \strong{gent}: gentamicin (\emph{J01GB03}), - \strong{imip}: imipenem (\emph{J01DH51}), - \strong{kana}: kanamycin (\emph{J01GB04}), - \strong{levo}: levofloxacin (\emph{J01MA12}), - \strong{linc}: lincomycin (\emph{J01FF02}), - \strong{line}: linezolid (\emph{J01XX08}), - \strong{mero}: meropenem (\emph{J01DH02}), - \strong{mezl}: mezlocillin (\emph{J01CA10}), - \strong{mino}: minocycline (\emph{J01AA08}), - \strong{moxi}: moxifloxacin (\emph{J01MA14}), - \strong{nali}: nalidixic acid (\emph{J01MB02}), - \strong{neom}: neomycin (\emph{J01GB05}), - \strong{neti}: netilmicin (\emph{J01GB07}), - \strong{nitr}: nitrofurantoin (\emph{J01XE01}), - \strong{norf}: norfloxacin (\emph{J01MA06}), - \strong{novo}: novobiocin (an ATCvet code: \emph{QJ01XX95}), - \strong{oflo}: ofloxacin (\emph{J01MA01}), - \strong{peni}: penicillin (\emph{J01RA01}), - \strong{pipe}: piperacillin (\emph{J01CA12}), - \strong{pita}: piperacillin+tazobactam (\emph{J01CR05}), - \strong{poly}: polymyxin B (\emph{J01XB02}), - \strong{pris}: pristinamycin (\emph{J01FG01}), - \strong{qida}: quinupristin/dalfopristin (\emph{J01FG02}), - \strong{rifa}: rifampicin (\emph{J04AB02}), - \strong{roxi}: roxithromycin (\emph{J01FA06}), - \strong{siso}: sisomicin (\emph{J01GB08}), - \strong{teic}: teicoplanin (\emph{J01XA02}), - \strong{tetr}: tetracycline (\emph{J01AA07}), - \strong{tica}: ticarcillin (\emph{J01CA13}), - \strong{tige}: tigecycline (\emph{J01AA12}), - \strong{tobr}: tobramycin (\emph{J01GB01}), - \strong{trim}: trimethoprim (\emph{J01EA01}), - \strong{trsu}: sulfamethoxazole and trimethoprim (\emph{J01EE01}), - \strong{vanc}: vancomycin (\emph{J01XA01}). + \strong{amcl}: amoxicillin+clavulanic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01CR02}{J01CR02}), + \strong{amik}: amikacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB06}{J01GB06}), + \strong{amox}: amoxicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA04}{J01CA04}), + \strong{ampi}: ampicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA01}{J01CA01}), + \strong{azit}: azithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA10}{J01FA10}), + \strong{azlo}: azlocillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA09}{J01CA09}), + \strong{aztr}: aztreonam (\href{https://www.whocc.no/atc_ddd_index/?code=J01DF01}{J01DF01}), + \strong{cefa}: cefaloridine (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB02}{J01DB02}), + \strong{cfep}: cefepime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DE01}{J01DE01}), + \strong{cfot}: cefotaxime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD01}{J01DD01}), + \strong{cfox}: cefoxitin (\href{https://www.whocc.no/atc_ddd_index/?code=J01DC01}{J01DC01}), + \strong{cfra}: cefradine (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB09}{J01DB09}), + \strong{cfta}: ceftazidime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD02}{J01DD02}), + \strong{cftr}: ceftriaxone (\href{https://www.whocc.no/atc_ddd_index/?code=J01DD04}{J01DD04}), + \strong{cfur}: cefuroxime (\href{https://www.whocc.no/atc_ddd_index/?code=J01DC02}{J01DC02}), + \strong{chlo}: chloramphenicol (\href{https://www.whocc.no/atc_ddd_index/?code=J01BA01}{J01BA01}), + \strong{cipr}: ciprofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA02}{J01MA02}), + \strong{clar}: clarithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA09}{J01FA09}), + \strong{clin}: clindamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FF01}{J01FF01}), + \strong{clox}: flucloxacillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CF05}{J01CF05}), + \strong{coli}: colistin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XB01}{J01XB01}), + \strong{czol}: cefazolin (\href{https://www.whocc.no/atc_ddd_index/?code=J01DB04}{J01DB04}), + \strong{dapt}: daptomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX09}{J01XX09}), + \strong{doxy}: doxycycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA02}{J01AA02}), + \strong{erta}: ertapenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH03}{J01DH03}), + \strong{eryt}: erythromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA01}{J01FA01}), + \strong{fosf}: fosfomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX01}{J01XX01}), + \strong{fusi}: fusidic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01XC01}{J01XC01}), + \strong{gent}: gentamicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB03}{J01GB03}), + \strong{imip}: imipenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH51}{J01DH51}), + \strong{kana}: kanamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB04}{J01GB04}), + \strong{levo}: levofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA12}{J01MA12}), + \strong{linc}: lincomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FF02}{J01FF02}), + \strong{line}: linezolid (\href{https://www.whocc.no/atc_ddd_index/?code=J01XX08}{J01XX08}), + \strong{mero}: meropenem (\href{https://www.whocc.no/atc_ddd_index/?code=J01DH02}{J01DH02}), + \strong{mezl}: mezlocillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA10}{J01CA10}), + \strong{mino}: minocycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA08}{J01AA08}), + \strong{moxi}: moxifloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA14}{J01MA14}), + \strong{nali}: nalidixic acid (\href{https://www.whocc.no/atc_ddd_index/?code=J01MB02}{J01MB02}), + \strong{neom}: neomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB05}{J01GB05}), + \strong{neti}: netilmicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB07}{J01GB07}), + \strong{nitr}: nitrofurantoin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XE01}{J01XE01}), + \strong{norf}: norfloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA06}{J01MA06}), + \strong{novo}: novobiocin (an ATCvet code: \href{https://www.whocc.no/atc_ddd_index/?code=QJ01XX95}{QJ01XX95}), + \strong{oflo}: ofloxacin (\href{https://www.whocc.no/atc_ddd_index/?code=J01MA01}{J01MA01}), + \strong{peni}: (benzyl)penicillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CE01}{J01CE01}), + \strong{pipe}: piperacillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA12}{J01CA12}), + \strong{pita}: piperacillin+tazobactam (\href{https://www.whocc.no/atc_ddd_index/?code=J01CR05}{J01CR05}), + \strong{poly}: polymyxin B (\href{https://www.whocc.no/atc_ddd_index/?code=J01XB02}{J01XB02}), + \strong{pris}: pristinamycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FG01}{J01FG01}), + \strong{qida}: quinupristin/dalfopristin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FG02}{J01FG02}), + \strong{rifa}: rifampicin (\href{https://www.whocc.no/atc_ddd_index/?code=J04AB02}{J04AB02}), + \strong{roxi}: roxithromycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01FA06}{J01FA06}), + \strong{siso}: sisomicin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB08}{J01GB08}), + \strong{teic}: teicoplanin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XA02}{J01XA02}), + \strong{tetr}: tetracycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA07}{J01AA07}), + \strong{tica}: ticarcillin (\href{https://www.whocc.no/atc_ddd_index/?code=J01CA13}{J01CA13}), + \strong{tige}: tigecycline (\href{https://www.whocc.no/atc_ddd_index/?code=J01AA12}{J01AA12}), + \strong{tobr}: tobramycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01GB01}{J01GB01}), + \strong{trim}: trimethoprim (\href{https://www.whocc.no/atc_ddd_index/?code=J01EA01}{J01EA01}), + \strong{trsu}: sulfamethoxazole and trimethoprim (\href{https://www.whocc.no/atc_ddd_index/?code=J01EE01}{J01EE01}), + \strong{vanc}: vancomycin (\href{https://www.whocc.no/atc_ddd_index/?code=J01XA01}{J01XA01}). } \section{Read more on our website!}{ diff --git a/pkgdown/extra.css b/pkgdown/extra.css index 7cc9e8c6..df38f6b5 100644 --- a/pkgdown/extra.css +++ b/pkgdown/extra.css @@ -59,7 +59,7 @@ a pre[href], a pre[href]:hover, a pre[href]:focus { /* syntax font */ pre, code { - font-family: 'Courier New'; + font-family: 'Courier New', monospace; font-size: 100% !important; font-weight: bold; background-color: transparent; @@ -102,6 +102,15 @@ help { display: none; } +/* Date of vignettes */ +.template-article .date:before { + content: 'Last updated: '; +} +.template-article .date { + font-size: 14px; + padding-top: 40px; +} + /* more space between icon and text in top menu */ #navbar .fa, #navbar .fab, diff --git a/pkgdown/extra.js b/pkgdown/extra.js index 2268acc2..ca621c42 100644 --- a/pkgdown/extra.js +++ b/pkgdown/extra.js @@ -38,3 +38,5 @@ $( document ).ready(function() { // Edit title of manual $('.template-reference-index h1').text('Manual'); }); + +$('head').append(""); diff --git a/vignettes/AMR.Rmd b/vignettes/AMR.Rmd index 6482e667..662d03e3 100755 --- a/vignettes/AMR.Rmd +++ b/vignettes/AMR.Rmd @@ -1,6 +1,7 @@ --- title: "How to conduct AMR analysis" author: "Matthijs S. Berends" +date: '`r format(Sys.Date(), "%d %B %Y")`' output: rmarkdown::html_vignette: toc: true diff --git a/vignettes/EUCAST.Rmd b/vignettes/EUCAST.Rmd index 3a552c22..f9d5a35f 100644 --- a/vignettes/EUCAST.Rmd +++ b/vignettes/EUCAST.Rmd @@ -1,6 +1,7 @@ --- title: "How to apply EUCAST rules" author: "Matthijs S. Berends" +date: '`r format(Sys.Date(), "%d %B %Y")`' output: rmarkdown::html_vignette: toc: true @@ -30,7 +31,7 @@ What are EUCAST rules? The European Committee on Antimicrobial Susceptibility Te > *EUCAST expert rules are a tabulated collection of expert knowledge on intrinsic resistances, exceptional resistance phenotypes and interpretive rules that may be applied to antimicrobial susceptibility testing in order to reduce errors and make appropriate recommendations for reporting particular resistances.* -In Europe, most medical microbiological laboratories already apply these rules. Our package features their latest insights on intrinsic resistance and exceptional phenotypes. Moreover, the `eucast_rules()` function we use for this purpose can also apply additional rules, like forcing ampicillin = R in isolates when amoxicillin/clavulanic acid = R. +In Europe, a lot of medical microbiological laboratories already apply these rules ([Brown *et al.*, 2015](https://www.eurosurveillance.org/content/10.2807/1560-7917.ES2015.20.2.21008)). Our package features their latest insights on intrinsic resistance and exceptional phenotypes (version 9.0, 2019). Moreover, the `eucast_rules()` function we use for this purpose can also apply additional rules, like forcing ampicillin = R in isolates when amoxicillin/clavulanic acid = R. *(more will be available soon)* diff --git a/vignettes/G_test.Rmd b/vignettes/G_test.Rmd index 9c6590d6..64a89f49 100755 --- a/vignettes/G_test.Rmd +++ b/vignettes/G_test.Rmd @@ -1,6 +1,7 @@ --- title: "How to use the *G*-test" author: "Matthijs S. Berends" +date: '`r format(Sys.Date(), "%d %B %Y")`' output: rmarkdown::html_vignette: toc: true @@ -21,4 +22,4 @@ knitr::opts_chunk$set( Sys.setlocale(locale = "C") ``` -*(will be available soon - in the meanwhile, please read about [this *G*-test in the manual](./reference/g.test.html))* +*(will be available soon - in the meanwhile, please read about [this *G*-test in the manual](./../reference/g.test.html))* diff --git a/vignettes/Predict.Rmd b/vignettes/Predict.Rmd index 06c305b8..8ee2e1cd 100755 --- a/vignettes/Predict.Rmd +++ b/vignettes/Predict.Rmd @@ -1,6 +1,7 @@ --- title: "How to predict antimicrobial resistance" author: "Matthijs S. Berends" +date: '`r format(Sys.Date(), "%d %B %Y")`' output: rmarkdown::html_vignette: toc: true diff --git a/vignettes/ab_property.Rmd b/vignettes/ab_property.Rmd index 6a1e70e1..bf17254f 100755 --- a/vignettes/ab_property.Rmd +++ b/vignettes/ab_property.Rmd @@ -1,6 +1,7 @@ --- title: "How to get properties of an antibiotic" author: "Matthijs S. Berends" +date: '`r format(Sys.Date(), "%d %B %Y")`' output: rmarkdown::html_vignette: toc: true diff --git a/vignettes/freq.Rmd b/vignettes/freq.Rmd index 547b51c3..cbf22f04 100644 --- a/vignettes/freq.Rmd +++ b/vignettes/freq.Rmd @@ -1,6 +1,7 @@ --- title: "How to create frequency tables" author: "Matthijs S. Berends" +date: '`r format(Sys.Date(), "%d %B %Y")`' output: rmarkdown::html_vignette: toc: true diff --git a/vignettes/mo_property.Rmd b/vignettes/mo_property.Rmd index 6879e124..4ccbbdeb 100755 --- a/vignettes/mo_property.Rmd +++ b/vignettes/mo_property.Rmd @@ -1,6 +1,7 @@ --- title: "How to get properties of a microorganism" author: "Matthijs S. Berends" +date: '`r format(Sys.Date(), "%d %B %Y")`' output: rmarkdown::html_vignette: toc: true