From 548b6556269c31c39583e00b239903710315d19c Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Tue, 4 Jul 2023 07:10:46 +0200
Subject: [PATCH 01/21] chore: NEWS and DESCRIPTION development version
 v0.6.0.9000

---
 DESCRIPTION |  4 ++--
 NEWS        | 23 +++++++++++++++++++++++
 2 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index ea2d8eb..21a3c29 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: OKplan
 Title: Tools to facilitate the Planning of the annual Surveillance Programmes
-Version: 0.6.0
-Date: 2023-05-30
+Version: 0.6.0.9000
+Date: 2023-##-##
 Authors@R: 
   c(person(given = "Petter",
            family = "Hopp",
diff --git a/NEWS b/NEWS
index 4d8eae3..f021318 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,26 @@
+OKplan 0.6.0.9000 - (2023-##-##)
+----------------------------------------
+
+New features:
+
+-
+
+
+Bug fixes:
+
+-
+
+
+Other changes:
+
+-
+
+
+BREAKING CHANGES:
+
+-
+
+
 OKplan 0.6.0 - (2023-05-30)
 ----------------------------------------
 

From 20362721c0696ed8ce8a594049998f901b67b86a Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Tue, 4 Jul 2023 07:12:39 +0200
Subject: [PATCH 02/21] chore: included desc as suggested in DESCRIPTION

---
 DESCRIPTION | 1 +
 1 file changed, 1 insertion(+)

diff --git a/DESCRIPTION b/DESCRIPTION
index 21a3c29..abae7f1 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -35,6 +35,7 @@ Imports:
     OKcheck
 Suggests:
     covr,
+    desc,
     devtools,
     testthat,
     usethis,

From 242c0be51255f9a3aa2b428c13d766945a33b126 Mon Sep 17 00:00:00 2001
From: Petter Hopp <petter.hopp@vetinst.no>
Date: Fri, 15 Sep 2023 09:01:00 +0200
Subject: [PATCH 03/21] chore: updated README.Rmd Updated params. Included code
 for logo.

---
 README.Rmd | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/README.Rmd b/README.Rmd
index c538662..6060b78 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -6,13 +6,19 @@ output:
   
 params:
   NVIpkg: "OKplan"
+  pkg_path: !r  usethis::proj_path()
   first_copyright_year: "2021"
 ---
 
 ```{r, include = FALSE}
 NVIpkg <- params$NVIpkg
-# NVIpkg <- stringi::stri_extract_last_words(usethis::proj_path())
 NVIpkg_inline <- paste0("`", NVIpkg, "`")
+pkg_path <- params$pkg_path
+
+logo_path <- ""
+if (file.exists(paste0("./man/figures/", NVIpkg, "_logo.png"))) {
+  logo_path <- paste0(' <img src="man/figures/', NVIpkg, '_logo.png" align="right" height="138" />')
+}
 
 knitr::opts_chunk$set(
   collapse = TRUE,
@@ -20,7 +26,7 @@ knitr::opts_chunk$set(
 )
 ```
 
-`r paste0(NVIpkg, ": ", desc::desc_get_field(key = "Title"))`
+`r paste0(NVIpkg, ": ", desc::desc_get_field(key = "Title"), logo_path)`  
 ================
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->

From 9e8f35922e64bea731b3e06a3957f48532c3a5a5 Mon Sep 17 00:00:00 2001
From: Petter Hopp <petter.hopp@vetinst.no>
Date: Fri, 15 Sep 2023 09:01:28 +0200
Subject: [PATCH 04/21] chore: included OKplan_logo

---
 man/figures/OKplan_logo.png | Bin 0 -> 33704 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)
 create mode 100644 man/figures/OKplan_logo.png

diff --git a/man/figures/OKplan_logo.png b/man/figures/OKplan_logo.png
new file mode 100644
index 0000000000000000000000000000000000000000..f7e56ef0b129a667bd81aa6bb129a660f459d8d2
GIT binary patch
literal 33704
zcmYg%byQo=^EU48!69gnLeLf~5VW{MaknBxio1J|0&VdEL5f?8yK8ZGD=x+1mww(q
zzVFFNa+1Aw?(FRD?9B7bMysjF;bKu@As`^&D#$}L5D*ZP;qP$_H25c8nxhQ70ntrE
zP70x7jQRln1I0#CSrP%EIuZNP3>E$x(?wq24FQ3i@ZTG8h~-iO0U=aO0V1j8Wqh24
z=|`g7@Uj(m*>_{T8o2xVC{|J)Crsw8rQCEU)QnI|Yk9Jhu;0~&gcMbVOhyI*k&(e5
z=%QU9kB*6nVZ?|DsR0gr4s(1<H1?7`^utBdzqI+k*TdtZU*T_UBacQm)s<iGHTc~-
zQOP-z>7KX<2`8W?cdGVG&mR>|hsL8sdml8A<DoqHwCNJ(*;7+fl>5QutLKVf#y2x>
zZeVe0ii$(@-k8qv_!Ls8t2o!6E;OoBC@DZyI_j0cS2SYLUsWcYRZzJNuN)XJbWRl8
z_3gJ<EQ1&eJ)4I)fYUJb0ut}{Hic^lc}N@lhfkISjOk5!(E;j*MNS24R8UDQ)q9!4
z#*??JY+u-*LusA0EIX0g;TFB#<i>^oZh)3sIB|45l_1KKZumVn^|Z@SZjSm^U;Nht
z^fK&IC8G`;fuLJ}e%7T~+G%#cjz^RC+3&Qy&Gy7NT6DWs=h?QLtk$NB44MJ?0~0j~
zjBrYfM@O9L%am12;RwRXm%ahmUZivyMmQB=4~5s0^OFe(eAu2Hqr`SK(1a=1SLR~L
zXf@T$r_k5Rn<lyjQjd?LbSd~tcUwQ?dU%r;rD*AcPg#z7HhKfLnh51s#`sB_*}isN
zMaI*N#VS=H$D#-EtQV#8<QLT~*bm*gSmLXpV$cPKB4&c!vT+sxX*BosU?NcJ8D*$k
z0<hA#=XwB^&zNh@QucGpz>){Sl@y@eZnzd2hmc>kRLaU=XOF+1a#{XZB<0hkcB9^T
zR$Nqc;w}betCi0+;Jz0cS$T^7`}6dRP2P3>L)|#6{!iP5vE|5>g95kc-KZ9quKV+^
z3rue<Eeb0uPsSADnSmot&QNLQor_AWETNmfASmGJ*wGthJ@SLZQf%CF*Vi}f)FX^3
zzK8rwqoU>Kk2k#+?}JW1e(D~{kqG-9m#t=CjOH7QHw^siD9h7ZJ+OQ`p(cOqUEq1C
z+J0+*wilPYORg)6rtVR7OTjdHfXq6iGUyDlWM+(_%zOuo##ucJKX>k&fWFc#Vv=HK
z=eSV{+oerk`!cLz3E`!p^|U;b9dG4Vj}23S4dm8QfAP?Iw&H$zGu;}mB`f>r9F#S%
zjvEmVFkvPFc^STP+5o+JY1)aR2ZND0<<MS<Yl(8G6Hcfj2jz6fCuK#^+gnDU$12G%
z?RWfHe?6#ctol5w5>_-mHak|iTCdts9}>JF=Y~lM0Ih>`ocvy@$facMwa1Fn_SEJu
zWUMTEBH68>-XA_j*fGH_L-WvQ<G!R{GY8tB0y5DgfuTat{6v$vU~qoM&N^Ku<Mxa^
zz0Z989@ywU-RWBUO+4*tP}DxrPkw!g;9o)Hu-QTzD<+6n^I-1RcM=N@P>pWpP<x}p
z#FAJ!YyoPp?Z&(IiM!GFDMD_szdpPXA;;9-4Dr3j))exjd@}ChR<t7cmL5Rd$XIA>
zvO48oB2<WEm7dCSFqs$za^14`K{%{CRz#b^x)(snyqKy^A))|RS;N{>(k~LGJJf^c
z)W=gKt}CWHN}(Ny#P>JCNmAJ-{?VZNc3Kw!BDh}&jER-+Nt>oVx2nJp0sKJEhW%t2
z_}#)K)=^>?Up8%wA^7)d>%#q10iWJHE{O2j@a}T{9SVysJ_+f*>3+NP_KrDFjNtlx
z0}$CB^&4HTNxz2MoWg;SEUY6u)JNHy>gM}u99A4L>?WzvLq!;3)b4ey63B|Y&VT<z
z?I3eV4uMhqQdo(7qrEC3CiavFmj6pKj6tE^%@|5<z{nx?U_Sma>?%dWvBgOMZw5C)
z6ItQfB?htv3N>bULXdizh!e80)DGyIT)Vds_$d6w@a26X#<PPGLNnBH{-|q+M>iV9
z<0IR2-igm!9@D<J2Cw_QDzrgBVg(3+e@`PXy>P%9#lX1udtGn8$(l6ngnv!~8ifK(
z?pO#0ZVCu9Zn*qeH%s%+l!aX$6Qo5cWqeZytdF-Zvia_h4@AR#0ijrsPF+BEqnR8G
z%ozWLpIJ2uMFgrws$yvvD-V;;z{QyfZ?ETTC<HU^#qN<EhPm*@hEXDt7L?;5%(yZ$
zQXp)pNrTSd{^5;~=oyMPJ}`|?q3z84BFu$n7md_~l#fQ(Yv5yrFfFt}2&ax3npGlD
zw?&nB5)|+nm^b%jBk5DA+Jj2^an!V%trY+2JO$Kf^iVfCNWB>=AT0-Jrz8qRb85tx
z^kqnLYH{y?bS=+O?)zA8dJ^kAvlir8SV%XZbOQg*cO&bV0|fkde`QC}yff00o*}cH
z(4Wm4FW+8&x2U)IM`AFtn^o0ejam5=vpsWGlj`6HbOHOB^^)?KV#pI>Uw<l_ZJKWS
zI+?%mY@}oVbw2}pbKT}c`D#+@joZNDbu}5Uwt6gvk4a0W_y~_4M9oN-y`ZJ`V!N^K
z%0c}`Km!1!%=(qWni1UXc+PU@rBDWy99?je3IM0W7g+;vYWE&X!YnQbkCsa0oaT6~
zvB-Lmeu4ZsU{mDxAdi}sY}gxEzUtI>q{_>y{qx1w_s(aRMO+dCx%%YKDy=GPJj7D6
z+ZC*`5pf++<R*Nr)wFD7Q{%-IR<Z+8>!>9`e?(t~zJ7KpMd#L2|2<y)Q4FZ39!?5%
ztyIPQ6Jc-44qMY>u!JP(u6@%1AX4Yk4&tsLWqDgc2&h9HL@|+{??w1T0f^r#;=;%X
zuVn<Ko;qS-X0wcWiemCl^Vl%6)K0<l0P}(?>+N21$ry~-9SoSFva(UxOVTeF{>g5J
zt~w>O@wThj9!9CdRx20AbRYNzs*=C@Zgo}P<9PAf@d@qveLX8OA!dXJ`_k~zFIHDz
ze|o|1%E*Bwi0a{JNr%2<Yeb9V(RZ{6EKV6QE3b%_I3cFezRx}#_MS~4I4ubQ*}0JC
zWnT>>04LJwP`D{PDv*})BS$Pq#ZZQtRI^2+99A%W_WjdT6Y_2}Ol=^i>f7i0@5SbV
zf67$8awG0B4h{|meonUx2STI%#6`!bWfEW=zCrSJKw~Y93JZ-;exHO%!@XDUNbZ6U
zK?`Q4&E;SnDbWHF{pNx_U^fiYvqVIpOym-AE`D2UAq5Bmu5O{3DHSUxV6a&W3h7DI
zDs`U*<JlSoFjS5323y!RF(xIhMo0#A{y@^#7}1}W)TC1{le!wpWAVXA5IE^RWxNqm
zR~O{|)>7jq$6+4^=>$aP_#+RG8jFP`5!bp~RIKz5&-4^TEOLKzd`K1`jAE}u>1%Dr
z)H11P|H(49Q0^2yRKZa>-(XSEDC}1ru^MLF+J+Nz-`4HVJ+VZs=O3W}8LJ{*O_%%h
zb5R<9qMQH|Ay|nLo6v+l%L{;zRTBApM8#-cfroG!GS}HN-LCs0kR2OXhFLk5z)!0Q
zcyW^5@jj##9mp+~)4f|#hPlfjfy3{s-@CV15o99VW{KAlOKhRYKbEV6O(z0~jU}8!
zi=I_R-7Sjf``QbFzo7GulF%rjkk(`65y`)(JjExRi#~~5Q<o!MpT5?lMk5|CkGY_-
zr@einxrr%&FRUpV@&z3e%Fb2MW<+HmaX2%`vs>S|v0B{UvGZwJE}M#DS~RLmX;Q9H
zPLatWD>C*AdfPaOMaY<blhRmz)vK+x4+Aqd;<BrAcGIG;WOgT|gipxj0n=d|uPQS%
z_v@y8>9zE}bv0(@tBOox>K6Kb8djbCzUnp~OFUR56JuB8_47qqnWFh~o(f7an}{bQ
z8(?Tp0ppPkIR(oo$C<wQJ0%aE{9&qXuLrA&h_x#c{+SV`xej!M;p7o5;6+A?GgewE
zJ6Xn6f@Km#E83+FI)3P;V17t*DUAFxg?N*^(GZ)BUUH}s6{YE5AsjBQNrTA(s*XQu
zJ!16s)V6wjM0{)?30U0w;q6Or=jkl0=BM=V(8%Z0U6-TlkP|=E9j<2980!p{iT7g5
zny(V42dW$|G9*sDvDuw*StCzb_k{uizj=Syc>^3sp(>JU$Cv92k39)j8Ad7-s#lf{
zU*T3P`nF(A-1)&2M%RNSl1Y^C>xUmwfY32W_}yR}2yi*7<#ko|X?;w!Z_wo1<avnH
z4H#7}|Bs1qeNvoeSPHwGN@{nXMWKt83N8QpFWAbTx4X`q%eYs=7C*P+yC~$P?0kG8
zw<sDp`r)5gcFCk%rspI-Gx9Tbc_{UD+ETWCCQ)Yu*vU*tGns4)No2@CAlYZ3Kll3)
zf1QyL{dl>WhOA7;3&WPZ-mg=R<4f$XdtE<rT44TtGZAbD8(rz&w3?3d_k!0)jO(H_
zIY`4pX$MX9W)}42ICLbzmT_Y@ccims(?>=Q^-3A%ZV8VOWG8zSk<l^lgemxBmLded
zWNI`n38X<O#ZKZufAaVD`{U=;r@DyM^gyLKBS2CB_z%USol|d$c2k#Cz*Uu+D>k_p
zKIGcN+S#<{1WQB5Zt<pJC`$CQtIU!`ZNHt@Tz52mM>2TeTlq?!ZaG$w(Asc04l?Pu
zJbeCb2BvkZW(}osoV2uq&s5{_+R|KjjQt%b<H+~tW-6oAmOPr-uUG92v!n)7`FsU{
z(}Ox{>5@f6b0Axpdyk1<FkgoI*8`6-99A{2EAuy#K{qwc$2Hnly)Dy9lMQwaDeR@p
zYS9j9>aSEwTU3Nw{qLPUYSO2EIE%dTyVC3MDDf4E{=&Ym(ltba!<IIXM<HTX<3Ko5
z`3_odis`sk{m$Xc?4W=4Hb%f<(9L7H1`Ep{T0f*jNLTlv_Sh0D1hJUNcqdKaR9iOr
zSHu$RbSwlqRUmQqU~4u2*EbU=?DqK{3ZP&RAZBUvw+{C?^ox+qTFbYJ@w?IfS(=RH
zfd~Zlx9=E`+lfjS3jHGDl8)0@3ols*;Z64f9GDtyiIa+=lstX&xx>_itV^W|zg9&c
zgYB{iodlFt*gl_*w4hYD$QCB%eo>OTky$nj#d2v$R_vjJDv-R74!ROR!-<~lOPvgh
zDK?E#!a9w?sM9Hh$@^q&@BTpE3>kpkYj*v_Eo8h-=WZQ<oFQp>$%ul`1bPZ!7)uME
zrg7~-KkU=O44afw+i*a<urN1DRS~;a(Td+?mA|G$Q{qiuYiekq4KCG6DKP2vyd&H6
zL6{cU=F)@4C>r|tn~h)`imEH?tb~5qX*u&iO}hm(HN=T#k$xyCI~}alt0uFKc^rtT
zpDvC0!4yH%_Wk2m`Vb{=%Ha>uo)9rcWcjJzza0j1s+S4U_HomUI;Wo`w6@3fRTP-)
zD|n%V^)&fXSsZ64g0BOh@{pQWeM9dpYj<qJPxH_jszPEFN47tI80^89ZJnh-t_VFV
zsF6{Rj#P{O5SdYddn6ZKYDt}Ds<kPL<bm%;0}Sm1uXuIzvir>_li8C2ew(0i@XD|#
zlK7HR3BTSS9VcRT6-y(~%9lX~aYo@dJz_PU6fmC5l87~{nRRyoL+MQN8J8wP%jh!W
zbw~ieHDr6&hzQwp8ReNH(mUGxLCau+=M;=buD${KfF-){7-YtR1AKKt7Ym0=Td7_J
zy}*e7wnEB0#(g=LQ2;0)WIsNlk&!T0Ap*f(4H|<k`tW7VaW8if@05C58`gwve)%N_
zLw=<Hq%VxS6=@2Q@YxEc1p376RF{c`0GLNXqBDTGyB-U)H+flXjS~2&%c1h9M-O#4
z9ilbibCc2+A%R9we65lrSY3mw_S%*ZKV43C#t+2xhdh0Vn7Ler7~#t>b8-F1Q8ITR
zlAyG0!H`<v*WlT>YOTH!D|fLGx^B8(a4ZuC8V?X;T>>)&<(>#03QMSDuvjRaB1!^^
zoo0%2LSIU$5=!>>wr2egZ~EMLf0tak^HA&Xi5SA_WGtt2Nj(^)jON*4D1rf%fkk7z
zr&l<=<I|_p?blgbaeE9I)jFRf;z>YRy}$n$hylUz=!Az-Di&nkpiY=u{2Cyzm{t?h
z)3|Ewb@Z>8B*h>rh#M(-?En=qPUjEf_&v?QKkuK^`?aP|<M&Deo0Z|wnf6q>VuYH6
z3vrxiJzb@K$cD`|`$&e@ZR0{)d+8|;?QaRqKsn^)q8?(v#cmuYSaO7DWMo4#Fw%|o
z`V;?|QUrYlf^1xWd>|Fg&jkAq_n&U{1En-OyK-}iUn1^BD7`?^j0|MaduXL}8#w0(
zP3+V*QISz!aiYnEr9~qanMVMdh|{9$@Fsg&CP;+gr<bj>eVFSa(xj@Wgyd2j!i`+s
zSUjpdZI4yNewo`+-cCL8fP)OO0RAS6^z;fHBckqIQN<|>JR}g8juX)@%Q#jn#k%3k
z3-H~NmL7cg36Ck-#*(5>mGI>U<Skpsq*nfI^=BU<D2Pv{*?nvpT`XG!Jpx(PFFVo!
z=1M$5|FRqH6ZMCSvcW3he|HZP2tajq{6Hz=G#l2>hflDx|Nb5#5O8&=>~hiaJi<sN
zM|HZRR66u8agm9E-!hmKDchoz$>#aVN5p><(lIvkMrXUB5azx96-S-8C*iNBgPe6(
z3@Mk%lk3h?)}oS$+$ge%rMz%vb=l6H<))@y8YLd++eZFwa3y%VV7x6=K{{5^kz>16
zK+>3@?y728;s_O7zLC2dyvGMoMd(oqe^)yg)(}HevXR$Cg$K6=i!>RR2{468O^b1<
zv*L;;y!JPH_!so-u_Qd9=UVWEbw1HNo>gQ(nr;oZm=Xr5Q!`w<0~~dr6AK9XLnAwf
zwbESG*=9uL2*=yO{<BidTXjsDn628PL6aPH4OvxK`xzeW^$Xdt8&AnG5op;HZa{Lt
z$Fm8uOp@SyqHjo4k+Nx@(>pcSEZ>eU2z7qQX~CeQTShXWS-=Yw&p|j&7sW|w<cdV~
z6;H9z)t0i6XHy5{YVyoI-t?=Gb-axJqNN<6qHiymIQU&`)>EXk|I?o0%0SF8;Jvob
zywl4#pXK~<?yjVvC5F9C%Az*d{M3qk5V))OWfJ@O`mQHtT+>$zvA%epfNAuo&|gpy
zpX%?7rdea?7j)MY2G6wA1*(WZKIDeo<KQ)`E4+au8==v#KN7SBR*O~~wCU|{fMSjq
zq@E%$@1!cgMWeRrkZSO3UP@r8yhuQHo}%=D8P)ZnCHTlw?UJ6GZ@d0OFV9Xfk+5Gr
zwfJM&iNdnFms$W3031I+U<RN{Jf29XoNt$W&`qNi^utyTUx5!%k5R<(vo{0hLLgSd
zZhG(len#US3eK7#XJWScRQakw$c+&nQqgnW8+z$8OiuRNu0TH*(}KU1ATh^zufi@T
zbOC%nC__#lX$HOZkcfu?(>CEo9KOTj&Er;5U=8*2T8p7~A0UrzGW<iLqO}n-*xkAJ
zMqk(Ng|aX*9;?v^z6xX_=yg0EemxG2z$~3)@bjK4E4rqLTwA)ZG{{#A#n4W<-r(4b
zw_r7FpM<zsUxjC(+LQ_!&A-ni0EFzW{f!7-wAmt{;~0AFrBNFegd=H99ip(Lxc;(B
zlVX!YXwZ8_^ZMdd(Cg;en6-(-W;OxCKH)I<0Avpk_%DCpDaX51@M$O6JryI&U`UpD
zg>}Ws=Dzvzc%+T{NUh|P@$HaU{gS>25YjDpJ%CGd_mTPjlWckE;FRC7$xQmbXk#J9
z=M#LtcysNXfO8KkFPLyRTsZGwQZ?~fNnGj|LKQ0v`~60lGm8Mbv=R7ZWfN_$hh!6G
zPoKeqG`RWlzc3K9*l5W{3}KK8Y=S&JP9FUzZltR}GdMp%baizK@!WGa$+_)mA<WWR
z=*rCE;Q?*XC-kFFY){rY;Xnz`i@LwgO&Z;jy?ln#qAmi`R~_xoV>sYR>AV-(X2t7q
zdCu>vIWZ1Q@TH{~v5%N@`_~<u_rpA{CBTU3i^l1ns|-%aD6$+M1pmsROIHokk+hDj
zWo)9lQv0WPgZh;({p7^gQ!AZS{4!$!QI)*iU?3nL{T3cxLE)Ej5VqeO@TToCI4QQ`
zONIAi!c!eK>8qeN(Q_kk@Q-{G^qel(0|nq}8#c5?FXE}&^68_-;WZ(M8ZJpv4=(BB
zQP`j*()+@TH~B_VE36dc*UhyTH*Zu1yhdHRtjPuN9c?hsrZ8>dg?T$Q+CRq_#quUN
z&DqUAp<QIF6zm2c;{aY}`JoIOuRn<8t6WK!U9~)HfH3V)OxFG!r!Tko-I^_pFHSHX
z8d@$>X%0R#!5xs9uD({t*E~6rKLLk6Dy};n=p3h{cug<_52Hr-XdmHJU)Yw(k?5-A
zR&258?EQFg*r&L-nS_jnR)JAE2h=io+_y7z4_eW2SptW(WJW`yz>p80L<R1ZWK9pg
z2Xqrq{G}^NW}vjQyTZrhIXCgTR?3n6`iH~kfx-dhduxaL5+lc-)<44r{Kvjj-rw?g
zxwFd)xCAOV1Oz<zJ(Ab{(p-TBM2rDRZSp=oK3ti&!9)N}#iyuWh!!*;Wz;gunn<#9
z3wgU_mDM<2bboN#XK>~*J2P`3tw;5nV{V}H*tfiY=)pn6!1s8iO{v&8a#>gqkNfrZ
zkf6_WJOM~88Y4|`KgH_eC+lHfQ?4lK03=s3RuJ(Zcwjpwp$Aul3OQ)KfQEG6>$|}o
zE#i5)`{zLtf6SC+MU<$xx1y50`UDH&;VLm0-_S?_5(O2%D;QHcee;ogSHsCupqIn~
zB8G$nub5uHz8eQ0uBKtI{p4ky{i$WyibqPWuKg-$@;VXH;TBIQ36uAQ!W{XjvDKl9
z$_`2_A>=S$_2Qs2M(~^SysN7#2@Pn^fMzri2aE@cHgz&eB6=WR0HOn&t-LGYkts|&
zCN;Axf#ebmD>E(*zNVF7mR0oO1D}8EDNoD#{CQRujmwppC=W4BxPHk<g~j^2+6|Fo
zdZ*a|(ab!UF>e5Zi|%pBMe6PQITHqvhCv!a7IYSFw^^MBYZyU<<IbxwO746x2aI<k
zNsXopX=ks}HKGl~dK{jcK3Mt6F!DB15tH*;qa?5vjHRTTz2*W{Pg3&m!7M_8FN!&Z
zWSCl@MBX3{14RV|0K^hSSGD@{0Lqg<pv4_&ENSMMx?!UW<nhVbJE~VvX^=agXohEm
z0L?AeVXnevIHyMMoTJvJo2N;}IJx(t9TLp4_N2CdiJ78|hWoXH<_%{cW^-tCh*HSu
zR%s-Ke3Wxj$=VkN+R<Nwxm9|rP_}QGeO>ml$X}m6$e!Iyd$5OfmZwWvR_Ak2Bfr9;
ze?1k4<a<|wM8_`h<}tn{2Ozp1y;BNd@SV`xABmb_dijSeZSZ#9E243J&J1guS0Ld|
z_MxR(F)3Twu@oM)g>z6bae}c{6{)GIf3*<vJ7gPktWP)QJwdc2`5)JLBg*-RP|fkQ
z)z~Qcot4SnwyQUP&;<vO%>TvuwMfqKY}q(z^t({DQMcn~g!QGcQU-lWGN~#NK%^&W
zvS|H+Qp-${<gnpDsVEkcSros&p9s)2my}mDO^g}};=xo+H(q>0p!G!^1ONDO(}#19
z2^?+c6W`?=?^LPQ?tu;#Qy$on%%n{k!1!pVjb#Xd4tcSNRweU(y;2Ac6|rilUQRuh
z{S?VDfMflQ^{3T)Fg_cEmNrR$=%du_w|C6^GW@eY&7?v@1xp@zf&U`z5vR}EX3Emc
zEU4URs#YXhG|9?3-~s~gc5O1`&!F0HHTkKjT!Zv%OKYCh;)v0_7d=5sUIo!;%231o
zI3!jEb<D9_x@BnSkQ?#r;3jbn5n;J?l#3dX-5gF4Qf)Z$sO@r-E1!PLBZo-5({cq=
zQJBTm&emCN7p#BO@=7HB<QKV#6boKAMaj$wxCSSaVG)dL35{zFQ+F>wQV0<-_;et{
zf@Bd7XZ37FB@SpVyz+yHmj=MHd@^Kn`wGkMX$%BKw`Lq1t?Q^3kIewdz;`r%yoPg!
zwnDRMm9s6#pM0X7m_WA>sWdSx^%4skcLDv>EaEX%o>fkY+b@YRadTd7vN~3I@BaAn
zdE@2hgl5q21+?2PDE_v9=9;9$hoMD27cWxXOX!ffJrGIInl)vx&v)b_9a;ITUPk?p
zD$j8cm6-oz%XWAJI(&U^159N=5&1i?@2VZ(jKYDs<?KZJSm){J`PY2(J!N2l#bcI9
zhuw@;ra<05KSFJX6x>DlwTqO7B|u)Ie=pvt85IGW*`w{AMqJ|{&|*V#oG(AeW|vU>
z!O>{vHJn8Zu<<l``eci9c=HQNujdNuPnvm6r$Z}5dr38q8GmeED*BZN@+ERt07hI&
zWE1Zsw)Mk0fDJf_eO>n&8`RFnF%XsI1}8tSgHA)9@FXik(1Q2O=dZ@2e6sDC4sYIg
zidEzYS8DtIDyPD*XA-VS`Q;^=D{i3HAD=M;yZ>apwsi{6ar%!bHLBK165q=v2Jijp
zpFWiaU=kgAi3Wv&M<brm1&9vK&%?6s^nPpfdrXH|`n@X*tPHRbm8F?$7vdwTr4*e%
zg<X2g%S%}ZLRj+RQ6{kw%sIX6sgU!s7p^V(PCZ6eKOU?x9Qx06#Zj#NDxoE4B_aFx
zl=0kZe|76y?;pC~Pav4gR|O4w>u;^wiDbQV&EuhjzC?2GeP4goKFKyg;bGAgQrRFm
z(jmw3B-Cf&(~QyW#P27TeZS_&WMc|Er|{|IBQt05TvvRZN>c^x!4M=m?Ue1}VK4=n
zWe`+Bd6Y2NsNT-YQ^-m!AaubSh=$Mz1c~UT?q+@07hIh?zJIcL(?ydghV0R7B)!T3
z&2>aD1D^BP;t;Q8s*oMoo=rrh=laZvTh4D1{&y?B>mAJvG<*i@cMVzBqK8Q*{!&21
z6M8`S7HW79h?6rUG!m~nVa3<%@<yU-ll1lW=?@-HbHAGdHNhabf*H-(6bfYWSo{b=
z+B!Pc!%<_+`E&r*_W#r)LjLl%HJ;NQ<VMDwA|uowRS5}KwVEzV8T7ixg+E;r7(F96
zd_M9cG!h!F)c-+sBkZg?0joJ7XNf13hQ3HPd4DPY^`JyV96dHka=mFZXTUR2gE#DU
z|8`Q3O$2TS!|nWlPsykl`t2L<^_L%CfdVkvG7F}9%hWvK+BJnOlr0H3NTkaQi=~m1
zb_FBObtXjYeffA)2)%IJgY=Sj>Mm$edgBh^5x4<2>b<)e3*`c9a$D|<i#Qce*a8nN
zrzpykUQU?2(*`_l_j$q30dOkopJpMobuet+T|?isElb3O+Ea4<ux~T3g#NN%`!@-*
zmy^Kia;HW){?kIZ=c(J69$V%+NWUHLui;cO=d_9@kI=<gsX?6|ZYGP?y*DCU0YM^k
z9^ZPZgdw~qMY45UwI=@e5nZo8EVra7QGsYIaIMfWs1(97Ja86gN^%;Ys6t<w3gHa(
z7bPG_%mUL2J*ouC^k6FB_3EwFbBShQjhEi<RgOhyxZszjAMAX4sNa9LswOi0=GXa8
zDM$zLxGKhg7qz9W9JD3vV@S%HOl5mth7LwrMRiCGa#%bQ5=^PF%vNAX8}Dh)*!$*f
zT547p-Q~?-J3^_|b$Sj$+wc-@@zC(L$=`aj-=7c<!Y|EXb@8aFG~eNjz9kSdW$EQo
z>1{;d^Ng%Mb@`v$ayv`Ogj6`c=ja{%ePlH$)q_;@toLgYf0+>VYpBV2>n)x~?rp~3
zr{7e3>qh`xyPR{8W^fTes?eD;_lO<_opx9WZXwV_Ok3DEoO?h|MqR=4ZT^(3Tl+7G
zk^eG_oNWDf>iOil(`DfH0Qt5%&cU=}G2L`DSh<TJp=)_1M=H`Pu_MR&Dpa}Ov#XFJ
z(snN}y%9aR=q7CYCvsi;58L~rqagP`E?W|V{0V~p79b>uw*V?%Uu?lQg)lO|@V!A0
zrMDtxSf%3>3~CAHzM}Y-yWRtra(5nHB6MO;uyY5yn(N)xmK$&mN7_(z=;kpVViTmM
zmc`WqPd+SGt93!g`rNw#Nm`V0R6}_4@{AoBlTp7xa3<l;x^#@r8zBR)z69$1rYo~!
zz6L&SgNvZQcio|18Q2S0nUqOadvP{iyE9w;4Pi8MkyE9f!*S{;el-l-&6maZwGzj&
zLhq9QI4|GT0~c!Iz9ly<{Wp7jLrsD9+gI<<zbh9{CgFkvSpd>R8;8IZq*~8_a{pCb
zcZkDPB+*#F_o)QMEnDdYNj2d4gQv5Tw3R!*wg$Jv{B%M{r~ws<SXWwEcF6Y|AKSI9
zweOM{F2|9;4afq!yb%vUh2AyOqjiMst?DUi4$ZxBb9N>yGa)g7Qm)9gF7GG^KAYkI
z@l7R~#j4U%=0Sb2iCuwh>>+E`Ibq0M8p*pk1c_pDJNmQJ{JsP@kM5!)tMz2u8G+=~
zvul>hwbpD;;*^D161FQ2XD5HtTu#0{FWv~$I8C+Tvy|S@tdVHgQGZ|)nTTV8M-PY|
zN%2g=O&_CpYhAU8it7t<agxch!w~;qnO=Qnlpo?Im34*i#noEVgwB>><tb52=-0aS
zuFb|->26d`JU#_>RuiMToc@|)@b08ZOH^#n;ua0*WYek`Ey;)kdk%~0)t$bRA8vc^
z>;E`Mn&_|=nan#%0P?p$v_cPIcVse~I^S(Z20#2L(XU|>F2I!wm$cmJ+|G%~+kMD)
z6}_x_oo^)J`W_SKxriXydM_5un|+;Ff8ij;q2!IeacTX#01jFx%X1Zl&ktI(Q%4g-
z8=I>L6R9iz+`T48t8hss<x|8xrBjXoi<K0>Z=Ad-Au=^jdLE%<gX3l>xj6`4y8_JI
znCJ1((EOAgv{gJ5UOZ3`AG-cRmez5I%$mE~<=1pqi$sus=1Gngf!*4lRu<W{lRuFj
zo09z?Nc=elO*EkGZJhwEzJ$KR_r&>B%+Z=tXgg6KZ>`YsO)t~Drn|gDReDy#>|38t
z_sc<7zc$An2Cx1te2jT{Hd?>k-k=e`l|IE7l>^H=JBpeTl)q%@-H)yL$C4BfwO#V=
zQIpSa7dI^?Znpf`IGLAYrj_a15#o2Bke}PEGiEz)U#tzWb7EwL1^d!5yYHMgc+Vc>
z+I-$qHGE98O`InbkI}G`DGV&nJ$jo97%c1w4g)8fy;8v$XsIS<>4q2LIEczo<D+q(
z?WR`g&5evjVv}i$q8)RALTjtwsSEJC8Nnm>WfknY`_jb?vbBn-exP+((`FgagEfQ)
z>Gt>P0$^H?WX!GN4OH<~w&>fDkN}PSxYmU_I~s*m9M<p6Zyi(+9mhCAeP_wLu5+S1
zho})Lam}dbn@pN+n2y*uBl`u(q)yn~R5y!YS3mDIiU%H}nNw*{1d{)i0FYl$H5uGD
z2^FDPPQlVyp?w5#d&V_;>dQPNTEQ+@OV~s8{naAvY+=~xyHdqzKf9W#)B1v)+Y>rm
z&%HcmTNs<}F3s<T_hS{wza1*=XqV?5(R0V6P)$#N6yL{$g*cNpM}%<D{wgt&*>TB-
z(`JUBvG+y>QQgU~tDb7knE3TH=*MH)Mto*n@$k}|je}~CN9B87(A3bM%$csP763es
zBVIL0B8WbD9lmJ&A2z5sEB8Ya#eu)qhl25wz4uAsTkpeJ7Ia<8rmrXP=@@W!WqT7B
zvRODc=FUP%l?yKfD<cxmLVc$*Xiky?B2Ns|Y9W;1^i}-lTJpGwu&e&^vfTDG@~xMs
zZw++)5mb$*Ed~_Qk{xM%?}`tX!mS-jlsHc91qE0(jLn{<o3Q@wcgWSuJ?co2{kZZJ
zjNQ_Dzsq0KA&czi*xfH=k#WYGh}8}ifAQg8Z+zn<a8$q!GJd1w<CT^x%P5Y+OZygv
z{S)zI&PHh&Uhcqv?Z}^Ne7zZq;K%Sbd<`T#HREMO)0qC&!@%0X?qIs@(H@N3qC@~Z
zh{(1S_DK4bM6AX^)5d>J^Y4j=A4uE4o(=`0RJ2}<>j5C)XY8Eg)*|Ki0rcHvQoVDp
zG60xuPw_F(?<O7&X+3^skMAvm<I(2rU=gSQ_AcVsRg>DZJ?)zGiqF0LzrgQr7YE|;
zahbPvh3p$n$xM;ur{f^16E1Jg7*TOGMzv5P^VBxtNN>H&drjRZmewysRWRZ^Ppk`W
zqm+8P$Ja54hw$8i0A-r*+$7wG4(}V+6gLXKe#wi{_4OLv7qfMFOKpxhmKA;DzZy!R
zK;_t^`kysqq~?}Rekfh#0kil>9Jk8=G3yBpS`?3QSw=oUv#xENan5sM<q!&mP#6F+
z#0~vwBp0iN^vt8`O9@7sV9`msylH2jT~%l{bz!SQH>o_&hY9R;Q1mSgC8bY^{MvLc
zuzt~q_Fr$}QPk;}*??-Da(qX^)8lgo-Z$Ob^#B$_7Zz?Sbjf%KI#=8;TP7Gygmzrl
z#Md8N>0&n&FRlTXI+j1@CgULd%dDE{?38bsY@!#gbbIWb1-s`9efDTA7X+o>tH`I_
z*3_PVH=W);69UuYY%%|<!~AT5wZY$@=vKvY9y&T5&PIvRD1(}0mai-zsR%FZd@W#>
z%XtC)2jP&rx@xw(na++@wg1|Z1^$1@kAB@sO4Foqcf9gOs|tlshrd|Kg>3K#XMJ}I
zAYoK+-`h+msH2aV)Gh*3_FuKvuoeO3FykTDe?=^WO@`8@%CF(63Rsc?t>o1Zy0#Nr
z6)sn7UON+#>X<Hr!n@FRcX;+lmO^1#ATncI@Ia<Ny(vAfM+61&LZ(uE$UPW|lcQhR
z*Eh$F1Y&J)VdYQl|BZo!4H6EJ=rx;iNi&1DB&saF4A~H~3^Jz76V-R;giodtVL~+0
zbz5&pt@&O?{sRm+DLMI~!?4~IDHW=x6j}E1RHK><solvifCjF?fAlvn&@<IB9ni$L
zG&1{|Vpn7vdE%bIvHB|Sn9dk2LcUJ&v;s2o;`pYkC-=#=&B=pDWOeGMn_Rc7A=Vio
z#Lp!o*5$ve?6AQf*uxqrSZiZ;NTcKQZARGmT=bB&F)~WEPQ92j1FUV`c=Vo=1~@<V
z`tjLEb-g7`hHSTdJ|5r)n`J3|{Jh3&_@cuYs*wD(kp)||C12pzZ^{%qGbxkI@^Y`V
zGw@SXoDefDy49@HQd(RY=JLLZJLW65AT|o7L9V6b@G*RT`^9f@#NqNOlVESX^3wm{
zA5uyz>U)#XZsR_ug7-bG*-B_+!(Wc@o+{^lA?xcEVEViPIg)g}FHcjqs{RIL(~>Uf
zk_~PhR|nj`Ix(xATrrZ3?ER>FaBvVvf;x6F@dB@1{2eZeb2xA7j@>Oj67Texl?iJb
z#R5?PS@$v*E0D(}3fF^+Sa!g)T5mP=3|tSvb@JYqXiE^FMD=vi*!vQEliFxg{m5#@
z1JLSBKye+V_Vy;@XbU5bfk`=|no+E5Tj`beK-nJ4;`(xdahpM+@xA7G8X6jl*xeM|
zFP7DMrD1y%Y&hQwA5(hG54svPBKkRLl?KcYh|sE6OzA<f+jg8fn+g;i7@?9V-I+fS
z^*ALkmZ-xB^+Jk!Yc>r$<%rSEDqEOhNhOF@yU$lWJ4xUg47U@Z{%p=O{Td>@;yTd0
z68{QSbne@Z#0G)Sh8QQlQ@Knzs&zx9FzPDyoW^H(4_dg?P3JUFGrNWiy$$Qb@43R8
z8YP6P&6p#OMq*Xr7%62K!1GfIX<rw%a8(P?P&gO_vtIAQNoCOMJb5INv;ioQaR?HH
z^XNHylYU#SFRN%G^S~$0uchIOEySX;iRzLMiG8Pux`OHGG&xe1U$v}jU|>L1il71c
zAXdTMT8FD&!jr)R`8Pf)p1#8+cZW`)mC%wZl+Lfd-)bLO)ic1j;lrtDw0f3HV{Lm#
zw8`UGCiw{00wipjElqq?Sv!#sU#nm^m_};g`3dpw#hCs)OIHISsS_6ADIyr4$7ztC
ztGCLGE%Y-FtBAZaUZ+GjqchgJ7KsU~FSIYjJR+yDTl};uc2HOyqq0Vm1)l>No{|AW
zGDmZoS0xp15AHUH-Kt|)WOAm&rrCCVNd}RS%y%o33QB~csrJs`oMX(sW1-<#Wsb9;
z*2Z9?Wa&6*@$i-xe@D)JFKZ<lKKH5eW9X%~e8A?Ale2f0XF4>Tjc~$qeTU&Lni(36
z4I3$xuj48SRsa1g9(!z+T>HpqM*UPW^8L)*`KNBj#*@~U%ns>`C;Fw<9hwSyY;;Xh
zzhKEix^VfxRleRbqRiUtA^w<4gL+nMWDAvgZm|!zgXDL-de*ocvvB&VCqvTu`*$HA
zHi88WZSpB_VTG&Ir?@>Ob1V$q#{!ha9;Umo5?H_mJ@btRm_?*4N$~~q*9b8MCX7gZ
zeourcHkff{z5eJ7(gf^vYO})o5ywo_P|KS)I^i=c156oG>NBbWejXy`^LqCIJ?wNv
z=7;86W**eBuespFXzoF-#iToFhKuyb?MM!&*DwrHXiE<cAL3+bnAi8v;8Cy^<4A>=
zub9h=YBn`4Kdi^3X|1B>HFIKd7C<(&h*!HmI(x_C1p@iP&sjVc-5D;SNW+NugF^C5
zL)M^bHkUza5HUsIM6Ndn*hKkOmJHgH#*>f-=}K~O_I@<|B;RHl#tDuF5+3wLKrpb{
zB8!Q>o(tU$DD5-?F!`8Fyb_VMkkr=QIMbSx{M0Kw<iIcNkURFMC5Ai3k0~Ycns71Z
zAslC#JHb+^#kYXuSB$^oW0({SzBDMlNefak4|2esH)MX1)SrH2b&qC5VvfMb)M$pI
zy!pJ*3S8>6u#e_w30Ube<8(y9##V7*0O7D;MWzTzm)H8G%W6@@WT*Ip<cKu3I86Xy
z%V0&4h`bJNgi`9vB=*?vpTY`WM+bcgDRWiB?Bwa}s6Z$cMcp9NhgfiIY&H-D154I^
zAp^Yo-cSiSPUI#qV>P8vXt#|-EhPE5UJ~|oWCYjF!3KQ7vu{K-^l#(-12%;Qj*fcM
z_SE|cpM<mD(KNn;Junjq-+u);vpA;9%=rsAEjIxO5j0y?-#_ohl@EoG;~X~T#ckJ)
z&!URa;;ER7pRN;-kK+vXH=^DC4QgV?<nB?D8G47~<Ku3X_a1)eq2t`njZBNS7|WUm
z=zX6y$B|fg-S&Fjt0`mU)nxQtlAjqhphsDL49*Y4g^^EUQ(Mu$fgg>~_0B$@<j8>T
zuO$Ww0oV1IGFB2x5Xhf%hnU0J=AdvZksms>RI!Wy;p*>lsPD)W6U+oeKWCl$@=Xw2
z`>qRA$3wCr!+vr5aLpiZUQbwP>}lkpPj`pRxlUor5|@_`epIB7vufqMn6+wbr1q67
z3GxB75|{<&CX~T&eXo6o<jX16MniKdL|G}OoqtgC0q32k$7Ok1`qu7{)a{Ck1XzYS
z!+Ab$OreCl`_}aN7Xs=@rySZC`aUZC{1ON0lV7>r^=X`JNIkblHemsDUqCFN(wLa{
zdG^Q`^1|hV&_b5qmXQlWdCI`^5qLEIP{{z7jA?k832L|gURYQU-Br_OXJ-$E(W&)F
zJO9kS({WIE^5b-ebEd#ai9dl~^C&Sr46hA+@@6pqittS%Ig1trI`67qZ_zjdAhb8c
z^Qv-bHpCyxa0XdbcnW2|U48zOsY+8YF)r6V(XJWabIZb+aUKpPg0zxdx87%wUabMJ
zo1a@V<#0Wg6aQ_yoJ%ZPEnpTrlptaY7}Y(g*yRsFrR&SlIEb9{731Nlb~yzmnd0F$
zwRUM9l|zfq_8qcYGwrHOKuH(*wlr;4nacw6RV)v+VzX~!TyuO9dhwM~q-1bY%uT)Y
zb(Q3lnfJ<%jA34j%*eCP%a?{|^20t>5>Lxd3~hQl!8>eE1*EvYJN%<HBTvTlUjMGu
zAokB%Ns|@RJ#Wtl#k{<2^7{tdD#TH|5P$*=-BpHMNcJ6uhoQ`|npV4RJmiUXvb~tH
zM<=f5NV{g?RI1fyHnAF-0S7>&s4%U686!y5zq`65xPCB|&8G~hHZ|ZSdTN>+7zrp2
zbp9JvOlJe+jr^B7!MEu{b@Z(jd4g61`e|2)zdN`s0oR%-N*^em3Wa44&p%WII`ca|
z`QoJ9i{<}atNQnlU{gg6_}+%R`BsV|+JJ)4qO+UV=$`kmnmrXtfA3m<TtJCwtSf}_
zC_XKAZ4tF-R?;W)L8ye5n3v46_VfpBA}gB+0aF8%zO)zvUOCMnD<!b04de|46ZF{5
zAM(z)m8{>CR>RsS+bw`*KupCdDXMZ8JzgS+gxss!!>2RnnWQRZv%*jBU*gYw`59OA
zc>E6QuPnR*pG2P8;3x)#!iQCYet|gIE-&OEJd|D8koSa|<mQZ#@jYMRc!Mc08r6|$
zHLM01kxGFRj$E_A)Bhq<ImVy3NL10jRZuT@W`aUIkz%Mw4acsD@P_a-TpJjvFuS$h
zE+E3c*wj2b;P^Gx|I%Xf46pDSWI>_`^;|e$6lO-kCIY{c0(A(FA4vE@^_IpGE(Z?P
zPKeLTZwCEZsR$lEZNhh=5yd(2_rVc8e?+0UTwLNgSjpsp*9HHpDsq`425$U%po{!G
zheu!835Tn3Z3!A*_5h;@-~OTHZ{b-G^J$vxKUFq~;aD}U@i+c(&TSR9ev9!WGkFv?
z5jfp2Et9dY-s(Wt6gZC!M=;UgNIG6Ro;)>vs7mlZeepy3ct66^yv}&i!1h08;PP`6
zs%X`y9$~V|f#A`#7YvEhWn^@GnuxA0#<w)D*uwsy>vRoII1Y3EsBqLhxxKL~4VjLq
zn+6|lwr>unzTY@gtw&7iG&pXdr7e&A<!fhLa7dcPn-0qlr_5X51WX&ik_yEs#?v4-
z|AxAzrH%?^^gXZ__9)dNbN+O-r7FTjHPRlDz_7KgI}(Q?va}#?jv~IN89qJ$NAj%*
z6DlUyO3q-px_O(sa`W<{5orx_<#F9?9DP%phf8p99uwXxNm6jyzmp)b#h<ivbkLlY
zM;W`zLR;^&{GQ+=ESHOwK9-t!X$ifmXgHmhi7-NsY*Rb`i!3~t1UE`DTd+T!R^HUz
zRcxgd?^WAbJOwFwRwuBmqUDr)Ufvu>JH!3rB5`<g@71V(;A;RK3c9|=!MYW^2}3)|
zy-MeA?F6#MxzzpRA9b);i=rBkkdB1{pME-=!Z$9^fl@yx$!ijR{2}RF`pxpKD%hwc
zDiex9SpZey^(&DyimD#7u;@!cMUQS!yg8Y5dDlsK6>yM+zo|e8X9eCaQK2QHqD4nw
zky&<*O;c7CZ2V;MeIw|$Y#Soxqi(k?FfX5vqpe2J7@4-MLMcZX4zT4^vF}XQwrrU!
z(>T~>hPMxd4FW7BJE1?FKpA@&;VIxh?vB*vkz0D9Uv<>~%_p9DwL+|c{2d2N!jHy<
z=zmjC*YKJRvR_s1#=-dC!uT(-nw}V}&>flZq)Bmla7lj{N|D{VyuMp$ycmN1>FAWU
zg!gPh4ZPBVK&3#^fyZBJ`c2qdgN(+;{V3dKP>Pn__f@m}Y9~NBCrh~qJ<Zb?4w1v5
zcWX8D5;!xVhKj^0CsW!jO~-&;PbJI+Qf_(U*gNuHNogK*`@f6$g{u-l1RJHI68N5i
zCCX%$LaqkF`I(C3AY6<1Oej+x9G{K^VQk=eOSt@*u|!NjbBa==dX+$C4RnQ;o%+Xd
zVr;M_&ox0qvWIc~@2*+E{;;|@W=AG&Dbk?-c$c1Eo&sg6WUIEptyfObiUqOvD+)z6
z<)%Pa!cv6!nT>urdTb|tSIuGFK<XsfCPwD8?CN~uKX{1$$R)@CocX~R@H=vCDEMtv
zXqgw!;^ad}qVgh8L@ZTk_fHBYXzSDQ0&8r901br;jlN4kFP!rjOlsl){b;F+15ri4
zQv*2bYIVkw&Ev&<hM|d8*s2yfaAH_7iIjv+hiCAqZPgu#+vmZ$sBkAjWi+kbwo2d}
z2D}GBR67)W)af|&9Hj`&m~Ga5l2Gd}tqwmPQO^1j-<e(QF2F0DyqhJ`a=KD@TM0lP
zED))pvDE+xxLVEmST$6ptX2!vz>5lPZ7m-p#o=LoI5`pWeZ;tGV_%gt2M&_2Vky-6
zIOKR7a|*Lb=+7+yYLTZ#IH)kHp-n-&wNMubsV%GU)fv5a<iszBm9ixM0&@44bvu~&
z9!ryBFTwFc_1fs~w;p=;JX$&a#4V32NM@X^d6Qj%wrfk1x>SuQ-!pY*N#G-eXkiW9
zuzjfy1Y&zPZMTak7{9KwKEB7WK7Pbl<n~s(B*~$BmV9XIo{}@&s-`*H{CszIpBQWQ
z4-WU4d|IsDDvn{WQ=ya3_7&k=X{0TBdPLmL=A2FlpPIDrMzo8FwNg8v`jGspMYsb_
zMke!g);q^%KAl|stYMoc*PcKAxVhxKJyZS%pRXeLdx_Y(!?~??z&*da;WGyR_;Y%n
zmild=cmTpI%_3H}ph{%>$S=g~2TwA?x+_Fs^#H{O|CQH`Qd3viXCF>fj-5HcMO0FS
zu61TWSBh_<mLvQ4;`d5q$PaLKErIh^XMUzGyCufI{{2PL8Nm&v>IH$Hp9}W)SJWu1
z!=rl}&P1y_p8&0SNA9oTq!WJN7jHOpMgjAtEc^e&+S`hrFp)+piob;MhnQ0PTE#uq
zi{ajGTm3NNJzR>>oppA8kM|@IVEnMGND&XPXdIal9Sa=a=b&vwv)yadyLT4mC}8DW
zxGDVmi4E`@H*ZRK5d}^^BS;xVl_1>62wB$=i>T%Wv<A}K5rF!QDcQ&IR4+dT7S&6R
zWv-Irk?l$SSP*hp3v_qkV~R#fOf+S>IMy+<!~D+Gge@*yrS7}j<)EL&yFvhpFTkaW
z?vC^E`1n?KZ+B<deEnODgaIz9n~lA2y~?cJxyi81%dGK3zWqoWCSKaMUCy<jB2Sfn
z2<62niPuK+>&3nH3NPyCR1Y!7(WQbX8l^sWX&9XS`sbIpsJ8!pF;FQ9wf$yc=3KQ-
zXHd{`vb<DxTCJSSA1@dOl6U@C+JZBd6Uh2#vU^RsD(6R6E><v{;e?UaHyIJ%WA^CC
z1bg>cqV(xuHgVYWwhyqlCt+>;jtaGtm}>QRfTr(XuElm3v+qykE;hBq_W=u1W+sz_
z@<T^Io?=(GwoDp3(A%RLP|a|P;E#H45vdETj!)+Q1G+t$xLI85v{VubgL77HaJcY0
zoUIFs{)+pF1H_R|*OfHu%7*15eGZ$pK1Z&49uUlE`QV+)fFeyX$bN1+<Gw-PWImHJ
zVLsWqcyqnC%zbLkZSji%&dPng{Awh>2oGv9n$EF=Q)lV8!cQ+jeGyNpvxHvjU(MOX
zjLut)R$g|f7TYDZPeaq&zE=7-Ow&RQQ!c;#r8-jL<QBmUFIHUt2Jo*xl^Xn?Ens6k
zF1z(hlZABKQd2GFw^tMFu<Gw9XaVX77H#B-uQ!{2`j)>6N)If>2#{#S_j9|lp=fdv
zHLP0aK7RNVXrMp|LFkH2&8cv)s<&CgnF|#DWqwv*+u}Tm-)d3yzsaE1t+BjFah3fF
zJGVcwe}iL#m)j@{{okpaFuGXNp>gK3$;x8W4)X9S9g49JIpiIx;dyclCRO`RKdL^N
zT$5~LhITTr-Seb;$LV6jSw2&jLElZy(b4wF^PO!)ORuEZ{L}az?jhe=HBgn-?h7+n
z?MMZCHP~0z{NuBt7Y+H__F~2}BN^Q0F!h>FnV3djMeMZeU9#a<1Y(mNKOy}kqlsX_
zK8<Lv@R53;#SWP0=Uy<Cd$Rf)&l5Oay!Z~GEGv2%LC#N8zR>yKGXLkmoc1F_KB`M2
ze-pT@VoT~0J~K(X8K$>Vukb=4!u65-&HU5l_pkMWkNtr;Kg4JSyxYx%pN7|71t~~y
zPl~gS?(0vUO1ca$lGnSrWIVbol+1HJ(2jc5+(ZN{FE@ERy#2EB2dXT;AaB@_u^=y;
zQZW+tKEcz#A6`}a(984j9U;>wA#JZM{hLg=yt_l90Wp1+vEj&<On<FrSzZI&yto{R
ziABb_Kz>RVM}N9!Ump`M`)>ZG%ipdSI0o<&<DEbCpUnEtk<WS}O3ohQ#MOX*SiJe`
zT)x-wj<(cLzyn5X9A8)Sw-J$i{z4fM{_jzK=+Z>qV<%!+2$R@SgZO$}&)Ecbn;DNA
zb$6rsYjzNdZAB)pA~WY~6Lp2PXs=Hi($1Oz{_B&KtHCs==(&a&_L6qdvoFEK)o-}|
zucfOFi>m3{iZlokOP6#vQUcN;DY<kvvNQ<NA+>aeq@Z*oC7sfZNQcrPq0~3~ydQt;
z#kD)<oSEOmnVCC=9D8@Pie%y1Xyxs?(Yr2TzRJ1#Mp}z^&$X8NgAwF2Fkiucj4OVF
z$UxmQ8SZ?#>(6=ENB`c`OECB3J&Q9@d&@aVcAMr0qwpk7aiH2JoNSsBv_W<^xg)%F
zza?Hs{bq8G%}l`%Ll^2>;e+~?@actDV^!cyM|t}9i@iBV+lF7O)u!V%`Vm|A1(;P<
zvi*Og5M%*_qWBP?!{`lM-}HTFZ?0OYD$m*%G0#L)zx<x^Q_z15TjyPe^wL293Reg3
zHX+*T%I)U8zSf;A{g{K>BS<__hRV9T)}(K+wG0(}_1i9c*Ld=oJZ_<HMifpj@2}G?
z?g~5!%O1i*-?D;FM;n7E0!|hf<dIL84AqXaMI8_Jx31(ak0fZKWw*M;6OM!-h0$4@
z1gO#i%cGqGRVWPHzeYAEwnO~%n&)pvi7#_MidCe|$te!EDET7)aCb+W`RGQjMd0*|
z0{wIQMdo`5VK!@!S5s9e9n-<np8To3DA8l4a~h)R1ijAhLI=TY!9t&feO0@iZKy-!
zzp(^oo`)rT7m*_mBQ3}|bAQHVK9f`+xk7tmykNlWAMGZK?2Cyj`R+1rSW(||`$C`z
zykBYDJ1%kqzx&?h0O0M{Dd5MBko9lo!`>t{rgaLtxtdMaMBzwKBnICx0+jybY>xK&
z#r*vV#Bi-^j~2J9o^^LRkpFBL>6wTlJ@T);SkkM1KL8Xrxyc$UZPOcFg_2E<Ef`+v
z_mOJ}vp~atoEYU~)8!Oe&nG4BAK9qb3hB-Zz546s*=JCt_d%%;$hPUv8FZ=>nEz1m
z3(@p2cH}%(i^b%}fowWUt%qkudk*nsMX$Age4Tgx#jx}R*Y)PSGcVgE{M+TGU;3?E
zpK`A)mPxecZ|Q9nb~8FW_5RbPt%?48i}@^}pEd=oc5m@!M#g5vCE6ZGlsuzCSq%p-
z^#~M{C7&Anlo!U!IGp*hTVRogJ6NRKcYZRFFc%};=bfY8T#Ry~YJbO+(W<nz0r^|t
z5>QYeZycb)9z*AFg>h}5DxNJ?^=jWaGOTpI13g8pCcO4BeP!&{Tvrbg@9wPNq>$~C
z>TWkKl*?K)I<UHe8ZJ+Ukb{|!Kc3@InQijJ+f?pnlcf*m**zz>SF%ffNqSLA1liSc
z+q&iXj*lW=)8&iY7-#&Ug8u61@;+2=7QVWZAsxeIi8vg1z0QSoz78M9GMz|6IhmM8
z=`N)B%%7`gyR$57`A*$u2L-UaHii{o>sA)wF~09Hp%ZjwGb2ezM+7lIKA7CsFLubq
z8B({i)sx4?Dsp{EoYwQN5K<Lmk>4X9mtg0DSik!0{&$ydg(K=qsaMu*2m~`wH0;zr
zzcW^VKv9c~M(f@O1<<fe$T1p7dKNH}hNKSplLfn)Y)ClmzdlEHn3s9hfQAuVCmieZ
zivi@w&yIfP*#&WdB?arhc8|@8&%kjarTX*QNsKp914Mw={lGzcYA_lw!>;=ks@K*T
zlL0=AKtLaRe&jQb!Q^WASfJWATt59Qe`?SHB=cTTus5C~mcx|hX8f0~yF!oo*8NqF
zR*zH|dDoJrm>R>%pYt&>%a?fBuCI#Y<^h@Qv^*itB?c1fY!Pf>5Xjm*`RIpe{|UW`
zj~J<c4np;F9jn^*>xMdjb~D1;N<xMW@su%zJ<nEDV1Ob(Q&U3_hq!7rnY1Uwd8YJ4
zlO&*Q!|VO!HY%?%x~g8`R8JY=5|DqnPb-+~-Yj3%<enT@@Pyk;Boz*xM09&orgV2N
z#E!+vM5k6g-wb(q{XN=J#G7;&H9nnO(SDrVZu8mrIaqR_CcDUp(BOU?iJjMSapNu`
z@5Xt<N;QaBnA)v*fN+{y)7w%6jqmfVWe^)PfOSx3KAUzApC<W(Y?uT^a66eC@byTQ
zooHPG{4(AH5o4${8wI$o;4Qt%&59iT5jF{<JvAbK6n_B04^Hu^`xv?3m$WOP&Y0lx
zINbw(PY9adiv)63N`|32uSGB`B>SQzW_l;FbX_urGUP1}5Klija-z>P5JpadqUA@;
zTa$)Av3dfyWJNFDN*Oa7&d9UXvD8jJV$xe@mk|g_$o0}SdcjO)=xeg}k~m6_G#aw`
z>VzjT>f>tO!6P04{On>`BW4Of0yMD-7C-lMT%xc|PIl>ir%3KsW`mtXs%M*HD3>x-
zDRxtja#?yq?ql2g+A{kVFqagxz)nT-pU`5=>a0AMyxli^#9fd#rPcjWS=9clG%;Oz
zZM0}Ol#Ly(=G;z8XVQb0;dlq*1sm%&fR0dLPQPbBS#~}|hw?*YVMl|HsH>r&l>6Od
zWhVRNAV~G4NsV<y;}0V7+;z`I**=C$JPI!6nU0=(IurkPj2(7EIpZG8_xBgfq?g`+
z4?)i=7yK(SChnzHz9**N>u~3hnHbrV3Ni>Mm-!2Nrc}fC#}<})n;645@uj4ZEsqR^
zu((5!ZggjqWlyYvKF0K*lVJ(iFlLg>OTz!l9@q`cJ-OaXVg0rKisL+_KPV>!!0njg
zjASPHtthG?@H9akPY}V#FA1e=jB<M_%$uF-9QktF{ZF2@u0C_M@)cbx{E65lI!;jl
z1U{Krg=b<G-9}3h`cr7~PX{)C5Q!H3`Bimsk$1XAw*)v7RgUv(m#Ej2IAd*h663Z6
z-K7rnBLAZ<8dzu$M-h5JWQWne=j|k0Jn!7~+!M#PAVw629HW5Pm2CythUQCn(3-OB
z3!HvC5Mbq4dTsRzH{3JxgaVv_JnSbvE4@PaHIhTkYCv9!<oIe}M!}uzlOP=z8Oysa
z!OC*mYzg?<9`lR<3F8}k_qIg#E7s?+G9~_Hms={`+u^{Ag&&DOIn5-XDawq-*oZGR
z688<6;Pa6dyb-wq&ARu3XW{FwMy=!zzEj(fv;ydb2inN;MpJX%UM?6v0J}uBKtaU;
zJK*<JG<Kj7j6Gf)*d_hd*yWBPn6dW~hUTg;E2^rB%V)}KV^~1dZUcKq1x>LxNeZOC
z(Qw4F_YiiYwkW!Br&Z@kL?^wDk$6#fB%AZAlSetGD=M3{j<8#Z@ijp;XFc<tx%FBW
z5^EkdfzzI`9|ly8MMfCR7W}U9i8D>xs!6Z=^T_aQ!y{2=MXzW^tN<6l{3xaurHTBl
zsgmpYoFzR;KL=T{Al(RU*a?-iRgI@Hz?B<%pDKMO*PO8fp!TyKA=x{c_H8+t#h>ia
zwKw>J`)VlN*zO@($bcqcum6i<J^|t@0QD<mbJ<iD;O<gzvHO6Pq-UBnZ}0qdiwJ6H
z!DjXu?L%h*eUsyBxm+`;gyn*#&`-=V8HS8t^X@+bE7of3nYUiT8PBjSkVi1J!<j=}
z2-7c9fvzI{;S-YD`cAxG|AW^4)U=NC*StFR@cVf56IN+tWxJVr;S2@k4fB#FLvBSP
z(Fcs5xgTCtK9~Bmwnfa^mEMcczF02ibv9PB+u#2O*0LsA&m6!|G6I!v-?UG!4%M2X
zHU?RpMsZ<`G>Oww>o$7XDu{17Rr?0AK4HX8=ws<%i0S(mf4fsL7;1HkJLX+{wjAng
zd8$aU4!|Gw)QIL8r|Ar3+x~#HP5zVtLOr?a@<H>Ybo@wD2L*o*fKnP%H&IX*e)cPV
zW>xr&osm6RAz86shWAMXgL+1%cN*%8cOxj#mNljt_!yS&6*?4vMwR4Pz4fP+<%$OS
zxW+_-!+f2UhA9dG&QJ;dWX#e_`c=0z1xyMJ$!%g;B_$=_j5~Hw{7A289-h%o?Dgk=
zSMu`PSI#haTcHUG^z^txSC222+!@b%L)&?Mp{f`kwfp$W0ALH8LgcOKH(v^fcrcxJ
z#xx&tTtyw=3=PN*mBv_QKfbEXpURQaat*P1QCsjlVJ$UcYZK-`;i+Q9OF(rIR>C-)
z`D$zSU4~P+o`U5ooD?3yg}fr(>>8X(G?ikGutD-8a6f>g48|j|7BcTO94Qbz>ZfRJ
z-?p=}yR*EkZlm{`SG7tfMTkz=pDAl2v>~6U!%E9{1`kYqptN;zBz)u8<&-|Niev{x
z#Z%uy4Z$7rW%}P+3@T`noy6ZN9bBev7KvnRu}cge#rtK8D?zel^3A4+EL+mKbr|{B
zsOWj?Tc3x71XEgSJ&)4eGn$E1M#I$jeULmf93>yA+$c`}O;H4zw}FxUQM&IZHduMT
zVq{=j32S%`z;D<`u`hvtDa(;duit$5^RG!+M2B|hDE<~9tHR1!?JTzbe4SCP%1F$X
zz<?<wg*{Z&*S=k@z<}9L@ugFJ?Guld<R5yYcXq9enx}aRii*D(l0y41lPMAd(pg^;
z?l#z~5i7?90?mB0%3$(Pr+HW^Gk5G$6lUgYW@*TjUQla{#yWqH?+A4LwRcLFOn!ml
z>*&8<k`|0>rwuqa=HJMr^hGHba6_pQ<Jbx`Q5KxYmVOwz)yI%UZ)ZE=4t*;nfTrgF
zC5Gmepjm4SPV{yzqIOldKX+5I2smD*M#JWlG)!v>=rm5iTVr)>C$n1!b%>@;uO`78
z`G+z@HR>F}dTG}lYXyc#Erhg&4pz^g<qIPq1_%WTSrBRS9+n3sffDcmcwi3cH}`qH
zV4y;%uL+A_8fIqwJvDN)lljw1U60)vlwe5aF=JOl8S|5_r!l4HEWLNUTNP0D07XLM
z5$Us<_MrZtIP)17OqaW!WrMM^_LEsQ?M}L4m(BiBU|3Lo9bbBZrXD7SEjRcY$e~!w
z*s(qYQ{$huR-ECp>)c}fz$;kWC41V1oh{1}Fl^3{8u~btEKx!|7yREC%7e{AGQbMN
zRpy`Z58)IPPV5NM3j495_vu(ct$vlS$0=z9xynWuj~+Www5(ExEd?z_c=2ENYewS<
zmHX^I^BTQK=C5Lhw1r94SdBW!g<l)G!FL!m8tYfYDG$bld@y_$Tt9|6=t?3Yu|H8G
zzD%(=hQU*ND{5J#-u4K$0q*EN^S=rOXGiSSZE24DKn}`r{B0N{rXmnOj8<B5mH$fl
zW-7}r%YI>TwhvV(+7`V@2jqthwHxlbE|f~jYAtU&Q4sr^)>hz$S4j9MCw;)~qcU$<
zT%zbcSB-*#c3GjgC*i|_=CH@-B2Fy}#=UJog@n*RwU*iIGwAkSthT|)KrUoyG%|Du
znx{12<ngnBn>HmGiuE?d&L)H>i@jSXU6~Br&^$v?D_y8?`3#3E6|W-vU&WF`1^O_C
zkV?atSf2lgXJeyBLzH96>Bbunv9NBqwFVCk1Y!}X4;6XrnLH0hbLgaemi{5<bhmWa
z^kZJ1C(1<8DeCwT6N~kihQFEBaHcelAYY>AFptDG<s4+Ib&H$=GG@Td00#(?%|^N1
z%;zOUxouqF`J-|PCs6B_R<`J`<w{^6h~k?9{Ic+r^v)FcStex_J)70HkO~$@ZH-gU
zz{6(Z`tP)$0B5<O)4v#DC53Gs5v3l<zL6rtCIt;GgYJ=!ey=gD;q&s|AcFhPwXU!&
zAwp!hUCLt;(_x}bAj3Ez828aN4NYAtsLJJ}Qg_(+w6;CN7NNep51{rj3~Qm>gjPGF
zGikoDBYoaHLC+OEZeEj}RH}y>71amw1bWBDKHRk`@V(rwptI~Jx1tYiyH=-A_EfQT
zW@-%|<rg~4s(~p+ZJx=#;hgPxE3!Gujuj`h*C0RY1+Ja&vkI9$Jkr`i3O2#oDGS3A
z>j<{`gtwOWG9Q@v+StXTQ%bv;lr->So`E_vjustm$7s}9HnMf)=HeeR@2i1Dx|$sv
zxhI2JiC6N?GpGEaPaK0UV+q%_U>Cvtwb!8Oe^Vmi^-QMLdAf}82k!dC)%-THaf1Hs
zhU}JCktwM%P$~9SK!`@rK+`j8){F^1Kwi)=4iOzDK=l)gtYZ0G`;4W#=DS_*$VMGd
z7;=9<>gG23%{*}Rds$;_&0z#sdl(rInQ*@%vH=zP^y?yMYJ4v8!URzwoSe~I*-EI0
zn0=)=U?xUQl_oVVT1(skSB6H<>El^_U^Pgf9llk4j7SqkcaYpWrf4Qp>7Kl49;j8^
z$(`_~#7P$+c};Csc-E-S+8J3pTa;0)$6mM<bB0~`SopD5GG9%eT*=WyXP?z6%Fp7z
z)q0U^{K$6ClJi63<}_9kM2AVo10BAs$GbG8_7TTyhA~1ho=@&w7cyTTc_cR-%aQT)
zc*jOrof;X~y1MD>FBMN6=&?V%CfrL6ZqN#fL#ButqTE(~nb)9WXlVO}8;N?ONU>IL
zC2d866Vti!O**CIKC|<W6n?qzNMd{U>nsN>70fw|8%M6ul)f`KY`N9e1JVCR1N@%8
zBBki*6<d-@qI@n;!DC0AK;zi>iaR;2&!$hg+vg8{*yJhPm7nB@*@h%Dvw5P(7r>I}
z`bq>gHQB@+7LYK<`n+V;(1eLnJ2ym{EHF>f{Bax(uJ_Szwu@s{MnrB&wt0iqiUzx9
zLEeC9wY}KD8|s%Tus$8Z%>6)w(*GBJ#)zmoZVf2|qHk8B#zY?>lxFf@nJIvDbORaj
z%Sv8qE0)Tb;_KHAG-ZT31qzn_CPAW<+r%DI{e7BY8D{AVA#PPLoK%C6jpzX91nsA6
zxuLI_K45zm7g98_Zo^%}Pq`X?c!tTTWF}r7KGK9yia{YYw~U|-WHgV(f5z*f+{PyO
zrgi+sOTp76Ur~eWB1xNYB)S{Um7sx(3C4_p5~43_JRr?lD%M*LewO<j`ZcRl3yy;|
zeA4wd@;(lT@_$N<3S%@#x{xhG9|-<obzXZtiT~oMY{4<VwM@}kunVFrF_7xq(&<mp
zY*;G8bHjSZM5~fR@G}=)m!VKx;sfRZ2IA7-Zf<Ogl+1#LVDdqYi<l>VbX0jhP`}ph
zSz+0Yub}FZlA8;&%}C}u!x)V~xQH|9x2)xbarQSsLCwr%M{#tUTiC_n>M7cG8yKR)
znwpx#&oBsh7M_RS$ZBQ`hkn}R2wD59c-#pnOw}U0(hJRI(hMKpH>%$F15GCPuiukE
z%N9JZQ5CDci$Yg%HL9N;GmoGk4V@Rp@))L9&iE(?=W#?Ik4YsJh;ux9z=^z>i~3+2
zfT$EF5jS}sWK$HI@;?WGDPN5S@ITW@+L+yng+Ix`^6+Qp4v(Y6C@kRMU#v%gRta~0
z>5nBBOq#6<*tVDdYRl>>@3Yk=Ovjd2JKd$^vy_dZzg-d%KyJVySFV$qAcViyMDk*9
zS<f7sP87c%8;mbHhepsA*}##FhaZAiD(3QE(NEsd(&BYdZjYH?D%k>e$Hv@W)TCmZ
zYh)i%QYD4pMZn-Ke!T;j$!`6v=_gV3q>s@Cq+$xPuk{l}rW%EEv2QFJD1AY#JV(+M
z8Q!mNjZwB_^sC10)$4kmpw+)%W8P-WY-2v3V9Mb5lG;Gt_+5%sFNv`yy|U1nR8lj4
zQZ$wdPRu(86tRrvuOK2EOECGbBkEP3Xb*+tnQib7Jd(8KgW*U9O8st!I>W!1KRcK%
zOSe}}cX9u4Y3^VBfx*|<5#0W+sMC94=(R;=sY{PI^Op-7<nhR@=b<&Y;-;+)>>V@&
zXwpM_D^QGqNt0#Ms`YS0Bc2S~%k!*t?(%l(El;f3P>6w021AH-YWv-!C5_nd%Z0*V
z{vkqmI&5_Fr8nxh$U5k=NLI^|4i$!A75Po%(cIs4uIM<*?G2=)&?he71=a(xEZ{zp
z(q6HKycbeWiHB~J4kxJ3cdwT2E_8iof%*gwxRsW;IX+h3-6t7unx>uXiLSu+qg2c(
zw3zcE9L`7=W@q~?)sQMxjJ7H6vE(^Rlv%uIjE3IM-XZk4ZjF3f9-aq=J^OLWZK_V&
zYlTv!VH`aTvMOhtzgfcgeqV}NWqa-9%}dPXORrHJCP~K|d?i}dtA3T9yVI%=3@>g9
ze0IzD74j2#!RXcO2u@(u6CESlDVS96+D+@yvc{2cj9i@hZrJN0IP%9}U<`zD^?4pc
zK3IMIMcK>P-LHoVrGIdBYUDE+Rf}0R#TVYI&xcu^f*#{mMDEg`khj|tYgVejz0zs>
zN1-~ZpHoZLdLW@Rucvb^a<Nysm4l^(RgCqe^?c1cV{Y!JCjyC3HV(qKBKY)Et9&*2
z=Fr<g;>?(Z1XFn*qa)@kh}O1KvF04>%*7~cswuqpn*2+*^ns9M2}NYizMfcIw<8=U
zSe3}+^ZLazzrN7lio#i@c3U!;GXH!TFKsJQxQR2de<Z9iv$1l=T;;Pem53;e?v$iA
zP%z8mmlvDOd6_qCxDF?*IhPv`?D?>gJis;;!(u5hEQm#;mBSAeU^j|;J24V@B9^C-
zsUq_@GlpQ|D4i3n4i6O>|M2tXm(aFC=}p#C`4_o1+y4Fgg_<=Y<*Aeyo5%+W>G9w>
zv@VQV+hkvg2`cF%OY=)eQ1=WenOIf)axB~AxS6b9&JSl(ZaN=?CLpdc6UNW(Q^+wz
z6~%wBxXeWVR>!v(_hlkMJw*gRl1}ow$ogpR%4a14HcvLS8!eQIhg=bp2>ZLRe@|05
z^UshsUkSU>FZez4q{j{$z0>?uO{WO^PVqQ6g;(dD9?vgR26<r`$U#K@krn+LP@$0L
zQet6QIpjDxl$Fqc2+RvnzLLQCZh+akoiv~Ncj<>8D3D-+PO7I)Faky<h_(+}4`>PL
z4V5uCv0wNnHQrR9@=cuT+jWt2=>#plFFnU|*RsaxL+_WSE;5}Hso67JOyCBA_|S#<
zz5F65<+*<xoM{H1%(y2~Dai~!s8k4lc{aL5xW}6m<k{lsa(Bp=8x>ReZh9Q>=zcQ9
z2l9WvAU=>p@xyE6n&De-Hu6}&PvK@8#G-I|V7?&)ela8Yg!$i>=^wxixUqX=WV9$S
z-mWVA1OtEgsf1R$GYBh4#`x&VieLyOMh`bO!6WVCtS)#cNPrRe<!ZFloqj_)U=NvZ
zApzW=mrJXiIy9(-j`S4;e;DEd<y)!Q8|%CW!~--K{|@ixpI2PH`WPUF`9Q*pL`BX=
z1xQ~gjP0V++9y=NgzE9pJ9B!(2H(U*qwjN|2j-1YHkSsss0L&-;?k7{-1@KnGze-=
z#YXP+n0u}H6|3|>$EUFNp4f*_gq!l_V6Py^x!eN02q;yyMoAebg^r{ACwwPNNiH{J
zYTv+_aw)IE=MoXlD!d%&*N^tSK=J4t<)uKmHz*zL3|)5bxDlK(*{lzy`lgwtOX_z0
z*SLP0GXKj*I!*Ov_4q>Mu`LI`Kf{g*D7tcJ(PbMRY8-{UPNM4B+zdNnyL8U^nh3D7
zP$J@}LNrU1x;WMwPN}@P+L%^u4r3NA7qXGj@cED4^JUD%2x9z5C@Lz#E>PtT0hN0V
zIUpIhdeD+3!T7~4e*KGYp~jaB!9UXZy#f&-$KKCu_}IE(Dc3Fn-R~?p3p~Z~q*Mfa
zMv2h`^f=yZkuL1L9qdgeeZ%*yIyD*)V<F2i18ftgWu&k$*;;)#wORIyw=0-XtkifH
z+z6hk_NTy$Ch0plV`J#L0;d&dOxOSsB)b=I$A;D{T8(vEElv9t*gpiBJO@w=uhYR9
z(6QG~I&0<fOh$lOer70qBAL!D98%s}&dcHO{I<<4u3Qc(cer?k^*y`wgR*GZnqL<1
zHRsNVQ2v8x3YZ8xVyGF^3edV>fAn(8S)n>9X#o_#MN9hAXKg?$jQOtF|Ne_tTVnau
zDEdgk+8A_Zl(ZjfE&ivZ8l0Ami7oH^!+<|r?{m?XjEw3w@E|>*NMQ~UU3=s4jTCgC
z=ErR0<?f}!%!EQxktPOTx%}<~tae`V;z|Yed|1qvK?A*13h3G5l2X)|b;_apd&^IW
zD$dTP^_Mh#@G<?jx5dF-LXmW<p4v$EBFxBj?8^1_&#PV}`Vd9|?qeJ~f$~=9p+YaU
zW(?XWC{!<*AwLY^yo1R|lGS)iQ^u7#|EH(%<2o>RAM)d~xHXurPeCu`?G9BVffqdn
zQw!ZtKK%WWD#4*WR&j)}86o>%aAD!c@F&19@F#I`H&Dx?R_`XJ!cLA1))uhFrB3C`
z*4;C%Og7hh<ymn<x~f{UK`$d{S_>7(eyXBPZ_RFWk#H%#GA>o(V%bYjU8m?Y1r6;1
zEW0Ivk!Z|qqc*12_sq?9#9YqD*oYt@>n0Vm;_?BcBfMY(AIk7ojp;>sgcxO3f@<f}
zv(+5>;{%TMSLm%Hwf|}DNzKa%Ao8yMby!1Ld@<w*U$ok8Zi}8z$Cd(HTsh({NH}6I
zKa~F}l<iv1;N@SL@-k>j@^M0~Tv1M8=qK~w><BHtLBz_NXnDMQOq@nYqRY7=K56y6
z!TL)wZ929~J=parn&q!H217B@w9olxxkx4<8%y?Di{`;S@X$!CH}C#5HN2PuRtZCU
z{jJ?Z^7k`C)mOFAgP6;&O?TUL!=5me^1cd^?(yLwya8i|pW1XsQ$k8G>FUFEQn|S~
z*Fl^3>7n2fTS1SSIQGpu_fsv09-I=-!}yxBT-dDD7xwg^n^ASE*nC8f{Pbx@ok<<s
zW*KQ0Sue-*gBuPGr8sL@>aQ<<I{k%!-K>*0hc?E*6XQd!$&{=#XNMIG@jP`aI7V+J
z-DEa;6sR1B#HzNHv;A_flJVF*c!<yglKhK|(fJSZt|q=3{VT2A8b+FYyGd5P=;C=N
zTe1#_Oe_9;J8xT;{28+o{jCXkh3bVZZqEfiQ^2k9r{JbAT*7Np$rK3PbzU$oyB4YC
zSSLL6l%dBsTY;<t&o3p&*QmK7aa>}O@lXTeNDEt=E3;C%mcBL(!X?ql;0Z4LTFN_^
z{hSqE1dNan<0HjeKU-$I6GAXfC22>9vW}03{5&K}N^vNtE`z>z3e8vz#U;_XQNHJ~
zM1~S&V1mugS95pP3WDb22?%Jw$1S`D3;rn|I|qsQ!cB7lGoN)%2I(dcrbzT{c+9qP
ztZ79$RWTgAuIXUi`Lhr|UEuFmhUul%%%4@RM-UnE#5wu%y7T+%A!18X-rzfimu3lw
z)a2zIQ{ANdZ#mmONc#|cl|VMx_VF205bAE2E3LIe7>GX~u`VEJq{9pFvv_F>-c^im
zP828h{D5nif68o#s0i<^Ms0Ac7c9KpM9z9~wo5u<s8*({uo<alQ$dDqtJ<ATKiZPX
z10Mx(X?dd@LKvzY;v2QA7$yf}d6!MSG1EbhAdvK1h~|}k_suzv*4>J?8b)tYLaO<#
z;Hf0o4H_ktv3+db#$v)6o9OZaCUFF|F2Z{6+s73&d+VRbT<-;`aZ<OW{{D7N|FelN
zWb@8MA#;)3KWh?8&S@+-X}e@CZKIIedW53%#lGD2=68p+=pKn-Hd)<eRt##eaM-PB
zX;R?Vr(-^_{KRS|0XjA1!t}P(^~HTq{M8&X^FPzCFG7V4IRH6uEXU(Xz0ny>%<T&-
zgq(aV!;J$d)-e<{eQh5K_#|UjGb@DC!LbWV->TleH@UfARN;GWC&%UE&vm`}bskWZ
zRw8(^Y^1Md)uh{nn<PI9OhO5#?8^Yc?}JN_@=GWYc$$Kq4}n#o52we<IPl0FIF_*5
zRUwQNm%g-FMJ(GDLsD`B|6Cmh6)CSHf5KqmE@V<(=`a+%+)i*(=h&Acxn3+=T5ahN
z|3?50bSS(l+uLcd$iF-=Fb%oAziAVjfUV>}a1>9z)&1+LeScK7aEkz;7kPsT%s<y=
zmd-dY!pm=1x;^QCRg`A&DKnom5LpcpGB8Z~9vj~dMObcAzV`pxfks$ixUnR@A6Cq8
z65%s1J>@w0Wv~S^apy89<(p$*Rp>Oyzfpc68*7vF8ajE=D@z}imo4i?*FR&#<3$2!
zX0m+AZ&}Vognad#uem14{`P!#$dj8>fpy)s=JiZPtbemHeo87jXZuZ-<6+z3T64~$
z8!tA3p<wph;$9rVk5gyz4fI?s`uaZK|B~`#RKsQ$GbJS@!74hq>9^RE4v&I8f5b#_
z=Bs;Wdl4Ra#y8vIa?AoIzo~%||1WRih$23EtB3c$w}aD{eViM}Z;u+@d-^eI*l51Z
z=wtVBXd!~*X!!LVGyB3FDd19a#bxdTEtDQt_GE}j2ZKJ<ygf(8!$`~HxqE$&-QlXZ
zTV#RVWo*T|-a9_u9-s5$z*rnn{N&kr1F>WOboRPPbnrf!UcTs6nEDXg>)N`Uc(Gq^
zB~===^0eNp8P7f3U=}z-uD?3v(d&3{sG#0#iIeO4WMQ)t=lAZHXvG7qQ<sst+tKKR
z(=0)C8TZ+|tyRg$I?H7D-@Ed%_53Qvo}*xC*ep0$WT(x*Gz=Zf9+*sC&+ihf|2$-C
z;9j@oE~)=}Lp{W6jXc7rZB2j&8h!}^o(8dT@f9Xy>sECT+(}<kU|k-YtLT86{u|dl
z)@tkT7LU(pUpp@Qm?;0q6RTwM<qg%ZmRlYnE!R&y_e;3)I=83>9G=fAV&0v<jX3;!
zvz<~+=N~?Y#%Fk2hDAx<LDr+{dyrklcdWCJ*!r3(*3kEgnr0+DL0<k;{8+@3BGR<g
zoo*>qW)B%3)K)V>=KumEW3f<Wly4y{zG)=Hy(aSdCUMPy_h7g4X?4NmMl~%()Q_{f
zfS#1H@a~gXKAG3gpX`l&g^Z21QQfl@;<mLrg}o%m`{Pc!d~#|#x^7EX-7P7Eb|AV4
zg{d1uOy#>CALc&Y`I#>q|1GjQ=0TkN$XM|4-e`x)ehBn#MDFlj6<tuGa5z07VRMys
z#F5s#PBxM5C#XP15kN)dwd<9G6B7>G2SPqyLMVfb%OZN5d0F)_Y}AgQPW#`#qC&am
z^ooPg3w9z4`w@qo%T(Se)XUJi(25jzB(|JzR)iQ4H@>;&-A8p|=JDKmNN>Uof19qu
z^93t_PM^_ceDBG0fcUf-b!9cXhShiURFyB^8EL^fLQR^K8)XE_vD}X1FHu;vqi~<@
z!@+Ol9XH2X%6CKLG&8%+7Cy-L7^Yq4;F??JEoSA8xlXIk*kHX{BrIUG8MfJNAyk5F
zAO(n>VJs3A!E)#KkG~OD6lOmeYuG5|m6J?alnDjz1-oWhe9`ysEk&2>js%4CT&>m8
zoZY;lFz>Ag<JImLM4Dd=<fneXTTg#OggrxnifQ7-Fi!r6%Q2(ut^#Yf?q!_|s^3;T
z-8xa^`+^Mx*cCgNEE8Z#TqRs<-^jA%{TOB%6GEF5v8_FM>y+wKCVM40Ri9feeQEaR
z;o8T>fL5-zeShpL3eJdGFUQI^U4wThH;TZe9e;`4=aIi?p;zD6X<x}Z;U<T36<WNj
zgatIOuHygi?WfbF9D;uic4*TZ&yguuS<r}e`*9~4Z|^2NhoqN&l|`q$EWL}>5AY_x
zwX>E;Z)!FFme!UOHep`_1Fm_vFr)<9Z1fJDX`A}OkRF_?-4|B&0fnw=M6Vv=Liq?(
zkK4W`h~g27C#!>siCYqRg6P!OW>ktrtn6Y>aRZDV1&k53nPB6-*Tjy#`WX5T3%KKS
zYsS};<gHIhrPtIU^Ll*@Z7jpezn?O1<}Z162}v6%6RL{CeH)(rBx}nA!ph7MRLMqF
zR(m<iqmj`>FxEdgZ!rC?bCI-toemGxXd%JhvtPSA!3ZslJ%Etv`b?!+s$OYKiiy#C
z`zGw{`(W?6!U34co${xxx=@3rYR*$9hMy9(Bm4XJG;FKa?)pU&VdXUq?pTHiy5e~#
z-J<&BYF$;Sp+iCu*HDN@1RLXWg}687y%3j4wk~=D(N0&d6NA2uU`x{No89bTw=8Sz
zm=9CWAQv&lClO%KzDtZ)mjtKPWV&GiTN|C+r|NI~@j3NfzwvPpOyYN$b$lV{nHxmG
zI-bgo;LLvJb5y?HaL(iRZT#2%U};5hnK<o8I-a3&GHYF=f*$;T7B|6&1qST%k3+Jl
z4=e>==XB^ZTW^rF`EI}wMO?vk*1J;uV@XR_@@mOF4nLy9LI%UO4hq!;MTzgdj5+Ds
zO;GJd;L=S3e_@*?C==c;oP;UbZM#zPN&LIb%{n}{{+?8hLPUQJF%2=dFQ|#7-(Au;
z2`BE=IhPwMYs~YJ+t}}0SKM!t|BXd|7}_i-KKVGP&v@oR)EMq==AGFdfU7m$f^pBi
zN%kv^55LyaA9>s{6N8wegZf_pKk9Iprl(YM9iw(5Gnh*=A%>5E1az?RVOD_C5&a2!
z@q@`fMNgt+$t&FR=SD&ipI*Zy=VyH;-a$FDMNNca|1uQNiaT}#mN+51$kS2Xv`&W~
zQS0GqXW%`@WBZks`o5777x1=cjZ-M`Rext$6rU6}>(cAr>=Tu~D3iz*s3>VP^t&j(
zSNFXfT?*}#_3fA-GWWB*`>|BZ$V|~U>-jqb!a+K$fo!3V>+~(rBcjQEUW#M!is7~j
zMkQn;Ghfhd()sYcxut-C_DD0}=&<_kI%Dx9!FJ%N9ZVCt%N}&VnrPFft&v)>S%gI&
z4^%_fCOOvH7+3U~siN>Lt8F7c@mQuueYavfPUuFwEyo9)Slh5aw?!nW2ND=xnbe{&
zDcAPm&Y#=8&6lgQ`di(^{L&_PY(3S33uAY#>Fi?e&ZOgcoQ`|Fg~Owq@5dz<K{W<D
z-7M=0u<*Y}-O|-%Yq|z&Co8v_vP%u~x3zd<S#F~B2LGO6|GO2qzWXkIvK9WhT15!^
z;CcYhAg$6{IV<maHsNsTnJH7f-^BnZg=^0fwRkH54KuJ*q7toYY7@aGkv9ZW4Z`e)
z4qFdP45BAmSzd(t6+$?Q$7uxcZpP!Zt_KdzpsaaFx9kX9vP9d5d*{Y{aOpkLC5C+M
zMp_cLrN#3<|C%3#M+K-QLyy%Y2dckaqn8U;e>P8~#krClNc7N7VR&QwU{>>j|0)>8
zD{}nx+Cn6f4}CohWlaF>MK{9;)vP|LZsj{nc(xE{TySIRoUr#X_M|J`nvDl3gvlLv
zwACtWoH$f`k?BjAv0sgC6YkO529!>PkQW;lIzuZ3uHMF4C**D;GFSx^_bqbuRMl}$
z3`mkg0P1W{l>Dj;S846SiJ@A$W2xn8pZ4?)L*wtRWcz{PVMCgc-N@khSJnE^$|>u%
z%?=t9YSC%0V7itTEHogLd9S~UQ5klTwkX(5&094)*JGdh9=G1)U-eujg8d9B1IOPe
zl6%bh{5EwWC2~wyi|P?NJ-Jjf4o|F&x-SF=dNhb9K4kbe%&7(cI5RIBP=q?gp4e8r
zA``Gvn!95}^bdJJFBB+jXfbJpr!g^g&}S=LTw&#nMr>f*&TGPk_WZ6#9oLn4<EG%x
z4Xx1!_^Y~o>Y*MKocg(C!qo*+z>(<*!#0A^4C^UDfeoPzm>sP|VTvZJvOVNam>JgW
zDcW*-1<omT2{ZlMXK_s6&wRkGz?DsFl%^G-DL%jdxNjV`v-t4kmJ-thYL|1lFwa|p
zTMzvg_;Lf@EPxLNB@$h5{KX4|RPxi<Bb&;m=6{~AclE98cl@0G#HML^{^R#^xh6Ec
zP~@TKK)YW3>jS%K@mpZmXIwC=)c&U`N|17(d6L%0aMIhv0HjhZ72g=06sf?7^(B^S
z|KWGWyn<&a-<Zpl^r1Gf&cA}QfTJH!*!cigXTZ?BDNqlk*@QGMYEK=Mv8L%s+P$8&
zxeQ(%|MjHF|CZM8WJIpnew6RTgw&Pg-Q+)LaSV=|G~X^K?MNct+t>*ZV2a|=izgg$
zwXR7BQIQVb%5>0%t6uXJa$D;reauZhNxz>iw!khHQ*h4iLO}4tn=zU<)hWUACf-Wq
z&*%KDDq)rh&LhzVhnzo~jI*rZOWp@Ir93yEFb8NUzAy4s1_$_wP-V7BD7cX<p>wRm
z$T}p{4NCT#ro(z($@3SM>?Fg!UE1zVb9FF|#3x`R@vXJ7{Y%&upTrnR_<)=96fL+L
zPVfKQZ(nRlU19h{%Q(OWH719fG?!BJF*rjGx6n8jnP7E{X51r+I$(*V4AU9ohZ2`F
zNBAmNsrQ8zpQwpe2L$r3antH#9#`hIS>q$NfP-^x5oD&$ea@E{-$q`R$5OfJF9ZZp
zo(k<7>Du{ZG?qOVA-N@fm<uDfXusIx70P3OM*8${sV<IPl+ehzHLd<}e=eP(iV9_=
zF#aU%*JQBu=ShDmc~SYkK4T}9V&De^zWIA{)9lw^nu?Frl<(GY&KlT{dd?-$ru*XU
ze&`9~M@kWl{kZHYIXAO`8=z5H|F|EW_xo(~q$zuodwUnZG>8Lo5HsGb6D6%GTkq{p
zM=^M8O&Mf8a+de+mTtmD1rV~M+dMXyAds|91I@a@T8k}eX}S0pU0PsYf(M0i0OGY$
zRpF{cnuaL?C+_tDepB)yF{aJGm8%OnF?;q!Tni{FudDM47-|XEGSx8i^~Q|3n8lt}
zq>aoQ39ZsE>zXW}C8c2Pj){V1*fZ|{?6hWgva$ufkq{ldrjU2t*i!TswRi!wj*0O(
zbea-R=L3z2^)ry_I-RY8ZQ6L$;^3;{{<bs5mjc5bn|ZJw8K!;f9{D}jU-LEu2voJ&
zEPlEO`Fe8RTC0i|u@8q8GO6{bp;%406vJLDDAfo=o}y<n+#e={)UB#@O_`|L&v&bO
zB}=o#TuWJ5S#g7H#oBU`t{`fmck#8vJJ=d7^#5563lkW?3RXR?BycuY(v`>(h8>dl
z>iuJZ?UM@yVO584Y+DmSo9O#WuI$J!JgbndfM_D=iUYr2^}NK5)DqKar+*XPG`p%$
z-OjVG(}xyL8o$?2m2H&z60I|cG>N3>L;X;h{#X1Y8tK{7{7`%mJc?QQ6g*4{MTJEi
z%@nMuslk?yw0`napGAG#7+U~IyZuGYc+_U6(%siI#zaU*7NQ2mw|>>Ugce_`$*ZOI
zY*V8%1rlKG61_^B9cY+0K`Bw~5i=pu62fmtDR{~xjuhwbW_>ltA_3|7A(7JgJ%^#v
zz1A1ne4almj`yDzsAn%SV!ywd?vxZTXY+({C>j+=qcA)4$xb&MEVrqgmfaZ#FDY9s
zXE!9)6PW~vcO;v#{YWm1YHW*>yS#j?mbh1bNN@$d*4dTpkuC7x{YG-{Jceg`;?H?Y
zd>LYyCe<pyfH99W2{c$-mQe1(%~7wU7kv}z7ad^udkN3USlcxIxIsD~dAetCB$71V
zu}o7&5`dNVN;m*KqRj-=W^^cmNiZja5}sLIL2{pH^hlugJkLTE?|@bLrP|qSKZhl0
z-m4#zOoP00`FrpASSb|&36bkRgrhk`oFJR`!<X+96a#!*ZAv;zE0)=FT+#yrq@S!f
z{)|#FT6bgIvf*S0*BHDuJ<3f2FL|QHfZP)ik1sQ4F&<leikkKQ(!+D<Yw8#N&!}c7
zB2So~d<X%vFBjDPx_+C^*95DRjQ5i%^(NK3%CLG;94c>_+f<Ra{fNWnzC=K{x`#@&
zjI)AXU#Pzr&<g<o%&UhkIDOPwxeFUy`lA4q{n<we9xujULa=6D9D^61el}c*sowX;
zeD{fNVA4zd7Um;lv(C#KH`)x0@sNgbEpY#Xb|OdgjNj4+4+Z!m=M?cgg&~urgtH1Q
zJTlQG2_TPwILy6!+a;eW@ZT0)ZYIxtg<V@>mGu9jPSHD7?oz_^@E65BnM=)2kVfp_
zt((0E7ePvF*0|%<@L6NWkCvS8J*Fp#OgK};#L(j`yhgg`&bg)w83L6m_vC^s>lA1m
znLTr89bXEkQ2ryO{|iTwuU{u%_E6!2twib)`&&LnpbDw-S}Per((68n`E{n!L7@Dm
z^5#$8&ox5^g3cM2a|MoMVceb31S>duLhjYtK@~!*6^F3jfxbig5gY&Qv`0f6*4NNk
z<D@3fk0OS6yJWz&AzIga%yLda{4(ff4JsuXoUup4N~@)Gt=d}fBSnwT&oCIZl4Gb{
zhv!dS%iPdl!9rJJPkOvOF2Ri^=;kEyZpGRygjGcghEGD~TTeXDL!{cA1zRr&0DB4X
zvlJs7h(i|Vmh@QTBGJ;8(o9r##5O4sgc8?hFs#)DugE=ZVs9MIKJw+&)z?OGiI})|
z>&O|)K5=Kh5*G`{E`tCkgVVcSIWCNd6Hb#mo{Tvil9#R&qVddt9<VmdjIpV3@SQ9!
zZYbcgYu-&~uCIIky`VV%3?H11WWD2T3fi(q=j8G#RSZHz)b%A>ZHT`CQ~a0kWL*D3
z2xX+yKkX)cSBg`yzg#4nrduOP?4mdaTxaL51PeS4#TTU5*;~yIomI78EJ;1UaU(yH
z&|*!g%%Fv5@sR*=ME(!QdF4?*6j0TX5)XeOp9qB(&@W)SeG3U;h7IySoLeoqjB+O6
z+b5G2c<r@sy6$l$>R|-`0hz+lEnkT{y*~FNMRCAoG6gC_+;m`5bgKURpCa+HWg?SU
z2o43LfM0+<*_czx-)Nogo#TL*k$cF&?)Ck^M^l6+z;e%HU6x-6)7UmMbF`zt*Ryxl
zy(x5E#Rah_7d{#ZZ&Dmz2E*|w85^5pew!lOByOH@Xo)bgrc*Vi38ok)1QvF|(%Bjf
zVS*A>SP|RidJ=aV`_=NgC{HK_$L{h0wuXvvsGx5wN|QHX-lwG9avGQd-4qd`Po<3T
zfSICJQoSxNPFnNqT6i8yaOQcqi01Qmz{=w&7q<53EoRtNuW#!*d(2u0))G_7T+Ee%
zEr5}aJ5DcfwDE49iq`c{x~$<}Xp!+;R@V{YXiC1s9#gOco0}VPEd3$Y-irw|Gxn{J
zk(3EYz3%B$xyugrfgV!iZWn2!0sxUDmxb|r<HmZy*g@(B`|aw7M15huc6NP=dP%oV
zQPAJ+%s3r<DsiAdFZAz&{@BmgW4%=%sl%GG<3U=>W{nNPha=u+-)e%ze4)l7+a`sH
z=s<z+d-l*^nlTfbXH(<=bW{0yjo=Q5A7;+T(%eYz&-PR2e4+{4&{nWaA~sZmNl^Vc
zhD*VOKYR5+>TJgtIS1o{^T%DvI|7F}p&ss20R3}4-}mR+SV^E+c>Jq_ZymY`kYcn0
z1!ZmzMy~K(W$*veDgCq+!p}+WSIGmUcJ)~F55OK;{+et^Z_;2<H`FGU51U|o#?C8a
z?m=btA|K$+pFe*dDJ3|FUv3jXxZRN|RGIE5%Y8eOgA8<mLWW1$eDOGX49<@Y(JJ6<
zdOcrhG(JbEh~pvEY+C`Dd|5#I%mKzs2iMQf4u<@f1^*)Jo3|6dRj+mojyxLq3x71p
zzdQe+NHr#Ti^wSt;lz~?4FOQ;^whO~t^nX!QFpzKXd(6p);cv+n;l6A?2wu;X~ES8
z#y}Unilj3rv?!}Rvk31z@A59v;g{HHW+dN&eIxm8S2D|e>13}%g;VaHuPYdu2ChBw
zI92Gpa@#fX=FvJ{4pAmV;O;`#rc`g`eb8M|aCI(&gg(o~k`<$u)ONz8<!zH!u<e^#
zvz6HqIDSFl?Mp!N#F#5CDymPLeeWKctF-JM-z@x&lU3cUut7(^VIDtLNjcmsU8bu7
z?mEfL40(X7sH)!AmCspl;pO!QYrmt(DbkqUSt8@sqU8fML;xs}<9%?~Q)d&Xldr*o
zK3)(dEv&7<RZ^d9#`)*tFCM=Yt&w`TV^%wTymwn?G&l!iN(-0S@Dpt5UasrY2IEav
zFNWz)#|=|}ELH_mZnLON4ZY)#THa^Aib_mM8pl&bX}aRjpglqdCj#di@54_J2f@Wy
zkc3A<7Iw3iYbzWmx34=n%NBc+6avS(Ysv-bqv+OXlLW*%fEOV5Dc0p-%d7?`$>C=}
zM@1(<A&{p}KCegtZRl;*SO?TL(Ts$8s#sT6-bde}mMSX#5GlYt*;ldqvpa#~3;IuV
zrUR+-#F>^P{Wqp!Q^1z2HrFLk+0aQwC$d~2tOAlyN>Ht6qwwoPR~VxUrT^Osz?lmZ
z;q*-2ylra+RGUN@^DF#FxQZAnA8i2u)0SEUv>uz2FrIc6XD{zD6XOmz5VU}ZD5<Gc
zG4S?Yq8jORmf-mP%floFnU9{+$X$skC#Eezz6q9XzmSK9)wD4uXf&Z;vXbtS47E+r
z_w+I?XsompW>Iecw1V`VWx?c120N7*q$%lS4Q$VNThw{6H+}4z7c@BaDM^<#s3H<y
zH(?W!9*osqbNo1!O2XcBsfW7~&(+|=<b7x{)B1=rz749AP&{6(nA@;AC1u=ME3;j`
z8LWVx{YR10#$=leQ^PAzzcnDl@gmCHLZq>8UIZ})WH<KL-6hx>riM@=>NI6QO(gA?
zw3HVXuh)1%{2cHOqYMFklUYGpCc5|)i{TgzraurTdFLyJ*I;-ie>^sq7glA9*M1be
z-3B|0XLj6=2^+_#4`UQHlqAFHp%($@aBm8N3XT&UfaWSM%*L2lk%EV$OO)A*vgZAp
zh*4uwbeQGl1L68hSHMl&R*Xbif}X_co8}-5v|703@(KYmDy-guj#zZ~bX_fzEqeR?
zP#EJt6caVLNBQ(8tR@|jheD5JFIaJ*;lhfJq@Z0Qd+GxNrl%MCLVx!W@(>^&Z_+IT
z#-{Q*+*L<Pf$-8kSh2D}2jJHHrl3(aYlncUn5qYMk=h8lg&B4wd-O*j_(8Bbr<zIo
zIqHk&jX=$>QB?I$`RTEzYP{u)UM*GBEFB%$;Nx7k2J}N8>|MAk5t}jwovRhp&naIK
z&?_UsDSCP0UdeTO_la2}8=Fa%PR6#07?LUn%+8+Aq2aW$LhvCFVslxI;o9qkMFlcz
z#3%;R;H^D#0|mxKM;)XcHLo$}FeEY|+2$QKr7H%VxoyG{DIZYZY^76C(AL0XM{pBI
zHgJhh_dyG(5PbzK2#1tDoHAYO6L{UxpTFd-F7#tYWJ5fSdn+}VqI;0;({oP#p$f=q
z5H1pE`Od1ZU$<%zNdVfjb2pQ;pA?}`2fM$$zJ-$sI^daRHG}Rr{N}T1?X{r_5g(w$
zD*#VWJ1*8oSE+rw#Rlf6pz~xpHYf6@NF>lu3_LzP=BOnBgl(NL7?y^HaC0NO|IZgW
zKKY7iUE0`)J~Z|O%?&0m9NkyT={L^7ildv_Cjr=~?$}Kt!>1P|fuh5Jch2YP3-!w`
z>#Tq{*ivp+EVa&QaNZxX*X8_=;qKUiWeByc1wB-~P}8dxA57J-tiknt-;xmAUl28>
z@=%#D{>79zr6l*#q(Cf{7SQB78-9Rx)@Sac+nxW1_<&!_7#{dKX<%O}X+Z;C!Na<e
zKzn9ETIo+y2b32zw}s$*n0E#EBYCV%3SBrmOF%~hnEQe2US)-bx1ynljOr{aYQdf$
z3!w#-Kk5NJxYkN^oQpqly$9}!%>{{5c=o%+_;v(zG$J+^dg9D%i}GhVdHLSM1F@;4
z!!MUi<%KyJq{H~|WtQwHw}lE+8CigmfuRzXKLnmFS>WpKhiFhk%$x{*B~V3qRumc*
zX#`|A0^LC$Z&E2Yc{Jv9iq$Fk3#aw#+G`=hMer`@q6NI-8ohG#t;^c$3w<wihkQjq
z5`KR&v@eI+?}pxQ!1x$ErY1WX#@ft&uP?p5kB*>oSJF_T0sJh7?&lu!01CeqArzr*
z;P?&r(ZdTVV8k590S%MszsfWBQNGrSQ@iSq`hoQUc1ZZYFaOFmvv-s>%SS6MpUy>T
z_udf$YdwK@Ngx_wPyNWidhr&?@MmiIA4*!?WeaXZvt-xFe$5#zA*uBbkBgtB5-}!$
zHuei2o|gv0Oik^R-=!lN`0vX;+LYW}<JUq_L#Vqoe28;xUWWCV+bJpidl*DkbbjeP
RB=QLSDaxwKR7#l!{~s$JUYY;^

literal 0
HcmV?d00001


From d6fef7989452b6b10a838331a510279263ac10c3 Mon Sep 17 00:00:00 2001
From: Petter Hopp <petter.hopp@vetinst.no>
Date: Fri, 15 Sep 2023 09:02:05 +0200
Subject: [PATCH 05/21] chore: created NVI_vignette_style.css from template

---
 vignettes/NVI_vignette_style.css | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 vignettes/NVI_vignette_style.css

diff --git a/vignettes/NVI_vignette_style.css b/vignettes/NVI_vignette_style.css
new file mode 100644
index 0000000..d600561
--- /dev/null
+++ b/vignettes/NVI_vignette_style.css
@@ -0,0 +1,11 @@
+h1, h2, h3, h4 {
+  color: #1b314f; 
+  font-family: "Open Sans", "Helvetica Neue", Helvetica, Arial, sans-serif;
+}
+body {
+  color: #1b314f;
+  font-family: "source-serif-pro", "merriweather", serif;
+}
+thead {
+  font-family: "Open Sans", "Helvetica Neue", Helvetica, Arial, sans-serif;
+}

From 772f7eeee88564218a84ad9dd23d38c0d99ce149 Mon Sep 17 00:00:00 2001
From: Petter Hopp <petter.hopp@vetinst.no>
Date: Fri, 15 Sep 2023 09:03:11 +0200
Subject: [PATCH 06/21] chore: updated README from template

---
 README.md | 25 +++++++++++++++++++++----
 1 file changed, 21 insertions(+), 4 deletions(-)

diff --git a/README.md b/README.md
index de80641..74c812d 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-# OKplan: Tools to facilitate the Planning of the annual Surveillance Programmes
+# OKplan: Tools to facilitate the Planning of the annual Surveillance Programmes <img src="man/figures/OKplan_logo.png" align="right" height="138" />
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 
@@ -55,17 +55,34 @@ The `OKplan` package needs to be attached.
 surveillance programmes. The main focus is tools for generating
 standardized lists for NFSA.
 
+#### Further documentation
+
+##### Help
+
 The full list of all available functions and datasets can be accessed by
 typing
 
     help(package = "OKplan")
 
-Please check the NEWS for information on new features, bug fixes and
-other changes.
+##### Vignettes
+
+Consult the vignettes for task-oriented help.
+
+    vignette(package = "OKplan")
+
+Vignettes in package `OKplan`:
+
+-   Contribute to OKplan (html)
+
+##### NEWS
+
+Please check the
+[NEWS](https://github.com/NorwegianVeterinaryInstitute/OKplan/blob/main/NEWS)
+for information on new features, bug fixes and other changes.
 
 ## Copyright and license
 
-Copyright (c) 2021 - 2022 Norwegian Veterinary Institute.  
+Copyright (c) 2021 - 2023 Norwegian Veterinary Institute.  
 Licensed under the BSD\_3\_clause License. See
 [License](https://github.com/NorwegianVeterinaryInstitute/OKplan/blob/main/LICENSE)
 for details.

From d1f3e571893f019fe979d2c304d304e262685392 Mon Sep 17 00:00:00 2001
From: Petter Hopp <petter.hopp@vetinst.no>
Date: Fri, 15 Sep 2023 09:05:10 +0200
Subject: [PATCH 07/21] chore: updated NEWS with other changes

---
 NEWS | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index f021318..8058ed8 100644
--- a/NEWS
+++ b/NEWS
@@ -13,7 +13,7 @@ Bug fixes:
 
 Other changes:
 
--
+- Updated help section in README
 
 
 BREAKING CHANGES:

From 6b26305e8a737be3b09d1a74303ace922966618f Mon Sep 17 00:00:00 2001
From: Petter Hopp <petter.hopp@vetinst.no>
Date: Fri, 15 Sep 2023 09:11:20 +0200
Subject: [PATCH 08/21] chore: updated develop.R from template.

---
 notes/develop.R | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/notes/develop.R b/notes/develop.R
index 32ffcf9..9d33ebd 100644
--- a/notes/develop.R
+++ b/notes/develop.R
@@ -16,12 +16,19 @@ pkg <- stringi::stri_extract_last_words(pkg_path)
 
 
 # CREATE PACKAGE SKELETON ----
-# create_NVIpkg_skeleton(license_keyword = "CC BY 4.0")
+# create_NVIpkg_skeleton(license_keyword = "BSD_3_clause") # BSD_3_clause # CC BY 4.0
 
 # INCREASE PACKAGE VERSION IN DESCRIPTION AND NEWS ----
 # NVIpackager::increase_NVIpkg_version(pkg = pkg,
 #                                   pkg_path = pkg_path,
-#                                   type = "develop")
+#                                   type = "develop",
+#                                   document = FALSE)
+
+# UPDATE LICENSE
+# NVIpackager::update_license(pkg = pkg,
+#                             pkg_path = pkg_path,
+#                             copyright_owner = "Norwegian Veterinary Institute")
+
 
 # DOCUMENTATION AND STYLING ----
 # update_logo should be run if a logo has been created (or updated). Thereafter run "document_NVIpkg" with "readme = TRUE".
@@ -36,6 +43,8 @@ NVIpackager::document_NVIpkg(pkg = pkg,
                              readme = FALSE,
                              manual = "update",
                              scope = c("spaces", "line_breaks"))
+# filename <- "xxxx.R"
+# styler::style_file(path = file.path(pkg_path, "R", filename), scope = I(c("spaces")))
 
 # spelling::spell_check_package(vignettes = TRUE, use_wordlist = TRUE)
 

From 37a82196142f7a8408e9e1888a4649e2e3534e33 Mon Sep 17 00:00:00 2001
From: Petter Hopp <petter.hopp@vetinst.no>
Date: Fri, 15 Sep 2023 09:11:46 +0200
Subject: [PATCH 09/21] chore: updated license year in LICENSE

---
 LICENSE | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LICENSE b/LICENSE
index 780916a..a527b52 100644
--- a/LICENSE
+++ b/LICENSE
@@ -1,6 +1,6 @@
 BSD 3-Clause License
 
-Copyright (c) 2020, Norwegian Veterinary Institute
+Copyright (c) 2020 - 2023 Norwegian Veterinary Institute
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without

From 0394fe8ecbb81656946b3b87c60d0734eeddec4e Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Mon, 18 Sep 2023 08:21:49 +0200
Subject: [PATCH 10/21] chore: updated .gitignore from GitHub template

---
 .gitignore | 40 +++++++++++++++++++++++++++++++++++++---
 1 file changed, 37 insertions(+), 3 deletions(-)

diff --git a/.gitignore b/.gitignore
index 6d6372a..191a0a7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,7 +1,41 @@
-.Rproj.user
+# History files
 .Rhistory
+.Rapp.history
+
+# Session Data files
 .RData
+
+# User-specific files
 .Ruserdata
-*.Rproj
-*.Rcheck
+
+# Example code in package build process
+*-Ex.R
+
+# Output files from R CMD build
+/*.tar.gz
+
+# Output files from R CMD check
+/*.Rcheck/
+
+# RStudio files
+.Rproj.user/
+
+# produced vignettes
+vignettes/*.html
+vignettes/*.pdf
+
+# OAuth2 token, see https://github.com/hadley/httr/releases/tag/v0.3
+.httr-oauth
+
+# knitr and R markdown default cache directories
+*_cache/
+/cache/
+
+# Temporary files created by R markdown
+*.utf8.md
+*.knit.md
+
+# R Environment Variables
+.Renviron
+
 inst/doc

From 8c22844372df1d471e223249db074f9f87998952 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Mon, 18 Sep 2023 08:22:22 +0200
Subject: [PATCH 11/21] chore: included syncronising of OKplan.Rproj

---
 OKplan.Rproj | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 OKplan.Rproj

diff --git a/OKplan.Rproj b/OKplan.Rproj
new file mode 100644
index 0000000..21a4da0
--- /dev/null
+++ b/OKplan.Rproj
@@ -0,0 +1,17 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source

From deb0de0b49a794ae9d763d4678e642ea64c71849 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Sat, 7 Oct 2023 15:27:57 +0200
Subject: [PATCH 12/21] refactor: updated adjust_samples_to_budget Included
 all_of to fix deprecated tidyverse code.

---
 R/adjust_samples_to_budget.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/adjust_samples_to_budget.R b/R/adjust_samples_to_budget.R
index bc15a32..2a8186a 100644
--- a/R/adjust_samples_to_budget.R
+++ b/R/adjust_samples_to_budget.R
@@ -118,10 +118,10 @@ adjust_samples_to_budget <- function(data,
 
   difference <- difference %>%
     dplyr::mutate(original_order = 1:dplyr::n()) %>%
-    dplyr::arrange(dplyr::across(c(group, sample_to_adjust))) %>%
+    dplyr::arrange(dplyr::across(dplyr::all_of(c(group, sample_to_adjust)))) %>%
     dplyr::group_by(dplyr::across(dplyr::all_of(group))) %>%
     dplyr::mutate(total_estimated = sum(dplyr::across(dplyr::all_of(sample_to_adjust)), na.rm = TRUE)) %>%
-    dplyr::mutate(included = dplyr::case_when(dplyr::across(sample_to_adjust) > 0 ~ 1,
+    dplyr::mutate(included = dplyr::case_when(dplyr::across(dplyr::all_of(sample_to_adjust)) > 0 ~ 1,
                                               TRUE ~ 0)) %>%
     dplyr::mutate(n_units = sum(.data$included, na.rm = TRUE)) %>%
     dplyr::mutate(difference = .data$total_estimated - as.numeric(.data$budget)) %>%

From a03b341ea281fd06ef8dd757157e363d03b71427 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Sat, 7 Oct 2023 15:28:46 +0200
Subject: [PATCH 13/21] fix: corrected argument checking for get_tested_herds

---
 R/get_tested_herds.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/get_tested_herds.R b/R/get_tested_herds.R
index f36f440..d5f475e 100644
--- a/R/get_tested_herds.R
+++ b/R/get_tested_herds.R
@@ -62,7 +62,7 @@ get_tested_herds <- function(eos_table,
   checkmate::assert_integerish(year,
                                lower = 1995, upper = (as.numeric(format(Sys.Date(), "%Y"))),
                                any.missing = FALSE, all.missing = FALSE,
-                               len = 1,
+                               min.len = 1,
                                add = checks)
   checkmate::assert_character(species, min.len = 1, null.ok = TRUE, add = checks)
   checkmate::assert_character(production, min.len = 1, null.ok = TRUE, add = checks)

From f4f76fef53e487b5b3f7198802ebd32b9957a0e3 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Sat, 7 Oct 2023 15:29:22 +0200
Subject: [PATCH 14/21] chore: updated NEWS with fix

---
 NEWS | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 8058ed8..64bab43 100644
--- a/NEWS
+++ b/NEWS
@@ -8,7 +8,7 @@ New features:
 
 Bug fixes:
 
--
+- the argument `year` in `get_tested_herds` now accepts more than one year as input. 
 
 
 Other changes:

From 1694eea4e1869f139403868f29342fbf8a946b12 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Sat, 7 Oct 2023 16:03:25 +0200
Subject: [PATCH 15/21] fix: corrected write_ok_selection_list The sum is only
 calculated if the column ant_prover exists.

---
 R/write_ok_selection_list.R | 48 +++++++++++++++++++------------------
 1 file changed, 25 insertions(+), 23 deletions(-)

diff --git a/R/write_ok_selection_list.R b/R/write_ok_selection_list.R
index 6a18e84..3cf000e 100644
--- a/R/write_ok_selection_list.R
+++ b/R/write_ok_selection_list.R
@@ -82,15 +82,15 @@ write_ok_selection_list <- function(data,
                                     footnote_heights = NULL,
                                     dbsource,
                                     add_worksheet = FALSE) {
-
+  
   # PREPARE ARGUMENTS BEFORE ARGUMENT CHECKING ----
   # Remove trailing backslash or slash before testing path
   filepath <- sub("\\\\{1,2}$|/{1,2}$", "", filepath)
-
+  
   # ARGUMENT CHECKING ----
   # Object to store check-results
   checks <- checkmate::makeAssertCollection()
-
+  
   # Perform checks
   # for (i in 1:length(data)) {
   checkmate::assert_data_frame(data, max.rows = (1048576 - 1), max.cols = 16384, add = checks)
@@ -111,14 +111,14 @@ write_ok_selection_list <- function(data,
                                  min.len = 3, max.len = 6,
                                  comment = "When input as a list, all elements must have the same length",
                                  add = checks)
-
+    
     checkmate::assert_subset(names(column_standards), choices = c("table_db", "colname_db", "colname", "collabel", "colwidth", "colorder"),
                              add = checks)
   }
   if (inherits(column_standards, what = "data.frame")) {
     checkmate::assert_data_frame(column_standards, min.rows = 1, min.cols = 6, add = checks)
   }
-
+  
   checkmate::assert_flag(calculate_sum, add = checks)
   checkmate::assert_string(footnote, min.chars = 1, null.ok = TRUE, add = checks)
   checkmate::assert_character(dbsource, min.len = 1, add = checks)
@@ -128,33 +128,33 @@ write_ok_selection_list <- function(data,
                              add = checks)
   }
   checkmate::assert_flag(add_worksheet, add = checks)
-
+  
   # Report check-results
   checkmate::reportAssertions(checks)
-
+  
   # TRANSFORM column_standards FROM list TO data.frame
   # column_standards = list("colname" = c("mt_region", "mt_avdeling"),
   #                 "collabel" = c("MT region", "MT avdeling"),
   #                 "colwidth" = c(35, 35))
-
+  
   if (inherits(column_standards, what = "list")) {
     column_standards <- as.data.frame((column_standards))
-
+    
     if (!"table_db" %in% colnames(column_standards)) {
       column_standards$table_db <- dbsource
     }
-
+    
     if (!"colname_db" %in% colnames(column_standards)) {
       column_standards$colname_db <- column_standards$colname
     }
-
+    
     if (!"colorder" %in% colnames(column_standards)) {
       column_standards$colorder <- c(1:dim(column_standards)[1])
     }
     colnames(column_standards)[which(colnames(column_standards) == "collabel")] <- "label_1_no"
     colnames(column_standards)[which(colnames(column_standards) == "colwidth")] <- "colwidth_Excel"
   }
-
+  
   # GENERATE EXCEL WORKBOOK ----
   # create or load workbook
   if (isTRUE(add_worksheet)) {
@@ -162,37 +162,39 @@ write_ok_selection_list <- function(data,
   } else {
     okwb <- openxlsx::createWorkbook()
   }
-
+  
   # STANDARDIZE COLUMNS ----
   # column names
   okdata <- NVIdb::standardize_columns(data,
                                        standards = column_standards,
                                        dbsource = dbsource,
                                        property = "colnames")
-
+  
   # order columns and keep only designated columns
   okdata <- NVIdb::standardize_columns(data = okdata,
                                        standards = column_standards,
                                        dbsource = dbsource,
                                        property = "colorder", exclude = TRUE)
-
+  
   # INCLUDE EXTRA INFORMATION ----
   # Append sum
   if (isTRUE(calculate_sum)) {
-    okdata <- append_sum_line(data = okdata, column = c("ant_prover"), position = "left")
+    if ("ant_prover" in colnames(data)) {
+      okdata <- append_sum_line(data = okdata, column = c("ant_prover"), position = "left")
+    }
   }
-
+  
   # Append date generated
   okdata <- append_date_generated_line(okdata)
-
-
+  
+  
   # Append footnote
   if (!is.null(footnote)) {
     okdata <- NVIpretty::append_text_line(okdata,
                                           text = footnote,
                                           empty_rows = 2)
   }
-
+  
   # STYLE EXCEL SHEET ----
   NVIpretty::add_formatted_worksheet(data = okdata,
                                      workbook = okwb,
@@ -202,11 +204,11 @@ write_ok_selection_list <- function(data,
                                      colwidths = TRUE,
                                      standards = column_standards,
                                      dbsource = dbsource)
-
+  
   if (isTRUE(calculate_sum)) {
     style_sum_line(workbook = okwb, sheet = sheet, data = okdata)
   }
-
+  
   if (!is.null(footnote)) {
     NVIpretty::style_text_line(workbook = okwb, sheet = sheet, data = okdata,
                                text = footnote,
@@ -214,7 +216,7 @@ write_ok_selection_list <- function(data,
                                merge_cells = TRUE,
                                heights = footnote_heights)
   }
-
+  
   # SAVE EXCEL WORKBOOK ----
   openxlsx::saveWorkbook(wb = okwb, file = file.path(filepath, filename), overwrite = TRUE)
 }

From 99b896fb9944c08073811cd834489ec459775546 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Sat, 7 Oct 2023 16:05:51 +0200
Subject: [PATCH 16/21] chore: updated NEWS with fix

---
 NEWS | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/NEWS b/NEWS
index 64bab43..0565fda 100644
--- a/NEWS
+++ b/NEWS
@@ -10,6 +10,8 @@ Bug fixes:
 
 - the argument `year` in `get_tested_herds` now accepts more than one year as input. 
 
+- The sum is only calculated in `write_ok_selection_list` if the column "ant_prover" exists.
+
 
 Other changes:
 

From 1adad1d385d953dfd146397b7390b678ab046130 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Sat, 7 Oct 2023 22:24:29 +0200
Subject: [PATCH 17/21] fix: corrected write_ok_selection_list The argument
 column can now be passed to append_sum_line.

---
 R/write_ok_selection_list.R | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/R/write_ok_selection_list.R b/R/write_ok_selection_list.R
index 3cf000e..dcdcc42 100644
--- a/R/write_ok_selection_list.R
+++ b/R/write_ok_selection_list.R
@@ -81,11 +81,13 @@ write_ok_selection_list <- function(data,
                                     footnote = NULL,
                                     footnote_heights = NULL,
                                     dbsource,
-                                    add_worksheet = FALSE) {
+                                    add_worksheet = FALSE,
+                                    ...) {
   
   # PREPARE ARGUMENTS BEFORE ARGUMENT CHECKING ----
   # Remove trailing backslash or slash before testing path
   filepath <- sub("\\\\{1,2}$|/{1,2}$", "", filepath)
+  dots <- list(...)
   
   # ARGUMENT CHECKING ----
   # Object to store check-results
@@ -179,8 +181,12 @@ write_ok_selection_list <- function(data,
   # INCLUDE EXTRA INFORMATION ----
   # Append sum
   if (isTRUE(calculate_sum)) {
-    if ("ant_prover" in colnames(data)) {
-      okdata <- append_sum_line(data = okdata, column = c("ant_prover"), position = "left")
+    if ("column" %in% names(dots)) {
+      column <- dots$column
+      } else {column <- "ant_prover"}
+    column <- intersect(column, colnames(data))
+    if (length(column) > 0) {
+      okdata <- append_sum_line(data = okdata, column = column, position = "left")
     }
   }
   

From f4fabe122804bba2d7a59b838317626030754c47 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Sat, 7 Oct 2023 22:25:31 +0200
Subject: [PATCH 18/21] doc: updated help for write_ok_selection_list

---
 R/write_ok_selection_list.R    | 45 +++++++++++++++++-----------------
 man/write_ok_selection_list.Rd |  5 +++-
 2 files changed, 27 insertions(+), 23 deletions(-)

diff --git a/R/write_ok_selection_list.R b/R/write_ok_selection_list.R
index dcdcc42..f41902b 100644
--- a/R/write_ok_selection_list.R
+++ b/R/write_ok_selection_list.R
@@ -70,6 +70,7 @@
 #' @param add_worksheet [\code{logical(1)}]\cr
 #'     Should a worksheet be added to an existing workbook? Defaults to
 #'     \code{FALSE}.
+#' @param \dots Other arguments to be passed to \code{\link{append_sum_line}}.
 #' @export
 #'
 write_ok_selection_list <- function(data,
@@ -83,16 +84,16 @@ write_ok_selection_list <- function(data,
                                     dbsource,
                                     add_worksheet = FALSE,
                                     ...) {
-  
+
   # PREPARE ARGUMENTS BEFORE ARGUMENT CHECKING ----
   # Remove trailing backslash or slash before testing path
   filepath <- sub("\\\\{1,2}$|/{1,2}$", "", filepath)
   dots <- list(...)
-  
+
   # ARGUMENT CHECKING ----
   # Object to store check-results
   checks <- checkmate::makeAssertCollection()
-  
+
   # Perform checks
   # for (i in 1:length(data)) {
   checkmate::assert_data_frame(data, max.rows = (1048576 - 1), max.cols = 16384, add = checks)
@@ -113,14 +114,14 @@ write_ok_selection_list <- function(data,
                                  min.len = 3, max.len = 6,
                                  comment = "When input as a list, all elements must have the same length",
                                  add = checks)
-    
+
     checkmate::assert_subset(names(column_standards), choices = c("table_db", "colname_db", "colname", "collabel", "colwidth", "colorder"),
                              add = checks)
   }
   if (inherits(column_standards, what = "data.frame")) {
     checkmate::assert_data_frame(column_standards, min.rows = 1, min.cols = 6, add = checks)
   }
-  
+
   checkmate::assert_flag(calculate_sum, add = checks)
   checkmate::assert_string(footnote, min.chars = 1, null.ok = TRUE, add = checks)
   checkmate::assert_character(dbsource, min.len = 1, add = checks)
@@ -130,33 +131,33 @@ write_ok_selection_list <- function(data,
                              add = checks)
   }
   checkmate::assert_flag(add_worksheet, add = checks)
-  
+
   # Report check-results
   checkmate::reportAssertions(checks)
-  
+
   # TRANSFORM column_standards FROM list TO data.frame
   # column_standards = list("colname" = c("mt_region", "mt_avdeling"),
   #                 "collabel" = c("MT region", "MT avdeling"),
   #                 "colwidth" = c(35, 35))
-  
+
   if (inherits(column_standards, what = "list")) {
     column_standards <- as.data.frame((column_standards))
-    
+
     if (!"table_db" %in% colnames(column_standards)) {
       column_standards$table_db <- dbsource
     }
-    
+
     if (!"colname_db" %in% colnames(column_standards)) {
       column_standards$colname_db <- column_standards$colname
     }
-    
+
     if (!"colorder" %in% colnames(column_standards)) {
       column_standards$colorder <- c(1:dim(column_standards)[1])
     }
     colnames(column_standards)[which(colnames(column_standards) == "collabel")] <- "label_1_no"
     colnames(column_standards)[which(colnames(column_standards) == "colwidth")] <- "colwidth_Excel"
   }
-  
+
   # GENERATE EXCEL WORKBOOK ----
   # create or load workbook
   if (isTRUE(add_worksheet)) {
@@ -164,20 +165,20 @@ write_ok_selection_list <- function(data,
   } else {
     okwb <- openxlsx::createWorkbook()
   }
-  
+
   # STANDARDIZE COLUMNS ----
   # column names
   okdata <- NVIdb::standardize_columns(data,
                                        standards = column_standards,
                                        dbsource = dbsource,
                                        property = "colnames")
-  
+
   # order columns and keep only designated columns
   okdata <- NVIdb::standardize_columns(data = okdata,
                                        standards = column_standards,
                                        dbsource = dbsource,
                                        property = "colorder", exclude = TRUE)
-  
+
   # INCLUDE EXTRA INFORMATION ----
   # Append sum
   if (isTRUE(calculate_sum)) {
@@ -189,18 +190,18 @@ write_ok_selection_list <- function(data,
       okdata <- append_sum_line(data = okdata, column = column, position = "left")
     }
   }
-  
+
   # Append date generated
   okdata <- append_date_generated_line(okdata)
-  
-  
+
+
   # Append footnote
   if (!is.null(footnote)) {
     okdata <- NVIpretty::append_text_line(okdata,
                                           text = footnote,
                                           empty_rows = 2)
   }
-  
+
   # STYLE EXCEL SHEET ----
   NVIpretty::add_formatted_worksheet(data = okdata,
                                      workbook = okwb,
@@ -210,11 +211,11 @@ write_ok_selection_list <- function(data,
                                      colwidths = TRUE,
                                      standards = column_standards,
                                      dbsource = dbsource)
-  
+
   if (isTRUE(calculate_sum)) {
     style_sum_line(workbook = okwb, sheet = sheet, data = okdata)
   }
-  
+
   if (!is.null(footnote)) {
     NVIpretty::style_text_line(workbook = okwb, sheet = sheet, data = okdata,
                                text = footnote,
@@ -222,7 +223,7 @@ write_ok_selection_list <- function(data,
                                merge_cells = TRUE,
                                heights = footnote_heights)
   }
-  
+
   # SAVE EXCEL WORKBOOK ----
   openxlsx::saveWorkbook(wb = okwb, file = file.path(filepath, filename), overwrite = TRUE)
 }
diff --git a/man/write_ok_selection_list.Rd b/man/write_ok_selection_list.Rd
index 6abab1e..29e4a85 100644
--- a/man/write_ok_selection_list.Rd
+++ b/man/write_ok_selection_list.Rd
@@ -14,7 +14,8 @@ write_ok_selection_list(
   footnote = NULL,
   footnote_heights = NULL,
   dbsource,
-  add_worksheet = FALSE
+  add_worksheet = FALSE,
+  ...
 )
 }
 \arguments{
@@ -52,6 +53,8 @@ be used for standardising and formatting the sampling plan output.}
 \item{add_worksheet}{[\code{logical(1)}]\cr
 Should a worksheet be added to an existing workbook? Defaults to
 \code{FALSE}.}
+
+\item{\dots}{Other arguments to be passed to \code{\link{append_sum_line}}.}
 }
 \description{
 The sampling plan is output to an Excel sheet. The list with

From ca8df713e2e4a54d81c7e39407c5ba63f6efaca6 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Sat, 7 Oct 2023 22:27:41 +0200
Subject: [PATCH 19/21] chore: updated NEWS with fix

---
 NEWS | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 0565fda..3432ecb 100644
--- a/NEWS
+++ b/NEWS
@@ -10,7 +10,7 @@ Bug fixes:
 
 - the argument `year` in `get_tested_herds` now accepts more than one year as input. 
 
-- The sum is only calculated in `write_ok_selection_list` if the column "ant_prover" exists.
+- The argument column can now be passed to append_sum_line.
 
 
 Other changes:

From 78e4536dadb29695d43feb862ffb43df2bd2473b Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Mon, 9 Oct 2023 13:00:38 +0200
Subject: [PATCH 20/21] doc: updated help for write_ok_selection_list Included
 help for appending sum line.

---
 R/write_ok_selection_list.R    | 7 +++++++
 man/write_ok_selection_list.Rd | 7 +++++++
 2 files changed, 14 insertions(+)

diff --git a/R/write_ok_selection_list.R b/R/write_ok_selection_list.R
index f41902b..3d89622 100644
--- a/R/write_ok_selection_list.R
+++ b/R/write_ok_selection_list.R
@@ -41,6 +41,13 @@
 #'
 #' All vectors must have the same order and the same length.
 #'
+#' When \code{\link{calculate_sum}} is TRUE, a line with the sum will be appended.
+#'    The default is to calculate the sum of the column "ant_prover". If the sum
+#'    should be calculated for one or more other columns, you may give thecolumn
+#'    names as input to the argument \code{column} that will be passed to
+#'    \code{\link{append_sum_line}}. The sum will only be appended for columns
+#'    that exist in the data.
+#'
 #' When more than one worksheet should be added to a single workbook,
 #'     use \code{add_worksheet = FALSE} for the first worksheet and
 #'     \code{add_worksheet = TRUE} for the consecutive worksheet(s).
diff --git a/man/write_ok_selection_list.Rd b/man/write_ok_selection_list.Rd
index 29e4a85..583934e 100644
--- a/man/write_ok_selection_list.Rd
+++ b/man/write_ok_selection_list.Rd
@@ -100,6 +100,13 @@ The list input to column_standards must follow a specific format.
 
 All vectors must have the same order and the same length.
 
+When \code{\link{calculate_sum}} is TRUE, a line with the sum will be appended.
+   The default is to calculate the sum of the column "ant_prover". If the sum
+   should be calculated for one or more other columns, you may give thecolumn
+   names as input to the argument \code{column} that will be passed to
+   \code{\link{append_sum_line}}. The sum will only be appended for columns
+   that exist in the data.
+
 When more than one worksheet should be added to a single workbook,
     use \code{add_worksheet = FALSE} for the first worksheet and
     \code{add_worksheet = TRUE} for the consecutive worksheet(s).

From 751786468dbbd30fb1f2762856e48843b7b17f46 Mon Sep 17 00:00:00 2001
From: Petter Hopp <Petter.Hopp@vetinst.no>
Date: Mon, 9 Oct 2023 13:02:41 +0200
Subject: [PATCH 21/21] chore: NEWS and DESCRIPTION v0.6.1

---
 DESCRIPTION |  4 ++--
 NEWS        | 12 +-----------
 2 files changed, 3 insertions(+), 13 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index abae7f1..1be864c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: OKplan
 Title: Tools to facilitate the Planning of the annual Surveillance Programmes
-Version: 0.6.0.9000
-Date: 2023-##-##
+Version: 0.6.1
+Date: 2023-10-09
 Authors@R: 
   c(person(given = "Petter",
            family = "Hopp",
diff --git a/NEWS b/NEWS
index 3432ecb..e0dc484 100644
--- a/NEWS
+++ b/NEWS
@@ -1,11 +1,6 @@
-OKplan 0.6.0.9000 - (2023-##-##)
+OKplan 0.6.1 - (2023-10-09)
 ----------------------------------------
 
-New features:
-
--
-
-
 Bug fixes:
 
 - the argument `year` in `get_tested_herds` now accepts more than one year as input. 
@@ -18,11 +13,6 @@ Other changes:
 - Updated help section in README
 
 
-BREAKING CHANGES:
-
--
-
-
 OKplan 0.6.0 - (2023-05-30)
 ----------------------------------------