From 207b858f2ec814aab7384ce2902f488325a8584c Mon Sep 17 00:00:00 2001
From: Adrian Waddell <adrian@waddell.ch>
Date: Mon, 25 Jun 2012 00:00:00 +0000
Subject: [PATCH] version 0.1.4

---
 DESCRIPTION            |   8 +-
 MD5                    |  10 +-
 NAMESPACE              |   2 +-
 NEWS                   |   6 +
 R/ng_graph.R           | 835 +++++++++++++++++++++--------------------
 inst/doc/RnavGraph.pdf | Bin 845408 -> 845517 bytes
 6 files changed, 435 insertions(+), 426 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index d9d7278..80692c5 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: RnavGraph
 Type: Package
 Title: Using graphs as a navigational infrastructure.
-Version: 0.1.3
-Date: 2012-04-16
+Version: 0.1.4
+Date: 2012-06-25
 Author: Adrian R. Waddell and R. Wayne Oldford
 Maintainer: Adrian Waddell <adrian@waddell.ch>
 Url: http://www.navgraph.com
@@ -20,6 +20,6 @@ Collate: 'AllGenerics.R' 'ng_data.R' 'ng_graph.R' 'ng_path.R'
         'Viz2D_Ggobi.R' 'Viz2D_Axis.R' 'Viz2D_tk2d.R'
         'FunctionNavGraph.R' 'graphtools.R' 'navGraph.R' 'scagNav.R'
         'zzz.R'
-Packaged: 2012-04-22 22:08:02 UTC; adrian
+Packaged: 2012-06-26 15:12:51 UTC; adrian
 Repository: CRAN
-Date/Publication: 2012-04-23 05:50:58
+Date/Publication: 2012-06-26 15:37:52
diff --git a/MD5 b/MD5
index 92612ee..3cf52bb 100644
--- a/MD5
+++ b/MD5
@@ -1,6 +1,6 @@
-3673d9d195109d07e3b01eaa77b502b3 *DESCRIPTION
-c2013f30dbf0baba1aaccacd9a1f38d5 *NAMESPACE
-5b6dd643e175d892e1b82c7801aaad86 *NEWS
+f037f8689143cd9ea34229b3c8d7a827 *DESCRIPTION
+5b39e9968c18a7b751e916a7b03c74e8 *NAMESPACE
+1e3ace04f95721594b2da8d30d2ba947 *NEWS
 2eb21102bd24f42a9eaa379c87aa36e3 *R/AllGenerics.R
 1eae90f5511b1e0227466cecb11e61a3 *R/FunctionNavGraph.R
 698183f7c8d7f656c8bda9b23251958c *R/GraphDisplay.R
@@ -14,7 +14,7 @@ c023105f8b05388c4f44f5e8c119075b *R/Viz2D_Axis.R
 61f8b9c6b01a6ebe5c5c0da86e9fbd37 *R/graphtools.R
 f0ec55cb22b91af3918f70c881e7bac1 *R/navGraph.R
 e2046071e11a654375f749ae3f73a299 *R/ng_data.R
-341f0517b37a67c8a4f3a8f23e910459 *R/ng_graph.R
+1e76a8f29b2bc71a8f7939479d81b2ea *R/ng_graph.R
 b329d41fa64771577a44a16fadf604a7 *R/ng_image.R
 a99f1c3a3c7c5bab62790b432ad4e06c *R/ng_path.R
 2df6ec796522c5881afa798e4091d435 *R/scagNav.R
@@ -37,7 +37,7 @@ e6195073c4c1053f62f75299ab46dc34 *demo/ng_2d_myplot_grid.R
 893374fbe4c8212a0239feb08c2cdaaa *demo/ng_2d_scagnostics_olive.R
 ff1cda694de51a83619676e3aca1c099 *demo/ng_own_viz.R
 0a75373364cfcf4acae0aa67e48c3533 *inst/doc/RnavGraph.Rnw
-2d8fce94c6d4f91b52d024f833d9a8b2 *inst/doc/RnavGraph.pdf
+f0de3a26602f3fc3fcaaa5b03547e2da *inst/doc/RnavGraph.pdf
 b32561c5cecdc451ee9a893f3efecd4b *inst/tcl/GraphDisplay.tcl
 ffbe67dcab0a0c7cf371524ffcba5a4d *inst/tcl/tkScatterplotV1.tcl
 94bfc13ab09e12cfb4bbc2b23e0f4c05 *inst/tcl/tkScatterplotV3.tcl
diff --git a/NAMESPACE b/NAMESPACE
index 59b81ff..3022bc5 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -3,7 +3,7 @@ import(tcltk) ## import all functionality
 import(graph)
 importFrom(graphics,plot)
 import(methods)
-importFrom(RBGL,kamadaKawaiSpringLayout,fruchtermanReingoldForceDirectedLayout)
+##importFrom(RBGL,kamadaKawaiSpringLayout,fruchtermanReingoldForceDirectedLayout)
 
 ## exports
 	export(
diff --git a/NEWS b/NEWS
index 6c5ab5a..84cfb7e 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,9 @@
+July 2012, Version 0.1.4
+------------------------
+* RBGL 1.32.1 temporarily sacrifieced layout.cpp, hence
+  kamadaKawaiSpring and fruchtermanReingold layouts
+  currently not working
+
 New to Version 0.1.3
 --------------------
 * fixed .onLoad and .onAttach
diff --git a/R/ng_graph.R b/R/ng_graph.R
index 1085cd1..624545b 100644
--- a/R/ng_graph.R
+++ b/R/ng_graph.R
@@ -1,33 +1,33 @@
 setClass(
-		Class = "NG_graph",
-		representation = representation(
-				name = "character",
-				graph = "graph",
-				xNodes = "numeric",
-				yNodes = "numeric",
-				xLabels = "numeric",
-				yLabels = "numeric",
-				bbox = "numeric",
-				layout = "character",
-				border = "numeric",
-				sep = 'character'
-		),
-		validity = function(object){
-			goThrough <- TRUE
-			
-			if(is(object@graph,'graph') == FALSE){
-				cat('[NG_graph:validation] graph is not from class graph.\n')
-				goThrough <- FALSE
-			}
-			
-			if( !all(numNodes(object@graph) == c(length(object@xNodes),length(object@yNodes),
-							length(object@xLabels), length(object@yLabels), length(object@xNodes)))){
-				cat('[NG_graph:validation] dimension of a node related slot is wrong.\n')
-				goThrough <- FALSE
-			}
-			
-			return(goThrough)
-		})
+  Class = "NG_graph",
+  representation = representation(
+    name = "character",
+    graph = "graph",
+    xNodes = "numeric",
+    yNodes = "numeric",
+    xLabels = "numeric",
+    yLabels = "numeric",
+    bbox = "numeric",
+    layout = "character",
+    border = "numeric",
+    sep = 'character'
+    ),
+  validity = function(object){
+    goThrough <- TRUE
+    
+    if(is(object@graph,'graph') == FALSE){
+      cat('[NG_graph:validation] graph is not from class graph.\n')
+      goThrough <- FALSE
+    }
+    
+    if( !all(numNodes(object@graph) == c(length(object@xNodes),length(object@yNodes),
+                       length(object@xLabels), length(object@yLabels), length(object@xNodes)))){
+      cat('[NG_graph:validation] dimension of a node related slot is wrong.\n')
+      goThrough <- FALSE
+    }
+    
+    return(goThrough)
+  })
 
 
 
