From 20f65a7126ca9a77b649baa1853c6c85a5626241 Mon Sep 17 00:00:00 2001
From: Jared Knowles <jknowles@gmail.com>
Date: Mon, 6 Jul 2020 11:48:10 -0400
Subject: [PATCH] install logo correctly

---
 DESCRIPTION                                   |  16 ++-
 NAMESPACE                                     |  10 ++
 R/db.R                                        | 122 ++++++++++++++++++
 R/logo.R                                      |  79 +++++++-----
 R/theme.R                                     |  21 ++-
 R/utils.R                                     |  21 +--
 civilytics.Rproj                              |   1 +
 inst/img/Civilytics Consulting Logo_small.jpg | Bin 50782 -> 0 bytes
 ...onsulting Logo.jpg => civilytics_logo.jpg} | Bin
 ...onsulting Logo.pdf => civilytics_logo.pdf} |   0
 ...onsulting Logo.png => civilytics_logo.png} | Bin
 man/add_logo.Rd                               |  10 +-
 man/add_logo_ga.Rd                            |  25 +++-
 man/countCleanr.Rd                            |  17 +++
 man/countDots.Rd                              |  17 +++
 man/countNA.Rd                                |  21 +++
 man/dbSafeNames.Rd                            |  17 +++
 man/findDots.Rd                               |  17 +++
 man/get_png.Rd                                |   9 +-
 man/has_caption.Rd                            |  12 +-
 man/hello.Rd                                  |  12 --
 man/make_logo_grob.Rd                         |   7 +-
 man/measure_caption.Rd                        |  13 +-
 man/nvals.Rd                                  |  21 +++
 man/plot_jpeg.Rd                              |  16 ++-
 man/pretty_per.Rd                             |   5 +-
 man/safe_max.Rd                               |   2 +-
 man/simpleCap.Rd                              |  21 +++
 man/theme_civilytics.Rd                       |  18 ++-
 tests/testthat/test_db.R                      |  82 ++++++++++++
 tests/testthat/test_theme.R                   |  12 ++
 tests/testthat/test_utils.R                   |  53 ++++++++
 32 files changed, 582 insertions(+), 95 deletions(-)
 create mode 100644 R/db.R
 delete mode 100644 inst/img/Civilytics Consulting Logo_small.jpg
 rename inst/img/{Civilytics Consulting Logo.jpg => civilytics_logo.jpg} (100%)
 rename inst/img/{Civilytics Consulting Logo.pdf => civilytics_logo.pdf} (100%)
 rename inst/img/{Civilytics Consulting Logo.png => civilytics_logo.png} (100%)
 create mode 100644 man/countCleanr.Rd
 create mode 100644 man/countDots.Rd
 create mode 100644 man/countNA.Rd
 create mode 100644 man/dbSafeNames.Rd
 create mode 100644 man/findDots.Rd
 delete mode 100644 man/hello.Rd
 create mode 100644 man/nvals.Rd
 create mode 100644 man/simpleCap.Rd
 create mode 100644 tests/testthat/test_db.R
 create mode 100644 tests/testthat/test_theme.R
 create mode 100644 tests/testthat/test_utils.R

diff --git a/DESCRIPTION b/DESCRIPTION
index 7936760..313e21e 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -4,11 +4,21 @@ Title: Utilities Functions for Civilytics
 Version: 0.1.0
 Author: Jared E. Knowles <jared@civilytics.com>
 Maintainer: Jared E. Knowles <jared@civilytics.com>
-Description: More about what it does (maybe more than one line)
-    Use four spaces when indenting paragraphs within the Description.
+Description: House R functions for Civilytics Consulting LLC
+    This package implements a variety of useful functions for creating and 
+    branding analyses produced by Civilytics Consulting LLC. 
 License: LICENSE
+Depends:
+    R (>= 2.15.1)
+Imports:
+    ggplot2,
+    jpeg,
+    png,
+    stringr,
+    gridExtra,
+    grid
 Encoding: UTF-8
 LazyData: true
 Suggests: 
     testthat
-RoxygenNote: 7.0.2
+RoxygenNote: 7.1.0
diff --git a/NAMESPACE b/NAMESPACE
index be2f84e..9a581ce 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -2,18 +2,28 @@
 
 export(add_logo)
 export(add_logo_ga)
+export(countCleanr)
+export(countDots)
+export(countNA)
+export(dbSafeNames)
+export(findDots)
 export(get_png)
 export(has_caption)
 export(make_logo_grob)
 export(measure_caption)
 export(na_zero)
+export(nvals)
 export(plot_jpeg)
 export(pretty_count)
 export(pretty_per)
 export(safe_max)
+export(simpleCap)
 export(theme_civilytics)
+import(ggplot2)
 importFrom(ggplot2,theme)
+importFrom(graphics,plot)
 importFrom(graphics,rasterImage)
+importFrom(grid,grid.draw)
 importFrom(grid,rasterGrob)
 importFrom(gridExtra,arrangeGrob)
 importFrom(jpeg,readJPEG)
diff --git a/R/db.R b/R/db.R
new file mode 100644
index 0000000..4f107e6
--- /dev/null
+++ b/R/db.R
@@ -0,0 +1,122 @@
+# Functions for connecting to Civilytics' data sources
+
+
+
+# postgresCon <- function(myip){
+#   require("RPostgreSQL")
+#   require("pool")
+#   drv <- dbDriver("PostgreSQL")
+#   con <- dbPool(drv, dbname = "crime", host = myip,
+#                 port = 5432, user="admin", password = "betterplacemakeworld")
+#   return(con)
+# }
+
+
+#' Clean unreported data counts in UCR data
+#'
+#' @param x a column of data, if character, substitute and conver to numeric
+#'
+#' @return a numeric column of data
+#' @export
+countCleanr <- function(x){
+  if(class(x) == "character"){
+    x[x == "None not reported"] <- "0"
+    x[x == "Not applicable"] <- NA
+    x <- as.numeric(x)
+    return(x)
+  } else{
+    return(x)
+  }
+}
+
+
+
+#' Find columns in a dataframe that have values with a "."
+#'
+#' @param data a dataframe
+#'
+#' @return the names of columns in the dataframe with one or more entries equal to "."
+#' @export
+#'
+#' @examples
+findDots <- function(data){
+  return(names(data)[lapply(data, countDots) > 0])
+
+}
+
+#' Count the number of single period entries in a vector
+#'
+#' @param x a character vector
+#'
+#' @return
+#' @export
+#'
+#' @examples
+countDots <- function(x){
+  len <- length(x[x == "." & !is.na(x)])
+  totlen <- length(x)
+  return(len)
+}
+
+
+#' Make names safe for inclusion in a database
+#'
+#' @param names a character vector of possible column or table names
+#'
+#' @return a vector the same length as the input vector with clean names
+#' @export
+#'
+#' @examples
+dbSafeNames <- function(names) {
+  names = gsub('[^a-z0-9]+','_',tolower(names))
+  names = make.names(names, unique = TRUE, allow_ = TRUE)
+  names = gsub('.','_',names, fixed = TRUE)
+  names
+}
+
+#' Count number of missing values in a vector
+#'
+#' @param x a vector of values
+#'
+#' @return an integer equal to the number of NA entries in the vector
+#' @export
+#'
+#' @examples
+#' countNA(letters) # = 0
+#' countNA(c(letters, NA)) # = 1
+countNA <- function(x){
+  length(x[is.na(x)])
+}
+
+
+#' Count the number of unique values in a vector
+#'
+#' @param x a vector of values
+#'
+#' @return an integer equal to the number of unique values in a vector
+#' @export
+#'
+#' @examples
+#' nvals(letters) # = 26
+#' nvals(state.abb) # = 50
+nvals <- function(x){
+  length(unique(x))
+}
+
+
+#' Capitalize a character string after each space
+#'
+#' @param x a character string
+#'
+#' @return a vector of characters with all values after a space capitalized
+#' @export
+#'
+#' @examples
+#' my_string <- c("Happy school", "Easy school", "cool School", "big school")
+#' simpleCap(my_string)
+simpleCap <- function(x) {
+  stopifnot(class(x) == "character")
+  s <- strsplit(x, " ")[[1]]
+  paste(toupper(substring(s, 1,1)), substring(s, 2),
+        sep = "", collapse = " ")
+}
diff --git a/R/logo.R b/R/logo.R
index a3dc900..fecd0a4 100644
--- a/R/logo.R
+++ b/R/logo.R
@@ -1,19 +1,19 @@
-#' Title
+#' Plot a jpeg image as a raster
 #'
-#' @param path
-#' @param add
-#' @param upscale
-#'
-#' @return
+#' @param path a character representing the relative or absolute path to the image
+#' @param add a logical, TRUE to add the image to an existing plot, FALSE creates a new plot
+#' @param upscale a logical, TRUE upscales the resolution of the graphic by a factor of 3, FALSE
+#' preserves the resolution
+#' @return a rasterImage
 #' @export
 #' @importFrom jpeg readJPEG
 #' @importFrom graphics rasterImage
 #' @examples
-#' img <- readJPEG(system.file("img","Rlogo.jpg",package="jpeg"))
+#' img <- system.file("img","Civilytics Consulting Logo.jpg",package="civilytics")
+#' plot_jpeg(img)
 plot_jpeg <- function(path, add=FALSE, upscale = TRUE)
 {
-  require('jpeg')
-  jpg = readJPEG(path, native=T) # read the file
+  jpg = readJPEG(path, native = T) # read the file
   res = dim(jpg)[2:1] # get the resolution, [x, y]
   if (upscale){
     res <- res * 3
@@ -26,9 +26,9 @@ plot_jpeg <- function(path, add=FALSE, upscale = TRUE)
 }
 
 
-#' Title
+#' Plot a PNG file as a rasterGrob for inclusion in ggplot2
 #'
-#' @param filename
+#' @param filename a character with file path to a png file
 #'
 #' @return
 #' @export
@@ -36,16 +36,17 @@ plot_jpeg <- function(path, add=FALSE, upscale = TRUE)
 #' @importFrom grid rasterGrob
 #'
 #' @examples
+#'
 get_png <- function(filename) {
   grid::rasterGrob(png::readPNG(filename), interpolate = TRUE)
 }
 
 
-#' Title
+#' Add a logo to a ggplot2 object
 #'
-#' @param plot
-#' @param logo
-#' @param margin_param
+#' @param plot a ggplot2 grob
+#' @param logo a logo grob created by make_logo_grob()
+#' @param margin_param a numeric specifying what margin to add or subtract to align the logo
 #'
 #' @return
 #' @importFrom ggplot2 theme
@@ -73,15 +74,18 @@ add_logo <- function(plot, logo, margin_param = NULL) {
               padding = unit(0.1, "line"))
 }
 
-#' Title
+#' Measure a ggplot2 object caption
 #'
-#' @param gg
+#' @param gg a ggplot object
 #'
-#' @return
+#' @return a numeric value stating the number of lines to be added or subtracted to align a logo with
+#' the caption
 #' @importFrom stringr str_count
 #' @export
 #'
 #' @examples
