From 01961567859811c98c7463b4ac5be47348833c00 Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Sun, 13 Nov 2016 16:27:14 +0000
Subject: [PATCH 01/14] update infotb in deltaTime()

---
 R/deltaTime.R | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/R/deltaTime.R b/R/deltaTime.R
index ee58a27..c6b2efe 100644
--- a/R/deltaTime.R
+++ b/R/deltaTime.R
@@ -69,7 +69,11 @@ deltaTime <- function(record, pseudotime=FALSE, units="hours", tdiff=FALSE) {
                            }
                            return(data)
                        })
-            return(new.episode(eps))
+            newep <- new.episode(eps)
+            newep@parse_file <- ep@parse_file
+            newep@parse_time <- ep@parse_time
+            newep
+
         }
     }
 
@@ -81,8 +85,10 @@ deltaTime <- function(record, pseudotime=FALSE, units="hours", tdiff=FALSE) {
                 record@episodes[[e]]@t_admission <- admdsct[[e]]$admt
                 record@episodes[[e]]@t_discharge <- admdsct[[e]]$dsct
             }
+        record <- index.record(record)
     }
 
+
     if (nep != record@nepisodes) {
         if (pseudotime)
             warning(nep - record@nepisodes, 

From 074a66e2a7d0374944bd0e72c0eaee18e48c36bc Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Sun, 13 Nov 2016 17:18:17 +0000
Subject: [PATCH 02/14] adding unique patient ids in infotb

---
 DESCRIPTION   |  8 ++++++--
 NAMESPACE     |  2 ++
 R/ccRecord.R  | 23 ++++++++++++++++++++++-
 R/deltaTime.R |  1 -
 4 files changed, 30 insertions(+), 4 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 6143b17..d1d0176 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -5,13 +5,16 @@ Version: 0.1
 Date: 2016-11-10
 Author: Steve Harris, Sinan Shi, David Perez-Suarez
 Maintainer: Sinan Shi <s.shi@ucl.ac.uk>
-Description: The package contains essential tools and utility functions to facilitate the data processing pipeline, data cleaning and data analysing of clinical data from Critical Care - Health Informatics Collaborative (CC-HIC). 
+Description: The package contains essential tools and utility functions to
+    facilitate the data processing pipeline, data cleaning and data analysing of
+    clinical data from Critical Care - Health Informatics Collaborative (CC-HIC).
 Depends:
     R (>= 3.1.0)
 License: GPL-3
 LinkingTo: Rcpp
 Suggests:
-    testthat
+    testthat,
+    knitr
 Imports:
     data.table,
     XML,
@@ -24,6 +27,7 @@ Collate:
     'ccRecord.R'
     'ccTable.R'
     'create2dclean.R'
+    'data.quality.report.R'
     'deltaTime.R'
     'filter.categorical.R'
     'filter.missingness.R'
diff --git a/NAMESPACE b/NAMESPACE
index 58e6025..8a686b2 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -13,6 +13,7 @@ export(ccRecord)
 export(code2stname)
 export(create.cctable)
 export(create2dclean)
+export(data.quality.report)
 export(deltaTime)
 export(extractInfo)
 export(extract_file_origin)
@@ -49,6 +50,7 @@ exportMethods("[[")
 import(Rcpp)
 import(XML)
 import(data.table)
+import(knitr)
 import(methods)
 import(parallel)
 import(yaml)
diff --git a/R/ccRecord.R b/R/ccRecord.R
index b8f243c..c26186a 100644
--- a/R/ccRecord.R
+++ b/R/ccRecord.R
@@ -128,6 +128,26 @@ setMethod('+', c("ccRecord", "NULL"),
           function(e1, e2) return(e1))
 
 
+patient.index <- function(tb) {
+    if (all(is.na(tb$nhs_number))) {
+        warning("No patient identity can be found.")
+    }
+    else {
+        tb$t_discharge <- suppressWarnings(as.POSIXct(as.numeric(unclass(tb$t_discharge)),
+                                                      origin="1970-01-01"))
+        tb$t_admission <- suppressWarnings(as.POSIXct(as.numeric(unclass(tb$t_admission)),
+                                                      origin="1970-01-01"))
+
+        tb[, id:= nhs_number]
+        tb$id[tb$id == "NULL"] <- tb$pas_number[tb$id == "NULL"]
+
+        tb[, pid:=.GRP, by="id"]
+        tb[, index:=seq(nrow(tb))]
+    }
+    return(tb)
+}
+
+
 index.record <- function(rec) {
     retrieve_all <- function(x) {
         .simple.data.frame(list(site_id    = x@site_id, 
@@ -141,7 +161,8 @@ index.record <- function(rec) {
     
     }
     rec@nepisodes <- length(rec@episodes)
-    rec@infotb <- rbindlist(for_each_episode(rec, retrieve_all))
+    infotb <- rbindlist(for_each_episode(rec, retrieve_all))
+    rec@infotb <- patient.index(infotb)
     rec
 }
 
diff --git a/R/deltaTime.R b/R/deltaTime.R
index c6b2efe..a2641f2 100644
--- a/R/deltaTime.R
+++ b/R/deltaTime.R
@@ -73,7 +73,6 @@ deltaTime <- function(record, pseudotime=FALSE, units="hours", tdiff=FALSE) {
             newep@parse_file <- ep@parse_file
             newep@parse_time <- ep@parse_time
             newep
-
         }
     }
 

From bedff141036ed4aceea6dee667e5464a310843b9 Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Sun, 13 Nov 2016 17:19:02 +0000
Subject: [PATCH 03/14] adding initial report template

---
 R/data.quality.report.R             |  37 +++++
 inst/report/Makefile                |   4 +
 inst/report/ccd_color.png           | Bin 0 -> 18195 bytes
 inst/report/ccd_gray.png            | Bin 0 -> 17730 bytes
 inst/report/data_quality_report.Rmd |   9 +
 inst/report/dqr.Rmd                 |  82 ++++++++++
 inst/report/listings-setup.tex      |  58 +++++++
 inst/report/report.latex            | 246 ++++++++++++++++++++++++++++
 man/data.quality.report.Rd          |  12 ++
 9 files changed, 448 insertions(+)
 create mode 100644 R/data.quality.report.R
 create mode 100644 inst/report/Makefile
 create mode 100644 inst/report/ccd_color.png
 create mode 100644 inst/report/ccd_gray.png
 create mode 100644 inst/report/data_quality_report.Rmd
 create mode 100644 inst/report/dqr.Rmd
 create mode 100644 inst/report/listings-setup.tex
 create mode 100644 inst/report/report.latex
 create mode 100644 man/data.quality.report.Rd

diff --git a/R/data.quality.report.R b/R/data.quality.report.R
new file mode 100644
index 0000000..d4676d4
--- /dev/null
+++ b/R/data.quality.report.R
@@ -0,0 +1,37 @@
+#' Create the data quality report
+#' 
+#' @export data.quality.report
+#' @import knitr
+data.quality.report <- function(ccd, pdf=T) {
+    
+    if (!dir.exists(".temp")) {
+        unlink(".temp", recursive=T)
+        dir.create(".temp")
+    }
+    wd <- getwd()
+    rptpath <- paste(path.package('ccdata'), "report", sep="/")
+    file.copy(rptpath, ".temp", recursive=T)
+
+    setwd('.temp/report')
+    dqpath <- "data_quality_report.Rmd"
+    headerpath <- "listings-setup.tex"
+    tpltpath <- "report.latex"
+
+    knit(dqpath, "data_quality_report.md")
+    if (pdf) {
+        pandoc.cmd <- 
+            paste("pandoc -s -N --toc --listings -H ", headerpath,
+                  " --template=", tpltpath, 
+                  " -V --number-section  -V papersize:a4paper -V geometry:margin=1.3in ", 
+                  "data_quality_report.md -o data_quality_report.pdf", sep="")
+        tryCatch(system(pandoc.cmd), 
+                 error = function(e) {
+                     cat(e)
+                     setwd(wd)
+                 }, 
+                 finally = {
+                     setwd(wd)
+                 })
+        setwd(wd)
+    }
+}
diff --git a/inst/report/Makefile b/inst/report/Makefile
new file mode 100644
index 0000000..c980490
--- /dev/null
+++ b/inst/report/Makefile
@@ -0,0 +1,4 @@
+SOURCE:=data_quality_report.md
+TARGET:=data_quality_report.pdf
+all:
+	pandoc -s -N --toc  --listings -H listings-setup.tex --template=report.latex -V --number-section  -V papersize:a4paper -V geometry:margin=1.3in ${SOURCE} -o ${TARGET} 
diff --git a/inst/report/ccd_color.png b/inst/report/ccd_color.png
new file mode 100644
index 0000000000000000000000000000000000000000..2914e3419bdec30aadd12641cd8758e5760d5454
GIT binary patch
literal 18195
zcmd4&^<UK8^EeJKAuJ&*-NJ&>4U)2ScPcI2CEZ9a4T92*bax|-pmZ;d2uL@w#J%`=
zUElY=aPJTBnCCfXdQQ$ns;S66$0WxD007VB<)kzK0F+Pw07(sqhWN4*P{V@wN9HE|
z&P~(F(#_N4g9Sj`+{x5}M&7~1%0k1!#N6BEyTuy-K&DY%N?glp=^#t_18i_QV#vvY
z`au<Ri(16D_!U)Kr<9d7>)Q;*%Pg^}r#}}MN*o%xhz5^EDCA=rL8zd(QNxTgDfvsJ
zAMYVSJEf*fiA;XjK4|wDM|)gPy!`*oFSoek_Mw<X59x^``@f>;02=vK;(TW%o_{O`
zgWih~N;qrXr4r`E%>Da>3jS8Z7`9H4j{F3ILIHi7hvA&4Pk<N*89P)1sABzOfPWAw
z+e;oJ_+yODKm3THoC2#if%yod002QWsHDIM-v{a^03Z&W(5#DnWRL(pK|qP1uJb?e
z9I3llz5o%+5TB=y2=o^@TWsA73jg)Vc7@XXqm01(&Fk`B^%HaYYr?3f&QB;_BsAXf
z{{v9LVw(ps$hJLX|ADyQukM6{K~Eq;27k%s&kGDU?_~eO{NmH>4Gx~fQ}Ywq1fj|9
zNFCZ||H06$^fkKwkBzR}S;>8w2W~y=r*;Io`@G0uUrE=0LI;C#MR`kKq)!?=H6n!G
z#T|OyB|OE(`~*MsX3~VVR}AE+zx(GIhz}y`4$<8v|0i@%#lRW}{69g(Mt14X9r_Jr
z_Wy^T#z7CO{fiy$KTsS9NIaR_bdsm|$16haUUTBWQMAh^S_tBDcq@v|lyXY{jE4{(
z`Gfu6Ycn<ll>geXNqjLZdFh@&8X(eCUs!5E%|EdakjCchwP<95YvPf&oZbI0(6Gf(
zQAGg3{~Lhcr)}<3I4Sc40ua;>tSu&fY=H6pv$$O7kJHnI+!s&H2uUN?+dxV(N&n$`
zZh$4AA@e^$K*H5sk2cF;K`e0@lWk7}5d1?kSZlZbW1ezyR_2WG%fJ2zTE8eg-3;dN
z{zInYhVoZkHiCNpR_bZ+6E~seRMa_)|M5z@U9+`C2mFs5(-0N)V*>p@BOv;kdo3|=
z7JU7$mD))JLv`x^<Bd#reC(gjfD(X(q4MLvPnGn3(ntR%8D66I8xp31C&Eu`Lz`cW
zzn+A?e1ZYNAR1)u@tyy3poym-bU8I!c18LZItZjC>jK{d7ymy+;ejMF6S@D_7z7+f
z&U7s-E&GQJ;pia3d?i}<Jmvt)H~;uWxNPW_z<TTdjYq=JT@G{q&kDegjyO5bIznTL
z|HI(+Y;i;*nHKXuaRD&5$*=%>8VACs9tcYz4YNK%I3V#KrJ0_-AiN<LqYXXR!R@FZ
zN`e9k`k&Un@uVFhJ^bBzix<+wRA9#D_@9zaLLJI1tMb*NMpz}IHJ?x*m=yE3=P!J0
zVZveiKSGeFIHvt(Kg~NYz0NRd_J3iKjbI_*a-6!ms+!7tALD;GUIsfzId(mW>KP1%
zC(5w>PXGXwS$jZ@?XkGN`v03ENCnm=P(fItcW3&oV~!Qn8!)t93thhl1Gv-Qih#$z
zL(;==9|YyJkUp(Q(N>NOGsT$?UlRP2J-GDhBYz#z@ws*Xuo-vK%>HY;!iSJ>{*@{<
z%?OwL;0=Xpv9EE=GafxEgq{LI*QB!Geb12=2L8@H3la#{NU+#Y2X-{x!5zlRq@Itn
z#R>O7x)z2M9L)0a)eq>Xtw}yNby4O{+wd`9xmDb7d+dJU0IZXwq5gQ2wV(JK4HX>Z
zYt>FU%<yN~>LdGCLZZcR(6Bb@up$kIlo$z4&Y{S7^IaE7m_^i1f(=DjL;REq|DjnP
z-_%!sF~8uJ%piePQ0zVddXCmhd=oT4P@%Upffzc@gA~<%GkxdtiGkLn`-k7`w9qgV
zCW$SM(Y{PVl^ws)(?@O(m@cItquTTgWblu5u`TtK5jC7#e1>obU8YXPFOBzPB?sVh
zTyjg5R22>JlP>R@ppgKwORo#NUkqWaDWp|-=`K%Cbx7^3>O&<-f*ID%o%o*Fahn-u
zT0*Z}jFzVr4ki0HGS%NtnBTU}%uKgp_6yn(AS@^j^e6tfxu7~bNqv1nyq!HZ`<G*2
z!*Jt{-{r)99{0EJ9Gia~VW^W(6K-o$efH9j++kqZrn9A>H{gEbohW~p80%2nbzus^
zDT6_`w5W;<q7)Mj)zN(hRFAr`-SrLy{#eV~diIz>=2Q!^MOQ9wXyBxkixC3%p1)rm
zroN6iu{cn3xiO;0g;F8|#8_*>L4Sn)TJRQDPiFHakF7X--m2b)i|S{a?U0Mg+7TMV
zgb?Z(Vpge*C(&WXwt8MLVq%P00lo;kuv1t@>3>aM8xBIlpqTD6lI^}RD6MJjS$xDb
zBNEGbZQB;<5Nh98Ef!XkgjUYiW<q_vFcgSjW~j4h0y!C)<jWD37d8G_<>+73ffc}B
zHV4eQI6bG;n-ga(-an5QF?%Hs3S5hTk_$X8G`%NAJXnaXpwJ+YQY4!;J<n(#MCf6a
zkN&yCFG_d~aX5dvCDzGje;Vw6iq7lLEfj!k?DEsE-AQl!P^N4!S*gUfrwi3ph7U)n
zrU}LPFSu0oo<tP^LcvdQ4{iWal2Gf`-1pR=RXo?m6M|iajJAatQ6|@QSJ_bGE<|W%
zYd(`Ux3ka*a_CKX9sV={hK}{GfA*Gt>;pTfYQG$xzwK#SBPpc$Iaw8DoBrZ9)ZZ-%
zdVp?d44uZ+HYnrFoI*@Hh-ve!gtLa<$c38qxUDPQhpg|-L~8L=fyPyTFPoT)?5@Op
zN<{k?*K}%$#cuNo6Cl<KLI}x&L3+_WEa&)_J*73p3ThTOal%eF_w+Uebxc<u9d*?$
zsPT#XzCnTo@2R20y*TE6-k*3io^~?^C(o5R8NmX49KHh<4dFZxox3qUL$_Mxir0ii
z+L?|pp#HOA^aDD~qBF`Us}FT#AJNp<vD9yL;Jkc@;gw(s0ZOiSI-r3?PsPumQ6Yif
zDq3Rfo_-dMve+Z9>%Z`_4^COVHpNm4lRAwg{^y%lQQ|JdFV7?~)Ahe}Ki+KxN~L~*
zHY+#YEu0+_3-_;2;&8nyf|^phe2~OsI@r*dCpJYa%?N!y3f$Ix?*NKp4!KDhowonD
z%7tNe&aAsckQ&(6;>m-%Hq>RtXF9ZK2R0%ch8O5Q%keyk2ntoJLQg8eCBkYih`tPI
z9av-k6D6L->ZOr~WJ8l^RVtxSOT937-eL@un2LFF5CLbdn*#yzGAR$`&tCOJ>kiY>
z{B+Un{p<Z|(!4eiIh9QBarwg-JBpunR^kE%T*E#!N4j?p=kbrFsAaw(i%q_czJ|~q
zaj3*%x~YQZH=Lq@)QkQ$iKhhsM-lr49a^V4(f3i-_|^|<kO%+gTu}du5ML?q!A9%2
zUG3A39o1xfAXgw<3;$Bq=u{ZtZmzIs=FoLEQ;<5a28@}*8-ieTon;}lOVqR`eqUN)
zvXK=Mc=Y$k^S8wsA9(+^_i27-7PoG%+OMU9@0OF=n^Lc(2Tq$ah}dD_g_$Pt$Ve_o
z=-U5=Djz(_ydcUYu=kPFpv3jD_~H8P{<&V0auMxmY?Rbno?ph&XOy3P#_>Y*4<#Wv
zLJjee@sX%f8*hKuLcQnx^tp%&?+)<7o{U7<Lh2{?4xk{#>bbG}R-I@-6YpeBgGNXC
z%${n*Vxy1^FNDJ(FJCy>Kbh~7UX)=}{z>ORSH{?6qlcOQ)!N=TL^}EZVLHeoRT@yo
z+mXb~{(%+YPWFdZ3-#Ah_~wm#`c8ZJSm0+A_}tml@3=#=Q2%#}L!X;AY9TPKCU1~>
z3-ghgV=k8vQ~mP6R@;LLBtpo9Q-<)L^GQVY?9`oO2*B|d(};4~t1|tVN{s|wSJKM)
zC^w&}yLed|@!77;R*h~R6KBl7KPZrok2~A~<H1wQ{iSwNZOt_fJe&BuoxcQ;3b={%
z1gYIMD(PoeVo2eIA1kHnx6nN8Cd5+(a1({U(l%6ye68|l%uG*e%6FEeG#ZwTzQ}ZN
zxj2hjv%oo`^IV|6P82R3zcMk(|5#2av^@AroC&)g$l<PIu>VZ5kpH7sxlK{260v=h
z1eqwV{g5gEAV<-ZB^T367Q47eqVB3CP+08`6=(ZJn^S7GW1RU1r8NaJPlxDxy)wy9
zLqYQ}|K(J#X$onrtS?uIQKS_$xOjE4`Ui9`r<#gmKCKRHXf*qJSMqTw?w(11gVcD7
zJk2Cicp*Dg1M!lw#-ZzzUk*vzHtn~H?S@2+UGGTj@;#G&oN2|!9Z1@5z3~7qq&&2k
zP=muZ6kyH#4jDB9$=|8)wyO#7!~ILNo+Az<z2Z=DZ<{qK58X|uQAxq^EZ9hK8h>!$
z(UX`+bI6!BoFT&wJYR;tlyJQOse;p^UIY6qg7_d3*fI>*Da_c9Rz@1JW;-pUqmEu5
zo(?$Bx7c5#%}pgJ)m$zl1%*>69s}ntF`Bg;f7ny`!0O<()ZBg4noB7Sv*MGMZzcDN
znXzASyB+Q&V>y^b1^2UHe+?W>A0wm<-w9*PJezr%9zYD62k~^RU%q-r%4LS@p%m>K
z^3esS$?W@?bp}i%3dC6$mM(-!X{bs#QsccNjRHbAAB)I5U!lc^FAZW~_Hmnf&D0t$
zd?+B&dNMw+Hg~_*lnGx$#{cZwJb3??jDBdM6ZdF$U_(Q^8Nqm)cy0Xr!N+S>Op<iV
zW$A{K)?M{7X>T-kY>QYE8xk%^_l`YE)Q^Ab&I>L9K9>qCmS~+!sm;(X*csd`CoX2J
z5SH!aXhLmKW{qtiWlqh7(TAA(i9XD-&uifyhH(<M?+QgNe<7WxLjj0I)Zm&d_t&u7
z+Zbs83Y-nxVn@A3MN>)(c~n!(C|W=B)>&*`sTV<iyUkbTb8_^zSAcyvJxV(fm{J&%
zy8_i>Y-n*f=-NAMTnwqB?J~~`$-4_=?Cv}E3O6K%W<DReV{kS+@aRxG&7AnRazCon
zEZ*uM?1ZjN^b^@wrd5ThsARlrlPl%LvyHs%wH@Ls7yI5~d=4e)ZS4}mu&D?fH|j~I
ze2Tfy4ebro@AdcZHxVW)EfCC@J9abT@mCEjR<ZwmvaqjG<@b=B(<D6%pv4a$xTmyz
zBojUo-9{ZXTZ{)q0effqa|NE|X?jR$8TP+KyWDPf8kB3w9e&fv>tOs4j{%d7NqWWv
z?3>>FE1xlIc-_j2C%v1;qn=8#^(C6IPH`mpf*^Y$#dD%os5-59hj+@=f+Ehb>NuYA
zBQWwJi#w$JK-3JkILrRlcEG)Y?-uu12i0U|Ikkpopk8jCX;!&hh=<CF@W^_tuW9ey
z4!!;CBH8{zh17;L7*jOueqR)Cr4K)BT>Y1+y$yl%QIuIcfqkt|-5Kj@nI@ScYBOPE
ziXG08tamYJvhkWHimx-qEynBfyEU?Mpr6%d`tI!~6K#Vn4gcDqyyD^R{Ntf8N6v@P
zdSk&FKgSb>>UO2)6UvzmWxnhUOYb$|)=N0h9xwQ<TLfb=iDp8jAus;p`ktGtlmK(i
z#~8L+LXSk3i}!L8l33wcrPHZ;1KMQ5tJmLKFW=BhD>4VGF{rPmos4EL#kgBMk{SF;
z0GjxPx*?l-TxE<cd>_5b@7u4X+Wl}~wjlR0Re~@bQ(aDY>t@CF7ehF6uh}{GU-#Dl
zu)wUR?1(QHL{^md?6m7<8UHmZuD|SHWZh$7n}f38T-JV@BVKrY&l|}f0xvLk)TCre
zbZe}$)P9OQmT%<9e{Ono7dTmz*&~;gsfk~`g72koQFnY|#Oo~?>@p)zeZ3I^AvT}5
zR@@to^R-prE;1;-y@P_fKxUz8_j!s0s_E@^h2z+!reXfTE!r9TlQ$o%x|MBz%USuh
z)3|chG`j>#R@x=ZL}ImB@s|KP`0QDbjN=JDb^ZE4J=zqb<fm`e;%vE11y1ti7a<Oj
z$+{e`gJ@HE0bpG`Q<q~ozN~1maabu!fmMD-?y)qKjO4F?Tx!wv)V{xVew?oz_Q5>}
z$f<rHH{4IDE%Zk)c1U3N605gBr3h8vwDd1Gwfy=MW5KuN5~Qmai?v~6@bOtd=sNv&
z;euvF58?#$hQRcyae0kZ&&pWX2u3n5rKxOS=KCXl0Uf|g7{(>FcdY3si`Ot9d*z#a
z(RUi8{Kp_{L$DKz{37QA?e-M59jyfw8UM?vhr)qkQ0RJG&}0uGA5k-r#4#l<lmLC4
z*~ywZ4TFH{jm4vIkhRptkI?bo!$Rri=NmtwZW1w9hu%%|jKdd+56>p}hln$;v$#dv
zb_tmF-y8!cimio%IdR62Gtb+cug+5`q_LP6a3EFFnf6(E+R+~d!TBN0Vg5h%(gBl^
zz5Cx%PT9ZmX<F$}E>6JVg9=4)heXOqME5(3kRLTuk{Qlb_Y8{nGN90ple_W9i>(H8
ztk2~b5ywBoxo3=GX{i4u9*5oh+|7qUEII$AY)@b_)qD>BPvNFj(rSP;xMjwABee){
zD9SwtB3h1b7?=E$#0>0xfM&NLHfFocxD$lLZ#i62c$S*>Wa1NH5%N6{09xF|WWwI^
z<XcMZ9i=%ee4>i@4%ZwlxjyHx_hj1Lg|E|NquZJ|<&k1(u!nKG@A&v0=6MVlY8)pT
zLFDZvnA?o6Xq?_tZ$G^2Iy9>tXhjYJPTbc>5r#A0xKZx6k-1xnuK#F~$=*jFyz7Y)
zPm5tFTh0F9VDjNGf(AR<$;wzm+KGTPVUVgJHkvWd0o|BynRKDqpS4UQa+a&5P)Sfs
zD_@P?QKFIon@d;wdIg;LoYvrKIQ8+POQ4#mbJ=}_m7^#GQrIN&ESQtEi)5#`j=dsU
zC0Vef@M`YtIHL+Kh~+>nH0r)52SN$bS7#*f`zy9;49{HLN%P(cR1U}y)EOfF$cfD*
z(BLoF{@bX$o)%~#jJPYvh{jA;Zc#SDLh?U#dlfpyT0J^9>1F?(nqd5j3sxaie%%2{
z-LOXLmo1r@lxKwz?Ye^&cXtKL8O`sGt4TY!B9FPqxu&(Gz`>l9P9oWgnPK}{LaGrQ
z?iubJX(8u3&%5@0uR2E{?EF%D;1yyTcHZar>=Sz-vKV+FP>Gs9qO>|=Hj!h}CKr42
zz+UGYgDvN4__$~lzD)}I^h<}i&IQaH11xb~yusD}b;~@kGLcBNGbVrrqVA=A_wMRW
zq)8bY0!HiPlpws)z*e!ra5A%)c|rxSZY$v^0O5VekZ8BYfeUE#r0Hfi%ePq*fArV-
zDiGt02FQQaPk!oB!ezq74TMUFVHbUSX^FT^!44UBn@r9RflS2@Dqp{w8gXxucpX0j
zvCO!tl}+6O0;GmT1Mh_RO)!6WsZzXBCR7LN-0xs=k!lgjv=)KHNzsgL_?V>8dA6#f
zET$Rr4&5s;t=QrxAlVGqeAyu#2TmS-kIz>~X!Im1h_2K5qDW(82<u)+r<<yU()hZe
z%>lTG)5SqPGUc+j<Wf6Q=;hC{W$yo&b_Ues`NxPf_Sw50=6dV$3;a=|L=ltS?N2(k
zo!ScDDvjmQ*MZ1DLuIoC^)(6+TbAduQf4M)vxaz~lG$V@UR5udqdgk%?jh+?7!J}C
z1w*c{H~gbLz{)@xM+q&;%S$8Q_t;TU*3)b2ETYj?MASQ64o2}b7xC3o_ukSM3_6H8
zz*W!6QWISrMmFIcdR1Go;OVTlWAwU{1VH;MM>HUd>=BOd0dcg6A~NNK#F<6AeS7P_
zBRDV*(v44qznj~l1>SFsrUm3oh`oO9Y%A!LrRxAoJN|k^K%C*PC5^{U*DeFF9;#41
zew|g3e)g{5Rhb;RADd82_gBV=Oh%3B?hU~k$!3C+fj5bki_MmmitKg*Dos3V-YD>s
zwl256jS=z=PDWM~5WnZ(vE}r*{?y(1Q1#e6$DadlTfCC5arc2$ohZcZSNVqJmLhXp
z9;Q?2e(g+0CX->$gR~zLUDgF^N54SoCm!fT-@*@U*)kMwe|RnhYJ6v8q-&7{_HL}(
zITxoYi4>AbG!-M49P&iF+^^@;X0?2GrE$QbF@4D*p6NR7?{3=0WSt~|N9MgY=H8KW
zj33aRord{cS@!KJmeXu0wd~Q%NWD-lx(pqfW}1?&?c?8t8d|u|qi#jy_p^slr5ee5
zvU3620i5b6c#8xG2gNw?b9^MW&NR@-*~(IpuzD{b4Aze@f%<2a<zGfQ<(Pa*Vb1{F
zeiy93ta#%#KDOT&jAUzT`!5m<BjE;X>LkoK7H5v+Hoi)~(un5$5}mtSarTmh4}>jd
zm~=+uliREEM})X|l2j*Oko?)nlzvlWKs=w;Of=9`6FzbNe(&_vXJjipgTB+aPkT*!
z`O)D#1L6mgVaJRb`e;GCt0*c%s6?VWiA|LPY1PrE_l1gF?_S|VkC$e`Zj2f9Qd}|P
z2f*w~nRwe4r>zqYu76kt-uZDcwP^dj3}!1$^DZ1egv|Izpyn|I+-x@|7LT>cfep2c
zN!clZBw0Rf+t+D3cIV)_FGPF!4p+KTAY`c+Aw9_2vnpw^m{(_3c5w&X>-C0J7=5G+
zL5r(29f3qJ^QahUeE-i6t}yz_C6mX*$j@{{;iJP#Huir=ZX`kUQ5@((s)Zs3Qs~>;
zek%iw)-w}VX|pOTm+zcQMj%UtgD<AOBIOU2zjJOB@2vRB<s!{5Wk4N99IPL@As-rd
z_$~(=3T|=_*(~pjV<UPSwqZxGmc6nAZps$}U8#Z~gR7uFye;o?Jd0cBnwZcFqCPFo
zAy=BbxDg2T-&HcrxCo75e-0AK@xwxrJ&qWKE~({{qvy?C@_NlvrnXGUaTqFt#0nl<
z9XG$PCo;YlOstD)c{H$jj4YL?@>EBJWkhx6`kRkU&Zl+b^B=~KDJh+J6ufr-3dW!;
z%G#Nbj9QifYKYcwRDQ3M)=Kd!SY0uPp;y`!zKp$?xltxk+0ez2#*R~Zlf<-X*AeGU
zYf<p{#tJFbi(Z?1&DR$Zs2g+xj%4s#@d%2^>gaE+AtdYOlIsgXe9A1Hw<VlyW$#3-
z%~Hr#$Z2dD7*zLsUYmi#MW%_F1nVir{fgoou)Dr-J+th<|6si1ZXUa?{zJWo&A&KP
zEAp#C)mxW%ngfziDKyr7xIy(nlaAiP7an&7DbhH$_}Q7n6D}wRWwa1q2|AQIM_mFI
zIZm2S!J~|4`1SVN>m@uz%;i^xHNLb8jSyu&7~Y;}^Y2$vFVbtr8NtC5)M*i}Z|Em*
z*rUE{u>m|1`GjVHMThlzjf`Ip=<Yw%o+8(ZFd*J7PV1HW^L{GbRD`6-06)n_uTe_V
zVDjXLhJaRCh(hYKFLHEW=1;&}EzEq3?jXiDnr74(Ec`t8f41LJ8V5LKIKISFf(^gT
z7zu#Th6cWE`1+ZK5Gm_SNl2>;=(<-$G<K^K;WX4ubyVX?Pk49o{YJ5`!MiArYH1bP
z)7aI)d|L(Wjrex2ob90U_TWb|IR(F>i~U_4ov|<GEn%26Y$PyzS!P>MVOP?c4k&Wc
z$I%^&7dmEi<0*_foP{#9lU1uq68l;s<1KXe>-N2hU-$0ox>ly#xBk9l(v0|ai$qcp
z;}{u<(m7+GkgTZQar)(3?nrzU(gI;K@|(M2fB&XLsKjX&UZ_YONw9M?ozZ1G|LgAg
zaG0S=Im*YaP2JZY5=4%~-wpJhW!D3O*Cl6P@8@>@1REXf@&q2;G&}g)l1&Gg1AK42
z4l<v;@pKw^AI9hhWW?Mi%bB9ef?E`PyWer^ERu|u&TDWjDQm@l_2#JUiC%twu(@_w
ziWAb#?Lenf6MQU`&7G=Jjq#vBp=Gfs$$KT&NYgAG^Bu{)gfa?J8z-!Q`^+hjKTA%o
zb_t9<FYfS3=BVb(O~2NUD|CkzFEhVVI>8_4hEXT;82k!tOb}<c-0<4s=lj?PSN(<K
zj3Bem=G9<e&xm)x?j)PxJYMYYR~;{GgOnVKSou9lJG$n-nqxHV6>eV|H-U26Lw}9f
zuci9Eok_lc1=M1`fAl8E1JxMDg}+pL*{c@wYMy@CN7;L>*-gGUGzw=-bFpCB<WX=|
zsTH*EVu6+7l7fVenwPa+7L^~%+}j4}m!DO1ST6WIw(o|j9Giyj#{ELmR!h0QQLw*c
zU)(lC5=B|cvV8X#C*xf@l}&@C@9p7O36pw=3jC(GF8+EpPlPOgC6d5+p)U`Er}YX)
ze0LfBIatNKg4*`>SpL+T+awrg$nYx132ni<%?KqWqq;z9wV7}iJpa6#LILy}qv^1B
zN@k!o)teForZk)Gk<uK!fDIAfC+u4J9shC((p<xN^Bm5bpecO%=Hr6rYFJ%Pp30^T
z7vz-730dUW1hbcIKdda^+Hm05)Bpwj@ExDGw_U`~*hjL7j%}K~K9zHkM@u^3nio0l
z?sQ+D6@q_Wy?T**4;w~E@+V1_@hzX>*cS_>hrA<PoDxb2IR4yU4ODOVg5nqVLZe*8
z->LT(Rt1&cz6i4Ud)9?Dp$jXD4quHw)QnJRSLAL(b{p>6l&qR|f)P@W`2LOwbGBBM
zSAW=?>B2gB06WaYR#VZob@8I)DCtT@sf#=#=Mml$HIxFrwY+A1C?YivF<lS@G?tov
zjowMgM*q<ix5VvC0V|sLi*H*&9a=b871h<rHkJA|#>6{^f+0aNL$mgprFhPBLvTuF
z1;cL5fG6$D!tYDt;%0^l%A0Fm)V#x6Y&LO`#Vu#Ys#Chp72O@pclyS&Gdjd^;qfF}
zUgO`I>h>f*k*)Vkj_l%q3cPp-2j#zt*5j@Y7E0!B6Mg6+Q>7_=sHYquCQwHGfVfh&
zX=_yF6yJRxq^I5COd*&~WQWWD_y{A<C+MYXde1}fVP75eJF$7&YrLC-75=Soly5@I
zjou${I!C?g16hkHnb9epYkowe3N-johYwfKX<yiN)?pLAN`Cm`7hUgkdz%nrG4pjW
z{3t_x<P@jacjLR*?cnmD%QPFKpZnZUKkRmLDjY|-d0*nzdQI}Ze%=?^e%SiyO7XGv
z*~oPvVzbDi%#(fHehi{oW=r<R>ct42IH%F=)3w<o40}Hr68F0o<785IC$hP5!Se^j
zOnm?+`>BpLC@d-+FW>Icw4Htp$6?Ha&UY>8`o%c^5%Zw~4JBF)Zpj>`;tKp$;Bp7C
z8Z_rs(XJ(U6@UA%Vesd+rOHY)$vHF-u^IS&Ec)28YkiixPvR#NFVi8;;#aK4L3=QM
z%oUP#{9TtTV9l%Pvq}ot1?Aekl}yqxm2sSA-~+Jtg}T6<?#77|PK~TDHq#ukh-X~<
z?Dj$Nq2kXJGsqH;H_bd(6J=qhtU~nupFYbA!OiDrwCsPBFgs8EbX~KRD*4iVJZ$ko
z4+k3f+i5<vd;Z9P5&yQ^AW=535}^U!*8r_cT4TLR87JynQ(L2vMN||+d{gfm^hDo5
zZ!EyS{ZsoOwJG{Ss9C=nDIWK@{(gbnd4?sd5!$k7Ow(}J0jn`0_#hA;;!r2+GY<)x
zAVaZOmqFJ@vi3P*pad=<&f`c@Uk=$2kE1^31@DJjJHp+?<&3&$KX<|377-}om<I%*
zO%yZK9@g_s$j2g^Kg*}<Dlu1o*B73db(gSo48A}RXj*L#IP#9f&@O;&=!5VLt3}6@
zL|`AMtwLxn;Q0qWfIGe^5@n-}T)5?2B8{8&vq{;{&HS&cz-1(#3(l72?PXTVe%7<`
z@s>Fs!GvyFPgA%>wESciNM0YXocldq+*>+q@BcOD^<)`@z<DMwt%t~V9w5OJ$I*5B
zNX`;GPDEb~4@tIcK_^_hDpweuqhy=v=-!8EAy)B{3(G1mtkEck<4(xPOz$0d?3<~B
zk51EUN89VWa%#^y{G-p$@2KM^DIk;qXlE;K>NaEALZ9Mi22K%Y^rmsLdVi#r7lrox
z)xX2gLZk~iA<s;*E@vPN?D81#UL7$mipi)af_Z0=zh8`bh0q-64t=V8X8p&OSEJ!z
zJ(c|irpa?qj|)Tk>F%TVyGQ)lE{kL!_4)*#+1_8j3c8qfRh~TjW3QxE2u*NJAQekN
zspp5olXu>QLv^*d`bgUc7TW3?P0v}O5#TMjznT?gw5>AT9oAl>Jm;A;?nMq#EI&{p
z@P^zP*XB<ra*y`y(a?(}S*0)w`z+luXz#@7Jp`((rUojYP(P01`YGa-^O;W)gcH3M
z_>c%RLA4&J(6#4KS&W{Lsu|O=f>u`bnGlK3;Ud4hfIvBW`$N^1X@Gql`goyzq>rFb
zysfQmUQ?<KBZC9i1?h|L(dQZqLoP!SBeRO5R{|B(sF|{XGgSN?ojHtY@lZ6xn^VlM
z?6LE>qSd{Ztg-h?b?kFRfAKltv`$S}1(l<wc9*T{wD-?xWDrw~u_0I-oY?X=gB~Cm
zTC?vmL0(B4OQS?+OazTX$hP1pJ{jhvFJ(&IB*E<J9NRSXt}XzC7I%CNAQC~k?aSd6
zXX&tb)iM?&2D*K9?Uv1DQ{XH7N$TcHqKKmL71vS{pDjzFj2?I<yiaNgpGJtc7josN
zcS{Kn%clW~<cCRq$ySkF+6`E$dS&2I>(x>d|M`^Um0!CgYkLb03<CqUi?)w$GMwoR
zS&L#rybU8B0dtn8y^DA+jVy}{y#iO!;Wry8YaZJ<=&;;Xb*>o7^KfwfzJgzI^wio@
z_X&V;B9=Us6ycE=oyqxdcHa2#TtnY}O(bXuv-jB~CMhQ^nm>u-U%7geizp`>WK^)*
z=<-(UnDtR-gFMAg;g0M#`0$!o&=OP#VW5T`?r(y7u7LYsA;JfLYSfK{lMWU8GsF(g
zqT$w~0pEhaivIY66H6nmaT3~=gSt5hkx*le^mI2F*%dXaHEidlkieDSQW4(YuR~Yw
zqoaRQPN4$&P{c{Y5woYeysNPP3rK(X_(i#)dhhbtLRxXRi~kCs6rYx*&?Zpdr-Lt_
za)Lnzk&aW;nvr;mN*K(E4VjifY;D{B?!+5gJ<m+;u)3;ciLz%2fZ3}#2@7}batC99
zYI$hy1^VATLN+bI5>V(-QuU^*lOgKHw_BWGPC(mz=y;rR@<gmA-Pc)H+^Y>92d$Ph
z`YP7=4DZ_vcSc7f$!*9t!4$SktsDYAXoh7HCY=;-#Ujc*x;QWq2zm>8wLI<+d;IG~
z^-yumV$+w2tAHV84aST1CKTH^rak~wvnzq6O!v?JS%&!eYqWhavFn(xs%t^N9s50j
z5+|3mjT_nYYjH(nV^@BMwL@1f^{pIvO_7JA#gQQ{2kU}}3oUC?wOfZ0)`a%q4D^rF
zF){RFpepf?c}SPks3tVL4l~8m9O}6&dI1dZ{3h4<D|Ol2HglNe96~vZj>x%!{Parc
z#;|*c|CQ!<4N^1OMsR)<jd^hHvpDWdP$&@Olu4AIkg`S0+t#2AU_-I@ID$dSGLc{<
z)&z-G@H3Np8tk7Ki4dOWZnsU7;%m}5&bBt?kkjHJSLKB^3ju$0anb}taI4d*K%~Rn
z>@{Rzf{1($_^|Q~{$VsuobL8QT<pD180C2wQe;oUmiK<|+iaFsm`=4{^se0O85xt1
zyWrzo%8(crG;z`wYw9#ioUSVMPVPFEMLuZ4GnPB^5Ql<%5qs&m63Y=C%l%w5XI>-;
zT2p7r-DRH9L&Fd8^FB(+C>t>}{p_GIVDCcf>jzD1!~_4ZDg01N8e<2{{_8p?F!OIi
zJlm|be+6BG|K6`uHtaBobtM#Gnx+BsF9LP~4HJ}xZJX0p<`Nc<Udz$DLcyGzNLQIW
zwk_8g+OIaS>XpR_z3N?aKHt$(K`VvAFu6xv-<URWf_5Ztt%qkG(?Tw1y5Rd{U+O)B
zkpgL`{A4kTdH<^T;7Ln^27BCtT%$ByB&P#og@j!rf`^H7)PI%HayG%kEnZU^=v$e`
zZTA8wJ@*)>eNMX04kuI^0JvJ`arAPS^je!_Nkjg4KY+c!2{uMcBoz@0kqw=>f)CUv
zu%VHgXnYSm@N!DF{eDSU2>=TufelHm$&hY`;(Q6S@Ut?c@hLlG=FuWij$J<gJ4h}a
zjw#y4!5>T$6R|J0^ZEJry<KBrR_=B7`3D##I?Vqj3O|m8uf%vM+jsonZham%%0Hp^
zIegHTARvb&<(O&h-eV*?^s~Vfs{Ad(g8X~8PgVSrny4l(t&>mqav2MUl^V~tB(N1=
z5F*i>C87K5f>7<v%F#mx?ol&_&HyzAtn8?9lzdQ=z>7LdXYw0v%Q(7IFgM47$6mL`
zXR`c|(oNqqRP|ol#N`Z6zF<xW5`MndceyNesf~G*s@W!*KL?`L6siqbLu|M^ED8d9
zVs2DN&T{tOHD7ZQ1yRo(Y()kD@uGS@yW|Yuo31zw>h)Gr>d7U62=Y?2DDS!1qp9c1
zU%dtPLQg24Ne~{1Ge`gF3T4l{cdwlt*?S9bIdR^Ppn_I8T-)tuvS}EKmRz0IO!Ao>
zMhH}@=>%rVI5T-x!P9gcacVtxMN|&!9kM9$LzoCmB`kit?Csu?TXO`8ljbmXa6epI
zOAxksUNI1jJy;5>>Msoa2qDmR|Jk%d>7?7uGkh7M-=Ev)FIG)?l_8gj<4x_}n7QE}
z1SjjzEH~qd^Y7h7Rfb}GcCEyQ{Cb!k{Z5E#l9`G2hCjbXpQ~kc?3%5-!-MJ-r2`}|
z>t}OTNvb_|8J(H&%dOhtE0Y;W)vkJon}8H>@Kc=I(gvg=uPIuP+Uw75r^#9m1jJl$
z(5F^#;GeA|4w4y0Y(!HtYT#w^vVpV`lOv1cKf3ME_GzB^AL%d1&Od|t*^6%Uf=3DJ
z<J(MYe$|!wi*fY7XEi(S7>x=i^6lE3@o+LOjJk?Y^Ou#HRJ*Qyc<&>WhVU?wNaRXn
zV-&n7%dv-sJW|%gdm2&R3eH7$q<nV16445mI2qHLzF}$mt5d0GQ>(&%3O3IP6G@Z1
zw(0b@{d3_g^Io{$2kVf8&)mI}M#BEUorrfYG_wpyH69~P_7Mxv#DoK56<tg6D6y#p
z)Kty#(t%cRsHmq2Melu)qE%%y(4=YSG2<*1kqx-tBSSpC)zcI31yo#cYGBXIZM8Ks
z6sqWg6ZwG^WyP!rZxOt(;AM@xV46?!Y8Cy>^-nd8>c($xtDkWOb2_Sf*=@>264Xiv
z-r33;^AUQ!F6TIew>k=wT!G`X-ZIf8VGjNDLGo=SHOwN=_Z=aqi+7bB4-HsQm6fC&
z;)=X)#cTu%G<L?jS=-t>X|7Q6sO*`({_2Z&f)Baq9FB=vT~(z71GjeiLshBR(7!Wi
z$USZyL=$ZI=ybFGNt(UulEO%#S}~sc2xNgV*LQZY&+`e|c5mSvnknEat;ushsFnPl
zLB0$In(!F=Ryb}IRcAON@@48A$;4A%cp{D8+Z+26h4~nVKr85gbVHK1?={)oMW){y
zvy)#Yk{l?@#u+#icbmaW@Ew|X5+f)?VchWxkV1uh^y!rtKixcH_0*~)aMH7!pNdz~
z_L(<E85CY@THpQGq`;;%?(G&#hSf(Y9a4lIv}mvjxGYG*Dqk&g4F+W|RWfWRUs{rg
zO@NSzYA+qRA1*==YXkqjayjw5s89`+nNM4QTESo!<-IR+0{zbWnAgmtcDJix(K9Ds
z<dW&Uz>Qtd-t0*6HB$z~nplbX%-zq7l<A~WprTipU;pgV){VCDqAX@hOg%=8TXkCH
zp!9oF6?Y@DM9QiPEDi0|L?=Ib*n4Nb;f4>pRj$Wc!BaIZn4a%++{jV;bGyhqd#1}z
zYQL%8oZAweOLcUq3r3?8cj#kqBCsz=!=QL|5X(4&9VZ?sj%wmVnI<qtP(>HlDa8!A
zRwpeh;6Uj^CvbESUvWS;sAiya(rKI_sXr97=XW=J7Gr8(AD=Mxwg9tneWf+Qg{$9O
zgMgSm?kh&#JbnOKLE)`+6r4~-uXgSk<j^!fY+QpbeB@#r{;rtZW`6&LITAgpiNvl?
zZGjv|_1j)Gy5O$`InvJZ+f67*B3B!2Ky?zt4I)tfMH(n(08%1G9<O;yiN^||MKxm~
z*W9+w>8~j+HtI8cc}RO)TbNIks8iuCXtR-2KSM585bFIh#WiQDFe+}b2^N94L@H;D
zv7m2`<LpqdS>t6x`%qPyhj6HU;2)^O{MF<D+GUd;wl%e8V|)bg(9AwvyX4um%79c>
z6gMp?{O0=2cT$>HPAQtc7QMw?_f|h*{q>`uEOTxB&B{syvG_((ZfxA*r-Z(V*^MQ)
zZo|hMs3z(8&X${U&lh$wqa-hM=LH7Z9E)PmMxrk`&g;-vf2Ra>9IPGI#<xnUFFaBI
z_3@w}=BnS3`g>*I-bY}^r1kqft-{S@<Ni+pojo?@{tDSn$&<aq2%^6<p*z`nbT)x;
zrNF!n4r;d;O6fUIbJ}g0p~G4-foiX;;%K4L=}>m>uVWojUcb{fN%L3C)kbDqAbd7I
zOBC9(W;#^Kb}Ou!qR%_aNaY?e+#W|a!>-BU3sC|nvV8uER<6`<43E_h;PN^R@d7vm
zjq$7|vYT3(KTI907`EP`%Viiw#Fg2KcJkWj^s~0kL7nZlG`R20GbSRnekC()H0No~
zyzX4`#1oj`Tq_Ni1kqwj3RiDpj}RkA_eL6e%*cF2@hssOm+w8C9bWV_r$$eYYJ;SP
zGwX4(p!H}DT_G}?qx(XsSnar=G!^#IiA#eN_i1GSgB@CP>B;`AC3h3A9pT<30`S5+
z(4WqTbf}U#VL1N8B&H;lW}Gtl-W^cFdV3;(^Incbw^Wm*_eAync&A6=dI>g*M&Q1z
zuyd$?uloRT*As^0AaXxkR$;LpU(ZPOzvZy>zZx}ksJEn+p<+6q!;#%oq>hIs?p@2Q
zjxlJX{h6tPo%o*DISkbmc#!T3Km530X{;=z!EW^szLigox{7)|@{n^{a^uIk<gscZ
ztkiH^_~mp<8x#<d`R7^j?I*dFNHPbC1FVRE;qm#AMUICfEm(DB5UfeuA1MCra>{EJ
z-~1cjrV=(<P+1AI#}G%=NWir@QMhrt|5HWcr!GcC+7Ejv4h7WY-&0cqHRtyj9=kjx
zFeJRYBABsLA{*u#BSl#h?to0|n(R!UtTJIztM16sN9{ju$fn(G8z__~aCr|82eCU8
z@W&ohC~PQZlXhYIu}IAoBioH^Q7QdBgCgI>9?9U&3}^(ABVywN>*2~pZPlw9qEo7m
zM*H>q_wI)4lx62agy>B+p`87`#dREMz_~;|>v}DIT@Luj*3$7=<D=2|@0+nZ3R1HE
z7r})w5^q&RvA-=g*Tg?M7|EXI{~bO5#<KsMo$pAN7M&lFmy3>!NNxP2=n1R&UW@q=
zFaASIu$se$t5k5S63G}{<(z&~TF3b@7eDF-yByge8O{_67{~IARk#jUH^+PNMAc%B
zt=fys@&)Wy?WSi0N+Yf}F+*fgWU%ok7O48h4J%f$P8kc2I?}OzM|WGk5()97cHAg8
zeTu$$vOAu^Wk|>N+E3mUqHYi<6ooL1n`UK#9NL2kZ(%+#vq}F+YDpA4vF{Vd7Cpvu
zfRc;vBEz9U60$$$yfKqaPD>RMC@S+3*xVW4#(Z`?lK+@lRauF0gUMHPT+Nt#k*i5y
z{7iJ=XDO~#w?IUPRy_HFtoF+>tEeAEq$?GaLWEU#A!?e~FD|9As{|W)h)_Az+*VdI
zzgQ1M?p*UBvYPSL7iRV%zTsp-c#N+S%l&7(#g+a*8*oY$NPePOQh%cLk$(G8L@p2l
z^;S;$N+Tdmh?6axo~ym4yFq{)?A(G_rh@0QvplUgz8%8sY9-+bB>i1v^NBha%YLn_
zB8IlwunwvO|6y~a`pp{L+Qfp;kxdv>;ueu(p&X|g!ib6r=JmXNJ0Ob|WT!_b<T$%%
zjMjuJ|EhK2eAYht-Cp|amw}5#z=2uOm3TVtf#e)kcEbvsU0mh)o>NGZXL@cUqX8n}
zQe42^#A|>C^xOh-U7GbXt^3Me4-SJJ4DHhJ{4?nt;+S8Dv@mq;qrn{6`{K**SIl0*
zg&9WCZZwz?EVh;nsQC!nOpNW3?C5F8$v0y}ya@>*)db9I$dzY~GUNU3BP++xazcMk
zEg)QjOD2i4^rhf9k+HBEI|&Q*`M<HNdmNgms-(b<GXpfEDNo5F=v+fQmcM$1@lN4p
z*k&KzPrE411C(&yFPS*3(r)F9g%dxVb2`1{snC4Y<qE09fhfe`-0gSiB&8(TR%fr-
zc!=O2Fg;VD@m#i}{Oo}SVHIEbE8=-h?pbYBO?uUz5SoK`Q_XCzC<U5mv3EuLe2-kS
zg`Ze?e|%BxX3T>Y;`lB-C7*_YNyZ<spZ(GO*|t3NU5dx__0Qb_dKD<9grWXq2~Cs6
z;evuC3SNN;<T~?9jjiNVHKJ&VV={NsHJ3v(^SQ6N^JnFL<A?>7d=&UQ+pkMyDFekg
zs)mgLCp8>bCbWi%n3JdWEacBWuEbTwsH2B(gCs+g=c%9)u??C%MB+eTAN6R;-fIpm
z7THI4YJR*mjng{C9)0(Nt^N!boh5W4sl2#KLY1Z2iFr&uH~YoF=FZL)`r99+Li<&0
zPR|D{mu>=znc@Y35+!c8^HZpJ;g{$kFtE^Vde_{*Jv+bV*3;84qKGK71!T^Gu@E6Z
zRQI``X)o{anZ&8d;|khXg-pbQ%HK3P%&bNW$5gG-QHh~_-4XteG@<mpprOKBX+0TK
z4zz>ao$R=@S8vpvM}))|5ET>A1$mCICO?|79M_;o^^UnT@k>X|NrCT&#P$CaV#0jw
zciOBALVj*~GMzmi$NvND+eE})^%FBTr{_N|sz=N;zc8cjNcm<bx`$S23X1C79dUx;
zEi4d3nA>t{4h3U`I8y4n%;6aMKPGhyvD+kC>Dan9i}<aM=ht|x@(+x=zG!s!T_tv4
zO47bA%F%~3iVr4FLxAF_;0B_I&6XdSCIadvjI{50b4g0DqmJQfjDuX>=y5vQ6hjZ(
z=_b?@Zc{;*A6F@1<-N688w-$lO%nfR;Zlg+n`2r3RXU#_ZGCoa^XPE~3EwvpMF|ks
z;xzP5WO1NF*v9z*)Q{KpX0Fiqz>I<x`IVkDud{HK)pz2Iu_zUZ{u_M!)9V-Tp!Bi+
z^Fn;4ydEl;Qdn;SrG9PeK6o)(>o;4rdljvv0&b0yDp?=zQUD)ko(PXfwwyR97|Vq*
z%e;spJeu(huZ=9u+uKbk)VV<UiYSs$sKndSer+7Z!IwxcS&>ES9Hg|&zQk}<N4qFW
z^;(RFZD>#}{uRr)be+uH)a{<P%9=!}fNA9)esc7K08AJmj>np}c%kbWq*V=D!?Lsy
zX*eAb7}(#UHBdhtS<Qx5p_<skalc%h4tIT23o&r;S}lG}FXC>Wv!=_8y>_X@3Z+`*
z!aL284>Bm|14{Bs_!^QbJd)9&B0?eqnTy{p@dXi-mUMM@TrJGz%b#^ca55#*F18iL
zjFZdzI?xsPQJE0rp=L?=28LCd`yHzfQW2k13Nq(5?dBxJ<N2z6fT(HdE0y;(m0o?s
zm+zulT5?1MqY^-w@kiZF&dy=46Rm|)S!dLf#_p~DK0>=yzPAg-711do#c?YL)Vj^_
z9ZCkU*W#9#q{Q0_n@VC~_Fjy&`WsOj3p9~1V`}PB=akb457AR#^_}Tzim!AjTX0Lz
z>kKkCXhO+9%^9Cyo`)@{PqvKzHMYs401D>%Jx+__;JB_72EYCJ^G|L3?Rbq}B5vY`
z{9N<zIv}-+$jNkpA4+c$`#!L_9*wBHw*B%KzqVF-W<J~9tq~N}<n!73k<95Lhcw~g
zQ#<iTaxj%|T?9+<cx2uS03}X1E)LoqibfWIX4A#d^udt&xcru@^!rAC%$xnouk7Md
zre(p-Lxp{LLstg7JCg#LVtbz}r%?gx&bi&(9&o&>sE@aS4KD#NcYnoQp37t{C)#`o
zepf_GA!+*oa~zf$$RO4Y<K{{L1MMP@PWAK~4aqeuy@qA!RirN1(%y)Jkb@pS8cs<-
z-cd@-b!Sd|0!+Aai3@RyDV{=yU2&x?0N-9Um1f8Df&mv~nYux9{#G_dw1MlXj|CV2
zn*1Je*?+}$h}u$&X+DLP!qk5Sp@{0ysiH%)OF?CHM3DxfS|_N%hUMU$=u-*p6O>%b
zn3^#CuW}br&nTBuWQWAmgY&<}>;(S1hfMmX>cFQuKv8SGcj1>I2ndnZ4%o#|)|7Eg
z|3?KuR7C8Wz+jdre&G6T1Nl=I1m#=F6-E;kO+=3Qzfwfw8AFnr#3Dpl0|3~^&x-_b
zlQQySzxMxbx`rq;*=0hc^1(`OxE9YFXP=(SPP~*qi0GdFbsTN{-gw7!ESj-j=6XDE
zdLBMRNg_Jv+ttJx*KU7GnQ2g92K#=|hFg9x*g@Dm>QG%P@V04(C3=&RWoXFF@%o9`
zD4`G{Q$!(g8OZ7(Z&3Kxa7arkaZWvXFta{f7*FRodfY)%Ty1AHddrw(sMFS2sWrks
zsbPL#r)<D=!6SD6A;|BgtMzKW$e--vmYdV68_M~cHou*^8;Vxq#oIqsUx%0G`4ALk
zpC2!_uOuOgK(lhgOuzVc$+R&708;WB!_fk_27ZpV&>rPM=5LUF7X#N)WJV$vj^K-~
zn>%fTYyVircS$?RMAY6Y)V5JQ?g~ART9jKMG8%?!aODGBAVSB6pY$Ju5q5I|3ot=c
znRjKrL{OA^`A#KkrYw8Xy!WF)J`jJlFnp#Px!_|BUMLsPF%fY0?;hY9M@$KvS{@E+
z-BX852=(XVg)nm(L^nr9(WDF!aapjHA=4rsxMs)|FV{zT%uCo6O2Ai7U7UncK~ILq
zKfw1B{E2V_#9dnz>Rbtmda9Iy>2q~q2U;{?{KI`EVNe)uZImY}7~nRTjhP?cfY7uQ
zE!q%ObdR#SfCsBlQKV=v94)aI9yhS=)1ECHa7B$M!{n4|itH6sMj%c+=?Nh<AVI4t
zP`&0Ve#zGoar$C|9r>pf7u9@ec3PD$B3tTPZixbg;R7NSPB9%(|0_{ITM#+Tam=xp
zzab~eFt9UsP+if<gk4l6?U0)+)q32qIW5DucHpH#OUyw*salpb9yPwVRNv<4;!yQ$
z+1sATbTI-1Xp_;9<kw{Xkd7$Drp>Dw27Pq7MdWVkShNfuvuhcw@(LXP*zkwGzkM&X
zno%2k4ZD)k+Bl!<&?2tvtCjlIbbzr?_@^9ru^)B+_@T2(DMvFa5`cG{c1V9kA;;^s
z=M(a`2~idvRHbW=7l}~4_#~qtRbnkG1YN&>og^xd1pFa))1^9SpGG0oz2Vq|rLZ$f
zl`OBkT@bE2;QGl*i@%IM|K4=o@`U*)?#I!lr*QT6Pj%@wgwmD>4Nfqnlj{jeB4Qhq
z+WflPQv(XMP{w;nyESwAHv_a%bZLiN5y$vu^{icJQ$9bqK7GEy_JcANwAq@upB9Mp
z4SgTkx#w0K0Dy)H_3pLV*yhOKpOYK^6l$y9<*S_M>nJ~+O)PTbBN`iZC@uFzoDY9i
zd!AP0FEqSB_#@<|K^jqd2|&%0aI-g?J0o--P$iiaH(O~i(y-l^`bF>i(Cy&+HWG0p
z8zr9q6}6r*hp6O65T#9cnnpk<TjXoHGs;AjAaeKSw|^8Gq?>IzWqzFzJ810aZWE{I
z>^R{H+o$LLZy1&=3LnDzRmEEx-pFQo8fEONtst{;IqE%@eoxuQd^H-C73kqs?S9Cx
zTXgvp^qGMVH|}5ao%0?Ml|2c_Id3uxl+Aa?W^&$lazLE$?XHhmpShCsc2?3<=)Y%N
z_&4Yz4A>jbi*U)8p}62#kNk`NnRqcOhPk6aM`&5q_co!LD)r3SJD&t(9t4S#unMXl
zHVAKohU)n~)5|VUaVys@E2tV0-fJJOY7d{T;~Z_KT0579?ZnWa20^$U5wBN>U<81$
z+$k^QVTTl2xij+U4xP#Q8`%-H39~n2b<z|T#PeDV!ME0@nF^;bw(H0capm=~5uve!
zTpGe6w)j9DS!_LGNt^Ufq=anFJhrFyA7l>=-IZxy4&fYHz+Cmx<>=ZF+#!CXl;n-2
zTfdC?lx1g*=kY$Z7QiBfUb$2%{~=V?)q(yJnrwA(i7Q9wx;a7d=-cmKr1Sr8V32^9
z@wxA{d$Z^S;dDg$kh_LG+f}j@QAk~-L>6D>{M`!QDa66qP~&4`+(M2WMZ1^I+vi7!
zcd{p{6X5#vHG;_#-DxaO4D7$x#p%6PrF+>b6UqH0a|BT!t;tso+*N<AJoS$%tDtRb
zBus>pMt)McDlns@S7-mf&6&2*W_i8@sKR1UaJ;pQqfRhc=&NR*qGru>(|>L*_nbfe
zy|c$f?7D1~p!Iv7&4<*^1+#bmo@u^AK3pcxrrrEjSn}mPUaxc9Lj!lN-*r3PW66iP
zT_^gb&wp4exBT6|{+-LJcGdVLl?z?0HF*1NA+T%#S=DsG=|@Mi{pJ7rLJh;i_oN)F
zyT7aT^os{=H+E<pIVSx$|GlI5TSX7AXGi;fM~Qq_J^yM?W9=O2-+TY+SylNJ*%!U}
zeL=Q!N+8HA37uVLXVO<K?f=WX*voUx$-v&yDk0S`kv7i{ZR2_)cYCsDW8{lAcd*3=
zF1RMX3ly1m<!;X1AmHAslx1EAt_j9vKe~Io*7Mh^wd}X8O&hgA*%f4R;18j-FM<85
z5T0lA-nqLRbA57FFSqD|N^RKt*DI0(ErJ(5>t6RB8V>=%B4vV+(X*ycIZ@g0d#3BH
zJD0@P-(HgP>i!<Hci#$Qo*&vQ5!3$yYBX>_YG)U3xRckly|N`c#d6R8W%2i1BhaMO
z=b!WK+vNSac0!T63sfEy*ZOU5oEMzO<XQqs%0Lj`%_|thuG_khLqt$ah;et()|ES1
z6|W2Hg|c{6|MPE6c=sXl?y83UW^cJ(PGS10F(u>v4)OQ1uWf$I0@8j2xan$*c2=jd
zD97?$whm!6d}mLqeO3M&8N@ZmJ$ZkA?A+>nm6|0TzJ>fsdB=JCGr!8%teZaNd8O+7
zM|Mwlo|q>6w65dkF<ZT_`|LV@Y!Z3xuJ<N~S@0ZitqizL1hQig0KOmfjBE^=%bo8Z
SR-5Y%a*(I1pUXO@geCyZ0QsQ+

literal 0
HcmV?d00001

diff --git a/inst/report/ccd_gray.png b/inst/report/ccd_gray.png
new file mode 100644
index 0000000000000000000000000000000000000000..88accf62c8a84a7ee761e88b859c3a259a6ea36c
GIT binary patch
literal 17730
zcmd42^+Qxq^FO|Xu!OKQN~d&-<WfsWrvieMG)Ol~BTI`YAq`4OcSx6jEGga6T}v$S
zS$y8l^ZggTmmk=<ch1b5nK^OqnOCHyy5eKpr?>zB;PFc(h&BL#5e5LDX#%lOcQykm
zI8pzexXbIi>o{4tdzraf0%YDfnOoAobTqTJ)V4Hx=i~CrQUU;g{Cx?L(e<9)%ed8B
z>mQ5oJDj<ndJ%HY?A!+lf|;sfS}+3s{k4;Hcr!{vf~-j>9We(Lj#@d`_Pt{rRCZnk
zD#6|22%BRn|Gx6@x@{^hiA6&x|NqTJ$p&A#Z^$QmFsME0egqTn@}!6~T<7aQD?woZ
zrd-mH#FM@s{+2Zl&I8Z`(R$@sFr~&wAE+RDOiGHZx-f<Z0uTZ+W!9B-R?zt$Wy6rV
z-Ft6c^AL%DO*{N|?<0xPAIJx8YP!q7hu;89hIZ*+b$407f09s2J`A5;NI`DY>H;L!
zgM1%Yq(SKTSyypOBrKT!*P>li0rX!{?<4~6<+SCilVph=o&scme1NLB`+qj0tW-+>
zsU^)Vg7NU^!D#xK;6TOyHMZHRB#ywOLjwQx8r4*~3hR(T7Wlvolnp`~W4?YduKewR
z{73UUU4nB_8TB7oxQ3E7wtso^dLC{(D5jo;wZsciJWvlkkxSdjdGh<w1Bnv0!sm3n
z7)h)3Pt}8EsoL|FG<Pwb0uKxiwgIxlZXRP#{IeD1B)~hGyAS{Ki?#w`>LKHSfFa=n
zJ1Ri7;|9|n^M3zlD*zUzK^~|w%l7aTrJR_x`tl7yA@&1_$sirIWe_qhZBG0^qS}H!
zHm)ye)UrK(piu##=Qm1cNg0iKpdL&kq%e>BpIu6kn}>n0k8TMEKC1Tr=XQGTjW}?`
z|BNH<(tGEWJF4)|{z2WIjpfMDiX!8G{rVA@x&~kSUpSdVc4hgVsQpV0lxKvTxtEom
z{PWX8TU0<TW+Q?)rC#KD{9jx^FAU7H@E(K%WdY6*6YO6)`u`$~>Pv#);kMh1;(ueN
zKZ^19nI!Z^_u|<<TT#AXWZu0x{a^CYYsdNB`D6Y!-xw_yPdDktyB~z3x(>tF*u=D|
z5qcm|O;^_vpRK(7pH~@~sHQz09-*QQi15C<i=ckK!s*(FcK&ehp*d`5t@i)x3&j7#
zyEIjS`Cm6swi12xX{FVYePBjqb=bxgl5YH@&wUyF-=IP<Xm&}oKNroWec*WD2g#-<
z2>jPiz<zWix7?!QhldXt1^S$;%IJ~95nv_pPr-vo3)-VuYR!K+g5n4Y<2vXB|4*MZ
zVFVm~QMUI#;}qrVrjWfJ?az$3|8+B9&V97D)q&pezxJT@bKQe^O*De#*&mdmJd*v`
z7c1M*{U9w$mJ0UYfz&RTx{pl_y~%>f%zYj$BCr1^5ana<PGLR4*II1ymQf?C{}nny
zJ%_Q~<`^x9r$qICQ4b=_Y`bSb9}-q`)4>d=zv03ie9(tV&32O1^`$nH?4^xGnYhe<
zcTtuzPAmL<m3E)kW9g7$Gx6WN9ucfVV($*q){upx5(O2Jgi}s6KxIWG{CzR+N<De!
zcQ%v2_c!$|bvoQ~{^dg*eG`#VS8s*0xU~i?Wf594J@2|$Kh?)8&H3;jm9xWdEXReF
z#o4^C0i)Mg^_e^u->LDEYQ#`(xWPXV^f-vG$26sznj;0Q0+nTwY84rdew`e8iIxyQ
zZ>hMPe}XuUhqe?t{?HRDqxrU;A60Wc3G8F3{;8jB(IaIML3@P`2uP4`9~!UCw0Vz;
zUV~Rvaj<{>FqC}j6^B-Wqi9fL6d)DzB$FCEci1v}jFcfw8U@;sPlGwc7wY0`XO*%L
zXva9Kc4+3UmL+L;*sT;vs9yW7P<#dWIv-i@=m!dH(**GhXQW@$yRK{%(ccZ8Sf~&B
z8SG!)w8bpAkUwi>GW+^TL}MEK?Pu%b=OKmYw+RV9$kL**M1P}w+)HuSL9Eyt()3~x
z$vU&6OO@nFsa=-nZb!Xd_u?3O<9-kwF5=GMeS&dsrBlHwi0HBHwV|VU%57LAV#JRd
z^HtU4^;3hlMbbu<FHo~HD2(qN5nJ4?EY0mUpe@(G0MFx&)5UvftfP8C%9~B?xcNK%
z&2%-i|7Ql_1en$C9*-<SWv~Z>lE4kRAZDnK8qd-oSzXx**OO`@=)RguO4`PkeuufO
z5iGApiZpb3142YX5p+oL9bMvMB&gtiu|+;&+6|ay5drJst@4)s3jzSlgC)a8CVrLY
zGRVau+;dzH4tA&mV?W+jwDc}Y2E-xQ0xCSz&%qlU>Xq>?-s)1auHRHgj8Ki0v%3(2
zrc%0TWhq&xRSB_aZcjW)J2%L!?@d(o0JkHB+ro83RmpOXICNoHCBjXXbcEA=Z7B}Z
zeW5%cfG#YN)AKm_jKNqJH8fDY_$+%gFs)Zb9lB=HSGm5q@p#Fa6Bu6^zi2>@ztY~>
zVKR-Hx>0$?kisTjtZJ1+hx~g9ZBD7JNx<9dGNfE2CPF7CK*d@HSQ#nv(#5}b)Jg5_
zc#<Ht<MbID#vIV>&j`5cMDII+1)Zl+;aZ@Y4xkg&dr%n25U4(w>@a<2H;wTpya|}G
zf7g*~%Rr3%eb4FXY#$S1<@1!T4AG3C5SnQ+-@AB*2QzYB@OwKhj@>&eHS19PI;{<?
z*hM~KS8}T=&;6Po0k)v~$;gP*%99bf)l}3=w~=|6U_wAfI2{I8#ba_g;=FT2Vjeq=
zk0x~Bhsl0-6(v#IAD|y;cjCimj4R2duXDJbO4uoj{c9x_-C=)9e%?`3QJ}7ANdWem
zJh^ooQ&=}@$uo|~x7R%)LIO9=0$B`!ejkt5Q*R3%Cf+a}*@{^_1>F&vCA$FYG@hnK
zmOqBL<6^@DaPXWN9Z4-=Zpey3;dne-gmM3!jst2Z0SX(@$A3iz5j5;#_mJh<T@k#<
zMX#DZO`;$R9i%}pTnxP(Ye*?(YsqFe#TJyS`RBb6Y5b^adNN4lb;G(bizYXbQ?vPf
z>Dp511*{`c(!4^Ms0Y0IH;GhRr2WeQclX1BC<DBAJ!5&K8Ai{Zd;4+fhNt>=#5nxz
z)1w+i{4%fU{!kwkqVNWTlzQcFA~zLyPy9qW|5<mWga5U@kdO=ynHPT>+Ss#HmKG&r
z%;o(m2hEmGCn8JIq9Qtyhx(%xK58-OOo;Ay-8ZVqQsuPMomL7s{L0frV=(^=%lZRH
zZjty6*I7IG{qt+ox)4N9T}1g#O8>s41hd%DY3`tLAIgBG$bj4Csw7Hnnxm(b`moT-
zh%oYtDB}C(@q9`)2-p}b`x(G}IVO#7PS>@JrUk_I-aj?mdsvucM4b8A;uyX_ZWE?%
zhCT0>2N3zn4Biox5K?r9NZDadOh8b^jWP+o0zQFDn-WV?)XDi~@WtKx#bHO1s#Yfl
zMHbCDsIi9ROrK_tDHZba_l;^|#^WE{5Yn&4eNljvEI$nm>UXF#L}e5sNoX}1tfN-!
zB5)_LZ7yr7(oujcl1`7g$&kThzafb;IF!=giSFcjF%LTA&&5oSyHx2wzhQj(=C}UG
zlWIj$)D#lp{MY=5-wch7sB%8s%|y|dR71Y~nM$xe#jk1)wj~-@DRX}P!Yu+zx-YTc
zlFXBH*>22T4y@=bc62Fl{?6Q&Nkx!qDf~xLkU1ZjqI^0byLXi<x4#%H$iM3<Q3wv_
z&bSxDMkKD6mQv64VInK4;_V%~8o_hAaXug|ww}mWSWOc5vJ}iGUyonC?Q1gSlm90V
zBpcN+RdtFZf+U_XNGeCRru*AQmk}}lED-l85|Mb}gk5`RKV?1_Ikss=rRMAEKo=i5
z-KV_IB-W?9ue|5gSn2JY8AK`K`LjJp^Ty;$UCTTO#)vPKCKT^1^G^ex3oVnEvb@cL
zx3Y2K>9o4zIIbS`+X0p6v-Csfvy-n&mISSe2Ni0xj9%I%`&}*a7$(|V&Tpczzwiw)
zwoF?3lqcgSEMl%2n@2yI%hl|K=jmRfLUV@Er_QV(>eIKk7hRY@wn+%?UhWMj54W(^
zNZ(<);(0Dx%JT^|EO#8TjAmHtSr^X~i1e(#K)>yTDT`TMiOrbNF(lMUT6{ih)6eev
z>93il&+3k3G^G=5L2ZR(fZMPRys6c`oIGCHqi(lg*lB528O=}su45A?*rKDrpo*ku
z6=7v;^mO=gP?$7rB%l8%f<|?Y^*ssWfD|(`euQSx(}xkC2MQIiT~hFTvkH4#oR{VI
zKECMc2~L{bQ<E(9ObEV4{e|p%U6vXKx(et#z8a7g^g%vI7%YRYU`-N^+jal7UUzLe
z)!q{|h0_BWwE6YP5+ZS2q<cmQ*Y}JZZ|{AUDCV^q`Kvv)9D8bJBYqt9eMYc2viK#I
zDKewGs!_EZyZ@@K<Cm9Nt&OBu7*Cb$K9a3Q4PR6bi5Q3Pgg*JP550k`a!t@y#I6DE
zScZfQH>q}SL*u$#xRA;{tjwQ$pPpR8+EH(uM+sM{R`bb}5>M=@p4pJ-bsv4RZmw8=
zRsFD~M=c83oOP9?I7PW&pJn7nsB0okXa5V-MoP+Hwr{?>+DUV74a0i*r(Vv4&>A>5
zyj(uM5I^;s@n0%WqP0`M-@@7bD6>L9t3;tXBz>(F#Wp>*%<5a4G;LW(_jm3r3kYA%
z=-t;vx%|#g5}@78fU@6jbo=$1=QUrt^LdVXkv4MjA1Go0f@oK$I~yX+O!UnbwE=m~
zMndLd3&(Ihj_tAW{b_~wc!QtYDEIP|iGFXFiD%rm)V!IIL)h$T`xP;ZaW#Kz4b+|e
z0P8C0fA6HVIQ1g;He;jkmx7d2vrWSv{`2sk9eiVVf_ijLW3H|K{8ALtxOF=8z=#QU
z$mP3Wr@Yw$Qk{uS&Epi#_>iONlS4N=WJ=mmQMbL0jt`k##yy3{oqRVhXraQ4YU;aj
zfAy{1DhEDGQJ$#Q{m(V${L{0;oo*`vDZlYwU#7B75?ugT%r{ooVt?)gJ>~<8A0-tO
z)2)=#19f)UR!PIuXNa^so+JupCm!aIF^PsSo(kE{s^4kg%qhl1KVlcTw_ZO@6t-_V
ztmY$<-^zK>>`W%_`SQ!BfB}+g>%EMU)2}|h>Lfp3)va%Bhz0%yLX`T;7xtud2$M4$
zk#=JD?-6txuhuEP(htOqvqUZH;`cUa6gedKePDE8LC#2sVAUxG-_%EEN745<`~nNx
zBMnlzkW!(r_r~5nXYP$8)U#W?ftjPo*6Wv>nUvA{x&#L=GLUbvF7f^2UXE&m=S+zG
z-s_MBXQ@fx8PAb!lqPkJPwV_83On|o-xh+4AZsxO<H-Y0a^MpH$?lo_CTqR$szXm{
z{Csv?OLJV;8oUrb+_{gHEJ>X_0&#K0#ihetn>$1KuUzzc<9Ov<-xGz|;>c#qK`^Z%
zpSx6!1}ad9GFu9PWyR3=#gUFo<^riE2ydx64C6RxOn|G2-Srg4KK`3Jmx3ZSeqEx>
zuk}6UyF|c_@L?MEte(rJww4>7)%gH+6R&TG(1=#1HOOS3wq#xY(_J2SlZ#}2GFK*9
z%GVLZ2}E{eT!znd-Qf3jSJv9!_uC{1{Oh!u{v;6XS&XRLtY2c6Gb@Mjam=Npc^Bi*
zJ+7n=9p?SQBu-Pv{wu{bap#mt_EI5+NcKFUOx4KtfF}Vg7!^)7%n%c;S<+F`pK;4m
zluF`JgQR!ktMGCOk=v*GJQ1nVWbKrAQ&Mdu@(O)%?!!0UMv1;EP7;!(QA(b4gH)z>
zE{C4&<|BpGcXEh=VhlplIWN|xrK`T6p6pSV6=fv67G7OO6t=c+6fI5iNd#G`7%(h(
zzrfH!_o7m3asEYk&euZ1zWb;AKye2Pnn*Sye0kM=Z^PE^gjj~_r?Qlb1T&T4i%9r6
zFl<?PGI!c7z5@%Bp@rD|yjE<9%h1|H{OweveZK6#^SZ37$4Ed>QZC;Iwp+P@eYTJ~
z|Cb&%FQwAsroZv%QobE&&X&I~BG)b(Y9QAZPH>T9+=m<b<H`Vs<uzcx*u&*|9K%Pf
z``~sP%LeO?*k&ZGV&1(^Bmtwa&hI!`zZ1@D`Zp{x$&Q)GS~m5^Im<U^23*wT+#EW5
zmWsyY`dU9${o0KL$VJsL0oRsMFTYOayc^k%$Q-cgrfk*ghDTJe6UZ3Fyk8&$eE^JP
z;V*)n*4&gG^M`+kRMlIxXvNC8%~t25p*vh;y+-n_DHA$&g(I@K&Ur)VWAdu6-ewG1
z!pC4?RfEApsJ%(?cj!>e{Z@8*f)de_AQAZ$k2#la{$G166Y@QDtUpgjWSzf{cCxFX
z%?7^v!NB27X`9tIL7@i<>mrg=OSm;1rK4Nc2R0gw)~UVljhY9m;v&%aT))MCP~D7c
zT`d%|t}^*pXzKQE82XCg@ful(p6+ebADb6EJByvnkAy<_917B&-XouAi$?c<2YqcS
z#9e1&p?4Bwqq?_!`oe>~^cx9UcPP0pu@+_V^0>qwsNl{}Ku_v^jKoxV%vIjGiY0$$
zp|4l*&+uQhbRm3Ptr^glWIt6PY|ZbfD70kf2;SC^uC?x47$+<Li0dG;96-w@4zF@1
zv6C``^%Up3ML>jM&NECFcdvVIwIVyh5p<c2x0jbGv&W>s&Wg*$^sIr_3b2^gM)s%K
zXM=4{&4-&3HP9`NsV_`2_<;BFIb28UOsQ=IqSfV`r@i-?Hw=QW`^ba&2>3<n+(eNZ
zG9}fFKr^RJH!Yd!$6oBz4A~?aCbC=eC#?=Nu?6H)X+CxF>z<Pax5H_nPvXd>{lk=L
zGJ0H%f)}w9Vly+Vqhx#USFZEwS&s!3n5+__*dU+}Yl(gKk=4$L%A4CR+VwLRpF|r1
z7FU0^zFykhTeDO7Ogrv~wkkV5a)@CJ_Wlgwhp}On+%cK2ha_zolPY8d#M0wOz$FPT
z48!OjU8^S6%v_jrE}tgBO;;*^FOfYR(;ba|ih6}uB?+Hek2haFo#x@cjG;X1#MBZ|
z;%~@iX^H)!Rbavd>~imH?88xo^cyqoGh&PjX?LU=yscMjvLO$KPJ9<pb;bhZvUJlP
z+ZOVhF$n-+vZ$%Coy$rKMvor~cOU(n8wwta&v%6Dj}3U#$v%&t04L2MT%=RhfB=Zn
zO#EwB)!-+Gwt3$o8F4#`?~RzSLZdp_E=U=HUCW%mS-)?YTHWYXI#99H{47u258+Oj
z?%NIN_~Z8R*PSOEDK!Q~Lur5OQf`|E>#%_^C~ALW$C3xSDp;F723h1h!OXcI7C9A3
zD1{OH!IOx+e%|AIZ>oY!@wJPv{M`tnz}^$gqrm8n<dL{4W0iCi&72*|(p$F(Q}X_s
z>c%W@c(*yPsU}2DZn!`uBeL-YEq+Qlx5`EXdz3C$?eoYhOi7=XS5&R;HWXuFfK^sV
zkCw^lER%(%E+p*^>+psvQ_tV1+ud6-WJIb}`C{|=XqLVxq4RI~#4l=!L<@Rh2(5{9
z@dld{<L5sq0F2-Erc~DMjXD?mxYa6U@q7Cu>XfiscE!utTR-&s#z=Hm(NV~3(U}aN
zC5K@Z%Ll0pdZhiZn=A9D;0|x(MHWUg8p(Uc14d%kKW;oX{$Y5epT|;+l0ZSzyY!0G
zMuW6ys_lfjC5kR9?u;YBO0>qhRHN*vh<Y98k`Es8sHv@{S2#_bk~9eomgcv1QL#P6
zWE%&*gJ0dr(@^L{OOuHq?i=~Be_ZTuFBMuzPV#$NjT!nkbGLOh5mEtA*|*j%Q8||c
zuKsh!BxOP{Gx_138M@)MFIDu8RF`O;1armv=y`*VYW@>#d<Jn%v<XCNPeY)yF-fh%
zDYeoZI*f9AX*J#NphR$7Lne(hs=wdAdF;4#{HDahRcmc)pylXg#<lHV^-_rvCSOw_
zbG|P<pJkEo`XsWM7f86Toa(EkwgF7>KUw_oOxk-#O*gbtz)qKC&Z-mcgbq8R4ot82
zo{;0&%-0Pn>54XV9^2iHt-JPm9bt$<^q2&v%ttw=$0`^3JuLv1H6(>3MisA1)-JV2
z(W)l-A$dYwpK7Lo4?G#?A}#HsdSh3sj(mpscSA_yA!qRqJV6zoFZ(V<0mDAs76W=d
zSw63|9Ps>rl7vaL&x%Mz;+JVR{FL+O@}tY%l#yar5|XthDmgv@jHO_w$Kh}U@Gv^Q
zaS@REyoR*RGOtjlPAV5{tUGSgs9~odrHz&|N)cfikiTl0xO3a!?9un<XK&DJWe(vk
zO7-~$-)EQzkj2b-c7}%BO5Y_NllSO!UXgCtnuw-pgG(%>5hm!p{+mB28jboe3e!>?
z+%#G?#O&5*3~XHKCr8V2tYpBqFam6NhaTPOIYhGykiR_ByM`MpN$F9%QrD#<PpBQA
z5aK<GpjRa|A#l%B@@s$*4E*&U@B3*pF@i{auD)>IkZWj7XRK`zzdZ&RUDM-g5X*jx
z7)xo$rD818kj3ku={ypW?ei>#gE~QTtun`x;O?ZTlFp;h$itz7Xpo{7YWw;Om}Tw+
z^muBt2XCG-vY-1L`cmzegMIKH0Yd+$onT#<=Sz+LEtLGzg?f;)kd%@9#0TO@5!~AH
zf*vEccdN=wKV5630j1aQ@W^MOin&3PvI8pJx0{AY4OKGNpV7XUIa2=Xn435?;nBaq
zOZ}2<UPnH2TAdbfxY^TwuozymK7r1opo~jTX94UiA{F;MSF3Uz?~x`&<uN6A%#!X3
zY390q_i}f4bqZr^Z$t`(cHK4Ho;)bhT8rfrTK6nugbu8|7d3rBC?)|5(7`ODRt>7=
z4z}2xt|>j+$?M!wQEN(!HMVlM4=T(^m-vpHj0vY4R((_Ocj&$3>36X@{!4T>+#zq4
zzm3Cb{j?p4VR2F=*Xp%}#42Bm%2#P+M7W|LSX>mHUbQokv1xi4ZXU`IN_B3jl2WD>
z3y_I8xd-YCI7kYd7gmRt#SeLr^p)}Y(+<XzjUpGj^K18xyGXXlYp!Dp#c%iXsr5>J
zHu)%4plskf+Op%%(&7zltUC2*)AF-hvP>y;@SX2+?3Q%f$-AXE-H5N>V$i!a5@2#^
zsYeFbDzPBuc&pHK2tBS~F6!lSk(UE28Dm>&PzjP#zd6uxrg{T@b`xG1AEp<P+M0GV
z08d_;%cpvYIWBxM`MoMD9=Njf+|iZ=C@)>m@`<39#O&?e<@a8LrR}5rtNJxb#BfLm
zT`N_fZHh2ls76kllD}az*<_%VGxvz!IWW;WZJf;Sv^2l>_bY0uw!QAD)DW<|*-YI@
z7DK$2Pb~2@XcpD043D#rk<qZgHpQTMac6%p71DiFpQ+X-7RJNXb~tnaDNp$Ah;}Pb
z^NUS3VY<JJUd*3oT9xbC{R8Em9_bz53L^RCXXjqZ1*+)wDJiO*>R1SA)L{%gH82zu
zCQg0av;=jyY~`8XcQd2`Qd7V=oMy@xXmV=Ty@t_&A>|$yKSB{a5#B!w;5Ut%OP=RN
zjQOYi0D`mQX;DJ&{f?-Pr&^bknxq4Q;5>1$i$T_4Bz(q7EdniC)^<}<&y7V{<ght|
zD6C6hHaB?sh<n*cV?N?l^P$?b_S7hDIE@zVoV!3d_Jn=S&(a`|O5TYYP_})wI0w@`
z!fP%(jI@NN)0<{O*!C|0r-m2VV6ufb4{-<koFV4Slyp74-x=?W`Et6Cw8_2|n;#a{
zSyuB{fD{&W3A5j08Q`no)3u=1F*TA=o5jxE9IXC{R|BpV$pgE7Cdx_DX~SZR_j=gJ
zjT%a=DGS(%htXd@1&DLKMV}5_RA9q&NKWL(A&unwZ1F1=r`|*-^PI+bj6Ekev_yA!
z%Y8a<SV)JbJHSY^({k3j9ZkmOS;J1QP2$&zGC~*a7e#8=6Z1ZaaoI)uB|+-FI?A!d
zwspdE{M&vXXIH1CsS;+`ubcZ=ajT!j{@GJ+TcCQ*VmD$>XYvMdoFi6KU{NFPvZ~@I
zB5X!J1!e+fAhQ{|BV*1j)b1s}<i9WrAvgsi;pI$w641lo!QV)>gbSueSp8~)7axej
zd_o+X>uR)IxRPkGA;7+gvx<=k{#!(moD}o*lcjWt$Ijc$2?b_Zk6i7nGbun3!<(82
z!9Vg6+`Z4h8;;qVlIk)I7HygfhXLhR#xZ`&*;Mjrzut&DyuT?A+MvOHN$2^M?(zkd
z%;o5~w{#XQ9eCX7B7gMj!ghUl&ZVX@L8(N18vhGl(}KDww!VH~rL-8L=d+#EN&x_D
zRgT9o{K!m=C@~+s>;MYLU;7KC%dYlRqj(IZox7mT@JxQ^{%9*ft|!8%V9Apm{F!j*
z3Es*`W<u^wybe;d{YGxKkjg|H;{KD5$wYNVI!a3t`>CMcwiFZsG#R?nyK&_2N9(EZ
z0_<q_D8GPHWMU7M#TgPc#5(G1`QtoC5Xx#>yjELUB(oi|@2&9fk0t5P`CT-P94<OH
z_KvI3^6H#@@q#P=Mi4x>=y0q?ftKm_G-Sjx@Iz8|CXKU5{l#U1vanIB{#|LgogFWE
z+=uu`7hh9Tzsha7PfwORMhCVCKzZJRq`fb{OSus&{>hcg-bc;ZEE@DhcRDfaut;Ha
z(IEQtTFKdGDfI4q(my9u8%n8vfBhLTcYpr|V-#nF=uL$IPU9&X@U(x<)pvPmDhX=(
z$C}E9Lo6B`<V{78C1K+9QrE6PXLs%%b&78IJAy%ASBVT-{yIupOLn__I9>$lQAqep
zU%~h(^;Rp*_w)morm0N)cQ!v9s9#8ibiTHRDz}toaXD^HpEdKogCQibJjv{QWLsis
zm!Q{~tmPTcSd?wv*nU0spN2+kEeGW6y#Wn_!ZNXcVGS!&6|iCMqPYuEs0YOlH=zXe
zv|50(GjBs(BI}z%*mNgiKno=lbCOq{Hg0iLq9Ph#@0P`y@|yYtXX<uv_FGO;U&Oh@
z`DQ#lbzM#?B!K?-ZSZ<$<HW5Cv^;=y1sHA7(8pfok#wE8Ea)q=`dDm5eA1W3EbuPm
z$zH~@<n>GF?#wIS1uH&h|BEaZwE$=T)PlPkqA(0|MYH%sj1Q#t!I^%2S(BSP1^eGN
z2Klq7^(8(cQw#~TOKA6eff1vduosk(4K`J5XQQW%rQQOuvo<R;Me-m|it)w05T%0-
zekaQ}DdnLiLT(x7LG))`V%a$x!mHo&rQryx4KVJR2>0Uyv-8tmCwI6S3G;I1y!Gxt
z-(U7G?#3-nXrPyePZ`>{C*CTlh4%L|wmhSry}aBo00n&e)r=Di@I-su`viV#y<_->
z9(W5AFeyq)b!l0x%ahjNENGJn&fKqNNA|x?hPUjv&?^PYg^VDAuGeVyXJ0KtWm<eZ
z3_bNa<^qy*1E|T>!lx$IBv(d+({^8H)~9GbZ=z~_#4viku{P9MO(Oyo2FkXPST12K
zJ0++K`NW1Eq*-c&jOdX;==2uB!VM9HtQ?B#wN4^2O*(1T;tn?2Yx7<nM{aApmcBnO
zV=Bt2reC8@x5qE$YQL0kCXUW$q+IX8AyauY*6B#(e`Uv5EwU>k#dv!s>6a}=GH8eo
zk~q5)X-{SavEj546+bg1#_&ZxO0EbBbl=T+PSZ+Z-mVEwCN)+!W*x6yU6OB3T@l8Q
zQh})huug8zv}}j<#6HDO^b{!sUZ(?$2({}XUJK@Q*o@vC=zxT0H1^$AK7Brd^$k+S
zLtX;1@Hm!i4~}DA06T*{xUi-dY`zt4tq2+))fZTayrZkb__}*mGZY$%%ct85rduAV
z%RBOyL=g2Z6c}hmdbRvA3ZxHl_NL*?E4px9JE}fWk{av<J3RVa{i`^?(~)8tL}<}_
z;Xm?@I@(Ty=_c%KmN~_{2KyQg>!o_wfjzG26FQd(Ugm&a%mMb9@;e3UhPm`0W_y>J
zgytlqq}^MJ6V2wzZt;uO-+zO`);jYnzK+iNWrd0W2d7!pjZ+`D!Y6v5B0m`W?_`3)
zHbQ|+s$9UH$02+}^HKEFeU}mRF_d(P<6+P+Y!{bdGrG}dyu&KCbf=l&pG#g2BHX5>
zfFkjCHe&C+)3Vr7<6&3;OtYB3nPsP``HQ>Eq`d)726TSo{x~Ue2`}biNB>w>dT3dE
zQVPU?C1_-pPw6UYDlxym%g1R4G3@zK*W}AgdSjY(UlvOX6%-Mg`(et{tvb>~LZ@+y
zhB_o?0~9*$WGF>jH_<qJ(eWdsY(vz&2bG;O(1PjDR1UVqbjB12J((kq$Py$~Oc4B{
zABCGdkFInE;UenaxY2Uu`tFN12gf!60OCh7Td%`Ndrc@aYeu`=7gY4mDt+`{`}xb)
zg3tZw>hOr`Mjs;xJ5xk2{C`r!as4}Ob#v92G8mb_Hu(B}<#rOZw<dk(Q-QHVL)O*L
z??lNoTMjLV9$Wf%CWvm5fcJ7vj`To=$*iP5GY8)PC$|q-5eb^b?R-9pOUciO1*Ld@
zrBIE5AGKtIj>&K~IIvbbY<m#u{*vmqUrUw*F|r~SGz$|$5Td(pa<o6+b^~;Uh>_kw
z=`dGPj#@Mv$d|c_Co=n*z6&N^_|$!opQyqcH`aPbK_=ErDm>=?;!T?6J$(!@H~I5(
z|Cu_Xt4<3)=WcnwI9v3f<6wIHE{gc6rrgF1Fd?0Jm-Y2zE1TK-tC`e-HW%m;poo}}
z^P6KJr^F(a76BzOFKzkr?~QW_*XX1neE8sT1=KzjDSCa`W{LNVg)RlU7tJ^qwZwxx
zF;}Kuj*MAGhwQ~DNfGe>35;wofPoluBmS0LO1z<v5vghorN<vHlJ~#dn}*;lh&<Oe
zl)NxSt=<aZ5yq<nCvJiofz>!Y+@?PyFdM8!J6@hQnua#m))(^0K)OCijs&8Po+AM+
zkF+|w=AV0O92^Ju<E9z=;kaRE%}qCsT+9*_iss`pxzF>crjXt8;JsdwTwGH8fq^E;
zhnv-k_In{}i70H@p0Rc%m~|;uVLb_Z5g}xXY*-+7nq{p^)S$w)I9L`%eSUH<*SvNt
z<oby0Ps0u#kBecI2ECUK&LKLd!!#2?)AshfW-)YA8$4XsobX&91%CzVChv(2&05d0
z^{D}BHvfdZJl*wOEPw}aoGy}**y0oEVKU%h(l~!!38RMud9S7aaw!K6UI4Qh+s!sx
z_w$CIRK!Nr5&6_55+bq99MoZFsq)!_Ua<t%JlA15DsLV~N=d%8?;Yh{+ZIQCWkZKB
zs)OY}xI1VoHj9e-&<F2~gLhul|B>{!%CHcBjzE&R4pAsDW68yBX5g9llznFN?=*Zm
zGd{1W$@&PjXo;$U<6N+0C~23pvQ_aw(m$)Kgw8pqa|p!Sj%}&LAw`c9KWJ?a{gHXR
zY=a&K>0TBZsZCDmYyL}n=%M}@V<m>Zn+G%u?3`{CywkBMV|&(;+{CuR(H*--RQR(Z
z?`df~G^{RBJ#MB`f26pbfd({ZF7RmhDFL_p2@WnC%!J1g(YGc8nIZ~X5wAZK+>Cj8
zfRW+<Y|v4L^s>S&>&uOmB&?J*99Lk_Uc#)7k9bq=+NOWv{(I={L@RPvG|A057%h;V
z#$OSKLg?x(7LmL>sJBBc$UaKPMP+;{>dai_+h(xSFKg1qGGNSpqnQB)_SByz24;<X
z=zYf5zoyWJUboWBKCwPNSQk|LNXk{%Ey$`7!I*+NsQ`Yo3{v5p)@VrlT{vIgjyN{I
zk;g&8K(xvlbsiJ4x<QYC3|Mq((_Oj75bTmpf!1mskmR}NmnX&1`3eVDzB;jta<O!h
zpC7&*N2Ezl{rsLcCB`MNOip$0D84-_=F*xQHvSc32XD@vPCtY0_D-gfP`hDeMBlM9
z%Wd5?^JKw^g1T9EkWB64x4@8$u&jE^VOrHQQW;7OY~G1&LKa+h0iDB}22ki&9ef?W
zS*G5$$!3<}y?c5YIdoE;xF}VqzT<Y~3nA?!ph}Pojc%{6bf=CaOz`QbRJpG!83NI$
zk}b_K!-)Sx|Lqu>0d`(uD#2D+NIVpX!Vj^HN-Sh1W&$UKGi}8+!~@dH*;amFk9xH9
zF;uc>OtuRn!t@Zws#0OVp5<tltR7<XC8yrEon8do-(JGPM>xs3@7L!Z+YOS1@G(j#
z27|&MXGYK>mpf;cNZ(|n2h_%^5SrXJV2{@BB4@>{cXcla-|ykfIiwXK<kDXi7EAFk
zHhl4$x>fC~23bdFn<0PK@!*eke8#EF7O*5**%T3|;SHmY(Fil5y0;c$z+KR&tA1)7
z*qlK@vuCm05n0@9J!h}(1yN9J40Mj5tf?cUoS<~2iX3M+)iRlT(u#Qr&hxVK;Oec^
zn0w8on)2vNbR`ldXRIm%>iuQVZqI~^BnwU3zZt0<uwT;Z{DnB3n)IIwk1~j5tE#Oo
z2%e45LN??p#=7DYF;J?AjTyvmR(ufS*)adBb&1{87%E4vt1vTFsW21Kl7fmqsFa@U
z#OV3<797GR_Lw~Ns?oXvr+(+Awl=;M4|F9G&>1e5^vsG*t;e)S?+r3Y2G*h9yQr5%
z_Sk;dzo%$_sa1)Lh9KuU4whS)X>mJ=@6P{7hLV@~kuQ!vA%tyKttL9jyh3&$r`|*T
znn!v9RYKVJxNKAzA3@m&`wh;Vxe&TMmSa4H6Gh5wzX4b2wPIceOwu0m&*%%AE4H%J
z=`?C(+$RO|NHw|rcpe*AG2;g8^cMFu>&#GV_@#$kDWG7j{_5P3QPgdGbs8-Lc<uh@
z8V0h$zH8&wz?o63rE@SpmY@|?bgWqGv#%`bPmdL(!{b?h&OD%nc^x;S&v+!}>Hod{
zxgncUBrjSyR6J?I-gtzj2A}}y<;Fc!rDk_we8m>gX7S0Rp_q3cnP)3r!Zi7Mp#R5)
zuRZqu^EqdAhkbU9elQQUB+2y(AI;-P>ON+~Yq8dtjv^ZWZx)I@_J!78$9~%>Ux+Pp
z`_o*ff6Mhc!c#<LwdnH|9mNuvlT^~Nz{kX^kcPLD<x$t~9xw4~b>{ZTjMM^4W;v>V
zwt+8%MeW*r;t`eE*!hRwR1o2j<?V`QHx$CB9=$s}?;~al2y}%$bU(^*r8}Ap<$)9~
z*^?%CV4D5)R(k9(_~pR*>HgnbExJ@wCqLJ}PsMK~=M*z+s*NKh7O!W%=yfBsM6XT!
zYT~gWW@8pGF7g{brx}V$mmNQ+_sc&u$wGH^U>(EzNh}-Bl$Y2+;Xh#=Jjgquu#q>`
z6q^@3xo?WKr^@>3>NT0Z!Fx5n)L}39dG>={$Ke6vO~21I2psxSf)D5>3M+XP?}Kr_
z{fea<&!oU}Xmn3_x=0l1+O4VN$Pao$^@;L~+p`LDj?Mjdq)cQds@@CJ%rIB8IIfJT
zxs+4z(;E9b`8NOCk;6T=paz@Ovt$H=?4-xUk9dq7Yq1g3cd=*jLtudgPVe0rFgYny
zxl43OU-he^ZyM)9J*{0Fr|R@Xy_%MHEM?5V{V_LCie*|sg+y3cgi@>U33VQED6sQP
zgx_WF+5Ed=lC5|KTse<3OVdlc&V6nh-@TyS+pzKd;v_Ntxwl;i&8g%dtr%kj(b$!p
zUJiN794sc9fjn`xLfFMY4fr$pD2rd2d{ui-C*jo(k6?}F6c)o#(GLS>FS9I4FC+)h
zRe_yhBT({Z35$!_VL1wzoQhJ>%Spu+*jCtkT^>ZasN(B7qE8Y643yDO&0wL-V~bq&
zb4E-H&Zjz?Hd(#S`2~wzQ0DzAzDRj-#!~%V*U`>rn>g1n6%q}^keqTfhnUqIE!_ut
z%yJrV(wBMG&Lgq!dcrgyo{31L-Rhj;2!yn$E*?x!Sik;88mV6hl~Ayu(-|+5<!-1?
zNEIW~gYY4a4?Pn2rIi<3MGt1fG@x^|ZoG{3&H9{wn!4-NxQJtk-zvECR!JXIBhzb$
z^h{!W?qorzL-J(SxQQUS;UW=;lzaTR#A=6WnfkoRh9jZ=P-2iOA`4Y5IFQ4(hboeO
zb0Uq<lJ_&OkN=Bk!<WWf+>w=8*ZsEo*`)VVz|S6ocTnX_r_ZCE{V0`x{a~A!*@0}g
zqWO$r0w&-cO3}z4hpIKsOVv-Tbbpey@nt;Qhe@Q=yb^jlk(vyIbLd8WB2Z2h8+J?l
z6IEO@XWMnij*)Rb;OX<z#14$SM~B|$wmcZ4-u*<Ra{EowSLD`qfQGr0MpZtv+a;w4
z`VL2&*t)5K(q3HrNt>_q>>jJTt{!sx%gbs;tDabeFbk^WPutJ@HYzCP)xQu2P>9JJ
zkC#9xg59|9GVDY!8FKk*PC16NsTnE`>_Zlum*YH6(pl!;mZn1$5iT_}@*`1S8D?D!
z76(%;kf`#>9+ysnq*_V{=uce_#BnX}4pnXW-t|dUuFb0Yem-Bz1&tXE4CKHKJa3LL
zgsEzgejpwh#g(Jc*<g)z55Qz_7dR=mqTFWW-I<8uyV1Ev%0HHp8o@%<aBytyzqmEH
z1$&5zBMBfY;+y=-vfa&*23gR`a!294u0p18X!nZJ&3GS^xjCv_vHn#4OM+N!n($3e
zi=`8(WNnx3=B1n9kBPdv5Wc^Q`&$%RcC(y+*pO|#c_-&;^-X7!1cLkGMV2?-WMOTL
z1y~)a>cmCj{E5b)(3zaR8-G-nUG8dbn{XS9u_q!xVIGOSy9xA6bwt+Yd;nc}dHe&a
z=94OuCHaGiS9mH_iptly4w3!8-~3T202d|1q+X>qsY_jn9)=Nzo%qM=QIbd2OvOe@
zaVp;c*_U-3**{sQ&p{SF(Bxaaz8njF-=+QlT#+8Z`THlPMVWZ`?k&~!(@DR2C#O7)
z<f%Hg!?i-I<@;c014(Ek#L{%x+<A~yNAh*~Nb=cu+l%WxtH1?Pk-nXlxSn7~Dh7Q1
z!wCcnNe6h0+%ai~VOP(@XZF&#^>`_5hPo{+D>y+bok3}U?QH$5OC<fa3~{`)k7SeD
z<%MIE@4aZ4Z^DkGo;Rmc?*n1394YZEI1aKFaA2}Z3>@Ri)`rs&;cRdii^SI$I!#&$
zY)YBF2X;a~3W!NyRH_k%iELRuH`$j%Sih~k(J}BCv}f%avPhGdygBgxhG2lN3XKYB
z9jUlJ;<xK9&84pY)+B&OcJ#gLW|Bg$$+@;vzSr_eVhNK#aTBoYT4wS1FzM?-lnD^n
zNfagf<l}qW$K9r}P@`moR*EO*2ZLDpv!*PIzWh^sB%n|}eROc5XE|TcDDI8*2c^EP
z%|00BO4(ImIb&d({#jOa>`xEC;j-!VN|fwNLNUQ(y`#|E^ebn?<Vy)#Gdhn1kt}wB
zIdk`B*Dd`98GKnees2L%{)Xr8xqVvl5RSMyCPw%KZaY4UsA3I>kWZb<wHbsUJwGd5
zD4pI)4PqES@jcp#sXBhV4(Vw6St$@4<)e|f-r(_pjau?TNT#6mG(-c{kz)eDDyjd`
zUW?odY#zdQbOJKehAtU4O}`L-wY{4ro9eEF7?C2|r|GPe_?)$0%==BW<r!|xS_0JK
zG(y=hQDcS@Fp!K7cu}L^J|FJ6JOO6@^7o|uO*M`Acc-_WuyqGaM5Qj0{x>!O1M*Ry
zuFcla$2(y=zXBXF_?10`fgac=2{aM}Lgc=ndq0WBC_t*mBSZ|E2?`I>yv#M@6)2ma
zEeFrOe`2G~9+3}i=7(;_Dq-h3x8z#ARH4U3lL0PZp}CZ?gnxEVbM6-uiQ<3cZ1Jhk
zjb|5<LTLR%-96xGFm!pZo#7R$W|Pmm+>fmS>O4e3s3Uh!NDp%{dq@F3=G&rycEz84
ziu-HY&!T=K)A#jFj~G6Fh3V{J^a>@V$8yQLFL}%7q#pACH9clx*_g-T=);HzF{_$x
zf+HvJCYA4uWl`&>s<zVoj9(LzUbTkSW!2BXvX+R*qH^D_0zP&Kw2nUF-u=M%*NpgE
zQfp@x-Ut6ISeMo;Efb(TlQUaHT%_kyo}>1i!cv@*e{d?n`&L^KqtR;V#AIRQb*@pR
zd(`F3)xoe)kt{!TmFeH-AI|JC8G<0815*j=`65(^{$-8`SRiHR9j%LWt+wOByW^jI
zDpUJ(60}j!6s3z#vhJpwzxz0z<i+97G4x_Zl!=4FpVDWCaE5>=L3gRDPAQtD)VG9k
z5)l8sfbZZ(P7Bs>5~p5EOFCW9BZu$FE>Wjm&2w|cx$yMj>Vw&nVNHkp=tHlhlax^U
zu-RY_CN+@Rv_D@1Ro-d-wmsB;$z1&T!GAz2LN1$`dCbe8Ro(Q$Qc@wsO`n)kuQwvq
zPid~j*RA8&-2WssnrVG!x2GvjW)H-{WT+wfAi{c1VoOHULS2cfy}TacS_wx__Y>(>
zrio6hq-7cHl3;b4CSo)@6cJBhl&8x5c(>Mz{kiV1cl<*CpX|K-RWJ4vPB`&Xf(n76
zw^AsSkk*~Vi>{KB=_J|k<tQ6CXI1=&2ghdp*Cm=~@8~Yp?IWSm7)d+&6{aI_YS!Ud
zEz!VV5}xwWE!z8TZB)yr0c7Fpr>)$9Z;uK~=T6HUR1ALj@^wj^6yXWvr=yO47=byv
z?euYjRn*j09Qg8>stQ8E1KF41lSr?>k|Ks4j?~C^HQnGK`B0lpUV{mv)#=taolv+<
z!jFs-AF1ur%n^(qvsIc2+~6$W{<cz@?Dfzs$R2_!r{7&ZY7%4QjeQy*uuXxS4u?rc
zz9M=&AG@npb?*6Qmk|<^_z~8|JB=;m&Z@5))m8ahmo4U3C0SbYlf?a(mWw9_n;hok
zX8<JPGrwxy{w5R2tcu`rI4LGW110^pM6UC8XQJ>v*8TpKX!Ueh`-bq5HaL(dyi7ZC
zmpUm%9$iTvGhl5RR@lq+!~(n(vN72nZk7|bXZH<$U2CI$^`mX8dUy-%k0ZyZ=gSwZ
zl)-$YbY4g7w?J8E$t|99k9^LGRNU@q>}3xYbc4ovJGs{(e08VToJjA^q6n<Nc3mY5
z`}|L~TF%9+i}-FN_$ui=z2Pb6<?=yBP?E45sw^iRO6B`hMogkGKy9eg`Mnr0+Vrwe
zN{%d_eWD{-mQ56W<jE4vta=7UVt56iPGT!=h0GVNc5eZEGm)^{V->OxE(L1x4~*vI
zHBmqLgrx8Y^IIwyPun1$4ts?UnScx_(z*%y`*?|2ZH_R=T*tf8xUcR9QYH6&2D@Kc
z%HgB#@7UY5<Z-N%hG*-b{cv<-5SHiFx4LSpO4E<06T5epu0xHwS}6l}m-7|LjU{|P
zGM|%8?9b_vGbQ<2IkONHBrFNr-m<irwt~bto)U`Q^ZxjtaQx#A-qAN-Q?xvJRN=dq
zXY9wLaD8499ugIjM{jBo*aGVs>LwBWfe_d%+jF-liJ%~&nqxE?ss#<yU9*hd2`=nN
z@zdY3cyXgYmlZpIM>xeJMTi2L@nGL6Vq@G9tv&`Y(r#L9Y~FdBOvb-dBY0-@*TCt$
z2M!~#4q2EVIZd2o-KL?5M(+yxz(*9EC}=SFZgx6Dku9O+e(V$AV|JqW<dmX^>$7}g
zT=Oqc4){gC*d?4S0(gS%S}n}z<v_y33*)hMJ5A5O4IF(;=1PZcS#SbFKmc_7y-(yP
zldDYc?g!bqaR3+;B;S}Y+)3kM5*M1fSO6pQw4Eym33~g-j?_n6^Io{8<X0GdHxaCW
zAQ+ZCH4CaF8HEZ2Fsn|nnaS`!`9JcT+7!l)+t&va3#wung=f^8t_(z>EdEjK7Fv7^
z1^-}mC>-2Ju;T@~b_mV?J;Y#ey1FA%dq4o9Fn2*_BXt${NNiM9HmbxMzz3SmkJ%9V
zrv+s@R#4`%%Q0Pvq{G0R$%pn2EYx2WaNNE=z!x4gcja!kwmS)tp(ts}fbTef>}Mw@
z9v)k2<eTK^fOcu0ySu(`H~iv9brcJ^%e$F>1FBBWk#T;BepfmhQfWxLlZCnAjCE`E
zLAr4aCqFMt-L6g0<W1Q{`ZknqY9`i)Gaz|x(ZZ*6ul<doQ?%_->hL}-N-uQuU4<+@
zIzXCcbx2A$MNVA;7A=1z=0smu728H)cK+Re!DISa;8AmOR-jJ6fk!m_^P#g%0wUkv
z*vp%s`M_nI?ql*hg3{|^D$Tb}sL}zW){V!DJco@O_X-E{aji{<Y*hrcznfZmUk)Db
zEgZaj@+j!-NJqKIk?@#28h~C|S@CW6X#9!CoHYJ>K|M5toK)ZQ*Bn9GL>G)obOTc+
z>rg2nSV*mpy1~__&9mAZ%K2}^H}G|9|4F6d-NOJXB!(;qT{`P;(mg7O%Wr_g15?$w
zO_A$;YPv0w_5(#Kw7wudFbEA*SL9%R^#kG{=?U8N7}BHUF$!Ed5#)Uc#VZ7j=Ap+S
z3hg9K!e5BqRqLHr1a!S>WX%5|uO|%&y4@n){(Sf&ccFIVYvD+M^G##DBo`2cjH1Uu
z;IyW1paFt_J*Fn;_G6)Js*Eg^!G*>(M4^(A2sLs^SZAMpk2op`eAlGU%bppcFrth^
zq2rl7%XMt&V&uHh-E<vt(Ml_FaC7HsV_s@0WH|~pNXgU;S&7O=30At?k->kDi!n7?
z5Rsxo{Kh|G8*POL{kJtg%~Vll>VY2wgx+3Qs6qwx`h&u^NdtA?)wo<+-hE<vs($8S
z*m^LuGB7*WX}V%Kfu;QN^I^tROA~N?P7?mIdsQzQo@lo@c;Zoa{NugYe40I)7txz=
z{b2^opw@(mk^Rrn=~fRW*l-9yOw(zgHzvj(qHhkgd)6JJcX?<62#Hip)Zo^Fe~v7t
zQehna;MDqoT(uMx$a}@nMqxb@`Rt{M^!wypsO5F~S1wGLH{5}+a!EEfN1m(a90lBz
zUi#q$gP;abw$10V$bPngsZj#{OTzWGXppG(vA1UXIf!M*SL~vKWbEyFNz}-5$@JTn
z4bfkMc2D(4MgtlT`Mk-zo>>JRH~+kN_fqe-P!yve%6VIU0&I4y!Rbj4ak-p0f)=RN
zi`h(U4jrG*ffjPksnCB!vZWth8j~C|Yjs$5`T5$qX-LBAZ8*A7XyJD3G<4_RcQODJ
zoSC(AJKxbROM&<l%jvi8_1jSz!*WOOrR7o*wQUE^^l0Ov5^TtdWmo;h@sC`Qnuh@e
zzHF7FMnQZqa}?b7%x8{?)p|7OCS@!nYu;+xr9u8aeEqWbn~Ie6X_b%gbCo}m+eNKF
z%b{vSs53N_&S2Zn3-@6=(V8V^m6mfE_lQ6C5T3&kR<%sM_b&EocZi0*d>mgJNmNGp
zS9l7UqLA8`q+#Lf&%X}&80X5V;nj3|+uU9VJH6-l%*E+>H#6?#XeT8@Sc*cNOCN4U
zW#domLiO5E^Ncn*FU>ablcpEHDfCezt*?9b)=Q;hKEnBs1DHlmiR<|vB@7`)RKHQ|
zI4g2W9>#2v&wn#%o}zf++**?_3{2>L_>m?*UZVZhj{jg1gCDlr1Ad<|XVf4#Y08Fp
zVdwKs;gc5yauhRa7tV&{R#&B)hyF9?qD(+EQ>7ng)QqV3Q`)R%!<%TAveCc46tmeZ
zCFO=o#DxFo@QWgF{A@6<lL*{N>~SmZ_WL|%g&MHSj}Qc?DJvvIQ{VmO=9JZZq>55`
z?sIpxO>o-F2<t>~yTc|wVg^wU8{Xzj9W%z*t^c6FP2C+xCB(b+=G-CBKoW*j@oO=y
z0_OKMFB5aw<ztoJ6KA9)O*I@i+pFO<{v~iw2d`nFB8s{|*d|X~4|BGUvA>#MPanBu
zkiLnQWYOx$rY;%z_W1SVz<QMyUc>ohT~kL!#OpGFi~)G#`(r4|)Q3y5%Ha}B^jJ#h
zr*l^O$H2h%Z2q`v7w#eX%nG$xnqk>dJhq9pT~f_U#|vMh3M1qaWQq3IRWNsQcO?xN
z;YF}@(c1x$f0A&<p35K6@v~}Wod`0A9~O5k!TSBUma@|7`&aYjc+EGfZC_7!`|Oxr
zL0@sV#&gEiXLcz%mK52VeD`Q9C@%Cb&+oHV`gT+u)$jBMev}xXK7LB)HYI;Nalo95
zv}wwai=;;Z{~oe8{D=rUu;?CIU|v?_{VV3S(ZfD@w1d0S#W*T9zISORlxJ4%<L9A4
z$t8Q^0A8P06x@4jozq$SUNhrvpAMO_Zb3~<{|6h-lfU?IrCNLD5@4#!9{E_*wn9TA
zHw+xTX*ByPSklz5imd{F;piV&8bI01HY6F<Ii4R;`X*}LCVFTBXPULsUakds`Sw$*
z?`8*LSalh<@;}Vdq^<Jy*QDX7k~cSvB}GWD<=@{tj;<4|&{u6!FX6e)MY6vspn-I#
zbsu#}%V|w3zANQ(VoxXmELlIXbyIoczxC-;QQ&DugLt1yq6%sX7R-(Qj|YHUxUV^c
zjd0j!E<7hT-_~F(J@ZyJj|Gvs_}jVFW!*Sled?e6&V-h=>(+#KmhMWz_TQG?yuuJA
z8V}MBjG7RACCt6q$(#-Huz3yrLg4?~ly865a~-_%aPzKU#`@%4qL)^(yz<nzxbJK1
z9{H&A8-+p66p+4Zw{c&FN?(Y=oR=RNB7a($<+oq)|B~*iS}+e355D`VwI3?G=A3%3
z@Tlz8C*!sAnvegT^vP!Z)6hEqO1+{dZl!Wb+rG+j|BbuvS`*pzRam@iTPw$N;F=On
hkOhMT@cpP~WMi;kx~;+fmiq|EQJ$`TF6*2UngFl2NKXI&

literal 0
HcmV?d00001

diff --git a/inst/report/data_quality_report.Rmd b/inst/report/data_quality_report.Rmd
new file mode 100644
index 0000000..c288d08
--- /dev/null
+++ b/inst/report/data_quality_report.Rmd
@@ -0,0 +1,9 @@
+---
+title: Data Quality Report
+---
+
+
+# Introduction
+```{r, echo=FALSE, result="hide"}
+print(ccd@nepisodes)
+```
diff --git a/inst/report/dqr.Rmd b/inst/report/dqr.Rmd
new file mode 100644
index 0000000..f9c21fd
--- /dev/null
+++ b/inst/report/dqr.Rmd
@@ -0,0 +1,82 @@
+---
+title: "NHIC Data Quality Report"
+date: `r format(Sys.time(), "%d %B, %Y")`
+output:
+  pdf_document: 
+    toc: true
+    number_sections: true
+    highlight: tango
+  html_document:
+    mathjax: local
+    self_contained: no
+    theme: journal
+--- 
+
+```{r, echo=FALSE, result="hide"}
+# =================================> Setups
+#load data
+FILE <- '../data/delta_num.RData'
+FILE <- paste(getwd(), FILE, sep="/")
+library(ccdata)
+if (!exists("ccd_delta_num"))
+      load(FILE)
+ccd <- ccd_delta_num
+siteinfol <- site.info()
+siteinfot <- as.data.frame(siteinfol, stringsAsFactors=FALSE)
+row.names(siteinfot) <- c("Hospital", "Unit", "Location", "Notes")
+siteinfot <- siteinfot[1:3, ] # remove notes
+info <- extract.info(ccd)
+
+suppressWarnings(library(pander))
+panderOptions("digits", 2) 
+panderOptions("table.split.table", Inf)
+
+ctime <- file.info(FILE)$ctime
+hostname <- system('hostname')
+```
+
+\newpage
+
+# Data Summary
+This is the data summary of file ``r FILE`` which sits on the machine 
+``r Sys.info()['nodename']``, created at ``r ctime``.
+
+## Site Code Information
+```{r, echo=FALSE}
+panderOptions("table.style", "multiline")
+pander(t(siteinfot), split.table = Inf)
+```
+## XML files
+```{r, echo=FALSE}
+pander(file.summary.table(info))
+```
+
+## Data Summary of Sites
+```{r pander, echo=FALSE}
+pander(summary.table2(info))
+```
+
+
+# Identification Issues
+## Non-identifiable Episodes 
+```{r, echo=FALSE}
+allmiss = info[nhs_number=="NULL" & pas_number=="NULL"]
+numallmiss = nrow(allmiss)
+```
+Patient identity is based on NHS number or PAS number.  In this data extract,
+there are **`r mdred(numallmiss)`** episodes missing both NHS number and PAS
+number. The non-identifiable episodes are distributed as following, 
+
+```{r, echo=FALSE}
+pander(allmiss[,list("Number of Non-identifiable Episodes"=.N), by="Site"])
+```
+## Identification Missingness
+```{r, echo=FALSE}
+pander(id.missingness(info))
+```
+
+# Entire Field Missingness
+\footnotesize
+```{r, echo=FALSE}
+pander(miss.fields(ccd))
+```
diff --git a/inst/report/listings-setup.tex b/inst/report/listings-setup.tex
new file mode 100644
index 0000000..34e46d6
--- /dev/null
+++ b/inst/report/listings-setup.tex
@@ -0,0 +1,58 @@
+\usepackage{xcolor}
+
+\usepackage{listings}
+\usepackage{color}
+
+\definecolor{mygreen}{rgb}{0,0.6,0}
+\definecolor{mygray}{rgb}{0.5,0.5,0.5}
+\definecolor{mymauve}{rgb}{0.58,0,0.82}
+\definecolor{mygray}{gray}{.9}
+
+\lstset{ %
+  backgroundcolor=\color{mygray},   % choose the background color; you must add \usepackage{color} or \usepackage{xcolor}
+  basicstyle=\fontfamily{cmtt}\footnotesize,        % the size of the fonts that are used for the code
+  breakatwhitespace=false,         % sets if automatic breaks should only happen at whitespace
+  breaklines=true,                 % sets automatic line breaking
+  captionpos=b,                    % sets the caption-position to bottom
+  commentstyle=\color{mygreen},    % comment style
+  deletekeywords={...},            % if you want to delete keywords from the given language
+%  escapeinside={\%*}{*)},          % if you want to add LaTeX within your code
+  extendedchars=true,              % lets you use non-ASCII characters; for 8-bits encodings only, does not work with UTF-8
+  frame=single,                    % adds a frame around the code
+  keepspaces=true,                 % keeps spaces in text, useful for keeping indentation of code (possibly needs columns=flexible)
+  keywordstyle=\color{blue},       % keyword style
+%  language=Octave,                 % the language of the code
+  otherkeywords={*,...},           % if you want to add more keywords to the set
+%  numbers=left,                    % where to put the line-numbers; possible values are (none, left, right)
+%  numbersep=5pt,                   % how far the line-numbers are from the code
+%  numberstyle=\tiny\color{mygray}, % the style that is used for the line-numbers
+  rulecolor=\color{black},         % if not set, the frame-color may be changed on line-breaks within not-black text (e.g. comments (green here))
+  showspaces=false,                % show spaces everywhere adding particular underscores; it overrides 'showstringspaces'
+  showstringspaces=false,          % underline spaces within strings only
+  showtabs=false,                  % show tabs within strings adding particular underscores
+  stepnumber=2,                    % the step between two line-numbers. If it's 1, each line will be numbered
+  stringstyle=\color{mymauve},     % string literal style
+  tabsize=2,                     % sets default tabsize to 2 spaces
+  title=\lstname                   % show the filename of files included with \lstinputlisting; also try caption instead of title
+}
+
+%\lstset{
+%  basicstyle=\ttfamily,
+%%  numbers=left,
+%%  numberstyle=\footnotesize,
+%%  stepnumber=2,
+%%  numbersep=5pt,
+%  backgroundcolor=\color{black!10},
+%  showspaces=false,
+%  showstringspaces=false,
+%  showtabs=false,
+%  tabsize=2,
+%  captionpos=b,
+%  breaklines=true,
+%  breakatwhitespace=true,
+%  breakautoindent=true,
+%  linewidth=80
+%}
+
+
+
diff --git a/inst/report/report.latex b/inst/report/report.latex
new file mode 100644
index 0000000..50186a7
--- /dev/null
+++ b/inst/report/report.latex
@@ -0,0 +1,246 @@
+\documentclass[$if(fontsize)$$fontsize$,$endif$$if(lang)$$lang$,$endif$$if(papersize)$$papersize$,$endif$]{$documentclass$}
+
+
+
+
+\usepackage[T1]{fontenc}
+\usepackage{lmodern}
+\usepackage{amssymb,amsmath}
+\usepackage{ifxetex,ifluatex}
+\usepackage[svgnames]{xcolor} % Enabling colors by their 'svgnames'
+\usepackage{fixltx2e} % provides \textsubscript
+% use microtype if available
+\IfFileExists{microtype.sty}{\usepackage{microtype}}{}
+% use upquote if available, for straight quotes in verbatim environments
+\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
+\ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex
+  \usepackage[utf8]{inputenc}
+$if(euro)$
+  \usepackage{eurosym}
+$endif$
+\else % if luatex or xelatex
+  \usepackage{fontspec}
+  \ifxetex
+    \usepackage{xltxtra,xunicode}
+  \fi
+  \defaultfontfeatures{Mapping=tex-text,Scale=MatchLowercase}
+  \newcommand{\euro}{€}
+$if(mainfont)$
+    \setmainfont{$mainfont$}
+$endif$
+$if(sansfont)$
+    \setsansfont{$sansfont$}
+$endif$
+$if(monofont)$
+    \setmonofont{$monofont$}
+$endif$
+$if(mathfont)$
+    \setmathfont{$mathfont$}
+$endif$
+\fi
+$if(geometry)$
+\usepackage[$for(geometry)$$geometry$$sep$,$endfor$]{geometry}
+$endif$
+$if(natbib)$
+\usepackage{natbib}
+\bibliographystyle{plainnat}
+$endif$
+$if(biblatex)$
+\usepackage{biblatex}
+$if(biblio-files)$
+\bibliography{$biblio-files$}
+$endif$
+$endif$
+$if(listings)$
+\usepackage{listings}
+$endif$
+$if(lhs)$
+\lstnewenvironment{code}{\lstset{language=Haskell,basicstyle=\small\ttfamily}}{}
+$endif$
+$if(highlighting-macros)$
+$highlighting-macros$
+$endif$
+$if(verbatim-in-note)$
+\usepackage{fancyvrb}
+$endif$
+$if(tables)$
+\usepackage{longtable}
+\let\oldlongtable\longtable
+
+\def\longtable{\tiny \oldlongtable}
+
+$endif$
+\usepackage{libertine}
+\usepackage{framed}
+\let\oldquote\quote
+\let\endoldquote\endquote
+\newcommand*\openquote{\makebox(25,-22){\scalebox{5}{\color{DarkGreen}``}}}
+\newcommand*\closequote{\makebox(25,-22){\scalebox{5}{\color{DarkGreen}''}}}
+\definecolor{verypalegreen}{RGB}{252,255,250}
+\colorlet{shadecolor}{verypalegreen}
+%\setlength{\textwidth}{6in}
+\makeatletter
+\def\shadequote{\begin{snugshade}\begin{oldquote}\openquote}
+\def\endshadequote{%
+  \closequote\end{oldquote}\end{snugshade}}
+\makeatother
+  
+\renewenvironment{quote}{\begin{shadequote}}{\end{shadequote}}
+\usepackage{graphicx}
+% We will generate all images so they have a width \maxwidth. This means
+% that they will get their normal width if they fit onto the page, but
+% are scaled down if they would overflow the margins.
+\makeatletter
+\def\maxwidth{\ifdim\Gin@nat@width>\linewidth\linewidth
+\else\Gin@nat@width\fi}
+\makeatother
+\let\Oldincludegraphics\includegraphics
+\renewcommand{\includegraphics}[1]{\Oldincludegraphics[width=\maxwidth]{#1}}
+\ifxetex
+  \usepackage[setpagesize=false, % page size defined by xetex
+              unicode=false, % unicode breaks when used with xetex
+              xetex]{hyperref}
+\else
+  \usepackage[unicode=true]{hyperref}
+\fi
+\hypersetup{breaklinks=true,
+            bookmarks=true,
+            pdfauthor={$author-meta$},
+            pdftitle={$title-meta$},
+            colorlinks=true,
+            urlcolor=$if(urlcolor)$$urlcolor$$else$blue$endif$,
+            linkcolor=$if(linkcolor)$$linkcolor$$else$magenta$endif$,
+            pdfborder={0 0 0}}
+\urlstyle{same}  % don't use monospace font for urls
+$if(links-as-notes)$
+% Make links footnotes instead of hotlinks:
+\renewcommand{\href}[2]{#2\footnote{\url{#1}}}
+$endif$
+$if(strikeout)$
+\usepackage[normalem]{ulem}
+% avoid problems with \sout in headers with hyperref:
+\pdfstringdefDisableCommands{\renewcommand{\sout}{}}
+$endif$
+\setlength{\parindent}{0pt}
+\setlength{\parskip}{6pt plus 2pt minus 1pt}
+\setlength{\emergencystretch}{3em}  % prevent overfull lines
+$if(numbersections)$
+$else$
+\setcounter{secnumdepth}{0}
+$endif$
+$if(verbatim-in-note)$
+\VerbatimFootnotes % allows verbatim text in footnotes
+$endif$
+$if(lang)$
+\ifxetex
+  \usepackage{polyglossia}
+  \setmainlanguage{$mainlang$}
+\else
+  \usepackage[$lang$]{babel}
+\fi
+$endif$
+$for(header-includes)$
+$header-includes$
+$endfor$
+  
+\usepackage{lettrine} % Package to accentuate the first letter of the text  
+\usepackage{fix-cm}	 % Custom font sizes - used for the initial letter in the document
+
+\definecolor{uclmidgreen}{RGB}{130,141,55}
+
+\newcommand{\initial}[1]{ % Defines the command and style for the first letter
+\lettrine[lines=3,lhang=0.3,nindent=0em]{
+\color{DarkGreen}
+{\textsf{#1}}}{}}
+
+\definecolor{ccdblue}{RGB}{0, 54, 73}
+\usepackage{sectsty} % Enables custom section titles
+\sectionfont{\color{ccdblue}\fontsize{20}{20}\usefont{OT1}{phv}{b}{n}} % Change the font of all section commands
+\subsectionfont{\color{ccdblue}\fontsize{16}{16}\usefont{OT1}{phv}{b}{n}} % Change the font of all section commands
+
+
+\usepackage{titling} % Allows custom title configuration 
+\newcommand{\HorRule}{\color{DarkSeaGreen} \rule{\linewidth}{1pt}} % Defines the gold horizontal rule around the title
+\usepackage{pagecolor}% With option pagecolor={somecolor or none}
+\pretitle{
+  \vspace*{\fill}
+  \Oldincludegraphics[scale=0.15]{ccd_color}
+    \par
+    \fontsize{35}{35}
+    \usefont{OT1}{phv}{b}{n}
+    \color{ccdblue}    
+    \selectfont
+}
+\posttitle{\vspace*{\fill}}
+$if(title)$
+\title{$title$}
+$endif$
+
+\author{$for(author)$$author$$sep$ \and $endfor$}
+\date{$date$}
+
+%\postauthor{\footnotesize \usefont{OT1}{phv}{m}{sl} \color{Black} % Configuration for the institution name
+%
+%
+%University College London% Your institution
+%
+%\par\end{flushleft}\HorRule} % Horizontal rule after the title
+      
+
+\usepackage{picture}
+\usepackage{eso-pic}
+
+\renewcommand{\rmdefault}{phv}
+
+\usepackage{fancyhdr}
+
+\begin{document}
+%\pagecolor{seafoam}
+$if(title)$
+\maketitle
+$endif$
+\newpage
+\pagecolor{white}
+\pagestyle{fancy}
+\fancyhf{}
+\rhead{\Oldincludegraphics[scale=0.1]{ccd_gray}}
+\lhead{\leftmark}
+\rfoot{Page \thepage}
+
+$for(include-before)$
+$include-before$
+$endfor$
+
+\par \par 
+
+$if(toc)$
+{
+  \hypersetup{linkcolor=black}
+\setcounter{tocdepth}{$toc-depth$}
+\tableofcontents
+}
+$endif$
+$body$
+
+$if(natbib)$
+$if(biblio-files)$
+$if(biblio-title)$
+$if(book-class)$
+\renewcommand\bibname{$biblio-title$}
+$else$
+\renewcommand\refname{$biblio-title$}
+$endif$
+$endif$
+\bibliography{$biblio-files$}
+
+$endif$
+$endif$
+$if(biblatex)$
+\printbibliography$if(biblio-title)$[title=$biblio-title$]$endif$
+
+$endif$
+$for(include-after)$
+$include-after$
+
+$endfor$
+\end{document}
diff --git a/man/data.quality.report.Rd b/man/data.quality.report.Rd
new file mode 100644
index 0000000..c32cd41
--- /dev/null
+++ b/man/data.quality.report.Rd
@@ -0,0 +1,12 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data.quality.report.R
+\name{data.quality.report}
+\alias{data.quality.report}
+\title{Create the data quality report}
+\usage{
+data.quality.report(ccd, pdf = T)
+}
+\description{
+Create the data quality report
+}
+

From a0d4abfa96c35ec662fcb270156fa8011e39c8cb Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Wed, 23 Nov 2016 18:35:36 +0000
Subject: [PATCH 04/14] DQ report: file list

---
 R/data.quality.report.R             |  10 +++++-----
 inst/report/bar.png                 | Bin 0 -> 4087 bytes
 inst/report/data_quality_report.Rmd |  20 +++++++++++++++++---
 inst/report/report.latex            |  24 +++++++++++++++++-------
 4 files changed, 39 insertions(+), 15 deletions(-)
 create mode 100644 inst/report/bar.png

diff --git a/R/data.quality.report.R b/R/data.quality.report.R
index d4676d4..fd519d4 100644
--- a/R/data.quality.report.R
+++ b/R/data.quality.report.R
@@ -4,15 +4,15 @@
 #' @import knitr
 data.quality.report <- function(ccd, pdf=T) {
     
-    if (!dir.exists(".temp")) {
-        unlink(".temp", recursive=T)
-        dir.create(".temp")
+    if (!dir.exists(".report")) {
+        unlink(".report", recursive=T)
+        dir.create(".report")
     }
     wd <- getwd()
     rptpath <- paste(path.package('ccdata'), "report", sep="/")
-    file.copy(rptpath, ".temp", recursive=T)
+    file.copy(rptpath, ".report", recursive=T)
 
-    setwd('.temp/report')
+    setwd('.report/report')
     dqpath <- "data_quality_report.Rmd"
     headerpath <- "listings-setup.tex"
     tpltpath <- "report.latex"
diff --git a/inst/report/bar.png b/inst/report/bar.png
new file mode 100644
index 0000000000000000000000000000000000000000..9e3d0478c892a88cdc4b4af0631d9217eac860bf
GIT binary patch
literal 4087
zcmV<T4+!vyP)<h;3K|Lk000e1NJLTq00EEy001Zm0ssI2Uo$&500009a7bBm000XU
z000XU0RWnu7ytkO2XskIMF-#u4HgR@DScBC0000TX;fHrLvL+uWo~o;00000Lvm$d
zbY)~9cWHEJAV*0}P-HG;2LJ#MZAnByRCwCuU0ZhKxDJz@P2J_pUS{2~?}yVWngl^m
zl|E<U)K^mFhb&7F2tKs^@1K9i7-NiW{}_M%8h<|9wr$&Hzu&fP{sDe6pLxNr@AuuF
zYj1J8d$`(l*4MxHw%PXBgYD@b`!>edx7%6vr}@1-<~nTOUdPX0_kBOl(;Yv?*h7!m
z)8`ek1MIK!Z+q_RdBd0XI<{f%8+V2IB{}`$eywfz#`{j#{L8f$u>bD+9`6EQLHQK0
zlkJsbJKe9ZZ<5BlBgu2Q7Q*2d-;o=NxNZC9x;nm1GJ4(g{Gp%MpgE6E_ZxmfgAT)-
z><<oyeI0NfV~q1W*}?H@=kayQdAz<mPY;pi-+7DckK@dr2z~EcXpW3Oecj^z@4mHf
zbp3js=hfQtJngSpldh+8&s*Nw4R?FiaW)3fJQy}$Pv(eg3~aM~as2V!Pxj)oCwb%b
z$1Fb<t>)v$r?3}{XcZTytVwRLJrAK$z`{rre>ITN`j7$VuNhl1zqyksa!t74_qt|d
zgEFqDkzpyF5HUBS1N=ek;%_HI`S|fM?Kj<t3jgR0hVTaUTPvMBe}$lMj@t^s*SUCP
z2L14b&d=w8mnHWg*S~PsLqJqI`6mNb1|RuLdi98d7><4MWo&!dxn10u>vJ{&$_tXY
z%E-=fw4TB(xp0iao4T3&nKYM^3pghgklL440eDt-Q7IW*M9i!c_RaqUv3_}Q&g&~Y
zu^fJrfRkk`T8PT({=)%FfSX7qZrx!ZZwgrM;tJ_i2d+if`}K9yi!XSY8Y~a)l4TIQ
zi;{;9^lmiUmfVQskU))_uH;MC18%BA;<jMZ@eZ+VIL}kWWqYJ+9%Rt&^pAbh`_MsB
zw!*odiTcTd086pjgxP!j>KM4Rc1677JpT_!o##2vh4+2OLg{|uU?oIv-`L!nB&bxH
zqI||@-CVS@12W?F($2R*Iy`$Q*fSh`tVYJ)X=!&e7BhP5Tr|Vouvb2=lP#!ag6X)+
zvfSkSEheF}+SrRkaCYmv;}G>@cQ1eB{YF;EAHib?IlsR66Usw|MLCz;e49L?T+HEv
zC<BxW&m3hwWZQ2_Zy8xj`MAK}*A^HH*5o-9O31q*u0WXpH-!}9inU^k2tW|)pDwyj
zETC2uj9{pHXWtu*x-%@xn;aeiK5W4&(3}QnQVK)9B)5Q^3pUR!*D)Rf@(wP<Kri8_
zME9E>JWkR}R(NjNO_@2Si)ERYa1tNVHja!Ff@7C*&xW&SW6Xg)JzlDdHJ0b<(%TOQ
ztiYj4NAkA`Ixddk&ajAK1r$drz-4M>jEh+#P^C=9r6L$pV<}QR9paID7XD})Wm*ht
zjR=Se*D|Z+<WBcj@>3jS*jOs}Xe8=o<bI)OD_A~jdx>BF$r=`4d_<D}b<A<RNmk)0
zUpL)$uC<jT!!Dst*2yT9n_c^8Sd?TbCUZmg7;qrqQ`B9mRJ950lJF>fse5PQm9c63
z;yh}PgqY2xW%AR^G|rk42|;`jFyw-R>7xJ(3R2+t`LEfa+4sgsil8IJJ#@#t=m&%Y
zLX=l{n5Z(~?A#y@ctS&>=<ZmXn@b*u6EC5HjPYvx)i_?cK!wIVkOk%paGwB-!@7E@
zWonh9%icPAHX`Nk27koi@!YTmI7H54z&x0DEWyqdnEJCC%euU}#x?U;;t?@AhPclh
z;U%iAVrtEq9IcfW!#d7)yLVo}DR)lm$(}K4a~4_nTm{S6NTH1^7}>0ek?y6*Rys6c
zSc4Mj{<zc}<P3J91L+LR5^-Mredwh9mRI;5tVEluMam*Pl^B!-!VDz3M;Q*bb`H%*
z(46g{MADZ}ZSS7VE75({BEMN!X+}fJHv$<}e2SYmaA#OH-I9QvlN7qp;D#&o7Y)r#
z{EI~Q7}kU>6gdvQ^TzH5W5{ZJT@V_ixx2tk1|`kSEvkx!rKj($jUmFY^tl23B#=_^
z)Eu{@^OZo9{~=5h-=Fx@gkh!bmpj8+Sm$6+f)4AJbi*EiLnt!1@%XR?Rgg;HtjHfu
zG%Rcz@|dsOo+^ieqFc{lVG+TtpFm<T$<G9y#4(f+y0sh;2yG-wj?7Z%l`rukHr`Q1
z68#7fQ+)4`8F2^qXOjQaay~?HDwE7PwahAu@Fu|*^ce6;14m=Mgmijr`>UD)H%79U
z19W=H#c;&K{T6dFL=D247%*WN4ykOm9F3%b2I6!@_Y5^!!DuND8Yhg=&*m6g9`;&1
zb=QZEwy4y&u9&zC(U2Q@&hjNU%APuw&Ea=pNP0-D4F;w@lVKG$-Mw1F?d3s$3-9k1
z|LN|s)x#G8BA|FMOkbmf1PaAWG=4ytOp~JFS<qO!{5lcpnyZ%5f?{NSABbqjDbYqT
zLs;j1Vtztn!5CY{u$)<-+$huCcw&Q?cvNz<R+#idG_1@M7eOS;<N5kN5#1fikYnPJ
z(Oimeg`_mYxazL11VvMOfL>a_+GwH&YMwhM#>J=f1^lvn%XlR?nd3u6@Pd3NGYR$A
z;Raq7uQcs?QnEs?IrY7hKZ6@r6RjkJ%RZ%NYFOaQO(^gX0mzgatxwlh8=mI!PIAM7
z&YD>(dM+4rN|rpObOO2<q7l-4TB><h@M^`}!#FI6aj|GBln&?9#m5v~X~avIL9@6-
zrTI@L+jOC7SW9Gllu5`jWg+8<nS>e^WX*^NINCCVm}Z_DR*D^a!kEOly<i$d^clGe
zDb9AH&ZPGmpb}Hd|D{{j{Q4wz#DS5L{CqRwmTHsgm26>Sd>!g4lD;KkJ{GWAahS{g
zukOL#dk9U!AfmY{QKi0+)nJK(Ba4NZ&6)-Lvg9vCcgU3EXwK-Gny4-@%XhSkz-4v~
zRHhel2|3yl{y2f&o&J$j*)F?FFYv;%#C6{{*9XP=ZjUetZF#A?mG{nL^NM<sHFqAk
zM6wNPP0+SnAz>uT0xs)aL_|}ryg=KhJF;zjxfsJ;E?RnYr9JoakQ`gl>Urm*Q@lAm
zxO)+H8VqZQxBe7*oL7bCCd+aF;D6gBoKyW?p~a$@x)DI7RYgR&$*3l9)L%B%!=lxh
ziCn5z*Bh&m?hD`r1qf2j5>`osDmzJG5mCvRgzsPkl-{@uWE~3&*qRmC^CM)O3d4%-
z1s<laTPNRGE1akkk1z>&LQG{RDoi+Dq;#m?AW6;{R9=;Cpp}M6hJz(Viu}J3i)%#p
z1+!=ptB71#mZE49l4BNP4q%C7o5>LAVFaTr4hxhpM!AIV)9P=Giqb2E{hCcEjBX8L
z9TqZ;_r2Ap7CI-)r4d_N?dIrCQmXfgtJ$`_nq|imw}P*!1%teuNm#Csj(rd;?mpd(
ztPPgd+oCzT4AiQevu^`#7nt3eFIuf=2Fu_$(sAeM8ZC-l_k1rQd_7*+Hc-;A4)Tp;
zW^|RrgoC-qtKV=S<C<klqCU^_NbpF+Xzsl4_IbA9%0LlJ`hHMld6}}23$Y{R#B+;K
z7Ic;gd7^>Yn*Z~fP{X?Vy!7$G4Pvt<MUCwFk?zn-=oyxgy|Zm{GR(4wBUTC?D5QSv
zQ~K1L>EV{a1+Vtnh|z1GW_#O=ydc~=f{4?wVglehS5_WV$*;T^RxFWh|IicQb)q*C
zpMY40+PNmOWU@7Z?6;VNy@6it47TrZOB-zHx!8r=2?#*&9*0Fn40kPOBgT%W5@B1;
zyDY?6AtuBIDJu@@un09QB`BY(X$zRXz=NEX&7B+Zf`8S*a{P#M@L&EZut^WjQVP*6
zEWfj$jm0BpPAWHQtyfVAvg;?-iC$Fl5WBRjT&z2ctcIl%w6zq%lEx|{<QsFL$c>=6
z$9dD|>7(<MEyT-mLovIPTxx;3#_{==2=9NAVF?^6?!MJZ2jejiUUX0Bo72}U1&boW
zg2|@GC1e#xOP69MSSW_Gg<ul3=#o5i1TRMg1nvbZh6j#zm&WX^De~EI-U3Hw*O47I
zBL<bCJC9$>3R=bXa}8^(7SaEK8kTv&Y#*)CB;*xGxiSR{_%XvX*?G*Fgd~PIi)qaE
z-BLv#y4JxIKR5KrOjd$Rqe<wTnB`O~X`oV`6e$FN+Cxks4g}aFzTLw}5*4jZ7oW}r
zj_Sq)JTm5iId;bL9F>hP$1n5}=8NpUGFPhtei_5cw5>t6P0UQfEUdxB>5yE)H^Z!*
zXETalBy5!oU*dA&)q$@ECo|+`DWkB4zu}F7%p$9<5gC@^hs{V(R$ivX_~J@K-e7cg
z>waW7K4Z(DzH1H~=%~C*{tlZ_ruoJ7qRjB)s`Qbu$kS+H(Gos?TAT6OY1Z1_UEy@G
zmeW`Yq*9m;QHXA<#i71aSaFn;waB6YU@3@J&dQp5Q8A5g(YeWrsOKs^d$)Qmq;uON
zb7}O;z8A7+zKhrGNQK<p(T!}i;^Zypcs{k<eH%Dh4*D1wP!312cHIbqE|G6-q`T+~
zcI+cE3$BaB%^wxSYz2<KUm+udU>GgYS~g%maKgoV35MO+W$)KSy5}e`jkTgLw*5xA
zk7HEH&k{i^gF^oRE0k<pn=>q1Pyt#xdZv+)5=f<7HJ=5#tIGYB7s|^hX8~BJvFzLr
zsO&YX0|(rhX5U_B@3kb)Y40+A7GmW@24tzgnpfo6p;*1jc~cHA(%euH7)z0gvF>6Q
z5>4G1|JHbHm)Vj#q0~W3=e@XrYipp#g5RkQb?>q0TFL4wlniThGF_mo4%@k~pBQ)N
zi6r_OUE)o-E=gocondiTj7X~=1XzhplL=c<DP-&3?(-0Pi@=1xzFC?D{t;GRithME
zs2>*O2JVW^kVUtftPy(IrzFBiU#{QTiBGI5qa*{yQJR6~<V~5`I~f+7|HQLF-e7CX
z=+fFPGcj6p_@@C@$mZjDa3w{GUKsdN;RRc@ig2n>zVc*4IjR75`CZd2Ailusi|C_E
zKMKQwVu!ORo#C973dn3v;=lhc1SBlDD}G07I@_zQl{nFAzaBW6F|26Aj^7Z6^_|bj
zT|)UbsD4Sz%Z-kE;CmT6$Lq0_BOWO9)m@?lW7j>N3foEm<_C0(N0-VMF-+Wc7;6?*
z+^1_)(lUW{9@6=-seAu*la2K-{SsTt@-op&@XWA=%<PJ?R13(8jac4`TJSdt-b{u2
z5H6Mt4q#x)HeKciARfcAIGnicP4+~Yfu?Yx%rIFfQwNK_LN!eXYdsHqgs4$YzR153
p7Kyq?q?J+wg(bWr+kKKr_<vznLGywCUg`h<002ovPDHLkV1k2~@OA(I

literal 0
HcmV?d00001

diff --git a/inst/report/data_quality_report.Rmd b/inst/report/data_quality_report.Rmd
index c288d08..e722546 100644
--- a/inst/report/data_quality_report.Rmd
+++ b/inst/report/data_quality_report.Rmd
@@ -2,8 +2,22 @@
 title: Data Quality Report
 ---
 
+# Data Summary
+This database contains `r ccd@nepisodes` episodes from 
+`r length(unique(ccd@infotb$site_id)) - 1` sites. Based on the NHS numbers and
+PAS numbers, `r max(ccd@infotb$pid)` unique patients are found. 
 
-# Introduction
-```{r, echo=FALSE, result="hide"}
-print(ccd@nepisodes)
+## The original XML files and parse information
+```{r, echo=FALSE}
+suppressWarnings(library(pander))
+panderOptions("digits", 2) 
+panderOptions("table.split.table", Inf)
+
+infotb <- ccd@infotb
+neps.file <- infotb[, list("Number of Eipsode"=.N), by=parse_file]
+site.file <- infotb[, list("Sites"=paste(unique(site_id), collapse=", ")), by=parse_file]
+setkey(neps.file, "parse_file")
+setkey(site.file, "parse_file")
+pander(merge(neps.file, site.file))
 ```
+
diff --git a/inst/report/report.latex b/inst/report/report.latex
index 50186a7..2e83d7f 100644
--- a/inst/report/report.latex
+++ b/inst/report/report.latex
@@ -2,12 +2,12 @@
 
 
 
-
+\usepackage{booktabs}
 \usepackage[T1]{fontenc}
 \usepackage{lmodern}
 \usepackage{amssymb,amsmath}
 \usepackage{ifxetex,ifluatex}
-\usepackage[svgnames]{xcolor} % Enabling colors by their 'svgnames'
+\usepackage[table]{xcolor} % Enabling colors by their 'svgnames'
 \usepackage{fixltx2e} % provides \textsubscript
 % use microtype if available
 \IfFileExists{microtype.sty}{\usepackage{microtype}}{}
@@ -64,12 +64,16 @@ $if(verbatim-in-note)$
 \usepackage{fancyvrb}
 $endif$
 $if(tables)$
+
+\definecolor{ccdblue}{RGB}{0, 54, 73}
 \usepackage{longtable}
+\definecolor{light-gray}{gray}{0.95}
 \let\oldlongtable\longtable
+\rowcolors{1}{white}{light-gray}
+\def\longtable{\footnotesize \oldlongtable }
+$endif$
 
-\def\longtable{\tiny \oldlongtable}
 
-$endif$
 \usepackage{libertine}
 \usepackage{framed}
 \let\oldquote\quote
@@ -153,7 +157,6 @@ $endfor$
 \color{DarkGreen}
 {\textsf{#1}}}{}}
 
-\definecolor{ccdblue}{RGB}{0, 54, 73}
 \usepackage{sectsty} % Enables custom section titles
 \sectionfont{\color{ccdblue}\fontsize{20}{20}\usefont{OT1}{phv}{b}{n}} % Change the font of all section commands
 \subsectionfont{\color{ccdblue}\fontsize{16}{16}\usefont{OT1}{phv}{b}{n}} % Change the font of all section commands
@@ -171,13 +174,17 @@ $endfor$
     \color{ccdblue}    
     \selectfont
 }
-\posttitle{\vspace*{\fill}}
+\posttitle{
+  %  \par 
+  %\Oldincludegraphics[height=.7cm]{bar}
+  \vspace*{\fill}
+  }
 $if(title)$
 \title{$title$}
 $endif$
 
 \author{$for(author)$$author$$sep$ \and $endfor$}
-\date{$date$}
+\date{\today}
 
 %\postauthor{\footnotesize \usefont{OT1}{phv}{m}{sl} \color{Black} % Configuration for the institution name
 %
@@ -220,6 +227,9 @@ $if(toc)$
 \tableofcontents
 }
 $endif$
+
+\newpage
+
 $body$
 
 $if(natbib)$

From 7120b406259c9333b8b1d2122d91567fa4ca041d Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Sat, 26 Nov 2016 17:26:07 +0000
Subject: [PATCH 05/14] Adding total data point counts; ethnicity table 1.

---
 NAMESPACE                           |  4 ++
 R/data.quality.report.R             | 90 ++++++++++++++++++++++++++++-
 data/ITEM_REF.yaml                  | 32 ++++++++++
 inst/report/data_quality_report.Rmd | 29 +++++++---
 4 files changed, 144 insertions(+), 11 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 15836a1..30ba382 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -18,6 +18,7 @@ export(deltaTime)
 export(demographic.patient.spell)
 export(extractInfo)
 export(extract_file_origin)
+export(file.summary)
 export(find.episode.time)
 export(for_each_episode)
 export(getEpisodePeriod)
@@ -36,9 +37,12 @@ export(selectTable)
 export(short2longname)
 export(sql.demographic.table)
 export(stname2code)
+export(table1.row)
+export(total.data.point)
 export(unique.spell)
 export(update.database)
 export(which.classification)
+export(xml.file.duration.plot)
 export(xml2Data)
 export(xmlEpisodeToList)
 export(xmlLoad)
diff --git a/R/data.quality.report.R b/R/data.quality.report.R
index fd519d4..b8fb9a7 100644
--- a/R/data.quality.report.R
+++ b/R/data.quality.report.R
@@ -4,10 +4,11 @@
 #' @import knitr
 data.quality.report <- function(ccd, pdf=T) {
     
-    if (!dir.exists(".report")) {
+    if (dir.exists(".report")) {
         unlink(".report", recursive=T)
-        dir.create(".report")
     }
+
+    dir.create(".report")
     wd <- getwd()
     rptpath <- paste(path.package('ccdata'), "report", sep="/")
     file.copy(rptpath, ".report", recursive=T)
@@ -35,3 +36,88 @@ data.quality.report <- function(ccd, pdf=T) {
         setwd(wd)
     }
 }
+
+
+#' @export file.summary
+file.summary <- function(ccd) {
+    infotb <- ccd@infotb
+    file.summary <- infotb[, list("Number of Episode"=.N, 
+                                  "Upload time"=max(parse_time), 
+                                  "Sites"=paste(unique(site_id), collapse=", ")), by=parse_file]
+    file.summary[, "File":=parse_file]
+    file.summary[, parse_file:=NULL]
+    return(file.summary)
+}
+
+#' @export xml.file.duration.plot
+xml.file.duration.plot <- function(ccd) {
+    tb <- copy(ccd@infotb)
+    tb <- tb[, list(minadm=min(t_admission, na.rm=T), 
+              maxadm=max(t_admission, na.rm=T),
+              mindis=min(t_discharge, na.rm=T),
+              maxdis=max(t_discharge, na.rm=T)), by=parse_file]
+    ggplot(tb, aes(x=minadm, y=parse_file)) +
+        geom_segment(aes(xend=maxdis, yend=parse_file), color="gray", size=7) +
+        annotate("text", x=tb$minadm+(tb$maxdis-tb$minadm)/2, 
+                 y=tb$parse_file, label=tb$parse_file, size=3) + 
+        scale_x_datetime(date_breaks="3 month")+
+        theme(axis.text.y=element_blank()) + 
+        ggtitle("The Duration of XML Files") +
+        xlab("") + ylab("")
+}
+
+
+ethnicity.plot <- function(demg) {
+    ggplot(demg, aes(x=ETHNIC, fill=ETHNIC)) + 
+        scale_fill_discrete(h=c(50,250)) +
+        geom_bar(aes(y=(..count..)/sum(..count..) * 100)) + 
+        geom_text(aes(y = ((..count..)/sum(..count..))*100,
+                      label = scales::percent((..count..)/sum(..count..))),
+                  stat = "count", vjust = -0.25)
+}
+
+
+
+#demographic.data.completeness <- function(ccd) {
+#    demographic
+#}
+
+#' 
+#' @export total.data.point
+total.data.point <- function(ccd) {
+    dp.physio <- 
+        sum(unlist(for_each_episode(ccd, 
+                                    function(x) 
+                                        Reduce(sum, sapply(x@data, nrow)))))
+    dp.demg <-
+        sum(unlist(for_each_episode(ccd, 
+                                    function(x) 
+                                        Reduce(sum, sapply(x@data, nrow)))))
+    return(sum(dp.physio, dp.demg))
+}
+
+#' @export table1.row
+table1.row <- function(demg, name) {
+    ref <- ccdata:::ITEM_REF[[stname2code(name)]]
+    if (ref$Datatype %in% c("text", "list")) {
+        stopifnot(!is.null(ref$category))
+        nmref <- sapply(ref$category$levels, function(x) x)
+        r <- demg[, .N, by=name]
+        level.name <- nmref[r[[name]]]
+        r[, nm:=level.name]
+        r[, percent:=N/nrow(demg)*100]
+
+        txt <- paste("<li>",
+                     r$nm, ":\t\t\t\t", 
+                     r$N, "[", 
+                     round(r$percent),"%]",
+                     "</li>",
+                     sep="", 
+                     collapse="")
+        txt <- paste("<ul>", txt, "<ul>")
+    }
+    return(txt)
+
+
+
+}
diff --git a/data/ITEM_REF.yaml b/data/ITEM_REF.yaml
index 3a11f2f..53b5d93 100644
--- a/data/ITEM_REF.yaml
+++ b/data/ITEM_REF.yaml
@@ -262,6 +262,26 @@ NIHR_HIC_ICU_0058:
   NHICcode: NIHR_HIC_ICU_0058
   NHICdtCode: ~
   NHICmetaCode: ~
+  category:
+    levels:
+      "A": white British
+      "B": white Irish
+      "C": white any other
+      "D": mixed white and black Caribbean
+      "E": mixed white and black African
+      "F": mixed white and Asian
+      "G": mixed any other
+      "H": Asian or Asian British - Indian
+      "J": Asian or Asian British - Pakistani
+      "K": Asian or Asian British - Bangladeshi
+      "L": Asian or Asian British - any other
+      "M": black or black British - Caribbean
+      "N": black or black British - African
+      "P": black or black British - any other
+      "R": other ethnic group - Chinese
+      "S": any other ethnic group
+      "Z": not stated
+
 NIHR_HIC_ICU_0093:
   shortName: SEX
   ItemId: 13
@@ -570,6 +590,12 @@ NIHR_HIC_ICU_0930:
   NHICcode: NIHR_HIC_ICU_0930
   NHICdtCode: ~
   NHICmetaCode: ~
+  category:
+    levels:
+      A: Alive
+      D: Dead
+      E: Alive - not discharged
+
 NIHR_HIC_ICU_0085:
   shortName: RESA
   ItemId: 34
@@ -2748,6 +2774,12 @@ NIHR_HIC_ICU_0108:
   NHICcode: NIHR_HIC_ICU_0108
   NHICdtCode: NIHR_HIC_ICU_0254
   NHICmetaCode: ~
+  range:
+    labels:
+      red: (0, 300)
+      amber: (11, 170) 
+      green: (60, 100)
+
 NIHR_HIC_ICU_0109:
   shortName: h_rhythm
   ItemId: 133
diff --git a/inst/report/data_quality_report.Rmd b/inst/report/data_quality_report.Rmd
index e722546..562279c 100644
--- a/inst/report/data_quality_report.Rmd
+++ b/inst/report/data_quality_report.Rmd
@@ -3,21 +3,32 @@ title: Data Quality Report
 ---
 
 # Data Summary
-This database contains `r ccd@nepisodes` episodes from 
-`r length(unique(ccd@infotb$site_id)) - 1` sites. Based on the NHS numbers and
-PAS numbers, `r max(ccd@infotb$pid)` unique patients are found. 
+```{r, echo=FALSE}
+dp <- total.data.point(ccd)
+np <- max(ccd@infotb$pid, na.rm=T)
+```
+
+This database contains **`r ccd@nepisodes`** episode data from 
+**`r length(unique(ccd@infotb$site_id)) - 1`** sites. Based on the NHS numbers and
+PAS numbers, we can identify **`r np`** unique patients, among which the earliest
+admission is `r min(ccd@infotb$t_admission, na.rm=T)` and the latest discharge time is
+`r max(ccd@infotb$t_discharge, na.rm=T)`. There are `r dp `
+total data points found in the current database, which makes in average
+`r round(dp/np)` per unique patient. 
 
 ## The original XML files and parse information
 ```{r, echo=FALSE}
 suppressWarnings(library(pander))
 panderOptions("digits", 2) 
 panderOptions("table.split.table", Inf)
+if (!exists("demg")) demg <- demographic.patient.spell(ccd)
 
-infotb <- ccd@infotb
-neps.file <- infotb[, list("Number of Eipsode"=.N), by=parse_file]
-site.file <- infotb[, list("Sites"=paste(unique(site_id), collapse=", ")), by=parse_file]
-setkey(neps.file, "parse_file")
-setkey(site.file, "parse_file")
-pander(merge(neps.file, site.file))
+fs <- file.summary(ccd)
+#pander(fs[, c("File", "Upload time"), with=F])
+pander(fs[, c("File", "Number of Episode", "Sites"), with=F])
+pander(data.frame("xxx", table1.row(demg, "ETHNIC")))
+```
+```{r fig.width=10, fig.height=7, echo=FALSE}
+xml.file.duration.plot(ccd)
 ```
 

From 8f940497591ef638c55ddb0d776280cd3339aac5 Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Sat, 26 Nov 2016 18:33:19 +0000
Subject: [PATCH 06/14] adding site information-R42 still unknown.

---
 R/utilities.R | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/R/utilities.R b/R/utilities.R
index d0f4372..f3ac901 100644
--- a/R/utilities.R
+++ b/R/utilities.R
@@ -167,3 +167,24 @@ xmlTime2POSIX <- function(xml.time, allow=FALSE){
     }
     return(tp)
 }
+
+
+#' @export site.info
+site.info <- function(){
+list(
+     "D20N"=c("Addenbrooke's Hospital", "Neuro", "Cambridge", ""),  
+     "D20"=c("Addenbrooke's Hospital", "ICU/HDU", "Cambridge", "John Farnham"), 
+     "K32"=c("Guy's Hospital", "ICU", "GSTT", ""),   
+     "V47"=c("St Thomas' Hospital", "ICU/HDU", "GSTT", ""),   
+     "H09"=c("St Thomas' Hospital", "OIR", "GSTT", "overnight intensive recovery"), 
+     "Z89"=c("St Thomas' Hosptial", "HDU", "GSTT", "page and victoria"), 
+     "C90"=c("Hammersmith Hospital", "ICU/HDU", "Imperial", ""),  
+     "Q13"=c("St Mary's Hospital London", "ICU", "Imperial", "Milne Ward"),
+     "S28"=c("John Radcliffe", "ICU", "Oxford", ""),
+     "F42"=c("Oxford Neuro", "", "Oxford", "no data"),
+     "F54"=c("Oxford Horton", "", "Oxford", "no data because not on ICIP"),
+     "Q70"=c("University College Hospital", "ICU/HDU", "UCLH", ""),
+     "Q70W"=c("Westmoreland Street", "ICU/HDU", "UCLH", ""),   
+     "R42"=c("Unknown", "Unknown", "Unknown", "Duncan said is Churchill??")
+     )
+}

From e07a46ec0cb11428aa9fc3bf4e0e510d43835729 Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Sun, 27 Nov 2016 20:59:51 +0000
Subject: [PATCH 07/14] short name to long name conversion

---
 NAMESPACE     |  8 +++++++-
 R/stdid.R     |  7 +++++++
 R/utilities.R | 35 +++++++++++++++++++----------------
 R/zzz.R       | 14 ++++++++++----
 4 files changed, 43 insertions(+), 21 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 30ba382..3da70ba 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -15,6 +15,7 @@ export(create.cctable)
 export(create2dclean)
 export(data.quality.report)
 export(deltaTime)
+export(demg.distribution)
 export(demographic.patient.spell)
 export(extractInfo)
 export(extract_file_origin)
@@ -35,14 +36,17 @@ export(reallocateTime)
 export(reallocateTimeRecord)
 export(selectTable)
 export(short2longname)
+export(site.info)
 export(sql.demographic.table)
 export(stname2code)
-export(table1.row)
+export(stname2longname)
+export(table1)
 export(total.data.point)
 export(unique.spell)
 export(update.database)
 export(which.classification)
 export(xml.file.duration.plot)
+export(xml.site.duration.plot)
 export(xml2Data)
 export(xmlEpisodeToList)
 export(xmlLoad)
@@ -54,8 +58,10 @@ exportMethods("[[")
 import(Rcpp)
 import(XML)
 import(data.table)
+import(ggplot2)
 import(knitr)
 import(methods)
+import(pander)
 import(parallel)
 import(yaml)
 importFrom(Rcpp,evalCpp)
diff --git a/R/stdid.R b/R/stdid.R
index 226fff0..c93c9eb 100644
--- a/R/stdid.R
+++ b/R/stdid.R
@@ -70,6 +70,13 @@ stname2code <- function(stname) {
     return(code)
 }
 
+#' @export 
+stname2longname <- function(stname) {
+    stname <- as.character(stname)
+    code <- ccdata:::stname2longname.dict[stname]
+    code[is.na(code)] <- stname[is.na(code)]
+    return(code)
+}
 #' convert short names to long names
 #' @export short2longname
 short2longname <- function(stname) {
diff --git a/R/utilities.R b/R/utilities.R
index f3ac901..3a4b379 100644
--- a/R/utilities.R
+++ b/R/utilities.R
@@ -171,20 +171,23 @@ xmlTime2POSIX <- function(xml.time, allow=FALSE){
 
 #' @export site.info
 site.info <- function(){
-list(
-     "D20N"=c("Addenbrooke's Hospital", "Neuro", "Cambridge", ""),  
-     "D20"=c("Addenbrooke's Hospital", "ICU/HDU", "Cambridge", "John Farnham"), 
-     "K32"=c("Guy's Hospital", "ICU", "GSTT", ""),   
-     "V47"=c("St Thomas' Hospital", "ICU/HDU", "GSTT", ""),   
-     "H09"=c("St Thomas' Hospital", "OIR", "GSTT", "overnight intensive recovery"), 
-     "Z89"=c("St Thomas' Hosptial", "HDU", "GSTT", "page and victoria"), 
-     "C90"=c("Hammersmith Hospital", "ICU/HDU", "Imperial", ""),  
-     "Q13"=c("St Mary's Hospital London", "ICU", "Imperial", "Milne Ward"),
-     "S28"=c("John Radcliffe", "ICU", "Oxford", ""),
-     "F42"=c("Oxford Neuro", "", "Oxford", "no data"),
-     "F54"=c("Oxford Horton", "", "Oxford", "no data because not on ICIP"),
-     "Q70"=c("University College Hospital", "ICU/HDU", "UCLH", ""),
-     "Q70W"=c("Westmoreland Street", "ICU/HDU", "UCLH", ""),   
-     "R42"=c("Unknown", "Unknown", "Unknown", "Duncan said is Churchill??")
-     )
+    si <- list(
+               "D20N"=c("Addenbrooke's Hospital", "Neuro", "Cambridge", ""),  
+               "D20"=c("Addenbrooke's Hospital", "ICU/HDU", "Cambridge", "John Farnham"), 
+               "K32"=c("Guy's Hospital", "ICU", "GSTT", ""),   
+               "V47"=c("St Thomas' Hospital", "ICU/HDU", "GSTT", ""),   
+               "H09"=c("St Thomas' Hospital", "OIR", "GSTT", "overnight intensive recovery"), 
+               "Z89"=c("St Thomas' Hosptial", "HDU", "GSTT", "page and victoria"), 
+               "C90"=c("Hammersmith Hospital", "ICU/HDU", "Imperial", ""),  
+               "Q13"=c("St Mary's Hospital London", "ICU", "Imperial", "Milne Ward"),
+               "S28"=c("John Radcliffe", "ICU", "Oxford", ""),
+               "F42"=c("Oxford Neuro", "", "Oxford", "no data"),
+               "F54"=c("Oxford Horton", "", "Oxford", "no data because not on ICIP"),
+               "Q70"=c("University College Hospital", "ICU/HDU", "UCLH", ""),
+               "Q70W"=c("Westmoreland Street", "ICU/HDU", "UCLH", ""),   
+               "R42"=c("Unknown", "Unknown", "Unknown", "Duncan said is Churchill??")
+               )
+    si <- data.frame(t(.simple.data.frame(si)), stringsAsFactors=F)
+    names(si) <- c("Hospital", "Unit", "Trust", "Comments")
+    return(si)
 }
diff --git a/R/zzz.R b/R/zzz.R
index 6077e62..d79bfe6 100644
--- a/R/zzz.R
+++ b/R/zzz.R
@@ -21,12 +21,17 @@ NULL
         return(new)
     }
 
-    code2stname.dict <- sapply(ITEM_REF, function(x) x$shortName)
-    meta <- paste0(code2stname.dict, ".meta")
-    names(meta) <- paste0(names(code2stname.dict), ".meta")
-    code2stname.dict <- c(code2stname.dict, meta)
+    stname <- sapply(ITEM_REF, function(x) x$shortName)
+    meta <- paste0(stname, ".meta")
+    names(meta) <- paste0(names(stname), ".meta")
+    code2stname.dict <- c(stname, meta)
     stname2code.dict <- reverse.name.value(code2stname.dict)
 
+
+    longnames <- sapply(ITEM_REF, function(x) x$dataItem)
+    stname2longname.dict <- longnames
+    names(stname2longname.dict) <- stname
+
     #' classification dictionary: demographic, nurse, physiology, laboratory, drugs
     class.dict_code <-  sapply(ITEM_REF, function(x) x$Classification1)
     class.dict_stname <- class.dict_code
@@ -41,6 +46,7 @@ NULL
     assign("ITEM_REF"         , ITEM_REF         , envir=env) 
     assign("code2stname.dict" , code2stname.dict , envir=env) 
     assign("stname2code.dict" , stname2code.dict , envir=env) 
+    assign("stname2longname.dict" , stname2longname.dict , envir=env) 
     assign("class.dict_code"  , class.dict_code  , envir=env)
     assign("class.dict_stname", class.dict_stname, envir=env) 
     assign("tval.dict_code"   , tval.dict_code   , envir=env) 

From 833fabd2fbbe58bf6d055812cc383a438d007680 Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Sun, 27 Nov 2016 21:00:38 +0000
Subject: [PATCH 08/14] report: completeness

---
 R/data.quality.report.R             | 178 +++++++++++++++++++---------
 data/ITEM_REF.yaml                  |  34 ++++++
 inst/report/data_quality_report.Rmd |  33 +++++-
 3 files changed, 184 insertions(+), 61 deletions(-)

diff --git a/R/data.quality.report.R b/R/data.quality.report.R
index b8fb9a7..909cd53 100644
--- a/R/data.quality.report.R
+++ b/R/data.quality.report.R
@@ -2,8 +2,10 @@
 #' 
 #' @export data.quality.report
 #' @import knitr
+#' @import pander
+#' @import ggplot2
 data.quality.report <- function(ccd, pdf=T) {
-    
+ 
     if (dir.exists(".report")) {
         unlink(".report", recursive=T)
     }
@@ -13,28 +15,33 @@ data.quality.report <- function(ccd, pdf=T) {
     rptpath <- paste(path.package('ccdata'), "report", sep="/")
     file.copy(rptpath, ".report", recursive=T)
 
-    setwd('.report/report')
-    dqpath <- "data_quality_report.Rmd"
-    headerpath <- "listings-setup.tex"
-    tpltpath <- "report.latex"
-
-    knit(dqpath, "data_quality_report.md")
-    if (pdf) {
-        pandoc.cmd <- 
-            paste("pandoc -s -N --toc --listings -H ", headerpath,
-                  " --template=", tpltpath, 
-                  " -V --number-section  -V papersize:a4paper -V geometry:margin=1.3in ", 
-                  "data_quality_report.md -o data_quality_report.pdf", sep="")
-        tryCatch(system(pandoc.cmd), 
-                 error = function(e) {
-                     cat(e)
-                     setwd(wd)
-                 }, 
-                 finally = {
-                     setwd(wd)
-                 })
-        setwd(wd)
+    write.report <- function() {
+        setwd('.report/report')
+        dqpath <- "data_quality_report.Rmd"
+        headerpath <- "listings-setup.tex"
+        tpltpath <- "report.latex"
+
+        knit(dqpath, "data_quality_report.md")
+        if (pdf) {
+            pandoc.cmd <- 
+                paste("pandoc -s -N --toc --listings -H ", headerpath,
+                      " --template=", tpltpath, 
+                      " -V --number-section  -V papersize:a4paper -V geometry:margin=1.3in ", 
+                      "data_quality_report.md -o data_quality_report.pdf", sep="")
+            tryCatch(system(pandoc.cmd), 
+                     error = function(e) {
+                         cat(e)
+                         setwd(wd)
+                     }, 
+                     finally = {
+                         setwd(wd)
+                     })
+            setwd(wd)
+        }
     }
+
+    tryCatch(write.report(), finally={setwd(wd)})
+
 }
 
 
@@ -49,6 +56,28 @@ file.summary <- function(ccd) {
     return(file.summary)
 }
 
+#' @export xml.site.duration.plot
+xml.site.duration.plot <- function(ccd) {
+    tb <- copy(ccd@infotb)
+    tb <- tb[, list(minadm=min(t_admission, na.rm=T), 
+              maxadm=max(t_admission, na.rm=T),
+              mindis=min(t_discharge, na.rm=T),
+              maxdis=max(t_discharge, na.rm=T)), by=site_id]
+    site_name <- apply((site.info()[tb$site_id, ][,1:2]), 1, 
+          function(x) paste(x, collapse="-"))
+    tb[, site_name:=site_name]
+    
+    ggplot(tb, aes(x=minadm, y=site_name)) +
+        geom_segment(aes(xend=maxdis, yend=site_name), color="gray", size=10) +
+        annotate("text", x=tb$minadm+(tb$maxdis-tb$minadm)/2, 
+                 y=tb$site_name, label=tb$site_name, size=7) + 
+        scale_x_datetime(date_breaks="3 month")+
+        theme(axis.text.y=element_blank()) + 
+        ggtitle("Site") +
+        xlab("") + ylab("")
+}
+
+
 #' @export xml.file.duration.plot
 xml.file.duration.plot <- function(ccd) {
     tb <- copy(ccd@infotb)
@@ -57,9 +86,9 @@ xml.file.duration.plot <- function(ccd) {
               mindis=min(t_discharge, na.rm=T),
               maxdis=max(t_discharge, na.rm=T)), by=parse_file]
     ggplot(tb, aes(x=minadm, y=parse_file)) +
-        geom_segment(aes(xend=maxdis, yend=parse_file), color="gray", size=7) +
+        geom_segment(aes(xend=maxdis, yend=parse_file), color="gray", size=10) +
         annotate("text", x=tb$minadm+(tb$maxdis-tb$minadm)/2, 
-                 y=tb$parse_file, label=tb$parse_file, size=3) + 
+                 y=tb$parse_file, label=tb$parse_file, size=7) + 
         scale_x_datetime(date_breaks="3 month")+
         theme(axis.text.y=element_blank()) + 
         ggtitle("The Duration of XML Files") +
@@ -67,6 +96,8 @@ xml.file.duration.plot <- function(ccd) {
 }
 
 
+
+#' Abandoned
 ethnicity.plot <- function(demg) {
     ggplot(demg, aes(x=ETHNIC, fill=ETHNIC)) + 
         scale_fill_discrete(h=c(50,250)) +
@@ -77,47 +108,82 @@ ethnicity.plot <- function(demg) {
 }
 
 
+#' @demographic.data.completeness
+demographic.data.completeness <- function(demg, names=NULL) {
+    demg <- copy(demg)
+    demg[, index:=NULL]
+    if (!is.null(names))
+        demg <- demg[, names, with=F]
 
-#demographic.data.completeness <- function(ccd) {
-#    demographic
-#}
+    cptb <- apply(demg, 2, function(x) length(which(!(x=="NULL" | is.na(x)))))
+    cptb <- data.frame(cptb)
+    cptb[, 1] <- round(cptb[, 1]/nrow(demg)*100, digits=2)
+    
+    names(cptb) <- "Completeness %"
+    rownames(cptb) <- stname2longname(rownames(cptb))
+    pander(cptb, style="rmarkdown", justify = c('left', 'center'))
+}
 
 #' 
 #' @export total.data.point
 total.data.point <- function(ccd) {
-    dp.physio <- 
-        sum(unlist(for_each_episode(ccd, 
-                                    function(x) 
-                                        Reduce(sum, sapply(x@data, nrow)))))
-    dp.demg <-
-        sum(unlist(for_each_episode(ccd, 
-                                    function(x) 
-                                        Reduce(sum, sapply(x@data, nrow)))))
-    return(sum(dp.physio, dp.demg))
+#    dp.physio <- 
+#        sum(unlist(for_each_episode(ccd, 
+#                                    function(x) 
+#                                        Reduce(sum, sapply(x@data, nrow)))))
+#    dp.demg <-
+#        sum(unlist(for_each_episode(ccd, 
+#                                    function(x) 
+#                                        Reduce(sum, sapply(x@data, nrow)))))
+#    return(sum(dp.physio, dp.demg))
+    return(10)
 }
 
-#' @export table1.row
-table1.row <- function(demg, name) {
-    ref <- ccdata:::ITEM_REF[[stname2code(name)]]
-    if (ref$Datatype %in% c("text", "list")) {
-        stopifnot(!is.null(ref$category))
-        nmref <- sapply(ref$category$levels, function(x) x)
-        r <- demg[, .N, by=name]
-        level.name <- nmref[r[[name]]]
-        r[, nm:=level.name]
-        r[, percent:=N/nrow(demg)*100]
-
-        txt <- paste("<li>",
-                     r$nm, ":\t\t\t\t", 
-                     r$N, "[", 
-                     round(r$percent),"%]",
-                     "</li>",
-                     sep="", 
-                     collapse="")
-        txt <- paste("<ul>", txt, "<ul>")
+#' @export table1
+table1 <- function(demg, names) {
+    panderOptions('knitr.auto.asis', FALSE)
+    cat(paste("\n## Table ONE\n"))
+    table1.item <- function(demg, name) {
+        ref <- ccdata:::ITEM_REF[[stname2code(name)]]
+        if (is.null(ref))
+            stop("The short name cannot be found in ITEM_REF.")
+        cat(paste("\n###", ref$dataItem, "\n"))
+        if (ref$Datatype %in% c("text", "list", "Logical", "list / Logical")) {
+            stopifnot(!is.null(ref$category))
+            nmref <- sapply(ref$category$levels, function(x) x)
+            r <- demg[, .N, by=name]
+            level.name <- nmref[r[[name]]]
+            r[, nm:=level.name]
+            r[, percent:=N/nrow(demg)*100]
+
+            tb <- data.table(
+                              "Category"=r$nm,
+                              "Episode Count"=r$N,  
+                              "Percentage"=paste(round(r$percent, digits=1), "%"))
+            setkey(tb, "Episode Count")
+
+        }
+        else stop(name, "is not a categorical variable.")
+       pander(tb, style="rmarkdown")
     }
-    return(txt)
 
+    for (i in names)
+        table1.item(demg, i)
+
+    panderOptions('knitr.auto.asis', TRUE)
+}
 
 
+
+#' @export demg.distribution
+demg.distribution <- function(demg, names) {
+    cat("\n## Distribution\n")
+    for (nm in names) {
+        ref <- ccdata:::ITEM_REF[[stname2code(nm)]]
+        cat(paste("\n\n###", ref$dataItem, "\n"))
+        gg <- ggplot(demg, aes_string(nm)) + geom_density(fill="lightsteelblue3") + 
+            facet_wrap(~ICNNO, scales="free")
+        print(gg)
+        cat('\\newpage')
+    }
 }
diff --git a/data/ITEM_REF.yaml b/data/ITEM_REF.yaml
index 53b5d93..5f80567 100644
--- a/data/ITEM_REF.yaml
+++ b/data/ITEM_REF.yaml
@@ -304,6 +304,11 @@ NIHR_HIC_ICU_0093:
   NHICcode: NIHR_HIC_ICU_0093
   NHICdtCode: ~
   NHICmetaCode: ~
+  category:
+    levels:
+      "M": Male
+      "F": Female
+
 NIHR_HIC_ICU_0017:
   shortName: HCM
   ItemId: 14
@@ -662,6 +667,23 @@ NIHR_HIC_ICU_0068:
   NHICcode: NIHR_HIC_ICU_0068
   NHICdtCode: ~
   NHICmetaCode: ~
+  category:
+    levels:
+      "W": Ward
+      "B": oBstetric area
+      "M": other interMediate care area
+      "P": Paediatric/neonatal ICU/HCU
+      "I": level 3 bed in adult ICU or ICU/HDU
+      "H": level 2 bed in adult ICU or ICU/HDU
+      "U": adUlt HCU
+      "T": Theatre & recovery
+      "E": accident & Emergency
+      "R": Recovery only
+      "G": imaGing department
+      "S": Specialist treatment area
+      "C": Clinic
+      "N": Not in hospital
+
 NIHR_HIC_ICU_0398:
   shortName: PA_V3
   ItemId: 37
@@ -882,6 +904,12 @@ NIHR_HIC_ICU_0097:
   NHICcode: NIHR_HIC_ICU_0097
   NHICdtCode: ~
   NHICmetaCode: ~
+  category:
+    levels:
+      A: Alive
+      D: Dead
+      E: Alive - not discharged
+
 NIHR_HIC_ICU_0035:
   shortName: DOAH
   ItemId: 47
@@ -1212,6 +1240,12 @@ NIHR_HIC_ICU_0095:
   NHICcode: NIHR_HIC_ICU_0095
   NHICdtCode: ~
   NHICmetaCode: ~
+  category:
+    levels:
+      A: Alive
+      D: Dead
+      E: Alive - not discharged
+
 NIHR_HIC_ICU_0030:
   shortName: CCD
   ItemId: 62
diff --git a/inst/report/data_quality_report.Rmd b/inst/report/data_quality_report.Rmd
index 562279c..bce4df6 100644
--- a/inst/report/data_quality_report.Rmd
+++ b/inst/report/data_quality_report.Rmd
@@ -16,19 +16,42 @@ admission is `r min(ccd@infotb$t_admission, na.rm=T)` and the latest discharge t
 total data points found in the current database, which makes in average
 `r round(dp/np)` per unique patient. 
 
-## The original XML files and parse information
+## Site Reference
 ```{r, echo=FALSE}
+pander(site.info()[, 1:3], style="rmarkdown")
+```
+
+## The original XML files and parse information
+```{r, echo=FALSE, results="asis"}
 suppressWarnings(library(pander))
 panderOptions("digits", 2) 
 panderOptions("table.split.table", Inf)
 if (!exists("demg")) demg <- demographic.patient.spell(ccd)
-
 fs <- file.summary(ccd)
-#pander(fs[, c("File", "Upload time"), with=F])
 pander(fs[, c("File", "Number of Episode", "Sites"), with=F])
-pander(data.frame("xxx", table1.row(demg, "ETHNIC")))
 ```
-```{r fig.width=10, fig.height=7, echo=FALSE}
+
+```{r fig.width=15, fig.height=10, echo=FALSE}
 xml.file.duration.plot(ccd)
 ```
+```{r fig.width=15, fig.height=10, echo=FALSE}
+xml.site.duration.plot(ccd)
+```
+\newpage
+
+```{r, echo=FALSE, results="asis"}
+table1(demg, c("SEX", "ETHNIC", "LOCA", "DIS", "HDIS"))
+```
+# Completeness
+## Demographic data completeness
+```{r, echo=FALSE, warning=FALSE, results="asis"}
+demographic.data.completeness(demg)
+```
+## Selected demographic data by site
+
+
+\newpage
+```{r, echo=FALSE, results="asis", warning=FALSE}
+demg.distribution(demg, c("HCM", "apache_score"))
+```
 

From a4f77eb1f90f2d7114d773dc6272782f2d0c04c9 Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Sun, 27 Nov 2016 21:09:17 +0000
Subject: [PATCH 09/14] fix duplicated shortnames

---
 data/ITEM_REF.yaml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/data/ITEM_REF.yaml b/data/ITEM_REF.yaml
index 5f80567..1dbd690 100644
--- a/data/ITEM_REF.yaml
+++ b/data/ITEM_REF.yaml
@@ -2501,7 +2501,7 @@ NIHR_HIC_ICU_0932:
   NHICdtCode: NIHR_HIC_ICU_0941
   NHICmetaCode: ~
 NIHR_HIC_ICU_0933:
-  shortName: advsupt_resp
+  shortName: advsupt_cardv
   ItemId: 119
   Classification1: Physiology
   Classification2: Organ_dysfunction
@@ -3365,7 +3365,7 @@ NIHR_HIC_ICU_0550:
   NHICdtCode: NIHR_HIC_ICU_0401
   NHICmetaCode: ~
 NIHR_HIC_ICU_0149:
-  shortName: airway_pressure
+  shortName: airway_pressure_peak
   ItemId: 158
   Classification1: Physiology
   Classification2: Respiratory
@@ -3475,7 +3475,7 @@ NIHR_HIC_ICU_0152:
   NHICdtCode: NIHR_HIC_ICU_0289
   NHICmetaCode: ~
 NIHR_HIC_ICU_0915:
-  shortName: fluid_balance
+  shortName: fluid_balance_d
   ItemId: 163
   Classification1: Physiology
   Classification2: Renal
@@ -3497,7 +3497,7 @@ NIHR_HIC_ICU_0915:
   NHICdtCode: NIHR_HIC_ICU_0916
   NHICmetaCode: ~
 NIHR_HIC_ICU_0413:
-  shortName: fluid_balance
+  shortName: fluid_balance_h
   ItemId: 164
   Classification1: Physiology
   Classification2: Renal

From 8210840862362f2b938c9678ea17942107ea806e Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Tue, 29 Nov 2016 16:30:16 +0000
Subject: [PATCH 10/14] subset by sites

---
 R/ccRecord.R | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/R/ccRecord.R b/R/ccRecord.R
index 84efefe..91d0f50 100644
--- a/R/ccRecord.R
+++ b/R/ccRecord.R
@@ -228,3 +228,16 @@ setMethod("[", "ccRecord",
               }
               ccRecord() + eplst
           })
+
+setMethod("[", signature(x="ccRecord", i="character"), 
+          definition=function(x, i) {
+              ind <- x@infotb[site_id%in%i]$index
+              if (length(ind) == 0) {
+                  return(ccRecord())
+              }
+              eplst <- list()
+              for (ep in ind) {
+                  eplst[[length(eplst) + 1]] <- x@episodes[[ep]]
+              }
+              ccRecord() + eplst
+          })

From bb325b4babf399554d2f1505231ed03b89e057b6 Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Tue, 29 Nov 2016 16:32:09 +0000
Subject: [PATCH 11/14] DQ report

---
 NAMESPACE                           |    3 +
 R/data.quality.report.R             |  129 ++-
 data/ANALYSIS_REF.yaml              | 1254 +++++++++++++++++++++++++++
 data/accept_completeness.yaml       |  263 ++++++
 inst/report/ccd_color.png           |  Bin 18195 -> 33941 bytes
 inst/report/ccd_gray.png            |  Bin 17730 -> 40940 bytes
 inst/report/data_quality_report.Rmd |   61 +-
 inst/report/report.latex            |   44 +-
 man/data.quality.report.Rd          |    2 +-
 man/ethnicity.plot.Rd               |   12 +
 tests/testthat/test_report.r        |    8 +
 11 files changed, 1733 insertions(+), 43 deletions(-)
 create mode 100644 data/ANALYSIS_REF.yaml
 create mode 100644 data/accept_completeness.yaml
 create mode 100644 man/ethnicity.plot.Rd
 create mode 100644 tests/testthat/test_report.r

diff --git a/NAMESPACE b/NAMESPACE
index 3da70ba..f08165d 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -16,6 +16,7 @@ export(create2dclean)
 export(data.quality.report)
 export(deltaTime)
 export(demg.distribution)
+export(demographic.data.completeness)
 export(demographic.patient.spell)
 export(extractInfo)
 export(extract_file_origin)
@@ -32,8 +33,10 @@ export(is.laboratory)
 export(is.physiology)
 export(itemsToDataFrame)
 export(new.episode)
+export(physio.distribution)
 export(reallocateTime)
 export(reallocateTimeRecord)
+export(samplerate2d)
 export(selectTable)
 export(short2longname)
 export(site.info)
diff --git a/R/data.quality.report.R b/R/data.quality.report.R
index 909cd53..4f3c6dd 100644
--- a/R/data.quality.report.R
+++ b/R/data.quality.report.R
@@ -4,7 +4,14 @@
 #' @import knitr
 #' @import pander
 #' @import ggplot2
-data.quality.report <- function(ccd, pdf=T) {
+data.quality.report <- function(ccd, site=NULL, pdf=T) {
+    if (is.null(site)) {
+        dbfull <<- "YES"
+    }
+    else {
+        dbfull <<- "NO"
+        ccd <- ccd[site]
+    }
  
     if (dir.exists(".report")) {
         unlink(".report", recursive=T)
@@ -108,35 +115,107 @@ ethnicity.plot <- function(demg) {
 }
 
 
-#' @demographic.data.completeness
+txt.color <- function(x, color) {
+    x <- sprintf("%3.2f", x)
+    paste("\\colorbox{", color, "}{", x, "}", sep="")
+}
+
+
+#' @export demographic.data.completeness
 demographic.data.completeness <- function(demg, names=NULL) {
+    site.reject <- function(demg, name, ref) {
+        if (ref == 0 | name == "ICNNO")
+            return("")
+       stb <- 
+            demg[, 
+                 round(length(which(!is.na(get(name)) & 
+                                    get(name)!="NULL"))/.N * 100, 
+                       digits=2), by="ICNNO"]
+        rej <- stb[stb[[2]] < ref]
+        if (nrow(rej) == 0)
+            return("")
+        else
+            return(paste(apply(rej, 1, function(x) paste(x, collapse=":")),
+                  collapse="; "))
+    }
+
+    path <- find.package("ccdata")
+    acpt <- unlist(yaml.load_file(paste(path, "data", "accept_completeness.yaml", 
+                                             sep=.Platform$file.sep)))
+
+ 
     demg <- copy(demg)
     demg[, index:=NULL]
     if (!is.null(names))
         demg <- demg[, names, with=F]
 
-    cptb <- apply(demg, 2, function(x) length(which(!(x=="NULL" | is.na(x)))))
-    cptb <- data.frame(cptb)
-    cptb[, 1] <- round(cptb[, 1]/nrow(demg)*100, digits=2)
+    cmplt <- apply(demg, 2, function(x) length(which(!(x=="NULL" | is.na(x)))))
+    cmplt <- data.frame(cmplt)
+    cmplt[, 1] <- round(cmplt[, 1]/nrow(demg)*100, digits=2)
+
+    ref <- acpt[rownames(cmplt)]
+    stopifnot(all(!is.na(ref)))
+    vals <- cmplt[, 1]
+    stname <- rownames(cmplt)
+    
+    reject <- array("", length(stname))
+    for (i in seq(nrow(cmplt))) { 
+        reject[i] <- site.reject(demg, stname[i], ref[i])
+    }
+
+    # color the text according the reference
+    ind <- vals >= ref & ref != 0
+    cmplt[, 1][ind] <- txt.color(vals[ind], "ccdgreen")
+    ind <- vals < ref & ref != 0
+    cmplt[, 1][ind] <- txt.color(vals[ind], "ccdred")
+
     
-    names(cptb) <- "Completeness %"
-    rownames(cptb) <- stname2longname(rownames(cptb))
-    pander(cptb, style="rmarkdown", justify = c('left', 'center'))
+
+   
+    rownames(cmplt) <- stname2longname(rownames(cmplt))
+    cmplt$ref <- as.character(ref)
+    cmplt$ref[cmplt$ref=="0"] <- ""
+    cmplt$reject <- reject
+
+    names(cmplt) <- c("Completeness %", "Accept Completeness %", "Rejected Sites (Site: %)")
+    pander(cmplt, style="rmarkdown", justify = c('left', 'center', "center",
+                                                 "center"))
 }
 
+#' @export samplerate2d
+samplerate2d <- function(cctb) {
+    sample.rate.table <- data.frame(fix.empty.names=T)
+    # items are the columns before site.  
+    items <- names(cctb)[-c(grep("meta", names(cctb)), 
+                            which(names(cctb) %in% 
+                                  c("site", "time", "episode_id")))]
+    for (i in items) {
+        sr <- nrow(cctb)/length(which(is.na(cctb[[i]])))
+        sample.rate.table <- 
+            rbind(sample.rate.table, 
+                  data.frame("item"=stname2longname(code2stname(i)), 
+                             "sr"=sr))
+    }
+    rownames(sample.rate.table) <- NULL
+    names(sample.rate.table) <- c("Item", "Sample Period (hour)")
+
+    pander(sample.rate.table, style="rmarkdown")
+}
+
+
+
 #' 
 #' @export total.data.point
 total.data.point <- function(ccd) {
-#    dp.physio <- 
-#        sum(unlist(for_each_episode(ccd, 
-#                                    function(x) 
-#                                        Reduce(sum, sapply(x@data, nrow)))))
-#    dp.demg <-
-#        sum(unlist(for_each_episode(ccd, 
-#                                    function(x) 
-#                                        Reduce(sum, sapply(x@data, nrow)))))
-#    return(sum(dp.physio, dp.demg))
-    return(10)
+    dp.physio <- 
+        sum(unlist(for_each_episode(ccd, 
+                                    function(x) 
+                                        Reduce(sum, sapply(x@data, nrow)))))
+    dp.demg <-
+        sum(unlist(for_each_episode(ccd, 
+                                    function(x) 
+                                        Reduce(sum, sapply(x@data, nrow)))))
+    return(sum(dp.physio, dp.demg))
 }
 
 #' @export table1
@@ -177,7 +256,6 @@ table1 <- function(demg, names) {
 
 #' @export demg.distribution
 demg.distribution <- function(demg, names) {
-    cat("\n## Distribution\n")
     for (nm in names) {
         ref <- ccdata:::ITEM_REF[[stname2code(nm)]]
         cat(paste("\n\n###", ref$dataItem, "\n"))
@@ -187,3 +265,16 @@ demg.distribution <- function(demg, names) {
         cat('\\newpage')
     }
 }
+
+
+#' @export physio.distribution
+physio.distribution <- function(cctb, names) {
+    for (nm in names) {
+        ref <- ccdata:::ITEM_REF[[stname2code(nm)]]
+        cat(paste("\n\n###", ref$dataItem, "\n"))
+        gg <- ggplot(cctb, aes_string(ref$NHICcode)) + geom_density(fill="lightsteelblue3") + 
+            facet_wrap(~site)
+        print(gg)
+        cat('\\newpage')
+    }
+}
diff --git a/data/ANALYSIS_REF.yaml b/data/ANALYSIS_REF.yaml
new file mode 100644
index 0000000..2d15ff3
--- /dev/null
+++ b/data/ANALYSIS_REF.yaml
@@ -0,0 +1,1254 @@
+# # apply response after field specification allows two possibilities
+# # apply: drop_entry - just replace field with NA
+# # apply: drop_episode - drop entire episode
+# # range checks for continuous data *must* use traffic light terms
+# # - red
+# # - amber
+# # - green
+# # also concept of nodata check which will drop episode if data is missing
+# # e.g. for something crucial like date of birth (age)
+# # nodata:
+# #   apply: drop_episode
+# # set missingness yellow to -1 to prevent any data being dropped
+
+#  ===============================
+#  = drop episode filters to add =
+#  ===============================
+# - [ ] TODO(2016-06-16): data/time icu admit
+# - [ ] TODO(2016-06-16): data/time icu discharge
+# - [ ] TODO(2016-06-16): icu mortality
+# Maybe not drop these
+# - [ ] TODO(2016-06-16): data/time hospital admit
+# - [ ] TODO(2016-06-16): data/time hospital discharge
+# - [ ] TODO(2016-06-16): hospital mortality
+
+#  =====================================
+#  = no data missingess for key fields =
+#  =====================================
+
+NIHR_HIC_ICU_0001:
+  shortName: pas_id
+  dataItem: PAS number
+NIHR_HIC_ICU_0073:
+  shortName: nhs_id
+  dataItem: NHS number
+# - [ ] NOTE(2016-07-17): these are automatically imported and will cause duplicate problems if re-imported
+# NIHR_HIC_ICU_0002:
+#   shortName: site_id
+#   dataItem: ICNARC CMP number
+#   distribution: nominal
+#   nodata:
+#    apply: drop_episode
+# NIHR_HIC_ICU_0005:
+#   shortName: episode_id
+#   dataItem: Critical care local identifier / ICNARC admission number
+NIHR_HIC_ICU_0108:
+  shortName: hrate
+  dataItem: Heart rate
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (0, 300)
+      amber: (11, 170) 
+      green: (60, 100)
+    apply: drop_entry
+  # missingness:
+  #   labels:
+  #     yellow: 24
+  #   accept_2d:
+  #     yellow: 70 
+  #   impute_2d:
+  #     lead: 3
+  #     lag: 3
+  #     fun: median
+  #   apply: drop_episode
+NIHR_HIC_ICU_0122:
+  shortName: lac_bg
+  dataItem: Lactate - ABG
+  distribution: skewed
+  decimal_places: 1
+  range:
+    labels:
+      red: (0, 30)
+      amber: (0.1, 20) 
+      green: (0.4, 2.2)
+    apply: drop_entry
+  # missingness:
+  #   labels:
+  #     yellow: 24
+  #   accept_2d:
+  #     yellow: 70 
+  #   impute_2d:
+  #     lead: 4
+  #     lag: 4
+  #     fun: median
+  #   apply: drop_episode
+# NIHR_HIC_ICU_0093:
+#   shortName: sex
+#   dataItem: Sex
+#   distribution: binary
+#   # - [ ] NOTE(2016-06-28): won't work b/c hashed
+#   # category:
+#   #   levels: # beware case-sensitive
+#   #     M: male
+#   #     F: female
+NIHR_HIC_ICU_0097:
+  shortName: dead_icu
+  dataItem: Dead or alive on discharge
+  distribution: binary
+  category:
+    levels:
+      A: Alive
+      D: Dead
+      E: Alive - not discharged
+    apply: drop_entry
+NIHR_HIC_ICU_0930:
+  shortName: ult_dead_icu
+  dataItem: Status at ultimate discharge from ICUHDU
+  distribution: binary
+  category:
+    levels:
+      A: Alive
+      D: Dead
+      E: Alive - not discharged
+    apply: drop_entry
+NIHR_HIC_ICU_0112:
+  shortName: bp_sys_a
+  dataItem: Systolic Arterial blood pressure - Art BPSystolic Arterial blood pressure
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (0, 300)
+      amber: (50, 220) 
+      green: (80, 120)
+    apply: drop_entry
+#  missingness:
+#    labels:
+#      yellow: 24
+#      accept_2d:
+#        yellow: 70 
+#      impute_2d:
+#        lead: 3
+#        lag: 3
+#        fun: median
+NIHR_HIC_ICU_0113:
+  shortName: bp_sys_ni
+  dataItem: Systolic Arterial blood pressure - NBPSystolic Arterial blood pressure
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (0, 300)
+      amber: (50, 220) 
+      green: (80, 120) 
+    apply: drop_entry
+#  missingness:
+#      labels:
+#          yellow: 24
+#      accept_2d:
+#          yellow: 70 
+#      impute_2d:
+#          lead: 3
+#          lag: 3
+#          fun: median
+NIHR_HIC_ICU_0114:
+  shortName: bp_dia_a
+  dataItem: Diastolic arterial blood pressure - Art BPDiastolic arterial blood pressure
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (0, 250)
+      amber: (20, 150)
+      green: (50, 80) 
+    apply: drop_entry
+#  missingness:
+#    labels:
+#      yellow: 24
+#    accept_2d:
+#      yellow: 70 
+#    impute_2d:
+#      lead: 3
+#      lag: 3
+#      fun: median
+NIHR_HIC_ICU_0115:
+  shortName: bp_dia_ni
+  dataItem: Diastolic arterial blood pressure - NBPDiastolic arterial blood pressure
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (0, 250)
+      amber: (20, 150)
+      green: (50, 80) 
+    apply: drop_entry
+#  missingness:
+#      labels:
+#          yellow: 24
+#      accept_2d:
+#          yellow: 70 
+#      impute_2d:
+#          lead: 3
+#          lag: 3
+#          fun: median
+NIHR_HIC_ICU_0110:
+  shortName: bp_m_a
+  dataItem: Mean arterial blood pressure - Art BPMean arterial blood pressure
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (0, 270)
+      amber: (30, 175) 
+      green: (60, 95)
+    apply: drop_entry
+#  missingness:
+#    labels:
+#      yellow: 24
+#    accept_2d:
+#      yellow: 70 
+#    impute_2d:
+#      lead: 3
+#      lag: 3
+#      fun: median
+NIHR_HIC_ICU_0111:
+  shortName: bp_m_ni
+  dataItem: Mean arterial blood pressure - NBPMean arterial blood pressure
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (0, 270)
+      amber: (30, 175) 
+      green: (60, 95)
+    apply: drop_entry
+#  missingness:
+#    labels:
+#      yellow: 24
+#    accept_2d:
+#      yellow: 70 
+#    impute_2d:
+#      lead: 3
+#      lag: 3
+#      fun: median
+NIHR_HIC_ICU_0398:
+  shortName: adm_type
+  dataItem: Admission type
+  distribution: nominal
+  category:
+    levels:
+      L: unplanned Local admission
+      U: Unplanned transfer in
+      P: Planned transfer in
+      S: planned local Surgical admission
+      M: planned local Medical admission
+      R: Repatriation
+    apply: drop_entry
+NIHR_HIC_ICU_0058:
+  shortName: ethnic
+  dataItem: Ethnicity
+  distribution: nominal
+  category:
+    levels:
+      A: white British
+      B: white Irish
+      C: white any other
+      D: mixed white and black Caribbean
+      E: mixed white and black African
+      F: mixed white and Asian
+      G: mixed any other
+      H: Asian or Asian British - Indian
+      J: Asian or Asian British - Pakistani
+      K: Asian or Asian British - Bangladeshi
+      L: Asian or Asian British - any other
+      M: black or black British - Caribbean
+      N: black or black British - African
+      P: black or black British - any other
+      R: other ethnic group - Chinese
+      S: any other ethnic group
+      Z: not stated
+    apply: drop_entry
+NIHR_HIC_ICU_0077:
+  shortName: loca_in_prior
+  dataItem: Prior location (in)
+  distribution: nominal
+  category:
+    levels:
+      W: Ward
+      B: oBstetric area
+      M: other interMediate care area
+      P: Paediatric/neonatal ICU/HCU
+      I: level 3 bed in adult ICU or ICU/HDU
+      H: level 2 bed in adult ICU or ICU/HDU
+      U: adUlt HCU
+      T: Theatre & recovery
+      E: accident & Emergency
+      R: Recovery only
+      G: imaGing department
+      S: Specialist treatment area
+      C: Clinic
+      N: Not in hospital
+    apply: drop_entry
+NIHR_HIC_ICU_0068:
+  shortName: loca_in
+  dataItem: Location (in)
+  distribution: nominal
+  category:
+    levels:
+      W: Ward
+      B: oBstetric area
+      M: other interMediate care area
+      P: Paediatric/neonatal ICU/HCU
+      I: level 3 bed in adult ICU or ICU/HDU
+      H: level 2 bed in adult ICU or ICU/HDU
+      U: adUlt HCU
+      T: Theatre & recovery
+      E: accident & Emergency
+      R: Recovery only
+      G: imaGing department
+      S: Specialist treatment area
+      C: Clinic
+      N: Not in hospital
+    apply: drop_entry
+NIHR_HIC_ICU_0399:
+  shortName: diag_admx1
+  dataItem: Primary reason for admission to your unit
+  distribution: nomimal
+NIHR_HIC_ICU_0088:
+  shortName: diag_admx2
+  dataItem: Secondary reasons for admission to your unit
+  distribution: nominal
+NIHR_HIC_ICU_0095:
+  shortName: dead_hosp
+  dataItem: Status at discharge from your hospital
+  distribution: binary
+  category:
+    levels:
+      A: Alive
+      D: Dead
+      E: Alive - not discharged
+    apply: drop_entry
+NIHR_HIC_ICU_0098:
+  shortName: ult_dead_hosp
+  dataItem: Status at ultimate discharge from hospital
+  distribution: binary
+  category:
+    levels:
+      A: Alive
+      D: Dead
+      E: Alive - not discharged
+    apply: drop_entry
+NIHR_HIC_ICU_0409:
+  shortName: apa_II_sc
+  dataItem: APACHE II Score
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (-1, 72)
+    apply: drop_entry
+NIHR_HIC_ICU_0410:
+  shortName: apa_II-pr
+  dataItem: APACHE II Probability
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (-1, 101)
+    apply: drop_entry
+NIHR_HIC_ICU_0470:
+  shortName: rx_norad
+  dataItem: Noradrenaline
+  distribution: normal
+  decimal_places: 2
+  range:
+    labels:
+      red: (-0.01, 3)
+      amber: (-0.01, 1) 
+    apply: drop_entry
+NIHR_HIC_ICU_0469:
+  shortName: rx_levos
+  dataItem: Levosimendan
+  distribution: normal
+  decimal_places: 2
+  range:
+    labels:
+      red: (-0.01, 0.2)
+      amber: (-0.01, 0.1) 
+    apply: drop_entry
+NIHR_HIC_ICU_0027:
+  shortName: ncepod
+  dataItem: classification of surgery
+  distribution: nominal
+  category:
+    levels:
+      M: Emergency
+      U: Urgent
+      S: Scheduled
+      L: eLective
+    apply: drop_entry
+NIHR_HIC_ICU_0465:
+  shortName: rx_adre
+  dataItem: Adrenaline
+  distribution: normal
+  decimal_places: 2
+  range:
+    labels:
+      red: (-0.01, 3)
+      amber: (-0.01, 1) 
+    apply: drop_entry
+NIHR_HIC_ICU_0466:
+  shortName: rx_dobu
+  dataItem: Dobutamine
+  distribution: normal
+  decimal_places: 1
+  range:
+    labels:
+      red: (-0.01, 50)
+      amber: (-0.01, 25)
+      green: (-0.01, 15)
+    apply: drop_entry
+NIHR_HIC_ICU_0467:
+  shortName: rx_dopa
+  dataItem: Dopamine
+  distribution: normal
+  decimal_places: 1
+  range:
+    labels:
+      red: (-0.01, 50)
+      amber: (-0.01, 25)
+      green: (-0.01, 5) 
+    apply: drop_entry
+NIHR_HIC_ICU_0564:
+  shortName: rx_dopex
+  dataItem: Dopexamine
+  distribution: normal
+  decimal_places: 2
+  range:
+    labels:
+      red: (-0.01, 2)
+      amber: (-0.01, 1) 
+    apply: drop_entry
+NIHR_HIC_ICU_0468:
+  shortName: rx_enox
+  dataItem: Enoximone
+  distribution: normal
+  decimal_places: 1
+  range:
+    labels:
+      red: (-0.01, 40)
+      amber: (-0.01, 20)
+    apply: drop_entry
+NIHR_HIC_ICU_0252:
+  shortName: rx_milr
+  dataItem: Milrinone
+  distribution: normal
+  decimal_places: 3
+  range:
+    labels:
+      red: (-0.01, 1)
+      amber: (-0.01, 0.75) 
+    apply: drop_entry
+NIHR_HIC_ICU_0471:
+  shortName: rx_vasopr
+  dataItem: Vasopressin
+  distribution: normal
+  decimal_places: 2
+  range:
+    labels:
+      red: (-0.01, 0.07)
+      amber: (-0.01, 0.06) 
+      green: (-0.01, 0.04)
+    apply: drop_entry
+NIHR_HIC_ICU_0565:
+  shortName: rx_terlip
+  dataItem: Terlipressin
+  distribution: normal
+  decimal_places: 2
+  range:
+    labels:
+      red: (-0.01, 2)
+      amber: (-0.01, 1) 
+      green: (-0.01, 0.25)
+    apply: drop_entry
+NIHR_HIC_ICU_0462:
+  shortName: ~
+  dataItem: Propofol
+  distribution: normal
+  decimal_places: 0
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0558:
+  shortName: ~
+  dataItem: Thiopentone / Thiopental
+  Classification4: Barbiturates
+  distribution: normal
+  decimal_places: 0
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0463:
+  shortName: ~
+  dataItem: Midazolam
+  distribution: normal
+  decimal_places: 0
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0559:
+  shortName: ~
+  dataItem: Clonidine
+  distribution: normal
+  decimal_places: 2
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0560:
+  shortName: Dexmed
+  dataItem: Dexmedetomidine
+  distribution: normal
+  decimal_places: 2
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0561:
+  shortName: Keta
+  dataItem: Ketamine
+  distribution: normal
+  decimal_places: 2
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0242:
+  shortName: ~
+  dataItem: Fentanyl
+  distribution: normal
+  decimal_places: 0
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0563:
+  shortName: ~
+  dataItem: Morphine
+  distribution: normal
+  decimal_places: 1
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0464:
+  shortName: ~
+  dataItem: Remifentanil
+  distribution: normal
+  decimal_places: 1
+  missingness:
+    range_red: 24
+    range_yellow: 1
+NIHR_HIC_ICU_0160:
+  shortName: RASS
+  dataItem: Sedation score (hourly)
+  distribution: ordinal
+  decimal_places: 0
+  range:
+    labels:
+      red: (-6, 5)
+    apply: drop_entry
+NIHR_HIC_ICU_0184:
+  shortName: platelets
+  dataItem: Platelets
+  distribution: skewed
+  decimal_places: 0
+  range:
+    labels:
+      red: (-1,5000)
+      amber: (0,1000)
+      green: (150, 400)
+    apply: drop_entry
+NIHR_HIC_ICU_0174:
+  shortName: bilirubin
+  dataItem: Bilirubin
+  distribution: skewed
+  decimal_places: 0
+  range:
+    labels:
+      red: (1,1000)
+      amber: (5,500)
+      green: (3, 20)
+    apply: drop_entry
+NIHR_HIC_ICU_0132:
+  shortName: ~
+  dataItem: PaO2 - ABG
+  distribution: normal
+  decimal_places: 2
+  Units: kPa
+  range:
+    labels:
+      red: (0,100)
+    apply: drop_entry
+# NIHR_HIC_ICU_0126:
+#   shortName: trachy
+#   dataItem: Airway
+#   distribution: nominal
+#   levels:
+#   comment:
+#     arthur: |
+#       # levels:
+#       #   Endotracheal tube (oral/nasal)
+#       #   Tracheostomy
+#       #   None
+#       I am not sure about the name of those levels
+#         Endotracheal tube (oral/nasal)
+#         Tracheostomy
+#         None
+NIHR_HIC_ICU_0549:
+  shortName: rrate_spont
+  dataItem: Spontaneous Respiratory Rate
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (-1, 121)
+      amber: (0, 100)
+      green: (12, 20)
+    apply: drop_entry
+# missingness:
+#   labels:
+#     yellow: 24
+#   accept_2d:
+#     yellow: 70 
+#   impute_2d:
+#     lead: 3
+#     lag: 3
+#     fun: median
+#   apply: drop_episode
+NIHR_HIC_ICU_0145:
+   shortName: Total_Resp_Rate_Monit
+   dataItem: Total respiratory rate (monitor)
+   distribution: normal
+   decimal_places: 0
+   range:
+    labels:
+      red: (-1, 121)
+      amber: (0, 100)
+      green: (12, 20)
+    apply: drop_entry   
+# missingness:
+#   labels:
+#     yellow: 24
+#   accept_2d:
+#     yellow: 70 
+#   impute_2d:
+#     lead: 3
+#     lag: 3
+#     fun: median
+#   apply: drop_episode
+# NIHR_HIC_ICU_0147:
+#   shortName: Mandat_Resp_Rate
+#   dataItem: Mandatory Respiratory Rate
+#   distribution: normal
+#   decimal_places: 0
+#   missingness:
+#     range_red: 24
+#     range_yellow: 1
+NIHR_HIC_ICU_0146:
+   shortName: Total_Resp_Rate_Ventil
+   dataItem: Total respiratory rate (ventilator)
+   distribution: normal
+   decimal_places: 0
+   range:
+    labels:
+      red: (-1, 121)
+      amber: (0, 100)
+      green: (12, 20)
+    apply: drop_entry  
+# missingness:
+#   labels:
+#     yellow: 24
+#   accept_2d:
+#     yellow: 70 
+#   impute_2d:
+#     lead: 3
+#     lag: 3
+#     fun: median
+#   apply: drop_episode
+NIHR_HIC_ICU_0144:
+  shortName: ventilated
+  dataItem: Invasive or non-invasive (ventilation)
+  distribution: binary
+  category:
+    levels:
+      1: invasive ventilation
+      2: non-invasive ventilation
+    apply: drop_entry
+NIHR_HIC_ICU_0129:
+  shortName: spo2
+  dataItem: SpO2
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (-1, 101)
+      amber: (70,100)
+      green: (92, 100)
+    apply: drop_entry
+# NIHR_HIC_ICU_0550:
+#   shortName: ~
+#   dataItem: Tidal volume
+#   distribution: normal
+#   decimal_places: 0
+#   missingness:
+#     range_red: 24
+#     range_yellow: 1
+NIHR_HIC_ICU_0150:
+  shortName: fiO2
+  dataItem: Inspired fraction of oxygen
+  distribution: normal
+  decimal_places: 2
+  range:
+    labels:
+      red: (20,101)
+    apply: drop_entry
+NIHR_HIC_ICU_0166:
+  shortName: creatinine
+  dataItem: Creatinine
+  distribution: normal
+  decimal_places: 0
+  range:
+    labels:
+      red: (-1, 5000)
+      amber: (20, 1000)
+      green: (50, 120)
+    apply: drop_entry
+NIHR_HIC_ICU_0162:
+  shortName: urine1h
+  dataItem: Urine output (hourly) 
+  distribution: normal
+  decimal_places: 0
+  range:
+      labels:
+          red: (-1, 2000)
+          amber: (-1, 1000)
+      apply: drop_entry
+#  missingness:
+#    range_red: 24
+#    range_yellow: 6
+NIHR_HIC_ICU_0161:
+  shortName: rrt
+  dataItem: Renal replacement mode
+  distribution: nominal
+  category:
+    levels:
+      1: CVVHF
+      2: CVVHDF
+    apply: drop_entry
+NIHR_HIC_ICU_0156:
+  shortName: gcs
+  dataItem: GCS - total
+  distribution: ordinal
+  decimal_places: 0
+  range:
+    labels:
+      red: (2, 16)
+    apply: drop_entry
+#  missingness:
+#    range_yellow: 24
+NIHR_HIC_ICU_0913:
+  shortName: pf_ratio
+  distribution: normal
+  decimal_places: 1
+  dataItem: PaO2/FiO2 ratio
+  range:
+    labels:
+      red: (0,100)
+    apply: drop_entry
+# NIHR_HIC_ICU_0187:
+#   shortName: micro_bug
+#   distribution: nominal
+#   dataItem: Organism
+# NIHR_HIC_ICU_0188:
+#   shortName: micro_sens
+#   distribution: nominal
+#   dataItem: Sensitivity
+# # Start of the antimicrobials, leaving in classification for now
+# # Will be useful in assigning class
+NIHR_HIC_ICU_0414:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Aminoglycosides
+  Classification4: ~
+  dataItem: Amikacin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0437:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Aminoglycosides
+  Classification4: ~
+  dataItem: Gentamicin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0444:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Aminoglycosides
+  Classification4: ~
+  dataItem: Neomycin
+  Units: mg
+  sepsis3_abx: FALSE
+NIHR_HIC_ICU_0459:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Aminoglycosides
+  Classification4: ~
+  dataItem: Tobramycin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0447:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Anti_protozoal
+  Classification4: ~
+  dataItem: Pentamidine
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0434:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Anti_tuberculous
+  Classification4: ~
+  dataItem: Ethambutal HCL
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0438:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Anti_tuberculous
+  Classification4: ~
+  dataItem: Isoniazid
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0450:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Anti_tuberculous
+  Classification4: ~
+  dataItem: Pyrazinamide
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0452:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Anti_tuberculous
+  Classification4: ~
+  dataItem: Rifampacin
+  Units: tab
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0453:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Anti_tuberculous
+  Classification4: ~
+  dataItem: Rifater
+  Units: tab
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0454:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Anti_tuberculous
+  Classification4: ~
+  dataItem: Rifinah
+  Units: tab
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0432:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Carbapenems
+  Classification4: ~
+  dataItem: Ertapenem
+  Units: g
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0441:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Carbapenems
+  Classification4: ~
+  dataItem: Meropenem
+  Units: g
+  sepsis3_abx: TRUE
+  range:
+    labels:
+      red: (0, 2001)
+      amber: (0, 2.1) 
+    apply: drop_entry
+NIHR_HIC_ICU_0418:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Cephalosporins
+  Classification4: ~
+  dataItem: Cefotaxime
+  Units: g
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0419:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Cephalosporins
+  Classification4: ~
+  dataItem: Ceftazidime
+  Units: g
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0420:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Cephalosporins
+  Classification4: ~
+  dataItem: Ceftriaxone
+  Units: g
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0421:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Cephalosporins
+  Classification4: ~
+  dataItem: Cefuroxime
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0422:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Chloramphenicol
+  Classification4: ~
+  dataItem: Chloramphenicol
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0436:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Fusidanes
+  Classification4: ~
+  dataItem: Fuscidic acid
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0456:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Fusidanes
+  Classification4: ~
+  dataItem: Sodium Fusidate
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0457:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Glycopeptides
+  Classification4: ~
+  dataItem: Teicoplanin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0461:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Glycopeptides
+  Classification4: ~
+  dataItem: Vancomycin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0425:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Lincosamides
+  Classification4: ~
+  dataItem: Clindamycin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0416:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Macrolides
+  Classification4: ~
+  dataItem: Azithromycin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0424:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Macrolides
+  Classification4: ~
+  dataItem: Clarithromycin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0433:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Macrolides
+  Classification4: ~
+  dataItem: Erythromycin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0445:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Nitrofurans
+  Classification4: ~
+  dataItem: Nitrofurantion
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0442:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Nitroimidazole
+  Classification4: ~
+  dataItem: Metronidazole
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0440:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Oxazolidinone
+  Classification4: ~
+  dataItem: Linezolid
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0415:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Penicillins
+  Classification4: ~
+  dataItem: Amoxicillin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0417:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Penicillins
+  Classification4: ~
+  dataItem: Benzylpenicillin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0426:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Penicillins
+  Classification4: ~
+  dataItem: Co-Amoxiclav
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0435:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Penicillins
+  Classification4: ~
+  dataItem: Flucloxacillin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0448:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Penicillins
+  Classification4: ~
+  dataItem: Phenoxymethylpenicillin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0449:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Penicillins
+  Classification4: ~
+  dataItem: Piperacillin/Tazobactam
+  Units: g
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0427:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Polymyxins
+  Classification4: ~
+  dataItem: Colistin
+  Units: megaunits
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0423:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Quinolones
+  Classification4: ~
+  dataItem: Ciprofloxacin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0439:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Quinolones
+  Classification4: ~
+  dataItem: Levofloxacin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0443:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Quinolones
+  Classification4: ~
+  dataItem: Moxifloxacin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0446:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Quinolones
+  Classification4: ~
+  dataItem: Ofloxacin
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0428:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Sulfonamides_trimethoprim
+  Classification4: ~
+  dataItem: Co-Trimoxazole
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0460:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Sulfonamides_trimethoprim
+  Classification4: ~
+  dataItem: Trimethoprim
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0429:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Tetracyclines
+  Classification4: ~
+  dataItem: Demeclocycline HCL
+  Units: mg
+  sepsis3_abx: FALSE
+NIHR_HIC_ICU_0430:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Tetracyclines
+  Classification4: ~
+  dataItem: Doxycycline
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0458:
+  shortName: ~
+  Classification1: Drugs
+  Classification2: Anti_microbials
+  Classification3: Tetracyclines
+  Classification4: ~
+  dataItem: Tigecycline
+  Units: mg
+  sepsis3_abx: TRUE
+NIHR_HIC_ICU_0411:
+  shortName: dt_icu_admit
+  dataItem: Date & Time of admission to your unit
+NIHR_HIC_ICU_0412:
+  shortName: dt_icu_dc
+  dataItem: Date & Time of discharge from your unit
+NIHR_HIC_ICU_0032:
+  shortName: dt_hosp_admit
+  dataItem: Date of admission to your hospital
+NIHR_HIC_ICU_0406:
+  shortName: dt_hosp_dc
+  dataItem: Date of discharge from your hospital
+NIHR_HIC_ICU_0033:
+  shortName: dob
+  dataItem: Date of birth
+NIHR_HIC_ICU_0024:
+  shortName: pmhx_chemo
+  dataItem: Chemotherapy (within the last 6months) steroids alone excluded
+NIHR_HIC_ICU_0080:
+  shortName: pmhx_dxt
+  dataItem: Radiotherapy
+NIHR_HIC_ICU_0029:
+  shortName: pmhx_immuncomp
+  dataItem: Congenital immunohumoral or cellular immune deficiency state
+NIHR_HIC_ICU_0010:
+  shortName: pmhx_leuk_acute
+  dataItem: Acute myeloid/lymphocytic leukaemia or myeloma
+NIHR_HIC_ICU_0025:
+  shortName: pmhx_leuk_chronic
+  dataItem: Chronic myelogenous /lymphocytic leukaemia
+NIHR_HIC_ICU_0070:
+  shortName: pmhx_lymphoma
+  dataItem: Lymphoma
+NIHR_HIC_ICU_0071:
+  shortName: pmhx_metastatic
+  dataItem: Metastatic disease
+NIHR_HIC_ICU_0026:
+  shortName: pmhx_crrt
+  dataItem: Chronic renal replacement therapy
+NIHR_HIC_ICU_0016:
+  shortName: pmhx_cirrhosis
+  dataItem: Biopsy proven cirrhosis
+NIHR_HIC_ICU_0060:
+  shortName: pmhx_alf
+  dataItem: Heaptic encephalopathy
+NIHR_HIC_ICU_0075:
+  shortName: pmhx_portal_htn
+  dataItem: Portal hypertension
+NIHR_HIC_ICU_0062:
+  shortName: pmhx_hiv
+  dataItem: HIV/AIDS
+NIHR_HIC_ICU_0063:
+  shortName: pmhx_home_vent
+  dataItem: Home ventilation
+NIHR_HIC_ICU_0092:
+  shortName: pmhx_severe_rs
+  dataItem: Severe respiratory disease
+NIHR_HIC_ICU_0099:
+  shortName: pmhx_steroids
+  dataItem: Steroid treatment
+NIHR_HIC_ICU_0107:
+  shortName: pmhx_severe_cvs
+  dataItem: Very severe cardiovascular disease
+NIHR_HIC_ICU_0074:
+  shortName: pmhx_other
+  dataItem: Other condition in past medical history
+NIHR_HIC_ICU_0055:
+  shortName: pmhx_depend
+  dataItem: Dependency prior to admission
diff --git a/data/accept_completeness.yaml b/data/accept_completeness.yaml
new file mode 100644
index 0000000..f9ee417
--- /dev/null
+++ b/data/accept_completeness.yaml
@@ -0,0 +1,263 @@
+ICNNO: 99 # Site code (ICNARC CMP number)
+bed02: 0 # CCU bed configuration 02
+bed03: 0 # CCU bed configuration 03
+bed05: 0 # CCU bed configuration 05
+bed50: 0 # CCU bed configuration 90
+NHSNO: 99 # NHS number
+pasno: 99 # PAS number
+ADNO: 99 # Critical care local identifier / ICNARC admission number
+DOB: 99 # Date of birth
+PCODE: 90 # Postcode
+GPCODE: 90 # Code of GP
+ETHNIC: 90 # Ethnicity
+SEX: 99 # Sex
+HCM: 90 # Height
+HCMEST: 90 # Height (Source)
+WKG: 90 # Weight
+WKGEST: 90 # Weight (Source)
+DAH: 90 # Date of admission to your hospital
+DAICU: 0 # Date & Time of admission to your unit
+DWFRD: 0 # Date fully ready for discharge
+TWFRD: 0 # Time fully ready for discharge
+DDICU: 0 # Date & Time of discharge from your unit
+DUDICU: 0 # Date of ultimate discharge from ICU/HDU
+DDH: 0 # Date of discharge from your hospital
+DUDH: 0 # Date of ultimate discharge from your hospital
+UDIS: 0 # Status at ultimate discharge from ICUHDU
+RESA: 0 # Residence prior to admission to acute hospital
+HLOCA: 0 # Hospital housing location (in)
+LOCA: 0 # Location (in)
+PA_V3: 0 # Admission type
+SCODE: 0 # Treatment function code
+CLASSNS: 0 # classification of surgery
+CCL2D: 0 # Level 2 (HDU) days
+CCL3D: 0 # Level 3 (ICU) days
+RDIS_V3: 0 # Discharge status (Reason for discharge from your unit)
+LOCD: 0 # Discharge location (location out)
+TNESSD: 0 # Timeliness of discharge from your unit
+LEVD: 0 # Level of care at discharge from your unit
+DIS: 0 # Dead or alive on discharge
+DOAH: 0 # Date of original admission to/attendance at acute hospital
+SOHA: 0 # Sector of other hospital (in)
+PLOCA: 0 # Prior location (in)
+TUADNO: 0 # Transferring unit admission number
+DOAICU: 0 # Date of original admission to ICU/HDU
+TUIDI: 0 # Transferring unit identifier (in)
+TYPEIHA: 0 # Type of adult ICU/HDU (in)
+TGA: 0 # Adult ICU/HDU within your critical care transfer group (in)
+CCA: 0 # Critical care visit prior to this admission to your unit
+DLCCA: 0 # Date of last critical care visit prior to this admission to your unit
+HLOCD: 0 # Hospital housing location (out)
+SOHD: 0 # Sector of other hospital (out)
+TYPEIHD: 0 # Type of adult ICU/HDU (out)
+TGD: 0 # Adult ICU/HDU within your critical care transfer group (out)
+HDIS: 0 # Status at discharge from your hospital
+CCD: 0 # Critical care visit post-discharge from your unit
+DFCCD: 0 # Date of first critical care post-discharge from your unit
+DESTH_V3: 0 # Destination post discharge within your hospital
+RESD: 0 # Residence post discharge from acute hospital
+UHDIS: 0 # Status at ultimate discharge from hospital
+PSP: 0 # Admission for pre-surgical preparation
+CPR_V3: 0 # Cardiopulmonary resuscitation within 24 hours prior to admission to unit
+RAICU1: 90 # Primary reason for admission to your unit
+RAICU2: 0 # Secondary reasons for admission to your unit
+URAICU: 0 # Ultimate primary reason for admission to unit
+CHEMOX: 0 # Chemotherapy (within the last 6months) steroids alone excluded
+RADIOX: 0 # Radiotherapy
+CICIDS: 0 # Congenital immunohumoral or cellular immune deficiency state
+AMLALLMM: 0 # Acute myeloid/lymphocytic leukaemia or myeloma
+CMLCLL: 0 # Chronic myelogenous /lymphocytic leukaemia
+LYM: 0 # Lymphoma
+META: 0 # Metastatic disease
+CRRX: 0 # Chronic renal replacement therapy
+BPC: 0 # Biopsy proven cirrhosis
+HE: 0 # Heaptic encephalopathy
+PH: 0 # Portal hypertension
+AIDS_V3: 0 # HIV/AIDS
+HV: 0 # Home ventilation
+SRD: 0 # Severe respiratory disease
+STERX: 0 # Steroid treatment
+VSCD: 0 # Very severe cardiovascular disease
+OCPMH: 0 # Other condition in past medical history
+DEP: 0 # Dependency prior to admission
+apache_score: 90 # APACHE II Score
+apache_prob: 90 # APACHE II Probability
+TNESSA: 0 # Delayed admission
+DHRS: 0 # Delay
+AMUAI: 0 # Antimicrobial use after 48 hours in your unit
+ORGAN_SUPPORT: 0 # Organ support maximum
+ARSD: 0 # Advanced respiratory support days
+BRSD: 0 # Basic respiratory support days
+ACSD: 0 # Advanced Cardiovascular support days
+BCSD: 0 # Basic Cardiovascular support days
+RSD: 0 # Renal support days
+NSD: 0 # Neurological support days
+LSD: 0 # Liver support days
+DSD: 0 # Dermatological support days
+GSD: 0 # Gastrointestinal support days
+ITW_V3: 0 # Treatment withheld/withdrawn
+DTW: 0 # Date treatment first withdrawn
+TTW: 0 # Time treatment first withdrawn
+BSDTP: 0 # Brain stem death declared
+DDBSD: 0 # Date of declaration of brain stem death
+TDBSD: 0 # Time of declaration of brain stem death
+DOD: 0 # Date of death on yout unit
+TOD: 0 # Time of death on your unit
+REFOD: 0 # Referred for solid organ or tissue donation
+OD_V3: 0 # Solid organ or tissue donor
+DBRICU: 0 # Date body removed from your unit
+TBRICU: 0 # Time body removed from your unit
+advsupt_resp: 0 # Advanced respiratory support
+basicsupt_resp: 0 # Basic respiratory support
+advsupt_cardv: 0 # Advanced Cardiovascular support
+basicsupt_cardv: 0 # Basic Cardiovascular support
+supt_renal: 0 # Renal support
+supt_neuro: 0 # Neurological support
+supt_liver: 0 # Liver support
+supt_dermat: 0 # Dermatological support
+supt_gastr: 0 # Gastrointestinal support
+gcs_total: 0 # GCS - total
+gcs_motor: 0 # GCS - motor component
+gcs_eye: 0 # GCS - eye component
+gcs_verbal: 0 # GCS - verbal component
+sedation_score: 0 # Sedation score (hourly)
+sedataion: 0 # Sedation yes/no
+h_rate: 0 # Heart rate
+h_rhythm: 0 # Heart rhythm
+bp_m_a: 0 # Mean arterial blood pressure - Art BPMean arterial blood pressure
+bp_m_ni: 0 # Mean arterial blood pressure - NBPMean arterial blood pressure
+bp_sys_a: 0 # Systolic Arterial blood pressure - Art BPSystolic Arterial blood pressure
+bp_sys_ni: 0 # Systolic Arterial blood pressure - NBPSystolic Arterial blood pressure
+bp_dia_a: 0 # Diastolic arterial blood pressure - Art BPDiastolic arterial blood pressure
+bp_dia_ni: 0 # Diastolic arterial blood pressure - NBPDiastolic arterial blood pressure
+venous_p: 0 # Central venous pressure
+lidco_plus: 0 # Cardiac output - LiDCO Plus
+lidco_rapid: 0 # Cardiac output - LiDCO Rapid
+picco: 0 # Cardiac output - PICCO
+pa_catheter: 0 # Cardiac output - PA Catheter
+doppler: 0 # Cardiac output - Doppler
+airway: 0 # Airway
+ventilation: 0 # Invasive or non-invasive (ventilation)
+respiratory_rate_spon: 0 # Spontaneous Respiratory Rate
+respiratory_rate_totl: 0 # Total respiratory rate (monitor)
+spo2: 0 # SpO2
+pao2_fio2: 0 # PaO2/FiO2 ratio
+fraction_oxygen: 0 # Inspired fraction of oxygen
+pe_expiratory_pressure: 0 # Positive End Expiratory Pressure
+mand_resp_rate: 0 # Mandatory Respiratory Rate
+total_resp_rate: 0 # Total respiratory rate (ventilator)
+minute_volume: 0 # Minute volume
+tidal_volume: 0 # Tidal volume
+airway_pressure_peak: 0 # Peak airway pressure
+frequency: 0 # Frequency (Hz)
+cycle_volumn: 0 # Cycle Volume
+base_flow: 0 # Base flow
+airway_pressure: 0 # Airway pressure
+fluid_balance_d: 0 # Fluid Balance (daily)
+fluid_balance_h: 0 # Fluid Balance (hourly)
+urine_output: 0 # Urine output
+renal_replace: 0 # Renal replacement mode
+duration_therapy: 0 # Duration of therapy (hours per day)
+effluent_per_day: 0 # Total effluent per day
+dialysate: 0 # Dialysate
+replace_fluid_RRT: 0 # Replacement fluid during RRT
+anticoagulation: 0 # Type of anticoagulation
+position: 0 # Position
+temperature_central: 0 # Temperature - Central
+temperature_non_central: 0 # Temperature - Non-central
+sodium: 0 # Sodium
+sodium_abg_vbg: 0 # Sodium ABG/VBG
+potassium: 0 # Potassium
+potassium_abg_vbg: 0 # Potassium ABG/VBG
+urea: 0 # Urea
+creatinine: 0 # Creatinine
+bilirubin: 0 # Bilirubin
+glucose_lab: 0 # Glucose (laboratory)
+glucode_abg_vbg: 0 # Glucose ABG/VBG
+glucode_bedtest: 0 # Glucose bedside test
+cprotein: 0 # C reactive protein
+ph_abg_vbg: 0 # pH - ABG / VBG
+hco3_abg_vbg: 0 # HCO3 - ABG / VBG
+lactate_abg: 0 # Lactate - ABG
+lactate_lab: 0 # Lactate - Lab
+haemoglobin: 0 # Haemoglobin
+haemoglobin_abg_vbg: 0 # Haemoglobin ABG/VBG
+white_cell: 0 # White cell count
+neutrophil: 0 # Neutrophil count
+platelets: 0 # Platelets
+site: 0 # Site
+organism: 0 # Organism
+sensitivity: 0 # Sensitivity
+pao2_abg: 0 # PaO2 - ABG
+sao2_abg: 0 # SaO2 - ABG
+venous_saturation: 0 # Central venous saturation
+paco2_abg: 0 # PaCO2 - ABG
+amikacin: 0 # Amikacin
+gentamicin: 0 # Gentamicin
+neomycin: 0 # Neomycin
+tobramycin: 0 # Tobramycin
+pentamidine: 0 # Pentamidine
+ethambutal hcl: 0 # Ethambutal HCL
+isoniazid: 0 # Isoniazid
+pyrazinamide: 0 # Pyrazinamide
+rifampacin: 0 # Rifampacin
+rifater: 0 # Rifater
+rifinah: 0 # Rifinah
+ertapenem: 0 # Ertapenem
+meropenem: 0 # Meropenem
+cefotaxime: 0 # Cefotaxime
+ceftazidime: 0 # Ceftazidime
+ceftriaxone: 0 # Ceftriaxone
+cefuroxime: 0 # Cefuroxime
+chloramphenicol: 0 # Chloramphenicol
+fuscidic acid: 0 # Fuscidic acid
+sodium fusidate: 0 # Sodium Fusidate
+teicoplanin: 0 # Teicoplanin
+vancomycin: 0 # Vancomycin
+clindamycin: 0 # Clindamycin
+azithromycin: 0 # Azithromycin
+clarithromycin: 0 # Clarithromycin
+erythromycin: 0 # Erythromycin
+nitrofurantion: 0 # Nitrofurantion
+metronidazole: 0 # Metronidazole
+linezolid: 0 # Linezolid
+amoxicillin: 0 # Amoxicillin
+benzylpenicillin: 0 # Benzylpenicillin
+co-amoxiclav: 0 # Co-Amoxiclav
+flucloxacillin: 0 # Flucloxacillin
+phenoxymethylpenicillin: 0 # Phenoxymethylpenicillin
+piperacillin_tazobactam: 0 # Piperacillin/Tazobactam
+colistin: 0 # Colistin
+ciprofloxacin: 0 # Ciprofloxacin
+levofloxacin: 0 # Levofloxacin
+moxifloxacin: 0 # Moxifloxacin
+ofloxacin: 0 # Ofloxacin
+co-trimoxazole: 0 # Co-Trimoxazole
+trimethoprim: 0 # Trimethoprim
+demeclocycline hcl: 0 # Demeclocycline HCL
+doxycycline: 0 # Doxycycline
+tigecycline: 0 # Tigecycline
+propofol: 0 # Propofol
+thiopentone_thiopental: 0 # Thiopentone / Thiopental
+midazolam: 0 # Midazolam
+clonidine: 0 # Clonidine
+dexmedetomidine: 0 # Dexmedetomidine
+ketamine: 0 # Ketamine
+fentanyl: 0 # Fentanyl
+morphine: 0 # Morphine
+remifentanil: 0 # Remifentanil
+levosimendan: 0 # Levosimendan
+adrenaline: 0 # Adrenaline
+dobutamine: 0 # Dobutamine
+dopamine: 0 # Dopamine
+dopexamine: 0 # Dopexamine
+enoximone: 0 # Enoximone
+milrinone: 0 # Milrinone
+noradrenaline: 0 # Noradrenaline
+vasopressin: 0 # Vasopressin
+terlipressin: 0 # Terlipressin
+esmolol: 0 # Esmolol
+metoprolol: 0 # Metoprolol
+dexamethasone: 0 # Dexamethasone
+hydrocortisone: 0 # Hydrocortisone
+methylprednisolone: 0 # Methylprednisolone
diff --git a/inst/report/ccd_color.png b/inst/report/ccd_color.png
index 2914e3419bdec30aadd12641cd8758e5760d5454..4c2cbaadcb647d81e2333341418a9ba584e35663 100644
GIT binary patch
literal 33941
zcmZsDWl&t(wk}Q+T!Om?2=3ZQfCP7UcMI<B?(PuW-Q7Jn1b3I<@;dw6+<k7<`_a9c
zs!?MO`G&4pgvv^bA%4L900stz_*Gm)9t;d(0`&VH00a8oXEHMYJ-{90#e~2rC-IL!
zf56#_t2uyy(Ubl8fV&h5IDvry!M=(JD!PE5dcx}B5460GpJzUeu*2Y4Lc-u{N;5kd
zezb-EOcJQ8Aqp-;ZB~Ht_Ep@KVQ+w8uj6)C5REthXbP^^0(JzoR$~btVbp>Wj}1|T
z8zDU~yMFfK?JzsyTuj^M&Qr{{-bB1{emc&<(v_L{I>E8w(T7bC&`m9pv!>&|O<j(u
z6pBI&1ppWF0X;+k;8p?Gg_dyOMt}$7pOK5rPX4tB;*2Cf0189^80dk44<V8Ue;ynC
z_5nUqCqzAq@5$mD8~I-b0AEcKU;&qkxB@?yu#bZiiAg&Qj{Nf^&T#_jUnY#LsKoM2
zt=Tq$3rGczyo0G#?WLWi#NavK(EoD==qR5Z0E(FtzC0Rd9N?j7Dt!_=n`SHrPMg8|
z=zoO;$xN&P6~bx~PF(2x5u!I=hf$H39ye(6DBxd>0KRl6#IqUDE(t$90k)ANUwj~8
zO$yAS^aZ>A(dQqvVm^YDs`HCRYeN9fWNCEyA?Y_^I9L1}RQZ2cfv1CnYJ|h5a3F%{
zELAs6dR#Ic;XF`p(N@FiDAM`Ig8yU4Q&M2TGQEAmq$2=;c{PQvLNAp+;A7`A4gJ>&
zK){lak9ghZCF)o_)J;hq<0)Q6U?e6alAa*dzmn-<fs;-+#pZuM7wW#K($yqq8bE0{
zr=d;^`d7tkR1nSM!_Ob%eJGbq8?H;x)9EgdP7_o~<EANT*wTytvI7EC1wn^?tf#KD
zK<%dY8G2!%N|?=$@7jkFKaBgACEXwKNp&&SGeP3-WOLPo;67SN2Lx2Y{Rbx?ExU0+
zHmlhBQlk|DT)u6I&oRr2Ej7JdmkbA2@D<+r_e|XnAn}TH^Te%1febWmGAq|`{J}M8
zdUum%bJJ4)Z8Uw5r|=<RGWV$<rpc-7*qqDhr-hOe9@$V#xc|ql|2(RL!D5Zwo8@S*
zNQj|$7!>SSCr3oc(8a%J|EqyKNCPek*6(CQDAf0hlfD`)p{b*#Oo$qmbAo@d{0C=z
zAONlQMas88ft$w6r5X2Q#EUy1V1NJiFVO->EK5X&urp?;>fEp2-pB2}>{;U8JV%Ga
z=fnTE{E~mHMlOpn5eSe>S03lo&}}qKREJ(>ONS2MM*UxG1OJ53&Sp-yhfq$tDL#OO
zfkn&M|Aj4mFpL!K|3?L!lUij#Rt%q;^m)AXC@KGITc320WT!>Nf<`p~U?yqHAZ*)n
zRSm$casOW(*+4pK^o8rUL4(sBqYJ67R~u$jwHmi-lmhqujV9k05HuX#cxh?O5FkFT
zIg`AwXxMZGNmm}|+ZHJNt0!ZykK?SKH2nZ6R03&?*~zJ5s)2+R=|o9)uI;~6;-O%%
z`w7$2h#X|yEu0(5kIkai2bSPsp?@9e+baq>PEX*yz1(we{K;9DZ$ptM5Gz8d?vui|
zvw}j_zgmKk$ToxGj(*J~yNQj1)p)`}R8mTBVe3jsIt>e5r1)PtAiz)r#8Whc+HV!b
zN2}Iq7QZBXaHMkC3OR99_^(5o@j-Z`_XaAq>j4glCoXU?%_)2^A=L%LxBs<17|61c
z6U0?0mr9HCJz1`nNr6QJK57u+BYz{nS4bFiRxaNaZ&j5pX49m!yw2o9LTxG=6-CPz
z!T%PD{0oRsUX^;f0$>|k$akYV@Lh|_s!oH5IWhb%U~Nf2n9zEV{UQDdC55vsgUcvd
z@-0olN3!Q%PB91|!AE3s8C6I(d2)9(Q<Pl@K4s)&f)n(_2K-NYMuC9#0~sE|bvi#c
zO?rt%%+9B4A2;J<#^Q<Me{(b_ZxVoxo68lx*9-)!A76eniK;*}`MCGiTDnBcP4(Y|
ze=?&2iSSmXP>$u(+Skh|-nkJWv-*+Hc-uI-zwXvmBm)+>Dhm9XQQ%rvc(ER`Aj5W@
zw#8RO6aQ=V2x$-qqbCozkIe_zOf)Abz=T)LsKA7h|4Y9=jv2Abl}#og4&am#j5V${
z`<?h<H%|QTIX)=ZMj$8<8X<pYRW5EX^<qDG5h*@_NmX|(@wICCzomiikBU3O&RRZT
zxFrtSENI7lfzp(?a4FLi|K?x>F(2_8TS@AEBS3d?E%)rWDO1iEA;-ty|8)!nh>g~x
z>JM3Az{Bg8C2sev>4rI~j9Ay8xs*8Gzmn-<fMVYjga7A@V&MnnP9G-iqEhK;eHrRh
zZRa$aNAl#q{6IAp7Q|6($N|5h!S*{=HwN_)A@htlI3o1F)vucvL{jpp85jJ^Tk6g+
z0t0S6HX{;h>wg8S2*{jNq(Y15g54Ja(g1c9N8f5bj#%S);&_k0LJ?1)f=b^3vMnoC
zmk_Oh&Xc^dwph;rbIWE7(qEcCRbQSsCo864IK>anR}!#PYl5i{>x6tdMb2}_&pI(s
zSpHqw5<Bx>>A*-(!a*2QWj$O|0(936Kr6!=GG0*+-$|DpwXe<TvLO!q3nAa$KUrmq
z_oThltmZv)Zqt0SmX>p}e*>7&q+Ut4%%%|(f%d=P4GaJ=7IIs0Ra9YMsO^N$(e>><
zKU>w!nlW!F^#cXz;C~TA{~?BOTY6MfN-<WYobU@Dk{gm$tt&L+?{hYuxOxmgO-%gP
z?)IRnvA?D##g!@s?Ava4PL1YAQNTX6xjr?0zVjAZeF>VsZ5O9nbWj$|fB1_^pf547
zpan?yonNWW-q@31lxNaB)s^~1RT3AE61RTjD}vX5mkK5jI-|h-rPqCZa_z>nS)kAv
zVD2uKh$?(h)+Y6V*Ey)rF<yT&2q+AZK!~@qoeso9*-WdpoEnFEwy<2*+pyG{8&~^m
z*qxE~fBdwKdfBftJ8vqY`?kX4;g)^zU|Ykkjc(aK=#tvw%7j%OV%G<$vFSDVC>I&Z
zFC0Qha?8<-Qe|an<DFTdiaPp<65S-(AB;n_uyV<oM}G?cvxT$DhLg^hn(in+OmRjc
z4Y_&7e2e>q4mqyMM=R@vDdSU-^&PIPx@lG0=NidHi9nL}G|G0m@m`_DCsvZD6vn6^
zF7Noj$CF-%-QN?*9(0>&Zq)SRfBJ!5?FvOZ_Nb5p5}Opf4naOTKP@BDVK;a8C0|I-
zC;$}+s0Rh+*eeTnY+B~+D8b=9Lp(R~oiuBraUP>q1F1#%FkQ8JN}PYG*^k<Frb?R5
zN8rpySX}r_ZI=+|C<ulOEtO>GBD{X&iO7Z|HiHEYzJc4fGV}{sX(VaiWe}vM&MGR;
zcMutQvnsSNJ*(bQiP&6(YE7NFeP&-%nXiUTa5c76Epk90u0;H9*+Hwot8_nQX2zv-
zFo<7yMe~So^)d<drVzU!(xwq6@%{1zNi>VhWXji6zykZlj11pvf24?V4UZ2t>yexH
zX5dkstX;<wo3V2uzy;4SCR`2Ku19BZe1rtS6uB4S2q@!xNp!k7N%p8NM#Dj(iwUly
z^qPNo|I3EGbJ^u`?_EdhtYU)+FB{Y+$U%wE;eR2W@|sd>F!vKfKkx%&`V(AEf-@zp
z0^MO)>*dPuWVK&x?y)5iIV?3>_5JU#xXq#5a&xrXjptEgj@dodvPCX;82H|2lOQ?P
zVj7ahbzgc-k0z4vGLI*L5PDGsktwFO5(PNF%fwdN#`iO&+S698Z<4ZIUY4gH7<|5Y
zfE%)bY18@qj1G<D?HU#s>ZQv9Cn|A;MuJrJiD8lQD?iy9u+X@J^KaTFtED%src%el
z)2XM<%Hs(EThU?am+B5@2k*KF2^riO;+g#Zc)j)G_DE83UP5R+%7urCmK+vjk+bz0
zSiPVKVc7rVW1kyP^f(bJD4{)WD@`C0b7T3JcfzKQ4+OJbb15b2skdZAe%U|B2ON<7
z;-JjtempE-D`OWfdo*3rEo)+B=g(&M3`>tOTh799=}$El`65i)^buPNy@UOpHh~^S
zb7|HdZLS{;W%)j@^1u&CY1kL>ZR)kB#qhuj!R>{6hiG1~Krjz^6Xz`!XJrMk&B<!G
z#Z~%TZg>oT#%mXdc?Ro!2*Vm3tfah1<Xhwhk2@zysDHwJ-)P<ENjl^D7*H||N*kM^
zP@=mUXQISw>P3&AKO?pdGVExwZtrjoRP5m^)Ay_}X0FZJRJ)IxGmIH8Wb9tKAS1>n
zl7Q{EV>vb1c+)Ydw{$s0RUXMu1r@i!fFnaA!46dmTk#!jtF<&$w>&~s3_EZc>c9w*
zHH^4k{mN~($<0EBC-ayZG~vzy^L63_A9KDzpgp5e&_wV;@|Su4NXhSge0uC2Aj!>4
zB6`0b1eR*jd=@I}dcD1)Wg7iS->qjr3>YU66rDwJ1JR@xh}=Z3?(L5=WP=PF$wnY0
z^;$A|c(bTA!FE=ucpo1qfj8Y9i#1e(r6Xyae&TzF*qGZ+r?#S~M`}s;;dHr?Y2H&|
zi&ohb{y@14s|aiHYX$S{?(cFW+cyr@`+KM_?`Imx+FsKbFk~p9;tuxHSA?VY=Qf9+
z@ZcR?sD-S^95IlmCfOte6}YwoHQBE)D8nbnkEZS+@G6xV6|N6hIl=AtA~GxN`>)`=
z)D<Qh{@~s2Q49;(TFtF{$$TB2P4!xK1D6EP&5rNm*ou~tf+-YEB&HJ1KGbxzPz5m0
zRxmB>QBUp{6?E5$n#FKuEaLoZ0^dhdX+LDh1eJ^}hN;b{U{#pKt{l9tHkX@u?k8aM
zAp$n}=!Cd-{Yvjul6r-u9X(lCdb{AhpDvvSUCZJ8)6@>bLXqd@8U&!Kw(sW#hA-B?
zNZpuE`DkkUZ%2IS&45}6O&jde(pG-y-JbuPEorZ_BBsF|phw<dLWoAHdNSQ|gnq&U
zIl2r^7xki7Q+2w5JLd(c<(>cT^oW7#G)=54!M0v!J+qS37+6NwN}e4iW0VNEWHvjQ
zVw<8gz2^3K3zDfWQIG)O{inG5-U4EZxcK<LUFgd#d7SHQ42qrd7UHx>a*C^bV(k_)
z2v_3IFT&lT8VE||LJq$zz%hodn2uBD;pFJRuC|`P7{ogHs3VBENQNF0+sg%P|25+1
ziO4!7V{m!BftRe++GuMoz-=DpY>f%y(slPJ{ZjcO?Xryimpi(JO>*Pu_x~yD<ix<V
zeJG&4ovV|>P5l=Om4<E%1N0CvLDYTfPQ71PO|~*OZWZnm-9p7#d^}m9qmp-cNQ4dT
znd~7KyR$4)X&I8gWU<-td`m_SzOik9b8g2MEXS?i#$?FZLTt0CgvT5x;bE3rSK>e`
z(KOTKyh=|uH|EJF5R{jjtM*7&;V9S=%Le{ab%%XGJpck2m#h2Tx^psvdfm0yFH%or
ze)+MCgiM`Uk)eGF`skZDa9+B2<AT^C95X)dTmI*9iD~mLLuewpw3R~F@ZOTy?$4_&
z;o-NLjBG7%>fEQ3V!<L{xUYd}`^!iZHy6hjUEZX*alrsv?NIjDic$NEF5T8Eiv4>D
z4b#7K>>oMs+5Dl)2%ox_nD&-(rJvDQ9e&{(os3!n^>@x<$cT*ftZE3&*(Ie*S3c;i
zRN^puV{u-~3p)?psh|z$1?gUIH<YCbA``(1mw#)QSp<sOn@m>G&@(KznVyYCqfxqs
zcXRR%5h>XdS!P)<Os=ZS_WWZ5TNF^!f#jDe`P1+D91k|nv8(bVx*KCB!O-ply<`aI
ztY#0*zQ2VUyA2@d`P~|cCw4{z^8BY?5J@F+y-f#YDhHCOjKJ>ayLz%NiHSY6r5a$?
zklt7%kI(8(cv`v)ttIPq^IeA2PTCt|{iHYb??u`7#G&Z8Flo>%unZa$xZDvGzNywf
z<vO2yq=+-^3B)Hr15e?HivE6A9{mM!?kP!%1!$km*Lr_+V6a!fjkR@~W}I+@i0zuO
zI6w0=CW6B@F=4=X*aEBG1WS%82~z$D70mjeR)1<TuuMfem7j9mkp;pf>f*-UM(m4Y
zrsn0h4MYwBIvPAsp`jM`;THHftsjfcYPn&O_GV%#OI0>ZYGY*IX|$-M;y9E<g!=%m
zUp0~8-#utnHdlD$wz>pf7hb?VN<994h}BaENl=lFW<;ks-`?D=x)Eqg>JhrB+B{fS
z`jhpHkZXt8`;34e{_CgGbd=3<h;s~^K^W%fWaas+)1o{%wf|%aXi$GoAc|wXE3K|r
zAb>P6t|EweDL`NcAa4x;Ef)M2mTHHfQQ2kE_L7z~0VP+_JTVu_mfrSGIztMu+t!=<
zTPuk=3#_jfhVt<tlFEz8?n_HnCRLhTWVD|WTtra2$EWof7PCt(7dfI#1*skWNeK24
zptT7sxX#+F{FvhcOs}P@T)O{&Z3DG`&5%Akz<vM5C%Mpxx?#{aKi9Fwo;j0DYE2)A
zvOfe_^;;Wdsp-ttas|{T(DsS4bP+A(K*_`-1*2}Vv};!+vVXC|URVpqgS}v)r7b)5
z8c>xIWU!p%yG<YinLGjmB58P3{3A2bwN|~GQT+6>8wzj?@B6OsEB>c^T`~6Gcs%+>
zzVsT6CPAwa%6C(ZO$K|0yjUKlOvLQGuB<37zh6)1wd{;Z?UQmmwy)AR-?wTbuBrX3
zpbA=G*uSWKZg^}AlofI&?rxBIE^R*<eQls>%?B!e_($)bppE1*xFuGFbxW+-3MBD(
zAyNol11XeAbX`#q=c+ymb>ZE(9Am7r$Q%OVO*RDS^e_@3FK!2w_d%6aR^^cgeAd?5
zk}bE2zYnWc+=_?gfG3Majo%Xq8{>fp%{bd+&mgr-;-iIyLmY{b(4T>~8$bdiDx>q&
zsW+Z~w~u^Rjq{=V68W_2H(=wcrK#iqqsy~yJ`e~<)rP`OTyJnc;ir4D@C|asIXOIx
z4jS9|(>D-qEk{ssvax4O&Xa+qU!7o0WWL69wWPAo$Ran@;_o7)i_K+SD$RQW)hNkR
z{){=ksGyBX-79RjV2X`z(w@L+ICXh~9$D6@TdMUCYd-BXN#in58p^3jJMD*F(APl^
ztpjgpJwh8{N(wtL@Cf!~0-aN{RHr$q0i+NzRI(s2hM|`p+~&eI>;5nx&Oh^C4hnd*
z&~m;yYoq)d1<gar%Z~yVXs7lmVZ2+2`iiPP$_J^XGbcSeO#ytW;1tSlDLoRlT@iM6
z5cOU0oapfZo5cpQn<3$hDPLYJ#%9N|!Uy2hMaK$ojJ*768g<L@;Sa>UPF1T*U44sc
z1bi7)@ZlX#QaQs8u4G(V`2lf{xLGqN(`$W|8Yg`$XTl|pyj}XdQ}Qk|1kolD2gB06
zH$1{3Sybjn=R1(`GMVj^-w!e+khR^dGL9nJ!leqszko$b4i&LCJ-s*@KoG2YVY^39
z{--cFgW8Q%7r)C&TXgZUVk>f`ERi?`l%mhn8}Um&4NPP>+uJHiMpp7#Qsn7Pt@*#u
z&X%IEVij0|hpc*}i*U~r2>G`=7}PR5rkQT*(a6P#&yovAqZpra_aYc?K-#zCKpB>y
zvag7U^LCV!9Bup%#XpjfuP6{)dTUd>uT|5W`xWXt$~zqBjCC&5Wb=}zFsM|?+pIr;
zw!{@2r)*pRfp`Utz#m0Dk_9hiyEQNu7#gM=3Vx!x%R)G1#%y^-wWF39b<?iS;M;iT
zA9nl{S9!N!L)#M(@Xt<*5dzd&Hv*ov*=XP4)mNs}B#Y>{>m%e(o;bZ0gVYYILRZ!-
zSzy%M!I^hAh{$TI?Z$){%C^>S1U=Rmz%k=wO?Y#TqR1u+-&}8EOf?4s;7~b{hep0O
zTOG?k!7Vu6!6vM;1>ijJ!t2*#{<<aPT4PY>NlV*4t&~!t`%*xap5|s(W_5Ytgj3Pj
z^4PCm<&`_QOo0uh1*NY{-zWCe4Lp7gKbY)v;4@IkrE7$Nqd7)l7DB!|wQ^Srv_xm-
zYOLm8rfv5UHo$(U#vR9_>#oX>vOUXXdfP~RbL*(f|E*E^nfznKKhr)uAZMenj}F2%
z_BUMl!+XQ>1I>=FAzvsW&$(N=Bm0G>TLms+O6UhV)!*Hzt>+yuxQAteos<+35JEOk
z&wW%r?HxEBI&$-ujwp>6qE!<weu5nsrW@P?l52`~IgXj9pBI{%_2$qvuW?}r?{P?+
z76<pn_9p$w?8T+(i<cZi2m9x9O0e`9nYQ0bm<+Bb5R+Ne&56)>PnDaH&TMPufI&h%
zU&+MN;+0|3!^eAh$g>w=eHQiW%~YNwM0wuP7SLbF%_yj2P{jRxs!HGFxMHNy2Npj2
zhrajH4Le&>6p27bf|;dB@xKLHD0jj-{Ah}(HZlbe<?P1*-c845i!v$0t!dJx1Z=!=
z42FyqVhu>G)SZ^=nqP1&tl#$Y^j}{kFByF6=^{c&N!)3Y7{}ZJb(T{I?(1EHqYZ9I
z$cP__$G!2*dLzK6*oCnLE<DdJM;lKn<5{4|+z`z3h=3%7oW+HEidB>R@O3`XJ2+}t
zaJG4*#6GLft<R*mc2v8O$~amC74EVekN4h|#~C%9VWg+iLjn;e&c3G2q9lHKFWA~_
zQBY1cZ3gxH@TFLwDuDq5DvDCPCM8mVL66{!9jLS2q1Jkr8vzJcb)O?6r_!lw8>k;P
znJcTVGSygEE-hE_7SNCfgWmTLBlsf9g0afg)S^q4t9A@r?RM#-IVN<`P5Ll^83ehL
zn9M8z59xu2p>mH8q_5T}`^%vm_D-LdxcdMVOMhDY$?N)*8Qtfn4=~spggOOU(G$2f
z0U<k|!)l1MLfF=;I<NE)D0LU5g3X|i&Uw*vCF5p!!d@>jl>6Hkec8S7FH-8G2_O9}
znn1H**V^(gZry#hYl^)8EVguUz$fg(AS7hHFFF!im2VjV4wC}>jAB0eYHI}guO`;2
zt*1BN04!O>Q!0MQbOKo)UHP~Ach>6-T~C52B8gaq^ug<c<lPCxoM@>M=taGfUar3p
zGa|k=uV3pyrrD586*|qCBuZCjl8#U6bQvzUSW}MII0i^LE(TGIb-gdFYAGQ0bVfG*
z$mq|jc=33hyb~oIuaW6}a{bdz=ptS1N#~y!@;2dJ9Y-X5zLVX`y<1>{{|$VMNIT92
za+Cbo2NO@B5KB1(!76LYJz1daAK~P2d1<WB_2I1@aL`-T?!+$%xth0c?k`GIFucXn
z-xj3*sD=jrly7ZmnGoO#{<d8dh6viy5mX3vv#hsi=t!lirQwCERJ5Y}g6mAB42#ns
zrnT{__i)^qyxZu-gDTDR9;z&>JQgkKQreiccdwcBitrr@&Zva8?Inj0*05<`Hd}`N
zT$P^>zjBaW`$@t2Dl+p$t$pJ?l;f%ywGZl?)-n2iCXB^+(TT4K-WvTs%VFX!l<HBf
z>oO;`B&V4)%o1P64Dteoq(kGNX6wE<qnmkj<3XA-UZUQi@49vbCdJ)%m;Og%CMWdG
zJ2j9{54{E|`;)|*Ob$#t26{Jf@te~p+Pp(+jgBOQ0346~L5j$(5tUy2a6=1&o$wUC
zW(0UselS1U^$o7?IUNp-34l6bTT1ks?eLCi-uGq&s9(O|*9=$mT+GzcNlJr^w@mHz
ziYrsmF(n#<X!211bT9IxF&d<?wb<uvHMUYWbW2cgyvY>t@Hrx~<62$ya&CtqWND+L
zJ&#yBh7L#-b*=f9#uHzOkG#sbfKqrS+j`7=ygM};zKk-AI0Db6egwYzx3#||a2Ymg
zEth}H6<M_xTp?#}pDi=u$MsW<3Adx^Z);t~kyvdV$wmUjhSIA)b^c=Pon7BiD6NyA
zAiCITskYIMJ?0Pmry<x>{<DX6XQowlVJ&(`Qii4&vF0IwaYD!%=xo|Lx^rNs(|JQK
z-YbrSO;$SC{<XIBOk97^L$Ef!#7H&8*Lna^cI_jjbDy3or97vHo+gvepVY9Td=ok-
z#?=(~ENmi3_N>cl$@=yUE7)EZ1@koDw3XfY0-c}-#bU{0<eDHKm5gJtq|M-Ya`LXi
zu{!LL8|JttmYVigVpX!re3v`<brJ7B6}~zgY?+lx(0V4Lv`T*__2(e905HXU)8_G8
zOw9Z!i^MQk+ASWsA8GRCB5lJ&wv-dYD&x<4p%fEUZrMqxQ`z*wK+}VAuT6xW$LR8X
zqY_=FSV8`C&f8vzY(CpQM0<%7KTh_~YED$+I$2wUHMsuq3ggPS0Y?|>uUmtbPNl5r
zSOXHFKy3QWx8m~B^Q!9jW}+3H6zkn{px3PSaZ`C~Yg$87S7KX+R?=L(*+AzkQ!!4j
z!-uRss9QDkX5B>FN7b;6Vfq+O<lLWvw@g}Tx|!3}_)MGv{fIlVD$O_0jot#1iy)ZW
z2LdCT?2AmyRZSEettEAXoFE=%RhNxt*d;c(!o^nTFpajFBv_`6Ytl=5B9hfOJ$|$i
zr5C=|ot<eWE*yD)97@dXZFTd#{Q9jbK$jxfRF?sd)Z?nCP|CikF@v!4=w^3&@Sb8S
z!8<^z>|Mqwr-9}1wOpveBF!qr*oF1tGx4~QTH;R;eJ%+wyjunv)fLs4bPnB`1BKuB
z8#*fT$}c}kd@0#?eI;6CT6+W<LWg*c^KVaoH9}rI@#=&&qw_kc(bGoUJJ=Uecj07?
zC$@|`_g`~&7)u(Zc7kmrbLZA@>0+Ar0<t5(i;Iw>&dCHGsGexYxLx48AUQ5GU=Vt1
zD$EM`qe4sFjtGndp7Kl>QOwYLE*rbw2%g2tvl6ZjL9b1!s7>~6S_V(1wL#m!Z0N!v
z#oOO2-FZ+iJf>B|t0k7{*C8+AH^U6)V>()*KUtNJ2E^)0-;|)vgU3x6cjjT_I|#fE
z?n!aeYTA%VC*Y>Uu(EWv)imsblZbnNQs8R4>!fs4HPjq^QGm;cQY`RBm2%4oq#7Nh
zxgSOILgY8*p!hYq->SdgPSdVPrIv__1pRrLg+aCB+Wx0hiy90J-|IAjR^%5;q@{cH
zF9Up68dc5P^UKZ~ua$NNqbhms?bJ#m2*NK|)lbr;&lvnd09{)IB_lE?ooAVZO?MZu
z_<MMou%YE(&$?rx52t2YWkN52vHrV*8}km$XJVHt_Zgk>SVLjv5I}eA#%V6$sX~o%
zK!?OaGL~yKi}5RMvvx4=`?%khz|vipKrdM7C?W2%8l&*|5iwIEJumjL?MZi$<wAQ)
zT9GG;yFxp1+O~5Z0pex9xPsIOu6|ka6~2`dDXCO{c(v(eqHgDL&|**OVxQ{oDVUw;
zmETE;OgD67BD%x!gFn6^+29cM_9@Ev1T3x3&pBJKepG2^Lfh0skKa+NxrgR`8NSu2
zWd=gl3QYf^u}UYvdsKQl>GX-+mx<p?ra{Pj(<^^ThJTc7v5aqfBhV@DqtD1r`BsF!
z6~~AdG}COhTo}zwV#7L|@@Kk<mrlKAq*lqODDD5?O|;tl{jsC;L`{6vw5%KL1Rpn7
zsg+7=W7DP6uVebr*tSRsoo;AsE2cZdzI*2p(C>-ODeWX)ZpGws-z})SJ-FlvzHlSU
zpW63hMRb)t1&Jcz1g^j}L3q0sb0=NSnetvgh>Q88uh{rAqXf8V-6jFPwe!F$wl42s
zk>Ey-KHnH_l;7^Pe{|GdaA}!eQ8kC@<&9Vv<JeQE{*(!`Ck9hiMpPhol(|KqvDS0A
z{WledB0ydF>I3PN_pTo!<UpZF3dQyilGzl&De~tYMhh)g489GGUO*QQRsdHT)$58F
zm_os4m-WfufVE{D36<m_*G|2zpOxZAzWdk0*!5Pkyjf1S8aj56dP&1T)Ph_Aoq(=Y
zkGz+?(b6Dy&v{3aHV8JFesR*Ad;+>FrN#G5cea!p+jf7CV{uICG>#QIB&VpNE1hcn
zsoc@yp#8Apm4TUOvPX#mSCrRy>CEqt+#lz{Q%`wWQT9#TpM?)1f6y}1@e1-ueZKDF
z&C^6V9N)Uf+9InRE@g~hr7&Z6q*K3nju$lUGNq}V5T}kNzf{p{Y8P0+U@DF0TmJd;
zS=nR}mQkSw$NT*QOr*oL5mvw4t1g`){dDKqh%I9?w$<xL_>tO3xBRs?9t{#MndmnR
z!^b(|yeZ#Qejnu5myF~dp&;sPMI=GUN-M$CrmwRByN78<)WlG{#G{Mbj~8M*G2zWq
z4i4*b{HlU=5?eEt1jd9;qdlK0#Uk3GR0ply#Np4|Z18cT>kky10Zu8ugXvd({Y)4`
zo~eF%_!iZM##ivQYhe48f(5q-30<EoM~K$n*gsiA3Kzkm=qrol%sYJFTmmJP@{Kem
z5yK^xXq!Zf;qOK?N@vtl_}fkfjD18IdY#UxZ|Y$uNKmc!4Gk=W+*tjO^O^~O3oALM
zdoK<wSFVKM{TmL=9a;i!FvCZcoXl?@>5&q-v=K}i;#hl<z9&!VxZAx*wc<ts#Cze0
zj;6MG?lkI`S*|Oh4yh*N{1sx}IzG-jCP#@phO$CBYHL5aqKw#mAOeQi*&PKH6?uOe
z?~5>1WYJ@ZXDyiqvQ>$BP)cFUHL>cgvqBP`dgHG*{mx01#H_E+h;kja81HYugDryT
z(&#cw%?~F#OBy&kQm<;Sbr3O8Ttkv2OkkM))reeYaInS4n-RXf{c7I3FLp8hMSFR7
z>t-rF`e>U#b=H|`cqqZru!ZC^{|BYZz)QxEVVD-cIHFM=GiNwZ4YYo)uh$^of`a9o
zP&;Z#4!S>=q*JsEYHV)+y_^-Mmyo?IXnFhPP7B_PNFzApSHn==Rd5BD=$aC%#Z|UN
zin66<ye+zuW9JnimAdV7r(9=A6gjz8zlgBJ?@3^ECo*<+%Mj8x$I$+GSDcX~aSZ_H
zAOpiY;Nu<V2dkr!@R~jQ3FnEv$VYf@o?bZCTpFZ-y~vU0l^>;<SEcjgB<t+Qj+Cvi
zs@VaKJZ>@xqn%UBl+HbR=9O~0cFGxn5v+-$kcmch(x%h?JyCM_%12%^`bz3YgrZM_
zr4SnCR5gHOtkPYLxH6WLyUq-P13aFi4-${$qLr0|u#0SLp*^XU&{##{H!lrc*-%n%
ziK)BG9mu^e#$AUxPM0ed(JP69M*v@sFF6i2C(5YCDw}*j=b}3>J9nEu@03<F%O#TA
zil0XL+O8@d63FitD0am@C?dRsc~;g2oY7ZRb`T4ElPZ)9^7+}VoF#jQu*lk+OkjJK
zNvGWzJaUg}vpeM3o=1jdED9}^W?|ii2(!O(pvZ>nq5rmybtqRlz^>us(wh?5+{i7c
zYL=qTnNmvkQFPf=Sx4O?v(Fd!-m1uK(B~-k9r72hQD=kTL)A*_?X`c6>ns<EtT;ei
zVAKV<Gcla|B<(IybJu_wnJ%sLnV)|&+IRY(<5SQGw*gFcb~)Tx6{Pxs*+9{poCpVT
zj*{Y{w}Q)qD1y)Rr1dhr&n6g^=y*iw@r7=@d4iRt@^nGVX+Jvd432c|a}0Cg4$N~(
z{n<DM1J?ajPP}!h74t>QY}AzDn%<00jnNzeC+Ef>XvAZdR22e);Wv6n(Mm=+U83+X
zdU4vJi1fCVB!(k}y2kJYtyeCDP%lG{w+)=DDT^_QO%xVD!-k9x!Qn==>Ur4%G1giW
znxp9AhYE+IhY5=LhGG+cioyw0h?Mz2tEc=+kKb0*r3tCD`#;zlYX$3Gf7rB};9>HO
zdQ##Ge5fP~`4R)4D?jFO@?<n7nTpk)^mTv>b1?&|CE17!Zy~60eQKFxLNle#gg(=y
zH+Z^+mZ=I{kn`u_`b{9`T0x|$Qinyx>`-DPJpjA`09YV;p*HqKDj64@{N~DcicWJg
zOs<g@a#=ge?%}hM`04zxYsw-lrPF_$ZSA$dbDoWbMr|3%Y<u@Su9Sg*@zQ_IT0yT;
zuDZZ=D{Wux5M@g4=AoZ9_*qy-nQXOHk?#Bf|2Qr25u(T#?}~(L#{8UO?nJszGu!Ah
z^f(m}OMLQR0QYAW6AsErjBZhcO1EmxI3%GQFw__x2OJ^Ivd-h}{9ywTR-?lM`q`Q#
zWTIcaOhdyjz@Z+Q^K9MKvk;EL@nty#TEK9m0OyT$%}qr^oQ(FsUOB|-VpWfjxY$I;
zha^@5=-c^HTrk!ITJE&8R>hGfa;!$a!<RbBq?j$}t46vZ4a4<$e5Zty52tW86N*!h
zv?@<>MNg7fmg_^6PIwGzF!#JeNJl7y>SvUuy_5(DFj4FIEJ8W5D2Kn+pHwV09g;_%
zwmbMy=gNo_Q^lB<6P11w&9J_rwjX>PImfcce&R!J$9P4{`p~H|%-LLV?jn<9x0Ic)
zNwdD+TCq|z>hC4eCp1i?s5t*lgq8zm;*CLRrd=bn<EN9#=P^Pa;)(av*Y(xOguIt#
z(3O0~q5tC;*kfhS_E(8uBX?uT_ez8E&ncg<Ci<#|F@`2RcNtVw`y-_#%FJa%(_<O5
zcQ0KqVt<>$+)4nNv3-4JC>F)3*Uj;CIKOy)x7V#v>veRw_of=ryT-<#LG@`_U(5kM
zH1JZ0h+_JV9<Lzpxbgz*Q|2YFhZlrA&v6epbQO}HV-yxHoCM?cp-mpKa&x8RuYOD)
zc_p&31u6|UlAwoyzq#Ta#ZmTzyUKq_bXJ>9AA#K4+-=`&k`K<KVmE@1GI4P=|8#fJ
zz0hIgX|Qvr3P)JE9w8H8Lmg3<!L3L%nk)@UvBc9eS4AWdHlOH6-Is5VhJJAcrhcu1
zv`n(4ec~kbqqGfz*h5!cwS&#WBoAf;kG-b0R~7-BS>x`e2BzsmNrj$^otB3<2(r6m
zS}2EPFH=GME?DZ^iW>};qLRf&t&HOb<Z(=lSYG<2Y4fV>S5?&H@3Bk9>_1wlObQQq
zro}skkAA>=X`69))HttlN4{<)XGh3ZW-}(KNuA~*+0=(>1ud$eGk-ahhJ`qn7u5cc
zZwZC5B&-tEKEEui`XC8y&(ztB+5hMiQsf&1;V~E5Ph2Hu>qV6%C}`jOeaW!d`O_Np
zx5zrHHA|{-Sw@wOAc=em^A9eTPuh_l;quT^gA<yw<Ck`+$Y`$0v*~cY+)dU~2vV=P
zmFpV!lp(lIa71}n$nf8Z!QfHetId{cP4q>~IK40&_-tt&@K1pv3i^FMxjqm=!~wtY
z>>wqJPv}#MepC@sf5L#5NGVzu#5H!8L2CBI=y!E_H<iIJWcKyB)%Ux&e8ny~q|8%D
z5P_<uhui<sL=KbQLC-nsF?qbtWok>64n1ti8&i?orsLYNZ0Rw7m9tmzCAbmzg}=I-
zqr|FFI!#ZS4vW>0mlOS)I19%%EI;<lSfKZOD6|kB%_pNm2eiJUG!$xbC<p?L3*W{^
zXeGzNHfL}{S`t{$CfPAXur+#E%t;1$BNfk6$+7YZGf~TGE%Tp|NXztdcLoN#8ZS-z
zeRe?Pjq_;;HRtT<7U41+kC#vX`ij%KBMw#-SC-ue-|8Mm%`x7Dk0vUNoN`31(oW3P
zWK&!t)`jpa5#t&riyPkWBHwWx=0<89kk#u<wltn=QtIumPw<!)?TQ(1NYEoWMGo`8
zPyu~(XU2}d_YG=l;&x78zrC^*yRc4?Rny5fI;3z*u2HAH6X!KJ8_bA)O|34w5RqDZ
z4@pc(%rE#xriu85Xoh9ofC4R+mOG*-m?kVJ+%`}1P`aHwp5ab&nweA<hdd!!B9l<~
zTS=2^p>1iwH07qtgvMFUb)+SAd#NQF+Q*rgfKCJk>A@ngas2Jjahm}X3Dry*DzFkB
z$rtRR1rl<SU+Lq)n!z%p%t|fjhVkiM7Ur!1`s`qSdJ!s6Cwhd#iy>s)axRoQ?;{j1
zuE~VGy8~?~wY3|RZmByDjJrv3^hfVSbZ@TKs_MO3tVrwJxdy1Qr`05*F>MF+N-bCI
z33vbFPhz(**`kkLVFKl=cwPW&O`kK9;0<wf2=rvFOYmp&H0oH5>0^J^{2(O4;nhQy
z6iqdr?<tJJcAAjv30#>d5RZO9_h*gvQoYY%s|5was$yFOnmQv7I$J!9Q(se;M}^+!
zqM7-^nVucSyR(Zr0&eIhBdmoFJ8+ScaU)c^@#LU~KP8ar<4#TmB)#7PbS4_Xq6!Z7
zs`JhC=8i3vd>5p}MB-uq5TJ>YXgj=VSjsl%3_4f;3AS@!DwmHxSj$7F-zJ%obA|3?
z;8nl*!mrCg+xO1%!>9n_o&dV{+}f;hk3pDVM!KiT!gwMcM`}+~j<~~7fL-0yCVqAl
zdJw8u<2YCq-DLgKH`ah?+IRu-lx!rP#(QWd8~5+j)OR9tr>4Pgn6#vOEj|^Ebs1{L
z4J8dVR|BS5_D`4xSYN8*-|U@&Y(&=|x;w3c<9`(cg>rx>DC5nr{)TJ?Y9hSz!>BH^
z;H@7+YDBk~J*oxFDI&v~iBauEE$UES7$o6sPLJI>5(#)+ewu54oZHVL4hzQ=hIgfh
zq8DD5uBYjndAMBIr8RPf!fyL1*8)w4(Aab#{JU!t1^^7unECz=Roh;3^4SvT^rK?P
zzUAd@$D`c?b>*#PlV*$&kfE;@<PS&sh~;`7DBkk=FfHj&O7|g*HD94h0$K!fi)3c*
zKA3KnC+(+7FF$zX7ir6^>7`1st>9SWmUVW{v+4ndRGP3eSC%+qZwD69O8p?vwfTs+
zovhs86P0bq1UaQiK2+}sJ2RH~_;YlKd_>>w8IE^lHG2;%m^v2$0{%@Rg1I-Pl)#n5
zNJB1^1y*DCc@K71<id}qKAWc;B&biGHe##r!dvVztw_AD+;NroFKxN@%6)BtQJ;su
z1OQD=yDW{<*>O7I$M()keD4-`=0x#F(*0hY56&w#2zp3UaKXOu7@G=ReAgB;EZpDD
z(YxgF<9&GUT(_E1`<lv1@6m1`+W>RFyMeWdxXYV)wCGnc`sJRi?<<!#@@cxw;oAC>
z_t!CebWTzRCCN7~z5%DOsMVZpL7QK<TgbHQIAajvgx^&;R71S!N>P%E=Vb4lh39CB
zHMWuHV%mu5yZZy{Lr=YE+nE%8?(mimBBV}`Q(bvc(`|<`ERI`ckeZrwi_jglf}wKS
z<{+#8==xFGLNBtAWv)B)f``yJR7zvO-7-DN=l|(s4EVDMcBSd98?HBlyvz0=tHK*X
zts?=tuP)}G<1oMP>-HyPKeX)w|2oIfo7#Bap1^(zRzL3|aTdTz6_A{2sl=es>{9C2
z7{bo+<lTbvcSp<DO0ob~m)wZ+yR&G=Mw?gLn80GPDIQW|qQ0F^$UWTE@4uB6fh5Uq
z)O53SDWBeZk4PliX$d6|a7rvB`RId-#L_;h@@0woKiZUq0<~K%FQ+JrgvG4ZS^dK&
zii+Ht&)XLfD7BZ`JzT}=3GIn}qDpDpGVhYvxxT_9uhZc}UDhZpVC8u;-}4vwXjtp|
z;c%Y3%71V*_7~LDF%r`JxU|j<`*uJi!mVI9QvRZN1@Y{BDwajWgpd!TesET@{Rw`^
zl4@aLtw_=f91!%lBk!S~yw_gp*YOGAZlwFX;%zd@%9+fYt6A0y-)iGcX7|x9#VRAP
zlRO_{;s|0ZU1v1lo+BoF?x)yR%>GAOR^E`KlH6+NAwclrvc!=Gjb-ZV7Y+Hq2QweX
z4Y=A>3pPH>qsl=_qAP{k42=a=vW<u$oLWo9loYduh}4}Ms_ku;W>=!=jIZ(8^$cnm
zmY{3eqMsl#Xiwo=Mg%RHE%k)qBxqYqxtfA?n_ya>jCDuvv(}6~=$g)>tfqi%>tNe&
zuBKOXtCB?Vh9{?aA*4gfvk)@mT_u{&Un=FmU>`CMk)?y*f3L=J&^ve!PfRds)M9&_
zabx82BvbfA{`Rn3aIk9Sg%4t7_)(b^CZ}P>%~<}+ACu%^G`wop3nRNAr&G-lUU1z!
ze(f7xK+|^N<a#bFj&gUt@2_-r``L64N$7h|a<?*l<q9GMd->ayQ-=Lf$yj5`=9>a8
zL3ID?t|7~oz3&V~-|>keQm3-@(IC!&#DB(l&tcS$g*`l}b}Ot(or!Br5S}}BCFeXu
z^ijHcyYeyfGIjnuiJN*g<3aWF2*Lh0R~|^}lIcp{skyucizMxC+tQVMugUEw7~YY2
zHsn_4(aUKqv5A6?rrC@;#Fr+=G=;#oUo6NhfBN(Gl}SoR6IIVy3>J*m=!&xx?FTLY
zDuNiW<U9@LL0YpF&R%}_wsXYZG|nE8j%@)yTB~OetF!WnEP^#il6A9a;t7Mg$lq;6
zBbz;*L)0%yK+GS9Cu&a%vMB&lOB1Jcr}27dRM;c{_(tp__@F@ZEqp+hO1N_GBC%es
zzqd`Mj9NiHRp|8e0_y^y-bN$-_6-2@=l%3Ir~%%Xm>~xx1P`*}he7E#kIHL2#7A)r
zTT3EugUVw+oDfexSPLfFEkXue|HO-xx(>4GF>|>=JtSDgEy%s&t4{eT?}9j+7W8iv
z!)IHX9EQawmn4#?e8DUPl$G|zuRM&g`o9W@X~6TxfX?q#`N{S)$ONTE8l>MNyd?WF
zY4<iEjX=Ry*F|O~s?lY}u@03THc1~AGLG49YifewUu!;PX&U{xg`)qbjW8?UD;h*#
z1lX@BEt+HGiuB^|>K%JHbd&8HNoGn3pX4Z?;v6%@mbdetn_g+JvNS3S-N%6!Tlcxy
z$zBZ(_Q07drIgD(*}3d^^G{>_eH|N6#uTH>A*c~f)1yLze!gmXDR|c0fm1e1+zik|
zEes|Dvk&jI>HHjK-U^HbYIxI%oMBw`M9%~tO;u7R`J-oI_e{(fuU7kygxf_pRzJaL
zU!UNVUHJhS8q)~Fkt9=%B{^MtF+9Moy5eEqRZcCzIRYG|*gwO3zxFkxfS=n&&T;6#
zNrP+2+3|X*9K6WBY9riQ6+Cv@x#xNzj4OfyI1fq6DK|LD>636A$~w4&^%bkfYW}(S
zDB{$T$m+B+>V(PZ_K?@U^b;~mn(=oBuQPc-v~OqxUzM~Ik$6@SZAm2`fljl9y}Sp>
z8=6bS{R{812{DvIaoHvRfuY?eanTZG#oIl@DH1BOOGBIkUdifDQF9e*t1Ae>Qc;^$
z?S`fvq9J&F9%xPt!HW;24`akzRESe_Qh<YGMP*n1fZBeB50dfZZnW6Uk`=9sf$S7%
zgEczzS<&$Wu3~Eqq3|fx$06&#!Wq=H#m$6xzts2u7tgJl)I$g(OKZNeQFMM##-y43
z#z&%Uet5{rrW^#W^$D{r>F$=$ixxN4OM%Qs@ZKRR+5)x?eT{|5akB5?kZ@{IH|gM#
z*xiMncsyDNeIbA+cgtA|kM!&C{AKZ}f8LJ&sKm%JqUF<VcJ=G?R$g+HBETi^?qj{`
zUOU3ZI~C(_TR?{!adrX>3~#STYi(-}>`SG1V6MW}w2&7X540D<%%H|&pIs@$@+f!>
z*RP{rEOfmLh8mTuM_fhqqho4nf!3y-DDaQ0(ffT1CHxQ1w`P)MK7rZDWqCEteQ8`h
zx>;p~;mKQ%P0(9z516{Y&$jO6gNZw%kTFj4KNH&C**I~dXFj`x&$5WZX2BYe=|Kh}
zop%2;fL8dqzEhUL%FwM{Z@Ge&?%e87e%OKf+eV1z{7dmlxO5fl;!-Kb;zM8K9^Zq@
zeXjt`B$*zcJ*@&tr?w^T+!*45foU_lh>a{(hg-_;+uI=b)Z(&a!J7p73y5YDap&NN
zw4Ii@SVV|5Ms5AptjLfAvld24nX5ln{17-C$F8iY`7S4|knmlZHUJJ7@wS^4$@Djo
z=`Wm5X!DfDJ2dSEl}GyH3zEk5-T9ALP-iY4!d0V!1lb?(jU=w?H?T5AH`TM1eGz{?
zxSH2&8}**NVq8C1Tk=B-rwRHE4l1vOI^+iGM8*3n_3jx+<DyI0*C4wGg6D<9p2m}7
zefZ_;Fi4XF)x#FTfX<IXLIgmmuLoVZGPT@&_2nlLCPcnLG7LoFyOUtVrl`a>rf+`u
zT57t4`Qnsowjq)V%OdsBLG__oj|2x2L7@l-l}WRXM8FfAG4tI+D1z}t#2U6d9KCl=
z$2?X_Iw97WH=NS+>Lf3ke}y%ua;BM73LJc<+LR~sB@c1yeOO@N8q3D3P=@~(8fEFA
zzfLvyECI<T>h(Gq99O_^eOxS&%$?4dv|Dg_`rQTuEaJ<!f*tiZ#|(oVA8n}s_g><|
zwDU8>K-DU$rMbDiqm#g*ucO0Mk@#T}!D>*=Jvu#?YV&$&tOjCJCs%~jubsKkUYPWI
z{N2~CL0^+PEVl>BhgXA~Uon)BrAG&%+OvC*WA`zL!$~h35A)~Ua8b86L~SnImmS);
z6)^f<dk6?#ea(JLcoypObn+}reER$|#$xu2;92J-Fn=V$iDpJp^ZJC-jQ{D|!AXr{
zU&yO9Z~tCgW`CTf>2pw&$lMP2BoB%nHLf(V33cQg)!}KAzT<s-$*z;Lr8l$!G4fXD
z^(Pb*7Wjfx9+@;Q9$o}kYfI?1deJmBL!L9eJbXBxXFQZyT&2(YwzkSqjjHrxcq3G^
zFt8E=DR%gB$@j2iNH2sE!Jl9?T~ereXK^}*Vs<_oBqE&9mTfU(5};t^X~fwVKp*YL
zc~DWD#jxf`VG;k9ldt?LKMBir1d;Z=MDT!54~NjWgCzPeF!YN|4tm<Hu$5S>`{0)%
zf40JGI#eIeU5!JY+Jrb#E{=+an2iPtd2u^()kdxQHVO2_08UcgA)(#dx~kGU`yU1i
zJDv)IaF>-+KYp0IV7**cj@f;@A>paCyQ=BYR{ZLEwT^tvXmRXjy=d``dALxP4vF=}
zQEDkY@8cOw9;|#UpUV<PcGuSHrN*nRVrMNDd75v2SG@Ts%{Tv#J@QpkWUNH|8T^$J
z4$vhdY&4`r@YDO|F!0}<>fd<TZN9_IA`R9+syFGbIxa#RKtt#bg}Rn|6i@0Er^=7v
zPe9@>=>S=B5?Cd!F%FNtNz+V<bab_GDXdes(>kUC**(5#S1XShU<QVRd+t58n06iC
zIve-cQ)?H{FEJr>CCZa?^F3Z{UTm5`>cwsjXZm`><bTa{+uiTh#i&sH1tu6B<M<+4
zBz7sY=b{;r{LEd=zl%DPft*?;j>a#tQds11sUCL=h~;q8-@fy6yeG~ESHMbX!De*E
zVRnSW?cnpw3zpO}XZ+yu_kRIg;xht6H%o;K23tNwgT~ud<V{!UkOa|r0U=Ffg-Wf`
z{sVPu-TS-G)i!UG+H@sK3Qn6Xns8eu2}Uu+ezY%+2N2J5ikL*<Yh5cX&UhF?`8zSc
zIyW0m!Z)EBHTTlKfYW0drca=n1+@r$xw7lzjDy$E6owa*#K<F8Nh7mOA?wBqMBWho
zYE9PIcIZ(<izJC<8|nV>0ov{o34zuYl@EqL>j6lL@V>1g-qmJTfKwZ$A14yO@)lUG
zX9!QmrN*$z><};eQdX9)<c1;cE-uB&Dk?)V3mVYIk14a_p%31HjnrkQapXZQlFs_J
zhtwPA4V+&o#R`mAETsJyekP;u8Mz}aV;R!s$IKy{lZMTB4UR0bTnCAIgO7um5g{Zm
z##Z~jk>hf3>xZVb>&9*}DPYx)j*5@rGdspo(pGa35pT}6L)W+ybLt;6KhQo$3o2l}
z2s!W@9z)0zwh%Hq>UHRm{X}PToXP!qfkb#@S5X3Qj0#pdzyUBd<h+bzynloD+Upjc
zB%a>4;?<ygv3RYR*sYX;iN+P^cSCZ)+hQyI5X#<}A(ei&%-c|`1P!l^Rj(EZyK?#j
z9BRz|G_Efq;y?EC;lz_3+Ur7I2~5|SDP36y=XV5pm6<eo3vn}KKYP&bx9bm9^q5BC
zq<9kcf^LE?!Lgd`8M~s1#t)?kF`8=YP_3cvvB=76UHiI%El=nMLP_~F9=l8tmbozd
z+`s#K_pa3$kC+UG`Kh!Pu%Upf<B6X5my+Y@#>0NSN9L{9D=o!LrU3M)Uyv0HZe_>s
zky)p^0UBlug65N=0ZL|M%gt~Qj$R2%%i_{s?L)x0ZI-PPw>CnmF2sp2A5E%JW^Q^m
z4qtr_!ka$h(tBTV=pOrVIauW!iAieN=GOv}zCjkz=Z1*lpJAK9N@?v@X;O#j1R$;v
zkzWDuLV_*6juw6m_tjY{FmMAo!tc!!7|(BdJo{W^r%Int50+o@HsIGTu2}LgoB~r9
z`(wkMWw4Gw@D@t=#i232jVBkCwKv<B?_r_GsXV9NL(=uC+2QKyr4C~2k!IGP;~h;Y
zFxePqlQvtK!n<HkA93OL|EumD-y>bV@8Q_CZQGvMw$ZU|O>Eno*qLyGiJeSrCllMr
z)93R&=l4H6ebtM8QP*8ntM0nG_ugx*()Q~{|1c0JaIZ8zQIe&Tjg4uDY}JXrmxeOf
zMJyoW5RzD4@fw^RF0{l8<(+BFTqXcV6VTj$#c>;Gs6H?wHAawphglxC_$B1FW4gol
zxLwr6E7V^>b|X@R9@^9~9Lby2ZEmt^zVD=a<56+aIao6*va`6YrJ4I|Ca|(US>A{?
z1EZr20n=~g%iF9V0dFHg-Xxx_((8k<pfb-uSo7@?f&QoJ#(*e@{h!b$b~aaTW!t#~
z!tl;()XRa9CV1Hdri}<QlsU@5o9c;t_$M*1BB)e&?bfkDfk?~-sm91=IqrL=(6G+V
zhY|xj&k@wo*4HhaILFK2sL9?F`eAR8OnYy1HVr60=wF_0MrWdGNp~!&jwA8*y;V>@
zXkId__RjRXaGIhxkiql~!{Yie{LP@7P=qhmHaoQz?+C0rT$V+Q+(Y$^Um-Otf>8_Y
znnO!*p%zbMJjq2qb$A7Oaox>c1$P^rj5sA11k6MzL|Zst_@VGEgN$v>M7qoJm<OJ5
z+!lY%92QgIG7YlXBGsf?u`nG_&C$XCT*R9$vyV(TVq-vdt8B<~V?%x`lS@Y<o-k^T
zM-p&I8R-v|l6d&OK4;u(!xk21RorD;e^VL;v2uhD-%F;3uBlp<056}cL=NAEIc4Gf
z`X|aWY@fbRfQUH@KrtX7TQ_HPFXs~T7Xd}z8z}^zvg_9K+K@ynMAV9veV%eaH)Dqk
z1t6I*eP71{<G>8wf6*Y}lqZ#PSIHSu(!>fN;tI{o1bsEK&;<z8bAvgC?@xZB-4P=$
z_oKYkEl<?NBaEu6M>fZ(M^0&FWusstDzNez!1jZIZoPq540S5xpPar3(bK<Stl8aO
zc|Ss?+iNECC&lscbNo!1G+93k=9SKJ+|%9!S0#Lmhjj%P$2ZqKnKj?nx9Kk0glYuc
zg*uH-bop^g#3RL{--@^_B$C7y8%tiJw6xOrEizeLhbAVCcJlXuY`w~t@(E4Xm<?5b
zp-1&Hd2cR)Wp$J3{{Ct$usGyEYH|KyeoPbEg6RG@`*6UV6*m-QWi*eaj0QDQUcuVs
z8eDR*q;n4^sY}+McEBZO4&B<p1#`Ks*oMw62$SibDj~#-gbhbUktM@!hRv6Ik;o(O
z{IyY>HLkqo$H&|0cqW=zv6<j_rC~EZr8JU$qE?EVi}&J9rLnLDq|+!XZw;)iZ>v&n
zGrE*XCCUa45;i;yP5+)I-XR*%nykvBY+YMTJUW+yB2E%yXo^{z;0km0@KLa^rsdc~
zwQm=~DhxKJ=7qR&Z6QDI9@yT{|1<Z;t%e-i$>>NmJQR5~)PwJbG_<b47Ys@d1#DGY
zC`byYFW}(2gs)UeY?56DX|i%;DL)R>)`|ZbcM(IZi|%ap&8<tIL7M(zjzN*Bs_P=s
zhS@D1Wd#-NWsoHHnt_!)yS0-PW534rs0r$TtcF`?qIXTbg6j2NRW|$VSAOz==A&qc
zyZZw~U{X)vdm_oeF0pfh6sq;GZn<eAjPynUu~j9##Sm^Yb)kXQk5SRbP$)BD4bt^E
zwzt7^YC|TW{gx2N%DQZ(^>dh%qoVm0A=L8%d&h4dG{QExNWpXI%?7-huhM$kTJaVP
zTTXllW=+lf@L{2CMnvG3$1I5FG}hrpbU=+nw%{@6R7hSb#;TU5`yDJ|^1JRWQHVFP
zb@48Yb-2<(mQ`a)O1fhz#2VGlaHM(LJ`R)2C^727qA4}WD*xw?{aFAb0>>0K2E6HE
zvw}AUdxCys^+BKffXz#-3fV@OSl8p_3ZfF8{d4}<D*FgB4`p50YzXyKcj?b9XQvV{
z-ZwQ*-?QquiMdaHo^MS=4+2^e28|33`KkO(*#JyVIY#vFORFU-_@o@)N_iP#ulj^e
z1L{uA8t`?0m+NKcNb5N~gU7!kt+*nuc@9qF;~8h>jpl(Y5|U7z?Z92ocJaEkJAUzF
zMV!0Zh~mjhAoXiZ5=|V=X>S17(if;@g80g)$_9dd0jBV*hlvhGkJ>17bddLkUqU}E
zYAQ4m$>Mhg%CU5QGxFebsNmG~D@Z!Eeu9)EmLZV+gv(!)j=B$%Rl;!~I99j*onuWo
z=7}6@Fa#R6*+X~GsasBZ8Tt(bn4G`vsH^j>gBx)lS?(8)iT}WXtDi#ZuCS42C$?$^
zMqqOpYwbPpZ3Ewp7!q@$Nn(egkvdX{ro*M(I5vLQPrrY%QtGa1GcrJ7Yv7qR0tjO$
zTUoW|gs|er$R9ToIU6d`;2A`PEVRuVDa$FMRgY7ACeHs@?_G+FnZ2Vu^zbtMxeP-|
zSe3y8>?OKk?i_&T?539DdMvxN7b)pY&ah5_a-3mnPx{jMP=&-qqPoyWIsE40wkb|b
z-oY|a$>zkrFB+JY=_fJ9xJgN?%z{Rdm&-0n%sjKZVo9WZU0rTW8rz0HB1O{Vz<?7v
zp`~jR{Fa5pEKu>+?Fs&f2pdO$#;SEbxAN+m95Qs@SOQ$I2+OGBiHqbfPx}z}VuD@6
zvVAbYEJpWv!#-rD(j7ZN2y<-Ol_QY_!-W*7y`fq~dTK@iiza*&D=9<G_nf|9iL~o#
z!j+y2Wb1|OpR0>sk5_a(`=8KP?K9%{Eh@8xj5z@5VBN@Hr8^p#Nlgu;b`=KZ9gCBZ
z?%(rOJ&y2Qh~qph;<1PaQHBu>x(3_P`r}3{u4PB?BBNE6DhCF8Fn7s%#PBy{FiOPi
z@+q!I=o@zIX0dxVoMfiKoQ*^vgqXJHN>yo{U_j%nE07I%{6aVptu3=z`tlB)(ovl=
z5&giZ;~6hCR3tIkd>@7VVc27RgU{qg4&|_I7Z>;8Op<^K&jt|Vbhzo*)r%>}j^J31
zqN=*>V4-zq#9noIP5B&Ozy3sk*A~yob7Xuq>yFY>a#=U@lhfvTp@D*@Y~wfX$17x(
zz`?8Q5F=p>z#RmDp^ak-e{gph>&(gNq*9Jv2os)<zM)X9^C_AinC%vT?-E*Jm375)
zjnMzDY=~DEdKaMQ9($z9TP?b#lr_zrjl^$Y9Hjme&qSd9st?wgaFmHl7msA%+J|JS
z;2^#@G+z~p3l8_>y%2i{5e1weDUbz+NC1TgC1g`}fU>~7);8D5d-Ixpg+E-x^`}7R
ztf4fe>g8~h@4o8h4AlmTsXy209WNtPG7gK=u?)KiExT;_Zr)n{%(J<M$1mbg7w7Rt
zLn?Y}=P1^*CMKrBL?(nk{>Ju6cdd_q(Ia}1r{z2|#I2G)551yzaxQ+#W5aXsylJ!z
zfoEA0bC@+URsE2$@jds^mB}WSMkUrN9kb3bhkoUFwr%rrBKPIzERyjB#6%d+5dV|D
zkNF{~;nsZ&-ygIc*FUl9)s_i%RI&R6@s5agq@rQ4tO3PSP*$a!*Hiz=pJr#UtSINs
zeC9;nO=^qlO$P$s#$83%IsJm6(R3&35Jtm~`GH}G3mL%z*ES{QTVHocB-Cpx-Ao!X
zodW2u0&M$xc7#w}$tD?ewO>l~H_aECMxg1H<En_Tgrr+I-S^#B>yPEVCw^u#5}iO1
zHrTc~%*2AqXs+niP)Sfjgp&qwg1Lr6@}YqE4rt*57F46q#P}%}d+Y{o6vMh6qd!(h
zM~_>`2>vQ-1l%8@tB*}Xci=6gwdm+PiD)?~2^kj_$BGiEF9C{B@PYYK?+Ny|&oCsE
zW>F*}7WB&dv~ntaB)}n-3K>H{l7dcynz`n0q^^vsX{s-CYfc5dR0aXGavkca%=|hz
z+L=jU{tg`RlowDuJPg`M^K(eH@uA`_NkZgRCVcH2g0gIffzf$LL?dbm4g7CtnBC<c
z|NCp<*?Jt=eA;~=#jCOCV~oxTa>hH4aKl?X?A$MLb$u=zmv)z78NY_7yGR2I!5ToX
zxif?vpCHngGcy$texQyE?yE~2Ha2kQaZq%3aTP${Wle5HO+Y<WDJMH`cmJr@)&cIE
zsjO<?+esK}o_*Vxf*k~bp{Iasm*0>bzK0H`NUHo>kaoMo?yk?6*MFOF<=O5|Iy=8P
zkOGl8RmAFP4!ftYxYK2>7OumaTumbf6LJe6dcX4`JLU`DPZ{<t`!L7++M~jVCN9R4
zpK;;vc7VjPeT8BF$gaHzGrTB-LrK4-oc9NOX&t!IuXxb`(CUZ9xX53C>M^pLxpIbe
z_I-;j$ad}ewedtWR4^nG5Hz=7aMR>y76>J!?2c@SpxHIdcm6UsaH|{E63y9&<gjXy
zmYsD53@urfzT(@x5V9$4eG47i%+s{t$Z`i0xfuNp10E@(YotH?W&S2MB<Dc8rL^U{
zHN9kx2-Cq_9&9nAWJyKaY+o5i6aNVNE`Z*_VENTqX&A6>+{XvT2bF=XqXb}rJRV*+
zHQgh(UR{vq^Pcl1@v!zJjUC3H`gM}9rK%!qXXNP3r69p8DNm)f05BoazP86Yij$pG
z6Upp>l*raew0C}m1m&IoDaFCdxIA?WHq+JviXDKg&1j}=ZaKqnXWMnzNo1w5UUQU3
z+dKTyr0$G>6gY*2EN{JbhYq`4hLhO0+tUhOn|Pj8D=OJYC=R06J7^2*cSXmuGeCuN
z;`8ytt+)u0QPy+&Q!o@J5=9mUrkjAKDXs0R#Whz|CI_-Am|%I(eYI#tnQb=IlB%Ro
z`fhl$%QG~QXS)#M*M@toq;v4j+XXgOvsZP6Sr@rEc6I_H*4;EgUNf&HH@A`;)*Q=s
z3k7!cYqFguy-N)G*rvM!5e6Mz)v#ce?|g3wG_HtgbVhL05XCUY!IPMCt`&izbspt+
zxvYssorEeE8KWrKak!jsFCDCulQ$S9g*L%O_$ma3RDL52fyCi*xI|!x0aw?v191J^
zjY<-6MI!VJ^8`8wqpMUE{i$j<@VdH+p1O58hYv07ZKC^crK@bF2h^NJ@m5$3wa-4y
zFS=1$>NSBJI`2eFcL;yi3eF9ySUM8xRi7DbV=q?N%~l6BskjS@LQ!yFA<7l#p+L3k
z=xn>Ma@Z%JTGgDa<Ppxlmxy@uMyg9(vao|XsEtNsbHV?B+y*r2H7A2c+0~|V=$4dt
z;|Hp!AlKbhYmB-#%b%xONUZ0kRd;9;fJq($61AmZylV7wjbefq`y`zkx%v1gOxo%w
zmuuc^hsD4rVt%lYj7@ub*cqJWqBKN`Sll=hi=k=6WFJV4%WtE$XxpjHMFsU?f})SZ
zME;0iktHvxZ!e8xg%71t&!Wp>>>nLbTLr+!b3lj6!&)!#ydji7$w~Eg9MnN<*7#D6
zR{zkb>i;~y$SUDn@3>zhpS^U9GUR`nP}29(T%;U3*xk3@6d&B9qAt^Dr7khNl1>lo
zWRW*Y5p?AXI?30C`1z=#fjf$uKfUb3KFuJCU-dnxFT7D)WAj$Bjszi9fIe756AtNg
zS2TE~8!hTn1Q!a(xhc@^^&^%f{ZgF;i+}QJwZ#~9ua~wmZtQ$t#)YR@ag};<bj5Ks
zb07Az7Z2jS(MqO5-?%juIk943gt~W{YD&lTc7x^<TY~kUmsKSpHAW2nhsUntc$C5<
zXRY}3x9-wS<v{TM)Zibg4l;ZQ`b8<ef;9}dgi;E<wh<;RU8~NDdqL^R56oh3s6vcl
z3CKdA*+=B*M+jadM5vTwsEIBWwiBRSi%~GyDYCvXwa?sqg>0EoxAkxL?~|fLL<RQ!
zinr++ULh6DDqE{q`)5nQ>_98+oOUT4HBf4$0>M$_FX&UZhi$%czVoa=`2z3J1lRFG
zfv#6lkgaq$mC;meUww1kS2?w(=M!D!p{xwS3`aI;LL8mX|29#<n62jjqnT}!vG!@z
z(r^GSw}qH%MTp<Qwd+UYO~Hwq#}5(cUi#iFnx~WAT4+`tFF{s;1y1I9g*RJCf1nx0
zdFl~QTh?FkCs@#^zM%9hqe?iSoDYT^gR6Q+SuC4%N^hmqdpuS3{))QNXBd)k+1O@{
zf%%#Xo_gw8lit@6KAFQ&f2{>^?dVveyWzzAm+-?hKm0fn5^-B9JlLUUz1*3%KID>D
z_>}B{%VS-bt=^Wfew()=={IX$Zi`|S*6Jl>U%-S~zlq}G<TvdF8Aa6D@1Ng>a2+mJ
z*B_g*1X#TM#^eR6ommnE!}1K-hiy9N(0)yFJ0Ds7h*|&J&&g?z^+2HIbEK29skyD6
zR`Ijy$nCU8RwDpXCYv(zdf6`nO_?{x=XPbBnI`E%waCD?-4TRWvFc%n#1z`rQHu=`
z^PKx~AQYiG2y%g6*nDcrC)dto#Hg7U87~{KnXhBh+vwi5uQxcdn8gGWOaY_*dRC`u
zGr@3&@qS66LygFW^W`~@uLEUDGBF|7;;j=swtkR(#L9Uxvkn(;+&>t-R#TH~sBYsE
z?g~Mwob1kems=}-T{s&;IrUNV#gvHje)S$4@F;AXlf!6>n8z%GL<yHKwr=;Xph25&
zXX68ld_6;VU{=a!Tcp*+qsaxOyMzrsAc@DuGMM$*7j4O3jvE-EPHE5MZ++?@N>1Wg
z`=^DtdI$tw|C^(rF;{}JGyw<xvW-BE2CX(&NPsdeXyYq`q?(^#W!;qNKHtkG?VoSf
zIgHx#-R`G{(5z+DG7<aGe0WCINuTH=kX_owJGDFhJC1{GdPBny<I>IF!SOD)D?=pq
z*LWM7x_ky*zG25uq$TuY4YHdaQt&<*hrRAm>{^GixXV9ITB8={(4ky6-WL35a~+a<
zOiV-c-N`%lE<M#yF^cuJ_i9y9OV*bglHV=XKh~jnfqb;*kL9xU&WpwM<5@_p<zz|u
zk{<3K&?vKSGnQ%gtGw><ZLW%dx4*-TS+1kYl?aYl^Z8C1fS*uta>?eCAB*hzXtU4W
zMGTq1Y4K#mY3XK#=xqJD`pD%r?7KH0uWzg&rmK)v-&u$CX-uyW865*wuy12GwC_>`
zFSdgNW>qaGl36c=ReZ$2@SB-YcKBKUyghSR-_7rPtye!Q^`DQ%@%Pq~j1}5TW^17g
z<#P@7SI=}H6R?VGwGQ*_A6?LE1zj2>gVlUDP$elPnulBohGTxY^kN$*ER*KfK6Y`u
zYcynIT9jfi1Ld)xru7GtUW}wnSSuOSl5_AP+y2@1==6hgkYliuN-pZkmXaoURwYEl
z+&O8dy}Awwpv?7;o^H@a2<Je^o-;1%`5ES{X7o;!-C0VFAkQ|e<Q}&OI)dvhwW=nD
z<BCnAX_HRtL^tJc6D9{RmtZl-vZ7EW65jU0V}P*@`*Pwb^)=Vtb;0}RR%tFfWRi|^
zD)Pv+rRzy^#k!lY$Kx+Ha;=?8BNxA7e#2!wuFJelw*8Cck&S%J-d|bl?|rNg0{O-B
z&~p`pfeg}fS^f4|ZNYYqYU*UPkGf$^n>2Vi8!m?szvD1xEV5Ymy9_h}Sk!(>rrEWR
zhe;(*sAtqR$gs~MLJl@WVb)iI;XO`W8MbsD>Qx<dDKK%zGs1AhIw{&Y=mFIx=xb|w
z>c*f7A_Tib1PzCqPqW?{z#6%Q%mg+pb~-jwqM)lP2dy$HSlVZJK@oFKz4UvccDG{}
zIH4XfE?k3Chz`>kyt~5qh_Q(%P;L@8cH&K3J7Dw+qbgtRu9u9dUPN1M4PXiM#5;3=
zA)q((*7yj+Ie8&O&lFScPXTxtpFmoFs=)aXz#id!EfsSz61#|JPK3E#uD)76yYi4+
z#Qu|I$*bObd>{ym3g`Lj7LXlj#EXpWNH|)tE-N(4;Y&A6;i;z~q-Ye0?2?4(Jr5E7
z6jsoX91e6R^+2tx1WNrL<9oIoeCSV&=N}k<LwmLbxB=^nQ1!zmXS7pgvygAy9hoo0
z@c07$v|qNnpLqWxLA5*{YouY!G#allybm6gPGJdHr^mIPr46<h7igB-r+bUYxh@YZ
zPKE72LCMaJk`b-z9!c2hVfDKWlRLBfwir4ORTm~tuXEjf9}0>!i9>4^C>wt8x+Sd5
z7_MDs4>i9+5LkbdR1e1woN;i-_j?>q%jypQ*?6K}jsxMR;ZD4xuhwSFM@8@b>b87Y
zYwd}x5Lw_A1xsD-z%uq?as8eBFZWv_zo3{I_AeMdRO?O;1W-SgG_RXz4CRIxa(F&M
z`dWU-w5e=vY>KnZ4jRHFK;Z_E11vZhX~lzKIxWYcU<A*`s$fD@hqAf4>51KIXnT$U
z*j>}e=*N1!8FH=qQU~hq(*<PRo+5e^1PCcpDo5_KkB*)R`_G?k6>m_%K-<m>aMw88
z^J?-U(i0_LX`ZmWiJp8~8R4}!nH7I3WO#=J0X-Fj_H~<cX~!gzSn)pSZX3%i;%T>u
z&87(j(|Gzg4-yD5{|cF858oGb)@zrviz^RQ+BQG;on!-S<3xl=>&`mw;F>W&fF`C8
z0Dl%g=vQ0$o@#;TD2buhP6>Lg-ftF6<V<fsqrh35+9uujAzR(_V$rQo)ROpL@W8SL
zH?x%k*TrpR?T=IYL6q&bY{$;$XXRVC1nPirk!FYG*w^2yk`n^EM3w?D*ST&l)LoV^
zPp_7B9bcdO6VVSNEX`yFU$H=Irse-RCDjmN92r8$e%$@NKK~4|)Xt7k6<dE~kuPX6
z;@QCVfvDlHshZp&xeC27SLD#G`kSa&H?w`sx)EsE$>TPo1JSv4^1&Y2yk8zRr)s)n
zOlp^tAyqH6&I||?`p(BRuF(_8A(iA{0~Z>*fzzY@G(pXt!1Wr{ECGUD<8uQ3ydoHB
zKGLGAEmDDbs)yayl6m>t*U)!g(=X`Dg!QduuJM`Kp^9yTxTRZ`_`uBNw}qCx;=si8
zpcGE~Bypu)!&_WQ&Sb@?f&64KftHFPLUXQJ46AYvnH_2Xvb;lYQdhFF;wlLVY%_K!
zp}@#9Zo1v~a$s4?EbteqTj^C?CL?Skse*^j_CVz4vYl>EnNC9u`&4jHw6&{}vHrUf
zQj^O!tn^odGROdT?4{92;p$0nqb#FXS)=`m<=9<;_GV%6Y%|@z!;}+WV7?n^tfI1t
zb3xQHdjf%nvWN77Y3h9@MYG~ural&wFzMVX90Q8;0(PMki&0O>27`a7tY99q%%9G~
zcfE(KqyCqBN*QI=POI>h+Z*MU9KqI33nuh#Ymlb4<t>|sn5QVI90hMi4bW_gRbIX_
zrrMnbx-sED#-<EaG$e@@`e|Og7!rBM^O8<BrL&B@2K;00Kv3Pd<H=7&pGD%8cAe&8
zQ74;Xkrl&YsOpCOy1wt4v@CrL%3Ux-ZV<lmZUW_{bl$pf>{W-Zlk~K#I6-Lboo11*
zcVnNGJmG?3tti6(`|XRkTow$rKi)`oug1598oSQk``7-!o%Bv|EBzO-;RyhPSAlwX
z!X%>=Fqf@Sz^T@%AcsdhxO2?J?yNAh%djQzjcSkUos&B8YHqK<d#(x^kZvLgl3B{l
z8N5Av8%6zY4HS_5h!9CqCs)3#?;>ah3;gX`qnxLuF4QvV%cryaRJ^SC4y6qejciNg
zP;&&&dAOK)+dFB)*FIcdQ<d>?{kEYcgz!V1K!6({1&G<A1WOP@y(?dR_Sg${WdL$p
z1LqZWxywZj>cUpdrng0b((PK4JIV~=0n>ypX&6nHD9Q708P_cDJp62&KS~p$zbkf~
zmYZ4;IUdWu@$#KbUZ8kP_nl$GYt_HP3fP**Zf_I!q7ol0=h6sCHc{s`zXr3LT8Oq;
z1Wu8Vf5SUV#zj<fCZuN945)H#QOFejd92+HI2_Wy6N;KXQ)e$5U>EpRtiA20C>QhN
z8DOrOTZ6ij_W9~)X6z%pHB?+vmW2`IIl5!=$U5SQcyV$9w$Qn4&T1zWN<X)quCX}P
z%-BZ>>#xyzEVA$do`FGKgi|a`+Lt8f=Sj^&HcCsn!i!z*>B&dQ6qjoxeMMt^c|26>
z5_my?pzlZ&H2|O>CReFUns)t29@d);YBowWEhbB5*#l<zM79L~u`)xKxfPNf{JX7`
z=Qf^-NTN&Ju8YfX@wr#byGU;$oZ}IU_U<^L@`k8+SP^}-yG1&HA4NWp&aK)f$0Xd)
zDS!2Vb1ZeB{Q}KS68vbNzPYJ0HsH2#1RxCUxq_*y9dd2qNt^jFL|*3$ycqAMCMdsg
zvHkt`uXArzc&q&W_M|`R%M<@on{GhDWa<J;cxs^XjZnrw@5}D*Rye@;aXOE7tRI!x
z+91wkdDba@$9%EAKb_0SlYcT?$Lc5o6!5+T5jK3>ta&legF`V}+PbR7nuak7eyt}t
zpuD3GeU+GHQ!l?-!0e86o*-tp(RB{nlz7N(EXhnXdWPpKQYv;G^G2nHr#cBELBX(&
z=178n4i|~rn?;8Ofg{}~=AL?5r<Ja@&3G_*7&?z_p%0pEnuzy0-3xE6CUJ}mS#sY3
zhg53<-pw%mA}eW|kD@iRVsdKLOvUxiIwo2GpLOL8%Bla$11X?5;>KN7&7PXGY>WuB
z;8%cX8BHMGmFZ<cu<<%rS9<{cn=VDhY)^eHp=avMcp)?2n411=#wc0mfrPWY)jtKO
zAh8cvcbuywF}iy?)(Lxeq0YedU&`g2RTGp2o~(DDl+4h+YR9n;R{6qvCG4i5L}XL6
zx>o;Km4ve}*ovt|vSUxKs-rwmi{u6}Okqz_jwfhe2RY9dw^r+34{TW)u=94uC#qe|
z4K2yzTXiq4`U|pb3hRfoqR1N!+h!xTKJ=;Y;o7S9v3Q#=fMl}Y-7!>XoI-5Nn;2s?
zJGoCBdnNV4i%;AxZ4Wl@9QL`#r2;9MVKm>2|NcP(+TkX!Zs;WZQcF8bk!?W9^Jnma
zbf6~$!DD#eRF`mKBLFuRW@h~K74oJITJMhPu0aTe3+PPI=3$DtTPDna4L*sW77KPR
zhFb-0JAQ|Cv)9$kHAb3%3YY(7WRlVZkBMeYQ}F@wt$%awQa=RH8$77P`SccRGX20U
zjl&Rt7`HbpQ=z!k?4&Sp%P};OptrJ$yv16#?AC@|GH9WQg~yYZZVeu1pk=T~$h8uY
z=$O9XXFA;w9NW;0leoMes)5KbZ!?y%YmO7{GNsexXR)%Ep01lYWH-m*g}AfP7-rhk
zBbS9k^Enw?>r-{B@{<?h04Xr7H_A8YEe_4s^+#?@*r_EisK3VcW!rIXO18eL*4yJl
zX83mEdtGypS3xyy_s9V_ENz~qFeGsnViFrad?=iCeH99w#b3N;2eOJPmQWYp$8+GT
z_aKE~iH@4^^hM~SGKc<;7;{1*VD*61Qo^s;j&QX10{5@oZGuA1ogzEeoga_zhNB<u
zX7_`Hk&Y(P_iH!1#`jsEyCm09^+iRlkC8xoCt=MAfVyR3j6`Cjz!^MFVIp17jD?)u
zo{BHCI4XsDCXPNd&x6#fhw1y_G@kwSVx8bRreiO<R@Z2lenSM8SHktRrZLcpnwV(Q
z17_{*xDnnQUVlDq6-x|Ojf|u{D=gx>a47YD=%my+c@(7fHX_ikBB!YkX?utCQ6oa4
z93$e%tj$opyVed6XZ`DzHjK7Yh1JzCtv%KL_ZyTR;E7lnqr12&HN;vDm{XUmgNf*c
zQWLPizyF=C&<5_9v_yv;Ivn10+Wilo+DqpY>Ls9~NMAggT_7yJygUFEAZLRAW*S~u
z<-k0f)rQ#CS8cq<Vx&QZG=4Z=!G^`<FoM;MybmroD7q>mAtOf5J=@0-I6fo~RE-Ak
zw<roL(e;@ZUZOgeqFxLPlTopP#~d@vkQBO3{7BbfTG9vlGS>_8rQi?gNA<&gYWX?!
zLNJ}?SN{6?jEZ)p!?|%OLCZ94ImzA%4?gpiY}!)|U0R*%B+IbC(YJb5uDks$$F{nE
zW9L@F-x(<<imd;QO^8#=%RC49)lQ1LDw;mQnAoj^(Pw#!u**c%OG{q|)39(VAEf7P
zKQrt#bHL6nY8WYv__v4U`prj<gIrLEIM8Y<sI#&0#)5p3ssE&YMBHtpM0y~^?8nh=
zj!1sH<RsTlPv1>!6AI7UW!HpB_|54*e$U1w$x_ODxxSKp9AE7V_Jxf_%<q&|c3)QQ
z*(~DmMhHJ0@%h|LtQ#x+5*wh~1gfz0-!~mPYD-h#Rpy2@O&gCuXAhJL8+bQkAy)pR
zrKZ`X^%m5o=IjlVu-NOe!pvh{n|1bAdmkY5H%V8=L?z#;k$ONFUUd+>&^;g}));;i
z^)l}ZPMK^^P0V6{^fq<w3WbNsjg6-+G(<H|(0?Fu%VmT-r^ZH(fOb7xm<amLS?({K
zy$5?1M`HWB?inuGoJu&(EY}3+)f}PX6Ms0c0*V4cK_6|j5GW2hV}OD(<Kq%et7fbo
z_MxT87gw?=DppA60NL+@S|a=JU+etn*E~S9wH{)_EC`KZbj-w@el{L}e@B*Q;erZ5
z53!IrA&(~|T}52|ZvO3gv?*~gnBx0+IAT`=1!-gR&iA1eV;4~#v@;L^w1EhYHdYTI
zTw<K<rP#}?x{nOI3HBw<h3w1I{Ff(7Zy%q|D#MSe&ez3iEsc1D90Uq1qI>H#dow`1
z<J)A~1aZgT4htW#^bgIxPl%8`Buei#O?4^kql@s?r$CbEi}b@!@zWlv!;Ou(l9`ha
zBHxhO`I6h&DVo9Zm5HeQ>P+|agz#We3h!S>;tMf7%%+ldYS{_eX<8dGQ)XMD3B7Rc
zH3WJ2_wM7RIMlJZ)n<1yccd^Fn1_8@pM2f-0S1|GMNdT}A6ORNhbTn^uR5G1bKRr{
z{5l?X`ppVif8UTSxVW+)AtA|g;&t;D<|Ut=8w!NzXb_yGYK-%FN3z!|N7n6AwD63k
zx+={>>~Hj9dAi*{h}3=rHsfr#u(W)XW&T-%fWJCMmC?N)?1ojVqn#vPh=e}UOQdF;
znKA}3pq@1z=-lN#H-3V&8@;jR9-XHTRb4NfWgK~&W4_>7QC;_2w<qlRRrXwZ;Q8xq
zwsIr4y6|TpT=ZfE>PLiX?)Qh2RKAVc;^wVPqYjS->3dnCaHXZfYUfMir-!GURooXR
z1q+L-*vo;v(-@SQr`IlSjb&piZ|*-B(pkvGTjP9R_j4Jv1y_99GjgO~2kK+l(O%b0
z&ngPmFaDZ)1KESsvy+Avl;_4KWJ#Be_W1Z)#OFj(fuTUY@R1Q6f;;bqe_gujlw`!B
zyQcV`O=NNLDFpkf^>dm6p{TT2np_sK8HK2VjM-zM9Hzec_{SH$UE>``t}+zti^^hJ
zHNW{MLIL>BIFHjJB3o+&gddZG*k9J&whnFd=#?e-V!PAy;&*G`JjzU14Z-tv=uYB@
z+i?Q4`}-_<I1U9F@il+()I_2o#LhL!;1u<<m9tqt4MC*fJlgv>V59-yaq9g{UN*y7
z0!&FO(M9=GR`DAMbV1_o*E5NU?KXS9^1|00m3+KZ=|^A4KaO+eGZ83X=JPF<OKBv_
zoK1RE2yq7A#2>nE|B92G!8!!cOnd#vO&k5_d7`-+u9}bDTAd2pub3I~piDOq^4TXm
z7tcy)=UDW&XwZXtwckjlB%i^{i;yY%Btvj9jP`NHl|?Q=zf@~*BQoy%q8z_|48CRm
z<KC4DV1RUwVpCWL+ydR3Ul4@xj&o5}vSLUV=4h(b(nv>St@GoM-gv!wV+zIfgCb^$
z@u%&N6J3RYrILqdt4<LfL0HAtcgNi<VOsk=npP}*B6z~sPetR^ag2%GK{lJ^*U}q>
zKMA&K1nr1(l;s@9*h(L49w5FOP@p~~;#u8M)0-7@9qZe^bCA^J)bhO4QZGwIQ;Mt6
z5@P^(JFcD08*T0H1-~!zcFhNooqr{92aMars%}S3_g94f<h~GAvnG;6?c>}d>YgPc
zki>|G3S(=+)*O1;A#cG(?gJJ0-g)b}%M7MK3B9c}U@0V|w5%6vO1PV_SEhebnTQ2s
zCvKEap2Tt9Ir=bW(Eyl?0)()hB9a+LDDaTZ1GEivA1}<F%%o};4q(i-8?QY4vdgQ2
z!fb{bf7SzwCS>#7#D@z|S}B^Tj7zcMwJL9Av`O$p6%VQ8SV2-!mJFAJ!pH=&A8=jH
z0kFwr@JmQQ#BJxzU1{8D(4r=T-9PQQRe}l*xNlhAIWE{}gKK*iC&b2tjRj9LbVDDy
z7{}DrQwuC(voF<}<ds+?w^)8m&`TA|-rdJEif=)!yO#adq%3X^&;GmJAXrO*Hj94W
z^2-@b)UH#bwa6quBl9nE(&aSvI(PlLHEmHNWy!77Tg7gzdi1L<tOf7xQ+?UJDo&*A
z9gE2T^u3Wu>+=muiOIDIs<L*(YIl*xr$Tj&cnP-@?k=~X;>uplpK9gvy&4`IvGrK!
zFF*QIWK5_YKlajrijs)Hot2)GhRq1cKS^=;@nzOe)O_T^QkLR+3yk!Wx{`EL9vOdT
zZ%U>wLoGh}dXCO#J^2Hnsib>@6p!MjD+HXPEARPL?l|iocG}?!y2@02XVEV;1Kc9g
zlFM0c5h!PVx3d@7#SWIRVfr7E<yJU;_V?+??qvK<1rVZ++o6x24?vI+E-@O{uNRa(
ze~qxHuhdsk(=cwaD(w<Bv-GbMb|6-Ie7i9S{n2xlTI2zzc8OKq0bO!!(Br=JTl21|
zVmbiA9h2O`1rFrQA5LFTmJ3Csmcv)|I+*R?-o5*Pcpw^;v2rqDkC{>NPVsnE;dFPG
zzmjZkq4kiv$3dfxo1TtqO8?~^Q|zD{A@n>k1;-?~AiCvxa)j1%O=}*j40rq;Z_Z8M
zL?~H__juG2@a~wsx10T9;b|f1(8Q1JMdc~F`x6VU*%l)nU5<icO~{BwvL|fhITt-p
zZrPKA#<Ez07yWcQ$a74EHQrBb?!?;Jhhv|-!ueN)9DsU3B4HO-Uhb`K(>kOlJOKXl
z7i6>#NM0JIN||OWq{3v1^+_B5NAMo<h5eUHe}pTur~wV$2~kBocv>6Ej6}!e#g7tQ
z@Bt>k>q%|1RF|uijmwOZAoC2l<<`3}7xUI+FnsBfTwnjOC#|?lL47Vf4-YL^IM?=|
z7?rE7EWO&T%hKn%w>Pzkk}t1CrC%nUDn<?yU?dO|9fydJE;nsEjfEJFb7|9+;rwtS
z{qQLFKsfR$zus24p~c|1E_=S|OCbH%ZovG!fPTo*;C|M|2IFK0VcbJtJ5dZf>CI&P
zNa9ycLxA@H<P<KQVnuRnS;qkxt)!is?ts~8QSH1#tX`o!cgfsZ2_ly=9)B5ISF7bl
z;~Uxs2l)~GZrp<tqWt^p=M;IWN`#w|oB+m^JSC`ZwwgFP`$vXR>+LG?j#?X-Y(|9N
zxGF^7sa2|WOxTx@j+)_1KvlAXc7w6eT$6=XLHfQgTHO45|DFcer}o~@ggjb}zJ?!P
zc67MM6?ywlXIX#pwK9vCJ$H0EFiSXRkcP8=d53~vMCr<x(p{{mUsXk^gU>B|y9z@u
z_lH`WzB1wEvq8o`aWGWk4pufBq^c>tfy4O2v&>U*AVzpo617a8guVOW)ZN<7)5qZ7
zMCeRe#&I@X890#YQq;m<H0extB~P6n#8r7G4H{fEpJUTGS@)wMm$RINPm&b`v^%!|
zHn8Cdu4i`=q+Po=c9VE;vFz}$A(L@n!cF8Xm~`=eMSM-2{vAca^1M|&_l!pm`JyH+
zZsPujt?4h{8-kZLq~@tKjk`(~-^TaX@tS-j_w!%F_Vmd2Y3!eH>HKf(!+iI@)rg2l
zP%!tl1xd<l$-?o^svG7O#k!#hw<$)KV!dfx=%#2HY8LN=7rKAZvw^D!<qcTjrcr?y
zA<*b~e*4k0I)3XdBciT-d;X?PXDc)h|A39832kpJ6aW$GgP9z@kFDxnzJ<c?VHG2O
z6&xkv>hsI%Mm$QRieB~hwHxj^_4b+#^q#KdxeI>$7_8AkZk#_(v7!I<I3_8=@QIpw
z-W+cUriBaAus^0R++!(Q;1mwip~e@hnrt(v?!H;j064!o&^29H_%*P5h+j1kg=z%;
znvxZaDdo6%p+)asPH-X$s|w7Kkvd@2uKooaX*5gg;Ufka9_I*^hH(nupOY10`S*6y
zDD;tGuJ*X1yq^s=7q7Nv+!2i^n4v#|Krp5RY36Ld#Z?n~1oI4{fqHw5VvIk^00z;L
zgMDH8dS4M+C@TY2{lDjE3dfgiUrsu}osJ2n0djs0lD)#?NL8372F`At+Q|x~6#KVH
z5aw&EY3dxhl~>WzZPgks@O-29U7O#`5o*g6;tf2o=-GA-DbN}TP#Wssh~o(ae8HG;
z`K<~(O^VG0D#5v8@d<8Y#b8OO_J=!{ruE64fGW7zc=A)b;5i@&fDFC(DwYm$)S$ya
zg0C4|(4MiHD~_fc?^vqm<}oYH^aSNenF|j6ogbHc-nJ1w_9~n3NnJ%(jru6J-U6%k
zKU{lhFLU%&qw&^V9qepwo&{a=sR2Pajd7ie6esst?Z6=V%hJXi=V}tvd(ImO&<@9H
z&tyz#nF)m3WvSvo5#e77-rD8X#nTEz`*s+A9)DuaRm8LHNOyPEV$LTc_|l^8`?g6_
z5?dWOmVzQiKg|NXZKwQcUy_g>l~sNKqLPC;c6=@F`q#yhEOzcw#ZH-;C1d(ITo}|%
z`)*r&jLnf2gS*_c?F5}|JE4F+Le4FC;tzCugx?BK=PN$}dUW_M93j<-ihkc{(jwlo
z7O@&SJADFHu@}}(o#h~Je-c=ARhg?R*jd8~gwz!J0FF={s@@#6=Y(V4edeY3+2tsO
zw03LH8V_>1v!eG<nTm${(Ck=L!$+Dp^D%y{iU!Fx6RN*OHTxJ2W&dqGV~%*Zr&q4?
z@$@`9USjAi4N*p~54D{T>w(B!7vb3U(34v1zP*wxF+eBP+m;DYEuEAAUkc?3JW62J
z3%8%TSaoMf%e^5R)U39dYXfIQ@B8ccBR0pmEI0@aS~<TxB3pCDVHL-V8xf5s-`uw0
z(wcN?wQ|CjKq(iNN*qL}r`l=XA9gbrk~=J<I*>R@vi^5-Cpmmm&Ju&FwFlZ)u>@63
zMM8UJx+^QQtddO$CpgM=;nh&_?w9@|Zl1b^W;pKrrI5{p!xqBOr>lRdI&CgO<=#h@
zMEv%mCV&R#1ip&8i=Q0(WKqfux&)cn@EQR$m0FUw;pIDA9<tmLGbs;~#Y`|_*j8-j
z=E|*B*~-PZD*|%yjzLFkReoO-YOs-Se5C@|nf;kb>H_&%{LEJ)t=v+vVAJ2Ut>mrr
zP}yciZRiAbWG$@>&5ccK55rP_p&~msWFj*5z(p+2?$q7|TpQtffZ@=LgoQ;nf5=Ev
z+<WN(WK6~%CT&%&VZb)ZrG5c!Q*j*DOqPms)TMN{j!p-=rbE7O0?6MRS%wZCSh=xH
z(hzEg-OHYL?X;hQE7yjj2s7Wih68ot1}Aovk!`v(+|cr`d+A|1D9ms`U(gQx#wqto
z4Puv!KO9)Hz^Rb;nBSIMH2>BrF1piFJ*+J`7tZGn+te+)F9{VGRGop*B&=npV5VEz
z>kQw$UsMWkAZd;fLtru4$(XU0GMqXcIQh%s(UlqUtI*hqxj#fL&%g9g7sxVdZ5|!`
z^|m-{wXiswr$t^M5&}&<EdT~fXf*}`!reteJnuN{Bv3W|L=JH8a(_7LrH)zX`MwLz
zwEZ9w5zJiNQvbDiSY{<QJtHdfnl*9grrJ%DxlvtwWVgbRohQ#@U|lpVR>nf?pt4KP
z7wYI3Oixav<%>i&_2{HPw?uU4ZTNBlusmQ`P~Vogsqky>Durme0JI`?k@}e|x8+&(
z&wmasANx1f8#UNl^P}AGUwv<wIt$+|r_ksYzKcBun)8bD0)F0<Q*@(6%$~l`^7$NV
zrloJItEn^!QQoj6x1h|TZ_REou#zXidd+Rkwl(fvw7~4$itir3XCzwXff)Xpzp~7T
z;U~CRl2)7Ut3vSEw5gAMr>*gGp+2u_;4=%uCK7}g0RATFbs{PJrs$Vav0z{N8{2I!
z0&Sv6qwR?;Ieaf^wsxqtrh)kGAu;KdLha<X5CJV4a1%qE@Oo{{ZK|-fu6(=v4fT$a
zIEP=X5EZ@%O4zn)6s-p=jK8!=1ukqXNL6I46<9_d|1})`_$L3%UQr(ij|gg?SUJRU
z@kIpJ`nmn8=Xl6)u>y9x*MX*|Tp4piWsn;+F|w*k5f=wNH}O>wQalkr{{2d&Wg^91
zhMF*mE^JQdB`>{vF@e;(o@T<ilm+)Ps(a5G^xNq6UJq{#7Y~yub6_wjG~`>W3VQj+
za0D-0L*FoC+TX*P-PZ3i$G4x#Y6m8Eqi2~h^l1R>CA=Pa!r!_@Uv>J8dkCl8^kpn`
zvnAQPVN;AG6<e=5N+-VMUG%R4@A?l<=RB#nDD%%!)makMW@>Ngeeo;TG;hGa1pJ<L
zOQI^_znb)Q^$b5fkLN99Jy7~wJBXv_WZgp22P}Kxtj(K-{vdr9bPf-3?1@iF9@w)k
zfSe&NOnFyXM{DLa{S(DRqZ-pV{r-Vtas3WM%@>68Lf63&81hAwiF+yf65E7ZL|yD?
zi*Rx=QUMGWe{g)ilB#Sz_7S@d_%2=&hS>CHJ`(pOKi_k9hOy1Cc;1eFYgfup&9Dxi
zt%vI`xo)s#z#Y`Lv9r`v*V!B*!FLQ*bnqI@tNxf1PWkK?|MmP2=5IHSatf1M(L=G4
z;6j6)8rtLN?^)Q4x8IU_;e@8zh^=DRd>F>(-(53SKSDh4n*>#;jOjsXB(91ty9qFl
z#+S-pHKb$t*~-IzMsZdbph-x~U{r?8$b7SgyvY3{ZXd|dGu{*}kcl)jxJAI_7J)wm
z-hnNzdp?8fEsXJ7Z<ZCu#4&p-QgB247eca-mNthwFv#fHaVg@axH{c^qM0zDyA7Q#
z53fB<&XINP9MzM4ss#Ih2oWMpXS_2wyfdhJw}IO5WRe<m;w1v9U?4)J8N)B6;5J@J
z*JUTunnUw071877gn*B!h)^MV!HU*?6a8H~BjD;Xr%odXskw*87rO=<Mj%u}S6J+#
zvEJ+NE+xeqjx^4%F9i~f@+#<pKJLmX3A1$)k5}(u2glK+I4h3^Bb4g2I%^N4=<faC
z4*6PU!Q)x4)e*-8UYx=d1#@>ylzG6-5POlcd>WNwMBsfx`Sj+`>xrl8N8~N+t(^pr
z+>w@RxRf!sur|5*(}9EA1OBjwUfGV62}p*Hl(et+Ks--B+6VsUw<f+RozL~d?Iedt
zx2#4JV}>mKYN6DX4+t2eeW9z@evLK#23s>qIwI=LuSdV&MWd)N-&%r>>CU{j5+()P
z!`CVyvA9&J1R=cAR_#2o{3{=m-ruTDhKLGd+lNKzbtsCB4R|H1M&oIbnF|{qRed2R
zeoPZi%*=NwY&SoeJ8+sV<U&Qx64$a1?RHbso1;qW8t;;t+#K%T1CNs(kB8{%D%@>F
z^4vM|2(oGr-|P+IioNY$+j5@}g!LeXq9NU9$d8WUne#n_%1Ic`UtEJ9aA*9uefH~j
zIs(DiK2g~Ki&mjqwV2+Y;W&COj=NSykbZO61cX1PJU*aHDBT0Wa)jf$tzLP4DKY$x
z924W#E|}|;U?u&mr}}HRV&}iR0wFw_{Rn<#Or#@fJV&;Fd$X@3YN!MxqYDABjzp5i
zMZx!^kh|d>F!Rc9JzvR_mQG}f{Bhfx!a~FJl{qd%t)&r`sl1JI+~t4cx)l%qq?D7)
zPs;GbGo2<(B6m><@9-i$!VCXBKo3Vx`plokJa6I_4bF+rb&kEFOf5qz;P2c2Y<<Ua
z&a<?Tg+f&xAorXd?SNho&NBGZ2}J1>R6Fc3jBBx<J1YVk#@KXC9Eb2ohLW{NPeHVU
zZ;vVn=}zd{TLtzmVVCQUdG87_qV{&2IbR6ggt-kbpwP*xF<T7(uMO1e=F%BDRqQmk
zlt0+T{ex;{R)a|3<kG!jB*A0s+idX59BhWc4d*YbH7^586Q?estMpTr?gJi*6;T{7
z!|3e43AK`MF<|J9wdH!s0v6$Dy)v4E$T&=RKZ@oBNC-bgz?NXFh7?{8#?8O&OFR`C
z8nLfBbr(QL_klxvnwT1Hopxx6IEUZXFol}3!RBo>rx1Xir>L~x8$_1C7T~z6Kb%-C
znu+P7J4{v~xe~L;=;OHWQkwY(1V*vNj%Bi|BZS=uH2gN__1)mzsNonfc^j2-xr3X@
zG{G5G*Jl>p%=?b?K2pdta0&R};d>1})Ug1TIUeS$T8Q}ZxX2`z6GD`&+YB!eWWYYq
zM(MNJhAp4(A*M@_?1K5I34nxT)nG4n*u)@D*j&#onHS!YnNZ*zPo#%gvN&di$^{5z
z7v|b8lA?`|qK%i5Q0uI8D^zJe3|x`uDcj9x{PkL@ef8G)Z9Voq=|(;NgupX1&~PZ?
zf@62EDqkulh0};vP!L<BfMWxlWv3GEN*`!y!VET>SR2-mlI#<jD`}{WuyWytzDjU*
z3E;V>*;&BCU!#5Keg4+uch{wDw{7v!$DwRFuCv;-G0vZ^hhr9d?0PCKt(L;CKZ2Qn
zQ6z#wu;4b}Dx9uH0U+b#rD(c+TdW)|r8y9;$U)Ia{@0x1gC1HNb5oLNlY+2eA(Bz?
zu*!7lCdW|rdniP}{%Jc5pmbByw*VU*=6oq45D*A58F5i{F_1wI8QQ7q8y`lwS(cpt
z`pST*XAA1sVXQqssB_Q;wpK<P6|6qIlmz|TA<+UDKv?Povv*CSz!3TbD$F44{!Zp!
zSyGQskn~Cff&IVsGYupS(4LNPc*_+`$iK!q;o(n~)u*ZwIOw0BE0Zhz>4p4nPjfKf
z?6Q=jCqwmMDGrK*)7VdD&X>?i_5U5vDHZr6O-Qtcm>^j@w!+x?g4H@Q<L>{aLkFC%
znndzVVqX+Qv8l8i`+L5pvEIQHHPoT!zX*|ldZHH2pV!?Ma^Q-C@C(`ZJE%a1kIq+r
zd!H_l34)ORU(*)>1|INm!DQwPpgsLIo5md}_m)Hm$btVMy^I2UNOo}{NtSe<`cWYh
zUXs=K6cF~toh<7A4HO(pE>gz3ADxQpf)2_+&Al@n^lblaeK`DSlY-fT^uPT&DF8`3
z`s}!-gDw3oQf-AlEBFmoH1H@@89?#xnv8{kh&-|b;8x{Ha0G%d*<K9@ztPDo$J*85
zPxAi{wx9|aW$Q<EXBBNFv=hr7fOb|%kz(t3%1hDgf53$Ovri^P>=V;yeer=G@=)pz
zrgDWtIx?Af|016lqyYr4Hrb2^O*%2i`hF8vdA@*G)TcY{Ur09oiN*NGgH_F0g4>2i
zeYA7<O`ENNeXyWs{>82D0XR%oZzN6O6D)@tIWpqNUD4VA-Tm;*mB4?%p*isb7v#W9
zI-Y?Gk?QT&1E92#U|C7S#WiF4KkTJR_<`%0j&}htEy#<E?dRkg!}8V5<R0A`-~P9r
ze_rA-wEYhX<6sdE0RM#*$M{1QBa1o8|J!9Wl3)fBWo3a2|M!b;nyWffA-4dm|C=XU
zOptJM)8Iy8P&I4~mZ~^O(WwnBEx~_4h!6vTcq7>bzGYEC7@*JW#4WTQl5+n$J-`EG
zOb#5IYrx_U1&W+V7TGK#*}7T%P42%a{kMd45fv51bFKW8|IWbwI}HE-`eM!*`~_WU
Wd00C0m}d?G{K!Zsir0x5hx~uKQ7#Gq

literal 18195
zcmd4&^<UK8^EeJKAuJ&*-NJ&>4U)2ScPcI2CEZ9a4T92*bax|-pmZ;d2uL@w#J%`=
zUElY=aPJTBnCCfXdQQ$ns;S66$0WxD007VB<)kzK0F+Pw07(sqhWN4*P{V@wN9HE|
z&P~(F(#_N4g9Sj`+{x5}M&7~1%0k1!#N6BEyTuy-K&DY%N?glp=^#t_18i_QV#vvY
z`au<Ri(16D_!U)Kr<9d7>)Q;*%Pg^}r#}}MN*o%xhz5^EDCA=rL8zd(QNxTgDfvsJ
zAMYVSJEf*fiA;XjK4|wDM|)gPy!`*oFSoek_Mw<X59x^``@f>;02=vK;(TW%o_{O`
zgWih~N;qrXr4r`E%>Da>3jS8Z7`9H4j{F3ILIHi7hvA&4Pk<N*89P)1sABzOfPWAw
z+e;oJ_+yODKm3THoC2#if%yod002QWsHDIM-v{a^03Z&W(5#DnWRL(pK|qP1uJb?e
z9I3llz5o%+5TB=y2=o^@TWsA73jg)Vc7@XXqm01(&Fk`B^%HaYYr?3f&QB;_BsAXf
z{{v9LVw(ps$hJLX|ADyQukM6{K~Eq;27k%s&kGDU?_~eO{NmH>4Gx~fQ}Ywq1fj|9
zNFCZ||H06$^fkKwkBzR}S;>8w2W~y=r*;Io`@G0uUrE=0LI;C#MR`kKq)!?=H6n!G
z#T|OyB|OE(`~*MsX3~VVR}AE+zx(GIhz}y`4$<8v|0i@%#lRW}{69g(Mt14X9r_Jr
z_Wy^T#z7CO{fiy$KTsS9NIaR_bdsm|$16haUUTBWQMAh^S_tBDcq@v|lyXY{jE4{(
z`Gfu6Ycn<ll>geXNqjLZdFh@&8X(eCUs!5E%|EdakjCchwP<95YvPf&oZbI0(6Gf(
zQAGg3{~Lhcr)}<3I4Sc40ua;>tSu&fY=H6pv$$O7kJHnI+!s&H2uUN?+dxV(N&n$`
zZh$4AA@e^$K*H5sk2cF;K`e0@lWk7}5d1?kSZlZbW1ezyR_2WG%fJ2zTE8eg-3;dN
z{zInYhVoZkHiCNpR_bZ+6E~seRMa_)|M5z@U9+`C2mFs5(-0N)V*>p@BOv;kdo3|=
z7JU7$mD))JLv`x^<Bd#reC(gjfD(X(q4MLvPnGn3(ntR%8D66I8xp31C&Eu`Lz`cW
zzn+A?e1ZYNAR1)u@tyy3poym-bU8I!c18LZItZjC>jK{d7ymy+;ejMF6S@D_7z7+f
z&U7s-E&GQJ;pia3d?i}<Jmvt)H~;uWxNPW_z<TTdjYq=JT@G{q&kDegjyO5bIznTL
z|HI(+Y;i;*nHKXuaRD&5$*=%>8VACs9tcYz4YNK%I3V#KrJ0_-AiN<LqYXXR!R@FZ
zN`e9k`k&Un@uVFhJ^bBzix<+wRA9#D_@9zaLLJI1tMb*NMpz}IHJ?x*m=yE3=P!J0
zVZveiKSGeFIHvt(Kg~NYz0NRd_J3iKjbI_*a-6!ms+!7tALD;GUIsfzId(mW>KP1%
zC(5w>PXGXwS$jZ@?XkGN`v03ENCnm=P(fItcW3&oV~!Qn8!)t93thhl1Gv-Qih#$z
zL(;==9|YyJkUp(Q(N>NOGsT$?UlRP2J-GDhBYz#z@ws*Xuo-vK%>HY;!iSJ>{*@{<
z%?OwL;0=Xpv9EE=GafxEgq{LI*QB!Geb12=2L8@H3la#{NU+#Y2X-{x!5zlRq@Itn
z#R>O7x)z2M9L)0a)eq>Xtw}yNby4O{+wd`9xmDb7d+dJU0IZXwq5gQ2wV(JK4HX>Z
zYt>FU%<yN~>LdGCLZZcR(6Bb@up$kIlo$z4&Y{S7^IaE7m_^i1f(=DjL;REq|DjnP
z-_%!sF~8uJ%piePQ0zVddXCmhd=oT4P@%Upffzc@gA~<%GkxdtiGkLn`-k7`w9qgV
zCW$SM(Y{PVl^ws)(?@O(m@cItquTTgWblu5u`TtK5jC7#e1>obU8YXPFOBzPB?sVh
zTyjg5R22>JlP>R@ppgKwORo#NUkqWaDWp|-=`K%Cbx7^3>O&<-f*ID%o%o*Fahn-u
zT0*Z}jFzVr4ki0HGS%NtnBTU}%uKgp_6yn(AS@^j^e6tfxu7~bNqv1nyq!HZ`<G*2
z!*Jt{-{r)99{0EJ9Gia~VW^W(6K-o$efH9j++kqZrn9A>H{gEbohW~p80%2nbzus^
zDT6_`w5W;<q7)Mj)zN(hRFAr`-SrLy{#eV~diIz>=2Q!^MOQ9wXyBxkixC3%p1)rm
zroN6iu{cn3xiO;0g;F8|#8_*>L4Sn)TJRQDPiFHakF7X--m2b)i|S{a?U0Mg+7TMV
zgb?Z(Vpge*C(&WXwt8MLVq%P00lo;kuv1t@>3>aM8xBIlpqTD6lI^}RD6MJjS$xDb
zBNEGbZQB;<5Nh98Ef!XkgjUYiW<q_vFcgSjW~j4h0y!C)<jWD37d8G_<>+73ffc}B
zHV4eQI6bG;n-ga(-an5QF?%Hs3S5hTk_$X8G`%NAJXnaXpwJ+YQY4!;J<n(#MCf6a
zkN&yCFG_d~aX5dvCDzGje;Vw6iq7lLEfj!k?DEsE-AQl!P^N4!S*gUfrwi3ph7U)n
zrU}LPFSu0oo<tP^LcvdQ4{iWal2Gf`-1pR=RXo?m6M|iajJAatQ6|@QSJ_bGE<|W%
zYd(`Ux3ka*a_CKX9sV={hK}{GfA*Gt>;pTfYQG$xzwK#SBPpc$Iaw8DoBrZ9)ZZ-%
zdVp?d44uZ+HYnrFoI*@Hh-ve!gtLa<$c38qxUDPQhpg|-L~8L=fyPyTFPoT)?5@Op
zN<{k?*K}%$#cuNo6Cl<KLI}x&L3+_WEa&)_J*73p3ThTOal%eF_w+Uebxc<u9d*?$
zsPT#XzCnTo@2R20y*TE6-k*3io^~?^C(o5R8NmX49KHh<4dFZxox3qUL$_Mxir0ii
z+L?|pp#HOA^aDD~qBF`Us}FT#AJNp<vD9yL;Jkc@;gw(s0ZOiSI-r3?PsPumQ6Yif
zDq3Rfo_-dMve+Z9>%Z`_4^COVHpNm4lRAwg{^y%lQQ|JdFV7?~)Ahe}Ki+KxN~L~*
zHY+#YEu0+_3-_;2;&8nyf|^phe2~OsI@r*dCpJYa%?N!y3f$Ix?*NKp4!KDhowonD
z%7tNe&aAsckQ&(6;>m-%Hq>RtXF9ZK2R0%ch8O5Q%keyk2ntoJLQg8eCBkYih`tPI
z9av-k6D6L->ZOr~WJ8l^RVtxSOT937-eL@un2LFF5CLbdn*#yzGAR$`&tCOJ>kiY>
z{B+Un{p<Z|(!4eiIh9QBarwg-JBpunR^kE%T*E#!N4j?p=kbrFsAaw(i%q_czJ|~q
zaj3*%x~YQZH=Lq@)QkQ$iKhhsM-lr49a^V4(f3i-_|^|<kO%+gTu}du5ML?q!A9%2
zUG3A39o1xfAXgw<3;$Bq=u{ZtZmzIs=FoLEQ;<5a28@}*8-ieTon;}lOVqR`eqUN)
zvXK=Mc=Y$k^S8wsA9(+^_i27-7PoG%+OMU9@0OF=n^Lc(2Tq$ah}dD_g_$Pt$Ve_o
z=-U5=Djz(_ydcUYu=kPFpv3jD_~H8P{<&V0auMxmY?Rbno?ph&XOy3P#_>Y*4<#Wv
zLJjee@sX%f8*hKuLcQnx^tp%&?+)<7o{U7<Lh2{?4xk{#>bbG}R-I@-6YpeBgGNXC
z%${n*Vxy1^FNDJ(FJCy>Kbh~7UX)=}{z>ORSH{?6qlcOQ)!N=TL^}EZVLHeoRT@yo
z+mXb~{(%+YPWFdZ3-#Ah_~wm#`c8ZJSm0+A_}tml@3=#=Q2%#}L!X;AY9TPKCU1~>
z3-ghgV=k8vQ~mP6R@;LLBtpo9Q-<)L^GQVY?9`oO2*B|d(};4~t1|tVN{s|wSJKM)
zC^w&}yLed|@!77;R*h~R6KBl7KPZrok2~A~<H1wQ{iSwNZOt_fJe&BuoxcQ;3b={%
z1gYIMD(PoeVo2eIA1kHnx6nN8Cd5+(a1({U(l%6ye68|l%uG*e%6FEeG#ZwTzQ}ZN
zxj2hjv%oo`^IV|6P82R3zcMk(|5#2av^@AroC&)g$l<PIu>VZ5kpH7sxlK{260v=h
z1eqwV{g5gEAV<-ZB^T367Q47eqVB3CP+08`6=(ZJn^S7GW1RU1r8NaJPlxDxy)wy9
zLqYQ}|K(J#X$onrtS?uIQKS_$xOjE4`Ui9`r<#gmKCKRHXf*qJSMqTw?w(11gVcD7
zJk2Cicp*Dg1M!lw#-ZzzUk*vzHtn~H?S@2+UGGTj@;#G&oN2|!9Z1@5z3~7qq&&2k
zP=muZ6kyH#4jDB9$=|8)wyO#7!~ILNo+Az<z2Z=DZ<{qK58X|uQAxq^EZ9hK8h>!$
z(UX`+bI6!BoFT&wJYR;tlyJQOse;p^UIY6qg7_d3*fI>*Da_c9Rz@1JW;-pUqmEu5
zo(?$Bx7c5#%}pgJ)m$zl1%*>69s}ntF`Bg;f7ny`!0O<()ZBg4noB7Sv*MGMZzcDN
znXzASyB+Q&V>y^b1^2UHe+?W>A0wm<-w9*PJezr%9zYD62k~^RU%q-r%4LS@p%m>K
z^3esS$?W@?bp}i%3dC6$mM(-!X{bs#QsccNjRHbAAB)I5U!lc^FAZW~_Hmnf&D0t$
zd?+B&dNMw+Hg~_*lnGx$#{cZwJb3??jDBdM6ZdF$U_(Q^8Nqm)cy0Xr!N+S>Op<iV
zW$A{K)?M{7X>T-kY>QYE8xk%^_l`YE)Q^Ab&I>L9K9>qCmS~+!sm;(X*csd`CoX2J
z5SH!aXhLmKW{qtiWlqh7(TAA(i9XD-&uifyhH(<M?+QgNe<7WxLjj0I)Zm&d_t&u7
z+Zbs83Y-nxVn@A3MN>)(c~n!(C|W=B)>&*`sTV<iyUkbTb8_^zSAcyvJxV(fm{J&%
zy8_i>Y-n*f=-NAMTnwqB?J~~`$-4_=?Cv}E3O6K%W<DReV{kS+@aRxG&7AnRazCon
zEZ*uM?1ZjN^b^@wrd5ThsARlrlPl%LvyHs%wH@Ls7yI5~d=4e)ZS4}mu&D?fH|j~I
ze2Tfy4ebro@AdcZHxVW)EfCC@J9abT@mCEjR<ZwmvaqjG<@b=B(<D6%pv4a$xTmyz
zBojUo-9{ZXTZ{)q0effqa|NE|X?jR$8TP+KyWDPf8kB3w9e&fv>tOs4j{%d7NqWWv
z?3>>FE1xlIc-_j2C%v1;qn=8#^(C6IPH`mpf*^Y$#dD%os5-59hj+@=f+Ehb>NuYA
zBQWwJi#w$JK-3JkILrRlcEG)Y?-uu12i0U|Ikkpopk8jCX;!&hh=<CF@W^_tuW9ey
z4!!;CBH8{zh17;L7*jOueqR)Cr4K)BT>Y1+y$yl%QIuIcfqkt|-5Kj@nI@ScYBOPE
ziXG08tamYJvhkWHimx-qEynBfyEU?Mpr6%d`tI!~6K#Vn4gcDqyyD^R{Ntf8N6v@P
zdSk&FKgSb>>UO2)6UvzmWxnhUOYb$|)=N0h9xwQ<TLfb=iDp8jAus;p`ktGtlmK(i
z#~8L+LXSk3i}!L8l33wcrPHZ;1KMQ5tJmLKFW=BhD>4VGF{rPmos4EL#kgBMk{SF;
z0GjxPx*?l-TxE<cd>_5b@7u4X+Wl}~wjlR0Re~@bQ(aDY>t@CF7ehF6uh}{GU-#Dl
zu)wUR?1(QHL{^md?6m7<8UHmZuD|SHWZh$7n}f38T-JV@BVKrY&l|}f0xvLk)TCre
zbZe}$)P9OQmT%<9e{Ono7dTmz*&~;gsfk~`g72koQFnY|#Oo~?>@p)zeZ3I^AvT}5
zR@@to^R-prE;1;-y@P_fKxUz8_j!s0s_E@^h2z+!reXfTE!r9TlQ$o%x|MBz%USuh
z)3|chG`j>#R@x=ZL}ImB@s|KP`0QDbjN=JDb^ZE4J=zqb<fm`e;%vE11y1ti7a<Oj
z$+{e`gJ@HE0bpG`Q<q~ozN~1maabu!fmMD-?y)qKjO4F?Tx!wv)V{xVew?oz_Q5>}
z$f<rHH{4IDE%Zk)c1U3N605gBr3h8vwDd1Gwfy=MW5KuN5~Qmai?v~6@bOtd=sNv&
z;euvF58?#$hQRcyae0kZ&&pWX2u3n5rKxOS=KCXl0Uf|g7{(>FcdY3si`Ot9d*z#a
z(RUi8{Kp_{L$DKz{37QA?e-M59jyfw8UM?vhr)qkQ0RJG&}0uGA5k-r#4#l<lmLC4
z*~ywZ4TFH{jm4vIkhRptkI?bo!$Rri=NmtwZW1w9hu%%|jKdd+56>p}hln$;v$#dv
zb_tmF-y8!cimio%IdR62Gtb+cug+5`q_LP6a3EFFnf6(E+R+~d!TBN0Vg5h%(gBl^
zz5Cx%PT9ZmX<F$}E>6JVg9=4)heXOqME5(3kRLTuk{Qlb_Y8{nGN90ple_W9i>(H8
ztk2~b5ywBoxo3=GX{i4u9*5oh+|7qUEII$AY)@b_)qD>BPvNFj(rSP;xMjwABee){
zD9SwtB3h1b7?=E$#0>0xfM&NLHfFocxD$lLZ#i62c$S*>Wa1NH5%N6{09xF|WWwI^
z<XcMZ9i=%ee4>i@4%ZwlxjyHx_hj1Lg|E|NquZJ|<&k1(u!nKG@A&v0=6MVlY8)pT
zLFDZvnA?o6Xq?_tZ$G^2Iy9>tXhjYJPTbc>5r#A0xKZx6k-1xnuK#F~$=*jFyz7Y)
zPm5tFTh0F9VDjNGf(AR<$;wzm+KGTPVUVgJHkvWd0o|BynRKDqpS4UQa+a&5P)Sfs
zD_@P?QKFIon@d;wdIg;LoYvrKIQ8+POQ4#mbJ=}_m7^#GQrIN&ESQtEi)5#`j=dsU
zC0Vef@M`YtIHL+Kh~+>nH0r)52SN$bS7#*f`zy9;49{HLN%P(cR1U}y)EOfF$cfD*
z(BLoF{@bX$o)%~#jJPYvh{jA;Zc#SDLh?U#dlfpyT0J^9>1F?(nqd5j3sxaie%%2{
z-LOXLmo1r@lxKwz?Ye^&cXtKL8O`sGt4TY!B9FPqxu&(Gz`>l9P9oWgnPK}{LaGrQ
z?iubJX(8u3&%5@0uR2E{?EF%D;1yyTcHZar>=Sz-vKV+FP>Gs9qO>|=Hj!h}CKr42
zz+UGYgDvN4__$~lzD)}I^h<}i&IQaH11xb~yusD}b;~@kGLcBNGbVrrqVA=A_wMRW
zq)8bY0!HiPlpws)z*e!ra5A%)c|rxSZY$v^0O5VekZ8BYfeUE#r0Hfi%ePq*fArV-
zDiGt02FQQaPk!oB!ezq74TMUFVHbUSX^FT^!44UBn@r9RflS2@Dqp{w8gXxucpX0j
zvCO!tl}+6O0;GmT1Mh_RO)!6WsZzXBCR7LN-0xs=k!lgjv=)KHNzsgL_?V>8dA6#f
zET$Rr4&5s;t=QrxAlVGqeAyu#2TmS-kIz>~X!Im1h_2K5qDW(82<u)+r<<yU()hZe
z%>lTG)5SqPGUc+j<Wf6Q=;hC{W$yo&b_Ues`NxPf_Sw50=6dV$3;a=|L=ltS?N2(k
zo!ScDDvjmQ*MZ1DLuIoC^)(6+TbAduQf4M)vxaz~lG$V@UR5udqdgk%?jh+?7!J}C
z1w*c{H~gbLz{)@xM+q&;%S$8Q_t;TU*3)b2ETYj?MASQ64o2}b7xC3o_ukSM3_6H8
zz*W!6QWISrMmFIcdR1Go;OVTlWAwU{1VH;MM>HUd>=BOd0dcg6A~NNK#F<6AeS7P_
zBRDV*(v44qznj~l1>SFsrUm3oh`oO9Y%A!LrRxAoJN|k^K%C*PC5^{U*DeFF9;#41
zew|g3e)g{5Rhb;RADd82_gBV=Oh%3B?hU~k$!3C+fj5bki_MmmitKg*Dos3V-YD>s
zwl256jS=z=PDWM~5WnZ(vE}r*{?y(1Q1#e6$DadlTfCC5arc2$ohZcZSNVqJmLhXp
z9;Q?2e(g+0CX->$gR~zLUDgF^N54SoCm!fT-@*@U*)kMwe|RnhYJ6v8q-&7{_HL}(
zITxoYi4>AbG!-M49P&iF+^^@;X0?2GrE$QbF@4D*p6NR7?{3=0WSt~|N9MgY=H8KW
zj33aRord{cS@!KJmeXu0wd~Q%NWD-lx(pqfW}1?&?c?8t8d|u|qi#jy_p^slr5ee5
zvU3620i5b6c#8xG2gNw?b9^MW&NR@-*~(IpuzD{b4Aze@f%<2a<zGfQ<(Pa*Vb1{F
zeiy93ta#%#KDOT&jAUzT`!5m<BjE;X>LkoK7H5v+Hoi)~(un5$5}mtSarTmh4}>jd
zm~=+uliREEM})X|l2j*Oko?)nlzvlWKs=w;Of=9`6FzbNe(&_vXJjipgTB+aPkT*!
z`O)D#1L6mgVaJRb`e;GCt0*c%s6?VWiA|LPY1PrE_l1gF?_S|VkC$e`Zj2f9Qd}|P
z2f*w~nRwe4r>zqYu76kt-uZDcwP^dj3}!1$^DZ1egv|Izpyn|I+-x@|7LT>cfep2c
zN!clZBw0Rf+t+D3cIV)_FGPF!4p+KTAY`c+Aw9_2vnpw^m{(_3c5w&X>-C0J7=5G+
zL5r(29f3qJ^QahUeE-i6t}yz_C6mX*$j@{{;iJP#Huir=ZX`kUQ5@((s)Zs3Qs~>;
zek%iw)-w}VX|pOTm+zcQMj%UtgD<AOBIOU2zjJOB@2vRB<s!{5Wk4N99IPL@As-rd
z_$~(=3T|=_*(~pjV<UPSwqZxGmc6nAZps$}U8#Z~gR7uFye;o?Jd0cBnwZcFqCPFo
zAy=BbxDg2T-&HcrxCo75e-0AK@xwxrJ&qWKE~({{qvy?C@_NlvrnXGUaTqFt#0nl<
z9XG$PCo;YlOstD)c{H$jj4YL?@>EBJWkhx6`kRkU&Zl+b^B=~KDJh+J6ufr-3dW!;
z%G#Nbj9QifYKYcwRDQ3M)=Kd!SY0uPp;y`!zKp$?xltxk+0ez2#*R~Zlf<-X*AeGU
zYf<p{#tJFbi(Z?1&DR$Zs2g+xj%4s#@d%2^>gaE+AtdYOlIsgXe9A1Hw<VlyW$#3-
z%~Hr#$Z2dD7*zLsUYmi#MW%_F1nVir{fgoou)Dr-J+th<|6si1ZXUa?{zJWo&A&KP
zEAp#C)mxW%ngfziDKyr7xIy(nlaAiP7an&7DbhH$_}Q7n6D}wRWwa1q2|AQIM_mFI
zIZm2S!J~|4`1SVN>m@uz%;i^xHNLb8jSyu&7~Y;}^Y2$vFVbtr8NtC5)M*i}Z|Em*
z*rUE{u>m|1`GjVHMThlzjf`Ip=<Yw%o+8(ZFd*J7PV1HW^L{GbRD`6-06)n_uTe_V
zVDjXLhJaRCh(hYKFLHEW=1;&}EzEq3?jXiDnr74(Ec`t8f41LJ8V5LKIKISFf(^gT
z7zu#Th6cWE`1+ZK5Gm_SNl2>;=(<-$G<K^K;WX4ubyVX?Pk49o{YJ5`!MiArYH1bP
z)7aI)d|L(Wjrex2ob90U_TWb|IR(F>i~U_4ov|<GEn%26Y$PyzS!P>MVOP?c4k&Wc
z$I%^&7dmEi<0*_foP{#9lU1uq68l;s<1KXe>-N2hU-$0ox>ly#xBk9l(v0|ai$qcp
z;}{u<(m7+GkgTZQar)(3?nrzU(gI;K@|(M2fB&XLsKjX&UZ_YONw9M?ozZ1G|LgAg
zaG0S=Im*YaP2JZY5=4%~-wpJhW!D3O*Cl6P@8@>@1REXf@&q2;G&}g)l1&Gg1AK42
z4l<v;@pKw^AI9hhWW?Mi%bB9ef?E`PyWer^ERu|u&TDWjDQm@l_2#JUiC%twu(@_w
ziWAb#?Lenf6MQU`&7G=Jjq#vBp=Gfs$$KT&NYgAG^Bu{)gfa?J8z-!Q`^+hjKTA%o
zb_t9<FYfS3=BVb(O~2NUD|CkzFEhVVI>8_4hEXT;82k!tOb}<c-0<4s=lj?PSN(<K
zj3Bem=G9<e&xm)x?j)PxJYMYYR~;{GgOnVKSou9lJG$n-nqxHV6>eV|H-U26Lw}9f
zuci9Eok_lc1=M1`fAl8E1JxMDg}+pL*{c@wYMy@CN7;L>*-gGUGzw=-bFpCB<WX=|
zsTH*EVu6+7l7fVenwPa+7L^~%+}j4}m!DO1ST6WIw(o|j9Giyj#{ELmR!h0QQLw*c
zU)(lC5=B|cvV8X#C*xf@l}&@C@9p7O36pw=3jC(GF8+EpPlPOgC6d5+p)U`Er}YX)
ze0LfBIatNKg4*`>SpL+T+awrg$nYx132ni<%?KqWqq;z9wV7}iJpa6#LILy}qv^1B
zN@k!o)teForZk)Gk<uK!fDIAfC+u4J9shC((p<xN^Bm5bpecO%=Hr6rYFJ%Pp30^T
z7vz-730dUW1hbcIKdda^+Hm05)Bpwj@ExDGw_U`~*hjL7j%}K~K9zHkM@u^3nio0l
z?sQ+D6@q_Wy?T**4;w~E@+V1_@hzX>*cS_>hrA<PoDxb2IR4yU4ODOVg5nqVLZe*8
z->LT(Rt1&cz6i4Ud)9?Dp$jXD4quHw)QnJRSLAL(b{p>6l&qR|f)P@W`2LOwbGBBM
zSAW=?>B2gB06WaYR#VZob@8I)DCtT@sf#=#=Mml$HIxFrwY+A1C?YivF<lS@G?tov
zjowMgM*q<ix5VvC0V|sLi*H*&9a=b871h<rHkJA|#>6{^f+0aNL$mgprFhPBLvTuF
z1;cL5fG6$D!tYDt;%0^l%A0Fm)V#x6Y&LO`#Vu#Ys#Chp72O@pclyS&Gdjd^;qfF}
zUgO`I>h>f*k*)Vkj_l%q3cPp-2j#zt*5j@Y7E0!B6Mg6+Q>7_=sHYquCQwHGfVfh&
zX=_yF6yJRxq^I5COd*&~WQWWD_y{A<C+MYXde1}fVP75eJF$7&YrLC-75=Soly5@I
zjou${I!C?g16hkHnb9epYkowe3N-johYwfKX<yiN)?pLAN`Cm`7hUgkdz%nrG4pjW
z{3t_x<P@jacjLR*?cnmD%QPFKpZnZUKkRmLDjY|-d0*nzdQI}Ze%=?^e%SiyO7XGv
z*~oPvVzbDi%#(fHehi{oW=r<R>ct42IH%F=)3w<o40}Hr68F0o<785IC$hP5!Se^j
zOnm?+`>BpLC@d-+FW>Icw4Htp$6?Ha&UY>8`o%c^5%Zw~4JBF)Zpj>`;tKp$;Bp7C
z8Z_rs(XJ(U6@UA%Vesd+rOHY)$vHF-u^IS&Ec)28YkiixPvR#NFVi8;;#aK4L3=QM
z%oUP#{9TtTV9l%Pvq}ot1?Aekl}yqxm2sSA-~+Jtg}T6<?#77|PK~TDHq#ukh-X~<
z?Dj$Nq2kXJGsqH;H_bd(6J=qhtU~nupFYbA!OiDrwCsPBFgs8EbX~KRD*4iVJZ$ko
z4+k3f+i5<vd;Z9P5&yQ^AW=535}^U!*8r_cT4TLR87JynQ(L2vMN||+d{gfm^hDo5
zZ!EyS{ZsoOwJG{Ss9C=nDIWK@{(gbnd4?sd5!$k7Ow(}J0jn`0_#hA;;!r2+GY<)x
zAVaZOmqFJ@vi3P*pad=<&f`c@Uk=$2kE1^31@DJjJHp+?<&3&$KX<|377-}om<I%*
zO%yZK9@g_s$j2g^Kg*}<Dlu1o*B73db(gSo48A}RXj*L#IP#9f&@O;&=!5VLt3}6@
zL|`AMtwLxn;Q0qWfIGe^5@n-}T)5?2B8{8&vq{;{&HS&cz-1(#3(l72?PXTVe%7<`
z@s>Fs!GvyFPgA%>wESciNM0YXocldq+*>+q@BcOD^<)`@z<DMwt%t~V9w5OJ$I*5B
zNX`;GPDEb~4@tIcK_^_hDpweuqhy=v=-!8EAy)B{3(G1mtkEck<4(xPOz$0d?3<~B
zk51EUN89VWa%#^y{G-p$@2KM^DIk;qXlE;K>NaEALZ9Mi22K%Y^rmsLdVi#r7lrox
z)xX2gLZk~iA<s;*E@vPN?D81#UL7$mipi)af_Z0=zh8`bh0q-64t=V8X8p&OSEJ!z
zJ(c|irpa?qj|)Tk>F%TVyGQ)lE{kL!_4)*#+1_8j3c8qfRh~TjW3QxE2u*NJAQekN
zspp5olXu>QLv^*d`bgUc7TW3?P0v}O5#TMjznT?gw5>AT9oAl>Jm;A;?nMq#EI&{p
z@P^zP*XB<ra*y`y(a?(}S*0)w`z+luXz#@7Jp`((rUojYP(P01`YGa-^O;W)gcH3M
z_>c%RLA4&J(6#4KS&W{Lsu|O=f>u`bnGlK3;Ud4hfIvBW`$N^1X@Gql`goyzq>rFb
zysfQmUQ?<KBZC9i1?h|L(dQZqLoP!SBeRO5R{|B(sF|{XGgSN?ojHtY@lZ6xn^VlM
z?6LE>qSd{Ztg-h?b?kFRfAKltv`$S}1(l<wc9*T{wD-?xWDrw~u_0I-oY?X=gB~Cm
zTC?vmL0(B4OQS?+OazTX$hP1pJ{jhvFJ(&IB*E<J9NRSXt}XzC7I%CNAQC~k?aSd6
zXX&tb)iM?&2D*K9?Uv1DQ{XH7N$TcHqKKmL71vS{pDjzFj2?I<yiaNgpGJtc7josN
zcS{Kn%clW~<cCRq$ySkF+6`E$dS&2I>(x>d|M`^Um0!CgYkLb03<CqUi?)w$GMwoR
zS&L#rybU8B0dtn8y^DA+jVy}{y#iO!;Wry8YaZJ<=&;;Xb*>o7^KfwfzJgzI^wio@
z_X&V;B9=Us6ycE=oyqxdcHa2#TtnY}O(bXuv-jB~CMhQ^nm>u-U%7geizp`>WK^)*
z=<-(UnDtR-gFMAg;g0M#`0$!o&=OP#VW5T`?r(y7u7LYsA;JfLYSfK{lMWU8GsF(g
zqT$w~0pEhaivIY66H6nmaT3~=gSt5hkx*le^mI2F*%dXaHEidlkieDSQW4(YuR~Yw
zqoaRQPN4$&P{c{Y5woYeysNPP3rK(X_(i#)dhhbtLRxXRi~kCs6rYx*&?Zpdr-Lt_
za)Lnzk&aW;nvr;mN*K(E4VjifY;D{B?!+5gJ<m+;u)3;ciLz%2fZ3}#2@7}batC99
zYI$hy1^VATLN+bI5>V(-QuU^*lOgKHw_BWGPC(mz=y;rR@<gmA-Pc)H+^Y>92d$Ph
z`YP7=4DZ_vcSc7f$!*9t!4$SktsDYAXoh7HCY=;-#Ujc*x;QWq2zm>8wLI<+d;IG~
z^-yumV$+w2tAHV84aST1CKTH^rak~wvnzq6O!v?JS%&!eYqWhavFn(xs%t^N9s50j
z5+|3mjT_nYYjH(nV^@BMwL@1f^{pIvO_7JA#gQQ{2kU}}3oUC?wOfZ0)`a%q4D^rF
zF){RFpepf?c}SPks3tVL4l~8m9O}6&dI1dZ{3h4<D|Ol2HglNe96~vZj>x%!{Parc
z#;|*c|CQ!<4N^1OMsR)<jd^hHvpDWdP$&@Olu4AIkg`S0+t#2AU_-I@ID$dSGLc{<
z)&z-G@H3Np8tk7Ki4dOWZnsU7;%m}5&bBt?kkjHJSLKB^3ju$0anb}taI4d*K%~Rn
z>@{Rzf{1($_^|Q~{$VsuobL8QT<pD180C2wQe;oUmiK<|+iaFsm`=4{^se0O85xt1
zyWrzo%8(crG;z`wYw9#ioUSVMPVPFEMLuZ4GnPB^5Ql<%5qs&m63Y=C%l%w5XI>-;
zT2p7r-DRH9L&Fd8^FB(+C>t>}{p_GIVDCcf>jzD1!~_4ZDg01N8e<2{{_8p?F!OIi
zJlm|be+6BG|K6`uHtaBobtM#Gnx+BsF9LP~4HJ}xZJX0p<`Nc<Udz$DLcyGzNLQIW
zwk_8g+OIaS>XpR_z3N?aKHt$(K`VvAFu6xv-<URWf_5Ztt%qkG(?Tw1y5Rd{U+O)B
zkpgL`{A4kTdH<^T;7Ln^27BCtT%$ByB&P#og@j!rf`^H7)PI%HayG%kEnZU^=v$e`
zZTA8wJ@*)>eNMX04kuI^0JvJ`arAPS^je!_Nkjg4KY+c!2{uMcBoz@0kqw=>f)CUv
zu%VHgXnYSm@N!DF{eDSU2>=TufelHm$&hY`;(Q6S@Ut?c@hLlG=FuWij$J<gJ4h}a
zjw#y4!5>T$6R|J0^ZEJry<KBrR_=B7`3D##I?Vqj3O|m8uf%vM+jsonZham%%0Hp^
zIegHTARvb&<(O&h-eV*?^s~Vfs{Ad(g8X~8PgVSrny4l(t&>mqav2MUl^V~tB(N1=
z5F*i>C87K5f>7<v%F#mx?ol&_&HyzAtn8?9lzdQ=z>7LdXYw0v%Q(7IFgM47$6mL`
zXR`c|(oNqqRP|ol#N`Z6zF<xW5`MndceyNesf~G*s@W!*KL?`L6siqbLu|M^ED8d9
zVs2DN&T{tOHD7ZQ1yRo(Y()kD@uGS@yW|Yuo31zw>h)Gr>d7U62=Y?2DDS!1qp9c1
zU%dtPLQg24Ne~{1Ge`gF3T4l{cdwlt*?S9bIdR^Ppn_I8T-)tuvS}EKmRz0IO!Ao>
zMhH}@=>%rVI5T-x!P9gcacVtxMN|&!9kM9$LzoCmB`kit?Csu?TXO`8ljbmXa6epI
zOAxksUNI1jJy;5>>Msoa2qDmR|Jk%d>7?7uGkh7M-=Ev)FIG)?l_8gj<4x_}n7QE}
z1SjjzEH~qd^Y7h7Rfb}GcCEyQ{Cb!k{Z5E#l9`G2hCjbXpQ~kc?3%5-!-MJ-r2`}|
z>t}OTNvb_|8J(H&%dOhtE0Y;W)vkJon}8H>@Kc=I(gvg=uPIuP+Uw75r^#9m1jJl$
z(5F^#;GeA|4w4y0Y(!HtYT#w^vVpV`lOv1cKf3ME_GzB^AL%d1&Od|t*^6%Uf=3DJ
z<J(MYe$|!wi*fY7XEi(S7>x=i^6lE3@o+LOjJk?Y^Ou#HRJ*Qyc<&>WhVU?wNaRXn
zV-&n7%dv-sJW|%gdm2&R3eH7$q<nV16445mI2qHLzF}$mt5d0GQ>(&%3O3IP6G@Z1
zw(0b@{d3_g^Io{$2kVf8&)mI}M#BEUorrfYG_wpyH69~P_7Mxv#DoK56<tg6D6y#p
z)Kty#(t%cRsHmq2Melu)qE%%y(4=YSG2<*1kqx-tBSSpC)zcI31yo#cYGBXIZM8Ks
z6sqWg6ZwG^WyP!rZxOt(;AM@xV46?!Y8Cy>^-nd8>c($xtDkWOb2_Sf*=@>264Xiv
z-r33;^AUQ!F6TIew>k=wT!G`X-ZIf8VGjNDLGo=SHOwN=_Z=aqi+7bB4-HsQm6fC&
z;)=X)#cTu%G<L?jS=-t>X|7Q6sO*`({_2Z&f)Baq9FB=vT~(z71GjeiLshBR(7!Wi
z$USZyL=$ZI=ybFGNt(UulEO%#S}~sc2xNgV*LQZY&+`e|c5mSvnknEat;ushsFnPl
zLB0$In(!F=Ryb}IRcAON@@48A$;4A%cp{D8+Z+26h4~nVKr85gbVHK1?={)oMW){y
zvy)#Yk{l?@#u+#icbmaW@Ew|X5+f)?VchWxkV1uh^y!rtKixcH_0*~)aMH7!pNdz~
z_L(<E85CY@THpQGq`;;%?(G&#hSf(Y9a4lIv}mvjxGYG*Dqk&g4F+W|RWfWRUs{rg
zO@NSzYA+qRA1*==YXkqjayjw5s89`+nNM4QTESo!<-IR+0{zbWnAgmtcDJix(K9Ds
z<dW&Uz>Qtd-t0*6HB$z~nplbX%-zq7l<A~WprTipU;pgV){VCDqAX@hOg%=8TXkCH
zp!9oF6?Y@DM9QiPEDi0|L?=Ib*n4Nb;f4>pRj$Wc!BaIZn4a%++{jV;bGyhqd#1}z
zYQL%8oZAweOLcUq3r3?8cj#kqBCsz=!=QL|5X(4&9VZ?sj%wmVnI<qtP(>HlDa8!A
zRwpeh;6Uj^CvbESUvWS;sAiya(rKI_sXr97=XW=J7Gr8(AD=Mxwg9tneWf+Qg{$9O
zgMgSm?kh&#JbnOKLE)`+6r4~-uXgSk<j^!fY+QpbeB@#r{;rtZW`6&LITAgpiNvl?
zZGjv|_1j)Gy5O$`InvJZ+f67*B3B!2Ky?zt4I)tfMH(n(08%1G9<O;yiN^||MKxm~
z*W9+w>8~j+HtI8cc}RO)TbNIks8iuCXtR-2KSM585bFIh#WiQDFe+}b2^N94L@H;D
zv7m2`<LpqdS>t6x`%qPyhj6HU;2)^O{MF<D+GUd;wl%e8V|)bg(9AwvyX4um%79c>
z6gMp?{O0=2cT$>HPAQtc7QMw?_f|h*{q>`uEOTxB&B{syvG_((ZfxA*r-Z(V*^MQ)
zZo|hMs3z(8&X${U&lh$wqa-hM=LH7Z9E)PmMxrk`&g;-vf2Ra>9IPGI#<xnUFFaBI
z_3@w}=BnS3`g>*I-bY}^r1kqft-{S@<Ni+pojo?@{tDSn$&<aq2%^6<p*z`nbT)x;
zrNF!n4r;d;O6fUIbJ}g0p~G4-foiX;;%K4L=}>m>uVWojUcb{fN%L3C)kbDqAbd7I
zOBC9(W;#^Kb}Ou!qR%_aNaY?e+#W|a!>-BU3sC|nvV8uER<6`<43E_h;PN^R@d7vm
zjq$7|vYT3(KTI907`EP`%Viiw#Fg2KcJkWj^s~0kL7nZlG`R20GbSRnekC()H0No~
zyzX4`#1oj`Tq_Ni1kqwj3RiDpj}RkA_eL6e%*cF2@hssOm+w8C9bWV_r$$eYYJ;SP
zGwX4(p!H}DT_G}?qx(XsSnar=G!^#IiA#eN_i1GSgB@CP>B;`AC3h3A9pT<30`S5+
z(4WqTbf}U#VL1N8B&H;lW}Gtl-W^cFdV3;(^Incbw^Wm*_eAync&A6=dI>g*M&Q1z
zuyd$?uloRT*As^0AaXxkR$;LpU(ZPOzvZy>zZx}ksJEn+p<+6q!;#%oq>hIs?p@2Q
zjxlJX{h6tPo%o*DISkbmc#!T3Km530X{;=z!EW^szLigox{7)|@{n^{a^uIk<gscZ
ztkiH^_~mp<8x#<d`R7^j?I*dFNHPbC1FVRE;qm#AMUICfEm(DB5UfeuA1MCra>{EJ
z-~1cjrV=(<P+1AI#}G%=NWir@QMhrt|5HWcr!GcC+7Ejv4h7WY-&0cqHRtyj9=kjx
zFeJRYBABsLA{*u#BSl#h?to0|n(R!UtTJIztM16sN9{ju$fn(G8z__~aCr|82eCU8
z@W&ohC~PQZlXhYIu}IAoBioH^Q7QdBgCgI>9?9U&3}^(ABVywN>*2~pZPlw9qEo7m
zM*H>q_wI)4lx62agy>B+p`87`#dREMz_~;|>v}DIT@Luj*3$7=<D=2|@0+nZ3R1HE
z7r})w5^q&RvA-=g*Tg?M7|EXI{~bO5#<KsMo$pAN7M&lFmy3>!NNxP2=n1R&UW@q=
zFaASIu$se$t5k5S63G}{<(z&~TF3b@7eDF-yByge8O{_67{~IARk#jUH^+PNMAc%B
zt=fys@&)Wy?WSi0N+Yf}F+*fgWU%ok7O48h4J%f$P8kc2I?}OzM|WGk5()97cHAg8
zeTu$$vOAu^Wk|>N+E3mUqHYi<6ooL1n`UK#9NL2kZ(%+#vq}F+YDpA4vF{Vd7Cpvu
zfRc;vBEz9U60$$$yfKqaPD>RMC@S+3*xVW4#(Z`?lK+@lRauF0gUMHPT+Nt#k*i5y
z{7iJ=XDO~#w?IUPRy_HFtoF+>tEeAEq$?GaLWEU#A!?e~FD|9As{|W)h)_Az+*VdI
zzgQ1M?p*UBvYPSL7iRV%zTsp-c#N+S%l&7(#g+a*8*oY$NPePOQh%cLk$(G8L@p2l
z^;S;$N+Tdmh?6axo~ym4yFq{)?A(G_rh@0QvplUgz8%8sY9-+bB>i1v^NBha%YLn_
zB8IlwunwvO|6y~a`pp{L+Qfp;kxdv>;ueu(p&X|g!ib6r=JmXNJ0Ob|WT!_b<T$%%
zjMjuJ|EhK2eAYht-Cp|amw}5#z=2uOm3TVtf#e)kcEbvsU0mh)o>NGZXL@cUqX8n}
zQe42^#A|>C^xOh-U7GbXt^3Me4-SJJ4DHhJ{4?nt;+S8Dv@mq;qrn{6`{K**SIl0*
zg&9WCZZwz?EVh;nsQC!nOpNW3?C5F8$v0y}ya@>*)db9I$dzY~GUNU3BP++xazcMk
zEg)QjOD2i4^rhf9k+HBEI|&Q*`M<HNdmNgms-(b<GXpfEDNo5F=v+fQmcM$1@lN4p
z*k&KzPrE411C(&yFPS*3(r)F9g%dxVb2`1{snC4Y<qE09fhfe`-0gSiB&8(TR%fr-
zc!=O2Fg;VD@m#i}{Oo}SVHIEbE8=-h?pbYBO?uUz5SoK`Q_XCzC<U5mv3EuLe2-kS
zg`Ze?e|%BxX3T>Y;`lB-C7*_YNyZ<spZ(GO*|t3NU5dx__0Qb_dKD<9grWXq2~Cs6
z;evuC3SNN;<T~?9jjiNVHKJ&VV={NsHJ3v(^SQ6N^JnFL<A?>7d=&UQ+pkMyDFekg
zs)mgLCp8>bCbWi%n3JdWEacBWuEbTwsH2B(gCs+g=c%9)u??C%MB+eTAN6R;-fIpm
z7THI4YJR*mjng{C9)0(Nt^N!boh5W4sl2#KLY1Z2iFr&uH~YoF=FZL)`r99+Li<&0
zPR|D{mu>=znc@Y35+!c8^HZpJ;g{$kFtE^Vde_{*Jv+bV*3;84qKGK71!T^Gu@E6Z
zRQI``X)o{anZ&8d;|khXg-pbQ%HK3P%&bNW$5gG-QHh~_-4XteG@<mpprOKBX+0TK
z4zz>ao$R=@S8vpvM}))|5ET>A1$mCICO?|79M_;o^^UnT@k>X|NrCT&#P$CaV#0jw
zciOBALVj*~GMzmi$NvND+eE})^%FBTr{_N|sz=N;zc8cjNcm<bx`$S23X1C79dUx;
zEi4d3nA>t{4h3U`I8y4n%;6aMKPGhyvD+kC>Dan9i}<aM=ht|x@(+x=zG!s!T_tv4
zO47bA%F%~3iVr4FLxAF_;0B_I&6XdSCIadvjI{50b4g0DqmJQfjDuX>=y5vQ6hjZ(
z=_b?@Zc{;*A6F@1<-N688w-$lO%nfR;Zlg+n`2r3RXU#_ZGCoa^XPE~3EwvpMF|ks
z;xzP5WO1NF*v9z*)Q{KpX0Fiqz>I<x`IVkDud{HK)pz2Iu_zUZ{u_M!)9V-Tp!Bi+
z^Fn;4ydEl;Qdn;SrG9PeK6o)(>o;4rdljvv0&b0yDp?=zQUD)ko(PXfwwyR97|Vq*
z%e;spJeu(huZ=9u+uKbk)VV<UiYSs$sKndSer+7Z!IwxcS&>ES9Hg|&zQk}<N4qFW
z^;(RFZD>#}{uRr)be+uH)a{<P%9=!}fNA9)esc7K08AJmj>np}c%kbWq*V=D!?Lsy
zX*eAb7}(#UHBdhtS<Qx5p_<skalc%h4tIT23o&r;S}lG}FXC>Wv!=_8y>_X@3Z+`*
z!aL284>Bm|14{Bs_!^QbJd)9&B0?eqnTy{p@dXi-mUMM@TrJGz%b#^ca55#*F18iL
zjFZdzI?xsPQJE0rp=L?=28LCd`yHzfQW2k13Nq(5?dBxJ<N2z6fT(HdE0y;(m0o?s
zm+zulT5?1MqY^-w@kiZF&dy=46Rm|)S!dLf#_p~DK0>=yzPAg-711do#c?YL)Vj^_
z9ZCkU*W#9#q{Q0_n@VC~_Fjy&`WsOj3p9~1V`}PB=akb457AR#^_}Tzim!AjTX0Lz
z>kKkCXhO+9%^9Cyo`)@{PqvKzHMYs401D>%Jx+__;JB_72EYCJ^G|L3?Rbq}B5vY`
z{9N<zIv}-+$jNkpA4+c$`#!L_9*wBHw*B%KzqVF-W<J~9tq~N}<n!73k<95Lhcw~g
zQ#<iTaxj%|T?9+<cx2uS03}X1E)LoqibfWIX4A#d^udt&xcru@^!rAC%$xnouk7Md
zre(p-Lxp{LLstg7JCg#LVtbz}r%?gx&bi&(9&o&>sE@aS4KD#NcYnoQp37t{C)#`o
zepf_GA!+*oa~zf$$RO4Y<K{{L1MMP@PWAK~4aqeuy@qA!RirN1(%y)Jkb@pS8cs<-
z-cd@-b!Sd|0!+Aai3@RyDV{=yU2&x?0N-9Um1f8Df&mv~nYux9{#G_dw1MlXj|CV2
zn*1Je*?+}$h}u$&X+DLP!qk5Sp@{0ysiH%)OF?CHM3DxfS|_N%hUMU$=u-*p6O>%b
zn3^#CuW}br&nTBuWQWAmgY&<}>;(S1hfMmX>cFQuKv8SGcj1>I2ndnZ4%o#|)|7Eg
z|3?KuR7C8Wz+jdre&G6T1Nl=I1m#=F6-E;kO+=3Qzfwfw8AFnr#3Dpl0|3~^&x-_b
zlQQySzxMxbx`rq;*=0hc^1(`OxE9YFXP=(SPP~*qi0GdFbsTN{-gw7!ESj-j=6XDE
zdLBMRNg_Jv+ttJx*KU7GnQ2g92K#=|hFg9x*g@Dm>QG%P@V04(C3=&RWoXFF@%o9`
zD4`G{Q$!(g8OZ7(Z&3Kxa7arkaZWvXFta{f7*FRodfY)%Ty1AHddrw(sMFS2sWrks
zsbPL#r)<D=!6SD6A;|BgtMzKW$e--vmYdV68_M~cHou*^8;Vxq#oIqsUx%0G`4ALk
zpC2!_uOuOgK(lhgOuzVc$+R&708;WB!_fk_27ZpV&>rPM=5LUF7X#N)WJV$vj^K-~
zn>%fTYyVircS$?RMAY6Y)V5JQ?g~ART9jKMG8%?!aODGBAVSB6pY$Ju5q5I|3ot=c
znRjKrL{OA^`A#KkrYw8Xy!WF)J`jJlFnp#Px!_|BUMLsPF%fY0?;hY9M@$KvS{@E+
z-BX852=(XVg)nm(L^nr9(WDF!aapjHA=4rsxMs)|FV{zT%uCo6O2Ai7U7UncK~ILq
zKfw1B{E2V_#9dnz>Rbtmda9Iy>2q~q2U;{?{KI`EVNe)uZImY}7~nRTjhP?cfY7uQ
zE!q%ObdR#SfCsBlQKV=v94)aI9yhS=)1ECHa7B$M!{n4|itH6sMj%c+=?Nh<AVI4t
zP`&0Ve#zGoar$C|9r>pf7u9@ec3PD$B3tTPZixbg;R7NSPB9%(|0_{ITM#+Tam=xp
zzab~eFt9UsP+if<gk4l6?U0)+)q32qIW5DucHpH#OUyw*salpb9yPwVRNv<4;!yQ$
z+1sATbTI-1Xp_;9<kw{Xkd7$Drp>Dw27Pq7MdWVkShNfuvuhcw@(LXP*zkwGzkM&X
zno%2k4ZD)k+Bl!<&?2tvtCjlIbbzr?_@^9ru^)B+_@T2(DMvFa5`cG{c1V9kA;;^s
z=M(a`2~idvRHbW=7l}~4_#~qtRbnkG1YN&>og^xd1pFa))1^9SpGG0oz2Vq|rLZ$f
zl`OBkT@bE2;QGl*i@%IM|K4=o@`U*)?#I!lr*QT6Pj%@wgwmD>4Nfqnlj{jeB4Qhq
z+WflPQv(XMP{w;nyESwAHv_a%bZLiN5y$vu^{icJQ$9bqK7GEy_JcANwAq@upB9Mp
z4SgTkx#w0K0Dy)H_3pLV*yhOKpOYK^6l$y9<*S_M>nJ~+O)PTbBN`iZC@uFzoDY9i
zd!AP0FEqSB_#@<|K^jqd2|&%0aI-g?J0o--P$iiaH(O~i(y-l^`bF>i(Cy&+HWG0p
z8zr9q6}6r*hp6O65T#9cnnpk<TjXoHGs;AjAaeKSw|^8Gq?>IzWqzFzJ810aZWE{I
z>^R{H+o$LLZy1&=3LnDzRmEEx-pFQo8fEONtst{;IqE%@eoxuQd^H-C73kqs?S9Cx
zTXgvp^qGMVH|}5ao%0?Ml|2c_Id3uxl+Aa?W^&$lazLE$?XHhmpShCsc2?3<=)Y%N
z_&4Yz4A>jbi*U)8p}62#kNk`NnRqcOhPk6aM`&5q_co!LD)r3SJD&t(9t4S#unMXl
zHVAKohU)n~)5|VUaVys@E2tV0-fJJOY7d{T;~Z_KT0579?ZnWa20^$U5wBN>U<81$
z+$k^QVTTl2xij+U4xP#Q8`%-H39~n2b<z|T#PeDV!ME0@nF^;bw(H0capm=~5uve!
zTpGe6w)j9DS!_LGNt^Ufq=anFJhrFyA7l>=-IZxy4&fYHz+Cmx<>=ZF+#!CXl;n-2
zTfdC?lx1g*=kY$Z7QiBfUb$2%{~=V?)q(yJnrwA(i7Q9wx;a7d=-cmKr1Sr8V32^9
z@wxA{d$Z^S;dDg$kh_LG+f}j@QAk~-L>6D>{M`!QDa66qP~&4`+(M2WMZ1^I+vi7!
zcd{p{6X5#vHG;_#-DxaO4D7$x#p%6PrF+>b6UqH0a|BT!t;tso+*N<AJoS$%tDtRb
zBus>pMt)McDlns@S7-mf&6&2*W_i8@sKR1UaJ;pQqfRhc=&NR*qGru>(|>L*_nbfe
zy|c$f?7D1~p!Iv7&4<*^1+#bmo@u^AK3pcxrrrEjSn}mPUaxc9Lj!lN-*r3PW66iP
zT_^gb&wp4exBT6|{+-LJcGdVLl?z?0HF*1NA+T%#S=DsG=|@Mi{pJ7rLJh;i_oN)F
zyT7aT^os{=H+E<pIVSx$|GlI5TSX7AXGi;fM~Qq_J^yM?W9=O2-+TY+SylNJ*%!U}
zeL=Q!N+8HA37uVLXVO<K?f=WX*voUx$-v&yDk0S`kv7i{ZR2_)cYCsDW8{lAcd*3=
zF1RMX3ly1m<!;X1AmHAslx1EAt_j9vKe~Io*7Mh^wd}X8O&hgA*%f4R;18j-FM<85
z5T0lA-nqLRbA57FFSqD|N^RKt*DI0(ErJ(5>t6RB8V>=%B4vV+(X*ycIZ@g0d#3BH
zJD0@P-(HgP>i!<Hci#$Qo*&vQ5!3$yYBX>_YG)U3xRckly|N`c#d6R8W%2i1BhaMO
z=b!WK+vNSac0!T63sfEy*ZOU5oEMzO<XQqs%0Lj`%_|thuG_khLqt$ah;et()|ES1
z6|W2Hg|c{6|MPE6c=sXl?y83UW^cJ(PGS10F(u>v4)OQ1uWf$I0@8j2xan$*c2=jd
zD97?$whm!6d}mLqeO3M&8N@ZmJ$ZkA?A+>nm6|0TzJ>fsdB=JCGr!8%teZaNd8O+7
zM|Mwlo|q>6w65dkF<ZT_`|LV@Y!Z3xuJ<N~S@0ZitqizL1hQig0KOmfjBE^=%bo8Z
SR-5Y%a*(I1pUXO@geCyZ0QsQ+

diff --git a/inst/report/ccd_gray.png b/inst/report/ccd_gray.png
index 88accf62c8a84a7ee761e88b859c3a259a6ea36c..d29469351665ff315b6b3aa0688a00a0d15e9c25 100644
GIT binary patch
literal 40940
zcmaI8Wk8f$_dYx`4BZ0KE#2KPlF}gEAf-}6Bi#rBN_UB%AT83}9nuZb-J#TbbIy5w
z$MgU2>NnZ$d#|-uUhCR~tEtFgqLHA1Kp;%{XVT9>AOu4Y2uzBC1pLboLx>OvL<N$U
zeyZsK-pfGuAe~6K8W!V;W&MRK@uKAe4$4YQaGT^C<hdA&ZtB(==#JYQFRzdK@9eYk
zo4JFk^NaF&yXranEf%{Z7|E9QdO5wSTq6G5h@_(8o5V*HA)tUz=ubgkdFR9X`Up!4
zy{f#F(U(ssj}eFGYcJEC{oHK_Q@jppL1)wuX{t>qBmm|*l<)yU1B1Q=;Zi}Q{ZVkh
zbGWcMJ!vG|0GcOiMmo0>Fsf{Pv#BqNfBo=(E5~rC!fZ$cUBXe4Wne3PS_ugWhn$KO
zy}-T?d;GnO5d*RYC+HH4NkCM}t}ngDfC*|bsk1XJ+ke>pV;L1h80ABI9s&s;HDm@y
z?S;a(qW5GRL;2(rbpP4S`(d{`qUYFqDzJe3nsAJsm5OWK7@t43;!FVv8PX%rIZ9Kd
zz~tnRAwjZwT`^g;mi>tlYr8H=e~3w=HV^GtVLmv{TU<|RSx+)yxBg!Ei5TVWcZTsF
ztU8(9!Q*)U$N?y(MFIG@o_w0ipg4rNW6FU}_y8`<=qL+8x_$ERAzN6fU|3VEL>4<Q
z?ob%}%7cklAEW4Z^9==J{i|OZPIN$AK6Ip%x@1a7nt%iQdJBibB)ghnvbRe2AHq;U
zI+gv&N`6w9>=;p?rn~%*7l*pgr}_JL?@yPnR<3ai)BpQv5H6$fgMJRDpAVlXw{SV$
zYPY4w{&=L29^?O1BK-eumqu;vLF^N7{=xct5SnP!y>=mLWi(3yO2!}JX1_%JA~VOc
zLxkHy8(`E}zvJKf(}f;|o>9Y0m{U{sUo`?o0^>215&SZqcY_D_&$T3B8N!4@@Fv}q
zHImqI|5czr3O*;;sRqsCsK<pA&vbjrLH-@?sFs$NYg1G)!`L6{fkBmMU|31=RPq?O
z&*=The0nzvx(hY(I*1F@w$lI4xTqj9&j9VvkZJBb_eBkEUvUPn1aB8DN5-}DkyF+E
z=Zw@aES(sPC$8<{P~LpLVGB&OPaVWOPe1Pdp>0OUgZf&jo)hlLfN-r{YCtRF#Rk<w
z-;>rYF#qQp4|eT811OL?jj=av0@_u9&E5|UtpB0>%`nCPqwt^mnLg}yv>da2LCg8s
zYH0nfZfdwCjqJ6fWn1{p|6Bwxt?Un|AKJBga^<S#qW#CV(}mLE1FyC6ltQXVVcc*3
zke42hDy-ik`-#099u5_^TaAA^BB;emfNMwWkK;w80UppP)-*1Hj%vF*r%eY-Pbyak
z?jv6id2DT%#r)_$S3>r1CH6f%ruC1G;Ho?jt8<ZcxX?=p_IfPF8JT~t8H|TwaSneO
zDE{avG$Ij%$9f8H<3dAYj4vpAd58j-2_VNmeh=zd`B?9dk}U1dGM`k;2oAKWsR)rh
z|I-3t4;Gl+N~5u_nC+~yNdq-ZE)MB&+@35p5SyvW{r$hK{xXV?r@$?@5iwN!*no=C
zWfrxgt{O?I8ReCr+bxQ5zyCu&(l7=<9GAdcE5Q5x3%~p(V+X;c(O8s1<^OamMw*9<
z88v;bb0U?Un=5rk!8Y~PNS)C!)Yxr2`j7qG7yvU|kbArLO)LNiAVyG-mM7+Vi>24^
zKW-1OYii)D5pcBv#mPr%h7kvF$yZE}Oqa{(`b|9>zE`yWrx`$;vOwT=wAJXzWt9EP
z_b!(d5T9?b=ib&l&lwT=Lx&Omz%m)mx8or<xYG@9oSBgA1-C=+GD0oa-a}sf$Lo_L
zfTbESIZiYmzyWm{JBhT}JVAwHI!}T4>?!Gz@P|Bz@_;4-$@sZv*`Wg{4DmiIElb2G
zQ2hF{cYFWdA8<;}FksIO_!FjY@gTe|z*AjNwwOek_R{qtV(OItwTgg`bbw=xVzIfh
zPC?zy4+^D16$gH-;$SJHn>|*FmHKxjI1R`b{qzV=t?((pNgMiR`4eawFUgZqVDgXu
zklPmKPsUD)0ZCCyhC<P#t{w6&QmJXfSP0Pm6P#Ke9A+8e*~aF35W)tJ-gQc=DLlHD
zTb}HXz23qofMp4CSD)(OsC#>hZ?LGwQ|1xq)kav8de#23^yEP?-ai-?5EWZioOsvU
zJSK8t+Y`{sp2Yp3zBfQr(#dRzn{A`dM(G?sH$WwkMCsE^{(r(N^uf3TpMGN3Riwf}
z5v*N4uN{f-CtR0g@BJfFfN*=T0kb)2&!~LN84$4(VF`qXICiRm{rQPnMurM`#y>^z
zUk5g=AQNI@b%7KXZahinY|U%adb(Tlh;xhKkA-OIz{Meo`&%@fL-FYZcB>zWt)MZ4
zv4Deo|M2_l|I?p=qN%}B6*Jb&jp1vVfOtXLB!7ASKlWpN0(d}3nY`8t9z3WX73}=m
zt34*G-mD!-XJzao1<s$bWbLdq=IBwt3)&X{b&LCA3l)?t!v>GzH@%ksPufj>P|$!Q
z?blOjnE#PM4v7)I_De+TA5Z@^mjFW`)Uiwj%lnSvOqZK?ze4dyB_NlC0d|G>@;?j7
z9u{`{%X=T=z!PenQn7p?OyGDya|n*`AEgM)>=9MiSI+LJq9J53(xi|f%4et>^!4ee
z@(=lczY3-?r2y_^z+65yA{nS2!fuT8>@5jx4EcEbE$QGt{)mSGWPm-hAgjq+9OKrE
z`)!Ay=-OEhCkMr}|Nks(A<`#Qx#AaBNI&LB7pD0)F2J5X9FHn2DzYlo|0AQ&k{`==
z)xdD{Zb@Pdj?q5@!&_JY@Zqm8q=<n5$^alec|!4$^zFb9ZC+kp)+&9D?f--u&i4<F
zT>eB}Mj^ZMql*wk`1FSuB4ZIJ$Fe-rANM=}B*-KoGI<4DJkyqwa$gn|P0pv`JP}um
zA4~qt;hn00oBX6S-^qCjA$zk3MAy_6Zb9$yKXdY%hlpT&9OqPzH{IlOjfzsES(-uS
zApyU7w|GHiy1g-&rs!JzIrKjv{*V6zPpZ`+sw^jkie~E|(J+5^{Z6=Jr@H^2^58@f
zILFNi!#+PlOLFVE0VI&@my~Rs-t*^@;XIL`PgQ?x-a`xKdtWEdhg&8F9;(59dhZn;
z6A(kCQ&T@~&dB_MjD2p2$%5(+Rs6skxqp&kOp)*?;3IWevCZ5JipR%AEXQSzV*T$s
zwPAjjM;a|=E&gOqHD_(PZhwA?=fR;xL7x_zprY*W%lCpIbry%h!oq@7H%}c@^Twto
zCiqMoyk5)wX>uPVfNZq>UhGws5ICR6u(^{edFx~TD{T7c^BYYu=KbzGWU}vnnsVkt
zRNDkoonJgDb6k~0-fU>~cYSeG-1_WeBg_oQVxXsHA*jh`e}*nZX+UET5?1aBVF&|<
z=o?}hl3thN?#anXfk%(uQxNm5!I`pwZT;o{Qz`ymo-U?ccB;iFUi!gnCz`IN-{^V1
zGbMOLh<Uc0K~7E{uQd*Wy;k^FssQf?@1Pu)|GbaNX=Zz?&H6ZP86M?2-NTwxzo_FE
zz26!W@Q3E8Ab2Pvq^GEYThiD8FskK}!otER;aolymq|vhJo@}DQN|IvWOzg}oH?S6
zw*-?Vg1ha7Eff^WrzJ7~y}mX;aJV%h9l2XvTof;qYo4*=U#KsLMUXJLyfYvRy*!+|
zuh*<k?xKJq&T91Yh;63#m$gY)>MyaMuX)ylpc76;MU1W*+Uw*!9%If}PR}h!Ra}Xn
z?J~!D;|K4Oi%;fmBM|?{WhYInwMa4<iY=IOdg##fYa`&|;)1&VtXIXYCuR5@d-E2C
z$c#nDV;PN_{8#E>?YI+$`n;ZkB#8d4fTEw$Iu)=1b~cH#wYMkQ)KJmTiDoAk8huk`
zXF2yxdy9r#x&;L=pvaLl89M>n>1E;FqHm9bNEZYA6$#WHI}H(n+L%y0(xr3SruRQZ
zlYirag}<P4gclit5&glMNjeDe2-2Q34&WAavR}sZ)88N+#$3#I!o0j^UlOnlPG4{Q
ziplxt?t%C=^L%#-`*YR%*P~(S5j@`oSDo`YQwok4hy}{ZUQpq{6Uj}gG-b|h$B$er
zJdmhZA5m@4nzDh)I&O2mbdPj(Q-U=`-Ap=$wLsfjT^U9U{>Y-o#^aL{lAk!7g3<3F
zoF3XQe+p?H&5Xv3Hb;_?|8h1kn8QV{w_(xR%y3_Hv`@O0Hz2l*<vPi9)T;aWgGMZd
z2-%ki2aC459n!Ich*!#OdY#f`Odc|-gL7OfVB&YG=QN~D0(v9`b-`g|ViAg?t~Zh!
zD@xO>VHSsg*5H=P(ImRcrhBN<ufKm9-hk=~k{Q!zIx>L_Lm?b1EyJ+%tzfEDvX}@p
zRL~~%@|z#H<|lsap!e;$GQVm3a1C$NIggLt61_3iS}l}7@b5vC3t<YKbl@`GZbMy}
zNHV@1V|u3&<FHHaxo6d48z)FhhLwei#=6>*#ASLY-9oo|tKg)yYX0T(x9z!jS}9`f
zH_>Mk>)q>4y?!*~q_gk*{UTnKOMDD$L^ct*>b|&eV{0U0W_t!fVTMeCV3^D0&Dg7#
zNodQ#<{Uh)cVEkVVmLvg675I4M>pRa_70YC+8W7W=)q;_iDAh7tByugrQ$+XKO)b;
zBBG@dnABQ$jSi^-AxMBUiQ|&zCeu%YFs3P#U*?$c&o9hQ*G;iT<ur{rqtvLCHmt;~
zIG4Vx`&sU?PwRtQ3qC>IF0oXjk8T@HW!WwD<_W6H*WLy!w7jU$R_5jobcBE)WMjEG
zj63v(()`%VLdV(sbk&W2@~xedEps7@F&B+Ff8~0*jsFoZ$`u>l-d(^-K+{+K5>GS!
zvy9)*phZtc2zFk>g)_tww<25R8jKI`bw9p~#{nZiUxxOB8YCU+9)c`I_2xogxQ#`!
zDfKxr*IoWK3BkBcUp9uMPYy!}{Q<FM?q$hq!}GU`P4o4q#>6xQb2AVya>>iO7kyz~
z;Gfh;N~P_chHb96AeZfZ6aM``vDQxJLL0$N8=T`C+u7M{dm)+<h`$!IMl;?Hx)?S@
z*nD*Qo?P7H3Y>ad(TbvH+cu4H``nc3-luY2gZ<vVAp+7a`8GqeuRb+36-(dtalzl2
zH9!xjQA_kVdwPxHv1Ih*XOPu9FKL!jPG&uHRh&8@BGDp|XsoV5*DNuaJ?Q@MFr?Z1
z{NMST-?kMj<@0hvnk3&YjD-kyy(mW}FI<hAnT|J1I`+^t8zL)FV|0mC>$oP6`2_-{
zv$>{G2&c|dzl&Z~;SCxV&KMe=9G_^QIKW)u;udzg*5rwKoFeo3L<s~|g(BGyo7<$k
zJAP)eb_ps|M%WinK35)In-P7k`gc^8kpvD+L)^1nhpX!0xTt5Nnd6(xwejv+cZ`qm
z%m(E%q@|fL`^LFOU>+S}FE;CUR-*LC0R?|hmQ1Z{taM3%io7)@jO=$Jyi<lTf(Fkz
z`8O&Q(w9CfRLoo`0FsP@MD)HpRpOf}<AjP*5P6q$Xr0sory2gi<+tBCWp7aLX4h=C
z@+8|7m8yd<uWzYT5nru|=@64z+Mnlc*VbenpB2jePa)wX=|2fyhkg|c?i(-4L>tEZ
z@)I*$De$6fz>`JrNJ^<JE4pn9TZg}BK5Hm2IvT6!a*7hxvg0zv!$e9>CRUr5XSw9!
zD&><C<muY;-R4gAetvt++OxR6zFwB`ClbNLF4)XCe?OvvA`A?wQI^_IluVn+<}(y(
zrnPj+6jOhDce5>**|gb3>JUGtKN5z56TpNrLQ=xiqIO(FuQu*bVZGbqcIldhyMwu)
zudR3Sv9Qo2ZGR}S0sB)>JJEGTkkH-a!j#YTg2+MUnyI1huXXOZOnd8h=y&5vLzBsD
zbpo(Nn<-&;S9WeEhyJo3Y7Q?EoXe9mwQjqL+^eE76^N<46~OD;a8(ZjP9k0(`q7?b
z^|^*eA2{e6vEcKyXAOC!vYs?chX=cp%|kq;M%3$nXVVYZ55+`~XS9og9Lo>VUv#T`
zOcpg1xbN*u<7j<C7$1W(&=_|OBNX$qv#!)zb%i~K>KM?{Pn4?L>FDZ=?2U$CoJ68R
z6$~e*3aabI7FVyJqE)>U@m529=#kV0#fe{<(a(eH>gwy)Cs6<l(GhY?$c-YvHIx~C
zChIE|Ewn)N&p}XuRK}fSaVpF``m~0@JI$qX4RSPoTVZS8biU!}vEP@-lJ!ihh_UNp
z=_i_MJpe*cVDd^~B_WXO?RUEli(QftF5=zcCN3MREz|mklNV~R<(^tV-quJuGBqbe
zPYoSpINfvn#t9G%xLVRhno{T%{Xw|Bi{{$<z5D^({0ofukO-n1eD*Gn6Ad8%rg!c*
zArJ(~vThNTjTOU}eXm>*+xjWx%R><@xS6yw)YDDvc2=BAyf4Cy(T<%USzt)`(E*cA
zQkKUsjo*$r#l5c~O|6rI%ap*yZ>!$#)9Sj5P?}_8&ONb*^D>K_on7f}oOE$Se9OAZ
zXCC|m%*)8=XkSaqvA!mneFoQee|M5DkFtr`GnP*lidcS}FV3#oWU1q?v*42?F1$pc
zrXQ4kBbq5IMV*Y&Y-3|15*tqEwEBX*rYR~_sH0}tec%(rG^wFaUz<kebFK3w+_D$>
zzg>JhA>2Xa+&3>}Tss#J#1;hHU0g=`3%6qi>%K;o%O>?tkZwoq#d}Q;3WLVY9sn#5
zZgT7cXz;Oo6R}oTWFBvET{EK@5-jYc|H|QObc3tK4-7)V$l@i1%?@R`r<}*jE>mMh
zt1TwPQBnNANpB>cxf><+T2RF_^@uTRRJWF&U1@0LIr%{QfY9aESbFz<VPS!A2k&Wd
zL@FpKf%(h(kjvnEFQC&b{CL3P`VYjy{m@R!CZCwd=d->)lNK-aKY>bFy>wo@xuo}d
z3}05Q`u@E!^);BAH=a|9bd-KDHE-vc(6Af%)Gb07(&EfdhhKIP>BnQwo}8@oo%At)
zmv@dOg?muJ79Lp6<;a#@b%SXFNgL9rsBDHnrq!5^vOid4@#8?RrnUH|rAh{%C3YUh
z4c$<s)rDmn6ofXvz9+6i+B)MuV^*JZKReJt0$K0w3nDMxw;*7PrYn0v2c}mZQTd(?
zXbfNF>x(?OG>bJ;%5LLe^yW-c=hPNxQfF^dJ|!Hu=NWV(HrFdEUgyU;x#a#qh<f+{
z*}m9kIRD2G@&RyZ>dgDZmv0`=SVvF$SF$1H2Y2&`77#dY%AuBJKGdojhjV;%6t^E~
zc=7XvI1)%|?E6Z(4Hw%5s!8La#*~Sl53kXJ8sqpw2qNOtO*s%w(1U@@Vt%Um&NY6%
z?suY}g+zV&c!c7yuzt`T6thgYMZwh2O8f4w8bTIzq&+}AQ0O%!3Uq#@>4<}<Vh)@w
zD)-tdZF-Bew0Sgb_LU}PC|)4{8)e<X*m&n{7%KH${Bu#?J|T%dVh0=J#hbX}wogGo
z!5(iTJraJ|x%832D7Re{2c`xXLSlOO;za$sN$m|Y6f{_#f!4$!U_4UW{Kg!h>t5-<
z4RHiOUI2G+nz6MRo*c8;dF|WnufEqDo-MT5Y~$cS`HY~~pD!=b(pkJCj6Q_PYFgY!
zH^(0VL(kk<>h!|Jsmfu=S90)}54TqK$$~3$KV^VNzVJ#cD&NcYwHwT!1wM{a)>3a?
zK*i?nQoZ7TfAk-Ci&t4e$6d#nIR2IbJj|!eh#G;n?0wSJu>$u1@VhUhxM4oUQN?x7
z8$S1I5)DfW^3E=Qy}aehP&V>0B23bZzrn@jP;}4evxR|jqHCu!)f~1~`O89;%BaE6
zBCDQ*MABG?`I=EPDZJh%|9m(Ga69@oUgknz7=ot~=8R0GNs=J5&w#hQV-cqKrETOl
z8_o!yo`w~jcd}~o%FmW831N@Qro6oMZI?%Dp5h5##X`wCTmlOQTp%c0(xDQl=b^r2
z0E9P2@S)`+RSW(__!wapMa;KJnNjK;=-+Mar-znYpLOzapUim9;s_FAJS7-n_aznm
zhHO!|;r?h%DX?w%&cN2`QMA&agT1{ks^DJIdEPg~+!44|zZS<Q8xB0~o^$U|erpwm
z<US__5b>g#fsWVV16(VlCEbRe2r{=#N&k+86qJN-%g_V=C&(lM(vJP?y_F$W`LS$Q
zgGcNud^u}XiWDt6zqnXJhxcI*w~V@$wcq@>YgB+nuPQ}1qg9IRO0oU6UA%eezOUmQ
z=m#<OWr!am9``5X+|xknk)47gX^05qJEA!k@oOfqkWG}zJl+9nwLxKW{NF%@KivaV
z26gtNb7~(S8y5Cqk-Eq{<NGqs3xUwnRSBM-X>cF}b2kb@-%5NheJzn)-Dpc_IqD@F
z9eJf)YJB^mFrCX<w8h_t`<x_$@G)4r;Y)te#vM?bJvY-+nbeno4H@%T+_MPOR4XuS
z|C4EKfPs!B=BB(pFi@Lm(AaS0vS5p2e;%+6l|_=J7c#^OYgcoVM6!(?u*Eb{Z~mF|
zRlC@e{d<Peb<<Xnj60Xb)PsC&Py8{4K@4Zmpw>9_Z^#zk5uwTR%f_L}W4=a@N9YOu
zN^0*=Mm(wC!5F^A3~AdL?W=%v6Ag`fx}D;TVIIVS4S{cwp9Td%q$QBWX@ZFod^GSo
z*<dx`Y$&ld8nuc=U@u01tB_HB*Gh<sN)*n=6s~+yFJ6*C&--GfczNruRV5efpqGQ6
ze5uD*T7+OXcOFq-krt>32m^_CTvlxv#XQm`bwd(Hh_C@hd>xF_jf(S~@yG(k$Q0~5
zWI+qb3{}~yb>D1U{90P`+kt1|^X|7ee+({%Gd^v^M5uT&37VKlxLWC70Vo6*Zn3}X
zRt?3SBr~DC)Tx_)F|kpwdQ=2D#^Ln9hl;-OI6Bf8r5*J_qQIEG*q>8%OR7zBY8|%f
z8A3uLq+U+3A{r#lS|hTnbB}YmVjtOuI}-V>cj{1Zwl`T2b4QjfXRu*$^uQHOkK`~b
zyW^8j_F4t7nno5EDcl?4uG3byc6WACyJNC8T!e;^{7(Z~fAu)NQXxObi0ZE+X=5U=
zB=9;|bi7=jDyrL9FPhsd2XEepo5IJL@o+|{gW)JRSkkP>6vNB<y#bUuXQ&oLMa2bQ
z9o<}98k%!+X{`vHfBXZ1Z#+zHyz?~_;<3jV*aWvJq@}`1^5e6<qH_mPIL))cpzkjz
z_kj|^r`^Kng)L^BVRt1h^>wD#fl!IJ{hP+N1f-m|EVyv9pZeMoGi&Dt=!Jw=MBEG8
zbwWpr5AD3QW%oeB%tyL+_AE6iY*^P8p5Cp}7V%NC+WaMv*2d|z^~6&+Y;0`TAlThp
z+)Fy^h_Aba9C881^twD$=}9$Kmsuz^*>#nk?!X@(4UMs<^>b-u@86%Oc7L;>M?1N4
z-kmIVR#a3}eI&^$&5+rOD1iq}M@O;lue^D~JIFhMGQGHE<ARh3T{K?~33+w#f$E<C
zF9%$*&-_{C3u{*KRc+HUNmcXyIk<-*-mFp2v3>LK{ipTcVAH`=K0jpt`tCa)D}$-3
zZ$>Ip^=h3qJPSnnp%vuwew^{IB@nD$-WR*1F@E0Zxe%Qvy;DWn^O>pYSM<U10<TO3
zNd;wm)hWtMw_k$f&d$vtgG{HUo9_utNZ0-OEj-w0CK3GaJk-(mkb^r1THS0H8)mBQ
z7liw*qKdXs352_hZ+em>-qY{Kaa28KGd{x_`o$f>6ct&HWU5v}OhepYb8zf@hynen
zG8L@!wf8pP{BQBfIDk5rl_c$%>Y7N4X|c?XOTkJDHdmA#u~mC@@k7JPPAz2XV%eXd
z3i7|X93&SL8FCJ~mhwLuRE7Y=fWNr_zMwCu3T%+Og2u*MwH?>!2I8lFLqsx+p?FqL
z=I|q-%`HUNhE6G%?}2Gob40YPgTrz4&7}QB)L_Fr1XMjg<+@a`o_XR*cI7FQW+7mJ
zchR#K!jS3xaX|7{hBWaluk7;g-O~4vmaMM3-s^x6Pboq)_7aPpPg1_oT$q#9iM`IR
zRlfWZ0(ldGg3lj+ko_lJNy6^&KI0aDE3&KMxZ#3b1sc^421qc$3?;56m%W#qmaLt&
zZ4teK@+}tP_&rG*vwUx2x_7CND8c@p$Brj>?PATJP<C0K1iGB_Fyp~nHc!P8)fX_B
zU1jP@w6rFwu;;ly#iQTN=ooujW|l6xH<D)*YYsReymDx~G{HWQ@JL<$NkT2H`kGuM
z9i6&qtg>Od-mNU}tsTxC(*0ptqJYoD(z1j=m$~AaBI&Z4n!MtNmES-b_L31*8RvTt
z0yYXD>nz<;^<TYo#1Jmp$-a)V+^r<PZR|HW^b0Fpy!`e6%{2yczhb}(rE1SY3~E*6
zF36J4Aa!VP?ASfOdtbd+FAX0>0%6lvzw3MvM^?hEno<sz?8;NpSmX`^rp{VgjSGn@
z4rF(aLbk4dOZt4i1}bD-px^c5o|6<z3^(+SYVz{NY+BFdWIhy0A?LlP#NzrD+dj2?
z?Ps;1`0G&9Om}2{`i2k?nnf%obL@)Igbptt(sH!Y2l>N_^{XuQIcz-QXMff04>+#;
zvjLU|Y#ov`MmI$zG!XYX;?w86-1Xv1<LUX4`BxJNOY)!7pS0H(5_~>k((vR`e|yCD
z``~oai-SBW${3UEt}Ost{B)crPI8He6Bx2RO;wI(NR6G*GnLEM7L;aycyimAsk34E
z;TbkGGyHJAi1<y=ytB3SfoTE#ZtVHe$p=6w5$L{-PA5^KE_-i7^}l-e#vm_za*FhC
zD82Q)SMkejw)=pcNe8oqVp%b?ab*a|-DSX4ub9UW<6wUqR}V4ZIZnaa2YG7+NAs4S
zJ7=Au9uwY#B3xsqi*3AI|8g1E*{3Y3zHGfl0RE|;5&(B%b5_uAV7qr;K1Vow8`Y)1
zj-gwj`3iY+KFKg~-_e$lp9xj2iu)7!_x11Yv$j5?F}kc5dEJygH>@VPheIzME1!4E
zh9<q)ZCvE)zL^={trgvDF~L<=U(#H966Z70O%K&4HMsn}<3mYlMvERo?>i8%yU<3p
zDJBWSr#hH#^tzN-GbCoB`n$W-c*yx^UA>ZpyM^ni>FD$(y{f2$-eb!KLDmmV5?`4~
zqW$Xb?(Q5=lH*fd4l|W9-zVFf5%b3T*dA90YkW2Km<idWeWCpN&Erkg_j!!NAA8pd
zF`GjDkU-`<c5$5~OtsbbYWI4BiyQaPT%Sjwe0Mh3PL{aaTD7)Gy})FlC=)u8Gs9=U
z_~ngPu``o0YWvO3vc2!NX}wAH0{g5V|McEw>W=nBLHl}*YJOMs*C-3Zze~b~2VP0F
zUa}kh9%dC&c89gI5?-MWPMA+FZ7$0V<{kFB>3vaT@e8brUu%8Lg;U57@WQnzU4P%k
zw9!xgDqlr_0b`l#^n4+sHKRWS$0W^#8XJ-9YL~kp7%+|e;^O@Y(c}+02|sG%d+~MS
zGlqrkeTE`&%WRfMV2w+MestEt&&pmwOPYS}G`}HjxF;fw?%hYcvrRSSL8KnI)bu#`
z@NL~Hf==)6KHgLu{9DS7d+dRT@?oWz{@nzFN=u^7MWd6OqDKFx4&2|+9UFojOrs7W
z1O6Powg#c^&Lx>@R;{S!0KO2owWb{ZjZ1_GV~EKy(N<QvKVwi+L}*h4i&D@#T8TNv
z)2=Gx+PjJ2n#SjZ;x>N<6(9OG>pa*?e{Oa*dVs$qWN~R@W8)foPXZo*^V14MRAJzU
z<Jh_0&v8#!KO=L21AZ{+7HLQ&_LMY5=x}=5FXt}Z?`BVtpgk72WLKY4NmB)gam<Z1
zknpUk9|e*}NYM}1usCM!W(B}n28Eh2)Hl75u*z?*FG&?RqS+e|i3WyUO{_mqB4XXI
zIh@^JVw_t|tVc&j6S=hLxVawA?mN}^VxqVrfl-vlnx-oodaIc3F)tjnc`4Cb@9Z~A
zhP?X4)~l60-^5#^DVdo7u*gCdd$90uevIee-bX|W4E(~YCBF!qJ?)x)jVEKproi4u
zxk6i9JFmz>nro3Sy9`&Z6AL9akD9Bi$`Gr{apZsDI#FEm)m|EwRMJ&}+ZH7IJU2`-
z=WEOgvdgYOP7Vh3TKkRuuZ=~hqYTrF2iya=uf^@<=z5%EZljDfPF9%VRAmEG_E#~!
z3i5!e1iN7*NI=)lYT><}S)UH5_3=^`cX+6V>mmgP(y+a~y|}Fi9MR%KB#dYr$);bi
zfAeK~YFa|sqqVK^<b1BK$}Ko=7a}FR*65ZN_$&9GLTr3-(S8off*72s#0G~rg}*H<
z<f9{?b2d`Z(PJfHd5T;|ki%H6t7ISa2v1TvW;Mo)%X>Q4<98YW@#-be&0%@i9fz19
z<H*`Q3~6woH=ty7d8Aoq59o`Ly1wQ<{#|K>K1J~$+npn!_uZ$jKsAf7QXcyVNLo~+
zYMpXCj~07#k9sGiwY~)5x!|T>Ad%t3{Jd@2H7(&SuT;KLCNQz<TK~)@wEr26k+M&L
zK1@K?Jl8Iy?5T_P?Z-Y&{<-t>5;dLb9ZkO=e}-8IdYh<r8$YPUwW_SUOSY%X?=w8}
zv*SLQjMif=)6b5}=-_22)I}R6Gw=D`V(%CQJkGVG&-6y*(Y(eAST#gW+LP7+-en>a
za4mS$_+`Z;m*zL`*mPDexav3xmT##HD<L%6FmlU>MBLo!ePrHwMYYUp3P-bUkZrn=
zM{yO-=*A-UZx?d3e$qXyA|KQAHnQrCGUqWf!bKqH7z5?X#`ej@I66ne(c1Zx38ium
zOK8>_JcT!6Jz@R6^TQyQyy4^vC}9Ri^VP}qRI!0O?{1gS>oR~#gJy9Rv)$2un;F=;
zJgDu>g^Hs*@V1*^tl3x5k?|f0g+ZyCCTR*vXoPGc;bG_Hbq!-b$B)}9m$;yeK9ezq
z_(w<n?lN-#q9d~qX{@?Wq2>qZC!U3wnK!;Nt|0>!HS<^*YA`**J<LV(^F&Iwt!rNX
zvW0s0tX;Se2{<PPp&0}GKFI`ux#{*QXj_sqA2-!S-ZyWY#*~dyP=H-7fz&~G?Oqxf
z#E@}%2zHq_wwS)3cM&OIBYy-oz?-gf{n~A`-J}H0!=<{rJ{{_4%2{oeFpt9!_6sBP
z=gb1f^|P`^OJvC-5AOTRShJCYpGi|7_=m~<dO5t3(=N9EbryS?WE!Ju-C5iUX$)=C
z$=$>~4x+I5NCO2&Vh8hl@nyA7Tp)nh0GRNB5-k(&u@F#hU0N4fuX$QqZypm&5L|;@
zybR?$CB-I=UB&fCeoRccmZR-B#4X)fFtzErf(<;|#CFf8?UfvlE3wW)#UU8{L!6<P
zHng*UPc&wnh3bvfjm&zBENum=vTJMggtO0Lj6LMS^bfx-`C~YgA>v?_HdY)a@I(cR
z&wZpsikz-|rP15VkToBPW{ikYGO+osM1EoUC^d8zi@L+7JuED!xVShdZU_JAQ=Kng
zTen?E^bgY!L&Xf?b3zq{tHT0bY4<$ue5XI|Jalt#otjbzmJXMxFO0D~#0(UO;D-UO
zeoZ^;qpYlqO{gzOBV>ql_@uVgQQ0V}0d<I%Q9;MKR{rz6fUM3c8GnSt+pFCysg^iv
z&33cW>QR<o;l#T;ML6Noi`dMzqcdb{7#~YVFWJfW^*(XXj74o)s`6u28XRIT+^g3M
ztqKcnH1-}eEl{e}R4^HZ%C~lwW_g^2@1B&05epf<Y38FEC#^#z@^(N9n|~w~LeGDd
zc)eH77EUJ?&0=PhQ{wsg=MBjEX5npe^~*TcI?*RJHScMcocy-#j5^OG2VR7+pszjF
zUOy6X$kkaQF-0GYFXVSvH1uq{!7I^L`vs!nomn}Yjzke`C_>%W2@E&k7vPr=H}@gc
z^zc$yK<dK(h|0$>?oDGd1XM+vck8|>+rw^I{WnRCBDB_u`q6MtMtuG4%WL<ILRyH-
zw-}%#O(`KBSn#Qz+UTEwVET?$Hpts^X7I@I>#SPJ)w1m9+&H-}9T0(R<$p>3#s*5F
z{*IaGT&pN$pqR#P6I)3VJQ7*&I+%Q^Tq?tP+zS`<-nE@Jt^fAzTSHOdp0MdrLC0m;
z&`ACnr?bJ1RnKCs|4F8-$!fq`i4%#S+aL)efEMtsR!i|mcncRKqh6R$tA<6qH^vVI
z{GQF26<-kL6kqKQ6?Dh+1Mf{R&)sTkdyxC=n@JDv0D~OPs<;epTnI|fFa;yY{D#9(
zzXe{Ece0!Rs<U2H0-BI38Dd0!(Vl!kQGxy>R+5s`;c~Q}BCh4cwu9%z+4RL-8Cu|s
zr}lX16+zb#o?|W93jikN0xD`nw_7pZ`uisiuOUtnBFbah2w@E+aq&E5lDKb_M|k+?
zoJ$^<K<$ky4oO-`jgc4*@`45%&xV8Wk-meDI%6YZH)$JVyex@4DT=5Pz6G~jEX;AB
zoCgcDD6nLLgVWH4W)#R7f=@rJ4EHnl8z=e^u04t!XLb{02<vZQ{6e=wh+E#}k7A^Z
zNa%jKxBaWki1Nfj@ag0?VHB47>pIJP#xV(zI(OEmEpaaB8)c;hP1`B9bHie02g?4O
z9CL2;<A>s9_bvKpw7dZpB)G<<?zHeLN#4gs3k?mwHeVI0jk3~}wN=x6lKD;m`Y@$j
zvhIeol6jQ+f;9Ajyoz}l+N`5td@9g2J&1Upoy-k8PH{#$bP7Ceg*()ExqDPAX~QUK
zOwqvGFM(OOh^YNAB@PhZZDy6r8IUCl*Oo#e`XZV`uG=IqLL`4@T|1eQ2^k9K^o>`5
zOy8u7BHwNGb2NEpWKia7X(`u_9=m*5C&a{KW%y=jA6EZHc!9?VkI`*dli|D$!xdM_
zoBF%x)F#<g+-=zJsgXs_TDpC^Ghc@gKbgr(8T(?IZ8xfs@$s|zX}GOclXV?Yg+p(n
z<6cY07fe!qTX=|9`#sPsi1q{BFpWm4daaxNFwv<9S+rPA=E#Mq>JhnHRf6p|fq;^d
zl3#!l9>1TXor*ItbFfh^!^#N;Uq2Ccboj(^a(Mib7q5ea;3-y;N}vk7FYHzI(8ljn
zM~_^;?0X|Oh1<;8m|`&lRpek6fG#2=7fKob>KRW#nld@K?L&L#i<#0T=2GUQv9pPp
z=~tEPn>X1YM=b*b1LLI<(tYIb43H2Nm_4ibBl6k^XYttXrgY$k*R7&E0y3`dCYODA
zn`}N2To)M-`A{>3W;{t8M*^BVp?ShZA`~d=t&03KOaeWwr7Mb*d}Z-SC!J!`gt+38
za3yk534u0iwE3-yH+v1k)u{Jn7FkJ3D9fNL@g!AnnZ>uoC+DMI9yea>u$0^xJWtuj
z5*s+3i4TU%OzUdt>oLbEC11q&!HGC&&4_=tj0C{>k$Pv?=yly}rYqDx<g+6W@hN+$
zYWR$uzGBzF1^R@?c)Bx{+-?5F{We<yZBuJYuy^(L5yG`9EaQZAQeaC4$i|cTd3-50
zoJa3L;EQr#m~~IGhh9<*qbp#9Lx33B|Cmkh48?qJH&GR9Ix@rXcP{hJa9iWb(*9!O
zHRXvV1z<`&NkdGxtTc%`FAM8Y32&TPyjhB7rzDdyj;kFoO2#HUiehlu#_=!FRSe*$
zRPozY;q6)97Hmr^>&|lh)d~zgM~8}bHB(Q$-+HN_42-sVaKR?I9N7U@Z(bgIxZ`Ya
z=r=rTnqmK<S|%{9ZJ>XR4{0jR#u)xyj^eDP=70%IGXaRtU3?OGvo7q(5*4^sOZ_tQ
z;7~AQ=o%MZ@YGReBAv^vynX#jiu2K4Pxm`Ur<#g}42vF8^MM^@_UeaDZ{UY!|JSL>
ziA7W1DhlFEo<x^+{A(>OK719%<Q`^`oOwT`l|JQsqO2SoYUyDFG3=gd-G>=vixo6=
zC+$uV?&#GtAQ>RADH2aV*3^HfLoEE6`}`hcW}m-rWgsSPsII5~tK;CA_gu`(q|eSF
zKJ<az@V$FV{0rl;%Xa0ky|4-jK$$WzaGCswOjqin<)kHxrITpUExA}&VVhqsjC}Vy
zfEL+8R?@(4&46He<CB}aa7I4euo`|RV9><FeJihRZN0In2CCs@(PZMDS3zznA74<T
zKbL{p$}e|rn%oG2MAHdZaUO?xwH3b^%?Np3%b=!bIU|LUJTLM=oCoK_?hIMsY7#JC
zD0V`RB`zFWr(qZ&*!JXr+<|e1SWZe(e~3wonw+3r23t;7(@_Fi>=^L(5$>lCE$n_#
zu4+m8!|GYiP?wgg)**5*o(q50bY%NPMn(pM3hTg~l2!gnx=FH6fB9p8&m~rWcvmz_
zn@sXZD9#@I6McK~ythc2=X>4*onKeV^!E38JITw#m6q$`Q9*TdDXZ<GYw3NSEZ0j{
z6TJ=gIIQg%o~eA2UMPST&DPB>b>nH%nPji(J%!0m^b|izFFe)J=5S?lX^AD2a`OV9
zFZ2{tzNuSkAf>m71c@XW{0gC}*|I&ZnokG`fAh7_>HJ$hlbo93W_+JOTd4Tkt++J*
zoyUPA43zQQc9g0M@8GZU&!Z++(;u(}3B?53W)H3EI+pM0LjVrmLkUh9kwq9hTH?zP
zJ9=Oh<b1PJNkgP<<zUR77a--qNkzHX<7V~xQeRr%E1mMBZv$FoJM&!quy~2RTA{4A
zpo;%J`1(j>$VcwU6e)dNdqSt(vWt*Jyo{@qme5h_7JU523~wXSA=bVz7$yGzuMPjA
z+#~s;aju03G7%aBK280(0UGn9Wyu;2DG5a?ZyNm+%p-a8{=-VFDW^vTuJ?E%FuQg}
zE&5_|%z`CqS~4D)H^Z!{dVu>F7}3WR7A~>H^H~wc4XJiAhp>nQc?D{hat*6GSl4Q&
z@a7$?)rr?;Iwa<De!fOY($>_zF|)oLavs1H)I$?8j7#~%1`tUssZ5n;-w83|r(U@!
zD)u*#z2!IhR9KkbZ1l8c6_|uC*>&jRzwB9w!0hHWZl?R3OZ@)O*{owNa?YvCp|)bZ
zkKs9~$A-t9hOj{enc~sU@m&`c0Q~bsB@>5VjX4dAel1q3ampYt<4HMFoaMT_s&(fH
z@u7+Pt;rw-;imTgcqjOS@Rw{T+ZTQCqph7C;ja}9Cr?u>ia>+arM)Pp8Cce(DdBUm
zB8pf#+)=NhZB)M0PF7s$VsTLZzNY>)Ied`?7i@^9w&@MeDZG0^HdpOn0z!G`GS|5h
zMZlshn)>QGPcf;af|WottQxDy?I^9Fsuxo-X60&5nSPqC!1du>OTf(|-EUTdOF}1p
z74vApwbo6m11zjlX&=?-J#;+}eq0k(RK+X0yru~7dl>soj*dPZ_SoS19`Zy8A=h)9
z0xH`37>OVSm%DPNK)Ak+#^{i{-sY@7nMoZ?*;83K>Ivx-0Fd#p$iDKAjcT2n&R;fT
z0kG6t>_o9o5o6FE9CTpI&ngoZa@|RFBM0<cITq~P@oFo5s<Hhbf2*43{v%AdWe5Qq
zzc=PiV!n?Q2rk79-#IKc)Vds?I=eq7(map@6Z=+<PI-t38P!_bC4}zRSDOH~NDJ^5
zwS=wnD1sj`2>Sv2E8>U>1xq<B9p)I`O@J%F2O3G<h~1VUyE^sCnyv43X%)gDGBIVO
z`b?@pBj>X_o$R_>Ei59^|Fk7R2qvoc$sYm10dqdqv(;$(j+rVw)^LbO#KekIfj##D
zm$!Wilg?G|=RtOAHCXRY@y7Y9Z;?k=se8|5)$9IB{P#<d42(&B4^saAbEm3rQ5by@
z{z`pXKiRh>TXu>_o?H4raWvOFtZNwNOH^CdwAbLuR@?>BH62=^6${F-g05hMi~Zfw
zW^rLx%xlAfFC|y_G#mU0^g)-=LJc!6>0o3(e$3~)uX9t=SNgUzw2i7B;V5ty+LpzF
zj&A|Lxz&Q}(sjX|dG*zpcs=P2<|h4A-owH7o|=X@bRq=4+t=2oZT~5jkU62f6JN(~
zKfk4025&Xub}pKzv#u8p-Me*upLHz}pZp1a2u(4=#|>Ju)e{XxVMcHZ(_0Av7?GU5
z%wKe@)dt}NwY|shhMQ_;%BawxJ%ZjtzpgxU(hH;+)eZaPDq<)P(6ipZb<%!56^3wc
z<LrE@n8Gg`pkt{&^-Qcb>^=X-TR|<^+WMQNd?#-qIPjJRQFc?hg&rCz8!F5yAmcxg
zM)gfb@$o{}2fc$Wy`jl`G~$Zgy6Zah7e+P8xEq5-511Vh=e8|*mH@5Qw-?Zf@FA0Z
ztV4cL9#yO<41rjTAdo$)s2vi)YEp`+M4#2t=i|^ff?tGkHiT(al=<nMmjx{F!b&=M
zrFN@7n0L*fT7E$yoR1CJQZldR6A++Ov0{iz1O;tRS_1rKjL7J4|0t9q<MQ8TIHvoV
zZ!j!KURe=@nm)P0grZN?=uebG#(=)%*8@+6FnQ+NtYHfI9G&4D?uROm-pvdulN*uv
z>$a7$oVV0YHC99&zus+_*vr=tg-tU?-n~F_-gDCP)k~`$J;rF1Y(Y%oH%>ifee|*1
z<p{#P<Y%KYnEsB<NfZ&D%v+C$=51LQ#?YrJ*ghze6b{Qo?V!3qU{U_y&?nWHb6PY)
ze1PirOl!igN|JCp8F)L!c#nI4YEacUIPh3KssN=YsrKQHoBd6D4|g=()P8Y6P;^`I
ztL&~X_8GP;C9$Rk)>vn1jr_L^XUd%J2R7E4Wf}479ua4n<<Vhv9v3K`^{UAM(_#4q
z7gxc}*{|2e3vmbfb=+SkpTLJ`#j_4ed-;358$dd~_gWTo_Z*!mU)mQcv3+*_%Mi0`
zbKVGmMD6nUFq|qA<eoDCoG%Un#^*er=_j%Qiiatrlf(UNFFWi?v}IV<($(m^nh`^Q
z^u^<GnPi>k+CPZjdynNrla&x>Q)km*5z4WTK?ys;gml?8T0dL15S{i9-u*CEVlFBw
zD9U;*rt$nc6E?9qc8O7am0uqk6CuuM+Vl80jWxknb|!D+e?<{LaW(@e%<8&kDzYKL
zkH8uzZ*^Je<4ANbacc+bSa_zn3G30p8I!Ke)v0U!HS@2_WQ8G~^UDYGb*{UHHoUQk
zwx~UN&k*D9lk7xDrwGXetIK_e(?Z`84w~@#nRj8vG6N5OptR@k{zNtci1g4B)Nwg1
z(`%=;MDx~76d)lirIc1SVGR#_GsK!OdwH9fZ<(0^Zx6*}hc>WIt#$-pUtC@;#T8lG
z(jNx(T56DgRm#Ks@HtRwUAhGcDvK;vt@{hc0qbc-71Habo0?11Nw_Bgt5$+%BbAoZ
zDWTvw-jOE4u@_lyqh$@GHPa{jzTAJBh8I;ZjISOE{GI^DA~gU<cW1P9G)_kIMoOup
zB&zd;$q!h40{WdUzn6fOg>DHm^#Dhj#znv30zxgf7k^IzF)DFI;2SVUw=_Kop5Z+1
zyUsg4v{BdG+}wWN5f!h~mbC6eFEf*r>cy{DySIHU1_*h`(PV-LJ<Bm6qc6{#*snaP
zJDLOh>;0vkN_+I)F=rQ{pNCc`Y|zh*QizS+AW^#ibR?uP9m;r)v{xc2kH`V@j$YsJ
z@=T2pbPER?OwG*v%B!lXqSesa=t;vp!%o3TDP7Wkcow8xbZDNwue5(Uzq;8(io=ab
z@QJvjz@CVi0m4sJ_VB<!QY;4tCYmEN#3tDx1dwvVhc~@`*jo0JB>4!LaIAChqi=dc
zaoypq?(ZX`&q`kFpC>7$=K-92b<l_VMX0|I=;&pIN^J<LaG5&iXfR}b>E-nh4VNzQ
z_B-zxgTq^GC(12BKj_*8DvAdKD1LJ|0)yAtLpi&~08f9dhg9zOWRc$KC5C?MbRxf#
zK^g++2m%uQFwYK<zk7)cu$X%y^I5<xG2RO*-Hb<x84DtQellYOCo+n%Ky{nn`l)b7
zX3UWP@KKn`Y4Ezrj|Vbn7}*@=6_0Eb3&&UHdMuD{vdW0q<-9W)BolDWP)j-Ax$C(w
z?jn|Ze8Xf%BLo7zar*rUT9{!{`D%Z0`526_;NjH{#=-Z#mDn=A@wL5%0xTUJlc`Q-
zoo1`4*0uDo^(JBO_@#Y^3)P;h*P(*|l7<Y1$<oe$1AymYR>KB30k<JC*(^88J%4-f
zo&|hsy2;B+N7TT|jcs2;1c}mbBgNYO`}?QetTWAi%{`O(Jc;SYt{@NVs(sdiVKacN
zOWN9z5oRob|H{EZK&->fHlxn)YZF%)t(t+6@$GwnUJ72OWZgFBSHMwFFr;(0oi1Am
ze3+&_iOUD_sGNLDXKm&{%*qQ6vHRy9!aRFU#dVdxdHjE65XgjPrT48A78S(r?z@Eb
z_H^I_k4wsx-q3y|z)B+8r(8&})d0ZHaQ`yVTH9Ik;93K(s?0@z-|jx^=@J7JPz|_5
z02Q+-Vh1fHT=R0N%r;Ud#nYGn+`5p3Fjl1YH0jq}^t108CFEx5w@AEK?#;szX0puR
zOHww?)mcs~Ut0r{6Bz<Jf_n^%$=L|(z#Ydo{0_5~+c%OkvGjvPooIBDj8XfmG7qh-
z;89wX^j0J~&oPYs&C?c4WMc`qB2Y9@<H@M96#8h@rz6f$-G_L!ef4kEAvSk=H!0-R
zE2P*21`*p;XG>hX*4ONGi~;xGrXgYN%X_W=j|<?1wt{VBZEY=te5X!J%OY^F9(X_h
z76T;swZ2rujs}lDIp^G<g=+P-+JaJT84>B4+uV8R7cKWZW9<t)t(jC?DI=qK%W4VD
zUZaoZG@QGrl>m*h57BR)8wbTYtzb7^=Cd~@j*5UrzL_56&V6~SC8bGr$;(GP%W_D&
zaKVmcF7urIvSdn41P|mJ=P6dYiSkZW&m+S7<tNol6etAzc}LAJbN|v)WpJGn1Tqn=
zxnG7n%<GF?s-9o3+nntm@m;Zx!s;bU2o)PMhn@4whWjInQl<gABYym+ATY{levPd@
zmpSVy{#riM1oamHTx{n)Fp(QOrtdknrbVD#8hWDb+n}C`&^7aU48Q-f?G<@>rRx}e
z1yTR>N~|9h*y$eLDwM@pPd8}QvY60y^Xi>u!Xs-X^tbGfz@#`hO46*n<^_6nKS=|f
zt^)N=BKu;nEk|Eg_RcNe%5CovC0J`;KTz@;&llY=E47!8`An_C`I$HK0UwSEUL~E7
z_&TREq3uIV%wCQO1-p|Ad%i5MUcBB1UT$oA%={eFT&mpdmCF>>8LM=FFFUbWE=v56
zw^F$n14eYjv`D=xsV{2!3i}?bI`)pg0DtV(3=qPh7g&}G$l`jUZ@(uhT4y#<s5Okr
z?nV?F0$&HfaKb13C>KydQl}3>4e52mS`|0rtF_LXnf5X--v;(M#JTooY!aJe_FATp
z@surSded8JkkfE}MS00J*hdK0IzF<%LqV6hnT}`<<4Iv|M_zBAZoNew)>|>4j{7iu
z@^Iq)mR)3^k(;zf<|M#`PHe;b#Ku@rtuy)}XLJ`ArW$c@n_s?b0s`O=4KR{DY_gi*
z<Cts9$ERKMEXZG1HX$b_jv?;IdRCjBq+#JPw0_s`kS;F-(1`K+e$64JFm2B?i(dDP
z(@(D|C>sruzyv$r@;Q}TDk{Dk*nyIa*>lk-HmSpt>Ls|IhH~=P=jG4~P!3+<S*k0N
zod`rX9fw)uK1|YQi;H+J;mey_3q>4y66C<|B={f#0T_YJ!x?A2v5I{PR`YXkr?263
zMlmIqG#kENk>UCbS&qx4HtKdE-bAGR^n$gqQ3`7V0RX!Lm;Fj^{Tr-FInKPM-r;iA
zdyZ@FjK_3|ufqLHcmqukLeOTf-V;2_4W;qId@a>|FS8{&!y}V*CHcpJ1Zu(-KdZJ=
zfnU{tNN&MsUhMq)X-hYnSvdn<mw+$@1;t${bYLTNW1*#0EjbM5XL~PJaN!r=*^uM%
z0_rvQuL92XNTnU(g7$!B!74bfp3+7ycdULd<}+2%U(y<cy$s=>rGQdPi3-Q08}Y^!
zPulVcBtww;IaRK#e8QTqe_>%C=W&Ct;AW#buGsL<H+>E8iNKW~mnb(-i1%Da215D-
z;+l0nSETd}QkU`6I152axa3mpnYhz_3IMa}k@Pxa!)obwBqavb2Va_7@5PtlaS7K%
zDx-}jeY1U~DvoT%N`OzgKnYJj*I4M6!;Trog4dsY7)Uqg<%zuER+1NC@oOE+cN?xG
zeXGmkFxuc3f8PDV+Es|g{C7u7KtNHOs#<Ft&vz{cv96i+0y_e=M1ZR6d7wrHyd>7p
z)qIb#77jwIWZij+I5DzRUfVr*D=2wz|9FTKzgg(&ck4z1CJVaN>iGCw&tdoUOWTxD
z!k7Z5Z(>R2wab-=+f&c1St56apJjLGojCAl_gNxhalLKze4xqHK0D1+9E-E`B5k}U
zUoF3cz<6utcg&IY%(-dLG(7<a42<-j7cnHe($M%)tz5pNDd8|qgtX^Xz<uYo<xuTB
z^gch)+Bup`f^L_?pla_?5GkT~>UNh8>NUWK!DdDk8oM2@x!7FWb?lDaU3xFcDCzVO
z8%VwU^i(w-UCgI7%XQW@RrU)zxDh?Ovv}-Rs=y%bkS!ReEv2inw)R(EYe4I7?@~px
zz=ei4ryD;~_VRYSP+TruOQFG$6?4R6yq3Gv6stDCbEtidNycn+w#CHyD@F$d{~XcO
zeR%G*N&XKBbM2@ClE+>`kPYupbP((HiwPcMCoTq%MFy@zAUl?q7j5JJN7GdY#nDGe
zoF%vicPF^J26qqc5Fog_1t++>JHZ`-yIXKwAh^5Se0O#KQCn=)?9BY0^y}`oMx6xt
z=ecsZ2m4>dD+Yv6j@OrYX8>m_*^{8b|3tIE@n!EcM5Y=1`mQXR%wMPUN@~`XZjt~9
zcV&ZA7{l0*s)6wiP}Z!EZkXq=akIJHpr7wVcMze3WjY?jmb0QlA85Aj#$KgmvL2|U
z?c&g`6SnH2M@oTqa7fodM+YN<q<><dHXs~MJGJvxT1lV=H>0^Zx&NY?J@*{S9wzxE
zKxVp428rI3*wt9C_Hci(f4*)^{&ZS^^zRc4R1Bvpr!kBGH}e6-M7H~N=P$@V4>tw=
zDYP1`*RCV;Nnt)KL@{4$0T{ZzHqGJX?L8ZS-?Wl><lLadWQ3ke9KgOnAHD1du#^*X
zwnl)kE5UP#>D&dmaTKqjYcDYl(}948|D1@1S$6@bA}(FhOwnHIK2`h(lN&Q*x~Cgj
zDgWxkU|n}g#5CnegfE_mG8$43kcLd00@ssx_mSTq(Ho{zX~Cr1P;F)GYb%{*1V?{!
zU{(QI2*Bo(%7vo&1LM6pvei)4KAlfp`D~iZ4YcZL^6O^FrfJ^`vsUQ2EE#5{+O|}H
zvZbQ_xPA-Fpr=N=ix?=fEj7sEoVNYFG`FL_g8*`;PhbTL9Brs(JEa)}#-7wVMYxAs
zCO0Bwe#sy!15<&WDE0|3xTySqE`>DyR_&*(c0A_+Fm(5)lChgY1*e(;PAZ<(*4Ayx
zl5L3k=2=%xVf`voJPe1Qm=E!p)v${70%+kON!YFjr+I~We9Sz?{v96-9Sj2+z;rmB
zhi3*DA8z<quWZwFqT|c_{s&70!;-1$iF$>l#h1c2e>uB>&)#SdF1&iGnosLaczrYJ
z^xUb3fU1ya<cdDlM_KWKVjIojGlo18+tB{)2O7Lk2tJC_zBtm~xDspe=sHmyt-QG9
zpRHr?u;FCHU~#c<vXVMc4UIk5t>|uEj@O~f?VD*~VUFbB+;O1<TXG{D$ld`PO<p!a
z&nDsyCBeOg2h!~buT^}z{y_NWKHn<`r^5QvRfDN-@ZLcT=vR;sW%a9yyntq;=>jf*
zziLU4;Fd1(x=r9tEqdtda+8N{`*qP4M$;tnq&xfrjJ+5vw{`)GB!X1;kNK|5Zc2)_
z1m^huWO>umH0PX~Flz`8=l@`2>xEyqRD=K&S<#AFWc|&vJ{ShVoHaa|hLCcfmfMC2
zQ*3~U8itWXcTIgLFjeV9!o&v-Mp=+6AN!+^yOjd|@U;{eiC>d>k15Fy_?59~075IZ
zB7$^lv4L)&Q>ilX3+^?7C8t+&8_PnR9rpittW1<Z@E8flobd1wW?~>>^2FsFeZhbn
zA9@MCLe5H5L>J+8Lmd;-@O@EIdo@ts>Mr4-F3=*PUr1SiN`jscb`_H7{7+AdwUY*&
z>Tu0-7(ADrsF>q&StLHpLogS@6%u~sjNC|;AJHmaTEItZVq%r_3&j`#g>1ODH@`QZ
zO=@MPHyA!FmROLl)$h$KeQHHI?T`nWj}$85&!0@_S`GDa(CoTDnsRD?ao+XHx-Pd)
zFj~Rkwhg>63xPoe2RGM8F~h<gQ|U1h*!&lJh*Cm7=Myo<x4E`TXLRyr{N%#Yu9<;D
zU4Y3~S!$QxWNonNBUeOIkB0W6e$@@;ma**HZy`>`hqF@r$}jbGLQ>`ZpTZdIj<=+h
zB!1#)mN>`l2ZJ9i8E2G2P0g>u=IRcWhxS(_>}4*HW?H)$QTLg)3xf;UEy#UHUqvhn
zTdvH-GjS}fb)8%VPg;IHD!aD%v`_B<XqR_;*e5%6Z|yHK?WpyQqAFN&n3jM~$P)@o
zqgyt7P-K8JgpuO4Z|-T@uhikU&K4pbNiSdfTqtKYTA7d_3K7YFb?`f@?cd@)fXS&7
zOzh;0WAya4qnmAtBA-jvFOp%)+oHnK0F2yZOfjU2ydld=lg|VuLCBG1pLc^$t@Q{@
zM&L}p*-A&yi7S>mA3YuBk}!tYQPy`-m3w^(jE|4!R*iJ>{Kk}cHR1r4PY!wMyD<Ax
zwPh02ZzB#ZE*Vcsp|<qpJ!R9u{;?7%?QZ21jR`rd|M1zTTZ+9Y^>|V~ud(r#!gJN=
znHyjP>NGK3q?hKldCuxYF^LaESrFqn+pr9oN$<dHKIg7aG<{*7+sB;@f<;_dNC%`g
zZSJi+o$0IpL`aq4Kv8B-kI=^7i^X_x9i*te`9_$Z&%qnQDk4vsLhVCw=1m_<fB$O7
z_geR<y9C8dm;u@7$W58|(jDN!8}V5(<@ZnIqNEm%%6oDpV=J*ig05DA_O~|7Xq38P
zBKTb(@@Vb7UF+A$9_mvrq_fl>E~BX|Maq~5!14qvpLe5&#hJ`KECeVqhY5vvy@yxo
z;wI}Z<?+1eI9Ss_(@DbS;g;kAYHCgS7}aLVKb^)d<v)j8dg0UWtM{rUHa=jt{h(gJ
z#ZUG=)G_{7AQ>e9F_T-zge;Wws!G1+21h?8=vFX$1e9!wta(Ez3ckqQAK|x>oe)N}
zyh$}v<-buNkSyt!iaS6Aqn3)H3@40ADZR!Q3@--pv71%TBe+RG5_;I2OPG^F+haDa
zJ`wKw*K2f{aByJJhD7;JM;pd~2BKx_tPx%{G*J1b5{oq6l%_eQu1U?IGWD6k^3N`r
z8@?5oEkve9QZ{61REGlZCr$t9(Ac`(r7pzw5KLTMZrk*azHNs{#j^79czbZvZa-}9
z_KMPS`MdaAPnsJ4p^c`XQS@5h4zhot@QI-P`VaRhl90H)BvcWo0U!o<Uiq0h1_WT^
z>Us5IRH~w~Prau2x0&@8&QuKHLYltXry<P>SiEcVI215nT^GeoN_bGK4Ow(An(k!H
zJ!PWhL_m!0q^sumT&ALA>&bB&BNP9L+a6xpma$Y~VJ!mSX7n69!{E~T-v7S%7wxMf
z@WH6m<BXN93-A}6CBoX;nt3>9s3o!Y4t2}K$kP@c?~wDs#HjYKb*xm@`|g1*i$x`}
zfn_bO>S!ez-QxMLUJ@Vq@2KkPngWm@=jz5Ng!^AW+O+VxGC{d}etu?v$e$v#PM3+F
z{VH#IVbI}rmNbo(E<-=@jZN2x5~Gb6jS;n2T{fu+!YHOcc}g@=($xIu&$Su644>#H
zwK3QdL+_+h(owQnCQtrTLZFCr#XSExkh#A<(|!e?RFn}EF<UhMnE$DQp@|XxFmcHq
zxgt2H{;@$FrBR1A!MR(PdSFDocp?M$82JtVvk&P!m&F1m>AuCVj_~#s`uRXY-OCh`
z_}qxJyJ4)B=_MM39=l%-IB@MO#W+;SY=!aU*a?|Ds5?4RhoKOTmkiAxA?OPJ0|B_p
zc>Siv<9q&EiGA#tikl(nXf&NfIsc$&9f`basruQ$G`s@r-RH4;MyehM%E$Nu=`K|N
zclYZak#dlxlWZ<NTLwp5%C{U7<A<XlQTMTL`P?Y{+g5m9%f$@m3mLLxg#03tvYoc)
zVD^2tbN-+SV%)bc&&<1ZTS@R?`S4w^&9<4S1%M5RBP6;(pq}527a-SUX9h67&6B<i
zNia;>*rutn#L{HC(FgBZzgU;SMQy*}&K;7D+!6#bhfz=yJXGK`rGd75+K#MioOV*O
zwLF88TO5}97|$Vi6a~Y9R$L$@&)62n+6PW%HRF_&H`|nXp4v)isnGPouv*_60P6}K
z5J=9qr>?@n5ws@wccPV^>zNm2vm;WM4y@}9Ff3ntT&$8$x)@zsKU;d;Z$ZTh>~Z(;
z@eE|L3{h{8Am{)XCu+Oi^A-ZBR2zxbR8K1|lb%PNd`kT9Oh1f3BoHCubP~3j<#|H0
zvGn_k0C5g4moqNvwEWGR>bZyaMzPDam>}7g9M&6ckCLoG0{IZju>txkP7l+abhed9
zm&^SLeF1iAt1C`-Ht!PPuA}4(HHxMSs{OR2?;lfU#7T_MxIb|`jiYEe?hxTGFn@hO
zf^_XU8Z|nd*Nl)f<(^rUgs5HiwgI?l{e6u3VU=Z(>+&gtHI43;2cZBhm`=HoS_#T*
z^P8mt3UlYxGr`uvN_$xbQD|ZAy~Fh0JoPX3j$x$ll@%3c7Dpb`wyysH*U3%EG#wfb
zJ|*>hv7Pl}8k}M5LhwY|<t*kXENRf7WWpyxNU;=+kt*Ij6xF%$_kCuu2D|A{fvG16
zRHd3)v`FbuUgP%fSTahergLFWza4_tO&jxsl{mOLEVG>!wzfZf0sagNgq{&FrH6-a
zFz7K)w#&L{!F?*CJriE|kOrif8Rzm5NL4EkI-x7S{TR$$jvAFg(Qoe~xKLM@@@;su
zq(~zYflvbwpwC7@$Sgx>JRms6l8W!UlG4!#T=dyrbcEsRAQfg~t@4n0(oDA(wG6Xa
z5zkz*c$|JLx|dh>ae}up%m~2H6rfi6<*k@eK3LqA@d5Nv^M*%lhhAX>q<16myBO`|
z7{@r1#TCoZiPs{6#w1&jp`nd$wF%?>KidYDlX<fbO+eh~4e-7$AOngsiy4?CEs6vV
z9AXAt$1V%1#G?O~tT!h^qY)b(&#UM#WgM+B#KI+|u^?;4BQ@X1i=<QRvh>+<&brbp
zdJ+;PIe>JTew4XgW-4~EKV@odF^wx><UN(ayH%Q9j_nggp8qbnR*3}_Hyo>AgRUb{
zP?YZHdb)?Rv9UNjdgtC;9e_L+5)*1^#pb7jF6;72DFqMWDL&i)9Bt74MF_w_9R5?8
z4rGo;_*O(Hc*bs5SWzK7-ww3cX0id$hfdV=JA^V}H0Pfo6A6S-A;KVySmIi10^MME
zhluDr1@WU$td7^FR6cCp>{rh6VR+dpEm~1X0H;CnQlg--w&c`rotFX?G2acdm&$b9
zW`PH-2B`L#^WNjGtK!MB@J|t#Qml^~e#jvYA<({lv^-F4J8CSy9p-QsPBt^@;`}vY
zi6S!+1HnAfK*~%+o1qgFLd0Y=h78CMSXMSPDa<iytQE;5a*&x>kEmjZs}{fno7mdQ
zv75>;qJ(@2ATz>&9tyBqS*l5Yn0oWqN|}((08g%2@b69MZgv0&`SjBU_Z<I2j-)Q<
z<lwXRFMeFrG4KCq^&S0PEN%FELoL6dg#Q)qFofzML*#0OQ#p3B!0)>*>z4+3E&9t1
zdTW$4B8uZq{X!i)oMz4yHiYjQDt$^K(=?Sf6_QS4_9^(v-uRTK@Y#w}g2T9#jsgW?
zu{`r_AIGFQqVU(ro|~$Drl@j2n)$bwz9SE^TnF?S8zrIFefx={+~|WVDUy$~HhaMb
ze$s6#WhplDu+@;?2Z}trUH`DgQU(X3rLyT`#}j&s-R>)KH7n^KYGCs#k?|mYDb6tl
zPe5;cB_-G!VTl%<F`~_O<nXidDQjxdz|$OjmucJCZQSi{onC-Tm_F3~cf0=YF}_Gw
zU31BWqxdgP=&KTBpYF0E0)1>0G7|x67FyptV<Kg^K7wVH7BI_=w=%pPhPVvH)34be
z-{vLK<vU*0Y&vVPby!LMLH@<{MdJId&cE5oYfUB;q1@Ub!;@S?yxOWjr!@PcuQ7a%
z>^?(2EO{0M#J`*(V9L;Gsr{gOeZa)!egy+MKYtlMS`NCVCyz2_L$ID$c|QKR%n!ZU
zlm?lkXm!uTD+=rN_;s0|F8r0Y-?xMcIg#rA$-y{iPgiwi^=zkQOq18htVenD3-qW`
zDVCI+T+Rcrj8s!Rp2Ag8u%HRvbKImbTIPuyG!5P_&8KT=$6$*kG-MR3xE?E3)-6lt
z+rbd?uy821bd-oqaw&*bM_t^fTjpZMgs>7*15|}H$@1$t#DQxU?Qd8jJQRY-&Rr6>
z%4(+bnuk0%sHK7LfhUzV6~bpDfiW`LI1~Ca5D+ckiETDI%Ww6gM*GW<B5y6XD(MRr
zDC&c<rS*hUr_RSYFpE?B#fr#4uDde(5zB6UbLpr4x$mCY%yhjKef;t!WiL@4qVRjW
z2$EYGse){Q+iod#zM`yo2dmvrHedBE9Zhq-CEsS2xs7=mI<v&m-rfdI#(SLd`g?`8
zNjfcF7(#VNDfW%yglxh($E2QLVX_9vQ^kL+N5RJFj*0SZq?of$5w75@6pHv<(mI(z
zJ<8^*I|2~e+#SAEj=5eU?a5YJc5S_+k>8@vUEkS?RDg1w?5j*rz}O?+Ir0YyRE@&i
znQWrcGt(E3;Bf@A1asj8RbrPQ_iw})7I=D?w;*_k?SV$qo4UkpEnsxi?5M^>xzp`H
z1EF`8k^%DYFXQE?M9ElrG9dQy+)j#An@G?t5dXv1gco=Eq>gmaanW6RB7O(0=^GCV
zYGJ5#eqAD9upi@LD{|z3v;L_|L?C4kq4P-#3<g&$CD2?=R(ze#;I#S5w!>%N+ljcb
z4kO3*@srYSog+fzqx-#Pm8z+hZ2QU}ASi&w#m$Yl)<Cl>t@iIhoLKip1G02b{!ZWy
ze<ZRv&0WOsE_Z5bs<(v$WZzoSE39uHcpr-LI&#ni-Y%P%l1<JrCLB=%eYDADS+R21
zJQ`nXM7HfQ&8CQjdYv@crf9(|MplGvp3|v5yn)6)PpymsnL{3zPqBAT+u29pz5n{!
zX&H%$uE^Y7jB0<ia*0?4)>xlufl-nFj6;Kz)fy?-X*A|%0dUGQ40-wz0Otwjh76wl
zza~^|%I{;em+O@Jp)+PHJPGZD(c_QG7%hCR$4RbTEn*N+<}Sp66&V$KS%(=3g><QY
zxzmUG^iDzjzl5K8;9pAh*dR2POFL?Hv7O%3@!6z04j8ivO@6K@On#~uD;y}~=75fg
zvEWjvDpO%Jb=&M}C}o{_WFuv~6QhCRQ?e_l>rIBSyZin1rGS3Jew8PKQoO+$1E>{r
z;UN5F2pgTiV^SCwlX{gfl;cynn)+%gYK0ha1Li*6TZg$L_~kNoLU`(X;<>UCs=(*+
zlq7+LE95i@zX-dU69e|AfH6wx<jD7*2iGOzg#cZZ39Gda$+wwfsP*o#dbEuaqZ<lz
zPV5Ys6*so6>h$?%o!UHy4P2^M>!D`F?PUrZXGy=0AK1sW9XyzuYCSX?B9}d;%H3bh
zv@)u~wr91y7}(p~%#{oZk12FPobWv-C#CLwIG<u2B|><al;5BC!Q^kWu(F$%e(cKD
zHd?#E1woSy+KYHtI#}nGr+(#Xt@ja1D*Xi2O*L+uG8*H!hcg~5XSO}?)0MP>i}8IH
zF*%t=6(Hr7+d34BWCq+*Y>(2l6IpZl{PZ%;wQ$fe7Kjgk*=8Ypvk!%(q$cfk%rZ34
zF`y{U5;p!#wwO0iNcX0Z;h(%|C^D&jjV@T?KRj1t4TnC9sv@4OF!XPF+j&~BRPm>+
zFX#vx#$|E)`pKsh`p=YlkZjWZEzh@Kl@!?im1lmrTLy1m5L)p2TJ7ooJ0+T0eVeTW
zKU(vB1|zYZhlhs`H8nM-IFU>@6P1LXSbC7w`Z@Qkg62DANxp<~m^%c9I18+ZK|-)u
z$$gDZgAhZ`hX)A#!Qp8F0=>r3NGww>Y34G&`S+sPr_^0-1XbN`r9a|{e;v>tS?_-J
zsU&&J`K*^HlKpQ{T-gCJIN<x?mPW7~g+lhWnLg!TWR`4ck=-IaVCd`Oe3r0k|1CyE
zmSQ|s-BHDQXyRBbuy*3ROM5T8z2dOb<)3Y6#N)YxC24NLqNJKu1OyB+e$J4e`!ib0
z91eecRtGa@(<gW^uuW?637lcW+cHYZb8o0mNTy&RovB9JL|Aaq56g3hpV8D`I?Gc-
zDy}OcR@4j98m5JGv&U#$owLa>w!TS-Sc%y+dR)hgSumckrE8B>BH5_Qj)ulgR(Hd|
z+&P_Py!aM;rk!m#WOLjM>RH+*taTwRc%j|`cV^TZ9rF5YUv@RgecwPq=KcAr#HO^N
z*A*%DA1>uTSgfP(7Q}P3XNY$$5wa(W*x;Dc@K+2D?Tey=_WZTTt&9Z81RqH&Chy77
zTexMQHhuE~_@RtJO~N7J9)8~59kpFu8+Gj_y3Mw{8?lvCkZ0giGc~33w%q@ytm@2F
zIUbIR9I*>llcmLGZ0G|qi5qIdrDc|zN=-LP%jhC~4X3u+W)!3t792TB{3nfIwIO$|
z&M&hV0_PIfRC3O^+oWt(@ZXOjdZ~)s2_RuxvFIdmXr~lc{yBu9^*P;}he?ilyH))4
zZL}vx*<5^hr6ZLtoPU}=#=>X!lTBcruyT6Ugq~#YF&GYg2qFt~qI2QM`8hO-9y}g5
zB=<vHBxr&%=l7nbw&yHAvsY!Jm-<BI@6>GNJ~tY$u|c#*J{hSB-*dKnsW8IW=YBfn
zGBpJyA=NP<C2INv8M6tsP8@HnOkK)KXLaO+{gnqxAD^rqVI2WMgZFN9)vP~oT9JeC
z89qXisfm+^<?^A5Y>d<f09L}BP-M!yeSBL4IGxbZu*@m1fnjo81kfDP#~xE-e<I1^
z?Ir(MS2s-Vk)@h)IHeHz8@VM0-5-n4AN@HHO5A9^L?H@orlFoxEHau#@5eA34O6_t
zli9AIVX2hS#b%e10v4l^(t$j4P;EztcRu@sY*-Y;&UY(W@`Sqh&;I@xkfRP?kanKE
z*ONd{gO0Wi3i+&iG_pP>UlR#h-Z4|NkM!?pxH%lsX~^DY%IRiAq!e3{1insqtkbp4
zU8Pqk=On<OpJh2fTJIP2QU#F4scK^qK|@2UV4BJIfv~8cux}W$UWF_MXoYa5)AW~S
zkf#kk$F#<)<V4FRqXp74m=1kepp!O1yD1VRjiUX3F2H%J+Vuf63Bolc^FC=FWKCiU
z(HzAU`kKti#FVrM5VD|bE)czwd%<P=y7g^7Lb;{bBZ;GN({}D*7n@Kpu~}TJ)ji4K
ziS#p7e!W!9ZH_SkG5;Qgu0}9_RqPi3vzoihml(#dwEeeottp}`srv;8QxQu`nh%Nb
z+6l4ntWf6^d4UHjThMpjd)+VRYuPdkz<VobKFuMN`OfNlnr?fPuGv*2J#BzLo+rNu
z3s%Ab<%uYD3q!&9yVq;uN>=<j&hd4J$or|(s>(P6l;hm;BGbi3ZdE!U<F?oYQ?Y$k
zisWkpnvICtOQ*}ryu$PE(m7c{C7iA5kw0L3My@f)8G9No6i>=gFsbhow=`c<U{<pK
z#4_UrCWwoGcG7!cF>=@vS)`<QA_(x%@lZD&l!wyl6TE5JXc<FY-UQ8MVZ`_{>Rl=V
z{YxZ87Ns?qSFIxmkFiJvyio`-cn@vA>FUA<ZU;yOsn_==!&xUiYG?eAY6l%90E&|d
z#}J)(Hr~dMnGdJ{dI`HHaS?yF=hkePwsXyJsA&LfwKnBLVmWQaj{M{>6eA-(30z+|
zf)ujJI4UBl8H`ha2;ipi1zmrCXQ5>MfJ$15%Z%+`@uyU!rKAaou{Q)zoan*#a;oS$
zuL!@YM!sgO;cD$VF+5$SQg)$8Mj6#6?WaU4D9X;KcT!_)0=<7YQbkOBnLo6-d_mgH
zE-P~>wnItyc7XDv2j+=@-;075w}+Do9{+KBp(#oj_Hn1e<rR73cQTLoF#tuB_pM+Q
zgKsOoyJv>CzALte9&{Ic6`5}wM`v{<_77{K36{@}Mx?7C%HgBq7kkieOjOi+jLGS;
zqA=Fk=?7=S0dSp46RO~oG?_lC<D~?8ElvFP=tEfC*xzm0hSt5ky@!&2ZdGyxokOe^
zl4H^&i*{7g;lKbD!$MxPs_;A}kaV6vZ?DdgpGI$c-lrM*&IV_(6B_bMM<(g^+vMb=
zRLO5}ZnVfK*>*5MzfV!!wEQjv(?iFXDFGT`j>ciR4ZMg8HBR|CK&O}jmvTg!A-9QF
z26y=|+~-U!;&J^ZDiVxb!-2>#BYa5%5nf8>SaI@65jB^1ESW(IunBc9EtTDrlh_MG
zC3fo+k_2ol6G@HzuXVC*B>%vHe<VfjC4bQpQj&mIyR-aGBZ_NTFuL$7ym_|;$=cyn
zlRB=g#|j-#1*`M#XnB+w`CR05l_(y`c-_p=78Bkpe-xzC!?8{~+{91Q;%^HmOGMe^
z*lN;haO8X56M8^oTdGOl9z39+qZ8;^r)X#tq^M>%bx8M9o8m%g<~ocaTue!8AH(oz
z3xeCFs*4FO<4K2++jN}BA31v5&Z_Q1;3OJ-@S_3{0nOO7yb)l}M14AFkB&ZUZyv*k
zN{a(iQCV3F2XV1$3L;ja8=Tw@!w~ee#uD>5P_+JfA(oFWv@`llD=?zu)0aFLtP+Tw
zQyoKw{QhoM$E8*T+I;mBm*8qG5mCCEXX#w=d?@?~E;rl0F9Zp^-OdvP8W}cwpvCW<
zhp4fU=F|KL4Y_?#b1r$b9<Pr3<0V)#y5Y&+`(CId_?}eF(}<Pkz)qoz29j2&xl>gZ
z$LFt4Q<@H1Vk_68u}*=Vm=E;ZxX51nmSYk(Y~p#nq4F$8_r&}Al2rN{g<EK6?6=5I
zW7~0&UFjBym36>GF@s_vGHDcGaqb2<m^L3<3r%tc%i*(S;-=b43V;0-aOmRdT3nTG
z&aOuGh-4_cIUFMG$m)K+J`T~FTEK7GK)F&mw`NIc2K6-$gdQ$Ieh4C)OYwKmvqNsq
z1j|@;P35leVr2u@wlbm)YHXi*lH^yy{jN>WtVhAFo6IrE|1bz}4lTU``x-7#3H0!C
zLbBa2I;RVvTEa1e<3+O)E{Ie2geR$M6bHHPetMI*A+{Q^lzl?&Il}pn=q?cRVZ0K$
zdM<`$F82^W32o>6oy8-bBIA9fyFW?iL~h_S3ED@5nxpA@?-Fi5+0if2&qtq$;<0EV
z#D1!$4y6o(!{19OMJ)MsWZ>)m_+om8M|$CR@w+$KIG!3&+zVrdx#)4G$XgSxT(;%q
z`sesVV91(0MF5&xM{^X*08t6JPP8oWz8g@)B_`HsdoQl`Q~nz@^R-xo32)I>SSJ_x
zThW6(%rk7Cu0vTu#|Hy&%{>S|-7aP8i7BPfj0F=z_6!tyMt;X98$ggORz{~|pBA33
zyg-qTdwr|BJVi^e+#=y>m1m42HGYTPg6T=31aU4RRto3T=kimd0muJll%28_z(Se`
zSp^RwdSM~_7>E6{GTaZ8=!&v=Xg?yx6@Av^bJEYb0VRQU8^1+?+@g}m+k@1FKZk~J
z3p><c^q-)1*xV})ou9Hk5DV$ZB?(2`p|0rkTz0FCv;-?@I0119Kl)g?+NAP&dJGpm
z>d!qBLO;=77BP;bV?hA^+Z>bvvkWYMx7h-3w|9CK=$l#*RM#kBZdU;B(2IJFm6X5U
za16l=7myIi)IxifMjn6e=0^d9z<}R+g`GZLnsmGWKj;J_v!n)nMspYG)^zDdC@^nt
zUPnNmxx*Zx^LeD9h*JW|<KyPEV`88Y@j959a`AxvDP-eQC2Ce*$(eFR6`E{8tZa{A
zu-A?Nwh~BC*ZWCP0goMt;J&F`;SU)8t3w?{cw2{bktzWD@ii8Z$q5V?Ui?z7YcE!n
zKpju%ABPSRWLe|2tifzn)F6}RS6(onz_pTwUlWPQoYitEClj$}G`>A2GS24+XKgmV
zoj|J39iC`17!xfLi=M`AKcxjBvbc498XVB2W$1f%vLbI4u;W$TOXo?Sx4Teo^KOj+
z8Kfq!%BF*YCel~cZO<hk02mT&I9<~d+~AxlOXwXGUji2>u_m&onOJl`3hJJjovoV@
zD%=G-Y&SuFl&;UtSxW~Ac&Br7>@EK@bF5c_KHJOI<xd5iXxG+WU?5{AY`MMd={P$f
zbm5l&Zhr>eI(^a-2K@g7O-}7Isx-Zhaw^c#Tjt}sK|XYAteXF1=0Y`xQ+8XcyL3|_
z`gT<px{O@DUhcmH2bkl+GYPdAIgCP!N`|)nkz)m(Z^ZrPhPORD6!_Q4JAA&yPC}@m
ztA9aXws8S%6PbU!W^n7vm9E+i_ab*_;Pz9wcdGyMp~lq9!33{*5H8suH2d1*Cc`oo
zcA|NTpW1W@`)O-K*=g*5UTsUKKJvpLEJP@5XZr416Sl4eskXs~i<4=uJ!PxDMBJ~T
zp=jhbEf&nI6D@6HW-I*H3e+i<d{A(obA0{BBzgV)OZs!~6%#W`|2r;oOv41(Hp?|c
ziK_1hF*xqE9CJdmi}QmW*w#kGcqC6G*okq`A>l~mk(4LS<qF3|AGLCwmUY;)H4zfz
z_8E(i_v@d0H4aW3HAX(^t{}jImN7FZd&4q62WF9@p@h|9&}w=!g#^R^hGN!TPzj?P
zTx<vJy7zUS=uEcu_J<D%rU6AgXruzZ#`4U_57goiR9+8nkgYuFNb4ztkQn>_9>V<V
zs0_pQtMNVV#j2s6e2!jNKdxlDu`2HVGj5goGdW6&b`=P?qEL)JuYVWs%S_5Y#QD(i
z;cPXt$c$baQwN!Mv(59HWz5*NVGiB3S~BIbJMMaaCB+2+@p@8<WHT<R4S7TQ0zFQw
z?C|}1o!#KgK>W|~Pv!n6I*FYFJP_Ipza__&T@D!<_ioB~lUa2nggs)J<rkxOBv4pC
z4Y>o7)_c_ml1$KDFMPz&JKp4vO#?5PJ*r$+=OD2|qF+=>==Ps~9+uMND_hk<)Gac|
z7soXu=n)bN+pZKlsQyrcOI-!U(L%eq5D|QiTE&|-#S0V@hZw(t5BR;{+=k#*i&WF-
zvRnJzjcnW5VAS?#NW)-KW8~&P910cG@D7JnuQ*8CVfZY_-imhFC{5{Pz`A?Xs8}!G
z%s0u7DGa2tkeO&d=$I2rjyA8Ta6{AOz6G>er0P?08Kvo>8P^TxV7XCJ*Qdht`c@C&
zah~@72$#?+pgF46k%{t()zGgZ;}QDObGbl$XXuPhU;$(bY$(7~dXe_>tqm;_raX=H
z<Sqb4U?+K9=vM!1Q7=?rIxEz<MpVQvZ2U%Yy}@$YFhJx%UY-P~kzoD;ibz(`16l-s
zoraK`&C9MH=%CaFLW^`l^l_E#FWl=6;%(;CgM!Mkto<WopI2{AiTNc1zEI$N3I$LX
z`%h1@JeGjm!Px?V!FIrrY@&<OL1sv72r8ud@e9QEX-ET3EI}mp{{gOnyN7KvO6JZR
zFMXStrxSK@#t-}JueTse_dAztJ3kR?)q~y8I*$0}(x%7{_>kc<M^@o)pFCqckLQZi
zOZ#CKwwvy49n2$I$6(+=!V^wuU!1TWQ=F&yA8eY_u&%bX9y*`pNI&zH6a)|fzI0I}
z9S@Iv5PLnHX&C5D?NqL~lUZ`yF1mNEA{kC<b=W;rMca?n>4?J*k`cgK4=Ei54Fz}z
z#*xsVxj1eE_YK$n=7Xg_a#~)Offp3b`(LhmTkP8GteFfxM-gf+FC>x*zPyue^RD%+
z@ia3}e%D-9@8QNR?FafVog{UA=r?HLDRpT2MeXr3P_7yiUCJ=-)gPPME;kX`ww<&{
z45w!{e~+yl6sT*;gZzR5lN4RDBcl@+rTNAcfnR}$ES{@g)?#XIsW8t#cIrNbW96h!
zP6I6vX+2Pgq&2bbhH_OfZC%D2gB7h#D2Df;%h~!?O|nc_$b8Eh8s_H<X6PhF#}7iC
zas23UnWH@szLJ3?xjGdYj}94b0I%TR37_X?XY<kLp7m(Q;Zk82fcFU={jvk+=PDjK
z<ydBam$4FJ(+c|E@jBDzzjc4hXCJK;cUwws?QCq=NAfP@H#(l#N39nC$1&pOL=Ab7
z=WjfgH9Tr(IU3)V5RFTpQFMr>q45HtL`eZxJ`Sr(_cjbI{A(%20ojV^TBw13gMaz;
z*i$+@mepD}*mD9c>rQf<WLF4AkY843{>GIe6vSN~+pRTctBas{Qhx^krb-Pb^l57O
zv~c7a7?%3B^$yDmRETY5F4NOFawBZeqd35(LvZuNUVGF~sB|lD*M(`+(m(vxlbY-Q
zM6L06*^XCwrmCG_%ohatVe9$>>RbE|_qM9437|WxIU(#ZcXjm8>m{85ic47OON%`!
zUix5wF|;MSne58|>3PhX7k`fjj!o|>8Wh}p#QgOU&L$nDJH9)onEV?u=umL}Q|}@3
z!$+Yd@M|Psc>6<<nW9i5olNIlH|m5fECxmXU;<N~|EMq8!p1E8I{CBzF2zOfO@kNW
zor`FkPVT$UQrIKQMRdfuyZ5<5KptZC*^C%wE7i(v73ve!(uYvy41S2W>+L>#zp2Rq
zU8*Ms{#yuiXPP8B`ESAcHw@%P6l}|M@w@IGi^&XVl&OpIURY2mW0`Io<}wL9t8-E^
z--Z~;!D;BMin(kw9)dkLV+gfSbGhX_9u=JPH`hh#&*W39MT-0*y^36|wgFGqh|Go;
zgLGdp(3z`rRow|JnX+Oh020^-+VWm=lp3>M{becCpy5kzPrkR*gI4LZ$@>p;BXDiR
z5!nqzmCAF4Ps8`RyufA*%g49(B1gRnhsvaDF`EP^wAo7l0JW6ks&wY(tN~1K*PsT%
zdf|mn&rjZC(>b0MCntTbNgy?b`Y#^r>%nd|S_(nFFArz#9G=q+9XV%Y<n~dc6n>un
z;X9{&DvW!$%(|}{Faq7$w{%p3pt5;W-#6z$y=hcffu-47m*Yk~iZkyL_*Rh-xKw22
zMLM|SM`kYVzj)6z&RbsRM7Aznkol3>-w~Q_yJr*LG#Y811(6$36=D`R&bELx6o#7~
zdol0j&5VAs`pX}5h+c9<82gNS(z4c1A#w<0;M0OJ%)aD)b1wHYZ>Mz8IgCFD!3Dmv
z{)-|n>*|T^Kae=zbCj}5(df={<E8frCDds|c}Jx^kbHxf|1-0WZ@beDyNimr_|j)_
zLRe1{5q@(xk$Gdk@{6$>9r%I*zLn3eR-W9;K82E-(s;>fC^6J#SChBRpQ!R{-&i29
z<wAyl+maHInKF+6ip3U0pgX551{mAnDRbJ}`A~s-Lp}cQ#BvIn@(&YXm=L9D!Y|4`
zMo&89Efw?G>Avabx?*3@$yXC1rWAYN8X7*q1^1TPoqeU4VB1ZK7W&r!L`oGL+gHs-
z=4TR!nH;m~ns1FBDlU6NF~d~<_DV2BjpQCuu;-X5Kxu1-0o%Z;mdme8n($XNG6Y0s
zmXXO$F}tZ>A$D--f2@xU<<ey#CWmuigp$5I-<=FoNh@(PVljc=uMJ&XTqeH2M6V|}
zlAi``kN>#h9#2JPYLG52NyGpTcgm+{(ngBR)}J<-yI-Pslhd#0SEf}T#U3fah9|M|
zhJPM#>U6(3m>jR)Lt)|IyQL%jJnp84b88P6Mn6pEr9v#J&C<7EYgD<yDY@D(_%R3(
zKX9Q?MnK_Ygg6nwNWUTKg04Pr7MT9F0b!?s@$!%iHWol?9wd|B$8z)tbdN945T1+p
zirk>*Xh=M-6-jwc;Vw7?B-?skwKTap=Pnt`YOIvhi=Tcl(dG+c;2<+TSkbS|qs@J3
zPB$9|)&>HCSpD3y-zNE57w+Akw!Q?!ITr#C4L+yB$oEpz7^D<MMiW^bT?05~xZ9p>
zv{Tk)*RoUmHtzq)>l$@(&XU-U2U}B?q1)tqb3dsw$kJr6*-pUnZ&ca>a#BTo3I1e@
zEm0k0JYM~~q`+d8Zdt-jKBU2N%JeyB`%g#4=3ScgvjC~O-xe^Csm0s?sYQl5d<V2a
zU27C;1Zr~*QnO@0@Y^VQY66k&3oJ=XJNlN9?SG43jL`Q=>bdhlM_0T~esQ|zUUK%u
zq+SOCzb?YatVbuzJ*>a=V{{N}>p99+S8{;C4ZaJu^ZMf2;_+SQ6U$cL9*!RZI>EIl
z4p%GTx6odSU_<IWEkcu2PJ(35LFQLfhis;s89M0QB6Au^(LdNFQe=!ZWmQL`_o-S+
zt%p63+vxK*W-_#r326-0Zy|CDO85%wt@OB>t9%<!tnt}1$=MH#J8Y7h8yor^R#ydQ
zw3ogmaD-If@}8Q`)(Y2ZCrywNacH4{pS@+BXEz$Qp{8N$`#5r`wf>V0<tlSMhl0)@
zavAVg@E5Q)jOVIA7Oht8z^-#pbX-scks;Nlz))G79bY8dvL6EKwq+{m3#B%7o`B1Z
z1t3=($frj>byrrNsFH<%2P_p$`{7c>!z;vUF!uSv{_2<%styGQblc6^`I|?GA|R_8
z4jgA3!$XqkKi?FEmw8#yI+!lU*7!@y#ucf&6%gSOJ$duPMkM}Lu+6X_ERTimhqoQX
zDHyO`K?R!3R~$%e`PY=yRy6RgD4E1ksRl^<;Ni(W_V%lu|C53b#N#SI4E1`Pcfpo;
zpzwHNE57wW%&#h)28#hZtZ&D<>M66rZGuW{@A%eRTT5Nl>Ut*wfGOy$9E^_|8{>7`
zmzv>W!9=A$CesH_76l}Sv@qs@Usto;?>ExdLWHJ_(&FWK2!&>~4#r)rW38R)dpVI&
zy#HG&;vNJk+%i14X=RR-^fbl?L_d4Vh?BbEPM)t(01<V*`%|tHWc_Q@x5bKU>uv%-
z30}*ciQ{uOw&<Ur>bH#i88%!8PHU~A`Ay{a+K|s7jfEu^scp7{3>gKN*_Evokm^`I
zbrL`}#4gKWse-O9W{GAqF<9kK4^R3eMB07;b}qD8jJ=9A9ON>~K#6{9D^7uOMc`Dx
z5L7#1xRlR!4>t2drHQ%y+6@Qw$?2xCs&j%rIBHu0HFfY_{lBd!`4U=~*2P#DJJGTg
zufBCX1QnEINBs%`aazWJ$562kTeT|^A>Jb+TBng+qiLb~QVuf*48i&N`H9dZYYps_
z6%cx&C<Nm>l=CVEx22nDkQ<daVeq+rtTvX9Aql+IKKSbd`OF~MadCh=4is9p)Y+Y*
zVXV6ju*C-F)KYUwJu1x5FloxzX;?gK*RvN$@DulW$xe=rv_AtH4q_k7OzJ5toaOCc
z%Pij^{bIt)+{8f_>$#fE8l0X>VH5EFJXJi_niNX6*Cis;b?)GEd06f-M38R-U#FEw
z8G6Rw?^J>DxVyZpQmx#tGGr1pvQvLGjgf}d<uN!Fgdj}@8-GHzMhu$rR>Bu!1T4az
zaF?k)1NgQLy2iTeMnd}<<j!jqe1|{)GE*3&W=*Igh2IynBb0`zjO?*2YUx+cxw~po
z)l!S<qEX1Tm*$?@?*@yx8bRoZ;_`_ISk=yzhvxuHI-wm`UtRr$i$~zm0OB);U?8tp
zU8CE-Dxf|-UEHfED@$`=U}RuuaBZg&*>`p80}PbMfN}rvQ|l1n`ayXJ8d=pJ@5m?E
zSpob|nQ}LI3g7tL#}Ip)8g_JQa%mBYy7<2@3m3@)ZY{Mm36|1Nb}ff8qa-^?6>S=`
z|AAd<b68gY-2hRnv`kEiFctz|yW2eRDz*kup5lfEX9J7A*L-ELNx*iuo=nkh0xnU{
zk(Nc5vlEqN^9{Xy0+4H4paQBd!)y;Z<)-0Mb&Bfqbn)~&e_^pPyOp9j#ya^%-Aj6R
zc(qSWip3O=YB0CWb|2vgKl(#M9qXxm+9?1Ie|80qQVFm6l9<eOVfs=1*#p8>V;Tde
z!H_L5DT06^=G^7T?D+!{aCRSq<90p9JBxW&%sXmy4obCFgb|Q3Z;if{+)Rl`dAUIh
z1nfmh&L7){VZyV9j;O^4A@&LZJ8vbb6Xy;)4~NIEalg0DJXNoyc(55*_*6`3s8ozy
zUG7|~VIg~zJ!wA4UH_W{N)RHbfX7?S<#UO}po-2BvDBEKMTr$BX$`+bu3GMTpAB)M
zW{VY@r}P|4#`3&0rbH%LSOLfrqJEXg7F5wLm{}F;ZoFO$dUP<8+J6~y9fN)M98@)T
zR}BSth?O}o0q&mUgne{C8ugyQ`iH~?=P#a+HFeK<5>naI^PvJ&-~IAs=M1w39)qbN
zFkgVhhxEH?=bpGm-6g;giqcrrQ1Zs13H+^{aH_(58Otz$L?o5xY;$;RW$%KSvO@wv
zrlY_&d^quwOy;?F>^Yg+l6^?#TXLRw!t2jOfd+7BKxwi@(nh6fsU<(x)={D0?DW&0
z2SjX=Ec<$$I4O*o6PzI({DS!Axw$`tD4#;b+`-pLa^<m5TU(#MtGnts8x)QKa-XM@
zl!fwwIZqo~g>5@28RASFNM59V64E@&c~#H95#bp#1JCVyCpj9-nHGDo0$8*6>fci-
z@MCHKxKL(V9;d>U8fUo548#f0T-Jc9@`MeU_wl$_2_mpsJ}AN&ZFVr?;rLq{K3V=<
z8fyp`P^>UO8f*IeooJg|7v_uqLxCKqr9bAOZsUA?otTRu_DTccaU5Bon3a!oK0@7J
zto8R&Knh*CGzZ9YzbX&aFUBg&Lc$<0RO}6lE*gjx(_Jc{Ye^o_(FAfE=PSR46n|@T
zb8jx@>%?H57oZOm1*%?X5#`KASl@b11+Ad2`E&hFbg@Qk6Y}s@^bZ<bW7csm1)vS<
zK)fr`9@TFts$n+V0Ab?he|A&FxErlJVK}bkk&v(nKaw^;C<%%UeVhjPD~BBg`i8CG
z6y1s&Ss}!}b%%arFmQoVHmM6j&_a(gu?_Q&u#twYk{zq_<#S6*TzpJJx`EqZ7Z-~c
zv^ux{;I@PrU8Su2O^DZBIT?=(`+|sP-GhJndFtI8fENL@>+rH*@zT%_I5B>5Mc{1Q
zOY~?lo)fxVj-=N4|Gf`W140CeriPYa7?kjVx(U(n9filvNH4{ON-;IzVK$X`Q$A*)
z_SDAV;@2UG@>r|oR75(w|7_NN*?_ogVMCNG5PUZi<&rkr+Q}KaDLqDyJK@cL2GGBT
z1aM7R-2)kUnxT@m<D;gg<J6<xgQ+E9SqrR|xdiLjHwl+I{!9A5i4q3bTfeHuOa~hK
z_3Y-UyKcXTiutP-#YY$5c{=}veSB6Vxu6Z`p?Y#(mYfa60zZNSJTWDJe|_g%C(v98
z7*p+a_Us40d^Nt6CC68kOjPjZO`djQh*p`%>7^Q=S{Y$UToR$MywU|$5`Duui}JI6
ziUdywqxvC$#x2KE8@xl5xZw!w8HN%MvWzp{1_}VzD4D^l$?~+DXoxEWh|7C*0seH<
ze|fd-&&QR5&dXzz26A~|P1oI&h^e#ph!~{Y3*qm-YR|re^q3#F=_+@Kn0GcN$Bo$O
zRbQvJtDnE-`1;H})P{P9@vv}Q@<M#RLn>3p{I8HJ3ommQ1v}+NGLoz=T9>TOFjdkb
zQWy=HnLm*>Bm^Qep=uVCcUv=n9vk7+bTXjO4-v_Pba`v9(;bww+xp)W0BB~j+of#&
z6Icl2Eb0d%F4&tx;U%&Xft4}e%O&nQ-oRl!2(`$xuEKG#Kd=8qBQ^?nd!Ap9a?KrL
zqGL`u*q5j>9vP;43SwUbU&@Hi9e7@AfW)%Yw&-jK6;Rujj@F-I0=22nTU&qR)?#P8
z+iR4(P7UnIYH=`p#6xam!X7Tws}W3Fy~dK@AdVW`tme96WOuaQ_VCfm26-h@l2zk`
zKTciqf`5H2oK@Q2vreT)NB<YK&U3X6*2&Im{A00Fp5M$cPIf<nK85=5bN;=$i93+L
zu=YRLUYgE1Lxe(<J%1Bc$-wVA7jRVBil52hPNg?!5K{h-YRcEQx{4j#W6t9KCH`Gh
z9V2WS65Iy?K@uz@A*w#wTCgDTG|w)baK3=-yBGf^)eHo5WUwkn)1K4Zbz%nE<wlSM
z11aNJv4F*43aLMO73zC7-t&3)IlvCw;ug>Rd7u>d{6~`grLb#u+1WU$BKtzww9K(Y
zKyj;5Z2&e37Y6M&HkE;SX<5^JeeoWR%;plonFb(+h-K0@{10*g<~o8AsWZd3=D@U;
zxg?Q><RxkRD)L5a!KSDwE>DA&#guE-XD&EEdikzLqg3XJQmcS5esg5`rp67cH?e5`
zP&{9G3R9bIuhz}6dQ9x`&WHX>T<g#D8rO2e+4Y&K1WdEn^=5E$G2-DDbpnGNUyzlN
zhuLGbR<mCET5BI8r)K8JxE7<owt2&(Q(4D8hMzDC+ofc(&dNpvoAbrrIhB^O?<yTw
zPWs*UvBfhMNys%=Bdv>7Zp|>^zgh>kkh|%}v*UJ!$RtvQN*)OLT#iJs{r89T)C3me
zuZmL*yo4S}^Q>3RB^FrX9gHILSo}7-{kPs901E{?i@~$a**E5l65kC*UySxg#16x<
z|5PW9eTh3c4m9Kj=^>ko)O292U}Vu@_lt$`@&AlXip4bbs5#I{^S;6`mT61SnLl1h
z5gS&2$6wKb0S2yxrO}n#Jx`OCfpCWb0WAo0o1!APq$W=;V?k|+?fJDf-BnMPPmFb|
zw`Kg@=Sl%_?qI2fp<fbDXC3|S_H_+y#<2c(Emd`OSGA*3hN6GCb#~&JP3u`(lO}+T
zP7U;lMZ?#^oGu<^e!zkac!8YdC6@}baMC(VG@s_rfDRM|re{X9hYYv$gnp{dLS?cv
z1nUGcKdynUz8C!3ke*ZcDWMj1X{+GVbaCm#o&i*Lz&jEYv1Ei&oMMNIzP}JoR9BfQ
ztR+R;>I&~p6{ceOz}S2!7T^ePk3-2sn%9DLiHL!wvL7Lpt8ET8Up-fJWW?zxqFQjW
z-{s>m8lkFZ_sy2anGc3E>bpeI_hK8gYMUAOhi_$%lhFzRF*Sapo!R&uWA+W$oB7#k
zcmJ<kuw0NHjVYUDQ>x1X=MJV{&pGpar~!E12N9VC$4Zqyhcdg$ga_fM2x<dT;d$b-
zkxxZ=cRA^&9eQ^X|Kg8#0Y#qcPO_L>Boe%L4I7&i8yQIVGRFei2Gp9He0w5NM%QpV
z#T7F<hr6F2xUe;MdR9Te&Va8=RR&#NzYd+((v%0O0HQ7dqaIPkrVUIui6G#{pIP0x
zW=5f>rL|lv)N|2KdE^`V%9NJJPN0Wi<l)Bq@0)|OD1m<YEFTOEd{Nw+SU6-Hi{h>o
z5v^!}ULGw?0X^Dp5Nw6m0R4tXU3R0}#a7FQEPrXhhVRC*O`b13=R~=85t%SSC*xz6
zMC4ig8ClQPR`%b6XU<+_rAEu%3ES_$CN?D)kOssfi}Yu;=`d2VP&6=Uo}R1@RY)0C
z-X5BRD7p{{{~hbwH6Tips!#Q@c4&K_xP)Oxe-z6Tx-?`b0Fo7umV|9GQZCr!=)k~5
zDzGtKoSvQeP6Q@0J8C`XA3k$z$>vTk%ZgkuHhxZ&pVnxGOQrA4ukW+iJ(2ARd1Ixx
zze*7qztG>gfSQk(pHVK1^z`dMJS8$MPw*kzbtAe}0DRil0LG1B-MAjrFTm)<r!>xF
z(M(%pb5W?VoPt1)3$jtbr|;;SY6m3b#}FGPahg9!`tNgJ1G66IeDQQp9yt)KV?P;9
zx>Zp=tr?kKc17%|=QY>%xsRyrN%mz2{`}KO-gDem3!IjK$##Q?3hdRp4FI99{Ez38
zjgf`SR2nzIEHuiccrDkLG#4(dWR@tR!eZTyU<HFflB_CZ8*s%#+6lFHxf&;Qdwkiu
z^X?%)oXKv9lAM~#(6T`PLFivi-8g8j?N+g{pRPLA0@W7^YGt9Kmz;^O?p*{1qQ8I0
zY*g|JUM2lr49EM}Tv%{1Bx4NZ!yEjhex(<B!-(Gb34~gC@rz|(zP+S}et6&J%Hwr$
zXU7=(gM@&XcnB~GtU!MFUf8Ft{?nZ1dr>x%N(~z26iv|$8jJbYLow|RBsPGn1WBsZ
zu{eGRto-rQvtre+2~zz#!7X@yX?o#!U8av+mcuw>gO3Nbidlg=xk~iuA(Z5SgEn=0
zK5*zyBPA(NnGMp;Xl8iLi|msa-xePleskV%UFKDVGLjVp0#h7qY%aa%Pl&5J0I@0!
zt%&!Ut<hJlG{C<pk(bIhNmp{Rv~i$Y0hsWU;eZUsi<bKb%<JUH%m~rb`S-tzYfY;(
zKJ>G4b)Fyl&#WWh*TN^9tW-G`fn0C4^uBg0L-j@Vr}{&v%aB+ykpw@t%f(<4T|h4I
z4+hVI8kGyCXSS*E1mgQ6X2UsMMVUR2e6H9{u_&d@k33Rftvzf#G~d3+)FWK;JvFCm
zjOKjJ<`V+WA&JA>=V^ma#3~S=0hQq<KrOfoOKKyF4$Rx1TW)PV-FZ{CVgfYi5ZVfl
z&{<|$vB@6baLEmjAaJ!bwDbWdybIBY2bs7Ikv>Bg@h$$Em>v{p2kB%(<y`#^H=QZM
zN*q^!j?0!Aq7#8C2JD|Z0OS=66-6>8{D!z(P__=>-e=fjXv2uFg|!%S4^eb~`BC%k
zBw&&wm>1BT1TeRfF6sGowCuHnr5~GCwr4##Z`1{AgypZ4g^S7DgWyPHZJkdt0t`9|
zz>&k2*UU@gx$JlHo!oyOFG_|={GAG>zL6VtGcm!a%i17ZXOxH}w$!CC^_CqY0=qyj
z;9;=E`}yyfcCs#PrCy{iW^lekKP5?O+Q|k5n2QOfK>hjUr~E-pK1Ks+r)ScTfe`3q
z>{GgUhp+(O4J?(-RV%7{*EFU(a@2d|QA%M(1HDQY0Nca}5sIcUn<Bp<B{Pw@JmwKt
zPg_DQug~}pfUN$fs;iD`x{LbT7&y8_8U~|55eX%oqZ^b|x}^j}1gX)jGy+m0t)rv`
z0cj*84Z0gaR1g^N<@vnt^Z4$ceYVftjdRXDyT9)}=X;RIJ8dOg_YH>M;5N+~_Xnh=
zGlUBLdo`w`e`ZILO%G3kd-hWl^S#c-K8kh4?=;k=U-iscx+X3Pv~|rX0f60hBRepa
z4JKfwud<gkGCI}LB`kNm5E1Ecx6AU_BwZdyWf3B1*u$G%2ab(pa)s|%5gukXSE9V9
zlCjupeh#rr1VLDP#^)g1`M8^?YlcYq@gU8sbbtO(9bS`BIlxJ-UA%=EWioB#$Te;{
zAWai`*Re&MrEcZZojQlbZ3<=zJK=*KC+%wxMz`h=QBb~XZm2w}gr(ek^LZd><pGn0
zM$EE?G*&u>BB)J1WH#q>u8`Egl)ei0EK}zvLBtyIV|%L|Gh{1K8a<!Ah%#U<z4PIQ
zpNLAmXpE)C#%0)J%Ab^`!&6i5M!(&Mo)?$fz)$`%Cn7qLnVyRDPAEM}Rmnf;rQQqb
zkf_616I80u%xJ29jmAYqvN16-HB@kq0eZxjqiJ+iPa&#}>y;7gO=D4S`z8w90&M_M
zvpr(%`p!^?=n@J>J5(1M{8arT9nNsf+#O*xj6n;ps1apPGQta+<0U^NHhfk@`?tZ!
zg9Hnb&&c47rU5cDB5=L!)Lpse&GosDp%<SHSOn{WyFnp0<GI~i5%1L>T8ZzrKQ^hi
z;*lmG`#nuUoUNKls77#E>`t~-lVR^2Gryfq^~7~^=f*0z32L3DQ?7OEyzt=&HLir{
zEz;lqkR=6~v`2H^Hf@~f#W4!FHDMW=f{-!{<ICLxp?a4rFXHW(iKu9^rA5<6^jpY(
z|0W_kfq)Cw-=M6P2!XVf?HQfygRjp^kHus%E=Xu1sSZ04u`kL;rg<`*w7$GBb`1-6
z^>!DyE*P*m*dk3&HB8vMBor<I+bCi%WpzaOcLXsxcS49a<4K^w(;g;fOpb^YJ(Cy#
z><sO?4?EOFgOI$AUKn<MoMjq0^xAV=!`Yo<gmDzl1oAg+&(-V70n~f1N2;R^99wo<
z=Y#5OJUAXYNZBR9p`3p{47Uz92+9lA@vaZvAI<0zA39Jx*5iyWFX18|4W+Iw8-GR~
z%Pl@w7+39+PwH=QVnC-)__462PO^FRLqW1-WZOMV-tcy|_8{%0OE97nk29y^p$CqR
z`yDmcXIpiZCU;DmX8U)-j%u&X^i*#SHMM9ZX8*FQUC6XOXOLoY5ThA>*jZ${=hQ)D
z2z_1Ix1Vp)!__-(S3O3Dy?Z3g*%nmK78qD8GS+y0S9l~)@gz#OfY8(Q0aCT;X)nLU
z1o333aC3|+F|Fb~YpZS%Mjqi;@rodhG(lG{;u#Th@Ic?Pb>X1j5Q0S>JBQ^unhffP
zIRTFv{<J1-E^MC)F&=^AR(+vU*fC+=Ff?+*A1lxOTKJvRIukQPQz+Nz7b$wSbW-@|
zxjw>;ORE4As@wWjz3Y6xhuJR6&S<IkLm~>D=qj<$Wh_V__&`-FA@I$HnCI`LrrFZX
zKlH>7q49(3YirM?)o;Tmr$`7RBhG8J3}(>g7BAE#-_tYc7@~l~u6y+T<|-S|?55Hw
zk_6-k_7|8#Si6~yFyTy?P4W+iG=YI?o0dAgg`Ok&y5@Kz1vK~2lfAi^IE9X=bRnzf
zF_yr4!yYj|H1plAA!zFl&VfPci=wA1+p;5IGOpN9ERG1%w05^1r`WNbO0^F%5?5<s
z(Cdc6uUi~aTj4w0gYj1d1Dw9qy71<;irV+;Mv@EQ!)=_3<va(L$<uZP73hrY9#A23
zW%~p<^w|G=^OFPrJ#kCbVx|)ZIgMkp`4W+dcifyrIEPsr@WPNoQ<0686fLLnyMTWB
z>m=tb{8*W!51a4#ZlQetB91~ll#N6@e1<~GqzqrNsu6FMZqy!-BJO<Fa{AzM_(Hyb
zx>>HA+cNsB^|et#J@w=5P(iksq3GFt{XZmUo-uP3(5}_&fQ@xJ;ELI!mn-dMUnrv)
zDR1|cvrRqL$#QgY4+vjaxS=~{ijn1wsCtKs5PJ4;8ZGJRy%u6JHaP<;b_=%fcgu2J
z+k_&86Mepn@?FR$rtlRPWHvG5*dCMtY;z}nI;VxRZ5g^&p}ACndyOHn#yGfqxTT-<
zZj5hQ*=x&EgOo3MVdyj=GaEne6U*y<Yx<>|pB=Wc)9VrZB-aCCEHvm`#232uL6*_(
zih6ioI>QftGbEC`*PNYA=A;n#hMRzkN9hNq6h?({K~gMM^jS5QKspAPsr9{~Yu_n-
zP&$`_&u>MRI`Q;|1g$7zGV2j8gqZonNeDy7MuUMNjoWRp5{9kkY)vHak6*d8L^`~{
zxxJR-qbxy6c;k9i;e+kz>faY3hu5gNWAb{NbC0;7K_n(;D`4Z7Xr_su#(0c><lUP}
zRy@r^xyj94g6`_Rv+uitzPLa<S$yqnSLfk<;8Aj}DEuBt-)#Mj<3K{^ys{2{1jn^G
zl^Z`IFLJ4c{8TvY{ev!(QssH+PAa5k7bzgmp=y@jPRi96Ec->r)&0X&mgL)wt1D)l
z+KTG_{p^%G(%y1urdMm`q`CV@@4_xWe*V%cG7=#6*pC+^`Wz78Pd(s!O-PZ(3vc)4
z@Gt$C+$!>bfk@^eI5?mPjejQL2xE2)t6r$%Oz4rsR)8q4rTZ}+!pOtHp4OhwyiWJK
zK8;#F$ke_bepRohBWvGaKZD9LnKRk@2`WiU;U!v$-HVHWrByx*7t6d)`{`F6KJQ^j
zT-(cH`$DqqG;?psS1szUbNXsB=Z7zSKX;aeNllwim${b**3@zd(8qZHV`2R-Yy)KO
ziGV|u_tQsOv%WZuEbpHRzFKkXmA|3&X(?B<^#=LE)$#;X0}jJh&2Fd`=m;OtlFs`r
z#4>c)u?{5VkSut{VDVPiy{NQb@7{_HGaT}!5DF~Hcfz@&S`~<NRL?{)D0@QYkX^I!
z`i=QSc)MbOq4=AxHOD2>4|4kIHx~55I{w5{{E5KC<)udLvxRZ_5E+*@?KIAVhl|pv
zCyD6fpchS|$cn0f<$>G}l8H+$j4J9S$J!(D^h6s3XQ^ew)aLworjCuJST#t!{wV-`
zgsCuoD%eA2h>;GB5fzzgd|l_y!?W7ZyHC_H_SI@k-<93mn!>O|Pq(D^i_%A(a+g7#
zB%f-d{Im7zHDWb<*18ShdlA$sVXb!>ac3BYg~G(y3e~XqknN<s#MyVJxNi^Mq~Ci;
z0D0{m@6S<ryE2HGh>|j(rKaX*4TeTW-MHW@*)-di7J`!sC{(-0LnetAdDWPCzZ_uE
z`ZUYr2=6DD$Ll7gp@t48P9V*aeYtNq1C~jS<L8P#DI!rL!bZ5(&xa3X`R+9Art;15
zqTfO=iXtVrjU-|YuQklsc$u%+bg|c9wCc?wPhz4FZDrq=5zxFY;_P4r&lTZnK$FN0
z6@QtOnx$!(!u&j19Hq+qtGT{BKiTTHGsX~5SlxT7;FC!$8j!a!mBNLPH272c*z_k1
zV$uMD9dcj4+X7)C-#mm8?MKUm0;D!_T<$ybr!y3#w5800yB#_ZRIQFZ^o3AmL(M{I
zOEgLVP3Uw@jMGgDnwHqe8pYxj=ai?7lz2Y}i#5R`8mV@o$t_!fjZ6CLtdM{*eA&zT
zADb)Yx`ipG^1%k27LPat%1!)q7QC*`QQYs5me=IaVoLPkD1aYz6X#2dx+syzGl89Q
zrTJhaW*_i#Ko4OGbsTYn2`E$`-@fTWtWzhPk@^Ol$aACk3_t7?(FmN96{GUipiP9y
zjHk~<$d%{=g&7pukCAHdk^cybCK~-rE#BPK(YaAnnRChW>v<d{qypE}bi8`E;nyrg
zC+AKOiQj(jtmWja=dtE{le^UiqjEXg1qs4x+PpO-Bs2liAn;*)qW|9G)zJ}<;;CIW
zUn!Kt|A7~<6W{NUW}Z1ZqpDOKeQO8NX^ISZrg-f-YtWT2zj*j|{B0%5<|oBzcdllJ
zTuJCdS{G6JUygD~El+x7kdpCH^<<($*d$n)OYLWHZT?vep0#&m@!mwrg-dj>q@smB
zR<BIl=C|GL=HJhfc0MZ>*eCFzz`m!@7pp6)+f++F90C9-=O^-4$-e>kk`Gv<A6Bl}
zC_gJK<k45I;$We8PwGcoB&t|F;pJ8-Wndeor;2iISWew#3tZS^S7r~O0i?)%!Z}?f
zRbsG?0h*<{45p0iLEbNgHkKhyBvCYHl1IULj(jC&=FRJcnF6U-OrPW#;F{%0j=Uf@
zC?Q&k=nJSojbN?sFb>&JEG46b%nd*9!|d}ipGo=YLWD4twb)FOwiZBs#%r&Yf1eGc
zQM}{2CC8;B^IH8>TbSMND7*Kjkf<VvR)y%Pxg>kvM0{p^*11c|g}>2|Ke%?00#?<K
zXKY)uIW<zfeBz;tr$o+`Q&*I_={-+Qw$KPZ*<L$bqckixkrkw<ojY*9H3y1E(?h1l
z$HyP>r!IEiY83~U`R#h#Z5|^j_{{C??b#B_adSd=jzULxuwM3@ZPo#^GLce1>h6r7
zvm4zK?MlmVX)WkM_9)P*T{BZc-%=7+yl<F=68B*umLlZ7LVH^X^=k1oz7qA)5<Vpy
z=BG(=^jd7Gn$NAyb#18Yq|($-%&d(t%hbpNU^`kB+_$Q$Xa!m@Bq=<;@myIDgd_c%
z!Iy1vYUpx;HYZre4<g2<whKdmS7GPS;iT7ZZ^#R#zB11M6X57m=liahc<>In_sVrm
zJC-6&&dix{hDH80no-j(>O@Cbx%*FJW24h6o>}37cVyHxG6t$@{JVru=3fW9>vQCs
z4+TL<JefVMk;;O69Igtd>A3HYK|I>%bT?Z;zEBdc{4_)H{tj;!fWL}@pp%Z6rb|?V
z&y}9rU*E{0rjpVZ`X&3xw-FRFAmyy)zWK`M7m}{(#)jV3Qj#_<uGi=d`^iH@iAJK(
zhigK#7=-l{!v*M~4$&gMKG50I^WZypZEjIKZ_<DEOChKBv|m4h5>z2Hw;jPWyvYv4
zA9d@G>kaU}a*S+aImkChh|D);9QsA-ipV*Wv9nFxtk0p%d8J$nu8?P596gjv$}TN_
z@<;*XO<6ULS<9_6bG!_YXE?>so<@XIvO3%wuYF%EW@lT4$!%(CG8la;*m~iO!bOFS
zBV!S_2yeZ_Ejlg<ax${1o#grV1-|{!*UZ0|H=y=CarssUXA@#LAG;?`uDi9rTupED
z^v@7N%HWYoXrttNQ9Sm%^}@ppd@A%RKQ;7|_1}{4>)8#*KsbI!h{BJ#dbZu8XWebi
z5?r*Jue-*$9t&zZ2u=mq@!;(mWQl*+!x@536p>$<n;GFIPRi~0HhdD!_|ZVWm-lxg
zB`mcCd<vbLpD&+zM|Ab1FS-v)wZIBLkbuj4iEE(oDJ4sb^nQ=q{H?}+{A=fn@6fAN
z6;4KT>Dbm<mv4gtf`Uy7BtB5&3*Jy~Qpm@L-WeaaNI;I5o|ennKv}vWC5$PIik^0u
z(2VN?XRa*Yo*eA9ahPv(UWH7K8@HS>NQp^iI1l3C)t#e!UHXQEC}Kn2-k5c0kpT+k
z_MHj3oM>QbaB3Hrex}K{r%AI^0_%)|d%|eg(mJ2wITGJe61H&OlDk0T6%zWMg;8>U
zwb%2PSy|T)?pwLl)jtmVd{X-TGj=^gVrj+lE+=G|#9~Q<=8C%sTc>&zEal(_Nu@}u
z-5=dL)_lBC`CCz0?r%SjRo_2idHzrW;hltZ=OLD2bbslZLBgt2V0Z27B>`h<Sj!dN
z7EaY2I?R^AJS=eu*R1?Y?ryAWE#s|Tge>h<SS-4Yv%=?ig|tkdOpk|89b|PXxBZ#p
zy-dDxD;9!kMJ#c^K#{BG52yIM_0!gE$3dcJAjo%Rj(WzRk1st;*h4Mi8}KO9u@aHp
z1lvb>eIqWV);n;p5!}D{^p~a$n%*V1y?O!SmytKm5Z6imp1ORbOo@U`#{1Pp(F@gW
z%j@|)Ng}YLu-3TiGi&An6Z^Lmgz7jMJJ&XVe`-pplnDoV|3}2&E$BA7btmCIzeR`C
zHJD;d>v;ke<a;h1p?-7Or>ak^23`9M{}{^u{y>coDp9XyTVSlMgrtMPgvJ*!?H9_6
zSCdamESA0gZg~+PWqS`>5y>}T4n~4lXBE`_(>F8`N#npM&-MGy94weXE6tFQ2Mj?Y
z@)kBWHbr!AqWGL`S)N(`)hag`AVg)!2APj+;feo{#>>JF?k3{KG~w2zI1NYG&fl%E
z)H>k#sdESlgbmU0ayPlHa%G`+h#Y(b>N!`zRTvNGuph2+p0q0s!$iKGA|Vf1tcyNP
zw>bT8a;=Quan^%Kc?Gl*gY9|Clxc*uQ?b0)9~K;J7yZAkVzGu`xMjK#8A?=qHzJli
zPBwSLF`Xu1?)&uPS(g&8G=98B$A3e|qNzEM(JJ%?VL$}VNUH4^IU>jdiMEAbX#Y7!
zT2C;if2RquBvGxrCfsL;tB}}MT{xG@9oH}-x06dZMgMmp|GYg{1VKF2Dk7{Xoh5_{
zzb5x!>kW|qop6)%HQRryz7YXoHW{?+eZdeEtc2yVm7C}EmSiBq7v$2}&NKe260q~A
zfR1J0nMGFcea0Z)m%nA8aQStcWaN>jAS-&R`>*-6k^vEAKoPUoU<J`=UteixJHh(F
zr0TBL<dFa0Q@jcrrM3uhl4A4gMkGtY?oX2_Ur<67P*80S{nZ^>0*Eq&{H{hn;-Vz1
zaqJGyAiyuqZxZ-D5Js~9XEo=>!*af6<#`*sShOXIiaEAGdVb;XO}m*{YW9ET?STbL
zmV{&#*}(Vdg2u}X->ad8d6KkM+V<}CV&^6P?r;R)dxlJI^)b|Zx^TM&I+_H_j@WFP
z&X94tzf7_98ZcPn@TV890bhiLOZLB^qGophHEeIcV5&Cwd&TwV;@+|Bf58|Otbkpp
zCPi*G4({C}Y{(E2`%fuLOhDEi%`lmpsCawC7I+4|1&QR1F4!~)6r`qX`F}$TfuYkC
zqt_XNK!oo0*BWb@r5xHZR{xb=`yKWARrSAD0|=tdK?E8;9&5N7S&(&<Xk_sNz;wFE
zU3jys|1XhaQRmi+i2WE!&36UvIs6P@9Jhh-xL+1_`tV;nHckMKMOggM1Ka>eEVi5M
zN{~rlna)JqvdzEJ2|AI-lH*S9(WXXH_ejFd0X8a~_kU*T*L}HGVU>`-rE`%F)&fh(
z>^xuKW9oRmy#NS<<AVphkBh8!{$D#`uxPs7uT^%j*voKF`7@N`Vd-Tandkp08Hhs}
zj7t*;G4elmO6|N}6y%iKTH{08fA{q7rn*GEwzgLM_C|7q$iI8|+$(5sem{dwYf3u`
SNE?+yz)Mw8O96+m2>u^wYWS4^

literal 17730
zcmd42^+Qxq^FO|Xu!OKQN~d&-<WfsWrvieMG)Ol~BTI`YAq`4OcSx6jEGga6T}v$S
zS$y8l^ZggTmmk=<ch1b5nK^OqnOCHyy5eKpr?>zB;PFc(h&BL#5e5LDX#%lOcQykm
zI8pzexXbIi>o{4tdzraf0%YDfnOoAobTqTJ)V4Hx=i~CrQUU;g{Cx?L(e<9)%ed8B
z>mQ5oJDj<ndJ%HY?A!+lf|;sfS}+3s{k4;Hcr!{vf~-j>9We(Lj#@d`_Pt{rRCZnk
zD#6|22%BRn|Gx6@x@{^hiA6&x|NqTJ$p&A#Z^$QmFsME0egqTn@}!6~T<7aQD?woZ
zrd-mH#FM@s{+2Zl&I8Z`(R$@sFr~&wAE+RDOiGHZx-f<Z0uTZ+W!9B-R?zt$Wy6rV
z-Ft6c^AL%DO*{N|?<0xPAIJx8YP!q7hu;89hIZ*+b$407f09s2J`A5;NI`DY>H;L!
zgM1%Yq(SKTSyypOBrKT!*P>li0rX!{?<4~6<+SCilVph=o&scme1NLB`+qj0tW-+>
zsU^)Vg7NU^!D#xK;6TOyHMZHRB#ywOLjwQx8r4*~3hR(T7Wlvolnp`~W4?YduKewR
z{73UUU4nB_8TB7oxQ3E7wtso^dLC{(D5jo;wZsciJWvlkkxSdjdGh<w1Bnv0!sm3n
z7)h)3Pt}8EsoL|FG<Pwb0uKxiwgIxlZXRP#{IeD1B)~hGyAS{Ki?#w`>LKHSfFa=n
zJ1Ri7;|9|n^M3zlD*zUzK^~|w%l7aTrJR_x`tl7yA@&1_$sirIWe_qhZBG0^qS}H!
zHm)ye)UrK(piu##=Qm1cNg0iKpdL&kq%e>BpIu6kn}>n0k8TMEKC1Tr=XQGTjW}?`
z|BNH<(tGEWJF4)|{z2WIjpfMDiX!8G{rVA@x&~kSUpSdVc4hgVsQpV0lxKvTxtEom
z{PWX8TU0<TW+Q?)rC#KD{9jx^FAU7H@E(K%WdY6*6YO6)`u`$~>Pv#);kMh1;(ueN
zKZ^19nI!Z^_u|<<TT#AXWZu0x{a^CYYsdNB`D6Y!-xw_yPdDktyB~z3x(>tF*u=D|
z5qcm|O;^_vpRK(7pH~@~sHQz09-*QQi15C<i=ckK!s*(FcK&ehp*d`5t@i)x3&j7#
zyEIjS`Cm6swi12xX{FVYePBjqb=bxgl5YH@&wUyF-=IP<Xm&}oKNroWec*WD2g#-<
z2>jPiz<zWix7?!QhldXt1^S$;%IJ~95nv_pPr-vo3)-VuYR!K+g5n4Y<2vXB|4*MZ
zVFVm~QMUI#;}qrVrjWfJ?az$3|8+B9&V97D)q&pezxJT@bKQe^O*De#*&mdmJd*v`
z7c1M*{U9w$mJ0UYfz&RTx{pl_y~%>f%zYj$BCr1^5ana<PGLR4*II1ymQf?C{}nny
zJ%_Q~<`^x9r$qICQ4b=_Y`bSb9}-q`)4>d=zv03ie9(tV&32O1^`$nH?4^xGnYhe<
zcTtuzPAmL<m3E)kW9g7$Gx6WN9ucfVV($*q){upx5(O2Jgi}s6KxIWG{CzR+N<De!
zcQ%v2_c!$|bvoQ~{^dg*eG`#VS8s*0xU~i?Wf594J@2|$Kh?)8&H3;jm9xWdEXReF
z#o4^C0i)Mg^_e^u->LDEYQ#`(xWPXV^f-vG$26sznj;0Q0+nTwY84rdew`e8iIxyQ
zZ>hMPe}XuUhqe?t{?HRDqxrU;A60Wc3G8F3{;8jB(IaIML3@P`2uP4`9~!UCw0Vz;
zUV~Rvaj<{>FqC}j6^B-Wqi9fL6d)DzB$FCEci1v}jFcfw8U@;sPlGwc7wY0`XO*%L
zXva9Kc4+3UmL+L;*sT;vs9yW7P<#dWIv-i@=m!dH(**GhXQW@$yRK{%(ccZ8Sf~&B
z8SG!)w8bpAkUwi>GW+^TL}MEK?Pu%b=OKmYw+RV9$kL**M1P}w+)HuSL9Eyt()3~x
z$vU&6OO@nFsa=-nZb!Xd_u?3O<9-kwF5=GMeS&dsrBlHwi0HBHwV|VU%57LAV#JRd
z^HtU4^;3hlMbbu<FHo~HD2(qN5nJ4?EY0mUpe@(G0MFx&)5UvftfP8C%9~B?xcNK%
z&2%-i|7Ql_1en$C9*-<SWv~Z>lE4kRAZDnK8qd-oSzXx**OO`@=)RguO4`PkeuufO
z5iGApiZpb3142YX5p+oL9bMvMB&gtiu|+;&+6|ay5drJst@4)s3jzSlgC)a8CVrLY
zGRVau+;dzH4tA&mV?W+jwDc}Y2E-xQ0xCSz&%qlU>Xq>?-s)1auHRHgj8Ki0v%3(2
zrc%0TWhq&xRSB_aZcjW)J2%L!?@d(o0JkHB+ro83RmpOXICNoHCBjXXbcEA=Z7B}Z
zeW5%cfG#YN)AKm_jKNqJH8fDY_$+%gFs)Zb9lB=HSGm5q@p#Fa6Bu6^zi2>@ztY~>
zVKR-Hx>0$?kisTjtZJ1+hx~g9ZBD7JNx<9dGNfE2CPF7CK*d@HSQ#nv(#5}b)Jg5_
zc#<Ht<MbID#vIV>&j`5cMDII+1)Zl+;aZ@Y4xkg&dr%n25U4(w>@a<2H;wTpya|}G
zf7g*~%Rr3%eb4FXY#$S1<@1!T4AG3C5SnQ+-@AB*2QzYB@OwKhj@>&eHS19PI;{<?
z*hM~KS8}T=&;6Po0k)v~$;gP*%99bf)l}3=w~=|6U_wAfI2{I8#ba_g;=FT2Vjeq=
zk0x~Bhsl0-6(v#IAD|y;cjCimj4R2duXDJbO4uoj{c9x_-C=)9e%?`3QJ}7ANdWem
zJh^ooQ&=}@$uo|~x7R%)LIO9=0$B`!ejkt5Q*R3%Cf+a}*@{^_1>F&vCA$FYG@hnK
zmOqBL<6^@DaPXWN9Z4-=Zpey3;dne-gmM3!jst2Z0SX(@$A3iz5j5;#_mJh<T@k#<
zMX#DZO`;$R9i%}pTnxP(Ye*?(YsqFe#TJyS`RBb6Y5b^adNN4lb;G(bizYXbQ?vPf
z>Dp511*{`c(!4^Ms0Y0IH;GhRr2WeQclX1BC<DBAJ!5&K8Ai{Zd;4+fhNt>=#5nxz
z)1w+i{4%fU{!kwkqVNWTlzQcFA~zLyPy9qW|5<mWga5U@kdO=ynHPT>+Ss#HmKG&r
z%;o(m2hEmGCn8JIq9Qtyhx(%xK58-OOo;Ay-8ZVqQsuPMomL7s{L0frV=(^=%lZRH
zZjty6*I7IG{qt+ox)4N9T}1g#O8>s41hd%DY3`tLAIgBG$bj4Csw7Hnnxm(b`moT-
zh%oYtDB}C(@q9`)2-p}b`x(G}IVO#7PS>@JrUk_I-aj?mdsvucM4b8A;uyX_ZWE?%
zhCT0>2N3zn4Biox5K?r9NZDadOh8b^jWP+o0zQFDn-WV?)XDi~@WtKx#bHO1s#Yfl
zMHbCDsIi9ROrK_tDHZba_l;^|#^WE{5Yn&4eNljvEI$nm>UXF#L}e5sNoX}1tfN-!
zB5)_LZ7yr7(oujcl1`7g$&kThzafb;IF!=giSFcjF%LTA&&5oSyHx2wzhQj(=C}UG
zlWIj$)D#lp{MY=5-wch7sB%8s%|y|dR71Y~nM$xe#jk1)wj~-@DRX}P!Yu+zx-YTc
zlFXBH*>22T4y@=bc62Fl{?6Q&Nkx!qDf~xLkU1ZjqI^0byLXi<x4#%H$iM3<Q3wv_
z&bSxDMkKD6mQv64VInK4;_V%~8o_hAaXug|ww}mWSWOc5vJ}iGUyonC?Q1gSlm90V
zBpcN+RdtFZf+U_XNGeCRru*AQmk}}lED-l85|Mb}gk5`RKV?1_Ikss=rRMAEKo=i5
z-KV_IB-W?9ue|5gSn2JY8AK`K`LjJp^Ty;$UCTTO#)vPKCKT^1^G^ex3oVnEvb@cL
zx3Y2K>9o4zIIbS`+X0p6v-Csfvy-n&mISSe2Ni0xj9%I%`&}*a7$(|V&Tpczzwiw)
zwoF?3lqcgSEMl%2n@2yI%hl|K=jmRfLUV@Er_QV(>eIKk7hRY@wn+%?UhWMj54W(^
zNZ(<);(0Dx%JT^|EO#8TjAmHtSr^X~i1e(#K)>yTDT`TMiOrbNF(lMUT6{ih)6eev
z>93il&+3k3G^G=5L2ZR(fZMPRys6c`oIGCHqi(lg*lB528O=}su45A?*rKDrpo*ku
z6=7v;^mO=gP?$7rB%l8%f<|?Y^*ssWfD|(`euQSx(}xkC2MQIiT~hFTvkH4#oR{VI
zKECMc2~L{bQ<E(9ObEV4{e|p%U6vXKx(et#z8a7g^g%vI7%YRYU`-N^+jal7UUzLe
z)!q{|h0_BWwE6YP5+ZS2q<cmQ*Y}JZZ|{AUDCV^q`Kvv)9D8bJBYqt9eMYc2viK#I
zDKewGs!_EZyZ@@K<Cm9Nt&OBu7*Cb$K9a3Q4PR6bi5Q3Pgg*JP550k`a!t@y#I6DE
zScZfQH>q}SL*u$#xRA;{tjwQ$pPpR8+EH(uM+sM{R`bb}5>M=@p4pJ-bsv4RZmw8=
zRsFD~M=c83oOP9?I7PW&pJn7nsB0okXa5V-MoP+Hwr{?>+DUV74a0i*r(Vv4&>A>5
zyj(uM5I^;s@n0%WqP0`M-@@7bD6>L9t3;tXBz>(F#Wp>*%<5a4G;LW(_jm3r3kYA%
z=-t;vx%|#g5}@78fU@6jbo=$1=QUrt^LdVXkv4MjA1Go0f@oK$I~yX+O!UnbwE=m~
zMndLd3&(Ihj_tAW{b_~wc!QtYDEIP|iGFXFiD%rm)V!IIL)h$T`xP;ZaW#Kz4b+|e
z0P8C0fA6HVIQ1g;He;jkmx7d2vrWSv{`2sk9eiVVf_ijLW3H|K{8ALtxOF=8z=#QU
z$mP3Wr@Yw$Qk{uS&Epi#_>iONlS4N=WJ=mmQMbL0jt`k##yy3{oqRVhXraQ4YU;aj
zfAy{1DhEDGQJ$#Q{m(V${L{0;oo*`vDZlYwU#7B75?ugT%r{ooVt?)gJ>~<8A0-tO
z)2)=#19f)UR!PIuXNa^so+JupCm!aIF^PsSo(kE{s^4kg%qhl1KVlcTw_ZO@6t-_V
ztmY$<-^zK>>`W%_`SQ!BfB}+g>%EMU)2}|h>Lfp3)va%Bhz0%yLX`T;7xtud2$M4$
zk#=JD?-6txuhuEP(htOqvqUZH;`cUa6gedKePDE8LC#2sVAUxG-_%EEN745<`~nNx
zBMnlzkW!(r_r~5nXYP$8)U#W?ftjPo*6Wv>nUvA{x&#L=GLUbvF7f^2UXE&m=S+zG
z-s_MBXQ@fx8PAb!lqPkJPwV_83On|o-xh+4AZsxO<H-Y0a^MpH$?lo_CTqR$szXm{
z{Csv?OLJV;8oUrb+_{gHEJ>X_0&#K0#ihetn>$1KuUzzc<9Ov<-xGz|;>c#qK`^Z%
zpSx6!1}ad9GFu9PWyR3=#gUFo<^riE2ydx64C6RxOn|G2-Srg4KK`3Jmx3ZSeqEx>
zuk}6UyF|c_@L?MEte(rJww4>7)%gH+6R&TG(1=#1HOOS3wq#xY(_J2SlZ#}2GFK*9
z%GVLZ2}E{eT!znd-Qf3jSJv9!_uC{1{Oh!u{v;6XS&XRLtY2c6Gb@Mjam=Npc^Bi*
zJ+7n=9p?SQBu-Pv{wu{bap#mt_EI5+NcKFUOx4KtfF}Vg7!^)7%n%c;S<+F`pK;4m
zluF`JgQR!ktMGCOk=v*GJQ1nVWbKrAQ&Mdu@(O)%?!!0UMv1;EP7;!(QA(b4gH)z>
zE{C4&<|BpGcXEh=VhlplIWN|xrK`T6p6pSV6=fv67G7OO6t=c+6fI5iNd#G`7%(h(
zzrfH!_o7m3asEYk&euZ1zWb;AKye2Pnn*Sye0kM=Z^PE^gjj~_r?Qlb1T&T4i%9r6
zFl<?PGI!c7z5@%Bp@rD|yjE<9%h1|H{OweveZK6#^SZ37$4Ed>QZC;Iwp+P@eYTJ~
z|Cb&%FQwAsroZv%QobE&&X&I~BG)b(Y9QAZPH>T9+=m<b<H`Vs<uzcx*u&*|9K%Pf
z``~sP%LeO?*k&ZGV&1(^Bmtwa&hI!`zZ1@D`Zp{x$&Q)GS~m5^Im<U^23*wT+#EW5
zmWsyY`dU9${o0KL$VJsL0oRsMFTYOayc^k%$Q-cgrfk*ghDTJe6UZ3Fyk8&$eE^JP
z;V*)n*4&gG^M`+kRMlIxXvNC8%~t25p*vh;y+-n_DHA$&g(I@K&Ur)VWAdu6-ewG1
z!pC4?RfEApsJ%(?cj!>e{Z@8*f)de_AQAZ$k2#la{$G166Y@QDtUpgjWSzf{cCxFX
z%?7^v!NB27X`9tIL7@i<>mrg=OSm;1rK4Nc2R0gw)~UVljhY9m;v&%aT))MCP~D7c
zT`d%|t}^*pXzKQE82XCg@ful(p6+ebADb6EJByvnkAy<_917B&-XouAi$?c<2YqcS
z#9e1&p?4Bwqq?_!`oe>~^cx9UcPP0pu@+_V^0>qwsNl{}Ku_v^jKoxV%vIjGiY0$$
zp|4l*&+uQhbRm3Ptr^glWIt6PY|ZbfD70kf2;SC^uC?x47$+<Li0dG;96-w@4zF@1
zv6C``^%Up3ML>jM&NECFcdvVIwIVyh5p<c2x0jbGv&W>s&Wg*$^sIr_3b2^gM)s%K
zXM=4{&4-&3HP9`NsV_`2_<;BFIb28UOsQ=IqSfV`r@i-?Hw=QW`^ba&2>3<n+(eNZ
zG9}fFKr^RJH!Yd!$6oBz4A~?aCbC=eC#?=Nu?6H)X+CxF>z<Pax5H_nPvXd>{lk=L
zGJ0H%f)}w9Vly+Vqhx#USFZEwS&s!3n5+__*dU+}Yl(gKk=4$L%A4CR+VwLRpF|r1
z7FU0^zFykhTeDO7Ogrv~wkkV5a)@CJ_Wlgwhp}On+%cK2ha_zolPY8d#M0wOz$FPT
z48!OjU8^S6%v_jrE}tgBO;;*^FOfYR(;ba|ih6}uB?+Hek2haFo#x@cjG;X1#MBZ|
z;%~@iX^H)!Rbavd>~imH?88xo^cyqoGh&PjX?LU=yscMjvLO$KPJ9<pb;bhZvUJlP
z+ZOVhF$n-+vZ$%Coy$rKMvor~cOU(n8wwta&v%6Dj}3U#$v%&t04L2MT%=RhfB=Zn
zO#EwB)!-+Gwt3$o8F4#`?~RzSLZdp_E=U=HUCW%mS-)?YTHWYXI#99H{47u258+Oj
z?%NIN_~Z8R*PSOEDK!Q~Lur5OQf`|E>#%_^C~ALW$C3xSDp;F723h1h!OXcI7C9A3
zD1{OH!IOx+e%|AIZ>oY!@wJPv{M`tnz}^$gqrm8n<dL{4W0iCi&72*|(p$F(Q}X_s
z>c%W@c(*yPsU}2DZn!`uBeL-YEq+Qlx5`EXdz3C$?eoYhOi7=XS5&R;HWXuFfK^sV
zkCw^lER%(%E+p*^>+psvQ_tV1+ud6-WJIb}`C{|=XqLVxq4RI~#4l=!L<@Rh2(5{9
z@dld{<L5sq0F2-Erc~DMjXD?mxYa6U@q7Cu>XfiscE!utTR-&s#z=Hm(NV~3(U}aN
zC5K@Z%Ll0pdZhiZn=A9D;0|x(MHWUg8p(Uc14d%kKW;oX{$Y5epT|;+l0ZSzyY!0G
zMuW6ys_lfjC5kR9?u;YBO0>qhRHN*vh<Y98k`Es8sHv@{S2#_bk~9eomgcv1QL#P6
zWE%&*gJ0dr(@^L{OOuHq?i=~Be_ZTuFBMuzPV#$NjT!nkbGLOh5mEtA*|*j%Q8||c
zuKsh!BxOP{Gx_138M@)MFIDu8RF`O;1armv=y`*VYW@>#d<Jn%v<XCNPeY)yF-fh%
zDYeoZI*f9AX*J#NphR$7Lne(hs=wdAdF;4#{HDahRcmc)pylXg#<lHV^-_rvCSOw_
zbG|P<pJkEo`XsWM7f86Toa(EkwgF7>KUw_oOxk-#O*gbtz)qKC&Z-mcgbq8R4ot82
zo{;0&%-0Pn>54XV9^2iHt-JPm9bt$<^q2&v%ttw=$0`^3JuLv1H6(>3MisA1)-JV2
z(W)l-A$dYwpK7Lo4?G#?A}#HsdSh3sj(mpscSA_yA!qRqJV6zoFZ(V<0mDAs76W=d
zSw63|9Ps>rl7vaL&x%Mz;+JVR{FL+O@}tY%l#yar5|XthDmgv@jHO_w$Kh}U@Gv^Q
zaS@REyoR*RGOtjlPAV5{tUGSgs9~odrHz&|N)cfikiTl0xO3a!?9un<XK&DJWe(vk
zO7-~$-)EQzkj2b-c7}%BO5Y_NllSO!UXgCtnuw-pgG(%>5hm!p{+mB28jboe3e!>?
z+%#G?#O&5*3~XHKCr8V2tYpBqFam6NhaTPOIYhGykiR_ByM`MpN$F9%QrD#<PpBQA
z5aK<GpjRa|A#l%B@@s$*4E*&U@B3*pF@i{auD)>IkZWj7XRK`zzdZ&RUDM-g5X*jx
z7)xo$rD818kj3ku={ypW?ei>#gE~QTtun`x;O?ZTlFp;h$itz7Xpo{7YWw;Om}Tw+
z^muBt2XCG-vY-1L`cmzegMIKH0Yd+$onT#<=Sz+LEtLGzg?f;)kd%@9#0TO@5!~AH
zf*vEccdN=wKV5630j1aQ@W^MOin&3PvI8pJx0{AY4OKGNpV7XUIa2=Xn435?;nBaq
zOZ}2<UPnH2TAdbfxY^TwuozymK7r1opo~jTX94UiA{F;MSF3Uz?~x`&<uN6A%#!X3
zY390q_i}f4bqZr^Z$t`(cHK4Ho;)bhT8rfrTK6nugbu8|7d3rBC?)|5(7`ODRt>7=
z4z}2xt|>j+$?M!wQEN(!HMVlM4=T(^m-vpHj0vY4R((_Ocj&$3>36X@{!4T>+#zq4
zzm3Cb{j?p4VR2F=*Xp%}#42Bm%2#P+M7W|LSX>mHUbQokv1xi4ZXU`IN_B3jl2WD>
z3y_I8xd-YCI7kYd7gmRt#SeLr^p)}Y(+<XzjUpGj^K18xyGXXlYp!Dp#c%iXsr5>J
zHu)%4plskf+Op%%(&7zltUC2*)AF-hvP>y;@SX2+?3Q%f$-AXE-H5N>V$i!a5@2#^
zsYeFbDzPBuc&pHK2tBS~F6!lSk(UE28Dm>&PzjP#zd6uxrg{T@b`xG1AEp<P+M0GV
z08d_;%cpvYIWBxM`MoMD9=Njf+|iZ=C@)>m@`<39#O&?e<@a8LrR}5rtNJxb#BfLm
zT`N_fZHh2ls76kllD}az*<_%VGxvz!IWW;WZJf;Sv^2l>_bY0uw!QAD)DW<|*-YI@
z7DK$2Pb~2@XcpD043D#rk<qZgHpQTMac6%p71DiFpQ+X-7RJNXb~tnaDNp$Ah;}Pb
z^NUS3VY<JJUd*3oT9xbC{R8Em9_bz53L^RCXXjqZ1*+)wDJiO*>R1SA)L{%gH82zu
zCQg0av;=jyY~`8XcQd2`Qd7V=oMy@xXmV=Ty@t_&A>|$yKSB{a5#B!w;5Ut%OP=RN
zjQOYi0D`mQX;DJ&{f?-Pr&^bknxq4Q;5>1$i$T_4Bz(q7EdniC)^<}<&y7V{<ght|
zD6C6hHaB?sh<n*cV?N?l^P$?b_S7hDIE@zVoV!3d_Jn=S&(a`|O5TYYP_})wI0w@`
z!fP%(jI@NN)0<{O*!C|0r-m2VV6ufb4{-<koFV4Slyp74-x=?W`Et6Cw8_2|n;#a{
zSyuB{fD{&W3A5j08Q`no)3u=1F*TA=o5jxE9IXC{R|BpV$pgE7Cdx_DX~SZR_j=gJ
zjT%a=DGS(%htXd@1&DLKMV}5_RA9q&NKWL(A&unwZ1F1=r`|*-^PI+bj6Ekev_yA!
z%Y8a<SV)JbJHSY^({k3j9ZkmOS;J1QP2$&zGC~*a7e#8=6Z1ZaaoI)uB|+-FI?A!d
zwspdE{M&vXXIH1CsS;+`ubcZ=ajT!j{@GJ+TcCQ*VmD$>XYvMdoFi6KU{NFPvZ~@I
zB5X!J1!e+fAhQ{|BV*1j)b1s}<i9WrAvgsi;pI$w641lo!QV)>gbSueSp8~)7axej
zd_o+X>uR)IxRPkGA;7+gvx<=k{#!(moD}o*lcjWt$Ijc$2?b_Zk6i7nGbun3!<(82
z!9Vg6+`Z4h8;;qVlIk)I7HygfhXLhR#xZ`&*;Mjrzut&DyuT?A+MvOHN$2^M?(zkd
z%;o5~w{#XQ9eCX7B7gMj!ghUl&ZVX@L8(N18vhGl(}KDww!VH~rL-8L=d+#EN&x_D
zRgT9o{K!m=C@~+s>;MYLU;7KC%dYlRqj(IZox7mT@JxQ^{%9*ft|!8%V9Apm{F!j*
z3Es*`W<u^wybe;d{YGxKkjg|H;{KD5$wYNVI!a3t`>CMcwiFZsG#R?nyK&_2N9(EZ
z0_<q_D8GPHWMU7M#TgPc#5(G1`QtoC5Xx#>yjELUB(oi|@2&9fk0t5P`CT-P94<OH
z_KvI3^6H#@@q#P=Mi4x>=y0q?ftKm_G-Sjx@Iz8|CXKU5{l#U1vanIB{#|LgogFWE
z+=uu`7hh9Tzsha7PfwORMhCVCKzZJRq`fb{OSus&{>hcg-bc;ZEE@DhcRDfaut;Ha
z(IEQtTFKdGDfI4q(my9u8%n8vfBhLTcYpr|V-#nF=uL$IPU9&X@U(x<)pvPmDhX=(
z$C}E9Lo6B`<V{78C1K+9QrE6PXLs%%b&78IJAy%ASBVT-{yIupOLn__I9>$lQAqep
zU%~h(^;Rp*_w)morm0N)cQ!v9s9#8ibiTHRDz}toaXD^HpEdKogCQibJjv{QWLsis
zm!Q{~tmPTcSd?wv*nU0spN2+kEeGW6y#Wn_!ZNXcVGS!&6|iCMqPYuEs0YOlH=zXe
zv|50(GjBs(BI}z%*mNgiKno=lbCOq{Hg0iLq9Ph#@0P`y@|yYtXX<uv_FGO;U&Oh@
z`DQ#lbzM#?B!K?-ZSZ<$<HW5Cv^;=y1sHA7(8pfok#wE8Ea)q=`dDm5eA1W3EbuPm
z$zH~@<n>GF?#wIS1uH&h|BEaZwE$=T)PlPkqA(0|MYH%sj1Q#t!I^%2S(BSP1^eGN
z2Klq7^(8(cQw#~TOKA6eff1vduosk(4K`J5XQQW%rQQOuvo<R;Me-m|it)w05T%0-
zekaQ}DdnLiLT(x7LG))`V%a$x!mHo&rQryx4KVJR2>0Uyv-8tmCwI6S3G;I1y!Gxt
z-(U7G?#3-nXrPyePZ`>{C*CTlh4%L|wmhSry}aBo00n&e)r=Di@I-su`viV#y<_->
z9(W5AFeyq)b!l0x%ahjNENGJn&fKqNNA|x?hPUjv&?^PYg^VDAuGeVyXJ0KtWm<eZ
z3_bNa<^qy*1E|T>!lx$IBv(d+({^8H)~9GbZ=z~_#4viku{P9MO(Oyo2FkXPST12K
zJ0++K`NW1Eq*-c&jOdX;==2uB!VM9HtQ?B#wN4^2O*(1T;tn?2Yx7<nM{aApmcBnO
zV=Bt2reC8@x5qE$YQL0kCXUW$q+IX8AyauY*6B#(e`Uv5EwU>k#dv!s>6a}=GH8eo
zk~q5)X-{SavEj546+bg1#_&ZxO0EbBbl=T+PSZ+Z-mVEwCN)+!W*x6yU6OB3T@l8Q
zQh})huug8zv}}j<#6HDO^b{!sUZ(?$2({}XUJK@Q*o@vC=zxT0H1^$AK7Brd^$k+S
zLtX;1@Hm!i4~}DA06T*{xUi-dY`zt4tq2+))fZTayrZkb__}*mGZY$%%ct85rduAV
z%RBOyL=g2Z6c}hmdbRvA3ZxHl_NL*?E4px9JE}fWk{av<J3RVa{i`^?(~)8tL}<}_
z;Xm?@I@(Ty=_c%KmN~_{2KyQg>!o_wfjzG26FQd(Ugm&a%mMb9@;e3UhPm`0W_y>J
zgytlqq}^MJ6V2wzZt;uO-+zO`);jYnzK+iNWrd0W2d7!pjZ+`D!Y6v5B0m`W?_`3)
zHbQ|+s$9UH$02+}^HKEFeU}mRF_d(P<6+P+Y!{bdGrG}dyu&KCbf=l&pG#g2BHX5>
zfFkjCHe&C+)3Vr7<6&3;OtYB3nPsP``HQ>Eq`d)726TSo{x~Ue2`}biNB>w>dT3dE
zQVPU?C1_-pPw6UYDlxym%g1R4G3@zK*W}AgdSjY(UlvOX6%-Mg`(et{tvb>~LZ@+y
zhB_o?0~9*$WGF>jH_<qJ(eWdsY(vz&2bG;O(1PjDR1UVqbjB12J((kq$Py$~Oc4B{
zABCGdkFInE;UenaxY2Uu`tFN12gf!60OCh7Td%`Ndrc@aYeu`=7gY4mDt+`{`}xb)
zg3tZw>hOr`Mjs;xJ5xk2{C`r!as4}Ob#v92G8mb_Hu(B}<#rOZw<dk(Q-QHVL)O*L
z??lNoTMjLV9$Wf%CWvm5fcJ7vj`To=$*iP5GY8)PC$|q-5eb^b?R-9pOUciO1*Ld@
zrBIE5AGKtIj>&K~IIvbbY<m#u{*vmqUrUw*F|r~SGz$|$5Td(pa<o6+b^~;Uh>_kw
z=`dGPj#@Mv$d|c_Co=n*z6&N^_|$!opQyqcH`aPbK_=ErDm>=?;!T?6J$(!@H~I5(
z|Cu_Xt4<3)=WcnwI9v3f<6wIHE{gc6rrgF1Fd?0Jm-Y2zE1TK-tC`e-HW%m;poo}}
z^P6KJr^F(a76BzOFKzkr?~QW_*XX1neE8sT1=KzjDSCa`W{LNVg)RlU7tJ^qwZwxx
zF;}Kuj*MAGhwQ~DNfGe>35;wofPoluBmS0LO1z<v5vghorN<vHlJ~#dn}*;lh&<Oe
zl)NxSt=<aZ5yq<nCvJiofz>!Y+@?PyFdM8!J6@hQnua#m))(^0K)OCijs&8Po+AM+
zkF+|w=AV0O92^Ju<E9z=;kaRE%}qCsT+9*_iss`pxzF>crjXt8;JsdwTwGH8fq^E;
zhnv-k_In{}i70H@p0Rc%m~|;uVLb_Z5g}xXY*-+7nq{p^)S$w)I9L`%eSUH<*SvNt
z<oby0Ps0u#kBecI2ECUK&LKLd!!#2?)AshfW-)YA8$4XsobX&91%CzVChv(2&05d0
z^{D}BHvfdZJl*wOEPw}aoGy}**y0oEVKU%h(l~!!38RMud9S7aaw!K6UI4Qh+s!sx
z_w$CIRK!Nr5&6_55+bq99MoZFsq)!_Ua<t%JlA15DsLV~N=d%8?;Yh{+ZIQCWkZKB
zs)OY}xI1VoHj9e-&<F2~gLhul|B>{!%CHcBjzE&R4pAsDW68yBX5g9llznFN?=*Zm
zGd{1W$@&PjXo;$U<6N+0C~23pvQ_aw(m$)Kgw8pqa|p!Sj%}&LAw`c9KWJ?a{gHXR
zY=a&K>0TBZsZCDmYyL}n=%M}@V<m>Zn+G%u?3`{CywkBMV|&(;+{CuR(H*--RQR(Z
z?`df~G^{RBJ#MB`f26pbfd({ZF7RmhDFL_p2@WnC%!J1g(YGc8nIZ~X5wAZK+>Cj8
zfRW+<Y|v4L^s>S&>&uOmB&?J*99Lk_Uc#)7k9bq=+NOWv{(I={L@RPvG|A057%h;V
z#$OSKLg?x(7LmL>sJBBc$UaKPMP+;{>dai_+h(xSFKg1qGGNSpqnQB)_SByz24;<X
z=zYf5zoyWJUboWBKCwPNSQk|LNXk{%Ey$`7!I*+NsQ`Yo3{v5p)@VrlT{vIgjyN{I
zk;g&8K(xvlbsiJ4x<QYC3|Mq((_Oj75bTmpf!1mskmR}NmnX&1`3eVDzB;jta<O!h
zpC7&*N2Ezl{rsLcCB`MNOip$0D84-_=F*xQHvSc32XD@vPCtY0_D-gfP`hDeMBlM9
z%Wd5?^JKw^g1T9EkWB64x4@8$u&jE^VOrHQQW;7OY~G1&LKa+h0iDB}22ki&9ef?W
zS*G5$$!3<}y?c5YIdoE;xF}VqzT<Y~3nA?!ph}Pojc%{6bf=CaOz`QbRJpG!83NI$
zk}b_K!-)Sx|Lqu>0d`(uD#2D+NIVpX!Vj^HN-Sh1W&$UKGi}8+!~@dH*;amFk9xH9
zF;uc>OtuRn!t@Zws#0OVp5<tltR7<XC8yrEon8do-(JGPM>xs3@7L!Z+YOS1@G(j#
z27|&MXGYK>mpf;cNZ(|n2h_%^5SrXJV2{@BB4@>{cXcla-|ykfIiwXK<kDXi7EAFk
zHhl4$x>fC~23bdFn<0PK@!*eke8#EF7O*5**%T3|;SHmY(Fil5y0;c$z+KR&tA1)7
z*qlK@vuCm05n0@9J!h}(1yN9J40Mj5tf?cUoS<~2iX3M+)iRlT(u#Qr&hxVK;Oec^
zn0w8on)2vNbR`ldXRIm%>iuQVZqI~^BnwU3zZt0<uwT;Z{DnB3n)IIwk1~j5tE#Oo
z2%e45LN??p#=7DYF;J?AjTyvmR(ufS*)adBb&1{87%E4vt1vTFsW21Kl7fmqsFa@U
z#OV3<797GR_Lw~Ns?oXvr+(+Awl=;M4|F9G&>1e5^vsG*t;e)S?+r3Y2G*h9yQr5%
z_Sk;dzo%$_sa1)Lh9KuU4whS)X>mJ=@6P{7hLV@~kuQ!vA%tyKttL9jyh3&$r`|*T
znn!v9RYKVJxNKAzA3@m&`wh;Vxe&TMmSa4H6Gh5wzX4b2wPIceOwu0m&*%%AE4H%J
z=`?C(+$RO|NHw|rcpe*AG2;g8^cMFu>&#GV_@#$kDWG7j{_5P3QPgdGbs8-Lc<uh@
z8V0h$zH8&wz?o63rE@SpmY@|?bgWqGv#%`bPmdL(!{b?h&OD%nc^x;S&v+!}>Hod{
zxgncUBrjSyR6J?I-gtzj2A}}y<;Fc!rDk_we8m>gX7S0Rp_q3cnP)3r!Zi7Mp#R5)
zuRZqu^EqdAhkbU9elQQUB+2y(AI;-P>ON+~Yq8dtjv^ZWZx)I@_J!78$9~%>Ux+Pp
z`_o*ff6Mhc!c#<LwdnH|9mNuvlT^~Nz{kX^kcPLD<x$t~9xw4~b>{ZTjMM^4W;v>V
zwt+8%MeW*r;t`eE*!hRwR1o2j<?V`QHx$CB9=$s}?;~al2y}%$bU(^*r8}Ap<$)9~
z*^?%CV4D5)R(k9(_~pR*>HgnbExJ@wCqLJ}PsMK~=M*z+s*NKh7O!W%=yfBsM6XT!
zYT~gWW@8pGF7g{brx}V$mmNQ+_sc&u$wGH^U>(EzNh}-Bl$Y2+;Xh#=Jjgquu#q>`
z6q^@3xo?WKr^@>3>NT0Z!Fx5n)L}39dG>={$Ke6vO~21I2psxSf)D5>3M+XP?}Kr_
z{fea<&!oU}Xmn3_x=0l1+O4VN$Pao$^@;L~+p`LDj?Mjdq)cQds@@CJ%rIB8IIfJT
zxs+4z(;E9b`8NOCk;6T=paz@Ovt$H=?4-xUk9dq7Yq1g3cd=*jLtudgPVe0rFgYny
zxl43OU-he^ZyM)9J*{0Fr|R@Xy_%MHEM?5V{V_LCie*|sg+y3cgi@>U33VQED6sQP
zgx_WF+5Ed=lC5|KTse<3OVdlc&V6nh-@TyS+pzKd;v_Ntxwl;i&8g%dtr%kj(b$!p
zUJiN794sc9fjn`xLfFMY4fr$pD2rd2d{ui-C*jo(k6?}F6c)o#(GLS>FS9I4FC+)h
zRe_yhBT({Z35$!_VL1wzoQhJ>%Spu+*jCtkT^>ZasN(B7qE8Y643yDO&0wL-V~bq&
zb4E-H&Zjz?Hd(#S`2~wzQ0DzAzDRj-#!~%V*U`>rn>g1n6%q}^keqTfhnUqIE!_ut
z%yJrV(wBMG&Lgq!dcrgyo{31L-Rhj;2!yn$E*?x!Sik;88mV6hl~Ayu(-|+5<!-1?
zNEIW~gYY4a4?Pn2rIi<3MGt1fG@x^|ZoG{3&H9{wn!4-NxQJtk-zvECR!JXIBhzb$
z^h{!W?qorzL-J(SxQQUS;UW=;lzaTR#A=6WnfkoRh9jZ=P-2iOA`4Y5IFQ4(hboeO
zb0Uq<lJ_&OkN=Bk!<WWf+>w=8*ZsEo*`)VVz|S6ocTnX_r_ZCE{V0`x{a~A!*@0}g
zqWO$r0w&-cO3}z4hpIKsOVv-Tbbpey@nt;Qhe@Q=yb^jlk(vyIbLd8WB2Z2h8+J?l
z6IEO@XWMnij*)Rb;OX<z#14$SM~B|$wmcZ4-u*<Ra{EowSLD`qfQGr0MpZtv+a;w4
z`VL2&*t)5K(q3HrNt>_q>>jJTt{!sx%gbs;tDabeFbk^WPutJ@HYzCP)xQu2P>9JJ
zkC#9xg59|9GVDY!8FKk*PC16NsTnE`>_Zlum*YH6(pl!;mZn1$5iT_}@*`1S8D?D!
z76(%;kf`#>9+ysnq*_V{=uce_#BnX}4pnXW-t|dUuFb0Yem-Bz1&tXE4CKHKJa3LL
zgsEzgejpwh#g(Jc*<g)z55Qz_7dR=mqTFWW-I<8uyV1Ev%0HHp8o@%<aBytyzqmEH
z1$&5zBMBfY;+y=-vfa&*23gR`a!294u0p18X!nZJ&3GS^xjCv_vHn#4OM+N!n($3e
zi=`8(WNnx3=B1n9kBPdv5Wc^Q`&$%RcC(y+*pO|#c_-&;^-X7!1cLkGMV2?-WMOTL
z1y~)a>cmCj{E5b)(3zaR8-G-nUG8dbn{XS9u_q!xVIGOSy9xA6bwt+Yd;nc}dHe&a
z=94OuCHaGiS9mH_iptly4w3!8-~3T202d|1q+X>qsY_jn9)=Nzo%qM=QIbd2OvOe@
zaVp;c*_U-3**{sQ&p{SF(Bxaaz8njF-=+QlT#+8Z`THlPMVWZ`?k&~!(@DR2C#O7)
z<f%Hg!?i-I<@;c014(Ek#L{%x+<A~yNAh*~Nb=cu+l%WxtH1?Pk-nXlxSn7~Dh7Q1
z!wCcnNe6h0+%ai~VOP(@XZF&#^>`_5hPo{+D>y+bok3}U?QH$5OC<fa3~{`)k7SeD
z<%MIE@4aZ4Z^DkGo;Rmc?*n1394YZEI1aKFaA2}Z3>@Ri)`rs&;cRdii^SI$I!#&$
zY)YBF2X;a~3W!NyRH_k%iELRuH`$j%Sih~k(J}BCv}f%avPhGdygBgxhG2lN3XKYB
z9jUlJ;<xK9&84pY)+B&OcJ#gLW|Bg$$+@;vzSr_eVhNK#aTBoYT4wS1FzM?-lnD^n
zNfagf<l}qW$K9r}P@`moR*EO*2ZLDpv!*PIzWh^sB%n|}eROc5XE|TcDDI8*2c^EP
z%|00BO4(ImIb&d({#jOa>`xEC;j-!VN|fwNLNUQ(y`#|E^ebn?<Vy)#Gdhn1kt}wB
zIdk`B*Dd`98GKnees2L%{)Xr8xqVvl5RSMyCPw%KZaY4UsA3I>kWZb<wHbsUJwGd5
zD4pI)4PqES@jcp#sXBhV4(Vw6St$@4<)e|f-r(_pjau?TNT#6mG(-c{kz)eDDyjd`
zUW?odY#zdQbOJKehAtU4O}`L-wY{4ro9eEF7?C2|r|GPe_?)$0%==BW<r!|xS_0JK
zG(y=hQDcS@Fp!K7cu}L^J|FJ6JOO6@^7o|uO*M`Acc-_WuyqGaM5Qj0{x>!O1M*Ry
zuFcla$2(y=zXBXF_?10`fgac=2{aM}Lgc=ndq0WBC_t*mBSZ|E2?`I>yv#M@6)2ma
zEeFrOe`2G~9+3}i=7(;_Dq-h3x8z#ARH4U3lL0PZp}CZ?gnxEVbM6-uiQ<3cZ1Jhk
zjb|5<LTLR%-96xGFm!pZo#7R$W|Pmm+>fmS>O4e3s3Uh!NDp%{dq@F3=G&rycEz84
ziu-HY&!T=K)A#jFj~G6Fh3V{J^a>@V$8yQLFL}%7q#pACH9clx*_g-T=);HzF{_$x
zf+HvJCYA4uWl`&>s<zVoj9(LzUbTkSW!2BXvX+R*qH^D_0zP&Kw2nUF-u=M%*NpgE
zQfp@x-Ut6ISeMo;Efb(TlQUaHT%_kyo}>1i!cv@*e{d?n`&L^KqtR;V#AIRQb*@pR
zd(`F3)xoe)kt{!TmFeH-AI|JC8G<0815*j=`65(^{$-8`SRiHR9j%LWt+wOByW^jI
zDpUJ(60}j!6s3z#vhJpwzxz0z<i+97G4x_Zl!=4FpVDWCaE5>=L3gRDPAQtD)VG9k
z5)l8sfbZZ(P7Bs>5~p5EOFCW9BZu$FE>Wjm&2w|cx$yMj>Vw&nVNHkp=tHlhlax^U
zu-RY_CN+@Rv_D@1Ro-d-wmsB;$z1&T!GAz2LN1$`dCbe8Ro(Q$Qc@wsO`n)kuQwvq
zPid~j*RA8&-2WssnrVG!x2GvjW)H-{WT+wfAi{c1VoOHULS2cfy}TacS_wx__Y>(>
zrio6hq-7cHl3;b4CSo)@6cJBhl&8x5c(>Mz{kiV1cl<*CpX|K-RWJ4vPB`&Xf(n76
zw^AsSkk*~Vi>{KB=_J|k<tQ6CXI1=&2ghdp*Cm=~@8~Yp?IWSm7)d+&6{aI_YS!Ud
zEz!VV5}xwWE!z8TZB)yr0c7Fpr>)$9Z;uK~=T6HUR1ALj@^wj^6yXWvr=yO47=byv
z?euYjRn*j09Qg8>stQ8E1KF41lSr?>k|Ks4j?~C^HQnGK`B0lpUV{mv)#=taolv+<
z!jFs-AF1ur%n^(qvsIc2+~6$W{<cz@?Dfzs$R2_!r{7&ZY7%4QjeQy*uuXxS4u?rc
zz9M=&AG@npb?*6Qmk|<^_z~8|JB=;m&Z@5))m8ahmo4U3C0SbYlf?a(mWw9_n;hok
zX8<JPGrwxy{w5R2tcu`rI4LGW110^pM6UC8XQJ>v*8TpKX!Ueh`-bq5HaL(dyi7ZC
zmpUm%9$iTvGhl5RR@lq+!~(n(vN72nZk7|bXZH<$U2CI$^`mX8dUy-%k0ZyZ=gSwZ
zl)-$YbY4g7w?J8E$t|99k9^LGRNU@q>}3xYbc4ovJGs{(e08VToJjA^q6n<Nc3mY5
z`}|L~TF%9+i}-FN_$ui=z2Pb6<?=yBP?E45sw^iRO6B`hMogkGKy9eg`Mnr0+Vrwe
zN{%d_eWD{-mQ56W<jE4vta=7UVt56iPGT!=h0GVNc5eZEGm)^{V->OxE(L1x4~*vI
zHBmqLgrx8Y^IIwyPun1$4ts?UnScx_(z*%y`*?|2ZH_R=T*tf8xUcR9QYH6&2D@Kc
z%HgB#@7UY5<Z-N%hG*-b{cv<-5SHiFx4LSpO4E<06T5epu0xHwS}6l}m-7|LjU{|P
zGM|%8?9b_vGbQ<2IkONHBrFNr-m<irwt~bto)U`Q^ZxjtaQx#A-qAN-Q?xvJRN=dq
zXY9wLaD8499ugIjM{jBo*aGVs>LwBWfe_d%+jF-liJ%~&nqxE?ss#<yU9*hd2`=nN
z@zdY3cyXgYmlZpIM>xeJMTi2L@nGL6Vq@G9tv&`Y(r#L9Y~FdBOvb-dBY0-@*TCt$
z2M!~#4q2EVIZd2o-KL?5M(+yxz(*9EC}=SFZgx6Dku9O+e(V$AV|JqW<dmX^>$7}g
zT=Oqc4){gC*d?4S0(gS%S}n}z<v_y33*)hMJ5A5O4IF(;=1PZcS#SbFKmc_7y-(yP
zldDYc?g!bqaR3+;B;S}Y+)3kM5*M1fSO6pQw4Eym33~g-j?_n6^Io{8<X0GdHxaCW
zAQ+ZCH4CaF8HEZ2Fsn|nnaS`!`9JcT+7!l)+t&va3#wung=f^8t_(z>EdEjK7Fv7^
z1^-}mC>-2Ju;T@~b_mV?J;Y#ey1FA%dq4o9Fn2*_BXt${NNiM9HmbxMzz3SmkJ%9V
zrv+s@R#4`%%Q0Pvq{G0R$%pn2EYx2WaNNE=z!x4gcja!kwmS)tp(ts}fbTef>}Mw@
z9v)k2<eTK^fOcu0ySu(`H~iv9brcJ^%e$F>1FBBWk#T;BepfmhQfWxLlZCnAjCE`E
zLAr4aCqFMt-L6g0<W1Q{`ZknqY9`i)Gaz|x(ZZ*6ul<doQ?%_->hL}-N-uQuU4<+@
zIzXCcbx2A$MNVA;7A=1z=0smu728H)cK+Re!DISa;8AmOR-jJ6fk!m_^P#g%0wUkv
z*vp%s`M_nI?ql*hg3{|^D$Tb}sL}zW){V!DJco@O_X-E{aji{<Y*hrcznfZmUk)Db
zEgZaj@+j!-NJqKIk?@#28h~C|S@CW6X#9!CoHYJ>K|M5toK)ZQ*Bn9GL>G)obOTc+
z>rg2nSV*mpy1~__&9mAZ%K2}^H}G|9|4F6d-NOJXB!(;qT{`P;(mg7O%Wr_g15?$w
zO_A$;YPv0w_5(#Kw7wudFbEA*SL9%R^#kG{=?U8N7}BHUF$!Ed5#)Uc#VZ7j=Ap+S
z3hg9K!e5BqRqLHr1a!S>WX%5|uO|%&y4@n){(Sf&ccFIVYvD+M^G##DBo`2cjH1Uu
z;IyW1paFt_J*Fn;_G6)Js*Eg^!G*>(M4^(A2sLs^SZAMpk2op`eAlGU%bppcFrth^
zq2rl7%XMt&V&uHh-E<vt(Ml_FaC7HsV_s@0WH|~pNXgU;S&7O=30At?k->kDi!n7?
z5Rsxo{Kh|G8*POL{kJtg%~Vll>VY2wgx+3Qs6qwx`h&u^NdtA?)wo<+-hE<vs($8S
z*m^LuGB7*WX}V%Kfu;QN^I^tROA~N?P7?mIdsQzQo@lo@c;Zoa{NugYe40I)7txz=
z{b2^opw@(mk^Rrn=~fRW*l-9yOw(zgHzvj(qHhkgd)6JJcX?<62#Hip)Zo^Fe~v7t
zQehna;MDqoT(uMx$a}@nMqxb@`Rt{M^!wypsO5F~S1wGLH{5}+a!EEfN1m(a90lBz
zUi#q$gP;abw$10V$bPngsZj#{OTzWGXppG(vA1UXIf!M*SL~vKWbEyFNz}-5$@JTn
z4bfkMc2D(4MgtlT`Mk-zo>>JRH~+kN_fqe-P!yve%6VIU0&I4y!Rbj4ak-p0f)=RN
zi`h(U4jrG*ffjPksnCB!vZWth8j~C|Yjs$5`T5$qX-LBAZ8*A7XyJD3G<4_RcQODJ
zoSC(AJKxbROM&<l%jvi8_1jSz!*WOOrR7o*wQUE^^l0Ov5^TtdWmo;h@sC`Qnuh@e
zzHF7FMnQZqa}?b7%x8{?)p|7OCS@!nYu;+xr9u8aeEqWbn~Ie6X_b%gbCo}m+eNKF
z%b{vSs53N_&S2Zn3-@6=(V8V^m6mfE_lQ6C5T3&kR<%sM_b&EocZi0*d>mgJNmNGp
zS9l7UqLA8`q+#Lf&%X}&80X5V;nj3|+uU9VJH6-l%*E+>H#6?#XeT8@Sc*cNOCN4U
zW#domLiO5E^Ncn*FU>ablcpEHDfCezt*?9b)=Q;hKEnBs1DHlmiR<|vB@7`)RKHQ|
zI4g2W9>#2v&wn#%o}zf++**?_3{2>L_>m?*UZVZhj{jg1gCDlr1Ad<|XVf4#Y08Fp
zVdwKs;gc5yauhRa7tV&{R#&B)hyF9?qD(+EQ>7ng)QqV3Q`)R%!<%TAveCc46tmeZ
zCFO=o#DxFo@QWgF{A@6<lL*{N>~SmZ_WL|%g&MHSj}Qc?DJvvIQ{VmO=9JZZq>55`
z?sIpxO>o-F2<t>~yTc|wVg^wU8{Xzj9W%z*t^c6FP2C+xCB(b+=G-CBKoW*j@oO=y
z0_OKMFB5aw<ztoJ6KA9)O*I@i+pFO<{v~iw2d`nFB8s{|*d|X~4|BGUvA>#MPanBu
zkiLnQWYOx$rY;%z_W1SVz<QMyUc>ohT~kL!#OpGFi~)G#`(r4|)Q3y5%Ha}B^jJ#h
zr*l^O$H2h%Z2q`v7w#eX%nG$xnqk>dJhq9pT~f_U#|vMh3M1qaWQq3IRWNsQcO?xN
z;YF}@(c1x$f0A&<p35K6@v~}Wod`0A9~O5k!TSBUma@|7`&aYjc+EGfZC_7!`|Oxr
zL0@sV#&gEiXLcz%mK52VeD`Q9C@%Cb&+oHV`gT+u)$jBMev}xXK7LB)HYI;Nalo95
zv}wwai=;;Z{~oe8{D=rUu;?CIU|v?_{VV3S(ZfD@w1d0S#W*T9zISORlxJ4%<L9A4
z$t8Q^0A8P06x@4jozq$SUNhrvpAMO_Zb3~<{|6h-lfU?IrCNLD5@4#!9{E_*wn9TA
zHw+xTX*ByPSklz5imd{F;piV&8bI01HY6F<Ii4R;`X*}LCVFTBXPULsUakds`Sw$*
z?`8*LSalh<@;}Vdq^<Jy*QDX7k~cSvB}GWD<=@{tj;<4|&{u6!FX6e)MY6vspn-I#
zbsu#}%V|w3zANQ(VoxXmELlIXbyIoczxC-;QQ&DugLt1yq6%sX7R-(Qj|YHUxUV^c
zjd0j!E<7hT-_~F(J@ZyJj|Gvs_}jVFW!*Sled?e6&V-h=>(+#KmhMWz_TQG?yuuJA
z8V}MBjG7RACCt6q$(#-Huz3yrLg4?~ly865a~-_%aPzKU#`@%4qL)^(yz<nzxbJK1
z9{H&A8-+p66p+4Zw{c&FN?(Y=oR=RNB7a($<+oq)|B~*iS}+e355D`VwI3?G=A3%3
z@Tlz8C*!sAnvegT^vP!Z)6hEqO1+{dZl!Wb+rG+j|BbuvS`*pzRam@iTPw$N;F=On
hkOhMT@cpP~WMi;kx~;+fmiq|EQJ$`TF6*2UngFl2NKXI&

diff --git a/inst/report/data_quality_report.Rmd b/inst/report/data_quality_report.Rmd
index bce4df6..4b49505 100644
--- a/inst/report/data_quality_report.Rmd
+++ b/inst/report/data_quality_report.Rmd
@@ -1,7 +1,36 @@
 ---
 title: Data Quality Report
+nep: `r ccd@nepisodes`
+np: `r max(ccd@infotb$pid, na.rm=T)`
+site: `r s <- unique(ccd@infotb$site_id); s[s!="NA"]`
+admt: `r min(ccd@infotb$t_admission, na.rm=T)`
+disct: `r max(ccd@infotb$t_discharge, na.rm=T)`
+dbupdate: `r max(ccd@infotb$parse_time)`
+fulldb: `r dbfull`
+
 ---
 
+    
+```{r, echo=FALSE, warning=FALSE}
+item2d <- c("h_rate", "bp_m_a", "bp_sys_a", "lactate_abg", "bilirubin",
+            "fluid_balance_h", "pao2_abg")
+
+new.config <- function(items) {
+    conf <- list()
+    for (i in items) conf[[stname2code(i)]] <- list()
+    conf
+}
+if (!exists("cctb"))
+    cctb <<- create.cctable(ccd, conf=new.config(item2d), freq=1)$torigin
+
+suppressWarnings(library(pander))
+panderOptions("digits", 2) 
+panderOptions("table.split.table", Inf)
+demg <<- sql.demographic.table(ccd)
+```
+
+
+
 # Data Summary
 ```{r, echo=FALSE}
 dp <- total.data.point(ccd)
@@ -9,24 +38,21 @@ np <- max(ccd@infotb$pid, na.rm=T)
 ```
 
 This database contains **`r ccd@nepisodes`** episode data from 
-**`r length(unique(ccd@infotb$site_id)) - 1`** sites. Based on the NHS numbers and
+**`r length(s[s!="NA"])`** sites. Based on the NHS numbers and
 PAS numbers, we can identify **`r np`** unique patients, among which the earliest
 admission is `r min(ccd@infotb$t_admission, na.rm=T)` and the latest discharge time is
 `r max(ccd@infotb$t_discharge, na.rm=T)`. There are `r dp `
 total data points found in the current database, which makes in average
 `r round(dp/np)` per unique patient. 
 
-## Site Reference
+
+## Site reference
 ```{r, echo=FALSE}
 pander(site.info()[, 1:3], style="rmarkdown")
 ```
 
 ## The original XML files and parse information
 ```{r, echo=FALSE, results="asis"}
-suppressWarnings(library(pander))
-panderOptions("digits", 2) 
-panderOptions("table.split.table", Inf)
-if (!exists("demg")) demg <- demographic.patient.spell(ccd)
 fs <- file.summary(ccd)
 pander(fs[, c("File", "Number of Episode", "Sites"), with=F])
 ```
@@ -47,11 +73,32 @@ table1(demg, c("SEX", "ETHNIC", "LOCA", "DIS", "HDIS"))
 ```{r, echo=FALSE, warning=FALSE, results="asis"}
 demographic.data.completeness(demg)
 ```
-## Selected demographic data by site
+## Sample period of time-wise data
+This is the section to show the completeness of some key time-wise data, e.g.
+physiological data. The completeness of data is measured by sample period. 
+The sample period $P$ is defined as the ratio of the total
+admission hour $T$ to the number of valid hours $D$ where data can be found.
+$$P = \frac{T}{D}$$
+
+
+
+
+```{r, echo=FALSE, warning=FALSE, results="asis"}
+samplerate2d(cctb)
+```
+
 
 
 \newpage
+# Data Distribution
+## Demographic
 ```{r, echo=FALSE, results="asis", warning=FALSE}
 demg.distribution(demg, c("HCM", "apache_score"))
 ```
 
+
+## Physiological & Drugs
+```{r, echo=FALSE, results="asis", warning=FALSE}
+physio.distribution(cctb, item2d)
+```
+
diff --git a/inst/report/report.latex b/inst/report/report.latex
index 2e83d7f..9988779 100644
--- a/inst/report/report.latex
+++ b/inst/report/report.latex
@@ -66,6 +66,9 @@ $endif$
 $if(tables)$
 
 \definecolor{ccdblue}{RGB}{0, 54, 73}
+\definecolor{ccdred}{RGB}{230, 90, 80}
+\definecolor{ccdyellow}{RGB}{200, 200, 0}
+\definecolor{ccdgreen}{RGB}{181, 212, 148}
 \usepackage{longtable}
 \definecolor{light-gray}{gray}{0.95}
 \let\oldlongtable\longtable
@@ -165,9 +168,11 @@ $endfor$
 \usepackage{titling} % Allows custom title configuration 
 \newcommand{\HorRule}{\color{DarkSeaGreen} \rule{\linewidth}{1pt}} % Defines the gold horizontal rule around the title
 \usepackage{pagecolor}% With option pagecolor={somecolor or none}
+
+
 \pretitle{
   \vspace*{\fill}
-  \Oldincludegraphics[scale=0.15]{ccd_color}
+  \Oldincludegraphics[scale=0.7]{ccd_color}
     \par
     \fontsize{35}{35}
     \usefont{OT1}{phv}{b}{n}
@@ -175,38 +180,45 @@ $endfor$
     \selectfont
 }
 \posttitle{
-  %  \par 
-  %\Oldincludegraphics[height=.7cm]{bar}
+  \vskip 0.5em
+  \fontsize{10}{10}
+    \usefont{OT1}{phv}{n}{n}
+    \color{ccdblue}    
+    \selectfont
+    \begin{tabular}{| r | p{0.8\linewidth}|}
+      \hline
+      Site & $site$ \\ \hline
+      N. episode & $nep$ \\ \hline
+      N. patient & $np$\\ \hline
+      Time span &  from $admt$ to $disct$\\ \hline
+      Last update of database& $dbupdate$ \\ \hline
+      Full database & $fulldb$ \\ \hline
+    \end{tabular}
   \vspace*{\fill}
   }
+  
+  \date{}
 $if(title)$
 \title{$title$}
 $endif$
 
-\author{$for(author)$$author$$sep$ \and $endfor$}
-\date{\today}
-
-%\postauthor{\footnotesize \usefont{OT1}{phv}{m}{sl} \color{Black} % Configuration for the institution name
-%
-%
-%University College London% Your institution
-%
-%\par\end{flushleft}\HorRule} % Horizontal rule after the title
-      
+%\author{$for(author)$$author$$sep$ \and $endfor$}
 
 \usepackage{picture}
 \usepackage{eso-pic}
-
 \renewcommand{\rmdefault}{phv}
-
 \usepackage{fancyhdr}
 
 \begin{document}
 %\pagecolor{seafoam}
 $if(title)$
 \maketitle
+\thispagestyle{empty}
 $endif$
-\newpage
+
+\clearpage
+\setcounter{page}{1}
+
 \pagecolor{white}
 \pagestyle{fancy}
 \fancyhf{}
diff --git a/man/data.quality.report.Rd b/man/data.quality.report.Rd
index c32cd41..6ec0082 100644
--- a/man/data.quality.report.Rd
+++ b/man/data.quality.report.Rd
@@ -4,7 +4,7 @@
 \alias{data.quality.report}
 \title{Create the data quality report}
 \usage{
-data.quality.report(ccd, pdf = T)
+data.quality.report(ccd, site = NULL, pdf = T)
 }
 \description{
 Create the data quality report
diff --git a/man/ethnicity.plot.Rd b/man/ethnicity.plot.Rd
new file mode 100644
index 0000000..bfd5771
--- /dev/null
+++ b/man/ethnicity.plot.Rd
@@ -0,0 +1,12 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data.quality.report.R
+\name{ethnicity.plot}
+\alias{ethnicity.plot}
+\title{Abandoned}
+\usage{
+ethnicity.plot(demg)
+}
+\description{
+Abandoned
+}
+
diff --git a/tests/testthat/test_report.r b/tests/testthat/test_report.r
new file mode 100644
index 0000000..ab06936
--- /dev/null
+++ b/tests/testthat/test_report.r
@@ -0,0 +1,8 @@
+context("Testing data quality report")
+
+
+test_that("",{
+    expect_error(table1(demg, "wrong_short_name"))
+    table1(demg, c("ETHNIC", "LOCA"))
+})
+

From 60a068602c49f79880f34b41c73eb234db6350fb Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Fri, 2 Dec 2016 15:25:21 +0000
Subject: [PATCH 12/14] fix #103 adding site X90

---
 R/utilities.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/utilities.R b/R/utilities.R
index 3a4b379..764662b 100644
--- a/R/utilities.R
+++ b/R/utilities.R
@@ -185,7 +185,8 @@ site.info <- function(){
                "F54"=c("Oxford Horton", "", "Oxford", "no data because not on ICIP"),
                "Q70"=c("University College Hospital", "ICU/HDU", "UCLH", ""),
                "Q70W"=c("Westmoreland Street", "ICU/HDU", "UCLH", ""),   
-               "R42"=c("Unknown", "Unknown", "Unknown", "Duncan said is Churchill??")
+               "R42"=c("Unknown", "Unknown", "Unknown", "Unknown")
+               "X90"=c("Addenbrooke's Hospital", "General/Liver/Transplant",  "Cambridge", "John Farnham")
                )
     si <- data.frame(t(.simple.data.frame(si)), stringsAsFactors=F)
     names(si) <- c("Hospital", "Unit", "Trust", "Comments")

From fd9282918b7b87a318b6e26d3c044e06823a9341 Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Mon, 12 Dec 2016 16:43:05 +0000
Subject: [PATCH 13/14] adding tests for report

---
 R/data.quality.report.R      | 18 +++++---
 R/utilities.R                |  2 +-
 inst/report/dqr.Rmd          | 82 ------------------------------------
 tests/testthat/test_report.r | 26 ++++++++++--
 4 files changed, 37 insertions(+), 91 deletions(-)
 delete mode 100644 inst/report/dqr.Rmd

diff --git a/R/data.quality.report.R b/R/data.quality.report.R
index 4f3c6dd..fca3e63 100644
--- a/R/data.quality.report.R
+++ b/R/data.quality.report.R
@@ -122,7 +122,7 @@ txt.color <- function(x, color) {
 
 
 #' @export demographic.data.completeness
-demographic.data.completeness <- function(demg, names=NULL) {
+demographic.data.completeness <- function(demg, names=NULL, return.data=FALSE) {
     site.reject <- function(demg, name, ref) {
         if (ref == 0 | name == "ICNNO")
             return("")
@@ -178,6 +178,8 @@ demographic.data.completeness <- function(demg, names=NULL) {
     cmplt$reject <- reject
 
     names(cmplt) <- c("Completeness %", "Accept Completeness %", "Rejected Sites (Site: %)")
+    if (return.data)
+        return(cmplt)
     pander(cmplt, style="rmarkdown", justify = c('left', 'center', "center",
                                                  "center"))
 }
@@ -219,14 +221,17 @@ total.data.point <- function(ccd) {
 }
 
 #' @export table1
-table1 <- function(demg, names) {
+table1 <- function(demg, names, return.data=FALSE) {
     panderOptions('knitr.auto.asis', FALSE)
-    cat(paste("\n## Table ONE\n"))
+
+    if (!return.data)
+        cat(paste("\n## Table ONE\n"))
     table1.item <- function(demg, name) {
         ref <- ccdata:::ITEM_REF[[stname2code(name)]]
         if (is.null(ref))
             stop("The short name cannot be found in ITEM_REF.")
-        cat(paste("\n###", ref$dataItem, "\n"))
+        if (!return.data)
+            cat(paste("\n###", ref$dataItem, "\n"))
         if (ref$Datatype %in% c("text", "list", "Logical", "list / Logical")) {
             stopifnot(!is.null(ref$category))
             nmref <- sapply(ref$category$levels, function(x) x)
@@ -243,7 +248,10 @@ table1 <- function(demg, names) {
 
         }
         else stop(name, "is not a categorical variable.")
-       pander(tb, style="rmarkdown")
+        if (return.data)
+            return(tb)
+        else 
+            pander(tb, style="rmarkdown")
     }
 
     for (i in names)
diff --git a/R/utilities.R b/R/utilities.R
index 764662b..7444cd6 100644
--- a/R/utilities.R
+++ b/R/utilities.R
@@ -185,7 +185,7 @@ site.info <- function(){
                "F54"=c("Oxford Horton", "", "Oxford", "no data because not on ICIP"),
                "Q70"=c("University College Hospital", "ICU/HDU", "UCLH", ""),
                "Q70W"=c("Westmoreland Street", "ICU/HDU", "UCLH", ""),   
-               "R42"=c("Unknown", "Unknown", "Unknown", "Unknown")
+               "R42"=c("Unknown", "Unknown", "Unknown", "Unknown"),
                "X90"=c("Addenbrooke's Hospital", "General/Liver/Transplant",  "Cambridge", "John Farnham")
                )
     si <- data.frame(t(.simple.data.frame(si)), stringsAsFactors=F)
diff --git a/inst/report/dqr.Rmd b/inst/report/dqr.Rmd
deleted file mode 100644
index f9c21fd..0000000
--- a/inst/report/dqr.Rmd
+++ /dev/null
@@ -1,82 +0,0 @@
----
-title: "NHIC Data Quality Report"
-date: `r format(Sys.time(), "%d %B, %Y")`
-output:
-  pdf_document: 
-    toc: true
-    number_sections: true
-    highlight: tango
-  html_document:
-    mathjax: local
-    self_contained: no
-    theme: journal
---- 
-
-```{r, echo=FALSE, result="hide"}
-# =================================> Setups
-#load data
-FILE <- '../data/delta_num.RData'
-FILE <- paste(getwd(), FILE, sep="/")
-library(ccdata)
-if (!exists("ccd_delta_num"))
-      load(FILE)
-ccd <- ccd_delta_num
-siteinfol <- site.info()
-siteinfot <- as.data.frame(siteinfol, stringsAsFactors=FALSE)
-row.names(siteinfot) <- c("Hospital", "Unit", "Location", "Notes")
-siteinfot <- siteinfot[1:3, ] # remove notes
-info <- extract.info(ccd)
-
-suppressWarnings(library(pander))
-panderOptions("digits", 2) 
-panderOptions("table.split.table", Inf)
-
-ctime <- file.info(FILE)$ctime
-hostname <- system('hostname')
-```
-
-\newpage
-
-# Data Summary
-This is the data summary of file ``r FILE`` which sits on the machine 
-``r Sys.info()['nodename']``, created at ``r ctime``.
-
-## Site Code Information
-```{r, echo=FALSE}
-panderOptions("table.style", "multiline")
-pander(t(siteinfot), split.table = Inf)
-```
-## XML files
-```{r, echo=FALSE}
-pander(file.summary.table(info))
-```
-
-## Data Summary of Sites
-```{r pander, echo=FALSE}
-pander(summary.table2(info))
-```
-
-
-# Identification Issues
-## Non-identifiable Episodes 
-```{r, echo=FALSE}
-allmiss = info[nhs_number=="NULL" & pas_number=="NULL"]
-numallmiss = nrow(allmiss)
-```
-Patient identity is based on NHS number or PAS number.  In this data extract,
-there are **`r mdred(numallmiss)`** episodes missing both NHS number and PAS
-number. The non-identifiable episodes are distributed as following, 
-
-```{r, echo=FALSE}
-pander(allmiss[,list("Number of Non-identifiable Episodes"=.N), by="Site"])
-```
-## Identification Missingness
-```{r, echo=FALSE}
-pander(id.missingness(info))
-```
-
-# Entire Field Missingness
-\footnotesize
-```{r, echo=FALSE}
-pander(miss.fields(ccd))
-```
diff --git a/tests/testthat/test_report.r b/tests/testthat/test_report.r
index ab06936..f807831 100644
--- a/tests/testthat/test_report.r
+++ b/tests/testthat/test_report.r
@@ -1,8 +1,28 @@
 context("Testing data quality report")
 
 
-test_that("",{
-    expect_error(table1(demg, "wrong_short_name"))
-    table1(demg, c("ETHNIC", "LOCA"))
+test_that("file level summary",{
+    expect_equal(nrow(file.summary(ccd)), length(unique(ccd@infotb$parse_file)))
 })
 
+
+test_that("table1", {
+    demg <- suppressWarnings(sql.demographic.table(ccd))
+    table1(demg, "SEX", return.data=T)
+    expect_error(table1(demg, "non_nhic", return.data=T))
+    expect_error(table1(demg, "h_rate", return.data=T)) # need to be categorical data
+})
+
+
+test_that("demographic data completeness", {
+    demg <- suppressWarnings(sql.demographic.table(ccd))
+    tb <- demographic.data.completeness(demg, return.data=T)
+    ndemg <- length(which(sapply(ccdata:::ITEM_REF, function(x) 
+                                 x$Classification1=="Demographic")))
+    expect_equal(nrow(tb), ndemg)
+})
+
+
+test_that("calculate total data point", {
+    expect_equal(total.data.point(ccd), 16)
+}) 

From 373ad46bfa5d35bdde34d264303b1cb6530797bf Mon Sep 17 00:00:00 2001
From: Sinan Shi <s.shi@ucl.ac.uk>
Date: Mon, 12 Dec 2016 17:11:10 +0000
Subject: [PATCH 14/14] tidying up the report

---
 R/data.quality.report.R    | 43 ++++++++++++++++++++++----------------
 man/data.quality.report.Rd | 25 ++++++++++++++++++++--
 man/demg.distribution.Rd   | 22 +++++++++++++++++++
 man/ethnicity.plot.Rd      | 12 -----------
 4 files changed, 70 insertions(+), 32 deletions(-)
 create mode 100644 man/demg.distribution.Rd
 delete mode 100644 man/ethnicity.plot.Rd

diff --git a/R/data.quality.report.R b/R/data.quality.report.R
index fca3e63..e333b4b 100644
--- a/R/data.quality.report.R
+++ b/R/data.quality.report.R
@@ -1,6 +1,17 @@
-#' Create the data quality report
+#' Create the data quality report 
+#' Create a detailed data quality report, including file summary, site 
+#' summary, data completeness, and density plot. The result can be found 
+#' in {work_dir}/report/data_quality_report.{pdf}/{md}. Using this function, 
+#' one can also create a site/trust specified report, see the argument "site". 
+#' You need to make sure that you have the right to write into the {work_dir}. 
 #' 
+#' @param ccd ccRecord 
+#' @param site a vector of the site ids for the site specified report. 
+#' @param pdf logical create the pdf version of the DQ report, 
+#' otherwise stay in markdown format
 #' @export data.quality.report
+#' @examples 
+#' \dontrun{data.quality.report(ccd, c("Q70", "C90"))}
 #' @import knitr
 #' @import pander
 #' @import ggplot2
@@ -13,17 +24,16 @@ data.quality.report <- function(ccd, site=NULL, pdf=T) {
         ccd <- ccd[site]
     }
  
-    if (dir.exists(".report")) {
-        unlink(".report", recursive=T)
+    if (dir.exists("report")) {
+        unlink("report", recursive=T)
     }
 
-    dir.create(".report")
     wd <- getwd()
     rptpath <- paste(path.package('ccdata'), "report", sep="/")
-    file.copy(rptpath, ".report", recursive=T)
+    file.copy(rptpath, ".", recursive=T)
 
     write.report <- function() {
-        setwd('.report/report')
+        setwd('report')
         dqpath <- "data_quality_report.Rmd"
         headerpath <- "listings-setup.tex"
         tpltpath <- "report.latex"
@@ -104,17 +114,6 @@ xml.file.duration.plot <- function(ccd) {
 
 
 
-#' Abandoned
-ethnicity.plot <- function(demg) {
-    ggplot(demg, aes(x=ETHNIC, fill=ETHNIC)) + 
-        scale_fill_discrete(h=c(50,250)) +
-        geom_bar(aes(y=(..count..)/sum(..count..) * 100)) + 
-        geom_text(aes(y = ((..count..)/sum(..count..))*100,
-                      label = scales::percent((..count..)/sum(..count..))),
-                  stat = "count", vjust = -0.25)
-}
-
-
 txt.color <- function(x, color) {
     x <- sprintf("%3.2f", x)
     paste("\\colorbox{", color, "}{", x, "}", sep="")
@@ -261,9 +260,17 @@ table1 <- function(demg, names, return.data=FALSE) {
 }
 
 
-
+#' demg.distribution
+#' Create a plot of the distribution of numerical demographic data.
+#' 
+#' @param demg ccRecord or demographic table created by sql.demographic.table()
+#' @param names a vector of short names of numerical demographic data. 
+#' @examples
+#' demg.distribution(ccd, "HCM")
 #' @export demg.distribution
 demg.distribution <- function(demg, names) {
+    if (class(demg) == "ccRecord")
+        demg <- sql.demographic.table(demg)
     for (nm in names) {
         ref <- ccdata:::ITEM_REF[[stname2code(nm)]]
         cat(paste("\n\n###", ref$dataItem, "\n"))
diff --git a/man/data.quality.report.Rd b/man/data.quality.report.Rd
index 6ec0082..179f4cb 100644
--- a/man/data.quality.report.Rd
+++ b/man/data.quality.report.Rd
@@ -2,11 +2,32 @@
 % Please edit documentation in R/data.quality.report.R
 \name{data.quality.report}
 \alias{data.quality.report}
-\title{Create the data quality report}
+\title{Create the data quality report 
+Create a detailed data quality report, including file summary, site 
+summary, data completeness, and density plot. The result can be found 
+in {work_dir}/report/data_quality_report.{pdf}/{md}. Using this function, 
+one can also create a site/trust specified report, see the argument "site". 
+You need to make sure that you have the right to write into the {work_dir}.}
 \usage{
 data.quality.report(ccd, site = NULL, pdf = T)
 }
+\arguments{
+\item{ccd}{ccRecord}
+
+\item{site}{a vector of the site ids for the site specified report.}
+
+\item{pdf}{logical create the pdf version of the DQ report, 
+otherwise stay in markdown format}
+}
 \description{
-Create the data quality report
+Create the data quality report 
+Create a detailed data quality report, including file summary, site 
+summary, data completeness, and density plot. The result can be found 
+in {work_dir}/report/data_quality_report.{pdf}/{md}. Using this function, 
+one can also create a site/trust specified report, see the argument "site". 
+You need to make sure that you have the right to write into the {work_dir}.
+}
+\examples{
+\dontrun{data.quality.report(ccd, c("Q70", "C90"))}
 }
 
diff --git a/man/demg.distribution.Rd b/man/demg.distribution.Rd
new file mode 100644
index 0000000..1eb1a9b
--- /dev/null
+++ b/man/demg.distribution.Rd
@@ -0,0 +1,22 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data.quality.report.R
+\name{demg.distribution}
+\alias{demg.distribution}
+\title{demg.distribution
+Create a plot of the distribution of numerical demographic data.}
+\usage{
+demg.distribution(demg, names)
+}
+\arguments{
+\item{demg}{ccRecord or demographic table created by sql.demographic.table()}
+
+\item{names}{a vector of short names of numerical demographic data.}
+}
+\description{
+demg.distribution
+Create a plot of the distribution of numerical demographic data.
+}
+\examples{
+demg.distribution(ccd, "HCM")
+}
+
diff --git a/man/ethnicity.plot.Rd b/man/ethnicity.plot.Rd
deleted file mode 100644
index bfd5771..0000000
--- a/man/ethnicity.plot.Rd
+++ /dev/null
@@ -1,12 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.quality.report.R
-\name{ethnicity.plot}
-\alias{ethnicity.plot}
-\title{Abandoned}
-\usage{
-ethnicity.plot(demg)
-}
-\description{
-Abandoned
-}
-