@@ -35,280 +35,283 @@ setClass(
 
 
 setMethod(
-		f = "show",
-		signature = "NG_graph",
-		definition = function(object){
-			cat("NG_graph object from ng_graph()\n")
-			cat(paste("name:", object@name,"\n"))
-			cat(paste("layout:", object@layout,"\n"))
-		})
+  f = "show",
+  signature = "NG_graph",
+  definition = function(object){
+    cat("NG_graph object from ng_graph()\n")
+    cat(paste("name:", object@name,"\n"))
+    cat(paste("layout:", object@layout,"\n"))
+  })
 
 
 ## layouting function
 setMethod(
-		f = "graphLayout",
-		signature = "NG_graph",
-		definition = function(graph,type,...){
-			args <- list(...)
-			
-			## ldist stands for label distance (from node)
-			
-			## Distance from the Node Labels to the Node
-			if(is(args$settings,"NG_Settings")){
-				labelDistR <- args$settings@interaction@labelDistRadius
-			}else if(is.null(args$ldist) == FALSE){
-				labelDistR <- args$ldist
-			}else{
-				labelDistR <- 25
-			}
-			
-			## circle layout
-			if(type == 'circle'){
-				p <- numNodes(graph@graph)
-				angle <- seq(0,2*pi, length=p+1)[1:p]
-				
-				## radius of circle for nodes 
-				r <- (min(graph@bbox) - 2*labelDistR - 2*graph@border)/2
-				graph@xNodes <- cos(angle)*r + graph@bbox[1]/2
-				graph@yNodes <- sin(angle)*r + graph@bbox[2]/2
-				
-				## radius of circle for label names
-				
-				#graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
-				
-				r <- (min(graph@bbox) - 2*graph@border)/2
-				graph@xLabels <- cos(angle)*r + graph@bbox[1]/2
-				graph@yLabels <- sin(angle)*r + graph@bbox[2]/2
-				
-				
-				
-			}
-			## Depend on Rgraphviz
-#			else if(any(type == c('neato','dot','twopi'))){
-#							
-#				## agopen is from the Rgraphviz library
-#				vv <- agopen(graph = graph@graph, name = graph@name,
-#						layout = type)
-#				
-#				x <- sapply(vv@AgNode,function(x)x@center@x)
-#				y <- sapply(vv@AgNode,function(x)x@center@y)
-#				nodeNames <- sapply(vv@AgNode,function(x)x@txtLabel@labelText)
-#				
-#				if(any(nodeNames != nodes(graph@graph))){
-#					stop("[NG_graph:grahLayout] order of nodes after Layouting not the same anymore.\n")
-#				}
-#				
-#				
-#				## rescale graph
-#				graph@xNodes <- (x-min(x))/(diff(range(x))) *
-#						(graph@bbox[1]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
-#				graph@yNodes <- (y-min(y))/(diff(range(y))) *
-#						(graph@bbox[2]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
-#				
-#				graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
-#				
-#				
-#			}
-			else if(type == 'random'){
-				
-				
-				lay <- randomGraphLayout(graph@graph)
-				
-				if(all(colnames(lay) == nodes(graph@graph)) == FALSE){
-					stop("[NG_graph:graphLayout] random layout nodes not equal to layouted output.\n")
-				}
-				
-				x <- lay[1,]
-				y <- lay[2,]
-				
-				##rescale graph
-				graph@xNodes <- (x-min(x))/(diff(range(x))) *
-						(graph@bbox[1]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
-				graph@yNodes <- (y-min(y))/(diff(range(y))) *
-						(graph@bbox[2]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
-				
-				
-				# graph@xNodes <- lay[1,]+graph@border
-				# graph@yNodes <- lay[2,]+graph@border
-				
-				graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
-				
-				
-			}else if(type == 'kamadaKawaiSpring'){
-				
-				lay <- kamadaKawaiSpringLayout( graph@graph, edge_or_side=1, es_length=1 )
-				
-				if(all(colnames(lay) == nodes(graph@graph)) == FALSE){
-					stop("[NG_graph:graphLayout] random layout nodes not equal to layouted output.\n")
-				}
-				
-				x <- lay[1,]
-				y <- lay[2,]
-				##rescale graph
-				graph@xNodes <- (x-min(x))/(diff(range(x))) *
-						(graph@bbox[1]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
-				graph@yNodes <- (y-min(y))/(diff(range(y))) *
-						(graph@bbox[2]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
-				
-				graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
-				
-				
-			}else if(type == "fruchtermanReingold"){
-				
-				lay <- fruchtermanReingoldForceDirectedLayout(graph@graph)
-				# gursoyAtunLayout(graph@graph)$gursoyAtunLayout
-				if(all(colnames(lay) == nodes(graph@graph)) == FALSE){
-					stop("[NG_graph:graphLayout] random layout nodes not equal to layouted output.\n")
-				}
-				
-				x <- lay[1,]
-				y <- lay[2,]
-				##rescale graph
-				graph@xNodes <- (x-min(x))/(diff(range(x))) *
-						(graph@bbox[1]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
-				graph@yNodes <- (y-min(y))/(diff(range(y))) *
-						(graph@bbox[2]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
-				
-				graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
-				
-				
-				
-			}else{
-				stop(paste("[NG_graph:graphLayout] layout type \" ",type, "\" not known"))
-			}
-			
-			
-			
-			graph@layout <- type
-			return(graph)
-		}
-)
+  f = "graphLayout",
+  signature = "NG_graph",
+  definition = function(graph,type,...){
+    args <- list(...)
+    
+    ## random, kamadaKawaiSpring and fruchtermanReingold kamadaKawaiSpring and fruchtermanReingold currently not
+    ## working for RBGL 1.32.1
+    if(type %in% c("kamadaKawaiSpring", "fruchtermanReingold", "random")) {
+      message(paste("Note: For graph \"", graph@name, "\" the ", type, " layout is temporarily not supported by the RBGL package, circle layout is used instead", sep =""))
+      type <- "circle"
+    }
+    
+    ## ldist stands for label distance (from node)
+    
+    ## Distance from the Node Labels to the Node
+    if(is(args$settings,"NG_Settings")){
+      labelDistR <- args$settings@interaction@labelDistRadius
+    }else if(is.null(args$ldist) == FALSE){
+      labelDistR <- args$ldist
+    }else{
+      labelDistR <- 25
+    }
+    
+    ## circle layout
+    if(type == 'circle'){
+      p <- numNodes(graph@graph)
+      angle <- seq(0,2*pi, length=p+1)[1:p]
+      
+      ## radius of circle for nodes 
+      r <- (min(graph@bbox) - 2*labelDistR - 2*graph@border)/2
+      graph@xNodes <- cos(angle)*r + graph@bbox[1]/2
+      graph@yNodes <- sin(angle)*r + graph@bbox[2]/2
+      
+      ## radius of circle for label names
+      
+      ##graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
+      
+      r <- (min(graph@bbox) - 2*graph@border)/2
+      graph@xLabels <- cos(angle)*r + graph@bbox[1]/2
+      graph@yLabels <- sin(angle)*r + graph@bbox[2]/2
+      
+    }
+    ## Depend on Rgraphviz
+    ##			else if(any(type == c('neato','dot','twopi'))){
+    ##							
+    ##				## agopen is from the Rgraphviz library
+    ##				vv <- agopen(graph = graph@graph, name = graph@name,
+    ##						layout = type)
+    ##				
+    ##				x <- sapply(vv@AgNode,function(x)x@center@x)
+    ##				y <- sapply(vv@AgNode,function(x)x@center@y)
+    ##				nodeNames <- sapply(vv@AgNode,function(x)x@txtLabel@labelText)
+    ##				
+    ##				if(any(nodeNames != nodes(graph@graph))){
+    ##					stop("[NG_graph:grahLayout] order of nodes after Layouting not the same anymore.\n")
+    ##				}
+    ##				
+    ##				
+    ##				## rescale graph
+    ##				graph@xNodes <- (x-min(x))/(diff(range(x))) *
+    ##						(graph@bbox[1]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
+    ##				graph@yNodes <- (y-min(y))/(diff(range(y))) *
+    ##						(graph@bbox[2]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
+    ##				
+    ##				graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
+    ##				
+    ##				
+    ##			}
+    ## else if(type == 'random'){
+    ##  
+    ##   lay <- randomGraphLayout(graph@graph)
+    ##  
+    ##   if(all(colnames(lay) == nodes(graph@graph)) == FALSE){
+    ##     stop("[NG_graph:graphLayout] random layout nodes not equal to layouted output.\n")
+    ##   }
+    ##  
+    ##   x <- lay[1,]
+    ##   y <- lay[2,]
+    ##  
+    ##   ##rescale graph
+    ##   graph@xNodes <- (x-min(x))/(diff(range(x))) *
+    ##     (graph@bbox[1]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
+    ##   graph@yNodes <- (y-min(y))/(diff(range(y))) *
+    ##     (graph@bbox[2]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
+    ##  
+    ##   ## graph@xNodes <- lay[1,]+graph@border
+    ##   ## graph@yNodes <- lay[2,]+graph@border
+    ##  
+    ##   graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
+    ##  
+    ## }
+    ## Currently not working for RBGL 1.32.1
+    ## else if(type == 'kamadaKawaiSpring'){
+    ##  
+    ##   lay <- kamadaKawaiSpringLayout( graph@graph, edge_or_side=1, es_length=1 )
+    ##  
+    ##   if(all(colnames(lay) == nodes(graph@graph)) == FALSE){
+    ##     stop("[NG_graph:graphLayout] random layout nodes not equal to layouted output.\n")
+    ##   }
+    ##  
+    ##   x <- lay[1,]
+    ##   y <- lay[2,]
+    ##   ##rescale graph
+    ##   graph@xNodes <- (x-min(x))/(diff(range(x))) *
+    ##     (graph@bbox[1]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
+    ##   graph@yNodes <- (y-min(y))/(diff(range(y))) *
+    ##     (graph@bbox[2]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
+    ##  
+    ##   graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
+    ##  
+    ##  
+    ## }else if(type == "fruchtermanReingold"){
+    ##  
+    ##   lay <- fruchtermanReingoldForceDirectedLayout(graph@graph)
+    ##                                     # gursoyAtunLayout(graph@graph)$gursoyAtunLayout
+    ##   if(all(colnames(lay) == nodes(graph@graph)) == FALSE){
+    ##     stop("[NG_graph:graphLayout] random layout nodes not equal to layouted output.\n")
+    ##   }
+    ##  
+    ##   x <- lay[1,]
+    ##   y <- lay[2,]
+    ##   ##rescale graph
+    ##   graph@xNodes <- (x-min(x))/(diff(range(x))) *
+    ##     (graph@bbox[1]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
+    ##   graph@yNodes <- (y-min(y))/(diff(range(y))) *
+    ##     (graph@bbox[2]- 2*graph@border - 2*labelDistR)+graph@border+labelDistR
+    ##  
+    ##   graph <- updateLabels(graph, ldist=labelDistR, orientation = 'center')
+    ##  
+    ##}
+    else{
+      stop(paste("[NG_graph:graphLayout] layout type \" ",type, "\" not known"))
+    }
+    
+    
+    
+    graph@layout <- type
+    return(graph)
+  }
+  )
 
 
 ## updateLabels
 updateLabels <- function(graph, ldist, orientation = 'center'){
-	if(is(graph,"NG_graph") == FALSE){
-		stop("[NG_graph:updateLabels] graph is not from class NG_graph.\n")
-	}
-	
-	if(orientation == 'same'){
-		dx <- graph@xLabels - graph@xNodes 
-		dy <- graph@yLabels - graph@yNodes
-		
-		dist <- apply(cbind(dx,dy),1,function(row)sqrt(sum(row^2)))
-		
-		ratio <- ldist/dist
-		graph@xLabels <- graph@xNodes + ratio*dx
-		graph@yLabels <- graph@yNodes + ratio*dy
-		
-		
-	} else if(orientation == 'center'){
-		center <- apply(cbind(graph@xNodes,graph@yNodes),2,mean)
-		
-		dx <- graph@xNodes-center[1]
-		dy <- graph@yNodes-center[2]
-		
-		dist <- apply(cbind(dx,dy),1,function(row)sqrt(sum(row^2)))
-		
-		ratio <- (ldist+dist)/dist
-		graph@xLabels <- center[1] + ratio*dx
-		graph@yLabels <- center[2] + ratio*dy
-	}
-	
-	return(graph)
+  if(is(graph,"NG_graph") == FALSE){
+    stop("[NG_graph:updateLabels] graph is not from class NG_graph.\n")
+  }
+  
+  if(orientation == 'same'){
+    dx <- graph@xLabels - graph@xNodes 
+    dy <- graph@yLabels - graph@yNodes
+    
+    dist <- apply(cbind(dx,dy),1,function(row)sqrt(sum(row^2)))
+    
+    ratio <- ldist/dist
+    graph@xLabels <- graph@xNodes + ratio*dx
+    graph@yLabels <- graph@yNodes + ratio*dy
+    
+    
+  } else if(orientation == 'center'){
+    center <- apply(cbind(graph@xNodes,graph@yNodes),2,mean)
+    
+    dx <- graph@xNodes-center[1]
+    dy <- graph@yNodes-center[2]
+    
+    dist <- apply(cbind(dx,dy),1,function(row)sqrt(sum(row^2)))
+    
+    ratio <- (ldist+dist)/dist
+    graph@xLabels <- center[1] + ratio*dx
+    graph@yLabels <- center[2] + ratio*dy
+  }
+  
+  return(graph)
 }
 
 
 ## initialize
 setMethod(
-		f = "initialize",
-		signature = "NG_graph",
-		definition = function(.Object,name,graph,visualization,layout,sep){
-			
-			## assign values
-			.Object@name <- name
-			if(is(graph,"graph")){
-				.Object@graph <- graph
-			}else{
-				stop("[NG_graph:initialize] Graph is not from class \"graph\".")
-			}
-			.Object@bbox <- c(400,400)
-			.Object@border <- 40
-			
-			
-			.Object@layout <- layout
-			
-			.Object@sep <- sep
-			
-			
-			## Make graph Layout
-			.Object <- graphLayout(.Object, layout)
-			
-			validObject(.Object)
-			return(.Object)
-		}
-)
+  f = "initialize",
+  signature = "NG_graph",
+  definition = function(.Object,name,graph,visualization,layout,sep){
+    
+    ## assign values
+    .Object@name <- name
+    if(is(graph,"graph")){
+      .Object@graph <- graph
+    }else{
+      stop("[NG_graph:initialize] Graph is not from class \"graph\".")
+    }
+    .Object@bbox <- c(400,400)
+    .Object@border <- 40
+    
+    
+    .Object@layout <- layout
+    
+    .Object@sep <- sep
+    
+    
+    ## Make graph Layout
+    .Object <- graphLayout(.Object, layout)
+    
+    validObject(.Object)
+    return(.Object)
+  }
+  )
 
 
 
 ## plot NG_graph
 setMethod(
-		f = "plot",
-		signature = c(x = "NG_graph"),
-		definition = function(x,y = NULL,...){
-			plot(1,1, type = 'n', xlim = c(0,x@bbox[1]), ylim = c(0, x@bbox[2]),
-					main = paste(x@name,' (\'',x@layout,'\' layout)', sep =''), axes = FALSE, xlab ='', ylab = '')
-			box()
-			axis(3,at = c(0,x@bbox[1]), labels = c(0,x@bbox[1]) )
-			axis(2,at = c(0,x@bbox[2]), labels = c(x@bbox[2],0) )
-			
-			points(x@xNodes,x@yNodes*-1+x@bbox[2],pch = 19, cex = 2)
-			text(x@xLabels,x@yLabels*-1+x@bbox[2],nodes(x@graph))
-			
-			
-			edgeMatrix <- edgeMatrix(as(x@graph,"graphNEL"))
-			
-			segments(
-					x@xNodes[edgeMatrix[1,]],
-					x@yNodes[edgeMatrix[1,]]*-1+x@bbox[2],
-					x@xNodes[edgeMatrix[2,]],
-					x@yNodes[edgeMatrix[2,]]*-1+x@bbox[2])
-			
-		}
-)
+  f = "plot",
+  signature = c(x = "NG_graph"),
+  definition = function(x,y = NULL,...){
+    plot(1,1, type = 'n', xlim = c(0,x@bbox[1]), ylim = c(0, x@bbox[2]),
+         main = paste(x@name,' (\'',x@layout,'\' layout)', sep =''), axes = FALSE, xlab ='', ylab = '')
+    box()
+    axis(3,at = c(0,x@bbox[1]), labels = c(0,x@bbox[1]) )
+    axis(2,at = c(0,x@bbox[2]), labels = c(x@bbox[2],0) )
+    
+    points(x@xNodes,x@yNodes*-1+x@bbox[2],pch = 19, cex = 2)
+    text(x@xLabels,x@yLabels*-1+x@bbox[2],nodes(x@graph))
+    
+    
+    edgeMatrix <- edgeMatrix(as(x@graph,"graphNEL"))
+    
+    segments(
+      x@xNodes[edgeMatrix[1,]],
+      x@yNodes[edgeMatrix[1,]]*-1+x@bbox[2],
+      x@xNodes[edgeMatrix[2,]],
+      x@yNodes[edgeMatrix[2,]]*-1+x@bbox[2])
+    
+  }
+  )
 
 
 ## constructor function
 ng_graph <- function(name, graph, sep=':', layout = 'circle'){
-	
-	if (grepl(' ', sep, fixed = TRUE)) {
-		stop("[ng_graph] sep argument can not contain any spaces.")
-	}
-	
-	if(!any(layout %in% c("circle", "kamadaKawaiSpring", "fruchtermanReingold", "random"))) {
-		stop('[ng_graph] argument layout must be one of:\n \t "circle", "kamadaKawaiSpring", "fruchtermanReingold", "random"')
-	}
-	
-	num <- sapply(gregexpr(sep, nodes(graph),fixed = TRUE),
-			FUN = function(x){
-				v <- attr(x,'match.length')
-				if(all(length(v) ==1, v == -1)) {
-					0					
-				} else {
-					length(v)
-				}
-			}
-	)
-	if (!all(num[1] == num)) {
-		stop(paste("[ng_graph]: warning, the seperator number of occurences of sep in each graph node is\n",	
-						paste(num, collapse = ", "),"\n"))
-	}
-	if(num[1] == 0){
-		cat("[ng_graph]: warning, sep does not occur in some node names\n")
-	}
-	
-	edgeDataDefaults(graph,"visited") <- FALSE
-	return(new("NG_graph", name = name, graph = graph, layout = layout, sep = sep))
+  
+  if (grepl(' ', sep, fixed = TRUE)) {
+    stop("[ng_graph] sep argument can not contain any spaces.")
+  }
+  
+  if(!any(layout %in% c("circle", "kamadaKawaiSpring", "fruchtermanReingold", "random"))) {
+    stop('[ng_graph] argument layout must be one of:\n \t "circle", "kamadaKawaiSpring", "fruchtermanReingold", "random"')
+  }
+  
+  num <- sapply(gregexpr(sep, nodes(graph),fixed = TRUE),
+                FUN = function(x){
+                  v <- attr(x,'match.length')
+                  if(all(length(v) ==1, v == -1)) {
+                    0					
+                  } else {
+                    length(v)
+                  }
+                }
+                )
+  if (!all(num[1] == num)) {
+    stop(paste("[ng_graph]: warning, the seperator number of occurences of sep in each graph node is\n",	
+               paste(num, collapse = ", "),"\n"))
+  }
+  if(num[1] == 0){
+    cat("[ng_graph]: warning, sep does not occur in some node names\n")
+  }
+  
+  edgeDataDefaults(graph,"visited") <- FALSE
+  return(new("NG_graph", name = name, graph = graph, layout = layout, sep = sep))
 }
 
 
@@ -317,158 +320,158 @@ ng_graph <- function(name, graph, sep=':', layout = 'circle'){
 
 ## resize the graph
 setMethod(
-		f = "resize",
-		signature = c(object ="NG_graph", width = "numeric", height = "numeric"), 
-		definition = function(object, width, height,...){
-			args <- list(...)
-			
-			if(is.null(args$ldist)){
-				ldist <- 25
-			}else if(is(args$ldist,"NG_Settings")){
-				ldist <- args$ldist@interaction@labelDistRadius
-			}else{
-				ldist <- args$ldist
-			}
-			
-			## adjust for border
-			twoB <- 2*object@border
-			
-			object@xNodes <- (object@xNodes-object@border)/
-					(object@bbox[1]-twoB)*(width-twoB)+object@border
-			object@yNodes <- (object@yNodes-object@border)/
-					(object@bbox[2]-twoB)*(height-twoB)+object@border
-			
-			object@xLabels <- (object@xLabels-object@border)/
-					(object@bbox[1]-twoB)*(width-twoB)+object@border
-			object@yLabels <- (object@yLabels-object@border)/
-					(object@bbox[2]-twoB)*(height-twoB)+object@border
-			
-			object@bbox <- c(width,height)
-			
-			object <- updateLabels(object,ldist,orientation = 'same')
-			
-			return(object)
-			
-		})
+  f = "resize",
+  signature = c(object ="NG_graph", width = "numeric", height = "numeric"), 
+  definition = function(object, width, height,...){
+    args <- list(...)
+    
+    if(is.null(args$ldist)){
+      ldist <- 25
+    }else if(is(args$ldist,"NG_Settings")){
+      ldist <- args$ldist@interaction@labelDistRadius
+    }else{
+      ldist <- args$ldist
+    }
+    
+    ## adjust for border
+    twoB <- 2*object@border
+    
+    object@xNodes <- (object@xNodes-object@border)/
+      (object@bbox[1]-twoB)*(width-twoB)+object@border
+    object@yNodes <- (object@yNodes-object@border)/
+      (object@bbox[2]-twoB)*(height-twoB)+object@border
+    
+    object@xLabels <- (object@xLabels-object@border)/
+      (object@bbox[1]-twoB)*(width-twoB)+object@border
+    object@yLabels <- (object@yLabels-object@border)/
+      (object@bbox[2]-twoB)*(height-twoB)+object@border
+    
+    object@bbox <- c(width,height)
+    
+    object <- updateLabels(object,ldist,orientation = 'same')
+    
+    return(object)
+    
+  })
 
 
 setMethod(
-		f = "adjacent",
-		signature = "NG_graph",
-		definition = function(graph,node,type = 'edge', retNr = TRUE){
-			
-			if(any(type == 'edge',type == 'node') == FALSE){
-				stop('[ng_graph:adjacent] type argument wrong.\n')
-			}
-			
-			if(length(node)!=1){
-				stop('[ng_graph:adjacent] function needs only one node as an argument.\n')
-			}
-			
-			nodeNames <- nodes(graph@graph)
-			if(is.numeric(node)){
-				nodeNr <- node
-			}else{
-				nodeNr <- unlist(match(node,nodeNames))
-			}
-			if(is.na(nodeNr)){
-				stop('[ng_graph:adjacent] node not found.\n')
-			}
-			if(length(nodeNr)!=1){
-				stop('[ng_graph:adjacent] node name not unique.\n')
-			}
-			
-			
-			adjNodesNames <- unlist(adj(graph@graph,node))
-			if(all(type == 'node', retNr == FALSE)){
-				return(adjNodesNames)
-			}
-			
-			adjNodesNr <- match(adjNodesNames,nodeNames)
-			if(all(type == 'node', retNr == TRUE)){
-				return(adjNodesNr)
-			}
-			
-			adjEdgesNr <- sapply(adjNodesNr,function(i){which(apply(graph@edgeMatrix,1,function(row){all(range(c(nodeNr,i)) == range(row))}))})
-			if(all(type == 'edge', retNr == TRUE)){
-				return(adjEdgesNr)
-			}
-			
-			
-			if(all(type == 'edge', retNr == FALSE)){
-				return(edgeNames(graph@graph)[adjEdgesNr])
-			}else{
-				stop('[ng_graph:adjacent] check arguments.\n')
-			}
-		})
+  f = "adjacent",
+  signature = "NG_graph",
+  definition = function(graph,node,type = 'edge', retNr = TRUE){
+    
+    if(any(type == 'edge',type == 'node') == FALSE){
+      stop('[ng_graph:adjacent] type argument wrong.\n')
+    }
+    
+    if(length(node)!=1){
+      stop('[ng_graph:adjacent] function needs only one node as an argument.\n')
+    }
+    
+    nodeNames <- nodes(graph@graph)
+    if(is.numeric(node)){
+      nodeNr <- node
+    }else{
+      nodeNr <- unlist(match(node,nodeNames))
+    }
+    if(is.na(nodeNr)){
+      stop('[ng_graph:adjacent] node not found.\n')
+    }
+    if(length(nodeNr)!=1){
+      stop('[ng_graph:adjacent] node name not unique.\n')
+    }
+    
+    
+    adjNodesNames <- unlist(adj(graph@graph,node))
+    if(all(type == 'node', retNr == FALSE)){
+      return(adjNodesNames)
+    }
+    
+    adjNodesNr <- match(adjNodesNames,nodeNames)
+    if(all(type == 'node', retNr == TRUE)){
+      return(adjNodesNr)
+    }
+    
+    adjEdgesNr <- sapply(adjNodesNr,function(i){which(apply(graph@edgeMatrix,1,function(row){all(range(c(nodeNr,i)) == range(row))}))})
+    if(all(type == 'edge', retNr == TRUE)){
+      return(adjEdgesNr)
+    }
+    
+    
+    if(all(type == 'edge', retNr == FALSE)){
+      return(edgeNames(graph@graph)[adjEdgesNr])
+    }else{
+      stop('[ng_graph:adjacent] check arguments.\n')
+    }
+  })
 
 
 
 
 nodeNr <- function(graph,nodes){
-	if(length(nodes)>1){
-		nodesV <- nodes
-	}else{
-		nodesV <- unlist(strsplit(nodes, " "))
-	}	
-	match(nodesV, nodes(graph@graph))
-	## check whether each element is filled
+  if(length(nodes)>1){
+    nodesV <- nodes
+  }else{
+    nodesV <- unlist(strsplit(nodes, " "))
+  }	
+  match(nodesV, nodes(graph@graph))
+  ## check whether each element is filled
 }
 
 
 
 
 setMethod(f = "ng_get",
-		signature = "NG_graph",
-		definition = function(obj, what=NULL, ...){
-			possibleOptions <- c("name","graph","visitedEdges","layout")
-			
-			if(is.null(what)){
-				cat("Get what? Possible options are: ")
-				cat(paste(possibleOptions, collapse = ", "))
-				cat("\n")
-			}else{
-				if(any(is.na(match(what,possibleOptions)))){
-					stop(paste("[ng_get] object",what,"is not defined."))
-				}
-				
-				if(what == "name"){
-					return(obj@name)
-				}else if(what == "graph"){
-					return(obj@graph)
-				}else if(what == "data"){
-					return(obj@data)
-				}else if(what == "layout"){
-					return(obj@layout)
-				}
-			}
-		})
+          signature = "NG_graph",
+          definition = function(obj, what=NULL, ...){
+            possibleOptions <- c("name","graph","visitedEdges","layout")
+            
+            if(is.null(what)){
+              cat("Get what? Possible options are: ")
+              cat(paste(possibleOptions, collapse = ", "))
+              cat("\n")
+            }else{
+              if(any(is.na(match(what,possibleOptions)))){
+                stop(paste("[ng_get] object",what,"is not defined."))
+              }
+              
+              if(what == "name"){
+                return(obj@name)
+              }else if(what == "graph"){
+                return(obj@graph)
+              }else if(what == "data"){
+                return(obj@data)
+              }else if(what == "layout"){
+                return(obj@layout)
+              }
+            }
+          })
 
 
 setMethod(f = "ng_set",
-		signature = "NG_graph",
-		definition = function(object){
-			possibleOptions <- c("name","graph","layout")
-			paste("Replace what? Possible options are:", paste(possibleOptions, collapse = ", "),'\n')
-			cat('Use ng_set<- to set a value.\n')
-		})
+          signature = "NG_graph",
+          definition = function(object){
+            possibleOptions <- c("name","graph","layout")
+            paste("Replace what? Possible options are:", paste(possibleOptions, collapse = ", "),'\n')
+            cat('Use ng_set<- to set a value.\n')
+          })
 
 
 setReplaceMethod(
-		f = "ng_set","NG_graph",
-		function(object,what,value){
-			possibleOptions <- c("name","graph","layout")
-			tmp <- object
-			
-			if(!(what %in% possibleOptions)) {
-				stop(paste("Replace what? Possible options are: ", paste(possibleOptions, collapse = ", "),'\n'))				
-			}	
-			
-			slot(object, what, check = TRUE) <- value 
-			if(validObject(object)){
-				return(object)
-			}else {
-				cat("[ng_set] assignment is wrong\n")
-				return(tmp)
-			} 
-		})
+  f = "ng_set","NG_graph",
+  function(object,what,value){
+    possibleOptions <- c("name","graph","layout")
+    tmp <- object
+    
+    if(!(what %in% possibleOptions)) {
+      stop(paste("Replace what? Possible options are: ", paste(possibleOptions, collapse = ", "),'\n'))				
+    }	
+    
+    slot(object, what, check = TRUE) <- value 
+    if(validObject(object)){
+      return(object)
+    }else {
+      cat("[ng_set] assignment is wrong\n")
+      return(tmp)
+    } 
+  })
diff --git a/inst/doc/RnavGraph.pdf b/inst/doc/RnavGraph.pdf
index 5a0c0a237748468da58ddae38f323c852ee04e67..d6090c1205d6a7d9645d2f3b5a6c4e1b70374fad 100644
GIT binary patch
delta 21500
zcmb5VV{G70*fm_+wz;+KZp|&Wwr#h+Vr$zrw%FRXZQHiq|D7lA`|-_le>jtqOwM&p
zGMQw~$;{3K+vFr$oE9L%E}I?ewjpek=q4hX%uRxXdD#|TmtXxeP(PN?JTM#_n%Zse
z`Qu_h7#T{P?S9%%d-_N=(qAIfpXdxRNxi)<NIUNdC(mwITEHZjmmN3dEU05~X68+y
ziL!ml$-HB)P%K5;m?o1`dS^ZrA;@d8Lrq@Mkh+<?Rnjrt*&Qe_H5$kv|5uaLBJbFZ
z`NTPBzZsw&av4+SHXyicU8?}CFC3%5Bu7iwAU&}HbM7+4T8(}5RZx>i!6{@%j~a^d
z=)itugzv~3yaum$uo3sOYo1%q5l%HLJKs3|o)V8HtBH|Bu@kQC2jRh%)qa*mm*K3K
zRrBs{!S7g2$^y|flTAUjp?mV1*K3_$AL)!9B@cMdsAMmbENYhfH=;j9`45(?e=~@W
zc(wf@Z{3x#s<j`1GkM8HcKbcu1?owhL==<(8kzwL+MEFjW=l`W$;!#X!oteRK?}zu
zZ*L-Q=weDjBhJgp%)-k2|IMWusDsHgyD@^%q5f|KD8gWLSpRo|=Kngl{4a{jHj7(;
z$zuNB75_iW|MCS3{$C0162ZRc{udoW^?Shn1NeV{_z#f(0jgQQ2m102lr?oW5P}xi
z)X=tH=fv>4u3?_Th7D7TN26@Te?qC6RKn=3^}-L~gh|p+-{46xq?KN`{q{YU*pzD~
zYD>KoVV5S%d4KgdaQLOrH~N~W<Trh!nA0iuC|+)07L_xRijJ=MD;vVlhU$Ls;O}!{
zO@};Ee?JcbpT`{oLi5)`8IGSpGzL6?vlOhv|IBn;Biy4pC_+FzVFAZfqOzQc&mUrb
z4+WJ)|6yrjhRX~_8_(5U>YLHs_Zo7{yQ^O;Rd$y&1dEie^rz!Iu1z9<0|7BJ&}a4^
z<l1}~){g~RYt$g6L$yi&<ktjC%8U?%=9BWZ+#wm-afe{0-yN}IV{Q<9+x^bKn`T8?
z837sgQalf8$Wpj~pu^d!Ea6i>k{rpIG8RkX_6I@~<es+@kLs3u*Dfqi?{fNcnDwQu
z?8vP5Bf~sB1+6$NMInJ<DjFa0hD>WvCZ#0ysh!f%n)xc<@hYC}i|S2*7As<ceo%J&
zb61axm6c!aGt!Y@CDr)fNA#Zn)lI2%0fC!yQ~VA=qo45pPi^lu2eZe{7N}gKpkb1E
zGTV-}Qzt@BG_;lj%c)-6r2{!=FRTC%qbRCFWag~vf!R2nn79lY7<ntjMaUywo|?5<
zqFCl(SLbuIj5Ogv@ccteUNbs74Dc6|IU%0K9|%TD9u<Wo;cQ1YgnuLf$tr<9Sf=j5
zxzjC!A3D;!je!)&wG`XIR7oxdR1L*CU)zbtwT?-T`mwG@K%lF0RKOzGu{wMjwOpVV
z%`XU|X!LAXanj4LdheZXxD;$mZ`3^;LzdN~L)S>u+9)2hk>7gG6#lw3C0HM4x@Ah&
zMz)C*q8k$uE#bpps=SYY-xW(jhNg5~61{H`!ZK9t#f<nJVQ}LsqidKK2A>}_qXd;U
zY5zXr)wa}ULV5etM4LvFy@m5A$#og=zp6Tfzn~zRzTiEoJ}Ufo9T<c^GB-GgQAbAX
zm1?Z0hoWB9Kh`&e__j`T1tB({?r?jbcBpU)qjDw#5#-Qmey(i;9Jek9DN}*mw#w~~
zGilTwvgYBGV(YSP;J+DjlnE%bw2iF&IvYj$FkWbs@VHS0Wafp5p<LkCiw(5yJ<Gnp
z5DN9wytQ@N)_!TKYiBN7Tu4OlH>dqr)I;jUf5~FqT}m0W-4v0~X7p_S9l?MJr$1`h
zVDNYf!+%0;X%z<xa8YUCM^l((a4(oZ7SI#!pxvF68sd2)CxvWQW+$g83IFb^D*p*C
zz0i<aMrT(Whfnz#<FUX%pqAMw<0#G;As1KCB-<iP(E2aNJC>jv-?@pJDy(lMM;s<-
z={yw9yGrt`u4R6$4wlY3&~S2QBDPBKZ!2V`1RLg`AB2JY0I7u|b?d6Dku<#VT39*)
z6hmLyR5l{yuv$2CEL-C;P4Xb=_&&2#V$;C&U^lq*BaXUOk7fJDkY?GKa19LRTXM1&
z+;q5*-J$38$PX%0Z(3oF28usj`#&=oBDa>oQizE(juQqrNaw^2k@=(OXypuDx7PM$
ziz{hKhp`~(fzns#bsB=WM|gcRlmeeW(%3DI!-Hb@z}<AFw)Zx>Z=aE3r=h+{XrVfE
zIKjtuUWAKgO}VMkmi3R&IU_O`f2t*QUl-q-H*SgUf@$nN@z5dW#I$shfXM0CrvxE|
z{L3!UBb34*I9q5qdBOlH)#{7TDQC;b{jJGgtJmmFz?D+FudR1;TYI{L)<booTi3s;
zC-@Ati{DGPhadK8-jZ`}nw_x?M624bL_O1>;M0ew!XoC3tEki(Z$QsI2L3yH@Gd03
zIW7X=OFqR;EwER5BQ7P`VE)3hP#T2r%UE=81r6_Co+1uxa|7lkxyv7XMCMe5Y@Gss
zv3KYVe7$FEYETO>q`(vw^p~L;e+P$)!H?1HGh7$Q)Bqz`^k$M?7+q>mj#L(DP#R!T
z>)amyC(3tDci$i6m4wcXtIMsR1R0FAvNEvpKQb^sTwEC)Rfl7I6vTu-t|u<0x~9&d
zY0F<~Zw1WUbNJpfTTOz-ML4+y#!jABS7%e1#*BJ+DwENI>LUXZf_`DpCt5kU3BI_#
zxUege5i?5oc);$v;}Aw+4e_>g2i^kI0^bZOxF0)7P(#o-#yG>`O$FOAIiNgTa$O<q
z;jIUS&F0%dQRs~6Nk1vZkA<IFTOSIF?Cf`(q&KiA9L)9pKGONNlJUgvWtr)`KZ;Ja
z5&rUR2sW^E2!YG)Z8b3M4JbT%fSeUaqQm)}Lc(cpB$BUDQqg(N6C=ItLh%G}Ah6%^
zFGcjfz)6%hI#JnyTV)9pn^QAS8FYl)vPB*H;Z+wIm~hH8w2;9MW;-OaFhZfn*9G$5
zT_!}WZ=#98gz3;+#-<;^HwUZdX-0{2bWr9Wg;XyhF9&d}Psz3RfN0`YSi_~LSzobu
zXk{(vpsvTP`lDi2S{V*_dx8QFo`M~cR4qM!TXQW*cUGZ4<}*S`h(F*Mb|)>s$g&cv
zM#={>rzOzKlUTYP%fbR_u;rYNT?k8YlA5_NZld*QO?8Sjaz<%z&=7u<h~qMD8wlsF
z`MR>nGG?<e24{1eUy2a^qWkCXU5&_+ow(YblH*ZR(s0b7q34_Bp&JRXZ0BpI!lUPU
zGI}FH%=T!WT!&*AI4KW$7HF%`Px|JaMl;*CPi-iqs`J3r4gFv&GW@0vwln^fjx<`V
zjeZ>A<biGTZDDVGRH0eT$(AZD_L)s|)S$iAt^88#oQ|0E`T8FG8{3}iE>)XUFq$4{
z7t@!xce8ZFH8~Q#6Q}{+hczsMsQ8CoZhqr=e5QnCyGa`{f;$skH!s`S3h>Fb{i>I{
z2#R8*;F3M(u{ZS1L5?j|=Tz<d8JxQ_SBz!f#};;HJhqa`o7`-YN<AWYow%8Zddy35
zec?1WL(Ay?mnyay!Y*$6c_@Ap_4h&ZlfK6DaCGZ;qz76owqhoL_btith|LSrUr2vy
z0I2uocIPVXRP6iXbf%~N!Osy25>k^IPCoDz?JOWy#R$z|E?txv<|UD%_~ahDGCM+X
za>x%QQh#dcrsQLs2&h7L#}0%>M@`!0a0vW+$LL`>`!lwGVW{pW!A%dD{|<qJ`Jaes
zn08)6Ebx_v`x*(LkHBOiE&n8wbULl9s7@@v#X?3s(3K}kyyju-S~&pnOl@q}-D`7b
zqa%nI|JlKjE3m%K7Ih>ktas-MDVIrwg_89~_;d$C>!5Q6j*0@4V?1JGE=S+6b_2&B
zR_>~u!T^K0GU)|gsu_VKoqi8p7f<$_{XCuyWn*7<;m;JHRg~6b26gFl$s&!TEEy3n
zXO{EKI&qR=4WOHYeU7xuI#v0T*UGO~Ppqhq52}OkYw>#2%gchZ2>*GU2roXgP}kcl
z2VD<KwPpNgAZ`yu(mlgeJvq6FS<dB*FKkSuyzHO8_XqPbl(!aRgF8u;?-dyL*jjUr
zBJqJkGvfd%i6LO?+t#39`QYK%D&Q|9env#T`%y99F?H}ltuxhh9Ne@xO+iNtq2ZDK
zHjyCoX_^8ZF4_ZYa!$VwA{TqLGJJ;uQRc*iM3zdNCP13XR)Ov3V1dx%gRcC8%0H(2
zI>)a(=GsJ3?A;uTCw6sF2KF`jKu*ee7bH*VTd@YzMdGMhD2;xIhYn)6-%QAg1vUaZ
zMJ*MaW0r{-8ute(-WSupUqC71N(sq=_yJE?W);X5h4n`|xEj?QmdNJzuaReFWZ4Ig
zr@Z)i#4VNM)0S=nIwW{+JTIYpr;gR>Ys{+$#GLyZ_N~eN2PGo2#^P&9!o0%9OEReF
z8YEyJzs=C@*Cf$J+t1;ZMXw|2e<ErNO4RrL_%dPSU2O0<kQdk@i4#<f#RB+ma&%KB
zdW0Jog=TXlO-1Slb#=(l6dlMjk6x*SMJAe*$SIb17m4N0fYEM;NyQIjz2(7S@rpn-
zgJ;#(4qU2s(Z_D2^a>N#Y9w`OzqYVlWH<oVzBM#dkyHcnj(~oLIxJVqDzkWQA~Y|1
z(tRj0Z|}+9*l5Gs9-QrFFiXygye9JFHe_tcawCE$5y#j{EvmeL5c>L_DEr~@dHqw9
zi#^oC#+iVAya~NJQZZ#Eb!wwd!F#pjPSm{&hOeWGPleEh$nM%^jd9}isi=t$ya;G?
z>wC6pHQ2KoE+z2%cba0WFYYD3McnWg#$ehfk{i@7*}#;t02y-aCY6@6)g;&fHaxCf
zOc`d2FLL4Cl+~3t<+DUml!69MmXb@n?acQu;%6dcB@ePAPcqoTjW9jJv8(c|JMNjj
zFIzLoyqj}IqjlsiHf|!&@T)}GK^BnO@R5wDh_u6H55xn{S824!&qFyzF8`^fbY`sW
zKau(8i(u^YU&OkrB9}WDa3c5$^Fi!{5<3dGH&2^lBFt1Y@IkIKymhe%Etg<e>)2!G
zsEa&oD-FUGJq#i-**<CxG6;IyuYGK+C{+K2UJAj(={-7iM>Y_(PuDR2907b+tvf`c
z0r_MjS)<^`Y43y8Ic3OV>)y&;roxE!A)Fb-OyOKNYo1N#SF!%}leH>e2F27(dSML_
zLV`R^IhH!N@-LCBN)_)g6B(aS7-M!I3Wn(UyS-OTkB=clR2xZaa}vg2M0)1sI(`Ui
z9|MUL`QzXYF}XxY**lk61$Y53;UDWs^r`Lp=IM=GE|pw=A}cPjx0UrZ6_iq@8#&mP
zIg!AJ><hltPl~;+?cSV3OJB1Kbk3}j&lTA4bY5R79jPS@;5!?v+Qh!EoBnE(-kv3W
z=iSU`CU#fPG_0DJMo-I%-`oS1abdy@2)&m%Dl5jYrC199Keq>D2+Sf#r2lg*VY-DW
zB>jJ#DBJ&!RcGV)AFnIjEQ}6|LHWNBg!Xa6{s*|`K5qD|J5&}9I3_t$J98HcRuUFg
zHfEO8d?h$c2sUmuw$uP|cp9JyQWfJ2i&HL@M3;=&p9E3N-96R+&jE<o#LOlk+?<rV
zJ2@iRW&)g)yEH6}&pyvFQOEQ5@>|!SRzJV@wYw1Cw!2070=wqGWPS+=F3mtX<j5E!
zNSx}@9GDZx$|{fM>M9Sjg=J&UR8!vf2#ZCdNQ{C3jra~SytHIoI2#~GWx9vJrWzs&
z0>{_{LP8BPLJo3(X<!cRP+NchJ&bZj0}{vT2$>0<qzMYA1Tz8~q>g5Fy$jRS;1qKE
zaZKmG6$J`%aC~g~b<Qokfph@F$rb>TB%k$H*o|3&4PD!xY5@Vk>FI?D`$1HFYU&Bh
z#>URhu8PV{p-M?o78QUp^T%IVh06nV0^?~5oB-`sfhtQ|3HXwZ#tg#BGlg_})6R!&
zbZ}#Hga9=F)2_vZ*@NKQ17m^a0W-J&k@uwZuMmK_Yp$EyhMMpPBEUiZfqlC^PoHkb
z^u%=|Wu~QzTwchN5E+C~_JG;IgO!cZ)bY0Sv4P8x9Cahg+W^^lwf9ujR0i7UDrvp?
z`I#Ul1B;+kwFuv%)1wopHrE#eXAn)F+2rf?T(zvSViT14Zf+!D_2@&_FGW2uBy1X+
z0xMsZ)rb&hP`7W$|Nh%I2ES6nE2HTrI50N{&{5e>V{mjs{xN!yDG)n1H#b2A1&|R?
z5GSsBqj&kdL%<OEO&0cpA>?pp-xRqKTBBzU<kg=+xE8?CQ=qCQ@vkq09~nMZ90bS_
zNKg!rIGv%=0_l5Eq9m`GSw{Bk5zf2GR|xZ_k?@5`{6C+!ySEVx(an&8SG@Q$z88%+
z1%5)py26$KzrKFcl7hNId(?q|(i3FqfY>21f*=cV0X@gvogbOsfYY~Zg&EivHRqEg
zaEAg<<Ntk)VbJ)lh*$kR0r@E;+Yj<$4~0o%lOY1~HoVJaaBRjE<O}kh`+KK`{2NI8
zULXH<efj1h!^PHK?|ygy@IQbDDmMe|Sb*MO{$dYd9l?~wMu_Cwx&r*oJ3CqA$N;<j
zdvOfl%k1G4Cor;nw<qmYU^Q@$YsFhxoj9ure^tac*s|?KiNjlf{dn&Jtp!<K{g#B*
z=3&EM$=-voUef=8VpI5)sf=d?#qr(gMX<pSf-WhEj*Q^8;^XMx4Bp{iOUMD;`pvNh
z!l@3kfa?YUGCl=u0O~sMviXb14kYu%es&uOgYKca4f6oCNr(+Y?xA`NdjYkX`zF(K
z1Ie5q2LoF%Ax5S4m;XX_1YN-(LXFbBMeSWl{vY!CA5r@s@~A%mZT#C?oB)I~S`xx|
z*+-n&?eBjCcnmYRSc`=js=oh^wEaiE-t-5M>)AcUnPulCAtDDC1}1=^(WQaWGksc=
zrZncdePS?;q>>maGZO8%;Co`DD_{VypY7HQ03vOLr@l?6r(bJ60Hhu;&Ub9beo^+I
zwLYpVAvDJ7Z8X02VRpY*vdq`+ICOP<=d!<-xh(xxG@LVqDrt}>-BO-@=Y%>2be}cY
z8a}nk4IFjv{qR+ySU{|v0T!0Qve3qtx|r@)QE<A3U_#GBO82(mOfFTe3sL1HBwayr
zXeTDjT_~g+)E9VPVDo<iuhl*DpT%<)SRxHW8^HdckVt(~h!w04fvCL2u#2Qt-j5zE
z3UANI{Ouj7@q?UVMWq+Y7Xj}G{cV_*<RZho9#HM)zA(H7cn-SXrXfEh-?lf815M45
z@kvjNg***@{t*CE05<u)C59fgVO*ioGuOUE5E8$XwMpndhBsOb4S54DdcFk|Ho9$v
zs{xEG{G$Qbr?F3bw5lK9_2|MHNwF;bdT^ZPbdoc~i6FA8tB7yIplQgd!>FN-UyngU
zqX=g&=9>n<r1K|uADG*_aj${G=C?nydaMvh)ltrWYJSf^g727}?kfW}Y)OsT>~AkB
zL+l6OM!!2)n8ZB}cc_nkL5_K)jkD#_ypcN{fBXms8hh!OIR4mz7k{p(di^XQL3G(X
z%TxJ&PglRGpt^hi(iuaDef0#bZoNbE_6vnlxB*bw4zV$8o4ODPp!TW1E;{I|D_&VG
zH=lrIX{O+{Tf%YR!_G7#F>~YI%#z+t#w@U|?x?8cmGE8l=!pnteqw}6{u3LEj!xR5
z%ir1gt3bl%O*ZrczLeO=IP~^_wSAfRErh3KS&%7(wLj>$P~7FE;VNBD>2-L~#lsE1
z3OkSkA~$dMAeFe$Rf^1S508|`<%*~5t>5!FA$l%3?-vmH!_~px_}=g`WWz&~XZS7Y
zq%~y-)SkJp*zbah?x`RFLhEptLo!C9;o0iJR<uU5sGr)0lAcbI30~Y%k1yPG-22om
zr>h7jGuxX(WV+`R9HHm9iDw~=r4Rx7co4|WAwE<m5AD|dbY#2sO*Cdo$tTfXZV~+B
z3-wNVv%d!|zdU30bjkXe^p5xM^c=%2(s&GKvvOm@p2x;3Y7siP?Gb8znN+kT{)&Rt
zcpCX+0-enaoUn+X99Knk^UpRO>`!$|6c8bScs|GTSH}3Xg0F&CoA6sKFV1L6?FfK)
zHaTN=2=o2XWvKLG!*Ru;oaaIQmEG1EQa$pxdBAyq_qaO0jL=2up}38y-r;vH=b|Sy
z-O*ls23ByVb5_iavG@<ljiJn_#xwTKAOC6{6KYP745ig`ki3>4Uo@dy6Bv_WDiT}I
zXWP{wauK`sMORm$s;40tYH<)N%H@H<UwU?gl+#;^5vucH-AWJ@y?ofbIl&OxMNoYF
zx4CTa(~CMs+r3yb?LO&Czt}%r=4^sNeA~rdht>NxJ>#492b<-w8&=I_G(X-z83j!a
zA5L6mW8}YNSU`^-s{`FDUnd2r<UmoHK^Wu_S~f<>p_(RYoVrhriq1`?uKNKu(+T<8
z`ZN`%Zgto;J|Bgy7UhwCwO$Z|mQ{iVD(1QoJ0&hSRCT@3N~(HYpy^tB9EmyaVjJUH
z_JL2q4~uIfe%4B)nJjN0TYtXUb%imWY@TAZeK}Dqvuan|0ej_9IqkO8^Nng9Z5_=m
z4`p$DDr&lT_+C3ylw+=6%@cS6b;i?#y(6p+VBx#m`-v&i$Rx?cAL4?BQD&W;QrVTx
zo?sS!`#?X-Ep1C>1b$SmV3|5ck?5yEn?oJ$CfO?sO9yE~-i5grfluKNWTS^rY4z`A
zH2LOmRvIRrc^|rYIO;k7YU$e?qT$;cWBPHvEdB3IO~Ahe3`7zoi3ZRO!t3W6PEh2+
z$~?DkVKF>H1>guSs$h_!yviT<)k?-Es36m4ytxUgf+Ag@*A1b#8y7Ed5}N9M43$5~
ze!_+9C0OESqaLt8wxura_h~BgWs-YGvY_zI{`h)}wWn6MKyYU@QJp&H-A5}54^sW(
zETunPxdhx6_BB`k>IHC$d`n<jPU>HFaYH4UW7MkF3TZ9k7>X%EH|I@IR-&${dj1Ml
zQ7C5kB|1|ud}-F4{|X7akKVF0)!P00U9mcEg;==wkqcvH<qEo}^J29zRnk(!`Sg*8
zN?TRs7y<<ixmm?3;)32iaKgJikd<yBb3jQ095Z@$m3i+nivZE)tv{{`1sn196o22a
z+%a~577rLDFgkxgv=&5M4El0%aA*!_dh%njVdOAk-s8VA{PtyUGDT!mk>o9wlN$8f
zIyzl{K5DzPS23RTly#5*<wMg(7|f~>?UjzGoDWM^tcLv|X;mrbcj?Cc>*s+6gs7Jn
zO?b7k%0RU2MJnLCOas#{=-ZrdKZB4+{>uI%7ivb8=$Y0A>iSTU2`aTc@m;~dnW0VJ
zXbyq1{gXeduf)b}^?kzCfZ`2B`Qhvsb1;A9W79zQ{FYj`&H>etYKddV(06XvbBetU
zvN-czGjMdG=ZDg0=)*q96y|I)J=h+n2GQp`wvya4XcoW~5Id{h(`=^2z~Z01J8sPH
z3;m<1<WsRbjf!s^>2RxI51kJwuyHpAy8#cNl*G~^2_`O5$Pm#ZT&lQXqyAAivdcg$
z41PYS;hOMby+Ot&a-sQC@|scrlbj`6L#@Qd>n!ZF9kwWd`?@UBSxJ}BlQGryse6&g
zrNxa|z!vc2voD|Vzfjhqjq&H?5RKCcB<I|nynY;#vp&9q_*xZ6AiS=OYnuuutRpuH
z5a9}l>`Y;3I`~(RwNLXWc`s5<;!-7VH{7cf+b4Ffmp2S&G1lU{Dqlr|ym|o!JCXc0
ziJF|{b&GXTirYeN2ZdeQaNnWfiVeI}#x003UmTbw{J>+$$T)pB`*As`Vb!@F^Qil$
z(lpLYW?-fPS4IJ@uKaTk{gYevlf~Y#DS?-CipDxqp(Etat)Bf`xkWYq-vEmTJ4zOt
z+lAysqU?+jb0+Ws^+Hr|g<6%T$n6^*NEZPWw=Y3^X94o6gz+1zPpus76mFvRpczDJ
z(n3I_St!SIhk^k!JZG*t=)sLDdn#24R!HN`SF2;GUK37}Cl7@xKQHwlPA<~k=f7-_
z(~;}O#3y1<|Dvs~BP8=0bh@pKdF3c5yOvggQH8RR+gR1lS(b;*_M>59l<4w4qSor7
zyi}stGm?6hLHo}ckuauE%M4n~H2A<6!U8ZZAiIt_f}DauO}Z#`J{{_vSyZZr=zTl1
zHnS3;;UV!<d`YcW(U2RubgqV$A6JbY8auJT={P2cxl~~$HPXj&tnk+KxW|FFXw8z_
z>Cr*XP1t@svCYh@mFc=7yFd_>%>X%;7s^^0;;||8LeZB9$F<w_IOl(-A@BO}UjT-g
zBExOed0e0~H%>|8V79#xIBHEmyT9-$TZt16_JirK|BBI7N)zMkBh%ABSP`E38x6GS
zKQV=#RhPi0#T>tMni$JDWMV(Zn!@bqz&}qTcF@JQDrqBkVe5i?_OifE=1u|Hc^!u$
zK2gM!7OIu;rnYzhbxlxgbk}7{A2+ZSR|UO2Zn(nrP-g5f#*P7^-$E+g+~y;~$}dL}
zY!7=qOYUV6Vxr!>Ogtl5Eab`I`^_5+Djg&iR9*~@`m@aFmU1lQsu_6;e!5`FQkETw
zRkEfa1|vo=eXga=teq-)QoUMtN1;~1j*mC5Jhas-{n?Cy91<tQmn=zt><nmhdErn=
zF*b#<=u*&QWVhWjI=u6ZSHELL3qR!z;)LI4?l;hj)&AXneuX*T`j*;$M!1oFnhZPD
zQVE?ihM)f+Lpf$&l^;&&xkG?mqU*F<5|_7@zf`7Su^h&(g2lY#xS4y-L&G>VTFGgU
zsvF!yGDR<BiDik>nDd+0`wyViSlf<@n)}<e!nU>*fw=R+I=gPT<VrZI5bBnw0z@7@
zGp1!zDVf~w!E^J2#6oh!2<*V5_4;Vcj2!-M<xLc=`b8JklvmxdKk0pdQ-m_f?H`?W
z0CMd6<hgtf!=3g%e`<_-L!sX4e770J2BFUt@yrM-7!$`QYrNTCD06@!Iv2VIh|=E+
zJ6Jumrb%U8sq+Q+=Ue}+pft+&USKyJ%UvHdVk&*7K&A(LmWVbg+)?5EdVEq{dHZ@<
z^Z25KPmA*1kjq#&sX$xzKZXuDZA2(=8d$q$W%s+SKPccddX|H<2@sG=-@TI(q+IXi
zJTBA1QurN`ui9%4O%BLLATy459!sh5{Ykd`yC&h&6BDRopgFT;NGkm;2?f#-)MRo>
z$SLDE;bMXAHlrCMX4}9%$QSAjXRQg3DAJ6t#T_x<yb8xSbCbQ|yxR=UFNPnXMuX}8
z=qTX+@+CA82K`wm4!yY^HyJM=;=${r6;>g>s(Dr>J?31;Py&3oZPY-P6_`1l79_Zl
za}c_gX&wELnpOUX<X}Exk%%dUC5h;kpPwl8j>!;tLeOGdu_?oICTVEn%v%ML9cCHC
zkw0L0cHA2?eF$pVT*qb_Y@YolbHr3*8dOHAvbH67>2j;_INdMtMxdA~KeX3Z3BI9?
zUSX*LZlBLh)($lPfk70><{Ua-m7s&IcleY{MSoZc2(7kB7BCa-4T#53w$^Cy#!FC#
z|CAD_z=xpSG^vPL>YiFO63acAtk6V}hssYNa7C+2u=E*$?LpC<8>;U)2CX;H`LyVv
zvOZLVSFxV)dK@2KMMa)jO<4PK;6Dj0J)oeDK^>0EWdd61!89oBXcX6p^7I^p>H1p-
zXFU?1rO#Ee(#L0Zt!t`!<jPy)V<qj`bKA8eLOc4EP}JGYz9iTOrt{x7KSdzqh~d1J
zN!DaB(&`Flr2EgS`H&cjSxAw`R^m?*9(?9qof3`S1|Iz>6kPsd!4#n*s#CDQ-LYh$
z%#QuLkpwJTPgrAxS+q_Au4kc!T+Am4pvvf(P&<W#&e3TddlZmNvQ(rJ3>{Wk31;f%
zAB!4csv(b^{yS;wBl{?Vs#~&BUc)qkr3o71y$q<57yZ@g1HtaO%@4B+Kj{n))2mnP
zH4t5W`T|*LipG{dP1xnSlIzvrFke-R^sG%RcK~vAj;Sn%i7}Oe*cW`yndJ>+oN=iw
zGIgzIF_nUC@!6mHzD2BIR8q`kdpSx}#L4CroiPi>W;-c-88`+>luv>0AvMyZvJp-U
zE7}dFD=X~+PO4(Rbq`$y$uSl3*SUbfkXZ)FaMM1D?NLWId#A~0Dr=tITFWzn@8Wpr
zZ~%GZ(`K}L2QR+2uh(C;O-}1w4KnKwG28C2n$sNBLo`ulO&M8&8|lNqjyp|*raFV+
z*7Q&^{|=hszk~QmHZVpr@ovPY^oUUJ+DeU81AV9oB%Nlb=1JxID<$94!e^UZy%7?2
z8b}m_nE4kGXKjTo1g9;6K>ll5GPqd>U*N^r+PRd|tc$Y~rS0(S1&7i}N4twE^U^d*
zPQ(0;;-J>TIiqulKK=Z{<9xFhKKv<x7w^<1SWTF|XQ_WVkNH`)>pp_`PFYwCPjBvc
zJRWKA#_2Wj@P<AVYMP0va67t=n4du~&?a<*pi)y+t^P3Ftx_}}@?too>*U_&H^5|3
z+BGzRLZ*b=g4_p4AR>xv;FciPMO_RJ+AUkp<`9C*5@QTVOm=RJGkOG~6vSF*5K-$i
z;J1=_sfvXY(LI*qvP1@7{l#O$GlkQ)+J}DFr-rT9u20K7+w(I`KLt<jFX`rc_?ijV
zp6nW_#Xd;L^HeNt+C+|DM=2672fT=h;HbyLB9ldQtMJ|iX3i~0>?-PMT~A=qMNfWq
zd>$<q3z8<{Xcm)?+kr<|O`V^EKXk5*u=EZj!}>2`>BoEYm6|gIbbeX7p9)=NSPGeh
z<7od2J+{7Up-lBVe0}iCN#k05F%n$0Yx1A@`l#ZvVqWdqCaa)JURO9(1Kf>K2dL17
z{dUx<jZ2|58r_N?o5CkN;?Rq0YEL8y{O~@qmmq|R-<^V&hNc71v-`4wEmwc=-Yr*^
z{Kn1x(8S%~MOqt?7ag{~>w{6C_q^hGOtwC+wJ<Ja5lL`4Cu*9~I?}O3;u(<TLs1I2
zHhbdXnQJZ^yO@y=+^d^e28LW|e>2K-q@~>u30x5B=<wgqzo;*c(^>HiXNUemY<>CE
z=Y-Y&VFZ080HJvPHcKZf*|2#XdG_YbZ%W?)4s_f-dfG=zJ>c!mU%+pmGUc&FYVL*X
z+M4W~(stDSRm^%)m9H^;xCK85j)qbdK%v2se`({e9D`;_b?#mI1<W7iu_^~$Rh~m<
z>h>oX)wt`=7AB48b^46m%&#Sw3e`*7qA}w4R)Swm;!?98@C$LW7qQY;kjk0V4J9$0
z(y1-7auKihV0VU;g0!iO-Z0tWmfrWedP-voRzUU2q!Baw9PFNL36{=ZiK?DI>2bO7
zJiv1SeyR+My>`#6K)Xr0EHJ>zW)wyXOf2<Cs(=C4^%doNu)2b+-zMBi5*DkT4@gPg
zd~J5i0R#7*?rH9$Tx^H*p^u-p@SwZYBgX28CIVO49}8VJ{GWQRFj~#0>tiX8Bkh+y
z^+xDbDkbBNS*c9bQ>l$%xkZ;y6;)IehQQ(jY#`vd(8&s1RQd%}ShqV-<=(o!rQ`pZ
z`)l+bjmV`&J^X<=Am2mZHZ*l(cv-Ug6qsU>@f1W@XZt2<1@i`baK7hW$WtBl`y~+S
znT0zd|5unw1^<@gSo$2i7l)aD^>j>A@YwV+w4X$c;kZ4<XMqg<2X{n$^s8;>vVg(w
z1hVfZGB#>}B=wRJj|nOm0W-=|ahIL1aS~8^1y7cGIIBEpg6_Fpp=utBW-yIIgU{(Z
zqYOn50W(ItQ%DgH^RYP}SQhhXC#|$|Zr+Qdzk_VWH8Gs<f5$-12=%Oft!5;zG~~E6
zz1)-6T$JaUvuNN3^VPoGdh?EK^6#^k$&{c>FZ}`#s9Dxk!J!=#Eoy9%X)eN2u6g}!
zFj{C#TTL8xCKP_v6=pZ}!+ByH?ma|IkD>Fh@{#%><5Aw-RNhV_jBQhIpSEbh5)VU9
z{nQJ+x4sWH0rN!rHQ}a+nfSY*c!(l=>B<W%d8D+{sxN4tLwlQm1dVLki%G8QesM2W
zutp2eX)k~7fcre`WXpX{bgpK2R}+J`b@0H?yN?8~UCHDePpt6}D4v;rhq#%a?cY&h
z4pF_|YPlNzY!uyfs!Xvq@6{h$LPQ_wlte^9W~d?=F+EC5tCG!xiS|-GDS7T?{x#V9
z?7?a3U&T`Q!Fh`GT(AyX!m2G3g<-@7k)#bcnSu$03?Uk>_y(T`^``OPjT7HXoFBs5
zGCQ#HR^z>Mm^Dnyiqo?xnG8#hX46L3SM6Mt8|x|=>dGMgZnP8(H&_SFzH(ANkP@B>
z5dYKis4`G=?s&VRpOWHHIpn4{(maL#xx|=wYN6-V&UG&ddHfVd5uxL9nDch60Idi-
zQkqrq-*sEmjEq^vR#Kd-`z03T<Bm&D**q#B9gnnFuW+IG9oE}904l;Dxd*PwFSJCn
ze?BwF5_SfyOPRx>mylJ@%6ARmO{JG)FZ)F*(c2$`92Z-_TIBP+Q8@@jXsY#B5vKbG
z6@@aI^yy_41~o-3Gm&2Rs}tYLD7*oI+-uK{UbSDa`cR!SC7*xw2Pv%u4-+t#ELyRd
zZ4{Re%$uj~PKt_qNz>NfU3B}Yn0FDAD*2fhTs{nv8b!M*#~SCk4)`-B_4SdYY;Fb+
z+u$TzYX$dKl%4Zy>F~Zz30>Mynlf*KqTU&GW_lD0OX!K<^cxDd4~N*75D<VxrBqK(
zdKTF%^UbqGROMea!r?!<R5R@=PTa_-;^%cSi>W({*~ZzcUK(8D*@;{$(-+Q$RPAW8
zyhNZR)v@_`V)pq}Sr0jQm;60H0s`+|9w`zr5{1qRy3F@#2ch?$B(8oN9_SZ{#=JA8
z{|L=NA;xM@J;CLFAoKiQAUy}l$|{}f4+hv!>iL2q6--!?OIV$wOB=s6oXT%w*z_bk
z2bL~N+1r_8`Ql+Df57HDEa2(3X=!~DGLyAkt1}8Osp%_`1;Edn`thMDk+g<V8FGDC
zUfxlhX{KJbB(~h6pq6RzzTuZL!2H7pgM#GE{fi_*SUjVuH~B<<BZmg)Hzl$oCH>hw
z7G}rlq9^pF>L_SJ2Fw8r+EsCTWG*OrB~v?R)gWO@*cZerx-G?jpufE!^wGwoH}}<M
zj1C5sr(PyC5r5R$xBsC~QjrSNPx8=mM5pUo0@(hkj22rs;;lX<-vzl>`9f~Z6^%jg
zT?>Hu4WO*^d~XpENOS@K9OtuP#3300+3>UTS6i^w-#iAM-P?yEsE5(pN8>PJ=-KSK
zWg_`uIoGK1{0hQFk7Q)oyjIby))zc)*=wJL4BtIWtCX!#KjR26-!Urt^~r?zTyMx}
z4<y_`H#&4S2<FEOtkep;V*!D6*$N?s+him}_^ze41rb-S?^VFNAx<+>_r=#v?JV)M
z^b5gt!`m+#GWrYLywqd;&~|P`5nf!K31OZE-7+$Um#4x+0i5(BJYl-^$0oyE4@9oc
z-}WnM?3g=_C#?EHA2g4o-w%7*?2LO-jrv-C;@>Vf)&;z%MIThHsFBNHy$<V&|0eoN
zJBrln{(1fsPU;0bGF=sGQ{v=tt@{IK!GGRg{sV);@|!nmoS9cY)wMa%4n#CF4)-YX
znczJ#O}@+is+K4+YQq<CthGR$`lS}U;zP@xjWo@f%t5_KtTrobP{be_8QtHYRR16e
zp<mTB#+F}P;tUsi8GUNgV4t@D*X+E7AZl#g+<0S}HJ}4PR&RAtK7;(opW3oI>C|}O
zp&sV7#ozvTS3RwJz~-GSh_FLxKi3_BHc1G7h_U_LM5E^>;C+rgM-@UngDoATm^?aa
zg9;NXkaEmEl)dD^Xg>K3(0+_%PLq;d#H!AE4cD{k?)Ft#n+u*bUPiWL>zIc_c1t4s
zyJZ@xTND9cP0PacQvVjjo%NCH&H1hrpfTXIswNYA{&usrp_!m~PLfp}5!4uU72kZh
z_^ejdHIkYth_X<;qVS4i%>9kMm{~Y5cT?0FzlKu!hWktHP;eIQ3U9(t3W-dzDKx4y
zEgEeZZF%==Jfya-Yx*Oj@L_o^*@Du`ggB53L<j*;ZEu5h{gK1OcZ$m(h1|~lqV2tC
zk$-D7MyQpqM5#l*znHuH_D|G8<8U7@*EQW;CP&p@2hKDMjs}0OGg-oQWcU$I1E2Uu
z(=sjOqq|y0fZ<a^w-2A7L{w+jp0L!SZ7w;+-`H3>_QjVY{6j_2<;rl)!X9ZY+$Aau
z5{fn;VX@e|T)PTSCuzt3sX%z1&_68Ke~2;5K-M3Am`&xSE&g-LDHXjZCh3IgA7k#X
z`lOmN4-{91uQ);LvBc59)~5f$NY#FhAor5GPF0dNlvyFRBnCqde|K`7>ebVY!ed0t
ziYG-?<(8P^0+l79_IKLdgEgWnS9Qc+<QCvS8g|E)PiEz)SI~DJuke<KFlEU{VEdFz
z!LP5o<GC=J+>ddHVq(};^qjGKefBoylYlV{?UV#dmpXVS@3W_iY8)8t+oZJ2H@4|a
zjdX+>_Z*ejc3oG>4MNt#7W$aHbB_1?d66YZx|1gs6!<xvRO~#jnL$InSz4>=6Q+7#
zBeet;+YqH1jsOD7jbkV<CHnn&4e!4<Z8S7W{H=Dhi`2oGZSTgb*2mkPC_lA|QdV>t
zky>d4E1Argf4a2Kn&&!K9?l`AZd6fPMZdEz{TFhFv|*ilSZ=)Q<^P<Y)pg=k$M3wy
zVn;jp8!Gl=(O!Nh%EV@x&thYQ$`c70D46i#`jS`-_H;jTF6}KPwb~|&a=ya?pb|<u
z(s>&nLMo>xZe=Svp%P};;>lXL1$;jwmgVHz*6=_$IX+u&x#P^mZQ1p^a}zvj%0iNq
zyUQ~j$rR8zsLB<sg*n()5j@v&WH3y%TwXN01fbvrKZN}+FU6!m8<c$whE02binCX6
z^FF!n{)yDoVhHUw16|?|o(=DT;Qi;A`tf?6ZSb6)XUk30tDmxFaFqS=_>W!o7sCsj
zAh97h8QxZHvsE%3wu4F!kf4J+FkLi>6NvbT$N&6{(?^#Z@Si%!5*zK5GoYa^|Jf<B
z&d-G42;ei|G_aJ=ri_}^+$!4uOC_67Lmuk9e=uDSMmCI5qYuVDbf8|M6*bkFTZHVH
z_kEw2{5dK+#spkPm~O22RPyY$uiAxM7}B^!SqrV-^xV1Y4Lfo7J>M#)${q`Chhx($
zlR&|XIZl<U+*ZSb=iMh=BXBUdnywPDtO=5Sxz<pxc5~1kJ+xLg`|A$?aFk#FehV@}
z;ZD!tQG(<$4WsX;@J~`7)q>aL52@W_E{03mJS9gHj|i$tVN2KnmXhxN;50>8=}5Tu
zRzJ67h&y?#w&!?8g`+BI`l_>|g&T1fb|<5JbwM{9()E3gpvy72`+xm`zv^Mws?yco
zqo#hU>e6%jd7sJA*h|?1B<<W_6$fq#^U-V?O-V}lNmC=8K;7pGP1;NuwH`%u@Jvpf
zP8?t5m|(VE;aJjCnjwP>IY{q3bM3Ays5!1Lz{YYHJ=^i2*9dWwWYr&elhupMhNo>n
zcnM{S5E_~=%W*gZdA|L)<TsU}?PRqfbs;SV>5XATJW;>6i)H12!u5=a7xwpw7{}N%
zD!+E)!^))U_sBRW`i{U9`ky4|kY5_jX!(uVarLUW>KQR|_<bF22nFF=2x+$x<UXe>
zuI_;gZLo%|>QSC@#c6yHN?p*ik{qrunz0V8O+VtOUC|7qtZ`^n^yf<j8*CKlQ>!Jd
za_p(9MQbSbv5PkWSzj)uI@C=QL2tSQ;(?@ZPgRd8zJ6H5UU`w1k_I`hu8`wJR--Gd
zU$zGUywsiUc(tw)tLU9ii6_AnCif8ehv&3X*=}J+!XPS6dE4XM1*Vhis-G9kM5zjQ
zJ{=>fKiJC>xxF1Jz)o#*IYIxvW`SJ^Bh06p{e5YExl<(t@R~$sO^PUdmeA4Ia*8?a
zEq@{PtCdHAcrJQik?;1ru7({6jFtB4r71c{#Q3G<S%2_5pWM++z(%9n;N2u)M99gw
zettm)=qt%mP<^ZS**kX&lb6w7JtWUU)PR|Wiat`f#xak-a`~m#c43ZJ4aMK)pJQeJ
zAxws8(fZ>K2*gQ4c&T)`J6|23zm0mxor;X94~~_XWiTLXUN`E79dIovLVx6<;AnQK
zGeE1BT+G&o+>mvVh>nb03DqXCS^wMfLeHu&B^)2IUhc15Kt4_^D{lGDdbWIQIn{1+
zq(9^|4X;d)7^4W(dT0A|uNYD%#@u)7!%OY#cC-e7`_xA*rv43(&$5=%q|I_C0F>Zw
z!{|PoZV+!OdB(GMR?;{rd87lOpf}krXTeN=OPnqG=$Xn?&)7L792v%IusoS|32mOw
zpV0`t^}w>MnE=Uv+Y)6TtB{H87cKj!r)Y4^EzR0F2E<&HR&x3Mk|2aw*XQ%biFl^2
z?RiL`qFm&%>VXBR&s+ai$|PIVEXlIgfy2))tn!OqfGK&RR4+?8H^RC|W*&X03uLg1
zt+EOQ+i$XQ#(0w}oCG(avxQWo=UqpuW0s$%1pvFJ>vAAdNCEs_8*$G!Ap1tv2>yC$
zIyrVOpTeX>;1nU`J9JLIXRC`Tamwse->U!wJ@uZN9Q}wCJpA90H(8$1ofACV)p716
zLot`l*Ut)EUIaP5w`a#MF9G)kxn+GF^oQ*nrKSwK^KrAyHP<>Cn;gw;$G`C?rmjPT
zB#XJEV-RVQWoReQKXBIAX~ho>iufUcPe=3}4LZ!BVT_7vK8cpK)X=YobMQz)=?H*B
z#nkMWsFxGX48?6<c=_(?iSOXdtG-prN0qVZ+OUbnkbuQmXlzW;lFV+cxR5TZz_R2j
zFfQ2zudb==-UDK}k~8P36RsyQHa2tk!aF_t`<(jhpzB@|^jyCMjWbx^O8IEjqci)|
z20F~M_65!8Dg&wgPX%L58dH@8!yGUfJNx`^=v1~5YbCcAxMhFikP0yDv7y<!O`)zh
z_%dHqE#zcf<qn=%Ou3{#=boDoyNvlw2PR-;z3!r=WOC2=55{-IjK)1JvFF&Y@>4Fr
zH|sPc@rk<OLlFWzi!qQ%%KS3SCo5s5ZThb4V=pFC9dnD`!K?e-^sdV0k`HhsAF>GV
z7aPXvh(26<bSQN{55bR2mat8}FHw+Y8>T5_tvKZ;;Q}zqP3$fVVMnyOwjT^v_?ie+
zN<7CbYo&AH@gQtar@qU#!l=$=YK$9;3!2m~+=gk4zBgxz^~qUhshH?>-H=EnjeS3D
zuf$(av~T+lv}iqAD;^DJ_<**=Lv^!2XYfpVd6+_xsvU=aon0o$EFo5c*OqyDzVZ8U
z%67}Ru01G%=)+o>rg7rZX~LuJl^Iail!`izm59N_X;J)Uc#MrQ6qT0@=;0#Q=FOmo
zV|yYl9PR%gnlObv3oSI5VaBje+e(vcD2*LwlXjolpEc+dVvysd3jiOacJZlcOohg)
z>y#V;-&i*$pPC7=K{iC+z&3rb?FFt8hxG_pw8~9Qy@`?(?e^`d2Ao7DchtV68&uPb
zIzmKG)NT5QH!^7==bQ8Nt~jOB=(fGCV8NuK?Rin(hh96Z7!J9E3=>h49N73I#w<CI
zzf@B|AGy<LtArJ=9N^EusDEIsrd>$@?y~Moxx{k3q%mk`XnC4A+QnIGIe{QZ8m>lg
z<B9a$dt3;M-#UEQtf%Gn{8>!oVzi*g<oDu3wtMcLzA*N)oWrv_Y|N;xFq)H{$cj~g
zndxrK`&?6p`l!Nt%Yu25!+Jn7LL<wP{+ndscec@mIU^s<46weORXbNXj`$^~cLG7x
zTJM7VQ*q?YqDJFgu#zz^{l${g2_1x46G6n7dJva`pkmoH+O)foB8I^PUWdM>ORjov
z+Ly1H2Qw?AsKA?Zu_aE2_<#{B$#Tv2HN|#sM<Q+bw}`h8-=zCtC@Za}Nyn?a`TgXK
z95a6b<z?IVA&?a?|ET<2?-XvIJ*LX5psPX=u>GJggO=MK6x)<AMc&+DLpySrG^Oit
z9YH!<PA@Lm{-9BDXZYxO`%V!}@4v7ULJILJ_-MPmb&mox*A3lW^S6o8WKXhUzP>}6
z7K6W$w$)&pMB?-GubfvnuD`X8qjSiowF{P;Bs6+%16_4lNcL4%2|rnl9h3b3Iml#H
zu)D6BF{0ihlMIYU4U#S0PxzcxS`cfBiP5=*=(CWRB;jsGg?XnBJZ6pFy&umgy6!an
zF~@^aul5G1JUm?2=MCI|4w|dXLdy4Mgz8nJEi%7P7eVs8YVNwtQYl_<q8ZfD%PE2S
zpy?GS0+>9*1{)4d6<lQs>vK~Rl7u(hqctW-yUY>Zu|Kp({^lqSw(8SuUk8C{#yh$O
zo>oXaFYtjcs}0e0W<dVl=S-OhI5DV3&JQ}NdDomEKYZ7SmTXOVE8yk-r=~$4VArrD
z`!7kdTZi~zjZyi<Sm3YmU#fDlvIQg}EN>HIDL}S!OVVVmnlHrfuVDJ#^fv4;Nc@9c
z$i+{VGj>$=N7-80Sv)9Yd(8=AB1XUbnD>0wM!R648(Tz$5e8WqMMjEGvnQHu2UUUU
zTRH#Yo#1B8#jBHZrMV8BGddL&iE7_U=uXyeb_&^EktDLW2x%k&ZicTtVh{W`#LL?%
zI$(VxD0@vPconzED(VOWv}C~8OVU7oHl!a)jH`8gG9Dq9=ay;Y!7Jg%LN?Lh4}v;3
zRMM<TjI$Ew>Hwb`)H1@h{(JI+7|(Kf_I7cOCk)N<T`VsGH#<cAz@3m5ew1hSWE8zJ
zlg5rBd&&rLN~cl&sUHu79o^XfOyu4qf`J+#zw=H>OHYj;v(fH&E0ZhC&^ynO&o}I~
zzV!+b^@=yjc<xU+MCO_0JHmA9SbUyBU8kX{m+;=2=3L3x71N0tUXyiB7Dt=D2D#PU
z8V=!I>j<NIeQ@ntyP@kyQudGM!zNkXLKl(^j$fUY0(Zo`n^v#IX*6uqZ0lu^Nx&n%
zBDx@{O##9_D&>ll>*7Y~p6tm?GN;RJxFsE7GFs)Kt<&iRHj#*i(UlD)jIGw+v9$d;
z7E1{u42=Hv{`wJWX!7G5aXlDwV~d-NmOYV3ACONTMmRC~Y=z&E#)>+)bD5)(<)R3$
zUW}wSbjAgTtz`s@@k)wYp2&*5&%h}h6VXD9k=gq-nE-}E_uemo0IxD%L~<QWwQNfq
z3F^+j6z9TLB?4Aku+O$*ML2dS;J!#xR4x1dNG$Wss9lvhU!1sGqZcREACa;LyXxQ`
zi-t#w|4yy+Uu0@Pq~p*ur%sz{He+Sk%djJL8{W?jdP?tt#?@^8RxPSF90AjZ4RfOu
z*R^X@VBZcT_v$FD*MDMRNXk)W?q6l&M@}{n{Zu3*7Rcz-YDvug`<j+JANrxUv`U2#
zt^QF6t%ChtB9<F6OF~N5$B{XJhjJg&z&xt<vIefscq~~%4d-Hs>Lc*n41aKh^j74}
z^<=aQ`r0@<9PSf2kxDx#bPB|#&$rxa&IN$F<%ocTqesFL?pwekreW#ug1QxfFgJGZ
zTIq@XBqhL|yK2~X(G7|pt7&+~(%;@oJQ(%zV<A;}ljihvG+u~_{k%vi@Y%s@c3Kq^
zz6&|wb+DTmYh3SlC70zy&*rqO(>e8Iw#Iu=;@<!Unk@^TYXwRBW&xTW+M98&&Ph80
zhYdr4MjQS&2g>_@yB|3@XJ4$(G~2$|tC1t~z|xsnsQ;UvQ@CzJ{r!a}BH}VVTn9Ra
zU%hb~*YH>ALVVqK5;EcXYb#T-1^d+^@`jmI-gW5-Uv^?m&IqDnODA&G0w=*=4H#d+
z`2VMnE03o#{o+$vq&H;=sU}O5Fy4KUC2MFBA|oRq)MOAsDsNgyGc}}flc{E8NhLIs
zn`UH2iHHi-h$xNRtQ8{L@Aqg%zk1&Je16v-_d54HXZfD*Ip_W7J}nL&{8jDlv(b{$
z@A<-`Wp`gPTh7#Xp50D)sh4YBG4|?GWbwO?41Z}?e4BPSeE(dR^yNYO&h#2TTU$Ry
zkJ-dDR_e&2wYO$Hkj<)O*#D&ICa(^^h&+xFUowdJIpvf%Q#wBVL2yx0ROKV3cDs;*
z+r38@IcEGac75p2qfbU(XIhocU*}kOv+)+^$9pzQrktosaok>$|GR!qQo2!bTU1PU
z!SS}NPYTs#I;@v`a`#NzVmi#P-$!j(Swl;@llWj^`j1@>-^n@H%v7wka=fO8C$*ok
zE6E?|m%Lrx_DYg{EzykX`*dchLS5o+3y<R48TH}LUYokZFAiW{Nxu7Sk9RL}llTqm
z4n4}^gF{W?h|(|Pn<8}#f_Az+Nl>=9rrv*Uifv+bp!skmKZf|~Tdp&4$t|?G(z#92
z<?LoT=A^gTe6C26UA|{U`z_YE*22f7<qO+@@K-JM7ANE7iYJc@BxPtNJ!s9`@c`re
zeD%s(YyFQb)Fcy;q>3b?oc0A*w}pnBQ5qTfgI`|iC|lKVUL!N#J^F^8(@m8rHPX`y
z)>sYY9CWM~P1UgsmTkSeP~6@0TI=oFpZU6gFLkuN%8qq4m^saRut9HjVbdnl6E+%w
zire#*`&Vx5(e!C-X~OL7uiKO!)o4Rh-`1^aUyyKPliz#?!=k4Bh;fK<XFML2E2&mK
z9T?!kpDz98Y~<IP2jXZ~w~Ch<IU&#e^hV|^?2-EVu1DF79J^-S3koTYO6#^<&K~(9
zruBS;Vr1ip`+SR(%AT~QVcCaf$JKw#Fg~g4=V91-<WiAlLHhOi+(4~=gmoHTysYnO
z*2T!evW_>iD+e`|C3-v2*v!3I?%Ue-#qM^S8*RRsUn#eBZg>2V(rB6O3#)Bo_hbzn
zH7Gjxa5UtSe?d?ml~o@V<*o44ZgfLLjr+q^iT|wp8=h#_{W<vo3zigIoP(GQe;<%-
zXOLZV?uOKgD0#!_H>J(H4#|UG@D3e!-mq=*mMtr^PjhMEZN)jCHCtbCO;wR3?rIBi
zexX=m-?X0Pjpr2yCw%sDgXUDJju}P!r9XQf`rXjj$*Nu7K8di}`_?XfIB8=Jy}bIh
zqG9$c)pJ>Gu~T=ST%VsXxVcByWn1d$826HZb#ly?$|}~s8fh+_LR&2KZtQlkGjPiL
z^sklj%L=ExBKxmus+jtfNlTNq12bJ~WM3AmCFq|^$a?B3&ELM~u(K=Ut&EBEi;f$o
z>hsE_W#1UZxrWTl%n`j&whgU|TFWnvS6k9`{JXV%lWORuBMa?*)i+ssFT2y<%(SoM
zj(Aq0UFzq>C*%f8sG2nw4u%)_55DMg57U~atRlbbNPdr;DYyE!B@ZG;`*vubyywxr
zKjm>jW~zLT(F^ZcfABkXa}Vs^J?xREO~+jS@qV}j8F=B*zjfNHCqDWu$_*+PhAaOP
zuj}(lZ3yw&68lwo)7bAF`i3|CGMQ~2ZnD7*1IF?SmO8)mo4kG=9;fXcndo$6K`|ox
z^3t6{9nVapRO<u!e1<O>`^nz-RO-~xRa!HjU0Ts_7E>Qsoct`=muFjo4_lphb|Zc1
zrnnk)pJK;C!XltNc3)3p$NlTohS4i+POaQkY;hAEsU35<e$hGHQe46QaY=T8$G2sj
z!K+v0j=E-E*s9j#-k@Q=^=VW@S9P6O_M(SUc3RiIjOo5at=EAqgMT&D9yTL)Hk=+x
zH0doH^qE$X7nZGV@K8ICPqiJ)_e$MfEFn|Q_bOeT)0}Kkc(<?P&1n4CmUiuZV~;0$
z5{K#>Mgo7*kPE)ax8^xK|0a5NTz}oXu&<hr)i&9$s`6AiKJ?T2YJ29G=Dy(b^dv^)
z*%p%QzL(GNSeFo==M>OW6{l#a=ztiI6)y6c-{$83{H(OIe75G48G-z$**>{tp;He9
zwGu7|ihtAS9O|w1WLFP6TE=!tH})>?d#rFs%RfBJDtynUCmvk5qqEDjzt_g@2We-s
zdd<nyZK<K6KSzI4oxaF&iowBoR=G|U3wDGqbuAsv$M??9h%G8tSQUO*F<NzV&>XF2
z9cQCT22^CDCDOx<XD+<4JQ&J{E#mHbFSE0|cKD1W$M?DF3abpCTe*AcEWTQDD%-=Q
z*V_76?~Xy+jNbmA+I#iGB4q2G%6Hy=H9JVx?T1S*R+cNIOuC|a*>-WYL9R=XZ%MZ4
zudW+ql1p5BTVtb=&*xu$K4_(W)~oro%!qf|h-ujVm^U)Mfty0ZLVUfx2A@RsUI;OB
z{VF?iM{`|^)y~c$gX=R?MCo2gl<3;!nW|#i8wuMm?QaEf-tWku^o)Nlvmt3w{w+lH
zgMaI8A%!|5s)mlg)B@FH#@}g-py_{+v7&+s#9oKRv5)mxf}~kUpCxEUWLAkNh*nf0
zM#?Ns!)GWK!$nDzNW3mi2*1Qh0zN>KC@NZc8_8FuX%7C9qzG0ty9!w?HU2w2&+!l7
zW*<>*74kVxVW_|uP-g`;2u=_P$<eq#52q+tMxz`9%P5K%M@1Y}jigPM;z&Zg=pK?S
z1+G|#X+;#IP>K>a*CG9rl{uk324iq>$3x`tBq^Nb#Fh2Pq)Ad7&57<jLQYDNC@l(V
zK+5Jqu~7`c;HYR-Bcja{P<|9cQ*af4KF7d%EJ|`veiVy>-#>nwAF#&?i^Nd)-+KIe
zI#Db^ad4o3GcaX<6PkpmMX`X4g0nP=Lv#Z^7>4{XKpsUYmP6snQ!LAJLMH?YJK=y|
z*a-*jg%Y5}VQ}Rsj=*UCqi8@d0BE5>0;PnGNkK_C5*+_9yK#FYLkiB4?1YS;=w_hE
zGEl!z90jhuf(^1P1_e!{4223Dvy2ce7KQY96qE$C?8i=Ml*BkF7$74^fn$=yg?iM#
z$!Mr)fjt)Gc-S$Aa{?zE#zH87jA?-kLs=+0Fe6bK?h-HqNP5Bt|9+U_m;hG5BN#$p
zkfWit1KcNt!4L!kqY8=%4{V;sD2#@f4rHLYA!IOuA)wv{dITXnORx~sVAlTISq7!l
zK>vZ)1POsb=G`!aWR%b`!%jf>9zn1w1jx`h2@#XVXwcmg$?+4rjKMeoTnr%~62>qX
zlpT$+7`zdH3}iClWWonaaqk`fBjYiaV+B!jC?*JoqgXf-9K{8l14a)8JHauWhJyhU
z9R~=$!~Z?}B#H^@NitvwLYa^Z1MfQkD)@u+0MLTc(KP)5(fPk0C1@Hv2|$M#iUG{{
zm>&!nNwAC~NEGG*M}Vk5KFeSf%|c{lFu;Gfb_@>I9n|kY1`>n}5@3En!7yO|3G_$?
zOabUD$q?^aaUA~%_!$~(WjJb@VFU(&L@1*{ks&86fx|pvz(yrL;L*GKGaO()oG}Mx
zI+Ps?Mid1>4Ia<HJ%}GW27SoElaR$|L2@ik@Du~p1PBFVl*K_b5d1*K!3&E88<l_q
zBrx!F00l@86#8z!ZTuhn<Ie`v2hfZ&56D<SfCM8L!7PZGfY?7SV_8vgD`K`0SRpM)
zYr@PD$5F=I(#q1z5(95mq=glSQ|2aWM*mmEL(RlQCN#_|BrGz-*G~qRCn!orOUr7F
HwakA3`DZ1k

delta 21242
zcmagEW00m@5G7c)*=5_dZM(W`^DWm~Ho9ze8C|w*+qP}&H@h*hGe36ri8xQ3ym2D$
zkIT%wQ&VialWc!<fzs@9Iq`r^VUwg*;sRNGl<+A3s=sz>D<pk2BZ{mngMq<YCxia}
zfQkZW#H`To6CXW>RNLSHU9Whg3M9BfyX)R+Wu8Z6j$3*{b4EbZpr|j(x;)1l_*&|v
zu7xIFpA=sP&Oe$gL6$%zLkjOZ${bX8C1X5C%b*XK3|H<%AfNNlDC(M)>}E;pj^s1t
z(9KmGe;VS)EZ<_c`ioK3J!3e+KixA@#aVI|R{|ZS6W!_yGS?s5YE$_tppg}7D$1i1
zJF;<1ZH|6S0+kcMEbxX~sk9c-X4=R`=g=h<*QGM%X;hD?ixwU}gH2Wsk7K9ylqOd1
z!DTLzN=H&fRG}UqpL6#K<LjRx7bUa+d6R5#K$1N8?vU5cZtT^qTtv;LxaN}LhR^6$
zq!<xWgGO2A>N1J|{I2V;xkKdjN*)Z(1P#vw1#QU$1+%AzVP|D!;b!JyPn$)9#rS_M
zLrpNb762m{9V+bqRB)!vp~0g6FQ$<um~0D*Fc=-y|I+xsYg+!(xc#49$hC-DfyrV1
zf4WHfzq|SN0}K8C)7&S4ebfD){e&C#g8c{Z{{ZnHApZkYi(xPH)jKF#8nX;24RA|a
z&vAnj!+)lRc^(_KOg({=q74s<UOTIRI>>m66Tu#Zx~{6#m2^Ngv1#M`V>&j`ZsA|}
zwYkq9dDZX}e?datjKw4~7w_cJo3XdKhP1X^YD}enOGyuJgPAhb4csgM7s0GfM1KSg
zC$0XAJq!a|&vDF7hyGDoa3N-?C?HN}YKk&HGSjqSV1RVSYI+Qg#4SmbuVJ+_-ZcZC
z=bjOkWO)u&FHBKUUzQI>-+`kRdC0KtLk+ET8C)VhG?YP`GC8y6I+c4Qn4YJ*9o)F^
zHd|vUI)nOO*X8~IFj}j2M9pW{lBF_wR{es~b!Jvsnh~c!BJ9q%@o^V8I^a&<!()<q
zSQ$U5<#YlCD&=$}nPBb3np{rI0FpfMxpe|-lHmYY4CKC#GLK51yVnS~i)dN&F6s$y
zYvP~6mvy|73>no3G-*kmentuaNo$G=G`4LN@7(XgN%PVAmF+Hu_1n6A88%B?@*Xh0
zg<ZeUv&E**E_{1>F-?UMI^YRalsvwqP6<E2^*CV{t;t{bKtivj<KE(_s}(Bm9H~X5
zq<9_5p6ig8-i+L7dLS{lK_^L#;KCXXEP^FdU9k7UjUg`V@IGX*#M#8PrSc#1%9z&_
z!NnbnX|@NKU_nM~${LEU;a^kDeMy!84~v7G1Wg$`;XUb6XA8LFTOeYHRB4q!Kde&E
z@H|ep5v{%~?^6(YN-g;g1!sbr5oKeM@Apo^Nu4v@MGyYP<qyQgwh=-$mh@#~K%E5|
z<UkOH2&R+KeIT`p_*?vR;18{KF2|)rglW{!p=#=hfMoBY6ZxMS-(zWz4i$x|*M$!8
zg6*Yw3Yn-@9lJeB2Vk_y8UL&GptOwz$&hNpBZGM>XTVVaW#SEW)r?2E*kYmX1D7)k
zs}3xV!;RCI?s=O0Z)A(+rOqGGXjdpNrLRBcIi{xwAfvc=ASL^0=LsWCr?ahx4qnm1
zl3uai9JVYLS&joe18)t-p>um;vsXxY46EDRu+1uxN~O-AB|z9@(ksVIPj44F?7A_Z
z#cP4aDfG_b=*fhFD~_B%c%qrb!Hng&)r_5L{Xfi*f-uR$2I5K&{L3GpTYUhA^kqNX
z3L)@;GOdL?O|6(__0*~HBMw|2DhUH#`4pQPu0Fh1e)Ikmy67xGKuov(xbZ(MJzR|L
zKU-FP`v;(&%s|EYO;U6R`C3k1nMwYKvN5<KiS9tTQPb?OHdsPx#Be2BDu%)U#t@yA
zD5%7;H)<7Z-$r6C*>{dRD<5u~YXI#KdK-I_bM-sp9)k1XJkPa&OOeCmM(!%NLd-@a
z3e>-q7sO}n_(fCa(k2UZtZ9ge%z_LeZNE%cc&uVIOdu8Q4uqHJ?760k>*-)U;cz1+
z8xDeZNL?@=A6#4wnz0>R(*pI<lHh~_+KG<g{>%OjqRbU%)nmYdM_W#da!RNHD(xdY
z-4hM}$R2=h#ui$Wg@#WSw4#8A<dH$?-7X{60bbj`)mTRsttCVnJyhV<LSM!huJUDZ
zTTneL6Nu(wr_$?!`*V#ODp2o#Jb)mo?qEER!?@{kH`|{#Kf2ZWP=bf9$#-u5EOG5V
zYsZujF4XLXNw6$ugQI?%IbHxrhat%4STB#SjyEJ4KE-}~lTSY#)U_~4hedmR{oF-*
z8^F-LqBVPAS+AV65i1x)w-P-X{_U14r)MWg1(Z9urn1}W27HV^Ib1oh?$zQFP<?ss
zX<uQnS8`WZ4NSc4R6GY3-PB8_HKMNRbq0+>4)wb_gDB7D!UG0bQoo6A`TK?iN9d;E
zJr!@~A6B&X<$d@`{lSzn7Z_lylx|g7OM($pH$n#Ms2a`s(wQ+GyqLVjPhq)mjhH%l
zN#Ddl!@rSRbFOF1SggR1f>P^HUOC;ya2<V|{U5o0R^71EKqX+&TX6bdep976V}R2D
zr*tp=+p<x9a(nvageE~v6pN$<mWzcqnnc1)z}KsKXR(6MshyQakmyTwcrSrF1YW*l
zkEYgYm*8Y_y!Qq|gg1&~P$$85PMv9UPh(@-$TJfry*!mEXu(Mhfr-JY81zXtPA<Hj
ze7<hXs-#5INUyi}!+FfSzZhc7oq(Xg12zF*S~&tEcX8ky>@Z1;AF1AKQ=z5sG-6WT
zu7jEXeeeraPe2SAV@9$B`2;wzkCDH(ifW72t*hdu1-X-@0mBpBm#c^i=@89S>*Gae
zraNBIy9s>X{4N3}Z?J3Mco4YM)S1uUNPJD^YI+g7?ZF_?I(ZGf6<7SE?lWoNrQ9#8
zed{XB@H?^?Rof%^O{hg~ANiR$qwHQ!$ODgGGoS4GGJT`;vW=~z@IwU7DJ+aoWC?Xa
z{P%8(!&lXjBp{^NvLB{@-}>zfFs&@0|Kb`XDXWRCoQF^JX4+epWRnPEg`Fq%)>};p
z1eFfSOhMLNr9;M)X=}ifZAY^K^JgCR7+CuttEaxi;X!8v_wttcA>MXr8$-09$x!x^
z%_I~VwtYRA6J>E8@WP{D#M_J#`ATiGNvUgUU~Xd#Xw3DCwR6W{5MZG&)&3%+Iik#t
z01SUCB+8w{$QfHIc>5@e*@$2{%`}k=tFij5%%k5dB|mpUO;j?W*Vv*09|+pr1=(IF
zUDsTRBcP^5f$>EkNzt@%=v#@k>`%fAc*dK6oHl})e=ZPp!?cV=#y=VP8|lg=Bs?Cr
z`}!(KjzL#MSN1Xb91}}6hpfhBJqrWr0EG{(AVc0%oqW6aotdt7&knSnO}IO2v$qX`
zchbxjndk>%R_H`WuPq_quqYn;9?NjJqxJ613;SiGE1D}|x+}1wi_`XE&3HB?)7*r}
z41=UiM|Z{x`QpL1Rj9eX;GBW>6D2KGw-a>+<mdyV&N0EvM#cN#kND_IaIu3kCZe=L
z@B|5B3w!HgKNM4!XgN<YDBj@Hzt=jxy`ayfZ|KVJX4V&AAel1|$gR8dN@slL=%yS;
zBP;{`o&@*(X*%~;v@xISA@M%cQfXHSbKaT4D^I!R6b7?z5&gJP_e>i)B+`he@Y2Er
zi71Wou|6zR;J9WijxE@nptghAnmHnWv>KgqRfZ@ijkEI9`IjF4hCDdoYLZaI&$XTM
z-I|eBss0eT&H5V<8@eCgXfnOvG>c>=y{xECEYQtLRx`+*CtH~5X`DzU5a(QDd~e2k
zYk1Q)AbQ9zj*n=1uz3igWN;Jy+Tr$%Ka?gR5Lz}(GG9Uv?w^sUs!BuED8tnmWYEz#
zd1~)rvm9j<m_-U&&7Zwg5n9UVSMs#sdEU<V7)%(4I|>`1s3pB>j2>GspzS%mXj7SN
zsA$$A_l0%xG*b?UE(P{A+B)Y_6+l+2uu(m^syi{H8NlD@W<ABrpkM<^N>8Oo&mh%s
zix#ht80%FZE5QjnmjyaH^B67X>gp<TuCNI;+m={nJDRc|fO!?pTZ^&TdRYdz@0sx2
zUVn&IeNhL}rY}`>tNr(1YFDpqI5U!b3fL->b_Q(3Lr8vSXpI~`KEN~a@K<L)1pciH
zksO80Pzjz{=GsliU^L=O<JrN%8P|fn-~x%Lub}o6&h$LK-`V6zacQAc^h=xWqcw)e
z+hX*U$)(=o)r*+#+K`GR@c^iU{+PWc1jPDUssUw)DmX7mp;B<vnQP8!e;pv@dRj}@
zJ~L%wXe~(c*sBI}C<!)?d@qjtAg>45(}v<k@<Tf(W&C8B*$X+#q=>B3m%Zo(`7)gt
zM{ZB2+8ug^zN~ujUem404wMKWcIA2UY}=i@pn1H*%~*TlIvzWB(jhmjZ@v@&X6M!c
zSU{>+CXWNWc4HgSsnkvP*tojNr^!My(~7bJ!Q&3DMCSO{HF{69+C0c97QDsdXS-9j
zf80r4O|EP)nbMW(iMk0RNCNn{w8od5dJgr$$@G<n)2y+<eyo6NCHm|%d5xp#3tr!t
zB3f-ofKtj-CG#4@QVn88g_(ObKvTw_4>)+sCo-&eeSJ#<Q7N381NjN{T3+0&Lp$jU
zx4!C2W&nZN!iSF@-t~f&9>`Q;rW)PJct3(it2g2d|NdvN*H%$WMr+%LG3dXc?Aal7
z7jupH;2fE*uj1Qle>IErJDVi9XiTxEWpwL^s_nbTB3n{C*?W&Gx$4KSLAJ>v0}AWf
zQu)@T!c#f`e8&@{DjjrQD2i4#zce<Y&@Lk#5vdXlDYSJWPr(B@KfR(97<EYWh5t@&
znX9CCdT^@Uq>U|}rN3km!Y1TX)2Ha8p8b7sr^8afsygPMoG8c04}(7LcQU}n^ouX}
zUOFgOV72Ee)oE}3<sZp%Cq-wD3xr%rj?B7|QgNS~3YJthRXtT_(50pxeEV&qf|>lj
zibecDsRl$k^4A%<YL}|y3*2$f^A-6fazS|+1G=`%NMJ%(X{_f2U19m{q)!yn4B@V9
zgqCUqeA88E2PStf?kVZ{X*x$EZ+Eh$(QS-1J@w8jgOjcDe_eyhpE96d0IP`Fn7m`P
z%I<2)RqbS|YQNti`1N=z^4%CbIX(~a_p4c;9uFvIOMmMrzUcdFdE))fDy}&?v*dzh
zt;$D2s@FkasRNXMi{MwP`9zq>`i8@>WbQx*A%FZV?W!5@F(`&E<2SZvp%#%yi5&Du
z;p)Yp<BJl$jvcY2l+=`W0hM^vJVDj2&39!4wRe9qcjL82d@i0zLrY4Vi@TYL{+3~y
z?K@Jq6~+cQS$tv-9pGI$dL)S#HD~QELfI}@B71BvHb24QG?O`rb)^@7sQRB4_BhOY
zxQ%wpwj5uL<P6cqxN}>BC9&1(eLC`jld$NFY`afYRNO-*#+>HmKwo~rtDk~L{y+B;
ziaVG>lK&Zma<KkyG4p@sf5EIw3nw}(2F3qb6W+=V`yb$1TDjq~?@^dp;F#pi9W33f
zSczF!S$NVCaN)5a*tl3Y(-LN&serL9km~sBNR09c`<g}4fqh%QqkNn_ei=FaGIL4;
z8|rGs@SxMp7f#sMEo${~rdHlnnBjSu_4xt*d%?2p^OXT~lk<%cmW^pFW(-aCl@MFk
zf`??}gerg#7nBwBO@kVl9+(-M9tandEZ2su27Z%C6)c1CbZ7??Kz!H!aRNetk|<}8
zqkwU!L-2td{=Nda%mx7vf&vUcIXOX~@$i0t2z}FFATs$`O+3O0ki^IUkhXkfxc~xz
zoPP}eh?R4Hd?98t=D=6q-n=rtd67^Wpn3GNKnXyigd;FV3CFFV8o|qgr>aCyW`0~m
zsLUV(x#4Q-+dDcMK(2mk_X4L=`yb^&JZvK{g%J<ITmax1;Qplu%3$lk-!id~p}6_R
z=2!PEq6BuJ&d|KUAj*L`O*o@{kluq!efWn60rlXEM;IXEam3+0v6$bSMqr<6_#k}n
zA3fLKJYO3LO#_DEffg1<K2rI?rA@&Uz5VM*5Xz~VMuDEf=^(<;55S!;VLoi;NB&tv
zD|=}6P~1;UUKC=65;zc1wofV{Y&J_<sR;P!=%%e3d>vp%V5-h|pFWtKBeF|CYyM}P
z()>D(8PvZHstchs+Y1nY$L%+AeJy~w<uxa)t&*&=B)BPwPFnGv2(Jw0NX7y-2&8pw
zb@i2-2b7o!WOQIM3i!ko7*<Ml%0%(u$ifb7=qOc7)(e&iHM+762JscVe+A|S4oW;-
zO>B50g!vPzyt)Q@yljCIKr=eO4tg}kr;bqniYIonv$hVNKLcei1OVB%$pZ@Ei1JP1
zUmBgfnSHNdHjK;A{P(ebC*AkRIy=`w_hw}f^iKATLGB&{cfoFNUBP{SHYR%BeyCo0
zifDx|fF`Cs_f#iFpis9zIbe-|ADMxxyzcxDORH1RpQ(I^FaR5j@XO*Sl-;JC#jN4w
z&kWh^O2SXi^v~7N&-&*NUP5DK&X%Efdk^BbkavDpQ_hJH)~o{{RG3N(6(I*X{D)%+
z>Puicir5ustM%VzF)k7?3ybPn+xXG)XPI$+nUL5O(>5Yw$&lb7&o;ojr2zm^9`L&g
zc!LMR#)r4@bDB?PX#u}Q!#F$fE(aN;xCmsE<w*~m0>%?Ub0LGAULrh-8wWpQLvwNU
zW)bif9uvp+=;HN`?}LO1$Ajdry@Ap9PE+^PB!>g>dTF2a9=Y~GYomln3_vOe(f7e?
zWd%w6K`Iw}BGM3hX}>~NL91AmBGA`slwihRj$uXKFmh3nmG1r{$^V1A84f}psd<Uw
zgJ?EUK^&<8MfE{6W2qp_SA0d40ssC7@&AwH{15VleJ92cs03qU{T`BEmktJ;vip4*
zz^M5nyH-#LgUR<p5+G@Pj=&DS7D!JFjA;8o{Sn~$@iza_vx5)%OcM|~>AC;m0YO~7
zG#o@koI|jKzN-6?Zf*6KyS&Pqf8Fw}I{pz=w6dS<0|0=-2wSpM`BbIK@Uy^#`_E;*
zHqr1`L#El+{3%Q5#-9QBMo}P^l0iNe*0KYz_3Iy0$F~eTN1ZQe;5h@Zr!!wjA^(hD
zBMV+voK8uK?#}=bmU6}u5ejbS6cLJdVKY$Jsw+2fHxO(1`UOGotYGPjj0{lLhmOg$
zm<H|!$cq9g1~@fweRXj#{J_AzbJqst1%<ss{5VGuw6E$A<Si;ANdZscuWt=sW`@4w
zAA210;4^c`8bf=PUdF%~NZqbFKAWt+V`DB_P!K>fvev&u5K_KX^Z-_`N^P!U18$&e
zdOsd~&OgndZC@%*4rS=rryb9Z(z6wxGxD`!g}zZZ@0_)wRoNmyH!ybd2)@^NaAl%u
zB?hFU&kMSkXq?rz8DP5z)65kz4C3lnJZLcQ(<`{Bj=)dAY^IOE5W>?Tq{}y7(9e3i
zMfLRTU$JlRUj=k;La#NBLd1WdM-j~Zq3kGsnW$mUKQ~Cmtmb&xCI`cJ-O%rY$@r*6
z&Du+GNQ<5xXR`^pC|0?8^Zl0z8v>OYGfn!3B$)MYE=oza2n6{3Il>76zko=YcZXf$
zh^&vH&(pl)`(0((e`e$m3EZrDUiuPsi~6QWS~y#7nH0bw$vm#OkgYToUmq63Vqcv*
zl@<pR6jWqi{R60*e5SqAtt&r6;-O7ro0}^XM?34vYTPD4x_;`uF_)jITA7b{d6^^F
z(Kow>FTDmlpa8pAaG>Q?9078un?rMuzZ*j#<}=z6DhDxLP<5=bIS4S?Y1Kj?c)5s{
z?8oC$w4ChZqx7xH2=2p}wa-T!>x}%hP^2nsetR5SiASjw*rLyyr@|4vptn@vw$Wk~
zEV`pkr93RZ`O3=i^0HO(C`!$oO%O&5*!vVcPsPx0@&bkS9`{GWaYJs)ni@8E@;3OT
z=IFgL-iKpFCS6Y#fB-MaHJ;W~pB8zpv${B=imY)9XL+nj*RQ<+6T(VDu_@z(X{q4y
ztQOH#R6>aP!Wty&$)pC0pltFSnqR6ZTZU3N@Dl2kd-X5*<GHOKHBnTh6{;M0Oe~v$
zGo`cU<3Oiv_Y%uC*CD2C{|AO1Cqh;O8zhd3^uG?(;*NK^^4$TI;ciHh*Q9)d`sME|
zUDuaOq&=^bLC-m5%@Y1UV3lN_zvA>kJMK7byC}s<Gr8?zj6m0D=!eE9WM)cGs7CS)
z`kUZ1z4iwrCv!0!^7?2w(_^15rb6=}d4oj|LxJU1v{%pZFKo!@{T#_A>W-@#xgt^7
zGdp40Md929P?MRVKxM<@ogs|bj=xh@G`aoh%zAwi+h@xB8xE~K)XOg2`kO8inIx*C
zdn?FpPZZVpVkMEz4sgm5h@G#el%74BvzPE@2yRZui^@`gZ_IbWxg0(s&)8E{i&ED8
z;lNq}Yge^w{E|gv_@y91MZX&+$D@b36lD<V>*nyh#9tZaoHV$hw-pZkDLW0@k37%S
zCs4S5o*W~eC_jjLsAPYgkG`9UG?3=^{#M@T@LOcerQIUGGw<PxfA7kKzxGqMys!<+
zJI>InlB<$S7ZE*d%xicbk2`6O53wl@tN1Sk0B*VDl6c6w8D!$IF%(4?d|@TUC;;7*
zbVzfqpIV6>7#qU#mw!txnK4msEIokdUhTXXAu^e*k_(%L^moDxxgj0Ib*}`hGX=t~
z;KCHV7+SeGU}CjxG+m`Z;iUs0)ZSSpK%=|oVEP9KaDbg~_ak51oR9ljj|LKqmkp%X
zi2gOfHK8xehWkU(>*TsQ$#$3Qx9e&ytxW!JIK!g(qJ=@#q=5Su{o}xdJXHsY_pg+u
zP3@rOIh(MtNxCoD_r!S`>nr0B6))WN%(@kxgbuxdj~!EjONoj%p=Qb08fDyT3mLlK
zi$F!`L~op`N8Wg455>2GMj@U!g(e`{I0(laUaxu0P=;1N{3gpI+L431NU**Pq|W3u
zWpKU)z6Yqo5(y+v|Kvs|k*bNGcaGNlYqq3!sRoXO2dJ&ZFAkewTSy_}DfM%3+g2y_
zR+5s{%&d>^U5|2lde|_i@X+7%^L^|GJ>u4actg41OG6Jy7+P&|hJGt;Zn(fwPvbVq
z<4WGPXU>3<T8@3e&ONX4Aqa)%RajAT4wfY`Mo7rJj)y35H_BVKOt(gfM84{Hmh{x7
z)fj>dvw254<og!I!u?72^}_js1TVQdNsx~HjmINN!#B1WhbAP@F!6&KUL~$G!FaE>
z-G1QvyBuY1s{w*@I6WrS#yK!B>}fB}^Rf2U!ZV1kdr9(_QDy7c?t4k4_`k}mpVwcr
z817OgoeB!qe52V1Rwn-blk`bCx3Bpxm^$li{;-~$Oa|SE!NZi^H-R6;ySaV0+?IT-
zsRA;K`@I{g{!I6!p6DSQ<%4Gt<Szu@yzf^M8HGNBh4mn)f5gK^&8LClGrPK*$))N(
zX<(?actZS?cEOF%A#)LwB2k-haxY?!qqPpJ4UvER6t+=U$BIn6Eaf)_sLct<UlcQR
z-8?=0{x-*Ca5MPnEqL}-ivfSTJZ>l!JS>l$+QfMfA?Mvw)ogq(4P!*65<7Hs<hZui
zptcf$-635-#M`Gj&Kd%rqemuM(t5DrH~(6RnNIPAW8Yq@R<5OMFo|RIML2PfS&B@j
zu1zY7G9_5zuw5X8smw%)4qe=M?Pcl+&qf7)>u0Q<{g&U2lqw{x34-W1R^4FaImgzY
zSY8fbdM`u9NKn%fgZM&!IAY{qOZJOr^&-SdGZ!uGfLtq^>JbEz$LDNw?wl}%J_Gyl
zdN|8v{P?VJR7)fImZ@^)IQ5T1_YD7#KU@z$|ER2No6Vev`)HqL(l2&@I8-k0dzk3E
zMV>XfjFdCI#LsFAaYu&5Mia+*kO0-MN%V%=Pw+*@-Dzn#V{9(C5Pn$LmZ1GGYKO{7
zjh78>M>p9XjY)x?^UJhh3<U*<1;~?(6`}Whw_8q+#&OOWd2m_O#GbMQn5q$_-3X~(
zN=hPSos78SQ-g7_X$BvRnrD`;!|`uYnP<)1C3z!@#Tkas(lAt2SgGU7XDn3cEGh5B
zE{V>LRtiGm@WA$(>>Z9t?5Mn$!w8O~9<nqN$|Nz(Tyo%%%^Y_T@*q_6x}hH9%l1UM
zbvoCkv6HzO<Xu&H$KwfKQrwEm3=Kua3pbg1X&#*$Qx|3oit<$E;d~$>Fw)w3r;G-t
zGsyqPR+Ieds~uo5m3^{=pVsT4&^v>(ztDG+r}IqTca<x<a9`!OB4x(<O_)Y_{SGF6
z!%xI(90V-eHHFiqi_Y=%2~BB(Q^FIZiG0#g!03F=GAbk9R(08-rje%iGySjH(4E45
zk@&1}E|s6bE9r{+0fF{G2qu2e<a_;!*YiBcWXT%S|MC~D-~&_MpDRwYb!fSQ%NUOR
z(EjB<f;k1GnOxsO-J#GTo7dWi>SC($+EGTr@xS#q+5YuUNYAz58owtPWM#}fL@|So
zwWRYUYliySVoo5Zwr)9TQOh(J99GD_UnV9Gnu_I?qpLRpb){lYvV41X%<*8MKT{gR
za1Qag@OL6yq)*O=UtsW0+UsIGH90cHwrG$eTR%+VDZ(Ut88p=WciLt)zgO(dTQ|Kj
zh&~X>`Lbf=kOS4XCY|%<OS^WE91WsI(V|Y3NuSh-wx*1bLH~vKX3r#a8rsbBLv@i5
z-d*o@&&FBA-TwCRHKwK_CQ7Do9iKunlk51Iio?@CPQ-%M-gAo6iL64dRzX878*<iu
zK{dEr<Fj*n^(I>_flK*`Z&}$gQ)Z~JbPkvY;K_|nVtp006-@M?v~QG1f33v&+OiA_
z9v=ksvyAYT-tmvf;pUCp=KLx;TSg5-4QVpMT+Dt%PKPa}HG9k-0-RaWo$n24Gs9+;
zeeHhUs(XVOt__64dk8LiLvA4;IgaJkZeu^I;~+Q+pWI=nOVMDV>0EJ9D{u}OCjf&Z
z)7WVP;S9-NA2qhSV!kxIm;p5<MU`r9nv!Sb4+@aPiO-U)FCD6HC&5pOtAbc7OrzIC
zr@Ui9zh}d(oy0rI4LDMcLgC$0Ons96_&z}I_z5s1PUKD8S)9ZY&~Q8@ecwMwQa+lc
zfe2+n-#`|H|1)0;Zb#H`tmHgSrUZ^$s0wKj?7hW@9wMbOPKCo_(j8&%!Ps7yDniRG
z+uedyuSpCg>v#(_H04I$vzxC2+cv%Pw5<T-SFfUK>KGwH3Q@Z`kIsY3MRbNF3!Ak(
zQ0D0c)eTQz#z^8XbT}!0jR3evyHAzyY7c^divS4@>ZhnH_=YMLz$jqO66kio^p&dK
z5(#>iJ;N9(YYS()qGBdQ2UhL(UvBD1ipPGftiQ~6H9nLM%I2RH@kPCF-hvG!RajtT
z3v*m=3b^Dl>7Zk;zw5=EUr*xHw_+uHYU~<yf^eo^-pw2-qYeAF*=w>hcNJeln$)pB
zeOZF|v3zq*`Skis32q}M9}piq%PMi~17f&c5&~zVB+u~p5!3Af$eRXgWv3@<M%hG>
zcelT+)H)cV;OCYiHcc<;d95d)h;Kvs1ppG_NF{sxVtAznyK}O&`XgMxk+6_L5_Iph
znSx8%BD7HrHBcoY8g2G&^?ofZp*|Fmqif-M$hO!2nA>n;Tfx5$0lXoaOBRnu>XJC#
z8u+s7aGRisI9y5*fKMD&i5f}fs)BcPz{b=6(>jK5n&~&k;EgE}IUR#a>!GSx>c{XY
zHlxRj3@+4FyjXO7FFx8gFKwn2B=c{>qhiE|r@~jNtP5%)M59k26^_#>hB72pIipn@
zIna+RnnZ*?El&#m6Ugq?UM2d;aa9;PFcko%!y8e?a@WXXAhhqdTBF#A-n$|OnKQ!8
z*0f5DyF#PWg-35n@(uys0&5vGfF^QhMv;=TFyPyHZ$LK$P>pNGA+K(J=)+%*rUsXb
z#^!d#+Th-kb~{yZmFZ_g^Lm-%(u-4B(<+0eOkM{Ezkaci2JRp(vK}k(>iid6ZajM1
zh%Jjl=z=fYZ=g9{xDV-*+>$l7)X{cdy7kF1TgkWUv3f^>*32G2!M$M|Q~=1wdNM&X
zUxuaMc-Qs@SB(j*Gz|6GM|OND^DG}$kB~a-mt#wJqomdPdkN#{($s@3Dt}3wBJ%%=
zI3CyaDeh=u0=_M0@owM{#l;;Z#S9Nrzox0k#~)y^;q096PE=<vc(|U;5_e4o>y$u@
zB3%51+>oYg94xFYk^30)n&A<l>>)4ee%z$?E;2F-WFR+KDI`Ekbx)9wXdFP6^w^@!
z{8kx0UmF_}Hy{Tg{<Z8u?h!<WO|ZdhJ2TrTW-UE-4?MWC`&hr=?k0=IdhrIsqdc?`
z2`)q}@q7H{sk0h-h{wO@X!xQI&ZfyL8yk?EAWgs&GAu4b)>S}d)nRD5QFCkHdgQ28
zv4itw)%oOq8w1CuFOU`E0Mth<_xhPqk4ZhKE;zB%_Aw6#Hd!pSG6<w1U1JKNISw<J
zqL4}S0(F~{i=jC@l82AEujreMi5T&f?&U+#L_`=uNqduUQY^7Xr(6T=4)a#md+Kxj
zN?4DPJ4a7m&1=@RaNPwCScs4t1(QA@TmH<~1Anh;xa>>+ZjUFgNb_scGUdh5sBT2;
z#~|N4vR+Cz_z3gyEM}(nKr6hy-Ng(H@UYJ+0RE|D(u5*TX1<S5p32SaM8!8T;$m0O
z<1*|9Pzll-Mmf(h(Aewf5SqP<9ABEI$~gO=rqN#?c$7@y8H9-Sq8}7d&s+`OabAVy
z5cM(q(S`Qapt#itvt{EACb(HCJznV2Rp>K-hkp?7dZP|wr8p>STF4gX0L#cOkn4Xy
z1m>kEjo_?jdZ?4;M9|ArDI6V}CPpG_m?kGXT`=`;M(B(7+za@(A-1~fwWGY{!$Fse
zXK@{&@p7>DcY6>%p~m@O$1~kRCgHYdQ%dxe@*dcpRf2YB&+EsTyag^Pm-bO^5_rIf
zkaWTztv>hj<=~12VR##HZzz&<L~l=P0Cgnp6$_`WgzR{^Y~3YWP*-+B2%7s7JUv~1
z6?+qG<bN>qg7gjX!C`L_K5W&sjqvf_NH0ykvQXN!qYfm91@g%cH=6xMjuj=lamTrd
ztuTPD+Z*6AID$(xP<ZFj(KF51nqLv<ErCcM6t5&*WJ+e=QcL9;9{<%|C|#lM4BTZs
zMvw#h4Z&c3LjY3HdbLHs8$_P3Wl;Tqbz%R?#ESPkOMVbi#OyyZ5xGsDk;#=<GARP)
zb9?5QV4x*>U{%&qn`329ILTZ7;$69HfM(g#ZHq^-s=Mh<zCnD^{gU>OejWTxM_|9X
z8z1eNFvNQ<XKq5Uxk3geKUyJr4D|n2P^!nS6k&BLQj{4&sfXUmO`oFX=;Vn0_spMs
z%OrPUj!`u|%yviS<aYFT%Z3}7QzW>Kw^r_4&CWiZ`kWj)tnCFu<PdSkw{|VY>u<;>
z7}NN4Sfvf>^LquPw)SjQiTWSGguxbv8*R~MwyJZlJv{mQX)DK-qy=VAPvC0PIJCQ1
zo}XZp*&MZ?jA0uJcX4)jhw74UZq8xbimk!yC7oc|h*ySLD8DNB94UDb!h+$ja{84>
zUB4$wBJs!!410EtUTNMbL@k=}lVb2_5ygmlPg)E!wkI9Flskg9`-2J&JdZ1dLN~&W
z8qpnPV-}QG{5b$WYw6Gi5qKggXDY@R*jQI~i@-WQpum>Zf%{3yc$;>%OcJ6t0Cwvz
zGwFfE=k!JC<o*@`vK|ZIV5hXEDQ-=~j6?z%KcU&7yhO%O`Rh*SK7ro@LGkyqs`O|X
zU5w0cHBid8&;{+tFAJ<KVU_1m_pgM|nsy7W#sSS|Rg&jWzu2emG>}V>&JqcxPo%R#
zZZ6}<1}UQXx49(Q+OTZdWvz9^n&Ho7@}hk8`vEa1&umK`@qE#@B-XNcT=17u{bOO9
zzWT477lFSq$C}OjxwSC_L)3D?uEi>zW0z6EurXfvm0UFz%u*9d>tY6BW0JHy+#Yl0
z4Yt29hLI4Tpe;#dgMfz^8VCn86ELdP!SuRT+;l63w+y$FXcMz4JDFX~bd`{8wX@%D
zd}ZkjxX`1Y_`^--n(|v5iiH0RZRSd3<qom?oj)Yk1%``;@ZR@RU$2{L4nN{Db-Plg
zT&A$9W(_C0(}lYGuCS;*x|s%%e$m;qt@%A0W6S}q`gaS%A%F=~-K(ix|5XE#kf(SV
zNgWNb4+kIJ?NRY4xv4yjc1TV2l{M%oyV_3jy_HD3*FAUwX%hmF*oTPv5LJW<Np8f-
zL*3<b{w(DROm<-`w$^t~|1_IEZ|<smAv8zl?ijppP?u@7m&EX_GrsG|`$Hl7ui6>d
zp@z$egWvo`P6CSH&;@_fqH{z+&1=z0*>K){q-Zo=Qv9w}EZ~n7M=xxn12wfZ{wa7U
zH^;$6ptDz6_Q*-jBAv1GVAS!Ldo*#}&?G=GU)j4zCrqn{ed@Y#<IASVGbyC|yktBv
za>?F9yi>uBgEYV#nVejuX8w*E!a(g=BGu_!BO6=pMh7<1u!Fd44wJ8wyRyYoB22HW
z6T3tVo-IH@o3LoIN9}se7-@<g-p)5BcY7a?j!;+TRDR&0mVQKGb+w<JrO0UgtNu3O
zoRhouFzy6=`MKyfwR=KrO>XBX;;r6=x~ual+r>)nSSfI=A(YG|TZbi~<QQAzGcM@0
z(Hlf<ngOj5T8z^eIdAU0JHyYvi*>QW>Mr^nT6F#Siru^Ir$Z2Ua0!n`48CFQ43?{m
z-Qca4b#<(l@S0nK$m?!`UXCm@wKh>MWvwH54P+y7oQnat)aR_YhJ{{uJIdl$AG3ez
zF;*Z1Z~BsS$HSfLM@*jt4E>v7l4_N~hb3bd)qt_nix0aF#kK0nvI!AD93ZSz-L#(s
zwMR0xU%|(wXhgdbU}|NDAEk{v*1OF4Ca$h#+44|gaKq0GLI_7PsoyMFrJOmU*B4W9
zP?z`OIOq|Ie_F#Y!kK$5<?F8w`PYFc_vQv#mR|TttCrwMn2GBgy{beS;?Z=`)z;sW
zDqxC<tn0!x<m+9{`sSd|A5qeaf9#>IGT_gJx52E;y8LD)@@L-iWXC>30+CQn@y>i2
z&)79pAGXpEl<6N&zkj{$HxgB`ohU)^k%#}4q^5U>tOUY-7=Li`@}zuMaCtla;3yl;
z8h$H|mI`HOsrs|l8;6EOd8UlC4sZq2Qvhwg!C5HV3jiQ#DzHW>n@98??M+>t@}y@@
zSeDf}37k~S+oUxg1IQIhI2W=(7`*?u>C943*4wS-z?0uv#hza@cn<rcoe&*Uw?}AA
zJp$!#7C7b7P*6sXi-~%z`kwHp<dN_d;T=W3?>BiDkY!8&$f9l0R%Eq$w439jFu>me
z;BXfdAJSfrhHs}nw_7EdJIshlAa3d-4wH|r1W>-UaL5%^HaTDyhTpRoKXnxa@d-{9
zOB4zyd7<-suvKW{kj|5yH2X!bJ<KXCKQhA@!22lHxgDg9<P^ETrG>*gPcYQDG+xns
z2BF0(=0E)QbufX0deVFZX?DojGQidQW~2lv5NWPjn>JPyOl86li^+ISu81*6E}w2O
zOXm%O6;~|l@xS)gKdlkMrN)G_{>W&8^q6H2*+5v*sQ4$7VK^<1l>(4ZY59+TjS-Ux
z!E_E<PltvhDUyuprjl7<JTk++BG+m(<D*ani(SHCkY0uV9;z|aaK|9enSq)!zg1pK
zIp8gGnc?3c_z%W{Iq)s<4Rx&%&O$ezydfFMWq~e7=^X64AEfucJ7ZzJWKd%&Ccs2f
zPj6YcFjOkaQX{)wOg$ReU;DAI0K(th6o1kzH1+kv8wavmHoWRg?>m5(Rg@#j+n81Y
z2!-S;Yq`G)*J9y}S<0<{PJp7$<)dNnaolIeoaJL6_MK7n?CXlgbkWpe(MNMvZn@H^
zY}r;Jw5%Lmhjc{dvr`js(hDBpR*o2y^37YEM(dvhR4w<bc>JQ5{=Vi6m4iQT5l@8#
zkh>J|;#=K!oT7~+CAkeo6Sj5k9u8}rp3??_3Z~4J(9;?{+yTm~*TBAqKLxyt8;Pzh
zoD}0KP1{3();uq5q{Uu6(=(Z~vXxVkt`#K{)nOmEwjt2d!g`@0#<WG9|2#%}Zk6r9
z9E}Z>eyqkEQZX+({xou+?NSs{M5n2`7F}5h6-ziKeQJ~(e(fE+7f4dL@3&z7`|v#z
z=bWeqr}u&3{O??Vg8-(Zrjtx3u4J3*P30>nR5uX4tvQtkHet@$@{$%}cwdlAvk5KK
zS0A~lIos5RY97rAYp9voG}?C)=F^(6L_7Q#)k!1$SqLmwYiY>mw^@)$b#D`omQ(a>
z!iv5KJl&j(Xg&_~CNPQ_bmY%bqPOAE<u}^0Sqz(k4)NMMulnx^4&cR_pyx}@n5pn&
z>dbjeakUbr>WB;8n!MJ+5E&lMdp&mU7sMTDv4Z`OQObUQlRb1dzuV(n4%MH`nFd1}
zlI5+l2Fe~Es{zxFU-rQ|&xJm-QrR7#4g_ZldW;Ql2Kg?DoqkhAbsAN`i!AE|!MWhP
zz}GN;bTm5?js##%n^ndroz8n#M#`1s;fLVO{pqq@K8E&Kio;*sN6k!@E?()hJ8noh
z&FD~D@&f$aW{v)?^@Nl(ks0+GV?#;P`%Gga>ndVP1XLM|jFXaUTfAA)>&kA6-V(%W
z`YDpH(HAd4MHy&gg^P;n*%gc0CPGswM>ka!K331)x97kQ@^Q=z;lRgGb?@i|(AB`?
zX#yfLF-s?k>fGN7>Z3qCpHeJ{ff7QlTD`QG%SYvTz&`1*m+M3z>ISe+nry#f6t6kF
zmoO)VVQY_<+~-g8$a&o1g)C2;xA#sokv8(#!?UM){;TdE{Y2-of~J6i0V3m-qBiD#
z7opWv{Kvpy{z;yQ*(pvH>-5=X#TN0&RiSu#(KBB9tppyTPPRAYUud?|{B-blSEc9F
zybm-~)Wtu>vPSIZLMpO9k(By&?W3?%?g*kyY*tn&jlqN>Yu!>rssZ_IbY=3W8J9~o
zq=l|AhKGNT+#8}ktjDY?ZhTURDzI&|OEpXDCGvp~gMqHQpLCPSUsB-uo9lf0@{9>r
zb1G1@gOe&?q~_^g+F}d+qARN{?bnoJ3J8^`r=KDP>V3ql&Lv}{BgCSib`Ac?a06#g
zX(#(uu@4KK4hGE=;fi??Fs>W}^JN|q6ryn*q|MGi-ORAEgbX&$>CX2MvSFlZ%~F+E
zwMrl%zEF{=Kf0MTIdez5H<LDx%qojHuP{4VL<SqKhzMAr*88?W%#(KNpm0Zd{rB%I
ze_4LH&wntO6T?COaHy1m-NCPTqc+c_3m?H`;|N*%qNf2KS&$@hpAGp@LGxKy#>dd!
z%f_0e%9t}zFBg$gnCuZeCGqrkBEgwZO#;B$2=T-;xk-8SCo_u#ABnI9KDbqp(e~%L
zms{fzm}D5U%Jtp)AX398zH%b81e3^g2&j4_PhLks3EDlzGBR}c1_(yDRr4|_3o8Yz
zLsCLEQ+L&y`TFxtk$Cwm%^6wMp~p>g1D^BD2to%%%!|oFj)_@H#>YXN3<Z%a7hT{x
zn!)y3E@;D~6@kBpd07O^PW_MyZ}j;^`Kl&^2mHnJc=U^ZJU4NsNOIEf)YLK>a9}pZ
zmpb-o>E%%ML$5+2aj?4kB%5B+vLJ>k^cATyCyssHXSI9>6^vrKTmthhG9}Nt$oCNr
ziQz=|b_j?xBlNi420pxZ*_j?|-wec&HvA6Vax7K)L4@fLCO<aejoMdd*fAO~pn+qT
zO+g%Zw|7`Ur)0hoRd28r-e0N{bQVstUfPdS-VZ66lo}u#SF^xHI8)Ur?2dkS$x;M^
zI@AnA#%XFqr8S(<K1PEzPv)evJmn=YtorjY%p`yUbQiXZ_3JfTj`t)_{{^(~NI+s0
z1KN%Y9=AK-xx6>X;EdtM3zxN&>#(E+4F{$sy)>@}e68*%G4#@PmPO3s5t2#5>o0(W
z6%5OCH;c2w#fok1$YW$<O1^ShS?H_8S^pVVIDT_EImFG)OyUxn&<nT><{Va!iRX&$
z$ulf?k>uCZv|)A)t>G0Zn*xFjolQqJy~0w=hUuB%A!aNf4F-lZrOeuT;gc6vxJ__9
zRxh?u%+9EIJ-HmO8WyiTYUaU!lfY5`j@9D1mft2ub$WHr=rTK`s2x1qU=L`to!_aL
zd5gU~{gyHwf6d*f-Q~ITzK22mRU!ZlxE3TAhiuY1$+a;Gs(uTAzXpDonB+<#xbj7~
zoAk?4sQC2P?Gx*qiyq-RgNan0M1Hqisn0~#r3`K}BGW6q>Nx(*tCu_+i)h+$<}hU8
zQ$q2djThcTn<Z~n9)`Ez%<DndooSgNoKcUV*miAfTQOXkDW>>G9Z4-C6h>rM*-`&K
zI6Bwav<<+=P~W?&l?IN}=8X|Ypm!rVfgCBxzvL2n-mfhSg=4ziPV_%VbfW}|Z}L6Q
z=#!q(ewdxWRGkzRgb}Dym52DJdEnZIY9$qGBA~wD_Od(0Q#AU{sfM8pYAXS961BZZ
z;f9BC{}Gl@i8v>rF;hI3LnS#5#_u{GrJd8=zWmM1kv5<zHv{gTVObS@+MR-`++DwU
z#{6nU;baZ>e-ySopJua4<>RU`I7qO%^Kf5g$To>UzbE2<>J|07njn{9xIoY%13}Fn
zc2uVoY<KtK`q%&Iu%4EZs(E260RcF8L|r$?9!$A4eN<Ij&F}c`XLs?|wAD74-<U}s
zRx2OS^WJQo&;v4kXqd*%N1sXD#98*1u&H>}7wsoEQzePC?*xSQGo!OgB(Wf5$Th*v
zZ)n(8MmIy&m~iZN01%)m^pGmqOKHRF78N>qDU+U2Ihl`B4$AOXvUSI{471U;(%2lS
z=6=(QQ}R5bjCgI$z3FJ3M=I}+{_9Eu{>TqJiUd(DB>_*fweuq5&h1t<C$sG5c5ydU
zBvG2rG8}t+q@!XjOwa@gUC+d&rMr{o#D>cUejmFc4M}FA42E(bcl#>8!r|EoUwg=*
zQ>jmO4WFd?Yn?LnK;?*SZ_4`VyxBEkf_`v3d|WW`_x}Rr;n2VH^g{c#%r!&oJln+O
zCmI8>+62x-Ek}~Q2Rox}YEw2>w%23X59iog$;@uj+~#C!o}sUvX(ZbgL%qR*rvf{@
z0GLD0KTvUAi_70v0@JpRjg}Z021D@ZNv}eGJlWh4u4mU|qSsF>mL@@851W_1oz6_J
z)WN=4eY(u#8*2C9_CT3=J;vpj9mlqEMjx00nSpefsdQHwyuWb=$^x4b&}&EMx(CUE
zZMP8{iW~w)W^_9Wio6U`*T_T$%WAH6H9U78j&mseV1_6!BcDP2;G5?+c4DZj#>j9K
zri{zAr1!^Y9~~$Y7A1*>gpR`<`GDeikq<7JEV0N9tbU6r=~C>j>n2g?-q0pJ)+e|)
zYQXfgZ;coLMg)n+MI>3(Ng5+13S%%6v!H4tSXAiHEAexkAm7s({3O14QlHgI?WzK6
zjJZKL9B=<ZFH%Z-e+yC{SBSezfn>@iiCyEnH!at8mu~n6bTPQr2VRn#9y*xX(Ra7X
zyX>@hS%DB+mcRN67MGmgxwP9Q^Saj=Gtip1sJ%jm5;p5pvMx|LarnR~<feOcubNgx
zJr!~7*KquF$qP~D_hw~5a$PJ*Lna;6$%dWubg@Ab9f)o{)K6wJoWLjzTN2u(&((dx
z8oi6jm^a~1)FEld5|sg+%3afdoFOuvFGbYY@?+nC;Z%tflSPvx3Dd%L5^py*6Y#fV
z?2UxKE+0`>@g{E|S)TlX0eT_Uh*|py!XfmO#CeE)6G9uB>9P%r#JJp*snyi6ot&0`
zc+221!BY8JdouOuhDcVMYKaKX4*q{L;kWrYQS2qn?Ucq~>sE`6h%3f9BS}*7okWb8
zu5Cjo5O4UCvP}tv4y0ZHwajGE9tcCdRprZ|Dl~&CWua!@c<^!H4<}U1DXu?%u18GB
zU9czeM@M>tpFv77lqBYdv7%$`9sP~DZ|cL^65R$@2o@947!MTv$^f>!JH-A0)_x6b
z42gSC^rhbuU^XJvkw)X$eQ42GII>jjH^+iG)$p1A{C(p-p!2x3*$p;q4IFuo(9@{k
zoqXl`sLQqfl>d#td_i>?eRuAysQZ}>Nz|itYfk9aWLw^UR@m0ThM#s-uGehR;@*F%
z-PV)PjdN+|lDm|LJj7Cb#3jGvFnT2CXI<nm*=(Lyk}jp|aKqMCAVr0#W3hII%06Ns
z?vz-88|T&{!G?YM++cUV0X%7LA)Nzjtz?ec#!1Z}2!LgedijRbEkYP2K`)MJ6trj}
zOhcpe?}|a`2gT$7bbz;yblE&@cC_hEn12rDD>UY1Rs=5bE#tKnV_0qI{YHZP3Ul#Y
zh8)<#a?~Y0In(l`d{957L!U$^uUK|3Z;UNB-Z5amg;IDN(s<m(19lb9+{^fjxnKJJ
ztdIFGbNxaMNptnzXtomw!-K6^H5XG~h-Ht{Uiyb`B2Z(*%JCGXZ_3b>#UzBi3Xog9
zFD@CU&jk-iiHY=0n)!EV#6E9qSfQ45<MVCZ`;a1^1dmjd_}AV5{jx1r86oe$Vvy<K
zp#<ECFGjL2=czkY7Pz$P6VWu$oIItw%!e+@jPk|Nx=Bt{B2r^N4<QWB?Nq{Qor7(J
zs&>tykqh(q7Rt(HLRUBnX7wo9YQ<@JfaFBY*Ws^JLkO$RL{UDu1)G$C#DGfUn)FDp
z3^4u}{n1&)Z`yo&4U(4CysnG!?br^sYHx|pYEM-x`!*&P2hy+37<Y9jqm?S-GDd~j
zOU4z}Rc7+L2w&wW0AHUBj$Dlde*zCjLT)NLR~V9SW*uZgn1%I`v^<RW;%{rnT_p@z
z5O}8k#h|!0++*xtqj-PrI$0CkH#sa=cv5G^mdE7vv(=a&t<({{PM>>%ap`%lKE-rR
z(oUZT2){YG0=WYbi1J!O1RxqPDEmm4(t7vm_)@Kk5x%6#YIwd0-gG)C(iq&em2d`P
zk7kz2Pu}|Zz7EvBG|slWCk}gqE8Q%cTD%I56_(4eqb;^S;*Ojd8ka9jlXB>LPF2p^
ze__Z4Q6=cGRL%R}$%hwu5Mmi2jT`+r>d|A1sF}2y0xqE7F;@8)WB*cEC)H<Uu|sM1
z`*r9qnvU#^^ShnNn$~9^LTq4X`=4CJ3l7`uuvLq=D5!*XXS~QJrRiG=3$CL`M(1g!
zhqffWa1?%mdlVzf`id)x{0K*@GXY(@R{m0sLe@)ea3tOk`y0R=!RzO~u)?$Wj=$>Q
z^h9a549FIC#XzXm7$-mY2GaHUB5<QX2#I!W*cK#ujNs>fs`<-3GxE8k6NhbWAWlOH
z)tPvJoQjzvGSxWek()n3&5+rE^UDPoRv1WlKSn}BjHagJ81dTBuzCW!`d_JIYq=KO
zWm11+vZLgC>DyKdB0A+znxDRaFgSW9se~2E8Hie6G<f8KMzQ<d-vSyqzOAa0+k?Lw
z%ir=#%2V1V{dMpxkyv5uD+5YP?a&{G$e;-J$?~^Vopvkv0Oc?~`r#g84gTM=G;sl!
zIi=^*NE8;%u*n*HWBCEBe8P+!j_6;9XZR$qW}7j7?l77gtE4$YeMCbqueo1!7^X4N
z<G}997DpayHdN$<NGAV{nk!5Rq34O(1b+n(qExoI_^5ghE-7n&Cf-Eq>N06V2>@b|
zd_YppbrVY(uIvQLe@n+CS0i8Xi+kVZbFWhiocKmAP40|a)JcQ;-#uOAov}R{3hvaC
z@I3q)-*qq`+I;*%>QIG>g+U<w|0?9#<7!IR@MJ60Rut7J+LcSUVcoyAOhrW$b%acl
z(a<EhoFb{HESJ*7B{kSNx+-B5O4(8o3f)J!l%|kPX$qkda?ZEU;OJZP`<?wyyLY|c
zdwt&L{r*`yr_Ipz4gWFzbffa&gDy!a50#JE@B8_8m&@lX*z^;YSB-O09jzLimdHFc
zMnoODczR<@u~|aX{5-?1(<b=b(&U`#q>3`l@i|7%)pY%;BrfqM9@NdUKkNh6yl8tf
z;g03uQ<_;9_JD@b(fQr)-Cg9X!fuuP*|z%7kmpeoyUe2l8e-z_-Qe?cW#Q>sq557o
zRT{g^o9U2KJ#wpciOLxVI*!LOB_@R%I<0h@^CJeXUR>aK?ZmSA@&m+=`l<HC5n*)n
zah2ZM4*e!=FRifNf&TJ8HAc@^es#?HMzf|DiMd;EcAT@EyZCVO`VY4Y{0a`PS9|*`
z<P6j5b2%#NG@k9;Ycb$k%kOk^VG>dux2L?suhhT$V`5)Xs#T8ag|zg{Bd$YR>UIRj
z4Le|EY1~)46=+?qqytCV%?b$D_g|^=*1ta@RkVYOY@Nw<-QHh*!-2U_T9KWR<zszq
z#m?OezB?4;8tdnIQ0@`YUQ?;p<87dqW;oBfE+xEs^VnkZb31hZx#8hkKF0!2Uc|2%
z>wC3aYjW-J5`K)%YmH3zk*gmk{5Ec`Pgb$*B1zJv?0>0ki|rrveT>_^US&T`gSh6~
z6T|*odpFm#`ao_+PucAE<ukp0?ALQCm1R$9sTxPCZSv3$H=Jo>zUp<|F`q-e+9^{-
z&LgTnp7+tTN*O3l$Vt6E$!_>kC%#Adbe%)#DQfS$`;VgZ${uI?1slA3ER9o%2<eL3
z@M5Q#vDKqD&)3=8E?0N?Ia%MxtGicUo^e9iGj2gaM%nPH%QFksUjN2tXq?HiU6(cc
zq($O6%nto6H=nN3KJd^uRqMN7rj>-PRsH6yx{AsD>bw0u0mr@GDBn9j>C)75ZgLBL
z&SJ;WbMj5%ZEa;K^317=``?PE_;|FXYhUY-zgi=6DVp+Bw9_YTa(VPfTi5jL!1;82
zl-jt3^J>G^|HSs_TuRwjIInp|hnmJ=ziAV$-g{HMGJ?p))YDC@F#99lPLG^ceylaf
zvM;C3J<ibDAn*q#d-eCe9*cQjtFSYX9ZkI34e5r3^`Y9ol*uN?h@`(&gi1Qw&9qh<
zWg84Q$;ZVGOM7A>)mgIS)xs@ag$G?<_DtB8UE`ga7`)(WQItwhhJmYh`=UNkvR-sj
zL}!q8kkS;R`lM;hv4FyH;kge!ROf2!`yn78Fuc*PyGf)Usnlj3xlgxHCBkK_mD9}~
zdVGAOYTlU{t`+ys*V%cr_k4JDS3NL55*p$);F-KARXwvS?^#kS`2FQcO?xGs2?NvD
znqJ&LIby3bQ#L9w#>n|>OmEaCKStwqP<QO`LhQR;RW?C-wOjh!-)%c?bjigw5!>jS
zdQQ)qoNlRBaPVl>$NQbzRz=J`>|XnN$eLigD}2kAhxNnOEseTzp;i*V-88JT=yk#V
zm;K-SXJ<`%IqJFL!M=v2Ei-T1sGn)D+f^jlblq@FwBzGem2RV->W2nxphvXqT8E#p
zi8Ki?D)N@*x#t_kcDQ*Yv^y-F=y0^T!{$|0d)6=awXG`xN}bB{OZKK!KI2B@zT9x?
zWT?C(+nv|@b^i5sgGRs6TbJzebhMW0ZG5fLK`1MaNobN0Yp8DK{hsxA+x*{#t{dwr
z@3g$f<=@J9!ZgEID%ge1%eUMae`}M~yyo5#`P6EYe+M_Vl#ZO??Yveu^xJE0-exTp
zYZHSq$Ifyj_IB}Uq1v()Ysl`iPeaFNJdNG#uzhH~CV%d^<D34>K+_fWqccvOcu?wX
zx-4fzL-)lweXZBK%=e_6JX4e)y4&*Phw!*rxvPv^R;C5!;ERC6v+zg7HKM+Sm)>vx
zXgd9O)uhVytxGMlik>dr{QbHXV(M8*WlEX+*RWcNzH^1i$-<2e@01UzWiNb?*DBe5
zbIP)ic$s0q-p#!KEr$t7W_zDoO#G1YB0a&h82*+-=cx4lp)MVwCm-@Qm4)pbwzp{H
z(Mh9>ji)B3hdb+5dE=(j<VuaR_D|G4T0Si0T9nR_@tFmEkEVGS&ER%VZ+PZuZ!;(9
zgBf_@xWG80<>#M*8)A~v?j4QU9P%n5q$Yj)X65(%H?D5|HmWP7S{uch(vlTo3pIz?
z&d$zG=5|ht7fWr-#JW-qPw^JnZcp(Z50$^3$;Mw1za9SN^)pU7p+Y?FtAA}O#091_
zCczXRiLXRe@t46#2K<eTlNwiwoy`GG4Ay5!iUv3;V;K0tT4JTxNeAEneMke0JX9r)
zHpdC!Gn}MQeTLw0X<n5$M~7yR$e?$M;H06|VkZ$GC~1}A3x<(W{TlInp5i!xF`57z
z>VP6xK_C=MlL9@QVo({)v8+Hw5sHe)+G@l{hlpT|vOTxNCq+7x&?LiAjBNfLanBGP
zR%jex3@LMK5H~A{;BWWH*!yB7B@xSDQp+ZBl8E4d^p7U-jj>2VG#~*1q!<1WPv$9l
zaBwtWXc9>b>T@ir$6_>ww3=oyl0zB*?Xf6?SQ1e9Uxnwt;EHBRnnMGHr9mqXoiG$q
zQJQ6NN)QZ#k!Uc`Gdl>2JciLMhv8_(tU`!XhGj?;+%$)i0w)}NFH;a8M_>qqXpY1I
zkKm8y04p>|Vhoxchf^r7Xb2Ud6AI9Rvk<$VWc=r`hKFI!NX8tElY+x6OCUi*uQWQv
z5cUEpfHDlx<1yG0nnX&?U=)EN!9W>F3mj7vDb%C?P6m+4g!WjR;|FKVU>u1FoNzdY
zQ~_qp2xK_MBH2N*!~lj&4)j5R&p!AstV-a5vf>1W0uCDF0BR6YqA(beWD)c;I6<Jy
zy@<hK>(KJ!G)ALk#o^E*Qv%PDl<=%Hu12iIlZ-GQxCjKX(|{7h2}wif3ZPsK-Lr(i
z9z)QIK~o>JvKXmND~t&caE~dL*caAea6k&sf&)OHXu(+m6UrcIq4psABE!$%EXOJ0
zgk<xTV-6z(!EkW?5rYIqp!~@Y7|WneAbtQE49S77x23{ABu@+%G!2pj%Bc(mU>T5L
zXqNtOCSNB)vyd1OJ%$l>pJ8~x24et(1X=|^bLbjpI0&@QGxK?5I8p!;h%bgi5D8z6
z|I|8||7W^``;S7`7nCt*Spmu7C}yCH6zEX^#}Rx03hvpjlT*|mFn~a}4V1wxIk<!X
zz@;XTDK1}#9!nA^j^GNRC<I4<0|YO~7;*_(einyxf*gi24num(;xyop09jl?Zi544
z36lD>z5ciCp^y<ACOC#dScfIx8u_|}u!1a!)9BbknPAPaBuNc!otxq?5ZoT1450f}
zaZ#X=QbQSs@`6GJIH|=`vCZ<?@B)JoaH-gnb{s)+@Nx-L0(P(&v*8_>vzA!?UzKGN
eYirew0W16ig8f%|tFk0qwv6heNwfc9ulgU1CARed