+#' p1 <- qplot(mpg, wt, data = mtcars)
+#' measure_caption(p1) # Should equal 1 since no caption is required
 measure_caption <- function(gg) {
   if (has_caption(gg)) {
     stringr::str_count(gg$labels$caption, pattern = "\n") + 1
@@ -91,32 +95,43 @@ measure_caption <- function(gg) {
 }
 
 
-#' Title
+#' Test whether a ggplot2 object has a caption
 #'
-#' @param gg
+#' @param gg a gg object from ggplot2
 #'
-#' @return
+#' @return a logical, TRUE if a caption exists and FALSE if it does not
+#' @import ggplot2
 #' @export
 #'
 #' @examples
+#' p1 <- ggplot2::qplot(mpg, wt, data = mtcars)
+#' has_caption(p1) # FALSE
 has_caption <- function(gg) {
   any(names(gg$labels) == "caption")
 }
 
-#' Title
+#' Add a logo to a ggplot2 object
 #'
-#' @param plot_list
-#' @param logo
-#' @param nrow
-#' @param widths
-#' @param margin_param
+#' @param plot_list a list containing ggplot2 objects
+#' @param logo a grob containing the logo created with `make_logo_grob`
+#' @param nrow an integer, default = 1, for the number of rows to align the plots in
+#' @param widths an optional vector the same length as plot_list with the widths for each plot
+#' @param margin_param a number giving the adjustment up or down to help manually align logo and captions
 #'
 #' @return
+#' @note The resulting object needs to be drawn to the screen using grid.draw()
 #' @importFrom gridExtra arrangeGrob
 #' @importFrom ggplot2 theme
+#' @importFrom grid grid.draw
 #' @export
 #'
 #' @examples
+#' library(ggplot2); library(grid)
+#' tmp_plot <- ggplot(mtcars) + aes(x = hp, y = disp) + geom_point() + theme_civilytics()
+#' tmp_logo <- make_logo_grob()
+#' plot_and_logo <- add_logo(tmp_plot, tmp_logo)
+#' grid.draw(plot_and_logo)
+#' dev.off()
 add_logo_ga <- function(plot_list, logo, nrow = 1, widths = NULL, margin_param = NULL) {
   # Change position of logo depending on if plot has a caption
   if (!is.null(margin_param)) {
@@ -146,14 +161,18 @@ add_logo_ga <- function(plot_list, logo, nrow = 1, widths = NULL, margin_param =
 
 #' Get a Civilytics Logo grob
 #'
-#' @return
+#' @return a gg object which contains the logo file stored as a Grob suitable for manipulating in
+#' grid
 #' @export
-#'
+#' @import ggplot2
 #' @examples
+#' logo <- make_logo_grob()
+#' class(logo) # gg
 make_logo_grob <- function() {
   logo_grob <- ggplot(mapping = aes(x = 0:1, y = 1)) +
     theme_void() +
     annotation_custom(get_png(system.file("img", "civilytics_logo.png",
-                                          package="civilytics")), xmin = 0.825, xmax = 1)
+                                          package="civilytics")), xmin= 0.7, xmax = 1)
   logo_grob
 }
+
diff --git a/R/theme.R b/R/theme.R
index 164678c..a43e332 100644
--- a/R/theme.R
+++ b/R/theme.R
@@ -1,17 +1,14 @@
-
-#' Title
+#' Make the Civilytics plot theme
 #'
-#' @param font_size
-#' @param font_family
-#' @param line_size
-#' @param rel_small
-#' @param rel_tiny
-#' @param rel_large
-#'
-#' @return
+#' @param font_size default 14, a number representing the base font for the theme
+#' @param font_family default "", a character for the font family to use in the theme
+#' @param line_size default 0.5, the line size to use for the theme
+#' @param rel_small default 12/14, the scale factor to create a small font from the base font_size
+#' @param rel_tiny default 11/14, the scale factor to create a tiny font from the base font_size
+#' @param rel_large default 16/14, the scale factor to create a large font from the base font_size
+#' @importFrom graphics plot
+#' @return a ggplot2 theme object suitable for combining with ggplot objects to theme them
 #' @export
-#'
-#' @examples
 theme_civilytics <-
   function (font_size = 14,
             font_family = "",
diff --git a/R/utils.R b/R/utils.R
index 6a48874..a73f34f 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -8,33 +8,38 @@
 #'
 #' @examples
 #' safe_max(1:10)
-#' safe_max(c(1:10, NA)) # 10
+#' safe_max(c(1:10, NA))# 10
 safe_max <- function(x) {
-  max(x, na.rm = TRUE)
+  if (all(is.na(x))) {
+    return(NA)
+  } else {
+    max(x, na.rm = TRUE)
+  }
 }
 
-
-
 #' Prettify proportion data
 #' Make data expresed as proportions print out as prettily formatted characters with percentages
 #'
 #' @param x a numeric vector of proportions to convert to percentages
-#' @param ndigit a vector of length 1 indicating the number of digits to display in the percent
+#' @param ndigit a vector of length 1 indicating the number of digits to display in the percent, by
+#' default it represents the digits after the decimal point in the percentage form
 #'
-#' @return
+#' @return a character vector with a % attached
 #' @export
 #'
 #' @examples
 #' pretty_per(0.2, ndigit = 1)
 #' pretty_per(c(0.2, 0.332423, 0.4, 0.342342), ndigit = 2)
 pretty_per <- function(x, ndigit = 1) {
-  x <- format(round(x, digits = 3) * 100, nsmall = ndigit)
+  if (any(x >= 100) & !all(is.na(x))) {
+    message("Values over 100 found, did you mean to use proportions?")
+  }
+  x <- format(round(x, digits = ndigit + 2) * 100, nsmall = ndigit)
   x <- paste0(x, "%")
   x[x == "NA%"] <- " - "
   x <- trimws(x)
   return(x)
 }
-options(knitr.kable.NA = "-")
 
 
 #' Zero out missing values
diff --git a/civilytics.Rproj b/civilytics.Rproj
index b9255bc..6daccaa 100644
--- a/civilytics.Rproj
+++ b/civilytics.Rproj
@@ -18,3 +18,4 @@ StripTrailingWhitespace: Yes
 BuildType: Package
 PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace
diff --git a/inst/img/Civilytics Consulting Logo_small.jpg b/inst/img/Civilytics Consulting Logo_small.jpg
deleted file mode 100644
index c987be4e1d2aa5823c1fc27ed0bdaa792c285c6a..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 50782
zcmeFac_5Tq{6GHKTa;vJktG#v#_S8Btf@rSki-~_Wys7ROKzKXS_$E*B!no0P$`Nc
z3E7i2dt_gK=NV>F-FvJ1`TV}$Kfd=V&z$G1uk$|d_xrrh`#j6!>&a%Jm0I3ZdkE6g
zgVsV2Gz${sf*>9c;u0W&6W3Ij>mUeov%+v%6c_(gJj4y+7fy#kK`ycBFv!KV6yk&H
z0e{!HBsk%lT&ri4MZq;dvf%Fy7n&6o1>vfrREQV+!eu+a&q{y`{wFpJBIFmae>d5=
z*-~T-9NidhbVoOL84V2?G!jLWS#3t8*|~Yq*FfNsq=Z6(|1v0o5*n?9CV(0s-ZKy+
z0RJM<7}THBeS};4lbhWx*X}=g*kMQ)E(8vKE}m)Z{4@K<<?*$DTs|}V$IZpAgX<tS
zr|x;-Q`JG6!7toL*6-x&$xcX+)hBBWJ&0?v3!2Zmg6#f)^G()4hatgPvu4enB{+Mw
zpzz!|bA`o(1O<h}7K@08iHIx~7GxdMKT{XqpSkAEojY&-yan^;FA$wSf4(SunlCz4
zMEF-Kn7j`O&w`diQ9N9-5VtTFk1*F{1L)+O$wypj03{z6>i~e^g9mU8FCV|atl4ws
za($o31#$DR6Bj^Syj(ooyxe>O{ImFY1Ti2{n1^@yLKNSo9X2Aedk>)bMbE~hs;^in
zX86DsgY`IAt|74MoYCjz9x@##ekJXYoaT9BJFSOT8TdsnP2N&^ZyzqGV77eGmcMZA
z$eoLiUcKv!O@CbZzTec|Gce?OMq$;50fLU1gV)i}xXhyJkAuPxH#b1b%fckU&xd0{
zSdLoA3lQv;72!i4I4cSxcwkum8MD&1+2i0j4I?o!9ow^t9|j;GhkN)EfVjHIPRj((
zpuFWk_<IEMUm;A^LV`T3HiaQIs828`{-WE?@v{{*=Ki?3Up!nx(bw-~U3!%fUSCvq
z_H3&~H}lR2_IBmC{HHeKkx=utp-bc1iSwoAy-t78vHR+U-Su1Nm8A#u>r@o^s?3Xu
zPV#D1h#Qv`!85FrB{dW=OmBaW%XCxAqo15}M9sJMATmF_7)?ma+1ub1Yt?iuA-`hn
zBxISLQkN~X>rqisckJDC%+i7MN7l@)tl+ps&ib_~_)7h}=)RDEtGfD|8{;ZUwO${R
z&7_bC`?VBga!&`|Qz{PpSXG@q@w`dTVElSVY2s;Z0fR@xeTy?Jc2?x9dg*C&@p$5=
z{mS_K#*v#2V-E2nYpra;4kf%{?hmqdR*FTmX3f8OHxSo6yi;;(#e{Reglc)4YT2{m
zzE@vd9z7bVEN`7JR&n}BsQHTy`|h-5p5`t-%<hzh<55>9q5Icj^Wy#OX#wi3gZ;Y_
zEML(h>CP!zo<~Ivv;?b%4R(^3wD|;VvS`mY|D0{Mt++IiX8E}@Il|F-;LPay<j7#p
zIu$}{s85}zKVM0o->$%blQ%aMFK&M2BR1%OzG7ur7RMa4K27!<Ng8#~%d7J7Rhh`$
zYT527r;!)yKr|z#Au=xKnBU1Rykob+H+-Nv-|KbHy1vNUV^T_6Jkd%Qqtiz`@v5fl
z9P_LDKi$1+XWn{eBw&wQdB9ayPya-(p;eSf%j-4g_L`q5+Eq7iB~M&}L|cx;s|mMG
zg~Yym`-b)r>uY`0q*o(>2(PN(L=rI>Pd203HFCYS7@4m^z?WV9WPPSvV`)>&xk>2L
zMB;*pc=H3+n_I^v;$OJ5`ztU1@XYL1jWYtj>myU4O6XG+dhi`a%`3(szIBIdnDrH1
zeLa1%*3ia!pEPG?#-fbtWnThQTBRM-bXIh94ZQPFjr(&FqTEn1OI)_?lxp;;2Mz{p
z+kN+jk3Y=FxIU6aBIN!t5fm7*Ke)AtdC_P@&A;!9nrT^$Pw3WyhtwynHDV2CkZum`
zl5!6pelgGA6HwFTKhSJuYUG?b&R1>LmK2p`^*Yx#mYEcBE4AkA>G03XT8wC7=G(Uy
z;+kS8cN?ShqTiUiC5}}moQrr?(#Ggti%fG)ZgWenQ>`}e<*~B9#;<Zgxq5<LNw4v$
z&3~ZQxA{`8bF96ZJ;KC`^q|zfV0ouaU*~@1ydaG=xBEP^gN<I^9)28A<#VJ#M`Fcw
zhFjHq`}sR*6wMKr9P*Nr1|<%kB$&xLuO{feOU!Php^{QCbK9ciM5{w9tWCmhD!A{*
z8I!F}hHc;dp{uZ8fxb7qB*Xve7d0J=Ej|_#sf=}cQXx!n!O#<}bg5-8d$)p0n#k)@
zJAKzCO+saA!`Cc*inhfqAF6tn8d7=7Vs?38fhf9qe9q1MF+Nk}S2<$~-=-=2Ili?`
z?w0@7?1JRw>G{5(8+2OVfKOGx`Swxm@#yl`N&OKDaq)KV`?@Rg<>jSr<{fA3d{)(2
zB-Sq#k>eJ_T>P;wvvMS}P4&7?pYer$M7!1Ui|;HtiY<3bjBkhwy)!3T8Nb`15797j
z)-b@}saw@9rzK~kE7ES!p7sr7>KKpN<EwTx`G!&UscqWR?-FRxoqWknXw=k|Yv=+$
zF|TTwI9cL`%l`0$uH@pbwEPbN57)ik=UwG*^C^h@J}%bcdEIWvKj@J^PNmebuQT;h
zmUPVRzWf+ny~}PlJKL;HyW1{xU*(a(H=7sl#a4Z=q)Cd~)mBw!BubkOPC{2EEb`4P
z?<Z#`lsqf)q{f84F4i49+UbyVQnSYQQ^rS^tHVuw0i_7Dxy$d2Yqmv--|wy!+wm%l
zDYMX=l4&Qn#iedSg3yUmn-@KBJ^!U?a$ipB&GzwG=W{APl{xRS_(Vw|CJQ3y0b0H{
z3X8`j^7YaZ4UNig-(=(<o!fBljmMPtnE38mR(&^GFTFZ*xFpi;Q?B^_(8}>eUyg|~
z$CS18VpHr9xSK^ZT_~eu_au~-eWEp~te8?s*`Go&E8jZU(KlFickrEwgI<9GO(WWR
z_tTQ=wT{fuS^IZ;swEy0EPj%xys)g?KiVO#%|EVsTqu?ntzQy*NpeSDP1xwB8YWZl
zx_L#H^FR%SX;4oK*PvxezS`p-S%q$=jY|%%Su^>f-z2zP^>$xZ=Gj*_9=XfMHhtRJ
zdgeptgda7tg8A%ed=#LhPJh6|^})&BlhE!ph0n`AnK$<ZLZ#uw67BpUBVIMzO<SD1
z$@x2zBGlq1p?M|mCZUsgnJ*(MP)Z6xH~am_6(gNV61C5ZI?Wf2UT$)TZEG<bt4<3v
z85^+J;%^zLzT|0<VETtD{vEO(X$ziT_02V!5OSVB3Hf~7pE7PWQucDb6s}=!m_KG-
zUUW@faTTdDJ(;q8R41NX*SbG=qHbfGigdh#8Y$@U-iK`=%}OIt&hy8mG~%DrFD?7f
z;ig;kIH00`{q6Ee=y1|1mHA#<3(In(+M^v8kG{?BpgX5#5XkLM<Krrxq)ec!c3q{8
zJV8l2w-slqbfsp#R7|=w8t&nd+EF+-Qd*c+aI#_&ihO*#ql^-!7JH>%<Us%Vm!czK
zcma%XhMk0#Cx&v@_+xfPrE{29EwZN<6HozEBzAxLK$-T1xFq$$r-dakVT&`;M%FJZ
zadP)vMhsDj2!H?Fwq@Mbw}ECw(i1faJ8QCHrI2Ae#wzqs;Go(5rWegE<O=KYxKX^-
z-ASl*or%BDO%;sPy^azOmy}s8BX1g(_mlV3x@C3Jo4QKds>efDc*T#E)u}xgk6ER1
zMQq>Bss@T!ZFR$D=bK5_7U42zeV0E>bVf+0dR+3h+A;|x`qOg52+Z}T=*NoeMmBY?
zFLYJt^Ki^x6M`BRe`nV*Y8|Uh8OBbW?913W*w>i9-D+5J?McUd>CYa|PmMZLbT!UA
z_+Uvwzg2E<`x0r5zUb#ZDSa=Es;_08`tYu0+#>yS4*t}s(bUvLPpza;E$zX#eS@kI
zt9=Jl^2XvOB1Uvl+`j0W^xoQkr>;HY>RGFOdQV+tcJthzX={s_s0AeES3fR@!`vvJ
zINFJ4v;{;YXU3|Skcfj3mU^dCUu~##q@FAKqk6<`yt*SbSZmiGtxe_;XA~aU#8<t0
z-*BcRIwMn{#(BiGbU!XA(^Ex7?RratMq*}lLE9oQ+kpOWdG8(R&JYY%uYd4Lk+N-l
zvA<S-$cfhHIl`5sN_3rhyOrtaxKMfkq1E7AWc}r5+wk~jIf*gB?qn<SAuf8}NiIL%
z%h4<3CB(1pH@SHw<cuUGNYD`>o54L;;NMN(Sy|TC6<sM=-CF!Sp)Bo1ef8T2De2a^
z(MPovlyh~gDH%p5BSJ^CU5ZjL9gT6H23F&PZ{h=$s@`K12mYXGggNu8)o5=nNv?J7
z_wvze9lATDKVUklS{;z2m#MaDm5Su>&eso)%2pXF_&TM$a;LRR*=C33wAML%FpXXz
zd)aCIlPA7T*RO}xkWb-~mS%N(eMnCXz0K3Ewb=WjZT2W;wWpE4vtol~n4Wn*BZn?Q
z$&bB_AG^G+bHZyle4>1;IQ?uzTCZwK-BC-Ar)3!@I_<4a`QMBwl8_+Pg%6_g6ROXj
z85!TIvhAe8B($~l+VyHfH}&G;!jeqfrQu79)TE_Gy7tf&?wHo4N?S$63Z;GUQH#k=
zF&fU-vr4&Mu_L=s^}*RQ7OqcMO3bnePYfkgP{c+D42s94Up92~yJfY9<OsAY1dr;(
zoT*z&vmrmesMKs~ZIDpZLe3f_rP~>mqXJAOAs(ZyzHzJmqz^`CIwba9uCEFtWeKKN
znYF1g;}l+-WMz;hF6z0}NL%Gaw`KT<y{j4P-4ZZa-ftXQ9KSNI?b=`cgnU+=UH$jT
z-;|lGne1Go`gN6wK_DTbx~?8Cyh4Q_#4;`mh(}_T&N8r)1^<_E^Fd2BsGd}peGDp@
zE~DW_qcdF?RGNd#Ha7=1R>@VYk_);Q1=(rsDR<fGKt+3)T(DuKDZy!6(%`fJ4!~E?
zTz3yDjiJwExHB2x5?)qA26Tpzt(%(*D~B$PL7~u?u5bbzhJQ6&Jm6~~R#_veH=IMA
z%7Dwj$y0SwJht1oQjE2B8iOb)NDDH6j39kzJERS%LnH_b{*aIiv>K!sLkbWI!b3O^
z1IHOb6vzXjf-@aj1J^j+l!1qvo4pZ*!F1QRbs~dkK~Sj&<OcrPPZwiAOvs&8WR5#0
zH@If?Mcsu#o9>ICEt3k9j#VW{pUujxp=Z8zY6O(wI=B_U=_{=k&Y+dPJA(?y57HOG
zIW^oFG<Np^d2Bs67lsaWJ<f%O2TkMa1&#6bVw<fCos+WNf#J!y&~kOr<XnIe_*%6(
z+1X*55UlP&kfDyc20#N`Bp_@jBV*^rwB6|T2EJq+Iv%ti;?!M!%%|>QXKX@aXs<AI
zfw_WnsJqz7{8hXm-G#x5H}H1ZXv@hy$CE;4xOr&WFl^u+us|9(7|_}L1c%|w;1`As
zZKK#vRr6i5#=ryfSIrucU8dp<Jjff(;Tl-S0<wpjyO|>e3@+epARcV;&4&{V0VZ`f
z2E)zO#f|1LT||(b0z;S)KaU-6NOf?WnJ|}~0I+fL!&1i6IfVfNjv&BwT<l+#1j@0}
z=1(^Ye$@VeSp3G*%Zi%=L6fXwDwcO1D;CxU7Oe71IM-6Fw!W~gXS2@W#Ko!$c(LGP
z&J@qX(X71vtk}(vqP;yxaRF!GX@XOyV`9R>IWcHfyahP3^Wa!9uslr1u<9HF*AOgk
zQ>ec`^L&DnzmJ`|{-30=XfX?}n=PH(8-cWfziGNj!6BA^Y)YD!!k0W$aGF97UjlUo
zI=>tIE`>CJvhf6eF3>)R0e;Cq@yLK!H;4v8Ob`#p(jW&AyA8xTfIpaWKOQsUSapLo
zzCC7S;3RxiF%XUE0_#wq?IC_!Hzv)F{+)!A87Pp(njm1Y;P4)Z{El}a^{+h6f?>#E
zVHPxgx(k&|p_{sFgN2amn|AnEX&`zb_!D4V=xWYrOTfXyjp_bP6u+AX)q%><uUbZM
z?fR@ZP{%wQCc{mKLZf)tFer8)0y5s`&YoE2Ol5{+;1pd~2O045|9Ag+m>w?E)6?{z
zz{LMHMvv~mp2DW`@Y}dBjBOmg$u*x$0p%#(3|;zWW4&!`RX2+r{Y~cCj&2@4n_Q?4
zY)T1Db$&BD8uVPij$&^EW_A#q?Md-q{6%(CcJ#N|=h`}GxVgA_%pk7tRQ>8YoCHt=
z+U`b!X+4|a<_;!*I%TGAo8tnM;198awk)OjL;PGY#E#!*XG!R4xFIk{19n#X%nDCQ
zqbMs3voJR+ADjc4mjO;NjibQdauBSCAeCJpJ{(#MJk<Yru>bR5|L4K}&x8G+2m3z{
z_J1Di|2)|Ld9eTUVE^aA{?CK`p9lN@vIm>Bf&=R{a9Dvqa9bDf)<T;gJK!R*1s+@(
z;G%T|VFvi4vqHdK1e~V-oC9{gXn?Y4;15PY;C3;vG-S0j<-ZXCcWklRnrv3;a%3>v
zl@t|ebc79j*A{~8=Bnsz<F1H8AQhnvYToWPWM>LP#+CxS6DqRZIr*|OR67+}Gn^h$
z&s~G!NZst?K{4{#ZcO%ZCX?)B)l_9Rcq@6ky1P;sHZtC>E;PE5w~8#QawQOkqZMUk
zSXmg(DzdCQsbqHQ832d82So;lz$=hZShNg*gh1huBs6wCeD4@R5lK))VHA)kB_v)6
zLz0<3WI<~lcJ@k!n%dKCfh!f+=}vihc_F+o2saN0MHGodQbeK^(P#ybLxH}J#<1~L
zpwU;bYtW?7$sSaeUs?vP5%^r03>8^`l+^`0GN)E|;Q3(HX-8J1xKLavGzJ}z3kCOT
zs=Kc4oXmeo*BKf0^!_=kt1G8kI>V6iwQqk}F&*|?C>m1eZcGm{1!P~rZi>#(@&w)a
zr_uhlu$Cw27pFMY#f3>{0PmBV$6r@6BLj<d*zE#FFg9@b>oROMV<@^i%;=>i)%BnA
zPXPtlC^R~}jle+(8q@jbqF>u_pTQ^J&=Mqo9$+|t+}XD={&mfq<mqnPk(KP-JX~!6
zv8k>$4irTvcZvf{4R<9C4+=~`W8lnZ^ZnP|tEqb=Nnh`goKc1X_5dg<vhYol3Mixk
z5@U=cDq%267!bxPA(2yA_1x^J_WQogib5K*@2~tOD-c3Eu&?kdnf3IPru>jLE}Cv+
zCd}@-nkuqPCe==fq=nJKX^=J%HHaupbrgz7z+g4iaYSuRO)aeYCISl>s9<KnDNSJK
zMh4|M#8blJkoNXy3{e4tM&lGnBrHXNh{g~Ua1<1ZU`w>M$0KdowdvC63>zAm0>c1w
zMNmOacr=oXMcUXZkkKfD0*QhpE7;f)kqWl<c4#cYj)WoFPmu|rF{IG!sPG1qhKmiI
zt|H6Yyix+=4piG$K36hg*m!`=GO)*GPjvz0SGS>4$ueM*h=l`iwbFJ2Fu<S!6eni0
z4c(MVr`ozuj6G~<baxvM3XQx^MONF!g--d4T>8L4$=Vm=WC1XgK$CV%G6jg*ly)=#
z+RcS(>tW-uPX>iUzyto3a@!~lHspP}2F4niRDcHXoi-M$rH$OAj?%>8HPD;1aGOY*
z@S12m7#buNMZ(W4&2no3&H??y%#7F7(BO2O4*D#ktEGVlW$_AV1Pa!ffX^9Jh6`m{
z0dI0)Oov>kuo_fyv7rI6_g0v8#>%Sx{nqOSMOfjwP(cN(&{SQDGg<(n40931gX&4K
z)An$4m0>AECF%@LU@;`w4rfn5k%$VmI2=j=OCsSFY>_y;0+wuVOD2;Db|{RU>~vwk
zf*fv!*~kvCkv$%dAtP<c3TRt0QGtTO+AG*#DYgno8w%QnVsCGc!C~3ur#$xmN-Cz%
z1K#)>K2!vxnCkOpDjledebclxqU`-jWtK`;vLVBqtRhRd0i=PU0X_c>UDy)xt6hW3
zdx7o0ztA^m0$YhpHA8o^XLtb?-{b(40-ITNzlsp+#&57KKU1kql_Wa?_MiYeLQxj(
z>(uy9gJ<`M>_&s#_g{MjqzUYaGbkQF<m_Q4uyJ<>+axwH0ThAU$S~Z#iSne`O&c{F
zY5Dus?53EDO~ILMae&DD(CS|_0i&3q`Tw?iKOHa>8E_(!0#u?MAUsfMb_%w36q15H
z*&c68AQOo;1fU3}==oOzhQlj?`C@v4_=f@e$2sWNhwG>P`85^&SN-{mS?o9ZGvm1f
zHo3lIKbF>+k}bvW#SUD<s$S2=8&>v4R38c;Ij}vHyi{cI2m+djCXwK3;V4Hi6(EQh
zESRX-QA`>YNQN$r>`0-rm~Xm10~au*!?$?Q|3b7?HTK!iW@yD}^{58`0JHVS1aq*1
z=H~Tdyt)f8-e*LA*H5@#-{6?WX5?kVAUo>7dz62PZc1Kf8qA=ejuLBA6Yi3Vtmf1X
zoXk{BGOVgtv)^<s*i2QCMZ)t4t0-$0vH^DVUl0Q}ophAwEKF0in>kV$Q<JHVk}GTK
zg6}+;uAjlG+Q3j>L(9l$I*ts;37P{FCwxpt!p0e(<`41vSj7Ax+7_nejMy1+{R2Q2
z-Pz6jIzR#zK_Z}0*eSCK^o@-WPe71RBrKYpz=jCokytP%gDHuHVHzU|i9lg-U>cmM
z?S23WPwIxSa%H9bFVK-hLSWEDJk0y7D%mJe$nPlsJEVkBPO<mz1H~gyKss^2-kItm
zo1EXlVdEs>5jZRnizH6x|6Q0m9$-hF-PW&<Iv$O{<A^9QTE7PKe@sqTxv<;%b(lDy
z*^opM4p@o5L`@VLfx{CpXm+=LmzwG>%zq){L?Qx1#1b)V9^{A+0goW!&`2B`4tvnQ
z<AvWvIjxe}H2HOMq6r8T5|2W&MVAAVh(h3z7y^pTh5s8sRZt|1jE)L$o2aW`ala21
z1&BvN5imbU5(y|KJPJc%>r^&a5*k4u;&7Z{m?kScUy{&h;y>#p6|n9DXwgJ~_G^>B
zPFf@aO~ND5oPM&!9_S}D0S^@HGyynZ2?#WjfFrSo;wujji8v(sXJD}?0G5RO*I@s8
zQUdNT5(<Mv|3FzlLnIc7WwXauuqZU>#ZSS)lm#;kjFw&X@2P$?3WNVa2jGAh5eWng
z8x@DNM8M2M41qlsU(rs@#Q!vj8mgdiFlkW)JV474+}}ex)y#Jq3xfr^05})fsMu(U
zfD!PZIX0XBE?P9qwHOxLawzocY>Nf64-k7c2{{VkI}ODKOTr+~AUBb16Z|Gv6idX=
zSeOz11y~djK_uX?C=L&?h3xOp5)oK54$a}5-$RSSB4I`#!KCF>@f(Z)vnMc3knDk-
zL0c3Ua4b8XLt9|U08h!kq%DpmV?-1HOJM7i-vA4&K;VP`_8wbL|BSRG1OX5F#vY0p
zq$QznxSwbQ7GbflgyA_2{yNVR@dzxEfX1W0$BH5#@E8n+qlDR%{X63Yg8<$>5(@Pz
zXpu0}f{sl~^{=A^b}`@r;#bATrYr^nx<Nz%T|ZSP8!ZWNIgW_u^kSN{Xgn~xu}IR-
z<}nNw=2{jbpiut;FR)qAXcCshDaywCH$n!lAJ9lN{@<wt7AN3g69I)|*YG=R3nUx~
zOfNPYa%7BzKoT%W6k8J5w8i3pF#skLw(|MPwrC)b_@6KWYtls#U>QTB+2Z>fXz@U3
z;4L9GDh^r{7PeeSr0-ebJCc7z`zsR}i?k>VOxmyd{nz;x%u86HZDGglx287^EFJK`
z8ek`|Y5P9{3zUJ53YNtO9L4w>lm%86ibTM`uBmUqg5?z!hamu|`Bun)?4gKAj#b8?
zEEd>5*q<o`G;11zjW3{C*e(7#Wq(jdU-{tsMJt=OK=@IBaXFfutrM^aEby&^#qU4c
zG(gF~<i){=|BWdQWE_XXB5|C~vULK`RahL3z?rkyc##Ma5sfFZjb09Uff)|W+n=EY
zmg4lf0fl8t>TfUumISCm#1PpG${{aoi{pq`pzyzC2C(r493bDX8-PCp3A%v!8Co0>
zpoN)%^e?c&Rv{K%w6NKTP1zrqgiTruSi|9gWU@<4(-wsUD`gA@jKn{)0vg3K7+H8Z
z!}%M$ivrpnkHxV`$f51u;sv9D#(^~_Teop|fk+^NiQ{K*S*tP(OV&8j`Ww9Pol@e!
z1#3to5$w^iQL(9u2D3Got2tuLLCey(KSK+YJKzNr0X7*?U&r*<$%{rKhyWJHf5E{E
zR_+)Q2?=|BSqhGg7XwyoI4qdbrsIDTFAiRz1C0mcMg5EU7c>v%Env-l&%RjD5fTQ4
z{2niuJOH!*u<Qj(eIyQt{;8~?Z~!kLvbqXK<@^RS0E--`O9E#Z%b_j~Y!?xLDfm5F
zJkVoc;rqR;p)p{AiN=FXxqp^5B1~PDxq#<bQ@_p&IAF~JBZkNpbPig83X8&lrNVc-
zfX9GUItnPhZ+QU=L>5KDfqMQKExghJ%z%T<@~;E;8{`GdiwDf`qbC^y{9^<>7V`sn
z0Ug0^DUL0KY*hw4s3_Rk@Dsdv*k%CEESMYERs05A3<|7$kr>jCybFv8ED6JL$+Be)
z%z`M`*kl)&h6_XhFv-v7VAgVywVM1lmM#XE<ydf=0=sbzHvl%lVvrclT+2pF#2~;%
zG?)>-<py|=P+*$)sVZZw)mdJUf8!1ViUEbk5RpHax_B%Ci9-{9blw5a0trk`Y#x~=
zE(V9d5eOvA&uj(~%nMVj%dX)!SOJI#jsPYDHmx|sC4l(@_-r`pl}%iD`oN=598bhF
zS}@m5bIw1rE{k(9EYqAV#J_`<0OTB)Q9rN(0a&#J<ky`UHd??6z{i9CehS7D0a`G1
zOj(cLZPV!}&D<ViCC=D;13PA{DAw&0ock!?z>G{&Gu4a@I#45f=Z6(LwIRp4v4b_K
z&1?~_>zf-7SUF~H$Z5ditp_YGa}_jFW~<7-ux4;LFz=9voV6=w+`ls$*n~uZ*_K57
zVLssG{-;p~a8Up*76b79Te#qUKO_P8>3^7Q!Td$S;yC=v#>)XVH5Aia%8C7FxM-NV
zV9EQh;etgAaKGU=vnPkTK-|zkWun*y`ftGfKft9r9ya^v(-i(+U{gad+EeR;f5D)z
zbLIcw=Bx@BbKp&eEr5UH-yndw1&Id^j_>&sj|VOTB8tdPU=KJR2Ty80Sla|50*wLe
z{FAL@SfGH?hutw>*CW4fUjc6n7K1?nqjO3+IP3}RD9}6!>}z~$YlA&gu#m=oKmX%^
zb%Vo!y_}!eD+G8|3r@g6%dYu1ls+I8hJ?d?_2jS@ilBKU8Y~&ua~GSoIABwwfmy<C
zi#?%&p#YZlPZwTOE(7=sTZ8|?yutxz7XeI>9Ltvj7-%sfaMQAZaR4LX0zVooU>(lV
z7C#{`3T)lM<{)eB#i7P;P#EkrgL@4L*dI(5EZ_$uuwK~-Y{1{gPg9t{+EPLNYzq&p
z4`ICE{4dvvV2OnX#ea0r0iOZ^EOR)P9~&>Qr7$QWj^l~uOa~-jO8}SXKTQXQU{yP{
zwq^O~2y99I4f<k`2s{ZaTiA@skvBB3tBK$i4z_+|;|1{q0`Nex+v4E;rL{O1GC*JW
z43ybdJM`D}1DNcwc;FRg!{XqDZ-xcb;P4n5FNnuu0RON#{x|UgCkMQf2fI4JnXQz5
z9WQXj0S_`~*OLPmxDJsR@KD3|+6;k5gAGY`^lyR%&q@HW;0(ZG|Alsdm#PGCa}m3n
zY~_FkG@r3&#wP7|(SHT@-&+RXm4t6l`|f5mR*o5#E!+GB4}icy&XXsq>?cJ2`~8ms
z|54yS3j9Zb|0wVu1^yqRz}IJ2!DBWmvR>fH)XBGkJHdlZ*5K}NZQX5JtjBEyH*cfT
z+_=F@#9YDK0pZ(?cbZ$s2$X`Ch|LD?I|Hu^vmw*n^^COP7coNMDJU8EaVR)EeSk-H
z2dbvtW>%rF*+52yo$!ml!en<3@UAK@1CSqM2cAL&;lm*8;>B=><KcHdiP}2DVQ%=X
zPof?GAP6sp!wys7^{hNo;f-+E&XopU6UGf=cDHl2gTs$N_?RaXetj6vHV_W<q*A;<
z_!S7RbYZ%J_q*}HZ=@4-rPzR1n(@N#m0HQ5kR9RAF@Uh3hp{1e&mivx@G%NOhZ$kp
z8DR!^j~B=bX}G!XW4+l*W;J<@4A_h#%50{1xlkAk1p{y&y^V(*c-+_3-G;Ugf~NWm
zmx31l@TeIpdg}C#i8J#3QxG28sq`;9SYyT|{_Jbq*OFi3+^&GP;(@pS@tpY@XB!4V
znMWXKaqZW*m4AXKw+};5M%j%1h{OCc<6&efg^Yj+$~k_Tfs^y^12ft~!0mA!)01I8
zh5>Um8NAqx=^+CiNhDKb6uxKTe_e0}tQk1ggGY}k@S~3u8B@Sz@H<w)>sF^8c9Wsf
zzIm8%Mh*Y6*o+$B;1pkjfXKB8NYokuEhrO(csid!ydrZUo?Y-8(zrO|wr#d4c*Gup
z%%nd~@jVEGbk_Ns6L&DU<fc<uFV}-K42@;TOb^egEWGd!A9!b^5F`pM0k3Oa0bb0i
z03N?5K+4cY@QT(g;MJ|hkU6v)yc^LGas_W)^@9AM15hAz61?H^A`}iqL)V~qC>ctF
zGNF6W1E>%xfnGqBP#yFJdJnZjpP>P06nw!$fNLI?2-gxWX|7dV>$uQdL@re>Ev{``
zhFs=cd$=69Xk1J#KdwVuC%MjXg>%Jl#dD={WpO>=ddgMKRm0WH)ymb&HNwrqEyyj(
zEy*p%t;kK}-o(9?+nC#m+kty8w-5JW?jY_<+*i17a%XTq;4a~=<bK25&fO0_urilN
zoM$<Y0uPZ#gGZmog2$f6gJ(a_37!z1D?G_O**rx&6+CZvI(UY8`FTZnWq1{Mm3cSw
zn(&f&_ww%NJ;fW&dxJNF_YrReZ!_;_-U+^We9QRO@hS1?^6lhv;Pc`O<O|`u&X>;j
zn6HxWJ>LL7KfgG?JU@YdGru{%6TdJ2DgH?Q6#o1C<@_!D{Q?34O9a*ls0io_*a$EL
z0tLbZZVKcJycBpZFf?oKEa_S3S=zHKX3=IHoE0)FVOHL(m$N?38lAmh_Nv)Rv-M}&
z&E7XVc=ol~*|W=Lzn?uiM|h6>9F;l7bDZWJm~&}P@|?$W>gRl!J9n<^T+-YfbE$Lx
zn0smNt+`L;HqRXvTqw9!P(yH+AX6|%Fi!BkV2$9HdGqGU&D%K7Vjg2&(7gD01@ju`
z4b2yskC?AJ-)?@u{D}D(^Iy*I5}GZvN@$bNZXq9`5TV;bWkMYbW-pLips~Pa!Ttpi
z3$hkeFX$H*5k?8?3%d%R5>60)D*S1oz(To&S_|zK9$t8LVZp){5gw5hA{ruOkwYTa
zL>`O07v&d~7u6MY5<MxJBw8x^S!|&gR?Jk)TP#8>SL}^AkGPz;uDFYMuy~qymH5aa
z$wiwMQ5GFvl)UKWqQS)yi#IN&EIzR~WpU-=ktH%qw3aw8IlCltNyAd!rE8b&Sn9Pj
zYU$&p9TK7v$`WLW6B20>wad7dtzBlg%y-$<WzUxNOG-)VNV-dgNft<UNQp~rlyZ`~
zAeAT8DlH<dDovHXAe}GWCL<=ZNybIylFTES&&!uB-@Kf;JZ5?6@=;lNSrgfVvMI6+
zE9R^quCQNmVa3B0pI1t+)LZGdGI3??s@bcEs~lH_t}0qJC?_vxCU;aWQ|^=eVtHM8
zANfT2`qlGRtF7L<`pW88Yxvg?*Ep|<T=QZr_gdUq$F&h_%hqwP!>^;Ri(FT}o^L&A
zJ#GD!_0<Z33Y!!>6%rMi5#oq#h=YhsM3>@9MGM8VibaYO;HD}U<TYd+Y9VS1>L4l`
z)r($>CZi+JuQ2m4+L!>$T}%&l9hQQP!oJ3d;Ph}uaSw6hcmm!7pNwxMtR(CqTqaZ#
zMTrK)Q^Y4EK9V{qfOL;Etb|u$D5WWND=R2FD<>#_+91Dyvf<i>78O|)8<iN9H>xtK
zdsP2aeWSKq%|`8t+S`pQHrj2xzVYLxHJh9^-Q3irj#T$hPgft*P}1<%xUb2hsiS#9
zvs7!LmWfulR-?A8wu5$}_GcZOj<3%B&3v1;Za%xYT31q+tQ)WUc?)5S|CUEv1-BY)
z4d429+uCg&+p_hz^|t7p*Q?*YYCCOvraq*vtAAd<!9d<%uR+cZ{v8H8B6fT*L>c-S
z78!{cSsNu74H&B%2OHO!tTthqJTw(D-DMhYI%uY8cFye0PQ{)6J4?)$np4g1S_oK}
zT3om2x74z{X!(8@Zdc&0Dl2&_Z>y)fm+p4ioog**ZDW0V58ocMJqdfpZ1ioe*!0`#
z+FrK(Ox7TWlH2Vz+Fh_~rKnKOQ9jzM*q^ii<e=hk-l5e|%`wEWgQ`Idr}j8)c8Ycy
zbk=u{bDnfDb4hWX<+{f;i?)#FOnc-e<>u{H?!L}F(EZI`rM(yTe)ibvah=XZx1!%=
zhyr8k8FMxB2(#H!)ic6#$jj90wzsf1&HLHDwfm0m`{<+X6YI<COZI)}x7_c5U$g%v
z|Cs$;`)&6>3|J9xIN<#sI)B_aFz0~tf#(O22hSbsJ7jh!`>^EUKMuDX(K(VBI6u%M
zu==R-(dc8m$Ee3jk7JI99iKR1ccS<t@?^-#u~Xzz#ivoHFP)wYvJWZ^#s^28;Xgw=
zQ*~DD?2U86=X}n!oYy;_aY5$7i3@!ftuH<e!G=VK&Ix6PzPYsR(%rC?VQ0d|!X3ja
zBh({OE-$-${PJL=UF6HCjZw+blF=ulNB*S#`8q}?CgY0Sm5{6aS3R$OxMq5-D3%x-
ze|_oolh?=NXmM|D7~XgkPl%6CSe6i+$eqYcY`wYb=8GiFq`S!q$uTM7DJO41x0tuu
zQum}*rEN`nc$;`T`Od04m(xYkPh@aq?92F^>6rQEuKC^atSwm&vz4>ca}YUk_m<y_
z$Q8>C&YP2WIBzoFC%^x``~8jw4i8!$T0g8S*je!E(T+!@kGDR4Qm9>6P_(Hi|B1?z
zdry^~W)%~QGfVI#8P9Of(x2m=r<dYOGs*~McVCcRWS4I!&wHu%@<D}WMd2&mS0$C(
zE6b})s$N&`s($m@?)9e{mzthh&)U(tKkE7FPc$rO2x(l_c%^AgQ_36so7`s2=4Wq>
z-qy8{TiV~z-;KRL{9)dQkdM+I<3FK4-D}luebHvw_P*V{eY7L6Q@HbT*Xpi2-5a}~
zect)`eUC@aWbdgjOTNVQVf!BT8}v60xDJdCo)}s(bYqw}Tr^@f@^RE_OknKN_?q$T
ziLDd$ldj;M%wN9=wh`C@Q{M!e`r_6vow>grJe*@jN%#v`+?<484NS7W38u@nn}-X0
zMC<D}!PbLsf&sG@;^zk6wc;ECv-tUVXY<Sf-$n!91cUf_K>M6Tki;XvJ&S8LG-vJt
zh?|QCd=-obM#RlOo5=;f7beWNkbk*=h%7V<CAtZ{LTvU9b#a@Om_>$r4=lDlyGkP_
z^|Kt-W6qKX<v96fBmBXhb5}Ht=~~(Z9r9`uQ?sRM4`06RwL8Q(f0%Ohc0onU8lwFd
z=30`{X5B5oSaWcsI(d3|@AEklc=Xuu6BjOqgkA~@zZQEv?nZpVo%D>%yII+f9v2op
zd0PCcva0%ZP3^n)A3lC+ZR_hF7#tcN0o{kcV#dqE$IHvh&(G%yAPa-9nDL?bAz6`4
zI|R@+qI+klA6Ri#%rM4Q95Xw0<%4n!kI##m4`RW`%odY1d#<F(;g%TVwd~~Q&<~y0
zX25t&C`?nr;Ug@-U)C(WaP1EKIkSsX-!ogSV`fj}eA4Xe_sll$bo4%U>BikBuRjfu
zbj_*zj)%o(J*{aSUaPdl!pY}EctUn@ZQIDVpB-yzY04hd?X1Yjh$?(oNz?1h8W<?6
zyCb(MsjTaA6~V2Uy3|2feQjEnQ}~vp^!2C2m``x1TOUE8ZN3ueN(Hyy+>CGEUG&=O
zs9uoc`Q<xOGXonNZW-K}(4SMa^^Yg-R$Qmv)4N8pve3&r3JPsGRq8c6)4j&O=q_gQ
zJ@Ll6q543wO5`)Mmo4r?+q7lFo$8Z~6wW7wEM4!ZyhKNTWxB|-)@7)xm@|Jy?{9Aq
zX*!bs%&ht7m-+Vx=D#1JH+oC8K4$Lz7+0%2)Z%Vg<YI>(*qygD;gn`Yb7pBn-I5cR
zrF`bh2`sXEb8r_kpl<su{S}+gaoK}9)&R`z!LHo$ZNs5oBHpI-j<#*~EqVWuW}6+5
z<TR))Pa$K(?pjr5d+d8&9UhpGe26D=;Cj&mnrmIulV$tS2?-`wV=fu(c=>z>YO}2u
z_(<Bh@ysui(4Ql5EvBWzhqUx-a?5)1y*pof6%PayC8yU%K0RG$<&3CFYPdbHzq7z~
ztxsgxvDcSwYVlk?V*BFRQ1#t}6ARAW+23x`E^uG^!=j#|;gG(<=I*AGVG0dl?Rq&i
zb>|c0in}G_&2A@pNCZ1KXB7J6rAQomqA$0x`Fc@Tt%l(3Ya*C-)8li#bY+&m1-+}z
z9Zg|&1H$=&?rNI7>;8fqQv6(&>0^CGRd4KAt;*KgXc;G)xVG_>%SBz`E$0K{P*ROo
zOS;yV3UGzoXHL|olx=ow?e#sFxF|Tv`?_&hUL$=GAYbA%`MzlYrY9W15VoDz*oUCg
z<w_n7dhM_$oVu8FS}*QoM`XmA`m(b+j!jaRmTr4hqn%_f8h=ddo#3qW@zE5s7`kEG
z+#60Zw=7R<ZGvt|8*<suCsfC)v%CMPF;4fk<(x-*erPD`5<dRip;Tb*#b>9)>tdFu
zJPs#jFKN#|{05bTL%+kAD+&aL@T{~oZ!j}#Y-#XKxH(iX)~34HFMXJLZb+lbxS{9Z
zuyjU7P+LPz_nv{G&2IDKQrh#oT<#L-zFyuBa^F6Bw}v2#fAhy<F$EPXY`m99D=Ku*
zBBdnJb+9Xw)ql;=MZ;lZ;%#oBk<8D^w<a`Q71Db%)8kVy9Z~TKg<T0@?GE*_u^ELc
z*5#~5iuo>b?oz2*qyPD)y^*}mnWsx+L_a@qq8@H+Z;&dR9y~T}Io-9Me9^GtBcY@#
zb4a8Ib5C`b=RGDaM=f^1W%S4`W1O(zyFt&E<eOLTyCj`Go)EPrCbrm3uO%er@q-P=
z%8hajLN>MNtN`67Pv}ca5(K{Rwne6nRp*BVN%J)M_w>%mXVOwmTN&l1KE3Os_;yjz
z$g{-ejO%k_vm@}sDv?JTB^nR$h6x6?M@7YXn6|9Edcx@e#!l*XgVP@$6K%Q!-uIVV
zT|GU~%cLzm^mgz`Qd)OdTfliMAVd?7I>ry>#K){yf~TYsM_dTb%znEQw?5)&t#Ku;
zkq?5YYZ6!2wyxaY{z}rUyEn8$GVavGHeYGAv4YHxyIe`50=HD1I#Mn~L}v|}zId%H
zLidy!7!K_vPzLadsEbdHUHxNEUTNGH?-U=uI{xu8?%6E|!&e#{!+W<R2?|CXPI<4_
zqd&aOPw;iVeD$#3z$CP*Ydll#Lt(e#IptoVGZAigufAT~Aui%>KVbj5A>y{gr5g`B
z#;@KQ$kSM(val+xN?~P1nU#rQQ}zbuk5%LJ^5F-5?L#`*9uk%!=@Yho7WFl*U(ADw
zIxd?w4D-Aiu8-<TDaqa7ouH5y{Fqjo{k*{BoX_3E!sXY>6wfja-SF)firamozty@<
zdTkz(fuJwS@GX1irOC*9TiTqMDJ8^Lr;>F`>7!zJ-B3mtdfz>5W$!LQ+-`l5(@tJu
zVhdJ0=0Bel+IYjKf8$%9<fab?ZmC^JDMK8ni3G;RyL`<~h2Y58I%zqjLk#J2<CIFv
zJA255_KwJg+^Vdxu6;KM^B<SGKFd?Tn0N%QGuKQ{S*g+S&v1nk!}IS^+sm)jjqmLl
zyr~u{n(NxLUoz9ECy_R`xt>@Wah_&h+FfT}njYUa7P-Cgxk1;ycC=egJOPhRa<-OV
zrKMq48=D}dD;OJ;Js4`yKM6flCrmtUYkF5%7kQ{Ar^1QZ_^>t~IeKzUHX(1go){T-
z$FmWoR1x#mFC@UjA>k8p$i>fNOG3q~=gYS2v^p~0G0bcp%C0FA{xbLN_BZv)){bvf
zcZ_+Kc0KR5)DNohwVvDH?|QM`GH1DQ;wqeY%|ip4#i=Nt1n+uu?0UmgBVWsCpP0V(
zN~v6rPV3M~NJL3~Z)9|%wETn$qpCx~Kht5*A$>GD*{5B#&U~K1d5@xFjS}bQS<7*+
z&_Mb;K2;HOyny)9wT;<!;8DLxe%aQKA6|TlejnDGNa`7UA8Oq{_%wl*)Yj1b>SWre
zzP(1R$zsXQnw+Id^D5HZ56SNcE4Iy)D-F+WZKtkzA7r7pzFhSJBClO@Y{YaDk`IW=
z)u@?-N}Ap<g*^On+O4{Kol~<9QFe4~vmfq?OuW>k(DXXYC%o1uxcF^v*szzWzNcAb
zQOg2d5tGgLp}64v?R$d6K9MH&G%cQl&SpLfzK~0(4M697`E&WONY7DbXXD+Yl;8_F
zA{3g!18ccfQbTBkRcduAjZ$CZ*gBZ(ns@_sR%_F_aHpp$96~~<%U$2`1m&LSX&d)%
zPwLb0XnL0U1}{RVCB<3ymc?%0YV$FuvZ-=tyh-;`t$#pP%MH<VU$21fdmEE$B&12F
zZtS^uCv4Y|m3`}V>eqWojaMb8_$c*>^^q)=uD_1XIKSf56Yz1dmR_tFvdW<PMV0zR
z(TjIX7~QK>Ojem}IMMUu)RRvSE}Yo}v}!r#!6by5gbqqX`@Uih)DN4#9PTX8&DvfZ
zf1{v#&a#k~Cw&yu4f3AT9$fw6BHhi{w?_PI>LEGjkn|&{W7{?Nvl_>Z>icvm3~HT!
z>e5hjtbS+=|Ea-u-8#!7Nr8D0(m9^^<|myh?=#n4KM*Nf(s}y%v4lU9{)lAsGkP`O
zpcklAjTrk5?rt}7LX0(7myw4P#*Ph9Pc+m;3ys}Sg~;z8j2*87pVGQqiykZM_UXvb
zry6$5FKVcxT|cR4SuPrOPs*$4U~F>WQRS_FIEAMgr@uNRk#~n)^(ag6P?MlXovdoc
z&7p{%`yH!M-6vyejdRyk6UU_19*@r}CqFc38R%TUleDI_V|hsMgY|qSSM4Z<xau1!
zN;mS4TgktUUN#9u3Ay(*zUj()(b;(BVSs{beomg8jq=vL`u7HfwlNF)hY1RcY?+b)
zHk7NbJvFJW4eht7b_MUfv}n%Cx*2V#p;ojQ_u0tt>UfRHMlb6C#?ivg^8_;ZcAzWs
zqn^uVXKE^$F|fV!p{t<QZrhxvW6FG|<DZ)v3TC`1#%{ZFLG+4Kaokeb({+FonQ>Bw
zRL>3P_ej5^wHLe04;|*I%4tbO-c2vF8)=MCk&;iN;=d?qMqC^jbO&PQnz5TIjyh){
z9)phLw%X-8Xu&Hb5L@Kp7ctcEB5VD8iF?4Lh~7rYG?7!!cOm<d)A0l=GuoE*8k$)a
zH|OC$mo|TRw&^6MXmH;4l?$A$e3)}b4u6)UU9JAJXkP$Q=&)o!MUL7#@vdR(7v519
zJIv9a`^zW+*E$oe(|woj;&a`utQ6^crqIq=d)P(6O0>jmY_-XF_M>jO3x)*^j%SEb
zhpmJ2*QgT4Zq?!<zO)d0`t|)f#%MZ2cuTcP<&SP|PRkGuomXy7%!_mp^S8USA?s?S
z+^9u*V1P*Cr<eDmnR(X+%bvOgPeO|_GL(J%0=p1-t({rn&kZ{xb1d@)5d?u9*@Idh
zIWIb`B2UC$q6`MMB?sXhQJ0>qZNIK*zxkNy3K&P<nVJBc>S|B%bz+xlRYt37*7}uB
z)aIH8U%OFOaI`d^+<ozhYH<xt*%^Pg^Ko!}MD}_;<4eUBCw9gr2Zfs*Rw{htn_}$K
zKX<=h$I#ZwoKTgt9QpT?P@&3^T+ck~MVW(A#SIOeRT2UF_I#-+ytWOoXk9uwA}Ye&
z;Qj4+)&jK^y4!CX&puOlbFp=U&(-P}a)xsCwd_SA$I1pn_cGnKy`c|Z%IKO)s%<!s
zuGB3QRxeUfX2w5v(S?Q@7p-~w?R_lF?Y8W^Mr|b496WO^cyDvnQ=a4PNA(Bub;l0Z
zh3PfFXvnF`Ex+R)5wYerx-KzcFt5I8)aj7to8~Lgn2a_|o#l!Pj}gvd;#+uj=)Xr7
ze6ZRh(%s;jq_JQ10k8DuJJR7&vuuw(@4*OdXk1;Tw!XJd=<)59FR47c(uCW{Psc`^
zLf=p9PH%r%Hz9@_EAcAY*!QtWCF^tI2cP~js{B*eqFbZ+bIZpQ|2T9D`TCw}dHm=z
z@qw5JX0N&wGVb21xRSm7&f~SSOmkNA6dY^Ud{Yr@sm%;6?mi`%d3Uv^qN(4hR>ZT$
z+cvA76{TkooH~-4v+N&}uUsK5i~f9B+->>Ub0LSTH3k=csu0-{^JJxvPaBw!jDzjQ
zc2DR?%LRm)Z62$xkL-V;{PDx}vWC}^7gGo1UJvWs>NRlN-_*Whos0RGT%BX}=`}Z-
z?E8&ub*~-d+P2(Db9BV%kp80J{nm(dpt7rT%svDcG#;;C;vd_Pzc!D=nCQ6whB~<2
z!PzswlbKggf43psG%a0fe+pMNK~7OYd}+%4w`<P}1)8cSJU$@RU!AaS%g1Zc;B%o!
zx5Ls)Q%BY0o21ufD<{T#O*9sEjb9>|?b+klHYip4Y$urzg^`pru9=-dA>Yz0846T3
zpJOk$5iAD`)<hl6i|s;O@6J7PxKs5^$Md6g4bEAHF`p#{lf3MOd^(rq*Sy-QV=2l1
zrY^lkkfPZqcI%#)@Xe^r^4dWglVf$Vo3=@|^kQQ6V_cQ|zw`>-RcgOJ5bL>JP--3O
zweM}AjOAqxZ3RmevNGO0t=wdu<+W=6`GKLfS#8cvv+nFg0SuLdvCawGNob|=A+Ebh
zD~4BhZ4c~hx@2j#C*Znkdxo#lm0*dxt9`oWwH&IsFltHZoHrU;gB4W?j*5T2HRMDb
zeHOB(8D+F~pHt$ea5ZK^^?|m+fP2;(0-AFJa@Fb);H$_-CBT=Fj}BFj5GE89N0v@P
z_P(P>1_K)0-Ubxivu-Hs&g`I0pav}R-G-v;CZUkg!QH*>ljXOihs?LXdv2q4q433{
zmW6+|3?6+pKjwZH$<{$wPVS_w=S1uEpd0eBSI(<sI-Y3jJ1(r>mY&&O6)aqJ-@2rL
z>u_y8G_jzwAxl?J<6yy<&d_^}ld)G%+r|Z*llrsfEnaJrZN;t}RE~10t?tUvp0_@q
z-zX9D`m08CC?j9?I1B_jr`*nwcKF~a^)Bw&%PxiU7wdMq1imaY>{@#w`}qU?u)2#3
z!{%Q1k89gMhNRjbsk&|+dF@r{Be1Bv9zC`~L*#T}f7}<$!yP*w%$Ga#ZsO&mmoFU6
z;!aBF{?TZBq0eWTnD>h78^iS;SnqF3Jfm8Awn443!GA0=zuEBOD7VU?I~m=DO&<<b
zFPW``S;61%sJum~=+<DAQ?#;NS*_6n$yIU<f!ja4?)P@`v*L9+L(ar6_p>p?OSSvE
zFvki<oD=u&9#~Wma8&Y8b%a?eYBVJ~e!tFusO5PV+sq9T^w>N_{SysYm)i7<<E;;0
z>BxIg>Z%u~{O4!07WD8ObIr5ZvufEry=}KAp=Qh6z173|?^^N++8PvBr`)2d$oTT4
z>a3buJ2Oi<VoTg^?tWdYk%5-GQ2C}cP1$z^Zds4fh8-n5pY|9-D%H74X#s(d(7OXY
ze?X9Q@t63G&`wBIVb6U?=ufEu@2GpK!UIhG=+8mhwB_9cR&RfC|6{6mN23t#%iQc9
z^HccUCn8pzD6#F8G%D{)AF7X1%2;!w{nI)s#qmR+vG=>vCvM4{?Jg=w5qey1I3!%D
z;yZR3fZk>`+QY3EmWglD2tY=q+-Oo0rRyJ!y>f_B`HF&WIDWYObo$wN%qi3Q#~%j<
z+H243&{7Ofc3Qs<$#-^p_F%N7xL@C=<f!4WUbkkU!ugNe8!o=a`n%<)N#k?G^&T9(
zZ;zG;u<f%=u5TaDTu-`8(<nLE8T77+IO5YLwY<35-F)Xt(_pLI>R{m)(v#2}okFtN
z@EX7V<Xy~JNs<9oXHGoO)gM$}oKu~sxnoYS^aY&-<XAUKzSMwHh5K01kdL_9S#1en
zwcbM$R=A3{skcol{G48Q>zOIcTYu5GYvq&eQgZ^2m5A*7;FW!bnd%lV-<bWneRtWA
zNy;vlUHYW~@6Ok}&P_a2<kryKD?v)nv~P<kd};V06Cpqyh%3At_`2xhx;MwyqR+fp
zo2jZ5&--kG%X0NrfjwUDtAeFVu6_iVV~4XE)TC7regVMtYNEf(kf#P9rRtMfM>>0s
zCPqtND(LqV#y8CGFR)27ra!Pgp3+Fl9Y0)DW+dW7JeqQtO1)Uo;L`7r6@Bp1#Jvg2
z(cm}I1(DT3LlpzjQgkbY%JCy7YhQQd4>}M+>b|s~m0L*1Y!*EGIOw@OIUy5s2H}CJ
zdbf6+=JlJ$RoYYb86_kY1SqJ5=Pv-`t293Nd6C^9PM<k;<4UV)^YxmGb#wHJB-ihZ
ztcZwqf1j<Bknp9~h^Cb77g!RyD)7<0TP+Rk9zH7$Msjm?<-U(PsWv8mdpOBYY*_wt
ze*7eKQE}g%fjB+CLv5uQ@k6ay`&9-82ofi2qnF=UoqudkreK5~#`uo+^9T0^EnYoG
zwA5CXYeY`StJt00WWN1eCE}BJe_K#W-7v)u6*25LMrfaej<vWO&`znDbnhODcCdG(
zJkej#-@V7{qrIoY?iP<PcCGOVvGvLUl<u|5JU89<ZcGl*4$@ta7|CotQ2wkbOQ{1<
z*cf)1G6@~G^^AJ^w59K~-r%dnKE(-J6(V+w9t%AwF*<13zO`vc^YJRYPK!?I_^_3k
zoW{Pc{Ihkkp&sv?uJ7v=>wEqDfKgbHN!9Zen37f6W}bHSS??n+pY!idV&-_|GV>zT
z4mRhXI$bm-zhu05alw%#O}Anv(8$6YX3I7gd*_V~*(7tjWmdoKJ?+D!!^Q+AkJnSd
z`issabY%TlU1#GvvqnjivDAzYBW>0veCHyfz3wQr``e5vOIKc0Ie)Tln9FiwPJxF>
zr+-lh37J~0u<Zh$m6?R*g^Bjv{t`_?CZQ%<j|>Uj+3(#?(bKmciy0y{TJ6Xkxt)WL
zxNNq^)haiSz!b7}80Z)G2*>O|@T`cgf1S|!>4U<yUW0jCcD&bBsSXY`3<!&+cIrn*
zf4<bv-Wzu-L#`&dL8ATbB2zC{EOW@u-??Ld<*vM^q3(7AOuHUq<7TPgy^k$<MU3tl
zsR#zHnSXqxM%O)W2KfH;;es*GT5tXL%pRS0A)SFIeZ6)MwLfpagC7`t*0Q>8O_l$;
z%$(5Fczm^i3%|*z|LycPH1d`Gmw8%}IBj3d?*1k63EpeM6`9TLA1nO=5KpN-W)ouR
zW3PO4l2CWYV=5a?zd*Vr6{KbKueBL?S66dOdhsZ~)l2tRQi61Q`+ENacjc+iw8p}+
zGkBL=tGxY((x72LWaiVz(XsS^D4qM(A5cvyI$1dpZzhCV23lGrbIlGE8rf0WwwE=K
zR3;&5JNp5*o*m+ig#&$~`lypBv0D;u`i-6!*lM<kPkj!F68E`Osi&=lU~TTFKS8rB
z7-oPaWOv~B`3lM7mxgZlt`NSLII6Vr=1E2s<GuaUMuug}HG&*|8LA<N?r(d0G-Xj(
zQL~q*sL=5n=I<(m8lN~+?{2AF1-uyfc=4jxhNj|(wAO*3`nZlclhFCF$hdQjj3J*n
z{?9Mg_N7NUU%XZ~ysIADdiJU9YV@iP*AMPn85FJ?>v(Znnp2a7o7%1Z^tdwr1F55g
zW}V`OnAg5rY2B`=Rz2N!oz}WrUY!?QN?v+fy1FhfQ)2gpeM&x;WS_ike-m^iB*s`z
zZ^u$yiFFCLsx3DtRgX>x--9N0WVLgZmE?VpAJZQs#A}uH<D~}tvYWIj{><;fN{2-c
z-563E|EwlHK3dW{2`O6ix28;pU)0dj>pA-7-i23;3%$mEcS?=*S7Kj0`ch_8ebIU^
zw)9xi%5*8-s>1hu3f<Q%OCI^>QtwLN>d*SHZuXHYTPzaRYa`Cx*ikSmKDOwkQK{@_
z&8X$r9V-v22;ZpiHQzV}EZYXE*;tv+DA`qL$fT(^uwKH*v9mKXyaSP6YkAV&&fPnF
znbr2LdaOi#zB@K-{8695LyzGnx4erj)N-P&Gz?!p5cW7zn3%u3((lQr62|&-+V=d{
zHNo#4(sSm@-|_6Hjny>C`(#R{4_+QRv8ZA3`rU8q>Lw!8jun19CH;8Kt>GK3%}xng
z7mQwQ)#nX5_4(1$=8sin!j<)tkb+u}gj>>n>ArzajhDvwhq_gVKLth9N3R&wS^h_1
zz~YXM_tqwz_n7#G6l>92M*WRX>LxbG3Gi?~K3+s#^RQrBFt$@J`!i2)ibV%t3L_7k
z#G?0#Uy6oGGF(r#=3O1$8}x+P_&k<dP_;7ZYU+NCjydJWVh-zU-JD)$ne5I;<K4Jn
z=M&MLGE(E!N0<6#m(^4bcaBa%b62+NMKq>uz4+RS(i4=j*UzlZH>puCOXEz!C)dZ3
z#a*tE$5VJD5Wb`1{4E!%?g#G}-059*-bzqia-_fO8h~<T-JrDf*sBR0mDrwMrw;3q
zv%MPoI`s~i-O-3_xtr0T-SMebvrg>7E2m0QQkHp0gUAb<X!|M!JyrX>$nv-GH?#*Y
zD)qF})qL9h114YAR1bHJ&8?4qW<BiSRjtnKRBQAcSh!5lol#1P+bp8|I+9{0XCFa5
zdR9<2#m_a%W9Js_v(15P>rbIeWHp2Q!G-{kkcaN7cFhxplhFF0%k6%ZCiaSX6H9Dw
z<gN9pw(7zd>E;gXwoW8RyL4<xDmYTCwe|9!N8Md^;Z~d7IKutzMw+NkxYLq{qe=6V
zThf%JZTcqeH(JHlD&H2kHS#gVv(ehC+x2~xb93Py&#Kx7J4()!*rP92oLwe*hjHfr
zYv#Sen#`iNZyZM*3o;f|q**9R6;MzjFp7X6MS*~T5T!~DEd&V=g%OnA5h6tC1R>HA
zAwZ;t-dhME^cE5bErf*dW&U3~c#q%fdQYE&C(qv5Ywxx0^}Dx<c!|;x^GnynAq^#d
zEGbS51*8B^Bj|Ec*F1Xt9@GG$VVrN|esj89@<K%wKo^u|yYOfX5oADc*7B^b-4DMU
zTlh)zj@h7u0pC9wYdhaZ{)9KFNqpY5+|o2plYX;_^>_-D(0g<7OV-+r6jag^(=ViF
zA;S9AYdqOZ@yPDkcrA{M`^*#+7kb1&^A$u5DYz-jg09zr+R2eMj5|69Gdbf`R%agX
zdfXM%jVpL+Pb#1DL6mj`&VlGXy*ZDO5U;qx%|zPTdY{pETTZ`P_IU9`4@J~zwEn@6
zjo<CKs5mSbLNIHz)pB2aJE0z#ya#pQq;z|^-i|5HtG*(4NzC4$LIzfPHcEgatC0ei
zwA(z>na?(xTm2^S#~Q!}Tn;?3b4N$2dE+Dp#<ba9W^xpZ3*hrmMpVAc?THL{D#g6g
z{B!Qz)$(AQrXOWP#~G+6&sQag9^h?eWy{WsjrdAbBJWIbR>p2-Ql^!YkayW3ul_h`
zp#d6@J9=ba-{J(akvX?8O1QAQ&C5eRnsXc}f`@!p)MZ&o{?`zfH^o^VOx01^D=)aP
ziL7I!)smX(q+!e8K}^cdP6`_UxAzv}HAkWlS8CMME%Zg)OLyGyUBW+2x=Qow;2Dwu
zlu4X@`of}kX^}eA-RqF=@2<6}538jW<8?Y0FFHSPY90c6P4|N3+dqpw`8n#~`;x_i
zl{2kb+o#}7aXusOOy-eWi<wbE(wPcaqSfW6iCJmM=O*ht)7lMzk8Y^Dox1Jlw{31}
za+FfbXy@#Ea7_<rV<1s@0<-BXb?rx%kyIN|OQ@Etocv}*Tru@W$D-O9fYwRu#;;oF
zg$3wYaDdZ_PnEw9^6t)1p3Lc=yr8eEEx_+tXaHq`%egv#YZ$2;BBhx-W-VK~aVfbK
zp;Ec#wUvLQtWJk5cK)@`9;fQX&j-DPH?;&oE2dW{9}fBM2Z&9fCSPhrAg`%hSl`Z%
zu$pV^-vvT#oK)jxx|j8DekTzEcRW>ZSf`to*kt6zQ*ViJ)QMEjh6K8C1504&z<nyj
z>{mIivJ3`tnpPX_>zj3(EzK=!_7Vxcx4r80Z=#@+utC51?-}QU;;5(j=7~bOwG<$3
zbBR^B*87tS0!fBKf_?LI*2wvcp&HdCOLMvgA)@DO4P`h`F+sy&Sc6!rzN8k3&h^}?
z!h97*0JQZGgdQo)SKL$im+99FeH2zkKeq-+!h5MKA&v(3jjcG5B7+gr^4ebNDoq_F
zmJJc{*J}6r=e)B@5Bf<!n`FT#`u*}_N{GG-U)!D&j!7*&RvAyRwz4lN$|<<N8h>=`
z)7G*sZ!LCney#Uqh<74>Fq!R>yADA-31VF1!_dnq!ep|ArB`+v5qEB*55tsN>9OdL
zAf<cH&2;NW6nE6z6I_ql0zRyce{naH+FZiTyn?!sc5*f@P&#%dQz+3f>TRBBl8&60
zkVM=Qd!eV-!X4Jh;8IDgq=2y!u90}J?Bdd9HND7qkZO{iJc|pTk>d91`XIm+J|sn1
zoHPkw;x&&d$&M@WbqvtlKoLfU!Zu?@N0L&FYl_pr5VR&1%+tI_?(KlOO}4u@8=;Sb
zov8HjWIqVB4gH=i2)k+jW^2W^dIK*3bqQW@_gx3Z<tJGyt_Ms|%|7RrBw({ssg8Mx
zrccQs?5?HJI<D=D_)S-04d^3sBTsRW#_+2QpRUl7@BxtKwTysH-;yGD8CBKh!EbV5
z7?;|;JWNc_pRmnJ6g+<Nik{~22IZqehUIMZySR8JNA_8@4?>ouxhr6Gaux~YMA7YH
zR(n#h-`;5YX(YDn9+$1!{ClQc>7;ChuTC7bEw<&>gjir>rTX!4DxoWn(ADrS8GlJ@
z<`%p88~f6qt?N_Odl$y8XfR?DGqt8ky*PQE>K6~j8Q*XzYF?_Sd?9uu>1qAV1YUI{
zCMrVNGos4ECGa1Py}WbCr+4rkYx>u4J!Rrlmrp40!=IslVe7N&?n4aWe>;ET9Xj3c
zFA3+{o(0=R30@tg$w0K43j$LvtR`Mkl{ov4*?|CF?DQ@?z4RRt%gOS1q2;qCo_xrs
z(%=S{TTdXr8|G;>CA-MBL%vwsdTf9yjYR!bxRzBoLF^s>z3brBt?P@H3~zV9sICwJ
z{{3CYMCFG47H%fs+HVBzj2`G&$3xd!3@IGxCDtrl@oVAc_7q}DF&^2iRkdO3S<k&=
zK|giSaZ%Wnt>Uy+zfvjV*ls@N$kZe@&A~L!6byDOd^EN^ZTswg8s_^Yy>tlLE?*rW
zzVY*yL_P`BN$?#mF8n<c`g-A8ms9?+TRxi>&plB4kdk86sH5^?=gV}?Ji2`}u?Z0f
zDVPpz9__|=gR3#=hMbG6H}%+%SLH)z!)dnou-4~;BaVKE%0PNZY*wSEC<5cXea_rb
z1rYDIRPrq^zc5VAchlWdDYuqdntcLwi5FX*=0irDJnX~2ha2y1gB00uSKIAVC6ba{
zRrQ_^69gaMmbxubkR|cl(;xDtky*Jgx~~v&^r0dzxzT2&oPYb}kgp;u;{C_OE3Di-
zHX~%}{1L6%sJztu_loONpmbKy7}}U8<W6epbH#&ilVzVNGT}!y*XAl881e50uKu7{
z(WC0@fqh_+KT!O5i_VwtgQY2v=SC6N4zfIv4QvX!mLNZ1V+pVXB~F5_VTVP1M(>AU
zbvV9wrIc_-FXP|cE-r-y8IJixlKWdvna;_y=Me?D@hu{&*^-_Ruj*S|57Rc}21;wb
zwCw2+SIL+NvO(<^ti>n3c>LgIM*cQ>zhK&LJyaXTy~%<{=04z!?7}tpt*0NZU1FIH
zet2~4l2#*3@W(eq`C#67=n<{>P_YmXhB(;fZ;npj{N8s)#M3-|`{cPkgF4?9s)VU7
z*%Ol?5vL<*D{9nuyhS|pp^2Ty3F~xtlbuuqc<~WWs5li^5CudmC`i4{d?48J6AR<i
z%H9o-er0&YD)KmYXEaj09iCpMLFM$rQz)HCr1%XVQ1?2<oqNX#pALu9>0kE15fgyR
z4ZD`_2I;oR_navdEr|uzy@4z0Q@`_~AJnbn$Db@uD!dSupGz>aT)3?QywEf(##U#R
z2KqY&6|#7eQ`6f3%g~un!zHfQJbP)LF8nv?nIjY5@k6W2Ym8hE#uOU-BApm@t*fn2
zs9U{yJHoh<?tbTfosrY)vSLAq%E_;yOXyR<hkQsIl|#PDlLPQ&z(EFb8#jhrtA~3Z
z@(o7rzvb?}!4IJKA995`4(z!DIvYPt`3;ZYt|Pk&CPR5cEP)&j{SUYVB$JVy)Y(XH
zriMw!4>9SVT=n2QbX$yq%Y0<3S2x*KV8RA_#;L7KLAFAxRxoibdnzZ@d)Q}%Jnpd)
zclBj%Opfk*Sn1#DmeZO?cig>1E-lhETi1~()d&;s*Vxd$W={NChgw<F1diZgup<l$
zoZUwsi6kD_yuf+ii<9wTsZZXs^-?cApOf@d`o%S-T_O6J$5^vwO2>A<{2ukAM*3I?
zs7{T3$hT(Op*JGhOe8zhDqBsBuG#iXWTih7JLDrG3ePq8ycDI?G1H8LCS*iD-aUR5
z8^$A=UxbYA%TO-Bla@Bwdy?a~i6DV}Qbp})E%Ut{av&{hQ)^x)pl8iZ<cZK*@9~C?
zaYSV$Q><@l_`a(jL}f69b}`wkPgeP<!f$%LTb5Pa=7ccxXFvpX+@|^Raj+{m1p9SD
zxbQR(P4i_#eP>sH66<VDVv|gcYYW-PndF7%_k3cOVF%6f_Q7QhfSnUo{(8@8^AjPq
zLu_FWNZW7HXB$wmhwkvim8e%zm*R3|(@<qyPSo>Jv1fKt{rW5|m0Syw^lc}31%P>j
z3tX=6GpPH@Op)d*T0<wzGx`0i5M5c6Sp%Tb9wPC8<KTQL`ke)YVzW;Ej#UBlW+!Wy
z8HpLxUd{YeoX2Q;&T9!4K7A#<8NUa|Xx^W15U26P-q)H63k5|H=)7{c0@vtKwWa&K
z&x06UXz8+Y?1U-!p`HcZymz=SkyMrOR0#+XDE(eN%tk+lXw48dQ}^^Zc&Jh6;vTF5
zCY!gs6;{l2ZfXe*UoY(%vFW?6s<r1N<>wEHW3PFRRBQsG1#}Hw%wLLAZ$E-fc>fKC
zHbarcd&TEYY&q;9H`(7b)jf<GLw0y5oZ9b@+)4oQ?en?UYn=FZv&`dDy}MGQglRvU
zq@2RH5Uk~MFMdk4^?Ytg<J=vpy#I67i~zkJq=5NjWeP<k3l3+225q5__j<yIMPZfd
z&5m>VZ?oOx3xDp?0q(R_*ZHthZ=H%F1*1PZLgMa0|NM9vi-$BIp`&fYgRBZH^i{y6
ziRN|rNPNI3*afVS|Lg6Wj@MY#(aA3pUo~MzzYvCH8*O5`9AqWK-hLGfoDAnlUZ~<d
zA}1mABFCDH6PF&V0VUzWOZMYoXM30XVnmUfmR0P_vrBrr!H|rHvEq&prV(9kME7b4
z^;7$z8&zq9*rB2r)6q-3`sldshy&RzqckXprNK#rr-OPl2TJK$sRwU}^)!55W+5A&
zFa?s*)HkyaVhRFHWf5MGxKWa5DRvicN878oTx1;#6jfqJY^tcd*Q?!8*JMNI#%%0^
zbW7&imJ26EyGAk|9*4QoMYP)GhqBi_;?^f{u~gk>p6elv6Zdckwfge&FDx~##mj2g
zT-AA*^+gd6sf7TA{kRuM9K5QT3#OsDI~dPXFXIuITt#4A=(RPIOwdi$^wu7-Cd`uI
z^Q)G6vSE1>vi<Jw1?PP3t*Rs)w$Zuhfps!3kkF2tCwp@fhkT+p_7ZWm2v=n6&*u>O
zd9ln!hc_g^Df#jdcA<wC?R#YoY5W*rZkCvmq48b&;$HqEZL5Fc_3wgB<PxzwappoG
z{Px-RQ=%aW%gK`<MGUs}D*-8*wwGU_sYfT54psxMR%E-Wb8`q?@r9x#)j@U@5#Lv|
zY6EQtVjG9%K7A`JjQC)h8ZzR~>9aUJtnp~%;OHn!v7pw*-m|Q7b*iq(j7Cl`$Hb|g
zF+O_abD^u`hN<a4Cz66t#d$@jqLdCZE8yMaK8a*~iCB7Re>`s$<kW9g&VXC{5TsMl
zrCihP(NS6{HnO7t>OSmbY{HMjs7}XzbDRu;jstA2hf}g(zwjN2*0|G2-%){MZN2RV
zNXV+?H-Hyhq0Zuj_%p05mnZGsiJhsqE$f)28cJiC{c@KmB0Tj7;6AJH2{hD$E-?NO
zn5ef{$t>^B@~b>Qb@1P4wAZaT8hc|yfIesNRN<;^^%x=&UF-LtAEA%Q1kNyCHk3``
zw#11n&gs|1Zpi`(rQN&7?>ntl0Ph$j7om%aGYuk=P~Y>J7KKl>QYn0)%AAf)$RdMQ
zTKKhvdBSMSd?Cnk{xT3O+A$)!GyK5dS7Ag!NIa1(eLbqTIkwn3{oa+#Iop3roa=Q&
z@=n7_&)J3BmU7UV_Zz2hm*)xoE;z&jHV|?{c^kuEJtJP&Rh7<{`syHtQyK|*^SPC#
z@NEKtziIU`w;18AhoyLjv`Q$XcFg^wF;={_tj9{^;JIqS`=mhH$IWD6B8*zHJO`T9
zF#15JQ>Y5n<dGDjM}XgjWD3ltgjv>`KUGbF%SJ^63CtS35R@w^HUoZQ+T{m*V92td
z!Eg7JenKtHgKfUkG%Hr?`*f^KOvcVL(LUg;?-lNw5TT&SHuw)leQZ6{4>AS2m(bm1
zW~nM=;FOtfYMQMx95PlsU`hhDyRdvbdS{a7<NAoUEKGy3xudVu*T@b-mu`3(d<CbJ
z+54g^e$vX2zVn0bR#Tbe^$_x;YGixI$4KXek?fQHz3n320jTRz#p`hPwQ@)4o~@e}
zI3fHlsN)CucuUJ%sLoEIlNULa#8x~#HXcL2a2XR2u+TP^864W)+fTP{Mv_u5j=*3(
z=2gH4GFMSi*7~n`Z!{9M;Z$he_fSmO)>42@>0v?*IY`oYcN&GtU18lD2Zp3(ts0f5
z#l56rm?kuJ1AgqtfrF80Do|F^S^TJeYKE+gsWsLhBlTeHeIZgC)U6dEF02Xjj{wi%
zJIksF0g)Dq6)(FtXHmXF!D2Q?Yc`NRoXZeT+b(Pg0~YS-C1-D8a^8H<{K??pu!+%~
zw6vT+N2bl(fa}U3-+~TftE9ZV->a;j^=9*N?g<PuyO;V3-6@b{`(aYhRuPM(_jc~=
z&c+upSXaM>PEJ^{0yNzU&mD)YxvBB1s=jk|D6@XIdNZBu{&b~s_Qa;op8m!SjV=?0
z@HsMB@lid7?r^OB=NBHl$4Dj#qj2&O+!JSaIz0J1@Rc^E$v-zP{`=M0D<UeX_Cp`-
zJ`f0kton<*)=DVcoSd+2mhRv$E{Dx|1tW?&7F4Q{l1gx;25U5QzLGT|6XP}Ay@0JZ
z@i!k{SXDc&Ugj1w?v|Swmy>Dn`8&hvM9El@x)w#I;d*cot8zdXF$eCL!hNF|7m#1f
zfv!h%S<El{R#|z-b(npe9Ov(g{6V10*VigRZlh%OWxlw`Y(80-&U~B4v{}Y;bh$4n
z;#_fhaKQd=FeuS>39ni<(7uDWT-Qn=)9PU)rNJz#)a26&dOvEN5&q^<r^_$}+U%P6
zxZ<K)Lz1>8kBm%!miIIsp3|dO9aH}UC(AkumoHnP?Qyl4mu;aYF2P}W-LqTcc62ga
zLDNE?C~S5e>v!G-6UmfSi=sb#Wg`>sI6tZXsi0L`-{kT0i_cc2$w65s;Zk^B)z<{h
zd`bHd&H{(i`x0<|KLU0sjcer6aV_akZ8&6E82}fujS$|tj@|8Zq)l4Pu1!v<U6->G
zZBC3r-+oy*q9_mN&AZl)R+AWF86OM8pWjdRhL&}#;LExE)viUM+E4|(P)HgvE?rPt
zr)nRKQDOHf5=kdK-z+n3U(!qqm%l>LlZ!U6=YK=5H;y8-q32^cxCY_fQbkCx71eHd
z<t)Li(~7A8e#^;bDFXGzhcB`uy7jT_XJD_;@kwEDIp!e1;$BfULS7$O_U6YOdwpK?
zm=|*@QJUiL`-%v-7Vb1FmgBca)86bW0YGJkY|S>JF|}i_2k29E%URViZSQa@exCKM
zVL9Z3u?cp#yzVVOQt~b3XV}>`v*ze%0qumBGSJbFvLMa4%Uch)cAyR_N>dSf;^i9h
zJ>^mbTn>gT#YX(zs~i?p97d=KYzn+%S}c-?)(SQ49*LDc-t>c#FcK`|dix^wZuS|4
z6BqPe024A?lXT#x7*yx4vf2N>;C#m}^NLJ{+Ge(JS@gj@wKlDpr8|Bj1ot>DcOM;k
z$Ojqo`P(hI3_r*_gpaYm^MR(*lW87CTJ;b*{&4tzN`wD_`}w(!@b1fn_%xH&*pAKI
zT37ci0F)o6D%R2LDJKcMr!YrmM+bWaiRf*togn8W3<IYzOAHa3;Xgvc!k>zjBD_%{
zW3>Q)pAWAXnEFlcL8pE1^UNBEXr;^JzP1kQS;q9duJpg-ST5uNG1ti{{@y;f>X0dP
zF*R`VTqBP?8S2AB==HpF75yJNIK_k6ng7p&Z;G!upgrOUU_Brp@?|i5CA4-emX*-4
zfGy*UlN~B{3+Uu`uO?Flmy{9V-mf=?9~hQB1IUXg+P=7pmUnLyHtcnH+(0!K%Q~BV
zFuMQ$zV?6lo&Wt0q6yv{U0y>?K>qWj#vEfPkL}>+dC0fNgnDtQ^2i!&#DsmAGTR;M
zq$DVu3^o|xKemke<{%_vob+hN#O~Ynisfk5(LvF>eTwEgigr92e0;chctN#nuxVxs
zIR0fdbn~H?-h*el8Nsm^fuLXICJ#TA9pU?1gO|wrEBrUFha>;rUq065&K30G^q4J*
z_x!tu7!zuz)(Xt1>OH8cFniH==2y?krmV!z=ewa^`qzD{{p(?(cVTvkQl_rd;);qV
zZR$UteY#&h!*i`dDwa4B(X3Be9qVB%lTTS6eu-b76hDb#kQ|P2bW005=mPP=IR+Ei
zKYx5KcsY@y5pMO&7Gr&1TTdr0r?n(usC2nmztG}DiQFEWv)&*T{E6!VzowPuJkT|8
z$QPm>ebN{qTt1}6uRBiHY@6_&cUcdunAo@{df)Jn&-BJ`MNu6ShDl{tox8~Wg|rge
zp!!$qyd3|(wS+3$v*fg46+7b7DQclYyC!-AI||Ib4`x4=0pOq+_8+-{wD<%KDBc&g
zbnb+`=PL_6Cz@Q`C}GwY_UN{BAv>lU<oCQ?W?d9Pe(O)%9AjmU`9pgt5%8|Q!XV%1
zU%1?bER)w3OHfVsP@o4bc>n<@!=ToK8(`kepNNPqX`Ej*z&^VGC8w?_k*DP;k@~jU
zdzER2PPc$$QUJ1^j*R<8gt~yTqxZ7YuG|UyIy&7l>-(;FRVL?qn251vL&d4On99-a
zgq)_b9$D1sa-OPAF~go+B*C5uE4V=DB4WgrN9dl^$p>y{6ja4Ul!x^f$~w%=ObI#J
zClbgX6NTdW{__JldN#i|6krxteu0q0o6<E7<~*|g{(Z=I)a{X74RY?dPdxYHu!Nz^
z!|V&^#!5{7Gn2fvYaBNT1AJF&=ntuA5ViRXRS^35j48Mh6~^+h_L=KTNpwwSY5>pN
zyzF}d4_V#0R9Lw`7%%?53%D!Rmfz}CJyu--0bq|D*YYjQOhefHfq4}+<b0VfI~})8
zyEdk*I5I2_p?{Tu_IBpBJ2CFTn%zwoyf1=UDt~omHGU4i{*e$^T*&6sU#xaFi_O`v
zXyRI>-W-q-CZ=(D4ku8$M#g542(pzU-b7wt=<P)?)~D*y>n=B_dA=<z+v_t|G4<Ln
z%WC%g5hDnT3|W+Fi}G*?my^<YeG#4J28W<4b3H95vfez3oy^Fj6UNP7#v<er=$ul!
z4bt#9x#TV|*<m5t*U~7_;FU=E*igq&d9x=^+S@}6{$bjz*l4G<Iw_fFOgfv0CpJ0W
zy4Kn6e9PSx#Q^@QML|jmI!qmJ&nG1ngyp2R6e|OC8414=!2i_^S$M7|M7L+HH-42|
zip2ryD-K8vw^hv%;d8ycb|j*x$|atxklea%cgRPE!EX7GZOfIr;xp9^R+HsY1umjR
z<j-8_x?DRF)U}0M)UypfzE{ZW(#qfz(mbY47hxdAi_tD~6~F2%;P2**wT1p|@$9}x
zv@*?dSFV{Hk$jMB7<TTCZ)_8<u6hDu6>&OPCx?)y)%9vMCD-MXD*=S+2JPTCD~7t=
zlV6N#CP;9_U!hODL{vvg$AJ*<(f*JIs9VAGgIn&m?FJ9|&dO}l&g|#%nlAG}*m`_D
z#(A}D@_uZ2ood@+=i1t*Ca<;7(^{Xp9Ru22o?$oYJ9J`D*}-Bj(xfy`r9_zMZ;!*q
zY^bP%oeCwJaM7v?1i@_%YVoQ`3E+(Pp1s99{(M;SRmz-bMA46UNoyB_lbwONo{xq8
zYKXw{OmbH{J0C(sEwrx#jkF(W8)-N}crb_Qz`(#@%h2!$(7d;UU*q1xTfOu(!Hegg
z@`8u?G?JEG5<^Rrc82VWQqzKu_XyPO&SsIa;@iYeW3(M38EX|nN!!B>R=fgop0{VN
z&@11qaRP!O-R9NoCccq{?tNz9yea|F`F)P(eO~r!oD~boYajX16<2i2AvXLk3GA{v
z3=IiO4)oL@fU-!!&>-3bx$9F@fk+wPbY|0nA0hyf9qfa={z)ITkeil#{dAi}fvDKq
z&N~u<|3R29;kUHXLWr9Vvshm!zN42wBq0RevuroD%YtwfMXGV)r~o=RC&(;-Fp7f*
zIr~H>mwhA5`w<T+(|?qvq9*>b1D$exs&g<JY0(@xiGccOi|SJPX8fu)8<|Qbk)8eX
zGieCAbT0eTLQb}Spe8--Wp$Wkhp_z4?W1IH(G{bu3ao;O{6`X^+1=|*@3ATupZi9Q
zpF8I_(9C;xgM5cC3i^#WAn41BQA0PxC5-XKF9jg<)c^Jj1J5j0IkUv^g7dmYF%EQo
zn3`%-`Kw%LvF)DKSJSdbKEPDnSd@`mgOXHMsA}~#f;Ur!_2@0=f+d`TW92h$vO>Jh
ze$JWV$+)!w#hWHt9(|I!WSUko<=R5~(r#~m*J629M(tPd%WdWh+UgIC^BEmA#@B54
zP5q}kUnbnF<9R?9XTLVs*3LNG!=VIQZE-waN#{de33=pKjoWQZtAa5?T!gs)!=L41
zjS4;^s4v^JBPU_teI{a>w^4>jyR5}#*;c9mx;((4_)hz`*D_Cqv}&%m#%7##e);W{
zlbDOI!y=kza5S^BHH<UYzhyO?15hr3@ua&@!2mqGu#H>S4!@(>v{(FS^O^4m{YROF
z=KHB*K@}w)qu}5)Ee8U|jcIIcJ=tn_<@0jUYT<|Z4^+IT?L1Dab|l0^x6*IdxUW%R
zuBB{`IvKjr^hToNtJKoel{)3Qsp9LA{J>vx7mQL`-pKmis~V^_A(dBk%~?9@fFTXh
z=*H5q&2(9Yp5wY!R>pc<CA9kSy4=)W4+q@khzin;_SCMaOs1u`E<uk!#`f;je-~7q
zNBv1NNLA{{AHSVgKN@*9Hk3>jc7e{}qiGtgVdN{xDnn-q$X#<=fpag;xAB(HuZgHk
z@LgA#G+XQUub=Wl#AX$R|3c`9PdE_Ygt2UP^d7C(i7AVxiOV5T0QWb}nB$6mBhLFS
zt~Be0p0%DCjGDZW`8}K&0HeA%8Km&0B<yL$Vu(_QL4gS*cVQrDA|!m%=H8ZHRgpUu
z-1dNb+EXl|QR)wVe9h`6{Kj>bfaXpT!UqTrG_AqxPEyx&DQ%VmdwH?aNjO?3KzW34
znMZ6s(VFG?dJyo3n?q1$TTCB84%}ww($_;76eKCWdzRAfCDZqjd<81iMak;=)HU;#
zaywz&Zh>}H7kN~7>xF0cC31d#+{;ZtmEqCC+6}hP$gpP?qXPR44FCjshKwtjHXeUY
z;~i7IF&;ZgLMz|V_iJm>m1#MD+g>t~9Dc<!X4tH}_%EM593>K1q+Ri?dsLIp2sHqw
zI3U{$%84mn&q73#udL~Ijl<|DWRVN;;3Kd`hQvSaE_MDYeBDUwymWCazoEU&bsgv%
zdX@XaXc}JXkS`0#xlNkRvS=z{B}a#&ejX$rUn?YT+py;dCJuLS9gO>w8DgfjZO7Q~
zfFmO#wpuD6`MSsp$6Ko{(SOENm;v(APn|uoS|jFi07`#^=197*JRCy(IK69qNm++{
zm^W*75qmS$DjQy>MAwhHlxHEy2c&-|g`q+*J@AW3`YHk+CTh;~hL+{quD;#GH%my|
z?VJNg-I`V(?==CoPE>O6yqbgyS3;+fbp~-`H!HAhiY~jB&pbnazb#3#9qJeDi_P!a
zS+ajKmFD58#>5FlUa8B!xa#K05H7s(`v=;fGl0)qL(lrYbQ%02K83jz((R!b3-6Ym
zp=j?qFT?}Jg~$s-u%$PS<=*QweD-P`_dyYK*PXw{jUnL~Li&2oXU^@_$dFT7Sh<T%
z#M96vowQ8XxO(l;CS?wW2UX+=CZM&~|CD@LWD*Cz+?(v+sh(u&x%Uga6JPs0=)YFx
z&e}e5C)C!9$j}aE28;itezTlw+i&ubb>bOg$O$Z-cxAQD>%tMUm^GA9wBDCBYwH+`
zzjUyS3uewa#TF4M@^TVZa_?bdmaE~Fux9y<coqt-KuJLC*m#?BM!CR)Y6edFQ<Lt%
z@OlG#m3&aGskauAAC{Y2fC?h7)Vi~8t1e1r*seOHeu@3N2J{Y6c5(SJ)w3|G{g6*%
zsy=s3BwusBizCB*nT6a`#B2tl0;P(0G=2D@iJue?HN188{_N&7LsYx6n6c;N0=lFS
z7AN`qG*A5gZXNf5@&P1_C2U!7&BbqOJ__K{R)Y0jAM)KBWgWF4iq<sj8f#<JTnr$i
z<7+g^*nx2QF3g-x;|YHgS|UEU8xPY?pGlr`UG_7QdbDW3l5t56fyL`psvoGmXMqp4
za%f`fEEO`(pyxO3cmUWuFFI6n%Uk@M`aaU1b_;ewiAb(Zh57j{Dubi|CLXlER%Lu}
zp|4stJXzO0zM3x&`x%wh!NEWXBX^e2p3QSr{mX_c#O18;&y4Q%B~izd;Yy-e3`Awa
zZhWq$!A?Lk>t-FG0x@T|*)pgvDFw*iyjx#bwHOwLddVnFDEt=o?zZcc0m_!Ovud9m
zqQUvhvSl3d;o!+*TY0P!{eE`gcdp@jX=Kda?Je=SNN4?LS-Go}B;46YLwjc|1_H~g
zzJxS`j1pNVj6gbHa|*(O_A}icNJO1NJuY4q69r$C&K2E?|F&yK>Ex*+?mP!*72vs7
zXah@s$Tsqr5aIdQLb_w{kv&q%BxyDC<CKuw?OpC{_t2a}$Nj<Tq`&I&e|v{eS9omv
zD_VB!Dvv%!ZsbrhZK&R_d$lh!1bE6NbZ@0jDJ5m2-(H1HozI4a1XN1~tY@a(TAUOz
zG_f8UQn(9z7?$*Ox+q4j${#IW%RI05Xi9r#?4KQhtyHd|)|t?UYghTJM?qafGkv`R
z$pdq~kR1}*TZ%{*ZT`F}TIP#L_c5Qx3i|f%F3z_*t<;V1Uj&XQym|5$s$p|xtZpC1
z1s(Vd2sbZ9a&DboDqxThDk?vB`#R2O5!~wQf#J=VmYkBk&jZ46=}APT{KxFDSE|q6
zEkG6KQcHYOm3k~MhW&{60|l3=WfpHPC-@5(2Jn1kO@W$!aV*AhnPFHA_th>C1fSQG
z_l#ZmK<y!rL4S+SFPhW>)^pY0Fg3wmp7q$Oa?uBMK4@G106pRGw5z#MX<(+TiO~zZ
zW_@PxJ`NrSx`ea9v+{TGy`b&DP!*1UORxl0{A0b-pu6T!s|(vtvWk5cT|V{;i)kGf
zdWe}I{<5oT29^y>+)W))b@J&ke{%Pt=S848wRvq>g11@x_5As+RvVrNNnBcLoWmZ|
z>qagbZ4l-bbVNOrjN}zYLYtGTnFZ#TEV9pdN(q!?$U4SR%9YG~8%-kZG$i4OfDYop
z(v~<&B3Sl&>p{af1$m!mB+KS)+SRw;=f8qCHe_|t4VINhUTPa|BjH(;yI)wgb}~s5
z-(v?o<#1vlfsCWykiP30S^e-{C@X=JOf|;0&FpIZ2G6HrzOD77|Md2^fnTTx2tOFN
zIpmuU7&aVL@f<YMOX!t;1v%s!cgRmu&CJfUYWf*d1bSzNezz?e?8pTn*h|>WH^ge&
zNDA(>1M@_m*~lT^T{d#jLhtp0npWsEyVh>3b$1E07|`p9yYP0_JN$=gnabq~)gD#N
zU?T-`lb+-~5x%?8nzbXEy%={|>=JgLPy|!_$wX-<O^{)u?5=n8@zt5ax3at3A(D{X
z;yW4F1>L+mBM#-8k-BDLY1d*O!k88h`GbaF_8iZZvmbfEp5R4ZB9g7D{jwsbKw@fo
z-qSM52&iac&mi-1M?*(g;aoE$PsPl{7VFfsz*HSBY8tSQ@sM$CSuTCZGo195nhpDh
zdLvHwf!CL=b25S`xVH<Flp77_4*6~y_p^@i(2|;!O)HPW*SpzjXs)t}*{`h$$D;0D
zwN|O69|h+-r-36qW`Cb?^1~zTwx|LvVol@h3wZpDA*j2VU+;Y@EhL(l2r&|yZW(gO
zPOZTI(QsSd(#6DZxO`96z0zh5z`RFbN|cnHO1c#ITWp&;Rrt;1M}rWvV3DhX?+h={
zly_D?<ns+qTUj+u;yP6XgXo-kXYsees3!fdyrx}!ZEiUk<!T=<ZZ%G3#+Bu!E6-iR
z#f6KF#2a>2SMd%g0qf1eN63(1B1wa=0fj^Htq-+)I4Z0MoPIoy8EK^~SZ$UZO)vf)
z4hhz!d)Dr-wXs9)&fZm5zP#?l{En(PlKrHhEX|`E@>nFmNc497SY7P#Alwg=O=9i@
z<xc2vW?R>qLg}(b#zy*&&`16aUCVY~sBYZ?``)W|<D@IWkh47$;dB-Js_Y@(2Z+~P
z(*XUgYwKAXx?fU{rQFZH+gbIaD+XuGzF}G8bQ&Ays(Cc{3X#ZJ9G<{;3oK#?E8v8T
z`s$1hS{>JNcCr7r3qZDRpCa&UBlV(C7T%1=1|JcVDagqzP(=tzI*ELi6EsERA#=^&
zsPo59oG9mcc$YTAsRFSGvm;}&m7x+GGCVQRuDZoOpiHtsV$f3qiP;x+pz~;?+sn7j
z$}oNH>Q`KTo9SPD;jkH{BXitUk0)6;nnju*JI;rNSE?bmUbEcqsb2lbgl`$Kj$wFz
zkcv)x-f625EwMW!mjYD<`=rtv7M30P$Ia~Gt^kyrT^)~-1K;f=v!cA@knQ-zkpEJP
zw1$;T_^uVSZH!Jy$4jX`i8i|=jCT!^Ns2m~zA8H0KhpT@SI|Us#aCyhD!DYGQaC#z
zE$-?sYsu?8b5Ozxnw7r|(&L!yK{;!h4$U~M6x^Savge6WM|$tX(K~1{Xp@~EY+2M6
zS#t0``QzA2T7Aqb^Ng&naUV+~DSM9}J+{}_Y6S&SM|sk?#zlArNJJIdbjTNl+{nf!
z*u<Z}JcM^OH-rlNkNJR&$nn1ipL>dBuG?YT{0Uy`F$>Oih{m}1lSG$esl&9ZFGlS0
z)SsPy%Cl7H=CZ!>BdU2rJmlN5V9kx&Tz1H!P4MmpzzNSS0T-~Bh8p$1v~8;zcx3-x
znK(7Ui93$GXHE_$A}H+H6o}dIKUcArFULyc@sbd<^|tLbYE*Y&r}#XM^97oBTCuJ7
zJ=cy6TR?W4tyj&PK;FQj^=B|+FLo??)<oQ7^l-bzW3>INv6NKONSKEO_{Ob8bm3Ri
zCnsu|-!$w9PdNIky$P)ATSw;=dMGwbpLI&Am0c2|LN#E992k>EpsL%YQlaCd6J9$F
zJ<T%=Z6^nJ%#Pp4NK|17sx%V_zxDa14%4PUf3*g%umVWuUX<OqT*j~SYHp_RH$F{E
zcJ=n_Sfr><ChG()AhJzFBI9KGuI2R?5#KvA{rwi6j%4sziDa=L>zYwZ&HRjteJYO>
zJmti7xXX4w7Tz-5V6e-4rJ<v%`9bO3%!a^R;kb(||K)$p=C4m8nBI;{MIizl-P)Yz
zZTi|UW})4V#)bO)3Z|YpZ`10VKf$R92sH|t(pm&I1T{81rB6bnTrMO}hMcVVS<{ym
z(mb5u*@#iW=|P`60z9!<VwCnh<&<i{zzkn=$vWV9H2&REseQ`kDp&PHqX8{`>yYnl
zaBp(uKC;wR725m?+4?n-VEmP8LA0@ftjQU3TIsaty2={sSjKE#>yAlOu${sOZ(p;4
zM&Mhwm0Xv?WLt2_6Lu}An!R3A$X3L%@pW5zyLk7xt&qM+w~YgQ<Ve}R{}zl_1yK*j
z{%-`Sk28!<kF@3m7CJ%$$%qbV)rp@>-8S{=O{Y{2eMaqf)v6xw`w)ejGE(04K0wLj
z5f;A1l#IS{M@?JkB}$lh_gUYlmw+cjH+OTnRv^A0_c?j+hIMaWTsE#8z{{4TGb=Cu
zVwVJm)O*ph!y1Czgp{vj@jRb;9|-1Gg94Dkp9&La^@Rxd3$L;@Jp3QSv&1(AC&YW)
z=Lt=kOAk=;sqxg14y&J<Ku1?Mtw^sB2BYk#O?~-&d9)S3pgEFqN|eHHAr)acBr2)8
zTwLNOP1G|{Xv_~95cRlSzRTlSZPTl2sjq2kc7x+20gq{nSI@+_x_M5sXMHKgC*{|x
z<EJm^iRYw?er|oC^QThW`TM{B1BY^X!qg-2;O)iB^Wr7}mkqpZ`x<s5h->8PL?Sy~
zZ4?pD{$6k9wfN?421-O~DJ~9!J|SfzERj+%Y$gMgP{v0+os1Nt5;U%%G;eMfH~<(h
zC|FLEM|V%*&rbKDb-<!?cCwWSU!33Ci!q@e<iKx*ZT5abo%MMS|0r-XWpuGu3gDAG
z^{GE(Sp2AZe13xklh9p{#j&H+$l?;^FCPlHchx~>>HObQf7AHSt;s0}yEcd+M61h5
zr{cRzq79)W!KecGgRDiUCYAihfh8x0dwaWqI#~%Bb!qsiAzTZshdNtw?uw4oQZ>cR
z*4N6sa{U&zzR(dRu4&1q(<Vox8bZoBk1#NEiGY@WqwazrD09Y&Q7YF${9;9Y>n7mW
zpCR}tlk~uc*|PJ6rqeKV`JH+p644OTQA9=6FVqG#iz6cW59ppq)8T?3i^9Tpe++jV
z9YOW-NP?ktOSpnq+=^!nqwD0T4WVv#)ND2q2-ZworcEE@f`0k29Z<{#ukqqukM3+W
zh{F~_JkZ{CWmofjx=2lohM&DF<08fRb%MS`Hg%Y_J(kJ)EPm{XX71RYe%d%L4qe3V
zgE_<8v1(^X>;6WQq93NL4j7-->X0yc+&J>O0<CMeg~SHWZOSHOx<uUlR`~ttapfz^
z>Exg<g~p_Cmd|zojdhcOUYMei>qmYyJmI`*rLSFTUJK&32BQ4N<(bijQmen$V{vgU
z&ppqS3CKpP=)PTM?CrmuM`h;Rwaz%hYnl}gVF~#6qWTQ<yjD9n8Fx8^83C>gHJ>l9
zDciDTjpL_EOY8iEeWY`U@BRvy+_QGmz)Cffs`(>Z^rG+jZ;z)MILGP4DK}7usj7<8
ziZ5okF6;5x!?3;@fp%Ng@Q}arv+KZy+wK7Yvc+krXvNP&8$U<jv{a+L5(4JmU*?uL
zs#+BMBiYDI@^PQCR_%_8UAV$8E)XudUpaTV1N0eY1`GaR_mky{gD&pTyR%KIQOY5a
zztq$`P5b+Ixdzc8!!vR2g3@j;2Ci(~kgAOO+@nRR`avKEeGMw*a=B(?Jv=*l7TO9=
z1f8iAmxQN9whF{vpn+mZTc>dq@3Pm4<esESqsVrTv-6WMaQXgFWxV0^e=uUCm+7oe
zhWbhOm4~dl@GjAdcVK971&u2v3mu%CeZ3j!uHF?EfH78B0lH8d8NBT^w%mhdkO7K;
zU=|Z&DOxvA5st^h6p+4PBUUU)ICb!p$XRmBb4OIHl)}~3PD~V9T2fN6c0<g6wN2BS
zb9WV-aYgJ0VOR4RoF?BlkcGzpC<QPz6xPOLs+k(vJCX9v19%pCA|)+SF|vKYa(ZiL
z_}=(rJ`XFjGBGtwS$sL2rU;pp?YH@t%iA`^0}lB*6k=FL@x9Co0a^r&&vpCM5+&l<
z_R=noH80BASoc^!mYv_pl<z-^$vAW+^HM-C2KpccRnl$YXmOdH5|{l~F0avTAeO-e
z)r$^>ur^EPL&X(|h@qbit~%IauJ&Mn7rk%_0SFpcn>Z79!qLIZb@a`*)>$866_<ro
z@0Y7G-YK6WQ-(T3-pdL=R^M$4ae}z!l&hgCWA=;?SZ%1b<37lRo>;G*J4-)Uw_V}6
zHMd9S3_talT0od~i!N!!Mdd=XEIH5P?$<L2_R79jJFnbEg&FX|s_(*3<d)Aw{Q*&{
zt8f8q6l_P8?;vR`OdaUg?rS^Jc;^}s@UjV@B?zomy9B;h3pfq&AfrDt&IVu}S1)E-
zFQn!v5zYgCVQU#HT8ueXsQ)BcX~RXF7^tw+F%v4b7K%m|XlgO-Xx}?&nml7h74gdf
z0>dnrp1_5or9V*+Omt|Qt18*qMZV^i>Vjdk)xT^jhx}~Cpq*9!H&A3#Zyrz9knz@1
zUa2@ptbp|i52lKXsvUQ?2V2*PiT_l$W#;aR0i3`hBHJ~mfB^Wr;o-68PCn9tUq7H0
zKaEx$v;Pk{d8xX->9?0r$-T=-+l#KM%v#6P3NIkv(ly8Ew%;RZQTstL*$yxhLpBpU
zjXgTM(C1l?z~5qQr@V7JW&JN3CG+M|wUt{impZ%*Z{eI>jjc&tiKSqmXkSly@3P&8
zc8)!jK15hAk|w(k30aroY(dpb)tmBR9gwMw;xwGgn<c}DXUEJE!U~1{95754vg3W0
zed@~fWUd9}lnUtFmewgh4WL!pN-Uwyoo(Xns0<(l0RyJoaTSPiEM2c*Gh{#kf>SQ3
zm4)VJGW#&k=v5P+Y($P-;VrMnXo7eoPI@k{=WA%^dfdSpn9hM|icPYVCag3k)`IvE
z7l$DrvZ1O$LGp!vf7_S1`)rsyiiL|CS!SRLBZ5;#{2rYq(Cdyp+&2qO-YXpj$@~-+
zI5%;hGx;E{fJd549_Zi$LIWz@!Sqs^(U%>q-)aRtlNYTyf{BBc=7YdNV6$aR$8(^O
zk=3&of5r;&lvvpc%_|V&MzY5G#Fdya`!Oh?z3wgm{FAHg!Zd#uN6sZ(=`@(IEw9>V
zOPWP<sgQ_XVuhnrN!uImD_=vU<WkVK@^`C~9@6O5#+jP@oQo^yh4o=b$mRYAW&Op}
zlTZaqs6)WI(|RUPLX{%-($zov0#Jn~zI49OLxhPAA&Sy(+MF4=(Bxi__A>3J+=qG|
zU}YOzv3GNjqF5<v(g2MBRjK1^gD%Tvb#527YerC5V&(MED&g9=WTE<vaoaAv<9dQ=
z69_85Zi-cmrh|BL>zLW;hgX05(Cc)9P64`D7M!;%0R~)_akG4@e$I9TM+lmMUB*;Y
z9n@qeSFi~|wAHW9dZ)kAxE)=s>0}%1o}J6l*dO_M7l!&xHD$uCT#HJJO3PM+&~BtG
z4>HqRxfv|A0U%tY;V~_KyK&^5Gj#<kbvbb4*<Df@u2jvAND&5K|Fv2kF2o!;@0FFS
z2eghV9~zx_n*XU$wq=SMa-4F%;q-Rj*0B};JvODrxV>=I6)SeZ-+34N3j8482K{T?
z7%E=6`un7nNXQu;B5pU?XZ9$mATRE%Yfp&W`Ob<xhts?n{}TEXu2`1Ix|g&fzg2^U
z`|qp=2fxev(Y9mRQI@f0Rl8ol@hgTVrWzUa+Lsg;c^QbodQDKa_jva0=sD%_sL9~6
zK8e2@Z&vaedN*?8byf1!wcl)C>gF!2-S<m9H@YCh6k8#~2)@o(?Cag*>m98|XKjK4
z&ax(}Gx%F^SYzX>w{Ey))=WNnW^znky;<MH<WD>5Z?kVly?EhALvQwBLfvM0N@al9
zHr=?&4mmlp!=}eeRx8>1#TUoltX3WECsvaJg2hM$<1D<Ywy=a!My#i;VJaBNR5`&5
zntzOsvi=FSB_YoNa%V1SK{+2oqgbcM+0m8k&`d1WT~-aV*}EPT69Tn=ZV6ubNvoOu
zy{r06NYvOlTWHQLL(EApO8xU(@_(3?Xga5Ydygs5+JM~49pAAn{S`nU#Kd(^YKgN=
z#X7n@`w}$d>w-qpUcqg^+4VG9vDj&?C^Gwk@QtAt76#HP+E=4mQEEKo>r0`PidGjW
zM=hREwzkJ2;s^}@FRet;cid<IxCSPT*#d;uW5wEHQ4+Z%f55Da+nIn7Qi|E=uz}K*
z7|*kp-l0&AMY$QPC_`RKvHXsA`HNmIkK{Kx<a3N>qpi4I>H9}`598Sx2Xm9+En59c
z%%cZFaHv*2yair&$Ok>><z4v3UdOS?@S6F}pn7)c&SC%m53$tqZdh68@eTi7+xfrT
N{P=(51Nb5F{{q(c$L;_C

diff --git a/inst/img/Civilytics Consulting Logo.jpg b/inst/img/civilytics_logo.jpg
similarity index 100%
rename from inst/img/Civilytics Consulting Logo.jpg
rename to inst/img/civilytics_logo.jpg
diff --git a/inst/img/Civilytics Consulting Logo.pdf b/inst/img/civilytics_logo.pdf
similarity index 100%
rename from inst/img/Civilytics Consulting Logo.pdf
rename to inst/img/civilytics_logo.pdf
diff --git a/inst/img/Civilytics Consulting Logo.png b/inst/img/civilytics_logo.png
similarity index 100%
rename from inst/img/Civilytics Consulting Logo.png
rename to inst/img/civilytics_logo.png
diff --git a/man/add_logo.Rd b/man/add_logo.Rd
index 1867e9b..a6cbf86 100644
--- a/man/add_logo.Rd
+++ b/man/add_logo.Rd
@@ -2,16 +2,20 @@
 % Please edit documentation in R/logo.R
 \name{add_logo}
 \alias{add_logo}
-\title{Title}
+\title{Add a logo to a ggplot2 object}
 \usage{
 add_logo(plot, logo, margin_param = NULL)
 }
 \arguments{
-\item{margin_param}{}
+\item{plot}{a ggplot2 grob}
+
+\item{logo}{a logo grob created by make_logo_grob()}
+
+\item{margin_param}{a numeric specifying what margin to add or subtract to align the logo}
 }
 \value{
 
 }
 \description{
-Title
+Add a logo to a ggplot2 object
 }
diff --git a/man/add_logo_ga.Rd b/man/add_logo_ga.Rd
index 381920e..836e99a 100644
--- a/man/add_logo_ga.Rd
+++ b/man/add_logo_ga.Rd
@@ -2,16 +2,35 @@
 % Please edit documentation in R/logo.R
 \name{add_logo_ga}
 \alias{add_logo_ga}
-\title{Title}
+\title{Add a logo to a ggplot2 object}
 \usage{
 add_logo_ga(plot_list, logo, nrow = 1, widths = NULL, margin_param = NULL)
 }
 \arguments{
-\item{margin_param}{}
+\item{plot_list}{a list containing ggplot2 objects}
+
+\item{logo}{a grob containing the logo created with `make_logo_grob`}
+
+\item{nrow}{an integer, default = 1, for the number of rows to align the plots in}
+
+\item{widths}{an optional vector the same length as plot_list with the widths for each plot}
+
+\item{margin_param}{a number giving the adjustment up or down to help manually align logo and captions}
 }
 \value{
 
 }
 \description{
-Title
+Add a logo to a ggplot2 object
+}
+\note{
+The resulting object needs to be drawn to the screen using grid.draw()
+}
+\examples{
+library(ggplot2); library(grid)
+tmp_plot <- ggplot(mtcars) + aes(x = hp, y = disp) + geom_point() + theme_civilytics()
+tmp_logo <- make_logo_grob()
+plot_and_logo <- add_logo(tmp_plot, tmp_logo)
+grid.draw(plot_and_logo)
+dev.off()
 }
diff --git a/man/countCleanr.Rd b/man/countCleanr.Rd
new file mode 100644
index 0000000..4dcead4
--- /dev/null
+++ b/man/countCleanr.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/db.R
+\name{countCleanr}
+\alias{countCleanr}
+\title{Clean unreported data counts in UCR data}
+\usage{
+countCleanr(x)
+}
+\arguments{
+\item{x}{a column of data, if character, substitute and conver to numeric}
+}
+\value{
+a numeric column of data
+}
+\description{
+Clean unreported data counts in UCR data
+}
diff --git a/man/countDots.Rd b/man/countDots.Rd
new file mode 100644
index 0000000..ff6aded
--- /dev/null
+++ b/man/countDots.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/db.R
+\name{countDots}
+\alias{countDots}
+\title{Count the number of single period entries in a vector}
+\usage{
+countDots(x)
+}
+\arguments{
+\item{x}{a character vector}
+}
+\value{
+
+}
+\description{
+Count the number of single period entries in a vector
+}
diff --git a/man/countNA.Rd b/man/countNA.Rd
new file mode 100644
index 0000000..6958923
--- /dev/null
+++ b/man/countNA.Rd
@@ -0,0 +1,21 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/db.R
+\name{countNA}
+\alias{countNA}
+\title{Count number of missing values in a vector}
+\usage{
+countNA(x)
+}
+\arguments{
+\item{x}{a vector of values}
+}
+\value{
+an integer equal to the number of NA entries in the vector
+}
+\description{
+Count number of missing values in a vector
+}
+\examples{
+countNA(letters) # = 0
+countNA(c(letters, NA)) # = 1
+}
diff --git a/man/dbSafeNames.Rd b/man/dbSafeNames.Rd
new file mode 100644
index 0000000..e3c6830
--- /dev/null
+++ b/man/dbSafeNames.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/db.R
+\name{dbSafeNames}
+\alias{dbSafeNames}
+\title{Make names safe for inclusion in a database}
+\usage{
+dbSafeNames(names)
+}
+\arguments{
+\item{names}{a character vector of possible column or table names}
+}
+\value{
+a vector the same length as the input vector with clean names
+}
+\description{
+Make names safe for inclusion in a database
+}
diff --git a/man/findDots.Rd b/man/findDots.Rd
new file mode 100644
index 0000000..57cc822
--- /dev/null
+++ b/man/findDots.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/db.R
+\name{findDots}
+\alias{findDots}
+\title{Find columns in a dataframe that have values with a "."}
+\usage{
+findDots(data)
+}
+\arguments{
+\item{data}{a dataframe}
+}
+\value{
+the names of columns in the dataframe with one or more entries equal to "."
+}
+\description{
+Find columns in a dataframe that have values with a "."
+}
diff --git a/man/get_png.Rd b/man/get_png.Rd
index 7d33c45..68e8972 100644
--- a/man/get_png.Rd
+++ b/man/get_png.Rd
@@ -2,16 +2,19 @@
 % Please edit documentation in R/logo.R
 \name{get_png}
 \alias{get_png}
-\title{Title}
+\title{Plot a PNG file as a rasterGrob for inclusion in ggplot2}
 \usage{
 get_png(filename)
 }
 \arguments{
-\item{filename}{}
+\item{filename}{a character with file path to a png file}
 }
 \value{
 
 }
 \description{
-Title
+Plot a PNG file as a rasterGrob for inclusion in ggplot2
+}
+\examples{
+
 }
diff --git a/man/has_caption.Rd b/man/has_caption.Rd
index 884e2aa..7293122 100644
--- a/man/has_caption.Rd
+++ b/man/has_caption.Rd
@@ -2,16 +2,20 @@
 % Please edit documentation in R/logo.R
 \name{has_caption}
 \alias{has_caption}
-\title{Title}
+\title{Test whether a ggplot2 object has a caption}
 \usage{
 has_caption(gg)
 }
 \arguments{
-\item{gg}{}
+\item{gg}{a gg object from ggplot2}
 }
 \value{
-
+a logical, TRUE if a caption exists and FALSE if it does not
 }
 \description{
-Title
+Test whether a ggplot2 object has a caption
+}
+\examples{
+p1 <- ggplot2::qplot(mpg, wt, data = mtcars)
+has_caption(p1) # FALSE
 }
diff --git a/man/hello.Rd b/man/hello.Rd
deleted file mode 100644
index ead5524..0000000
--- a/man/hello.Rd
+++ /dev/null
@@ -1,12 +0,0 @@
-\name{hello}
-\alias{hello}
-\title{Hello, World!}
-\usage{
-hello()
-}
-\description{
-Prints 'Hello, world!'.
-}
-\examples{
-hello()
-}
diff --git a/man/make_logo_grob.Rd b/man/make_logo_grob.Rd
index af895f9..d5f26cf 100644
--- a/man/make_logo_grob.Rd
+++ b/man/make_logo_grob.Rd
@@ -7,8 +7,13 @@
 make_logo_grob()
 }
 \value{
-
+a gg object which contains the logo file stored as a Grob suitable for manipulating in
+grid
 }
 \description{
 Get a Civilytics Logo grob
 }
+\examples{
+logo <- make_logo_grob()
+class(logo) # gg
+}
diff --git a/man/measure_caption.Rd b/man/measure_caption.Rd
index b32395a..b4a24be 100644
--- a/man/measure_caption.Rd
+++ b/man/measure_caption.Rd
@@ -2,16 +2,21 @@
 % Please edit documentation in R/logo.R
 \name{measure_caption}
 \alias{measure_caption}
-\title{Title}
+\title{Measure a ggplot2 object caption}
 \usage{
 measure_caption(gg)
 }
 \arguments{
-\item{gg}{}
+\item{gg}{a ggplot object}
 }
 \value{
-
+a numeric value stating the number of lines to be added or subtracted to align a logo with
+the caption
 }
 \description{
-Title
+Measure a ggplot2 object caption
+}
+\examples{
+p1 <- qplot(mpg, wt, data = mtcars)
+measure_caption(p1) # Should equal 1 since no caption is required
 }
diff --git a/man/nvals.Rd b/man/nvals.Rd
new file mode 100644
index 0000000..e4b6afb
--- /dev/null
+++ b/man/nvals.Rd
@@ -0,0 +1,21 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/db.R
+\name{nvals}
+\alias{nvals}
+\title{Count the number of unique values in a vector}
+\usage{
+nvals(x)
+}
+\arguments{
+\item{x}{a vector of values}
+}
+\value{
+an integer equal to the number of unique values in a vector
+}
+\description{
+Count the number of unique values in a vector
+}
+\examples{
+nvals(letters) # = 26
+nvals(state.abb) # = 50
+}
diff --git a/man/plot_jpeg.Rd b/man/plot_jpeg.Rd
index 92fd68e..582f0c6 100644
--- a/man/plot_jpeg.Rd
+++ b/man/plot_jpeg.Rd
@@ -2,19 +2,25 @@
 % Please edit documentation in R/logo.R
 \name{plot_jpeg}
 \alias{plot_jpeg}
-\title{Title}
+\title{Plot a jpeg image as a raster}
 \usage{
 plot_jpeg(path, add = FALSE, upscale = TRUE)
 }
 \arguments{
-\item{upscale}{}
+\item{path}{a character representing the relative or absolute path to the image}
+
+\item{add}{a logical, TRUE to add the image to an existing plot, FALSE creates a new plot}
+
+\item{upscale}{a logical, TRUE upscales the resolution of the graphic by a factor of 3, FALSE
+preserves the resolution}
 }
 \value{
-
+a rasterImage
 }
 \description{
-Title
+Plot a jpeg image as a raster
 }
 \examples{
-img <- readJPEG(system.file("img","Rlogo.jpg",package="jpeg"))
+img <- system.file("img","Civilytics Consulting Logo.jpg",package="civilytics")
+plot_jpeg(img)
 }
diff --git a/man/pretty_per.Rd b/man/pretty_per.Rd
index d6ca630..afa523f 100644
--- a/man/pretty_per.Rd
+++ b/man/pretty_per.Rd
@@ -10,10 +10,11 @@ pretty_per(x, ndigit = 1)
 \arguments{
 \item{x}{a numeric vector of proportions to convert to percentages}
 
-\item{ndigit}{a vector of length 1 indicating the number of digits to display in the percent}
+\item{ndigit}{a vector of length 1 indicating the number of digits to display in the percent, by
+default it represents the digits after the decimal point in the percentage form}
 }
 \value{
-
+a character vector with a % attached
 }
 \description{
 Prettify proportion data
diff --git a/man/safe_max.Rd b/man/safe_max.Rd
index e5d4a08..138a226 100644
--- a/man/safe_max.Rd
+++ b/man/safe_max.Rd
@@ -19,5 +19,5 @@ Take the max but ignore missing values
 }
 \examples{
 safe_max(1:10)
-safe_max(c(1:10, NA)) # 10
+safe_max(c(1:10, NA))# 10
 }
diff --git a/man/simpleCap.Rd b/man/simpleCap.Rd
new file mode 100644
index 0000000..0fc6051
--- /dev/null
+++ b/man/simpleCap.Rd
@@ -0,0 +1,21 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/db.R
+\name{simpleCap}
+\alias{simpleCap}
+\title{Capitalize a character string after each space}
+\usage{
+simpleCap(x)
+}
+\arguments{
+\item{x}{a character string}
+}
+\value{
+a vector of characters with all values after a space capitalized
+}
+\description{
+Capitalize a character string after each space
+}
+\examples{
+my_string <- c("Happy school", "Easy school", "cool School", "big school")
+simpleCap(my_string)
+}
diff --git a/man/theme_civilytics.Rd b/man/theme_civilytics.Rd
index aa67ad3..8848383 100644
--- a/man/theme_civilytics.Rd
+++ b/man/theme_civilytics.Rd
@@ -2,7 +2,7 @@
 % Please edit documentation in R/theme.R
 \name{theme_civilytics}
 \alias{theme_civilytics}
-\title{Title}
+\title{Make the Civilytics plot theme}
 \usage{
 theme_civilytics(
   font_size = 14,
@@ -14,11 +14,21 @@ theme_civilytics(
 )
 }
 \arguments{
-\item{rel_large}{}
+\item{font_size}{default 14, a number representing the base font for the theme}
+
+\item{font_family}{default "", a character for the font family to use in the theme}
+
+\item{line_size}{default 0.5, the line size to use for the theme}
+
+\item{rel_small}{default 12/14, the scale factor to create a small font from the base font_size}
+
+\item{rel_tiny}{default 11/14, the scale factor to create a tiny font from the base font_size}
+
+\item{rel_large}{default 16/14, the scale factor to create a large font from the base font_size}
 }
 \value{
-
+a ggplot2 theme object suitable for combining with ggplot objects to theme them
 }
 \description{
-Title
+Make the Civilytics plot theme
 }
diff --git a/tests/testthat/test_db.R b/tests/testthat/test_db.R
new file mode 100644
index 0000000..67c099a
--- /dev/null
+++ b/tests/testthat/test_db.R
@@ -0,0 +1,82 @@
+# Test db
+
+context("DB Utilities - safe Cap")
+
+test_that("simpleCap has proper error for non-character data", {
+  expect_error(simpleCap(2))
+  expect_error(simpleCap(TRUE))
+  expect_error(simpleCap(factor("cat")))
+})
+
+test_that("simpleCap capitalizes characters", {
+  expect_equal(simpleCap("my car"), "My Car")
+  expect_equal(simpleCap("car"), "Car")
+  expect_equal(simpleCap("car_2"), "Car_2")
+
+})
+
+context("DB Utilities - Count NA")
+
+test_that("countNA works on character vectors", {
+  expect_equal(countNA(c("A", "B", NA, "C")), 1)
+  expect_equal(countNA(rep(NA_character_, 100)), 100)
+  expect_equal(countNA(c("car", "dog", "house", NA, NA, NA, NA)), 4)
+
+})
+
+test_that("countNA returns 0 when no NAs are found", {
+  expect_equal(countNA(rnorm(100)), 0)
+  expect_equal(countNA(LETTERS), 0)
+  expect_equal(countNA(state.abb), 0)
+})
+
+context("DB Utilities - nvals")
+
+test_that("nvals works for character values", {
+  expect_equal(nvals(LETTERS), 26)
+  expect_equal(nvals(state.abb), 50)
+
+})
+
+test_that("nvals works with missing values", {
+  expect_equal(nvals(c(letters, NA)), 27)
+  expect_equal(nvals(c(letters, NA, NA)), 27)
+  expect_equal(nvals(rep(NA, 100)), 1)
+
+})
+
+context("DB Utilities - dbSafeNames")
+
+test_that("dbsafenames does not change all lowercase", {
+  char <- "alligator"
+  expect_equal(dbSafeNames(char), char)
+  char <- "hotdog"
+  expect_equal(dbSafeNames(char), char)
+})
+
+test_that("dbsafenames replaces spaces", {
+  char_old <- "hot dog"
+  char_new <- "hot_dog"
+  expect_equal(dbSafeNames(char_old), char_new)
+  char_old <- "alligator cat"
+  char_new <- "alligator_cat"
+  expect_equal(dbSafeNames(char_old), char_new)
+})
+
+test_that("dbsafenames replaces periods", {
+  char_old <- "hot.dog"
+  char_new <- "hot_dog"
+  expect_equal(dbSafeNames(char_old), char_new)
+  char_old <- "alligator.cat"
+  char_new <- "alligator_cat"
+  expect_equal(dbSafeNames(char_old), char_new)
+})
+
+test_that("dbsafenames replaces forces nocaps", {
+  char_old <- "HoTDoG"
+  char_new <- "hotdog"
+  expect_equal(dbSafeNames(char_old), char_new)
+  char_old <- "AlLiGaTorCaT"
+  char_new <- "alligatorcat"
+  expect_equal(dbSafeNames(char_old), char_new)
+})
diff --git a/tests/testthat/test_theme.R b/tests/testthat/test_theme.R
new file mode 100644
index 0000000..60f20bb
--- /dev/null
+++ b/tests/testthat/test_theme.R
@@ -0,0 +1,12 @@
+# context("Histograms")
+#
+# library(ggplot2)
+# disp_hist_base <- function() hist(mtcars$disp)
+# disp_hist_ggplot <- ggplot(mtcars, aes(disp)) + geom_histogram()
+#
+# test_that({
+#   skip("Not currently working")
+#   vdiffr::expect_doppelganger("Base graphics histogram", disp_hist_base)
+#   vdiffr::expect_doppelganger("ggplot2 histogram", disp_hist_ggplot)
+#
+# })
diff --git a/tests/testthat/test_utils.R b/tests/testthat/test_utils.R
new file mode 100644
index 0000000..b3cf101
--- /dev/null
+++ b/tests/testthat/test_utils.R
@@ -0,0 +1,53 @@
+# Test utils
+
+context("Test Utilities - Safe Max")
+test_that("safe_max excludes NAs", {
+  samp_a <- c(1:10, NA)
+  expect_equal(safe_max(samp_a), 10)
+  expect_equal(safe_max(samp_a), max(samp_a, na.rm = TRUE))
+  expect_equal(safe_max(c("cat", "box", "dog")), "dog")
+  expect_equal(safe_max(c("cat", "box", "dog")), max(c("cat", "box", "dog"), na.rm = TRUE))
+
+})
+
+test_that("safe_max handles all NAs", {
+  expect_equal(safe_max(rep(NA, 100)), NA)
+  expect_equal(safe_max(NULL), NA)
+
+})
+
+context("Test Utilities - Pretty Per")
+
+test_that("pretty_per respects rounding", {
+  expect_identical(pretty_per(0.2), "20.0%")
+  expect_identical(pretty_per(0.2432522), "24.3%")
+  expect_identical(pretty_per(0.2432522, ndigit = 3), "24.325%")
+})
+
+
+test_that("pretty_per handles NAs", {
+  expect_equivalent(pretty_per(rep(NA, 5)), c("-", "-", "-", "-", "-"))
+
+})
+
+test_that("pretty_per deals with large numbers", {
+  expect_message(pretty_per(c(0.2, 0.5, 0.1, 110)))
+
+})
+
+context("Test Utilities - NA Zero")
+
+test_that("Function works when no NAs present", {
+  expect_equivalent(na_zero(1:10), 1:10)
+  expect_equivalent(na_zero(letters), letters)
+
+})
+
+test_that("Function subs out NAs in numeric vectors with 0", {
+  expect_equivalent(na_zero(c(1:10, NA)), c(1:10, 0))
+})
+
+context("Test Utilities - Pretty Count")
+
+
+