From 3257a529ba622d3016aaaf7b9a519db811005c02 Mon Sep 17 00:00:00 2001
From: Cael_Aislinn <cael_aislinn@yahoo.com.au>
Date: Wed, 5 Dec 2012 04:44:42 +1000
Subject: [PATCH 1/2] fixed up the core sampler + gave it a placeholder sprite,
 made geo data actually persist across turfs and ores, cleaned up some new
 xenoarch stuff

Signed-off-by: Cael_Aislinn <cael_aislinn@yahoo.com.au>
---
 code/modules/mining/mine_turfs.dm             |  35 +++--
 code/modules/mining/ores_materials_coins.dm   |  10 +-
 .../research/xenoarchaeology/core_sampler.dm  | 120 +++++++++++-------
 .../modules/research/xenoarchaeology/finds.dm |  23 +---
 .../research/xenoarchaeology/geosample.dm     |  17 ++-
 icons/obj/device.dmi                          | Bin 16615 -> 17186 bytes
 6 files changed, 128 insertions(+), 77 deletions(-)

diff --git a/code/modules/mining/mine_turfs.dm b/code/modules/mining/mine_turfs.dm
index 7285b4628b0..192446d262b 100644
--- a/code/modules/mining/mine_turfs.dm
+++ b/code/modules/mining/mine_turfs.dm
@@ -16,6 +16,7 @@
 	var/spreadChance = 0 //the percentual chance of an ore spreading to the neighbouring tiles
 	var/artifactChance = 0.3	//percent chance to spawn a xenoarchaelogical artifact
 	var/last_act = 0
+	var/datum/geosample/geological_data
 
 /turf/simulated/mineral/Del()
 	return
@@ -54,6 +55,9 @@
 			if (T)
 				T.overlays += image('icons/turf/walls.dmi', "rock_side_e", layer=6)
 
+	src.geological_data = new /datum/geosample
+	src.geological_data.UpdateTurf(src)
+
 	if (mineralName && mineralAmt && spread && spreadChance)
 		if(prob(spreadChance))
 			if(istype(get_step(src, SOUTH), /turf/simulated/mineral/random))
@@ -102,6 +106,9 @@
 			if(M)
 				src = M
 				M.levelupdate()
+				if(!geological_data)
+					src.geological_data = new /datum/geosample
+				src.geological_data.UpdateTurf(src)
 	else if (prob(artifactChance))
 		//spawn a rare, xeno-arch artifact here
 		new/obj/machinery/artifact(src)
@@ -220,6 +227,11 @@
 		usr << "\red You don't have the dexterity to do this!"
 		return
 
+	if (istype(W, /obj/item/device/core_sampler))
+		var/obj/item/device/core_sampler/C = W
+		C.sample_item(src, user)
+		return
+
 	if (istype(W, /obj/item/weapon/pickaxe))
 		var/turf/T = user.loc
 		if (!( istype(T, /turf) ))
@@ -250,27 +262,34 @@
 	if ((src.mineralName != "") && (src.mineralAmt > 0) && (src.mineralAmt < 11))
 		var/i
 		for (i=0;i<mineralAmt;i++)
+			var/obj/item/weapon/ore/O
 			if (src.mineralName == "Uranium")
-				new /obj/item/weapon/ore/uranium(src)
+				O = new /obj/item/weapon/ore/uranium(src)
 			if (src.mineralName == "Iron")
-				new /obj/item/weapon/ore/iron(src)
+				O = new /obj/item/weapon/ore/iron(src)
 			if (src.mineralName == "Gold")
-				new /obj/item/weapon/ore/gold(src)
+				O = new /obj/item/weapon/ore/gold(src)
 			if (src.mineralName == "Silver")
-				new /obj/item/weapon/ore/silver(src)
+				O = new /obj/item/weapon/ore/silver(src)
 			if (src.mineralName == "Plasma")
-				new /obj/item/weapon/ore/plasma(src)
+				O = new /obj/item/weapon/ore/plasma(src)
 			if (src.mineralName == "Diamond")
-				new /obj/item/weapon/ore/diamond(src)
+				O = new /obj/item/weapon/ore/diamond(src)
 			if (src.mineralName == "Archaeo")
 				//spawn strange rocks here
 				//if(prob(10) || delicate)
 				if(prob(50)) //Don't have delicate tools (hand pick/excavation tool) yet, temporarily change to 50% instead of 10% -Mij
-					new /obj/item/weapon/ore/strangerock(src)
+					O = new /obj/item/weapon/ore/strangerock(src)
 				else
 					destroyed = 1
 			if (src.mineralName == "Clown")
-				new /obj/item/weapon/ore/clown(src)
+				O = new /obj/item/weapon/ore/clown(src)
+			if(O)
+				if(!src.geological_data)
+					src.geological_data = new /datum/geosample
+					src.geological_data.UpdateTurf(src)
+				O.geological_data = src.geological_data
+
 	if (prob(src.artifactChance))
 		//spawn a rare, xeno-archaelogical artifact here
 		new /obj/machinery/artifact(src)
diff --git a/code/modules/mining/ores_materials_coins.dm b/code/modules/mining/ores_materials_coins.dm
index 498af8caead..4a7fcc9c732 100644
--- a/code/modules/mining/ores_materials_coins.dm
+++ b/code/modules/mining/ores_materials_coins.dm
@@ -4,6 +4,7 @@
 	name = "Rock"
 	icon = 'icons/obj/mining.dmi'
 	icon_state = "ore"
+	var/datum/geosample/geological_data
 
 
 /obj/item/weapon/ore/uranium
@@ -66,12 +67,19 @@
 	var/obj/inside
 	var/method // 0 = fire, 1+ = acid
 	origin_tech = "materials=5"
-	//unacidable = 1 //This can prevent acid from gooey grey massing
+	//unacidable = 1	//This can prevent acid from gooey grey massing
+						//you should override the acid_act proc anyway
 
 /obj/item/weapon/ore/New()
 	pixel_x = rand(0,16)-8
 	pixel_y = rand(0,8)-8
 
+/obj/item/weapon/ore/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	if(istype(W,/obj/item/device/core_sampler))
+		var/obj/item/device/core_sampler/C = W
+		C.sample_item(src, user)
+	else
+		return ..()
 
 /*****************************Coin********************************/
 
diff --git a/code/modules/research/xenoarchaeology/core_sampler.dm b/code/modules/research/xenoarchaeology/core_sampler.dm
index c9adaf51af1..b123fed02e1 100644
--- a/code/modules/research/xenoarchaeology/core_sampler.dm
+++ b/code/modules/research/xenoarchaeology/core_sampler.dm
@@ -1,18 +1,15 @@
 //device to take core samples from mineral turfs - used for various types of analysis
 
-/obj/item/weapon/storage/samplebag
-	name = "sample bag"
-	desc = "A geological sample bag."
-	icon_state = "evidenceobj"
-	w_class = 1
-	max_w_class = 1
-	max_combined_w_class = 7
-	storage_slots = 7
-
-//////////////////////////////////////////////////////////////////
-
-/turf/simulated/mineral
-	var/datum/geosample/geological_data
+/obj/item/weapon/storage/box/samplebags
+	name = "sample bag box"
+	desc = "A box claiming to contain sample bags."
+	New()
+		for(var/i=0, i<7, i++)
+			var/obj/item/weapon/evidencebag/S = new(src)
+			S.name = "sample bag"
+			S.desc = "a bag for holding research samples."
+		..()
+		return
 
 //////////////////////////////////////////////////////////////////
 
@@ -27,43 +24,76 @@
 	//slot_flags = SLOT_BELT
 	var/sampled_turf = ""
 	var/num_stored_bags = 10
-	var/obj/item/weapon/storage/samplebag/filled_bag
-
-/obj/item/device/core_sampler/attack_hand(var/mob/user)
-	user << "\blue The core sampler is [sampled_turf ? "full" : "empty"], and has [num_stored_bags] sample bag[num_stored_bags != 1] remaining."
-
-/obj/item/device/core_sampler/attackby(obj/item/weapon/W as obj, mob/user as mob)
-	if(istype(W,/obj/item/weapon/storage/samplebag))
-		if(num_stored_bags < 10)
-			del(W)
-			num_stored_bags += 1
-			user << "\blue You insert the sample bag into the core sampler."
-		else
-			user << "\red The core sampler can not fit any more sample bags!"
-	else
-		return ..()
-
-/obj/item/device/core_sampler/proc/sample_turf(var/turf/simulated/mineral/T, var/mob/user as mob)
-	if(filled_bag)
-		user << "\red The core sampler is full!"
-	else if(num_stored_bags < 1)
-		user << "\red The core sampler is out of sample bags!"
-	else
-		filled_bag = new /obj/item/weapon/storage/samplebag(src)
-		icon_state = "sampler1"
-
-		for(var/i=0, i<7, i++)
-			var/obj/item/weapon/rocksliver/R = new(filled_bag)
-			R.source_rock = T.type
-			R.geological_data = T.geological_data
-
-		user << "\blue You take a core sample of the [T]."
+	var/obj/item/weapon/evidencebag/filled_bag
 
 /obj/item/device/core_sampler/examine()
 	if (!( usr ))
 		return
 	if(get_dist(src, usr) < 2)
 		usr << "That's \a [src]."
-		usr << "\blue Used to extract geological core samples - this one is [sampled_turf ? "full" : "empty"], and has [num_stored_bags] sample bag[num_stored_bags != 1] remaining."
+		usr << "\blue Used to extract geological core samples - this one is [sampled_turf ? "full" : "empty"], and has [num_stored_bags] bag[num_stored_bags != 1 ? "s" : ""] remaining."
 	else
 		return ..()
+
+/obj/item/device/core_sampler/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	if(istype(W,/obj/item/weapon/evidencebag))
+		if(num_stored_bags < 10)
+			del(W)
+			num_stored_bags += 1
+			user << "\blue You insert the [W] into the core sampler."
+		else
+			user << "\red The core sampler can not fit any more bags!"
+	else
+		return ..()
+
+/obj/item/device/core_sampler/proc/sample_item(var/item_to_sample, var/mob/user as mob)
+	var/datum/geosample/geo_data
+	if(istype(item_to_sample, /turf/simulated/mineral))
+		var/turf/simulated/mineral/T = item_to_sample
+		geo_data = T.geological_data
+	else if(istype(item_to_sample, /obj/item/weapon/ore))
+		var/obj/item/weapon/ore/O = item_to_sample
+		geo_data = O.geological_data
+
+	if(geo_data)
+		if(filled_bag)
+			user << "\red The core sampler is full!"
+		else if(num_stored_bags < 1)
+			user << "\red The core sampler is out of sample bags!"
+		else
+			//create a new sample bag which we'll fill with rock samples
+			filled_bag = new /obj/item/weapon/evidencebag(src)
+			filled_bag.name = "sample bag"
+			filled_bag.desc = "a bag for holding research samples."
+
+			icon_state = "sampler1"
+			num_stored_bags--
+
+			//put in a rock sliver
+			var/obj/item/weapon/rocksliver/R = new()
+			R.geological_data = geo_data
+			R.loc = filled_bag
+
+			//update the sample bag
+			filled_bag.icon_state = "evidence"
+			var/image/I = image("icon"=R, "layer"=FLOAT_LAYER)
+			filled_bag.underlays += I
+			filled_bag.w_class = 1
+
+			user << "\blue You take a core sample of the [item_to_sample]."
+	else
+		user << "\red You are unable to take a sample of [item_to_sample]."
+
+/obj/item/device/core_sampler/attack_self()
+	if(filled_bag)
+		usr << "\blue You eject the full sample bag."
+		var/success = 0
+		if(istype(src.loc, /mob))
+			var/mob/M = src.loc
+			success = M.put_in_inactive_hand(filled_bag)
+		if(!success)
+			filled_bag.loc = get_turf(src)
+		filled_bag = null
+		icon_state = "sampler0"
+	else
+		usr << "\red The core sampler is empty."
diff --git a/code/modules/research/xenoarchaeology/finds.dm b/code/modules/research/xenoarchaeology/finds.dm
index 4e448e8518e..082f20ebb32 100644
--- a/code/modules/research/xenoarchaeology/finds.dm
+++ b/code/modules/research/xenoarchaeology/finds.dm
@@ -1,4 +1,4 @@
-//original code and idea from Alfie275 (luna) and ISaidNo (goon) - with thanks
+//original code and idea from Alfie275 (luna era) and ISaidNo (goonservers) - with thanks
 
 
 
@@ -11,13 +11,14 @@
 	desc = "It looks extremely delicate."
 	icon = 'mining.dmi'
 	icon_state = "sliver0"	//0-4
+	w_class = 1
 	//item_state = "electronic"
 	var/source_rock = "/turf/simulated/mineral/archaeo"
 	item_state = ""
 	var/datum/geosample/geological_data
 
 /obj/item/weapon/rocksliver/New()
-	icon_state = "sliver[rand(0,4)]"
+	icon_state = "ore2"//"sliver[rand(0,4)]"
 
 
 
@@ -25,10 +26,6 @@
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 // strange rocks
 
-/obj/item/weapon/ore/strangerock
-	var/datum/geosample/geological_data
-	var/source_rock = "/turf/simulated/mineral"
-
 /obj/item/weapon/ore/strangerock/New()
 	..()
 	//var/datum/reagents/r = new/datum/reagents(50)
@@ -66,19 +63,7 @@
 
 	else if(istype(W,/obj/item/device/core_sampler/))
 		var/obj/item/device/core_sampler/S = W
-		if(S.filled_bag)
-			user << "\red The core sampler is full!"
-		else if(S.num_stored_bags < 1)
-			user << "\red The core sampler is out of sample bags!"
-		else
-			S.filled_bag = new /obj/item/weapon/storage/samplebag(S)
-			S.icon_state = "sampler1"
-
-			for(var/i=0, i<7, i++)
-				var/obj/item/weapon/rocksliver/R = new /obj/item/weapon/rocksliver(S.filled_bag)
-				R.source_rock = src.source_rock
-				R.geological_data = src.geological_data
-			user << "\blue You take a core sample of the [src]."
+		S.sample_item(src, user)
 
 /*Code does not work, likely due to removal/change of acid_act proc
 //Strange rocks currently melt to gooey grey w/ acid application (see reactions)
diff --git a/code/modules/research/xenoarchaeology/geosample.dm b/code/modules/research/xenoarchaeology/geosample.dm
index cf45b88b24b..a3d64309464 100644
--- a/code/modules/research/xenoarchaeology/geosample.dm
+++ b/code/modules/research/xenoarchaeology/geosample.dm
@@ -2,20 +2,24 @@
 datum/geosample
 	var/scrambled = 0	//if this sample has been mixed with other samples
 	//
-	var/age_thousand = 1					//age can correspond to different artifacts
+	var/age = 0
+	var/age_thousand = 0					//age can correspond to different artifacts
 	var/age_million = 0
 	var/age_billion = 0
 	var/artifact_id = ""					//id of a nearby artifact, if there is one
 	var/artifact_strength = 0				//proportional to distance
 	var/responsive_reagent = ""				///each reagent corresponds to a different type of find
 	var/reagent_response = ""				//likelihood of there being finds there
+	//
+	var/source_mineral
 
 datum/geosample/New(var/turf/simulated/mineral/container)
 	UpdateTurf(container)
 
 //this function should only be called once. it's here just in case
 datum/geosample/proc/UpdateTurf(var/turf/simulated/mineral/container)
-	src = null
+	source_mineral = container.mineralName
+	age = rand(1,999)
 	switch(container.mineralName)
 		if("Uranium")
 			age_million = rand(1, 704)
@@ -37,6 +41,11 @@ datum/geosample/proc/UpdateTurf(var/turf/simulated/mineral/container)
 			age_thousand = rand(1,999)
 			age_million = rand(1,999)
 			age_billion = rand(10, 13)
-		if("Archaeo")
+		if("Clown")
+			age = rand(-1,-999)
+			age_thousand = rand(-1,-999)
+		/*if("Archaeo")
 			//snowflake
-			age_thousand = rand(1,999)
+			age_thousand = rand(1,999)*/
+		else
+			source_mineral = "Rock"
diff --git a/icons/obj/device.dmi b/icons/obj/device.dmi
index e57a75e0525d6fab528c91ab746f9ba2affc1da8..1104878db8eb2dad919372af91df2a915f8a8b4d 100644
GIT binary patch
literal 17186
zcmch<c|4T=+c$hp2-y{~6QvTP>{%mO%2u*7c11|mEHj8y_6pe*q3pYCBeIj75M$qW
zW1ICkr|<XsJiq(7uj{_A`}ewD_aDQ|Ip_H~Kg;oXAMfKh-sim5(^028!*K=x06I;L
z+xGzgl1X||od%C=NR^v_A5Q!Xj6HALd)PjE{M7TYn=1hLrluM8x@L(nDz-c@-i$9g
z#s3g$ZurGewxXC(dxx>$fPo|Bc0Ha)?|#SJuh#)U_O_$LlfIoUID#-9SiU(Xs=#kz
zEs<}0;v9d;@w-L$)hf}!Y&G{MQ^(faGIlKfkle^X&9kB%Wp5TA4>DfnLKR=0wBGEv
z?5V*Je8jWqmHhO*Sjn4slce~^D!#1AeeppVhYTht=1-f&XGB6gUHbF5Ws>-`k~vb7
zLh+@M&Vs*690k5tsfm4*?=C;Elb-vr>9H0?KFQ-ZD7w*q=6wLm>+VGNl;?ua6C8&u
zAiYQQ7e(K76FZa)>{G>Va!tM3zire*>#CVP_fsRqY!Gujw~f(Bc<t#0wrrtz>cIvk
zTI*X!cf@Y9I2@>|j8KH>d(C{qG~V!BinI$OaMEMX9E1`YpUycLs-)ylPg1#flBHXU
zb!K(E;Y?5w^*bOhO=z1tD=$jr+!xk(cevrbZol${Z|!pxFP11nCsua8h0;?yt8!^R
zg}Lo8w&nJ>x65@I<h&D;zxc^-HB`Lq!6@~f-R&r*>fuM(9362p?N3GC_v3y7&of;5
z>_r&%^9_1puas#kFK+dlWb-u1X1_wdq7i#m6uc&Q|A!T4@a#+fmCDvvCK7X>Ot%KL
zVB^b22`)(QRi(&<H5rQf8Fc{Q12k{nGVo2^Z1DFTwreKhxs5U-4w$@+*vzgNkYAg5
zmRGb0N!Z;nG(E@Y?i|SDsFtb6Dl(Imsf?(vJU(k7d->V58E+po!`qq9j4eHBLf)%)
z-MUQmY;D+3IpGuQwVC9jn8$-X65{WYG@td&V!stxzO%b=vY_L**BiL3V<RjgLct%(
zXd^lH$`YbN#b2ta3|V+8BUo-2%BZ68gh>y$c=2LVB@g(?hF0o3lL{46bETgHriGWl
z2WhhKnfgq7_pQHkYOg~}1`+3&G9WC2XnXW{<GtETXd<Cw$KMuryvq#qB#F1@Na`Rw
zv6`MU(m@ORikh05GJzP0i7FQw;L%VH9WaAl9qOt_9JlZaimN<2_>}m$S69?HGyM={
zk5D^l4EzQ>_3g=E1)893Q}O<Hv78X#&X$A`)Xzj~Z)YqKFIgRcQUsJUP7|Fl+PnTY
z;5gsM+tUp|P`ZM@7O=CF;x^Y6FMM7JUT=4(6ALeeGb<cF33(8%n<C}%n_xFl@%V*d
zq3LYhcBATKl}kLw+qjMC2G043)^B)7Q%Lo+ic<`a>(B)5D>vz7$t7u!tYllkzh35l
z<ciw}7Ij59A^kY;ZP<}WUM0(k3Tv{T0eDGZ=3orgo<qmkU#dze;Wo`xj3m@PlW;wa
zjyPz)A#f*>vDTt@2U`fiA66s1IF<a+kKR4M>9rQBlXmlQBimJ28s;=0R$Mmif_dw|
zO#z^hN0yOJzT489Za=oB>L9>g+;K$KOD!nWgd5G2v_U*lqW`A7jVimdyRC(FOWfB@
zLUV2y32fu+6bZ++p4yra;1>f9;Dg*X9lb1fD=X$l;E8lS`X-P$Kd-tX-KqPD0SQ4P
ziCAQw=gr-f5^EVh^yNDuMDg^k5!L6!UIlE4-7#<fmj^;ahI@+_^IhiKl`b@#ETwc+
zM04M~Tzog0w~qo?V4Gdd%`lw!NLrt_KA8@fff-~9`~gmRC=J#++tT%OJMBe#+)zn=
z%JGTGd->m!jJcM?H=%a+m_*=4uEJfV>+k6}r8M@O9UO8Nzq=;DjObSMABt#jEAAb;
zMVfNbnae2|rIed*LQTuaGo(`yK+weg^7UuKmkqcSBc)LRXLXhE6%vj=xl#fobPx-e
z;5HBXGFZcYIqxxKj8`tdM{ZqOntg6~9knyKUc>K`dc&=~J-pvd%wzfI!36qUVxr@I
z>X?UVHWtDsE<SWfz;4q}^NQm!PRey@zMdOm0u8qwRM=7HEG<h1g4=PN`jSvxbjMcx
zzRvl|vj*5SGRo$0u|^rmk!Q%2y>3G4-m~gehvN~U`rx)SRAPG!8IVvxo_Qt>oVCok
zo!Qvb;9~`!8Z_s6hMZ54gwK|_{PE0-<DC|Ul=`K`#iX(pBdpSgxgT!nwQu?oC7t))
zurHBEb9_7e$WwLWRS$YS9}<NxM2_FPC@agZ8cyFzGTC()PQ`<#aP`h+fCB!(Vn5S@
z(e|<0u{~>kRg0ONPx9Qh=RCv8c)8Hw*3^2{{v>9%-F5xGKS3UY@-Hs4l{kZGJsFXV
z!Dk?%uL9WWfatG&d@jUg<%dHjkw1pqRIeVoop4DxUL8C{ME7++&^{n*dcz`|y|M9x
z6UcMsTU&LosRCE-k@DxW%e*XRWTp*%lB8YX)R!?90CTR5lLSPNH>nEH&{3+U=7V*S
z{rql`;s}#PUOD@?%~pNYi_e9QciVYwmk&3SE1Q}_PNCgaQf<zGo2M^Ljt$UT^sJOM
z7^$<&HI$v2PVDUN7O!C6cyUEE#-)1Q-_@hml1(}^2G`irBL0^4z-_#Y!mR3v{wbZQ
zvm$bGlT=}P$RdvZ6ZO{7AixTHxCxjy6rG_tQ_mA9={9Yi<Z8En79T|@TptrARC{kp
zOhGfkPtABOQvwh6_w|kSf~EtpS9^mTP7sauG*a!YA7Q9QEk3hN${^k?BrK^<izqZ%
zEzr<7ErG0EE&lrTOlx<dzY9M0ivofNv@$giX0Cg#=&jbdAzLeOxXchM5Gw~8e+Med
z1`QjWE8@-WR`Tk)nOV>EAtDwR<m{+q(<Yd)?W_%}_58v=>llV|1JV=&CpK$&_0gM?
zMjpm@0z(Xz5)P%C^DK?QIqH^^K*&K5+nlSq#Xep{qcM%bJ-28Ni=$D7D9PQ{FJBT)
z7R&r?LSe!I_1vC$&prAS&p~1I?K`u^;6edoVP(PIlt#^zdd<rMlSGJ9%1`XBQB=$R
zoo%(*@TTG5Cdy*~*eTv!R^5sw=*)6zXlaEEtr}SJW?*OmWnsQMk>~l@SyUXbftIgK
z&CQ>9+)Q)zk)vX(azhp2I^~pfBPUJ<c;WDY4hY{HG{&zQ7<NjK<b2M#@IKKwJ&`v4
zWPb_rh_*6;O*C^cj7EFOx%3eeU=(Bie43qtf**^j-OHIH`kKxkK4d`o-<@AyJ5XRj
z%&rop?U48G-)H7|zQA<vgBT=6eoy0FiptU5d-?=mrfSkvyr=L`$;iyP2IWSVS5xzA
z>8VWi(>w}DQ~yU*2q2`J{$siq+b`Y_{>-y#rm*_=lH?v$Dq&~GUyd^GC@>3$mv9O;
z#EfXeKH=~jIbT}(?h!v57AD_&*OJ@%Nv%fSuj28RKkTYe$ntdJ@0QW3%PdFrb^!oc
zQ!p9j%o7=6<?}UzY&O>BRnIx_P#1Quq^H!j{obzI@v2ZZ*-MPqRHQ^|Z2l<lep=R$
zCwK@tsstii(>&LQNQ|Fgc_u6sR)o)cv9h-^kP{vQRcv_7A9V2;ofCH4S8jXH{YQH{
z8E~Wc+i9h*ZT5$S(;+;n+eVgAMUc)$bhApey8sSC*?+=|_yH|qNi^H*+-VHNVt$`M
zmbgf_BCe;nwY|p$q@G}$t3{D}Y3w~O;p;ft_9)ed599CW4}OI}K#Kr9!TaaAD>9A?
zF-lSh4&|%hrfzRP`J&akJpcHMYh@;D#2pCmlKywZ1j85v$f-I};>X&rt*w>VbutfE
zx<(yeysKwqw0sDU`FK><z+po6Y=3NoUr}*d5236%2s)Tw4<4laK56Qi-0|HzTE6oU
z)(-y_og>tu5L4eHb1D~Bz)MxY9!u!h?*rMzXt|^A6%hKsjTL5l{Is}IRI+lpuWrf3
zxc!}w?&$;HSF#>UzuIDWp%;aO=3f{H<<Of`o}+Cpfyq+?ACwr*k4{L+Z>){nA%?G;
z@1OGZ9csCSRrqGRqo9bAt~+g)1M>ko75M7IdIz%9-CO9SXC~c{BO(l;o0HX9Zm7m%
zyz^b)(Kc?&rRKD?WlQH>f#Me*VFkp6&UalU=?=;VIJ9~?Y}$Q!aZyu?YE=*lE$$R~
z7II+wa$Se&S;@-mEW0K+KR<8g;~O)cI=-1)ze47$?11&6>|Y(qbsy4>s+NE4yaIWE
z>OZ^ulG8P4XjNkIqo-2<cQ9Fz96DXLhGpN8>&D`m9f;YBjKfZ+4P5DLZ62J%k7D=t
z_MSX{{u~mR7+Ei=V`-UACw{7KC|IBH`EKF_PT|z-a4uF-iR}v90wQ=6ipA~sHT<+4
zJ*y8n%KCC8UupD!{o6_VD|JXebaeZ*AywB<?7Wz%I?@U`eq>7Hh>RQC56y!4kam*s
zak&DxyQ3X50$J<4H=Cz?P*GmaqgMT~{KnM|Q8#qQ-k&qC743YlPBsMnsRX*`$st`O
zk<F>PF%j~`9NvQpNKz77Jt^b1kRtRp9UDg@4hTBgU(Twp=h|QHqXY`f%1^^aYIvfT
z^3_@KaqC9qfmm-GW+`QgF#KVhA_=|=XSVpIb@#4X@e5b9;@Vh278KKpS@gPm^=fk@
zySSKr*SVe#*U4z6{b;@+Z~{5^l0xDH)CYN6!Ru}t08FQj=~aZi;UIdxTM35TrsBU%
z#pF)^3M9km@4$sn#tY=989~C#FBU|_A4>K28MJ&Lbyl$gNc8v=8F=z5#`DS`We#on
zb4h5>sSZ@jYj7K3)G*ZiZOt5inpmOFBypTIqx_E<@Hn{2t6lI&PtUy+%!t!UE-V}M
z4$AART)Tg=92UlpN2|Ypjm@85$ohGNLhyo+Mg=(gkfVp7gT-yLPbE$UOipV2Fsm__
zkSM^k)F$kGTAB-)xlnMTsD;yhs_UhH&eT|4UG4Jq@{$BHKYeO`n+AX_rw~mM;!pl|
zkN0(_&R&s|lRNLI+^>t&Kqhx5LbI~7$>-am)$AX}e|80LatGN5a9p<umH68uCC1!W
z4I_<i#LnJcb1>N&2zsu%Wc&M9X%|x_OXv&4){X}dRDWWF3uoXx4P<9$Q|)FnF0um3
zoVOO)Hl^o@+tsJZf$ejR!P(h@GHE)C2fJVT0HDH~aV>{gAd@sd&zDhzXdNKvf%D5N
z{5y|LlJt{H4*R&_^d>EYDY3=Wva@Afh~ph=^Do7e0GDEbF*ScaF4yfFg@#vDMw^Hh
z)sHu*0wS^q(9+VnuR}Oh^zOS8=3>s}mJ9>lHkaxt)<LZS-bRA+{(fnhzfU*b1bZ~!
z9&!p8P2>$K+fNJ^rjrh>M!GN0bNn=OErikY_E~pp9GoXyt-?9riTKm~Byjh<2?0`a
zb<~z5$C}1#CF!|jGV7rX-CT0sJs&C`oD}!=wZF`OtN2;-r|RS`!kZq#F*LKO3X{)>
zF%%RkT~Lp;rhzt&j^M14TAK7n#IA=*54=@`jqp7-a{cn6I@IY)?(PX#{pdEv%hi_9
z3Aa%qY|Kk}cXt;E0-+setd|+ty<yhSx;e5U(0_dF3mzeTQGHN4$WYUTaDg{65-U$m
ztn~@T=wkD4gASZ!XL9Meyf$&+1!V;%0_M2q-H5RGeE3V!t9}t#_B-S4+Ys=sk9gP|
zAMdAZxb2S^6>%eE`<L>IZGMtEV06~p!h$>Dnn_4)?M=}4WEB<t+{A-E$H!k1LnTpw
zbD2D|3w<=n>Q(L-0Y%VaAY(CN&Ke2iO@q7$<CF3qm<RXohhiqFM3Ik>>_mhG#It?I
zKcErmcEE~0?}yxTLNi^)qa)DW6^{l^P1Smp<Jv)XKd^ShsqC26ST~X8WhgNF^IY}V
zgVQ|0gCv_3dMn6({W{ag$jI@SKiN*Vx^&XgC#8Bk=R~@i!-zIIJg5&a1zA)tN@Pbj
zuokxO!C%ONM~4T)Xi^H@2Mo7yD-2NNh#c_|dcBs7i~omO#Z*KD$-vqF+SinW|H)qe
zH{ju4E_t~_l#g5AAJ=vmTC5HX!`L?9zLPNIHpT0-ZN`Q(DzAU+VFLxF2kyYd-aTY^
zQ8uBjgbyB+|3-<wKG)aV8xJS!X9y@N@=#Dv+(HPkD_fo~K|iDhq@sMMPfG+c&xH3T
z&wkH064@8li8&B+4!@0ff_=eXG`YPJ13|dD77c&%aP(XorUqg&GN2TkDz}uF4!S9M
zV$14$+P92gEPG^PLrPYw`EPM8ykN_#Ifazhsg;oqy#SCQLEd){n!(_eo4H6Cq)E4(
zKc?!;y^^bR4pBne0~0KSo)@{sxGIf;hU>167D52&X<q>#v!LKwUb0@3B;V&tJL|Cd
z&qKM8a8>5Ld(YnC)_9eG4kbbo;INjr3#JDsqZvm#Q(%^q$0iJzRfbmHGo|;*GEp+8
z&hUk|@PE$D6`luIyvtL#amNt5Sh7Bp8`F2PkQF59JUT;^BZ!)Q5&^-k9>qDXOY1f`
zxmLFz@#CO|mu#O+ljvS{FR5`3+D%8a7=*TEq@)Np9M450Z%?_mbKjC|r8uXY2!-9z
z)TC~U;*RM0`c+xciOTR;8l2Zl(*D1Xti=P+R`UZ((cE&esi_-M#Ljm@1G&1q_Cm2c
zO_DV`jv#2>Ln@VJoEP=#3((ka&^>gyg?!H$d~OU&=0{`&dz2XYo4T!*h-{B!SxaQV
zM5*`y_8^%41DIAIn7%BIR6=se?=SU9k02la*q3TIJbKq4=e^MswwycDL?>O-i=D4V
z*|g`2i`jKBnmauR!}2t+TqMd^zd^dT<@@gLUb|O&rpGhwwDO^xaH(zAe!}tk*pnaC
z7PVFm;+NNVeh^fDT^DS*L9_;_zj_%D(w>k1{gaspjW(QXeR(6xS^<pJWKCA9rWU<^
z4RjhKrAZ^w_FKIO1bMbVQ|gILL2cHP)x_qUG~!*vxf8Z)##Zn8AcZbRNjLD{Sc&#q
zvV5`uMZ;rc06ni_L1=%jy**r!`{uLbYbLelfc|_V=*7^2oo;ip2Xw<V;pu*4Rq|7;
zi`!``-9t+f!RC_(^!Aj3NXyB}(rx58fmfK`%Hc@V6>@Cb3b~61k_%oug!kR(Ubl{i
zIoI`VOjBfC+aqh5-4?Ao-I)J<wXbS^<#U$y(&}*8*@@pHW6VS&5nbt|<%GK~*Y=6|
zo2{4jab;_@c_K<cfy?fdCx|BnuaSm(iWvUudG@Oyfu5b0eZunW7*JMI3tMfRo3lxo
z|K66>uNa82YKNf?C&({6*pJERAG}74rTrb78kq?B4b0dB?uM9L`Iy8A*2}KItLk4F
zpovt`8@dwpJ2yddp_Sc(iJAuO8zvwh$kqSe!M_``9)7>9y}LdO_O@m@=13}u&{wT^
zhx0=<+50aiF>X(Zw)m8L#N(;WN4B-x$5rzWabq*Lv~!Bh>pGc{d3y|vxC~=#f;t`5
z_lM-3lzRI$G8cW5+gm9v(uASWo=>Lh*@6B_XQPer@^(*0clT25Kzz(-=S*lQ`DZ-$
zQ|>U15&jSo+~IfEF)*7=8id=8hWX-~W*^(Va*MvN8BM$0P+*cKGc0H>+TK~F(Z;*0
z6X@iv8mHIx^5yvDL)3pyi&vg)1~YChSFT*q{s}P|!Bsw6)G{+POc(|i8E692a@Y3#
zx5&{wBrKmhQd_1xZB~}S;E24mS-5Xz0k=+LTwpw9b@GjEJR?5-;twds$pf>>wtDo^
zR)rqO^gXn(pZFf%-7m6!1(VfZycIgr2{O47tM4H}$Xv)&WQAG;tA@6ArF=kht1i{!
zg&@J%pkZTKxteF}jVDW-T;|^*36~F`#wAVO3mr_p1d6kY%8WiLv4YgEU%$>PDr$RK
z<rrt;^+0SoQy(jQ^(tw;?&3ok+5DHUxpQtO9K8Q531C`}U(j)ioTBGTDI9R|I`+k|
zD~1~1wQq%IY{O6@Bir(5^&-@xQ;qCjMyd7rk3!Ba2ni+()Y3&lBO6)h@HY56XVFt7
z)cm2bdNXJB!T<k7PWdlR<G*$Z`45j1n$L3#(Heb=P}-Go3A8#TeYomdqKbuKe;*l#
zxI^SQHn#AZ8kzdNF5v_v^efW(+s40J9lyV~#8S1q$EH=x5?R_gk8VE=Uf9*!+qyg7
zu5V!x_2$i+SRN`41G+~bwI1B8M$y+zMORcv+)I}q9~6LKR;!!cs*wWYo8FzS)pz%o
zdOiFlTi9ITx^U@ld7VF{p6{QT+`hzSQl?nCm3Y1EH1p-3x#`U`3VxX@aq1<zNscoC
zYhPj$*q#ENN(54pwmFOjuv*mtdsw&+JsnHNN11O}*j!@W^4`cutlsunk{Xs%HYr`i
z#os=ADQ>IE=+1;rj$=x#DA<0SGatx+S0*Zj7Z{nn^e&t&$XE`d+SQ^DYCSKtA-})~
zc-xMA?F78ZIv(eJ{=h>12`@VFq^^ClgZK>>Hps289gN}9AkB!><koe21)C|TKzMHm
z1x?BGeFp;rgUdsA@7{HB2#;-<jeVOSqB^)T5QXSY2wPxS;p+cz-8LKa4E})#a11$B
z?L)fAczE5EXlEt;7(MUP5iP(-CeK|PDiSE~giDuCMCxI7u>#sTF#kZudPA``^gdtd
zmX8eAeRuck-dn$4yG&MH8Cu*I^RBbFDk383qR_Jg<6O~7RSdk@A9MZ;9&M&h4^G(c
ze)Nb;Z<r%vjpgQHE3=gW<EumI3)=xg_dfJ5G>n%!sw!S_%NFOt3#0I7fthzMyqTzN
zp3{Jx!l6<QHY+~p)FZIJQs3wrdy^%*&^5dB`i6!Mer|%&N(O|(QEdJVMZFx9PXKe3
z%cMggLi<h@@nk*$tL8?Wm@u{X>q}SA-h<w;rTg)4-!xP%?uEgx5{)EvnmRo96*S|c
zHT9oqO&0*EK8`qc!kvXQV#CpN{s{rZrl|X2g^0yEgi3q#6i{<YgU9k@D<k&c7xBYd
zjNz#w2m}}{`0jhKk}9ignta_kJDkQ@3|`ws+~NX8PsZ#5f(#zgbcD5v2fH*B?iY6g
z&p3=SaS!=KdT%0EHevqX*tZ(7uJ!>$0{&7`@~HB&*f*`0-EP1hRJ`CfP-2CgpYl}n
zzzP2TAnTFyY)gm(_niU^WIxR7lc|8w$NEBsp{kf;G?q!mDh<)m7Oo%G#-W!#|L&Rx
zSyL=Or~c;&WQ~(DYf;e5CaSje;l@PeUG_w0<+k~?u+d*Qiif@J+?r1JC{ncjc?57#
zlDxvW+r2`QicLb3=16SroqH{1pP?p=^e~4fLHn*pk2Sj|OqNi-M^jDWeG)pqDrq#k
z6DS($!Ps(Ba3_}Eb^BmtfDFuaBoxR|i%bxg+oWqfZ-LQY!9g7hEC_ad=+iEbbktVK
zud-g!fmQGtgZ#H>TKjIIXgrvxvpyy&nd9*Aqmsdmswb;=eVu+t08NQ7o*(rma`*Pt
z#WzBgmGG8&J|gjbxxZq5U$L%OpWyP@GN5xFyMLiqw>c)7Q`}w6>a2NNkwqTW$F_OR
z{xnAUleq|J$<tYtZXFfS)>+`auAc{OGCK`CyfL5fz|*B3cA)4izES6}dtWUdRi5>|
z{)Ft>Zhn%)<F^jdkMhMPc%RZ~OjAG7X7CdMsiX=nsz#LAi+?T@=|y0J1q@t*1tblx
z7hT$xI|_J7=1+Xh29wC;d{%%xuvwB+b~t&l7HWl$NrPir+P9;Hse0-G33Hrg!&Y;+
zhx!Es#&hFK0|l_tHZtv-Gp57!3#(gxaDDs8ZvJIdM@P?&QkLfL26q8(`_QH3LSHKC
z(1D3Gz@{}rDe&f*99_zpi4)7jDOxx4$}Q#~<D+~gc11vio|o^J>#xusmp^}wncR@l
z_*7KRw26A)Ps7tAd<u{sdLlG!Jiyr}G5PwyHy%#&RE8_Tw_r~^h>Du=vwAX~Tl4mQ
z%4MWSpQHBAVA9#C{)*))y!!+a*BI!Vryh2Lio|EuQgPLJe;jsYnBYZ|t%7yCRua08
zx-X~PD=s94*-Mi}*&`z{vdV^GF|>bWBqED~ualA%D{UPd=l?qNi!SB=pR4%K{R&l`
z|95+(>*n7&R@cA2<5!x$(7!mKi@1iRE`3{)4=FtEerDEwSe^MWAeCP!K{*kOOiDL|
zerPps=}>)&0akOB67Y@2mIi_kxo(CQfrRt8BQ7DF9Y3(la5bo>k<*z_@pw>r`RB(N
zOi@1nQ}nTWfX5aW>owy{XN$isKF)Z3_OnuN^2LHnY6#C0GJ3x94E5RPKMw2Qcooy>
z#N5XFFJH)>`m7Xy&uahuN{t4|v^1ugeNtI6xp^O%Fm{r*{q8PX%02N<<1vJl14=IC
zLtc2Sn3eK;sCJ4TW<P^7xnoVBDXTqZz8HZuYwDJ9pCjMP)mF`==T^B1wu{3_|1P0G
z!Tphw!ax9a6Q6K=z}N|w9J)cN#ZVP_BnJ~u!G0>%Vpgm-2-g+0pnWW)0oFX})+rpT
zCoc*N8U~UZqYo!z0fX-cFRls;lL6VEKVNAfw2dJuBs0CTm3nZp)$=&7MH!zhF2&;+
z*b0gWi_K0cwP}?jz5P{taILI7B`asi`N@<Y>r@>g+{{h8jX^0jGJ4N!<ESkiy8-D%
zt!Lf$be>k(&-?WRQ5>TM2_jJKP@Yo;own9sGQGy<&!43PR35d$5+)Y}nmB+(!1aCu
zF}o!g8qGri)Js3UF^aGll2LqqV{}X+nyje_ixE~2681b)8C=hhI8jLba^*2s2Abz*
zfQ1S&n4krWN!O1xV0~(`oY`>sRjfd4)dAJkd2GoI#m9rW$6L)*sfzwmPF-%5D7FVV
z_XZ?UU?T3lwSu;^Uy`JA0_yoCozxX6*Bm8&cSfhLW7PZ3Opggc&dRN=t-ro`2!TE&
z=U#qZ9+l^HxU6T*#V*LbjWGs<%ZG%7gdAMW;NW0vRpmLDvZSTy+TpzTB(hS1PA|qy
zn@kz0Pv}aW+_h|v_Wf!-QCNLR*!o@C6qnAg;Fr6hp((ST(~%fV`2-DZGqe_W0sljq
z`t^(VMtzJIFw}K4`Vgyip^Qwfre>iG@@QV8oct8_fVhN&I|zy6V)@ru>(TRHUXs_A
zIK>zBRdY!7oCnK%G<#=J9kW?HZ0stA*eG<E1u*5eUU)x#=yeK!J9>TgxOjH_gN*xy
ztyL7Sq@?7pYM<i1KDK&v1nsKyKUx6htMpt=U}@JKmv8GT^i(%hh99ysPCMI&SZX*5
zz<3xHh>dLf&eLTOY6tH>z<c12tCMFC+YJv_et!`#J$3A|D4Rim4uxmd)^fzh$7`(n
zP`pd$j*MV?AW(}lBoJRC7Sf7WX7p`GYJFe2<&kqKi#z_5_}r=8`}(X9P!oN8^Y=4O
zhu-9{vqCyE*a$W-u~k?-eFiut%&Da+c;s~Mp}Dv*dl|d?Cgpe_$N<WFEk==eT<SA7
zpdLQ^`<q8iChOxl)6&o%w})YkA=^lzs2w;p5j*N<8og`7Ptz-RS6*Z-j;n+hCZ8{J
z74I!R>}>hyN(^#qEhkaEf`TVFvx>|8YUDq5i=(aQe!R|;c?y8D1z%Qjp9`I2;={*n
zW{4xCr~TbnoWACJA#!p)o|bSVY{lX~bwek3zu4K?ec0N0IA79LY)N@g!VcF>WLjjX
zyCmb~^8nx<3zAP{`>NE>5jy}!+)jbjonGMlc3J|ykw)5dU0u=Sn`{>Fe0*F`y1;Ii
z`}2gNcS45P!m9}FgPRt;PyO%^O1(Btw@e%Kin0<bRh8yDp}TvU#wS#Iu4G5y%S<yc
z6rA(!G@Nr0SVMcMepZUaAvI*yz3DX=p3$wOOqBa>61QG~wz3nhkS_QAsVsxQnfz|I
zZ0HP-40^pUQzcjstz?6Q?%(gH{5Te5m#(4t{S+DQdn(zDL53#mmDtN@)Gy4XD2~|b
zcYLA?9Q|?#k53Q6`*EMT-71yt$EsdV=!2-eK=oge5qCY>dQQHwT_u>V9`r2HFbh|_
zIdO3q@ownKFwDLb@e?;yL%<OAoRncX47=DQj)%~iBq)-5V37?^G|FmhGJxK(c+DWu
z(7|L<4M`v3=;-KZ8m+vzgb7qeDk3x>71r~2>^K6-gg?66aQdn<r(&V-1{^waeN0#O
z)P`R>w^j@f%(G#hJ^-<MVcM+n%p$<!ltMc^vR=zVjh|gaY*vQ9=U{wEry5bS9ay`*
zUaWp92-9sO=GTL|(1<g{Ht?e?FEY|we&dSlVni&~$YTVWc<%%3+=@Z#hJuUUbp{U>
zYZHwS5(?Mz6A5_C#|Po`E9Ykl^;Q^oi5UQwOh1PbZigMne3+lFsDzkRnfFpb_-*oY
zeL1$jorrQm3attJa_u!+!9>>2U!Pk^A*>uydP+Yz@CcH>z7|Kj*L(gh2RtZf-COWG
z^Ty`RDg%_L`oa_fFf%8gpht$y)jDsEjeiP1UD;e9P0umMkf1S1F#WaZU5xZcoIj8O
zFj+&qhcUKdAsYUC=kbmB7}~ni+r=2_7+MdDwnM_#jQ6Xk0J0~On0H?Y%C9Aq_zju7
zA%d8=A87RiB!cK;IaPbGyR3GCXL<}*DG;2I;}?wLi6UaVgwM-5ox5>EJkD-M@|G~6
z?DuFXUgQxAuVY8dMbI(xn!sVRwqdB1#n*>tZ7xE_f`B8BTXz(rIT;b;8h^XykTayh
zg`mMH*AM})ToD=cSHa_dQ_lDwC<1@xGDHM=_3c&AMUIJDhy^TYbi1wIQo^H$bP?!d
zvagWN`%GcE8E_2f!)tN1TO?Qb87@-1FPAZTb|=!0kC}8Tm;zV?)4BgRQeig-k0bMV
z!2sVc^cm*0=LheAB>++jH}SQ7kj-y>MLvdTOy0Smb@sVC@`<UW?=lE0`;^1f)}sX`
z@Z}^K_fL~G>0iwRv1genzeOn}c%?ih_!#kca29{D9J5O|o+OZZxPTd_le=A^!k63t
zs-VvOGx9JEl{vm)gW~dnI~VHYQwZQB4N_eR3fLrPpyOif`Xta+OwaQdw5;r5!A!|&
zj4Q&%Mx}!gd#b}jD39l7M+cStK(cRbz{t&>9e?I^IIJHWBpNG_Y5CODSB|-uE0JyO
zlVqF)A-TS1ZyhY2fTQEUuO-LGgW2@6?@2)^iK~e}k#8sCUjX*Jd742si4dB#{YaNU
zIvW-Wqvv*;%^Ks?JDa+!b_W1rXrT5tZrmvGa(QiSG<QlHx)(Z%`LHr}?XT6K#gv!T
zZ-*RUyeMM>{3#j?qPttZ3n!9cX#ZM)(s^(N*2vdK>%&C9U6Z;H2+k>KWID*L_UkJ*
zoUMj8oBlo|3YJm8Vwg(g%Rjk`|K6O%DZdMAd!H_Rnd|5G+#IB6QIDoQkwOKl{HHd>
zt1(u*=mlRM@;jBT&v5(GKgI?pdt|z#y!t(17rxm0WGg-YZ72hDWESLrsuNUyj1H}y
z3p<j{R5%(x`1!_?H~!R91=ZiLmfw;L5<SElNC>*g-;*ra?IM5uI%H%-(sk$$S1HO}
zV=aKuU~IcHK75#wN{>JI@R$%UjPl|<!flb2R^!37JcsC?Dp}-hT&53V6dpJe{OFLG
zS(}_iIsK!+&Cr6w2vI11=xwrF6nb7>QP0TpcvxRQ{MfWZ4P9`s%5Qv87J(vDQE9J`
z<LBa#X(~_?7QA$+W|L~T#o<`NqS0H$FkWdCzc!=KkTQGZ`C1eS1%o4I96v>Dan{es
z$Vffb!pUtHO1qb+Ar|_@Bi1I;WwUw&<3p0M3Vi3)gVreLaV0vAev;h%&HiC=Y!YYl
z@T8$I#sogTSlrpYM*K4Y&k1=o>|aKfGn;2q*}(qZWD2Bz1>at_?m5KfQ?zv*k}TxK
z5#=!X^7FVj=>KPYgT<SDU1dMFpU34E_c94jl9q&Fx>zn~VN!VI^D}cE5~TM#uKZ<T
z++fY}zL0VCl89%geJRuG-M^OF6XT^6eJjy~EX$Qr=kG%&UKFI_sf~pG04aFUSopWA
zvi}2&{awg~C@^_F*N-!BUtz5EUJaQQP=6VavaJl(XGz=B4+j|uvitI?`ET>EfKM@G
zuaE8BMD9OUfb`{2UKsexZY<zPh=hnoCfcgo7rEyk<<s|2vpGC*ZKv~d1iuS839R6t
zV<^UQ^@EJv&ryxU(reQBU4M9V{=LH#5z1+dAPrmeNe6jZZPfag+5z5FrQPz|2B?Q3
zJ;fCG(nVd|wE-7-XSD>-_{N2&+7ysj<qa32#!)$^cjyJ;j)D&mY77?aZ<i;Yry;w1
zYL}LKfZwhX=J^~fLN@_#l)r9&HH-#ES}v4cJ$GJlHtaX;lMx?1?_GaJ?hmZWAXgJ}
z9<ZK2IuLjjzn5Pf?DvZnnR^#~n2W-5W&icT^Ca*VQW5zW@;)xkdi2w(Tho|+?nAhn
z9G^HYz3Ay>WHlhwvb}mHe6PI>#fDx75t>Gn@oM{GQstvrcwt)fatwcRcX8Omf3-k2
zlypAM51e#`9WFgaU&3+AELWsPfheND%}wPKMLO9TW-lRt36AJ@i$a;X^gKZ#O|1%^
zATR=xe`8_e-$do5#cR%J!ZkbVxigzyZ^HJ5wlVa^i%0bxLz6yz*AOzUq-*{=t#ad~
zHc2w@k01H(C=xREpVd!fW6@*@r~l}jD0*J;nO#Tq3H`aht*D(>k4_`u&1Lz2+~^oy
zx%U5>f8`{><Oe0|em?sehpC(0_~};{5r6qkj}+Fsi_*<~U^3+P`L&$^4xy!Yu`(T-
z@#K_buWnxhlkA_2Ze3nWW+<ia>u2Kr6ERT?ldEgg@P+Hz*j)IUpHER7RVn8C<AQYE
zW6AHYo4<NpzqxTQAHw|y5{G!_;eE+5hT4~tyBTVdrxtRg3zgp-?vXY6yez#BKakS<
z1CH#acx{@@$Vl39R&7KiR>4``R5J6CD3Zgi@}uz;uvT2m5&jT<a5FEwcgMdr@-p(V
z_S5+Jy&h8uJUXkkcEWMrtRfKw6E~MggstbHJRHyWE{-*S-5WC~9vY#|9qZGf60~_;
z>7nE_to^j~<?>G{^PerRn%DL?SLbE<NU$-7+tcZv{3$lk%_~9(N}iF2-q=&SbLVtb
zk;wH8EpzY`*dlUM>iMVhNZxC^j#I3Yi!rB=Tfkel;><)a0+I1ue5Rc7HwJm*;A9$U
zR#VB<{TCBk?_@*&UiQ^7yv%6}2fD~wZkhkr5?DyZ>Q@6LoKpX%l9fN;7#p-o+$g_=
z;=lFse<Fs|ZwP&-5n1>DP)5PaUBSb{u?hccQ*AxAzjW^dC>u|A{@w1_m(IO&lfr=P
zEse<6oxhxM1YHIg_-6SZZFNaJH>dxk-2We&^60Tbi{0VIcop^8OB$g5s{PA@-2MiC
zpKD4xQnATzW{tL*2zcy3osZkb?{5#1#`gD3dHw~Eg@5-fHRAq-3}A%*aI+z|MnrQc
z^;@oUXD{809S**r>x^nt03=@O?USt>jO(sU)ky;qNyH;0QGq}>Le^<N2#?$HQ1;&{
zUr%FcP`pYp<M*<Lsqf++r<RKfKsqY>W(8soe<2Y{eh{tW6_cvvioY4fwmcYLdvcCF
z@QSn}ZJ6rac2Y1*-0HG*otGS0PwugGI8nfx8e72QCjU^4?Gw(5XT<rFDasxZrJ1iM
z9hH1ZpqiWm6g!K9wE*^=y<h)O+1U_tf-#Ez_BB&}#xIs$;z`xd7d(`6b<$KoMLcO<
zQg3>lk@ML?o1EPneGm<~ec_)isFs-cgEc)^a4ZOH^2@NFe2Y5a9w__kvlkCi5&SDb
zV^Z}X*5XrieRFW=k6T(NB=@mL)NQ6bseVNA9!Vz(deWtxm0X3U`k<(G7mFe`b}lc{
z)2`_aCNof74+?NWtCCTMmaV+n%|}wLS%aQJ6lDJg0wvAcH2Gc7JtEW(JG4#UH2AZD
zO-$fk9+Th_C)Y#AUJidBs&X+ycGH1u98U%k4i%G%OTjp@ze%?7>=8?o;fWfY*zyrK
zed-r2f{)UwbPq4yjlgbJJL?>IrK{sDNdo^RX;=nz9$PBwbR!kG-&HIsE|qn|Scb15
zEkBJHR}Sss=x=*~sl%^0zZ6)(Rb=(S_3rIWtV28u8n+P>5kUqFkB)xwS|8P(PAq2F
zOTCmu&&%$%9O6s=iac^TMv3d^_g6pG_S!LrmzJ*kA3m7`)72lHr?32E5IYHb2ymoK
zF6=xWElAokGBaEE4*r@POV%+N^L<0g7@^c`EJMjZSiD8f*SyVuDctqXk4oA+GNOr$
z-*ihrHa0ePR)B>SWJdniug$Fy7$}@BkNW5S1z{klJxuooJ3ITY+NvKV!ok5gY$msy
z1Mi`o6O>-!k|$vcL=+|3Y~g4xtzrSYZR`J|=TN#6D&5j){_UBXN8{e`vzgrVE?>S`
zGIB=cy-jZPeOXZk%3^c+74g5f=s~yi*@ICg$kVia_K~L?9cFCKz^?{>X;F*Xg#(9d
z5;$do;Itzx2VAC*z5p^|5_hVehQVN{Y=My9w7Kb*e8hGN@T8|Js#9fxvs@;8y;k5{
zs(ivlZF!S%e{n0fC|KjZm$^BYX|-#i#P?4A`Ej|Q;sKz%;^j9vZ@yw(-V8}T3lb^`
zdhgKk0g9@Rz$%Vw2Fel^)9CK5Mb}{ll>UJ|?F9!J;L&uwY_hc5v|V}x8`Q>s%x?@9
z*ubpl;j__XR6V`sal#LKrA2D1zgDKwO-;4<+snkwgM*dHT!#Di@9SAwZh4vf@#%`Y
z-bUm}n--i!oK79d;GHxyHFxXG|7Ze>JJ>!u9R$7WqkKLZgbrnB(xC$3S0YyKg6{=b
z_E$yT;Q|x!Ui<fniT;~Gz#jpj?=5=%LUpm@3zCu}ZpXl1xA-7t9kKw`2*LlIxcBA$
z4;6<RxAjeAO-=U>&paM0TD^tJeiup!HlXoC4?N5v|I3SiVP)XJib_oiauhP;@BCE2
zRrL>x2J4l5sj~K66}$68C6DyEwi^9wuPk0%V(u^WRe3HN#zaEH()C1kCB<GBTsW^*
zYXKEC`xL|u4BUk>0`BiC96T&TA&3oqbs48=NCcn`{_U{b4J8a__p|TuDn1iDO?y5{
zJ7weTl&el*%m;O4NiZ9E)4bl72~5VkFj-e6k@@ZTMK!hKeb`$LA$k4KZ~LaULznia
z=G&s)E%m0f$2vF7KGgv9KodYqQ6Ibh@<9bwj~x}%<e&QMj&T7;Q$C-J_@96kl)?8`
z^5fo-RX9r<oRJE}oz_D<tSb&!-(2)Rlt^;(Ew=oA?8RS9hA&-a!{f7HxNX$CQOfme
z9-T5=^p87Y`N1Y`Z9mBhA_u^CBY>D~n_kZcrioKv_To$aw19f_kKu406>ClEHwG?c
z4$Q7_-~*;#^^uZqiI@_=zo=B{Epq0rR_KWukpw$8K)iv~Rk3<3bCb1A<=jh=+de;9
zR46$jEG_w*^GHyO>?)+Gmp<Iq$Iq|!Mk$!51w!bTVtF)t#yaB8KN(1ba^aoFiddG?
z!JE`LFK7f98rY4~YiNTV7%j5kEGHuVB<Ls$@PumT>JCG2y)knUFBzR?BA`z0dkah-
zMj*GirJP3#cI6Nt>eCipWMO4p+j{Q1*u_%qhz6R5zdVRCjv)u6d1aZA8+(i0m#<v;
zUQ=qTZ}O03FGTfBX5X7P@3WMdUZHgZSNQoYlbYW$)AGn0uN?Bq`-<f#qGL<AGgr1V
zI`$$6#0UbxOfy3<FrX1J<poN;rQD_?Ma*2)?hop#)`x|K-S_tP?#}=<(h6s2Xg)Kl
zYEWn3aKXqcmyH>Kjy~R3?zZh$B{QvdIhD=8$~j&VLu51YU8t<A7(N~2#kg7hb^Ln@
zsw*uWiX30($6%Mci{UJb(wuH^VI<MX6*)D+;@>$bEVkD91if;7{4LK@^%x#CQ2w8)
zBlPy|+ozx;6x5quo=4&qp%&sx+0Cz5u3o$L-qLqAEH-h!nFboltfJj4B%}^^ZeUi)
zNQgf%4t4V!36l3wo~rX<FnvUhZcl)rk75Wr7<~6^`NAfPuXD7dj;yEO;l}F*|0AjA
zAP0e_{)8yg&zQ?MF)o9?O3Y*F-ZkSAWsh3uCGF%;P`f<OOFRzO?|u4p$DM9@IlQq4
zWP$|zHi8T|+(w}m8Z7A=taMUkm@uY)f=K^c^cniP4rGsNMIAs@>6FUy%0O0^ua?#s
zfbYuVv#Aje;@($KH_h|Q^<^l5^Vr)<w^sg9D&~2aue&Xkh~<->8~D?)m_tsm0(?Km
ze?82=%=t;o`=^Iw+WrueO-jCO+_YaX`=(Lxi&sRXG(zS*>`pdnV;d<13($|KsTuI~
zqXpiB)!Ta`R|GF!ykadN-QGE`lUrU&?dmQYyWnr)_ob-lj)Q|ke};nZj#XY|1_!Y6
z``gx+kdTA!y?si;>8DDR=d|`Y8LjA6u-ix<&gxpW`!y$pTNJs65i1m*Nq<;%{;}mB
zho>r&LGcNCWBhDTel90qZw{w0ujCW(Ytl};Il`*JAmi3e<)x6xt|BHF0KD-3-pTgW
zBuoQo2;~#Tn>J(?OcT-@nrv2y46j6xD@5e0ZA6`S#1r-CNbkujDdQBJPc4S#w`+O(
zPNJT1dTq4<?-`v2KDBPSPSvtAD+Waapn#&X^WjduQSsHG!nLq-Meuw-$jMcN%yA)(
z_th~GyO$4BJ1JD|hJIx;CpEn_za*E1ZXQ(r5=SYhsq$CIQfl3Dx1%SO6|Lem60`uF
z38P^He36@N;PV|4x#4H<rJIQ#m8$T!Wh4Qsa>*t4%b=?rAeZ*p`W+kkk(A<UFUokO
z=K5A1oYQx!->*TlJ(Q=#)*nay@xQmP-I3BfeNNfIr!<@7SA|Mnh)iV6-U3~h{I@&k
zGmI)!ueJYGdj20JIsT2{6ih6EauzQ7aJ%8IKU|q|E&*>?9R3JV!RQIdf+*Vcek9Ml
z!L*|dRHqES=QPTC_C^`$A$gVZ6`DbLG3r7!5iqz(`D$O+B&tg*crjz{w*BV^ABb)U
zEGJk94LebfIv=braEEIABsVvAzO<dEW$h(CCQf&i)(0WMv_iJZ41f;7z`xOYKq&|u
zIomR25czj_Z&SoY@Ous5B2Y6v`*cG`SJ&v0p;2991Pcp`1Mw^=!Q>7HqST4AGl^5B
z3o%k?sqf&qCmnIe_J1onCn{Z>m;6Y(Zg$>?5qx}$9(*JZe1z`$dd#Jwk?S#gi+z2(
z$0;G-*CD{kKBWyP#B^1MT$<fNs+ABU9}#Cx69aBd!b*^t*4Sm52?B*92hOGo=`?Z`
zXaY4!1$)AFppNq|`8>;#$q|tfkoOl<Tt4{e6#=mVxoBQq-i};`$?;xFFQ{_$N^?t5
z46MCUc|8kHIF+Y)ys*&WR%qni3_{bYJB8}I9erE`#c|)OLxwv#PAzBNOTP^AnnZ{_
z>*Ac&<bKkCY?{X=y6ql9WwQ1%^i?{p62Cso@2_@)0ZrhW_l!3NiuuC(-hRFd0UG=c
z?yGb>A(pGpdBna@>l2Np1fKjBBfrc$C#5^s&+fXP#IEx0l6LdYG`UijNh$l}@!;&~
zU1B-f-yWlIxUPNRbaIzy^7URd%9i2rH^@PVGj8`AgPB?n_JM~)xX6B@GlSU@TLYc~
zySTH<Rdq%-0ND4bakAVtuRc!kR*l!|>@a_k{Zafkp<+p#*{l6UlDMPI_YewjM)XLB
zBK$YTgb^1?P_{+{m5Z5xX}z)kud6oGutsB#UpEk64@>Of1K`vnz(6Cp#qi@+07<3S
zjlThQTE*2>wAOp`D^9HrfkCfIl_!tf#^5Etj{wTcKfQEW&K1BCGL&|tl~p-$rb8)8
z75E5F9E|#qXc~+BxD-cRue8B^p<51WWL^lz%JQw__hd6+W?Q^c1*@`r!pSJWYOyQ6
z3Y0H@F)FqMf)xA@jn{-kZ@-LXhbyEpO29))_PRk01Ug@(!v-0`rE&oW7PO@hy=D%U
zj8`Xk3s+o1@*z83q`p*wy7n($z8E4-NOaj9PN5G61<i{~OPEw4Y3Z>F53x`90WH4e
zASWPz4){yk4wTG(PP}Ja2;fx7v6E*GGgvlIkH!!9CJ1yP-AL;!E8^*V+!-e#BImQo
zmQnfcXMTd?1?#(+N8nw7l)}=4Bw3f_xb?F&h$t&WycJP91ke7^2A>qtosq=<E93EJ
z-gNlDa?p*OLZ&sLk4!5KGr%h(8>v{s>kmKSijYQ*FI(NlX2oTm0v~vxqGnNyjsCBT
zN%}p+@7r7eWoziGq>GHn{>?{g{(XGAeGfQLvPryMOa|sg=4%YmXI4HUh>jPzAQ;}~
zhNprG(_qynsj%gMTZNRsHP;WZLt?4(98<L;#=Kx6TpaGK?CrlJ8KbAT?#!;m=zDJ+
zMKsZ*=gq>q&WhL0_O@;n@7+AVDij*~NX>{Yub|)__)rqf%1UEFLC>!=H=V0i!bUGE
zRWzO>^uOjC-l*;5x&><LE*)$G3TAllHzImSzYD-{v=hfpXT|i}8T^R_Tqq;6{fZ*x
zxeoe~m9*`iq?p>%*#=|zToO(TkKYOhyze`&saj*D-%=v4SUVdtt4hURTN<B`fJwbI
z6^ZT=E^dNpllqY?|GeymrKu^$;B%%**jus=2C0Y2VRb0iYRYd8;628V>G*)lAVUJI
zx)VfdS^bFkBQhXIC(Wrt^W@PXs8r%FeFK(%mPncRA6J<?Na0EBO343|BKqf1C<5Xx
Xm$lh~9)t%R7oe%8bGt~zD&+qG+M3v(

literal 16615
zcmd74cT`h-*Cu@Ey$A|Q3kZseh=>SC34#cU6s6aIh)PG44oO6cC{mQ7bP+_Q_f9Ax
z3PLE-OXwX!2_^kI=>4o`-kDkRKJ)!GYY8iyoL}2#muv5R9U~3(wK-S?SOEawxT$mf
zE&$MEf<H)RM)1mNa-|3O$5eo^`P1u;PaM3QJfAvwxC4M+YMN=6`^SsiYOO}*>j{Ol
zVkR=yre92z%8R)5Ho5cVuLv0MZ0!ZUc%#ABj#LEt_7xn~rcFo`QW=qNtjH$lhF6Ec
zofo8`bI})Wc}cUDbkBUg;hm2s%p5<iC1#5hT(zCiIp>wd?IdJE&taQ^Ju`Ig=Y7HZ
z*%ng`+JVB_Jn~Poxc%Qq`U@SgjgQkj6}w12zpCAGpIE2yI<tmTU?5FG@Vb)~?U?Oa
z%wy}E<}g($j>7H`hMb$p`GI+|dgIbYMVG4yo+n%FBP>58=0#RN6{<RM`sUlq%SEim
zYaaeq)bFN>Qw;?>JCZ$XrMll<5InB(Mx{$Q_DW3lu1anPk3epRr<g)^ZoJ4F40CO<
zDC)@5w*qAZG5dbTuo9={vfW^}N9znf&+aG)5jl6SBOv%0M$?YrudHKd9P}8{%QDTh
z6Yq27Gv-{CXM2%T$;rQ&ee%4jAmMCpYPqdC-Ro~VUbWpn=ro-44(dYrSafxHZr;R<
zOo>@zJA@W9&IG?V)vVIVR&p|REyyiUog4YeBe{0hCH9u+=~FS&wwF78NYc#(7pqjc
z1ii!Ld}4opeuUmQoipvu3eCH?(<H5Nq=B?;+v2{dE6QgJ8uG2;qH4UN0|1BuH?Lna
z_Dfw)3k*6s|6w2D!f^L?OpocSNcxi@jK$Vj$2bjV=3h&k5xwW2;w|OHp+)C+^yrVR
z*UjRVHD|my?D|c!PtwNe`uFm3(?^HC;^v-9d>x65&tzn`OWTj>y8XcSq3=VVhYKT}
zSR#I|Os=eKC+%UWGRi;Q|H1b=rlyP<%wpf%3wau7L%B6(cr|I}o?bnbXA1tI6J&n|
zdH3$!d`m9yp2v(SQ_Nza%+t=Qa^z_)L@Y2Bt-N6ve(GnLeD}2H6dFM(Yh62*s_Yhj
z`N1}Af08cZ=>b{ReO!?Rc+izR-y@I<tt3laVHQx|_RolqKbm^go3+5IiV-Mx9$*DL
zSAL&$oP?65x!xQTEB9*F?fc%o*kxouBuAsNg0Pb+fZ}C>!45FB=z#rESF-L60CK*`
zQvCH2Iez$6Uy^)L5Y`q@FJh$LB1mrq%7N=Tq0?0Xr29neO<?o8pvTnqeCKfm_tg8l
z`myj5IFB;DYlu;VL7r)W3gy0Kg>x96wB^*82TE&oupmL;&HJ^{3O0u^2|p4|Q@sM_
zdcaVjNWUeyl;iLx9U^O<44(AtYN^Z61=3t&v<Si(6(B%fAPz(cD(H_Ey9?_hc8>v5
z6+^bI;ohq~jW)`c-A0cVHS8sOU3O={z1nS;YYpe%t+grGWGbK`FDRh4jzhiXUZ7Qk
zuRc|e;1s@$VM~%RfO7!vj4ZIS!Mzi{bO2#8SmDOy`u)|)A^V|18vwxTknl&I=OpnJ
zu;X9c-lMKUm{dRQyV-s`@ZCFT7{lkf67=@+;(XzkAi=mJS95Y`fJ=J_E>V_O$wOz9
zua(7oqr(q190&lJ<d4sns(u*Ui^-(Hp{PXE=chHBo3UbwUUSSh&XeWR*CtK;sjnvj
zOCBvjdOm0}b((JHXh{jrepi)f*!nKmQNFi6dba3Qv~VXKaP;WxPst49(GO-9{BFMS
z%`_$SPNCkybxBBUchO9bnB(I9-ZO{eBgJ_sn<FRU)rR|z=GszAvyB}I{6J~0njTa(
z!FzS^=C+HEPvv^EdjiaiW69n`T1QxI`=F@HQjlX@8S0x-X1y+BTh5#zpNasGqfZtu
z27O~T7P=a$FzH8UpoY)B>@s*hBIvR{0!MiE{Rw9&tYN2fn5qi*!9`udM!{enFO7;2
z6R(P<N9#*E>enH{*HJ%zrK^s4^c%q8jje&USf}0%Cgj?hYkMHJK~f?pAGexEv+gxL
zEvxwp7k+yyOY7ZT!ztno`wykOxAnXsaT9Rj`b8JX&wF)*{fIpKAp3yYb$IW55?Q>n
zQ}vV8v{}X`qku0QCZx;=nEw_+o_ji4<r48yGor;yU@H*oxvVe*4cv2e+FKi`rc#Jo
z%}kJk`h~?stI}38A|_+4r6{911f6(!%fIci3$6BRYoa07*oo_=gxvw;chc!$*Tgr;
z$uFCqGdWDAcx26^5rs-IgHOwR8Yd}dy_T4_^L$AsNtf76#-_X0$E3G>t2Y9lt`2ep
z?yYSN<J~Ar;xXP|RDC&vv5i(EvdIkO8PZB}dm~y+^B6KXMNQL0wZ{STP(1+~^k8P)
zS5%mIC73ZnN?3I-I2_&4FTG3GRO;B7Jw9&D1blW8U0F80R{=h`&#)Y}MG-zLI?Ecb
zQ-@aJj85whg1OYbmj|R#SDDvvGQXLdvMOBMcJex<i(Z+`L*)FQ&4PM;%3t!JR~uqa
z94tt#Xv%8Qz_~4@-s1y}2Q+O#z;NEHO38Sj4wh?NqcWNF6OC4=II%|l=^o>dL=4>U
ztby@g35_8&{(9bj_x7&GXgN#D6}P*z`V+j;3JOE)VTPzefu5R(wm~Fd2O2#v-cb0G
zm5nSCEblgI{NDY+4lnsNrORdL97UnZqiS3xBZ79ycaaG&Vr4ZnHh+=c5Gd7!G{qxo
zop`UDmdG@~PTmq7TW3OIu?=SL(fZVOtE!V_jgyy9waZ0czp|dvO(M9FV-E#f_7Hso
zTv66<({6dpqp|sSNJwmm-FWrmzRCIqbtNS3>Cpn=%ucA|wm@dR(7V^gBxK-2sO#uA
zB-TX_R_|AGcKTri^bwGD)w^T17IFu-F=6$@{6=ty@xu4Yq2_#Bb5KT|%H?*-&+M=%
z%jkSxU#i)V&ib~;ZBN+#Ak%C4t+3_gO8k6jphGxJDu^Wf^s~RizHR(@8`j0159Z*5
z0`|j7Z`3`Pnx;E5z4Kufg|x)@LkXpi{klJ^o*@A5`XGJ~EFC~m+OQs;=*3(J5I%eM
ztY?jN$LdF;bXwpM!?$AlR*5o=AI^v-wmZ7FZV6pT>YR0Fifb7xuu6dXFD|~eP=*r3
z(J}%`!1Xu_81@L#va8fo+~axN{Cx7_saD60R3$(_vjC6Zc?74_ql3Em&I3~$aZ+gI
zg5ry=)RZKQAqk@AHr}{0UFYE%WK&a_G9z<!7ty-cnVp?I^&vu}<zQ=et4EUyKYp~<
zz$<y12~fZUl{vXrP~VSQ_LHx<sGmA@iZi$Wtd@o}Gr-6t!VV}to}u4!9e?Hi-X`H=
znZHNlvTV_N?J1mgI0mDn-hfS+$9}xSR^DIaPT-lx_FvQ!hMN*(Dj!YD>2YQ}VB?$W
z`+O&{1`98-W=XGu;n=O(L!OTBX5ner0pdP3B5#^B^!=<+tc5XsQfC;MxG#n6Y`vr%
zBU14Vwb2fVV|lkS<So~yqfux{XBe<J>`$+cGN*1H5eJH%*j-v#jmr;#KZe)redNs2
z{dmJdMD5wZ903pTO}|}ToW-D{D!;|Od&dm?Xk0l*$`nW%sq^Bk<!m(bm#<@#AYOX)
zQssNsrXXkL6DSFp0h7K^HTQP9A#k6wdWSAwi8dFOPc>5*NB(4BP$UnSiP*sBmF3Ji
z$b0zqDB)LMzn;r6%`u^)%?w2g*6p9$(I0%=edajAl^}t9`a4}YB8IguAsMZ0)UWD%
zt&1-T0N6KBOcjuP8sN6mF3g_jxU#ZR{HXWj?+Vw*Z(6Sm&CC|J;6u&(0rkliblaOl
z17fnWy~d~y63aaw=q~m32X6$~&Aa*4<B4+OJ-NXU*D&l)Ppr6%RCLoa|0+|IJY63o
zm|{`(K&jSy^>ogsPxnB->B%X)QZ<<KX>VL<zn){&Z{}NMtO%DZ7z)~}AJ1n0{%u^J
zvC$GwaY44w9N*q)rvaWU0-Bb!5fRokeM?lk*MYVGm%HD^`zVDfj(VvnqUjJ4^!uEm
zHB6zXVkIyf7B=iz2JLhy)Xv`+uJx7**xz`KX{cpJ?sa1~!d<u*E~nOC-nn|5&_*yw
zRs6ud>cnV_HbCI;^TNJhSji5J)!*LP33iX;{R-(H_tl7fuEoWrugfwf^W?jUFpiu(
z)~{k~kZev@I$ETR)K9w_wp!#-KYvq0lj|KJJY8|fHc;C7LeeR&93$Q(W+6|^hke|$
zu6N4onWxMo`(?UiA~H?oGQC`mv!!G$RbetRGO#~D&xo_Rv@@uP$KyF~%lYKem62ZY
z%lOa-(zpCH*mHtkuq4&e>TIy=k37u4r?r2T%%V-#HhOCY&t8@D+KD+4Lz@Z9#|Rd1
z$LHE-_qz&{L&&BW7wI?T2exS5Nce<&=9@P>)9AfJfuzF;PHW>eyuOqEl7sn{VKmPf
z?Yq93bf~2D^?7b3AJrA%xQ$Yz=3A5r9Y*Q$hiH))?)Vh=?|y>g!+wYZoF|38o?HIz
zql0ZaV4*wh)%Ld6uQX+Tp!mVSxgd*KxT0mIhy_l&2-XF<lC3;J_ss(%2S@(<gf`+$
z*Xc7-QoIeEwY|j8u)OHTCH~c<p%2y7$NN9&wa)!~E9*9T`B&hM-W+)==ADZFrEo5Y
zK7t(_cf^F|Iy1K-^ZGEpS7y-Q9up(CSSYvH^)@9@5dD@g(Y@f-c)@*K9R$XqO~A=e
z?vwO?@3@FOgvHOm(PGz`*$;2lumg^0Fdw1)JA|FVusDL(f`g2Eh2z!u6(;}ZmL6es
zFaW&$UF4$)C7&dRa_{sCtB;I~aPH<!^cbLYPztbd-;AfkGBhijCSf^-0ae&8`$Ibo
z+psSp60jr&>}@bF<-)RIultvA_}&qGbpUwRDMSxoS?T&dJ|$%p7?*s;FJrs5neKiH
z*Dupo^nLm1t@rQWclddG%LAENSuKfa02$YwOkJ^)bNwec-ZhxuJ*%Lga5Pu!&+J_}
zx=DtXmM=>jzGs$x?J!jU2V_C*01m+`w*{`a-D}#f_|&QWWm@C#5YAp+UJ_0N+(1+6
zwI{MZzmCr{_i&zUh6XNK0O}NLS&C)^Ck@co*B5$VFySW-WF};8zuL3fqH<Z%(ITr}
z*=paq#R{tSHeo3~7XU1knZ1o7PyCTa{f<YV6%)|((?m0#``~^%XW8W=>lv!J^IqYk
zJo^p{N6Gt1R1lU{Tf?{j#ivWLJQ_au!$o2@M4(}U3EVIEQ6^M`4Nd%;H(9A9hH=T~
z1Gt;|M&Zyxwa^rgMy33OET|XRjQ^;ef6|3Y;*-7gR<5uxU`+-JI4;U?nI*fwa7D~^
zx2vY2e%qpi)FxXi<2K|;jzRbW0+op)6ZGV*^IkN-75(=iYk7qsd5*ek7!=GOCX%QW
zfcvcElDiGFF+_SpDKCCyovgOLFh)k!k#PLY@=rdkQy{EtVeznqIg0pe`B<{HoiD#i
zFJ)c|p0yU5SacBC<&){85yGRQ$IIio|550*n4vq$wjA@7iYi=1^6>J~0PnT54n7nc
zo;Y;)Z`<=mv@;_kBf%@&;1?pR4!ID|B<e~Ctr#VbjrC*}X=@4A7*x|L`-nk*13EK_
z=d!f7+R@HF*h!-BbefUq4}b8w2&X!zv@{2}YR_e{=D`Jp5zI=b%!D$<D{~+T_C4*-
z22NMk)?PhtS<dY3?X7eB_H`SZw05Em6J~YGdGE-h>v*dwzL|`nTKSa+-A7>*MI7A*
z#J)RIhy_^yieh{5#cpm+4$E#8k2Sm(E=8f%(k@j#^JNG^U_11dt{&LV53GqB5|;Uw
zlbi<gPh9oga3#iMzzGfmkju#KYFgh4<=L+{`qrI9iX`<^Xmc{)ac~cbn;KqTm%irZ
zZJ~XM)BIc>#lN%=_lZLlYR}ict}b&uN79u0ZQau@wwlTy-OpH9Y_XIAjR!#Saca+I
ztxw{6Ar|mDUrNc+khhGY#)}m5I)45`^OgH+>Rj34|GD}9=N{wsG*u;$e{)37w0}#X
zA&fBFK>Bd#X};0_tQtQZa4eMP^*k3r$35#c$?kNW2%}?F44m+~?{b9{`SA?8v-2&S
z(4TQqR`y6(SeO_>@`O5ksp{Yu3vh)!aFFIejb-!sX+2MBf>b5`Sng1Od4*;cw2}NF
zwg+E@Ykvlnkuj*9PqaEr?Ev*_*Pb19W)34=|1GmoXV9_U$53bMul0kg=@tUjR;07d
zg~H63Wv?ngnyv%E$(Lz>pmA=MesYl7cv?sz1UP-AzQ~rVz&kU8;z|0@hq8NCUg;TM
zte%Yt08K~Qs*)bC_MPwskiyD7p~k$Itm*DL)1nB+Y*oBjJ+Gb;LrYZsD57l9AxX0t
zoOZR*0tQ944O8q6X(ar-w|eaEpLwUbW#j=uSF0hQl%{`HPR{5=QDLF!r?IWDsxg@e
z8*l_|w<Lri-?D<0iXB#d6g`ORhwQ=;b81(9=T;3=eNm0=*|o*Vn2VCfB859}jtC29
z0`?7DmQr7@vW#EM7z)Bxj=8gaIooXr*wj8{$;rt%uKa-gT;A8Hpx;N=Ha(8-<!id{
zRWCk2eXvRS{;|t#tWr!~e!zjkE2*DpR%F|uFS^{A=Se|>3#U=+z=e%h-jI<Cfe`FO
zsG8Fdjnl?HahJs51ra>=zJ@o-mx|SnIkJ+(Md;G-1?K1GbigtIEs&j)W54!J_EXXA
zizp$LCkx#bzftzXWt@u-&~F>YD&1P~4<#L_6+;2Ph^-13yD_Q$i;sFltzAvR0!12G
za;S>#ktp|3DL+cD(CvEK+rAl$>KkL7C2regl?SV41?>vL%J%|z&#Z0^H$ES}a;EbN
zRSdZK)!Y0x{qeZb?|f8rjPVRU{L)8zRWMV#dS|(0V%~dru-O^~J>0ln(3Tc}e7Y_Z
zG>IyL%@)t5Anvv9QFEZ-q@9JXCqEXErd4?3_mtaZ)Z#s%SRu8f)m0h*JlI{0rMJS$
zAwgGz<~A+L{bYg6!2OL|%p=oDHMO4vK5wzB?lQW<zsh%DR3jI1^POmGYWv+fICbC+
zwMGsYL>?Jxyw;ApAgoHe8S#=_NuW8%e{KWEUg})6PlCDB8DRU4h`VmnHGS}qsbOj?
zX#QeQHS?oQTy5v+qe+^AjU~5N)Xs(6poN;Pds1U0s%vob!*rOj4R6^z6LO$S?b&P$
zm?fF%Vl*KV5#{G6<VBT&>Lb=QI3d92&!3CO&F<cv@tnl?9UaXxlW`@kTESD)?>ker
z#FMS&A@N}@Mn+paNEe!VdeLTm>fFPvyIU%496;n1qLGo2>R@yCI`m`($6X^MF>Q)&
z+m2^<_qOk&=Sc#Mi0!LU?@0Nl;HpA3e)PWNE%%IN>du1pBZgHU<Ry9Pp8Q5|b`csE
zGdc3oG;!>i$0)2B!7el<7mQ!ws65b0KuqNz+E)}BoYk2NPG%}2lTS;WY3{!)CMIE_
zc>lqJd$ZqP1BbBEet%;kQTZ@2TUkYv>oZE8I(2p(izJ@;ozHpX5HLWZU;|XzybNL;
z8n=h4Z{t)gRPsM&+DJ-A<L-|G!zHZBsJ09=k-*DIWvfO9G)&B!`D*wvbNSalbdn66
z?@Uq#V|`FJ&By?$A_(uLt*;;byCKjQXxf;lbK42T(&K&^K*=RDT;HVkIm#WOke_h9
z(b2`KI#SD3u^(deO?yvdN}-aH+Am<ZfrY~@VYwC$;sE5E_iPDHOo=kr7E>jcVy>ZT
zc|#N;xFFx_{dd?A1{@Pn<zP~vV_;CF8g#PFfZ6FjO2QuX+gwSxIEbZ@LU0i>Zw#dz
z-$kb=pdTM>+WS$%c+}LHK`1W4^7H4<&xM8GYX=|3+IR<_nT)+dlsb2==Zle~6$sK4
z0v||kAIGNdgcg9lr|m$KLr|KXDYmtDsZu$pp3Dx>Sj#EB2W#3#3@WKEsel+2<I0YS
zGF}b+92?lovdznbel)>&n)?CfWjI)aEMvjD4<A-q6*nV4|6c>k|2(p=Z{2PV`Z7mu
z?UQ5J;ZRKprwliNU~n5&-N}mgSO2ITlgPuv6B`?gOoG8j_98@jK?I7Z_c|$Oc59;g
z*Wu{pftFrQ|5VDs;Xr?Xe?_0Q<6wlnbLY;HLAq<2Uuj;8s9M(U4qC;<#XS>I4Y2FW
zzF8^40)jVTN>o%;PE-{8S#fdAWVwgY?Rm!<b#?-G#%{K$DUbbr-6@1hGj{DHe5-?f
z|0VF^j<tcxv&C8;tu0M1d$N&1^X@lZdug;M@DoZoEYXtiJ7Bp+{{@_|z9U0_k*7%~
z-@JrYGo1a7?L_ltWt$`4y2sr02ZiPH^V7-NwN|zw8;Wu7U6yOX`EL|H15F^yC|5sL
zQ|I@!$lIUc>2xQ*$%xaO{}wB@C>jA2vq_oWrY&Y``VnsV(&U=xDE8ApVx3AfDdX%r
znTf&m3!l-?vfZs09#za=&>a+?Bwz9x{*|J@C8*$jT}vzMQbT_JFMDt1!;s|olP5b$
zVBnzY{!MeZ<|6V&jEJ;e^5vgc;?5$vs$3P!lh$z$@88$)DrjwJWg4&GX%gmi9`En$
z5P5w9rGP&AD+zwEQH;jrA$-_urG?z^{;_`h%4zyvva{*Osyx~grLE$ZxBcINvi$-s
zTe@4^f~e?CQ1o7j?~QrKO2&<~AIhfq!*br^WI?Q`C+fld^YK7gh<Z8di2tH8oaC3W
z|DZdS1)p92zFP+;gIF{GkTF&DF>0t_ZXkB&2f}hA#)O@r2b8(6mtatyNnZRi%j|di
z_Gsb6{Tthxn)4nmDAc*tU`K*#`{{d~iPC!nGe>zshUx>b_OVw~P+;=OcXhDqBvs?`
zp!&Fc5ks}GcpN7a-<h39adBIfN8!u|1lesLJ1`>nzW%|A5Z~^mZq#81gAfb9-aq(q
zau7vIgMJ7mb_3%y5?qHH{NX<bmELVX7w)1CAWiZv>Z@LL;p_Prq2!Vsv6FXkgCT*M
zW&y126m<kZmcR1F?y%+3Sp|$P!V(ywT&<sNn;}J1*LGe_QYw;?r@ED~#^3kX#~#N0
ztYW;xvuystD+3?Y%Ng!THV5qDu|b0eH?w7f2~X$84bC5EvSnU-ez7x;F;rOjmu2o$
z`SDPTGL@Jn8Y1cWAoRt#%Y#Tup_E4{f&e3jWz4w&N}CN`>0<_Z4{Bmpq1|G4T1T}t
z-6e>xO!@Z(na|E@={k2E&M69w?!24!$j1*)OFFAfZmX$H&QK<xvaaV6&%=B7ybn&g
z2wVFG=<8baeZN8_C}Zi<1HL|P=}yzJD3zF-Kfx**^S0?ZqksKSg^Stk<jXfpu@dEv
zs2PHorQstWzA7KW-U*_CPmf`ES4ordECr+C3Ch8}aJ#LUw%Py%Y1?{pfh(@>mZ?;o
zt$qCZ^IK(OZ`x#LBJGW609ept;K_n}*)K?EF)u9{N4z#sVXT(%=JA0K%g6Dd1wXGk
zXY;y59yd6Te>p7Ubti4gRH@I#b*<y_A|4tWp;KLp8Hi~7&f=I4Pco?On=U?534F9_
zMg=3wulDGgmiu#Qsts^VS4U*f{CRL}G~<(ny|T8V2Vl`Ac_MSY#T7Lz5L?gNlPt1r
z*<*l+KM;HjlUTX&jRip@p`p}z&BlXEIYePKY@H9{B{`77gob+PDa`rpueNo#AoI5)
zezP=FAj)K%b~J|9m)qQ*=27;6Q7z^f*8?u?W;Pi+-*qq;4i(|P8BJ6<P}8X;mXLk8
z$6%3FO#WK_l$_<awACSpho*k;$(Iq_;!%AY^xQI(5Pn<rX*L<a6B|_Y(=BAEXxNuU
zy`DJmf*k_bM{sdFE4XUR#Fv(83!mWB$to;6vW~F{6yHG0FajzA_myp7gS-avBheLp
zVQ@jut7(;fYujLEA^W0FTzb~+=JlPFGboq+T(w2@bmvmx!ikL04>5s=n>Qm{*A};q
z?>>xAxM^rZADyOrCo%3wDRhph?}*0CtB0%$y3)Me_}fJV)EYMhy4Md;Q3NG*pRgGA
zzjcUTh0kOU^Oq&i$sYfEX_zDBKQC&$s19tN2O(_DkLA3ty!O!9mZj~bTxdEubol1C
z0c0ZC@yo~HF~Q!Gvd!_3SH1JS1_%`*OUc_8b-W=<;_6_6^$;PN$j7gHjEO7Ds6G1l
z)u8Hi`x}Tgye6w?9`?KCMenb;-I21ToW@n><3dV4?63^gSN=N-%a&$;2UDK3&@UUv
zJz&ne*$c6Px6<6--8oYqGYlWgH8Afa&deosc%ISD#Az2IelM*S+fjyENC7Xdp!iOl
zIB_>)VTe8rJNt@1=+pb&HEqNifrH8L`#wf@X{hLNOE||F;<ACB-u>MpQ*jRMn?opa
z*XE^Y2sAq6i&5_fo4Vp?_2n295M{f!C}74{w^#v8(32u*xa##XSl910N*}q4_j&iw
zx9OTCsW+iq7Y3)nrCLT=`XFQQ{(xpj(9J){E+8-$9~4xH(tHjfGF3RVa{}ryBC7Gz
zcC#+fao0z}%P|+JKdc^aBzvW*2J&H1R0G^P(Lkq<!@P3M?eL@PWDsLbjouxjonu!#
z)Sh3kX>8L|$eAHx4ZhvLyX_Gj_Ek@WFJLM5C$1{EeeySUtw0eY907I2(E|>K*#71C
zyXBwg?pj#9Z;j%%+)K*g#4{H&g8hb76D)M&>CBF}HUMDtQ$s6Y1DB%>l0z%xU(W(P
z)bz%VBU6{s8e(w-N&Nu+T$fvd?UIeJ`e6xu9$6@!CbYohYTvxo_}~|DiiH&$uvCJ-
z=q|XEc}eZ@jO4){>0;{DC#N5DcvL~T-%1(`%45o%`s3|Y^%Mf$%R1cX@jre0-IT0*
z4)m-);QV!ndB^358@%;TNzoP4C~Q^fdgqggvGH-6+lHJX&e2`~F9FvK6a2Kh)T@bq
z4F0B5y^=Kj<n#B=4i$KiDN!M57x+D!5(s2s&Lif3SZ%oz_x!T#M?q1Yvwxd1cJ#u1
zfMfRNO@*fUTAJP6hvodoLtszwT7;W+Z{9GSDVh|!j^lmIpGDiW5CgrTgv7@{Ifaxz
z-8NH@qt60M^|<yB>h`Q+>B8~!M>?51Ql?9UpjTp=zqVdoK#4+GqJ-2|9><B@ufp7h
zePig+Q<#u2sj;pWX~M=p+7awsZJ{i@o@SWF&tJYYPpSse!W%bRpPW(!0FlZ=E<hXq
zoe~7pXMHrx0VcAm_$-ig@R&ut>A?#-N<X$yuqUI+^?eR}akYpEH<XZIv63PD4K+eb
zt-}^JNehpDR6=5m(>a!?C!cU1;xh}2NRi+R4m169kEb;PjFT|kR47Yy{mwCA73Vce
ze(WX(e=E&pFv963kN*~e!iA8;7ey1V6&$`tolu066dUV2#U23@Py6)%B=&-J)BFD1
z;Kba;rHirDr?F_ubtWL2h_~}!!?(Y#5$1xb&_6_{xA|A-@b14nbxQIhrOz>Ff1=8s
zsFef@g<3L~_p1)0Ajw4+D*Rus?Yazni+xh&2(K^@;q)a6HXcJ0a??ZdN=vsqnrT12
zy7;X`CgxsCD9dMXjJ&-3wM8hLRNa0=l-#?XA@9pS8SKm8{58)T@#)hC#>*}ng~jBo
zPMJ|i!F@+Ziw$Pu+2YP3Tc+LOV{nh86Z0|Erxm?@jR5;0WPK8UA?6Xs4_Cy+dtF5~
zbgWU<bOH(sK8IGP>?6cEB2!E9A%3J$)t*Uk*m1Lw^jO;)God7}$k!%M;|?9i;A+vw
zd%w?ogvf<B%w*qu6U1YxMjJoY^n5y){$QwTvL&l(QbP%OHF&~sIYyL<e%tMrO4s+?
znvPJr$8Jl;y4|sX(@<Wt2TC44yJ&yi-WT76JHeS5$t!6&%2DTWBixvCs-*lfPUApc
z^nH6@-$gV%;>;rQ7mjWd!79N>9;&Ff{m3|nm3Sdo!-(6%STFTlP(dwikFCe>&2hh6
ze4<`5rBK1r{c@}!5JJOPCmp$eBy&7x;5;=?*_U+}hV^3EH5*wwlp=hu3}NJ~4!h6E
zN_a0|B2&FA({OBHo}WxL``FlIEc3u7lIy^B?nP<}4c3VR6s`Tv%3T*SO(rY@nh#i3
z!BtE3)J771Up*#oBI(&!DAMN95Qf=X{wPG_Q@eg8N83R3>V%IVs7N%}Li1-{09Uy_
z!^(>H#LH01k8KoTh3*yyvu1dvMT;-Z#O^LslLtxAO_FuSVX_**r$83N*tRh<U4XG_
zIle@BxvG)xOmRsee{n*Zf~DSUgV6U=N3cv$<EE-?UQ%N)Ayc!?=aI*z=@~HQQw@MU
ztVbm1NRI+NS#1f(3@D;;>*@z+0|DSPBc1%(=~0Cd+&$vD_^In@@Qul>caL#;2v;J<
z1cwz_NYvw3fW-44x$k}95Yeed;hUdB1C)aZ;+@ncBp-mx&OS{OEH7_nSo=M=a_Je3
z^u^g-x=#n1r$#IPL>xF`zxm?oV*uCw2|5F5w`1(xQ@=={BSHkcj!jx^iHiu#G)ApA
z9D|<gM^OZZOYz#e<QtJ!pkh8p9@9t=;=bXulTaR*D%eOpzW1RP{yFFrHP*gurg7iB
z@wx?pB3%lPIsPnv%{BX7kX}zI>b!TkN1(W+#OZh24zjf>gpZw&GeK*cDGe&UhvPgs
zm^W4U?=Q?&(`;!Y!HN_byeg4>*vZgnY4hY20=pge82>l@i~lao3{Ph&FRwQLs_4g^
zcGc%w&vdIBDu;=T>p#rxXBCX;-sGHQ1wVrq5UzOd3APJh9=Os^O3vJIQl&xXGo9@H
z^DV@Rl1Xz}z7F*ivGXl+`!uHk`q<4DCjQmUtu{7$H+sTy?qT7#zlbQ*vk`a+*Zpz>
zl1SqT)f|snd~>)Mc&0$OW*YZ{U+<1QO=saf?H9HBrB<s93@ga?192q<s|CbE{GFIB
z(2mu1zK!i2&i8Q$?LKUub&R%T?Nlgt*}pnBXKsU$AoEkeYd3kGk@*RnHnUjo4Re~K
zk0kwy5hzbSVR^Xs=I4ll&A__rNl@-TXCuCS`?h5-;+XoR^0i%0Q&UsLSA*Zij(r}q
z55uJR?K6eI!6QJAhX*t}O=ETHy<FkduLiICFt}`&b`<d+9*<&<%X3lN_Vo7F(>Y8`
zL%FjAvBg^=3L3*Sb6Azo0k_y@{g!r3!SjdGL@}d;u2NdS8iOHk>b}+u04QRUaV#w@
zE%x{R;$${M+sN;);Sziv=aL8>6kM8<tfWNoZ4MyU(&;odgxH>IUzly0*9}(#TTq85
zARRnsjJ?`?2px1Uyz0_{{afUZ*=v6Zyz^G}{O3|<k<=lU<Sw%ZvF`ue@%ryH=D$-i
zO@r$;me%J@gj8PWgSE+}&1rkg!q^#bi{L)nqcMgYI*BjOs2uJYRI&LXvU;srR}stA
zj6vSbUjd>#|N4SUK;5W}sJpLVz<$nSW)o)}ClTaX!U=)Za}VCg{40|y<XSY%dZVN!
zHh&3(O~Ag~w=Ta6O8-o;sPLP`9*l${vp;{{1nWXu@2=Rl(8oMhHK{TrTlPR;l({*H
zn61=Q?ejY_FiLcL^}a9U1!^7K*YttrMz}O}v%wb#9gZ|*{#Ke4Yko2t*ya@O1+f9_
zsXvRD1RwKR<kvixcyaaJVx2WshH!)XVhVI)yTb7{BoS^NwZsXQX*(+1RN7KZN$ID9
zcBV*W3wE8goVPTOw6$Tz6caGaimK9mil@5<CHEfsMOtC+2ab+mWsfG{2xU<z(qy5|
z859aQ9QHDFyS?mCS0Nm5&4#HcL!~R2uUalM4RXaDMOFB=!fm1zB#%@oW&Sp4f{HlQ
z7y?Q5vE1D{^fj#(B^eFoNS`c%5I32EZZ%)$GG&WOIy@*YVng9K{bF$39npX5USH8V
z`ez9m8yxpAv+Ib=*rBkwCcu97+?do-4(P=>tsCzz$^G+4V?Zj)7vB6Q{SRvAN{6Fx
zU>oOfb@16h+A}-zpIKDV9oi~*sS<2cgN;~b*_3xn;d;zs5`=$Q?El~P?0-?#|MxWS
z+T#0*_95-n>0brOAMkIXdN+232U<vfb<g0f>h~v!^X3b%^ty3}abg|UH_Tp)546r+
z`|LIsCXh+}McSh<_49#|H5ZXt+}NHY!Wupx6ied1$H|^~CYuoLJkM;XdY-3F<JmN?
z#gDEgpI|0OeiT#5Ge?@I#RzB~pRg=N9U9_y78M})kGu0g5LD6EzW&?yt?pRysasfB
zm`W#87(x9To!_sbEB&i*L^iv>Itb>1bk|U7s1LTDH$DrccnoBP5i5MIPC~=YFQE8*
z5?~%XuWZ19YNmK{FlKFgH4IMJZF-_EHbtI|34L<$WJw)qtFeJ4@|Yjznd`sPfa?d(
zuc1`ohzi*}a<lWZty1!Gj63SXX+`X-DB8G$gs`qWUA;OU1s<}}kLFOv(bc0|^SKzZ
zaB(N7l({Hux(P*RoPyJ?g82eJtIT?I=ZAxYs)K&^JY4#tYcUY8mws2${16)abSycs
ztozqVx)Qvh(btkJ=*rxg^#8ep_hvXG3*5W1cBqs8TNc27QM3PyIPiCf-BRRd-B+)2
zUOs2){o<g_F07`qHWnlZisvw33~vd3rTKaHNZ7ya1EMpOiwCiCe*kT|1=sbge;Lj-
zx<}4Fh-Jz`<h6M{q4f0sF->Lu#}Gfk_LVXx_U|vH9h-ojr<;O@SD!$i`e*JvQutM|
zU+-kamsEI9-`+evWaRx3ocuNZEhD>OxXWOE$pkjWZ(H&dm%84rK#bFtF<g!WN<=6A
z11F^5@jca>Kj~C#Z$7$+)cO4;HT68$(ab8ua}ziJdPL0a4Djh`oMcc6dh_<}9UB{I
zKex58W^uln5xqPX{i8kwuSV=2T5v4=afrzj#r?pcpmJx85^H$V#M)_v1}BEQ`AHDw
zdby~i?YydIe_Uf{)VhZS;0Wde6^{tB<5-*7-mf%mUig87JdQS9Fy*5gP+Z&28@i_I
z8ipBjyn&Z?3Ca7Tp3AwAfq?;<6wJK_Qgib3y&96GHhEIH^{=|3Kxk0-K(PVtqak`n
zw?2({=c9YbD}{RB$~Z5P8%KSTFt;ISnnPf7XEDh)gyIukVoNdK5_AsPY5Z}98?=_;
z`r6;+QjZToO#*cxWj^vA=~{7H#*-&ONl-@8{|ga1e3^*r7sH5M3;$oZEi93Z1`+U&
zcaewRNJw-%!{Le(|BspqmxaIInr+twiizjYTkqu_3fM|&%8S<YWc`B;QNx?deK~Bk
zPnWZ9zipovy%e&+)VJ#d*XzNTrz0N@(#8F?%c^#)@M*b+-A|(+P+RA*N@@LcmB<S=
zwRX#tDv&qH-Vh|Xw>}n;t{QlcxVPR>KbbMKP0x|}WrUnVOp#=?nLf>lo`?MpNC5im
zk14@d$+PV-NpqRUq44@_&ZGX8U~82oQ#LetLwnx<aUEow(lkA!V8|Q32Sf~YLsn1t
z#{U623=$jYS|DIYxUDgm*duJ%qKz(X$UU(VdJ)X5Gk0#kyV&etZ7?94Og^-V?~tE0
zBbTVkoiPDXL&im0@7p`J1Bn&Ib)=J3C_Y?!5{9VoXpzzmdU$gyc$3XeoXfRKu;ATe
z?$y(bV2xyAb9<OW`F6R6XktTLh&9Cz!+HI@r5JaCt+(8Jl>gilbxDKt!z1*TJv2yF
z@#g{C2VCa7+e1dtG}p5@{~Z{<@lQUJ7(!NhU<!W+)VFF=Zkw2xG&#y4TO|G#XND_{
zVr{ab>rXz*o};;iA80*UvO_gE$%L<ZG~{dOV}VySR4DmbAyi;_2bAAd9fsV!xZ}md
z=zYeiiz)Pk`m-y9W(v8*;_2^$0T}(?+<a-9iEw0ink&?1o*z%;Zy+!4lQ{kcn6>k$
z+M0Ecx21;dtPu0wEO(!{y5!Z$nyF4j=I7^o@)bnJA&_8#KQjSgRwg~89ln72fkjBf
zV_<;Qw1OAFCxe0Jk*X#G@)mIFi~hf{748$3PH;Bd2@nF6Z|-Y>!3eUEB_C(g{58`Q
zzsu7JFG!2t_Z3a-EDE!k9~vXwGsBY$Vocx&j6xkLAo2l1LxUE`tgPe%c?>vzSfkpH
zz~rc_LH9{%Y%@xt_l{#B2#M6^M<OTYWA@ke@*TiNMl@KfwjQc~YlC&@dm;r~zEbsb
zx<C6S?|e~Z<=`x>iM%~iEDG{`z^%9$9=hepsgVtvU{Mc+9><N%?wbjgjY9JIj?0W;
z&LM(>8_?yWqobJ_d0)S_gs~B1;PQXK*D;`JwMFuMe*Sq^TN~%mgeD|b%e2Q5!bVP>
zj}b>L?17Ty0?1eJ<RD2mJcVgk<Z&5Udb_jB^HP!wY%sM*r9tSRB;}I3L=ZqnBY~N`
zCIgl}9#3tb(#-hqCxpQAVU6!UqoSFS#8mW)@P2hltvOv&p-r9V){GWPL7YQCeT9B~
zyxgLAghu^r^@-&}YzSs4WD0>0kP*%7C6^kIJl@<?w^s(fGcoQ*Qj9Klo*()^e9V5s
z)cUnWmH6K{gAqXmEv|-!(wDoA+;s|htNFdoH`Vt*NHySSS(Te6yvUZuMg0#7)FDj?
zs{^#*J)nuHsG%wvMH+Z{;ss(+z`Z|NN%D^_PoSsV$q0P&;`hUJHvS8CF1Z2wu;2zB
zHE^odB!!8io_KrMi(8-*gZI=bR`_aZ7S)6&73}UVP2}-|-D^Wz+YMifKM4!XmaiH8
z`+_uqLP6&r$&)NBI=Z@Swbp-PIqC<0j`J?^Et<)H2#E{jYSL#0)9TBy$|wEAVcB2R
zAiu$<-Q^gcltf%d0)H5T2iG{o3bZfMpHx*<eRKf)UE<L996hh2LH?&^?<f3+g!n&G
z40Vj}SSa1H#0_3@TI}Z6XuK&I$qu50*v}tIz2Yx>W)d}i-1)fD%>B}xeLti>(8W{E
zUGooCkr9tT=UXVpJI#LIZ3<yvsov@4KYv!Hgio_-hGntl=mT}|nY9<e9*kFuh|FRT
zu+tB;bcUBWGr<<)@>V-!D99i<Va*p4%)hyj`vD~V9o}3>UYj6Z0xSDc{SlmyXgK+X
zeQP+_?QKoAgp_b<%4dQEG3#ni8VrKkV6yrr*Tg2}w6z`V!0rl2s+dNNJh8mj%D6h=
z&>o!tT1#uJ%VColFuZ%0XZwn5kiwcWw!R-5=re9|=&EC2D4j;~o>gxix2$5CzSH(x
z!f_>@NBs|qLCO*XM`q(!9~gdcOxG8?_uk{t{>Fy`Z?Pge^420hnfwt(!eUYqnO0n%
z{5%}nlX(qnz=&a89gq?L_-O#R=r(G1JB4qOmSX_<+XOq^8sX4E$CdfH{Ak<PD;83b
zm!ZII|0$YsVMW7t5M=CjhINC0R!&X}DT_*tGlakQ!&8cEZC;H$iKcb%F#Xh({^V$$
z*^uQ*LP|2}bs+CYngseO#@zlIDUh)A-rUB90}x|+V$PLa=WyW3UcTJPA4wU=Gh=&V
z04_2v8>FZveWB8gDf<(+fjqOK=rJl-<a<S-((S>iW91f8pYw%I1ylSrndLX}ixnVu
z{bK$KGLtjKB+rx~4F&QoKMlTl`SRt{eU<tkd}+H}0ASY<fA&GXHV;ye6QXbJwcK|q
zJ~8ng$S?Yw|CKec*`A>%x2>(?PA2npLaxdtlDp{k9jCL5oI+=w61jvFxs62p)Q33@
zar*}M@mf@>7J|B-4N{$GFsOxO7XSd;;NL#!DTtk#e{ps)E9>MTmvjzY<u=BrrKNTE
zomh6L!L@5t7(ZVj1NfE@u6<b6Azr}nGZ>(|937(@1<2G_ZYtZO)}{-{p{p<U#s=1=
z&>oBWGO?JIU2Za&ZO#n!a@*=P6qSZS$X89SY`kn(DsVi$<#(ahC+)s2SGBlywCJf*
z3>T8vz}FE#A}BX##PM4&(hUE`3GGj<QOC}mJNG6%aHFO;X=nTiI*eCCZCcJNn>1*7
zDpYNxM7-%F?Z-UExdytGz8u{j8giM?Mp70Efzuwu!Z<UuJfvGw%GMrteCRK*Qdk=)
zYhSGJ#ZG$G5NO0{hFajC6b(Q$0=6|BChPr^`{`sK&s<Mc_T{7=v_pS6hZ}{(1XgE?
zk{kt`Lx@8t3Ii})<&l97oDd9X25avsq>4XiegC<Tnz#s>VXE$e>6BNEipJuPIPnfY
zOG^Pj^pqo=HCun&n^KylkM_#wG-W2>M`tJ7a@q8i82>U)dk1D|>qp&}z(NjTPY|U4
z8h;|Lh8bJAxW~ln?9nwgAlLTjxbMOd4NbrHK-l|@iphZTbjXPJdF<|EQqa&MEsd5l
zDoO%C2dGeqD@Vci|Kf||QfB8KCv^@C(^nM>>9EwFZ!k796IWJNo<oZ$dWw#Z8gKyP
zUb+*!VPP&w;A5rAPx*76NnKEAvg25)!#3_5ud3s}n~h)JV94EjwZxEf_>1o*714WG
zW@h@fM_Z8sI{d>|k&tz{f`FqnoMF5|R4$-N@BO7V`)sCElw)X}NDsT%J03OU&xWZv
zwt+P;Napd!rojtr4ShTiSX;X-95_`X3`d21+ehi8FhsXTX#20l7p#SFR2MC?_)Ns?
zlOEJ`UG;UKy~Ql=GU#dsw&e9#AnMvcLPCPl+_{4UDYN)xpIwcY#weQxBy9qehvY-y
zx=y0f;RlMcNIseK`~z%-;MAPx$E#_w0rp?+IM31Cd=s0R8nv?GoNu*%va~EWyx!18
zUKG#fM<MwG6py;cxTQN?%hMW&Afn?^j0g0HJ_n#E^x9uY{{RrX+}xF}s(jwQx(5uG
zTdR`y;!-3)JDZYIjh_$m=KKLMRec@z2cW)a`*r%JCe3|se%-^=56%NsyhlDE0>+t>
zZ}YAf0b-%C2ciE9QvVkV{d^54SRv8zymaZ(^`a0%^TXoef68G0n}~9o9uh5of}Z(7
z0sEiGexz!xDp2)0(IG6B?gx1Ntz^;l`HlpQD~({M@ieT8C*dsv!A9!Nh(R_Aa;}KC
zhD`j>H(-#8*uG_K%6gu9pZ}bcO$!M@9K#q|Se*R@y*GR@>iCu0Kf0lEa=bAr+svj{
z))2pfZavH<I<S1?%GRX?a{DdT$>Dlb0F(hN6#~4WC(6^wSdzEkQX=9s@&CoSu2U|U
z8XKFFPaW3!+VC`&MabGAFdywQ=p>zv2e0*i^?_M>tAnP6AkViSq6BB?g#(X<3WY~2
zT==Uf<{IdU;shDQAJ@fc%?6x#HwJNNkJ?gXEoL^Lz78ShY7v>P94xYqQbNdK9AhZ;
zo;?|ri79>~$}uTZ00?J4aW4rb22$As{xV1}wl`9tz|?YUq&TcD$6X9?9VulvcI?=-
z#j=;`@Ox2qG;_Ra;@TY^1tvZ%8EeD#0|b0%%na;I6T-3_A$sGJLcY4c1M_ednd#nr
z|5oK?y7hhjfM6=C>m(&C*M!m!5-I0lCHEM>w^KL(^OAdEJQ{q2WB-L|X|awVc+TiV
zeGAFuKTQh^775bFb8WwqblkiggU@IG05+ozQ>fum$5)qLKRYS_7Ov$f2PzTkCpXB;
z;_?x0J4r5FV+$Z&XCTgRZi!T~DFp$6zSTt&cdIs6uRKpM{Mlg}7T?^jLMdO6<MnQT
z{*Pk>`ICm=CGlq2qv~w@&Rk<!<HSyWXU?$&gCUX1E|~x#+n&cnt;v(&3%}F2u6nQB
zuY(;@LO@5SnX8``kMi4Y=V?x!at5Xntya>{oVTva&dj71Jqy2bFp#K#ctqsCa)3Iz
zMokb!Xm)*^GRtc_=ojp!2|oLS3;jfWk2wEC9aTC3z5fEMB&wW@0qpSG^U<lPLSH}z
zDuA4*^Br4}EQw6lXBL2J4CChys~jd`_sd`)WII9uUv$wfUXYfOVLrAVV}iTVJOCW5
z9PZ;0NKo(V?_Z~EAJ(O3NUT{T{am9C&^s#{*xIH$F4}>na!h;?=?nxh0B<C~lI{th
zc%zM9+FY8BaxH{hz(7PZ?-f<82XMPluQt!as%(o9X*O_%3MwWLS3FVlfc)xt2>SX-
zzK{DMc_3x#V@cwBRqwCwR~^Ptw~E1k)PQD6{<#v0Yx6w1n`aGO+0W&HT6&^xVPwX#
z`*!nUfQ%wg;w^I;G#=<x(zX&G0-lF%HlL2!x7rFldiZWji{vETi~lQvI|X{ztc)|T
Ucjz_v9~b~Pwe+tSYS@MRe?b4Vt^fc4


From bc3b0757fcbab84a175aff29236d3507b5e84ba2 Mon Sep 17 00:00:00 2001
From: Cael_Aislinn <cael_aislinn@yahoo.com.au>
Date: Wed, 5 Dec 2012 04:46:45 +1000
Subject: [PATCH 2/2] added functional bunsen burner (with placeholder sprite),
 added capability for heated chem recipes, added preservation of data across
 chemical reactions for xenoarch (not sure if it actually works, seemed a bit
 buggy), added tungsten as a dispensable reagent for xenoarch

Signed-off-by: Cael_Aislinn <cael_aislinn@yahoo.com.au>
---
 baystation12.dme                              |  1 +
 code/modules/reagents/Chemistry-Holder.dm     | 37 +++++++++++-
 code/modules/reagents/Chemistry-Machinery.dm  | 21 ++++++-
 code/modules/reagents/Chemistry-Recipes.dm    |  2 +
 .../reagents/reagent_containers/glass.dm      |  4 ++
 .../research/xenoarchaeology/archaeo_chem.dm  | 11 ++--
 .../research/xenoarchaeology/bunsen_burner.dm | 58 +++++++++++++++++++
 7 files changed, 125 insertions(+), 9 deletions(-)
 create mode 100644 code/modules/research/xenoarchaeology/bunsen_burner.dm

diff --git a/baystation12.dme b/baystation12.dme
index 5ab7609868a..70310f66450 100644
--- a/baystation12.dme
+++ b/baystation12.dme
@@ -1301,6 +1301,7 @@
 #include "code\modules\research\xenoarchaeology\artifact_harvester.dm"
 #include "code\modules\research\xenoarchaeology\artifact_misc.dm"
 #include "code\modules\research\xenoarchaeology\artifact_synthetic.dm"
+#include "code\modules\research\xenoarchaeology\bunsen_burner.dm"
 #include "code\modules\research\xenoarchaeology\core_sampler.dm"
 #include "code\modules\research\xenoarchaeology\finds.dm"
 #include "code\modules\research\xenoarchaeology\geosample.dm"
diff --git a/code/modules/reagents/Chemistry-Holder.dm b/code/modules/reagents/Chemistry-Holder.dm
index f73c1797fa4..9065c68d7fb 100644
--- a/code/modules/reagents/Chemistry-Holder.dm
+++ b/code/modules/reagents/Chemistry-Holder.dm
@@ -204,6 +204,14 @@ datum
 				do
 					reaction_occured = 0
 					for(var/datum/chemical_reaction/C in chemical_reactions_list)
+						//check if this recipe needs to be heated to mix
+						if(C.requires_heating)
+							if(istype(my_atom.loc, /obj/machinery/bunsen_burner))
+								if(!my_atom.loc:heated)
+									continue
+							else
+								continue
+
 						var/total_required_reagents = C.required_reagents.len
 						var/total_matching_reagents = 0
 						var/total_required_catalysts = C.required_catalysts.len
@@ -242,7 +250,14 @@ datum
 
 						if(total_matching_reagents == total_required_reagents && total_matching_catalysts == total_required_catalysts && matching_container && matching_other)
 							var/multiplier = min(multipliers)
-							for(var/B in C.required_reagents)
+							//try and grab any data so we can preserve it across reactions
+							//added for xenoarchaeology, might be used for other things but this is a bit dodge
+							var/preserved_data = null
+							for(var/B in src.reagent_list)
+								if(!preserved_data)
+									var/temp_data = get_data(B)
+									if(temp_data)
+										preserved_data = temp_data
 								remove_reagent(B, (multiplier * C.required_reagents[B]), safety = 1)
 
 							var/created_volume = C.result_amount*multiplier
@@ -250,6 +265,11 @@ datum
 								feedback_add_details("chemical_reaction","[C.result]|[C.result_amount*multiplier]")
 								multiplier = max(multiplier, 1) //this shouldnt happen ...
 								add_reagent(C.result, C.result_amount*multiplier)
+								set_data(C.result, preserved_data)
+
+								//add secondary products
+								for(var/S in C.secondary_results)
+									add_reagent(S, C.result_amount * C.secondary_results[S] * multiplier)
 
 							if(!isliving(my_atom))
 								for(var/mob/M in viewers(4, get_turf(my_atom)) )
@@ -442,6 +462,21 @@ datum
 
 				return res
 
+			//two slightly dodge helper functions to preserve data across reactions (needed for xenoarch)
+			get_data(var/reagent_id)
+				for(var/R in reagent_list)
+					var/datum/reagent/D = reagent_list[R]
+					if(D.id == reagent_id)
+						world << "proffering a data-carrying reagent ([reagent_id])"
+						return D.data
+
+			set_data(var/reagent_id, var/new_data)
+				for(var/R in reagent_list)
+					var/datum/reagent/D = reagent_list[R]
+					if(D.id == reagent_id)
+						world << "reagent data set ([reagent_id])"
+						D.data = new_data
+
 
 ///////////////////////////////////////////////////////////////////////////////////
 
diff --git a/code/modules/reagents/Chemistry-Machinery.dm b/code/modules/reagents/Chemistry-Machinery.dm
index f8d22288bd5..01eef07caf0 100644
--- a/code/modules/reagents/Chemistry-Machinery.dm
+++ b/code/modules/reagents/Chemistry-Machinery.dm
@@ -17,7 +17,7 @@
 	var/recharged = 0
 	var/list/dispensable_reagents = list("hydrogen","lithium","carbon","nitrogen","oxygen","fluorine",
 	"sodium","aluminum","silicon","phosphorus","sulfur","chlorine","potassium","iron",
-	"copper","mercury","radium","water","ethanol","sugar","sacid","milk")
+	"copper","mercury","radium","water","ethanol","sugar","sacid","tungsten","milk")
 
 /obj/machinery/chem_dispenser/proc/recharge()
 	if(stat & (BROKEN|NOPOWER)) return
@@ -734,6 +734,8 @@
 		/obj/item/weapon/reagent_containers/food/snacks/grown/wheat = list("flour" = -5),
 		/obj/item/weapon/reagent_containers/food/snacks/grown/cherries = list("cherryjelly" = 0),
 
+		//archaeology!
+		/obj/item/weapon/rocksliver = list("ground_rock" = 50),
 
 
 		//All types that you can put into the grinder to transfer the reagents to the beaker. !Put all recipes above this.!
@@ -995,7 +997,8 @@
 	inuse = 1
 	spawn(60)
 		inuse = 0
-		interact(usr)
+		if(get_dist(usr,src) < 2)
+			interact(usr)
 	//Snacks and Plants
 	for (var/obj/item/weapon/reagent_containers/food/snacks/O in holdingitems)
 		if (beaker.reagents.total_volume >= beaker.reagents.maximum_volume)
@@ -1061,6 +1064,20 @@
 				break
 		remove_object(O)
 
+	//xenoarch
+	for(var/obj/item/weapon/rocksliver/O in holdingitems)
+		if (beaker.reagents.total_volume >= beaker.reagents.maximum_volume)
+			break
+		var/allowed = get_allowed_by_id(O)
+		for (var/r_id in allowed)
+			var/space = beaker.reagents.maximum_volume - beaker.reagents.total_volume
+			var/amount = allowed[r_id]
+			beaker.reagents.add_reagent(r_id,min(amount, space), O.geological_data)
+
+			if (beaker.reagents.total_volume >= beaker.reagents.maximum_volume)
+				break
+		remove_object(O)
+
 	//Everything else - Transfers reagents from it into beaker
 	for (var/obj/item/weapon/reagent_containers/O in holdingitems)
 		if (beaker.reagents.total_volume >= beaker.reagents.maximum_volume)
diff --git a/code/modules/reagents/Chemistry-Recipes.dm b/code/modules/reagents/Chemistry-Recipes.dm
index b1e972b502d..0c849879d05 100644
--- a/code/modules/reagents/Chemistry-Recipes.dm
+++ b/code/modules/reagents/Chemistry-Recipes.dm
@@ -13,6 +13,8 @@ datum
 
 		var/result_amount = 0
 		var/secondary = 0 // set to nonzero if secondary reaction
+		var/list/secondary_results = list()		//additional reagents produced by the reaction
+		var/requires_heating = 0
 
 		proc
 			on_reaction(var/datum/reagents/holder, var/created_volume)
diff --git a/code/modules/reagents/reagent_containers/glass.dm b/code/modules/reagents/reagent_containers/glass.dm
index 3a89cef6dd4..5f2db222668 100644
--- a/code/modules/reagents/reagent_containers/glass.dm
+++ b/code/modules/reagents/reagent_containers/glass.dm
@@ -83,6 +83,10 @@
 		else if(istype(target, /obj/item/clothing/suit/space/space_ninja))
 			return
 
+		//bunsen burner handles all of this as well
+		else if(istype(target, /obj/machinery/bunsen_burner))
+			return
+
 		else if(reagents.total_volume)
 			user << "\blue You splash the solution onto [target]."
 			src.reagents.reaction(target, TOUCH)
diff --git a/code/modules/research/xenoarchaeology/archaeo_chem.dm b/code/modules/research/xenoarchaeology/archaeo_chem.dm
index 4b81fd774b1..a39120e7864 100644
--- a/code/modules/research/xenoarchaeology/archaeo_chem.dm
+++ b/code/modules/research/xenoarchaeology/archaeo_chem.dm
@@ -1,6 +1,5 @@
 
 //chemistry stuff here so that it can be easily viewed/modified
-/*
 datum
 	reagent
 		tungsten	//used purely to make lith-sodi-tungs
@@ -20,18 +19,18 @@ datum
 		ground_rock
 			name = "Ground Rock"
 			id = "ground_rock"
-			description = "A fine dust made of ground up geological samples."
+			description = "A fine dust made of ground up rock."
 			reagent_state = SOLID
 			color = "#C81040" 	//rgb: 200, 16, 64
 								//todo: make this brown
 
 		density_separated_sample
-			name = "Density separated sample"
+			name = "Analysis sample"
 			id = "density_separated_sample"
-			description = "A watery paste which has had density separation applied to its contents."
+			description = "A watery paste used in chemical analysis."
 			reagent_state = LIQUID
 			color = "#C81040" 	//rgb: 200, 16, 64
-								//todo: make this white
+								//todo: make this browny-white
 
 		analysis_sample
 			name = "Analysis sample"
@@ -57,6 +56,7 @@ datum
 			result = "lithiumsodiumtungstate"
 			required_reagents = list("lithium" = 1, "sodium" = 2, "tungsten" = 1, "oxygen" = 4)
 			result_amount = 8
+			requires_heating = 1
 
 		density_separated_liquid
 			name = "Density separated sample"
@@ -74,4 +74,3 @@ datum
 			required_reagents = list("density_separated_sample" = 5)
 			result_amount = 4
 			requires_heating = 1
-*/
\ No newline at end of file
diff --git a/code/modules/research/xenoarchaeology/bunsen_burner.dm b/code/modules/research/xenoarchaeology/bunsen_burner.dm
new file mode 100644
index 00000000000..bbb3d0c9c94
--- /dev/null
+++ b/code/modules/research/xenoarchaeology/bunsen_burner.dm
@@ -0,0 +1,58 @@
+
+/obj/machinery/bunsen_burner
+	name = "bunsen burner"
+	desc = "A flat, self-heating device designed for bringing chemical mixtures to boil."
+	icon = 'icons/obj/device.dmi'
+	icon_state = "bunsen0"
+	var/heating = 0		//whether the bunsen is turned on
+	var/heated = 0		//whether the bunsen has been on long enough to let stuff react
+	var/obj/item/weapon/reagent_containers/held_container
+	var/heat_time = 50
+
+/obj/machinery/bunsen_burner/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	if(istype(W, /obj/item/weapon/reagent_containers))
+		if(held_container)
+			user << "\red You must remove the [held_container] first."
+		else
+			user.drop_item(src)
+			held_container = W
+			held_container.loc = src
+			user << "\blue You put the [held_container] onto the [src]."
+			var/image/I = image("icon"=W, "layer"=FLOAT_LAYER)
+			underlays += I
+			if(heating)
+				spawn(heat_time)
+					try_heating()
+	else
+		user << "\red You can't put the [W] onto the [src]."
+
+
+
+/obj/machinery/bunsen_burner/attack_hand(mob/user as mob)
+	if(held_container)
+		underlays = null
+		user << "\blue You remove the [held_container] from the [src]."
+		held_container.loc = src.loc
+		held_container.attack_hand(user)
+		held_container = null
+	else
+		user << "\red There is nothing on the [src]."
+
+/obj/machinery/bunsen_burner/proc/try_heating()
+	if(held_container && heating)
+		heated = 1
+		held_container.reagents.handle_reactions()
+		heated = 0
+		spawn(heat_time)
+			try_heating()
+
+/obj/machinery/bunsen_burner/verb/toggle()
+	set src in oview(1)
+	set name = "Toggle bunsen burner"
+	set category = "IC"
+
+	heating = !heating
+	icon_state = "bunsen[heating]"
+	if(heating)
+		spawn(heat_time)
+			try_heating()